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>