Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-08 - 43,50513/dwrite.mac
There are no other files named dwrite.mac in the archive.
TITLE DWRITE
SEARCH UUOSYM,ALGSYS,ALGPRM
EXTERN %ALGDR
.EXIT==1
.CH==2
.B1==3
.N==6
B2==7
N1==10
C==11
D==12
ENTRY DWRITE
DWRITE::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,XCTOUT
MOVNS N1
ROT N1,-^D18
HLLZS N1
ADDM N1,ALLAN
ADDM B2,ALLAN
XCT XCTOUT
MOVNS C
ADDM C,XCTOUT
SETZM ALLAN
JRST .EXIT(DL)
DAU:225200
YMLAEN:OUTSTR[ASCIZ/STRING ARRAY NOT ALLOWED FOR RANDOM ACCESS/]
HALT
LLINYN:270200
XCTOUT:OUTPUT 0,ALLAN
ALLAN:Z
Z
PMB:0
2,,6
SIXBIT/DWRITE/
0
; Part of Algol Random Access package,
;which also includes DOPEN.MAC, DCLOSE.MAC,  DREAD.MAC,
;DRFIND.MAC, DWFIND.MAC, DNEW.ALG, DFEOF.ALG.
END