Applecorn/auxmem.chario.s

461 lines
17 KiB
ArmAsm
Raw Normal View History

2021-09-17 21:51:11 +00:00
* AUXMEM.CHARIO.S
* (c) Bobbi 2021,2022 GPLv3
2021-09-17 21:51:11 +00:00
*
* AppleMOS Character I/O
* KERNEL/CHARIO.S
*****************
* Character read and write
*
* 14-Aug-2021 Flashing cursor and INKEY sync'd to frame rate
* with VBLK. Ensured cursor turned on straight away.
2021-09-17 21:51:11 +00:00
* 15-Aug-2021 Cursor keys move copy cursor, copy reads char.
* Copy cursor not visible yet.
* 16-Aug-2021 Copy cursor and Edit cursor visible.
* 17-Aug-2021 OSBYTE 4 for cursors, OSBYTE 221-228 for topbit
* keys.
* 21-Aug-2021 FIXED: If screen scrolls, copy cursor ends on
* wrong line.
* FIXED: KBDREAD has several paths that don't
* test ESCHAR.
* FIXED: INKEY doesn't restore cursor on timeout.
* The three separate cursors can be set seperately.
* 02-Sep-2021 INKEY-256 tests Apple IIe vs IIc.
* 05-Sep-2021 KBDINIT returns startup value to pass to VDUINT.
* 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.
* 15-Oct-2022 Replace calling KBDCHKESC with ESCPOLL, does translations, etc.
* Fixed bug with cursor keys after *FX4,2. OSRDCH enables IRQs.
2021-09-17 21:51:11 +00:00
* Hardware locations
KBDDATA EQU $C000 ; Read Keyboard data
KBDACK EQU $C010 ; Acknowledge keyboard data
KBDAPPLFT EQU $C061 ; Left Apple key
KBDAPPRGT EQU $C062 ; Right Apple key
IOVBLNK EQU $C019 ; VBLNK pulse
FLASHER EQU BYTEVARBASE+176 ; VSync counter for flashing cursor
2021-09-17 21:51:11 +00:00
FXEXEC EQU BYTEVARBASE+198
FXSPOOL EQU BYTEVARBASE+199
FXTABCHAR EQU BYTEVARBASE+219
FXESCCHAR EQU BYTEVARBASE+220
FXKEYBASE EQU BYTEVARBASE+221
FXESCON EQU BYTEVARBASE+229
FXESCEFFECT EQU BYTEVARBASE+230
FX200VAR EQU BYTEVARBASE+200
FX254VAR EQU BYTEVARBASE+254
FX2VAR EQU BYTEVARBASE+$B1
FX3VAR EQU BYTEVARBASE+$EC
FX4VAR EQU BYTEVARBASE+$ED
* OSWRCH handler
****************
* Send a character to current output
* All registers preserved
*
WRCHHND PHA
PHX
PHY
2022-09-21 03:29:07 +00:00
PHA
* TO DO Check any output redirections
2021-09-17 21:51:11 +00:00
* TO DO Check any printer output
JSR OUTCHAR ; Send to VDU driver
* BCC WRCHHND3 ; VDU driver says skip printer
* PLA ; Get character back
2021-09-17 21:51:11 +00:00
* PHA
* JSR PRNCHAR ; Send to printer
2021-09-17 21:51:11 +00:00
* WRCHHND3
* Check FX3VAR
* Bxx WRCHHND4 ; Spool disabled
LDY FXSPOOL ; See if *SPOOL is in effect
BEQ WRCHHND4 ; No, skip sending to spool file
2022-09-21 03:29:07 +00:00
PLA
PHA
JSR OSBPUT ; Write character to spool file
WRCHHND4 PLA ; Drop stacked character
PLY ; Restore everything
2021-09-17 21:51:11 +00:00
PLX
PLA
RTS
* Character Input
*****************
* Default keyboard OSBYTE variables
*DEFBYTELOW EQU 219 ; First default OSBYTE value
*DEFBYTE DB $09,$1B ; Default key codes
* DB $01,$D0,$E0,$F0 ; Default key expansion
* DB $01,$80,$90,$00 ; Default key expansion
2021-09-17 21:51:11 +00:00
*DEFBYTEEND
* TEMP as no *KEY
* Default keyboard OSBYTE variables
DEFBYTELOW EQU 219 ; First default OSBYTE value
DEFBYTE DB $09,$1B ; Default key codes
DB $C0,$D0,$E0,$F0 ; Default key expansion
DB $80,$90,$A0,$B0 ; Default key expansion
2021-09-17 21:51:11 +00:00
DEFBYTEEND
KBDINIT LDX #DEFBYTEEND-DEFBYTE-1
:KBDINITLP LDA DEFBYTE,X ; Initialise KBD OSBYTE variables
2021-09-17 21:51:11 +00:00
STA BYTEVARBASE+DEFBYTELOW,X
DEX
BPL :KBDINITLP
LDX #$C0
STX FX254VAR ; b7-b4=default KBD map, b3-b0=default MODE
BIT SETV ; Set V
JSR KBDTEST ; Test if key being pressed
BCS :KBDINITOK ; Return default MODE=0
STA KBDACK ; Ack. keypress
TAX ; Use keypress as default MODE
2021-09-17 21:51:11 +00:00
:KBDINITOK TXA
RTS
* OSRDCH/INKEY handler
**********************
* Read a character from current input
* All registers preserved except A, Carry
* Flashes a soft cursor while waiting for input
* *NB* OSRDCH returns with IRQs enabled, INKEY returns with IRQs preserved
2021-09-17 21:51:11 +00:00
*
RDCHHND LDA #$80 ; flag=wait forever
2021-09-17 21:51:11 +00:00
PHY
TAY
BRA INKEYGO ; Wait forever for input
2021-09-17 21:51:11 +00:00
* XY<$8000 - wait for a keypress
INKEY PHY ; Dummy PHY to balance RDCH
INKEYGO CLI ; Enable IRQs
PHX ; Save registers
2021-09-17 21:51:11 +00:00
PHY
BIT VDUSTATUS ; Enable editing cursor
BVC INKEYGO2 ; No editing cursor
JSR GETCHRC ; Get character under cursor
STA COPYCHAR ; Save char under edit cursor
2021-09-17 21:51:11 +00:00
LDA CURSORED
JSR PUTCHRC ; Display edit cursor
JSR COPYSWAP1 ; Swap to copy cursor
INKEYGO2 JSR GETCHRC ; Get character under cursor
2021-09-17 21:51:11 +00:00
STA OLDCHAR
BRA INKEY1 ; Turn cursor on
2021-09-17 21:51:11 +00:00
INKEYLP CLC
LDA #$01 ; Slow flash, every 32 frames
2021-09-17 21:51:11 +00:00
BIT VDUSTATUS
BVC INKEY0
ASL A ; Fast flash, every 16 frames
2021-09-17 21:51:11 +00:00
INKEY0 ADC FLASHER
STA FLASHER
AND #15
BNE INKEY3 ; Not time to toggle yet
LDA OLDCHAR ; Prepare to remove cursor
2021-09-17 21:51:11 +00:00
BIT FLASHER
BMI INKEY2 ; Remove cursor
INKEY1 LDA CURSOR ; Add cursor
2021-09-17 21:51:11 +00:00
BIT VDUSTATUS
BVC INKEY2
LDA CURSORCP
INKEY2 JSR PUTCHRC ; Toggle cursor
2021-09-17 21:51:11 +00:00
INKEY3 LDA ESCFLAG
BMI INKEYOK ; Escape pending, return it
INKEY4 JSR KEYREAD ; Test for input, all can be trashed
2021-09-17 21:51:11 +00:00
PLY
BCC INKEYOK ; Char returned, return it
BMI INKEY6 ; Loop forever, skip countdown
2021-09-17 21:51:11 +00:00
PLX
BNE INKEY5
TYA
BEQ INKEYOUT ; XY=0, timed out
DEY ; 16-bit decrement
2021-09-17 21:51:11 +00:00
INKEY5 DEX
PHX
INKEY6 PHY
*
* VBLK pulses at 50Hz/60Hz, toggles at 100Hz/120Hz
LDX IOVBLNK ; Get initial VBLK state
INKEY8 BIT KBDDATA
BMI INKEY4 ; Key pressed
2021-09-17 21:51:11 +00:00
TXA
EOR IOVBLNK
BPL INKEY8 ; Wait for VBLK change
BMI INKEYLP ; Loop back to key test
INKEYOUT PLA ; Drop stacked Y
LDA #$FF ; Prepare to stack $FF
INKEYOK PHA ; Save key or timeout
PHP ; Save CC=key, CS=timeout
LDA OLDCHAR ; Prepare for main cursor
2021-09-17 21:51:11 +00:00
BIT VDUSTATUS
BVC INKEYOFF2 ; No editing cursor
JSR PUTCHRC ; Remove cursor
JSR COPYSWAP1 ; Swap cursor back
LDA COPYCHAR ; Remove main cursor
INKEYOFF2 JSR PUTCHRC ; Remove cursor
2021-09-17 21:51:11 +00:00
*
PLP
BCS INKEYOK3 ; Timeout
LDA ESCFLAG ; Keypress, test for Escape
ASL A ; Cy=Escape flag
PLA ; Get char back
PLX ; Restore X,Y for key pressed
INKEYOK3 PLY ; Or pop TimeOut
2021-09-17 21:51:11 +00:00
RTS
* RDCH Character read: CC, A=char, X=restored, Y=restored
* RDCH Escape: CS, A=char, X=restored, Y=restored
* INKEY Character read: CC, A=char, X=???, Y<$80
* INKEY Escape: CS, A=char, X=???, Y<$80
* INKEY Timeout: CS, A=???, X=???, Y=$FF
BYTE81 TYA
BMI NEGINKEY ; XY<0, scan for keypress
JSR INKEY ; XY>=0, wait for keypress
2021-09-17 21:51:11 +00:00
* Character read: CC, A=char, X=???, Y<$80
* Escape: CS, A=char, X=???, Y<$80
* Timeout: CS, A=???, X=???, Y=$FF
TAX ; X=character returned
2021-09-17 21:51:11 +00:00
TYA
BMI BYTE81DONE ; Y=$FF, timeout
2021-09-17 21:51:11 +00:00
LDY #$00
BCC BYTE81DONE ; CC, not Escape
LDY #$1B ; Y=27
2021-09-17 21:51:11 +00:00
BYTE81DONE RTS
* Returns: Y=$FF, X=???, CS - timeout
* Y=$1B, X=???, CS - escape
* Y=$00, X=char, CC - keypress
NEGINKEY CPX #$01
LDX #$00 ; Unimplemented
2021-09-17 21:51:11 +00:00
BCS NEGINKEY0
JSR NEGCALL ; Read machine ID from mainmem
2021-09-17 21:51:11 +00:00
LDX #$2C
TAY
BEQ NEGINKEY0 ; $00 = Apple IIc -> INKEY-256 = $2C
2021-09-17 21:51:11 +00:00
LDX #$2E
AND #$0F
BEQ NEGINKEY0 ; $x0 = Apple IIe -> INKEY-256 = $2E
LDX #$2A ; else = Apple IIgs -> INKEY-256 = $2A
2021-09-17 21:51:11 +00:00
NEGINKEY0 LDY #$00
NEGINKEY1 CLC
RTS
NEGCALL >>> XF2MAIN,MACHRD ; Try to read Machine ID
2021-09-17 21:51:11 +00:00
* KERNEL/KEYBOARD.S
*******************
* KEYREAD
************************
* Test for and read from input,
* expanding keyboard special keys
*
* On exit, CS=no keypress
* CC=keypress
* A =keycode, X,Y=corrupted
KEYREAD LDY FXEXEC ; See if EXEC file is open
BEQ KEYREAD1 ; No, skip past
JSR OSBGET ; Read character from file
BCC KEYREADOK ; Not EOF, return it
LDA #$00 ; EOF, close EXEC file
STA FXEXEC ; Clear EXEC handle
JSR OSFIND ; And close it
KEYREAD1
2021-09-17 21:51:11 +00:00
*
* TO DO: expand current soft key
* LDA SOFTKEYLEN
* BEQ KEYREAD2
* LDX SOFTKEYOFF
* LDA SOFTKEYS,X
* INC SOFTKEYOFF
* DEC SOFTKEYLEN
* CLC
* RTS
* KEYREAD2
*
JSR KBDREAD ; Fetch character from KBD "buffer"
BCS KEYREADOK ; Nothing pending
TAY ; Y=unmodified character
BPL KEYREADOK ; Not top-bit key
AND #$CF ; Drop Shift/Ctrl bits
2021-09-17 21:51:11 +00:00
CMP #$C9
BCC KEYSOFTY ; Not cursor key
2021-09-17 21:51:11 +00:00
LDX FX4VAR
BEQ KEYCURSOR ; *FX4,0 - editing keys
CPY #$C9
CLV
BEQ KEYCOPYTAB ; TAB key
DEX
BNE KEYSOFTHI ; Not *FX4,1 - soft key
SBC #$44 ; Return $88-$8B
2021-09-17 21:51:11 +00:00
KEYREADOK1 CLC
KEYREADOK RTS
2021-09-17 21:51:11 +00:00
* Process soft key
KEYSOFTHI LDX FX254VAR
2021-09-17 21:51:11 +00:00
CPX #$C0
BCC KEYSOFTY
TYA
2021-09-17 21:51:11 +00:00
AND #$BF
TAY
KEYSOFTY TYA ; Get key including Shift/Ctrl
2021-09-17 21:51:11 +00:00
LSR A
LSR A
LSR A
LSR A ; A=key DIV 16
EOR #$04 ; Offset into KEYBASE
2021-09-17 21:51:11 +00:00
TAX
LDA FXKEYBASE-8,X
* TO DO:
*BEQ KEYNONE ; $00=ignored
*DEC A
*BEQ expandfunction
CMP #2 ; *TEMP*
BCC KEYNONE ; *TEMP*
2021-09-17 21:51:11 +00:00
TYA
AND #$0F
CLC
ADC FXKEYBASE-8,X
CLC
RTS
* Process cursor keys
KEYCURSOR CMP #$C9
BEQ KEYCOPY
PHA
LDA OLDCHAR
JSR PUTCHRC ; Remove cursor
2021-09-17 21:51:11 +00:00
PLA
JSR COPYMOVE ; Move copy cursor
JSR GETCHRC ; Save char under cursor
2021-09-17 21:51:11 +00:00
STA OLDCHAR
KEYNONE SEC
RTS
KEYCOPY BIT VDUSTATUS
KEYCOPYTAB LDA FXTABCHAR ; Prepare TAB if no copy cursor
BVC KEYREADOK1 ; No copy cursor, return TAB
LDA OLDCHAR ; Get the char under cursor
2021-09-17 21:51:11 +00:00
PHA
JSR OUTCHARCP ; Output it to restore and move cursor
JSR GETCHRC ; Save char under cursor
2021-09-17 21:51:11 +00:00
STA OLDCHAR
PLA
BNE KEYREADOK1 ; Ok character
2021-09-17 21:51:11 +00:00
SEC
JMP BEEP ; Beep and return CS=No char
2021-09-17 21:51:11 +00:00
* KBDREAD
************************
* Test for and fetch key from keyboard
*
* On exit, CS=no keypress
* CC=keypress
* A =keycode, X=corrupted
* Apple+Letter -> Ctrl+Letter
* Apple+Digits -> 80+x, 90+x, A0+x
* TAB -> $C9
* Cursors -> $CC-$CF
*
KBDREAD CLV ; VC=return keypress
KBDTEST LDA KBDDATA ; VS here to test for keypress
EOR #$80 ; Toggle bit 7
2021-09-17 21:51:11 +00:00
CMP #$80
BCS KBDDONE ; No key pressed
BVS KBDDONE ; VS=test for keypress
STA KBDACK ; Ack. keypress
KBDREAD2 BIT KBDAPPLFT
BMI KBDLALT ; Left Apple pressed
BIT KBDAPPRGT
BMI KBDRALT ; Right Apple pressed
2021-09-17 21:51:11 +00:00
CMP #$09
BEQ KBDTAB ; TAB is dual action TAB/COPY
2021-09-17 21:51:11 +00:00
CMP #$08
BCC KBDCHKESC ; <$08 not cursor key
2021-09-17 21:51:11 +00:00
CMP #$0C
BCC KBDCURSR ; $08-$0B are cursor keys
2021-09-17 21:51:11 +00:00
CMP #$15
BNE KBDCHKESC ; $15 is cursor key
2021-09-17 21:51:11 +00:00
*
KBDCUR15 LDA #$0D ; Convert RGT to $09
KBDTAB SBC #$04 ; Convert TAB to &C9
2021-09-17 21:51:11 +00:00
KBDCURSR CLC
ADC #$C4 ; Cursor keys $C0+x
2021-09-17 21:51:11 +00:00
BRA KBDCHKESC
KBDRALT ; Right Apple key pressed
KBDLALT CMP #$40 ; Left Apple key pressed
2021-09-17 21:51:11 +00:00
BCS KBDCTRL
CMP #$30
BCC KBDCHKESC ; <'0'
2021-09-17 21:51:11 +00:00
CMP #$3A
BCS KBDCHKESC ; >'9'
KBDFUNC AND #$0F ; Convert Apple-Num to function key
2021-09-17 21:51:11 +00:00
ORA #$80
KBDFUNC2 BIT KBDAPPRGT
BPL KBDCHKESC ; Left+Digit -> $8x
ORA #$90 ; Right+Digit -> $9x
BIT KBDAPPLFT
2021-09-17 21:51:11 +00:00
BPL KBDCHKESC
EOR #$30 ; Left+Right+Digit -> $Ax
2021-09-17 21:51:11 +00:00
BRA KBDCHKESC
KBDCTRL AND #$1F ; Apple-Letter -> Ctrl-Letter
2021-09-17 21:51:11 +00:00
*
* Test for Escape character
KBDCHKESC TAX ; X=keycode
EOR FXESCCHAR ; Current ESCAPE char?
ORA FXESCON ; Is ESCAPE an ASCII char?
BNE KBDNOESC ; Not ESCAPE or ESCAPE=ASCII
LDA FX200VAR ; Is ESCAPE ignored?
LSR A ; Check bit 0
BCS KBDDONE ; ESCAPE completely ignored
2021-09-17 21:51:11 +00:00
SEC
ROR ESCFLAG ; Set Escape flag
KBDNOESC TXA ; A=keycode
CLC ; CLC=Ok
2021-09-17 21:51:11 +00:00
KBDDONE RTS
2022-10-15 09:43:30 +00:00
* Poll the keyboard to update Escape state
* On exit, MI=Escape state pending
* A,X,Y=preserved
*
ESCPOLL PHA ; KBDTEST corrupts A
BIT SETV ; Set V
JSR KBDTEST ; VS - test keyboard
BCS ESCPOLL9 ; No keypress pending
PHX ; KBDREAD corrupts A,X
JSR KBDREAD2 ; Read key and check for Escape
PLX
ESCPOLL9 PLA
BIT ESCFLAG ; Return with Escape state
RTS
2021-09-17 21:51:11 +00:00
* Process pending Escape state
2022-10-15 09:43:30 +00:00
BYTE7E LDX #$00 ; $7E = ack detection of ESC
2021-09-17 21:51:11 +00:00
BIT ESCFLAG
2022-10-15 09:43:30 +00:00
BPL BYTE7DOK ; No Escape pending
LDA FXESCEFFECT ; Process Escape effects
2021-09-17 21:51:11 +00:00
BEQ BYTE7E2
2022-10-15 09:43:30 +00:00
CLI ; Allow IRQs while flushing
STX FXLINES ; Clear scroll counter
JSR CMDEXEC0 ; Close any EXEC file
* JSR BUFFLUSHALL ; Flush all buffers
BYTE7E2 LDX #$FF ; X=$FF, Escape was pending
BYTE7C CLC ; &7C = clear escape condition
BYTE7D ROR ESCFLAG ; $7D = set escape condition
2021-09-17 21:51:11 +00:00
BYTE7DOK RTS
2022-10-15 09:43:30 +00:00
BYTE76 LDX #$00 ; Update LEDs and return X=SHIFT
RTS ; Not possible with Apple