BASIC-16A

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

3683 04132 0 02 00414 LDA C254 X 3684 04133 0 10 03104 JST GCCK X 3685 04134 0 02 00037 LDA SBP UPDATE DATA POINTER 3686 04135 0 01 04115 JMP RD03 X 3687 * 3688 04136 0 004137 IDAC DAC *+1 LINKAGE TO INPUT DATA PARAMETERS 3689 04137 000000 ISBP OCT 0 POINTER TO INPUT DATA 3690 * 3691 * HERE TO READ DATA LIST FROM ASR 3692 * 3693 04140 0 02 00037 LDA SBP SAVE CURRENT STATEMENT BYTE POINTER DURING 3694 04141 0 04 04137 STA ISBP THE DATA FETCH 3695 04142 0 02 00406 LDA C241 PERFIX LINE WITH '!' 3696 04143 0 10 01504 JST ILIN INPUT LINE FROM ASR 3698 04144 0 000460 INT1 DAC IBUF+IBUF READ INTO DATA INPUT BUFFER 3702 04145 0 02 04144 LDA INT1 CALCULATE SBP OF DATA LINE 3706 04146 0 13 04137 IMA ISBP SWAP WITH CURRENT STMT BYTE POINTER 3707 04147 0 04 00037 STA SBP RESTORE CURRENT STATEMENT POINTER 3708 04150 0 01 04104 JMP RD04 RETURN TO INPUT PROCESSING 3709 * 3710 * HERE FOR READ STATEMENT DATA FETCH 3711 * 3712 04151 0 004153 RDAC DAC *+2 LINKAGE TO READ PARAMETERS 3713 04152 0 000000 RSIP DAC ** POINTER TO CURRENT DATA STATEMENT 3714 04153 0 000000 RSBP DAC ** POINTER TO CURRENT DATA ITEM 3715 * 3716 04154 0 10 04167 JST RD06 SET STMT PNTRS FOR DATA STMT SEARCH 3717 04155 0 02 00443 LDA DTAC FIND THE NEXT DATA STATEMENT 3718 04156 0 10 04457 JST SSR X 3719 04157 0 01 04162 JMP RD07 RAN OUT OF DATA 3720 04160 0 10 04167 JST RD06 SWAP BACK THE POINTERS 3721 04161 0 01 04104 JMP RD04 CONTINUE WITH READ STATEMENT 3722 * 3723 04162 0 10 04167 RD07 JST RD06 RESTORE THE POINTERS 3724 04163 140040 CRA RESET DATA AVAILABILITY POINTER 3725 04164 0 04 04153 STA RSBP X 3726 04165 0 10 05243 JST ERR REPORT THE ERROR 3727 04166 142301 BCI 1,DA X 3728 * 3729 * HERE TO SWAP DATA POINTERS 3730 * 3731 04167 0 000000 RD06 DAC ** 3732 04170 0 02 04152 LDA RSIP SWAP SIP WITH RSIP 3733 04171 0 13 00034 IMA SIP X 3734 04172 0 04 04152 STA RSIP X 3735 04173 0 02 04153 LDA RSBP SWAP SBP WITH RSBP 3736 04174 0 13 00037 IMA SBP X 3737 04175 0 04 04153 STA RSBP X 3738 04176 -0 01 04167 JMP* RD06 RETURN 3745 *