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

8
chipty5-64.asm
View File

@ -46,14 +46,14 @@ handler
tax tax
cmp prevkey cmp prevkey
beq dotick beq dotick
cmp #3 ; F7: reset cmp #0 ; backspace: Power cycle (reset) the vm
bne + bne +
lda #EF_RESET lda #EF_RESET
ora eflags ora eflags
sta eflags sta eflags
jmp done jmp done
+ txa + txa
cmp #6 ; F5: Pause cmp #41 ; P: Pause
bne + bne +
lda #EF_PAUSE lda #EF_PAUSE
eor eflags eor eflags
@ -67,14 +67,14 @@ handler
sta eflags sta eflags
jmp done jmp done
+ txa + txa
cmp #43 ; -: Shift behaviour cmp #55 ; /: Shift behaviour
bne + bne +
lda #EF_SHIFTX lda #EF_SHIFTX
eor eflags eor eflags
sta eflags sta eflags
jmp done jmp done
+ txa + txa
cmp #55 ; /: Load cmp #42 ; L: Load
bne + bne +
lda #EF_LOAD lda #EF_LOAD
ora eflags ora eflags

6
chipty5-pet40.asm
View File

@ -56,7 +56,7 @@ handler
sta eflags sta eflags
jmp done jmp done
+ txa + txa
cmp #'.' ; '.'': Pause cmp #'p' ; P: Pause
bne + bne +
lda #EF_PAUSE lda #EF_PAUSE
eor eflags eor eflags
@ -70,14 +70,14 @@ handler
sta eflags sta eflags
jmp done jmp done
+ txa + txa
cmp #"-" ; -: Shift behaviour cmp #'/' ; /: Shift behaviour
bne + bne +
lda #EF_SHIFTX lda #EF_SHIFTX
eor eflags eor eflags
sta eflags sta eflags
jmp done jmp done
+ txa + txa
cmp #'/' ; '/': Load cmp #'l' ; L: Load
bne + bne +
lda #EF_LOAD lda #EF_LOAD
ora eflags ora eflags

8
chipty5-plus4.asm
View File

@ -46,14 +46,14 @@ handler
tax tax
cmp prevkey cmp prevkey
beq dotick beq dotick
cmp #3 ; F7: reset cmp #0 ; backspace: power cycle (reset) the vm
bne + bne +
lda #EF_RESET lda #EF_RESET
ora eflags ora eflags
sta eflags sta eflags
jmp done jmp done
+ txa + txa
cmp #6 ; F5: Pause cmp #41 ; P: Pause
bne + bne +
lda #EF_PAUSE lda #EF_PAUSE
eor eflags eor eflags
@ -67,14 +67,14 @@ handler
sta eflags sta eflags
jmp done jmp done
+ txa + txa
cmp #46 ; -: Shift behaviour cmp #55 ; /: Shift behaviour
bne + bne +
lda #EF_SHIFTX lda #EF_SHIFTX
eor eflags eor eflags
sta eflags sta eflags
jmp done jmp done
+ txa + txa
cmp #55 ; /: Load cmp #42 ; L: Load program
bne + bne +
lda #EF_LOAD lda #EF_LOAD
ora eflags ora eflags