Trailing-Edge
-
PDP-10 Archives
-
decuslib10-08
-
43,50513/dwfind.mac
There are no other files named dwfind.mac in the archive.
TITLE DWFIND
SEARCH UUOSYM,ALGSYS,ALGPRM
EXTERN %ALGDR
.EXIT==1
CH==2
N==3
ENTRY DWFIND
DWFIND::JSP AX,PARAM
EXP:PMB
3
XWD $PRO!$N!$SIM,3
XWD $VAR!$I!$FOV,CH
XWD $VAR!$I!$FOV,N
MOVE A2,CH(DL)
MOVE A1,N(DL)
SKIPL A1
JUMPA YMLAEN
OUTSTR[ASCIZ/NEGATIVE BLOCK NUMBER IN DWFIND/]
HALT
YMLAEN:
MOVE A3,[USETO 0,0]
ADD A3,A1
ROT A2,-^D13
ADD A3,A2
XCT A3
DIWEDD:
JRST .EXIT(DL)
PMB:0
2,,6
SIXBIT/DWFIND/
0
; Part of Algol Random Access package,
;which also includes DOPEN.MAC, DCLOSE.MAC, DWRITE.MAC, DREAD.MAC,
;DRFIND.MAC, DNEW.ALG, DFEOF.ALG.
END