Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
direct.c11
There are no other files named direct.c11 in the archive.
REP 1/1 ;11C1
TITLE DIRECT %6(450) DIRECTORY LISTING CUSP
WIT
TITLE DIRECT %6(466) DIRECTORY LISTING CUSP
REP 7/1 ;11C2
Copyright (C) 1970, 1971, 1972, 1973, 1974, 1975, 1976, 1977, 1978, 1980, 1981, 1982,1984
WIT
Copyright (C) 1970, 1971, 1972, 1973, 1974, 1975, 1976, 1977, 1978, 1980, 1981, 1982,1985
REP 26/2 ;11C3
DRTEDT==450 ;DEC EDIT VERSION
WIT
DRTEDT==466 ;DEC EDIT VERSION
INS 140/10 ;11C4
;451 SPR 10-33907 RDH 3-Jan-84
; /TITLE misaligned if /WORDS specified.
;
;452 SPR 10-33368 RDH 3-Jan-84
; /PRDIR/PRDEV confuses multi-column listing (/WIDTH) if /HDSDIR
;
;453 SPR 10-34256 AQH/RDH 3-Jan-84
; /MVOLUME doesn't work with MDA-controlled tapes (/LABEL:USER-EOT)
;
;454 SPR 10-32532 RDH 12-Jan-84
; /FNDBLD of a BACKUP/INTERCHANGE tape writes garbage for directories.
;
;456 RDH 20-Mar-84 SPR 10-34253
; /MVOLUME confused by multiple save-set names on continuation tapes
;
;462 RDH 2-Feb-85 SPR 10-35076
; Issue the "Attributes May be Wrong" message no more than once
; per tape save set.
;
;463 RDH 13-Feb-85 SPR 10-34249
; Spurious "%Tape mark..." messages
;
;466 RDH 15-Feb-85 SPR 10-34255
; /MVOLUME may fail for INTERCHANGE tapes.
;
DEL 16/18 ;11C5
COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1970,1984.
INS 8/29 ;11C6
SKIPLE S.HDSD ;[452] DOING /HDSDIR FORMAT LISTING?
JRST GLDEW6 ;[452] YES, THEN /PRDIR/PRDEV DON'T COUNT
SKIPLE S.HDSD ;[452] DOING /HDSDIR FORMAT LISTING?
JRST GLDEW4 ;[452] YES, THEN /PRDIR/PRDEV DON'T COUNT
INS 25/29 ;11C7
GLDEW4: ;[452]
REP 20/68 ;11C8
MTUNL. DC, ;[412] YES - UNLOAD OLD TAPE
WIT
;[453] MTUNL. DC, ;[412] YES - UNLOAD OLD TAPE
CLOSE DC, ;[463] BLAST THE "EOF" I/O STATUS
REP 6/69 ;11C9
MTFEO2: MOVEI T1,[ASCIZ/$Mount next volume, type "C" to continue, "E" to exit: /]
WIT
MTFEO2: TLNN F,L.MLBP ;[453] CONTROLLED BY MDA?
JRST MTFEO4 ;[453] NO, ASK USER TO MANUALLY MOUNT NEW TAPE
MOVEI T1,[ASCIZ\"Asking MDA for automatic volume-switch . . .
\] ;[453] NICE INFORMATIVE TEXT
PUSHJ P,.TSTRG## ;[453] TO TELL THE USER WHAT IS HAPPENING
MOVEI T3,DC ;[453] TAPE CHANNEL
MOVEI T2,.TFFEV ;[453] TAPOP. FUNCTION
MOVE T1,[2,,T2] ;[453] AND TAPOP. ARG POINTER TO
TAPOP. T1, ;[453] ASK MONITOR/MDA TO SWITCH VOLUMES
SKIPA P3,T1 ;[453] FAILED!
JRST MTFEO5 ;[453] CONTINUE PROCESSING NEXT TAPE VOLUME
N$FAIO (CGN,Couldn't get next volume, error )
MTFEO4: MTUNL. DC, ;[453] PUNT CURRENT TAPE VOLUME
MOVEI T1,[ASCIZ/$Mount next volume, type "C" to continue, "E" to exit: /]
REP 23/69 ;11C10
POP P,T1 ;[412] RESTORE ADDRESS OF TYPEOUT
WIT
MTFEO5: POP P,T1 ;[412] RESTORE ADDRESS OF TYPEOUT
REP 5/72 ;11C11
MTFCSS: MOVEI T1,[ASCIZ /continue/]
SKIPA
MTFSSS: MOVEI T1,[ASCIZ /start/]
WIT
MTFSSS: MOVEI T1,[ASCIZ /start/] ;[462] INDICATE START OF SAVE SET
SETOM AMWCNT ;[462] INIT AMW COUNTER ONLY ON "START"
CAIA ;[462] JOIN COMMON START/CONTINUE CODE
MTFCSS: MOVEI T1,[ASCIZ /continue/] ;[462] INDICATE CONTINUATION
INS 25/72 ;11C12
SETZM B$HRTN ;[456] CLEAR NEW-TAPE-VERIFICATION FLAG
REP 42/79 ;11C13
PUSHJ P,[N$WARN (AMW,<File attributes may be wrong, proceeding . . .>) ;[417]
WIT
PUSHJ P,[AOSE AMWCNT ;[462] FIRST TIME THIS SAVE SET?
POPJ P, ;[462] NO, IGNORE FURTHER JUNK
N$WARN (AMW,<File attributes may be wrong, proceeding . . .>) ;[417]
REP 29/122 ;11C14
JRST [CAIE T1,T$FIL;[412] NO, FILE RECORD?
WIT
JRST [CAIN T1,T$FIL;[466] NO, FILE RECORD?
INS 30/136 ;11C15
TLNN T4,-1 ;[454] PPN OR PATH POINTER?
SKIPE .PTPPN(T4) ;[454] PATH POINTER, ANYTHING THERE?
CAIA ;[454] VALID DIRECTORY, TYPE IT OUT
POPJ P, ;[454] NULL DIRECTORY, DON'T LIST "[0]"
INS 9/152 ;11C16
TRNE F,R.WORDS ;[451] /WORDS SPECIFIED?
PUSHJ P,LSPC4 ;[451] YES, ALLOW FOR WIDER COLUMN
REP 38/173 ;11C17
MOVE T1,UFDPPN ;UFD/PATH POINTER
TLNN T1,-1 ;UFD OR PATH POINTER?
JRST DOFND2 ;PATH POINTER
PUSHJ P,DFPUT ;WORD 2
WIT
SKIPN T1,UFDPPN ;[454] UFD/PATH POINTER
JRST DOFND1 ;[454] BLANK, WRITE OUT 0'S
TLNN T1,-1 ;UFD OR PATH POINTER?
JRST DOFND2 ;PATH POINTER
DOFND1: PUSHJ P,DFPUT ;[454] WORD 2
INS 32/179 ;11C18
AMWCNT: BLOCK 1 ;[462] COUNT OF SILLY FILES THIS SAVE SET
SUM 139662