mirror of
https://github.com/PDP-10/stacken.git
synced 2026-01-27 12:22:01 +00:00
36 lines
862 B
Plaintext
36 lines
862 B
Plaintext
UNIVERSAL WLDMAC - Symbols for GLXWLD (i.e. WLDPAR and WLDSCN)
|
|
;
|
|
; Written by Sven Erik Enblom in December 1985
|
|
;
|
|
.DIRECTIVE .NOBINARY
|
|
|
|
; Argument flags for W$NEW (in S2)
|
|
;
|
|
WF$VER==1B0 ; Always verify file
|
|
WF$FOB==1B1 ; Do F%IOPN using supplied FOB
|
|
WF$LUP==1B2 ; Do LOOKUP using supplied FILOP. block
|
|
WF$RBC==1B3 ; Return a RIB copy in
|
|
; supplied extended LOOKUP block
|
|
WF$DIR==1B4 ; Return directory files too
|
|
WF$ADR==777777B35 ; Address of some block
|
|
|
|
; PDB macro a'la $IFILE for parsing a wild file spec
|
|
;
|
|
DEFINE $WFILE(NXTPDB,HLPTXT,KEYLST)<
|
|
IFNDEF WLDBRK,<
|
|
WLDBRK=[EXP -20
|
|
XWD 767524,520
|
|
SETZ 260
|
|
SETZ 760]>
|
|
.$RESET
|
|
$TYPE(.CMFLD)
|
|
$NEXT(NXTPDB)
|
|
IFIDN <HLPTXT> <>,<
|
|
$HELP(<wild file spec>)>
|
|
IFDIF <HLPTXT> <>,<
|
|
$HELP(<HLPTXT>)>
|
|
$BREAK(WLDBRK)
|
|
IRP KEYLST,<KEYLST>
|
|
.$BUILD>
|
|
END
|