cdc:nos2.source:opl.opl871:common:comprcb
Common COMPRCB
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comprcb +++| CTEXT COMPRCB - READ CODED BUFFER. 00002 M00S00002.comprcb +++| IF -DEF,QUAL$,1 00003 M00S00003.comprcb +++| QUAL COMPRCB
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00004 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00005 M00S00004.comprcb +++| RCB SPACE 4 00006 M00S00005.comprcb +++|*** RCB - READ CODED BUFFER. 00007 M00S00006.comprcb +++|* G. R. MANSFIELD. 09/27/69. 00008 M00S00007.comprcb +++| RCB SPACE 4 00009 M00S00008.comprcb +++|*** RCB READS ONE CODED LINE FROM A CM CIRCULAR BUFFER. 00010 M00S00009.comprcb +++|* DATA WILL BE STORED IN PP BUFFER CONTINUING TO A 0000 BYTE. 00011 M00S00010.comprcb +++|* UP TO 14 CM WORDS MAY BE READ, (CODED LINE TERMINATES 00012 M00S00011.comprcb +++|* WITH A 0000 IN BYTE 4), THE LAST 4 CHARACTERS ARE NOT 00013 M00S00012.comprcb +++|* STORED IN PP BUFFER. ALL IMBEDDED 0000 BYTES ARE 00014 M00S00013.comprcb +++|* STORED AS 5555. 00015 M00S00014.comprcb +++|* 00016 M00S00015.comprcb +++|* ENTRY (A) = ADDRESS OF PP BUFFER. 00017 M00S00016.comprcb +++|* (FT - FT+1) = FIRST ADDRESS OF CM BUFFER. 00018 M00S00017.comprcb +++|* (OT - OT+1) = NEXT OUTPUT ADDRESS. 00019 M00S00018.comprcb +++|* (LM - LM+1) = LIMIT ADDRESS OF CM BUFFER. 00020 M00S00019.comprcb +++|* 00021 M00S00020.comprcb +++|* EXIT (OT - OT+1) UPDATED. 00022 M00S00021.comprcb +++|* 00023 M00S00022.comprcb +++|* USES T1, T2, T3, CM - CM+4. 00024 M00S00023.comprcb +++| 00025 M00S00024.comprcb +++| 00026 M00S00025.comprcb +++| RCB SUBR ENTRY/EXIT 00027 M00S00026.comprcb +++| STD T1 SET PP BUFFER ADDRESS 00028 M00S00027.comprcb +++| ADC 104 SET BYTE LIMIT 00029 M00S00028.comprcb +++| RCBA EQU *-1 MAXIMUM NUMBER OF BYTES TO READ 00030 M00S00029.comprcb +++| STD T3 00031 M00S00030.comprcb +++| RCB1 LDD OT READ WORD 00032 M00S00031.comprcb +++| SHN 6 00033 M00S00032.comprcb +++| ADD RA 00034 M00S00033.comprcb +++| SHN 6 00035 M00S00034.comprcb +++| ADD OT+1 00036 M00S00035.comprcb +++| CRD CM 00037 M00S00036.comprcb +++| LDN CM SET BYTE ADDRESS 00038 M00S00037.comprcb +++| STD T2 00039 M00S00038.comprcb +++| AOD OT+1 ADVANCE OUT 00040 M00S00039.comprcb +++| SHN -14 00041 M00S00040.comprcb +++| RAD OT 00042 M00S00041.comprcb +++| LMD LM 00043 M00S00042.comprcb +++| NJN RCB2 00044 M00S00043.comprcb +++| LDD OT+1 00045 M00S00044.comprcb +++| LMD LM+1 00046 M00S00045.comprcb +++| NJN RCB2 IF LIMIT NOT REACHED 00047 M00S00046.comprcb +++| LDD FT SET OUT = FIRST 00048 M00S00047.comprcb +++| STD OT 00049 M00S00048.comprcb +++| LDD FT+1 00050 M00S00049.comprcb +++| STD OT+1 00051 M00S00050.comprcb +++| RCB2 LDI T2 MOVE BYTE 00052 M00S00051.comprcb +++| STI T1 00053 M00S00052.comprcb +++| AOD T1 ADVANCE BYTE ADDRESS 00054 M00S00053.comprcb +++| LMD T3 00055 M00S00054.comprcb +++| ZJN RCB4 IF LINE BUFFER FULL 00056 M00S00055.comprcb +++| AOD T2 00057 M00S00056.comprcb +++| LMN CM+5 00058 M00S00057.comprcb +++| NJN RCB2 LOOP TO END OF WORD 00059 M00S00058.comprcb +++| LDD CM+4 00060 M00S00059.comprcb +++| ZJN RCB4 IF END OF LINE 00061 M00S00060.comprcb +++| LDD OT CHECK OUT 00062 M00S00061.comprcb +++| LMD IN 00063 M00S00062.comprcb +++| SHN 14 00064 M00S00063.comprcb +++| ADD OT+1 00065 M00S00064.comprcb +++| LMD IN+1 00066 M00S00065.comprcb +++| ZJN RCB4 IF OUT = IN 00067 M00S00066.comprcb +++| LJM RCB1 LOOP 00068 M00S00067.comprcb +++| RCB4 STI T1 TERMINATE LINE 00069 M00S00068.comprcb +++| LJM RCBX RETURN 00070 M00S00069.comprcb +++| SPACE 4 00071 M00S00070.comprcb +++| QUAL$ IF -DEF,QUAL$ 00072 M00S00071.comprcb +++| QUAL * 00073 M00S00072.comprcb +++| RCB EQU /COMPRCB/RCB 00074 M00S00073.comprcb +++| RCBA EQU /COMPRCB/RCBA 00075 M00S00074.comprcb +++| QUAL$ ENDIF 00076 M00S00075.comprcb +++| ENDX
cdc/nos2.source/opl.opl871/common/comprcb.txt · Last modified: by 127.0.0.1