Trailing-Edge
-
PDP-10 Archives
-
BB-F493Z-DD_1986
-
10,7/dmotab.mac
There are 4 other files named dmotab.mac in the archive. Click here to see a list.
TITLE DMOTAB - Application table for DEMO program
SEARCH DMOPRM ;DEMO DEFINITIONS
DMODEF (DMOTAB) ;DEFINE COMMON PARAMTERS
DMOTAB::EXP 2 ;LENGTH
EXP INI010 ;ADDRESS OF $INIT PDB
EXP KEY010 ;ADDR OF TOP LEVEL $KEY PDB
DMOGVN: EXP GLXVRS ;GLXLIB VERSION
DMOVRN: EXP %%DEMO ;DEMO VERSION
INI010: $INIT (KEY010)
KEY010: $KEYDSP (KEY020,)
KEY020: $STAB
DSPTAB (HLP010,.DMHLP,<HELP>)
DSPTAB (SHW010,.DMSHW,<SHOW>)
DSPTAB (TST010,.DMTST,<TEST>)
$ETAB
HLP010: $NOISE (HLP020,<with>)
HLP020: $KEY (HLP030,KEY020,<$DEFAULT (<HELP>)>)
HLP030: $CRLF (<$ACTION (HELPER)>)
HELPER: MOVEI S1,HELPFD ;POINT TO HELP FILE FD
HLRO S2,@CR.RES(S2) ;GET ADDRESS OF KEYWORD TEXT
PUSHJ P,P$HELP## ;READ AND TYPE HELP FILE
PUSHJ P,P$NPRO## ;NO PROCESSING NEEDED
$RETT ;RETURN
HELPFD: $BUILD (FDMSIZ) ;SIZE OF BLOCK
$SET (.FDLEN,FD.LEN,FDMSIZ) ;LENGTH OF FD
$SET (.FDLEN,FD.TYP,.FDNAT) ;FILE SPEC TYPE (NATIVE)
$SET (.FDSTR,,<'HLP '>) ;ERSATZ DEVICE HLP:
$SET (.FDNAM,,<'DEMO '>) ;FILE NAME
$SET (.FDEXT,,<'HLP '>) ;EXTENSION
$EOB ;END OF BLOCK
SHW010: $NOISE (SHW020,<version>)
SHW020: $CRLF
TST010: $QUOTE (TST030,<quoted or unquoted string>,<$ALTER (TST020)>)
TST020: $FIELD (TST030,,<$BREAK (TST025),$FLAGS (CM%SDH)>)
TST025: 777777,,777760 ;BREAK ON ALL CONTROL
777754,,001760 ;ALLOW - AND 0-9
400000,,000760 ;ALLOW UC A-Z
400000,,000760 ;ALLOW LC A-Z
TST030: $CRLF
END