0 Members and 3 Guests are viewing this topic.
.nolist #include "ti83plus.inc" .list .org userMem-2 .db $BB,$6D Init: B_CALL _ClrLCDFull ld hl,0 ld (curCol), hl ld hl,Welcome B_CALL _PutS B_CALL _GetKey cp kEnter jr z,Win B_CALL _ClrLCDFull ld hl,0 ld (curCol), hl ld hl,LoseTxt B_CALL _PutS B_CALL _GetKey B_CALL _ClrLCDFull ret LoseTxt: .db "LOSE",0 Win: B_CALL _ClrLCDFull ld hl,0 ld (curCol), hl ld hl,WinTxt B_CALL _PutS B_CALL _GetKey B_CALL _ClrLCDFull retWinTxt: .db "WIN",0Welcome: .db "Press ",$C1,"ENTER]",0
TitleScreen: ;Title Screen codeLoop: ;Code cp kClear jr z, TitleScreen jr Loop
Start: cp kClear jr z, End jr StartEnd: ret
LD B, number_of_loops@ ; code DJNZ {-1@}@
@ BCALL(GetKey) CP kClear JP NZ, {-1@}@
Start: B_CALL (_GetKey) cp kClear jr z, End jr StartEnd: ret
jr loop_Conditionloop: ;codeloop_Condition: b_call(getCSC) ;getCSC doesn't wait for a key to be pressed, _GetKey will. cp 15 ;Im not sure what the equate is called, prolly skClear jr nz,loop
{====______}
{=========_}
Actually, if you want something similar to getkey(15), you might want:Code: [Select]jr loop_Conditionloop: ;codeloop_Condition: b_call(getCSC) ;getCSC doesn't wait for a key to be pressed, _GetKey will. cp 15 ;Im not sure what the equate is called, prolly skClear jr nz,loopAs for wiping out registers, push and pop really help
Start: B_CALL (_ClrLCDFull)Loop: B_CALL (_GetKey) cp kClear jr z,End kr LoopEnd: ret
Start: B_CALL (_ClrLCDFull)Loop: B_CALL (_GetCSC) ;The change is done here cp kClear jr z,End kr LoopEnd: ret
.nolist#include "ti83plus.inc"#include "dcs7.inc".list .org userMem-2 .db $BB,$6DInit: B_CALL (_ClrLCDFull) ld ix,MyImage ;Image ld b,8 ;Height ld a,0 ;X ld l,0 ;Y call iPutSprite call iFastCopyLoop: B_CALL (_GetKey) cp kClear jr z,End jr Loop MyImage: .db $FF,$81,$81,$81,$81,$81,$81,$FF End: ret
--------------------------------------- Assembling display1 for the TI-83/84 Plus...Brass Z80 Assembler 1.0.4.11 - Ben Ryves 2005-2006--------------------------------------------------Assembling...Error: Unsupported directive '.end:'. [zztemp.asm:27]Pass 1 complete. (636ms).Pass 1 failed, pass 2 therefore skipped.Errors: 1, Warnings: 0.
.nolist#include "ti83plus.inc"#include "dcs7.inc".list .org userMem-2 .db $BB,$6DInit: B_CALL (_ClrLCDFull) ld ix,MyImage ;Image ld b,8 ;Height ld a,0 ;X ld l,0 ;Y call iPutSprite ;Display Image call iFastCopy ;Put it in the bugger jr LoopLoop: ;Waits for the user to press [CLEAR] B_CALL (_GetCSC) cp skClear ;jr z,End jr Loop MyImage: .db $FF,$81,$81,$81,$81,$81,$81,$FF
Init: B_CALL (_ClrLCDFull) ld ix,MyImage ;Image ld b,8 ;Height ld a,0 ;X ld l,0 ;Y jr LoopLoop: ;Waits for the user to press [CLEAR] B_CALL (_GetCSC) call iPutSprite ;Display Image call iFastCopy ;Put it in the bugger cp skRight call z,MoveRight jr LoopMoveRight: inc lMyImage: .db $FF,$81,$81,$81,$81,$81,$81,$FF
.nolist#include "ti83plus.inc"#include "dcs7.inc".list .org userMem-2 .db $BB,$6DInit: B_CALL (_ClrLCDFull)Loop: ;Waits for the user to press [CLEAR] B_CALL (_GetCSC) ld b,8 ld ix,MyImage ld l,0 call iPutSprite ;Display Image call iFastCopy ;Put it in the bugger cp skRight call z,MoveRight B_CALL (_ClrLCDFull) jr LoopMoveRight: inc aMyImage: .db $FF,$81,$81,$81,$81,$81,$81,$FF
Ah thanks a lot Deep Thought, that explains it, Mimas didn't have that problem.
I don't know what registers BCalls wipe out, where can I find such info?Either way, when I press [CLEAR] with that code weird stuff happens.
Any ideas, I'm trying to make a sort of a cursor.
B_CALL _ClrLCDFullDestroysAll
Code: [Select]B_CALL _ClrLCDFullDestroysAllxD