mirror of
https://github.com/a2stuff/franklin.git
synced 2024-06-25 16:29:31 +00:00
more disasm and pascal sigs
This commit is contained in:
parent
42ceecc0fc
commit
0e781e4c59
|
@ -144,6 +144,7 @@ CLREOL := $FC9C
|
||||||
CLREOLZ := $FC9E
|
CLREOLZ := $FC9E
|
||||||
COUT := $FDED
|
COUT := $FDED
|
||||||
COUT1 := $FDF0
|
COUT1 := $FDF0
|
||||||
|
MON_SAVE:= $FF4A
|
||||||
|
|
||||||
;;; ============================================================
|
;;; ============================================================
|
||||||
|
|
||||||
|
@ -163,14 +164,15 @@ LC100: bra LC111
|
||||||
LC102: bra LC107
|
LC102: bra LC107
|
||||||
|
|
||||||
LC104: nop
|
LC104: nop
|
||||||
sec
|
sec ; $Cn05 = $38 Pascal 1.1 sig
|
||||||
nop
|
nop
|
||||||
LC107: clc
|
LC107: clc ; $Cn07 = $18 Pascal 1.1 sig
|
||||||
clv
|
clv
|
||||||
bra LC114
|
bra LC114
|
||||||
|
|
||||||
;; Signature bytes
|
;; Signature bytes
|
||||||
.byte $01, $31
|
.byte $01 ; Pascal 1.1 signature
|
||||||
|
.byte $31 ; $31 = Super Serial Card (!)
|
||||||
|
|
||||||
;; Pascal 1.1 Firmware Protocol Table
|
;; Pascal 1.1 Firmware Protocol Table
|
||||||
.byte .lobyte(LC12B)
|
.byte .lobyte(LC12B)
|
||||||
|
@ -328,13 +330,14 @@ LC1FD: jmp LC1A9
|
||||||
bit $C5A7
|
bit $C5A7
|
||||||
bra LC211
|
bra LC211
|
||||||
|
|
||||||
sec
|
sec ; $Cn05 = $38 Pascal 1.1 sig
|
||||||
bcc LC220
|
bcc LC220 ; $Cn07 = $18 Pascal 1.1 sig
|
||||||
clv
|
clv
|
||||||
bra LC211
|
bra LC211
|
||||||
|
|
||||||
;; Signature bytes
|
;; Signature bytes
|
||||||
.byte $01, $31
|
.byte $01 ; Pascal 1.1 signature
|
||||||
|
.byte $31 ; $31 = Super Serial Card
|
||||||
|
|
||||||
;; Pascal 1.1 Firmware Protocol Table
|
;; Pascal 1.1 Firmware Protocol Table
|
||||||
.byte .lobyte(LC214)
|
.byte .lobyte(LC214)
|
||||||
|
@ -458,17 +461,18 @@ LC300: bit SETV ; V = init
|
||||||
|
|
||||||
;; Input
|
;; Input
|
||||||
.assert * = C3KeyIn, error, "Entry point mismatch"
|
.assert * = C3KeyIn, error, "Entry point mismatch"
|
||||||
LC305: sec
|
LC305: sec ; $Cn05 = $38 Pascal 1.1 sig
|
||||||
.byte OPC_BCC ; never taken; skip next byte
|
.byte OPC_BCC ; never taken; skip next byte
|
||||||
|
|
||||||
;; Output
|
;; Output
|
||||||
.assert * = C3COut1, error, "Entry point mismatch"
|
.assert * = C3COut1, error, "Entry point mismatch"
|
||||||
LC307: clc
|
LC307: clc ; $Cn07 = $18 Pascal 1.1 sig
|
||||||
clv
|
clv
|
||||||
bra MainEntry
|
bra MainEntry
|
||||||
|
|
||||||
;; Signature bytes
|
;; Signature bytes
|
||||||
.byte $01, $88
|
.byte $01 ; Pascal 1.1 signature
|
||||||
|
.byte $88 ; $88 = 80 Column Card
|
||||||
|
|
||||||
;; Pascal 1.1 Firmware Protocol Table
|
;; Pascal 1.1 Firmware Protocol Table
|
||||||
.byte <JPINIT
|
.byte <JPINIT
|
||||||
|
@ -628,7 +632,7 @@ LC3FA: jsr ClearROM
|
||||||
jmp LCCF5
|
jmp LCCF5
|
||||||
|
|
||||||
;;; ============================================================
|
;;; ============================================================
|
||||||
;;; Page $C4 - ???
|
;;; Page $C4 - Mouse Card
|
||||||
|
|
||||||
.scope pageC4
|
.scope pageC4
|
||||||
|
|
||||||
|
@ -640,7 +644,7 @@ LC3FA: jsr ClearROM
|
||||||
bra LC41C
|
bra LC41C
|
||||||
|
|
||||||
;; Signature bytes
|
;; Signature bytes
|
||||||
.byte $01, $20
|
.byte $01, $20 ; $20 = Mouse
|
||||||
|
|
||||||
;; Pascal 1.1 Firmware Protocol Table
|
;; Pascal 1.1 Firmware Protocol Table
|
||||||
.byte .lobyte(LC42C)
|
.byte .lobyte(LC42C)
|
||||||
|
@ -989,9 +993,10 @@ pageC5_LC5F5 := pageC5::LC5F5
|
||||||
;;; Page $C6 - Disk II Driver
|
;;; Page $C6 - Disk II Driver
|
||||||
|
|
||||||
.scope pageC6
|
.scope pageC6
|
||||||
bit $20
|
bit $20 ; $Cn01 = $20 ProDOS device sig
|
||||||
cpy $00
|
cpy $00 ; $Cn03 = $00 ProDOS device sig
|
||||||
ldx #$03
|
ldx #$03 ; $Cn05 = $03 ProDOS device sig
|
||||||
|
|
||||||
asl A1L
|
asl A1L
|
||||||
jsr pageC5::DoBankC5
|
jsr pageC5::DoBankC5
|
||||||
ldy #$69
|
ldy #$69
|
||||||
|
@ -1014,6 +1019,7 @@ LC62D: dec $27
|
||||||
lda $27
|
lda $27
|
||||||
cmp #$08
|
cmp #$08
|
||||||
bne LC62D
|
bne LC62D
|
||||||
|
|
||||||
nop
|
nop
|
||||||
nop
|
nop
|
||||||
nop
|
nop
|
||||||
|
@ -1095,6 +1101,7 @@ LC683: pla
|
||||||
LC684: jsr pageC5::DoBankC5
|
LC684: jsr pageC5::DoBankC5
|
||||||
jsr LCE00
|
jsr LCE00
|
||||||
bra LC6EA
|
bra LC6EA
|
||||||
|
|
||||||
brk
|
brk
|
||||||
brk
|
brk
|
||||||
brk
|
brk
|
||||||
|
@ -1208,8 +1215,6 @@ LC6EA: nop
|
||||||
LC700:
|
LC700:
|
||||||
.scope pageC7
|
.scope pageC7
|
||||||
|
|
||||||
LFF4A := $FF4A
|
|
||||||
|
|
||||||
LC700: jsr $C1F7
|
LC700: jsr $C1F7
|
||||||
pha
|
pha
|
||||||
jsr $C1FD
|
jsr $C1FD
|
||||||
|
@ -1260,7 +1265,7 @@ LC751: pla
|
||||||
ply
|
ply
|
||||||
plx
|
plx
|
||||||
plp
|
plp
|
||||||
jsr LFF4A
|
jsr MON_SAVE
|
||||||
pla
|
pla
|
||||||
sta $3A
|
sta $3A
|
||||||
ply
|
ply
|
||||||
|
|
Loading…
Reference in New Issue
Block a user