BASIC-16A

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

1197 * LIST COMMAND PROCESSOR 1198 * 1199 * 1200 * THIS ROUTINE PRINTS A SOURCE LISTING 1201 * OF THE PROGRAM THAT IS CURRENTLY STORED. THE LISTING 1202 * IS PRECEEDED AND FOLLOWED BY TWO BLANK LINES. 1203 * 1204 * 1205 01137 0 02 00400 LIST LDA C212 PRINT A COUPLE OF BLANK LINES 1206 01140 0 10 00000 JST OTA1 X 1207 01141 0 10 00000 JST OTA1 X 1208 01142 140040 CRA 1209 01143 0 04 00314 STA LTT4 INITIALIZE LOW LIST RANGE POINTER 1210 01144 0 02 00444 LDA F1 INITILAIZE HIGH LIST RANGE POINTER TO 1211 01145 0 04 00315 STA LTT5 SOME VALUE > 9999 1212 01146 0 10 03047 JST GCHR STEP OVER 'LIST' 1213 01147 0 10 03054 JST XCHR TEST FOR LIST PARAMETERS 1214 01150 0 10 03173 JST DLCK X 1215 01151 100000 SKP ......YES...... 1216 01152 0 01 01170 JMP LT11 NO ... START LISTING 1217 01153 0 11 00414 CAS C254 IS FIRST PARAMETER MISSING ? 1218 01154 100000 SKP NO 1219 01155 0 01 01161 JMP LT13 YES ... LIST UPTO SECOND PARAMETER 1220 01156 0 10 04556 JST ISN INPUT LOW RANGE PARAMETER 1221 01157 0 07 00371 SUB C1 ADJUST AS RANGE CHECK IN EXCLUSIVE 1222 01160 0 04 00314 STA LTT4 SAVE IT 1223 01161 0 10 03047 LT13 JST GCHR GET PARAMETER DELIMITER 1224 01162 0 10 03173 JST DLCK SECOND PARAMETER MISSING ? 1225 01163 100000 SKP NO 1226 01164 0 01 01170 JMP LT11 YES ... START LISTING 1227 01165 0 10 04556 JST ISN INPUT THE SECOND PARAMETER 1228 01166 141206 AOA ADJUST AS RANGE CHECK IS EXCLUSIVE 1229 01167 0 04 00315 STA LTT5 SAVE IT 1230 01170 0 02 00032 LT11 LDA SIB START SCAN AT LOWEST NUMBERED STATEMENT 1231 01171 0 11 00033 LT01 CAS SIT ARE WE PAST END OF TABLE? 1232 01172 0 01 01305 JMP LT02 YES...GO FINISH UP 1233 01173 000000 OCT 0 NEVER CAN EXECUTE THIS WORD 1234 01174 0 04 00034 STA LTT1 SAVE POINTER IN SAFE PLACE 1235 01175 -0 02 00034 LDA* SIP GET NO. OF CURRENT STATEMENT 1236 01176 0 11 00314 CAS LTT4 IS IT IN LISTING RANGE ? 1237 01177 0 11 00315 CAS LTT5 X 1238 01200 0 01 01302 JMP LT14 ....NO....MOVE ON TO NEXT STATEMENT 1239 01201 0 01 01302 JMP LT14 ....NO....MOVE ON TO NEXT STATEMENT 1240 01202 0 10 02736 JST PLN PRINT LINE NUMBER OF THIS STATEMENT 1241 01203 0 35 00034 LDX LTT1 X POINTS TO SI ENTRY FOR THIS STATEMENT 1243 01204 1 02 00001 LDA 1,1 SET SBP TO START OF SOURCE FOR THIS 1248 01205 0 04 00037 STA SBP STATEMENT 1249 01206 0 10 03054 JST XCHR IF NEXT CHARACTER IS NOT A 1250 01207 0 11 00401 CAS C215 SPECIAL IDENTIFIER, PRINT A 1251 01210 0 10 02764 JST SPAC SPACE TO MAKE THE LISTING LINE UP