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