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!