Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-21 06:39:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

End of keyboard support in 5200 and improved music in NTSC.

Browse Source 
Keypad on the 5200 works, of course. And it works very well.
This commit is contained in:
Pecusx
2022-11-03 19:30:02 +01:00
parent 1a1761bc4c
commit e717306400
5 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
artwork/sfx/scorch_str6-NTSC.rmt
BIN
View File
Binary file not shown.
scorch.asm
+1
View File
@@ -274,6 +274,7 @@ FirstSTART
mva #$04 MODUL-6+$bd2 mva #$04 MODUL-6+$bd2
mva #$08 MODUL-6+$e17 mva #$08 MODUL-6+$e17
mva #$06 MODUL-6+$e3d mva #$06 MODUL-6+$e3d
mva #$06 MODUL-6+$e8c
NoRMT_PALchange NoRMT_PALchange
.ELSE .ELSE
mva #$7f SkStatSimulator mva #$7f SkStatSimulator
scorch.bin
BIN
View File
Binary file not shown.
scorch.xex
BIN
View File
Binary file not shown.
textproc.asm
+2
View File
@@ -1117,6 +1117,7 @@ CheckKeys
bit escFlag bit escFlag
spl:rts spl:rts
.IF TARGET = 800 ; only the A800 has a keyboard
; is the char to be recorded? ; is the char to be recorded?
ldx #keycodesEnd-keycodes ;table was 38 chars long ldx #keycodesEnd-keycodes ;table was 38 chars long
IsLetter IsLetter
@@ -1136,6 +1137,7 @@ YesLetter
dex dex
@ stx PositionInName ; if not, we store @ stx PositionInName ; if not, we store
jmp CheckKeys jmp CheckKeys
.ENDIF
CheckFurtherX01 ; here we check Tab, Return and Del CheckFurtherX01 ; here we check Tab, Return and Del
cmp #@kbcode._ret ; $0c ; Return cmp #@kbcode._ret ; $0c ; Return
jeq EndOfNick jeq EndOfNick