AB16-CMT5

* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 7

0277 00177 0 04 00674 STA NOW SAVE CURRENT DISPLACEMENT 0278 00200 0 02 00700 LDA NFA 0279 00201 0 04 00676 STA CFA 0280 00202 0 01 00141 JMP COSD 0281 * 0282 * TWO SPACES 0283 * 0284 00203 0 000000 SPAC DAC ** 0285 00204 0 10 00222 JST OPOW 0286 00205 120240 OCT 120240 0287 00206 -0 01 00203 JMP* SPAC 0288 * 0289 * INPUT ONE CHARACTER ROUTINE 0290 * 0291 00207 0 000000 IPOC DAC ** SUBROUTINE ENTRY 0292 00210 34 0104 SKS '104 TEST DEVICE 0293 00211 0 01 00210 JMP *-1 FOR READY 0294 00212 14 0004 OCP '4 SET DEVICE IN INPUT MODE 0295 00213 54 1004 INA '1004 INPUT ONE CHAR 0296 00214 0 01 00213 JMP *-1 WAIT LOOP 0297 00215 0 03 00753 ANA ='177 SET PARITY BIT 0298 00216 0 05 00752 ERA ='200 TO MARKING 0299 00217 -0 04 00207 STA* IPOC STORE BACK 0300 00220 0 12 00207 IRS IPOC UPDATE RETURN 0301 00221 -0 01 00207 JMP* IPOC RETURN 0302 * 0303 * OUTPUT TWO CHARACTERS ROUTINE 0304 * 0305 00222 0 000000 OPOW DAC ** OUTPUT ONE WORD 0306 00223 -0 02 00222 LDA* OPOW REACH BACK FOR DATA 0307 00224 141340 ICA 0308 00225 0 12 00222 IRS OPOW 0309 00226 34 0104 SKS '104 0310 00227 0 01 00226 JMP *-1 0311 00230 14 0104 OCP '104 0312 00231 74 0004 OTA '4 0313 00232 0 01 00231 JMP *-1 0314 00233 141340 ICA 0315 00234 74 0004 OTA '4 0316 00235 0 01 00234 JMP *-1 0317 00236 140040 CRA 0318 00237 -0 01 00222 JMP* OPOW 0319 * 0320 * LINE FEED AND CARRIAGE RETURN 0321 * 0322 00240 0 000000 LFCR DAC ** 0323 00241 0 10 00222 JST OPOW 0324 00242 106612 OCT 106612 0325 00243 -0 01 00240 JMP* LFCR 0326 *