0 Members and 2 Guests are viewing this topic.
#include "ti83plus.inc"#include "DCS7.inc" ;my DCS lib for Mimas, including it works a little different but thats np;(DCS header here)Xpos .equ saferam1ld A,1out ($20),AB_CALL _runindicoffres doneprgm,(IY+kbdFlags)ld A,44ld (Xpos),AGame_Loop:B_CALL _GrBufClrld A,(Xpos)ld L,60ld B,3ld IX,PaddleCALL ispriteCALL ifastcopyB_CALL _GetCSCpush AFCP skrightJP nz, contld A,(Xpos)CP 88JP z,cont1INC ALD (Xpos), ACont:pop AFpush AFCP skleftJP nz,cont1ld A,(Xpos)CP 0JP z,cont1dec Ald (Xpos),ACont1:pop AFCP skclearret zjp Game_LoopPaddle:.db %01111110.db %10000001.db %01111110