Google
 

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