I$CK

* PAGE 1

0001 * 0002 * 0003 SUBR I$CK CARD READER READ INPUT CHARACTER 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL 0008 * 0009 * 0010 * CARD READER DEVICE CODES 0011 * 0012 * CARD READER ADDRESS 0013 000005 CRDA EQU '5 CARD READER ADDRESS 0014 * 0015 * OCP 0016 000005 CRDH EQU CRDA READ ONE HOLLERITH CARD 0017 001705 CRDS EQU CRDA+'1700 READ STATUS WORD 0018 * 0019 * SKS 0020 000205 CRDB EQU CRDA+'0200 SKIP IF NOT BUSY 0021 000305 CRDO EQU CRDA+'0300 SKIP IF READER OPERATIONAL 0022 * 0023 * INA 0024 001005 CRDI EQU CRDA+'1000 CLEAR A AND INPUT CHARACTER 0025 * 0026 * 0027 00000 0 000000 I$CK DAC ** NEXT CHARACTER 0028 00001 0 10 00000 NXCL CALL I$CHER CHECK ERROR 0029 00002 -0 01 00000 JMP* I$CK ERROR RETURN 0030 00003 54 1005 INA CRDI NO ERROR - CLEAR A AND INPUT 0031 00004 0 01 00001 JMP NXCL 0032 00005 0 12 00000 IRS I$CK 0033 00006 -0 01 00000 JMP* I$CK NORMAL RETURN 0034 * 0035 * 0036 END END OF I$AK 21.SEP.08 A.P.WISE CRDA 000005A CRDB 000205A CRDH 000005A CRDI 001005A CRDO 000305A CRDS 001705A I$CK 000000 NXCL 000001 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71