AB16-12T3

* NAME: AB16-12T3 DOC 70181010000 REV F PAGE 29

1295 02607 0 01 02600 JMP OPNW 1296 02610 0 000000 PNTX DAC ** 1297 * 1298 * INPUT ONE CHARACTER 1299 * 1300 02611 0 000000 IPOC DAC ** 1301 02612 34 0104 SKS '104 TEST BUSY 1302 02613 0 01 02612 JMP *-1 1303 02614 14 0004 OCP '4 SET DEVICE IN THE INPUT MODE 1304 02615 54 1004 INA '1004 INPUT ONE CHARACTER 1305 02616 0 01 02615 JMP *-1 1306 02617 0 03 00643 ANA ='177 FORCE LEVEL 8 TO ALLOW 1307 02620 0 05 00642 ERA ='200 FOR KEYBOARDS WIIH PARITY 1308 02621 -0 04 02611 STA* IPOC STORE BACK 1309 02622 0 12 02611 IRS IPOC UPDATE RETURN 1310 02623 -0 01 02611 JMP* IPOC RETURN 1311 * 1312 * TIME OF DAY TEST 1313 * 1314 02624 0 000000 TDAY DAC ** 1315 02625 14 0220 OCP '220 TURN OFF ANYTHING THAT IS ON 1316 02626 140040 CRA 1317 02627 74 0020 SMK '20 1318 02630 0 04 00560 STA HRS SET TIME TO ZERO 1319 02631 0 04 00564 STA MIN 1320 02632 0 02 02041 LDA RETA DAC TDB 1321 02633 0 10 02056 JST SIL SET LOCATLUNS 63 THRU 77 1322 02634 000401 ENB 1323 02635 101000 NOP 1324 02636 101000 NOP ALLOW ANY HANGING PI RUPT 1325 02637 001001 INH TO COME THRU 1326 02640 100000 SKP 1327 02641 0 000000 TDB DAC ** PI RUPT COMES HERE 1328 * 1329 02642 0 02 02026 LDA INTO POINT DEDICATED LOCATIONS 1330 02643 0 10 02056 JST SIL TO THE NORMAL RUPT HANDLER 1331 02644 0 02 02042 LDA RETB POINT RUPT RETURN 1332 02645 0 04 02027 STA RETO TO TDC 1333 * 1334 02646 0 10 02574 TDD JST OPCO ASK FOR HOURS 1335 02647 0 003546 DAC HRMS 1336 02650 0 10 02140 JST PACK INPUT PACKED WORD OR SKIP 3 1337 02651 0 02 00566 LDA NEWL FETCH PACKED 1338 02652 0 10 02257 JST DCO C0NVERT TO BINARY 1339 02653 0 04 00560 STA HRS STORE IT 1340 02654 0 02 00560 LDA HRS 1341 02655 100400 SPL CHECK FOR LIMITS OF 0 AND 23 1342 02656 0 01 02646 JMP TDD TOO SMALL 1343 02657 0 11 00641 CAS =23 1344 02660 0 01 02646 JMP TDD TOO BIG