Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.pack +++| IDENT PACK,PACK,PACK
00002 M00S00002.pack +++| ABS
00003 M00S00003.pack +++| SST
00004 M00S00004.pack +++| SYSCOM B1
00005 M00S00005.pack +++| ENTRY PACK
00006 M00S00006.pack +++| ENTRY RFL=
00007 M00S00007.pack +++| TITLE PACK - PACK FILE TO ONE RECORD.
00008 M00S00008.pack +++|*COMMENT PACK - PACK FILE TO ONE RECORD.
| Line S00009 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00009 M01S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00011 M00S00010.pack +++| SPACE 4
00012 M00S00011.pack +++|*** PACK - PACK FILE TO ONE RECORD.
00013 M00S00012.pack +++|* W.T. SACKETT. 71/01/20.
00014 M00S00013.pack +++| SPACE 4
00015 M00S00014.pack +++|*** PACK REMOVES ALL *EOR* AND *EOF* MARKS FROM A SPECIFIED FILE
00016 M00S00015.pack +++|* AND COPIES IT AS ONE RECORD TO ANOTHER FILE. IF NO THIRD
00017 M00S00016.pack +++|* PARAMETER IS SPECIFIED, THE READ IS FROM *BOI* TO *EOI*.
00018 M00S00017.pack +++|* DIRECT ACCESS FILES MAY BE PACKED. PACK(A) AND PACK(A,A)
00019 M00S00018.pack +++|* RETAIN FILE TYPES. IN PACK(A,B), B REMAINS AS SPECIFIED
00020 M00S00019.pack +++|* PRIOR TO THE PACK.
00021 M00S00020.pack +++| SPACE 4,10
| Line S00021 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00022 M01S00021.v23l617 ---|*** CONTROL STATEMENT CALL.
| Line S00001 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00023 M01S00001.v23l617 +++|*** THE COMMAND.
00024 M00S00022.pack +++|*
00025 M00S00023.pack +++|* PACK(IFILE,OFILE,NR)
00026 M00S00024.pack +++|*
00027 M00S00025.pack +++|* IFILE NAME OF FILE TO BE PACKED.
00028 M00S00026.pack +++|* OFILE NAME OF FILE TO RECEIVE PACKED DATA.
00029 M00S00027.pack +++|* NR IF A THIRD PARAMETER IS SPECIFIED, IFILE IS NOT
00030 M00S00028.pack +++|* REWOUND BEFORE THE PACK OCCURS.
00031 M00S00029.pack +++|* PACK(A) = PACK(A,A).
00032 M00S00030.pack +++| SPACE 4,10
00033 M00S00031.pack +++|*** DAYFILE MESSAGES.
00034 M00S00032.pack +++|*
00035 M00S00033.pack +++|* * PACK COMPLETE.*
00036 M00S00034.pack +++|* * PACK PARAMETER ERROR.* - NO FILE NAMES, NULL OUTPUT FILE
00037 M00S00035.pack +++|* OR TOO MANY PARAMETERS.
| Line S00036 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00038 M01S00036.v23l617 ---|* * ILLEGAL INPUT FILE.* - ATTEMPT TO PACK INPUT FROM A
| Line S00002 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00039 M01S00002.v23l617 +++|* * INCORRECT INPUT FILE.* - ATTEMPT TO PACK INPUT FROM A
00040 M00S00037.pack +++|* FILE ASSIGNED TO A TIME-SHARING TERMINAL.
00041 M00S00038.pack +++| SPACE 4
00042 M00S00039.pack +++| ORG 110B
00043 M00S00040.pack +++| PACK SB1 1 (B1) = 1
00044 M00S00041.pack +++| SX6 SBUF ENTER POINTER TO OUTPUT BUFFER
00045 M00S00042.pack +++| SA6 B0
00046 M00S00043.pack +++| SA1 ACTR CHECK ARGUMENT COUNT
00047 M00S00044.pack +++| MX0 42 (X0) LEFT " 0 IF INDIRECT ACCESS INPUT FILE
00048 M00S00045.pack +++| SB7 X1-1
00049 M00S00046.pack +++| NG B7,ERR1 IF NO PARAMETERS
00050 M00S00047.pack +++| RETURN SCR,R
00051 M00S00048.pack +++| SA3 ARGR FIRST PARAMETER
00052 M00S00049.pack +++| SA2 I
00053 M00S00050.pack +++| BX5 X0*X3 (X5) = INPUT FILE NAME IF RENAME NEEDED
00054 M00S00051.pack +++| ZR X5,ERR1 IF NO INPUT FILE NAME
00055 M00S00052.pack +++| BX6 -X0*X2
00056 M00S00053.pack +++| BX7 X5+X6
00057 M00S00054.pack +++| SA7 A2
00058 M00S00055.pack +++| GT B7,B1,PAC1 IF NO REWIND BEFORE PACK
00059 M00S00056.pack +++| REWIND I
00060 M00S00057.pack +++| PAC1 ZR B7,PAC2 IF ONE PARAMETER
00061 M00S00058.pack +++| SA1 A3+B1 NEXT PARAMETER
00062 M00S00059.pack +++| IX2 X1-X3
00063 M00S00060.pack +++| ZR X2,PAC2 IF PACK(A,A)
00064 M00S00061.pack +++| ZR X1,ERR1 SECOND PARAMETER INDICATED BUT NULL
00065 M00S00062.pack +++| SA2 SCR
00066 M00S00063.pack +++| BX3 X0*X1
00067 M00S00064.pack +++| BX1 -X0*X2
00068 M00S00065.pack +++| BX6 X3+X1
00069 M00S00066.pack +++| MX5 0 (X5) = 0 IF TWO FILES SPECIFIED
00070 M00S00067.pack +++| SA6 SCR
00071 M00S00068.pack +++| SB7 B7-2
00072 M00S00069.pack +++| GE B7,B1,ERR1 IF INCORRECT PARAMETER COUNT
00073 M00S00070.pack +++| PAC2 SA1 I SET FILE NAME IN *FILINFO* BLOCK
00074 M00S00071.pack +++| SA2 FINB
00075 M00S00072.pack +++| BX1 X0*X1
00076 M00S00073.pack +++| BX6 X1+X2
00077 M00S00074.pack +++| SA6 A2
00078 M00S00075.pack +++| FILINFO A2 GET FILE INFORMATION
00079 M00S00076.pack +++| SA1 FINB+1 CHECK FILE TYPE AND DEVICE TYPE
00080 M00S00077.pack +++| MX0 -6
00081 M00S00078.pack +++| BX7 X7-X7 CLEAR RANDOM INDEX
00082 M00S00079.pack +++| BX2 -X0*X1
00083 M00S00080.pack +++| LX1 59-16
| Line S00081 Modification History |
M01 (Removed by) | pack1 |
Seq # *Modification Id* Act
----------------------------+
00084 M01S00081.pack1 ---| SX0 X2-4 (X0) = 0 IF DIRECT ACCESS INPUT FILE
| Line S00001 Modification History |
M01 (Added by) | pack1 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00082.pack +++| NG X1,ERR2 IF FILE TYPE *TT*
00090 M00S00083.pack +++| LX1 59-15-59+16
00091 M00S00084.pack +++| NG X1,PAC3 IF FILE ON MASS STORAGE
| Line S00085 Modification History |
M01 (Removed by) | pack1 |
Seq # *Modification Id* Act
----------------------------+
00092 M01S00085.pack1 ---| BX0 X0-X0
| Line S00005 Modification History |
M01 (Added by) | pack1 |
Seq # *Modification Id* Act
----------------------------+
00093 M01S00005.pack1 +++| BX0 X0-X0 SET BACKCOPY FLAG FOR TAPE FILE
00094 M00S00086.pack +++| PAC3 SA7 I+6
00095 M00S00087.pack +++| PAC4 READEI I
00096 M00S00088.pack +++| PAC5 READW I,WBUF,WBUFL
00097 M00S00089.pack +++| NG X1,PAC6 IF END OF INFORMATION
00098 M00S00090.pack +++| WRITEW SCR,WBUF,WBUFL
00099 M00S00091.pack +++| EQ PAC5 GO FINISH READ
00100 M00S00092.pack +++|
00101 M00S00093.pack +++| PAC6 SB7 B6-WBUF
00102 M00S00094.pack +++| WRITEW SCR,WBUF,B7
00103 M00S00095.pack +++| WRITER X2
00104 M00S00096.pack +++| REWIND X2,R
00105 M00S00097.pack +++| ZR X5,END IF TWO DIFFERENT FILES
00106 M00S00098.pack +++| BX7 X5
00107 M00S00099.pack +++| SX2 I
00108 M00S00100.pack +++| NZ X0,PAC8 IF BACKCOPY NOT REQUIRED
00109 M00S00101.pack +++| SA3 PACA
00110 M00S00102.pack +++| NZ X3,PAC7 IF BACKCOPY COMPLETE
00111 M00S00103.pack +++| SX6 B1
00112 M00S00104.pack +++| SA6 A3
00113 M00S00105.pack +++| REWIND X2,R
00114 M00S00106.pack +++| SA1 X2 SWITCH NAMES IN FET
00115 M00S00107.pack +++| SA3 SCR
00116 M00S00108.pack +++| BX6 X1
00117 M00S00109.pack +++| BX7 X3
00118 M00S00110.pack +++| SA6 A3
00119 M00S00111.pack +++| SA7 X2
00120 M00S00112.pack +++| REWIND A3,R
00121 M00S00113.pack +++| EQ PAC4 COPY SCR TO I
00122 M00S00114.pack +++|
00123 M00S00115.pack +++| PAC7 RETURN I RETURN SCRATCH FILE
00124 M00S00116.pack +++| EQ END END PACK
00125 M00S00117.pack +++|
00126 M00S00118.pack +++| PAC8 SA7 SCR+6 SET FET FOR *LFM* RENAME
| Line S00119 Modification History |
M01 (Removed by) | pack2 |
Seq # *Modification Id* Act
----------------------------+
00127 M01S00119.pack2 ---| RENAME SCR
| Line S00001 Modification History |
M01 (Added by) | pack2 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00120.pack +++| END MESSAGE (=C* PACK COMPLETE.*)
00138 M00S00121.pack +++| ENDRUN
00139 M00S00122.pack +++|
00140 M00S00123.pack +++| ERR1 MESSAGE (=C* PACK PARAMETER ERROR.*)
00141 M00S00124.pack +++| ABORT
00142 M00S00125.pack +++|
| Line S00126 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00143 M01S00126.v23l617 ---| ERR2 MESSAGE (=C* ILLEGAL INPUT FILE.*)
| Line S00003 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00144 M01S00003.v23l617 +++| ERR2 MESSAGE (=C* INCORRECT INPUT FILE.*)
00145 M00S00127.pack +++| ABORT
00146 M00S00128.pack +++|
00147 M00S00129.pack +++| PACA CON 0 BACKCOPY FLAG
00148 M00S00130.pack +++|
00149 M00S00131.pack +++| FINB BSS 0 *FILINFO* PARAMETER BLOCK
00150 M00S00132.pack +++| VFD 42/0,6/5,12/1
00151 M00S00133.pack +++| BSSZ 4
00152 M00S00134.pack +++| SPACE 4
00153 M00S00135.pack +++|* COMMON DECKS.
00154 M00S00136.pack +++|*
00155 M00S00137.pack +++|*CALL COMCCIO
00156 M00S00138.pack +++|*CALL COMCLFM
00157 M00S00139.pack +++|*CALL COMCRDW
00158 M00S00140.pack +++|*CALL COMCSYS
00159 M00S00141.pack +++|*CALL COMCWTW
| Line S00010 Modification History |
M01 (Added by) | pack2 |
Seq # *Modification Id* Act
----------------------------+
00160 M01S00010.pack2 +++|*CALL COMCMAC
00161 M01S00011.pack2 +++|*CALL COMSLFD
00162 M00S00142.pack +++|*
00163 M00S00143.pack +++|* FETS AND BUFFERS.
00164 M00S00144.pack +++| WBUFL EQU 100B
00165 M00S00145.pack +++| BUFL EQU 1001B
00166 M00S00146.pack +++| I RFILEB IBUF,BUFL,(FET=8),(WSA=WBUF,WBUFL)
00167 M00S00147.pack +++| SCR RFILEB SBUF,BUFL,FET=8),(WSA=WBUF,WBUFL)
00168 M00S00148.pack +++| USE LITERALS
00169 M00S00149.pack +++| IBUF EQU *
00170 M00S00150.pack +++| WBUF EQU IBUF+BUFL
00171 M00S00151.pack +++| SBUF EQU WBUF+WBUFL
00172 M00S00152.pack +++| RFL= EQU SBUF+BUFL
00173 M00S00153.pack +++| SPACE 4
00174 M00S00154.pack +++| END