Common COMPCOB

Library Member Format: MODIFY

Source

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

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

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