mirror of
https://github.com/PDP-10/stacken.git
synced 2026-02-14 03:44:08 +00:00
57 lines
1.6 KiB
Plaintext
57 lines
1.6 KiB
Plaintext
UNIVERSAL WLDINT - Symbols used internally by WLDPAR and WLDSCN
|
|
;
|
|
; Written by Sven Erik Enblom in December 1985
|
|
;
|
|
.DIRECTIVE .NOBINARY
|
|
SEARCH GLXMAC
|
|
|
|
; AC names for local use
|
|
;
|
|
F==13 ; Flag word
|
|
WS==14 ; Pointer to current WS
|
|
FP==15 ; PDL pointer for channel words
|
|
|
|
; Flags used internally, always present in local AC F
|
|
;
|
|
F$DEV==1B0 ; Device seen
|
|
F$NAM==1B1 ; File name seen
|
|
F$EXT==1B2 ; Extension seen
|
|
F$PTH==1B3 ; Path seen
|
|
F$PRJ==1B4 ; Explicit project number seen
|
|
F$PRG==1B5 ; Explicit programmer number seen
|
|
F$SLT==7B8 ; Search list type (from PATH.)
|
|
F$AFW==1B9 ; "**" seen
|
|
F$WFIL==1B10 ; Wild file name/extension
|
|
F$FVER==1B11 ; File has been verified
|
|
F$LEV0==7B14 ; First...
|
|
F$LEV1==7B17 ; ...and last "file return" level
|
|
|
|
FPLSIZ==^D7 ; Size of file PDL
|
|
PDLSIZ==^D50 ; Size of local PDL
|
|
|
|
PHASE 0 ; Define a wild FD
|
|
FD$FD:! BLOCK FDXSIZ ; Non-wild parts of the file spec
|
|
FD$MSK:!BLOCK FDXSIZ ; Wildcard mask words
|
|
FD$FLG==FD$MSK+.FDSTR ; Flag word
|
|
FD$SIZ:!DEPHAS
|
|
|
|
PHASE 0 ; Define scanner data block
|
|
WS$FLG:!BLOCK 1 ; Local contents of AC F
|
|
WS$AFL:!BLOCK 1 ; Argument flags from W$NEW
|
|
WS$LEV:!BLOCK 1 ; Current directory level
|
|
WS$P:! BLOCK 1 ; Local PDL pointer
|
|
WS$FPP:!BLOCK 1 ; Channel word PDL pointer
|
|
WS$OFD:!BLOCK FDXSIZ ; "Original" FD
|
|
WS$MSK:!BLOCK FDXSIZ ; Mask words
|
|
WS$CFD:!BLOCK FDXSIZ ; Current FD
|
|
WS$FPL:!BLOCK FPLSIZ ; Channel word PDL
|
|
WS$PDL:!BLOCK PDLSIZ ; Local stack
|
|
WS$SIZ:!DEPHAS
|
|
|
|
DEFINE RETERR(STRING)<
|
|
MOVEI S1,[ASCIZ/STRING/]
|
|
MOVE P,ERRPDL
|
|
$RETF>
|
|
|
|
END
|