Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2025-04-11 17:39:50 +00:00
Code Issues Projects Releases Wiki Activity

Inverted shift key sense for cursor control codes.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2024-08-10 22:29:01 -04:00
parent 50e3ab4c28
commit fab6169b59
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
drivers/a2vt100.s
View File

@ -27,7 +27,6 @@ videx = 1
; TODO for VIDEX
; - Reverse scroll (fast and slow)
; - Keybindings for { } \ ` ~ _ -- Maybe use Escape prefix ??
; - Cursor keyboard handling TODOs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; *************************************
@ -1039,8 +1038,8 @@ CmdKey tya ; restore character
; both events send char $08
cmp #$08
bne C0
bit BUTN0 ; Open-Apple key TODO
bpl crsrL ; not pressed
bit $c063 ; PB3 shift key
bpl crsrL ; pressed
jsr putRS ; send ^H
rts
@ -1055,8 +1054,8 @@ crsrL ldx #<ScrsrL
; both events send char $0a
C0 cmp #$0a
bne C1
bit BUTN0 ; Open-Apple key TODO
bpl crsrD ; not pressed
bit $c063 ; PB3 shift key
bpl crsrD ; pressed
jsr putRS ; send ^J
rts
@ -1071,8 +1070,8 @@ crsrD ldx #<ScrsrD
; both events send char $0b
C1 cmp #$0b
bne C2
bit BUTN0 ; Open-Apple key TODO
bpl crsrU ; not pressed
bit $c063 ; PB3 shift key
bpl crsrU ; pressed
jsr putRS ; send ^K
rts
@ -1087,8 +1086,8 @@ crsrU ldx #<ScrsrU
; both events send char $15
C2 cmp #$15
bne C3
bit BUTN0 ; Open-Apple key TODO
bpl crsrR ; not pressed
bit $c063 ; PB3 shift key
bpl crsrR ; pressed
jsr putRS ; send ^U
rts