diff --git a/scorch.asm b/scorch.asm index 8cf259c..c6adf6b 100644 --- a/scorch.asm +++ b/scorch.asm @@ -15,7 +15,7 @@ ;--------------------------------------------------- .macro build - dta d"1.15" ; number of this build (4 bytes) + dta d"1.16" ; number of this build (4 bytes) .endm .macro RMTSong @@ -154,19 +154,20 @@ */ _space = $00 _Y = $01 - _up = $02 + _up = $f2 ;02 _O = $03 - _left = $04 + _left = $f4 ;04 _tab = $05 - _right = $06 + _right = $f6 ;06 _A = $07 - _down = $08 + _down = $f8 ;08 _I = $09 _esc = $0a - _ret = $fa ;$0b + _ret = $fb ;$0b ;not used in 5200 + _del = $fc ;$0c ;not used in 5200 _M = $0d _S = $0e - _del = $fe ; not used in 5200 + _none = $0f .ende */ .ELSE @@ -1270,7 +1271,10 @@ exitVBL lda skstat ;Reset consol key shadow is no key is pressed anymore and #4 - seq:mva #consol_reset consol + beq @+ + mva #consol_reset consol + mva #@kbcode._none kbcode +@ pla tay @@ -1568,14 +1572,16 @@ SetRandomWalls beq checkJoyGetKey ; key not pressed, check Joy cmp #$f7 ; SHIFT beq checkJoyGetKey - + .ENDIF lda kbcode + cmp #@kbcode._none + beq checkJoyGetKey and #$3f ;CTRL and SHIFT ellimination cmp #@kbcode._esc ; 28 ; ESC bne getkeyend mvx #$80 escFlag bne getkeyend - .ENDIF + checkJoyGetKey ;------------JOY------------- ;happy happy joy joy diff --git a/scorch.bin b/scorch.bin index e7d23f8..44756d4 100644 Binary files a/scorch.bin and b/scorch.bin differ diff --git a/scorch.xex b/scorch.xex index 751c801..b1aa435 100644 Binary files a/scorch.xex and b/scorch.xex differ