User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comcskw

Common COMCSKW

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcskw +++|          CTEXT  COMCSKW - SKIP WORDS IN CIRCULAR BUFFER.
00002  M01S00002.comcskw +++| COMCSKW  SPACE  4,10
00003  M01S00003.comcskw +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comcskw +++|          QUAL   COMCSKW
00005  M01S00005.comcskw +++|          BASE   D
Line S00006 Modification History
M01 (Added by) comcskw
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1992.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comcskw +++| COMCSKW  SPACE  4,10
00009  M01S00008.comcskw +++|***       COMCSKW - SKIP WORDS IN CIRCULAR BUFFER.
00010  M01S00009.comcskw +++|*
00011  M01S00010.comcskw +++|*         P. C. SMITH.       92/01/15.
00012  M01S00011.comcskw +++| SKW      SPACE  4,25
00013  M01S00012.comcskw +++|***       SKW SKIPS A SPECIFIED NUMBER OF WORDS IN A CIRCULAR BUFFER.
00014  M01S00013.comcskw +++|*
00015  M01S00014.comcskw +++|*         ENTRY  (X2) = ADDRESS OF FET FOR FILE.
00016  M01S00015.comcskw +++|*                (B7) = NUMBER OF WORDS TO BE SKIPPED.
00017  M01S00016.comcskw +++|*                IF (B7) = 0, NO WORDS WILL BE SKIPPED.
00018  M01S00017.comcskw +++|*
00019  M01S00018.comcskw +++|*         EXIT   (X1) = 0 FOR SKIP COMPLETE.
00020  M01S00019.comcskw +++|*                (X1) = -1 IF EOF DETECTED ON FILE.
00021  M01S00020.comcskw +++|*                (X1) = -2 IF EOI DETECTED ON FILE.
00022  M01S00021.comcskw +++|*                (X1) = -3 IF *CIO=* WAS CALLED TO READ MORE DATA AND
00023  M01S00022.comcskw +++|*                         RETURNED AN ERROR STATUS (ONLY IF *COMCCIO*
00024  M01S00023.comcskw +++|*                         WAS ASSEMBLED WITH *ERP1$* DEFINED).
00025  M01S00024.comcskw +++|*                (X1) = +1 IF EOR DETECTED ON FILE BEFORE SKIP
00026  M01S00025.comcskw +++|*                         WAS COMPLETED.
00027  M01S00026.comcskw +++|*                (X2) = ADDRESS OF FET FOR FILE.
00028  M01S00027.comcskw +++|*                (X7) = ERROR STATUS IF (X1) = -3.
00029  M01S00028.comcskw +++|*                (B7) = WORDS REMAINING TO BE SKIPPED, IF (X1) .NE. 0.
00030  M01S00029.comcskw +++|*
00031  M01S00030.comcskw +++|*         USES   X - 1, 2, 3, 4.
00032  M01S00031.comcskw +++|*                A - 1, 2, 3, 4.
00033  M01S00032.comcskw +++|*                B - 1, 3, 4, 5, 6, 7.
00034  M01S00033.comcskw +++|*
00035  M01S00034.comcskw +++|*         CALLS  LCB=, RDX=.
00036  M01S00035.comcskw +++|
00037  M01S00036.comcskw +++|
00038  M01S00037.comcskw +++|+         EQ     SKW1        CONTINUE (REENTRY FROM *LCB=*)
00039  M01S00038.comcskw +++|
00040  M01S00039.comcskw +++| SKW=     PS                 ENTRY/EXIT
00041  M01S00040.comcskw +++|          SX1    B0+         PRESET NORMAL RETURN STATUS
00042  M01S00041.comcskw +++|          ZR     B7,SKW=     IF SKIP COUNT = ZERO, RETURN
00043  M01S00042.comcskw +++|          SA4    SKW=        SET RETURN ADDRESS
00044  M01S00043.comcskw +++|
00045  M01S00044.comcskw +++|          IF     -DEF,B1=1,1
00046  M01S00045.comcskw +++|          SB1    1
00047  M01S00046.comcskw +++|
00048  M01S00047.comcskw +++|          SA1    X2+4        (B5) = LIMIT
00049  M01S00048.comcskw +++|          SA3    X2+B1       (X3) = FIRST
00050  M01S00049.comcskw +++|          SB5    X1
00051  M01S00050.comcskw +++|          SB6    B1          PRESET EOR STATUS
00052  M01S00051.comcskw +++|
00053  M01S00052.comcskw +++|*         INITIALIZE REGISTERS FOR TRANSFER.
00054  M01S00053.comcskw +++|
00055  M01S00054.comcskw +++| SKW1     SA1    A3+B1       (B3) = IN
00056  M01S00055.comcskw +++|          SA2    A1+B1       (B4) = OUT
00057  M01S00056.comcskw +++|          SB3    X1
00058  M01S00057.comcskw +++|          SB4    X2
00059  M01S00058.comcskw +++|
00060  M01S00059.comcskw +++|*         SKIP WORDS IN CIRCULAR BUFFER.
00061  M01S00060.comcskw +++|
00062  M01S00061.comcskw +++| SKW2     GT     B4,B3,SKW3  IF OUT .GT. IN
00063  M01S00062.comcskw +++|          SB4    B7+B4       ADVANCE OUT
00064  M01S00063.comcskw +++|          LE     B4,B3,=XRDX=  IF NEW OUT .LE. IN, EXIT
00065  M01S00064.comcskw +++|          SB7    B4-B3       WORDS REMAINING TO SKIP
00066  M01S00065.comcskw +++|          SB4    B3          SET OUT = IN
00067  M01S00066.comcskw +++|          EQ     =XLCB=      LOAD CIRCULAR BUFFER
00068  M01S00067.comcskw +++|
00069  M01S00068.comcskw +++| SKW3     SB4    B7+B4       ADVANCE OUT
00070  M01S00069.comcskw +++|          LT     B4,B5,=XRDX=  IF NEW OUT .LT. LIMIT, EXIT
00071  M01S00070.comcskw +++|          SB7    B4-B5       WORDS REMAINING TO SKIP
00072  M01S00071.comcskw +++|          SB4    X3          SET OUT = FIRST
00073  M01S00072.comcskw +++|          EQ     SKW2        SKIP REMAINING WORDS
00074  M01S00073.comcskw +++| COMCSKW  SPACE  4,10
00075  M01S00074.comcskw +++|          BASE   *
00076  M01S00075.comcskw +++| QUAL$    IF     -DEF,QUAL$
00077  M01S00076.comcskw +++|          QUAL   *
00078  M01S00077.comcskw +++| SKW=     EQU    /COMCSKW/SKW=
00079  M01S00078.comcskw +++| QUAL$    ENDIF
00080  M01S00079.comcskw +++|          ENDX
cdc/nos2.source/opl.opl871/common/comcskw.txt · Last modified: by 127.0.0.1