Trailing-Edge
-
PDP-10 Archives
-
decuslib10-08
-
43,50513/dread.mac
There are no other files named dread.mac in the archive.
TITLE DREAD
SEARCH UUOSYM,ALGSYS,ALGPRM
EXTERN %ALGDR
.EXIT==1
.CH==2
.B1==3
.N==6
C==12
B2==10
N1==11
D==7
ENTRY DREAD
DREAD::JSP AX,PARAM
EXP:PMB
6
XWD $PRO!$N!$SIM,4
XWD $VAR!$I!$FOV,.CH
XWD $VAR!$I!$FOV,.N
XWD $ARR!$WV!$FON,.B1
MOVE C,.CH(DL)
MOVE B2,.B1(DL)
MOVE N1,.N(DL)
MOVE D,B2
HRRZS B2
HLRZS D
CAMN D,LLINYN
JUMPA YMLAEN
CAMN D,DAU
LSH N1,1
ROT C,-^D13
ADDM C,LLLE
MOVNS N1
ROT N1,-^D18
HLLZS N1
ADDM N1,MEWN
ADDM B2,MEWN
XCT LLLE
MOVNS C
ADDM C,LLLE
SETZM MEWN
JRST .EXIT(DL)
DAU:225200
YMLAEN:OUTSTR[ASCIZ/STRING ARRAY NOT ALLOWED FOR RANDOM ACCESS/]
HALT
LLINYN:270200
LLLE:INPUT 0,MEWN
MEWN:Z
Z
PMB:0
1,,5
SIXBIT/DREAD/
; Part of Algol Random Access package,
;which also includes DOPEN.MAC, DCLOSE.MAC, DWRITE.MAC,
;DRFIND.MAC, DWFIND.MAC, DNEW.ALG, DFEOF.ALG.
END