BASIC-16A

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 96

3629 * READ AND INPUT STATEMENT PROCESSOR 3630 * 3631 * 3632 * STATEMENT SYNTAX: 3633 * 3634 * <READ STATEMENT>:=READ<READ LIST>[:|C/R] 3635 * 3636 * <INPUT STATEMENT>:=INPUT<READ LIST>[:|C/R] 3637 * 3638 * <READ LIST>:=<VARIABLE>[,<VARIABLE>](0,*) 3639 * 3640 * 3641 * 3642 04066 140040 INPT CRA CLEAR DATA AVAILIBILITY POINTER 3643 04067 0 04 04137 STA ISBP X 3644 04070 0 02 04136 LDA IDAC SET LINKAGE TO INPT DATA AND TO DATA FETCH 3645 04071 100000 SKP X 3646 04072 0 02 04151 READ LDA RDAC SET LINKAGE TO READ DATA AND DATA FETCH 3647 04073 0 04 00046 STA RDT1 SAVE PARAMETER LINKAGE 3648 04074 0 10 04632 RD02 JST PVN PROCESS LIST VARIABLE NAME 3649 04075 0 10 04751 JST ADV LOCATE/ASSIGN SUBSCRIPTED VARIABEL 3650 04076 0 10 04671 JST ASV LOCATE/ASSIGN SIMPLE VARIABLE 3651 04077 0 15 04121 STX RDT2 SAVE THE VARIABLE POINTER 3652 04100 0 35 00046 LDX RDT1 RDT1 POINTS TO DATA SBP 3653 04101 -0 02 00000 LDA* 0 IS DATA AVAILABLE ? 3654 04102 101040 SNZ X 3656 04103 1 01 00001 JMP 1,1 NO ... GO GET SOME MORE 3660 04104 0 02 00037 RD04 LDA SBP SWAP STMT POINTER WITH 3661 04105 -0 13 00046 IMA* RDT1 DATA POINTER 3662 04106 0 04 00037 STA SBP X 3663 04107 140040 CRA EVALUATE THE NEXT DATA ITEM 3664 04110 0 10 02443 JST EXPA X 3665 04111 0 10 03047 JST GCHR TEST FOR END OF DATA LIST 3666 04112 0 10 03173 JST DLCK X 3667 04113 0 01 04131 JMP RD01 NO....GO INSURE THAT SEPERATOR IS A COMMA 3668 04114 140040 CRA YES...CLEAR DATA AVAILIBILITY INDICATOR 3669 04115 -0 13 00046 RD03 IMA* RDT1 X 3670 04116 0 04 00037 STA SBP AND RESTORE STATEMENT POINTER 3671 04117 0 10 03203 JST LCVL GET VALUE OF DATA ITEM 3672 04120 0 10 00000 JST H$22 ASSIGN IT TO READ LIST ITEM 3673 04121 0 000000 RDT2 DAC ** X 3674 04122 0 10 03047 JST GCHR AT END OF STATEMENT ? 3675 04123 0 11 00414 CAS C254 X 3676 04124 100000 SKP X 3677 04125 0 01 04074 JMP RD02 NO....GO PROCESS NEXT LIST ITEM 3678 04126 0 10 03065 JST UCHR YES...MAKE SURE DELIMITER IS : OR C/R 3679 04127 0 10 03116 JST GDLM X 3680 04130 0 01 04574 JMP SEX GO PROCESS NEXT STATEMENT 3681 * 3682 04131 0 10 03065 RD01 JST UCHR IF NOT DELIMITER, IT MUST BE A COMMA