diff --git a/chipty5-64.asm b/chipty5-64.asm index aa2c98f..f0d2633 100644 --- a/chipty5-64.asm +++ b/chipty5-64.asm @@ -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 \ No newline at end of file +; vim: syntax=64tass diff --git a/chipty5-pet40.asm b/chipty5-pet40.asm index c14ae56..1fc71c0 100644 --- a/chipty5-pet40.asm +++ b/chipty5-pet40.asm @@ -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 \ No newline at end of file +; vim: syntax=64tass diff --git a/chipty5-plus4.asm b/chipty5-plus4.asm index ec8834e..d9ea901 100644 --- a/chipty5-plus4.asm +++ b/chipty5-plus4.asm @@ -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 \ No newline at end of file +; vim: syntax=64tass