BASIC-INIT-A

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

0170 00052 -0 13 00000 IMA* SIT THEN LOADING (BUT DON'T DESTROY CONTENTS OF 0171 00053 0 05 00000 ERA SIT ADDRESS), AND COMPARING 0172 00054 101040 SNZ TEST IF THE SAME 0173 00055 0 01 00060 JMP *+3 YES-HIGH MEMORY ADDRESS IS IN SIT 0174 00056 0 07 00210 SUB C4K NO-SUBTRACT 4K 0175 00057 0 01 00050 JMP IN10 AND TRY AGAIN 0176 00060 0 10 00000 JST TYPE ASK USER IF HE WOULD LIKE TO USE ALL OF 0177 00061 0 000000 XAC HMAM CORE 0178 00062 0 10 00000 IN03 JST TYPE REQUEST A YES OR HIGH OCTAL ADDRESS 0179 00063 0 000000 XAC AYOH X 0180 00064 0 10 00000 JST LFCR C/R, LINE FEED 0181 00065 0 02 00000 LDA C241 OUTPUT EXCLAMATION POINT 0182 00066 0 10 00000 JST IPUT THEN INPUT LINE FROM ASR 0183 00067 0 000000 XAC SBUF INPUT BUFFER 0184 00070 0 10 00000 JST GNBC GET THE FIRST NON-BLANK CHARACTER 0185 00071 0 11 00213 CAS C331 IS IT A 'Y' 0186 00072 0 01 00062 JMP IN03 NOT Y OR NUMBER-REQUEST YES OR HIGH 0187 * OCTAL ADDRESS 0188 00073 0 01 00127 JMP IN04 YES-ASSUME YES ANSWER-JUMP TO CALCULATE 0189 * USER SPACE 0190 00074 000201 IAB SAVE THE CHARACTER 0191 00075 140040 CRA CRA 0192 00076 0 04 00207 STA HOA INITIALIZE HIGH OCTAL ADDRESS TO ZERO 0193 00077 000201 IAB AND CLEAR B REGISTER 0194 * 0195 * HERE TO INPUT USER HIGH OCTAL ADDRESS 0196 * 0197 00100 0 07 00000 IN05 SUB C260 SUBTRACT '260 TO GET PURE NUMBER 0198 00101 100400 SPL MAKE SURE IT'S NOT LESS THAN ZERO 0199 00102 0 01 00062 JMP IN03 IF LESS, REQUEST YES OR HIGH ADDRESS 0200 00103 0 11 00000 CAS C10 OR GREATER THAN 7 0201 00104 101000 NOP X 0202 00105 0 01 00062 JMP IN03 IF GREATER THEN REQUEST YES OR HIGH OCTAL 0203 * ADDRESS 0204 00106 0 13 00207 IMA HOA MAKE ROOM FOR THE DIGIT 0205 00107 0412 75 LLR 3 BY SHIFTING ADDRESS THREE PLACES LEFT 0206 00110 0 05 00207 ERA HOA ADD THE DIGIT 0207 00111 000201 IAB MAKE SURE THERE IS NO OVERFLOW BY TESTING 0208 00112 100040 SZE THE B REGISTER 0209 00113 0 01 00062 JMP IN03 OVERFLOW-REQUEST YES OR HIGH OCTAL ADDRESS 0210 00114 000201 IAB REPOSITION 0211 00115 0 04 00207 STA HOA SAVE ADDRESS 0212 00116 0 10 00000 JST GNBC GET NEXT NON-BLANK CHARACTER 0213 00117 0 11 00000 CAS C215 CHECK FOR C/R 0214 00120 0 01 00100 JMP IN05 NO-LOOP TO ADD DIGIT TO HIGH ADDRESS 0215 00121 0 02 00207 LDA HOA YES-LOAD USER HIGH INPUT ADDRESS 0216 00122 101400 SMI IF USER INPUT HIGH ADDRESS IS NEGATIVE 0217 00123 0 11 00000 CAS SIT COMRARE WIIH HIGH CORE ADDRESS 0218 00124 0 01 00062 JMP IN03 USER INPUT HIGH ADDRESS IS TOO LARGE OR 0219 * NEGATIVE-JUMP TO INPUT AGAIN