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

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

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

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