include	"tios.h"
	include	"util.h"

	xdef		_main
	xdef		_ti89
	xdef		_comment

SetFont MACRO
	move.w		\1,-(a7)
	jsr		tios::FontSetSys
	lea		2(a7),a7
	ENDM

WriteStr MACRO
	move.w 	\3,-(a7)
	pea		\4(pc)
	move.w		\2,-(a7)
	move.w		\1,-(a7)
	jsr		tios::DrawStrXY
	lea		10(a7),a7
	ENDM

_main:
	jsr		util::zap_screen
	SetFont	#2
	WriteStr	#7,#20,#4,text1
	SetFont	#1
	WriteStr	#46,#35,#4,text1a
	WriteStr	#28,#70,#4,text2
	SetFont	#0
	WriteStr	#0,#94,#4,text3
	jsr		util::idle_loop
	cmp.w		#13,d0
	beq		\mainmenu
	cmp.w		#270,d0
	beq		end
	bne		_main		

\mainmenu:
	jsr		util::zap_screen
	SetFont	#2
	WriteStr	#7,#0,#4,text1
	SetFont	#1
	WriteStr	#0,#24,#4,text7
	WriteStr	#0,#34,#4,text8
	WriteStr	#0,#44,#4,text9
	jsr		util::idle_loop
	cmp.w		#268,d0
	beq		\FOne
	cmp.w		#269,d0
	beq		\FTwo
	cmp.w		#264,d0
	beq		end
	bne		\mainmenu
	rts

\FOne:
	jsr		util::zap_screen
	SetFont	#1
	WriteStr	#9,#0,#4,text5
	SetFont	#0
	WriteStr	#0,#94,#4,text3
	SetFont	#1
	WriteStr	#0,#12,#4,data1
	SetFont	#0
	WriteStr	#6,#15,#4,sub2
	WriteStr	#18,#15,#4,sub2
	WriteStr	#30,#15,#4,sub2
	SetFont	#1
	WriteStr	#0,#21,#4,data2
	SetFont	#0
	WriteStr	#18,#24,#4,sub3
	SetFont	#1
	WriteStr	#0,#30,#4,data3
	WriteStr	#0,#39,#4,data4
	WriteStr	#0,#48,#4,data5
	SetFont	#0
	WriteStr	#6,#51,#4,sub2
	WriteStr	#24,#51,#4,sub4
	SetFont	#1
	WriteStr	#0,#57,#4,data6
	SetFont	#0
	WriteStr	#18,#60,#4,sub3
	SetFont	#1
	WriteStr	#0,#66,#4,data7
	SetFont	#0
	WriteStr	#18,#69,#4,sub4
	SetFont	#1
	WriteStr	#0,#75,#4,data8
	WriteStr	#0,#84,#4,data9
	SetFont	#0
	WriteStr	#12,#87,#4,sub3
	jsr		util::idle_loop
	cmp.w		#13,d0
	beq		\FOneb
	cmp.w		#272,d0
	beq		\mainmenu
	cmp.w		#264,d0
	beq		\mainmenu
	bne		\FOne

\FOneb
	jsr		util::zap_screen
	SetFont	#1
	WriteStr	#9,#0,#4,text5
	SetFont	#0
	WriteStr	#0,#94,#4,text3
	SetFont	#1
	WriteStr	#0,#12,#4,data10
	SetFont	#0
	WriteStr	#18,#15,#4,sub4
	SetFont	#1
	WriteStr	#0,#21,#4,data11
	jsr		util::idle_loop
	cmp.w		#13,d0
	beq		\pagetwo
	cmp.w		#272,d0
	beq		\mainmenu
	cmp.w		#264,d0
	beq		\mainmenu
	bne		\FOneb

\pagetwo:
	jsr		util::zap_screen
	SetFont	#1
	WriteStr	#9,#0,#4,text10
	SetFont	#0
	WriteStr	#0,#94,#4,text3
	SetFont	#1
	WriteStr	#0,#12,#4,data12
	SetFont	#0
	WriteStr	#12,#15,#4,sub3
	SetFont	#1
	WriteStr	#0,#21,#4,data13
	SetFont	#0
	WriteStr	#18,#24,#4,sub4
	SetFont	#1
	WriteStr	#0,#30,#4,data14
	SetFont	#0
	WriteStr	#12,#33,#4,sub2
	WriteStr	#24,#33,#4,sub7
	SetFont	#1
	WriteStr	#0,#39,#4,data15
	SetFont	#0
	WriteStr	#18,#42,#4,sub4
	WriteStr	#36,#40,#4,data15b
	SetFont	#1
	WriteStr	#0,#48,#4,data16
	SetFont	#0
	WriteStr	#12,#51,#4,sub4
	SetFont	#1
	WriteStr	#0,#57,#4,data17
	SetFont	#0
	WriteStr	#12,#60,#4,sub3
	jsr		util::idle_loop
	cmp.w		#13,d0
	beq		\pagethree
	cmp.w		#272,d0
	beq		\mainmenu
	cmp.w		#264,d0
	beq		\mainmenu
	bne		\pagetwo

\pagethree:
	jsr		util::zap_screen
	SetFont	#1
	WriteStr	#9,#0,#4,text11
	SetFont	#0
	WriteStr	#0,#94,#4,text3
	SetFont	#1
	WriteStr	#0,#12,#4,data18
	SetFont	#0
	WriteStr	#18,#15,#4,sub4
	jsr		util::idle_loop
	cmp.w		#13,d0
	beq		\mainmenu
	cmp.w		#264,d0
	beq		\mainmenu
	bne		\pagethree

\FTwo:
	jsr		util::zap_screen
	SetFont	#2
	WriteStr	#7,#0,#4,text1
	SetFont	#1
	WriteStr	#46,#11,#4,text1a
	WriteStr	#28,#21,#4,text2
	WriteStr	#0,#50,#4,text6c
	WriteStr	#0,#60,#4,text6d
	SetFont	#0
	WriteStr	#0,#94,#4,text3
	jsr		util::idle_loop
	cmp.w		#13,d0
	beq		\mainmenu
	cmp.w		#264,d0
	beq		\mainmenu
	bne		\FTwo

end:
	rts

text1:		dc.b	"Chemistry Database",0
text1a:	dc.b	"version 1.1",0
text2:		dc.b	"(C)1999   By Gep",0
text3:		dc.b	"[ENTER]-Continue",0
text5:		dc.b	"-1 Polyatomic Molecules",0
text6c:	dc.b	"Email:  jgep@hotmail.com",0
text6d:	dc.b	"Site:   http://jump.to/Gep",0
text7:		dc.b	"[F1]  Polyatomic Molecules",0
text8:		dc.b	"[F2]  About",0
text9:		dc.b	"[ESC] Exit",0
text10:	dc.b	"-2 Polyatomic Molecules",0
text11:	dc.b	"-3 Polyatomic Molecules",0

sub2:		dc.b	"2",0
sub3:		dc.b	"3",0
sub4:		dc.b	"4",0
sub7:		dc.b	"7",0

data1:		dc.b	"C H O Acetate",0
data2:		dc.b	"ClO   Chlorate",0
data3:		dc.b	"OCN   Cyanate",0
data4:		dc.b	"CN    Cyanide",0
data5:		dc.b	"H PO  Dihydrogen Phosphate",0
data6:		dc.b	"HCO   Hydrogen Carbonate",0
data7:		dc.b	"HSO   Hydrogen Sulfate",0
data8:		dc.b	"OH    Hydroxide",0
data9:		dc.b	"NO    Nitrate",0
data10:	dc.b	"MnO   Permanganate",0
data11:	dc.b	"SCN   Thiocyanate",0

data12:	dc.b	"CO    Carbonate",0
data13:	dc.b	"CrO   Chromate",0
data14:	dc.b	"Cr O  Dichromate",0
data15:	dc.b	"HPO",0
data15b:	dc.b	"Monohydrogen Phosphate",0
data16:	dc.b	"SO    Sulfate",0
data17:	dc.b	"SO    Sulfite",0

data18:	dc.b	"AsO   Arsenate",0

_comment 	dc.b 	"Chemistry Database 1.0",0

	end