Apple-2-SW/franklin
1
0
Fork 0
mirror of https://github.com/a2stuff/franklin.git synced 2024-12-28 21:30:54 +00:00
Code Issues Projects Releases Wiki Activity

More Fkey handling

Browse Source
This commit is contained in:
Joshua Bell 2021-11-23 10:40:21 -08:00
parent a576f70f2a
commit d624435d7f
1 changed files with 64 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

111
ace2000_c000_cfff.s
View File

@ -85,6 +85,8 @@ OLDBASL := $77B
TEMP2 := $7FB TEMP2 := $7FB
OLDBASH := $7FB OLDBASH := $7FB
FKEYPTR := $479 ; Holds offset from Aux $200 to FKEY def
;;; I/O Soft Switches ;;; I/O Soft Switches
KBD := $C000 KBD := $C000
@ -446,7 +448,7 @@ EscapeMode:
;; Called by U3 ROM ($F809) ;; Called by U3 ROM ($F809)
bit CLRROM bit CLRROM
jmp UnknownEP3 jmp InitFKEYDefinitions
;; Called by U3 ROM ($F9B7) ;; Called by U3 ROM ($F9B7)
bit CLRROM bit CLRROM
@ -454,7 +456,7 @@ EscapeMode:
;; Called by U3 ROM ($FA9E) ;; Called by U3 ROM ($FA9E)
bit CLRROM bit CLRROM
jmp UnknownEP5 jmp HandleSpecialKeys
;;; ================================================== ;;; ==================================================
;;; U2 $0400 - Mapped to Page $C4 - ??? ;;; U2 $0400 - Mapped to Page $C4 - ???
@ -770,7 +772,7 @@ LC853: inc RNDL
: :
jsr UnknownEP4 jsr UnknownEP4
bcc LC853 bcc LC853
jsr UnknownEP5 jsr HandleSpecialKeys
cmp #$06 cmp #$06
bcc LC86E bcc LC86E
and #$7F and #$7F
@ -1602,61 +1604,64 @@ UnknownEP4:
bra @l1 bra @l1
@l5: phx @l5: phx
ldx $0479 ldx FKEYPTR
jsr LCE1F jsr ReadAuxRAM
lda $0200,x lda $0200,x
jsr LCE2E jsr ReadPreviousRAM
plx plx
cmp #$00 cmp #$00
beq @l4 beq @l4
bra @l2 bra @l2
;;; ============================================================ ;;; ============================================================
;;; Unknown Monitor ROM Routine ;;; Handle special keys (F1-12, RUN, LIST, etc)
UnknownEP5: HandleSpecialKeys:
bit $0579 bit $0579
bmi @l11 bmi @l11
lda KBD lda KBD
bit KBDSTRB bit KBDSTRB
bit $C027 ; Special keys (F1, LIST, etc) or ALT + alphanumeric bit $C027 ; high bit clear for special keys
bpl @l3 bpl @l3
@l1: cmp #$06 @l1: cmp #$06
bcc @l2 bcc @l2
ora #$80 ora #$80
@l2: rts @l2: rts
;; Deal with special keys
@l3: and #$7F @l3: and #$7F
cmp #$01 cmp #$01 ; CLRL
bne @l4 bne @l4
lda #$1A lda #$1A
bra @l1 bra @l1
@l4: cmp #$03 @l4: cmp #$03 ; CLRS
bne @l5 bne @l5
lda #$0C lda #$0C
bra @l1 bra @l1
@l5: cmp #$04 @l5: cmp #$04 ; HOME
bne @l6 bne @l6
lda #$19 lda #$19
bra @l1 bra @l1
@l6: cmp #$06 ;; "Macro" keys
@l6: cmp #$06 ; RUN
bne @l7 bne @l7
lda #$2C lda #$2C ; Like F13
bra @l9 bra @l9
@l7: cmp #$1F @l7: cmp #$1F ; LIST
bne @l8 bne @l8
lda #$2D lda #$2D ; Like F14
bra @l9 bra @l9
@l8: cmp #$20 ; space? @l8: cmp #$20 ; F1
bcc @l1 bcc @l1
cmp #$2C ; comma? cmp #$2C ; F12+1
bcs @l1 bcs @l1
@l9: pha
@l9: pha ; Handle Fkeys
jsr LCDB3 jsr LCDB3
beq @l10 beq @l10
pla pla
@ -1665,7 +1670,7 @@ UnknownEP5:
@l10: lda #$FF @l10: lda #$FF
sta $0579 sta $0579
pla pla
jsr LCDC9 jsr FindFKEYDefnOffset
@l11: jsr LCDB3 @l11: jsr LCDB3
beq @l13 beq @l13
@l12: stz $0579 @l12: stz $0579
@ -1673,19 +1678,19 @@ UnknownEP5:
bra @l1 bra @l1
@l13: phx @l13: phx
ldx $0479 ldx FKEYPTR
jsr LCE1F jsr ReadAuxRAM
lda $0200,x lda $0200,x
jsr LCE2E jsr ReadPreviousRAM
plx plx
inc $0479 inc FKEYPTR
cmp #$00 cmp #$00
beq @l12 beq @l12
bra @l1 bra @l1
;;; ============================================================ ;;; ============================================================
LCDB3: jsr LCE1F LCDB3: jsr ReadAuxRAM
lda #$00 lda #$00
phx phx
tax tax
@ -1694,53 +1699,59 @@ LCDB3: jsr LCE1F
inx inx
bne @l1 bne @l1
plx plx
jsr LCE2E jsr ReadPreviousRAM
cmp $04F9 cmp $04F9
rts rts
;;; ============================================================ ;;; ============================================================
;;; Given FKEY in A ($20...$2D), get definition offset
;;; (from Aux $200) into FKEYPTR
LCDC9: phx FindFKEYDefnOffset:
phx
phy phy
jsr LCE1F jsr ReadAuxRAM
sec sec
sbc #$20 sbc #$20 ; Map F1 to $00, etc
ldy #$00 ldy #$00
tax tax
beq LCDE2 beq @l3
LCDD6: lda $0200,y @l1: lda $0200,y
beq LCDDE beq @l2
iny iny
bra LCDD6 bra @l1
LCDDE: iny @l2: iny
LCDDF: dex dex
bne LCDD6 bne @l1
LCDE2: jsr LCE2E @l3: jsr ReadPreviousRAM
sty $0479 sty FKEYPTR
ply ply
plx plx
rts rts
;;; ============================================================ ;;; ============================================================
;;; Initialize FKEY definitions
;; Function key shortcuts ??? ;;; Copied to Aux $200 by `InitFKEYDefinitions`
SpecialStrings:
.byte "RUN\r", 0 .byte "RUN\r", 0
.byte "LIST\r", 0 .byte "LIST\r", 0
.byte $ff .byte $ff
;;; ============================================================ InitFKEYDefinitions:
;;; Unknown Monitor ROM Routine
UnknownEP3:
sta WRCARDRAM sta WRCARDRAM
lda #$00 lda #$00
tax tax
;; F1...F12 are initially 0 length, so 12 $00 bytes
@l1: sta $0200,x @l1: sta $0200,x
inx inx
cpx #$0C cpx #12
bcc @l1 bcc @l1
@l2: lda LCDDF,x
;; RUN and LIST are like F13 and F14, so they're next.
@l2: lda SpecialStrings - 12,x
cmp #$FF cmp #$FF
beq @l3 beq @l3
sta $0200,x sta $0200,x
@ -1760,7 +1771,10 @@ UnknownEP2:
;;; ============================================================ ;;; ============================================================
LCE1F: pha ;;; Read from Aux (saving previous state)
ReadAuxRAM:
pha
lda RDRAMRD lda RDRAMRD
sta RDMAINRAM sta RDMAINRAM
sta $07F8 sta $07F8
@ -1768,7 +1782,10 @@ LCE1F: pha
pla pla
rts rts
LCE2E: pha ;;; Restore previous read bank state
ReadPreviousRAM:
pha
sta RDMAINRAM sta RDMAINRAM
lda $07F8 lda $07F8
bpl @l1 bpl @l1