mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-06-17 17:30:55 +00:00
Merge PR #153 'TAB returns TAB if cursors off'
This commit is contained in:
parent
1da0773b2f
commit
1a662917a3
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
|
@ -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
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
|
@ -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
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user