CRP-IOL, I$CA, I$CBFS

* ????-???-???? (CRP-IOL) DRAWING NO. ????????-???-?? PAGE 6

0196 * 0197 * 0198 SUBR I$CA CARD READER INPUT SOURCE RECORD 0199 SUBR I$CBFS,BUFS 0200 * 0201 * 0202 CF5 H316 AND DDP-516 0203 REL 0204 * 0205 * 0206 * CARD READER DEVICE CODES 0207 * 0208 * CARD READER ADDRESS 0209 000005 CRDA EQU '5 CARD READER ADDRESS 0210 * 0211 * OCP 0212 000005 CRDH EQU CRDA READ ONE HOLLERITH CARD 0213 001705 CRDS EQU CRDA+'1700 READ STATUS WORD 0214 * 0215 * INA 0216 001005 CRDI EQU CRDA+'1000 CLEAR A AND INPUT CHARACTER 0217 * 0218 * 0219 00000 0 000000 I$CA DAC ** 0220 00001 -0 02 00000 RTRY LDA* I$CA GET BUFFER ADDRESS 0221 00002 0 04 00064 STA PTRA PLACE IN POINTER 0222 00003 0 10 00000 CALL I$CWBS WAIT UNTIL NOT BUSY 0223 00004 14 0005 OCP CRDH READ ONE HOLLERITH CARD 0224 00005 0 35 00070 LDX =0 CLEAR COUNTER 0225 00006 0 10 00055 NXTW JST ISOC GET ONE CHARACTER 0226 00007 0414 70 LGL 8 PLACE IN UPPER BYTE 0227 00010 -0 04 00064 STA* PTRA SAVE IN BUFFER 0228 00011 0 10 00055 JST ISOC SECOND CHARACTER 0229 00012 -0 05 00064 ERA* PTRA OR IN FIRST CHAR. OF PAIR 0230 00013 -0 04 00064 STOR STA* PTRA AND SAVE PAIR 0231 00014 0 12 00064 IRS PTRA STEP POINTER 0232 00015 0 12 00000 STEP IRS 0 STEP COUNTER 0233 00016 0 02 00000 LDA 0 GET COUNTER 0234 00017 0 11 00063 CAS BUFS COMPARE BUFFER SIZE 0235 00020 101000 NOP PTRA > BUFS 0236 00021 0 01 00030 JMP BUFF PTRA = BUFS, SO FULL... 0237 00022 0 11 00067 CAS =40 COMPARE RECORD SIZE 0238 00023 101000 NOP PTRA > RECS 0239 00024 0 01 00026 JMP FILL PTRA = RECS 0240 00025 0 01 00006 JMP NXTW GET MORE WORDS 0241 * 0242 * COUNTER BEYOND RECORD SIZE, BUT LESS THAN 0243 * BUFFER SIZE, SO FILL WITH SPACES 0244 00026 0 02 00066 FILL LDA =A TWO SPACES 0245 00027 0 01 00013 JMP STOR SAVE CHARACTERS