You are currently looking at Flamebate, our community forums. Players can discuss the game here, strategize, and role play as their characters.
You need to be logged in to post and to see the uncensored versions of these forums.
Viewing a Post
|
STILL
#include “ti83plus.inc” #define progStart $9D95 .org progStart-2 .db $BB,$6D x .equ AppBackUpScreen y .equ AppBackUpScreen+1 push bc push de ld hl,x ld (hl),0 ld hl,y ld (hl),0 MainLoop: call EraseSpr ld a,%11111110 out ($01),a in a,($01) ld b,a bit 0,b call z,Down bit 1,b call z,Left bit 2,b call z,Right bit 3,b call z,Up call DrawSpr ld a,%11111101 out ($01),a in a,($01) cp %10111111 jr nz,MainLoop pop de pop bc ret Down: ld hl,y ld a,(hl) cp 55 ret z inc (hl) ret Up: ld hl,y ld a,(hl) cp 0 ret z dec (hl) ret Left: ld hl,x ld a,(hl) cp 0 ret z dec (hl) ret Right: ld hl,x ld a,(hl) cp 87 ret z inc (hl) ret BoxPic: .db 1,8 .db %11111111 .db %10000001 .db %10000001 .db %10000001 .db %10000001 .db %11111111 BoxErase: .db 1,8 .db 0 .db 0 .db 0 .db 0 .db 0 .db 0 DrawSpr: ld hl,y ld d,(hl) ld hl,x ld e,(hl) ld hl,BoxPic bcall(_DisplayImage) ret EraseSpr: ld hl,y ld d,(hl) ld hl,x ld e,(hl) ld hl,BoxErase bcall(_DisplayImage) ret Death to TI-Nspires! |
||||||
Posted On: 05/22/2012 9:42AM | View Evil-Seaman's Profile | # |