Apple-2-SW/franklin
1
0
Fork 0
mirror of https://github.com/a2stuff/franklin.git synced 2024-12-28 06:30:01 +00:00
Code Issues Projects Releases Wiki Activity
37f2bfd247
franklin/ace500_c300_cfff.s

2147 lines
41 KiB
ArmAsm
Raw Blame History

; da65 V2.19 - Git 59c58acbe
; Created: 2021-11-04 15:14:09
; Input file: c300_cfff
; Page: 1
.setcpu "65C02"
.include "opcodes.inc"
.feature string_escapes
;;; Set to 1 to include preliminary fixes for:
;;; * MouseText mode failing to exist on $18 output.
INCLUDE_PATCHES = 0
;;; Zero Page
WNDLFT := $20
WNDWDTH := $21
WNDTOP := $22
WNDBTM := $23
CH := $24
CV := $25
BASL := $28
BASH := $29
BAS2L := $2A
BAS2H := $2B
INVFLG := $32
CSWL := $36
CSWH := $37
KSWL := $38
KSWH := $39
A1L := $3C
A1H := $3D
A2L := $3E
A2H := $3F
A4L := $42
A4H := $43
RNDL := $4E
RNDH := $4F
;;; Page 3 Vectors
XFERVEC := $3ED
L03F0 := $3F0 ; ???
L03FE := $3FE ; ???
;;; Screen Holes
SAVEA := $4F8
SAVEX := $578
SAVEY := $478
OLDCH := $47B
MODE := $4FB
;; Bit 7 = Escape Mode
;; Bit 6 = MouseText active
;; Bit 5 = ??? set when "normal"
;; Bit 4 = ??? set when "normal"
;; Bit 3 = ??? unused ???
;; Bit 2 = ??? unused ???
;; Bit 1 = ??? used for ???
;; Bit 0 = ??? used for ???
M_ESC = %10000000
M_MOUSE = %01000000
M_NORMAL= %00110000
M_INACTIVE = $FF ; When firmware is inactive
OURCH := $57B
OURCV := $5FB
CHAR := $67B
XCOORD := $6FB
TEMP1 := $77B ; Unused
OLDBASL := $77B
TEMP2 := $7FB
OLDBASH := $7FB
;;; I/O Soft Switches
KBD := $C000
CLR80COL:= $C000
SET80COL:= $C001
RDMAINRAM := $C002
RDCARDRAM := $C003
WRMAINRAM := $C004
WRCARDRAM := $C005
ALTZPOFF:= $C008
ALTZPON := $C009
CLR80VID:= $C00C
SET80VID:= $C00D
CLRALTCHAR := $C00E
SETALTCHAR := $C00F
KBDSTRB := $C010
RDLCBNK2:= $C011
RDLCRAM := $C012
RDRAMRD := $C013
RDRAMWRT:= $C014
RD80COL := $C018
RDTEXT := $C01A
ALTCHARSET := $C01E
RD80VID := $C01F
TXTPAGE1:= $C054
TXTPAGE2:= $C055
ROMIN := $C081
ROMIN2 := $C082
LCBANK2 := $C083
LCBANK1 := $C08B
;;; Documented Firmware Entry Points
C3KeyIn := $C305
C3COut1 := $C307
AUXMOVE := $C311
XFER := $C314
CLRROM := $CFFF
;;; Monitor ROM
BELLB := $FBE2
SETWND := $FB4B
SETKBD := $FE89
SETVID := $FE93
MON_VTAB:= $FC22
CLREOP := $FC42
HOME := $FC58
CLREOL := $FC9C
;;; ============================================================
.org $C300
;; Init
LC300: bit SETV ; V = init
bra MainEntry
;; Input
.assert * = C3KeyIn, error, "Entry point mismatch"
LC305: sec
.byte OPC_BCC ; never taken; skip next byte
;; Output
.assert * = C3COut1, error, "Entry point mismatch"
LC307: clc
clv
bra MainEntry
;; Signature bytes
.byte $01, $88
;; Pascal 1.1 Firmware Protocol Table
.byte <JPINIT
.byte <JPREAD
.byte <JPWRITE
.byte <JPSTAT
;; AUXMOVE
.assert * = AUXMOVE, error, "Entry point mismatch"
jmp JumpAuxMove
;; XFER
.assert * = XFER, error, "Entry point mismatch"
jsr extra_DoBankC5
jmp $CC03 ; ???
;;; ============================================================
;;; Pascal Entry Points
JPINIT: jsr ClearROM
jsr PascalInit
LC320: jmp extra_DoBankC5
JPREAD: jsr ClearROM
jsr PascalRead
bra LC320
JPWRITE:jsr ClearROM
jsr PascalWrite
bra LC320
JPSTAT: jsr ClearROM
jsr PascalStatus
bra LC320
JumpAuxMove:
jsr extra_DoBankC5
jmp $CC06
;;; ============================================================
;;; Main Entry Points
MainEntry:
jsr ClearROM
sta SAVEA
stx SAVEX
sty SAVEY
pha
bvc l1
;; Init
jsr LC806
clc
l1: php
jsr LC9B4
plp
pla
bcc l7 ; Input or output?
;; Input
ldx SAVEX
beq l2
dex
lda $0678
cmp #$88 ; left?
beq l2
cmp $0200,x
bne l5
sta $0200,x
l2: jsr LC96F
cmp #$9B ; escape?
beq EscapeMode
cmp #$8D ; return?
bne l3
pha
jsr DoClearEOL
pla
l3: cmp #$95 ; right?
bne l4
ldy CH
jsr LC9A8
l4: sta $0678
bra l6
l5: jsr LC822
stz $0678
l6: bra l8
;; Output
l7: jsr OutputChar
lda SAVEA
l8: ldx SAVEX
ldy CH
sty OURCH
sty XCOORD
ldy SAVEY
jmp extra_DoBankC5
;;; ============================================================
;;; Escape Mode
EscapeMode:
lda #M_ESC
tsb MODE
jsr LC822
jsr ProcessEscapeModeKey
cmp #$98
beq l4
lda MODE
bmi EscapeMode
bra l2
;;; ============================================================
ClearROM:
php
sei
pha
sta $C0BA ; ???
sta CLRROM
lda #$C3
sta $07F8
pla
plp
SETV: rts
;;; ============================================================
brk
brk
brk
brk
brk
brk
brk
jsr extra_DoBankC5
jmp $CC00
LC3E2: plx
bit CLRROM
rti
brk
jsr ClearROM
jmp LCE0D
jsr ClearROM
jmp LCDEC
LC3F4: jsr ClearROM
jmp LCCB2
LC3FA: jsr ClearROM
jmp LCCF5
;;; ============================================================
.scope extra
LFC24 := $FC24
LFC58 := $FC58
LFC9E := $FC9E
LFDED := $FDED
LFDF0 := $FDF0
LFF4A := $FF4A
bit LC42E
bra LC41C
sec
bcc LC420
clv
bra LC41C
ora ($20,x)
bit $2C2C
bit $2F00
and $3B,x
eor ($47,x)
eor $5953
.byte $2C
.byte $5F
LC41C: jsr DoBankC5
.byte $50
LC420: .byte $03
jsr LC806
bcc LC429
jmp $C838
LC429: jmp LC825
ldx #$03
LC42E: rts
jsr DoBankC5
jmp $C8D4
jsr DoBankC5
jmp $C916
jsr DoBankC5
jmp $C922
jsr DoBankC5
jmp $C958
jsr DoBankC5
jmp $C967
jsr DoBankC5
jmp $C969
jsr DoBankC5
jmp $C93E
LC459: jsr DoBankC5
jmp $C8AC
ldx $C066
ldy $C067
jmp $C220
LC468: jsr DoBankC5
jmp $C9A0
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
LC4A0: cld
phx
phy
pha
ldx $C066
ldy $C067
lda $C0BC
pha
sta $C0B9
jmp LC700
pla
bpl LC4BE
sta ALTZPON
ldx $0101
txs
LC4BE: ldx $07FF
pla
jsr $C1FA
pla
bmi LC4CB
sta $C0B8
LC4CB: sta $C0BA
stx $07F8
pla
ply
cpx #$C1
beq LC4E4
cpx #$C3
beq LC4E7
cpx #$C5
beq LC4EA
plx
sta $C0BB
rti
LC4E4: jmp $C1F2
LC4E7: jmp LC3E2
LC4EA: jmp LC5F5
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
LC4F8: jmp LC468
dec $00,x
jmp LC459
jsr BankC5
sta $067A
phx
phy
pha
bvc LC50E
jsr $C806
LC50E: bcc LC516
jsr $C908
plx
bra LC51A
LC516: jsr $C83B
pla
LC51A: ply
plx
jmp BankC8
jsr BankC5
jsr $C8C7
jmp BankC8
jsr BankC5
jsr $C8CD ; ???
bra BankC8
jsr BankC5
jsr $C8D2
bra BankC8
jsr BankC5
jsr $C8DA
bra BankC8
jsr BankC8
ora #$80
jsr LFDF0
bra BankC5
jsr BankC8
ora #$80
jsr LFDED
bra BankC5
jsr BankC8
jsr LC3F4
bra BankC5
jsr BankC8
jsr LC3FA
and #$7F
bra BankC5
jsr BankC8
jsr LFC9E
bra BankC5
jsr BankC8
jsr LFC58
bra BankC5
jsr BankC8
jsr LC300
bra BankC5
jsr BankC8
jsr LC4F8
bra BankC5
jsr BankC8
jsr LC7FD
bra BankC5
jsr BankC8
jsr LFC24
;; Fall through
;;; ============================================================
;;; Hypothesis: This banks in a special "C5" C800-CFFF
BankC5: php
sei
pha
lda #$C5
sta $07F8
sta $C0BA
sta $C0B8
sta CLRROM
pla
plp
rts
;;; ============================================================
;;; Hypothesis: This banks in a special "C8" C800-CFFF
BankC8: php
sei
pha
lda #$C8
sta $07F8
sta $C0BB
sta $C0B9
pla
plp
rts
;;; ============================================================
jsr BankC8
LC5BC: bit $C1C1
bmi LC5BC
sta $C090
bra BankC5
LC5C6: jsr BankC5
jsr $C9A5
bra BankC8
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
LC5F5: plx
bit CLRROM
rti
;;; ============================================================
DoBankC5:
jmp BankC8
;;; ============================================================
jmp LC5C6
bit $20
cpy $00
ldx #$03
asl A1L
jsr DoBankC5
ldy #$69
LC60D: lda $CF26,y
sta $036C,y
dey
bpl LC60D
ldx #$60
LC618: inc BAS2H
cpx BAS2H
bne LC618
jsr $CEA6
LC621: dec $41
bne LC621
LC625: dec A1H
bne LC625
LC629: dec $26
bne LC629
LC62D: dec $27
lda $27
cmp #$08
bne LC62D
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
pha
nop
nop
nop
nop
nop
nop
bra LC683
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
LC683: pla
LC684: jsr DoBankC5
jsr LCE00
bra LC6EA
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
ldy #$56 ; ???
sty A1L
sec
clv
jmp $CE51
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
LC6EA: nop
lda A1H
inc a
sta A1H
inc $27
cmp $0800
bcc LC684
ldy #$00
ldx BAS2H
jmp $0801
.byte $DE
brk
LC700: jsr $C1F7
pha
jsr $C1FD
lda $07F8
sta $07FF
phx
tsx
txa
clc
adc #$07
tax
lda $0100,x
plx
and #$10
bne LC747
jsr $C220
bcc LC744
jsr LC784
bcc LC744
pla
pha
bpl LC739
txa
tsx
stx $0101
ldx $0100
txs
tax
sta ALTZPOFF
lda #$80
LC739: pha
lda #$C4
pha
lda #$B4
pha
php
jmp (L03FE)
LC744: jmp LC4BE
LC747: pla
sta $44
pla
bpl LC751
lda #$01
tsb $44
LC751: pla
ply
plx
plp
jsr LFF4A
pla
sta $3A
ply
sty $3B
bit $C016
bpl LC781
tsx
stx $0101
ldx $0100
txs
sta ALTZPOFF
sta $3A
sty $3B
ldx #$05
LC774: sta ALTZPON
lda $44,x
sta ALTZPOFF
sta $44,x
dex
bpl LC774
LC781: jmp (L03F0)
LC784: sec
lda $C0AA
tax
and #$0C
eor #$04
beq LC7E4
lda $C0A9
LC792: sta $04FA
ora #$00
bpl LC7E4
and #$08
beq LC7BD
txa
and #$03
eor #$01
bne LC7BD
lda $04FF
eor #$C2
bne LC7E4
lda $C0A8
ldx $057F
jsr LC7E5
bpl LC7B8
ldx #$00
LC7B8: stx $057F
bra LC7E3
LC7BD: .byte $2C
plx
LC7BF: tsb $50
and ($2C,x)
plx
ora $70
ora $1A10,x
lda KBD
bit $C0B4
bmi LC7D3
and #$7F
LC7D3: bit KBDSTRB
ldx $05FF
jsr LC7E5
bne LC7E0
ldx #$80
LC7E0: stx $05FF
LC7E3: clc
LC7E4: rts
LC7E5: sta WRCARDRAM
sta $0800,x
sta WRMAINRAM
inx
rts
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
LC7FD: jmp LC792
.endscope
extra_DoBankC5 := extra::DoBankC5
;;; ============================================================
.res $C800 - *, 0
;;; ============================================================
LC800: .byte $C3
eor $AA,x
jmp $C4A0 ; bad disasm?
LC806: lda #<LC305
sta KSWL
ldx #>LC305
stx KSWH
lda #<LC307
sta CSWL
stx CSWH
LC814: lda #M_NORMAL
sta MODE
jsr Enable80Col
jsr LCE33
jmp DoHomeAndClear
;;; ============================================================
LC822: jsr LCBE1
LC825: inc RNDL
bne LC82B
inc RNDH
LC82B: jsr LCCB8
bcc LC825
jsr LCCFB
cmp #$06
bcc LC840
and #$7F
sta CHAR
ora #$80
bra LC843
LC840: sta CHAR
LC843: pha
jsr LCBF8
pla
rts
;;; ============================================================
OutputChar:
sta CHAR
LC84C: jsr CheckPauseListing
lda MODE
and #$03
beq @l1
jmp LCA2F
@l1: lda CHAR
and #$7F
cmp #$20
bcc DoCtrlCharOut
ldy CH
cpy WNDWDTH
bcc @l2
jsr DoReturn
@l2: lda CHAR
bit INVFLG
bmi @l3
and #$7F
bit MODE
bvs @l3
bit ALTCHARSET
bpl @l3
cmp #$40
bcc @l3
cmp #$60
bcs @l3
and #$1F
@l3: jsr LCC13
jmp DoForwardSpace
;;; ============================================================
DoNothing:
rts
;;; ============================================================
;;; Output control character handling
;; Input is char, < $20
DoCtrlCharOut:
sec
sbc #$07
bcc DoNothing
asl a
tax
jmp (@jt,x)
@jt:
.addr DoBell ; $07 Ctrl-G Bell
.addr DoBackspace ; $08 Ctrl-H Backspace
.addr DoNothing ; $09 Ctrl-I
.addr DoLineFeed ; $0A Ctrl-J Line feed
.addr DoClearEOS ; $0B Ctrl-K Clear EOS
.addr DoHomeAndClear ; $0C Ctrl-L Home and clear
.addr DoReturn ; $0D Ctrl-M Return
.addr DoNormal ; $0E Ctrl-N Normal
.addr DoInverse ; $0F Ctrl-O Inverse
.addr DoNothing ; $10 Ctrl-P
.addr Do40Col ; $11 Ctrl-Q 40-column
.addr Do80Col ; $12 Ctrl-R 80-column
.addr DoNothing ; $13 Ctrl-S
.addr DoNothing ; $14 Ctrl-T
.addr DoQuit ; $15 Ctrl-U Quit
.addr DoScroll ; $16 Ctrl-V Scroll
.addr DoScrollUp ; $17 Ctrl-W Scroll-up
.addr DoDisableMouseText ; $18 Ctrl-X Disable MouseText
.addr DoHome ; $19 Ctrl-Y Home
.addr DoClearLine ; $1A Ctrl-Z Clear line
.addr DoEnableMouseText ; $1B Ctrl-[ Enable MouseText
.addr DoForwardSpace ; $1C Ctrl-\ Forward space
.addr DoClearEOL ; $1D Ctrl-] Clear EOL
.addr DoCtrlCaret ; $1E Ctrl-^ ???
.addr DoUp ; $1F Ctrl-_ Up
;;; ============================================================
;;; For Escape key sequences
ProcessEscapeModeKey:
pha
lda #M_ESC
trb MODE
pla
and #$7F
cmp #'a'
bcc @l1
cmp #'z'+1
bcs @l1
and #$DF ; convert to uppercase
;; Scan table for match
@l1: ldx #$00
@l2: ldy @code_table,x
beq DoNothing
cmp @code_table,x
beq @l3
inx
bra @l2
@l3: txa
asl a
tax
jmp (@jt,x)
@code_table:
.byte '@' ; Escape @ - clear, home & exit mode
.byte 'A' ; Escape A - right & exit mode
.byte 'B' ; Escape B - left & exit mode
.byte 'C' ; Escape C - down & exit mode
.byte 'D' ; Escape D - up & exit mode
.byte 'E' ; Escape E - clear EOL & exit mode
.byte 'F' ; Escape F - clear EOS & exit mode
.byte 'I' ; Escape I - up
.byte 'J' ; Escape J - left
.byte 'K' ; Escape K - right
.byte 'M' ; Escape M - down
.byte $0b ; Escape up - up
.byte $0a ; Escape down - down
.byte $08 ; Escape left - left
.byte $15 ; Escape right - right
.byte '4' ; Escape 4 - 40 col mode
.byte '8' ; Escape 8 - 80 col mode
.byte $11 ; Escape Ctrl+Q - deactivate
.byte $00 ; sentinel
@jt:
.addr DoHomeAndClear ; Escape @ - clear, home & exit mode
.addr DoForwardSpace ; Escape A - right & exit mode
.addr DoBackspace ; Escape B - left & exit mode
.addr DoLineFeed ; Escape C - down & exit mode
.addr DoUp ; Escape D - up & exit mode
.addr DoClearEOL ; Escape E - clear EOL & exit mode
.addr DoClearEOS ; Escape F - clear EOS & exit mode
.addr DoUpRemain ; Escape I - up
.addr DoLeftRemain ; Escape J - left
.addr DoRightRemain ; Escape K - right
.addr DoDownRemain ; Escape M - down
.addr DoUpRemain ; Escape up - up
.addr DoDownRemain ; Escape down - down
.addr DoLeftRemain ; Escape left - left
.addr DoRightRemain ; Escape right - right
.addr Do40Col ; Escape 4 - 40 col mode
.addr Do80Col ; Escape 8 - 80 col mode
.addr DoQuit ; Escape Ctrl+Q - deactivate
;;; ============================================================
CheckPauseListing:
lda KBD
cmp #$93 ; Ctrl-S
bne @l3
bit KBDSTRB
@l1: lda KBD
bpl @l1
cmp #$83 ; Ctrl-C
beq @l3
.byte $2C
@l2: bpl $C900
@l3: rts
;;; ============================================================
LC941: ldy #$00
ldx #$00
@l1: cpy WNDWDTH
bcs @l2
jsr LC9A8
sta $0200,x
inx
iny
bra @l1
@l2: dey
sty CH
stx SAVEX
lda #$8D ; return
LC95B: rts
;;; ============================================================
Do40Col:
bit RD80VID
php
jsr Disable80Col
jsr LCAFA
jsr LCE33
plp
bpl LC95B
jmp LCC68
;;; ============================================================
LC96F: jsr LC822
cmp #$00
beq @l4
cmp #$02
beq LC941
cmp #$05
bne LC95B
ldy CH
@l1: iny
cpy WNDWDTH
beq @l2
jsr LC9A8
dey
jsr LCEC8
iny
bra @l1
@l2: dey
@l3: lda #$A0
jsr LCEC8
bra LC96F
@l4: ldy WNDWDTH
@l5: dey
cpy CH
beq @l3
dey
jsr LC9A8
iny
jsr LCEC8
bra @l5
;;; ============================================================
LC9A8: jsr LCEBD
ora #$80
cmp #$A0
bcs @l1
ora #$40
@l1: rts
;;; ============================================================
LC9B4: bit RD80VID
bpl LC9CC
lsr WNDWDTH
asl WNDWDTH
sta SET80COL
;; This is CH fix described in source fragment below!
LC9C0: lda CH ; HAVE THEY CHANGED COL?
cmp XCOORD
bne LC9CA ; YES - USE THEIRS
lda OURCH ; ELSE USE OURS (THEY MIGHT HAVE
; CHANGED THIS TOO)
LC9CA: sta CH
LC9CC: rts
;;; ============================================================
DoUpRemain:
jsr DoUp
bra Remain
DoDownRemain:
jsr DoLineFeed
bra Remain
DoRightRemain:
jsr DoForwardSpace
bra Remain
DoLeftRemain:
jsr DoBackspace
;; fall through
Remain: lda #$80
bra SetModeBits
;;; ============================================================
DoInverse:
ldy #$3F
.byte OPC_BIT_abs ; skip next instruction
DoNormal:
ldy #$FF
sty INVFLG
LC9EA: rts
;;; ============================================================
Do80Col:
bit RD80VID
php
jsr Enable80Col
jsr LCAFA
jsr LCE33
plp
bmi LC9EA
jmp LCC18
;;; ============================================================
DoQuit:
jsr Do40Col
jsr DoSETVID
jsr DoSETKBD
lda #23
ldx #0
jsr LCAA1
lda #M_INACTIVE
sta MODE
lda #$98
rts
;;; ============================================================
;;; Adusting MODE Bits
DoCtrlCaret:
lda #$FC ; clear mode bits %xxxxxx00
jsr PreserveModeBits
lda #$32 ; set mode bits %xx11xx1x
bra SetModeBits
DoDisableMouseText:
.if !INCLUDE_PATCHES
lda #M_MOUSE ; BUG! Should be ~M_MOUSE
.else
lda #.lobyte(~M_MOUSE)
.endif
PreserveModeBits:
and MODE
bra StoreMode
DoEnableMouseText:
lda #M_MOUSE
SetModeBits:
ora MODE
StoreMode:
sta MODE
rts
;;; ============================================================
LCA2F: lda CHAR
sec
sbc #$20
and #$7F
pha
dec MODE
lda MODE
and #$03
bne @l2
pla
cmp #$18
bcs @l1
jsr LCAA3
@l1: lda $05F8
cmp WNDWDTH
bcs :+
sta CH
: rts
@l2: pla
sta $05F8
rts
;;; ============================================================
DoBackspace:
lda CH
beq LCA60
dec CH
LCA5F: rts
;;; ============================================================
LCA60: lda CV
beq LCA5F
lda WNDWDTH
dec a
sta CH
DoUp: lda CV
beq LCA5F
dec CV
bra LCAA5
;;; ============================================================
DoForwardSpace:
inc CH
lda CH
cmp WNDWDTH
bcc LCA5F
;; fall through
;;; ============================================================
DoReturn:
stz CH
;; fall through
;;; ============================================================
DoLineFeed:
lda CV
cmp #$FF
beq @l1
cmp #$17
bcs DoScrollUp
@l1: inc CV
bra LCAA5
;;; ============================================================
DoHome:
lda WNDTOP
ldx #$00
bra LCAA1
;;; ============================================================
DoClearLine:
lda CH
pha
stz CH
jsr DoClearEOL
pla
sta CH
rts
;;; ============================================================
LCA9B: lda $06F8
ldx $0778
LCAA1: stx CH
LCAA3: sta CV
LCAA5: jmp DoMON_VTAB
;;; ============================================================
DoScrollUp:
lda CH
pha
jsr DoHome
@l1: ldy BASH
sty BAS2H
ldy BASL
sty BAS2L
lda WNDBTM
beq @l5
dec a
cmp CV
beq @l5
bcc @l5
inc CV
jsr LCAA5
ldy WNDWDTH
dey
bit RD80VID
bmi @l3
@l2: lda (BASL),y
sta (BAS2L),y
dey
bpl @l2
bra @l1
@l3: tya
lsr a
tay
@l4: bit TXTPAGE1
lda (BASL),y
sta (BAS2L),y
bit TXTPAGE2
lda (BASL),y
sta (BAS2L),y
dey
bpl @l4
bit TXTPAGE1
bra @l1
@l5: stz CH
jsr DoClearEOL
plx
lda CV
bra LCAA1
LCAFA: lda CV
sta $06F8
lda CH
sta $0778
rts
;;; ============================================================
DoScroll:
jsr LCAFA
lda WNDBTM
dec a
dec a
sta $05F8
LCB0F: lda $05F8
jsr LCAA3
lda BASL
sta BAS2L
lda BASH
sta BAS2H
lda $05F8
inc a
jsr LCAA3
ldy WNDWDTH
dey
LCB27: phy
bit TXTPAGE1
bit RD80VID
bpl LCB38
tya
lsr a
tay
bcs LCB38
bit TXTPAGE2
LCB38: lda (BAS2L),y
sta (BASL),y
ply
dey
bpl LCB27
bit TXTPAGE1
lda $05F8
cmp WNDTOP
beq LCB4F
dec $05F8
bra LCB0F
LCB4F: lda #$00
jsr LCAA3
jsr DoClearLine
bit TXTPAGE1
jmp LCA9B
;;; ============================================================
PascalInit:
jsr LC814
LCB60: jsr LCBE1
LCB63: ldx CH
stx OURCH
stx XCOORD
ldx #$00
rts
;;; ============================================================
PascalRead:
jsr InitTextWindow
jsr LC822
lda CHAR
bra LCB63
;;; ============================================================
PascalWrite:
sta CHAR
jsr InitTextWindow
jsr LCBF8
lda CHAR
ora #$80
sta CHAR
and #$7F
cmp #$15
beq LCB63
cmp #$0D
beq @l1
jsr LC84C
bra LCB60
@l1: stz CH
bra LCB60
;;; ============================================================
PascalStatus:
cmp #$00
beq @l1
cmp #$01
bne @l2
jsr LCCB8
bra LCB63
@l1: sec
bra LCB63
@l2: ldx #$03
clc
rts
;;; ============================================================
InitTextWindow:
pha
lda OLDBASL
sta BASL
lda OLDBASH
sta BASH
stz WNDTOP
stz WNDLFT
lda #80
sta WNDWDTH
lda #24
sta WNDBTM
jsr LC9C0
pla
rts
;;; ============================================================
;; ???
sta CLRALTCHAR
Disable80Col:
sta CLR80COL
sta CLR80VID
rts
Enable80Col:
sta SET80COL
sta SET80VID
sta SETALTCHAR
rts
;;; ============================================================
LCBE1: lda MODE
cmp #M_INACTIVE
beq LCC04
and #M_ESC
beq LCC04
jsr LCEBB
sta OLDCH
and #$80
eor #$AB
bra LCC13
;;; ============================================================
LCBF8: lda MODE
and #M_ESC
beq LCC04
lda OLDCH
bra LCC13
LCC04: jsr LCEBB
eor #$80
cmp #$40
bcc LCC13
cmp #$60
bcs LCC13
and #$1F
LCC13: ldy CH
jmp LCEC8
LCC18: php
sei
lda WNDTOP
sta $05F8
LCC1F: lda $05F8
jsr LCAA3
lda BASL
sta BAS2L
lda BASH
sta BAS2H
ldy #$00
LCC2F: bit TXTPAGE1
lda (BAS2L)
bit TXTPAGE2
sta (BASL),y
bit TXTPAGE1
inc BAS2L
lda (BAS2L)
sta (BASL),y
iny
inc BAS2L
cpy #$14
bcc LCC2F
lda #$A0
LCC4B: bit TXTPAGE2
sta (BASL),y
bit TXTPAGE1
sta (BASL),y
iny
cpy #$28
bcc LCC4B
inc $05F8
lda $05F8
cmp #$18
bcc LCC1F
LCC64: plp
jmp LCA9B
LCC68: php
sei
sta SET80COL
lda WNDTOP
sta $05F8
LCC72: lda $05F8
jsr LCAA3
ldy #$13
bit TXTPAGE1
LCC7D: lda (BASL),y
pha
dey
bpl LCC7D
ldy #$00
lda BASL
sta BAS2L
lda BASH
sta BAS2H
LCC8D: bit TXTPAGE2
lda (BASL),y
bit TXTPAGE1
sta (BAS2L)
inc BAS2L
pla
sta (BAS2L)
inc BAS2L
iny
cpy #$14
bcc LCC8D
inc $05F8
lda $05F8
cmp #$18
bcc LCC72
sta CLR80COL
bra LCC64
LCCB2: jsr LCCB8
jmp extra::DoBankC5 ; bad disasm or ...?
LCCB8: bit $0579
bmi LCCD7
LCCBD: bit $05FA
bvs LCCCE
bpl LCCCE
lda $05FF
cmp $06FF
beq LCCD3
bra LCCD5
LCCCE: bit KBD
bmi LCCD5
LCCD3: clc
rts
LCCD5: sec
rts
LCCD7: jsr LCDA8
beq LCCE1
LCCDC: stz $0579
bra LCCBD
LCCE1: phx
ldx $0479
jsr LCE16
lda $0200,x
jsr LCE25
plx
cmp #$00
beq LCCDC
bra LCCD5
LCCF5: jsr LCCFB
jmp extra::DoBankC5
LCCFB: bit $0579
bpl LCD03
jmp LCD85
LCD03: bit $05FA
bvs LCD2F
bpl LCD2F
phx
ldx $06FF
bit RDRAMRD
php
sta RDCARDRAM
lda $0800,x
plp
bmi LCD1E
sta RDMAINRAM
LCD1E: inx
bne LCD23
ldx #$80
LCD23: stx $06FF
plx
pha
pla
php
ora #$80
plp
bra LCD38
LCD2F: lda KBD
bit KBDSTRB
bit $C0B4
LCD38: bpl LCD41
LCD3A: cmp #$06
bcc LCD40
ora #$80
LCD40: rts
LCD41: and #$7F
cmp #$01
bne LCD4B
lda #$1A
bra LCD3A
LCD4B: cmp #$03
bne LCD53
lda #$0C
bra LCD3A
LCD53: cmp #$04
bne LCD5B
lda #$19
bra LCD3A
LCD5B: cmp #$06
bne LCD63
lda #$2C
bra LCD73
LCD63: cmp #$1F
bne LCD6B
lda #$2D
bra LCD73
LCD6B: cmp #$20
bcc LCD3A
cmp #$2C
bcs LCD3A
LCD73: pha
jsr LCDA8
beq LCD7C
pla
bra LCD3A
LCD7C: lda #$FF
sta $0579
pla
jsr LCDBE
LCD85: jsr LCDA8
beq LCD91
LCD8A: stz $0579
lda #$A0
bra LCD3A
LCD91: phx
ldx $0479
jsr LCE16
lda $0200,x
jsr LCE25
plx
inc $0479
cmp #$00
beq LCD8A
bra LCD3A
LCDA8: jsr LCE16
lda #$00
phx
tax
clc
LCDB0: adc $0200,x
inx
bne LCDB0
plx
jsr LCE25
cmp $04F9
rts
LCDBE: phx
phy
jsr LCE16
sec
sbc #$20
ldy #$00
tax
beq LCDD7
LCDCB: lda $0200,y
beq LCDD3
iny
bra LCDCB
LCDD3: iny
LCDD4: dex
bne LCDCB
LCDD7: jsr LCE25
sty $0479
ply
plx
rts
eor ($55)
lsr a:$0D
jmp $5349
.byte $54
ora $FF00
LCDEC: sta WRCARDRAM
lda #$00
tax
LCDF2: sta $0200,x
inx
cpx #$0C
bcc LCDF2
LCDFA: lda LCDD4,x
cmp #$FF
.byte $F0
LCE00: asl $9D
brk
.byte $02
inx
bra LCDFA
sta WRMAINRAM
stz $0579
LCE0D: jsr LCDA8
sta $04F9
jmp extra::DoBankC5
LCE16: pha
lda RDRAMRD
sta RDMAINRAM
sta OURCV
sta RDCARDRAM
pla
rts
LCE25: pha
sta RDMAINRAM
lda OURCV
bpl LCE31
sta RDCARDRAM
LCE31: pla
rts
LCE33: lda #$00
bit RDTEXT
bmi DoSETWND
lda #$14
;;; ============================================================
;;; Load X,Y with address of a routine -1 (for `ROMCall`)
.macro LDXY addr
ldx #.hibyte(addr-1)
ldy #.lobyte(addr-1)
.endmacro
;;; ============================================================
DoSETWND:
LDXY SETWND
bra ROMCall
;;; ============================================================
DoBell:
LDXY BELLB
bra ROMCall
;;; ============================================================
DoSETKBD:
LDXY SETKBD
bra ROMCall
;;; ============================================================
DoSETVID:
LDXY SETVID
bra ROMCall
;;; ============================================================
DoMON_VTAB:
LDXY MON_VTAB
bra ROMCall
;;; ============================================================
DoClearEOS:
LDXY CLREOP
bra ROMCall
;;; ============================================================
DoHomeAndClear:
LDXY HOME
bra ROMCall
;;; ============================================================
DoClearEOL:
LDXY CLREOL
;; fall through
;;; ============================================================
;;; A = character, X,Y = ROM address-1 (return value to push to stack)
ROMCall:
sta TEMP2
bit RDLCRAM
php
bit RDLCBNK2
php
lda #.hibyte(ROMCallReturn-1)
pha
lda #.lobyte(ROMCallReturn-1)
pha
phx
phy
bit ROMIN2
lda TEMP2
rts
ROMCallReturn:
plp
bpl @l2
plp
bpl @l1
bit LCBANK2
bit LCBANK2
bra @l4
@l1: bit ROMIN
bit ROMIN
bra @l4
@l2: plp
bpl @l3
bit LCBANK1
bit LCBANK1
bra @l4
@l3: bit $C089 ; ???
bit $C089 ; ???
@l4: lda BASL
sta OLDBASL
lda BASH
sta OLDBASH
lda CH
sta OURCH
rts
;;; ============================================================
LCEBB: ldy CH
LCEBD: phy
jsr LCED2
lda (BASL),y
LCEC3: ply
bit TXTPAGE1
rts
;;; ============================================================
LCEC8:
phy
pha
jsr LCED2
pla
sta (BASL),y
bra LCEC3
;;; ============================================================
LCED2:
bit RD80VID
bpl @l1
tya
lsr a
tay
bcc @l2
@l1: bit TXTPAGE1
rts
@l2: bit TXTPAGE2
rts
;;; ============================================================
;; ???
.byte "EN\r"
.byte "\tASL\tWIDTH\r"
.byte "\tSTA\tON80ST\tMAKE SURE 80 STORE IS ENABLED\r"
.byte "\r"
.byte ";CHANGED THIS 9/15/86 FOR HABA MERGE AND MOUSE WRITE:\r"
.byte "\r"
.byte "FIXCOL\tLDA\tCOL\tHAVE THEY CHANGED COL ?\r"
.byte "\tCMP\tOLDCOL\r"
.byte "\tBNE\t.2\tYES - USE THEIRS\r"
.byte "\tLDA\tAPPLECOL\tELSE USE OURS (THEY MIGHT HAVE\r"
.byte ";\t\t\t CHANGED THIS TOO)\r"
.byte ".2\tSTA\tCOL\r"
.byte "\r"
.byte ".END\tRTS\r"
.byte "\r"
.byte "\x1F"
.byte "\r;E"
;;; ============================================================
.res $D000 - *, 0
;;; ============================================================
.assert * = $D000, error, "Length changed"
Reference in New Issue View Git Blame Copy Permalink