Previous File Previous Page Single Page Next Page Next File

*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
Previous File Previous Page Single Page Next Page Next File