Make hotkeys uniform across machines
This commit is contained in:
parent
b9b2297c78
commit
19e602de3d
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue