Trailing-Edge
-
PDP-10 Archives
-
bb-m836d-bm
-
tools/exec-mods/micprm.mac
There are 14 other files named micprm.mac in the archive. Click here to see a list.
; UPD ID= 4131, RIP:<7.EXEC>MICPRM.MAC.2, 7-Mar-88 18:28:22 by GSCOTT
;TCO 7.1255 - Update copyright notice.
; 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
; COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1976, 1988.
; ALL RIGHTS RESERVED.
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
; TRANSFERRED.
;
; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
; CORPORATION.
;
; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
; SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.
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