INSTRUCTION SCAN

* INSTRUCTION SCAN PAGE 4

0151 01163 0 04 01127 STA BEFR 0152 01164 0 02 01133 LDA AFTR 0153 01165 0414 77 LGL 1 0154 01166 0 04 01133 STA AFTR 0155 * 0156 01167 0 12 01203 IRS OTCB 0157 01170 0 01 01155 JMP OPP2 0158 01171 0 02 01231 LDA ='240 SPACE 0159 01172 0 10 01014 JST OPCH 0160 01173 0 12 01202 IRS OTCN 0161 01174 0 01 01153 JMP OPP1 0162 * NOW DO CARRY 0163 01175 0 02 01134 LDA AFTC 0164 01176 000201 IAB 0165 01177 0 02 01131 LDA BEFC 0166 01200 0 10 01204 JST OTBT 0167 01201 -0 01 01150 JMP* OPTP 0168 * 0169 01202 000000 OTCN BSZ 1 0170 01203 000000 OTCB BSZ 1 0171 * 0172 * OUTPUT 1 BIT RESULT 0173 * BEFORE IN A1, AFTER IN B1 0174 * 0175 01204 0 000000 OTBT DAC ** 0176 01205 100400 SPL 0177 01206 0 01 01216 JMP OTB1 0178 * BEFORE WAS ZERO 0179 01207 000201 IAB 0180 01210 100400 SPL 0181 01211 0 01 01214 JMP OTB2 0182 * STILL IS 0183 01212 0 02 01234 LDA =A00 0184 01213 0 01 01224 JMP OTBX 0185 01214 0 02 01230 OTB2 LDA =A++ 0186 01215 0 01 01224 JMP OTBX 0187 * BEFORE WAS ONE 0188 01216 000201 OTB1 IAB 0189 01217 100400 SPL 0190 01220 0 01 01223 JMP OTB3 0191 01221 0 02 01227 LDA =A-- 0192 01222 0 01 01224 JMP OTBX 0193 01223 0 02 01226 OTB3 LDA =A11 0194 01224 0 10 01014 OTBX JST OPCH 0195 01225 -0 01 01204 JMP* OTBT 0196 01226 130661 END 01227 126655 01230 125653 01231 000240 01232 177774