CRP-IOL, I$CA, I$CBFS

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

0246 * 0247 * BUFFER FULL 0248 00030 0 07 00067 BUFF SUB =40 COMPARE RECORD SIZE 0249 00031 101400 SMI COUNTER > RECORD SIZE? 0250 00032 0 01 00036 JMP DONE YES 0251 00033 0 10 00055 JST ISOC NO - READ A PAIR 0252 00034 0 10 00055 JST ISOC OF CHARACTERS AND DISCARD 0253 00035 0 01 00015 JMP STEP STEP COUNTER 0254 * 0255 00036 0 10 00000 DONE CALL I$CRDY WAIT UNTIL OK 0256 00037 0 01 00001 JMP RTRY ERROR RETURN 0257 00040 0 35 00061 LDX CCTI NORMAL RETURN, POINT AT CONV. TABLE 0258 00041 1 02 00027 LDA '27,1 [(SPACE)ETX,<] IN STANDARD TABLE 0259 00042 141140 ICL LOOK AT TOP BYTE 0260 00043 0 35 00000 LDX I$CA PARAMETER ADDRESS 0261 00044 0 07 00065 SUB ='240 SPACE 0262 00045 100040 SZE CONV. TABLE AS EXPECTED? 0263 00046 1 01 00002 JMP 2,1 NO - NORMAL RETURN 0264 00047 14 1705 OCP CRDS READ STATUS WORD 0265 00050 54 1005 INA CRDI CLEAR A AND INPUT 0266 00051 0 01 00050 JMP *-1 WAIT FOR CHARACTER 0267 00052 101100 SLN L.S. BIT NON-ZERO? 0268 00053 1 01 00002 JMP 2,1 NO - NORMAL RETURN 0269 00054 1 01 00001 JMP 1,1 ERROR RETURN 0270 * 0271 * 0272 00055 0 000000 ISOC DAC ** GET NEXT ISO CHARACTER 0273 00056 0 10 00000 CALL I$CK GET NEXT CHARACTER 0274 00057 0 01 00001 JMP RTRY ERROR RETURN 0275 00060 0 10 00000 CALL C$CTLU CHARACTER TABLE LOOKUP 0276 00061 0 000000 CCTI XAC C$CTCI CARD CODE TO ISO CONVERSION TABLE 0277 00062 -0 01 00055 JMP* ISOC 0278 * 0279 * 0280 * CONSTANTS AND VARIABLES 0281 * 0282 00063 000050 BUFS DEC 40 BUFFER SIZE 0283 00064 PTRA BSS 1 0284 * 0285 * 0286 * LITERALS 0287 * 0288 00065 000240 FIN LITERALS 00066 120240 00067 000050 00070 000000 0289 * 0290 * 0291 END