General Information

Field	Value
Brass Version	1.0.4.1
Source File	C:\Portable Programs\Latenite\Projects\MathTI83\Includes\Headers.asm
Total Source Files	17
Page Count	1

Custom ASCII Mapping

ASCII Characters ($00 to $FF)
$00		$20		$40		$60	$80		$A0	î	$C0	ε	$E0
$01		$21		$41		$61	$81		$A1	ï	$C1	[	$E1
$02		$22		$42		$62	$82		$A2	Ó	$C2	λ	$E2
$03		$23		$43		$63	$83		$A3	Ò	$C3	μ	$E3
$04		$24	⁴	$44		$64	$84		$A4	Ô	$C4	π	$E4
$05		$25		$45		$65	$85		$A5	Ö	$C5	ρ	$E5
$06		$26		$46		$66	$86		$A6	ó	$C6	Σ	$E6
$07		$27		$47		$67	$87		$A7	ò	$C7	σ	$E7
$08	∫	$28		$48		$68	$88		$A8	ô	$C8	τ	$E8
$09	×	$29		$49		$69	$89		$A9	ö	$C9	φ	$E9
$0A		$2A		$4A		$6A	$8A	Á	$AA	Ú	$CA	Ω	$EA
$0B		$2B		$4B		$6B	$8B	À	$AB	Ù	$CB		$EB
$0C		$2C		$4C		$6C	$8C	Â	$AC	Û	$CC		$EC
$0D		$2D		$4D		$6D	$8D	Ä	$AD	Ü	$CD		$ED
$0E	³	$2E		$4E		$6E	$8E	á	$AE	ú	$CE	…	$EE
$0F		$2F		$4F		$6F	$8F	à	$AF	ù	$CF		$EF
$10	√	$30		$50		$70	$90	â	$B0	û	$D0		$F0
$11		$31		$51		$71	$91	ä	$B1	ü	$D1		$F1
$12	²	$32		$52		$72	$92	É	$B2	Ç	$D2		$F2
$13		$33		$53		$73	$93	È	$B3	ç	$D3		$F3
$14	°	$34		$54		$74	$94	Ê	$B4	Ñ	$D4		$F4
$15		$35		$55		$75	$95	Ë	$B5	ñ	$D5		$F5
$16		$36		$56		$76	$96	é	$B6	´	$D6		$F6
$17	≤	$37		$57		$77	$97	è	$B7	`	$D7		$F7
$18	≠	$38		$58		$78	$98	ê	$B8	¨	$D8		$F8
$19	≥	$39		$59		$79	$99	ë	$B9	¡	$D9	χ	$F9
$1A		$3A		$5A		$7A	$9A	Í	$BA		$DA		$FA
$1B		$3B		$5B	θ	$7B	$9B	Ì	$BB	α	$DB		$FB
$1C	→	$3C		$5C		$7C	$9C	Î	$BC	β	$DC		$FC
$1D		$3D		$5D		$7D	$9D	Ï	$BD	γ	$DD		$FD
$1E	↑	$3E		$5E		$7E	$9E	í	$BE	Δ	$DE		$FE
$1F	↓	$3F		$5F		$7F	$9F	ì	$BF	δ	$DF		$FF

Output

Address	Output	Source
C:\Portable Programs\Latenite\Projects\MathTI83\Program.asm
Page 0
4080	FD	set appRetKeyOff, (IY + APIFlg)
4081	CB 28 FE	set appRetKeyOff, (IY + APIFlg)
4084	FD CB 0D CE	set appTextSave, (IY + appFlags)
4088	FD CB 0D D6	set appAutoScroll, (IY+appFlags)
408C	FD CB 0A AE	res FmtReal, (IY + FmtFlags)
4090	FD CB 0A BE	res FmtPolar, (IY + FmtFlags)
4094	FD CB 0A F6	set FmtRect, (IY + FmtFlags)
4098	11 01 01	ld DE, $0101
409B	D5	push DE
409C	EF 40 45	rst 28h\ .dw _clrLCDfull
409F	D1	pop DE
C:\Portable Programs\Latenite\Projects\MathTI83\DispMenu.asm
40A0	21 31 72	ld HL, TitleLength
40A3	4E	ld C, (HL)
40A4	41	ld B, C
40A5	21 01 00	ld HL, $0001
40A8	22 D7 86	ld (pencol), HL
40AB	21 32 72	ld HL, titles
40AE	79	ld A, C
40AF	90	sub B
40B0	3C	inc A
40B1	BA	cp D
40B2	CC 64 41	call Z, SetTI
40B5	CD AC 6E	call VPutS
40B8	FD CB 05 9E	res TextInverse, (IY + TextFlags)
40BC	3A D7 86	ld A, (pencol)
40BF	3C	inc A
40C0	32 D7 86	ld (pencol), A
40C3	10 E9	djnz TitleDispLoop
40C5	D5	push DE
40C6	4A	ld C, D
40C7	21 4E 72	ld HL, optionLengths
40CA	AF	xor A
40CB	0D	dec C
40CC	28 04	jr Z, OptionBreakLengthLoop
40CE	86	add A, (HL)
40CF	23	inc HL
40D0	18 F9	jr OptionLengthLoop
40D2	4E	ld C, (HL)
40D3	21 55 72	ld HL, options
40D6	47	ld B, A
40D7	B7	or A
40D8	28 08	jr Z, Option0LoopSkip
40DA	23	inc HL
40DB	7E	ld A, (HL)
40DC	B7	or A
40DD	20 FB	jr NZ, Option0Loop
40DF	23	inc HL
40E0	10 F8	djnz Option0Loop
40E2	41	ld B, C
40E3	1E 01	ld E, $01
40E5	3E 00	ld A, $00
40E7	C6 06	add A, $06
40E9	57	ld D, A
40EA	ED 53 D7 86	ld (pencol), DE
40EE	CD AC 6E	call VputS
40F1	10 F4	djnz OptionDispLoop
40F3	D1	pop DE
40F4	CD F3 41	call SelectOptionE
C:\Portable Programs\Latenite\Projects\MathTI83\Program.asm
40F7	D5	push DE
40F8	EF 70 45	rst 28h\ .dw _RunIndicOff
40FB	EF 72 49	rst 28h\ .dw _GetKey
40FE	D1	pop DE
40FF	FE 03	cp kUp
4101	CA C6 41	jp Z, MoveUp
4104	FE 04	cp kDown
4106	CA D8 41	jp Z, MoveDown
4109	FE 02	cp kLeft
410B	CA 34 42	jp Z, MoveLeft
410E	FE 01	cp kRight
4110	CA 41 42	jp Z, MoveRight
4113	FE 8F	cp k1
4115	38 17	jr C, Skip
4117	4A	ld C, D
4118	06 00	ld B, 0
411A	21 4E 72	ld HL, optionLengths
411D	09	add HL, BC
411E	2B	dec HL
411F	47	ld B, A
4120	7E	ld A, (HL)
4121	C6 8F	add A, k1
4123	4F	ld C, A
4124	78	ld A, B
4125	B9	cp C
4126	30 CF	jr NC, MenuLoop
4128	D6 8F	sub k1
412A	3C	inc A
412B	5F	ld E, A
412C	18 09	jr Done
412E	FE 40	cp kQuit
4130	CA 55 41	jp Z, Quit
4133	FE 05	cp kEnter
4135	20 C0	jr NZ, MenuLoop
4137	42	ld B, D
4138	7B	ld A, E
4139	3D	dec A
413A	21 4E 72	ld HL, optionLengths
413D	05	dec B
413E	28 04	jr Z, Prog_Number_Loop_Skip
4140	86	add A, (HL)
4141	23	inc HL
4142	10 FC	djnz Prog_Number_Loop
4144	16 00	ld D, 0
4146	5F	ld E, A
4147	21 5C 6E	ld HL, Math_Vector_Table
414A	19	add HL, DE
414B	19	add HL, DE
414C	7E	ld A, (HL)
414D	23	inc HL
414E	66	ld H, (HL)
414F	6F	ld L, A
4150	E5	push HL
4151	EF 79 45	rst 28h\ .dw _rstrShadow
4154	C9	ret
4155	FD CB 09 A6	res onInterrupt, (IY + onFlags)
4159	FD CB 28 BE	res appRetKeyOff, (IY + APIFlg)
415D	FD CB 00 AE	res donePrgm, (IY + doneFlags)
4161	EF 27 40	rst 28h\ .dw _JForceCmdNoChar
C:\Portable Programs\Latenite\Projects\MathTI83\MenuFunc.asm
4164	F3	di
4165	C5	push BC
4166	E5	push HL
4167	D5	push DE
4168	3A D7 86	ld A, (pencol)
416B	3D	dec A
416C	4F	ld C, A
416D	CB 3F	srl A
416F	CB 3F	srl A
4171	CB 3F	srl A
4173	C6 20	add A, $20
4175	57	ld D, A
4176	79	ld A, C
4177	E6 07	and 7
4179	4F	ld C, A
417A	3E 07	ld A, 7
417C	91	sub C
417D	1E 01	ld E, 1
417F	B7	or A
4180	28 05	jr Z, LineLoopSkip6
4182	CB 23	sla E
4184	3D	dec A
4185	18 F8	jr LineLoopShift6
4187	3E 80	ld A, $80
4189	D3 10	out ($10), A
418B	CD 0B 00	call $000B
418E	7A	ld A, D
418F	D3 10	out ($10), A
4191	DB 11	in A, ($11)
4193	21 72 98	ld HL, AppBackUpScreen
4196	06 06	ld B, 6
4198	CD 0B 00	call $000B
419B	DB 11	in A, ($11)
419D	B3	or E
419E	77	ld (HL), A
419F	23	inc HL
41A0	10 F6	djnz LineLoopIn6
41A2	CD 0B 00	call $000B
41A5	3E 80	ld A, $80
41A7	D3 10	out ($10), A
41A9	CD 0B 00	call $000B
41AC	7A	ld A, D
41AD	D3 10	out ($10), A
41AF	21 72 98	ld HL, AppBackUpScreen
41B2	06 06	ld B, 6
41B4	7E	ld A, (HL)
41B5	23	inc HL
41B6	CD 0B 00	call $000B
41B9	D3 11	out ($11), A
41BB	10 F7	djnz LineLoopOut6
41BD	D1	pop DE
41BE	E1	pop HL
41BF	C1	pop BC
41C0	FB	ei
41C1	FD CB 05 DE	set TextInverse, (IY + TextFlags)
41C5	C9	ret
41C6	CD F3 41	call SelectOptionE
41C9	1D	dec E
41CA	20 21	jr NZ, UpdateCursor
41CC	4A	ld C, D
41CD	06 00	ld B, 0
41CF	21 4E 72	ld HL, optionLengths
41D2	09	add HL, BC
41D3	2B	dec HL
41D4	7E	ld A, (HL)
41D5	5F	ld E, A
41D6	18 15	jr UpdateCursor
41D8	CD F3 41	call SelectOptionE
41DB	1C	inc E
41DC	4A	ld C, D
41DD	06 00	ld B, 0
41DF	21 4E 72	ld HL, optionLengths
41E2	09	add HL, BC
41E3	2B	dec HL
41E4	7E	ld A, (HL)
41E5	3C	inc A
41E6	BB	cp E
41E7	20 04	jr NZ, UpdateCursor
41E9	1E 01	ld E, 1
41EB	18 00	jr UpdateCursor
41ED	CD F3 41	call SelectOptionE
41F0	C3 F7 40	jp MenuLoop
41F3	7B	ld A, E
41F4	87	add A, A
41F5	4F	ld C, A
41F6	87	add A, A
41F7	81	add A, C
41F8	C6 80	add A, $80
41FA	4F	ld C, A
41FB	F3	di
41FC	D3 10	out ($10), A
41FE	CD 0B 00	call $000B
4201	3E 20	ld A, $20
4203	D3 10	out ($10), A
4205	DB 11	in A, ($11)
4207	21 72 98	ld HL, AppBackUpScreen
420A	06 06	ld B, 6
420C	CD 0B 00	call $000B
420F	DB 11	in A, ($11)
4211	EE FE	xor $FE
4213	77	ld (HL), A
4214	23	inc HL
4215	10 F5	djnz LineLoopIn
4217	CD 0B 00	call $000B
421A	79	ld A, C
421B	D3 10	out ($10), A
421D	CD 0B 00	call $000B
4220	3E 20	ld A, $20
4222	D3 10	out ($10), A
4224	21 72 98	ld HL, AppBackUpScreen
4227	06 06	ld B, 6
4229	7E	ld A, (HL)
422A	23	inc HL
422B	CD 0B 00	call $000B
422E	D3 11	out ($11), A
4230	10 F7	djnz LineLoopOut
4232	FB	ei
4233	C9	ret
4234	1E 01	ld E, 1
4236	15	dec D
4237	C2 9B 40	jp NZ, Menu
423A	3A 31 72	ld A, (titleLength)
423D	57	ld D, A
423E	C3 9B 40	jp Menu
4241	1E 01	ld E, 1
4243	14	inc D
4244	3A 31 72	ld A, (titleLength)
4247	3C	inc A
4248	BA	cp D
4249	C2 9B 40	jp NZ, Menu
424C	16 01	ld D, 1
424E	C3 9B 40	jp Menu
C:\Portable Programs\Latenite\Projects\MathTI83\MathProgs\AlgProgs.asm
4251	CD E0 6E	call PutLine
4254	41 58 B2 2B 42 58 2B 43 3D 30 00	.db "AX²+BX+C=0",0
425F	3E 58	ld a, tX
4261	CD 0C 6F	call Prompt
4264	41 3D 00	.db "A=",0
4267	3E 59	ld a, tY
4269	CD 0C 6F	call Prompt
426C	42 3D 00	.db "B=",0
426F	3E 72	ld a, tAns
4271	CD 0C 6F	call Prompt
4274	43 3D 00	.db "C=",0
4277	3E 02	ld a, 2
4279	CD 99 70	call InlineOpt
427C	53 4F 4C 56 45 00 53 48 4F 57 20 57 4F 52 4B 00	.db "SOLVE",0,"SHOW WORK",0
428C	B7	or a
428D	C2 C5 42	jp nz, QUADRATIC_FORMULA_SHOW_WORK
4290	CD 96 6F	call ParseExpr
4293	10 B0 59 70 BC 59 0D 71 34 58 72 11 11 83 10 32 58 11 00	.db tLParen,tChs,tY,tAdd,tSqrt,tY,tSqr,tSub,t4,tX,tAns,tRParen,tRParen,tDiv,tLParen,t2,tX,tRParen,0
42A6	EF 7E 49	rst 28h\ .dw _FormDisp
42A9	CD 96 6F	call ParseExpr
42AC	10 B0 59 71 BC 59 0D 71 34 58 72 11 11 83 10 32 58 11 00	.db tLParen,tChs,tY,tSub,tSqrt,tY,tSqr,tSub,t4,tX,tAns,tRParen,tRParen,tDiv,tLParen,t2,tX,tRParen,0
42BF	CD 49 70	call PrintPause
42C2	C3 98 40	jp Menu_Start
42C5	EF 43 45	rst 28h\ .dw _ClrLCD
42C8	EF D0 4B	rst 28h\ .dw _GrBufClr
42CB	CD 6C 70	call AppendStrInlineInit
42CE	1A 42 2B 2D 1A 28 42 B2 2D 34 41 43 29 00	.db Lneg,"B+-√(B²-4AC)",0
42DC	3E 00	ld a, 0
42DE	CD E9 71	call VPrintCentered
42E1	3E 38	ld a, 56
42E3	CD 27 72	call PrintCenteredLine
42E6	CD 6C 70	call AppendStrInlineInit
42E9	32 41 00	.db "2A",0
42EC	3E 08	ld a, 8
42EE	CD E9 71	call VPrintCentered
42F1	EF DA 4A	rst 28h\ .dw _RclY
42F4	EF 8D 40	rst 28h\ .dw _InvOP1S
42F7	3E 04	ld a, 4
42F9	EF 99 49	rst 28h\ .dw _FormReal
42FC	21 8E 84	ld hl, OP3
42FF	CD 56 70	call AppendStrInit
4302	CD 70 70	call AppendStrInline
4305	2B 2D 1A 28 00	.db "+-√(",0
430A	EF DA 4A	rst 28h\ .dw _RclY
430D	3E 04	ld a, 4
430F	EF 99 49	rst 28h\ .dw _FormReal
4312	21 8E 84	ld hl, OP3
4315	CD 5A 70	call AppendStr
4318	CD 70 70	call AppendStrInline
431B	B2 2D 34 2A 00	.db "²-4*",0
4320	EF E0 4A	rst 28h\ .dw _RclX
4323	3E 04	ld a, 4
4325	EF 99 49	rst 28h\ .dw _FormReal
4328	21 8E 84	ld hl, OP3
432B	CD 5A 70	call AppendStr
432E	CD 70 70	call AppendStrInline
4331	2A 00	.db "*",0
4333	EF D7 4A	rst 28h\ .dw _RclAns
4336	3E 04	ld a, 4
4338	EF 99 49	rst 28h\ .dw _FormReal
433B	21 8E 84	ld hl, OP3
433E	CD 5A 70	call AppendStr
4341	CD 70 70	call AppendStrInline
4344	29 00	.db ")",0
4346	3E 0E	ld a, 14
4348	CD E9 71	call VPrintCentered
434B	3E 2A	ld a, 42
434D	CD 27 72	call PrintCenteredLine
4350	CD 6C 70	call AppendStrInlineInit
4353	32 2A 00	.db "2*",0
4356	EF E0 4A	rst 28h\ .dw _RclX
4359	3E 08	ld a, 8
435B	EF 99 49	rst 28h\ .dw _FormReal
435E	21 8E 84	ld hl, OP3
4361	CD 5A 70	call AppendStr
4364	3E 16	ld a, 22
4366	CD E9 71	call VPrintCentered
4369	CD 96 6F	call ParseExpr
436C	59 0D 71 34 58 72 00	.db tY,tSqr,tSub,t4,tX,tAns,0
4373	EF BF 4A	rst 28h\ .dw _StoAns
4376	CD 96 6F	call ParseExpr
4379	32 58 00	.db t2,tX,0
437C	EF D1 4A	rst 28h\ .dw _StoX
437F	EF DA 4A	rst 28h\ .dw _RclY
4382	EF 8D 40	rst 28h\ .dw _InvOP1S
4385	EF C8 4A	rst 28h\ .dw _StoY
4388	3E 08	ld a, 8
438A	EF 99 49	rst 28h\ .dw _FormReal
438D	21 8E 84	ld hl, OP3
4390	CD 56 70	call AppendStrInit
4393	CD 70 70	call AppendStrInline
4396	2B 2D 1A 28 00	.db "+-√(",0
439B	EF D7 4A	rst 28h\ .dw _RclAns
439E	3E 08	ld a, 8
43A0	EF 99 49	rst 28h\ .dw _FormReal
43A3	21 8E 84	ld hl, OP3
43A6	CD 5A 70	call AppendStr
43A9	CD 70 70	call AppendStrInline
43AC	29 00	.db ")",0
43AE	3E 1C	ld a, 28
43B0	CD E9 71	call VPrintCentered
43B3	3E 1C	ld a, 28
43B5	CD 27 72	call PrintCenteredLine
43B8	EF E0 4A	rst 28h\ .dw _RclX
43BB	3E 08	ld a, 8
43BD	EF 99 49	rst 28h\ .dw _FormReal
43C0	21 8E 84	ld hl, OP3
43C3	CD 56 70	call AppendStrInit
43C6	3E 24	ld a, 36
43C8	CD E9 71	call VPrintCentered
43CB	EF DA 4A	rst 28h\ .dw _RclY
43CE	3E 08	ld a, 8
43D0	EF 99 49	rst 28h\ .dw _FormReal
43D3	21 8E 84	ld hl, OP3
43D6	CD 56 70	call AppendStrInit
43D9	CD 70 70	call AppendStrInline
43DC	2B 2D 00	.db "+-",0
43DF	CD 96 6F	call ParseExpr
43E2	BC 72 00	.db tSqrt,tAns,0
43E5	EF BF 4A	rst 28h\ .dw _StoAns
43E8	EF FC 40	rst 28h\ .dw _CkOP1Cplx
43EB	28 0A	jr z, QUADRATIC_FORMULA_CPLX
43ED	3E 08	ld a, 8
43EF	EF 99 49	rst 28h\ .dw _FormReal
43F2	21 8E 84	ld hl, OP3
43F5	18 06	jr QUADRATIC_FORMULA_SKIP
43F7	EF 96 49	rst 28h\ .dw _FormDCplx
43FA	21 B1 97	ld hl, fmtString
43FD	CD 5A 70	call AppendStr
4400	3E 2A	ld a, 42
4402	CD E9 71	call VPrintCentered
4405	3E 0E	ld a, 14
4407	CD 27 72	call PrintCenteredLine
440A	EF E0 4A	rst 28h\ .dw _RclX
440D	3E 08	ld a, 8
440F	EF 99 49	rst 28h\ .dw _FormReal
4412	21 8E 84	ld hl, OP3
4415	CD 56 70	call AppendStrInit
4418	3E 32	ld a, 50
441A	CD E9 71	call VPrintCentered
441D	CD 96 6F	call ParseExpr
4420	10 59 71 72 11 83 58 00	.db tLParen,tY,tSub,tAns,tRParen,tDiv,tX,0
4428	EF C9 43	rst 28h\ .dw _PushOP1
442B	CD 96 6F	call ParseExpr
442E	10 59 70 72 11 83 58 00	.db tLParen,tY,tAdd,tAns,tRParen,tDiv,tX,0
4436	3E 08	ld a, 8
4438	EF 99 49	rst 28h\ .dw _FormReal
443B	21 8E 84	ld hl, OP3
443E	CD 56 70	call AppendStrInit
4441	CD 70 70	call AppendStrInline
4444	20 4F 52 20 00	.db " OR ",0
4449	EF 7E 43	rst 28h\ .dw _PopOP1
444C	3E 08	ld a, 8
444E	EF 99 49	rst 28h\ .dw _FormReal
4451	21 8E 84	ld hl, OP3
4454	CD 5A 70	call AppendStr
4457	3E 39	ld a, 57
4459	CD E9 71	call VPrintCentered
445C	CD 4C 70	call Pause
445F	C3 98 40	jp Menu_Start
4462	CD E0 6E	call PutLine
4465	41 58 2B 42 59 3D 43 20 44 58 2B 45 59 3D 46 00	.db "AX+BY=C DX+EY=F",0
4475	3E 41	ld a, tA
4477	CD 0C 6F	call Prompt
447A	41 3D 00	.db "A=",0
447D	3E 42	ld a, tB
447F	CD 0C 6F	call Prompt
4482	42 3D 00	.db "B=",0
4485	3E 43	ld a, tC
4487	CD 0C 6F	call Prompt
448A	43 3D 00	.db "C=",0
448D	3E 44	ld a, tD
448F	CD 0C 6F	call Prompt
4492	44 3D 00	.db "D=",0
4495	3E 45	ld a, tE
4497	CD 0C 6F	call Prompt
449A	45 3D 00	.db "E=",0
449D	3E 46	ld a, tF
449F	CD 0C 6F	call Prompt
44A2	46 3D 00	.db "F=",0
44A5	CD 96 6F	call ParseExpr
44A8	44 42 71 41 45 00	.db tD,tB,tSub,tA,tE,0
44AE	EF D1 4A	rst 28h\ .dw _StoX
44B1	CD 96 6F	call ParseExpr
44B4	10 46 42 71 45 43 11 83 58 00	.db tLParen,tF,tB,tSub,tE,tC,tRParen,tDiv,tX,0
44BE	EF 7E 49	rst 28h\ .dw _FormDisp
44C1	CD 96 6F	call ParseExpr
44C4	10 46 41 71 44 43 11 83 B0 58 00	.db tLParen,tF,tA,tSub,tD,tC,tRParen,tDiv,tChs,tX,0
44CF	CD 49 70	call PrintPause
44D2	C3 98 40	jp Menu_Start
44D5	3E 58	ld a, tX
44D7	CD 0C 6F	call Prompt
44DA	1A 00	.db "√",0
44DC	EF A7 41	rst 28h\ .dw _OP1Set2
44DF	EF BF 4A	rst 28h\ .dw _StoAns
44E2	EF 9B 41	rst 28h\ .dw _OP1Set1
44E5	EF C8 4A	rst 28h\ .dw _StoY
44E8	CD 96 6F	call ParseExpr
44EB	12 58 83 72 0D 2B 30 11 82 72 0D 00	.db tRound,tX,tDiv,tAns,tSqr,tComma,t0,tRParen,tMul,tAns,tSqr,0
44F7	EF 2F 41	rst 28h\ .dw _OP1toOP2
44FA	EF E0 4A	rst 28h\ .dw _RclX
44FD	EF 11 41	rst 28h\ .dw _CpOP1OP2
4500	20 16	jr nz, REDUCING_RADICALS_CONTINUE
4502	CD 96 6F	call ParseExpr
4505	59 72 00	.db tY,tAns,0
4508	EF C8 4A	rst 28h\ .dw _StoY
450B	CD 96 6F	call ParseExpr
450E	58 83 72 0D 00	.db tX,tDiv,tAns,tSqr,0
4513	EF D1 4A	rst 28h\ .dw _StoX
4516	18 D0	jr REDUCING_RADICALS_LOOP
4518	EF D7 4A	rst 28h\ .dw _RclAns
451B	EF 69 40	rst 28h\ .dw _Plus1
451E	EF BF 4A	rst 28h\ .dw _StoAns
4521	EF 81 40	rst 28h\ .dw _FPSquare
4524	EF 2F 41	rst 28h\ .dw _OP1toOP2
4527	EF E0 4A	rst 28h\ .dw _RclX
452A	EF 11 41	rst 28h\ .dw _CpOP1OP2
452D	30 B9	jr nc, REDUCING_RADICALS_LOOP
452F	EF DA 4A	rst 28h\ .dw _RclY
4532	3E 07	ld a, 7
4534	EF 99 49	rst 28h\ .dw _FormReal
4537	21 8E 84	ld hl, OP3
453A	CD 56 70	call AppendStrInit
453D	CD 70 70	call AppendStrInline
4540	1A 00	.db "√",0
4542	EF E0 4A	rst 28h\ .dw _RclX
4545	3E 08	ld a, 8
4547	EF 99 49	rst 28h\ .dw _FormReal
454A	21 8E 84	ld hl, OP3
454D	CD 5A 70	call AppendStr
4550	CD 81 70	call PrintRightAlignStr
4553	CD 4C 70	call Pause
4556	C3 98 40	jp Menu_Start
4559	CD E0 6E	call PutLine
455C	41 58 B3 2B 42 58 B2 2B 43 58 2B 44 3D 30 00	.db "AX³+BX²+CX+D=0",0
456B	3E 41	ld a, tA
456D	CD 0C 6F	call Prompt
4570	41 3D 00	.db "A=",0
4573	3E 42	ld a, tB
4575	CD 0C 6F	call Prompt
4578	42 3D 00	.db "B=",0
457B	3E 43	ld a, tC
457D	CD 0C 6F	call Prompt
4580	43 3D 00	.db "C=",0
4583	3E 44	ld a, tD
4585	CD 0C 6F	call Prompt
4588	44 3D 00	.db "D=",0
458B	CD 96 6F	call ParseExpr
458E	42 83 41 00	.db tB,tDiv,tA,0
4592	3E 42	ld a, tB
4594	CD 37 70	call StoOther
4597	CD 96 6F	call ParseExpr
459A	43 83 41 00	.db tC,tDiv,tA,0
459E	3E 43	ld a, tC
45A0	CD 37 70	call StoOther
45A3	CD 96 6F	call ParseExpr
45A6	44 83 41 00	.db tD,tDiv,tA,0
45AA	3E 44	ld a, tD
45AC	CD 37 70	call StoOther
45AF	CD 96 6F	call ParseExpr
45B2	10 33 43 71 42 0D 11 83 39 00	.db tLParen,t3,tC,tSub,tB,tSqr,tRParen,tDiv,t9,0
45BC	EF D1 4A	rst 28h\ .dw _StoX
45BF	CD 96 6F	call ParseExpr
45C2	10 B0 32 37 44 70 39 43 42 71 32 42 0F 11 83 35 34 00	.db tLParen,tChs,t2,t7,tD,tAdd,t9,tC,tB,tSub,t2,tB,tCube,tRParen,tDiv,t5,t4,0
45D4	EF C8 4A	rst 28h\ .dw _StoY
45D7	CD 96 6F	call ParseExpr
45DA	BC 58 0F 70 59 0D 00	.db tSqrt,tX,tCube,tAdd,tY,tSqr,0
45E1	EF BF 4A	rst 28h\ .dw _StoAns
45E4	CD 96 6F	call ParseExpr
45E7	BD 59 70 72 00	.db tCubRt,tY,tAdd,tAns,0
45EC	EF D1 4A	rst 28h\ .dw _StoX
45EF	CD 96 6F	call ParseExpr
45F2	BD 59 71 72 00	.db tCubRt,tY,tSub,tAns,0
45F7	EF C8 4A	rst 28h\ .dw _StoY
45FA	CD 96 6F	call ParseExpr
45FD	BC B0 33 11 10 58 71 59 11 83 32 00	.db tSqrt,tChs,t3,tRParen,tLParen,tX,tSub,tY,tRParen,tDiv,t2,0
4609	EF BF 4A	rst 28h\ .dw _StoAns
460C	CD 96 6F	call ParseExpr
460F	B0 42 83 33 70 58 70 59 00	.db tChs,tB,tDiv,t3,tAdd,tX,tAdd,tY,0
4618	EF 7E 49	rst 28h\ .dw _FormDisp
461B	CD 96 6F	call ParseExpr
461E	B0 42 83 33 71 10 58 70 59 11 83 32 70 72 00	.db tChs,tB,tDiv,t3,tSub,tLParen,tX,tAdd,tY,tRParen,tDiv,t2,tAdd,tAns,0
462D	EF 7E 49	rst 28h\ .dw _FormDisp
4630	CD 96 6F	call ParseExpr
4633	B0 42 83 33 71 10 58 70 59 11 83 32 71 72 00	.db tChs,tB,tDiv,t3,tSub,tLParen,tX,tAdd,tY,tRParen,tDiv,t2,tSub,tAns,0
4642	CD 49 70	call PrintPause
4645	C3 98 40	jp Menu_Start
4648	CD E0 6E	call PutLine
464B	28 41 58 2B 42 59 29 5E 45 00	.db "(AX+BY)^E",0
4655	3E 41	ld a, tA
4657	CD 0C 6F	call Prompt
465A	41 3D 00	.db "A=",0
465D	3E 42	ld a, tB
465F	CD 0C 6F	call Prompt
4662	42 3D 00	.db "B=",0
4665	3E 45	ld a, tE
4667	CD 0C 6F	call Prompt
466A	45 3D 00	.db "E=",0
466D	EF D1 4A	rst 28h\ .dw _StoX
4670	CD 96 6F	call ParseExpr
4673	45 71 58 00	.db tE,tSub,tX,0
4677	EF C8 4A	rst 28h\ .dw _StoY
467A	CD 96 6F	call ParseExpr
467D	10 45 95 59 11 82 41 F0 58 82 42 F0 59 00	.db tLParen,tE,tnCr,tY,tRParen,tMul,tA,tPower,tX,tMul,tB,tPower,tY,0
468B	EF 7E 49	rst 28h\ .dw _FormDisp
468E	CD 96 6F	call ParseExpr
4691	37 B1 58 83 37 00	.db t7,tInt,tX,tDiv,t7,0
4697	EF 2F 41	rst 28h\ .dw _OP1toOP2
469A	EF E0 4A	rst 28h\ .dw _RclX
469D	EF 11 41	rst 28h\ .dw _CpOP1OP2
46A0	20 03 EF 72 49	jr nz,$+5\ rst rBR_CALL \ .dw _getKey
46A5	EF 6C 40	rst 28h\ .dw _Minus1
46A8	EF D1 4A	rst 28h\ .dw _StoX
46AB	3A 78 84	ld a, (OP1)
46AE	E6 80	and 80h
46B0	28 BE	jr z, BINOMIAL_THEOREM_LOOP
46B2	2A 4B 84	ld hl, (curRow)
46B5	22 88 85	ld (textShadCur), hl
46B8	C3 98 40	jp Menu_Start
46BB	CD 32 75	call SubMenu
46BE	53 45 51 55 45 4E 43 45 53 00	.db "SEQUENCES",0
46C8	06	.db 6
46C9	31 3A 20 46 49 4E 44 20 4E 74 68 20 54 45 52 4D 00	.db "1: FIND Nth TERM",0
46DA	32 3A 20 43 4F 4D 50 4C 45 54 45 20 54 48 45 20 53 45 51 00	.db "2: COMPLETE THE SEQ",0
46EE	33 3A 20 46 49 4E 44 20 4D 49 53 53 49 4E 47 20 54 45 52 4D 53 00	.db "3: FIND MISSING TERMS",0
4704	34 3A 20 53 45 52 49 45 53 20 53 55 4D 00	.db "4: SERIES SUM",0
4712	35 3A 20 47 49 56 45 4E 20 32 20 54 45 52 4D 53 00	.db "5: GIVEN 2 TERMS",0
4723	36 3A 20 49 4E 46 49 4E 49 54 45 20 53 45 52 49 45 53 00	.db "6: INFINITE SERIES",0
4736	42 47	.dw SEQUENCES_FIND_Nth_TERM
4738	C1 47	.dw SEQUENCES_COMPLETE_THE_SEQ
473A	A9 48	.dw SEQUENCES_FIND_MISSING_TERMS
473C	7F 49	.dw SEQUENCES_SERIES_SUM
473E	13 4A	.dw SEQUENCES_GIVEN_2_TERMS
4740	A8 4A	.dw SEQUENCES_INFINITE_SERIES
4742	3E 02	ld a, 2
4744	CD 99 70	call InlineOpt
4747	41 52 54 00 47 45 4F 00	.db "ART",0,"GEO",0
474F	B7	or a
4750	28 38	jr z, SEQUENCES_FIND_Nth_TERM_ART
4752	3E 58	ld a, tX
4754	CD 0C 6F	call Prompt
4757	31 53 54 20 54 45 52 4D 3D 00	.db "1ST TERM=",0
4761	3E 59	ld a, tY
4763	CD 0C 6F	call Prompt
4766	52 41 54 49 4F 3D 00	.db "RATIO=",0
476D	3E 72	ld a, tAns
476F	CD 0C 6F	call Prompt
4772	54 45 52 4D 53 3D 00	.db "TERMS=",0
4779	CD 96 6F	call ParseExpr
477C	58 59 F0 10 72 71 31 00	.db tX,tY,tPower,tLParen,tAns,tSub,t1,0
4784	CD 49 70	call PrintPause
4787	C3 98 40	jp Menu_Start
478A	3E 58	ld a, tX
478C	CD 0C 6F	call Prompt
478F	31 53 54 20 54 45 52 4D 3D 00	.db "1ST TERM=",0
4799	3E 59	ld a, tY
479B	CD 0C 6F	call Prompt
479E	44 49 46 46 3D 00	.db "DIFF=",0
47A4	3E 72	ld a, tAns
47A6	CD 0C 6F	call Prompt
47A9	54 45 52 4D 53 3D 00	.db "TERMS=",0
47B0	CD 96 6F	call ParseExpr
47B3	58 70 59 10 72 71 31 00	.db tX,tAdd,tY,tLParen,tAns,tSub,t1,0
47BB	CD 49 70	call PrintPause
47BE	C3 98 40	jp Menu_Start
47C1	3E 58	ld a, tX
47C3	CD 0C 6F	call Prompt
47C6	41 31 3D 00	.db "A1=",0
47CA	3E 59	ld a, tY
47CC	CD 0C 6F	call Prompt
47CF	41 32 3D 00	.db "A2=",0
47D3	3E 72	ld a, tAns
47D5	CD 0C 6F	call Prompt
47D8	41 33 3D 00	.db "A3=",0
47DC	CD 96 6F	call ParseExpr
47DF	58 70 72 71 32 59 00	.db tX,tAdd,tAns,tSub,t2,tY,0
47E6	EF 28 42	rst 28h\ .dw _CkOP1FP0
47E9	20 17	jr nz, SEQUENCES_COMPLETE_THE_SEQ_GEO
47EB	06 00	ld b, 0
47ED	CD 96 6F	call ParseExpr
47F0	59 71 58 00	.db tY,tSub,tX,0
47F4	EF BF 4A	rst 28h\ .dw _StoAns
47F7	EF BF 41	rst 28h\ .dw _OP1Set0
47FA	EF C8 4A	rst 28h\ .dw _StoY
47FD	CD 5E 48	call SEQUENCES_COMPLETE_THE_SEQ_DISP
4800	18 15	jr SEQUENCES_COMPLETE_THE_SEQ_LOOP
4802	06 01	ld b, 1
4804	CD 96 6F	call ParseExpr
4807	59 83 58 00	.db tY,tDiv,tX,0
480B	EF BF 4A	rst 28h\ .dw _StoAns
480E	EF BF 41	rst 28h\ .dw _OP1Set0
4811	EF C8 4A	rst 28h\ .dw _StoY
4814	CD 5E 48	call SEQUENCES_COMPLETE_THE_SEQ_DISP
4817	EF 72 49	rst 28h\ .dw _GetKey
481A	FE 03	cp kUp
481C	28 24	jr z, SEQUENCES_COMPLETE_THE_SEQ_UP
481E	FE 04	cp kDown
4820	28 2E	jr z, SEQUENCES_COMPLETE_THE_SEQ_DOWN
4822	FE 80	cp kAdd
4824	28 1C	jr z, SEQUENCES_COMPLETE_THE_SEQ_UP
4826	FE 81	cp kSub
4828	28 26	jr z, SEQUENCES_COMPLETE_THE_SEQ_DOWN
482A	FE 8A	cp kStore
482C	28 07	jr z, SEQUENCES_COMPLETE_THE_SEQ_STORE
482E	FE 40	cp kQuit
4830	20 E5	jr nz, SEQUENCES_COMPLETE_THE_SEQ_LOOP
4832	C3 98 40	jp Menu_Start
4835	3E 59	ld a, tY
4837	CD 0C 6F	call Prompt
483A	4E 3D 00	.db "N=",0
483D	CD 5E 48	call SEQUENCES_COMPLETE_THE_SEQ_DISP
4840	18 D5	jr SEQUENCES_COMPLETE_THE_SEQ_LOOP
4842	EF DA 4A	rst 28h\ .dw _RclY
4845	EF 69 40	rst 28h\ .dw _Plus1
4848	EF C8 4A	rst 28h\ .dw _StoY
484B	CD 5E 48	call SEQUENCES_COMPLETE_THE_SEQ_DISP
484E	18 C7	jr SEQUENCES_COMPLETE_THE_SEQ_LOOP
4850	EF DA 4A	rst 28h\ .dw _RclY
4853	EF 6C 40	rst 28h\ .dw _Minus1
4856	EF C8 4A	rst 28h\ .dw _StoY
4859	CD 5E 48	call SEQUENCES_COMPLETE_THE_SEQ_DISP
485C	18 B9	jr SEQUENCES_COMPLETE_THE_SEQ_LOOP
485E	C5	push bc
485F	CD 6C 70	call AppendStrInlineInit
4862	7B 00	.db "{",0
4864	EF DA 4A	rst 28h\ .dw _RclY
4867	3E 05	ld a, 5
4869	EF 99 49	rst 28h\ .dw _FormReal
486C	21 8E 84	ld hl, OP3
486F	CD 5A 70	call AppendStr
4872	CD 70 70	call AppendStrInline
4875	2C 00	.db ",",0
4877	F1	pop af
4878	AF	xor a
4879	F5	push af
487A	20 0D	jr nz, SEQUENCES_COMPLETE_THE_SEQ_DISP_GEO
487C	CD 96 6F	call ParseExpr
487F	58 70 72 10 59 71 31 00	.db tX,tAdd,tAns,tLParen,tY,tSub,t1,0
4887	18 0B	jr SEQUENCES_COMPLETE_THE_SEQ_DISP_SKIP
4889	CD 96 6F	call ParseExpr
488C	58 72 F0 10 59 71 31 00	.db tX,tAns,tPower,tLParen,tY,tSub,t1,0
4894	3E 08	ld a, 8
4896	EF 99 49	rst 28h\ .dw _FormReal
4899	21 8E 84	ld hl, OP3
489C	CD 5A 70	call AppendStr
489F	CD 70 70	call AppendStrInline
48A2	7D 00	.db "}",0
48A4	CD 81 70	call PrintRightAlignStr
48A7	C1	pop bc
48A8	C9	ret
48A9	3E 41	ld a, tA
48AB	CD 0C 6F	call Prompt
48AE	41 31 3D 00	.db "A1=",0
48B2	3E 59	ld a, tY
48B4	CD 0C 6F	call Prompt
48B7	41 6E 3D 00	.db "An=",0
48BB	3E 72	ld a, tAns
48BD	CD 0C 6F	call Prompt
48C0	4E 3D 00	.db "N=",0
48C3	3E 02	ld a, 2
48C5	CD 99 70	call InlineOpt
48C8	41 52 54 00 47 45 4F 00	.db "ART",0,"GEO",0
48D0	B7	or a
48D1	28 56	jr z, SEQUENCES_FIND_MISSING_TERMS_ART
48D3	CD 96 6F	call ParseExpr
48D6	10 72 71 31 11 F1 10 59 83 41 00	.db tLParen,tAns,tSub,t1,tRParen,tXRoot,tLParen,tY,tDiv,tA,0
48E1	EF C8 4A	rst 28h\ .dw _StoY
48E4	EF BF 41	rst 28h\ .dw _OP1Set0
48E7	EF D1 4A	rst 28h\ .dw _StoX
48EA	CD 96 6F	call ParseExpr
48ED	41 59 F0 58 00	.db tA,tY,tPower,tX,0
48F2	EF 7E 49	rst 28h\ .dw _FormDisp
48F5	EF E0 4A	rst 28h\ .dw _RclX
48F8	EF 69 40	rst 28h\ .dw _Plus1
48FB	EF D1 4A	rst 28h\ .dw _StoX
48FE	EF D7 4A	rst 28h\ .dw _RclAns
4901	EF 6C 40	rst 28h\ .dw _Minus1
4904	EF BF 4A	rst 28h\ .dw _StoAns
4907	CD 96 6F	call ParseExpr
490A	37 B1 72 83 37 00	.db t7,tInt,tAns,tDiv,t7,0
4910	EF 2F 41	rst 28h\ .dw _OP1toOP2
4913	EF D7 4A	rst 28h\ .dw _RclAns
4916	EF 11 41	rst 28h\ .dw _CpOP1OP2
4919	20 03 EF 72 49	jr nz,$+5\ rst rBR_CALL \ .dw _getKey
491E	EF AD 41	rst 28h\ .dw _OP2Set1
4921	EF 11 41	rst 28h\ .dw _CpOP1OP2
4924	30 C4	jr nc, SEQUENCES_FIND_MISSING_TERMS_GEO_LOOP
4926	C3 98 40	jp Menu_Start
4929	CD 96 6F	call ParseExpr
492C	10 59 71 41 11 83 10 72 71 31 00	.db tLParen,tY,tSub,tA,tRParen,tDiv,tLParen,tAns,tSub,t1,0
4937	EF C8 4A	rst 28h\ .dw _StoY
493A	EF BF 41	rst 28h\ .dw _OP1Set0
493D	EF D1 4A	rst 28h\ .dw _StoX
4940	CD 96 6F	call ParseExpr
4943	41 70 59 58 00	.db tA,tAdd,tY,tX,0
4948	EF 7E 49	rst 28h\ .dw _FormDisp
494B	EF E0 4A	rst 28h\ .dw _RclX
494E	EF 69 40	rst 28h\ .dw _Plus1
4951	EF D1 4A	rst 28h\ .dw _StoX
4954	EF D7 4A	rst 28h\ .dw _RclAns
4957	EF 6C 40	rst 28h\ .dw _Minus1
495A	EF BF 4A	rst 28h\ .dw _StoAns
495D	CD 96 6F	call ParseExpr
4960	37 B1 72 83 37 00	.db t7,tInt,tAns,tDiv,t7,0
4966	EF 2F 41	rst 28h\ .dw _OP1toOP2
4969	EF D7 4A	rst 28h\ .dw _RclAns
496C	EF 11 41	rst 28h\ .dw _CpOP1OP2
496F	20 03 EF 72 49	jr nz,$+5\ rst rBR_CALL \ .dw _getKey
4974	EF AD 41	rst 28h\ .dw _OP2Set1
4977	EF 11 41	rst 28h\ .dw _CpOP1OP2
497A	30 C4	jr nc, SEQUENCES_FIND_MISSING_TERMS_ART_LOOP
497C	C3 98 40	jp Menu_Start
497F	3E 02	ld a, 2
4981	CD 99 70	call InlineOpt
4984	41 52 54 00 47 45 4F 00	.db "ART",0,"GEO",0
498C	B7	or a
498D	28 4A	jr z, SEQUENCES_SERIES_SUM_ART
498F	CD E0 6E	call PutLine
4992	28 41 31 28 31 2D 52 5E 4E 29 29 2F 28 31 2D 52 00	.db "(A1(1-R^N))/(1-R",0
49A3	3E 58	ld a, tX
49A5	CD 0C 6F	call Prompt
49A8	41 31 3D 00	.db "A1=",0
49AC	3E 59	ld a, tY
49AE	CD 0C 6F	call Prompt
49B1	52 41 54 49 4F 3D 00	.db "RATIO=",0
49B8	3E 72	ld a, tAns
49BA	CD 0C 6F	call Prompt
49BD	4E 3D 00	.db "N=",0
49C0	CD 96 6F	call ParseExpr
49C3	10 58 10 31 71 59 F0 72 11 11 83 10 31 71 59 00	.db tLParen,tX,tLParen,t1,tSub,tY,tPower,tAns,tRParen,tRParen,tDiv,tLParen,t1,tSub,tY,0
49D3	CD 49 70	call PrintPause
49D6	C3 98 40	jp Menu_Start
49D9	CD E0 6E	call PutLine
49DC	28 41 31 2B 41 6E 29 4E 2F 32 00	.db "(A1+An)N/2",0
49E7	3E 58	ld a, tX
49E9	CD 0C 6F	call Prompt
49EC	41 31 3D 00	.db "A1=",0
49F0	3E 59	ld a, tY
49F2	CD 0C 6F	call Prompt
49F5	41 6E 3D 00	.db "An=",0
49F9	3E 72	ld a, tAns
49FB	CD 0C 6F	call Prompt
49FE	4E 3D 00	.db "N=",0
4A01	CD 96 6F	call ParseExpr
4A04	10 58 70 59 11 72 83 32 00	.db tLParen,tX,tAdd,tY,tRParen,tAns,tDiv,t2,0
4A0D	CD 49 70	call PrintPause
4A10	C3 98 40	jp Menu_Start
4A13	3E 41	ld a, tA
4A15	CD 0C 6F	call Prompt
4A18	41 78 3D 00	.db "Ax=",0
4A1C	3E 42	ld a, tB
4A1E	CD 0C 6F	call Prompt
4A21	58 3D 00	.db "X=",0
4A24	3E 43	ld a, tC
4A26	CD 0C 6F	call Prompt
4A29	41 79 3D 00	.db "Ay=",0
4A2D	3E 44	ld a, tD
4A2F	CD 0C 6F	call Prompt
4A32	59 3D 00	.db "Y=",0
4A35	3E 58	ld a, tX
4A37	CD 0C 6F	call Prompt
4A3A	54 45 52 4D 3D 00	.db "TERM=",0
4A40	CD 96 6F	call ParseExpr
4A43	44 71 42 00	.db tD,tSub,tB,0
4A47	EF BF 4A	rst 28h\ .dw _StoAns
4A4A	3E 02	ld a, 2
4A4C	CD 99 70	call InlineOpt
4A4F	41 52 54 00 47 45 4F 00	.db "ART",0,"GEO",0
4A57	B7	or a
4A58	28 27	jr z, SEQUENCES_GIVEN_2_TERMS_ART
4A5A	CD 96 6F	call ParseExpr
4A5D	10 43 71 41 11 83 72 00	.db tLParen,tC,tSub,tA,tRParen,tDiv,tAns,0
4A65	EF BF 4A	rst 28h\ .dw _StoAns
4A68	CD 96 6F	call ParseExpr
4A6B	41 71 44 42 00	.db tA,tSub,tD,tB,0
4A70	EF C8 4A	rst 28h\ .dw _StoY
4A73	CD 96 6F	call ParseExpr
4A76	59 70 72 58 00	.db tY,tAdd,tAns,tX,0
4A7B	CD 49 70	call PrintPause
4A7E	C3 98 40	jp Menu_Start
4A81	CD 96 6F	call ParseExpr
4A84	72 F1 10 43 83 41 00	.db tAns,tXRoot,tLParen,tC,tDiv,tA,0
4A8B	EF BF 4A	rst 28h\ .dw _StoAns
4A8E	CD 96 6F	call ParseExpr
4A91	41 83 44 F0 42 00	.db tA,tDiv,tD,tPower,tB,0
4A97	EF C8 4A	rst 28h\ .dw _StoY
4A9A	CD 96 6F	call ParseExpr
4A9D	59 72 F0 58 00	.db tY,tAns,tPower,tX,0
4AA2	CD 49 70	call PrintPause
4AA5	C3 98 40	jp Menu_Start
4AA8	CD E0 6E	call PutLine
4AAB	41 31 2F 28 31 2D 52 29 00	.db "A1/(1-R)",0
4AB4	3E 58	ld a, tX
4AB6	CD 0C 6F	call Prompt
4AB9	41 31 3D 00	.db "A1=",0
4ABD	3E 59	ld a, tY
4ABF	CD 0C 6F	call Prompt
4AC2	52 41 54 49 4F 3D 00	.db "RATIO=",0
4AC9	CD 96 6F	call ParseExpr
4ACC	58 83 10 31 71 59 00	.db tX,tDiv,tLParen,t1,tSub,tY,0
4AD3	CD 49 70	call PrintPause
4AD6	C3 98 40	jp Menu_Start
C:\Portable Programs\Latenite\Projects\MathTI83\MathProgs\GeoProgs.asm
4AD9	3E 41	ld a, tA
4ADB	CD 0C 6F	call Prompt
4ADE	58 31 3D 00	.db "X1=",0
4AE2	3E 42	ld a, tB
4AE4	CD 0C 6F	call Prompt
4AE7	59 31 3D 00	.db "Y1=",0
4AEB	3E 43	ld a, tC
4AED	CD 0C 6F	call Prompt
4AF0	58 32 3D 00	.db "X2=",0
4AF4	3E 44	ld a, tD
4AF6	CD 0C 6F	call Prompt
4AF9	59 32 3D 00	.db "Y2=",0
4AFD	CD E0 6E	call PutLine
4B00	53 4C 4F 50 45 3A 00	.db "SLOPE:",0
4B07	CD 96 6F	call ParseExpr
4B0A	10 42 71 44 11 83 10 41 71 43 00	.db tLParen,tB,tSub,tD,tRParen,tDiv,tLParen,tA,tSub,tC,0
4B15	EF 7E 49	rst 28h\ .dw _FormDisp
4B18	CD E0 6E	call PutLine
4B1B	44 49 53 54 41 4E 43 45 3A 00	.db "DISTANCE:",0
4B25	CD 96 6F	call ParseExpr
4B28	10 41 71 43 11 0D 70 10 42 71 44 11 0D 00	.db tLParen,tA,tSub,tC,tRParen,tSqr,tAdd,tLParen,tB,tSub,tD,tRParen,tSqr,0
4B36	CD 1E 71	call PrintSqrt
4B39	CD E0 6E	call PutLine
4B3C	4D 49 44 50 4F 49 4E 54 3A 00	.db "MIDPOINT:",0
4B46	CD 6C 70	call AppendStrInlineInit
4B49	28 00	.db "(",0
4B4B	CD 96 6F	call ParseExpr
4B4E	10 41 70 43 11 83 32 00	.db tLParen,tA,tAdd,tC,tRParen,tDiv,t2,0
4B56	3E 06	ld a, 6
4B58	EF 99 49	rst 28h\ .dw _FormReal
4B5B	21 8E 84	ld hl, OP3
4B5E	CD 5A 70	call AppendStr
4B61	CD 70 70	call AppendStrInline
4B64	2C 00	.db ",",0
4B66	CD 96 6F	call ParseExpr
4B69	10 42 70 44 11 83 32 00	.db tLParen,tB,tAdd,tD,tRParen,tDiv,t2,0
4B71	3E 07	ld a, 7
4B73	EF 99 49	rst 28h\ .dw _FormReal
4B76	21 8E 84	ld hl, OP3
4B79	CD 5A 70	call AppendStr
4B7C	CD 70 70	call AppendStrInline
4B7F	29 00	.db ")",0
4B81	CD 81 70	call PrintRightAlignStr
4B84	CD 4C 70	call Pause
4B87	C3 98 40	jp Menu_Start
4B8A	CD E0 6E	call PutLine
4B8D	41 78 2B 42 79 2B 43 3D 30 20 28 58 2C 59 29 00	.db "Ax+By+C=0 (X,Y)",0
4B9D	3E 41	ld a, tA
4B9F	CD 0C 6F	call Prompt
4BA2	41 3D 00	.db "A=",0
4BA5	3E 42	ld a, tB
4BA7	CD 0C 6F	call Prompt
4BAA	42 3D 00	.db "B=",0
4BAD	3E 43	ld a, tC
4BAF	CD 0C 6F	call Prompt
4BB2	43 3D 00	.db "C=",0
4BB5	3E 58	ld a, tX
4BB7	CD 0C 6F	call Prompt
4BBA	58 3D 00	.db "X=",0
4BBD	3E 59	ld a, tY
4BBF	CD 0C 6F	call Prompt
4BC2	59 3D 00	.db "Y=",0
4BC5	CD 96 6F	call ParseExpr
4BC8	B2 41 58 70 42 59 70 43 00	.db tAbs,tA,tX,tAdd,tB,tY,tAdd,tC,0
4BD1	EF BF 4A	rst 28h\ .dw _StoAns
4BD4	3E 07	ld a, 7
4BD6	EF 99 49	rst 28h\ .dw _FormReal
4BD9	21 8E 84	ld hl, OP3
4BDC	CD 56 70	call AppendStrInit
4BDF	CD 70 70	call AppendStrInline
4BE2	2F 1A 00	.db "/√",0
4BE5	CD 96 6F	call ParseExpr
4BE8	41 0D 70 42 0D 00	.db tA,tSqr,tAdd,tB,tSqr,0
4BEE	3E 07	ld a, 7
4BF0	EF 99 49	rst 28h\ .dw _FormReal
4BF3	21 8E 84	ld hl, OP3
4BF6	CD 5A 70	call AppendStr
4BF9	CD 81 70	call PrintRightAlignStr
4BFC	CD 62 71	call SqRoot
4BFF	EF 2F 41	rst 28h\ .dw _OP1ToOP2
4C02	EF D7 4A	rst 28h\ .dw _RclAns
4C05	EF 99 40	rst 28h\ .dw _FPDiv
4C08	CD 49 70	call PrintPause
4C0B	C3 98 40	jp Menu_Start
4C0E	3E 02	ld a, 2
4C10	CD 99 70	call InlineOpt
4C13	52 41 44 92 44 45 47 00 44 45 47 92 52 41 44 00	.db "RAD→DEG",0,"DEG→RAD",0
4C23	B7	or a
4C24	20 3F	jr nz, DEGREES_TO_RADIANS
4C26	3E 72	ld a, tAns
4C28	CD 0C 6F	call Prompt
4C2B	41 4E 47 4C 45 3D 00	.db "ANGLE=",0
4C32	CD 96 6F	call ParseExpr
4C35	31 38 30 72 83 AC 00	.db t1,t8,t0,tAns,tDiv,tPi,0
4C3C	EF 7E 49	rst 28h\ .dw _FormDisp
4C3F	FD CB 0B E6	set fmtBin,(iy+fmtOverride)
4C43	FD CB 0B D6	set fmtHex,(iy+fmtOverride)
4C47	FD CB 0B DE	set fmtOct,(iy+fmtOverride)
4C4B	EF AA 50	rst 28h\ .dw _FormBase
4C4E	21 8E 84	ld hl, OP3
4C51	CD 56 70	call AppendStrInit
4C54	CD 81 70	call PrintRightAlignStr
4C57	FD CB 0B A6	res fmtBin,(iy+fmtOverride)
4C5B	FD CB 0B 96	res fmtHex,(iy+fmtOverride)
4C5F	FD CB 0B 9E	res fmtOct,(iy+fmtOverride)
4C63	18 18	jr RADIANS_TO_DEGREES_CONTINUE
4C65	3E 72	ld a, tAns
4C67	CD 0C 6F	call Prompt
4C6A	41 4E 47 4C 45 3D 00	.db "ANGLE=",0
4C71	CD 96 6F	call ParseExpr
4C74	72 83 31 38 30 00	.db tAns,tDiv,t1,t8,t0,0
4C7A	CD 77 71	call PrintPi
4C7D	CD 4C 70	call Pause
4C80	C3 98 40	jp Menu_Start
4C83	3E 41	ld a, tA
4C85	CD 0C 6F	call Prompt
4C88	58 31 3D 00	.db "X1=",0
4C8C	3E 42	ld a, tB
4C8E	CD 0C 6F	call Prompt
4C91	59 31 3D 00	.db "Y1=",0
4C95	3E 43	ld a, tC
4C97	CD 0C 6F	call Prompt
4C9A	5A 31 3D 00	.db "Z1=",0
4C9E	3E 44	ld a, tD
4CA0	CD 0C 6F	call Prompt
4CA3	58 32 3D 00	.db "X2=",0
4CA7	3E 45	ld a, tE
4CA9	CD 0C 6F	call Prompt
4CAC	59 32 3D 00	.db "Y2=",0
4CB0	3E 46	ld a, tF
4CB2	CD 0C 6F	call Prompt
4CB5	5A 32 3D 00	.db "Z2=",0
4CB9	CD E0 6E	call PutLine
4CBC	44 49 53 54 41 4E 43 45 3A 00	.db "DISTANCE:",0
4CC6	CD 96 6F	call ParseExpr
4CC9	10 41 71 44 11 0D 70	.db tLParen,tA,tSub,tD,tRParen,tSqr,tAdd
4CD0	10 42 71 45 11 0D 70	.db tLParen,tB,tSub,tE,tRParen,tSqr,tAdd
4CD7	10 43 71 46 11 0D 00	.db tLParen,tC,tSub,tF,tRParen,tSqr,0
4CDE	CD 1E 71	call PrintSqrt
4CE1	CD E0 6E	call PutLine
4CE4	4D 49 44 50 4F 49 4E 54 3A 00	.db "MIDPOINT:",0
4CEE	CD 6C 70	call AppendStrInlineInit
4CF1	28 00	.db "(",0
4CF3	CD 96 6F	call ParseExpr
4CF6	10 41 70 44 11 83 32 00	.db tLParen,tA,tAdd,tD,tRParen,tDiv,t2,0
4CFE	3E 06	ld a, 6
4D00	EF 99 49	rst 28h\ .dw _FormReal
4D03	21 8E 84	ld hl, OP3
4D06	CD 5A 70	call AppendStr
4D09	CD 70 70	call AppendStrInline
4D0C	2C 00	.db ",",0
4D0E	CD 96 6F	call ParseExpr
4D11	10 42 70 45 11 83 32 00	.db tLParen,tB,tAdd,tE,tRParen,tDiv,t2,0
4D19	3E 06	ld a, 6
4D1B	EF 99 49	rst 28h\ .dw _FormReal
4D1E	21 8E 84	ld hl, OP3
4D21	CD 5A 70	call AppendStr
4D24	CD 70 70	call AppendStrInline
4D27	2C 00	.db ",",0
4D29	CD 96 6F	call ParseExpr
4D2C	10 43 70 46 11 83 32 00	.db tLParen,tC,tAdd,tF,tRParen,tDiv,t2,0
4D34	3E 06	ld a, 6
4D36	EF 99 49	rst 28h\ .dw _FormReal
4D39	21 8E 84	ld hl, OP3
4D3C	CD 5A 70	call AppendStr
4D3F	CD 70 70	call AppendStrInline
4D42	29 00	.db ")",0
4D44	CD 81 70	call PrintRightAlignStr
4D47	CD 4C 70	call Pause
4D4A	C3 98 40	jp Menu_Start
4D4D	3E 02	ld a, 2
4D4F	CD 99 70	call InlineOpt
4D52	50 4F 4C 92 52 45 43 00 52 45 43 92 50 4F 4C 00	.db "POL→REC",0,"REC→POL",0
4D62	B7	or a
4D63	CA B4 4D	jp z, POLAR_TO_RECTANGLE
4D66	3E 58	ld a, tX
4D68	CD 0C 6F	call Prompt
4D6B	58 3D 00	.db "X=",0
4D6E	3E 59	ld a, tY
4D70	CD 0C 6F	call Prompt
4D73	59 3D 00	.db "Y=",0
4D76	CD 6C 70	call AppendStrInlineInit
4D79	28 00	.db "(",0
4D7B	CD 96 6F	call ParseExpr
4D7E	1B 58 2B 59 00	.db tRToPr,tX,tComma,tY,0
4D83	3E 06	ld a, 6
4D85	EF 99 49	rst 28h\ .dw _FormReal
4D88	21 8E 84	ld hl, OP3
4D8B	CD 5A 70	call AppendStr
4D8E	CD 70 70	call AppendStrInline
4D91	2C 00	.db ",",0
4D93	CD 96 6F	call ParseExpr
4D96	1C 58 2B 59 00	.db tRToPo,tX,tComma,tY,0
4D9B	3E 07	ld a, 7
4D9D	EF 99 49	rst 28h\ .dw _FormReal
4DA0	21 8E 84	ld hl, OP3
4DA3	CD 5A 70	call AppendStr
4DA6	CD 70 70	call AppendStrInline
4DA9	29 00	.db ")",0
4DAB	CD 81 70	call PrintRightAlignStr
4DAE	CD 4C 70	call Pause
4DB1	C3 98 40	jp Menu_Start
4DB4	3E 58	ld a, tX
4DB6	CD 0C 6F	call Prompt
4DB9	52 3D 00	.db "R=",0
4DBC	3E 59	ld a, tY
4DBE	CD 0C 6F	call Prompt
4DC1	B8 3D 00	.db "θ=",0
4DC4	CD 6C 70	call AppendStrInlineInit
4DC7	28 00	.db "(",0
4DC9	CD 96 6F	call ParseExpr
4DCC	1D 58 2B 59 00	.db tPToRx,tX,tComma,tY,0
4DD1	3E 06	ld a, 6
4DD3	EF 99 49	rst 28h\ .dw _FormReal
4DD6	21 8E 84	ld hl, OP3
4DD9	CD 5A 70	call AppendStr
4DDC	CD 70 70	call AppendStrInline
4DDF	2C 00	.db ",",0
4DE1	CD 96 6F	call ParseExpr
4DE4	1E 58 2B 59 00	.db tPToRy,tX,tComma,tY,0
4DE9	3E 07	ld a, 7
4DEB	EF 99 49	rst 28h\ .dw _FormReal
4DEE	21 8E 84	ld hl, OP3
4DF1	CD 5A 70	call AppendStr
4DF4	CD 70 70	call AppendStrInline
4DF7	29 00	.db ")",0
4DF9	CD 81 70	call PrintRightAlignStr
4DFC	CD 4C 70	call Pause
4DFF	C3 98 40	jp Menu_Start
4E02	CD 32 75	call SubMenu
4E05	53 55 52 46 41 43 45 20 41 52 45 41 00	.db "SURFACE AREA",0
4E12	06	.db 6
4E13	31 3A 20 43 59 4C 49 4E 44 45 52 20 4C 41 54 45 52 41 4C 20 41 52 45 41 00	.db "1: CYLINDER LATERAL AREA",0
4E2C	32 3A 20 43 59 4C 49 4E 44 45 52 20 54 4F 54 41 4C 20 41 52 45 41 00	.db "2: CYLINDER TOTAL AREA",0
4E43	33 3A 20 43 4F 4E 45 20 4C 41 54 45 52 41 4C 20 41 52 45 41 00	.db "3: CONE LATERAL AREA",0
4E58	34 3A 20 43 4F 4E 45 20 54 4F 54 41 4C 20 41 52 45 41 00	.db "4: CONE TOTAL AREA",0
4E6B	35 3A 20 53 50 48 45 52 45 20 41 52 45 41 00	.db "5: SPHERE AREA",0
4E7A	36 3A 20 48 45 4D 49 53 50 48 45 52 45 20 41 52 45 41 00	.db "6: HEMISPHERE AREA",0
4E8D	99 4E	.dw CYLINDER_LATERAL_AREA
4E8F	CB 4E	.dw CYLINDER_TOTAL_AREA
4E91	06 4F	.dw CONE_LATERAL_AREA
4E93	36 4F	.dw CONE_TOTAL_AREA
4E95	6D 4F	.dw SPHERE_AREA
4E97	92 4F	.dw HEMISPHERE_AREA
4E99	CD E0 6E	call PutLine
4E9C	32 C0 52 48 00	.db "2πRH",0
4EA1	3E 58	ld a, tX
4EA3	CD 0C 6F	call Prompt
4EA6	52 41 44 49 55 53 3D 00	.db "RADIUS=",0
4EAE	3E 59	ld a, tY
4EB0	CD 0C 6F	call Prompt
4EB3	48 45 49 47 48 54 3D 00	.db "HEIGHT=",0
4EBB	CD 96 6F	call ParseExpr
4EBE	32 58 59 00	.db t2,tX,tY,0
4EC2	CD 77 71	call PrintPi
4EC5	CD 4C 70	call Pause
4EC8	C3 98 40	jp Menu_Start
4ECB	CD E0 6E	call PutLine
4ECE	32 C0 52 48 2B 32 C0 52 B2 00	.db "2πRH+2πR²",0
4ED8	3E 58	ld a, tX
4EDA	CD 0C 6F	call Prompt
4EDD	52 41 44 49 55 53 3D 00	.db "RADIUS=",0
4EE5	3E 59	ld a, tY
4EE7	CD 0C 6F	call Prompt
4EEA	48 45 49 47 48 54 3D 00	.db "HEIGHT=",0
4EF2	CD 96 6F	call ParseExpr
4EF5	32 58 59 70 32 58 0D 00	.db t2,tX,tY,tAdd,t2,tX,tSqr,0
4EFD	CD 77 71	call PrintPi
4F00	CD 4C 70	call Pause
4F03	C3 98 40	jp Menu_Start
4F06	CD E0 6E	call PutLine
4F09	C0 52 48 00	.db "πRH",0
4F0D	3E 58	ld a, tX
4F0F	CD 0C 6F	call Prompt
4F12	52 41 44 49 55 53 3D 00	.db "RADIUS=",0
4F1A	3E 59	ld a, tY
4F1C	CD 0C 6F	call Prompt
4F1F	48 45 49 47 48 54 3D 00	.db "HEIGHT=",0
4F27	CD 96 6F	call ParseExpr
4F2A	58 59 00	.db tX,tY,0
4F2D	CD 77 71	call PrintPi
4F30	CD 4C 70	call Pause
4F33	C3 98 40	jp Menu_Start
4F36	CD E0 6E	call PutLine
4F39	C0 52 48 2B C0 52 B2 00	.db "πRH+πR²",0
4F41	3E 58	ld a, tX
4F43	CD 0C 6F	call Prompt
4F46	52 41 44 49 55 53 3D 00	.db "RADIUS=",0
4F4E	3E 59	ld a, tY
4F50	CD 0C 6F	call Prompt
4F53	48 45 49 47 48 54 3D 00	.db "HEIGHT=",0
4F5B	CD 96 6F	call ParseExpr
4F5E	58 59 70 58 0D 00	.db tX,tY,tAdd,tX,tSqr,0
4F64	CD 77 71	call PrintPi
4F67	CD 4C 70	call Pause
4F6A	C3 98 40	jp Menu_Start
4F6D	CD E0 6E	call PutLine
4F70	34 C0 52 B2 00	.db "4πR²",0
4F75	3E 58	ld a, tX
4F77	CD 0C 6F	call Prompt
4F7A	52 41 44 49 55 53 3D 00	.db "RADIUS=",0
4F82	CD 96 6F	call ParseExpr
4F85	34 58 0D 00	.db t4,tX,tSqr,0
4F89	CD 77 71	call PrintPi
4F8C	CD 4C 70	call Pause
4F8F	C3 98 40	jp Menu_Start
4F92	CD E0 6E	call PutLine
4F95	33 C0 52 B2 00	.db "3πR²",0
4F9A	3E 58	ld a, tX
4F9C	CD 0C 6F	call Prompt
4F9F	52 41 44 49 55 53 3D 00	.db "RADIUS=",0
4FA7	CD 96 6F	call ParseExpr
4FAA	33 58 0D 00	.db t3,tX,tSqr,0
4FAE	CD 77 71	call PrintPi
4FB1	CD 4C 70	call Pause
4FB4	C3 98 40	jp Menu_Start
4FB7	CD 32 75	call SubMenu
4FBA	56 4F 4C 55 4D 45 00	.db "VOLUME",0
4FC1	04	.db 4
4FC2	31 3A 20 43 59 4C 49 4E 44 45 52 00	.db "1: CYLINDER",0
4FCE	32 3A 20 43 4F 4E 45 00	.db "2: CONE",0
4FD6	33 3A 20 50 59 52 41 4D 49 44 00	.db "3: PYRAMID",0
4FE1	34 3A 20 53 50 48 45 52 45 00	.db "4: SPHERE",0
4FEB	F3 4F	.dw CYLINDER_VOLUME
4FED	25 50	.dw CONE_VOLUME
4FEF	5B 50	.dw PYRAMID_VOLUME
4FF1	91 50	.dw SPHERE_VOLUME
4FF3	CD E0 6E	call PutLine
4FF6	C0 52 B2 48 00	.db "πR²H",0
4FFB	3E 58	ld a, tX
4FFD	CD 0C 6F	call Prompt
5000	52 41 44 49 55 53 3D 00	.db "RADIUS=",0
5008	3E 59	ld a, tY
500A	CD 0C 6F	call Prompt
500D	48 45 49 47 48 54 3D 00	.db "HEIGHT=",0
5015	CD 96 6F	call ParseExpr
5018	58 0D 59 00	.db tX,tSqr,tY,0
501C	CD 77 71	call PrintPi
501F	CD 4C 70	call Pause
5022	C3 98 40	jp Menu_Start
5025	CD E0 6E	call PutLine
5028	C0 52 B2 48 2F 33 00	.db "πR²H/3",0
502F	3E 58	ld a, tX
5031	CD 0C 6F	call Prompt
5034	52 41 44 49 55 53 3D 00	.db "RADIUS=",0
503C	3E 59	ld a, tY
503E	CD 0C 6F	call Prompt
5041	48 45 49 47 48 54 3D 00	.db "HEIGHT=",0
5049	CD 96 6F	call ParseExpr
504C	58 0D 59 83 33 00	.db tX,tSqr,tY,tDiv,t3,0
5052	CD 77 71	call PrintPi
5055	CD 4C 70	call Pause
5058	C3 98 40	jp Menu_Start
505B	CD E0 6E	call PutLine
505E	42 48 2F 33 00	.db "BH/3",0
5063	3E 58	ld a, tX
5065	CD 0C 6F	call Prompt
5068	42 41 53 45 20 41 52 45 41 3D 00	.db "BASE AREA=",0
5073	3E 59	ld a, tY
5075	CD 0C 6F	call Prompt
5078	48 45 49 47 48 54 3D 00	.db "HEIGHT=",0
5080	CD 96 6F	call ParseExpr
5083	58 59 83 33 00	.db tX,tY,tDiv,t3,0
5088	CD 77 71	call PrintPi
508B	CD 4C 70	call Pause
508E	C3 98 40	jp Menu_Start
5091	CD E0 6E	call PutLine
5094	34 2F 33 2A C0 52 B3 00	.db "4/3*πR³",0
509C	3E 58	ld a, tX
509E	CD 0C 6F	call Prompt
50A1	52 41 44 49 55 53 3D 00	.db "RADIUS=",0
50A9	CD 96 6F	call ParseExpr
50AC	58 0F 34 83 33 00	.db tX,tCube,t4,tDiv,t3,0
50B2	CD 77 71	call PrintPi
50B5	CD 4C 70	call Pause
50B8	C3 98 40	jp Menu_Start
C:\Portable Programs\Latenite\Projects\MathTI83\MathProgs\TriProgs.asm
50BB	3E 02	ld a, 2
50BD	CD 99 70	call InlineOpt
50C0	48 59 50 00 53 49 44 45 00	.db "HYP",0,"SIDE",0
50C9	B7	or a
50CA	20 2A	jr nz, PYTHAGOREAN_THEOREM_SIDE
50CC	CD E0 6E	call PutLine
50CF	41 B2 2B 42 B2 3D 43 B2 00	.db "A²+B²=C²",0
50D8	3E 58	ld a, tX
50DA	CD 0C 6F	call Prompt
50DD	41 3D 00	.db "A=",0
50E0	3E 59	ld a, tY
50E2	CD 0C 6F	call Prompt
50E5	42 3D 00	.db "B=",0
50E8	CD 96 6F	call ParseExpr
50EB	58 0D 70 59 0D 00	.db tX,tSqr,tAdd,tY,tSqr,0
50F1	CD 1E 71	call PrintSqrt
50F4	18 28	jr PYTHAGOREAN_THEOREM_CONTINUE
50F6	CD E0 6E	call PutLine
50F9	41 B2 2B 42 B2 3D 43 B2 00	.db "A²+B²=C²",0
5102	3E 58	ld a, tX
5104	CD 0C 6F	call Prompt
5107	41 3D 00	.db "A=",0
510A	3E 59	ld a, tY
510C	CD 0C 6F	call Prompt
510F	43 3D 00	.db "C=",0
5112	CD 96 6F	call ParseExpr
5115	59 0D 71 58 0D 00	.db tY,tSqr,tSub,tX,tSqr,0
511B	CD 1E 71	call PrintSqrt
511E	CD 4C 70	call Pause
5121	C3 98 40	jp Menu_Start
5124	CD E0 6E	call PutLine
5127	1A 53 28 53 2D 41 29 28 53 2D 42 29 00	.db "√S(S-A)(S-B)",0
5134	CD 6C 70	call AppendStrInlineInit
5137	28 53 2D 43 29 00	.db "(S-C)",0
513D	CD 81 70	call PrintRightAlignStr
5140	3E 41	ld a, tA
5142	CD 0C 6F	call Prompt
5145	53 49 44 45 20 31 3D 00	.db "SIDE 1=",0
514D	3E 42	ld a, tB
514F	CD 0C 6F	call Prompt
5152	53 49 44 45 20 32 3D 00	.db "SIDE 2=",0
515A	3E 43	ld a, tC
515C	CD 0C 6F	call Prompt
515F	53 49 44 45 20 33 3D 00	.db "SIDE 3=",0
5167	CD 96 6F	call ParseExpr
516A	10 41 70 42 70 43 11 83 32 00	.db tLParen,tA,tAdd,tB,tAdd,tC,tRParen,tDiv,t2,0
5174	EF BF 4A	rst 28h\ .dw _StoAns
5177	CD 96 6F	call ParseExpr
517A	72 10 72 71 41 11 10 72 71 42 11 10 72 71 43 11 00	.db tAns,tLParen,tAns,tSub,tA,tRParen,tLParen,tAns,tSub,tB,tRParen,tLParen,tAns,tSub,tC,tRParen,0
518B	CD 1E 71	call PrintSqrt
518E	CD 4C 70	call Pause
5191	C3 98 40	jp Menu_Start
5194	3E 58	ld a, tX
5196	CD 0C 6F	call Prompt
5199	41 4E 47 4C 45 3D 00	.db "ANGLE=",0
51A0	3E 59	ld a, tY
51A2	CD 0C 6F	call Prompt
51A5	53 49 44 45 3D 00	.db "SIDE=",0
51AB	3E 03	ld a, 3
51AD	CD 99 70	call InlineOpt
51B0	41 44 4A 00 4F 50 50 00 48 59 50 00	.db "ADJ",0,"OPP",0,"HYP",0
51BC	B7	or a
51BD	28 44	jr z, TRIG_ADJ
51BF	3D	dec a
51C0	CA 44 52	jp z, TRIG_OPP
51C3	CD 6C 70	call AppendStrInlineInit
51C6	41 44 4A 3D 00	.db "ADJ=",0
51CB	CD 96 6F	call ParseExpr
51CE	59 C4 58 00	.db tY,tCos,tX,0
51D2	3E 0C	ld a, 12
51D4	EF 99 49	rst 28h\ .dw _FormReal
51D7	21 8E 84	ld hl, OP3
51DA	CD 5A 70	call AppendStr
51DD	CD 81 70	call PrintRightAlignStr
51E0	CD 6C 70	call AppendStrInlineInit
51E3	4F 50 50 3D 00	.db "OPP=",0
51E8	CD 96 6F	call ParseExpr
51EB	59 C2 58 00	.db tY,tSin,tX,0
51EF	3E 0C	ld a, 12
51F1	EF 99 49	rst 28h\ .dw _FormReal
51F4	21 8E 84	ld hl, OP3
51F7	CD 5A 70	call AppendStr
51FA	CD 81 70	call PrintRightAlignStr
51FD	CD 4C 70	call Pause
5200	C3 98 40	jp Menu_Start
5203	CD 6C 70	call AppendStrInlineInit
5206	4F 50 50 3D 00	.db "OPP=",0
520B	CD 96 6F	call ParseExpr
520E	59 C6 58 00	.db tY,tTan,tX,0
5212	3E 0C	ld a, 12
5214	EF 99 49	rst 28h\ .dw _FormReal
5217	21 8E 84	ld hl, OP3
521A	CD 5A 70	call AppendStr
521D	CD 81 70	call PrintRightAlignStr
5220	CD 6C 70	call AppendStrInlineInit
5223	48 59 50 3D 00	.db "HYP=",0
5228	CD 96 6F	call ParseExpr
522B	59 83 C4 58 00	.db tY,tDiv,tCos,tX,0
5230	3E 0C	ld a, 12
5232	EF 99 49	rst 28h\ .dw _FormReal
5235	21 8E 84	ld hl, OP3
5238	CD 5A 70	call AppendStr
523B	CD 81 70	call PrintRightAlignStr
523E	CD 4C 70	call Pause
5241	C3 98 40	jp Menu_Start
5244	CD 6C 70	call AppendStrInlineInit
5247	41 44 4A 3D 00	.db "ADJ=",0
524C	CD 96 6F	call ParseExpr
524F	59 83 C6 58 00	.db tY,tDiv,tTan,tX,0
5254	3E 0C	ld a, 12
5256	EF 99 49	rst 28h\ .dw _FormReal
5259	21 8E 84	ld hl, OP3
525C	CD 5A 70	call AppendStr
525F	CD 81 70	call PrintRightAlignStr
5262	CD 6C 70	call AppendStrInlineInit
5265	48 59 50 3D 00	.db "HYP=",0
526A	CD 96 6F	call ParseExpr
526D	59 83 C2 58 00	.db tY,tDiv,tSin,tX,0
5272	3E 0C	ld a, 12
5274	EF 99 49	rst 28h\ .dw _FormReal
5277	21 8E 84	ld hl, OP3
527A	CD 5A 70	call AppendStr
527D	CD 81 70	call PrintRightAlignStr
5280	CD 4C 70	call Pause
5283	C3 98 40	jp Menu_Start
5286	CD E0 6E	call PutLine
5289	30 20 46 4F 52 20 55 4E 4B 4E 4F 57 4E 00	.db "0 FOR UNKNOWN",0
5297	CD E0 6E	call PutLine
529A	55 53 45 20 44 45 47 52 45 45 53 00	.db "USE DEGREES",0
52A6	3E 41	ld a, tA
52A8	CD 0C 6F	call Prompt
52AB	41 3D 00	.db "A=",0
52AE	3E 42	ld a, tB
52B0	CD 0C 6F	call Prompt
52B3	42 3D 00	.db "B=",0
52B6	3E 43	ld a, tC
52B8	CD 0C 6F	call Prompt
52BB	43 3D 00	.db "C=",0
52BE	3E 44	ld a, tD
52C0	CD 0C 6F	call Prompt
52C3	61 3D 00	.db "a=",0
52C6	3E 45	ld a, tE
52C8	CD 0C 6F	call Prompt
52CB	62 3D 00	.db "b=",0
52CE	3E 46	ld a, tF
52D0	CD 0C 6F	call Prompt
52D3	63 3D 00	.db "c=",0
52D6	FD CB 00 D6	set trigDeg, (iy+trigFlags)
52DA	01 00 03	ld bc, 300h
52DD	C5	push bc
52DE	CD 2A 58	call SOLVE_TRIANGLE_BTH_LET_IS_ZERO
52E1	C1	pop bc
52E2	28 01	jr z, $+3
52E4	0C	inc c
52E5	10 F6	djnz SOLVE_TRIANGLE_ANG_LOOP
52E7	C5	push bc
52E8	01 00 06	ld bc, 600h
52EB	C5	push bc
52EC	CD 2A 58	call SOLVE_TRIANGLE_BTH_LET_IS_ZERO
52EF	C1	pop bc
52F0	28 01	jr z, $+3
52F2	0C	inc c
52F3	05	dec b
52F4	3E 03	ld a, 3
52F6	B8	cp b
52F7	20 F2	jr nz, SOLVE_TRIANGLE_SIDE_LOOP
52F9	E1	pop hl
52FA	61	ld h, c
52FB	79	ld a, c
52FC	85	add a, l
52FD	FE 03	cp 3
52FF	DA 45 58	jp c, SOLVE_TRIANGLE_NOT
5302	3E 00	ld a, 0
5304	BC	cp h
5305	CA 45 58	jp z, SOLVE_TRIANGLE_NOT
5308	CD DC 57	call SOLVE_TRIANGLE_FINAL_ANG
530B	7C	ld a, h
530C	85	add a, l
530D	FE 06	cp 6
530F	CA 5E 58	jp z, SOLVE_TRIANGLE_ALREADY
5312	7C	ld a, h
5313	FE 03	cp 3
5315	20 4E	jr nz, SOLVE_TRIANGLE_SKIP_3_SIDE
5317	CD 96 6F	call ParseExpr
531A	C5 10 45 0D 70 46 0D 71 44 0D 11 83 10 32 45 46 00	.db tACos,tLParen,tE,tSqr,tAdd,tF,tSqr,tSub,tD,tSqr,tRParen,tDiv,tLParen,t2,tE,tF,0
532B	3E 41	ld a, tA
532D	CD 37 70	call StoOther
5330	CD 96 6F	call ParseExpr
5333	C5 10 44 0D 70 46 0D 71 45 0D 11 83 10 32 44 46 00	.db tACos,tLParen,tD,tSqr,tAdd,tF,tSqr,tSub,tE,tSqr,tRParen,tDiv,tLParen,t2,tD,tF,0
5344	3E 42	ld a, tB
5346	CD 37 70	call StoOther
5349	CD 96 6F	call ParseExpr
534C	C5 10 44 0D 70 45 0D 71 46 0D 11 83 10 32 44 45 00	.db tACos,tLParen,tD,tSqr,tAdd,tE,tSqr,tSub,tF,tSqr,tRParen,tDiv,tLParen,t2,tD,tE,0
535D	3E 43	ld a, tC
535F	CD 37 70	call StoOther
5362	C3 3C 57	jp SOLVE_TRIANGLE_DISP
5365	7D	ld a, l
5366	3D	dec a
5367	C2 C4 56	jp nz, SOLVE_TRIANGLE_SKIP_1_ANG
536A	06 00	ld b, 0
536C	04	inc b
536D	C5	push bc
536E	CD 2A 58	call SOLVE_TRIANGLE_BTH_LET_IS_ZERO
5371	C1	pop bc
5372	28 F8	jr z, SOLVE_TRIANGLE_LOOP_1_ANG
5374	C5	push bc
5375	04	inc b
5376	04	inc b
5377	04	inc b
5378	CD 2A 58	call SOLVE_TRIANGLE_BTH_LET_IS_ZERO
537B	CA 10 56	jp z, SOLVE_TRIANGLE_SAS
537E	06 03	ld b, 3
5380	04	inc b
5381	C5	push bc
5382	CD 2A 58	call SOLVE_TRIANGLE_BTH_LET_IS_ZERO
5385	C1	pop bc
5386	20 F8	jr nz, SOLVE_TRIANGLE_LOOP_SSA_SIDE
5388	D1	pop de
5389	15	dec d
538A	CA 66 54	jp z, SOLVE_TRIANGLE_SSA_A
538D	15	dec d
538E	CA 3B 55	jp z, SOLVE_TRIANGLE_SSA_B
5391	05	dec b
5392	28 69	jr z, SOLVE_TRIANGLE_SSA_C_D
5394	CD 96 6F	call ParseExpr
5397	C3 C2 43 11 83 46 82 44 00	.db tASin,tSin,tC,tRParen,tDiv,tF,tMul,tD,0
53A0	3E 41	ld a, tA
53A2	CD 37 70	call StoOther
53A5	2E 02	ld l, 2
53A7	CD DC 57	call SOLVE_TRIANGLE_FINAL_ANG
53AA	CD 96 6F	call ParseExpr
53AD	46 83 C2 43 11 82 C2 42 00	.db tF,tDiv,tsin,tC,tRParen,tMul,tsin,tB,0
53B6	3E 45	ld a, tE
53B8	CD 37 70	call StoOther
53BB	CD 96 6F	call ParseExpr
53BE	46 71 44 00	.db tF,tSub,tD,0
53C2	EF 58 42	rst 28h\ .dw _CkOP1Pos
53C5	CA 3C 57	jp z, SOLVE_TRIANGLE_DISP
53C8	CD 42 57	call SOLVE_TRIANGLE_DISP_FUNC
53CB	CD 96 6F	call ParseExpr
53CE	31 38 30 71 41 00	.db t1,t8,t0,tSub,tA,0
53D4	3E 41	ld a, tA
53D6	CD 37 70	call StoOther
53D9	CD 96 6F	call ParseExpr
53DC	31 38 30 71 41 71 43 00	.db t1,t8,t0,tSub,tA,tSub,tC,0
53E4	3E 42	ld a, tB
53E6	CD 37 70	call StoOther
53E9	CD 96 6F	call ParseExpr
53EC	46 83 C2 43 11 82 C2 42 00	.db tF,tDiv,tsin,tC,tRParen,tMul,tsin,tB,0
53F5	3E 45	ld a, tE
53F7	CD 37 70	call StoOther
53FA	C3 3C 57	jp SOLVE_TRIANGLE_DISP
53FD	CD 96 6F	call ParseExpr
5400	C3 C2 43 11 83 46 82 45 00	.db tASin,tSin,tC,tRParen,tDiv,tF,tMul,tE,0
5409	3E 42	ld a, tB
540B	CD 37 70	call StoOther
540E	2E 02	ld l, 2
5410	CD DC 57	call SOLVE_TRIANGLE_FINAL_ANG
5413	CD 96 6F	call ParseExpr
5416	46 83 C2 43 11 82 C2 41 00	.db tF,tDiv,tsin,tC,tRParen,tMul,tsin,tA,0
541F	3E 44	ld a, tD
5421	CD 37 70	call StoOther
5424	CD 96 6F	call ParseExpr
5427	46 71 45 00	.db tF,tSub,tE,0
542B	EF 58 42	rst 28h\ .dw _CkOP1Pos
542E	CA 3C 57	jp z, SOLVE_TRIANGLE_DISP
5431	CD 42 57	call SOLVE_TRIANGLE_DISP_FUNC
5434	CD 96 6F	call ParseExpr
5437	31 38 30 71 42 00	.db t1,t8,t0,tSub,tB,0
543D	3E 42	ld a, tB
543F	CD 37 70	call StoOther
5442	CD 96 6F	call ParseExpr
5445	31 38 30 71 42 71 43 00	.db t1,t8,t0,tSub,tB,tSub,tC,0
544D	3E 41	ld a, tA
544F	CD 37 70	call StoOther
5452	CD 96 6F	call ParseExpr
5455	46 83 C2 43 11 82 C2 41 00	.db tF,tDiv,tsin,tC,tRParen,tMul,tsin,tA,0
545E	3E 44	ld a, tD
5460	CD 37 70	call StoOther
5463	C3 3C 57	jp SOLVE_TRIANGLE_DISP
5466	05	dec b
5467	28 69	jr z, SOLVE_TRIANGLE_SSA_A_E
5469	CD 96 6F	call ParseExpr
546C	C3 C2 41 11 83 44 82 45 00	.db tASin,tSin,tA,tRParen,tDiv,tD,tMul,tE,0
5475	3E 42	ld a, tB
5477	CD 37 70	call StoOther
547A	2E 02	ld l, 2
547C	CD DC 57	call SOLVE_TRIANGLE_FINAL_ANG
547F	CD 96 6F	call ParseExpr
5482	44 83 C2 41 11 82 C2 43 00	.db tD,tDiv,tsin,tA,tRParen,tMul,tsin,tC,0
548B	3E 46	ld a, tF
548D	CD 37 70	call StoOther
5490	CD 96 6F	call ParseExpr
5493	44 71 45 00	.db tD,tSub,tE,0
5497	EF 58 42	rst 28h\ .dw _CkOP1Pos
549A	CA 3C 57	jp z, SOLVE_TRIANGLE_DISP
549D	CD 42 57	call SOLVE_TRIANGLE_DISP_FUNC
54A0	CD 96 6F	call ParseExpr
54A3	31 38 30 71 42 00	.db t1,t8,t0,tSub,tB,0
54A9	3E 42	ld a, tB
54AB	CD 37 70	call StoOther
54AE	CD 96 6F	call ParseExpr
54B1	31 38 30 71 41 71 42 00	.db t1,t8,t0,tSub,tA,tSub,tB,0
54B9	3E 43	ld a, tC
54BB	CD 37 70	call StoOther
54BE	CD 96 6F	call ParseExpr
54C1	44 83 C2 41 11 82 C2 43 00	.db tD,tDiv,tsin,tA,tRParen,tMul,tsin,tC,0
54CA	3E 46	ld a, tF
54CC	CD 37 70	call StoOther
54CF	C3 3C 57	jp SOLVE_TRIANGLE_DISP
54D2	CD 96 6F	call ParseExpr
54D5	C3 C2 41 11 83 44 82 46 00	.db tASin,tSin,tA,tRParen,tDiv,tD,tMul,tF,0
54DE	3E 43	ld a, tC
54E0	CD 37 70	call StoOther
54E3	2E 02	ld l, 2
54E5	CD DC 57	call SOLVE_TRIANGLE_FINAL_ANG
54E8	CD 96 6F	call ParseExpr
54EB	44 83 C2 41 11 82 C2 42 00	.db tD,tDiv,tsin,tA,tRParen,tMul,tsin,tB,0
54F4	3E 45	ld a, tE
54F6	CD 37 70	call StoOther
54F9	CD 96 6F	call ParseExpr
54FC	44 71 46 00	.db tD,tSub,tF,0
5500	EF 58 42	rst 28h\ .dw _CkOP1Pos
5503	CA 3C 57	jp z, SOLVE_TRIANGLE_DISP
5506	CD 42 57	call SOLVE_TRIANGLE_DISP_FUNC
5509	CD 96 6F	call ParseExpr
550C	31 38 30 71 43 00	.db t1,t8,t0,tSub,tC,0
5512	3E 43	ld a, tC
5514	CD 37 70	call StoOther
5517	CD 96 6F	call ParseExpr
551A	31 38 30 71 41 71 43 00	.db t1,t8,t0,tSub,tA,tSub,tC,0
5522	3E 42	ld a, tB
5524	CD 37 70	call StoOther
5527	CD 96 6F	call ParseExpr
552A	44 83 C2 41 11 82 C2 42 00	.db tD,tDiv,tsin,tA,tRParen,tMul,tsin,tB,0
5533	3E 45	ld a, tE
5535	CD 37 70	call StoOther
5538	C3 3C 57	jp SOLVE_TRIANGLE_DISP
553B	05	dec b
553C	28 69	jr z, SOLVE_TRIANGLE_SSA_B_D
553E	CD 96 6F	call ParseExpr
5541	C3 C2 42 11 83 45 82 44 00	.db tASin,tSin,tB,tRParen,tDiv,tE,tMul,tD,0
554A	3E 41	ld a, tA
554C	CD 37 70	call StoOther
554F	2E 02	ld l, 2
5551	CD DC 57	call SOLVE_TRIANGLE_FINAL_ANG
5554	CD 96 6F	call ParseExpr
5557	45 83 C2 42 11 82 C2 43 00	.db tE,tDiv,tsin,tB,tRParen,tMul,tsin,tC,0
5560	3E 46	ld a, tF
5562	CD 37 70	call StoOther
5565	CD 96 6F	call ParseExpr
5568	45 71 44 00	.db tE,tSub,tD,0
556C	EF 58 42	rst 28h\ .dw _CkOP1Pos
556F	CA 3C 57	jp z, SOLVE_TRIANGLE_DISP
5572	CD 42 57	call SOLVE_TRIANGLE_DISP_FUNC
5575	CD 96 6F	call ParseExpr
5578	31 38 30 71 41 00	.db t1,t8,t0,tSub,tA,0
557E	3E 41	ld a, tA
5580	CD 37 70	call StoOther
5583	CD 96 6F	call ParseExpr
5586	31 38 30 71 41 71 42 00	.db t1,t8,t0,tSub,tA,tSub,tB,0
558E	3E 43	ld a, tC
5590	CD 37 70	call StoOther
5593	CD 96 6F	call ParseExpr
5596	45 83 C2 42 11 82 C2 43 00	.db tE,tDiv,tsin,tB,tRParen,tMul,tsin,tC,0
559F	3E 46	ld a, tF
55A1	CD 37 70	call StoOther
55A4	C3 3C 57	jp SOLVE_TRIANGLE_DISP
55A7	CD 96 6F	call ParseExpr
55AA	C3 C2 42 11 83 45 82 46 00	.db tASin,tSin,tB,tRParen,tDiv,tE,tMul,tF,0
55B3	3E 43	ld a, tC
55B5	CD 37 70	call StoOther
55B8	2E 02	ld l, 2
55BA	CD DC 57	call SOLVE_TRIANGLE_FINAL_ANG
55BD	CD 96 6F	call ParseExpr
55C0	45 83 C2 42 11 82 C2 41 00	.db tE,tDiv,tsin,tB,tRParen,tMul,tsin,tA,0
55C9	3E 44	ld a, tD
55CB	CD 37 70	call StoOther
55CE	CD 96 6F	call ParseExpr
55D1	45 71 44 00	.db tE,tSub,tD,0
55D5	EF 58 42	rst 28h\ .dw _CkOP1Pos
55D8	CA 3C 57	jp z, SOLVE_TRIANGLE_DISP
55DB	CD 42 57	call SOLVE_TRIANGLE_DISP_FUNC
55DE	CD 96 6F	call ParseExpr
55E1	31 38 30 71 43 00	.db t1,t8,t0,tSub,tC,0
55E7	3E 43	ld a, tC
55E9	CD 37 70	call StoOther
55EC	CD 96 6F	call ParseExpr
55EF	31 38 30 71 42 71 43 00	.db t1,t8,t0,tSub,tB,tSub,tC,0
55F7	3E 41	ld a, tA
55F9	CD 37 70	call StoOther
55FC	CD 96 6F	call ParseExpr
55FF	45 83 C2 42 11 82 C2 41 00	.db tE,tDiv,tsin,tB,tRParen,tMul,tsin,tA,0
5608	3E 44	ld a, tD
560A	CD 37 70	call StoOther
560D	C3 3C 57	jp SOLVE_TRIANGLE_DISP
5610	F1	pop af
5611	3D	dec a
5612	28 3D	jr z, SOLVE_TRIANGLE_SAS_A
5614	3D	dec a
5615	28 74	jr z, SOLVE_TRIANGLE_SAS_B
5617	CD 96 6F	call ParseExpr
561A	BC 44 0D 70 45 0D 71 32 44 45 C4 43 00	.db tSqrt,tD,tSqr,tAdd,tE,tSqr,tSub,t2,tD,tE,tCos,tC,0
5627	3E 46	ld a, tF
5629	CD 37 70	call StoOther
562C	CD 96 6F	call ParseExpr
562F	C3 C2 43 11 83 46 82 44 00	.db tASin,tSin,tC,tRParen,tDiv,tF,tMul,tD,0
5638	3E 41	ld a, tA
563A	CD 37 70	call StoOther
563D	CD 96 6F	call ParseExpr
5640	C3 C2 43 11 83 46 82 45 00	.db tASin,tSin,tC,tRParen,tDiv,tF,tMul,tE,0
5649	3E 42	ld a, tB
564B	CD 37 70	call StoOther
564E	C3 3C 57	jp SOLVE_TRIANGLE_DISP
5651	CD 96 6F	call ParseExpr
5654	BC 45 0D 70 46 0D 71 32 45 46 C4 41 00	.db tSqrt,tE,tSqr,tAdd,tF,tSqr,tSub,t2,tE,tF,tCos,tA,0
5661	3E 44	ld a, tD
5663	CD 37 70	call StoOther
5666	CD 96 6F	call ParseExpr
5669	C3 C2 41 11 83 44 82 45 00	.db tASin,tSin,tA,tRParen,tDiv,tD,tMul,tE,0
5672	3E 42	ld a, tB
5674	CD 37 70	call StoOther
5677	CD 96 6F	call ParseExpr
567A	C3 C2 41 11 83 44 82 46 00	.db tASin,tSin,tA,tRParen,tDiv,tD,tMul,tF,0
5683	3E 43	ld a, tC
5685	CD 37 70	call StoOther
5688	C3 3C 57	jp SOLVE_TRIANGLE_DISP
568B	CD 96 6F	call ParseExpr
568E	BC 44 0D 70 46 0D 71 32 44 46 C4 42 00	.db tSqrt,tD,tSqr,tAdd,tF,tSqr,tSub,t2,tD,tF,tCos,tB,0
569B	3E 45	ld a, tE
569D	CD 37 70	call StoOther
56A0	CD 96 6F	call ParseExpr
56A3	C3 C2 42 11 83 45 82 44 00	.db tASin,tSin,tB,tRParen,tDiv,tE,tMul,tD,0
56AC	3E 41	ld a, tA
56AE	CD 37 70	call StoOther
56B1	CD 96 6F	call ParseExpr
56B4	C3 C2 42 11 83 45 82 46 00	.db tASin,tSin,tB,tRParen,tDiv,tE,tMul,tF,0
56BD	3E 43	ld a, tC
56BF	CD 37 70	call StoOther
56C2	18 78	jr SOLVE_TRIANGLE_DISP
56C4	06 04	ld b, 4
56C6	CD 2A 58	call SOLVE_TRIANGLE_BTH_LET_IS_ZERO
56C9	20 2B	jr nz, SOLVE_TRIANGLE_AAAS_D
56CB	06 05	ld b, 5
56CD	CD 2A 58	call SOLVE_TRIANGLE_BTH_LET_IS_ZERO
56D0	20 48	jr nz, SOLVE_TRIANGLE_AAAS_E
56D2	CD 96 6F	call ParseExpr
56D5	46 83 C2 43 11 82 C2 41 00	.db tF,tDiv,tsin,tC,tRParen,tMul,tsin,tA,0
56DE	3E 44	ld a, tD
56E0	CD 37 70	call StoOther
56E3	CD 96 6F	call ParseExpr
56E6	46 83 C2 43 11 82 C2 42 00	.db tF,tDiv,tsin,tC,tRParen,tMul,tsin,tB,0
56EF	3E 45	ld a, tE
56F1	CD 37 70	call StoOther
56F4	18 46	jr SOLVE_TRIANGLE_DISP
56F6	CD 96 6F	call ParseExpr
56F9	44 83 C2 41 11 82 C2 42 00	.db tD,tDiv,tsin,tA,tRParen,tMul,tsin,tB,0
5702	3E 45	ld a, tE
5704	CD 37 70	call StoOther
5707	CD 96 6F	call ParseExpr
570A	44 83 C2 41 11 82 C2 43 00	.db tD,tDiv,tsin,tA,tRParen,tMul,tsin,tC,0
5713	3E 46	ld a, tF
5715	CD 37 70	call StoOther
5718	18 22	jr SOLVE_TRIANGLE_DISP
571A	CD 96 6F	call ParseExpr
571D	45 83 C2 42 11 82 C2 41 00	.db tE,tDiv,tsin,tB,tRParen,tMul,tsin,tA,0
5726	3E 44	ld a, tD
5728	CD 37 70	call StoOther
572B	CD 96 6F	call ParseExpr
572E	45 83 C2 42 11 82 C2 43 00	.db tE,tDiv,tsin,tB,tRParen,tMul,tsin,tC,0
5737	3E 46	ld a, tF
5739	CD 37 70	call StoOther
573C	CD 42 57	call SOLVE_TRIANGLE_DISP_FUNC
573F	C3 98 40	jp Menu_Start
5742	CD 6C 70	call AppendStrInlineInit
5745	41 3D 00	.db "A=",0
5748	CD 96 6F	call ParseExpr
574B	41 00	.db tA,0
574D	3E 0E	ld a, 14
574F	EF 99 49	rst 28h\ .dw _FormReal
5752	21 8E 84	ld hl, OP3
5755	CD 5A 70	call AppendStr
5758	CD 81 70	call PrintRightAlignStr
575B	CD 6C 70	call AppendStrInlineInit
575E	42 3D 00	.db "B=",0
5761	CD 96 6F	call ParseExpr
5764	42 00	.db tB,0
5766	3E 0E	ld a, 14
5768	EF 99 49	rst 28h\ .dw _FormReal
576B	21 8E 84	ld hl, OP3
576E	CD 5A 70	call AppendStr
5771	CD 81 70	call PrintRightAlignStr
5774	CD 6C 70	call AppendStrInlineInit
5777	43 3D 00	.db "C=",0
577A	CD 96 6F	call ParseExpr
577D	43 00	.db tC,0
577F	3E 0E	ld a, 14
5781	EF 99 49	rst 28h\ .dw _FormReal
5784	21 8E 84	ld hl, OP3
5787	CD 5A 70	call AppendStr
578A	CD 81 70	call PrintRightAlignStr
578D	CD 6C 70	call AppendStrInlineInit
5790	61 3D 00	.db "a=",0
5793	CD 96 6F	call ParseExpr
5796	44 00	.db tD,0
5798	3E 0E	ld a, 14
579A	EF 99 49	rst 28h\ .dw _FormReal
579D	21 8E 84	ld hl, OP3
57A0	CD 5A 70	call AppendStr
57A3	CD 81 70	call PrintRightAlignStr
57A6	CD 6C 70	call AppendStrInlineInit
57A9	62 3D 00	.db "b=",0
57AC	CD 96 6F	call ParseExpr
57AF	45 00	.db tE,0
57B1	3E 0E	ld a, 14
57B3	EF 99 49	rst 28h\ .dw _FormReal
57B6	21 8E 84	ld hl, OP3
57B9	CD 5A 70	call AppendStr
57BC	CD 81 70	call PrintRightAlignStr
57BF	CD 6C 70	call AppendStrInlineInit
57C2	63 3D 00	.db "c=",0
57C5	CD 96 6F	call ParseExpr
57C8	46 00	.db tF,0
57CA	3E 0E	ld a, 14
57CC	EF 99 49	rst 28h\ .dw _FormReal
57CF	21 8E 84	ld hl, OP3
57D2	CD 5A 70	call AppendStr
57D5	CD 81 70	call PrintRightAlignStr
57D8	CD 4C 70	call Pause
57DB	C9	ret
57DC	3E 02	ld a, 2
57DE	BD	cp l
57DF	C0	ret nz
57E0	E5	push hl
57E1	06 01	ld b, 1
57E3	CD 2A 58	call SOLVE_TRIANGLE_BTH_LET_IS_ZERO
57E6	20 10	jr nz, SOLVE_TRIANGLE_SKIP_SOLVE_A
57E8	CD 96 6F	call ParseExpr
57EB	31 38 30 71 42 71 43 00	.db t1,t8,t0,tSub,tB,tSub,tC,0
57F3	3E 41	ld a, tA
57F5	CD 37 70	call StoOther
57F8	06 02	ld b, 2
57FA	CD 2A 58	call SOLVE_TRIANGLE_BTH_LET_IS_ZERO
57FD	20 10	jr nz, SOLVE_TRIANGLE_SKIP_SOLVE_B
57FF	CD 96 6F	call ParseExpr
5802	31 38 30 71 41 71 43 00	.db t1,t8,t0,tSub,tA,tSub,tC,0
580A	3E 42	ld a, tB
580C	CD 37 70	call StoOther
580F	06 03	ld b, 3
5811	CD 2A 58	call SOLVE_TRIANGLE_BTH_LET_IS_ZERO
5814	20 10	jr nz, SOLVE_TRIANGLE_SKIP_SOLVE_C
5816	CD 96 6F	call ParseExpr
5819	31 38 30 71 41 71 42 00	.db t1,t8,t0,tSub,tA,tSub,tB,0
5821	3E 43	ld a, tC
5823	CD 37 70	call StoOther
5826	E1	pop hl
5827	2E 03	ld l, 3
5829	C9	ret
582A	1E 00	ld e, 0
582C	3E 40	ld a, tA-1
582E	80	add a, b
582F	57	ld d, a
5830	ED 53 78 84	ld (OP1), de
5834	11 00 00	ld de, 0
5837	ED 53 7A 84	ld (OP1M), de
583B	EF E3 4A	rst 28h\ .dw _RclVarSym
583E	EF BC 41	rst 28h\ .dw _OP2Set0
5841	EF 11 41	rst 28h\ .dw _CpOP1OP2
5844	C9	ret
5845	CD E0 6E	call PutLine
5848	4E 4F 54 20 45 4E 4F 55 47 48 20 49 4E 46 4F 00	.db "NOT ENOUGH INFO",0
5858	CD 4C 70	call Pause
585B	C3 98 40	jp Menu_Start
585E	CD E0 6E	call PutLine
5861	41 4C 52 45 41 44 59 20 53 4F 4C 56 45 44 00	.db "ALREADY SOLVED",0
5870	CD 4C 70	call Pause
5873	C3 98 40	jp Menu_Start
5876	CD E0 6E	call PutLine
5879	61 62 2F 32 2A 73 69 6E 28 43 29 00	.db "ab/2*sin(C)",0
5885	3E 58	ld a, tX
5887	CD 0C 6F	call Prompt
588A	53 49 44 45 20 31 3D 00	.db "SIDE 1=",0
5892	3E 72	ld a, tAns
5894	CD 0C 6F	call Prompt
5897	41 4E 47 4C 45 3D 00	.db "ANGLE=",0
589E	3E 59	ld a, tY
58A0	CD 0C 6F	call Prompt
58A3	53 49 44 45 20 32 3D 00	.db "SIDE 2=",0
58AB	CD 96 6F	call ParseExpr
58AE	58 59 83 32 C2 72 00	.db tX,tY,tDiv,t2,tSin,tAns,0
58B5	CD 49 70	call PrintPause
58B8	C3 98 40	jp Menu_Start
58BB	FD CB 00 56	bit trigDeg, (iy+trigFlags)
58BF	28 15	jr z, HEIGHT_GIVEN_ASA_RAD1
58C1	CD E0 6E	call PutLine
58C4	62 2F 73 69 6E 28 31 38 30 2D 41 2D 43 29 2A 00	.db "b/sin(180-A-C)*",0
58D4	18 11	jr HEIGHT_GIVEN_ASA_SKIP1
58D6	CD E0 6E	call PutLine
58D9	62 2F 73 69 6E 28 C0 2D 41 2D 43 29 2A 00	.db "b/sin(π-A-C)*",0
58E7	CD 6C 70	call AppendStrInlineInit
58EA	73 69 6E 28 41 29 2A 73 69 6E 28 43 29 00	.db "sin(A)*sin(C)",0
58F8	CD 81 70	call PrintRightAlignStr
58FB	3E 58	ld a, tX
58FD	CD 0C 6F	call Prompt
5900	41 4E 47 4C 45 20 31 3D 00	.db "ANGLE 1=",0
5909	3E 72	ld a, tAns
590B	CD 0C 6F	call Prompt
590E	53 49 44 45 3D 00	.db "SIDE=",0
5914	3E 59	ld a, tY
5916	CD 0C 6F	call Prompt
5919	41 4E 47 4C 45 20 32 3D 00	.db "ANGLE 2=",0
5922	FD CB 00 56	bit trigDeg, (iy+trigFlags)
5926	28 16	jr z, HEIGHT_GIVEN_ASA_RAD2
5928	CD 96 6F	call ParseExpr
592B	72 83 C2 31 38 30 71 58 71 59 11 C2 58 11 C2 59 00	.db tAns,tDiv,tsin,t1,t8,t0,tSub,tX,tSub,tY,tRParen,tsin,tX,tRParen,tsin,tY,0
593C	18 12	jr HEIGHT_GIVEN_ASA_SKIP2
593E	CD 96 6F	call ParseExpr
5941	72 83 C2 AC 71 58 71 59 11 C2 58 11 C2 59 00	.db tAns,tDiv,tsin,tPi,tSub,tX,tSub,tY,tRParen,tsin,tX,tRParen,tsin,tY,0
5950	CD 49 70	call PrintPause
5953	C3 98 40	jp Menu_Start
C:\Portable Programs\Latenite\Projects\MathTI83\MathProgs\CirProgs.asm
5956	EF 43 45	rst 28h\ .dw _ClrLCD
5959	EF D0 4B	rst 28h\ .dw _GrBufClr
595C	21 E7 5A	ld hl, UNIT_CIRCLE_DATA
595F	E5	push hl
5960	3E 44	ld a, 68
5962	32 1B 8D	ld (curGX2), a
5965	32 19 8D	ld (curGX), a
5968	3E 1F	ld a, 31
596A	32 1A 8D	ld (curGY2), a
596D	3E 05	ld a, 5
596F	32 18 8D	ld (curGY), a
5972	FD CB 3C E6	set useFastCirc, (iy+plotFlag3)
5976	EF D7 47	rst 28h\ .dw _GrphCirc
5979	FD CB 3C A6	res useFastCirc, (iy+plotFlag3)
597D	01 1F 44	ld bc, 68*256+31
5980	E1	pop hl
5981	56	ld d, (hl)
5982	23	inc hl
5983	5E	ld e, (hl)
5984	2B	dec hl
5985	D5	push de
5986	E5	push hl
5987	26 01	ld h, 1
5989	EF E0 47	rst 28h\ .dw _ILine
598C	CD 6C 70	call AppendStrInlineInit
598F	72 61 64 3D 00	.db "rad=",0
5994	E1	pop hl
5995	E5	push hl
5996	B7	or a
5997	11 E7 5A	ld de, UNIT_CIRCLE_DATA
599A	ED 52	sbc hl, de
599C	7D	ld a, l
599D	CB 3F	srl a
599F	F5	push af
59A0	21 07 5B	ld hl, UNIT_CIRCLE_RAD_TEXT
59A3	CD 96 71	call FindAthStr
59A6	CD 5A 70	call AppendStr
59A9	21 01 00	ld hl, 0*256+1
59AC	1E 28	ld e, 40
59AE	CD A3 71	call PrintToE
59B1	CD 6C 70	call AppendStrInlineInit
59B4	73 69 6E 3D 00	.db "sin=",0
59B9	F1	pop af
59BA	F5	push af
59BB	21 4E 5B	ld hl, UNIT_CIRCLE_SIN_TEXT
59BE	CD 96 71	call FindAthStr
59C1	CD 5A 70	call AppendStr
59C4	21 01 0A	ld hl, 10*256+1
59C7	1E 28	ld e, 40
59C9	CD A3 71	call PrintToE
59CC	CD 6C 70	call AppendStrInlineInit
59CF	63 6F 73 3D 00	.db "cos=",0
59D4	F1	pop af
59D5	F5	push af
59D6	C6 04	add a, 4
59D8	E6 0F	and 1111b
59DA	21 4E 5B	ld hl, UNIT_CIRCLE_SIN_TEXT
59DD	CD 96 71	call FindAthStr
59E0	CD 5A 70	call AppendStr
59E3	21 01 11	ld hl, 17*256+1
59E6	1E 28	ld e, 40
59E8	CD A3 71	call PrintToE
59EB	CD 6C 70	call AppendStrInlineInit
59EE	74 61 6E 3D 00	.db "tan=",0
59F3	F1	pop af
59F4	F5	push af
59F5	E6 07	and 111b
59F7	21 95 5B	ld hl, UNIT_CIRCLE_TAN_TEXT
59FA	CD 96 71	call FindAthStr
59FD	CD 5A 70	call AppendStr
5A00	21 01 18	ld hl, 24*256+1
5A03	1E 28	ld e, 40
5A05	CD A3 71	call PrintToE
5A08	CD 6C 70	call AppendStrInlineInit
5A0B	63 6F 74 3D 00	.db "cot=",0
5A10	F1	pop af
5A11	F5	push af
5A12	D6 04	sub 4
5A14	ED 44	neg
5A16	E6 07	and 111b
5A18	21 95 5B	ld hl, UNIT_CIRCLE_TAN_TEXT
5A1B	CD 96 71	call FindAthStr
5A1E	CD 5A 70	call AppendStr
5A21	21 01 1F	ld hl, 31*256+1
5A24	1E 28	ld e, 40
5A26	CD A3 71	call PrintToE
5A29	CD 6C 70	call AppendStrInlineInit
5A2C	73 65 63 3D 00	.db "sec=",0
5A31	F1	pop af
5A32	F5	push af
5A33	21 B2 5B	ld hl, UNIT_CIRCLE_SEC_TEXT
5A36	CD 96 71	call FindAthStr
5A39	CD 5A 70	call AppendStr
5A3C	21 01 26	ld hl, 38*256+1
5A3F	1E 28	ld e, 40
5A41	CD A3 71	call PrintToE
5A44	CD 6C 70	call AppendStrInlineInit
5A47	63 73 63 3D 00	.db "csc=",0
5A4C	F1	pop af
5A4D	F5	push af
5A4E	C6 0C	add a, 12
5A50	E6 0F	and 1111b
5A52	21 B2 5B	ld hl, UNIT_CIRCLE_SEC_TEXT
5A55	CD 96 71	call FindAthStr
5A58	CD 5A 70	call AppendStr
5A5B	21 01 2D	ld hl, 45*256+1
5A5E	1E 28	ld e, 40
5A60	CD A3 71	call PrintToE
5A63	CD 6C 70	call AppendStrInlineInit
5A66	28 00	.db "(",0
5A68	F1	pop af
5A69	F5	push af
5A6A	C6 04	add a, 4
5A6C	E6 0F	and 1111b
5A6E	21 4E 5B	ld hl, UNIT_CIRCLE_SIN_TEXT
5A71	CD 96 71	call FindAthStr
5A74	CD 5A 70	call AppendStr
5A77	CD 70 70	call AppendStrInline
5A7A	2C 00	.db ",",0
5A7C	F1	pop af
5A7D	21 4E 5B	ld hl, UNIT_CIRCLE_SIN_TEXT
5A80	CD 96 71	call FindAthStr
5A83	CD 5A 70	call AppendStr
5A86	CD 70 70	call AppendStrInline
5A89	29 00	.db ")",0
5A8B	21 01 39	ld hl, 57*256+1
5A8E	1E 30	ld e, 48
5A90	CD A3 71	call PrintToE
5A93	EF 72 49	rst 28h\ .dw _GetKey
5A96	E1	pop hl
5A97	FE 40	cp kQuit
5A99	28 22	jr z, UNIT_CIRCLE_QUIT
5A9B	FE 03	cp kUp
5A9D	28 26	jr z, UNIT_CIRCLE_UP
5A9F	FE 04	cp kDown
5AA1	28 33	jr z, UNIT_CIRCLE_DOWN
5AA3	FE 02	cp kLeft
5AA5	28 1E	jr z, UNIT_CIRCLE_UP
5AA7	FE 01	cp kRight
5AA9	28 2B	jr z, UNIT_CIRCLE_DOWN
5AAB	D1	pop de
5AAC	E5	push hl
5AAD	C3 7D 59	jp UNIT_CIRCLE_LOOP
5AB0	D1	pop de
5AB1	E5	push hl
5AB2	01 1F 44	ld bc, 68*256+31
5AB5	26 00	ld h, 0
5AB7	EF E0 47	rst 28h\ .dw _ILine
5ABA	C3 7D 59	jp UNIT_CIRCLE_LOOP
5ABD	D1	pop de
5ABE	FD CB 03 C6	set graphDraw, (iy+graphFlags)
5AC2	C3 98 40	jp Menu_Start
5AC5	23	inc hl
5AC6	23	inc hl
5AC7	3E 5B	ld a, (UNIT_CIRCLE_DATA+32) / 100h
5AC9	BC	cp h
5ACA	20 E4	jr nz, UNIT_CIRCLE_CONTINUE
5ACC	3E 07	ld a, (UNIT_CIRCLE_DATA+32) & FFh
5ACE	BD	cp l
5ACF	20 DF	jr nz, UNIT_CIRCLE_CONTINUE
5AD1	21 E7 5A	ld hl, UNIT_CIRCLE_DATA
5AD4	18 DA	jr UNIT_CIRCLE_CONTINUE
5AD6	2B	dec hl
5AD7	2B	dec hl
5AD8	3E 5A	ld a, (UNIT_CIRCLE_DATA-2) / 100h
5ADA	BC	cp h
5ADB	20 D3	jr nz, UNIT_CIRCLE_CONTINUE
5ADD	3E E5	ld a, (UNIT_CIRCLE_DATA-2) & FFh
5ADF	BD	cp l
5AE0	20 CE	jr nz, UNIT_CIRCLE_CONTINUE
5AE2	21 05 5B	ld hl, UNIT_CIRCLE_DATA+30
5AE5	18 C9	jr UNIT_CIRCLE_CONTINUE
5AE7	5D 1F 5A 2C 55 30 51 35	.db 93, 31, 90, 44, 85, 48, 81, 53
5AEF	44 38 37 35 33 30 2E 2C	.db 68, 56, 55, 53, 51, 48, 46, 44
5AF7	2B 1F 2E 12 33 0E 37 09	.db 43, 31, 46, 18, 51, 14, 55, 9
5AFF	44 06 51 09 55 0E 5A 12	.db 68, 6, 81, 9, 85, 14, 90, 18
5B07	30 00 C0 2F 36 00 C0 2F 34 00 C0 2F 33 00	.db "0" ,0,"π/6" ,0,"π/4" ,0,"π/3" ,0
5B15	C0 2F 32 00 32 C0 2F 33 00 33 C0 2F 34 00 35 C0 2F 36 00	.db "π/2" ,0,"2π/3",0,"3π/4",0,"5π/6" ,0
5B28	C0 00 37 C0 2F 36 00 35 C0 2F 34 00 34 C0 2F 33 00	.db "π" ,0,"7π/6",0,"5π/4",0,"4π/3" ,0
5B39	33 C0 2F 32 00 35 C0 2F 33 00 37 C0 2F 34 00 31 31 C0 2F 36 00	.db "3π/2",0,"5π/3",0,"7π/4",0,"11π/6",0
5B4E	30 00 31 2F 32 00 1A 32 2F 32 00 1A 33 2F 32 00	.db "0" ,0,"1/2" ,0,"√2/2" ,0,"√3/2" ,0
5B5E	31 00 1A 33 2F 32 00 1A 32 2F 32 00 31 2F 32 00	.db "1" ,0,"√3/2" ,0,"√2/2" ,0,"1/2" ,0
5B6E	30 00 2D 31 2F 32 00 2D 1A 32 2F 32 00 2D 1A 33 2F 32 00	.db "0" ,0,"-1/2" ,0,"-√2/2",0,"-√3/2",0
5B81	2D 31 00 2D 1A 33 2F 32 00 2D 1A 32 2F 32 00 2D 31 2F 32 00	.db "-1",0,"-√3/2",0,"-√2/2",0,"-1/2" ,0
5B95	30 00 1A 33 2F 33 00 31 00 1A 33 00	.db "0" ,0,"√3/3",0,"1" ,0,"√3" ,0
5BA1	75 6E 64 00 2D 1A 33 00 2D 31 00 2D 1A 33 2F 33 00	.db "und",0,"-√3" ,0,"-1",0,"-√3/3",0
5BB2	31 00 32 1A 33 2F 33 00 1A 32 00 32 00	.db "1" ,0,"2√3/3" ,0,"√2" ,0,"2" ,0
5BBF	75 6E 64 00 2D 32 00 2D 1A 32 00 2D 32 1A 33 2F 33 00	.db "und",0,"-2" ,0,"-√2",0,"-2√3/3",0
5BD1	2D 31 00 2D 32 1A 33 2F 33 00 2D 1A 32 00 2D 32 00	.db "-1" ,0,"-2√3/3",0,"-√2",0,"-2" ,0
5BE2	75 6E 64 00 32 00 1A 32 00 32 1A 33 2F 33 00	.db "und",0,"2" ,0,"√2" ,0,"2√3/3" ,0
5BF1	FD CB 00 56	bit trigDeg, (iy+trigFlags)
5BF5	28 39	jr z, ARC_LENGTH_RAD
5BF7	CD E0 6E	call PutLine
5BFA	28 B8 2F 31 38 30 29 C0 52 00	.db "(θ/180)πR",0
5C04	3E 58	ld a, tX
5C06	CD 0C 6F	call Prompt
5C09	41 4E 47 4C 45 3D 00	.db "ANGLE=",0
5C10	3E 59	ld a, tY
5C12	CD 0C 6F	call Prompt
5C15	52 41 44 49 55 53 3D 00	.db "RADIUS=",0
5C1D	CD 96 6F	call ParseExpr
5C20	58 59 83 31 38 30 00	.db tX,tY,tDiv,t1,t8,t0,0
5C27	CD 77 71	call PrintPi
5C2A	CD 4C 70	call Pause
5C2D	C3 98 40	jp Menu_Start
5C30	CD E0 6E	call PutLine
5C33	B8 52 00	.db "θR",0
5C36	3E 58	ld a, tX
5C38	CD 0C 6F	call Prompt
5C3B	41 4E 47 4C 45 3D 00	.db "ANGLE=",0
5C42	3E 59	ld a, tY
5C44	CD 0C 6F	call Prompt
5C47	52 41 44 49 55 53 3D 00	.db "RADIUS=",0
5C4F	CD 96 6F	call ParseExpr
5C52	58 59 00	.db tX,tY,0
5C55	CD 49 70	call PrintPause
5C58	C3 98 40	jp Menu_Start
5C5B	FD CB 00 56	bit trigDeg, (iy+trigFlags)
5C5F	28 3D	jr z, SECTOR_AREA_RAD
5C61	CD E0 6E	call PutLine
5C64	28 B8 2F 33 36 30 29 C0 52 B2 00	.db "(θ/360)πR²",0
5C6F	3E 58	ld a, tX
5C71	CD 0C 6F	call Prompt
5C74	44 45 47 52 45 45 53 3D 00	.db "DEGREES=",0
5C7D	3E 59	ld a, tY
5C7F	CD 0C 6F	call Prompt
5C82	52 41 44 49 55 53 3D 00	.db "RADIUS=",0
5C8A	CD 96 6F	call ParseExpr
5C8D	58 59 0D 83 33 36 30 00	.db tX,tY,tSqr,tDiv,t3,t6,t0,0
5C95	CD 77 71	call PrintPi
5C98	CD 4C 70	call Pause
5C9B	C3 98 40	jp Menu_Start
5C9E	CD E0 6E	call PutLine
5CA1	B8 52 B2 2F 32 00	.db "θR²/2",0
5CA7	3E 58	ld a, tX
5CA9	CD 0C 6F	call Prompt
5CAC	44 45 47 52 45 45 53 3D 00	.db "DEGREES=",0
5CB5	3E 59	ld a, tY
5CB7	CD 0C 6F	call Prompt
5CBA	52 41 44 49 55 53 3D 00	.db "RADIUS=",0
5CC2	CD 96 6F	call ParseExpr
5CC5	58 59 0D 83 32 00	.db tX,tY,tSqr,tDiv,t2,0
5CCB	CD 49 70	call PrintPause
5CCE	C3 98 40	jp Menu_Start
5CD1	FD CB 00 56	bit trigDeg, (iy+trigFlags)
5CD5	28 50	jr z, SEGMENT_AREA_RAD
5CD7	CD E0 6E	call PutLine
5CDA	B8 C0 52 B2 2F 33 36 30 2D 00	.db "θπR²/360-",0
5CE4	CD 6C 70	call AppendStrInlineInit
5CE7	52 B2 73 69 6E 28 B8 29 2F 32 00	.db "R²sin(θ)/2",0
5CF2	CD 81 70	call PrintRightAlignStr
5CF5	3E 58	ld a, tX
5CF7	CD 0C 6F	call Prompt
5CFA	41 4E 47 4C 45 3D 00	.db "ANGLE=",0
5D01	3E 59	ld a, tY
5D03	CD 0C 6F	call Prompt
5D06	52 41 44 49 55 53 3D 00	.db "RADIUS=",0
5D0E	CD 96 6F	call ParseExpr
5D11	58 AC 59 0D 83 33 36 30 71 59 0D 83 32 C2 58 00	.db tX,tPi,tY,tSqr,tDiv,t3,t6,t0,tSub,tY,tSqr,tDiv,t2,tSin,tX,0
5D21	CD 49 70	call PrintPause
5D24	C3 98 40	jp Menu_Start
5D27	CD E0 6E	call PutLine
5D2A	52 B2 2F 32 28 B8 2D 73 69 6E 28 B8 29 29 00	.db "R²/2(θ-sin(θ))",0
5D39	3E 58	ld a, tX
5D3B	CD 0C 6F	call Prompt
5D3E	41 4E 47 4C 45 3D 00	.db "ANGLE=",0
5D45	3E 59	ld a, tY
5D47	CD 0C 6F	call Prompt
5D4A	52 41 44 49 55 53 3D 00	.db "RADIUS=",0
5D52	CD 96 6F	call ParseExpr
5D55	59 0D 83 32 10 58 71 C2 58 00	.db tY,tSqr,tDiv,t2,tLParen,tX,tSub,tSin,tX,0
5D5F	CD 49 70	call PrintPause
5D62	C3 98 40	jp Menu_Start
5D65	CD 32 75	call SubMenu
5D68	43 49 52 43 4C 45 20 41 4E 47 4C 45 53 00	.db "CIRCLE ANGLES",0
5D76	06	.db 6
5D77	31 3A 20 49 4E 53 43 52 49 42 45 44 20 41 4E 47 4C 45 00	.db "1: INSCRIBED ANGLE",0
5D8A	32 3A 20 54 41 4E 20 43 48 4F 52 44 20 41 4E 47 4C 45 00	.db "2: TAN CHORD ANGLE",0
5D9D	33 3A 20 43 48 4F 52 44 20 43 48 4F 52 44 20 41 4E 47 4C 45 00	.db "3: CHORD CHORD ANGLE",0
5DB2	34 3A 20 53 45 43 20 53 45 43 20 41 4E 47 4C 45 00	.db "4: SEC SEC ANGLE",0
5DC3	35 3A 20 54 41 4E 20 54 41 4E 20 41 4E 47 4C 45 00	.db "5: TAN TAN ANGLE",0
5DD4	36 3A 20 53 45 43 20 54 41 4E 20 41 4E 47 4C 45 00	.db "6: SEC TAN ANGLE",0
5DE5	F1 5D	.dw INSCRIBED_ANGLE
5DE7	F1 5D	.dw INSCRIBED_ANGLE
5DE9	11 5E	.dw CHORD_CHORD_ANGLE
5DEB	47 5E	.dw SEC_TAN_ANGLE
5DED	47 5E	.dw SEC_TAN_ANGLE
5DEF	47 5E	.dw SEC_TAN_ANGLE
5DF1	CD E0 6E	call PutLine
5DF4	41 2F 32 00	.db "A/2",0
5DF8	3E 72	ld a, tAns
5DFA	CD 0C 6F	call Prompt
5DFD	41 4E 47 4C 45 3D 00	.db "ANGLE=",0
5E04	CD 96 6F	call ParseExpr
5E07	72 83 32 00	.db tAns,tDiv,t2,0
5E0B	CD 49 70	call PrintPause
5E0E	C3 98 40	jp Menu_Start
5E11	CD E0 6E	call PutLine
5E14	28 41 31 2B 41 32 29 2F 32 00	.db "(A1+A2)/2",0
5E1E	3E 58	ld a, tX
5E20	CD 0C 6F	call Prompt
5E23	41 4E 47 4C 45 3D 00	.db "ANGLE=",0
5E2A	3E 59	ld a, tY
5E2C	CD 0C 6F	call Prompt
5E2F	41 4E 47 4C 45 3D 00	.db "ANGLE=",0
5E36	CD 96 6F	call ParseExpr
5E39	10 58 70 59 11 83 32 00	.db tLParen,tX,tAdd,tY,tRParen,tDiv,t2,0
5E41	CD 49 70	call PrintPause
5E44	C3 98 40	jp Menu_Start
5E47	CD E0 6E	call PutLine
5E4A	28 4F 2D 49 29 2F 32 00	.db "(O-I)/2",0
5E52	3E 58	ld a, tX
5E54	CD 0C 6F	call Prompt
5E57	4F 55 54 20 41 4E 47 4C 45 3D 00	.db "OUT ANGLE=",0
5E62	3E 59	ld a, tY
5E64	CD 0C 6F	call Prompt
5E67	49 4E 20 41 4E 47 4C 45 3D 00	.db "IN ANGLE=",0
5E71	CD 96 6F	call ParseExpr
5E74	10 58 71 59 11 83 32 00	.db tLParen,tX,tSub,tY,tRParen,tDiv,t2,0
5E7C	CD 49 70	call PrintPause
5E7F	C3 98 40	jp Menu_Start
5E82	CD 32 75	call SubMenu
5E85	43 49 52 43 4C 45 20 41 4E 47 4C 45 53 00	.db "CIRCLE ANGLES",0
5E93	06	.db 6
5E94	31 3A 20 43 48 4F 52 44 2D 43 48 4F 52 44 00	.db "1: CHORD-CHORD",0
5EA3	32 3A 20 53 45 43 2D 53 45 43 20 49 4E 00	.db "2: SEC-SEC IN",0
5EB1	33 3A 20 53 45 43 2D 53 45 43 20 4F 55 54 00	.db "3: SEC-SEC OUT",0
5EC0	34 3A 20 54 41 4E 2D 53 45 43 20 49 4E 00	.db "4: TAN-SEC IN",0
5ECE	35 3A 20 54 41 4E 2D 53 45 43 20 4F 55 54 00	.db "5: TAN-SEC OUT",0
5EDD	36 3A 20 54 41 4E 2D 53 45 43 20 54 41 4E 00	.db "6: TAN-SEC TAN",0
5EEC	F8 5E	.dw CHORD_CHORD_LENGTH
5EEE	38 5F	.dw SEC_SEC_IN_LENGTH
5EF0	88 5F	.dw SEC_SEC_OUT_LENGTH
5EF2	E8 5F	.dw TAN_SEC_IN_LENGTH
5EF4	16 60	.dw TAN_SEC_OUT_LENGTH
5EF6	54 60	.dw TAN_SEC_TAN_LENGTH
5EF8	CD E0 6E	call PutLine
5EFB	4F 4F 2F 41 00	.db "OO/A",0
5F00	3E 58	ld a, tX
5F02	CD 0C 6F	call Prompt
5F05	4F 50 50 20 4C 45 4E 3D 00	.db "OPP LEN=",0
5F0E	3E 59	ld a, tY
5F10	CD 0C 6F	call Prompt
5F13	4F 50 50 20 4C 45 4E 3D 00	.db "OPP LEN=",0
5F1C	3E 72	ld a, tAns
5F1E	CD 0C 6F	call Prompt
5F21	41 44 4A 20 4C 45 4E 3D 00	.db "ADJ LEN=",0
5F2A	CD 96 6F	call ParseExpr
5F2D	58 59 83 72 00	.db tX,tY,tDiv,tAns,0
5F32	CD 49 70	call PrintPause
5F35	C3 98 40	jp Menu_Start
5F38	CD E0 6E	call PutLine
5F3B	4F 6F 28 4F 6F 2B 4F 69 29 2F 41 6F 2D 41 6F 00	.db "Oo(Oo+Oi)/Ao-Ao",0
5F4B	3E 58	ld a, tX
5F4D	CD 0C 6F	call Prompt
5F50	4F 50 50 20 49 4E 3D 00	.db "OPP IN=",0
5F58	3E 59	ld a, tY
5F5A	CD 0C 6F	call Prompt
5F5D	4F 50 50 20 4F 55 54 3D 00	.db "OPP OUT=",0
5F66	3E 72	ld a, tAns
5F68	CD 0C 6F	call Prompt
5F6B	41 44 4A 20 4F 55 54 3D 00	.db "ADJ OUT=",0
5F74	CD 96 6F	call ParseExpr
5F77	59 10 59 70 58 11 83 72 71 72 00	.db tY,tLParen,tY,tAdd,tX,tRParen,tDiv,tAns,tSub,tAns,0
5F82	CD 49 70	call PrintPause
5F85	C3 98 40	jp Menu_Start
5F88	CD E0 6E	call PutLine
5F8B	28 1A 28 41 69 B2 2B 34 4F 6F B2 2B 34 4F 69 4F 6F 29 2D 41 69 29 2F 32 00	.db "(√(Ai²+4Oo²+4OiOo)-Ai)/2",0
5FA4	3E 58	ld a, tX
5FA6	CD 0C 6F	call Prompt
5FA9	4F 50 50 20 49 4E 3D 00	.db "OPP IN=",0
5FB1	3E 59	ld a, tY
5FB3	CD 0C 6F	call Prompt
5FB6	4F 50 50 20 4F 55 54 3D 00	.db "OPP OUT=",0
5FBF	3E 72	ld a, tAns
5FC1	CD 0C 6F	call Prompt
5FC4	41 44 4A 20 49 4E 3D 00	.db "ADJ IN=",0
5FCC	CD 96 6F	call ParseExpr
5FCF	10 BC 72 0D 70 34 59 0D 70 34 58 59 11 71 72 11 83 32 00	.db tLParen,tSqrt,tAns,tSqr,tAdd,t4,tY,tSqr,tAdd,t4,tX,tY,tRParen,tSub,tAns,tRParen,tDiv,t2,0
5FE2	CD 49 70	call PrintPause
5FE5	C3 98 40	jp Menu_Start
5FE8	CD E0 6E	call PutLine
5FEB	54 B2 2F 4F 2D 4F 00	.db "T²/O-O",0
5FF2	3E 58	ld a, tX
5FF4	CD 0C 6F	call Prompt
5FF7	54 41 4E 3D 00	.db "TAN=",0
5FFC	3E 59	ld a, tY
5FFE	CD 0C 6F	call Prompt
6001	4F 55 54 3D 00	.db "OUT=",0
6006	CD 96 6F	call ParseExpr
6009	58 0D 83 59 71 59 00	.db tX,tSqr,tDiv,tY,tSub,tY,0
6010	CD 49 70	call PrintPause
6013	C3 98 40	jp Menu_Start
6016	CD E0 6E	call PutLine
6019	28 1A 28 49 B2 2B 34 54 B2 29 2D 49 29 2F 32 00	.db "(√(I²+4T²)-I)/2",0
6029	3E 58	ld a, tX
602B	CD 0C 6F	call Prompt
602E	54 41 4E 3D 00	.db "TAN=",0
6033	3E 59	ld a, tY
6035	CD 0C 6F	call Prompt
6038	49 4E 3D 00	.db "IN=",0
603C	CD 96 6F	call ParseExpr
603F	10 BC 59 0D 70 34 58 0D 11 71 59 11 83 32 00	.db tLParen,tSqrt,tY,tSqr,tAdd,t4,tX,tSqr,tRParen,tSub,tY,tRParen,tDiv,t2,0
604E	CD 49 70	call PrintPause
6051	C3 98 40	jp Menu_Start
6054	CD E0 6E	call PutLine
6057	1A 28 4F 28 4F 2B 49 29 29 00	.db "√(O(O+I))",0
6061	3E 58	ld a, tX
6063	CD 0C 6F	call Prompt
6066	4F 55 54 3D 00	.db "OUT=",0
606B	3E 59	ld a, tY
606D	CD 0C 6F	call Prompt
6070	49 4E 3D 00	.db "IN=",0
6074	CD 96 6F	call ParseExpr
6077	BC 58 10 58 70 59 00	.db tSqrt,tX,tLParen,tX,tAdd,tY,0
607E	CD 49 70	call PrintPause
6081	C3 98 40	jp Menu_Start
C:\Portable Programs\Latenite\Projects\MathTI83\MathProgs\ConProgs.asm
6084	CD E0 6E	call PutLine
6087	59 3D 41 58 B2 2B 42 58 2B 43 00	.db "Y=AX²+BX+C",0
6092	3E 58	ld a, tX
6094	CD 0C 6F	call Prompt
6097	41 3D 00	.db "A=",0
609A	3E 59	ld a, tY
609C	CD 0C 6F	call Prompt
609F	42 3D 00	.db "B=",0
60A2	3E 72	ld a, tAns
60A4	CD 0C 6F	call Prompt
60A7	43 3D 00	.db "C=",0
60AA	CD 6C 70	call AppendStrInlineInit
60AD	59 3D 00	.db "Y=",0
60B0	EF E0 4A	rst 28h\ .dw _RclX
60B3	3E 06	ld a, 6
60B5	EF 99 49	rst 28h\ .dw _FormReal
60B8	21 8E 84	ld hl, OP3
60BB	CD 5A 70	call AppendStr
60BE	CD 70 70	call AppendStrInline
60C1	28 58 2D 00	.db "(X-",0
60C5	CD 96 6F	call ParseExpr
60C8	B0 59 83 10 32 58 00	.db tChs,tY,tDiv,tLParen,t2,tX,0
60CF	3E 06	ld a, 6
60D1	EF 99 49	rst 28h\ .dw _FormReal
60D4	21 8E 84	ld hl, OP3
60D7	CD 5A 70	call AppendStr
60DA	CD 70 70	call AppendStrInline
60DD	29 B2 2B 00	.db ")²+",0
60E1	CD 96 6F	call ParseExpr
60E4	72 71 59 0D 83 10 34 58 00	.db tAns,tSub,tY,tSqr,tDiv,tLParen,t4,tX,0
60ED	3E 06	ld a, 6
60EF	EF 99 49	rst 28h\ .dw _FormReal
60F2	21 8E 84	ld hl, OP3
60F5	CD 5A 70	call AppendStr
60F8	CD 81 70	call PrintRightAlignStr
60FB	CD 4C 70	call Pause
60FE	C3 98 40	jp Menu_Start
6101	3E 41	ld a, tA
6103	CD 0C 6F	call Prompt
6106	58 76 3D 00	.db "Xv=",0
610A	3E 42	ld a, tB
610C	CD 0C 6F	call Prompt
610F	59 76 3D 00	.db "Yv=",0
6113	EF 2F 41	rst 28h\ .dw _OP1ToOP2
6116	3E 43	ld a, tC
6118	CD 0C 6F	call Prompt
611B	58 66 3D 00	.db "Xf=",0
611F	3E 44	ld a, tD
6121	CD 0C 6F	call Prompt
6124	59 66 3D 00	.db "Yf=",0
6128	EF 11 41	rst 28h\ .dw _CpOP1OP2
612B	28 54	jr z, GIVEN_VERTEX_AND_FOCUS_HORIZONTAL
612D	CD 6C 70	call AppendStrInlineInit
6130	59 3D 00	.db "Y=",0
6133	CD 96 6F	call ParseExpr
6136	31 83 34 83 10 44 71 42 00	.db t1,tDiv,t4,tDiv,tLParen,tD,tSub,tB,0
613F	3E 06	ld a, 6
6141	EF 99 49	rst 28h\ .dw _FormReal
6144	21 8E 84	ld hl, OP3
6147	CD 5A 70	call AppendStr
614A	CD 70 70	call AppendStrInline
614D	28 58 2D 00	.db "(X-",0
6151	CD 96 6F	call ParseExpr
6154	41 00	.db tA,0
6156	3E 06	ld a, 6
6158	EF 99 49	rst 28h\ .dw _FormReal
615B	21 8E 84	ld hl, OP3
615E	CD 5A 70	call AppendStr
6161	CD 70 70	call AppendStrInline
6164	29 B2 2B 00	.db ")²+",0
6168	CD 96 6F	call ParseExpr
616B	42 00	.db tB,0
616D	3E 06	ld a, 6
616F	EF 99 49	rst 28h\ .dw _FormReal
6172	21 8E 84	ld hl, OP3
6175	CD 5A 70	call AppendStr
6178	CD 81 70	call PrintRightAlignStr
617B	CD 4C 70	call Pause
617E	C3 98 40	jp Menu_Start
6181	CD 6C 70	call AppendStrInlineInit
6184	59 3D 00	.db "Y=",0
6187	CD 96 6F	call ParseExpr
618A	31 83 34 83 10 43 71 41 00	.db t1,tDiv,t4,tDiv,tLParen,tC,tSub,tA,0
6193	3E 06	ld a, 6
6195	EF 99 49	rst 28h\ .dw _FormReal
6198	21 8E 84	ld hl, OP3
619B	CD 5A 70	call AppendStr
619E	CD 70 70	call AppendStrInline
61A1	28 58 2D 00	.db "(X-",0
61A5	CD 96 6F	call ParseExpr
61A8	42 00	.db tB,0
61AA	3E 06	ld a, 6
61AC	EF 99 49	rst 28h\ .dw _FormReal
61AF	21 8E 84	ld hl, OP3
61B2	CD 5A 70	call AppendStr
61B5	CD 70 70	call AppendStrInline
61B8	29 B2 2B 00	.db ")²+",0
61BC	CD 96 6F	call ParseExpr
61BF	41 00	.db tA,0
61C1	3E 06	ld a, 6
61C3	EF 99 49	rst 28h\ .dw _FormReal
61C6	21 8E 84	ld hl, OP3
61C9	CD 5A 70	call AppendStr
61CC	CD 81 70	call PrintRightAlignStr
61CF	CD 4C 70	call Pause
61D2	C3 98 40	jp Menu_Start
61D5	3E 02	ld a, 2
61D7	CD 99 70	call InlineOpt
61DA	59 3D 00 58 3D 00	.db "Y=",0,"X=",0
61E0	B7	or a
61E1	CA E5 62	jp z, PARABOLA_INFO_Y
61E4	CD E0 6E	call PutLine
61E7	58 3D 41 28 59 2D 4B 29 B2 2B 48 00	.db "X=A(Y-K)²+H",0
61F3	3E 72	ld a, tAns
61F5	CD 0C 6F	call Prompt
61F8	41 3D 00	.db "A=",0
61FB	3E 59	ld a, tY
61FD	CD 0C 6F	call Prompt
6200	4B 3D 00	.db "K=",0
6203	3E 58	ld a, tX
6205	CD 0C 6F	call Prompt
6208	48 3D 00	.db "H=",0
620B	EF D7 4A	rst 28h\ .dw _rclAns
620E	EF BC 41	rst 28h\ .dw _OP2set0
6211	EF 11 41	rst 28h\ .dw _CPOP1OP2
6214	38 16	jr c, PARABOLA_INFO_X_LEFT
6216	CD E0 6E	call PutLine
6219	48 4F 52 49 5A 4F 4E 54 41 4C 20 52 49 47 48 54 00	.db "HORIZONTAL RIGHT",0
622A	18 13	jr PARABOLA_INFO_X_CONTINUE
622C	CD E0 6E	call PutLine
622F	48 4F 52 49 5A 4F 4E 54 41 4C 20 4C 45 46 54 00	.db "HORIZONTAL LEFT",0
623F	CD 6C 70	call AppendStrInlineInit
6242	56 54 20 00	.db "VT ",0
6246	CD BA 71	call PrintXY
6249	CD 6C 70	call AppendStrInlineInit
624C	41 4F 53 20 59 3D 00	.db "AOS Y=",0
6253	EF DA 4A	rst 28h\ .dw _rclY
6256	3E 0A	ld a, 10
6258	EF 99 49	rst 28h\ .dw _FormReal
625B	21 8E 84	ld hl, OP3
625E	CD 5A 70	call AppendStr
6261	CD 81 70	call PrintRightAlignStr
6264	CD 6C 70	call AppendStrInlineInit
6267	46 4F 43 20 28 00	.db "FOC (",0
626D	CD 96 6F	call ParseExpr
6270	58 70 31 83 10 34 72 00	.db tX,tAdd,t1,tDiv,tLParen,t4,tAns,0
6278	3E 05	ld a, 5
627A	EF 99 49	rst 28h\ .dw _FormReal
627D	21 8E 84	ld hl, OP3
6280	CD 5A 70	call AppendStr
6283	CD 70 70	call AppendStrInline
6286	2C 00	.db ",",0
6288	EF DA 4A	rst 28h\ .dw _rclY
628B	3E 04	ld a, 4
628D	EF 99 49	rst 28h\ .dw _FormReal
6290	21 8E 84	ld hl, OP3
6293	CD 5A 70	call AppendStr
6296	CD 70 70	call AppendStrInline
6299	29 00	.db ")",0
629B	CD 81 70	call PrintRightAlignStr
629E	CD 6C 70	call AppendStrInlineInit
62A1	44 49 52 58 20 58 3D 00	.db "DIRX X=",0
62A9	CD 96 6F	call ParseExpr
62AC	58 71 31 83 10 34 72 00	.db tX,tSub,t1,tDiv,tLParen,t4,tAns,0
62B4	3E 09	ld a, 9
62B6	EF 99 49	rst 28h\ .dw _FormReal
62B9	21 8E 84	ld hl, OP3
62BC	CD 5A 70	call AppendStr
62BF	CD 81 70	call PrintRightAlignStr
62C2	CD 6C 70	call AppendStrInlineInit
62C5	4C 52 3D 00	.db "LR=",0
62C9	CD 96 6F	call ParseExpr
62CC	31 83 B2 72 00	.db t1,tDiv,tabs,tAns,0
62D1	3E 0D	ld a, 13
62D3	EF 99 49	rst 28h\ .dw _FormReal
62D6	21 8E 84	ld hl, OP3
62D9	CD 5A 70	call AppendStr
62DC	CD 81 70	call PrintRightAlignStr
62DF	CD 4C 70	call Pause
62E2	C3 98 40	jp Menu_Start
62E5	CD E0 6E	call PutLine
62E8	59 3D 41 28 58 2D 48 29 B2 2B 4B 00	.db "Y=A(X-H)²+K",0
62F4	3E 72	ld a, tAns
62F6	CD 0C 6F	call Prompt
62F9	41 3D 00	.db "A=",0
62FC	3E 58	ld a, tX
62FE	CD 0C 6F	call Prompt
6301	48 3D 00	.db "H=",0
6304	3E 59	ld a, tY
6306	CD 0C 6F	call Prompt
6309	4B 3D 00	.db "K=",0
630C	EF D7 4A	rst 28h\ .dw _rclAns
630F	EF BC 41	rst 28h\ .dw _OP2set0
6312	EF 11 41	rst 28h\ .dw _CPOP1OP2
6315	38 11	jr c, PARABOLA_INFO_Y_DOWN
6317	CD E0 6E	call PutLine
631A	56 45 52 54 49 43 41 4C 20 55 50 00	.db "VERTICAL UP",0
6326	18 11	jr PARABOLA_INFO_Y_CONTINUE
6328	CD E0 6E	call PutLine
632B	56 45 52 54 49 43 41 4C 20 44 4F 57 4E 00	.db "VERTICAL DOWN",0
6339	CD 6C 70	call AppendStrInlineInit
633C	56 54 20 00	.db "VT ",0
6340	CD BA 71	call PrintXY
6343	CD 6C 70	call AppendStrInlineInit
6346	41 4F 53 20 58 3D 00	.db "AOS X=",0
634D	EF E0 4A	rst 28h\ .dw _rclX
6350	3E 0A	ld a, 10
6352	EF 99 49	rst 28h\ .dw _FormReal
6355	21 8E 84	ld hl, OP3
6358	CD 5A 70	call AppendStr
635B	CD 81 70	call PrintRightAlignStr
635E	CD 6C 70	call AppendStrInlineInit
6361	46 4F 43 20 28 00	.db "FOC (",0
6367	EF E0 4A	rst 28h\ .dw _rclX
636A	3E 04	ld a, 4
636C	EF 99 49	rst 28h\ .dw _FormReal
636F	21 8E 84	ld hl, OP3
6372	CD 5A 70	call AppendStr
6375	CD 70 70	call AppendStrInline
6378	2C 00	.db ",",0
637A	CD 96 6F	call ParseExpr
637D	59 70 31 83 10 34 72 00	.db tY,tAdd,t1,tDiv,tLParen,t4,tAns,0
6385	3E 05	ld a, 5
6387	EF 99 49	rst 28h\ .dw _FormReal
638A	21 8E 84	ld hl, OP3
638D	CD 5A 70	call AppendStr
6390	CD 70 70	call AppendStrInline
6393	29 00	.db ")",0
6395	CD 81 70	call PrintRightAlignStr
6398	CD 6C 70	call AppendStrInlineInit
639B	44 49 52 58 20 59 3D 00	.db "DIRX Y=",0
63A3	CD 96 6F	call ParseExpr
63A6	59 71 31 83 10 34 72 00	.db tY,tSub,t1,tDiv,tLParen,t4,tAns,0
63AE	3E 09	ld a, 9
63B0	EF 99 49	rst 28h\ .dw _FormReal
63B3	21 8E 84	ld hl, OP3
63B6	CD 5A 70	call AppendStr
63B9	CD 81 70	call PrintRightAlignStr
63BC	CD 6C 70	call AppendStrInlineInit
63BF	4C 52 3D 00	.db "LR=",0
63C3	CD 96 6F	call ParseExpr
63C6	31 83 B2 72 00	.db t1,tDiv,tabs,tAns,0
63CB	3E 0D	ld a, 13
63CD	EF 99 49	rst 28h\ .dw _FormReal
63D0	21 8E 84	ld hl, OP3
63D3	CD 5A 70	call AppendStr
63D6	CD 81 70	call PrintRightAlignStr
63D9	CD 4C 70	call Pause
63DC	C3 98 40	jp Menu_Start
63DF	CD E0 6E	call PutLine
63E2	41 58 B2 2B 42 59 B2 2B 43 58 2B 44 59 3D 45 00	.db "AX²+BY²+CX+DY=E",0
63F2	3E 41	ld a, tA
63F4	CD 0C 6F	call Prompt
63F7	41 3D 00	.db "A=",0
63FA	3E 42	ld a, tB
63FC	CD 0C 6F	call Prompt
63FF	42 3D 00	.db "B=",0
6402	3E 43	ld a, tC
6404	CD 0C 6F	call Prompt
6407	43 3D 00	.db "C=",0
640A	3E 44	ld a, tD
640C	CD 0C 6F	call Prompt
640F	44 3D 00	.db "D=",0
6412	3E 45	ld a, tE
6414	CD 0C 6F	call Prompt
6417	45 3D 00	.db "E=",0
641A	CD E0 6E	call PutLine
641D	28 58 2D 48 29 B2 2F 41 2B 00	.db "(X-H)²/A+",0
6427	CD E0 6E	call PutLine
642A	28 59 2D 4B 29 B2 2F 42 3D 31 00	.db "(Y-K)²/B=1",0
6435	CD 96 6F	call ParseExpr
6438	45 70 43 0D 83 10 34 41 11 70 44 0D 83 10 34 42 00	.db tE,tAdd,tC,tSqr,tDiv,tLParen,t4,tA,tRParen,tAdd,tD,tSqr,tDiv,tLParen,t4,tB,0
6449	EF D1 4A	rst 28h\ .dw _StoX
644C	CD 6C 70	call AppendStrInlineInit
644F	48 3D 00	.db "H=",0
6452	CD 96 6F	call ParseExpr
6455	B0 43 83 10 32 41 00	.db tChs,tC,tDiv,tLParen,t2,tA,0
645C	3E 0E	ld a, 14
645E	EF 99 49	rst 28h\ .dw _FormReal
6461	21 8E 84	ld hl, OP3
6464	CD 5A 70	call AppendStr
6467	CD 81 70	call PrintRightAlignStr
646A	CD 6C 70	call AppendStrInlineInit
646D	41 3D 00	.db "A=",0
6470	CD 96 6F	call ParseExpr
6473	58 83 41 00	.db tX,tDiv,tA,0
6477	3E 0E	ld a, 14
6479	EF 99 49	rst 28h\ .dw _FormReal
647C	21 8E 84	ld hl, OP3
647F	CD 5A 70	call AppendStr
6482	CD 81 70	call PrintRightAlignStr
6485	CD 6C 70	call AppendStrInlineInit
6488	4B 3D 00	.db "K=",0
648B	CD 96 6F	call ParseExpr
648E	B0 44 83 10 32 42 00	.db tChs,tD,tDiv,tLParen,t2,tB,0
6495	3E 0E	ld a, 14
6497	EF 99 49	rst 28h\ .dw _FormReal
649A	21 8E 84	ld hl, OP3
649D	CD 5A 70	call AppendStr
64A0	CD 81 70	call PrintRightAlignStr
64A3	CD 6C 70	call AppendStrInlineInit
64A6	42 3D 00	.db "B=",0
64A9	CD 96 6F	call ParseExpr
64AC	58 83 42 00	.db tX,tDiv,tB,0
64B0	3E 0E	ld a, 14
64B2	EF 99 49	rst 28h\ .dw _FormReal
64B5	21 8E 84	ld hl, OP3
64B8	CD 5A 70	call AppendStr
64BB	CD 81 70	call PrintRightAlignStr
64BE	CD 4C 70	call Pause
64C1	C3 98 40	jp Menu_Start
64C4	CD E0 6E	call PutLine
64C7	28 58 2D 48 29 B2 2F 41 2B 00	.db "(X-H)²/A+",0
64D1	CD E0 6E	call PutLine
64D4	28 59 2D 4B 29 B2 2F 42 3D 31 00	.db "(Y-K)²/B=1",0
64DF	3E 58	ld a, tX
64E1	CD 0C 6F	call Prompt
64E4	48 3D 00	.db "H=",0
64E7	3E 41	ld a, tA
64E9	CD 0C 6F	call Prompt
64EC	41 3D 00	.db "A=",0
64EF	3E 59	ld a, tY
64F1	CD 0C 6F	call Prompt
64F4	4B 3D 00	.db "K=",0
64F7	3E 42	ld a, tB
64F9	CD 0C 6F	call Prompt
64FC	42 3D 00	.db "B=",0
64FF	CD 96 6F	call ParseExpr
6502	41 71 42 00	.db tA,tSub,tB,0
6506	EF BC 41	rst 28h\ .dw _OP2set0
6509	EF 11 41	rst 28h\ .dw _CPOP1OP2
650C	38 18	jr c, CONIC_INFO_VERTICAL
650E	20 48	jr nz, CONIC_INFO_HORIZONTAL
6510	CD E0 6E	call PutLine
6513	43 49 52 43 4C 45 00	.db "CIRCLE",0
651A	CD 6C 70	call AppendStrInlineInit
651D	43 54 20 00	.db "CT ",0
6521	CD BA 71	call PrintXY
6524	18 64	jr CONIC_INFO_CONTINUE
6526	CD E0 6E	call PutLine
6529	56 45 52 54 49 43 41 4C 00	.db "VERTICAL",0
6532	CD 6C 70	call AppendStrInlineInit
6535	43 54 20 00	.db "CT ",0
6539	CD BA 71	call PrintXY
653C	CD E0 6E	call PutLine
653F	46 4F 43 20 3D 20 59 20 2B 2F 2D 00	.db "FOC = Y +/-",0
654B	CD 96 6F	call ParseExpr
654E	B2 41 71 42 00	.db tAbs,tA,tSub,tB,0
6553	CD 38 71	call PrintInlineSqrt
6556	18 32	jr CONIC_INFO_CONTINUE
6558	CD E0 6E	call PutLine
655B	48 4F 52 49 5A 4F 4E 54 41 4C 00	.db "HORIZONTAL",0
6566	CD 6C 70	call AppendStrInlineInit
6569	43 54 20 00	.db "CT ",0
656D	CD BA 71	call PrintXY
6570	CD E0 6E	call PutLine
6573	46 4F 43 20 3D 20 58 20 2B 2F 2D 00	.db "FOC = X +/-",0
657F	CD 96 6F	call ParseExpr
6582	B2 41 71 42 00	.db tAbs,tA,tSub,tB,0
6587	CD 38 71	call PrintInlineSqrt
658A	CD E0 6E	call PutLine
658D	41 58 49 53 20 4C 45 4E 47 54 48 53 00	.db "AXIS LENGTHS",0
659A	CD 96 6F	call ParseExpr
659D	34 B2 41 00	.db t4,tAbs,tA,0
65A1	CD 38 71	call PrintInlineSqrt
65A4	CD 96 6F	call ParseExpr
65A7	34 B2 42 00	.db t4,tAbs,tB,0
65AB	CD 38 71	call PrintInlineSqrt
65AE	CD 4C 70	call Pause
65B1	CD 96 6F	call ParseExpr
65B4	41 42 00	.db tA,tB,0
65B7	EF BC 41	rst 28h\ .dw _OP2set0
65BA	EF 11 41	rst 28h\ .dw _CPOP1OP2
65BD	D2 98 40	jp nc, Menu_Start
65C0	CD 96 6F	call ParseExpr
65C3	41 71 42 00	.db tA,tSub,tB,0
65C7	EF BC 41	rst 28h\ .dw _OP2set0
65CA	EF 11 41	rst 28h\ .dw _CPOP1OP2
65CD	38 1A	jr c, CONIC_INFO_VERTICAL_VTS
65CF	CD E0 6E	call PutLine
65D2	56 54 53 20 3D 20 58 20 2B 2F 2D 00	.db "VTS = X +/-",0
65DE	CD 96 6F	call ParseExpr
65E1	B2 41 00	.db tAbs,tA,0
65E4	CD 38 71	call PrintInlineSqrt
65E7	18 18	jr CONIC_INFO_CONTINUE_VTS
65E9	CD E0 6E	call PutLine
65EC	56 54 53 20 3D 20 59 20 2B 2F 2D 00	.db "VTS = Y +/-",0
65F8	CD 96 6F	call ParseExpr
65FB	B2 42 00	.db tAbs,tB,0
65FE	CD 38 71	call PrintInlineSqrt
6601	CD E0 6E	call PutLine
6604	53 4C 4F 50 45 20 4F 46 20 41 53 59 4D 00	.db "SLOPE OF ASYM",0
6612	CD 96 6F	call ParseExpr
6615	B2 42 83 41 00	.db tAbs,tB,tDiv,tA,0
661A	CD 38 71	call PrintInlineSqrt
661D	CD 4C 70	call Pause
6620	C3 98 40	jp Menu_Start
6623	3E 02	ld a, 2
6625	CD 99 70	call InlineOpt
6628	43 4F 4E 00 53 54 44 20 46 4F 52 4D 00	.db "CON",0,"STD FORM",0
6635	B7	or a
6636	CA 18 67	jp z, CONIC_GRAPHS_CON
6639	CD E0 6E	call PutLine
663C	41 58 B2 2B 42 59 B2 2B 43 58 2B 44 59 3D 45 00	.db "AX²+BY²+CX+DY=E",0
664C	3E 41	ld a, tA
664E	CD 0C 6F	call Prompt
6651	41 3D 00	.db "A=",0
6654	3E 42	ld a, tB
6656	CD 0C 6F	call Prompt
6659	42 3D 00	.db "B=",0
665C	3E 43	ld a, tC
665E	CD 0C 6F	call Prompt
6661	43 3D 00	.db "C=",0
6664	3E 44	ld a, tD
6666	CD 0C 6F	call Prompt
6669	44 3D 00	.db "D=",0
666C	3E 45	ld a, tE
666E	CD 0C 6F	call Prompt
6671	45 3D 00	.db "E=",0
6674	CD 96 6F	call ParseExpr
6677	B0 41 83 42 00	.db tChs,tA,tDiv,tB,0
667C	3E 41	ld a, tA
667E	CD 37 70	call StoOther
6681	CD 96 6F	call ParseExpr
6684	B0 43 83 42 00	.db tChs,tC,tDiv,tB,0
6689	3E 43	ld a, tC
668B	CD 37 70	call StoOther
668E	CD 96 6F	call ParseExpr
6691	44 0D 83 10 34 42 0D 11 70 45 83 42 00	.db tD,tSqr,tDiv,tLParen,t4,tB,tSqr,tRParen,tAdd,tE,tDiv,tB,0
669E	3E 45	ld a, tE
66A0	CD 37 70	call StoOther
66A3	CD 96 6F	call ParseExpr
66A6	B0 44 83 10 32 42 00	.db tChs,tD,tDiv,tLParen,t2,tB,0
66AD	3E 44	ld a, tD
66AF	CD 37 70	call StoOther
66B2	21 03 5E	ld hl, 5E03h
66B5	22 78 84	ld (OP1), hl
66B8	21 51 00	ld hl, tQ
66BB	E5	push hl
66BC	22 7A 84	ld (OP1+2), hl
66BF	21 0D 00	ld hl, CONIC_GRAPHS_CON - CONIC_GRAPHS_STD_EQU
66C2	EF 30 43	rst 28h\ .dw _CreateEqu
66C5	13	inc de
66C6	13	inc de
66C7	21 0B 67	ld hl, CONIC_GRAPHS_STD_EQU
66CA	01 0D 00	ld bc, CONIC_GRAPHS_CON - CONIC_GRAPHS_STD_EQU
66CD	ED B0	ldir
66CF	EF B1 43	rst 28h\ .dw _PushRealO4
66D2	21 03 5E	ld hl, 5E03h
66D5	22 78 84	ld (OP1), hl
66D8	21 52 00	ld hl, tR
66DB	22 7A 84	ld (OP1+2), hl
66DE	21 0C 00	ld hl, CONIC_GRAPHS_CON - CONIC_GRAPHS_STD_EQU - 1
66E1	EF 30 43	rst 28h\ .dw _CreateEqu
66E4	13	inc de
66E5	13	inc de
66E6	21 0C 67	ld hl, CONIC_GRAPHS_STD_EQU+1
66E9	01 0C 00	ld bc, CONIC_GRAPHS_CON - CONIC_GRAPHS_STD_EQU - 1
66EC	ED B0	ldir
66EE	EF B1 43	rst 28h\ .dw _PushRealO4
66F1	EF C1 48	rst 28h\ .dw _DrawCmd
66F4	EF 90 43	rst 28h\ .dw _popRealO1
66F7	D7	rst rFindSym
66F8	EF 51 43	rst 28h\ .dw _DelVar
66FB	EF C1 48	rst 28h\ .dw _DrawCmd
66FE	EF 90 43	rst 28h\ .dw _popRealO1
6701	D7	rst rFindSym
6702	EF 51 43	rst 28h\ .dw _DelVar
6705	CD 4C 70	call Pause
6708	C3 98 40	jp Menu_Start
670B	B0 BC 41 58 0D 70 43 58 70 45 11 70 44	.db tChs,tSqrt,tA,tX,tSqr,tAdd,tC,tX,tAdd,tE,tRParen,tAdd,tD
6718	CD E0 6E	call PutLine
671B	28 58 2D 48 29 B2 2F 41 2B 00	.db "(X-H)²/A+",0
6725	CD E0 6E	call PutLine
6728	28 59 2D 4B 29 B2 2F 42 3D 31 00	.db "(Y-K)²/B=1",0
6733	3E 43	ld a, tC
6735	CD 0C 6F	call Prompt
6738	48 3D 00	.db "H=",0
673B	3E 41	ld a, tA
673D	CD 0C 6F	call Prompt
6740	41 3D 00	.db "A=",0
6743	3E 44	ld a, tD
6745	CD 0C 6F	call Prompt
6748	4B 3D 00	.db "K=",0
674B	3E 42	ld a, tB
674D	CD 0C 6F	call Prompt
6750	42 3D 00	.db "B=",0
6753	21 03 5E	ld hl, 5E03h
6756	22 78 84	ld (OP1), hl
6759	21 51 00	ld hl, tQ
675C	E5	push hl
675D	22 7A 84	ld (OP1+2), hl
6760	21 10 00	ld hl, CONIC_GRAPHS_CON_EQU_END - CONIC_GRAPHS_CON_EQU
6763	EF 30 43	rst 28h\ .dw _CreateEqu
6766	13	inc de
6767	13	inc de
6768	21 AC 67	ld hl, CONIC_GRAPHS_CON_EQU
676B	01 10 00	ld bc, CONIC_GRAPHS_CON_EQU_END - CONIC_GRAPHS_CON_EQU
676E	ED B0	ldir
6770	EF B1 43	rst 28h\ .dw _PushRealO4
6773	21 03 5E	ld hl, 5E03h
6776	22 78 84	ld (OP1), hl
6779	21 52 00	ld hl, tR
677C	22 7A 84	ld (OP1+2), hl
677F	21 0F 00	ld hl, CONIC_GRAPHS_CON_EQU_END - CONIC_GRAPHS_CON_EQU - 1
6782	EF 30 43	rst 28h\ .dw _CreateEqu
6785	13	inc de
6786	13	inc de
6787	21 AD 67	ld hl, CONIC_GRAPHS_CON_EQU+1
678A	01 0F 00	ld bc, CONIC_GRAPHS_CON_EQU_END - CONIC_GRAPHS_CON_EQU - 1
678D	ED B0	ldir
678F	EF B1 43	rst 28h\ .dw _PushRealO4
6792	EF C1 48	rst 28h\ .dw _DrawCmd
6795	EF 90 43	rst 28h\ .dw _popRealO1
6798	D7	rst rFindSym
6799	EF 51 43	rst 28h\ .dw _DelVar
679C	EF C1 48	rst 28h\ .dw _DrawCmd
679F	EF 90 43	rst 28h\ .dw _popRealO1
67A2	D7	rst rFindSym
67A3	EF 51 43	rst 28h\ .dw _DelVar
67A6	CD 4C 70	call Pause
67A9	C3 98 40	jp Menu_Start
67AC	B0 BC 42 71 42 10 58 71 43 11 0D 83 41 11 70 44	.db tChs,tSqrt,tB,tSub,tB,tLParen,tX,tSub,tC,tRParen,tSqr,tDiv,tA,tRParen,tAdd,tD
C:\Portable Programs\Latenite\Projects\MathTI83\MathProgs\StaProgs.asm
67BC	CD E0 6E	call PutLine
67BF	59 3D 50 28 31 2B 52 2F 4E 29 5E 28 4E 54 29 00	.db "Y=P(1+R/N)^(NT)",0
67CF	3E 04	ld a, 4
67D1	CD 99 70	call InlineOpt
67D4	59 3F 00 50 3F 00 52 3F 00 54 3F 00	.db "Y?",0,"P?",0,"R?",0,"T?",0
67E0	FE 01	cp 1
67E2	28 3F	jr z, COMPOUND_INTEREST_P
67E4	FE 02	cp 2
67E6	28 72	jr z, COMPOUND_INTEREST_R
67E8	FE 03	cp 3
67EA	CA 92 68	jp z, COMPOUND_INTEREST_T
67ED	3E 41	ld a, tA
67EF	CD 0C 6F	call Prompt
67F2	50 3D 00	.db "P=",0
67F5	3E 42	ld a, tB
67F7	CD 0C 6F	call Prompt
67FA	52 3D 00	.db "R=",0
67FD	3E 43	ld a, tC
67FF	CD 0C 6F	call Prompt
6802	4E 3D 00	.db "N=",0
6805	3E 44	ld a, tD
6807	CD 0C 6F	call Prompt
680A	54 3D 00	.db "T=",0
680D	CD 96 6F	call ParseExpr
6810	41 10 31 70 42 83 43 11 F0 10 43 44 00	.db tA,tLParen,t1,tAdd,tB,tDiv,tC,tRParen,tPower,tLParen,tC,tD,0
681D	CD 49 70	call PrintPause
6820	C3 98 40	jp Menu_Start
6823	3E 41	ld a, tA
6825	CD 0C 6F	call Prompt
6828	59 3D 00	.db "Y=",0
682B	3E 42	ld a, tB
682D	CD 0C 6F	call Prompt
6830	52 3D 00	.db "R=",0
6833	3E 43	ld a, tC
6835	CD 0C 6F	call Prompt
6838	4E 3D 00	.db "N=",0
683B	3E 44	ld a, tD
683D	CD 0C 6F	call Prompt
6840	54 3D 00	.db "T=",0
6843	CD 96 6F	call ParseExpr
6846	41 83 10 31 70 42 83 43 11 F0 10 43 44 00	.db tA,tDiv,tLParen,t1,tAdd,tB,tDiv,tC,tRParen,tPower,tLParen,tC,tD,0
6854	CD 49 70	call PrintPause
6857	C3 98 40	jp Menu_Start
685A	3E 41	ld a, tA
685C	CD 0C 6F	call Prompt
685F	59 3D 00	.db "Y=",0
6862	3E 42	ld a, tB
6864	CD 0C 6F	call Prompt
6867	50 3D 00	.db "P=",0
686A	3E 43	ld a, tC
686C	CD 0C 6F	call Prompt
686F	4E 3D 00	.db "N=",0
6872	3E 44	ld a, tD
6874	CD 0C 6F	call Prompt
6877	54 3D 00	.db "T=",0
687A	CD 96 6F	call ParseExpr
687D	43 10 10 43 44 11 F1 10 41 83 42 11 71 31 00	.db tC,tLParen,tLParen,tC,tD,tRParen,tXRoot,tLParen,tA,tDiv,tB,tRParen,tSub,t1,0
688C	CD 49 70	call PrintPause
688F	C3 98 40	jp Menu_Start
6892	3E 41	ld a, tA
6894	CD 0C 6F	call Prompt
6897	59 3D 00	.db "Y=",0
689A	3E 42	ld a, tB
689C	CD 0C 6F	call Prompt
689F	50 3D 00	.db "P=",0
68A2	3E 43	ld a, tC
68A4	CD 0C 6F	call Prompt
68A7	52 3D 00	.db "R=",0
68AA	3E 44	ld a, tD
68AC	CD 0C 6F	call Prompt
68AF	4E 3D 00	.db "N=",0
68B2	CD 96 6F	call ParseExpr
68B5	C0 41 83 42 10 83 11 44 C0 31 70 43 83 44 00	.db tlog,tA,tDiv,tB,tLParen,tDiv,tRParen,tD,tlog,t1,tAdd,tC,tDiv,tD,0
68C4	CD 49 70	call PrintPause
68C7	C3 98 40	jp Menu_Start
68CA	CD E0 6E	call PutLine
68CD	59 3D 50 28 31 2B 52 29 5E 54 00	.db "Y=P(1+R)^T",0
68D8	3E 04	ld a, 4
68DA	CD 99 70	call InlineOpt
68DD	59 3F 00 50 3F 00 52 3F 00 54 3F 00	.db "Y?",0,"P?",0,"R?",0,"T?",0
68E9	FE 01	cp 1
68EB	28 33	jr z, SIMPLIFIED_COMP_INT_P
68ED	FE 02	cp 2
68EF	28 5A	jr z, SIMPLIFIED_COMP_INT_R
68F1	FE 03	cp 3
68F3	CA 76 69	jp z, SIMPLIFIED_COMP_INT_T
68F6	3E 41	ld a, tA
68F8	CD 0C 6F	call Prompt
68FB	50 3D 00	.db "P=",0
68FE	3E 42	ld a, tB
6900	CD 0C 6F	call Prompt
6903	52 3D 00	.db "R=",0
6906	3E 43	ld a, tC
6908	CD 0C 6F	call Prompt
690B	54 3D 00	.db "T=",0
690E	CD 96 6F	call ParseExpr
6911	41 10 31 70 42 11 F0 43 00	.db tA,tLParen,t1,tAdd,tB,tRParen,tPower,tC,0
691A	CD 49 70	call PrintPause
691D	C3 98 40	jp Menu_Start
6920	3E 41	ld a, tA
6922	CD 0C 6F	call Prompt
6925	59 3D 00	.db "Y=",0
6928	3E 42	ld a, tB
692A	CD 0C 6F	call Prompt
692D	52 3D 00	.db "R=",0
6930	3E 43	ld a, tC
6932	CD 0C 6F	call Prompt
6935	54 3D 00	.db "T=",0
6938	CD 96 6F	call ParseExpr
693B	41 83 10 31 70 42 11 F0 43 00	.db tA,tDiv,tLParen,t1,tAdd,tB,tRParen,tPower,tC,0
6945	CD 49 70	call PrintPause
6948	C3 98 40	jp Menu_Start
694B	3E 41	ld a, tA
694D	CD 0C 6F	call Prompt
6950	59 3D 00	.db "Y=",0
6953	3E 42	ld a, tB
6955	CD 0C 6F	call Prompt
6958	50 3D 00	.db "P=",0
695B	3E 43	ld a, tC
695D	CD 0C 6F	call Prompt
6960	54 3D 00	.db "T=",0
6963	CD 96 6F	call ParseExpr
6966	43 F1 10 41 83 42 11 71 31 00	.db tC,tXRoot,tLParen,tA,tDiv,tB,tRParen,tSub,t1,0
6970	CD 49 70	call PrintPause
6973	C3 98 40	jp Menu_Start
6976	3E 41	ld a, tA
6978	CD 0C 6F	call Prompt
697B	59 3D 00	.db "Y=",0
697E	3E 42	ld a, tB
6980	CD 0C 6F	call Prompt
6983	50 3D 00	.db "P=",0
6986	3E 43	ld a, tC
6988	CD 0C 6F	call Prompt
698B	52 3D 00	.db "R=",0
698E	CD 96 6F	call ParseExpr
6991	C0 41 83 42 10 83 C0 31 70 43 00	.db tlog,tA,tDiv,tB,tLParen,tDiv,tlog,t1,tAdd,tC,0
699C	CD 49 70	call PrintPause
699F	C3 98 40	jp Menu_Start
69A2	CD E0 6E	call PutLine
69A5	59 3D 41 65 5E 28 4B 54 29 00	.db "Y=Ae^(KT)",0
69AF	3E 04	ld a, 4
69B1	CD 99 70	call InlineOpt
69B4	59 3F 00 50 3F 00 52 3F 00 54 3F 00	.db "Y?",0,"P?",0,"R?",0,"T?",0
69C0	FE 01	cp 1
69C2	28 2E	jr z, CONTINUOUS_COMP_INT_P
69C4	FE 02	cp 2
69C6	28 51	jr z, CONTINUOUS_COMP_INT_R
69C8	FE 03	cp 3
69CA	28 76	jr z, CONTINUOUS_COMP_INT_T
69CC	3E 58	ld a, tX
69CE	CD 0C 6F	call Prompt
69D1	50 3D 00	.db "P=",0
69D4	3E 59	ld a, tY
69D6	CD 0C 6F	call Prompt
69D9	52 3D 00	.db "R=",0
69DC	3E 72	ld a, tAns
69DE	CD 0C 6F	call Prompt
69E1	54 3D 00	.db "T=",0
69E4	CD 96 6F	call ParseExpr
69E7	58 BF 59 72 00	.db tX,tExp,tY,tAns,0
69EC	CD 49 70	call PrintPause
69EF	C3 98 40	jp Menu_Start
69F2	3E 58	ld a, tX
69F4	CD 0C 6F	call Prompt
69F7	59 3D 00	.db "Y=",0
69FA	3E 59	ld a, tY
69FC	CD 0C 6F	call Prompt
69FF	52 3D 00	.db "R=",0
6A02	3E 72	ld a, tAns
6A04	CD 0C 6F	call Prompt
6A07	54 3D 00	.db "T=",0
6A0A	CD 96 6F	call ParseExpr
6A0D	58 83 BF 59 72 00	.db tX,tDiv,tExp,tY,tAns,0
6A13	CD 49 70	call PrintPause
6A16	C3 98 40	jp Menu_Start
6A19	3E 58	ld a, tX
6A1B	CD 0C 6F	call Prompt
6A1E	59 3D 00	.db "Y=",0
6A21	3E 59	ld a, tY
6A23	CD 0C 6F	call Prompt
6A26	50 3D 00	.db "P=",0
6A29	3E 72	ld a, tAns
6A2B	CD 0C 6F	call Prompt
6A2E	54 3D 00	.db "T=",0
6A31	CD 96 6F	call ParseExpr
6A34	BE 58 83 59 10 83 72 00	.db tLn,tX,tDiv,tY,tLParen,tDiv,tAns,0
6A3C	CD 49 70	call PrintPause
6A3F	C3 98 40	jp Menu_Start
6A42	3E 58	ld a, tX
6A44	CD 0C 6F	call Prompt
6A47	59 3D 00	.db "Y=",0
6A4A	3E 59	ld a, tY
6A4C	CD 0C 6F	call Prompt
6A4F	50 3D 00	.db "P=",0
6A52	3E 72	ld a, tAns
6A54	CD 0C 6F	call Prompt
6A57	52 3D 00	.db "R=",0
6A5A	CD 96 6F	call ParseExpr
6A5D	BE 58 83 59 10 83 72 00	.db tLn,tX,tDiv,tY,tLParen,tDiv,tAns,0
6A65	CD 49 70	call PrintPause
6A68	C3 98 40	jp Menu_Start
6A6B	CD E0 6E	call PutLine
6A6E	45 4E 54 45 52 20 41 53 20 4C 49 53 54 00	.db "ENTER AS LIST",0
6A7C	3E 72	ld a, tAns
6A7E	CD 0C 6F	call Prompt
6A81	44 41 54 41 3D 00	.db "DATA=",0
6A87	CD 6C 70	call AppendStrInlineInit
6A8A	4D 45 41 4E 3D 00	.db "MEAN=",0
6A90	CD 96 6F	call ParseExpr
6A93	21 72 00	.db tMean,tAns,0
6A96	3E 0B	ld a, 11
6A98	EF 99 49	rst 28h\ .dw _FormReal
6A9B	21 8E 84	ld hl, OP3
6A9E	CD 5A 70	call AppendStr
6AA1	CD 81 70	call PrintRightAlignStr
6AA4	CD 6C 70	call AppendStrInlineInit
6AA7	4D 45 44 49 41 4E 3D 00	.db "MEDIAN=",0
6AAF	CD 96 6F	call ParseExpr
6AB2	1F 72 00	.db tMedian,tAns,0
6AB5	3E 09	ld a, 9
6AB7	EF 99 49	rst 28h\ .dw _FormReal
6ABA	21 8E 84	ld hl, OP3
6ABD	CD 5A 70	call AppendStr
6AC0	CD 81 70	call PrintRightAlignStr
6AC3	CD 96 6F	call ParseExpr
6AC6	B6 10 72 71 21 72 11 11 0D 11 83 B5 72 00	.db tsum,tLParen,tAns,tSub,tMean,tAns,tRParen,tRParen,tSqr,tRParen,tDiv,tDim,tAns,0
6AD4	CD 6C 70	call AppendStrInlineInit
6AD7	56 41 52 49 41 4E 43 45 3D 00	.db "VARIANCE=",0
6AE1	3E 07	ld a, 7
6AE3	EF 99 49	rst 28h\ .dw _FormReal
6AE6	21 8E 84	ld hl, OP3
6AE9	CD 5A 70	call AppendStr
6AEC	CD 81 70	call PrintRightAlignStr
6AEF	CD 62 71	call SqRoot
6AF2	CD 6C 70	call AppendStrInlineInit
6AF5	53 54 44 20 44 45 56 3D 00	.db "STD DEV=",0
6AFE	3E 08	ld a, 8
6B00	EF 99 49	rst 28h\ .dw _FormReal
6B03	21 8E 84	ld hl, OP3
6B06	CD 5A 70	call AppendStr
6B09	CD 81 70	call PrintRightAlignStr
6B0C	CD E3 6B	call DATA_INFO_TEMP_NAME
6B0F	21 01 00	ld hl, 1
6B12	EF 15 43	rst 28h\ .dw _CreateRList
6B15	21 00 00	ld hl, 0
6B18	E5	push hl
6B19	EF 52 4B	rst 28h\ .dw _AnsName
6B1C	D7	rst rFindSym
6B1D	1A	ld a, (de)
6B1E	B7	or a
6B1F	CA CA 6B	jp z, DATA_INFO_MODE_BREAK
6B22	21 01 00	ld hl, 1
6B25	EF 36 46	rst 28h\ .dw _GetLToOP1
6B28	EF BA 43	rst 28h\ .dw _PushRealO1
6B2B	EF 52 4B	rst 28h\ .dw _AnsName
6B2E	D7	rst rFindSym
6B2F	E6 1F	and 1Fh
6B31	62	ld h, d
6B32	6B	ld l, e
6B33	4E	ld c, (hl)
6B34	23	inc hl
6B35	46	ld b, (hl)
6B36	C5	push bc
6B37	21 01 00	ld hl, 1
6B3A	01 01 00	ld bc, 1
6B3D	EF 2F 4A	rst 28h\ .dw _DelListEl
6B40	21 01 00	ld hl, 1
6B43	E5	push hl
6B44	21 00 00	ld hl, 0
6B47	E5	push hl
6B48	EF 52 4B	rst 28h\ .dw _AnsName
6B4B	E1	pop hl
6B4C	23	inc hl
6B4D	C1	pop bc
6B4E	D1	pop de
6B4F	EF 0C 40	rst 28h\ .dw _CpHLDE
6B52	30 2E	jr nc, DATA_INFO_MODE_FIND_BREAK
6B54	D5	push de
6B55	C5	push bc
6B56	E5	push hl
6B57	D7	rst rFindSym
6B58	E1	pop hl
6B59	E5	push hl
6B5A	EF 36 46	rst 28h\ .dw _GetLToOP1
6B5D	EF 8D 43	rst 28h\ .dw _PopRealO2
6B60	EF B7 43	rst 28h\ .dw _PushRealO2
6B63	EF 11 41	rst 28h\ .dw _CpOP1OP2
6B66	20 E0	jr nz, DATA_INFO_MODE_FIND_LOOP
6B68	E1	pop hl
6B69	D1	pop de
6B6A	C1	pop bc
6B6B	2B	dec hl
6B6C	13	inc de
6B6D	0B	dec bc
6B6E	C5	push bc
6B6F	D5	push de
6B70	E5	push hl
6B71	EF 52 4B	rst 28h\ .dw _AnsName
6B74	D7	rst rFindSym
6B75	E6 1F	and 1Fh
6B77	C1	pop bc
6B78	C5	push bc
6B79	03	inc bc
6B7A	21 01 00	ld hl, 1
6B7D	EF 2F 4A	rst 28h\ .dw _DelListEl
6B80	18 C6	jr DATA_INFO_MODE_FIND_LOOP
6B82	60	ld h, b
6B83	69	ld l, c
6B84	D1	pop de
6B85	EF 0C 40	rst 28h\ .dw _CpHLDE
6B88	38 39	jr c, DATA_INFO_MODE_CONTINUE
6B8A	E5	push hl
6B8B	28 20	jr z, DATA_INFO_MODE_ADD
6B8D	CD E3 6B	call DATA_INFO_TEMP_NAME
6B90	D7	rst rFindSym
6B91	D5	push de
6B92	62	ld h, d
6B93	6B	ld l, e
6B94	4E	ld c, (hl)
6B95	23	inc hl
6B96	46	ld b, (hl)
6B97	60	ld h, b
6B98	69	ld l, c
6B99	2B	dec hl
6B9A	01 02 00	ld bc, 2
6B9D	EF 2F 4A	rst 28h\ .dw _DelListEl
6BA0	EF 90 43	rst 28h\ .dw _PopRealO1
6BA3	D1	pop de
6BA4	21 01 00	ld hl, 1
6BA7	EF 45 46	rst 28h\ .dw _PutToL
6BAA	C3 19 6B	jp DATA_INFO_MODE_LOOP
6BAD	CD E3 6B	call DATA_INFO_TEMP_NAME
6BB0	D7	rst rFindSym
6BB1	E6 1F	and 1Fh
6BB3	EF 29 4A	rst 28h\ .dw _IncLstSize
6BB6	D5	push de
6BB7	E5	push hl
6BB8	EF 90 43	rst 28h\ .dw _PopRealO1
6BBB	E1	pop hl
6BBC	D1	pop de
6BBD	EF 45 46	rst 28h\ .dw _PutToL
6BC0	C3 19 6B	jp DATA_INFO_MODE_LOOP
6BC3	D5	push de
6BC4	EF 90 43	rst 28h\ .dw _PopRealO1
6BC7	C3 19 6B	jp DATA_INFO_MODE_LOOP
6BCA	E1	pop hl
6BCB	CD E0 6E	call PutLine
6BCE	4D 4F 44 45 3D 00	.db "MODE=",0
6BD4	CD E3 6B	call DATA_INFO_TEMP_NAME
6BD7	EF 7E 49	rst 28h\ .dw _FormDisp
6BDA	EF 50 4A	rst 28h\ .dw _CleanAll
6BDD	CD 4C 70	call Pause
6BE0	C3 98 40	jp Menu_Start
6BE3	21 01 24	ld hl, 2401h
6BE6	22 78 84	ld (OP1), hl
6BE9	2A 2A 98	ld hl, (pTempCnt)
6BEC	22 7A 84	ld (OP1+2), hl
6BEF	C9	ret
6BF0	CD E0 6E	call PutLine
6BF3	32 1A 50 28 31 2D 50 29 2F 4E 00	.db "2√P(1-P)/N",0
6BFE	3E 58	ld a, tX
6C00	CD 0C 6F	call Prompt
6C03	50 45 52 43 45 4E 54 3D 00	.db "PERCENT=",0
6C0C	3E 59	ld a, tY
6C0E	CD 0C 6F	call Prompt
6C11	4E 55 4D 42 45 52 3D 00	.db "NUMBER=",0
6C19	CD 96 6F	call ParseExpr
6C1C	32 BC 58 10 31 71 58 11 83 59 00	.db t2,tSqrt,tX,tLParen,t1,tSub,tX,tRParen,tDiv,tY,0
6C27	CD 49 70	call PrintPause
6C2A	C3 98 40	jp Menu_Start
6C2D	CD E0 6E	call PutLine
6C30	50 28 31 2D 50 29 2F 28 4D 2F 32 29 B2 00	.db "P(1-P)/(M/2)²",0
6C3E	3E 58	ld a, tX
6C40	CD 0C 6F	call Prompt
6C43	50 45 52 43 45 4E 54 3D 00	.db "PERCENT=",0
6C4C	3E 59	ld a, tY
6C4E	CD 0C 6F	call Prompt
6C51	4D 41 52 47 49 4E 3D 00	.db "MARGIN=",0
6C59	CD 96 6F	call ParseExpr
6C5C	58 10 31 71 58 11 83 10 59 83 32 11 0D 00	.db tX,tLParen,t1,tSub,tX,tRParen,tDiv,tLParen,tY,tDiv,t2,tRParen,tSqr,0
6C6A	CD 49 70	call PrintPause
6C6D	C3 98 40	jp Menu_Start
C:\Portable Programs\Latenite\Projects\MathTI83\MathProgs\PhyProgs.asm
6C70	3E 41	ld a, tA
6C72	CD 0C 6F	call Prompt
6C75	56 31 52 3D 00	.db "V1R=",0
6C7A	3E 42	ld a, tB
6C7C	CD 0C 6F	call Prompt
6C7F	56 31 B8 3D 00	.db "V1θ=",0
6C84	3E 43	ld a, tC
6C86	CD 0C 6F	call Prompt
6C89	56 32 52 3D 00	.db "V2R=",0
6C8E	3E 44	ld a, tD
6C90	CD 0C 6F	call Prompt
6C93	56 32 B8 3D 00	.db "V2θ=",0
6C98	CD 6C 70	call AppendStrInlineInit
6C9B	28 00	.db "(",0
6C9D	CD 96 6F	call ParseExpr
6CA0	41 C4 42 00	.db tA,tCos,tB,0
6CA4	EF D1 4A	rst 28h\ .dw _StoX
6CA7	3E 06	ld a, 6
6CA9	EF 99 49	rst 28h\ .dw _FormReal
6CAC	21 8E 84	ld hl, OP3
6CAF	CD 5A 70	call AppendStr
6CB2	CD 70 70	call AppendStrInline
6CB5	2C 00	.db ",",0
6CB7	CD 96 6F	call ParseExpr
6CBA	41 C2 42 00	.db tA,tSin,tB,0
6CBE	EF C8 4A	rst 28h\ .dw _StoY
6CC1	3E 07	ld a, 7
6CC3	EF 99 49	rst 28h\ .dw _FormReal
6CC6	21 8E 84	ld hl, OP3
6CC9	CD 5A 70	call AppendStr
6CCC	CD 70 70	call AppendStrInline
6CCF	29 00	.db ")",0
6CD1	CD 81 70	call PrintRightAlignStr
6CD4	EF E0 4A	rst 28h\ .dw _RclX
6CD7	3E 41	ld a, tA
6CD9	CD 37 70	call StoOther
6CDC	EF DA 4A	rst 28h\ .dw _RclY
6CDF	3E 42	ld a, tB
6CE1	CD 37 70	call StoOther
6CE4	CD 6C 70	call AppendStrInlineInit
6CE7	28 00	.db "(",0
6CE9	CD 96 6F	call ParseExpr
6CEC	43 C4 44 00	.db tC,tCos,tD,0
6CF0	EF D1 4A	rst 28h\ .dw _StoX
6CF3	3E 06	ld a, 6
6CF5	EF 99 49	rst 28h\ .dw _FormReal
6CF8	21 8E 84	ld hl, OP3
6CFB	CD 5A 70	call AppendStr
6CFE	CD 70 70	call AppendStrInline
6D01	2C 00	.db ",",0
6D03	CD 96 6F	call ParseExpr
6D06	43 C2 44 00	.db tC,tSin,tD,0
6D0A	EF C8 4A	rst 28h\ .dw _StoY
6D0D	3E 07	ld a, 7
6D0F	EF 99 49	rst 28h\ .dw _FormReal
6D12	21 8E 84	ld hl, OP3
6D15	CD 5A 70	call AppendStr
6D18	CD 70 70	call AppendStrInline
6D1B	29 00	.db ")",0
6D1D	CD 81 70	call PrintRightAlignStr
6D20	EF E0 4A	rst 28h\ .dw _RclX
6D23	3E 43	ld a, tC
6D25	CD 37 70	call StoOther
6D28	EF DA 4A	rst 28h\ .dw _RclY
6D2B	3E 44	ld a, tD
6D2D	CD 37 70	call StoOther
6D30	CD 6C 70	call AppendStrInlineInit
6D33	28 00	.db "(",0
6D35	CD 96 6F	call ParseExpr
6D38	41 70 43 00	.db tA,tAdd,tC,0
6D3C	EF D1 4A	rst 28h\ .dw _StoX
6D3F	3E 06	ld a, 6
6D41	EF 99 49	rst 28h\ .dw _FormReal
6D44	21 8E 84	ld hl, OP3
6D47	CD 5A 70	call AppendStr
6D4A	CD 70 70	call AppendStrInline
6D4D	2C 00	.db ",",0
6D4F	CD 96 6F	call ParseExpr
6D52	42 70 44 00	.db tB,tAdd,tD,0
6D56	EF C8 4A	rst 28h\ .dw _StoY
6D59	3E 07	ld a, 7
6D5B	EF 99 49	rst 28h\ .dw _FormReal
6D5E	21 8E 84	ld hl, OP3
6D61	CD 5A 70	call AppendStr
6D64	CD 70 70	call AppendStrInline
6D67	29 00	.db ")",0
6D69	CD 81 70	call PrintRightAlignStr
6D6C	CD 6C 70	call AppendStrInlineInit
6D6F	28 00	.db "(",0
6D71	CD 96 6F	call ParseExpr
6D74	1B 58 2B 59 00	.db tRToPr,tX,tComma,tY,0
6D79	3E 06	ld a, 6
6D7B	EF 99 49	rst 28h\ .dw _FormReal
6D7E	21 8E 84	ld hl, OP3
6D81	CD 5A 70	call AppendStr
6D84	CD 70 70	call AppendStrInline
6D87	2C 00	.db ",",0
6D89	CD 96 6F	call ParseExpr
6D8C	1C 58 2B 59 00	.db tRToPo,tX,tComma,tY,0
6D91	3E 07	ld a, 7
6D93	EF 99 49	rst 28h\ .dw _FormReal
6D96	21 8E 84	ld hl, OP3
6D99	CD 5A 70	call AppendStr
6D9C	CD 70 70	call AppendStrInline
6D9F	29 00	.db ")",0
6DA1	CD 81 70	call PrintRightAlignStr
6DA4	CD 4C 70	call Pause
6DA7	C3 98 40	jp Menu_Start
6DAA	3E 58	ld a, tX
6DAC	CD 0C 6F	call Prompt
6DAF	B8 31 3D 00	.db "θ1=",0
6DB3	3E 59	ld a, tY
6DB5	CD 0C 6F	call Prompt
6DB8	B8 32 3D 00	.db "θ2=",0
6DBC	3E 72	ld a, tAns
6DBE	CD 0C 6F	call Prompt
6DC1	46 3D 00	.db "F=",0
6DC4	CD 96 6F	call ParseExpr
6DC7	72 83 10 C4 58 11 C2 59 10 83 C4 59 10 70 C2 58 00	.db tAns,tDiv,tLParen,tCos,tX,tRParen,tSin,tY,tLParen,tDiv,tCos,tY,tLParen,tAdd,tSin,tX,0
6DD8	EF 7E 49	rst 28h\ .dw _FormDisp
6DDB	CD 96 6F	call ParseExpr
6DDE	72 83 10 C4 59 11 C2 58 10 83 C4 58 10 70 C2 59 00	.db tAns,tDiv,tLParen,tCos,tY,tRParen,tSin,tX,tLParen,tDiv,tCos,tX,tLParen,tAdd,tSin,tY,0
6DEF	CD 49 70	call PrintPause
6DF2	C3 98 40	jp Menu_Start
6DF5	CD E0 6E	call PutLine
6DF8	63 6F 73 11 28 28 75 0C 76 29 2F 00	.db "cos",11h,"((u",0Ch,"v)/",0
6E04	CD E0 6E	call PutLine
6E07	28 6D 61 67 28 75 29 2A 6D 61 67 28 76 29 29 00	.db "(mag(u)*mag(v))",0
6E17	3E 41	ld a, tA
6E19	CD 0C 6F	call Prompt
6E1C	75 69 3D 00	.db "ui=",0
6E20	3E 42	ld a, tB
6E22	CD 0C 6F	call Prompt
6E25	75 6A 3D 00	.db "uj=",0
6E29	3E 43	ld a, tC
6E2B	CD 0C 6F	call Prompt
6E2E	76 69 3D 00	.db "vi=",0
6E32	3E 44	ld a, tD
6E34	CD 0C 6F	call Prompt
6E37	76 6A 3D 00	.db "vj=",0
6E3B	CD 96 6F	call ParseExpr
6E3E	C5 10 41 43 70 42 44 11 83	.db tACos,tLParen,tA,tC,tAdd,tB,tD,tRParen,tDiv
6E47	10 BC 41 0D 70 42 0D 11 BC 43 0D 70 44 0D 00	.db tLParen,tSqrt,tA,tSqr,tAdd,tB,tSqr,tRParen,tSqrt,tC,tSqr,tAdd,tD,tSqr,0
6E56	CD 49 70	call PrintPause
6E59	C3 98 40	jp Menu_Start
C:\Portable Programs\Latenite\Projects\MathTI83\MathVect.asm
6E5C	51 42	.dw QUADRATIC_FORMULA
6E5E	62 44	.dw SYSTEMS_OF_EQUATIONS
6E60	D5 44	.dw REDUCING_RADICALS
6E62	59 45	.dw CUBIC_FORMULA
6E64	48 46	.dw BINOMIAL_THEOREM
6E66	BB 46	.dw SEQUENCES
6E68	D9 4A	.dw 2_POINTS
6E6A	8A 4B	.dw POINT_TO_LINE
6E6C	0E 4C	.dw RADIANS_TO_DEGREES
6E6E	83 4C	.dw 2_POINTS_3D
6E70	4D 4D	.dw POLAR_COORDINATES
6E72	02 4E	.dw SURFACE_AREA
6E74	B7 4F	.dw VOLUME
6E76	BB 50	.dw PYTHAGOREAN_THEOREM
6E78	24 51	.dw HERONS_FORMULA
6E7A	94 51	.dw TRIG_ANGLE_AND_SIDE
6E7C	86 52	.dw SOLVE_TRIANGLE
6E7E	76 58	.dw AREA_GIVEN_SAS
6E80	BB 58	.dw HEIGHT_GIVEN_ASA
6E82	56 59	.dw UNIT_CIRCLE
6E84	F1 5B	.dw ARC_LENGTH
6E86	5B 5C	.dw SECTOR_AREA
6E88	D1 5C	.dw SEGMENT_AREA
6E8A	65 5D	.dw CIRCLE_ANGLES
6E8C	82 5E	.dw CIRCLE_LENGTHS
6E8E	84 60	.dw VERTEX_FORM
6E90	01 61	.dw GIVEN_VERTEX_AND_FOCUS
6E92	D5 61	.dw PARABOLA_INFO
6E94	DF 63	.dw CONIC_FORM
6E96	C4 64	.dw CONIC_INFO
6E98	23 66	.dw CONIC_GRAPHS
6E9A	BC 67	.dw COMPOUND_INTEREST
6E9C	CA 68	.dw SIMPLIFIED_COMP_INT
6E9E	A2 69	.dw CONTINUOUS_COMP_INT
6EA0	6B 6A	.dw DATA_INFO
6EA2	F0 6B	.dw MARGIN_OF_ERROR
6EA4	2D 6C	.dw NUMBER_FROM_ME
6EA6	70 6C	.dw ADDING_POSITION_VECTORS
6EA8	AA 6D	.dw CABLE_TENSION
6EAA	F5 6D	.dw ANGLE_BETWEEN_VECTORS
C:\Portable Programs\Latenite\Projects\MathTI83\MathFunc.asm
6EAC	F5	push AF
6EAD	D5	push DE
6EAE	DD E5	push IX
6EB0	7E	LD A,(HL)
6EB1	23	INC HL
6EB2	B7	OR A
6EB3	28 05	JR Z, VputS20
6EB5	EF 5E 45	rst 28h\ .dw _VPutMap
6EB8	30 F6	JR NC, VPutS10
6EBA	DD E1	pop IX
6EBC	D1	pop DE
6EBD	F1	pop AF
6EBE	C9	ret
6EBF	C5	push BC
6EC0	F5	push AF
6EC1	3A A6 97	ld A,(winBtm)
6EC4	47	ld B,A
6EC5	7E	ld A,(HL)
6EC6	23	inc HL
6EC7	B7	or A
6EC8	37	scf
6EC9	28 09	jr Z, PutS20
6ECB	EF 04 45	rst 28h\ .dw _PutC
6ECE	3A 4B 84	ld A,(curRow)
6ED1	B8	cp B
6ED2	38 F1	jr C,PutS10
6ED4	ED 4B 4B 84	ld BC, (curRow)
6ED8	ED 43 88 85	ld (textShadCur), BC
6EDC	C1	pop BC
6EDD	78	ld A,B
6EDE	C1	pop BC
6EDF	C9	ret
6EE0	E1	pop HL
6EE1	C5	push BC
6EE2	F5	push AF
6EE3	3A A6 97	ld A,(winBtm)
6EE6	47	ld B,A
6EE7	7E	ld A,(HL)
6EE8	23	inc HL
6EE9	B7	or A
6EEA	37	scf
6EEB	28 09	jr Z, PutLine20
6EED	EF 04 45	rst 28h\ .dw _PutC
6EF0	3A 4B 84	ld A,(curRow)
6EF3	B8	cp B
6EF4	38 F1	jr C,PutLine10
6EF6	ED 4B 4B 84	ld BC, (curRow)
6EFA	ED 43 88 85	ld (textShadCur), BC
6EFE	C1	pop BC
6EFF	78	ld A,B
6F00	C1	pop BC
6F01	E5	push HL
6F02	F5	push AF
6F03	3A 4C 84	ld A, (curCol)
6F06	B7	or A
6F07	C4 8C 6F	call NZ, NewLine
6F0A	F1	pop AF
6F0B	C9	ret
6F0C	E1	pop hl
6F0D	11 5F 86	ld de,ioPrompt
6F10	47	ld b,a
6F11	EF E3 44	rst 28h\ .dw _strcopy
6F14	23	inc hl
6F15	E5	push hl
6F16	C5	push bc
6F17	21 25 6F	ld hl,PromptStart
6F1A	11 72 98	ld de,appBackUpScreen
6F1D	01 4B 00	ld bc,PromptEnd-PromptStart
6F20	ED B0	ldir
6F22	C3 72 98	jp appBackUpScreen
6F25	FD CB 1C B6	res 6,(iy+1Ch)
6F29	FD CB 09 A6	res onInterrupt,(iy+onFlags)
6F2D	3E 50	ld a, cxPrgmInput
6F2F	EF 30 40	rst 28h\ .dw _newContext
6F32	EF 1E 40	rst 28h\ .dw _mon
6F35	FD CB 09 FE	set 7,(iy+9)
6F39	3E 3F	ld a, 3Fh
6F3B	EF 30 40	rst 28h\ .dw _newContext
6F3E	EF C5 41	rst 28h\ .dw _ZeroOP1
6F41	21 04 2D	ld hl,2D04h
6F44	22 78 84	ld (OP1),hl
6F47	21 70 6F CD 59 00	ld hl,PromptErr\ call 59h
6F4D	EF 9B 4A	rst 28h\ .dw _ParseInp
6F50	CD 5C 00	call 5Ch
6F53	F1	pop af
6F54	FE 58	cp tX
6F56	20 04	jr nz, $+6
6F58	EF D1 4A	rst 28h\ .dw _StoX
6F5B	C9	ret
6F5C	FE 59	cp tY
6F5E	20 04	jr nz, $+6
6F60	EF C8 4A	rst 28h\ .dw _StoY
6F63	C9	ret
6F64	FE 72	cp tAns
6F66	20 04	jr nz, $+6
6F68	EF BF 4A	rst 28h\ .dw _StoAns
6F6B	C9	ret
6F6C	CD 37 70	call StoOther
6F6F	C9	ret
6F70	FE 86	cp E_Break
6F72	CA 72 98	jp z, appBackUpScreen
6F75	CD E0 6E	call PutLine
6F78	45 52 52 4F 52 3A 20 54 52 59 20 41 47 41 49 4E 00	.db "ERROR: TRY AGAIN",0
6F89	C3 72 98	jp appBackUpScreen
6F8C	EF 2E 45	rst 28h\ .dw _newLine
6F8F	2A 4B 84	ld hl, (curRow)
6F92	22 88 85	ld (textShadCur), hl
6F95	C9	ret
6F96	01 04 2D	ld bc, 2D04h
6F99	ED 43 78 84	ld (OP1), bc
6F9D	3E 01	ld a, 1
6F9F	32 7A 84	ld (OP1+2), a
6FA2	01 00 00	ld bc, 0
6FA5	ED 43 7B 84	ld (OP1+3), bc
6FA9	E1	pop hl
6FAA	E5	push hl
6FAB	AF	xor a
6FAC	ED B1	cpir
6FAE	78	ld a, b
6FAF	2F	cpl
6FB0	47	ld b, a
6FB1	79	ld a, c
6FB2	2F	cpl
6FB3	4F	ld c, a
6FB4	60	ld h, b
6FB5	69	ld l, c
6FB6	EF 27 43	rst 28h\ .dw _CreateStrng
6FB9	E1	pop hl
6FBA	13	inc de
6FBB	13	inc de
6FBC	ED B0	ldir
6FBE	23	inc hl
6FBF	E5	push hl
6FC0	EF 38 41	rst 28h\ .dw _OP4ToOP1
6FC3	21 EF 6F CD 59 00	ld hl,ParseExprErr\ call 59h
6FC9	EF 9B 4A	rst 28h\ .dw _ParseInp
6FCC	CD 5C 00	call 5Ch
6FCF	EF C9 43	rst 28h\ .dw _PushOP1
6FD2	01 04 2D	ld bc, 2D04h
6FD5	ED 43 78 84	ld (OP1), bc
6FD9	3E 01	ld a, 1
6FDB	32 7A 84	ld (OP1+2), a
6FDE	01 00 00	ld bc, 0
6FE1	ED 43 7B 84	ld (OP1+3), bc
6FE5	EF F1 42	rst 28h\ .dw _ChkFindSym
6FE8	EF 51 43	rst 28h\ .dw _DelVar
6FEB	EF 7E 43	rst 28h\ .dw _PopOP1
6FEE	C9	ret
6FEF	E1	pop hl
6FF0	FE 82	cp E_DivBy0
6FF2	28 14	jr z, ParseExprErrDivBy0
6FF4	FE 84	cp E_Domain
6FF6	28 2A	jr z, ParseExprErrDomain
6FF8	CD E0 6E	call PutLine
6FFB	45 52 52 4F 52 21 00	.db "ERROR!",0
7002	CD 4C 70	call Pause
7005	C3 98 40	jp Menu_Start
7008	CD E0 6E	call PutLine
700B	45 52 52 3A 20 44 49 56 49 44 45 20 42 59 20 30 00	.db "ERR: DIVIDE BY 0",0
701C	CD 4C 70	call Pause
701F	C3 98 40	jp Menu_Start
7022	CD E0 6E	call PutLine
7025	45 52 52 3A 20 44 4F 4D 41 49 4E 00	.db "ERR: DOMAIN",0
7031	CD 4C 70	call Pause
7034	C3 98 40	jp Menu_Start
7037	F5	push af
7038	EF C9 43	rst 28h\ .dw _PushOP1
703B	F1	pop af
703C	21 00 00	ld hl, 0
703F	32 79 84	ld (OP1+1), a
7042	22 7A 84	ld (OP1+2), hl
7045	EF D4 4A	rst 28h\ .dw _StoOther
7048	C9	ret
7049	EF 7E 49	rst 28h\ .dw _FormDisp
704C	EF 72 49	rst 28h\ .dw _getKey
704F	2A 4B 84	ld hl, (curRow)
7052	22 88 85	ld (textShadCur), hl
7055	C9	ret
7056	AF	xor a
7057	32 72 98	ld (appBackUpScreen), a
705A	E5	push hl
705B	21 72 98	ld hl, appBackUpScreen
705E	01 00 00	ld bc, 0
7061	AF	xor a
7062	ED B1	cpir
7064	54	ld d, h
7065	5D	ld e, l
7066	1B	dec de
7067	E1	pop hl
7068	EF E3 44	rst 28h\ .dw _StrCopy
706B	C9	ret
706C	AF	xor a
706D	32 72 98	ld (appBackUpScreen), a
7070	21 72 98	ld hl, appBackUpScreen
7073	01 00 00	ld bc, 0
7076	AF	xor a
7077	ED B1	cpir
7079	54	ld d, h
707A	5D	ld e, l
707B	1B	dec de
707C	E1	pop hl
707D	EF E3 44	rst 28h\ .dw _StrCopy
7080	E9	jp (hl)
7081	21 72 98	ld hl, appBackUpScreen
7084	EF 3F 4C	rst 28h\ .dw _StrLength
7087	3E 10	ld a, 16
7089	91	sub c
708A	E6 0F	and 0Fh
708C	32 4C 84	ld (curcol), a
708F	EF 0A 45	rst 28h\ .dw _PutS
7092	2A 4B 84	ld hl, (curRow)
7095	22 88 85	ld (textShadCur), hl
7098	C9	ret
7099	0E 00	ld c, 00h
709B	47	ld b, a
709C	FD CB 05 9E	res textInverse,(iy+textFlags)
70A0	E1	pop hl
70A1	E5	push hl
70A2	AF	xor a
70A3	32 4C 84	ld (curcol), a
70A6	50	ld d, b
70A7	78	ld a, b
70A8	92	sub d
70A9	B9	cp c
70AA	20 04	jr nz, $+6
70AC	FD CB 05 DE	set textInverse,(iy+textFlags)
70B0	CD BF 6E	call PutS
70B3	FD CB 05 9E	res textInverse,(iy+textFlags)
70B7	15	dec d
70B8	28 07	jr z, InlineOptGetKey
70BA	3E 20	ld a, ' '
70BC	EF 04 45	rst 28h\ .dw _PutC
70BF	18 E6	jr InlineOptDispLoop
70C1	FD CB 09 A6	res onInterrupt,(iy+onFlags)
70C5	E5	push hl
70C6	C5	push bc
70C7	EF 72 49	rst 28h\ .dw _getKey
70CA	C1	pop bc
70CB	E1	pop hl
70CC	FE 01	cp kRight
70CE	38 F1	jr c, InlineOptGetKey
70D0	28 39	jr z, InlineOptInc
70D2	FE 02	cp kLeft
70D4	28 3F	jr z, InlineOptDec
70D6	FE 05	cp kEnter
70D8	20 E7	jr nz, InlineOptGetKey
70DA	E3	ex (sp), hl
70DB	51	ld d, c
70DC	D5	push de
70DD	06 10	ld b, 16
70DF	AF	xor a
70E0	32 4C 84	ld (curcol), a
70E3	7A	ld a, d
70E4	B7	or a
70E5	28 0F	jr z, InlineOptEndDispChar
70E7	3E 20	ld a, ' '
70E9	EF 04 45	rst 28h\ .dw _PutC
70EC	AF	xor a
70ED	BE	cp (hl)
70EE	20 01	jr nz, InlineOptDecSkipA
70F0	15	dec d
70F1	23	inc hl
70F2	10 EF	djnz InlineOptEndDispLoop
70F4	18 0D	jr InlineOptContinue
70F6	7E	ld a, (hl)
70F7	B7	or a
70F8	20 03	jr nz, InlineOptDecSkipB
70FA	15	dec d
70FB	3E 20	ld a, ' '
70FD	EF 04 45	rst 28h\ .dw _PutC
7100	23	inc hl
7101	10 E0	djnz InlineOptEndDispLoop
7103	2A 4B 84	ld hl, (curRow)
7106	22 88 85	ld (textShadCur), hl
7109	F1	pop af
710A	C9	ret
710B	0C	inc c
710C	78	ld a, b
710D	B9	cp c
710E	C2 9C 70	jp nz, InlineOptLoop
7111	0E 00	ld c, 0
7113	18 87	jr InlineOptLoop
7115	0D	dec c
7116	F2 9C 70	jp p, InlineOptLoop
7119	48	ld c, b
711A	0D	dec c
711B	C3 9C 70	jp InlineOptLoop
711E	CD 6C 70	call AppendStrInlineInit
7121	1A 00	.db "√",0
7123	3E 0F	ld a, 15
7125	EF 99 49	rst 28h\ .dw _FormReal
7128	21 8E 84	ld hl, OP3
712B	CD 5A 70	call AppendStr
712E	CD 81 70	call PrintRightAlignStr
7131	CD 62 71	call SqRoot
7134	EF 7E 49	rst 28h\ .dw _FormDisp
7137	C9	ret
7138	CD 6C 70	call AppendStrInlineInit
713B	1A 00	.db "√",0
713D	3E 05	ld a, 5
713F	EF 99 49	rst 28h\ .dw _FormReal
7142	21 8E 84	ld hl, OP3
7145	CD 5A 70	call AppendStr
7148	CD 70 70	call AppendStrInline
714B	20 4F 52 20 00	.db " OR ",0
7150	CD 62 71	call SqRoot
7153	3E 06	ld a, 6
7155	EF 99 49	rst 28h\ .dw _FormReal
7158	21 8E 84	ld hl, OP3
715B	CD 5A 70	call AppendStr
715E	CD 81 70	call PrintRightAlignStr
7161	C9	ret
7162	EF 58 42	rst 28h\ .dw _CkOP1Pos
7165	28 0C	jr z, SqRootReal
7167	EF 28 42	rst 28h\ .dw _CkOP1FP0
716A	28 07	jr z, SqRootReal
716C	EF BC 41	rst 28h\ .dw _OP2Set0
716F	EF 9D 4E	rst 28h\ .dw _CSqRoot
7172	C9	ret
7173	EF 9C 40	rst 28h\ .dw _SqRoot
7176	C9	ret
7177	3E 0F	ld a, 15
7179	EF 99 49	rst 28h\ .dw _FormReal
717C	21 8E 84	ld hl, OP3
717F	CD 56 70	call AppendStrInit
7182	CD 70 70	call AppendStrInline
7185	C0 00	.db "π",0
7187	CD 81 70	call PrintRightAlignStr
718A	3E 04	ld a, 4
718C	EF 40 42	rst 28h\ .dw _GETCONOP2
718F	EF 84 40	rst 28h\ .dw _FPMult
7192	EF 7E 49	rst 28h\ .dw _FormDisp
7195	C9	ret
7196	B7	or a
7197	C8	ret z
7198	57	ld d, a
7199	AF	xor a
719A	01 00 00	ld bc, 0
719D	ED B1	cpir
719F	15	dec d
71A0	20 F8	jr nz, FindAthStrLoop
71A2	C9	ret
71A3	22 D7 86	ld (pencol), hl
71A6	21 72 98	ld hl, appBackUpScreen
71A9	CD AC 6E	call VPutS
71AC	2A D7 86	ld hl, (pencol)
71AF	7D	ld a, l
71B0	BB	cp e
71B1	D0	ret nc
71B2	7C	ld a, h
71B3	C6 05	add a, 5
71B5	57	ld d, a
71B6	EF 5C 4D	rst 28h\ .dw _ClearRect
71B9	C9	ret
71BA	CD 70 70	call AppendStrInline
71BD	28 00	.db "(",0
71BF	EF E0 4A	rst 28h\ .dw _rclX
71C2	3E 05	ld a, 5
71C4	EF 99 49	rst 28h\ .dw _FormReal
71C7	21 8E 84	ld hl, OP3
71CA	CD 5A 70	call AppendStr
71CD	CD 70 70	call AppendStrInline
71D0	2C 00	.db ",",0
71D2	EF DA 4A	rst 28h\ .dw _rclY
71D5	3E 05	ld a, 5
71D7	EF 99 49	rst 28h\ .dw _FormReal
71DA	21 8E 84	ld hl, OP3
71DD	CD 5A 70	call AppendStr
71E0	CD 70 70	call AppendStrInline
71E3	29 00	.db ")",0
71E5	CD 81 70	call PrintRightAlignStr
71E8	C9	ret
71E9	F5	push af
71EA	21 72 98	ld hl, appBackUpScreen
71ED	EF 3F 4C	rst 28h\ .dw _StrLength
71F0	C5	push bc
71F1	09	add hl, bc
71F2	54	ld d, h
71F3	5D	ld e, l
71F4	2B	dec hl
71F5	ED B8	lddr
71F7	21 72 98	ld hl, appBackUpScreen
71FA	C1	pop bc
71FB	C5	push bc
71FC	71	ld (hl), c
71FD	EF B4 4C	rst 28h\ .dw _SStringLength
7200	C1	pop bc
7201	11 72 98	ld de, appBackUpScreen
7204	23	inc hl
7205	ED B0	ldir
7207	2B	dec hl
7208	36 00	ld (hl), 0
720A	E1	pop hl
720B	6F	ld l, a
720C	3E 60	ld a, 96
720E	95	sub l
720F	38 04	jr c, VPrintCenteredCarry
7211	CB 3F	srl a
7213	18 01	jr VPrintCenteredCont
7215	AF	xor a
7216	6F	ld l, a
7217	22 D7 86	ld (pencol), hl
721A	21 72 98	ld hl, appBackUpScreen
721D	CD AC 6E	call VPutS
7220	67	ld h, a
7221	3A D7 86	ld a, (penCol)
7224	3D	dec a
7225	6F	ld l, a
7226	C9	ret
7227	44	ld b, h
7228	4F	ld c, a
7229	55	ld d, l
722A	5F	ld e, a
722B	26 01	ld h, 1
722D	EF E0 47	rst 28h\ .dw _ILine
7230	C9	ret
C:\Portable Programs\Latenite\Projects\MathTI83\MenuText.asm
7231	07	.db 7
7232	41 4C 47 00	.db "ALG",0
7236	47 45 4F 00	.db "GEO",0
723A	54 52 49 00	.db "TRI",0
723E	43 49 52 00	.db "CIR",0
7242	43 4F 4E 00	.db "CON",0
7246	53 54 41 00	.db "STA",0
724A	50 48 59 00	.db "PHY",0
724E	06 07 06 06 06 06 03	.db 6, 7, 6, 6, 6, 6, 3
7255	31 3A 20 51 55 41 44 52 41 54 49 43 20 46 4F 52 4D 55 4C 41 00	.db "1: QUADRATIC FORMULA",0
726A	32 3A 20 53 59 53 54 45 4D 53 20 4F 46 20 45 51 55 41 54 49 4F 4E 53 00	.db "2: SYSTEMS OF EQUATIONS",0
7282	33 3A 20 52 45 44 55 43 49 4E 47 20 52 41 44 49 43 41 4C 53 00	.db "3: REDUCING RADICALS",0
7297	34 3A 20 43 55 42 49 43 20 46 4F 52 4D 55 4C 41 00	.db "4: CUBIC FORMULA",0
72A8	35 3A 20 42 49 4E 4F 4D 49 41 4C 20 54 48 45 4F 52 45 4D 00	.db "5: BINOMIAL THEOREM",0
72BC	36 3A 20 53 45 51 55 45 4E 43 45 53 00	.db "6: SEQUENCES",0
72C9	31 3A 20 32 20 50 4F 49 4E 54 53 00	.db "1: 2 POINTS",0
72D5	32 3A 20 50 4F 49 4E 54 20 54 4F 20 4C 49 4E 45 00	.db "2: POINT TO LINE",0
72E6	33 3A 20 52 41 44 49 41 4E 53 20 54 4F 20 44 45 47 52 45 45 53 00	.db "3: RADIANS TO DEGREES",0
72FC	34 3A 20 32 20 50 4F 49 4E 54 53 20 33 44 00	.db "4: 2 POINTS 3D",0
730B	35 3A 20 50 4F 4C 41 52 20 43 4F 4F 52 44 49 4E 41 54 45 53 00	.db "5: POLAR COORDINATES",0
7320	36 3A 20 53 55 52 46 41 43 45 20 41 52 45 41 00	.db "6: SURFACE AREA",0
7330	37 3A 20 56 4F 4C 55 4D 45 00	.db "7: VOLUME",0
733A	31 3A 20 50 59 54 48 41 47 4F 52 45 41 4E 20 54 48 45 4F 52 45 4D 00	.db "1: PYTHAGOREAN THEOREM",0
7351	32 3A 20 48 45 52 4F 4E 27 53 20 46 4F 52 4D 55 4C 41 00	.db "2: HERON'S FORMULA",0
7364	33 3A 20 54 52 49 47 20 41 4E 47 4C 45 20 41 4E 44 20 53 49 44 45 00	.db "3: TRIG ANGLE AND SIDE",0
737B	34 3A 20 53 4F 4C 56 45 20 54 52 49 41 4E 47 4C 45 00	.db "4: SOLVE TRIANGLE",0
738D	35 3A 20 41 52 45 41 20 47 49 56 45 4E 20 53 41 53 00	.db "5: AREA GIVEN SAS",0
739F	36 3A 20 48 45 49 47 48 54 20 47 49 56 45 4E 20 41 53 41 00	.db "6: HEIGHT GIVEN ASA",0
73B3	31 3A 20 55 4E 49 54 20 43 49 52 43 4C 45 00	.db "1: UNIT CIRCLE",0
73C2	32 3A 20 41 52 43 20 4C 45 4E 47 54 48 00	.db "2: ARC LENGTH",0
73D0	33 3A 20 53 45 43 54 4F 52 20 41 52 45 41 00	.db "3: SECTOR AREA",0
73DF	34 3A 20 53 45 47 4D 45 4E 54 20 41 52 45 41 00	.db "4: SEGMENT AREA",0
73EF	35 3A 20 43 49 52 43 4C 45 20 41 4E 47 4C 45 53 00	.db "5: CIRCLE ANGLES",0
7400	36 3A 20 43 49 52 43 4C 45 20 4C 45 4E 47 48 54 53 00	.db "6: CIRCLE LENGHTS",0
7412	31 3A 20 56 45 52 54 45 58 20 46 4F 52 4D 00	.db "1: VERTEX FORM",0
7421	32 3A 20 47 49 56 45 4E 20 56 45 52 54 45 58 20 41 4E 44 20 46 4F 43 55 53 00	.db "2: GIVEN VERTEX AND FOCUS",0
743B	33 3A 20 50 41 52 41 42 4F 4C 41 20 49 4E 46 4F 00	.db "3: PARABOLA INFO",0
744C	34 3A 20 43 4F 4E 49 43 20 46 4F 52 4D 00	.db "4: CONIC FORM",0
745A	35 3A 20 43 4F 4E 49 43 20 49 4E 46 4F 00	.db "5: CONIC INFO",0
7468	36 3A 20 43 4F 4E 49 43 20 47 52 41 50 48 53 00	.db "6: CONIC GRAPHS",0
7478	31 3A 20 43 4F 4D 50 4F 55 4E 44 20 49 4E 54 45 52 45 53 54 00	.db "1: COMPOUND INTEREST",0
748D	32 3A 20 53 49 4D 50 4C 49 46 49 45 44 20 43 4F 4D 50 20 49 4E 54 00	.db "2: SIMPLIFIED COMP INT",0
74A4	33 3A 20 43 4F 4E 54 49 4E 55 4F 55 53 20 43 4F 4D 50 20 49 4E 54 00	.db "3: CONTINUOUS COMP INT",0
74BB	34 3A 20 44 41 54 41 20 49 4E 46 4F 00	.db "4: DATA INFO",0
74C8	35 3A 20 4D 41 52 47 49 4E 20 4F 46 20 45 52 52 4F 52 00	.db "5: MARGIN OF ERROR",0
74DB	36 3A 20 4E 55 4D 42 45 52 20 46 52 4F 4D 20 4D 45 00	.db "6: NUMBER FROM ME",0
74ED	31 3A 20 41 44 44 49 4E 47 20 50 4F 53 49 54 49 4F 4E 20 56 45 43 54 4F 52 53 00	.db "1: ADDING POSITION VECTORS",0
7508	32 3A 20 43 41 42 4C 45 20 54 45 4E 53 49 4F 4E 00	.db "2: CABLE TENSION",0
7519	33 3A 20 41 4E 47 4C 45 20 42 45 54 57 45 45 4E 20 56 45 43 54 4F 52 53 00	.db "3: ANGLE BETWEEN VECTORS",0
C:\Portable Programs\Latenite\Projects\MathTI83\SubMenu.asm
7532	EF 40 45	rst 28h\ .dw _clrLCDfull
7535	F3	di
7536	3E 80	ld A, $80
7538	D3 10	out ($10), A
753A	CD 0B 00	call $000B
753D	3E 20	ld A, $20
753F	D3 10	out ($10), A
7541	06 06	ld B, 6
7543	3E 80	ld A, $80
7545	CD 0B 00	call $000B
7548	D3 11	out ($11), A
754A	10 F7	djnz SubLineLoop
754C	FB	ei
754D	FD CB 05 DE	set TextInverse, (IY + TextFlags)
7551	21 01 00	ld HL, $0001
7554	22 D7 86	ld (pencol), HL
7557	E1	pop HL
7558	CD AC 6E	call VPutS
755B	FD CB 05 9E	res TextInverse, (IY + TextFlags)
755F	46	ld B, (HL)
7560	48	ld C, B
7561	1E 01	ld E, $01
7563	3E 00	ld A, $00
7565	23	inc HL
7566	C6 06	add A, $06
7568	57	ld D, A
7569	ED 53 D7 86	ld (pencol), DE
756D	CD AC 6E	call VPutS
7570	10 F4	djnz SubOptionDispLoop
7572	E5	push HL
7573	41	ld B, C
7574	C5	push BC
7575	11 01 01	ld DE, $0101
7578	CD F3 41	call SelectOptionE
757B	D5	push DE
757C	EF 70 45	rst 28h\ .dw _RunIndicOff
757F	EF 72 49	rst 28h\ .dw _GetKey
7582	D1	pop DE
7583	FE 03	cp kUp
7585	28 35	jr Z, SubMoveUp
7587	FE 04	cp kDown
7589	28 3C	jr Z, SubMoveDown
758B	FE 8F	cp k1
758D	38 10	jr C, SubSkip
758F	47	ld B, A
7590	F1	pop AF
7591	F5	push AF
7592	C6 8F	add A, k1
7594	4F	ld C, A
7595	78	ld A, B
7596	B9	cp C
7597	30 E2	jr NC, SubMenuLoop
7599	D6 8F	sub k1
759B	3C	inc A
759C	5F	ld E, A
759D	18 0E	jr SubDone
759F	FE 05	cp kEnter
75A1	28 0A	jr Z, SubDone
75A3	FE 40	cp kQuit
75A5	C2 7B 75	jp NZ, SubMenuLoop
75A8	E1	pop HL
75A9	E1	pop HL
75AA	C3 98 40	jp Menu_Start
75AD	EF 79 45	rst 28h\ .dw _rstrShadow
75B0	E1	pop HL
75B1	E1	pop HL
75B2	1D	dec E
75B3	16 00	ld D, 0
75B5	19	add HL, DE
75B6	19	add HL, DE
75B7	7E	ld A, (HL)
75B8	23	inc HL
75B9	66	ld H, (HL)
75BA	6F	ld L, A
75BB	E9	jp (HL)
75BC	CD F3 41	call SelectOptionE
75BF	1D	dec E
75C0	20 13	jr NZ, SubUpdateCursor
75C2	F1	pop AF
75C3	F5	push AF
75C4	5F	ld E, A
75C5	18 0E	jr SubUpdateCursor
75C7	CD F3 41	call SelectOptionE
75CA	1C	inc E
75CB	F1	pop AF
75CC	F5	push AF
75CD	3C	inc A
75CE	BB	cp E
75CF	20 04	jr NZ, SubUpdateCursor
75D1	1E 01	ld E, 1
75D3	18 00	jr SubUpdateCursor
75D5	CD F3 41	call SelectOptionE
75D8	18 A1	jr SubMenuLoop

ASCII Characters ($00 to $FF)
$00		$20		$40		$60	$80		$A0	î	$C0	ε	$E0
$01		$21		$41		$61	$81		$A1	ï	$C1	[	$E1
$02		$22		$42		$62	$82		$A2	Ó	$C2	λ	$E2
$03		$23		$43		$63	$83		$A3	Ò	$C3	μ	$E3
$04		$24	⁴	$44		$64	$84		$A4	Ô	$C4	π	$E4
$05		$25		$45		$65	$85		$A5	Ö	$C5	ρ	$E5
$06		$26		$46		$66	$86		$A6	ó	$C6	Σ	$E6
$07		$27		$47		$67	$87		$A7	ò	$C7	σ	$E7
$08	∫	$28		$48		$68	$88		$A8	ô	$C8	τ	$E8
$09	×	$29		$49		$69	$89		$A9	ö	$C9	φ	$E9
$0A		$2A		$4A		$6A	$8A	Á	$AA	Ú	$CA	Ω	$EA
$0B		$2B		$4B		$6B	$8B	À	$AB	Ù	$CB		$EB
$0C		$2C		$4C		$6C	$8C	Â	$AC	Û	$CC		$EC
$0D		$2D		$4D		$6D	$8D	Ä	$AD	Ü	$CD		$ED
$0E	³	$2E		$4E		$6E	$8E	á	$AE	ú	$CE	…	$EE
$0F		$2F		$4F		$6F	$8F	à	$AF	ù	$CF		$EF
$10	√	$30		$50		$70	$90	â	$B0	û	$D0		$F0
$11		$31		$51		$71	$91	ä	$B1	ü	$D1		$F1
$12	²	$32		$52		$72	$92	É	$B2	Ç	$D2		$F2
$13		$33		$53		$73	$93	È	$B3	ç	$D3		$F3
$14	°	$34		$54		$74	$94	Ê	$B4	Ñ	$D4		$F4
$15		$35		$55		$75	$95	Ë	$B5	ñ	$D5		$F5
$16		$36		$56		$76	$96	é	$B6	´	$D6		$F6
$17	≤	$37		$57		$77	$97	è	$B7	`	$D7		$F7
$18	≠	$38		$58		$78	$98	ê	$B8	¨	$D8		$F8
$19	≥	$39		$59		$79	$99	ë	$B9	¡	$D9	χ	$F9
$1A		$3A		$5A		$7A	$9A	Í	$BA		$DA		$FA
$1B		$3B		$5B	θ	$7B	$9B	Ì	$BB	α	$DB		$FB
$1C	→	$3C		$5C		$7C	$9C	Î	$BC	β	$DC		$FC
$1D		$3D		$5D		$7D	$9D	Ï	$BD	γ	$DD		$FD
$1E	↑	$3E		$5E		$7E	$9E	í	$BE	Δ	$DE		$FE
$1F	↓	$3F		$5F		$7F	$9F	ì	$BF	δ	$DF		$FF

ASCII Characters ($00 to $FF)
$00		$20		$40		$60	$80		$A0	î	$C0	ε	$E0
$01		$21		$41		$61	$81		$A1	ï	$C1	[	$E1
$02		$22		$42		$62	$82		$A2	Ó	$C2	λ	$E2
$03		$23		$43		$63	$83		$A3	Ò	$C3	μ	$E3
$04		$24	⁴	$44		$64	$84		$A4	Ô	$C4	π	$E4
$05		$25		$45		$65	$85		$A5	Ö	$C5	ρ	$E5
$06		$26		$46		$66	$86		$A6	ó	$C6	Σ	$E6
$07		$27		$47		$67	$87		$A7	ò	$C7	σ	$E7
$08	∫	$28		$48		$68	$88		$A8	ô	$C8	τ	$E8
$09	×	$29		$49		$69	$89		$A9	ö	$C9	φ	$E9
$0A		$2A		$4A		$6A	$8A	Á	$AA	Ú	$CA	Ω	$EA
$0B		$2B		$4B		$6B	$8B	À	$AB	Ù	$CB		$EB
$0C		$2C		$4C		$6C	$8C	Â	$AC	Û	$CC		$EC
$0D		$2D		$4D		$6D	$8D	Ä	$AD	Ü	$CD		$ED
$0E	³	$2E		$4E		$6E	$8E	á	$AE	ú	$CE	…	$EE
$0F		$2F		$4F		$6F	$8F	à	$AF	ù	$CF		$EF
$10	√	$30		$50		$70	$90	â	$B0	û	$D0		$F0
$11		$31		$51		$71	$91	ä	$B1	ü	$D1		$F1
$12	²	$32		$52		$72	$92	É	$B2	Ç	$D2		$F2
$13		$33		$53		$73	$93	È	$B3	ç	$D3		$F3
$14	°	$34		$54		$74	$94	Ê	$B4	Ñ	$D4		$F4
$15		$35		$55		$75	$95	Ë	$B5	ñ	$D5		$F5
$16		$36		$56		$76	$96	é	$B6	´	$D6		$F6
$17	≤	$37		$57		$77	$97	è	$B7	`	$D7		$F7
$18	≠	$38		$58		$78	$98	ê	$B8	¨	$D8		$F8
$19	≥	$39		$59		$79	$99	ë	$B9	¡	$D9	χ	$F9
$1A		$3A		$5A		$7A	$9A	Í	$BA		$DA		$FA
$1B		$3B		$5B	θ	$7B	$9B	Ì	$BB	α	$DB		$FB
$1C	→	$3C		$5C		$7C	$9C	Î	$BC	β	$DC		$FC
$1D		$3D		$5D		$7D	$9D	Ï	$BD	γ	$DD		$FD
$1E	↑	$3E		$5E		$7E	$9E	í	$BE	Δ	$DE		$FE
$1F	↓	$3F		$5F		$7F	$9F	ì	$BF	δ	$DF		$FF

ASCII Characters ($00 to $FF)
$00		$20		$40		$60	$80		$A0	î	$C0	ε	$E0
$01		$21		$41		$61	$81		$A1	ï	$C1	[	$E1
$02		$22		$42		$62	$82		$A2	Ó	$C2	λ	$E2
$03		$23		$43		$63	$83		$A3	Ò	$C3	μ	$E3
$04		$24	⁴	$44		$64	$84		$A4	Ô	$C4	π	$E4
$05		$25		$45		$65	$85		$A5	Ö	$C5	ρ	$E5
$06		$26		$46		$66	$86		$A6	ó	$C6	Σ	$E6
$07		$27		$47		$67	$87		$A7	ò	$C7	σ	$E7
$08	∫	$28		$48		$68	$88		$A8	ô	$C8	τ	$E8
$09	×	$29		$49		$69	$89		$A9	ö	$C9	φ	$E9
$0A		$2A		$4A		$6A	$8A	Á	$AA	Ú	$CA	Ω	$EA
$0B		$2B		$4B		$6B	$8B	À	$AB	Ù	$CB		$EB
$0C		$2C		$4C		$6C	$8C	Â	$AC	Û	$CC		$EC
$0D		$2D		$4D		$6D	$8D	Ä	$AD	Ü	$CD		$ED
$0E	³	$2E		$4E		$6E	$8E	á	$AE	ú	$CE	…	$EE
$0F		$2F		$4F		$6F	$8F	à	$AF	ù	$CF		$EF
$10	√	$30		$50		$70	$90	â	$B0	û	$D0		$F0
$11		$31		$51		$71	$91	ä	$B1	ü	$D1		$F1
$12	²	$32		$52		$72	$92	É	$B2	Ç	$D2		$F2
$13		$33		$53		$73	$93	È	$B3	ç	$D3		$F3
$14	°	$34		$54		$74	$94	Ê	$B4	Ñ	$D4		$F4
$15		$35		$55		$75	$95	Ë	$B5	ñ	$D5		$F5
$16		$36		$56		$76	$96	é	$B6	´	$D6		$F6
$17	≤	$37		$57		$77	$97	è	$B7	`	$D7		$F7
$18	≠	$38		$58		$78	$98	ê	$B8	¨	$D8		$F8
$19	≥	$39		$59		$79	$99	ë	$B9	¡	$D9	χ	$F9
$1A		$3A		$5A		$7A	$9A	Í	$BA		$DA		$FA
$1B		$3B		$5B	θ	$7B	$9B	Ì	$BB	α	$DB		$FB
$1C	→	$3C		$5C		$7C	$9C	Î	$BC	β	$DC		$FC
$1D		$3D		$5D		$7D	$9D	Ï	$BD	γ	$DD		$FD
$1E	↑	$3E		$5E		$7E	$9E	í	$BE	Δ	$DE		$FE
$1F	↓	$3F		$5F		$7F	$9F	ì	$BF	δ	$DF		$FF