Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
quench.c10
There is 1 other file named quench.c10 in the archive. Click here to see a list.
REP 42/1 ;10C1
QUHEDT==522 ;EDIT NUMBER
WIT
QUHEDT==523 ;EDIT NUMBER
INS 230/7 ;10C2
;523 Edit 517 does not handle the "PRINT REL:FILE.EXT[,,EXAMPLE]"
; command. When an ERSATZ device is part of the file spec
; QUEUE can not find any SFD's on it.
; SPR 10-34921 GCO 10126 3-DEC-84/CTK
;
REP 33/26 ;10C3
SETZM .FXDIR(I) ;[517]YES, CLEAR PPN
SETOM .FXDIM(I) ;[517]AND IT'S NOT WILD ANY MORE
MOVSI T1,.FXDIR(I) ;[517]ALSO CLEAR ANY SPECIFIED PATH
HRRI T1,.FXDIR+1(I) ;[517]
BLT T1,.FXDIR+2*.FXLND-1(I) ;[517]CLEAR IT
ANDCAM S1,.FXMOD(I) ;[517]CAN'T SPECIFY DEVICE
ANDCAM S1,.FXMOM(I) ;[517]OR DIRECTORY
JRST INDEFD ;[517]SET UP DIRECTORY NOW
INDFU1: MOVSI T1,-1 ;[517]YES--USE HIM FOR DEFAULT
WIT
;**;[523]ADD AND REVAMP CODE INDFU1:-8L 3-DEC-84/CTK
MOVE T1,PTHBLK+.PTPPN;[523]YES, GET THE PPN
SKIPN .FXDIR(I) ;[523]DID WE SPECIFY ANY ???
MOVEM T1,.FXDIR(I) ;[523]YES, STORE IT
SETOM .FXDIM(I) ;[523]NO, AND IT'S NOT WILD ANY MORE
JRST INDEFD ;[523]SET UP DIRECTORY NOW
INDFU1: MOVSI T1,-1 ;[523]YES--USE HIM FOR DEFAULT
SUM 166659