Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
, r T@ P C, %@J, LSH A,-^D 9 LSH A,-^DCR/
DEFINE PXTEXT.(OPCODE,NEW P()<
OPCODE <A,< NEW>>>ODE <A,<E2"@ <@Kj
IFE <`B,<..TA==0>
= IFN B,<EXP ..TA =
PURGE ..T A>
PURGE ..TE@tP 'E@v yQ ~ E@v:=Q | GH
(Q0
XL
hIST
X CRE
X GEN
X PRT
H X CLS
X AUT
H
X USW
X SPL
h
X SIZ
X M
OD
LIST
LIST
G4,YP G4,LQ G4,[qQ G4,\qQ @ G4,iVQ x G4,kQQ ` G4,m`Q @ G4,zQP'G4-
Q G4-[P G4-LzP'G4-jSQ G4-kxQ G4-kyP G4. RQ G4. `Q @ G4.(4Q G4.,Q G4.9Q G4.=zQ G4.lXQ @ G4.zsQ G4/
3Q @ G?p P $ GHtkP GHtkQP GHv)9P GHv:=P GR/
DEFINE MXTEXT.(OPCODE,NEW O()<
OPCODE <<NEW >>>OPCODE <<NEWI!k7P I!k<P I m P I$P ` Qu *IIY{P ` Qw *|I ( J@ .INDR.(A, B,SOS)NDR.(A,I?p P & IR/
IFN TFL R(G,<
DEFINE TXT1. RH(A,B,C,D,E,F,G,H, RhI,J,K,L,M,N,O,P,Q S,R,S,T,U,V,W,X,Y, S(ZZ,A1,B1,C1,D1,E1 SH)<
A+[ASCIZ\A'B Sh'C'D'E'F'G'H'I'J' TK'L'M'N'O'P'Q'R'S T('T'U'V'W'X'Y'ZZ'A TH1'B1'C1'D1'E1\]
Th>>
IFE TFLG,<
D UEFINE TXT1.(A,B,C U(,D,E,F,G,H,I,J,K, UHL,M,N,O,P,Q,R,S,T Uh,U,V,W,X,Y,ZZ,A1, VB1,C1,D1,E1)<
I V(FE ZFLG,<
OPDEF VH OPC [A]
OPC A' VhB'C'D'E'F'G'H'I'J W'K'L'M'N'O'P'Q'R' W(S'T'U'V'W'X'Y'ZZ' WHA1'B1'C1'D1'E1
Wh>
IFN ZFLG,<
XOPDEF OPC [ZFLG+ X(A]
PTEXT.(A'B'C' XHD'E'F'G'H'I'J'K'L Xh'M'N'O'P'Q'R'S'T' YU'V'W'X'Y'ZZ'A1'B Y(1'C1'D1'E1)
>
YH>>
IFE A&TXT. YhNA,<
.CREF
ZXTEXT. TEXT.
Z(.XCREF
>
IFN ZHA&TXT.NA,<
EXP Zh A
>
IFN [A&TXT.S,<
IFE S [(CHAR,<SCHAR==" "> [H
IFE SSIDE,< IF [hE TXTF.D-<A&TXT. \M>,< SSIDE==TXT.S \(R>>
IFE SSIDE,< \H IFE TXTF.O-<A&T \hXT.M>,< SSIDE==TX ]T.SR>>
IFE SSID ](E,< SSIDE==TXT.SL ]H>
EXP <<INSVL.( ]hSCHAR,TXT.SC)>+<I ^NSVL.(SSIDE,TXT.S ^(S)>+<INSVL.(SWIDT ^HH,TXT.SP)>>
SSI ^hDE==0
SWIDTH==0 _
SCHAR==0
>
_(CTEXT.
TFLG==0
ZFLG==0
PURGE OPC
PURGEKH(Q P KJ{P KJ%h"P KJ-yBP KJ-{P KJ4"P KJ49BP KJ4I"P KJ4LbP KJ5iP KJ5iBP KJLlP KJLlbP KJt9"P KJuX"P KJv)"P KJv9P KJv<P KK-P KK
hQ
ERA$==
ER%%%
ER%%%==ER %%%+1
R%%%==ERKK|Y
HQ
ERR EOF
h,<End Of File>
ERR IFP,<Illegal
(file position>
HERR FDE,<File Dat
ha Error>
ERR FN
D,<File is not on
( disk>
ERR NSD,
H<No such device>
h
ERR FCF,<File c
heckpoint failed>
(
ERR SLE,<A Sys
Htem Limit Was Exc
heeded>
ERR IFS,
<Illegal File Spe
(cification>
ERR
H FNF,<File Not Fo
hund>
ERR PRT,<P
rotection Violati
(on>
ERR DNA,<De
Hvice Was Not Avai
hlable>
ERR NCE,
<No "current" ent
(ry in list>
ERR
H NMA,<No IPCF mes
hsage is available
>
ERR FDS,<File
(s are on differen
Ht structures>
E
hRR FAE,<File alre
ady exists>
ERR
( USE,<Unexpected
HSystem Error>
E
hRR NSP,<No Such P
id>
ERR BOL,<Be
(ginning of list r
Heached>
ERR EOL
h,<End of list rea
ched>
ERR RQF,<
(Receiver's quota
Hfull>
ERR SQF,<
hSender's quota fu
ll>
ERR NRE,<No
( Remembered Entry >
mbered EntryKKBP
KK I"P KK BP
KK.9"P ` KR/
IF1,<
`(IFN EFLG&1,<PRINT `HX ?Uknown qualifi `her in A call of aB
PRINTX a(
>
IFN EFLG&2, aH<PRINTX ?Bad spac ahing specification b in A call of B b(
PRINTX
bH>
IFN EFLG&4,<P bhRINTX ?Premature cend of text in A c( call of B
cH PRINTX
>
IF chN EFLG&10,<PRINTX d ?Bad address in d(A call of B
dH PRINTX
>
dhIFN EFLG&20,<PRIN eTX ?Variable addr e(ess too long in eHA call of B
eh PRINTX
>
I fFN EFLG&40,<PRINT f(X ?Spacing on I q fHualifier in A ca fhll of B
gPRINTX
>
> ;END OF IF1
> ;ENDMf9 P Mt,}P MuLwP @MuiWP MuI7P 'Mn:=p MF:=p M$pQ"P M$t :P M$t;P M$t<RP M$ty7P M$u[rP M$v
ZP M$v:=P M$v<P M$v\{P M>hrp M>h{p M>iRp M>k=p M>l}p M>m9p MJhrp MJip MJk=p MJlsp MJl}p MJm9p MR/' qO*
q( SFLG==0
qHSTYP==0
IFI qhDN <A><^>,<STYP= r=TXTF.2>
IFE S r(TYP,<IFDEF TXTF. rHA,<STYP==TXTF.A> rh>
IFE STYP,<EFL sG==EFLG!1>
IF s(N STYP&TXT.NA,< sH
DTEXT.(ST shYP)
IFLG t==3
>
t( IFE STYP&TXT.NA, tH<
IFLG==1 th
AFLG==1 u
SWIDTH= u(=0
>
ZFLG==0
MR/G uhON
IFID vN <A></>,<
v( AFLG==0
vH IFLG==3
vh DTEXT.(STYP) w
> w(
IFN AFLG,< wH
XTEXT. A whTEXT.,<A>
xAFLG==AFLG+1
x( IFE AFLG-^D31 xH,<EFLG==EFLG!20> xh
IFIDN <A> y<,>,<
IFN ZF y(LG,<EFLG==EFLG!10 yH>
ZFLG==TXT.P yh
>
>
>MR/g z(Of
IF zHE IFLG-3, <
zh IFLG==0
{ >
IFE I {(FLG-2,<
{HIFLG==0
{hIFDIF<A></>,<FTE |X4.(<A>)>
|(>
IFE IFLG-1 |H,<
IFLG= |h=2
>
/> }(P@
E }HFLG==EFLG!2
}h IFE SSIDE,< ~
IFLE "0"-" ~(A",<
IFGE " ~H9"-"A",<SWIDTH== ~hSWIDTH*^D10+^DA
IFE STYP-T (XTF.I<EFLG==EFLG! H40>
STYP== hSTYP!TXT.S
EFLG==EFLG&<^-2>
(
>
>
H
>
hIFIDN <A><R>,<
IFN SWIDT
(H,<
SSIDE==
HTXT.SR
EFLG=
h=EFLG&<^-2>
>
(>
IFIDN <
HA><L>,<
h IFN SWIDTH,<
SSIDE==TXT.SL
(
EFLG==EFLG&<
H^-2>
>
h
>
IFIDN <A><C>,
(<
IFN SW
HIDTH,<
SSID
hE==TXT.SM
EF
LG==EFLG&<^-2>
( >
H >
IFN
hSWIDTH, <
IF
N SSIDE,<
I
(FN EFLG&2,<
H IFE SCHAR,< SC
hHAR=="A"
EF
LG==EFLG&<^-2>
( >
>
H
>
h >
IFE EF
LG&2,< IFLG==2>
IFLG==2> MR/
TFLG==0 j
AFLG==0
SF j(LG==0
IFLG==0 jH
ZFLG==0
EFL jhG==0
SCHAR==0
k SWIDTH==0
SSID k(E==0
CTEXT.
kHIRPC A,<
I khFN SFLG,<
FTEX l1.(<A>)
>
I l(FE SFLG+AFLG+IFLG lH,<
IFIDN <A>,< lh^>,<
IFN TFLG,< mDTEXT.(TXTF.3)>
m(SFLG==1
>
IFE mH SFLG,<
IFE ^D2 mh9-TFLG,<
DTEXT.( nTXTF.3)
>
TFLG n(==TFLG+1
XTEXT. nH ATEXT.,<A>
> nh
>
IFE SFLG+IF oLG+TFLG,<
FTEX2 o(.(<A>)
>
IFN oH IFLG,<
FTEX3.(< ohA>)
>
>
IFN p TFLG,<DTEXT.(TXT p(F.3)>
IFN AFLG+S pHFLG+IFLG,<EFLG==E FLG!4>
FLG==EMRV>9P MS.[yQ M^l uQ O3DYP O3EZ7P O3Fi9P O3FlYQ O3FzP SuZp Su p Su p Su}:p Sv
2p Sv
Sp Sv>@p SvM p Svi9p S: '@J< .INDR.(A, B,AOS)NDR.(A,S;!kP S@t9QQ @ S@t9QP S@t9RP `S@t9VP S@t9XP $ S@t9ZQ S@t9[P " S@t:Q x S@u-xQ S@u[XQ x S@v
tQ @ S@v,:P S@v,rQ S@v89Q S@v<Q S@v<P S@v<:P '~ S@vMQ SB IP SB M"P SB lP SB 2P SB
BP SB ,BP SB ,bP SB ."P SB \P SB)iP SB)iP SB)kVP SB)kYP SB)lXP SB)lsP SB)lxP SB)mvP SBal}P SPuxzQ @ SR/
XLIST gh
.XCREF
h FTEXT.(<A>)
h( IFN EFLG,< ETEXT hH.(ITEXT,<A>)> ;I hhF ERROR, DESCRIBE i IT
EXP 0
i(.CREF
LIST
LIST UVn @ l 4@ UVn Y&i1 I~
XLI @ST
CDO `
CDO .ZPAGA
CDO .ZPAGN
CDO .ZCHNK
CDO .SA @VE1
CDO .SAVE2
CDO .SAVE3
CD O .SAVE4
CDO .S AVET
CDO .SV13
CDO .SV14
CDO ` .SV15
CDO .SV1 6
CDO .RETT
C DO .RETF
CDO .R @ETE
CDO .AOS
`CDO .SOS
CDO .Z ERO
CDO .POPJ
CDO .STOP
CDO
CDO
CDO
CDO `
CDO
CDO
CD O
CDO
CDO
C DO
CDO
@CDO C%RPRM
CDO `C%INTR
CDO C%SE
ND
CDO C%RECV
CDO C%BRCV
CDO
@ C%REL
CDO
CD
`O
CDO
CDO
C DO
CDO
CDO
CDO
CDO
CDO
@
CDO
CDO F%IOPN
CD
O F%AOPN
CDO F%
OOPN
CDO F%IBYT
@
CDO F%OBYT
C
`DO F%IBUF
CDO F
CDO F%REL
CDO F%DREL
C F%RREL
CDO F
CDO F%POS
CDO F%CHKP
CD O F%INFO
CDO F% @FD
CDO F%REN
`CDO F%DEL
CDO F %FCHN
CDO
CDO
CDO
CDO
CD @O
CDO
CDO
C `DO
CDO
CDO
CDO M %ACQP
CDO M%REL @P
CDO M%IPSN
`CDO M%NXPG
CDO M%IPRC
CDO M%IP RM
CDO M%AQNP
@ CDO M%RLNP
CDO ` M%CLNC
CDO M%F PGS
CDO M%GMEM
CDO M%RMEM
CD @O AVBPGS
CDO PA `GSTA
CDO SWPSTA
CDO PAGTBL
C DO INMEMF
CDO C @END
CDO M%GPAG
CDO M%RPAG
CD O
CDO
CDO
C DO
CDO
CDO
@CDO
CDO
CDO `
CDO T%TEXT
CDO T%TT Y
CDO
CDO
C @DO
CDO
CDO
`CDO
CDO
CDO
CDO
CDO
CD O
CDO @ L%CLST
CDO L%D `LST
CDO L%CENT
CDO L%CBFR
CD O L%DENT
CDO L% @NEXT
CDO L%FIRS `
CDO L%LAST
C DO L%PREV
CDO L %PREM
CDO L%CUR @R
CDO L%RENT
`CDO L%SIZE
CDO
CDO
CDO
CDO
CDO
CDO
CD @O
CDO
CDO
` CDO I%INI1
CDO I%NOW
CDO I %EXIT
CDO I%ION @
CDO I%IOFF
C `DO I%SLP
CDO I% INT1
CDO I%INT2
CDO I%INT3
C @DO I%IWTO
CDO I `%SWTO
CDO I%WTO
CDO I%SOPR
C DO
CDO
CDO
@CDO
CDO
CDO
`
CDO
CDO
CDO
CDO
CDO S%CMND
CDO S%T @BLK
CDO S%SCMP
CDO S%ERR
CDO
CDO
CDO
CD O
CDO
CD @O K%RCOC
CDO ` K%WCOC
CDO K%S UET
CDO K%STYP
CDO K%TXTI
CD @O
CDO
CDO
C `DO
CDO
LIST
DO
LISTY>
@ & J2 .LDST.(A, & B,C,HRRZ,HLRZ,L DB,MOVE),HLRZ,L[@ | Gn
IFB <B|@>,<MAXSIZ==0
I|`RP A,<IFG <A-MA} XSIZ>,<MAXSIZ==A} >>>
IFNB <B>,<}@B==0
IRP A,<}`IFG <A-B>,<B== A>>>
B>,<B==[tP '[t;ZQ x [v
QP '[v :Q [v xQ [ [v [lp [lXp [lrp [ltp [lxp [l}p [n:=P [tuQ @ [th:Q [u[yQ [ukvQ [v=3P '[v|WQ [&p ~ H
IFB <B~@>,<MINSIZ==377777~`,,777777
IRP A,<IFG <MINSIZ-A >,<MINSIZ==A>>>
IFNB <B>,<B==`377777,,777777
IRP A,<IFG <B- A>,<B==A>>>
A>,<B==A>>>
[Lt;ZQ x [LvN8P '[NF:=p [PuySP ' [PvNP ' ] U`%0 IF2,<IFDEFV A,<A==A>> IFN DEF A,<A==B>_
QkRp _
Ql}p _
Qm p _
Qm7p _
T=
XQa
XLIST
L@ X(.OTRDR,Reader)
x
X(.OTNCU,NETCO
N)
X(.OTLPT,Pri
8nter)
X(.OTBAT,
XBatch-stream)
X
x(.OTCDP,Card-punc
h)
X(.OTPTP,Pap
8ertape-punch)
X
X(.OTPLT,Plotter)
x
X(.OTJOB,Job)
X(.OTTRM,Termina l)
LIST
mina_S h6Q O3EJ1_Tu
SQ x _TuLSP '` P `D P `H P `L P `P P a>:=P a % J( LSH A,^D9 LSH A,^D9aJ}Ks p0GT
pXSALL
XLIST
INTq ERN %%.GLX
q SEARCH MACTEN q@
IFN FTJSYS,<q`SEARCH MONSYM>
r IFN FTUUOS,<SEr ARCH UUOSYM>
r@ IFB <B>,<.REQUEr`ST GLXINI
IF2s ,<IFNDEF I%INIT,<s EXTERN I%INIT>>
s@ DEFINE $DATA(Ns`AM,SIZ<1>)<
t NAM: BLOCK SIZ
t >
IF2,< DEt@FINE CDO(A),<
t` IFNB <A>,<IFNu DEF A,< A=ZZ
u SUPPRESS Au@>>
ZZ==ZZ+u`1 >
ZZ==VORGv
.XCREF
v LIBVEC
.Cv@REF
>>
v` IFNB <B>,<
w TWOSEG
RELOw C CORG
DEFINEw@ ASSGN.<
.Aw`SSIGN B%D, DLOC,x ..TLOC
>
x IF2, < DEFINE CDx@O(A)<
IFNB <x`A>,<IFNDEF A,< EXy TERN A
y SUPPRESS A>>
y@ >
.XCREF
LIBVEC
z .CREF
>
z >
%%.MOD==SIXz@BIT /A/
LIS T
LISaPtP aPtkP aPuTP aPv\rP aPv|UP aR/
OPC QHA
POINTR(0, B)
POINTR(0,e,(SQ e,)6Q e,)RQ e,+Q @ e,,UQ @ e,-Q e,<SQ 9 e-)WQ e-i1P e.gkp gk9p glp gltp gl}p g4P H .SAVE.(\A ) .SAVE.(\Ag
,}Q g
-LyQ @ g
.=1Q g"@ =`Kv
IFB < > B>,<..TA==..TA > +<C>>
IFNB < >@B>,<..TA==..TA >`+<INSVL.(C,B)>>
VL.(C,B)>>g$tkQ @ @ g$u P 'g.N @ 6@ g.N gR~) &`J8 .LDST.(A, ' B,C,HRRM,HRLM,D PB,MOVEM)HRLM,Dgg
V { G^
IFNB <{ B>,<IFN FTUUOS,<{@A==B>>
IFNB <{`C>,<IFN FTJSYS,< A==C>>
SYS,<ght-3P ghuWP ghuxSP @ghv5P ghv
2P hD P hH P hL P hP P iFC@ PhM TXT1. (A) TXT1. (A)i P i0,YQ i0,1Q i0,^Q i0-kvQ @ iG, E L\
XLIST
E X(T,TXT.A)
E@X(O,TXT.A)
X E`(D,TXT.A)
X( F F,TXT.A)
X(7 F ,TXT.A)
X(6, [email protected])
X(W,T F`XT.A)
X(5,TX G T.A)
X(P,TXT G .A)
X(U,TXT. G@A)
X(H,TXT.A G`)
X(C,TXT.A) H
X(E,TXT.A) H
X(I,TXT.A) H@
X(M,TXT.NA) H`
X(J,TXT.NA) I
X(L,TXT.NA) I
X(K,TXT.NA) I@
X(A,TXT.NA) I`
X(0,TXT.NA) J
X(3,TXT.A) J
X(V,TXT.A)
X(2,TXT.NA)
X(Q,TXT.A)
K X(B,TXT.A)
K X(1,TXT.A)
X K@(N,TXT.A)
LI ST
.A)
LIiK,P A ic!h P ic!k Q ` ic!kPQ @ ic!l Q ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP 'ic!lyP ic!lyQ ic$cHQ E ic$cHQ @ ic$cIQ E` ic$cIQ ic$cJQ ic$cKQ @ ic$cKQ ic$cPQ D` ic$cQQ ic$cQQ ic$cRQ ` ic$cRQ ic$cSQ ic$cTQ ` ic$cTQ @ ic$cUQ D ic$cUQ D@ ic$cVQ D ic$cVQ C` ic$cWQ ` ic$cWQ @ ic$cXQ ic$cXQ ic$cZQ ic$cZQ @ ic$c[Q @ ic$c[Q ` m?p P $ mK c@ /(*| BYTE (3)A/HWHO (9)AVER (6) AMIN (18)AEDTp K`Q4
FI.A==
HFI.%%%
FI.%%%== FI.%%%+1
ZZ==q@ X C IFB <C>,<X8A==:B> IFNB <C >,<A=:B>B <Cup / K
IFNB < / B>,<..T==0
IFE /@ B-777777,<..T== /`1
HLLZS A>
0 IFE B-77777700 0 0000,<..T==1
0@HRRZS A>
IFE 0`B-777777777777,< 1 ..T==1
SETZM 1 A>
IFE ..T,<P 1@USHJ P,.ZERO
1` XLIST
2 JUMP [POINTR( 2 A,B)]
LI 2@ST
>>
IFB < 2`B>,<SETZM A>
B>,<SETZM A>
uh P
=Z
pQ}
IFG
A-INT.LV,<PRINTX
0?Level A interru
0pts not supported
P>
.BGINT.(\A )
.BGINT.(\A - 3 K*
IFDEF 3@ ..BSIZ,<PRINTX ? 3`Missing $EOB afte 4 r a $BUILD>
. 4 .BSIZ==0
. [email protected]==.
R 4`EPEAT A,<
5 BLD0.(\..BSIZ,0) 5
..BSIZ==..BSI Z+1>
==..BSI H J
IF1,< I @FNDEF ..TLOC,<..T `LOC==0
..DCT ! R==0
>
A= ! ..TLOC
IFB <B> !@,< ..TLOC==..TLOC !`+1>
IFNB <B>,< " ..TLOC==..TLOC+ " B>
..DCTR==..DC "@TR+1
> ;END OF "`IF1
IF2,< ..DCT # R==..DCTR-1
IF # E ..DCTR,< ASSGN. #@>
A=DLOC##-<. #`.TLOC-A>
> ;END OF IF2
> ,,U
PR
POPJ
pP, ;WILL INVOKE
! RIGHT ROUTINE
IGHT ROUTINE
| 8@K`
IFNDE 8`F ..BSIZ,<PRINTX 9 ?$EOB without pre 9 vious $BUILD>
9@ IFN <.-..BLOC>,< 9`PRINTX ?Address c : hange between $BU : ILD and $EOB>
:@ XLIST
.. :`T==0
REPEAT . ; .BSIZ,<
BLD ; 0.(\..T,1)
;@ ..T==..T+1 >
;` PURGE ..BSIZ,.. < T,..BLOC
LIS T
OC
LIS $ $ J$
INTER $@N A
$DATA(A ,<B>)
ATA(A J.I H
JSP T F,.RETE
XLIS @T
JUMP ER `A$
LIST
LIST
J.I@ `H
JRST .RETF
ST J.M H
JRST .RETT
ST N.@ 5`K@
IFNDE 6 F ..BSIZ,<PRINTX 6 ?$SET without pre 6@vious $BUILD>
6` IFGE <<<A>&7777 7 77>-..BSIZ>,<
7 PRINTX ?A offset 7@ greater than $BU 7`ILD size paramete 8 r>
SET0.(\<A >,B,<C>)
A O%| ? L
S..A:: ?@PUSHJ P,.STOP
?`XLIST
JUMP [XW @ D 'A',[ASCIZ \B @ \]
IFDEF %%. @@MOD,<
EXP %%. @`MOD]>
IFNDEF A %%.MOD,<
SIX A BIT /NONAME/]>
LIST
E/]>
R/ A`L$
PUSHJ B P,T%TEXT
XLI B ST
.XCREF B@
JRST c
B`IFNB <A>,<
EXP C <A>
>
IFB < C A>,<
EXP 0
>
FTEXT.(<B>) C`
IFN EFLG,<ET D EXT.($TEXT,<B>)> D
c:
.CR D@EF
LIST
LIST
t{ P
=Z
R JSR @I%INT A JSR @I%INT lQP lXP lzP
l)XP l9VP l;0P l;ZP lH:P lI3P lI;P lJ9P lj6P lkP lkP lkXP lzQP m P mTP mQP mTP muP m9<P mkrP mktP mm6P mm<P
myTP n n- P n=tP nKuP nNP n\9P n\yP S@P $^p $j6p %I7p %h6p &:p &
p &=p &tLG +`Jt
IFNB < , B>,<..T==0
IFE , B-777777,<..T== ,@1
C A>
I ,`FE B-77777777777 - 7,<..T==1
C - A>
IFE ..T,<P -@USHJ P,.C
-` XLIST
. JUMP [POINTR(A, . B)]
LIST
>>
IFB < B>,<C A>
< '<P '<P '<P '<P '<P *IA *I *|A *| 2&= (@JZ
IFNB < (`C>,<..T==0
IFE ) C-777777,<..T== ) 1
D A,B>
)@ IFE C-77777700 )`0000,<..T==1
* E A,B>
IFE * C-777777777777,< *@..T==1
G A, *`B>
IFE ..T,< + F A,[POINTR(B, + C)]>>
IFB <C>, <G A,B>
C>, 7 ;rp 7 H:p 7 kp 7 N8p ?$(:P ?$9P ?%+qP ?%LP ?%hzP ?& P ?&$kP J%uP J&- P J&:=P Ni' `H PUSHJ P,.SVA PUSHJ S"4`P S"5 P S"5`P S$^P S%DhP S%DkP S&d
P S&e(P S&e)P >}{woP