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