Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0052/parlip.mac
There are 2 other files named parlip.mac in the archive. Click here to see a list.
TITLE UFLIP A PROGRAM TO ENABLE USER FILE LIBRARIES
DEFINE ND(A,B)<IFNDEF A,<A=B>>
; SOME ASSEMBLY PARAMETERS
ND CATCH,0
ND .JBFF,121
ND NODUPS,1
ND PLEN,30
ND VMAX,100
ND UMAX,200
ND LLEN,32
ND ABUFS,4
ND DBUFS,4
ND LBUFS,4
ND DEBUG,0
IFE	DEBUG,<
DEFINE CS,<RELOC 400000>
TWOSEG>
IFN	DEBUG,<DEFINE	CS,<>>
DEFINE BK(A,B)<
IFDIF <B><>,<A: BLOCK B>
IFIDN<B><>,<A: Z>>
DEFINE	IC(A,B)<
IFIDN	<A><>,<.X'B=0>
IFDIF	<A><>,<
A=.X'B
.X'B=.X'B+1
>>
EOFBIT=20000
; ACCUMULATORS
IC ,1
IC S,1
IC I,1
IC K,1
IC J,1
IC N,1
IC E,1
IC R,1
IC C,1
IC X,1
IC Y,1
IC Z,1
IC T,1
IC U,1
IC V,1
IC W,1
IC P,1
.X.=1
DEFINE BT(A),<
A=.X.
.X.=.X._1>

BT RAD
BT EOL
BT EOF
BT ADF
BT ARO
BT CMA
BT DEL
BT DOT
BT EXT
BT FNC
BT LIS
BT LNG
BT SLA

IFN	CATCH,<RAD=0>	;REDEFINE RAD IF NECESSARY TO PREVENT THE SIMPLE APPEND

; CHANNEL DEFINITIONS
A.=0
D.=1
L.=2

; SOME EXTENDED LOOKUP/ENTER WORDS
.RBCNT=2
.RBPPN=3
.RBNAM=4
.RBEXT=5
.RBPRV=6
.RBSIZ=7

	DEFINE	HALF(A,B,C,D),<
.Y.=<B>_-^D18
	IFE	.Y.,<TR'D A,B>
	IFN	.Y.,<TL'D A,.Y.>
	IFDIF	<C><>,<JRST C>>
	DEFINE	ON(A,B),<HALF A,B,,O>
	DEFINE	OF(A,B),<HALF A,B,,Z>
	DEFINE	FON(A,B,C),<HALF A,B,C,NE>
	DEFINE	FOF(A,B,C),<HALF A,B,C,NN>
	DEFINE	FONZ(A,B,C),<HALF A,B,C,ZE>
	DEFINE	FOFO(A,B,C),<HALF A,B,C,ON>
	DEFINE	FONO(A,B,C),<HALF A,B,C,OE>
	DEFINE	FOFZ(A,B,C),<HALF A,B,C,ZN>