;.MCALL SCAT11,GCMLB$,CSI$,CSI$SW,CSI$ND,FSRSZ$,QIOW$,ALUN$,CSI$SV,FDBDF$,NMBLK$ .MCALL SMACIT,GCMLB$,CSI$,CSI$SW,CSI$ND,FSRSZ$,QIOW$,ALUN$,CSI$SV,FDBDF$,NMBLK$ ;SCAT11 SMACIT .ENABL LC ; ;*+* BEGINMODULE TARDAT,01.00,10-NOV-83 ; ;COPYRIGHT (c) 1983 ;SSG ;BOX #1595 ;NORTH WALES, PA 19454 ;USA ; ;THIS SOFTWARE IS THE EXCLUSIVE PROPERTY OF SSG ;AND IS FURNISHED ONLY UNDER THE TERMS OF A LICENSE FOR A SINGLE CPU. ANY ;OTHER USE OF THIS SOFTWARE EXCEPT UNDER THE TERMS OF THE ABOVE NOTED ;SINGLE-USE LICENSE IS A VIOLATION BOTH OF THE OWNERSHIP RIGHTS OF SSG ;AND THE SOFTWARE LICENSE AGREEMENT UNDER WHICH ;THIS SOFTWARE WAS OBTAINED, AND IS STRICTLY PROHIBITED. ; ;TAR DATA STRUCTURES AND ALLOCATIONS ;*-* ; CMDLUN==1 CMDFLG==CMDLUN INLUN==2 INFLAG==INLUN OUTLUN==3 OUTFLG==OUTLUN MSGLUN==4 MSGFLG==MSGLUN CR==15 LF==12 SPACE==40 NEWLIN==LF ; GETCMD:: GCMLB$ 1,TAR,,CMDLUN,134. CSI$ .EVEN CSIBLK:: .BLKB C.SIZE .EVEN VOLSWT:: ;VOLUME MANIPULATION SWITCHES CSI$SW INIT,INIMSK,,,,,EXACT CSI$SW TK,TKMSK,,,,,EXACT CSI$SW LIST,LSTMSK CSI$ND INIMSK==1 TKMSK==2 LSTMSK==4 INSWT:: ;ALLOWED INPUT SWITCHES CSI$SW IMAGE,IMGMSK CSI$SW NEWLIN,NEWMSK CSI$SW FILE,FILMSK,,,,FILTBL,EXACT CSI$SW ALL,ALLMSK,,,,,EXACT CSI$SW TK,TKMSK,,,,,EXACT CSI$ND FILTBL: CSI$SV DECIMAL,TGTFIL,2 CSI$ND TGTFIL:: .BLKW 1 NXTFIL:: .BLKW 1 FILENO:: .BLKW 1 IMGMSK==4 NEWMSK==10 FILMSK==20 ALLMSK==40 INMKW:: .BLKW 1 OUTSWT:: ;ALLOWED OUTPUT SWITCHES CSI$SW INIT,INIMSK,,,,,EXACT CSI$SW TK,TKMSK,,,,,EXACT CSI$ND OUTMKW:: .BLKW 1 BUFPOS:: .BLKW 1 BUFCNT:: .BLKW 1 UNXBUF:: .BLKB 512. LINBUF:: RECBUF:: .BLKB 512. FDB:: FDBDF$ DEFALT:: NMBLK$ ,,,SY,0 LSTBLK:: BLKCNT:: .BLKW 1 NXTBLK:: .BLKW 1 LBLKCT:: .BLKW 1 BYTECT:: .BLKW 2 UNXWRT:: QIOW$ ,,,,STATUS,, UNXRD:: QIOW$ ,,,,STATUS,, SENSE:: QIOW$ IO.SEC,,,,STATUS DEVTYP:: .BLKW 1 RX01==0 RX02==4000 RX03==5000 RX50==10000 ;ADDED ... GCE DEVNAM:: .WORD 0 ;DEVICE NAME STORAGE ERRWRT:: LIST:: QIOW$ IO.WLB,MSGLUN,MSGFLG,,,,<,0,40> ATTACH:: QIOW$ IO.ATT,,,,STATUS DETACH:: QIOW$ IO.DET ASGLUN:: ALUN$ STATUS:: .BLKW 2 MAXBLK:: .BLKW 1 HDRBLK:: .BLKW 1 .ENABL LSB FLSPEC:: DEVICE:: .WORD <2$-1$> .WORD 1$ UIC:: .WORD <3$-2$> .WORD 2$ FILENM:: .WORD <4$-3$> .WORD 3$ 1$: .ASCII /DDNN:/ 2$: .ASCII /[377,377]/ 3$: .ASCII /ABCDEFGHI.JKL;123456/ 4$: .EVEN .DSABL LSB RSX==+1 ;PARSE FLAG UNIX==-1 ;PARSE FLAG ERRTBL:: .WORD MSG0 .WORD MSG1 .WORD MSG2 .WORD MSG3 .WORD MSG4 .WORD MSG5 .WORD MSG6 .WORD MSG7 .WORD MSG8 .WORD MSG9 .WORD MSG10 .WORD MSG11 .WORD MSG12 .WORD MSG13 .WORD MSG14 .WORD MSG15 .WORD MSG16 .WORD MSG17 .WORD MSG18 .WORD MSG19 ; .NLIST BEX ; ACSSTR:: .BYTE .ASCII / 777 / TIMSTR:: .BYTE .ASCII / 0 / LSTHDR:: .BYTE .ASCII /DIRECTORY FOR / COLHDR:: .ASCII /DDNN:/ .ASCII \FILE # NAME ACCESS UID/GID \ .ASCII \ BYTES/BLOCKS\ MSG0: .BYTE .ASCII /TAR -- CAN'T RETRIEVE COMMAND LINE/ MSG1: .BYTE .ASCII /TAR -- COMMAND SYNTAX ERROR/ MSG2: .BYTE .ASCII \TAR -- FILE/VOL SPECIFICATION ERROR\ MSG3: .BYTE .ASCII /TAR -- ILLEGAL DEVICE/ MSG4: .BYTE .ASCII /TAR -- SWITCH CONFLICT/ MSG5: .BYTE .ASCII /TAR -- SWITCH MISSING/ MSG6: .BYTE .ASCII /TAR -- NO SUCH DEVICE/ MSG7: .BYTE .ASCII /TAR -- FAILED TO ATTACH DEVICE/ MSG8: .BYTE .ASCII /TAR -- INPUT BUFFER OVERFLOW/ MSG9: .BYTE .ASCII /TAR -- NOT A UNIX VOLUME/ MSG10: .BYTE .ASCII /TAR -- CAN'T RETRIEVE LUN INFO/ MSG11: .BYTE .ASCII /TAR -- CAN'T COPY RSX -> RSX OR UNIX -> UNIX/ MSG12: .BYTE .ASCII /TAR -- OUTPUT VOLUME CORRUPTED/ MSG13: .BYTE .ASCII /TAR -- CAN'T OPEN INPUT FILE/ MSG14: .BYTE .ASCII /TAR -- OUTPUT VOLUME FULL/ MSG15: .BYTE .ASCII /TAR -- INPUT FILE TOO LARGE/ MSG16: .BYTE .ASCII \TAR -- INPUT FILE I/O ERROR\ MSG17: .BYTE .ASCII \TAR -- OUTPUT FILE I/O ERROR\ MSG18: .BYTE .ASCII /TAR -- NO SUCH FILE/ MSG19: .BYTE .ASCII /TAR -- CAN'T OPEN OUTPUT FILE/ MSG20: .EVEN FSRSZ$ 1 ; ; ; .END