Merge PR #153 'TAB returns TAB if cursors off'

This commit is contained in:
Bobbi Webber-Manners 2021-12-06 16:45:41 -05:00
parent 1da0773b2f
commit 1a662917a3
3 changed files with 4 additions and 9 deletions

Binary file not shown.

View File

@ -26,6 +26,7 @@
* 09-Sep-2021 Moved keyboard OSBYTEs to here.
* 12-Sep-2021 COPY calls new VDU entry point.
* 15-Sep-2021 INKEY(0) tests once and returns immediately.
* 30-Nov-2021 With *FX4,<>0 TAB returns $09, allows eg VIEW to work.
* TO DO: CHKESC should go through translations before testing.
@ -290,11 +291,11 @@ KEYREAD
BCC KEYSOFT ; Not cursor key
LDX FX4VAR
BEQ KEYCURSOR ; *FX4,0 - editing keys
DEX
BNE KEYSOFT1 ; Not *FX4,1 - soft key
LDY FXTABCHAR
CMP #$C9
BEQ KEYREADOKY ; TAB key
DEX
BNE KEYSOFT1 ; Not *FX4,1 - soft key
SBC #$44 ; Return $88-$8B
TAY
KEYREADOKY TYA
@ -443,9 +444,3 @@ BYTE7DOK RTS
BYTE76 LDX #$00 ; Update LEDs and return X=SHIFT
RTS ; Not possible with Apple

View File

@ -204,7 +204,7 @@ BYTE00 BEQ BYTE00A ; OSBYTE 0,0 - generate error
RTS ; %000x1xxx host type, 'A'pple
BYTE00A BRK
DB $F7
HELLO ASC 'Applecorn MOS 2021-11-14'
HELLO ASC 'Applecorn MOS 2021-12-06'
DB $00 ; Unify MOS messages