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