Trailing-Edge
-
PDP-10 Archives
-
bb-m836d-bm
-
tools/dcnspy/dcnspy.unv
There are 5 other files named dcnspy.unv in the archive. Click here to see a list.
x
,Sa@PCt:PCt;vPTCtKP CtLP CuP Cu+qP Cv3P Cv:XP CvKP C(uI7P C(unP C*
IFN FTS"hHOW,..LOC==.
#
DEFINE WORD(NAM,#(NUMB<1>),<
IFN #H<..MSK>,<..OFF==.#h.OFF+1>
..MS$K==0
FIELDM(N$(AM,<.FWORD>)
$H ..MSK==0
..O$hFF==..OFF+NUMB
%
>
DEFINE NXT%(WRD(NUMB<1>),<
%H..MSK==0
..OFF=%h..OFF+NUMB
>
&
DEFINE FILLER(N&(UM),<
..FLG==PO&HS(..MSK)
IFE ..&hMSK,<..FLG==-1>
' IFG <^D<NUM>-<^D'(35-..FLG>>,<PRINT'HX ?FILL TOO BIG I'hN A STRUCTURE>
( ...MSK==MASK.(^D((<NUM>,<..FLG+^D<N(HUM>>)
IFN FTSHO(hW,<
PHASE ..O)FF
EXP ...MSK)(
>
..MSK==..M)HSK!...MSK
>
)h
DEFINE HWORD(n*am),<
..FLG==0 *(
IFE ..MSK&.LH*HALF,<FIELDM(nam,.*hLHALF)
..FL+G==1>
IFE ..FLG+(,<..MSK==..MSK!.L+HHALF
IFE ..+hMSK&.RHALF,<FIELD,M(nam,.RHALF)
,( ..FLG==1>
IFE ..FLG,<,hNXTWRD
-FIELDM(nam,.LHALF-() >
>
>
-H
DEFINE FIELD(NA-hM,SIZ,POS),<
...FLG==0
IFB .(<POS>,<IFB <SIZ>,.H<
...MSK==.RT.hMSK(<<^-<<..MSK>>/>>)
IFE ...M/(SK,<..OFF==..OFF+/H1
..MSK==0/h
...MSK==0-1
>
FIEL0(DM(NAM,<...MSK>) 0H
0h..FLG==-1
>>
IFNB <SI1Z>,<.SIZ==^D<SIZ>1(>
IFNB <POS>1H,<
FIELDM(N1hAM,MASK.(.SIZ,POS2))
..FLG==-12(
..BITS==MA2HSK.(.SIZ,POS)
2h>
IFE ..FLG,<3IFGE <^D<.SIZ>-^D3(36>,<
WORD(N3HAM,<^D<.SIZ>/^D363h>)
IFN <<^D<4.SIZ>-<^D<.SIZ>/^4(D36>*^D36>>,<
4H FIELD(...,<<^4hD<.SIZ>-<^D<.SIZ>5/^D36>*^D36>>)
5( >
..FLG=5H=-1
>>
IF5hE ..FLG,<
.6.BITS==MASK.(^D<.6(SIZ>,<^D<.SIZ>-1>6H)
REPEAT <6h^D36-^D<.SIZ>+1>,7<
IFE ..FL7(G,<
IFE 7H<..BITS&..MSK>,< 7h
..MSK==..MSK8!..BITS
..FLG8(==-1
> 8H
IFE ..FL8hG,..BITS==..BITS_9<-1>
>
9( >
IFE ..FLG,9H<
..BITS==M9hASK.(^D<.SIZ>,<^D:<.SIZ>-1>)
.:(.OFF==..OFF+1
:H ..MSK==..BITS :h
>
MSKSTR(;A'NAM,\..OFFC,..;(BITS)
A.'NAM=;H=..OFF
IFN FTSH;hOW,<
PHASE A<.'NAM
EXP A'<(NAM
>>
..OL<HD==..BITS
...<hOLD==..BITS
=>
DEFINE BIT(N=(AM),<
..BITS==L=HFTBT.(..OLD)
=h IFE ..BITS,<PRIN>TX ?NO ROOM FOR B>(IT IN LAST FIELD>>H
A%'NAM==..B>hITS_<-<^D35-POS(.?..OLD)>>
A.'N?(AM==..OFF
M?HSKSTR(A'NAM,\..O?hFFC,..BITS)
I@FN FTSHOW,<
P@(HASE ..OFF
EX@HP A'NAM
>
@h..OLD==..OLD&<^-<A..BITS>>
>
A(
DEFINE FIELDM(NAAHM,MASK),<
IFN MAhASK&..MSK,<
B..MSK==0
..B(OFF==..OFF+1
>H
..MSK==..MSK!BhMASK
MSKSTR(CA'NAM,\..OFFC,MC(ASK)
A.'NAM==CH..OFF
IFN FTSHOChW,<
PHASE A.D'NAM
EXP A'ND(AM
>
>
DEFIDHNE ENDSTR(LENNAM<DhLEN>,LSTNAM<LST>)E,<
IFN ..MSK,E(<..OFF==..OFF+1> EH
A.'LSTNAM==Eh..OFF
IFN FTFSHOW,DEPHASE
F(..LOK==..LOK+1
FHIFN ..LOK,<PRINTXFh ? MISSING BEGSTRG>
IF2,<
IG(FDEF ...MSK,<SUPPGHRESS ...MSK>
GhIFDEF ..BITS,<SUPHPRESS ..BITS>
H( IFDEF .SIZ,<SUPPHHRESS .SIZ>
IFHhDEF ..MSK,<SUPPREISS ..MSK>
IFDI(EF ..OFF,<SUPPRESIHS ..OFF>
IFDEIhF ..FLG,<SUPPRESSJ ..FLG>
IFDEFJ( ..LOK,<SUPPRESS JH..LOK>
IFDEF Jh..LOC,<SUPPRESS .K.LOC>
IFDEF .K(.OLD,<SUPPRESS ..KHOLD>
IFDEF ..Kh.OLD,<SUPPRESS ..L.OLD>
>
IF1L(,<
IFDEF ...MLHSK,<.XCREF ...MSKLh>
IFDEF ..BITMS,<.XCREF ..BITS>M(
IFDEF .SIZ,<MH.XCREF .SIZ>
MhIFDEF ..MSK,<.XCRNEF ..MSK>
IFDN(EF ..FLG,<.XCREF NH..FLG>
IFDEF Nh..OFF,<.XCREF ..OOFF>
IFDEF ..LO(OK,<.XCREF ..LOK>OH
IFDEF ..LOC,Oh<.XCREF ..LOC>
P IFDEF ..OLD,<.XP(CREF ..OLD>
IPHFDEF ...OLD,<.XCRPhEF ...OLD>
>
Q
PURGE WORD,NXTWQ(RD,FILLER,HWORD,FQHIELD,BIT,FIELDM
Qh
A.'LENNAM==..ROFF-B
IFN FTSHR(OW,<RELOC ..LOC>>RH
..MSK==0Rh
..OFF==B
A.D==B
S(IFDEF ..LOK,<IFL SH..LOK,<PRINTX ? NShEW BEGSTR WITHOUTT ENDSTR>>
..LOK==-1
..L%#%$0%&BEG
E&=}:`(hF@ Ge@ ,GeLR +GDP *y2WOP%%CA (A,B,E)P%%CA (AGE` -92kOP%%CA (A,B,N)P%%CA (AGuI7P Gv
ZA Gv
ZG
L@`(|G
A G
Gdd`(fG9G"`(mG"Jw`(nG"$G'X`(yG'+`(pG'-3`(oG':`(LG':`(EG'K`(vG'`(sG'`(|G/%`(lG>fy`(gG?Z -y2w
ASCIZ /.
COPYRIGHT (c) D.8IGITAL EQUIPMENT .XCORPORATION A.
.xALL RIGHTS RESERVED.
/TS RESERVGB~
@`(oGB~
H`(oG`@ Iv<`(I6H1`( mI6KP I "zjZ
MOVX T1"{
,AD.A
SKIPGE S"{(CNA
MOVEM T1,SCNA
>
I'\`;I0uI7P I2s-^O2(P)RI2
MX.A=="UPB
AD.A==C
PD.A==D
I<p 2y3)
..SVLD 3
a:!
D38EFINE OD. <
b:!3X
.POPX>
DEFINE LOOP. <4
JRST a>
48DEFINE TOP. <a> 4X
DEFINE ENDLP4x. <b>
DEFIN5E EXIT. <
JRST b>T. <
JRSTI<uh6P I<v=P I<vNP I>J` "yM
ATBL::D"y8OBLK1(A)
APTR:"yX:XWD -ALEN,ATBL
I>Jh "p=
DEFINE E"nrNTRY.(n1,n2,offse"krt,routine,count,l"qtxt),<EXP <SIXBIT"n /n1'n2/>>
Z ["p:AMAC](P2)
DEFINE"mR ENTRY.(n1,n2,off"rset,routine,count"r8,ltxt),<POINTR(n1"rX'.'n2'offset,n1'n"rx2)>
Z [AMAC](P"s2)
DEFINE ENTRY."s8(n1,n2,offset,rou"sXtine,count,ltxt),"sx<EXP routine>
Z"t @[AMAC](P2)
DE"t8FINE ENTRY.(n1,n2"tX,offset,routine,c"txount,ltxt),<LTXMA"uC(<ltxt>)>
Z ["u8AMAC](P2)
DEFINE"uX ENTRY.(n1,n2,off"uxset,routine,count"v,ltxt),<STXMAC(co"v8unt)>
Z [AMAC]"vX(P2)
DEFINE ENTR"vxY.(n1,n2,offset,r"woutine,count,ltxt"w8),<ALEN==ALEN+1"wX>
ALEN==0
AMAC
I?87 yQ9
XALL
DEFINE X(8$NAME,$PROC,$POINXT,$DEFLT,$MAX,$FLxAGS),<
EXP SIXBIT /$NAME/
>
8AN: SWTCHS
AL=X=.-AN
IFx2,<
DEFINE X($NAME,$PROC,$POINT,$8DEFLT,$MAX,$FLAGSX),<
..TEMP==0
IxRP $POINT,<
IFE ..TEMP-1,<
8$POINT ;$NAME
X >
IFE ..xTEMP-2,<
POINT 36,$POINT,35 ;$NA8ME
>
IFXIDN <$POINT><*P>,x<..TEMP==1>
IFIDN <$POINT><*8F>,<..TEMP==2>
X>
IFB <$POINT>x,<
Z ;$NAME
..TEMP==1>
IFE . 8.TEMP,<
IFN <$PO XINT>_-^D24,<
..T xEMP==$POINT
..T
EMP ;$NAME
>
8IFE ..TEMP,<
PO
XINT 36,$POINT,35
x;$NAME
>
>>>
AP: SWTCHS
8
MX.==0
DXEFINE X($NAME,$PRxOC,$POINT,$DEFLT,
$MAX,$FLAGS),<
I
8F2,<
IFE <$FLAGS
X>&FS.LRG,<IFG <$M
xAX>-377777,<PRINT
>
..TE1
IFN <$FLAGS>&FS.LRG,<IFN <$8MAX>,<..TEMP==0>>X
IFN ..TEMP,<
xXWD $MAX,$PROC ;$NAME
>
IFE ..TE8MP,<
XWD [$MAX]X,$PROC ;$NAME
>x
>
AM: SWTCHS
PD.==0
DE8FINE X($NAME,$PROXC,$POINT,$DEFLT,$xMAX,$FLAGS),<
IF2,<
IFL <$DEFLT>8,<IFN <$DEFLT>+1,X<PRINTX ?DEFAULT xOF /$NAME CANNOT BE NEGATIVE>>
IF8E <$FLAGS>&FS.LRGX,<IFG <$DEFLT>-77x7777,<PRINTX ?DEFAULT OF /$NAME CA8NNOT BE GT 777777X>>
>
IFB <$FLAGxS>,<..TEMR==0>
IFNB <$FLAGS>,<..T8EMR==($FLAGS)>
.X.TEMP==1
IFN <$FxLAGS>&FS.LRG,<IFN <$DEFLT>,<..TEMP8==0>>
IFN ..TEMPX,<
XWD ..TEMR,$xDEFLT ;$NAME
>
IFE ..TEMP,<
XW8D ..TEMR,[$DEFLT]X ;$NAME
>
>
AxD: SWTCHS
PURGE ..TEMP,..TEMR
SALL
ICH@.ICN]7A:$ICN]7I`@ K2
OD.K:%G 45....U~+HK:%L i..0067SYK:&8wP(K:&= #3j;#Np
IFN .#)*.MSK,<..OFF==..OF#ZF+1>
T.B==.#.OFF
IFN FTS#0HOW,DEPHASE
.#P.LOK==..LOK+1
I#pFN ..LOK,<PRINTX #? MISSING BEGSTR>#0
IF2,<
IF#PDEF ...MSK,<SUPPR#pESS ...MSK>
I#FDEF ..BITS,<SUPP#0RESS ..BITS>
#PIFDEF .SIZ,<SUPPR#pESS .SIZ>
IFD#EF ..MSK,<SUPPRES#0S ..MSK>
IFDE#PF ..OFF,<SUPPRESS#p ..OFF>
IFDEF# ..FLG,<SUPPRESS #0..FLG>
IFDEF #P..LOK,<SUPPRESS .#p.LOK>
IFDEF .# .LOC,<SUPPRESS ..# 0LOC>
IFDEF ..# POLD,<SUPPRESS ..O# pLD>
IFDEF ...#!OLD,<SUPPRESS ...#!0OLD>
>
IF1,#!P<
IFDEF ...MS#!pK,<.XCREF ...MSK>#"
"PIFDEF ..BITS#"0,<.XCREF ..BITS>
IFDEF .SIZ,<.#"pXCREF .SIZ>
I##FDEF ..MSK,<.XCRE##0F ..MSK>
IFDE##PF ..FLG,<.XCREF .##p.FLG>
IFDEF .#$.OFF,<.XCREF ..OF#$0F>
$pIFDEF ..LO#$PK,<.XCREF ..LOK>
IFDEF ..LOC,<#%.XCREF ..LOC>
#%0 IFDEF ..OLD,<.XC#%PREF ..OLD>
IF#%pDEF ...OLD,<.XCRE#&F ...OLD>
>
#&0 PURGE WORD,NXTWR#&PD,FILLER,HWORD,FI#&pELD,BIT,FIELDM
#'
T.A==..OFF-0
#'0 IFN FTSHOW,<RELOC ..LOC>HOW,<RE
xiLENF LST IFK:&=G "{j^.ENSV1 <TEMP>.ENSV1 <DLK:l+ `( K:l+ `( K:l:`( KJU\ 4KK "m2
JRST [M"pZOVEI T1,[ASCIZ |"qzA
|]
JRST ERRSTR]
YNT.KK=`(kKKL@ KbNC@ #z
JRST@..00670064,EXIT.(SM:$: `(VM:$:`(RMJ.H1`(zMLuLSQ MLuhvQ MLuiYQ @MLukyQ MLvlXQ MS{P O$:`(O&I`(
O(.:QRORQfI@<Q3=`(HQ8uI7A Q8uI7Q:
IFB <xAB>,<
..SVDF
TRNA
8JRST c
DEFXINE ..TAGF (INST,xPCT)<
INST c'PCT>
DEFINE 8..TAGE (INST,PCT)X<
INST d'PCT> x
>
IFNB <AB>,<
JRST 8c
B
JRST Xd
c:! A
d:!>
c:! A
d:!>S< Y9W
IFB <xA>,<
..SVDF
JRST b
8DEFINE ..TAGF (INXST,PCT)<
INST xb'PCT>
DEFINE ..TAGE (INST,P8CT)<
INST c'PCXT>
>
IFNBx <A>,<
JRST b
A
b:!> bS2d:`(dS2f
Z`(S2fH1`(hS2fK`(iS2fM`(gS:H@ S:Lk`(CYEi`(}Yt:8P Yuj P YH `()Yt}`(Y$- N9<s1_<^D35-^L<A>>1_<^D35-^LY&$]@Q `Y&&,P Y&]{@Q xY&t;Z`(iY&t{v`(hY'-j P'~Y8& P Y>
@ Ny<y
..STR0 O(..LDB,A,B,<C>)LDB,A,B,<C>Y>~@ #:3
JRST ..0066
SYN ..Y?:z`(mYP,MRP YPt)3P YPt+WP YPt,}P YPt;wP YPt=P YPtHSP YPtMRP YPtkP YPuI7P YPuJ2P YPuLzP YPuhXP YPv
WPYPv=PYRk`QxYRxYR$)@P'pYR&i Q @YR5I`Q @YReQ YRt,P'YS q-^O3(P)
YS+`Q |YSH Q 8YSEX1 "xZE
[ASCIZ ~A
~][`([3@ W`5><<<1_<A>>-1>B<B>>_<A>>[uI7P [
A [
[?7 Ta=X
..MX1U==B
U@.IFN U ..MX1,ABSOLUTE,<
MOVE A,[B]>
U` .IF ..MX1,ABSOVLUTE,<
..MX2==0V
IFE <..MX1>BV@53,<
..MX2==1V`
MOVEI A,..MWX1>
IFE ..MX2,W <
IFE <..MX1>W@B17,<
..MX2==W`1
MOVSI A,(.X.MX1)>>
IFE ..X MX2,<
IFE <<.X@.MX1>B53-^O777777X`>,<
Y..MX2==1
HRROI A,<..MY X1>>>
IFE ..MXY@2,<
IFE <<..MY`X1>B17-^O777777B1Z7>,<
..MX2==1Z
Z`HRLOI A,(..Z@MX1-^O777777)>>
IFE ..MX2,<
[ MOVE A,[..MX1]>
>,[..MX1[N8 "i2
JRST [M"mrOVEI T1,[ASCIZ |"pzA
|]
JRST .TSTRG]
.NFS!FS.[N^= _6
A==C _(
IF1,<IFDEF %_HA,<PRINTX ?A ALR_hEADY DEFINED>>
`DEFINE %A (OP,AC`(,Y,MSK)<
$A==<`HZ B>
OP (<AC>,B'Y,MSK)><AC[`pP [`t:P [`t;vP [`tKP [`tLP [`uP @[`u+qP [`v3P [`v:XP [`vKP @\@ ]>$`(b]>$S`(`]>$+@("]>$+`(b]>$:`("]>$P ;]>$\V`(7]>$\Y`([]>&=`(5]?8@`(j]J. Y`(j]J.<`(i]J.`(j]Vh@ _
2`(e_p #:+
..0067:!
.POPX.0_.)P"_.|@P!_@(Xp aa>
.XCREF
IFE <<B>_-^D18>b ,<
.CREF
CAIb@C A,<B>
.XCREb`F
>
IFN <<B>_-c^D18>,<
.CREF
c CAMC A,[B]
c@.XCREF
>
.CREFCREF
>
.CREF_B-i@ _W&=
&`@ `D@ `H@ auI7P a
A a
a
M` a
~] apP at:P at;vP atKP atLP auP au+qP av3P av:XP avKP a``(Da\\Y`(`a^=`(2a?(9`(~a? i@6L<^L<<A>&<-<A>>>><<A>&<aJ<Y@&<aJ=A Iv<aKH1 rQ?
..NUM==rp^D15
REPEAT ^D1s6,<
IFN ..MASKs0 & 1B<..NUM>,<
sP POP P,..NUM>
sp..NUM==..NUM-1
>
==..NUM-1
aKXY`(2aK&h1 t1?-
..TMSK=tP=..MASK
REPEAT tp..NAC,<
..NUM=u=^L<..TMSK>
..u0TMSK==..TMSK-1B<.uP.NUM>
PUSH P,..NUM
>
H P,.aOXY`(AaPuI7P aSXY`(JcRH1`(Ee
tXP e
tKP e
uI7P e
uJ2P e
unPeeeeQ e|=`( pet(9P et)3P et-P et-P et[RP etiQP et|WP euI7P euLzP ev YP ev<P ev
HPevPevIYP evKzP-e`Qee>+`Q el@Q e^Q e$ Q eH Q e] 3eH9`( e ,~e$l@Q e%}Q e&:x "Q2JRST CPOPJ1
vP emy #eN^`(og4X1 zy@+
..DONE{==0
..SACC==0
.{8.NAC==0
..MASK=={X0
IRP <A>,<
{x IFG A-^D15,<PRI|NTX ?SAVEAC(A) I|8S ILLEGAL,
|X PRINTX ?SAVEAC|x CAN ONLY BE USED} ON ACCUMULATORS>}8
IFE A-.SAC,<.}X.SACC==1>
..SYA}xC==A
IFN ~A-.SAC,<IFE ..MAS~8K&1B<..SYAC>,<
~X ..MASK==..MASK!~x1B<..SYAC>
..NAC==..NAC+1>>
8>
IFE ..SACC,<USXRSAV>
IFE ..DOxNE,<
IFLE ..SACC,<JSP .SAC,[>
8 IFG ..SACC,<CALXL [EXCH .SAC,(P)>x
IFG ..NAC-3,<DSAVAC>
8 IFLE ..NAC-3,<XIFG ..NAC,<PSAVACx>>
PUSHJ P,(.SAC)
8TRNA
AOS -X..NAC-..SACC(P)
x IFG ..NAC-3,<DRSTAC>
8 IFLE ..NAC-3,<IFXG ..NAC,<PRSTAC>>x
IFG ..SACC,<POP P,.SAC>
8 POPJ P,]
>X
PURGE ..NAC,..TNxAC,..MASK,..TMSK,..SACC,..NUM,..SM8SK,..DONE,..SYAC
DONE,..SYAC gt7`( xgtz`( wgt:`(gt;v`(gtK`(gtL`(gu`(gu+q`(gu}(`(
gu})`(
gu}1`(
gv3`(gvH2`(gvK`(gvM`(g @ 0g$9`(1g$[`(+g&(h`(;g&(q`(6g&)`(Ag&:Q`(g&;`(%g&<`(Wg&\H`(>g&\X`(=gmy $g&P !g(uI7P
g*g*g*
Qg+-Qg2
X A,0,# <B>,0,0,FS.NOS!C
g:}| 'g?.@ g@ #aR
X A,C$,<B>,PD.D,MX.D,E
gBn8;`(BgC4\@Q !gCL@`( gCL8V`('gCL9`(gCL: `($gCL<zP gCLL`(fgCLL`(dgCLL`(\gCLYP !gCL[`(gCLhw`(fgCL{``(WgCM@`(%gCMZ`(kgCMX@`(gCMY6`(!gCMZ7P gCM\Z`("gCN
P`(/gCN
Y`(-gCN
Z`(#gCN
\`(+gCN
q`(>gCN(q`(gCN)T`(cgCN:Q`(gCN;`(gCN;`()gCN<`(gCNI`(PgCNJ6`(gCNi9P gCNzP gCO
:`(zgR^h9
..STKR=
RADIX 8
..STKN==0
IRP<
.STKV1 (A)>
JSP .A16,.8XSTKS ;Call inteXrnal routine for xallocation
EXP ..STKN ;Size of8 block to allocatXe
RADIX ..STKR
DEFINE ENDSV.<.ENSV1 <A>>
NSV1 <A>>
gR~ YA
..STR0 x(..DPB,A,B,<C>)DPB,A,B,<C>gS@ GgSEX1 "xA
EXP A
gV<`(Yg^=`( _g^= `( bg^=`( ag_$: "V2C
XLIST
"V
;SET-UP SWITCHE"UrS - SET ARGUMENTS"Vr FOR ACTION SWITC"WHES
SP *JOB,SC"W0NJOB,.SWDEC,JOB,F"WPS.NFS!FS.NCM!FS.V"WpRQ
SP *CHANNEL,S"XCNCHN,.SWDEC,CHN,"X0FS.NFS!FS.NCM!FS."XPVRQ
SP ADDRESS,S"XpCNTAD,.SWOCT,SJP,"YFS.NFS!FS.NCM!FS."Y0VRQ!FS.LRG
SP *L"YPENGTH,SCNTLN,.SWD"YpEC,TLN,FS.NFS!FS."ZNCM!FS.VRQ
SP TT"Z0Y,SCNTTY,.SWOCT,J"ZPOB,FS.NFS!FS.NCM!"ZpFS.VRQ
SP NRT,,."[SWNRT,,FS.NCM!FS."[0NFS ;(SETS UP SC"[PNJOB)
SP CTERM,,"[p.SWCTM,,FS.NCM!FS"\.NFS ;(SETS UP S"\0CNJOB)
SP CIRCUI"\PT,,.SWCKT,,FS.NFS"\p!FS.NCM!FS.VRQ
S"]P *INDEX,SCNIDX,."]0SWDEC,IDX,FS.NFS!"]PFS.NCM!FS.VRQ
"]p;ACTION SWITCHES "^- CAUSE A TABLE T"^0O BE DISPLAYED
"^P
SP *SJB,0,SPYSJB"^p
SP *SLB,0,SPYSL"_B
SP *PRA,0,SPYP"_0RA ;[101]
SP *"_PPRS,0,SPYPRS ;["_p101]
SP *PRX,0,S"`PYPRX ;[101]
S"`0P ELB,0,SPYELB "`P;[102]
SP *RCB,0"`p,SPYRCB
SP *AJB,"a0,SPYAJ
SP *MEM,"a00,SPYMEM
SP *MRT"aP,0,SPYMRT
SP *CD"apB,0,SPYCDB
SP *S"bPY,0,SPYSPY
SP *"b0PORT,0,SPYPRT
SP"bP *MB,0,SPYMB
SP "bp*CI,0,SPYCI
SP *"cHN,0,SPYHN
SP CB"c0L,0,SPYCBL
SP *S"cPLT,0,SPYSLT
SP *"cpTDB,0,SPYTDB
SP "d*PSB,0,SPYPSB
SP"d0 *PTB,0,SPYPTB
S"dPP DAYTIME,0,SPYTI"dpM
;COSMETIC SW"eITCHES - AFFECT T"e0HE NATURE OF THE "ePDISPLAY
SP *EX"epIT,,SPYXIT,,FS.NC"fM!FS.NFS
SN DPY,"f0SCNDPY,FS.NCM!FS."fPNFS
SP PAGE,SCNP"fpAG,.SWDEC,PAG,FS."gNFS!FS.NCM!FS.VRQ"g0
SN COMMENT,SCNC"gPOM,FS.NCM!FS.NFS
SP DELAY,SCNDLY,"h.SWDEC,DLY,FS.NFS"h0!FS.NCM!FS.VRQ
LIST
g_$@`(6g_%@P g_%P`($g_%``(g_&`(h XPQ h XUQ h YP h YP"h YVP h Y[Q h ZP h [2Q h [XP!h [ZP$h [\Q h [zQ h \Q @h \SQ h \\P @h \pQ h \rP h \sQ h \tQ @h \xP @h ]sQ h ]uP h ^P h:Y`P h:
HP h:
IP h:
IP
h:
JP
h:+qP
h:5I`P h:MX<P h:MmP h:d[@P h:elP h:f=P h:fN8P h:myP h:my P h:|kP h:}X<P h:~|WP h;|P h;I7P h;z2P h;P h;P h; XPP h; XUP h; YP h; YP h; YVP h; Y[P h; ZP h; [2P h; [XP h; [ZP h; [\P h; [zP h; \P h; \SP h; \\P h; \pP h; \rP h; \sP h; \tP h; \xP h; ]sP h; ]uP h; ^P h;$:P h;$: P h;$I;P h;$LP h;$M6P h;$]P h;$hwP
h;&
P h;&
sP
h;&
tP h;&86P h;&=XP h;&N8P h;&Y1P h;&[P h;&\P h;<lUP
h;MHtP h;MK2P hD@ hH@ hL@ hP@ i;vP
iZP
im6Pi<PiF$QiF$0`( EiF$@QiF$`QiF%QiF&`( MiF(``( IiUx@Q xi
`P'i3'Q xi6|D Q i6|D@Q i>5I`Q @i>lP i?` O..0066 .i?>+@Q @iB>
`QxiBd[@QxiC=P'~iNP,H6P$iP,IQ iP,M6P iP,kQ iP,muQ iP-
Q iP-Y9Q iP-lQ @iP-m9Q iP-nQ iP-|xQ @iP-}Q iP.
VQ iP.)SQ iP..Q iP.86Q @iP.91P!iP.9SQ iP.:Q iP.<P iP.ySQ @iP.zqP @iP/ SP"iR
=`(~iR Q |iR@Q |iR$]@Q iR&
tQ iR&[ P iR.LQ iR4;ZP'iR4\Y`(
iR5H Q @iRL=Q iRM@Q iRM}:Q iRN
tQ |iRd:`P iReRQ iRej`Q iRu@Q <iRu} Q `iR|;@Q @iR|=Q iR}@Q iR}^Q iR}}:Q iR~
tQ xiSj`Q xiS`P iS9UP'iS: Q iS Q iSlQ iS'Q xiS,X`Q iS-KQ iS.`Q `iSH@ 2iSL,`(eiSLlQ`(
iSMT`( yiSM)W`(BiSMxS`(diSM}(`(
iSM})`(
iSM}1`(
i^6*`P'ifd:Q xifeYQ
if|,}P ig`(~ig@`(?igH`(BigI`(GigJ`(Oig(H`( ig+`( ig+ `( ig+ `( ig+`(
ig+`( ig,s`( ig8VA ig8Vig9`(ig:`(uig: `(digL`(gig[`(iglH`(iglR`(ig@`(}ig+q`(pig,x`(sigX@`(_igY(`(^igY)`(cigY)`(gigY*`(nigY6`(Xig\H`(Sig\Z`(Hig]`( /ig] `( 8ig]`( .ig
PA ig
Pig
YA ig
Yig
Z`(ig
\A ig
\ig
qA ig
qigig(q`($ig)1`(ig:Q`(ig;`(ig;A ig;ig<`(:igH1`( igH2`(xigHH`( igHQ`( igHV`( 9igI`(igJ6`(igM`(wkO8; B[o @ o& ,Ba<^L<-<<A><^L<A>>>-1>>>p #?JK
EXP 0
"m [ASCIZ /Genrl /]#Z
[ASCIZ /Termnl#x/]
[ASCIZ /DECn# et/]
[ASCIZ /Ti# 8mer /]
[ASCIZ /Units /]
,..TAq
d8@`(vq)tVPq:t)3Pqkt+zPqt;wPquI7Pq{uLzPquMvP qum6Pq[vQ ?xq#L@Q q#\ P'q#@P'q6~i4 C qB,Zb KqB,Z|`(XqB\+`(?qJ. Y`(lqJ.<`(kqJ.`(k d Q eMP 2LI;P 2LLXP 2M;wP 2N[TP 3&Q ~ JKP JJ2P J. YP J.<P J.P N,:P NT:P NT:P NU^P
NV
ZP R-\Q S$;P N+<P eM ui_0
$DLLTP=v
=<Z 6>
A (<B>,6C,D)A (<2LI; = cj
$LIDEV==*=<Z 0>
A (<B>,0C,D)A (<2LLX =icp
$LIDRP=>
=<Z 0>
A (<B>,0C,D)A (<2M;w >Icv
$LIKON=>j=<Z 0>
A (<B>,0C,D)A (<2N[T @ d
$LIUNI=@*=<Z 0>
A (<B>,0C,D)A (<3$+W #Kra
$LTBNO=#L=<Z 2>
A (<B>,2C,D)e>+`3$,} #IRO
$LTBSZ=#Ip=<Z 1>
A (<B>,1C,D)
3$;w #CZ
$LTCON=#Cx=<Z 1>
A (<B>,1C,D)
3$= #F"4
$LTCTY=#F@=<Z 1>
A (<B>,1C,D)
3$HS #Gb@
$LTDBF=#H=<Z 1>
A (<B>,1C,D)
3$MR #A:
$LTDVE=#AX=<Z 1>
A (<B>,1C,D)TS==.3$k #@z
$LTFLG=#A=<Z 1>
A (<B>,1C,D)
3%J2 #@2
$LTLID=#@P=<Z 0>
A (<B>,0C,D)I>J`3%hX #Ns
$LTNBP=#N0=<Z 2>
A (<B>,2C,D)gC4\@3&
W #Dr)
$LTPRO=#E=<Z 1>
A (<B>,1C,D)
3&= #Bz
$LTSTA=#C=<Z 1>
A (<B>,1C,D)
JK 'Ij>
$RCDLB='j=<Z 2>
A (<B>,2C,D)A (<JJ2 -Ijn
$RCLID=-j=<Z 1>
A (<B>,1C,D)A (<J,(9 #42%
$REBAS=#4P=<Z 0>
A (<B>,0C,D)J,- #8bH
$REBTB=#9=<Z 5>
A (<B>,5C,D)J,- #9RO
$REBTL=#9p=<Z 6>
A (<B>,6C,D)J,[R #5",
$REEND=#5@=<Z 1>
A (<B>,1C,D)J,iQ #;2]
$REFFB=#;P=<Z 10>
A (<B>,10C,D)J,|W #7rA
$REGRO=#8=<Z 4>
A (<B>,4C,D)J. Y #>r
$REPFR=#> =<Z 13>
A (<B>,13C,D)JwJ.< #<"d
$REPMX=#<@=<Z 11>
A (<B>,11C,D)uJ.
H #7:
$REPR1=#7 =<Z 3>
A (<B>,3C,D)J. #=k
$REQTA=#=0=<Z 12>
A (<B>,12C,D)>=J.IY #:BV
$RETFR=#:`=<Z 7>
A (<B>,7C,D)J.Kz #63
$RETOT=#60=<Z 2>
A (<B>,2C,D)NT: _in
$SJCHC=`
=<Z 2>
A (<B>,2C,D)A (<NT: `In
$SJCHT=`j=<Z 1>
A (<B>,1C,D)A (<NU^ ein0
$SJMXP=f
=<Z 24>
A (<B>,24C,D) (<NV
Z hinH
$SJPRT=i
=<Z 23>
A (<B>,23C,D) (<R
H $
j h
$TCHR1=$
A (<B>,26C,D)7R
I$
$TCHR2=$
A (<B>,27C,D)?R
I $J v
$TCHR3=$h=<Z 30>
A (<B>,30C,D)dR
J $: }
$TCHR4=$X=<Z 31>
A (<B>,31C,D)R+q $ " L
$TCJOB=$ @=<Z 24>
A (<B>,24C,D) \\R5I` #Q
$TFLG==#Qb<Z 0>
A (<B>,0C,D)gCNi9RMX< #uZ2
$TIMAX=#v"=<Z 5>
A (<B>,5C,D)[`v:XRMm #g26
$TINTL=#fj=<Z 1>
A (<B>,1C,D)SIZRel $B .
$TLNPS=$`=<Z 22>
A (<B>,22C,D) [ZRfN8 #m"l
$TLTYP=#m@=<Z 2>
A (<B>,2C,D)I<v=Rmy $"
$TMOD1=$@=<Z 15>
A (<B>,15C,D)L: Rmy $
$TMOD2=$0=<Z 16>
A (<B>,16C,D)MY6R|k $ 3
$TOFLG=$8=<Z 23>
A (<B>,23C,D)@R}X< #vj:
$TOMAX=#w*=<Z 5>
A (<B>,5C,D)`7R~|W #r*
$TOWRN=#rr=<Z 5>
A (<B>,5C,D)YPuhXS| $R '
$TPGPS=$p=<Z 22>
A (<B>,22C,D) YSI7 $ D
$TPLEN=$J=<Z 23>
A (<B>,23C,D)Sz2 #|Jh
$TPWID=#}
=<Z 11>
A (<B>,11C,D)JS #oZ
$TSALC=#p=<Z 2>
A (<B>,2C,D)`HS #njz
$TSALT=#o*=<Z 2>
A (<B>,2C,D)`CS XP #ZS
$TT%BAC#Z8==<Z 0>
A (<B>,0C,D)S XU #\c
$TT%BKO#\8==<Z 0>
A (<B>,0C,D)S Y #bJ
$TT%DAL#bh==<Z 0>
A (<B>,0C,D)S Y #^
r
$TT%DD1#^(==<Z 0>
A (<B>,0C,D) "S YV #`r
$TT%FLO#a==<Z 0>
A (<B>,0C,D)S Y[ #U+
$TT%FWK#U8==<Z 0>
A (<B>,0C,D)S Z #aj
$TT%HPO#b==<Z 0>
A (<B>,0C,D)S [2 #S
$TT%MES#S8==<Z 0>
A (<B>,0C,D)S [X #_z
$TT%NPM#_ ==<Z 0>
A (<B>,0C,D)SFyS [Z #]k
$TT%NUS#]0==<Z 0>
A (<B>,0C,D)R9S [\ #[[
$TT%NXO#[8==<Z 0>
A (<B>,0C,D) S [z #T#
$TT%OTP#T8==<Z 0>
A (<B>,0C,D)?S \ #YK
$TT%PRM#Y8==<Z 0>
A (<B>,0C,D)VS \S #W;
$TT%RFG#W8==<Z 0>
A (<B>,0C,D)kS \\ #_z
$TT%RXF#`==<Z 0>
A (<B>,0C,D)S \p #O2
$TT%SAL#PZ==<Z 0>
A (<B>,0C,D).SIZS \r #d
"
$TT%SEC#d(==<Z 0>
A (<B>,0C,D)S \s #V3
$TT%SFG#V8==<Z 0>
A (<B>,0C,D)dS \t #P2
$TT%SHT#P==<Z 0>
A (<B>,0C,D)CN
PS \x #eJ.
$TT%SPG#eh==<Z 0>
A (<B>,0C,D)S ]s #XC
$TT%WFG#X8==<Z 0>
A (<B>,0C,D)6S ]u #dj(
$TT%WKC#e==<Z 0>
A (<B>,0C,D)S ^ #c*
$TT%XFF#cH==<Z 0>
A (<B>,0C,D)S$: $B!P
$TTCH1=$
=<Z 35>
A (<B>,35C,D)sS$: $R!Y
$TTCH2=$=<Z 35>
A (<B>,35C,D)S$I; #pb
$TTDEV=#q=<Z 4>
A (<B>,4C,D)Y&t{vS$L $
$TTDPSI$ ==<Z 17>
A (<B>,17C,D)
qS$M6 $B >
$TTDUM=$b=<Z 23>
A (<B>,23C,D) XPS$] $2!G
$TTETP=$z=<Z 35>
A (<B>,35C,D)fS$hw $z!
$TTFCNT$b==<Z 32>
A (<B>,32C,D))8S$k $"!>
$TTFLA=$j=<Z 35>
A (<B>,35C,D)S%z #yBN
$TTICT=#yj=<Z 12>
A (<B>,12C,D)SIZS%7 #2}
$TTIIN=#P=<Z 14>
A (<B>,14C,D)S%z #~Bv
$TTIOUT#~`==<Z 13>
A (<B>,13C,D)LS% $!
$TTIPSI$J==<Z 32>
A (<B>,32C,D)S%Hu #gRA
$TTLCK=#h=<Z 0>
A (<B>,0C,D)S%J7 $:!
$TTLINE$X==<Z 33>
A (<B>,33C,D)oS%KU $b
$TTLNK=$=<Z 21>
A (<B>,21C,D)$@S%j7 #s:
$TTNIN=#t=<Z 5>
A (<B>,5C,D)YR5I`S%kz #tJ)
$TTNOU=#u=<Z 5>
A (<B>,5C,D)[N^=S%xw #iRQ
$TTOCN=#j=<Z 1>
A (<B>,1C,D)PS%xz #r
$TTOCT=#qB=<Z 6>
A (<B>,6C,D)SIZS%z7 #xbH
$TTOIN=#y=<Z 10>
A (<B>,10C,D)tKS%{< #jbZ
$TTOMX=#k*=<Z 1>
A (<B>,1C,D)`mS%{z #wrA
$TTOOUT#x==<Z 7>
A (<B>,7C,D)
2S%| $!
$TTOPSI$Z==<Z 32>
A (<B>,32C,D)]S& U $
Z
$TTPFK=$(=<Z 25>
A (<B>,25C,D)
#}:o
$TTPPC=#}z=<Z 11>
A (<B>,11C,D)fS&
s $z a
$TTPSFK$
==<Z 25>
A (<B>,25C,D)
S&
t $r
$TTPSI=$=<Z 20>
A (<B>,20C,D)NIS&86 #mbt
$TTSAL2#nJ==<Z 3>
A (<B>,3C,D)QS&=X $z!&
$TTSVPD$b==<Z 36>
A (<B>,36C,D)IZS&N8 #krc
$TTTYP=#l:=<Z 1>
A (<B>,1C,D)`|S&Y1 $!,
$TTUEC=$J=<Z 34>
A (<B>,34C,D)S&[ $!5
$TTULL=$Z=<Z 34>
A (<B>,34C,D)$S&\ #z*W
$TTUPC=#zr=<Z 11>
A (<B>,11C,D)t(9S<lU $
S
$TWFRK=$
0=<Z 24>
A (<B>,24C,D) ]uSMHt #{:`
$TYLCH=#|=<Z 11>
A (<B>,11C,D)v YSMK2 #hBH
$TYLMD=#i
=<Z 1>
A (<B>,1C,D)P bDV #+ra
$XHAVL=#,=<Z 2>
A (<B>,2C,D)bD+z #*S
$XHBOT=#*0=<Z 0>
A (<B>,0C,D)bD;w #."t
$XHCON=#.@=<Z 4>
A (<B>,4C,D)
bEMv #,jh
$XHLWM=#-=<Z 3>
A (<B>,3C,D)bEm6 #/z
$XHNUM=#/ =<Z 4>
A (<B>,4C,D)
bF+Z
$XHPTR=#+ =<Z 1>
A (<B>,1C,D)bF)8 #-Zo
$XHREQ=#-x=<Z 3>
A(<B>,3C,D)bF:= #1:
$XHSIZ=#1X=<Z 4>
A (<B>,4C,D)8u\uQ 08u{Q |9 4!....UZ9 45....U~+H9 F:....U=|R9
F8....Ut<H9
p(69 4!....UZ9( 45....U~+H9( F:....U=|R9) F8....Ut<H9)p(=9*p(E9* "Z}
..TAGE "|z(JRST,)
..TAG"iF (,<:!>)
SYN"{J ..TAGE,..TAGF
"oR DEFINE ELSE. <....U>ELSE.
9+ #ZY
..TAGF "k(,<:!>)
..RSDF
SYN .9+ #?x
A ..0013B..0010009H "nRu
A..0014B010,ENDIF. 4!....UZ9J 45....U~+H9J F:....U=|R9K F8....Ut<H9Kp(s9h 4!....UZ9i 45....U~+H9i F:....U=|R9j F8....Ut<H9jp(v9k 4!....UZ9 45....U~+H9 F:....U=|R9 F8....Ut<H9 p(z9
4!....UZ9 45....U~+H9 F:....U=|R9( F8....Ut<H9(p(89) 4!....UZ9* 45....U~+H9* F:....U=|R9+ F8....Ut<H9+p( j9Kp( q9Kp( u:Q |:h C
A:8`P :;@P :&@ 1!C
..TSIZ 1@(..PST,C)
.CAS1`E ..PST,<<
MOV2EM A,B>,<
HR2 RM A,B>,<
HR2@LM A,B>,<
DP2`B A,[POINT WID(<3C>),B,POS(<C>)]>>B,POS(<C>):5I`Q :Mi 6aCF
DEFINE 7ELSE. <
..TAGE 7 (JRST,)
..TAG7@F (,<:!>)
SYN7` ..TAGE,..TAGF
8 DEFINE ELSE. <8 ....U>>
DEFI8@NE ENDIF. <
..T8`AGF (,<:!>)
..RSDF>
.:dH@ EaD<
..TSIZ F(..PST,C)
.CASF E ..PST,<<
MOVF@E A,B>,<
HRRF`Z A,B>,<
HLRGZ A,B>,<
LDBG A,[POINT WID(<G@C>),B,POS(<C>)]>>B,POS(<C>)]:ex`P(:ez`P :n:`P :o P`(KQ8uI7:o@P :|i@P :}IQ |;=P ;9 Dn
.POPX;JwP ;JxP ;JyP ;LH N!E
IFNDEF N@C,<PRINTX ?C ISN` NOT DEFINED
OA (<B>,<D>,.FWO ORD)>
IFDEF CO@,<
IFNDEF %C,<O`
A (<B>,<DP>,C)>
IFDEF %P C,<
%C (A,<B>,<D>,C)>>;i aaF
SYN ELSbE.,a
SYN ENDIFb .,b
SYN ..TAGFb@,c
SYN ..TAGE,b`d
.PSHX <
cSYN a,ELSE.
c SYN b,ENDIF.
c@ SYN c,..TAGF
c` SYN d,..TAGE>
..INDF
NDF
;k dAF6
SYN OD.d`,a
SYN LOOP.,eb
SYN TOP.,c
e SYN EXIT.,d
Se@YN ENDLP.,e
.Pe`SHX <
SYN a,OfD.
SYN b,LOOPf .
fSYN c,TOP.
SYN d,EXIT.
f` SYN e,ENDLP.> SYN e,ENDLP.>;$r F8....Ut<H;$s F:....U=|R;&:= qaG
A==3 r
IFE <B>+1,<r A=0>
IFE <B>-r@^O777777,<A==1> r`
IFE <B>-^O777777B17,<A==2>7
`P 9 !ID
..CSN==@A
..CSC==0
I`RP B,<
IFE ..CSN-..CSC,<
ST OPI
..CAS1 (@B)>
..CSC==..CSC+1>..CSC==..CSS@P Z I\
XLIST
LOC 0
COPYRT@ A
.IFN .,`ABSOLUTE,<PRINTX ?.CPYRT, COPYRIGH T IS NOT ABSOLUTE@>
IFGE .-^O`22,<PRINTX %COPYRIGHT DOESN'T FIT IN SINGLE REL BLO@CK>
RELOC
LIST
SALL
LIS,;[A ,;[F;P$=|RQ '87A '87*D A *D *i9` /2DQ x:$(zP :$)6P :$,uP :$,vP :&(QP :&(RP :&(UP :&(ZP :&)P >K[A >K[?87A ?87B~ -qJo
.PSHX1 (.POPX2).PSHX1 B~ .1Js
.POPX4 A
.POPX4 B~ .qJ}
A
/DEFINE .PSHX1 (WC/0H,STUFF)<
WCH (/P<<STUFF>,<B>>)><STUFF>,<B>>)>B~
0K
.POPX3 B
.POPX3 C7P CzP C87A C87C 0QK
.PSHX1 (.PSHX2,<A>)1 C %;+X
A (<<B>,<>>){MLukyC 1QK
DEFIN1pE .PSHX1 (WCH,STU2FF)<
WCH (<<STUFF>,<A>>)><STUJDP'N
0P NO
{A NO
{NO P Nv
|P O%=H 6AK4
.STKV2 (A)
.STKV2 O%=I 7KL
IFB <B7 >,<..STKN==..STKN7@+1>
IFNB <B>,<7`
...X==B
IF28,<.IFN ...X,ABSOL8 UTE,<PRINTX ?STKV8@AR A, B is not 8`absolute>>
..ST9KN==..STKN+...X>
..STKQ==..STKN+9@1
.STKV3 (A,\..STKQ)V3 (A,\.O%=I :KZ
IFDEF: A,<.IF A,SYMBO:@L,<PRINTX STKVAR :`A ALREADY DEFINE;D>>
DEFINE A<-; ^OB(P)>
$A==<Z A>>
$A==<O<:z`( ]O<=`( uO<I1A O<I1O=lZ`( vO=xzA O=xzR{v`( >R9A R9R
L`( LR
Y`( BR=`( RR{A R{R{0A R{0R+A R+R$Xr`( PR$X{A R$X{RL:A RL:R|=A R|=S[A S[S,UA S,USA SS1A S1SLSA SLSS$QA S$QS%2A S%2S%7A S%7S&N `( @SFyA SFy[87A [87cVP c;HP c;IP ckQP cI7P cX2P c 5P cX2P cJyA cJy>}{woP