I$CHER

* PAGE 1

0001 * 0002 * 0003 SUBR I$CHER,CHER CARD READER CHECK FOR ERROR 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 * SKS 0016 000305 CRDO EQU CRDA+'0300 SKIP IF READER OPERATIONAL 0017 * 0018 * 0019 00000 0 000000 CHER DAC ** CHECK FOR ERROR 0020 00001 34 0305 SKS CRDO SKIP IF READER OPERATIONAL 0021 00002 0 01 00005 JMP CHE1 0022 00003 0 12 00000 IRS CHER STEP RETURN ADDRESS 0023 00004 -0 01 00000 JMP* CHER NORMAL RETURN 0024 00005 0 10 00000 CHE1 CALL C$ER 0025 00006 141705 BCI 1,CE CARDREADER ERROR 0026 00007 -0 01 00000 JMP* CHER ERROR RETURN 0027 * 0028 * 0029 END END OF I$CHER 21.SEP.08 A.P.WISE CHE1 000005 CHER 000000 CRDA 000005A CRDO 000305A 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71