Common COMPRBB

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comprbb +++|          CTEXT  COMPRBB - READ BINARY BUFFER.
00002  M01S00002.comprbb +++| RBB      SPACE  4
00003  M01S00003.comprbb +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comprbb +++|          QUAL   COMPRBB

Line S00005 Modification History
`M01` (Added by)	`comprbb`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.comprbb +++| RBB      SPACE  4
00008  M01S00007.comprbb +++|***       RBB - READ BINARY BUFFER.
00009  M01S00008.comprbb +++|*         P. D. HAAS.        75/01/13.
00010  M01S00009.comprbb +++|*         P. T. BARNETT.     79/11/01.
00011  M01S00010.comprbb +++| RBB      SPACE  4
00012  M01S00011.comprbb +++|***              RBB READS A SPECIFIED NUMBER OF WORDS FROM A
00013  M01S00012.comprbb +++|*         CIRCULAR BUFFER TO A PP BUFFER.  THE CIRCULAR BUFFER
00014  M01S00013.comprbb +++|*         MUST CONTAIN THE NUMBER OF WORDS SPECIFIED (COMPCOB CAN
00015  M01S00014.comprbb +++|*         BE USED TO RETURN CIRCULAR BUFFER WORD COUNT).
00016  M01S00015.comprbb +++|*
00017  M01S00016.comprbb +++|*         ENTRY  (A) = PP BUFFER ADDRESS.
00018  M01S00017.comprbb +++|*                (T3) = CM WORD COUNT.
00019  M01S00018.comprbb +++|*                (FT - FT+1) = FIRST ADDRESS OF CM BUFFER.
00020  M01S00019.comprbb +++|*                (OT - OT+1) = NEXT OUTPUT ADDRESS.
00021  M01S00020.comprbb +++|*                (LM - LM+1) = LIMIT ADDRESS OF CM BUFFER.
00022  M01S00021.comprbb +++|*
00023  M01S00022.comprbb +++|*         EXIT   (OT - OT+1) UPDATED.
00024  M01S00023.comprbb +++|*
00025  M01S00024.comprbb +++|*         USES   T1.
00026  M01S00025.comprbb +++|
00027  M01S00026.comprbb +++| RBB3     LDD    OT          READ WORDS
00028  M01S00027.comprbb +++|          SHN    6
00029  M01S00028.comprbb +++|          ADD    RA
00030  M01S00029.comprbb +++|          SHN    6
00031  M01S00030.comprbb +++|          ADD    OT+1
00032  M01S00031.comprbb +++|          CRM    *,T1
00033  M01S00032.comprbb +++| RBBA     EQU    *-1
00034  M01S00033.comprbb +++|          LDD    T1          ADVANCE *OUT*
00035  M01S00034.comprbb +++|          RAD    OT+1
00036  M01S00035.comprbb +++|          SHN    -14
00037  M01S00036.comprbb +++|          RAD    OT
00038  M01S00037.comprbb +++|          SBD    LM
00039  M01S00038.comprbb +++|          SHN    14
00040  M01S00039.comprbb +++|          LMD    OT+1
00041  M01S00040.comprbb +++|          SBD    LM+1
00042  M01S00041.comprbb +++|          ZJN    RBB2        IF LIMIT REACHED
00043  M01S00042.comprbb +++|
00044  M01S00043.comprbb +++| RBB      SUBR               ENTRY/EXIT
00045  M01S00044.comprbb +++|          STM    RBBA        SET READ ADDRESS
00046  M01S00045.comprbb +++|          LDD    LM          LIMIT - OUT
00047  M01S00046.comprbb +++|          SBD    OT
00048  M01S00047.comprbb +++|          SHN    14
00049  M01S00048.comprbb +++|          LMD    LM+1
00050  M01S00049.comprbb +++|          SBD    OT+1
00051  M01S00050.comprbb +++|          STD    T1          SAVE WORD COUNT
00052  M01S00051.comprbb +++|          SBD    T3
00053  M01S00052.comprbb +++|          MJN    RBB3        IF BUFFER WRAP
00054  M01S00053.comprbb +++|          LDD    T3          SET WORD COUNT
00055  M01S00054.comprbb +++| RBB1     STD    T1
00056  M01S00055.comprbb +++|          UJN    RBB3        ENTER READ LOOP
00057  M01S00056.comprbb +++|
00058  M01S00057.comprbb +++| RBB2     LDD    FT          SET OUT = FIRST
00059  M01S00058.comprbb +++|          STD    OT
00060  M01S00059.comprbb +++|          LDD    FT+1
00061  M01S00060.comprbb +++|          STD    OT+1
00062  M01S00061.comprbb +++|          LDD    T1          WORDS READ BEFORE LIMIT REACHED
00063  M01S00062.comprbb +++|          SHN    2           CALCULATE BYTES READ
00064  M01S00063.comprbb +++|          ADD    T1
00065  M01S00064.comprbb +++|          RAM    RBBA        ADJUST BUFFER ADDRESS
00066  M01S00065.comprbb +++|          LDD    T3
00067  M01S00066.comprbb +++|          SBD    T1
00068  M01S00067.comprbb +++|          ZJN    RBBX        IF TRANSFER COMPLETE
00069  M01S00068.comprbb +++|          UJN    RBB1        LOOP
00070  M01S00069.comprbb +++| RBB      SPACE  4
00071  M01S00070.comprbb +++| QUAL$    IF     -DEF,QUAL$
00072  M01S00071.comprbb +++|          QUAL   *
00073  M01S00072.comprbb +++| RBB      EQU    /COMPRBB/RBB
00074  M01S00073.comprbb +++| QUAL$    ENDIF
00075  M01S00074.comprbb +++|          ENDX