I$CRDY

* PAGE 1

0001 * 0002 * 0003 SUBR I$CRDY,CRDY CARD READER WAIT UNTIL READY 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 000205 CRDB EQU CRDA+'0200 SKIP IF NOT BUSY 0017 * 0018 * 0019 00000 0 000000 CRDY DAC ** WAIT UNTIL OK 0020 00001 0 10 00000 WTKL CALL I$CHER I.E. NO ERRORS AND NOT BUSY 0021 00002 -0 01 00000 JMP* CRDY ERROR RETURN 0022 00003 34 0205 SKS CRDB SKIP IF NOT BUSY 0023 00004 0 01 00001 JMP WTKL BUSY - LOOP 0024 00005 0 12 00000 IRS CRDY NORMAL RETURN 0025 00006 -0 01 00000 JMP* CRDY 0026 * 0027 * 0028 END END OF I$CRDY 21.SEP.08 A.P.WISE CRDA 000005A CRDB 000205A CRDY 000000 WTKL 000001 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71