cdc:nos2.source:opl.opl871:deck:pack
Deck PACK
4 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.pack +++| IDENT PACK,PACK,PACK 00002 M01S00002.pack +++| ABS 00003 M01S00003.pack +++| SST 00004 M01S00004.pack +++| SYSCOM B1 00005 M01S00005.pack +++| ENTRY PACK 00006 M01S00006.pack +++| ENTRY RFL= 00007 M01S00007.pack +++| TITLE PACK - PACK FILE TO ONE RECORD. 00008 M01S00008.pack +++|*COMMENT PACK - PACK FILE TO ONE RECORD.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | pack |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M02S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982. 00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00011 M01S00010.pack +++| SPACE 4 00012 M01S00011.pack +++|*** PACK - PACK FILE TO ONE RECORD. 00013 M01S00012.pack +++|* W.T. SACKETT. 71/01/20. 00014 M01S00013.pack +++| SPACE 4 00015 M01S00014.pack +++|*** PACK REMOVES ALL *EOR* AND *EOF* MARKS FROM A SPECIFIED FILE 00016 M01S00015.pack +++|* AND COPIES IT AS ONE RECORD TO ANOTHER FILE. IF NO THIRD 00017 M01S00016.pack +++|* PARAMETER IS SPECIFIED, THE READ IS FROM *BOI* TO *EOI*. 00018 M01S00017.pack +++|* DIRECT ACCESS FILES MAY BE PACKED. PACK(A) AND PACK(A,A) 00019 M01S00018.pack +++|* RETAIN FILE TYPES. IN PACK(A,B), B REMAINS AS SPECIFIED 00020 M01S00019.pack +++|* PRIOR TO THE PACK. 00021 M01S00020.pack +++| SPACE 4,10
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | pack |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00022 M02S00021.v23l617 ---|*** CONTROL STATEMENT CALL. 00023 M01S00001.v23l617 +++|*** THE COMMAND. 00024 M01S00022.pack +++|* 00025 M01S00023.pack +++|* PACK(IFILE,OFILE,NR) 00026 M01S00024.pack +++|* 00027 M01S00025.pack +++|* IFILE NAME OF FILE TO BE PACKED. 00028 M01S00026.pack +++|* OFILE NAME OF FILE TO RECEIVE PACKED DATA. 00029 M01S00027.pack +++|* NR IF A THIRD PARAMETER IS SPECIFIED, IFILE IS NOT 00030 M01S00028.pack +++|* REWOUND BEFORE THE PACK OCCURS. 00031 M01S00029.pack +++|* PACK(A) = PACK(A,A). 00032 M01S00030.pack +++| SPACE 4,10 00033 M01S00031.pack +++|*** DAYFILE MESSAGES. 00034 M01S00032.pack +++|* 00035 M01S00033.pack +++|* * PACK COMPLETE.* 00036 M01S00034.pack +++|* * PACK PARAMETER ERROR.* - NO FILE NAMES, NULL OUTPUT FILE 00037 M01S00035.pack +++|* OR TOO MANY PARAMETERS.
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | pack |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00038 M02S00036.v23l617 ---|* * ILLEGAL INPUT FILE.* - ATTEMPT TO PACK INPUT FROM A 00039 M01S00002.v23l617 +++|* * INCORRECT INPUT FILE.* - ATTEMPT TO PACK INPUT FROM A 00040 M01S00037.pack +++|* FILE ASSIGNED TO A TIME-SHARING TERMINAL. 00041 M01S00038.pack +++| SPACE 4 00042 M01S00039.pack +++| ORG 110B 00043 M01S00040.pack +++| PACK SB1 1 (B1) = 1 00044 M01S00041.pack +++| SX6 SBUF ENTER POINTER TO OUTPUT BUFFER 00045 M01S00042.pack +++| SA6 B0 00046 M01S00043.pack +++| SA1 ACTR CHECK ARGUMENT COUNT 00047 M01S00044.pack +++| MX0 42 (X0) LEFT " 0 IF INDIRECT ACCESS INPUT FILE 00048 M01S00045.pack +++| SB7 X1-1 00049 M01S00046.pack +++| NG B7,ERR1 IF NO PARAMETERS 00050 M01S00047.pack +++| RETURN SCR,R 00051 M01S00048.pack +++| SA3 ARGR FIRST PARAMETER 00052 M01S00049.pack +++| SA2 I 00053 M01S00050.pack +++| BX5 X0*X3 (X5) = INPUT FILE NAME IF RENAME NEEDED 00054 M01S00051.pack +++| ZR X5,ERR1 IF NO INPUT FILE NAME 00055 M01S00052.pack +++| BX6 -X0*X2 00056 M01S00053.pack +++| BX7 X5+X6 00057 M01S00054.pack +++| SA7 A2 00058 M01S00055.pack +++| GT B7,B1,PAC1 IF NO REWIND BEFORE PACK 00059 M01S00056.pack +++| REWIND I 00060 M01S00057.pack +++| PAC1 ZR B7,PAC2 IF ONE PARAMETER 00061 M01S00058.pack +++| SA1 A3+B1 NEXT PARAMETER 00062 M01S00059.pack +++| IX2 X1-X3 00063 M01S00060.pack +++| ZR X2,PAC2 IF PACK(A,A) 00064 M01S00061.pack +++| ZR X1,ERR1 SECOND PARAMETER INDICATED BUT NULL 00065 M01S00062.pack +++| SA2 SCR 00066 M01S00063.pack +++| BX3 X0*X1 00067 M01S00064.pack +++| BX1 -X0*X2 00068 M01S00065.pack +++| BX6 X3+X1 00069 M01S00066.pack +++| MX5 0 (X5) = 0 IF TWO FILES SPECIFIED 00070 M01S00067.pack +++| SA6 SCR 00071 M01S00068.pack +++| SB7 B7-2 00072 M01S00069.pack +++| GE B7,B1,ERR1 IF INCORRECT PARAMETER COUNT 00073 M01S00070.pack +++| PAC2 SA1 I SET FILE NAME IN *FILINFO* BLOCK 00074 M01S00071.pack +++| SA2 FINB 00075 M01S00072.pack +++| BX1 X0*X1 00076 M01S00073.pack +++| BX6 X1+X2 00077 M01S00074.pack +++| SA6 A2 00078 M01S00075.pack +++| FILINFO A2 GET FILE INFORMATION 00079 M01S00076.pack +++| SA1 FINB+1 CHECK FILE TYPE AND DEVICE TYPE 00080 M01S00077.pack +++| MX0 -6 00081 M01S00078.pack +++| BX7 X7-X7 CLEAR RANDOM INDEX 00082 M01S00079.pack +++| BX2 -X0*X1 00083 M01S00080.pack +++| LX1 59-16
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | pack |
M02 (Updated by) | pack1 |
Seq # *Modification Id* Act ----------------------------+ 00084 M02S00081.pack1 ---| SX0 X2-4 (X0) = 0 IF DIRECT ACCESS INPUT FILE 00085 M01S00001.pack1 +++| SX0 X2-2 SET BACKCOPY FLAG FOR QUEUED FILE 00086 M01S00002.pack1 +++| ZR X0,PAC3 IF QUEUED FILE 00087 M01S00003.pack1 +++| SX0 X2-4 SET BACKCOPY FLAG FOR DIRECT ACCESS FILE 00088 M01S00004.pack1 +++| ZR X0,PAC3 IF DIRECT ACCESS FILE 00089 M01S00082.pack +++| NG X1,ERR2 IF FILE TYPE *TT* 00090 M01S00083.pack +++| LX1 59-15-59+16 00091 M01S00084.pack +++| NG X1,PAC3 IF FILE ON MASS STORAGE
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | pack |
M02 (Updated by) | pack1 |
Seq # *Modification Id* Act ----------------------------+ 00092 M02S00085.pack1 ---| BX0 X0-X0 00093 M01S00005.pack1 +++| BX0 X0-X0 SET BACKCOPY FLAG FOR TAPE FILE 00094 M01S00086.pack +++| PAC3 SA7 I+6 00095 M01S00087.pack +++| PAC4 READEI I 00096 M01S00088.pack +++| PAC5 READW I,WBUF,WBUFL 00097 M01S00089.pack +++| NG X1,PAC6 IF END OF INFORMATION 00098 M01S00090.pack +++| WRITEW SCR,WBUF,WBUFL 00099 M01S00091.pack +++| EQ PAC5 GO FINISH READ 00100 M01S00092.pack +++| 00101 M01S00093.pack +++| PAC6 SB7 B6-WBUF 00102 M01S00094.pack +++| WRITEW SCR,WBUF,B7 00103 M01S00095.pack +++| WRITER X2 00104 M01S00096.pack +++| REWIND X2,R 00105 M01S00097.pack +++| ZR X5,END IF TWO DIFFERENT FILES 00106 M01S00098.pack +++| BX7 X5 00107 M01S00099.pack +++| SX2 I 00108 M01S00100.pack +++| NZ X0,PAC8 IF BACKCOPY NOT REQUIRED 00109 M01S00101.pack +++| SA3 PACA 00110 M01S00102.pack +++| NZ X3,PAC7 IF BACKCOPY COMPLETE 00111 M01S00103.pack +++| SX6 B1 00112 M01S00104.pack +++| SA6 A3 00113 M01S00105.pack +++| REWIND X2,R 00114 M01S00106.pack +++| SA1 X2 SWITCH NAMES IN FET 00115 M01S00107.pack +++| SA3 SCR 00116 M01S00108.pack +++| BX6 X1 00117 M01S00109.pack +++| BX7 X3 00118 M01S00110.pack +++| SA6 A3 00119 M01S00111.pack +++| SA7 X2 00120 M01S00112.pack +++| REWIND A3,R 00121 M01S00113.pack +++| EQ PAC4 COPY SCR TO I 00122 M01S00114.pack +++| 00123 M01S00115.pack +++| PAC7 RETURN I RETURN SCRATCH FILE 00124 M01S00116.pack +++| EQ END END PACK 00125 M01S00117.pack +++| 00126 M01S00118.pack +++| PAC8 SA7 SCR+6 SET FET FOR *LFM* RENAME
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | pack |
M02 (Updated by) | pack2 |
Seq # *Modification Id* Act ----------------------------+ 00127 M02S00119.pack2 ---| RENAME SCR 00128 M01S00001.pack2 +++| RECALL I 00129 M01S00002.pack2 +++| STATUS I,P GET FILE STATUS 00130 M01S00003.pack2 +++| SA1 I+5 GET FNT ENTRY 00131 M01S00004.pack2 +++| MX0 -6 00132 M01S00005.pack2 +++| BX0 -X0*X1 00133 M01S00006.pack2 +++| SX1 X0-NDST 00134 M01S00007.pack2 +++| NZ X1,PAC9 IF NOT *NO-AUTO-DROP* STATUS 00135 M01S00008.pack2 +++| SETFS SCR,NAD RESTORE *NAD* STATUS 00136 M01S00009.pack2 +++| PAC9 RENAME SCR 00137 M01S00120.pack +++| END MESSAGE (=C* PACK COMPLETE.*) 00138 M01S00121.pack +++| ENDRUN 00139 M01S00122.pack +++| 00140 M01S00123.pack +++| ERR1 MESSAGE (=C* PACK PARAMETER ERROR.*) 00141 M01S00124.pack +++| ABORT 00142 M01S00125.pack +++|
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | pack |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00143 M02S00126.v23l617 ---| ERR2 MESSAGE (=C* ILLEGAL INPUT FILE.*) 00144 M01S00003.v23l617 +++| ERR2 MESSAGE (=C* INCORRECT INPUT FILE.*) 00145 M01S00127.pack +++| ABORT 00146 M01S00128.pack +++| 00147 M01S00129.pack +++| PACA CON 0 BACKCOPY FLAG 00148 M01S00130.pack +++| 00149 M01S00131.pack +++| FINB BSS 0 *FILINFO* PARAMETER BLOCK 00150 M01S00132.pack +++| VFD 42/0,6/5,12/1 00151 M01S00133.pack +++| BSSZ 4 00152 M01S00134.pack +++| SPACE 4 00153 M01S00135.pack +++|* COMMON DECKS. 00154 M01S00136.pack +++|* 00155 M01S00137.pack +++|*CALL COMCCIO 00156 M01S00138.pack +++|*CALL COMCLFM 00157 M01S00139.pack +++|*CALL COMCRDW 00158 M01S00140.pack +++|*CALL COMCSYS 00159 M01S00141.pack +++|*CALL COMCWTW 00160 M01S00010.pack2 +++|*CALL COMCMAC 00161 M01S00011.pack2 +++|*CALL COMSLFD 00162 M01S00142.pack +++|* 00163 M01S00143.pack +++|* FETS AND BUFFERS. 00164 M01S00144.pack +++| WBUFL EQU 100B 00165 M01S00145.pack +++| BUFL EQU 1001B 00166 M01S00146.pack +++| I RFILEB IBUF,BUFL,(FET=8),(WSA=WBUF,WBUFL) 00167 M01S00147.pack +++| SCR RFILEB SBUF,BUFL,FET=8),(WSA=WBUF,WBUFL) 00168 M01S00148.pack +++| USE LITERALS 00169 M01S00149.pack +++| IBUF EQU * 00170 M01S00150.pack +++| WBUF EQU IBUF+BUFL 00171 M01S00151.pack +++| SBUF EQU WBUF+WBUFL 00172 M01S00152.pack +++| RFL= EQU SBUF+BUFL 00173 M01S00153.pack +++| SPACE 4 00174 M01S00154.pack +++| END
cdc/nos2.source/opl.opl871/deck/pack.txt · Last modified: by 127.0.0.1