Common COMPCIB

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compcib +++|          CTEXT  COMPCIB - CHECK INPUT BUFFER.
00002  M00S00002.compcib +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compcib +++|          QUAL   COMPCIB

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compcib +++| CIB      SPACE  4
00006  M00S00005.compcib +++|***       CIB - CHECK INPUT BUFFER.
00007  M00S00006.compcib +++|*         G. R. MANSFIELD.  09/27/69.
00008  M00S00007.compcib +++| CIB      SPACE  4
00009  M00S00008.compcib +++|***              CIB READS THE *OUT* POINTER FROM THE FET, AND COMPUTES
00010  M00S00009.compcib +++|*         THE AMOUNT OF SPACE IN THE CIRCULAR BUFFER.
00011  M00S00010.compcib +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
00012  M00S00011.compcib +++|*                (FT - FT+1) = FIRST ADDRESS OF CM BUFFER.
00013  M00S00012.compcib +++|*                (IN - IN+1) = NEXT INPUT ADDRESS.
00014  M00S00013.compcib +++|*                (OT - OT+1) = NEXT OUTPUT ADDRESS.
00015  M00S00014.compcib +++|*                (LM - LM+1) = LIMIT ADDRESS OF CM BUFFER.
00016  M00S00015.compcib +++|*         EXIT   (A) = WORD COUNT OF BUFFER.
00017  M00S00016.compcib +++|*                (A) .LT. 0, IF OUT .GE. FL.
00018  M00S00017.compcib +++|*                RESETS (OT - OT+1).
00019  M00S00018.compcib +++|*         USES   CM - CM+4.
00020  M00S00019.compcib +++|
00021  M00S00020.compcib +++|
00022  M00S00021.compcib +++| CIB3     LCN    0           SET ERROR RETURN
00023  M00S00022.compcib +++|
00024  M00S00023.compcib +++| CIB      SUBR               ENTRY/EXIT
00025  M00S00024.compcib +++|          LDD    IR+3        READ OUT
00026  M00S00025.compcib +++|          SHN    6
00027  M00S00026.compcib +++|          ADD    RA
00028  M00S00027.compcib +++|          SHN    6
00029  M00S00028.compcib +++|          ADD    IR+4
00030  M00S00029.compcib +++|          ADN    3
00031  M00S00030.compcib +++|          CRD    CM
00032  M00S00031.compcib +++|          LDD    CM+3        SET OUT
00033  M00S00032.compcib +++|          LPN    37
00034  M00S00033.compcib +++|          STD    OT
00035  M00S00034.compcib +++|          SHN    14
00036  M00S00035.compcib +++|          LMD    CM+4
00037  M00S00036.compcib +++|          STD    OT+1
00038  M00S00037.compcib +++|          SHN    -6
00039  M00S00038.compcib +++|          SBD    FL
00040  M00S00039.compcib +++|          PJN    CIB3        IF OUT \ FL
00041  M00S00040.compcib +++|          LDD    OT          LENGTH = OUT - IN
00042  M00S00041.compcib +++|          SBD    IN
00043  M00S00042.compcib +++|          SHN    14
00044  M00S00043.compcib +++|          ADD    OT+1
00045  M00S00044.compcib +++|          SBD    IN+1
00046  M00S00045.compcib +++|          ZJN    CIB1        IF IN = OUT
00047  M00S00046.compcib +++|          PJN    CIB2        IF OUT > IN
00048  M00S00047.compcib +++| CIB1     SHN    6           LENGTH = (LIMIT - IN) + OUT - FIRST)
00049  M00S00048.compcib +++|          ADD    LM
00050  M00S00049.compcib +++|          SBD    FT
00051  M00S00050.compcib +++|          SHN    14
00052  M00S00051.compcib +++|          ADD    LM+1
00053  M00S00052.compcib +++|          SBD    FT+1
00054  M00S00053.compcib +++| CIB2     SBN    1           LENGTH - 1
00055  M00S00054.compcib +++|          LJM    CIBX        RETURN
00056  M00S00055.compcib +++|          SPACE  4
00057  M00S00056.compcib +++| QUAL$    IF     -DEF,QUAL$
00058  M00S00057.compcib +++|          QUAL   *
00059  M00S00058.compcib +++| CIB      EQU    /COMPCIB/CIB
00060  M00S00059.compcib +++| QUAL$    ENDIF
00061  M00S00060.compcib +++|          ENDX