Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
rmsio.c07
There is 1 other file named rmsio.c07 in the archive. Click here to see a list.
INS 13/1 ;07C1
;JEH 18-JUL-83 [1073] Add $ERASE call if CLOSE WITH DELETE
INS 172/14 ;07C2
MOVE T0,F.WFLG(FT) ;[1066] RESTORE SWITCH AC.
REP 26/21 ;07C3
;CLOSE WAS SUCCESSFUL. RELEASE THE CORE.
PUSHJ PP,ROPCOR ;* RELEASE CORE FROM OPEN *
WIT
TXNN FLG,CLS%DL ;[1073] CLOSE WITH DELETE?
JRST CL.AFT ;[1073] NO
MOVE T2,.RCFAB(FTL) ;[1073] YES, POINT AT FAB
$ERASE <(T2)>,RCLSER ;[1073] ** DELETE THE FILE **
;CLOSE WAS SUCCESSFUL. RELEASE THE CORE.
CL.AFT: PUSHJ PP,ROPCOR ;[1073] * RELEASE CORE FROM OPEN *
SUM 210098