( PROOT ported by Bill Wickes from the HP-71 Math ROM to HP 48 )
( unthreaded/disassembled manually by Joe Horn )
ASSEMBLE
	NIBASC \HPHP48-E\
RPL
::
 CK1NoBlame CK&DISPATCH1 FOUR
 ::
  DUP
  ASSEMBLE
	CON(5)	#358F
	CON(5)	#3F95
RPL
  EQ  case  SETTYPEERR  DUP  ARSIZE  DUPTWO  #<  casedrop
  ASSEMBLE
	CON(5)	#37DE2
RPL
  DUP#1-  ONE{}N  C%0  MAKEARRY  UNROT  # 2A  #*  # 287  #+
  ASSEMBLE
	CON(5)	#3742D
RPL
  CODE
	HS=0	3
	D1=D1+	10
	D=D+1	A
	D=D+1	A
	GOSBVL	=SAVPTR
	D1=D1-	10
	A=DAT1	A
	D0=A
	D0=D0+	10
	AD0EX
	R4=A
	D1=D1+	10
	A=DAT1	A
	D0=A
	D0=D0+	15
	D0=D0+	5
	A=DAT0	A
	R1=A
	D0=D0+	5
	AD0EX
	R3=A
	D1=D1-	5
	A=DAT1	A
	D0=A
	D0=D0+	15
	A=DAT0	A
	A=A-1	A
	?A=0	A
	GOYES	P10	+00005
	D0=D0+	5
P10	D0=D0+	10
	AD0EX
	R2=A
	A=R4
	D1=A
	A=R1
	DAT1=A	A
	D1=D1+	5
	DAT1=A	A
	D1=D1+	7
	A=R3
	DAT1=A	A
	AD1EX
	LCHEX	00266
	A=A+C	A
	D1=A
	LCHEX	90000
	CR2EX
	D0=C
P20	A=DAT0	W
	D0=D0+	16
	SETDEC
	GOSBVL	=SPLITA
	GOSUBL	P1120	+00D87
	C=R2
	P=	4
	?C=A	P
	GOYES	P30	+0000A
	?C#0	P
	GOYES	P40	+0000A
	GONC	P50	+0000A
P30	?C>=A	A
	GOYES	P50	+00005
P40	R2=A
P50	GOSBVL	#0CA88
	A=R1
	A=A-1	A
	R1=A
	GONC	P20	-00040
	P=	0
	C=0	S
	GOSUBL	P690	+00B4C
	C=0	S
	GOSUBL	P730	+00BA1
	A=R2
	LCHEX	00480
	P=	4
	?A#0	P
	GOYES	P60	+00007
	?C<=A	A
	GOYES	P110	+00061
P60	SETDEC
	C=C-A	A
	GOTO	P80	+0000C
P70	P=	0
	LCHEX	99988
P80	R0=C
	GOSUBL	P530	+00A2A
	C=DAT1	A
	R1=C
	D1=A
P90	GOSUBL	P1160	+00D22
	?B=0	W
	GOYES	P100	+00015
	SETDEC
	C=R0
	A=A+C	A
	GOSUBL	P760	+00B86
	GOSUBL	P1110	+00CEA
P100	GOSBVL	#0CA88
	C=R1
	C=C-1	A
	R1=C
	GONC	P90	-0002E
	C=0	S
	C=C+1	S
	GOSUBL	P690	+00ACE
P110	C=0	S
	C=C+1	S
	GOSUBL	P730	+00B20
	C=R4
	D1=C
	C=DAT1	A
	C=C-1	A
	C=C-1	A
	GOC	P120	+0002B
	C=C-1	A
	GONC	P130	+00055
	GOSUBL	P1700	+010B5
	GOSUBL	P1800	+012F4
	GOSUBL	P680	+00A34
	GOSUBL	P1410	+00E4C
	GOSUBL	P900	+00BC2
	GOLONG	P680	+00A26
P120	GOSUBL	P530	+0099A
	D1=A
	GOSUBL	P1180	+00CA6
	GOSUBL	P1160	+00C92
	SETDEC
	A=-A-1	S
	GOSUBL	P650	+009ED
	C=0	W
	R0=C
	R1=C
	GOLONG	P680	+009F7
P130	A=DAT1	A
	GOSUBL	P1920	+01458
	GOSBVL	=SPLITA
	GOSUBL	P1370	+00DCF
	GOSUBL	P1700	+0104C
	GOSUBL	P1780	+01178
	GOSUBL	P1160	+00C50
	GOSUBL	P540	+00958
	C=R4
	D1=C
	C=DAT1	A
	GOSUBL	P1580	+00EF3
	GOSUBL	P1680	+00FE3
	C=0	A
	GOSUBL	P1580	+00EE5
	SETDEC
	GOSBVL	=RCCD0
	GOSBVL	=DIVF
	A=0	S
	GOSBVL	#2B698
	GOSBVL	=RCCD2
	GOSBVL	=DIVF
	GOSBVL	#2B6AA
	GOSUBL	P1790	+0120C
	GOSUBL	P1150	+00BEC
	C=0	W
	D=0	W
	P=	14
	D=D+1	P
	D=D+1	M
	GOSUBL	P620	+0092D
	GOSUBL	P1110	+00BB8
	GOSUBL	P1280	+00C79
	D0=C
P140	GOSUBL	P530	+008C2
	C=DAT1	A
	C=C-1	A
	D1=A
	A=0	W
	B=0	W
	GOSUBL	P1130	+00BA2
	GOSUBL	P1160	+00BAF
	A=0	S
	D0=D0-	16
	D0=D0-	5
	GOSUBL	P1130	+00B8D
P150	R3=C
	GOSUBL	P1170	+00B9E
	SETDEC
	GOSUBL	P630	+008E5
	GOSUBL	P1060	+00B33
	GOSUBL	P1190	+00B98
	GOSUBL	P600	+008B2
	GOSUBL	P1140	+00B6A
	GOSUBL	P1170	+00B78
	GOSUBL	P1060	+00B15
	GOSUBL	P630	+008BB
	GOSUBL	P1180	+00B6D
	C=0	S
	AR3EX
	?A#0	A
	GOYES	P160	+00005
	C=-C-1	S
P160	AR3EX
	GOSUBL	P600	+0087D
	GOSUBL	P1130	+00B2F
	GOSBVL	#0CA88
	C=R3
	C=C-1	A
	GONC	P150	-0006B
	SETDEC
	GOSUBL	P1190	+00B40
	GOSUBL	P650	+0088B
	A=-A-1	S
	GOSUBL	P1190	+00B31
	GOSBVL	=STCD0
	GOSUBL	P600	+00844
	GOSUBL	P1130	+00AF6
	D0=D0-	16
	D0=D0-	5
	GOSUBL	P570	+00820
	GOSUBL	P790	+00997
	GOC	P170	+00006
	GOTO	P140	-000DC
P170	GOSUBL	P550	+007FF
	C=0	W
	C=C-1	A
	D=0	W
	D=D-1	M
	GOSUBL	P620	+00828
	GOSUBL	P1380	+00C4B
	GOSUBL	P990	+00A37
	GOSUBL	P1160	+00AC7
	SETDEC
	GOSUBL	P630	+00815
	D=0	W
	C=0	W
	P=	11
	LCHEX	1445
	CDEX	W
	GOSUBL	P620	+007F7
	GOSUBL	P1790	+010B6
	GOSUBL	P1150	+00A96
	GOSUBL	P1310	+00BAB
	A=0	W
	B=0	W
	GOSUBL	P1120	+00A70
	GOSUBL	P1120	+00A6A
	C=0	A
	GOSUBL	P1580	+00D34
	A=0	S
	GOSUBL	P1340	+00BBF
	C=R4
	D1=C
	D1=D1+	10
	C=0	B
	DAT1=C	B
P180	GOSUBL	P1460	+00C7B
	GOSUBL	P1680	+00E06
	GOSUBL	P1010	+009CD
	GOSUBL	P1180	+00A5A
	GOSBVL	=STCD2
	GOSUBL	P790	+008DF
	GOC	P190	+00006
	GOTO	P420	+00546
P190	GOSUB	P550	+00749
	GOSUB	P670	+007A4
	GOSUBL	P1680	+00DD8
	GOSUB	P580	+00750
	GOSUBL	P790	+008C0
	GOC	P210	+0004A
	C=R4
	D1=C
	D1=D1+	10
	C=DAT1	B
	?C#0	B
	GOYES	P200	+00019
	GOSUBL	P1530	+00C86
	GOSUB	P510	+006E2
	GOSUB	P550	+00713
	GOSUBL	P790	+00898
	GONC	P210	+00022
P200	GOSUB	P550	+00706
	GOSUBL	P1350	+00B42
	SETDEC
	GOSUB	P580	+0070F
	GOSUB	P650	+00747
	GOSUBL	P980	+00939
	GOSUBL	P930	+00901
P210	C=R4
	D1=C
	D1=D1+	10
	C=0	S
	C=C+1	S
	DAT1=C	S
	P=	0
	LCHEX	0A4
	GOSUBL	P1570	+00C57
	D0=C
	GOSUBL	P1000	+00921
	D1=D1+	16
	D1=D1+	5
	LCHEX	6
P220	GOSUBL	P1160	+0099D
	GOSUBL	P1140	+0098A
	C=C-1	P
	GONC	P220	-00010
P230	GOSUBL	P1430	+00B66
	GOSUB	P510	+00667
	GOSUBL	P1160	+00981
	GOSUB	P540	+0068B
	GOSUBL	P890	+00888
	SETDEC
	GOSUB	P600	+006A6
	GOSUBL	P820	+0082E
	GOSUB	P580	+00691
	GOSUB	P600	+00698
	GOSUBL	P820	+00820
	GOSUBL	P1020	+008DE
	GOSUBL	P860	+00842
P240	GOSUBL	P1450	+00B5D
	SETDEC
	C=0	W
	C=C-1	A
	D=0	W
	P=	14
	D=D+1	P
	D=D+1	P
	GOSUB	P620	+00684
	GOSUBL	P1030	+008BC
	GOSUBL	P1180	+00937
	C=0	S
	GOSUBL	P790	+007C0
	GOC	P250	+00006
	GOTO	P310	+00144
P250	GOSUBL	P990	+0087D
	GOSUBL	P1160	+0090D
	GOSUBL	P1680	+00CB5
	A=0	W
	B=0	W
	GOSUBL	P1120	+008E1
	GOSUBL	P1270	+00991
	D0=C
	GOSUB	P530	+005E7
	C=DAT1	A
	C=C-1	A
	R2=C
	C=C+1	A
	D1=A
	GOSUBL	P1160	+008DB
	CD1EX
	R3=C
	CD1EX
	GOSUBL	P1130	+008B9
	GOSUBL	P1610	+00BAE
	GOTO	P290	+0005D
P260	GOSUBL	P1170	+008C3
	SETDEC
	GOSUB	P610	+00601
	GOSUBL	P1070	+00860
	GOSUBL	P1190	+008BF
	GOSUB	P600	+005DB
	GOSUB	P760	+00718
	GOC	P270	+0002F
	GOSUBL	P1140	+0088C
	GOSUBL	P1070	+00843
	GOSUBL	P1170	+00894
	GOSUB	P610	+005D4
	D1=D1-	16
	D1=D1-	5
	GOSUBL	P1180	+0088B
	GOSUB	P600	+005AE
	GOSUB	P760	+006EB
	GONC	P280	+00006
P270	GOTO	P70	-004D2
P280	GOSUBL	P1130	+00855
P290	GOSUBL	P1150	+0085C
	SETDEC
	GOSUB	P610	+005A7
	AR3EX
	AD1EX
	GOSUBL	P1180	+0085E
	AD1EX
	AR3EX
	GOSUB	P600	+0057B
	GOSUB	P760	+006B8
	GOC	P270	-00031
	GOSUBL	P1120	+0081F
	GOSBVL	#0CA88
	C=R2
	C=C-1	A
	R2=C
	GOC	P300	+00006
	GOTO	P260	-0009C
P300	C=0	W
	R0=C
	R1=C
	GOSUB	P540	+00524
	GOSUBL	P1170	+00817
	GOSUB	P1070	+007BC
	GOSUBL	P1190	+0081B
	D0=D0-	16
	D0=D0-	5
	GOSUB	P800	+006B3
	GOSUBL	P850	+006DC
	GOSUB	P800	+006A9
	GOSUB	P560	+0050A
	GOSUB	P800	+006A1
	A=0	S
	GOSUBL	P1340	+0092D
	ST=0	0
	GOLONG	P1720	+00BF7
P310	GOSUB	P990	+0073E
	GOSUB	P890	+006E1
	GOSUB	P540	+004DA
	GOSUBL	P1910	+00F97
	GOSUBL	P1680	+00B6E
	GOSUB	P560	+004D8
	GOSUB	P660	+00525
	GOSUBL	P1290	+0086F
	D0=C
	GOSUB	P870	+006A0
	GOSUB	P530	+004A0
	C=DAT1	A
	D1=A
	A=C	A
	C=C-1	A
	R2=C
	C=C-1	A
	RSTK=C
	C=A	A
	GOSUB	P1160	+00790
	AD1EX
	R3=A
	AD1EX
	GOSUBL	P1610	+00A69
	GOSUB	P1050	+00721
	C=0	W
	DAT0=C	W
	D0=D0+	16
	DAT0=C	W
	D0=D0+	16
	DAT0=C	W
	D0=D0+	10
	GOSUB	P1140	+00754
	DAT0=C	W
	D0=D0+	16
	DAT0=C	A
	D0=D0+	5
	GOSUB	P1090	+00717
P320	A=R2
	?A#0	A
	GOYES	P330	+00020
	CD1EX
	R0=C
	GOSUBL	P1470	+00964
	C=R0
	D1=C
	GOSUB	P1070	+006E2
	GOSUB	P1140	+00721
	GOTO	P350	+00020
P330	C=RSTK
	RSTK=C
	?C>A	A
	GOYES	P340	+00010
	GOSUB	P1070	+006CD
	D1=D1-	16
	D1=D1-	5
	GOTO	P380	+000AF
P340	D0=D0-	16
	D0=D0-	5
P350	GOSUB	P1190	+0071E
	GOSUB	P1040	+0069D
	GOSUB	P880	+00602
	GOSUB	P1130	+006EA
	SETDEC
	GOSUB	P820	+005BA
	GOSUB	P620	+00442
	GOSUB	P820	+005B2
	GOSUB	P1090	+006B2
	GOSUB	P630	+0043D
	A=-A-1	S
	GOSUB	P590	+00411
	A=-A-1	S
	GOSUB	P1070	+00689
	GOSUB	P1190	+006EA
	GOSUB	P600	+00406
	GOSUB	P1050	+00671
	GOSUB	P760	+0053F
	GONC	P360	+00006
	GOTO	P70	-0067E
P360	GOSUB	P1140	+006B1
	D0=D0+	16
	D0=D0+	5
	GOSUB	P880	+005B5
	GOSUB	P1130	+0069D
	GOSUB	P820	+0056F
	D0=D0+	16
	D0=D0+	5
	GOSUB	P630	+003F8
	GOSUB	P820	+00561
	GOSUB	P1070	+0064A
	GOSUB	P630	+003EC
	A=-A-1	S
	GOSUB	P590	+003C0
	A=-A-1	S
	GOSUB	P990	+005F2
	GOSUB	P1180	+00692
	GOSUB	P600	+003B5
	GOSUB	P1060	+00626
	GOSUB	P760	+004EE
	GONC	P370	+00006
	GOTO	P70	-006CF
P370	GOSUB	P1140	+00660
	D0=D0+	16
	D0=D0+	5
P380	GOSUB	P1160	+00663
	SETDEC
	GOSUB	P630	+003B3
	AR3EX
	AD1EX
	GOSUB	P1180	+00661
	AD1EX
	AR3EX
	GOSUB	P600	+0037E
	GOSUB	P1190	+0065A
	GOSBVL	=STCD0
	C=RSTK
	RSTK=C
	D=C	A
	C=R2
	?D<C	A
	GOYES	P390	+0001F
	GOSUB	P820	+004EF
	GOSUB	P990	+00592
	GOSUB	P1180	+00632
	D1=D1+	16
	D1=D1+	5
	GOSUB	P620	+00369
	A=-A-1	S
	GOSUB	P590	+00344
P390	GOSUB	P760	+00485
	GONC	P400	+00008
	GOLONG	P70	-00739
P400	GOSUB	P1120	+005E8
	GOSBVL	#0CA88
	C=R2
	C=C-1	A
	R2=C
	GOC	P410	+00006
	GOTO	P320	-00161
P410	C=RSTK
	GOSUB	P1070	+00596
	GOSUB	P1140	+005D5
	GOSUB	P990	+00548
	GOSUB	P1160	+005DA
	GOSUBL	P1680	+00982
	GOSUBL	P1480	+00801
	GOSUB	P540	+002D8
	GOSUB	P1390	+00749
	GOSUB	P870	+004B7
	SETDEC
	GOSUB	P610	+00307
	GOSUB	P1140	+005AB
	GOSUB	P560	+002D0
	GOSUB	P640	+0030E
	GOSUB	P540	+002BA
	GOSUB	P660	+00315
	GOSUB	P660	+00311
	A=-A-1	S
	GOSUB	P1040	+00535
	CD0EX
	D0=C
	D1=C
	GOSUB	P930	+004BC
	GOSUB	P1160	+0058C
	GOSUB	P1190	+0059D
	GOSUB	P600	+002B9
	GOSUB	P1130	+0056D
	GOSUB	P1160	+0057C
	C=0	W
	D=0	W
	P=	14
	LCHEX	3
	CDEX	P
	GOSUB	P620	+002B9
	GOSUB	P1190	+0057B
	GOSUB	P600	+00297
	GOSUB	P1240	+005C9
	GOSUB	P620	+002A9
	CD1EX
	CD0EX
	CD1EX
	GOSUB	P1070	+004FD
	GOSUB	P1130	+00536
	GOSUB	P560	+00261
	GOSUB	P660	+002AE
	A=-A-1	S
	D0=D0+	16
	D0=D0+	5
	GOSUB	P630	+0028A
	GOSUB	P1180	+0053E
	GOSUB	P600	+00261
	GOSUB	P1070	+004D8
	GOSUB	P1190	+00539
	GOSUB	P1130	+0050D
	GOSUB	P990	+00486
	GOSUB	P1160	+00518
	GOSUB	P620	+00263
	GOSUB	P660	+0027D
	GOSUB	P1140	+004FF
	GOSUB	P880	+00409
	GOSUBL	P1860	+00CAB
	GOSUB	P1340	+0064A
	ST=1	0
	GOLONG	P1720	+00914
P420	C=R4
	D1=C
	D1=D1+	10
	C=DAT1	S
	?C#0	S
	GOYES	P430	+00006
	GOTO	P460	+000AB
P430	SETDEC
	A=0	W
	A=A-1	A
	B=0	W
	P=	14
	LCHEX	5
	B=C	P
	P=	0
	LCHEX	0CE
	GOSUB	P920	+003EA
	D1=D1+	16
	D1=D1+	5
	GOSUB	P1160	+004B8
	GOSUB	P610	+001FF
	GOSUB	P1110	+00490
	GOSUB	P540	+001BA
	D1=D1+	16
	D1=D1+	5
	GOSUB	P890	+003B3
	GOSUBL	P1860	+00C45
	GOSUBL	P1680	+00844
	GOSUB	P580	+001BC
	GOSUB	P600	+001C3
	GOSUB	P570	+001AD
	GOSUB	P790	+00326
	?B=0	WP
	GOYES	P440	+00006
	GOTO	P230	-00511
P440	GOSUB	P1030	+00406
	GOSUB	P1160	+00475
	GOSUBL	P1680	+0081D
	GOSUB	P1030	+003F8
	GOSUB	P1160	+00467
	GOSUB	P640	+001C1
	GOSUB	P540	+0016D
	GOSUB	P1400	+005E9
	SETDEC
	GOSUB	P580	+0017F
	GOSUB	P620	+001A0
	GOSUB	P570	+00170
	GOSUB	P520	+00134
	GOSUB	P790	+002E5
	GOC	P450	+00006
	GOTO	P480	+000C2
P450	GOVLNG	#10F40
P460	D1=D1+	1
	C=DAT1	S
	?C#0	S
	GOYES	P470	+00055
	C=C+1	S
	DAT1=C	S
	GOSUB	P1520	+00695
	SETDEC
	GOSUB	P640	+00178
	GOSUB	P510	+000F6
	GOSUB	P1160	+00412
	GOSUB	P540	+0011C
	GOSUB	P650	+00170
	GOSUB	P1300	+00510
	GOSUB	P1020	+00389
	GOSUB	P890	+0030F
	GOSUB	P980	+00358
	GOSUB	P860	+002E7
	GOSUB	P1020	+00379
	GOSUB	P1180	+003FC
	SETDEC
	GOSUB	P560	+00104
	GOSUB	P650	+0014A
	GOSUB	P960	+00332
	GOSUB	P930	+00308
	GOTO	P240	-00576
P470	GOSUB	P1470	+005FC
	GOSUB	P900	+002E5
	GOSUB	P830	+00296
	GOSUB	P1010	+00343
	GOSUB	P1160	+003C4
	C=0	W
	P=	12
	LCHEX	125
	D=C	W
	C=0	M
	C=-C-1	S
	GOSUB	P520	+00098
	GOSUB	P650	+0010F
	GOSUB	P1680	+00753
	A=0	W
	B=0	W
	P=	14
	B=B+1	P
	GOSUB	P820	+00259
	GOSUB	P1650	+006CA
	GOSUB	P1320	+004AE
	GOSUB	P870	+0027F
	GOSBVL	#0CA88
	GOTO	P240	-005CF
P480	GOSUB	P1470	+005A3
	GOSUB	P900	+0028C
	C=R1
	?C=0	W
	GOYES	P490	+00019
	C=R0
	SETDEC
	C=-C-1	S
	R0=C
	GOSUB	P680	+000DB
	GOSUB	P1470	+00584
	GOSUB	P900	+0026D
P490	GOSUB	P680	+000CF
	C=C-1	A
	R0=C
	GOSUB	P1590	+0060B
	D0=C
	C=R0
	GOSUB	P1630	+00639
	C=R0
P500	GOSUB	P1160	+0033A
	GOSUB	P1140	+00329
	RSTK=C
	GOSBVL	#0CA88
	C=RSTK
	C=C-1	A
	GONC	P500	-00016
	GOLONG	P110	-009C8
P510	C=B	W
	D=C	W
	C=A	W
	RTN
P520	BCEX	W
	CDEX	W
	BCEX	W
	ACEX	W
	RTN
P530	SETHEX
	A=R4
	D1=A
	P=	0
	LCHEX	00272
	A=A+C	A
	RTN
P540	GOVLNG	=STAB2
P550	GOVLNG	=RCAB0
P560	GOVLNG	=RCAB2
P570	GOVLNG	=RCCD0
P580	GOVLNG	=RCCD2
P590	GOSUB	P570	-00012
P600	CD0EX
	RSTK=C
	CD0EX
	GOSBVL	=RADDF
	C=RSTK
	D0=C
	RTN
P610	GOSUB	P570	-0002C
P620	GOVLNG	=MULTF
P630	GOSUB	P1190	+002BB
	GOTO	P620	-0000C
P640	GOSUB	P510	-00082
	GOTO	P620	-00014
P650	GOVLNG	=DIVF
P660	GOVLNG	#2BBD9
P670	GOVLNG	#2BBBC
P680	SETDEC
	GOSBVL	=PACK
	GOSUB	P820	+0013B
	GOSBVL	=PACK
	AR0EX
	C=R4
	D1=C
	D1=D1+	12
	C=DAT1	A
	D0=C
	DAT0=A	W
	D0=D0+	16
	A=R0
	DAT0=A	W
	D0=D0+	16
	GOSBVL	#0CA88
	CD0EX
	DAT1=C	A
	D1=D1-	12
	C=DAT1	A
	C=C-1	A
	DAT1=C	A
	?C#0	A
	RTNYES
	P=	0
	GOSBVL	=GETPTR
	A=DAT0	A
	D0=D0+	5
	PC=(A)
P690	A=R4
	A=C	S
	R4=A
	D1=A
	C=DAT1	A
P700	R0=C
	GOSUB	P1580	+004C0
	?B#0	W
	RTNYES
	CD1EX
	D0=C
	C=R0
	GOSUB	P1100	+001C8
	C=D	A
	GOSBVL	=MOVEDOWN
	A=0	W
	C=R4
	?C=0	S
	GOYES	P710	+0000D
	A=A+1	M
	P=	14
	B=B+1	P
	GONC	P720	+0000D
P710	SETDEC
	GOSBVL	#2A141
	SETHEX
P720	GOSUB	P1680	+00576
	GOSUB	P680	-000C1
	GOTO	P700	-0004C
P730	A=R4
	A=C	S
	R4=A
P740	C=0	A
	GOSUB	P1580	+00469
	?B#0	W
	RTNYES
	A=0	W
	C=R4
	?C=0	S
	GOYES	P750	+0000E
	P=	14
	B=B+1	P
	SETDEC
	A=A-1	A
	A=0	X
P750	GOSUB	P1680	+0053F
	GOSUB	P680	-000F8
	GOC	P740	-0002B
P760	SETDEC
	C=A	A
	C=C+C	A
	P=	0
	LCHEX	05000
	GOC	P770	+00009
	?C<=A	A
	RTNYES
	RTN
P770	C=-C	A
	?C>A	A
	GOYES	P780	+00004
	RTN
P780	A=0	W
	B=0	W
	RTNCC
P790	SETDEC
	C=-C-1	S
	GOSUB	P600	-00174
	P=	14
	?B=0	WP
	RTNYES
	?A=0	S
	RTNYES
	RTN
P800	GOSUB	P1140	+00138
P810	GOSUB	P820	+00004
	GOSUB	P1140	+00130
P820	GOVLNG	=EXAB0
P830	GOSUB	P1210	+00175
	GOTO	P810	-00014
P840	GOSUB	P1240	+00195
	GOSUB	P1130	+00113
	GOSUB	P1170	+00129
	GOSUB	P820	-0001F
	GOSUB	P1130	+00107
P850	A=C	W
	C=D	W
	B=C	W
	RTN
P860	GOSUB	P1120	+000F1
P870	GOSUB	P820	-00036
	GOSUB	P1120	+000E9
	GOTO	P820	-0003B
P880	GOSUB	P1170	+00102
	GOSUB	P1680	+004A5
	GOSUB	P1170	+000FA
	GOTO	P820	-0004B
P890	GOSUB	P1160	+000EB
P900	GOSUB	P1680	+00495
	GOSUB	P1160	+000E3
	GOTO	P820	-0005B
P910	GOSUB	P950	+0001D
	GONC	P930	+00006
P920	GOSUB	P1570	+00376
P930	SETDEC
	GOSUB	P1680	+0047C
	GOSUB	P940	+00000
P940	GOSUB	P1160	+000C6
	GOSUB	P610	-001F3
	GOTO	P1110	+000A1
P950	A=0	W
	B=0	W
	P=	14
	B=B+1	P
	B=B+1	P
	RTN
P960	D1=D1-	16
	D1=D1-	5
P970	D1=D1-	16
	D1=D1-	5
P980	D1=D1-	16
	D1=D1-	5
	D1=D1-	16
	D1=D1-	5
P990	D1=D1-	16
	D1=D1-	16
	D1=D1-	10
	RTN
P1000	D1=D1+	16
	D1=D1+	5
P1010	D1=D1+	16
	D1=D1+	5
	D1=D1+	16
	D1=D1+	5
P1020	D1=D1+	16
	D1=D1+	5
P1030	D1=D1+	16
	D1=D1+	16
	D1=D1+	10
	RTN
P1040	D0=D0-	16
	D0=D0-	5
	D0=D0-	16
	D0=D0-	5
P1050	D0=D0-	16
	D0=D0-	5
P1060	D0=D0-	16
	D0=D0-	5
P1070	D0=D0-	16
	D0=D0-	16
	D0=D0-	10
	RTN
P1080	D0=D0+	16
	D0=D0+	5
	D0=D0+	16
	D0=D0+	5
P1090	D0=D0+	16
	D0=D0+	16
	D0=D0+	10
	RTN
P1100	D=C	A
	DSL	A
	D=D+C	A
	C=C+C	A
	D=D+C	A
	D=D+C	A
	RTN
P1110	D1=D1-	16
	D1=D1-	5
P1120	GOVLNG	#2C066
P1130	D0=D0-	16
	D0=D0-	5
P1140	GOVLNG	=PUTAB0
P1150	D1=D1-	16
	D1=D1-	5
P1160	GOVLNG	=GETAB1
P1170	GOVLNG	=GETAB0
P1180	GOVLNG	#2C017
P1190	GOVLNG	=GETCD0
	P=	0
	LCHEX	00209
	GOTO	P1220	+00026
	P=	0
	LCHEX	0021E
	GOTO	P1220	+00019
P1200	P=	0
	LCHEX	0025D
	GOTO	P1220	+0000C
P1210	P=	0
	LCHEX	001F4
P1220	D=C	A
	C=R4
	SETHEX
	C=C+D	A
	SETDEC
	D0=C
	GOTO	P1140	-00068
P1230	P=	0
	LCHEX	00209
	GOTO	P1250	+0000C
P1240	P=	0
	LCHEX	001F4
P1250	D=C	A
	C=R4
	SETHEX
	C=C+D	A
	SETDEC
	D0=C
	GOTO	P1190	-0006E
P1260	P=	0
	LCHEX	011
	GOTO	P1540	+001FD
	P=	0
	LCHEX	026
	GOTO	P1540	+001F2
P1270	P=	0
	LCHEX	03B
	GOTO	P1540	+001E7
P1280	P=	0
	LCHEX	050
	GOTO	P1540	+001DC
	P=	0
	LCHEX	065
	GOTO	P1540	+001D1
P1290	P=	0
	LCHEX	07A
	GOTO	P1540	+001C6
	P=	0
	LCHEX	08F
	GOTO	P1540	+001BB
	P=	0
	LCHEX	0A4
	GOTO	P1540	+001B0
	P=	0
	LCHEX	0B9
	GOTO	P1540	+001A5
	P=	0
	LCHEX	0CE
	GOTO	P1540	+0019A
	P=	0
	LCHEX	0E3
	GOTO	P1540	+0018F
	P=	0
	LCHEX	0F8
	GOTO	P1540	+00184
P1300	P=	0
	LCHEX	10D
	GOTO	P1540	+00179
P1310	P=	0
	LCHEX	122
	GOTO	P1540	+0016E
P1320	P=	0
	LCHEX	137
	GOTO	P1540	+00163
	P=	0
	LCHEX	14C
	GOTO	P1540	+00158
P1330	P=	0
	LCHEX	161
	GOTO	P1540	+0014D
	P=	0
	LCHEX	176
	GOTO	P1540	+00142
P1340	P=	0
	LCHEX	18B
	GOTO	P1540	+00137
P1350	P=	0
	LCHEX	1A0
	GOTO	P1540	+0012C
P1360	P=	0
	LCHEX	1B5
	GOTO	P1540	+00121
P1370	P=	0
	LCHEX	1CA
	GOTO	P1540	+00116
P1380	P=	0
	LCHEX	1DF
	GOTO	P1540	+0010B
P1390	P=	0
	LCHEX	1F4
	GOTO	P1540	+00100
P1400	P=	0
	LCHEX	011
	GOTO	P1550	+000FD
P1410	P=	0
	LCHEX	026
	GOTO	P1550	+000F2
	P=	0
	LCHEX	03B
	GOTO	P1550	+000E7
P1420	P=	0
	LCHEX	050
	GOTO	P1550	+000DC
	P=	0
	LCHEX	065
	GOTO	P1550	+000D1
	P=	0
	LCHEX	07A
	GOTO	P1550	+000C6
	P=	0
	LCHEX	08F
	GOTO	P1550	+000BB
P1430	P=	0
	LCHEX	0A4
	GOTO	P1550	+000B0
	P=	0
	LCHEX	0B9
	GOTO	P1550	+000A5
	P=	0
	LCHEX	0CE
	GOTO	P1550	+0009A
	P=	0
	LCHEX	0E3
	GOTO	P1550	+0008F
P1440	P=	0
	LCHEX	0F8
	GOTO	P1550	+00084
P1450	P=	0
	LCHEX	10D
	GOTO	P1550	+00079
P1460	P=	0
	LCHEX	122
	GOTO	P1550	+0006E
P1470	P=	0
	LCHEX	137
	GOTO	P1550	+00063
P1480	P=	0
	LCHEX	14C
	GOTO	P1550	+00058
P1490	P=	0
	LCHEX	161
	GOTO	P1550	+0004D
	P=	0
	LCHEX	176
	GOTO	P1550	+00042
P1500	P=	0
	LCHEX	18B
	GOTO	P1550	+00037
	P=	0
	LCHEX	1A0
	GOTO	P1550	+0002C
P1510	P=	0
	LCHEX	1B5
	GOTO	P1550	+00021
P1520	P=	0
	LCHEX	1CA
	GOTO	P1550	+00016
P1530	P=	0
	LCHEX	1DF
	GOTO	P1550	+0000B
P1540	GOSUB	P1570	+00013
	GOTO	P1120	-002AA
P1550	GOSUB	P1570	+0000B
	GOTO	P1160	-00298
P1560	P=	0
	LCHEX	026
P1570	SETHEX
	P=	3
	LCHEX	00
	P=	0
	D=C	A
	C=R4
	C=C+D	A
	D1=C
	RTN
P1580	GOSUB	P1590	+00004
	GOTO	P1160	-002BD
P1590	SETHEX
	D=C	A
	C=R4
	D1=C
	C=DAT1	A
	C=C-D	A
	GOSUB	P1100	-00301
	P=	0
	LCHEX	00272
P1600	D=D+C	A
	CD1EX
	C=C+D	A
	D1=C
	RTN
P1610	GOSUB	P1630	+0000C
	GOTO	P1120	-00307
P1620	GOSUB	P1630	+00004
	GOTO	P1160	-002F5
P1630	SETHEX
	D=C	A
	C=R4
	D1=C
	C=DAT1	A
	D=C-D	A
	D1=D1+	5
	C=DAT1	A
	C=C+D	A
	GOSUB	P1100	-00341
	P=	0
	LCHEX	00282
	GOTO	P1600	-00041
P1640	GOSUB	P1240	-002B9
	GOSUB	P600	-005F3
	GOSUB	P820	-00469
	GOSUB	P1190	-0031B
	GOSUB	P600	-005FF
	GOTO	P820	-00472
P1650	GOSUB	P1200	-00306
P1660	GOSUB	P1230	-002E2
	GOSUB	P620	-005F5
	GOSUB	P540	-0063A
	GOSUB	P550	-00637
	GOSUB	P1070	-003A0
	GOSUB	P630	-005FE
	GOSUB	P580	-0062E
	GOSUB	P600	-00627
	GOSUB	P820	-0049D
	A=-A-1	S
	GOSUB	P630	-00611
	GOSUB	P540	-0065D
	GOSUB	P1070	-003BF
	GOSUB	P1170	-0036C
	GOSUB	P1080	-003BC
	GOSUB	P630	-00625
	GOSUB	P580	-00655
	GOTO	P600	-0064B
P1670	GOSUB	P1200	-00351
	GOSUB	P820	-004C8
	A=-A-1	S
	GOSUB	P540	-00684
	GOSUB	P1910	+0043B
	P=	14
	?B#0	WP
	GOYES	P1690	+0001A
	B=0	S
	B=B+1	P
	C=0	W
	P=	3
	LCHEX	5
	A=C	W
P1680	GOVLNG	=STAB0
P1690	GOSUB	P1070	-00409
	GOSUB	P1140	-003CA
	GOSUB	P560	-006A5
	GOSUB	P1680	-00017
	GOSUB	P1170	-003C2
	GOSUB	P1660	-00091
	GOSUB	P1070	-00421
	GOSUB	P1190	-003C0
	GOSBVL	=STCD2
	GOSUB	P650	-0067A
	GOSUB	P820	-00521
	GOSUB	P580	-006BE
	GOSUB	P650	-00686
	GOTO	P820	-0052A
P1700	GOSUB	P1560	-00159
	D0=C
	C=0	A
	LCHEX	2
	GOSUB	P1590	-00140
	C=0	W
	R0=C
	R1=C
	LCHEX	2
P1710	GOSUB	P1160	-00410
	GOSUB	P800	-0055D
	C=C-1	A
	GONC	P1710	-0000B
	RTN
P1720	GOSUB	P970	-004C7
	GOSUB	P890	-00512
	SETDEC
	GOSUB	P1860	+00380
	GOSUB	P1680	-0007F
	C=R4
	D1=C
	C=DAT1	A
	SETHEX
	C=C-1	A
	R2=C
	C=C+1	A
	GOSUB	P1620	-00153
	A=0	S
P1730	SETDEC
	GOSUB	P610	-00701
	GOSUB	P1180	-00442
	C=0	S
	GOSUB	P600	-00722
	GOSBVL	#0CA88
	C=R2
	C=C-1	A
	R2=C
	GONC	P1730	-00021
	SETDEC
	?ST=0	0
	GOYES	P1740	+00006
	GOSUB	P660	-00707
P1740	P=	0
	LCHEX	00013
	A=A-C	A
	GOSUB	P1260	-003FD
	GOSUBL	P540	-0077B
	GOSUB	P1500	-00239
	GOSUBL	P510	-007B3
	GOSBVL	=EXAB2
	GOSUB	P790	-005FE
	GONC	P1750	+00008
	GOLONG	P480	-00822
P1750	C=R4
	D1=C
	D1=D1+	10
	C=DAT1	S
	?C=0	S
	GOYES	P1760	+0001F
	GOSUB	P1440	-002B6
	GOSUBL	P580	-00799
	GOSUBL	P520	-007DE
	GOSUB	P790	-0062D
	GONC	P1760	+00008
	GOLONG	P420	-009C7
P1760	GOSUB	P1780	+00048
	GOSUB	P990	-00574
	GOSUB	P1160	-004E2
	GOSUBL	P540	-007DA
	GOSUB	P960	-0059A
	GOSUB	P890	-005DF
	GOSUB	P1860	+002B5
	GOSUBL	P510	-0081A
	GOSBVL	=EXAB2
	GOSUBL	P600	-007D2
	GOSUBL	P580	-007E3
	GOSUB	P790	-00671
	?B#0	WP
	GOYES	P1770	+00008
	GOLONG	P480	-00897
P1770	GOLONG	P180	-00F82
P1780	GOSUB	P1420	-00377
	GOSUB	P900	-00615
	GOSUB	P830	-00664
	GOSUB	P890	-00621
	GOSUB	P1670	-001B3
	GOSUB	P1330	-00404
	GOSUB	P870	-00649
	GOSUB	P1020	-005BB
	GOSUB	P1180	-00538
	GOSBVL	=STCD2
	SETDEC
	GOSUB	P950	-00611
	GOSUBL	P650	-007F3
	A=-A-1	S
	GOSBVL	=RADD1
	GOSUB	P960	-00615
	GOSUB	P930	-0063F
	GOSUBL	P560	-00855
	GOSBVL	=RSUB1
	P=	0
	LCHEX	050
	GOSUB	P920	-0065B
	GOSUBL	P560	-0086D
	GOSUBL	P610	-00844
	GOSUBL	P670	-00821
	GOSUB	P930	-0066D
	GOSUB	P1800	+00098
	GOSUB	P830	-006D7
	GOSUB	P1490	-00367
	GOSUB	P900	-00694
	GOSUB	P1650	-00275
	GOSUBL	P540	-008A5
	GOSUB	P1520	-00342
	SETDEC
	GOSBVL	=RSUB1
	GOSUBL	P580	-0089C
	GOSUBL	P600	-00897
	GOSUB	P1670	-0024D
	GOSUB	P960	-00682
	GOSUB	P860	-006E7
	GOSUB	P1860	+001CD
	D1=D1+	16
	D1=D1+	5
	GOSUB	P1120	-00600
	GOSUBL	P540	-008DE
	GOSUB	P1420	-00441
	GOSUB	P900	-006DF
	SETDEC
	GOSUB	P1860	+001AF
	GOSUB	P1360	-0049C
	GOSUB	P1160	-00602
	SETDEC
	GOSUB	P1900	+001C2
	GOSUBL	P580	-008E4
	GOSUBL	P620	-008C5
P1790	GOSUBL	P1680	-0026C
	GOSUB	P1510	-003B4
	GOSUBL	P570	-00901
	GOSUB	P790	-00788
	RTNNC
	GOSUBL	P550	-0091C
	GOTO	P1110	-00652
P1800	GOSUB	P1560	-0039E
	GOSUB	P910	-0071C
	GOSUB	P1030	-006B4
	GOSUB	P910	-00724
	GOSUB	P960	-006F7
	GOSUBL	P890	-0073E
	GOSUBL	P830	-0078B
	GOSUB	P1030	-006CC
	GOSUB	P890	-0074C
	GOSUB	P1650	-00329
	GOSUB	P1820	+000C4
	GOSUB	P1050	-006C5
	GOSUBL	P800	-007B8
	GOSUB	P980	-00715
	GOSUB	P890	-00766
	GOSUBL	P830	-007B3
	GOSUB	P1650	-00349
	GOSUBL	P830	-007BD
	GOSUBL	P880	-0078C
	GOSUB	P1640	-00371
	GOSUB	P1830	+000A2
	D0=D0+	16
	D0=D0+	5
	GOSUBL	P800	-007EA
	GOSUB	P990	-0073B
	GOSUBL	P890	-0079A
	GOSUB	P1820	+0007A
	GOSUBL	P830	-007EB
	GOSUBL	P630	-00965
	GOSUBL	P820	-007FE
	GOSUBL	P630	-00971
	GOSUBL	P590	-0099C
	C=A	S
	GOSUB	P1070	-00724
	GOSUBL	P880	-007D9
	?C=0	S
	GOYES	P1810	+00006
	GOSUB	P1820	+00046
P1810	GOSUB	P1640	-003C7
	GOSUBL	P830	-00823
	GOSUBL	P980	-00795
	GOSUBL	P890	-007E8
	GOSUB	P1670	-0037A
	GOSUBL	P990	-00799
	GOSUBL	P860	-00818
	GOSUB	P1030	-00780
	GOSUBL	P890	-00802
	GOSUBL	P840	-00847
	GOSUB	P1670	-0039A
	GOSUBL	P980	-007C5
	GOLONG	P860	-00834
P1820	A=-A-1	S
	C=R0
	C=-C-1	S
	R0=C
	RTN
P1830	GOSUBL	P540	-00A2F
	GOSUBL	P820	-00880
	GOSUB	P1210	-00704
	GOSUB	P1860	+0005E
	?B#0	W
	GOYES	P1840	+00006
	GOTO	P1680	-003A3
P1840	GOSUBL	P580	-00A30
	C=0	S
	GOSUBL	P600	-00A2E
	GOSUBL	P670	-009F5
	GOSUB	P1900	+0005D
	GOSUB	P1680	-003C3
	GOSUBL	P660	-00A0A
	D0=D0-	16
	D0=D0-	5
	GOSUB	P1190	-0076C
	GOSUBL	P520	-00A9C
	GOSUBL	P650	-00A27
	C=R2
	?C=0	S
	GOYES	P1850	+00010
	C=R0
	C=A	S
	R0=C
	A=0	S
	RTN
P1850	GOLONG	P820	-008E2
P1860	P=	14
	C=R1
	?C#0	WP
	GOYES	P1880	+00007
P1870	A=0	S
	RTN
P1880	?B#0	WP
	GOYES	P1890	+0000B
	GOSUBL	P550	-00AAE
	GONC	P1870	-00011
P1890	GOSUB	P1910	+00007
P1900	GOVLNG	#2BA0F
P1910	GOSUBL	P640	-00A79
	GOSUBL	P820	-0091A
	GOSUBL	P640	-00A85
	GOLONG	P590	-00AB4
P1920	LCHEX	19
	B=0	W
P1930	B=B+B	W
	SETHEX
	A=A+A	A
	SETDEC
	GONC	P1940	+00005
	B=B+1	W
P1940	C=C-1	B
	GONC	P1930	-00013
	P=	5
	A=A-1	X
P1950	A=A+1	X
	BSRC
	?B#0	WP
	GOYES	P1950	-00009
	BSR	W
	A=B	M
	A=0	S
	RTN
ENDCODE
 ;
;