guru
/
chipty5
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Make hotkeys uniform across machines

This commit is contained in:
Maurizio Porrato 2021-07-19 19:56:22 +01:00
parent b9b2297c78
commit 19e602de3d
Signed by: guru
GPG Key ID: C622977DF024AC24
3 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
chipty5-64.asm
View File

@ -46,14 +46,14 @@ handler
tax
cmp prevkey
beq dotick
cmp #3 ; F7: reset
cmp #0 ; backspace: Power cycle (reset) the vm
bne +
lda #EF_RESET
ora eflags
sta eflags
jmp done
+ txa
cmp #6 ; F5: Pause
cmp #41 ; P: Pause
bne +
lda #EF_PAUSE
eor eflags
@ -67,14 +67,14 @@ handler
sta eflags
jmp done
+ txa
cmp #43 ; -: Shift behaviour
cmp #55 ; /: Shift behaviour
bne +
lda #EF_SHIFTX
eor eflags
sta eflags
jmp done
+ txa
cmp #55 ; /: Load
cmp #42 ; L: Load
bne +
lda #EF_LOAD
ora eflags
@ -227,4 +227,4 @@ prompt .null "file name: "
kbdcodes .byte 56, 59, 8, 11, 62, 9, 14, 17, 10, 13, 18, 21, 12, 23, 20, 31
.endsection data
; vim: syntax=64tass
; vim: syntax=64tass

8
chipty5-pet40.asm
View File

@ -56,7 +56,7 @@ handler
sta eflags
jmp done
+ txa
cmp #'.' ; '.'': Pause
cmp #'p' ; P: Pause
bne +
lda #EF_PAUSE
eor eflags
@ -70,14 +70,14 @@ handler
sta eflags
jmp done
+ txa
cmp #"-" ; -: Shift behaviour
cmp #'/' ; /: Shift behaviour
bne +
lda #EF_SHIFTX
eor eflags
sta eflags
jmp done
+ txa
cmp #'/' ; '/': Load
cmp #'l' ; L: Load
bne +
lda #EF_LOAD
ora eflags
@ -234,4 +234,4 @@ prompt .null "file name: "
kbdcodes .text "1234qwerasdfzxcv"
.endsection data
; vim: syntax=64tass
; vim: syntax=64tass

10
chipty5-plus4.asm
View File

@ -46,14 +46,14 @@ handler
tax
cmp prevkey
beq dotick
cmp #3 ; F7: reset
cmp #0 ; backspace: power cycle (reset) the vm
bne +
lda #EF_RESET
ora eflags
sta eflags
jmp done
+ txa
cmp #6 ; F5: Pause
cmp #41 ; P: Pause
bne +
lda #EF_PAUSE
eor eflags
@ -67,14 +67,14 @@ handler
sta eflags
jmp done
+ txa
cmp #46 ; -: Shift behaviour
cmp #55 ; /: Shift behaviour
bne +
lda #EF_SHIFTX
eor eflags
sta eflags
jmp done
+ txa
cmp #55 ; /: Load
cmp #42 ; L: Load program
bne +
lda #EF_LOAD
ora eflags
@ -227,4 +227,4 @@ prompt .null "file name: "
kbdcodes .byte 56, 59, 8, 11, 62, 9, 14, 17, 10, 13, 18, 21, 12, 23, 20, 31
.endsection data
; vim: syntax=64tass
; vim: syntax=64tass