A83: Help!!!!
[Prev][Next][Index][Thread]
A83: Help!!!!
I've just begun to learn assembley, and allthough my skill suck, I though I could make an assembley program that makes it look like you have no programs on your calc. The program assembleys but when ever I run it on my calc my calc crashes. Any help?
(The source for the program)
.NOLIST
#define equ .equ
#define EQU .equ
#define end .end
#include "ti83asm.inc"
#include "tokens.inc"
.LIST
.org 9327h
call _clrLCDFull
ld a,0
ld (currow),a
ld a,0
ld (curcol),a
ld hl,STRING_ONE
call _puts
ld a,1
ld (currow),a
ld a,8
ld (curcol),a
ld hl,STRING_TWO
call _puts
LOOP:
ld a,255
out (1),a
call _getkey
cp 20h
jp z,LABELONE
jp LOOP
LABELONE:
call _clrLCDFull
ld a,0
ld (currow),a
ld a,0
ld (curcol),a
ld hl,STRING_THREE
set textinverse,(iy+textflags)
call _puts
res textinverse,(iy+textflags)
call _getkey
cp 44h
jp z,LABELTWO
jp LABELONE
LABELTWO:
ret STRING_ONE:
.db "2-7",0
STRING_TWO:
.db "-5",0
STRING_THREE:
.db "Execute",0
end
_____________________________________________________________
Free email @eboarding.net
Win boards, shoes, clothes and more!