BASIC-16A

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

1062 * RUN COMMAND PROCESSOR 1063 * 1064 * 1065 * ALL USERS TABLES WILL BE CLEARED, ALL DIM STATEMENTS 1066 * WILL BE PROCESSED, AND THEN PROGRAM EXECUTION WILL BE STARTED 1067 * AT THE LOWEST NUMBERED STATEMENT. 1068 * 1069 * 1070 * 1071 01054 0 10 02770 RUN JST CLRT CLEAR USER TABLES 1072 01055 0 04 00051 STA SEQI RESET SEQUENCING INIBITION FLAG 1073 01056 0 04 00104 STA DIMF SET DIMENSION STATEMENT FLAG 1074 01057 0 10 03011 JST IPDS SET UP THE PUSH DOWN STACK 1075 01060 0 02 00032 LDA SIB SETIP TO PROCESS ALL DIM STMTS 1076 01061 0 07 00376 SUB C2 X 1077 01062 0 04 00034 STA SIP X 1078 01063 0 02 00506 RN01 LDA DIMC FIND THE NEXT DIMENSION STATEMENT 1079 01064 0 10 04457 JST SSR X 1080 01065 0 01 01100 JMP RN02 ALL DIMENSION STMTS HAVE BEEN PROCESSED 1081 01066 0 10 04632 RN03 JST PVN ISOLATE VARIABLE NAME 1082 01067 0 10 04751 JST ADV CREATE TABLE ENTRY FOR THIS VARIABLE 1083 01070 0 01 01117 JMP RN04 ERROR...ILLEGAL DIMENSIONED VARIABLE NAME 1084 01071 0 10 03047 JST GCHR FETCH ITEM TERMINATOR 1085 01072 0 11 00414 CAS C254 IF COMMA, THEN MORE NAMES FOLLOW 1086 01073 100000 SKP NO 1087 01074 0 01 01066 JMP RN03 GO PROCESS NEXT VARIABLE 1088 01075 0 10 03065 JST UCHR NOT COMMA, MUST BE : OR C/R 1089 01076 0 10 03116 JST GDLM X 1090 01077 0 01 01063 JMP RN01 GO CHECK FOR MORE DIMENSION STMTS 1091 * 1092 01100 0 02 01007 RN02 LDA SSBP RESTORE POINTER TO COMMAND LINE 1096 01101 0 04 00037 STA SBP X 1097 01102 0 02 00032 LDA SIB SET SI POINTER TO START 1098 01103 0 07 00376 SUB C2 EXECUTION AT LOWEST NUMBERED 1099 01104 0 04 00034 STA SIP X 1100 01105 0 02 00374 LDA C12 RESET DIMENSION STMT FLAG 1101 01106 0 04 00104 STA DIMF X 1102 01107 0 10 03047 JST GCHR STEP OVER 'RUN' 1103 01110 0 10 03054 JST XCHR TEST FOR STARTING LINE NUMBER 1104 01111 0 10 03173 JST DLCK X 1105 01112 100000 SKP MAYBE 1106 01113 0 01 04600 JMP ASQ NO ... START AT LOWEST NUMBERED LINE 1107 01114 140040 CRA SIP=0 SO THAT ERROR DIAGNOSTICS 1108 01115 0 04 00034 STA SIP WILL COME OUT RIGHT 1109 01116 0 01 03324 JMP GOTO EXECUTE A 'GOTO' STATEMENT 1110 * 1111 01117 0 10 05243 RN04 JST ERR REPORT DIMENSION VARIBALE NAME ERROR 1112 01120 142316 BCI 1,DN 1113 * 1114 *