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 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
@ -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 kbdcodes .byte 56, 59, 8, 11, 62, 9, 14, 17, 10, 13, 18, 21, 12, 23, 20, 31
.endsection data .endsection data
; vim: syntax=64tass ; vim: syntax=64tass

8
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
@ -234,4 +234,4 @@ prompt .null "file name: "
kbdcodes .text "1234qwerasdfzxcv" kbdcodes .text "1234qwerasdfzxcv"
.endsection data .endsection data
; vim: syntax=64tass ; vim: syntax=64tass

10
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
@ -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 kbdcodes .byte 56, 59, 8, 11, 62, 9, 14, 17, 10, 13, 18, 21, 12, 23, 20, 31
.endsection data .endsection data
; vim: syntax=64tass ; vim: syntax=64tass