BASIC-INIT-A

* NAME BASIC-INIT-A DOC. 70181909000 REV. A PAGE 6

0220 00125 101000 NOP X 0221 00126 0 04 00000 STA SIT OK-SAVE AS HIGH POINTER 0222 * 0223 * CALCULATE AND PRINT TOTAL USER SPACE 0224 * 0225 00127 0 02 00000 IN04 LDA SIT LOAD HIGH POINTER 0226 00130 0 07 00000 SUB PTB SUBTRACT LOW POINTER 0227 00131 0 06 00000 ADD C1 ADD ONE 0228 00132 0 11 00000 CAS C10 MAKE SURE IT ISN'T TOO SMALL 0229 00133 0 01 00141 JMP *+6 OK-JUMP TO PRINT USER SPACE MESSAGE 0230 00134 101000 NOP X 0231 00135 0 10 00000 JST TYPE TOO SMALL-FLAG INSUFFICIENT USER SPACE 0232 00136 0 000000 XAC ISSM X 0233 00137 0 10 00000 JST LFCR C/R, LINE FEED 0234 00140 0 01 00047 JMP IN01 LOOP TO SET HIGH POINTER 0235 00141 0 10 00000 JST FINT FLOAT THE NUMBER 0236 00142 0 10 00000 JST SCVL STORE IT INTO FLOATING POINT ACCUMULATOR 0237 00143 0 02 00000 LDA C240 SURPRESS BLANKS 0238 00144 0 10 00000 JST PCVL PRINT THE NUMBER 0239 00145 0 10 00000 JST TYPE PRINT USER SPACE MESSAGE 0240 00146 0 000000 XAC USPM X 0241 00147 0 10 00000 JST LFCR C/R, LINE FEED 0242 * 0243 * CHANGE CALL TO THE INITIALIZATION ROUTINE TO A CRA 0244 * 0245 00150 0 02 00001 LDA INIT LOAD ADDRESS PLUS ONE OF CALL 0246 00151 0 07 00000 SUB C1 SUBTRACT ONE 0247 00152 0 04 00001 STA INIT AND SAVE 0248 00153 0 02 00075 LDA CRA LOAD CRA 0249 00154 -0 04 00001 STA* INIT STORE IN LOCATION OF CALL 0250 00155 0 01 00000 JMP JOB EXIT THROUGH JOB COMMAND PROCESSOR 0251 * 0252 * HERE TO FLAG AN ILLEGAL CONFIGURATION 0253 * 0254 00156 0 10 00000 IN06 JST TYPE PRINT MESSAGE 0255 00157 0 000217 DAC ILCM X 0256 00160 000000 HLT AND HALT 0257 * 0258 EJCT