Trailing-Edge
-
PDP-10 Archives
-
bb-m836c-bm_tops20_v6_1_tools
-
tools/exec-mods/micprm.mac
There are 14 other files named micprm.mac in the archive. Click here to see a list.
; UPD ID= 243, SNARK:<6.1.EXEC>MICPRM.MAC.3, 10-Jun-85 08:45:54 by DMCDANIEL
; UPD ID= 184, SNARK:<6.1.EXEC>MICPRM.MAC.2, 3-May-85 08:33:21 by DMCDANIEL
UNIVERSAL MICPRM - PARAMETER FILE FOR 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
LL (GTOLBL) ;PLACE FOR GOTO LABEL
LL (BKTLBL) ;PLACE FOR BACKTO LABEL
LL (DOSWT) ;SWITCHES ON @DO COMMAND
DO.SUP==1B0 ;SUPPRESS [End of file] MESSAGE
LL (LABEL) ;WHERE TO PLACE ASSEMBLED LABEL
LL (FILPTR) ;POINTER TO TEXT
TXTLEN==30 ; MAX OF 30 WORDS OF TEXT
LB (FILTXT,TXTLEN) ; SOME SPACE
LL (ERRCHR) ; THE ERROR CHARACTER
LL (OPRCHR) ; THE OPERATOR CHARACTER
PRCSIZ==ZZ ;SIZE OF PDB
IFGE <PRCSIZ-400>,<PRINTX PDB MUST BE LESS THAN 400(8) WORDS>
PARSPC==400 ;WHERE TO PLACE PARAMETERS
PURGE ZZ
END