BASCIN, BASIC

*BASIC 11 15-12-70 EI PAGE 1

0001 *BASIC 11 15-12-70 EI 0002 SUBR BASCIN,BASN 0003 SUBR BASIC,BASC 0004 REL 0005 00000 0 000000 BASN DAC ** 0006 00001 0 02 00331 LDA =3 0007 00002 0 04 00236 STA VERT 0008 00003 140040 CRA 0009 00004 0 04 00235 STA HORZ PRESET CENTER POS. 0010 00005 0 04 00237 STA J2 0011 00006 0 04 00242 STA J2P 0012 00007 0 04 00241 STA J2T 0013 00010 0 04 00250 STA SIGN 0014 00011 0 04 00246 STA DIR 0015 00012 0 04 00243 STA J2A 0016 00013 0 04 00244 STA J2AP 0017 00014 0 02 00330 LDA =-4 0018 00015 0 04 00245 STA M4 0019 00016 140040 CRA 0020 00017 74 0022 OTA '22 0021 00020 0 01 00017 JMP *-1 0022 00021 74 0030 OTA '30 0023 00022 0 01 00021 JMP *-1 0024 00023 74 0060 OTA '60 0025 00024 0 01 00023 JMP *-1 0026 00025 0 02 00327 LDA ='20 0027 00026 0 10 00000 CALL WAIT 0028 00027 -0 01 00000 JMP* BASN 0029 * 0030 00030 0 000000 BASC DAC ** 0031 00031 0 04 00264 STA T+2 0032 00032 0 03 00326 ANA ='36000 SEPERATE: 0033 00033 0 04 00234 STA ACCL ACCELERATION^ 0034 00034 0 02 00264 LDA T+2 0035 00035 0 03 00325 ANA ='340 0036 00036 0404 73 LGR 5 0037 00037 0 04 00236 STA VERT VERTICAL POSITION 0038 00040 0 02 00264 LDA T+2 0039 00041 0 03 00324 ANA ='37 0040 00042 0414 65 LGL 11 HORIZONTAL POS. 0041 00043 0405 65 ARS 11 RESTORE SIGN 0042 00044 0 04 00240 STA J2D 0043 * 0044 00045 0 02 00236 LDA VERT GET DEMANDED VERT.POS. 0045 00046 0 06 00252 ADD J1T! SET POINTER 0046 00047 0 04 00251 STA J1 0047 00050 -0 02 00251 LDA* J1 0048 00051 0 04 00251 STA J1 0049 00052 0 02 00240 LDA J2D 0050 00053 0 03 00323 ANA ='100000
*BASIC 11 15-12-70 EI PAGE 2

0051 00054 0 05 00250 ERA SIGN IS SIGN SAME AS LAST? 0052 00055 100040 SZE 0053 00056 0 01 00074 JMP POS NO - DIRECTION + 0054 00057 0 02 00240 LDA J2D YES - EVALUATE DIR. 0055 00060 101400 SMI 0056 00061 0 01 00064 JMP *+3 GET ABSOLUTE VALUE 0057 00062 0 05 00322 ERA =-1 0058 00063 0 07 00322 SUB =-1 0059 00064 0 04 00243 STA J2A 0060 00065 0 07 00244 SUB J2AP 0061 00066 101040 SNZ ARE VALUES EQUAL ? 0062 00067 0 01 00121 JMP OUT YES 0063 00070 100400 SPL 0064 00071 0 01 00074 JMP *+3 0065 00072 0 02 00323 LDA ='100000 SET NEG.SIGN 0066 00073 100000 SKP 0067 00074 140040 POS CRA 0068 00075 0 04 00247 STA DIRP 0069 00076 0 05 00246 ERA DIR IS DIRECTION SAME 0070 00077 101040 SNZ 0071 00100 0 01 00121 JMP OUT 0072 00101 0 02 00240 LDA J2D UPDATE J2 0073 00102 0 04 00237 STA J2 0074 00103 0 06 00241 ADD J2T 0075 00104 0 04 00241 STA J2T 0076 00105 101000 NOP 0077 00106 0 12 00245 IRS M4 UPDATE COUNTER 0078 00107 0 01 00117 JMP OUT2 0079 00110 0 02 00241 LDA J2T COMPUTE AVERAGE OF 4 0080 00111 0405 76 ARS 2 0081 00112 0 04 00237 STA J2 0082 00113 140040 CRA CRA 0083 00114 0 04 00241 STA J2T 0084 00115 0 02 00330 LDA =-4 0085 00116 0 04 00245 STA M4 0086 00117 0 10 00156 OUT2 JST OUTP 0087 00120 -0 01 00030 JMP* BASC 0088 00121 0 02 00240 OUT LDA J2D SET POINTERS 0089 00122 0 04 00237 STA J2 0090 00123 0 06 00233 ADD HF2! FOR 0091 00124 0 04 00262 STA T COMPENSATING FACT. 0092 00125 0 06 00324 ADD =31 0093 00126 0 04 00263 STA T+1 0094 00127 -0 02 00262 LDA* T GET HF2 FROM TABLE 0095 00130 0 04 00300 STA HF2 0096 00131 -0 02 00263 LDA* T+1 " HF5 " " 0097 00132 0 04 00301 STA HF5 0098 00133 0 02 00235 LDA HORZ SET POHNTERS 0099 00134 0 06 00232 ADD F2T! FOR 0100 00135 0 04 00262 STA T
*BASIC 11 15-12-70 EI PAGE 3

0101 00136 0 06 00321 ADD =11 COMPENSATING FACTORS 0102 00137 0 04 00263 STA T+1 0103 00140 -0 02 00262 LDA* T GET F2 FROM TABLE 0104 00141 0 04 00302 STA F2 0105 00142 -0 02 00263 LDA* T+1 " F5 " " 0106 00143 0 04 00303 STA F5 0107 00144 0 02 00240 LDA J2D COMPENSATE J2 0108 00145 0 06 00302 ADD F2 0109 00146 0 06 00300 ADD HF2 0110 00147 0 03 00324 ANA ='37 0111 00150 0 04 00237 STA J2 0112 00151 0 02 00235 LDA HORZ COMPENSATE HORIZ 0113 00152 0 06 00303 ADD F5 0114 00153 0 06 00301 ADD HF5 0115 00154 0 04 00235 STA HORZ 0116 00155 0 01 00113 JMP CRA 0117 * 0118 * OUTP ASSEMBLES THREE OUTPUTWORDS, 0119 * TRANSFERS THEM TO DEVICES '22,'30,'60 0120 * AND RETURNS TO MAIN PROGRAM. 0121 * 0122 00156 0 000000 OUTP DAC ** 0123 00157 0 02 00237 LDA J2 ASSEMBLE WORD '22 0124 00160 0 03 00324 ANA ='37 0125 00161 0 06 00251 ADD J1 0126 00162 0 06 00234 ADD ACCL 0127 00163 74 0022 OTA '22 AND OUTPUT 0128 00164 0 01 00163 JMP *-1 0129 00165 0 02 00236 LDA VERT COMPUTE ADDRESS IN 0130 00166 0 06 00265 ADD LEV! LEVEL TABLE. 0131 00167 0 04 00277 STA TEMP 0132 00170 -0 02 00277 LDA* TEMP 0133 00171 0 06 00235 ADD HORZ 0134 00172 0 04 00277 STA TEMP 0135 00173 -0 02 00277 LDA* TEMP FETCH J5 AND J6 0136 00174 74 0030 OTA '30 AND OUTPUT 0137 00175 0 01 00174 JMP *-1 0138 00176 0 02 00277 LDA TEMP 0139 00177 0 06 00321 ADD =11 0140 00200 0 04 00277 STA TEMP 0141 00201 -0 02 00277 LDA* TEMP FETCH J3 AMD J4 0142 00202 74 0060 OTA '60 AND OUTPUT 0143 00203 0 01 00202 JMP *-1 0144 00204 0 02 00240 LDA J2D 0145 00205 0 04 00242 STA J2P 0146 00206 0 03 00323 ANA ='100000 0147 00207 0 04 00250 STA SIGN 0148 00210 0 02 00247 LDA DIRP 0149 00211 0 04 00246 STA DIR 0150 00212 0 02 00243 LDA J2A
*BASIC 11 15-12-70 EI PAGE 4

0151 00213 0 04 00244 STA J2AP 0152 00214 000401 ENB 0153 00215 0 02 00320 LDA ='140 0154 00216 74 0020 SMK '20 0155 00217 0 02 00317 LDA =10 0156 00220 0 10 00000 CALL WAIT 0157 00221 54 1012 INA INA '1012 0158 00222 0 01 00221 JMP *-1 0159 00223 0 03 00316 ANA ='77 0160 00224 100040 SZE 0161 00225 0 01 00230 JMP CHEK 0162 00226 101000 NOP 0163 00227 -0 01 00156 JMP* OUTP 0164 00230 0 10 00000 CHEK CALL CHECK 0165 00231 0 01 00221 JMP INA 0166 * 0167 * 0168 00232 0 012363 F2T! DAC F2T 0169 00233 0 012277 HF2! DAC HF2T 0170 00234 000000 ACCL BSZ 1 0171 00235 000000 HORZ BSZ 1 HOR.POS.OF STRUCTURE 0172 00236 000000 VERT BSZ 1 VERT. " " 0173 00237 000000 J2 BSZ 1 POSITION OF J2 0174 00240 000000 J2D BSZ 1 DEMANDED POS. J2 0175 00241 000000 J2T BSZ 1 TOTAL OF J2 POS. 0176 00242 000000 J2P BSZ 1 LAST DEMANDED POS.OF J.2. 0177 00243 000000 J2A BSZ 1 ABS. VAL. OF J.2. 0178 00244 000000 J2AP BSZ 1 LAST ABS VAL. 0179 00245 177774 M4 OCT -4 COUNTER 0180 00246 000000 DIR BSZ 1 DEMANDED DIRECTION 0181 00247 000000 DIRP BSZ 1 LAST D.D. 0182 00250 000000 SIGN BSZ 1 SIGN OF NEW POSITION 0183 00251 000000 J1 BSZ 1 0184 00252 0 000252 J1T! DAC * 0185 00253 000000 J1T BSZ 7 0186 00262 T BSS 3 0187 00265 0 000266 LEV! DAC LEVL 0188 00266 0 00 00000 LEVL PZE 0189 00267 0 012005 DAC L1+5 0190 00270 0 012033 DAC L1+27 0191 00271 0 012061 DAC L1+49 0192 00272 0 012107 DAC L1+71 0193 00273 0 012135 DAC L1+93 0194 00274 0 012163 DAC L1+115 0195 00275 0 012211 DAC L1+137 0196 00276 0 012237 DAC L1+159 0197 00277 000000 TEMP BSZ 1 TEMPORARY STORE 0198 00300 000000 HF2 BSZ 1 HEAD COMPENSATING FACTOR 0199 00301 000000 HF5 BSZ 1 0200 00302 000000 F2 BSZ 1 BODY COMPENSATING FACTOR
*BASIC 11 15-12-70 EI PAGE 5

0201 00303 000000 F5 BSZ 1 0202 00304 BSS 10 0203 00316 000077 FIN 00317 000012 00320 000140 00321 000013 00322 177777 00323 100000 00324 000037 00325 000340 00326 036000 00327 000020 00330 177774 00331 000003 0204 ABS 0205 ORG '12000 0206 12000 L1 BSS 191 0207 12277 HF2T BSS 52 0208 12363 F2T BSS 17 0209 END ACCL 000234 BASC 000030 BASN 000000 CHEK 000230 CRA 000113 DIR 000246 DIRP 000247 F2 000302 F2T 012363A F2T! 000232 F5 000303 HF2 000300 HF2! 000233 HF2T 012277A HF5 000301 HORZ 000235 INA 000221 J1 000251 J1T 000253 J1T! 000252 J2 000237 J2A 000243 J2AP 000244 J2D 000240 J2P 000242 J2T 000241 L1 012000A LEV! 000265 LEVL 000266 M4 000245 OUT 000121 OUT2 000117 OUTP 000156 POS 000074 SIGN 000250 T 000262 TEMP 000277 VERT 000236 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71