A89: Can someone look at this?
[Prev][Next][Index][Thread]
A89: Can someone look at this?
I can't figure out what is wrong with this. Can
someone debug it real quick. It always crashes after
it jsr graphlib::smallbox. Thanks.
include "tios.h"
include "util.h"
include "graphlib.h"
xdef _main
xdef _comment
xdef _ti89
WrtStr 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:
move.w #31,varp
move.w #35,varp1
jsr graphlib::clr_scr
lea.l title,a0
jsr graphlib::smallbox
;set font
move.w #1,-(a7)
jsr tios::FontSetSys
add.l #2,a7
;menu
WrtStr #40,#35,#1,line1
WrtStr #40,#45,#1,line2
WrtStr #40,#55,#1,line3
menukey:
jsr util::idle_loop
cmp.w #337,d0
beq menuup
cmp.w #340,d0
beq menudown
cmp.w #13,d0
beq enter
bra menukey
menuup:
move.w varp1,varp2
subi.w #10,varp1
cmp.w #25,varp1
beq menuundo
bra putpoint
menudown:
move.w varp1,varp2
addi.w #10,varp1
cmp.w #65,varp1
beq menuundo
bra putpoint
menuundo:
move.w varp2,varp1
bra menukey
putpoint:
move.w varp,d0
move.w varp1,d1
move.l #point,a0
jsr graphlib::put_sprite
move.w varp2,d1
move.w #8,d2
move.w #7,d3
move.w #1,d4
jsr graphlib::fill
bra menukey
enter:
cmp.w #35,varp2
beq no1
cmp.w #45,varp2
beq no2
cmp.w #55,varp2
beq no3
no1:
move.w #0,charno
bra exit
no2:
move.w #1,charno
bra exit
no3:
move.w #2,charno
bra exit
exit:
rts
_comment: dc.b "Menu Test",0
title: dc.b "KANA",0
line1: dc.b "Hiragana",0
line2: dc.b "Katakana",0
line3: dc.b "Rest",0
varp: dc.w 0
varp1: dc.w 0
varp2: dc.w 0
charno: dc.w 0
point:
dc.w 7
dc.w 1
dc.b %11000000
dc.b %11110000
dc.b %11111100
dc.b %11111111
dc.b %11111100
dc.b %11110000
dc.b %11000000
mask:
dc.b %00000000
dc.b %00000000
dc.b %00000000
dc.b %00000000
dc.b %00000000
dc.b %00000000
dc.b %00000000
end
===
Visit my website, Some Assembly Required, at
http://meltingpot.fortunecity.com/gilford/908
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com