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