Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-08 - 43,50513/dclose.mac
There are no other files named dclose.mac in the archive.
TITLE DCLOSE
SEARCH UUOSYM,ALGSYS,ALGPRM

EXTERN %ALGDR
.EXIT==1
RH==8
C==6
ENTRY DCLOSE
DCLOSE::JSP AX,PARAM
EXP:PMB
2
XWD $PRO!$N!$SIM,2
XWD $VAR!$I!$FOV,RH
MOVE C,RH(DL)
ROT C,-15
ADDM  C,XCLOSE
XCT  XCLOSE
MOVNS C
ADDM C,XCLOSE
JRST .EXIT(DL)
XCLOSE:CLOSE 0,0
PMB:0
2,,6
SIXBIT/DCLOSE/
0
; Part of Algol Random Access package,
;which also includes DOPEN.MAC,  DWRITE.MAC, DREAD.MAC,
;DRFIND.MAC, DWFIND.MAC, DNEW.ALG, DFEOF.ALG.
END