Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
uetp/mic/micprm.mac
There are 14 other files named micprm.mac in the archive. Click here to see a list.
UNIVERSAL MICPRM - PARAMETER FILE FRO MIC AND EXECMI
SUBTTL F.D. BROWN
DEFINE LB(NAME,SIZE),<
NAME==ZZ
ZZ=ZZ+SIZE>
DEFINE LL(NAME),<
LB (NAME,1)>
ZZ=0
SALL
LB (PDB,0) ;START OF THE PDB
LL (MICJFN) ;HOLDS THE JFN OF INPUT (MIC) FILE
LB (PARAM,^D26) ;WHERE EXEC WILL PUT PARAMETER POINTERS
LB (LINBUF,^D30) ;ROOM FOR 30.*5-1 (149) CHARACTERS
LL (PARPTR) ;OUR INTIIAL PARAMETER POINTER (0 MEANS NONE)
LL (STKPTR) ;POINTER TO STACK OF PARAMETERS
LB (PARSTK,^D40) ;THE PARAMETER STACK
LL (SAVCHR) ;HOLDS A SAVED CHAR
LL (FSAV) ;HOLDS THE SAVED CONTENTS OF F
LL (LSTPDB) ;PLACE TO STORE BACKWARD POINTER
LB (PTYBUF,^D40) ;WHERE TO PUT CHARS FROM THE PTY
PRCSIZ==ZZ ;SIZE OF PDB
IFGE <PRCSIZ-400>,<PRINTX PDB MUST BE LESS THAN 400(8) WORDS>
PURGE ZZ
END