0 Members and 3 Guests are viewing this topic.
....Start:BCALL ClrLCDFullLD HL,$02LD (curRow),HLLD HL,Str1 ; This is my ASCII Adventures stringBCALL PutSLD HL,$231ELD (penCol),HLLD HL,Str2 ; This is my Version 1.0 stringBCALL VPutSLD HL,$2D1BLD (penCol),HLLD HL,Str3 ; This is my Press any key stringBCALL VPutSBCALL GetKey ; I would have used GetCSC for this, but that would have required a loop and I want to optimize as much as possibleGame:BCALL ClrLCDFullLD A,Xpos ; This gets my variable Xpos.LD (penRow),A ; This makes it in the penRowLD A,YposLD (penCol),ALD HL,Plyr ; This is my Theta string ( I know I could use a character, I just wanted a string.....)KeyLoop:BCALL GetCSCCP 0JR Z, KeyLoop ; I know. Super n00b way of doing things, but it works.CP skClearRET ZCP skUpJR Z, MoveUp ; It's in this routine that I'm having trouble with things.MoveUp:LD A, YposSub 1LD (Ypos),AJR Game ; Don't know if this is the problem or notStr1:DB "ASCII Adventures",0Str2:DB "Version 0.1",0Str3:DB "Press any key",0Plyr:DB "(theta)",0Xpos EQU 46 ; These could be the problems tooYpos EQU 26
Game:BCALL ClrLCDFullLD A,Xpos ; This gets my variable Xpos.LD (penRow),A ; This makes it in the penRowLD A,YposLD (penCol),A