Common COMPCOB

1 Modification
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compcob +++|          CTEXT  COMPCOB - CHECK OUTPUT BUFFER.
00002  M01S00002.compcob +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compcob +++|          QUAL   COMPCOB
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compcob +++| COB      SPACE  4
00006  M01S00005.compcob +++|***       COB - CHECK OUTPUT BUFFER.
00007  M01S00006.compcob +++|*         G. R. MANSFIELD.  09/27/69.
00008  M01S00007.compcob +++| COB      SPACE  4
00009  M01S00008.compcob +++|***              COB READS THE *IN* POINTER FROM THE FET, AND COMPUTES
00010  M01S00009.compcob +++|*         THE AMOUNT OF DATE IN THE CIRCULAR BUFFER.
00011  M01S00010.compcob +++|*         ENTRY  (IR+3 - IR+4) = ADDRESS OF FET.
00012  M01S00011.compcob +++|*                (FT - FT+1) = FIRST ADDRESS OF CM BUFFER.
00013  M01S00012.compcob +++|*                (IN - IN+1) = NEXT INPUT ADDRESS.
00014  M01S00013.compcob +++|*                (OT - OT+1) = NEXT OUTPUT ADDRESS.
00015  M01S00014.compcob +++|*                (LM - LM+1) = LIMIT ADDRESS OF CM BUFFER.
00016  M01S00015.compcob +++|*         EXIT   (A) = WORD COUNT OF BUFFER.
00017  M01S00016.compcob +++|*                (A) .LT. 0, IF IN .GE. FL.
00018  M01S00017.compcob +++|*                RESETS (IN - IN+1).
00019  M01S00018.compcob +++|*         USES   CM - CM+4.
00020  M01S00019.compcob +++|
00021  M01S00020.compcob +++|
00022  M01S00021.compcob +++| COB1     LCN    0           SET ERROR RETURN
00023  M01S00022.compcob +++|
00024  M01S00023.compcob +++| COB      SUBR               ENTRY/EXIT
00025  M01S00024.compcob +++|          LDD    IR+3        READ IN
00026  M01S00025.compcob +++|          SHN    6
00027  M01S00026.compcob +++|          ADD    RA
00028  M01S00027.compcob +++|          SHN    6
00029  M01S00028.compcob +++|          ADD    IR+4
00030  M01S00029.compcob +++|          ADN    2
00031  M01S00030.compcob +++|          CRD    CM
00032  M01S00031.compcob +++|          LDD    CM+3        SET IN
00033  M01S00032.compcob +++|          LPN    37
00034  M01S00033.compcob +++|          STD    IN
00035  M01S00034.compcob +++|          SHN    14
00036  M01S00035.compcob +++|          LMD    CM+4
00037  M01S00036.compcob +++|          STD    IN+1
00038  M01S00037.compcob +++|          SHN    -6
00039  M01S00038.compcob +++|          SBD    FL
00040  M01S00039.compcob +++|          PJN    COB1        IF IN \ FL
00041  M01S00040.compcob +++|          LDD    IN          LENGTH = IN - OUT
00042  M01S00041.compcob +++|          SBD    OT
00043  M01S00042.compcob +++|          SHN    14
00044  M01S00043.compcob +++|          ADD    IN+1
00045  M01S00044.compcob +++|          SBD    OT+1
00046  M01S00045.compcob +++|          PJN    COBX        RETURN IF IN ;OUT
00047  M01S00046.compcob +++|          SHN    6           LENGTH = (LIMIT - OUT) + (IN - FIRST)
00048  M01S00047.compcob +++|          ADD    LM
00049  M01S00048.compcob +++|          SBD    FT
00050  M01S00049.compcob +++|          SHN    14
00051  M01S00050.compcob +++|          ADD    LM+1
00052  M01S00051.compcob +++|          SBD    FT+1
00053  M01S00052.compcob +++|          UJN    COBX        RETURN
00054  M01S00053.compcob +++|          SPACE  4
00055  M01S00054.compcob +++| QUAL$    IF     -DEF,QUAL$
00056  M01S00055.compcob +++|          QUAL   *
00057  M01S00056.compcob +++| COB      EQU    /COMPCOB/COB
00058  M01S00057.compcob +++| QUAL$    ENDIF
00059  M01S00058.compcob +++|          ENDX