Deck PACK

Library Member Format: MODIFY

Source

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