I$CWBS

* PAGE 1

0001 * 0002 * 0003 SUBR I$CWBS,CWBS CARD READER WAIT WHILE BUSY 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 CWBS DAC ** WAIT FOR NOT BUSY 0020 00001 34 0205 SKS '0205 SKIP IF NOT BUSY? 0021 00002 0 01 00001 JMP *-1 0022 00003 -0 01 00000 JMP* CWBS 0023 * 0024 * 0025 END END OF I$CWBS 21.SEP.08 A.P.WISE CRDA 000005A CRDB 000205A CWBS 000000 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71