mirror of
https://github.com/brouhaha/a2-liron.git
synced 2024-12-28 03:29:19 +00:00
Improve comments and labels.
This commit is contained in:
Eric Smith
parent
99eaf2fe34
commit
007dcacf17
19
liron-if.asm
19
liron-if.asm
@ -1,6 +1,6 @@
|
||||
; Apple II Liron Disk Controller Card firmware
|
||||
; Apple II UniDisk 3.5 (Liron) disk interface card firmware
|
||||
; Firmware P/N 341-????
|
||||
; Copyright 2017 Eric Smith <spacewar@gmail.com>
|
||||
; Copyright 2018 Eric Smith <spacewar@gmail.com>
|
||||
|
||||
cpu 6502
|
||||
|
||||
@ -134,12 +134,8 @@ rom_dis equ $cfff
|
||||
|
||||
org $c000
|
||||
|
||||
; unknown data, not visible in Apple II address space, possibly garbage
|
||||
fcb $c6,$e9,$f2,$ed,$f7,$e1,$f2,$e5
|
||||
fcb $a0,$f7,$f2,$e9,$f4,$f4,$e5,$ee
|
||||
fcb $a0,$e2,$f9,$a0,$cd,$e9,$e3,$e8
|
||||
fcb $e1,$e5,$ec,$a0,$c1,$f3,$eb,$e9
|
||||
fcb $ee,$f3,$00
|
||||
; $c000..$cfff is not visible in Apple II address space
|
||||
fcchz "Firmware written by Michael Askins"
|
||||
fillto $c100,$ff
|
||||
|
||||
; Cnxx slot ROM is replicated for all seven slots, and is identical
|
||||
@ -1414,10 +1410,7 @@ boot_prodos_command_block_len equ *-boot_prodos_command_block
|
||||
|
||||
fillto $cfdb,$ff
|
||||
|
||||
fcb $a8,$c3,$a9
|
||||
fcb $a0,$b1,$b9,$b8,$b5,$a0,$c1,$f0
|
||||
fcb $f0,$ec,$e5,$a0,$c3,$ef,$ed,$f0
|
||||
fcb $f5,$f4,$e5,$f2,$ac,$a0,$c9,$ee
|
||||
fcb $e3,$ae,$a0,$cd,$d3,$c1,$00,$10
|
||||
fcchz "(C) 1985 Apple Computer, Inc. MSA"
|
||||
fcb $10
|
||||
|
||||
fillto $d000,$ff
|
||||
|
||||
57
liron.asm
57
liron.asm
@ -1,6 +1,6 @@
|
||||
; Apple II Liron Disk Drive firmware
|
||||
; Apple UniDisk 3.5 (Liron, A2M2053) disk drive firmware
|
||||
; Firmware P/N 341-????
|
||||
; Copyright 2017 Eric Smith <spacewar@gmail.com>
|
||||
; Copyright 2018 Eric Smith <spacewar@gmail.com>
|
||||
|
||||
cpu 65c02
|
||||
|
||||
@ -14,9 +14,9 @@ size set 256
|
||||
endm
|
||||
endm
|
||||
|
||||
L00 equ $00
|
||||
Z08 equ $08
|
||||
|
||||
warmstart_ram equ $00
|
||||
Z08 equ $08
|
||||
ga_shadow_wr_reg0 equ $09
|
||||
ga_shadow_wr_reg1 equ $0a
|
||||
|
||||
@ -458,7 +458,7 @@ Le317: jsr Se48f
|
||||
lsr
|
||||
tax
|
||||
lda De3b4,x
|
||||
jsr Se4e2
|
||||
jsr delay2
|
||||
Le337: jsr Se162
|
||||
stz Z17
|
||||
stz Z25
|
||||
@ -614,7 +614,7 @@ Le444: tay
|
||||
Se461: jmp L84
|
||||
|
||||
Le464: lda #$02
|
||||
jsr Se4e7
|
||||
jsr delay
|
||||
lda Z1a
|
||||
sta Z18
|
||||
Le46d: jsr Le103
|
||||
@ -683,11 +683,13 @@ Le4de: dex
|
||||
bne Le4de
|
||||
rts
|
||||
|
||||
Se4e2: pha
|
||||
jsr Se4e7
|
||||
pla
|
||||
|
||||
Se4e7: sta Z18
|
||||
delay2: pha
|
||||
jsr delay
|
||||
pla
|
||||
; fall into delay
|
||||
|
||||
delay: sta Z18
|
||||
Le4e9: lda #$c8
|
||||
sta Z17
|
||||
Le4ed: dec Z17
|
||||
@ -697,13 +699,14 @@ Le4ed: dec Z17
|
||||
bne Le4e9
|
||||
rts
|
||||
|
||||
|
||||
Le4f7: lda #$01
|
||||
jsr Se64a
|
||||
ldx #$50
|
||||
jsr Se4cf
|
||||
ldx #$50
|
||||
Le503: lda #$07
|
||||
jsr Se4e7
|
||||
jsr delay
|
||||
lda #$0a
|
||||
jsr Se640
|
||||
bpl Le515
|
||||
@ -722,7 +725,7 @@ Se51b: lda #$02
|
||||
lda #$09
|
||||
jsr Se64a
|
||||
lda #$c8
|
||||
jsr Se4e7
|
||||
jsr delay
|
||||
lda #$03
|
||||
sta Z39
|
||||
ldx Z13
|
||||
@ -732,7 +735,7 @@ Le534: lda #$0d
|
||||
lda #$96
|
||||
sta Z3b
|
||||
Le53d: lda #$0a
|
||||
jsr Se4e7
|
||||
jsr delay
|
||||
lda #$02
|
||||
jsr Se640
|
||||
bmi Le557
|
||||
@ -752,7 +755,7 @@ Le557: ldx Z13
|
||||
lda #$fa
|
||||
sta Z11,x
|
||||
lda #$01
|
||||
jsr Se4e7
|
||||
jsr delay
|
||||
Le568: clc
|
||||
rts
|
||||
|
||||
@ -787,12 +790,14 @@ Le593: sty iwm_q7h
|
||||
lda iwm_motor_on
|
||||
rts
|
||||
|
||||
Se5a5: ldx #$07
|
||||
|
||||
warmstart_check:
|
||||
ldx #warmstart_tab_len-1
|
||||
stx Z08
|
||||
Le5a9: lda De5bb,x
|
||||
cmp L00,x
|
||||
Le5a9: lda warmstart_tab,x
|
||||
cmp warmstart_ram,x
|
||||
beq Le5b5
|
||||
sta L00,x
|
||||
sta warmstart_ram,x
|
||||
sec
|
||||
ror Z08
|
||||
Le5b5: dex
|
||||
@ -801,7 +806,9 @@ Le5b5: dex
|
||||
rts
|
||||
|
||||
|
||||
De5bb: fcb $4c,$49,$52,$4f,$4e,$4d,$53,$41 ; "LIRONMSA"
|
||||
warmstart_tab:
|
||||
fcb "LIRONMSA"
|
||||
warmstart_tab_len equ *-warmstart_tab
|
||||
|
||||
|
||||
Se5c3: lda ga_reg1 ; check BLATCH1 and 2
|
||||
@ -864,10 +871,10 @@ Se614: lda #$00
|
||||
jsr Se64d
|
||||
ldx Z13
|
||||
lda Z11,x
|
||||
jsr Se4e2
|
||||
jsr delay2
|
||||
lda #$19
|
||||
sta Z11,x
|
||||
jsr Se4e2
|
||||
jsr delay2
|
||||
Le634: rts
|
||||
|
||||
Le635: lda #$01
|
||||
@ -1032,8 +1039,10 @@ reset: sei ; disable interrupts, clear decimal, init stack
|
||||
jsr Se7bc
|
||||
stz Z6a
|
||||
stz Z6b
|
||||
jsr Se5a5
|
||||
|
||||
jsr warmstart_check
|
||||
bpl Le78b
|
||||
|
||||
sec
|
||||
ror Z6f
|
||||
stz Z6e
|
||||
@ -1042,8 +1051,9 @@ reset: sei ; disable interrupts, clear decimal, init stack
|
||||
sta Z12
|
||||
jsr vector_init
|
||||
lda #$e6
|
||||
jsr Se4e7
|
||||
jsr delay
|
||||
jsr Se9ef
|
||||
|
||||
Le78b: bit Z6f
|
||||
bmi Le799
|
||||
ldx Z6f
|
||||
@ -1065,6 +1075,7 @@ Le7b1: jsr Sea1d
|
||||
jsr Seb08
|
||||
bra Le79c
|
||||
|
||||
|
||||
Se7bc: lda #$04
|
||||
sta Z62
|
||||
lda #$80
|
||||
|
||||
Loading…
Reference in New Issue
Block a user