*BASIC 11 15-12-70 EI PAGE 3

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 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