From 3f1f2420a891845ca2732826d5b14fbd02573371 Mon Sep 17 00:00:00 2001
From: Eric Smith <brouhaha@fedoraproject.org>
Date: Sun, 11 Feb 2018 15:12:00 -0700
Subject: [PATCH] Initial commit.

---
 .gitignore   |    4 +
 Makefile     |   20 +
 liron-if.asm | 1241 ++++++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 1265 insertions(+)
 create mode 100644 .gitignore
 create mode 100644 Makefile
 create mode 100644 liron-if.asm

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..32993a6
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,4 @@
+*~
+*.p
+*.bin
+*.lst
diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..53bfc91
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,20 @@
+all: liron-if.bin liron-if.lst check
+
+%.lst %.p: %.asm
+	asl $< -o $@ -L
+
+liron-if.p liron-if.lst: liron-if.asm
+	asl liron-if.asm -o liron-if.p -L
+
+liron-if.bin: liron-if.p
+	p2bin -r '$$c000-$$cfff' liron-if.p
+
+define myvar
+  # line 1\nline 2\nline 3\n#etc\n
+  endef
+
+check: liron-if.bin
+	echo "42c1ae66c6bec932669239599eb8989a5364752d56fa5c8997bb23d8dfc0b657 liron-if.bin" | sha256sum -c -
+
+clean:
+	rm liron-if.bin *.p *.lst
diff --git a/liron-if.asm b/liron-if.asm
new file mode 100644
index 0000000..006b8a5
--- /dev/null
+++ b/liron-if.asm
@@ -0,0 +1,1241 @@
+; Apple II Liron Disk Controller Card firmware
+; Firmware P/N 341-????
+; Copyright 2017 Eric Smith <spacewar@gmail.com>
+
+	cpu	6502
+
+fillto	macro	addr, val
+	while	* < addr
+size	set	addr-*
+	if	size > 256
+size	set	256
+	endif
+	fcb	[size] val
+	endm
+	endm
+
+fcchz	macro	string
+	irpc	char,string
+	fcb	$80+'char'
+	endm
+	fcb	$00
+	endm
+
+
+Z00	equ	$00
+Z01	equ	$01
+Z24	equ	$24
+Z25	equ	$25
+Z40	equ	$40
+Z41	equ	$41
+Z42	equ	$42
+Z43	equ	$43
+Z44	equ	$44
+Z45	equ	$45
+Z46	equ	$46
+Z47	equ	$47
+Z48	equ	$48
+Z4b	equ	$4b
+Z4c	equ	$4c
+Z4d	equ	$4d
+Z4e	equ	$4e
+Z4f	equ	$4f
+Z50	equ	$50
+Z51	equ	$51
+Z52	equ	$52
+Z53	equ	$53
+Z54	equ	$54
+Z55	equ	$55
+Z56	equ	$56
+Z57	equ	$57
+slot	equ	$58
+Z59	equ	$59
+Z5a	equ	$5a
+Z5b	equ	$5b
+
+
+; per-slot screen holes (index by slot)
+sh_prodos_flag	equ	$0478
+sh_04f8	equ	$04f8
+sh_0578	equ	$0578
+sh_05f8	equ	$05f8
+sh_0678	equ	$0678
+sh_06f8	equ	$06f8
+sh_0778	equ	$0778
+sh_07f8	equ	$07f8
+
+
+; global screen holes
+gh_06f8	equ	$06f8
+gh_0778	equ	$0778
+gh_07f8	equ	$07f8
+
+
+D0800	equ	$0800
+L0801	equ	$0801
+
+
+basic_cold	equ	$e000
+
+
+mon_sloop	equ	$faba
+mon_vtab	equ	$fc22
+mon_cout	equ	$fded
+mon_setkbd	equ	$fe89
+mon_setvid	equ	$fe93
+
+
+iwm_ph_0_off	equ   $c080
+iwm_ph_0_on	equ   $c081
+iwm_ph_1_off	equ   $c082
+iwm_ph_1_on	equ   $c083
+iwm_ph_2_off	equ   $c084
+iwm_ph_2_on	equ   $c085
+iwm_ph_3_off	equ   $c086
+iwm_ph_3_on	equ   $c087
+iwm_motor_off	equ   $c088
+iwm_motor_on	equ   $c089
+iwm_sel_drive_1	equ   $c08a
+iwm_sel_drive_2	equ   $c08b
+iwm_q6l		equ   $c08c
+iwm_q6h		equ   $c08d
+iwm_q7l		equ   $c08e
+iwm_q7h		equ   $c08f
+
+
+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
+	fillto	$c100,$ff
+
+; Cnxx slot ROM is replicated for all seven slots, and is identical
+; other than slot number references and slot I/O references
+	irp	slotnum, 1, 2, 3, 4, 5, 6, 7
+
+	org	$c000 + (slotnum << 8)
+
+; firmware boot entry point
+	ldx	#$20
+	ldx	#$00
+	ldx	#$03
+	cmp	#$00
+	bcs	Lcn14
+
+prodos_entry:
+	sec
+	bcs	Lcn0e
+
+smartport_entry:
+	clc
+
+; combined ProDOS/SmartPort dispatch
+; save ProDOS/SmartPort flag (1 = ProDOS) in MSB of sh_prodos_flag
+Lcn0e:	ldx	#slotnum
+	ror	sh_prodos_flag,x
+	clc
+
+; combined ProDOS/SmartPort/boot dispatch
+; carry = 1 for boot, 0 for ProDOS/SmartPort
+Lcn14:	ldx	#$c0 + slotnum
+	stx	gh_07f8
+	ldx	#slotnum
+	lda	rom_dis
+	jmp	shared_rom_entry
+
+
+; shared ROM space jumps here
+Lcn21:	ldy	#$00
+	lda	Z4b
+	pha
+	bne	Lcn2b
+	jmp	Lcnb8
+
+Lcn2b:	lda	iwm_q6l + (slotnum << 4)
+	bpl	Lcn2b
+	sta	Z59
+	lsr
+	lsr
+	lsr
+	and	#$0f
+	tax
+	lda	Z59
+	and	#$07
+	sta	Z59
+
+Lcn3e:	lda	iwm_q6l + (slotnum << 4)
+	bpl	Lcn3e
+	eor	Dca27,x
+	sta	(Z56),y
+	eor	Z40
+	sta	Z40
+	iny
+	bne	Lcn51
+	inc	Z57
+
+Lcn51:	lda	iwm_q6l + (slotnum << 4)
+	bpl	Lcn51
+	eor	Dca37,x
+	sta	(Z56),y
+	eor	Z40
+	sta	Z40
+	iny
+
+Lcn60:	lda	iwm_q6l + (slotnum << 4)
+	bpl	Lcn60
+	eor	Dca47,x
+	sta	(Z56),y
+	eor	Z40
+	sta	Z40
+	iny
+
+Lcn6f:	lda	iwm_q6l + (slotnum << 4)
+	bpl	Lcn6f
+	eor	Dca57,x
+	sta	(Z56),y
+	eor	Z40
+	sta	Z40
+	iny
+	bne	Lcn82
+	inc	Z57
+
+Lcn82:	ldx	Z59
+Lcn84:	lda	iwm_q6l + (slotnum << 4)
+	bpl	Lcn84
+	eor	Dca37,x
+	sta	(Z56),y
+	eor	Z40
+	sta	Z40
+	iny
+
+Lcn93:	lda	iwm_q6l + (slotnum << 4)
+	bpl	Lcn93
+	eor	Dca47,x
+	sta	(Z56),y
+	eor	Z40
+	sta	Z40
+	iny
+
+Lcna2:	lda	iwm_q6l + (slotnum << 4)
+	bpl	Lcna2
+	eor	Dca57,x
+	sta	(Z56),y
+	eor	Z40
+	sta	Z40
+	iny
+	dec	Z4b
+	beq	Lcnb8
+	jmp	Lcn2b
+
+Lcnb8:	lda	iwm_q6l + (slotnum << 4)
+	bpl	Lcnb8
+	sta	Z59
+	pla
+	sta	Z4b
+
+Lcnc2:	lda	iwm_q6l + (slotnum << 4)
+	bpl	Lcnc2
+	sec
+	rol
+	and	Z59
+	eor	Z40
+
+Lcncd:	ldy	iwm_q6l + (slotnum << 4)
+	bpl	Lcncd
+	cpy	#$c8
+	bne	Lcnf2
+	ldx	Z4c
+	beq	Lcne2
+
+	ldy	#$00
+Lcndc:	eor	(Z54),y
+	iny
+	dex
+	bne	Lcndc
+
+Lcne2:	tax
+	bne	Lcnf6
+	lda	iwm_q6h + (slotnum << 4)
+
+Lcne8:	lda	iwm_q7l + (slotnum << 4)
+	bmi	Lcne8
+
+	lda	iwm_ph_0_off + (slotnum << 4)
+
+	clc
+	rts
+
+Lcnf2:	lda	#$20
+	bne	Lcnf8		; always taken
+
+Lcnf6:	lda	#$10
+Lcnf8:	sec
+	rts
+
+
+;	fillto	slot_fw + $fb, $ff
+	fcb	$ff		; unused
+
+	fcb	$00		; SmartPort type
+
+	fdb	$0000		; ProDOS block count (status call required)
+
+	fcb	$bf		; ProDOS characteristics
+	
+	fcb	prodos_entry & $0ff
+
+	endm
+
+Sc800:	jsr	Scaee
+	jsr	Sca05
+	ldy	#$07
+	jsr	Scba9
+	lda	iwm_sel_drive_2,x
+	lda	iwm_motor_on,x
+	ldy	#$32
+Lc813:	lda	iwm_q7l,x
+	bmi	Lc81f
+	dey
+	bne	Lc813
+	sec
+	jmp	Lc949
+Lc81f:	lda	iwm_ph_0_on,x
+	ldy	#$05
+	lda	#$ff
+	sta	iwm_q7h,x
+Lc829:	lda	Dc950,y
+Lc82c:	asl	iwm_q6l,x
+	bcc	Lc82c
+	sta	iwm_q6h,x
+	dey
+	bpl	Lc829
+	lda	Z5a
+	ora	#$80
+	jsr	Sc9d8
+	jsr	Sc9d6
+	lda	Z5b
+	jsr	Sc9d8
+	jsr	Sc9d6
+	jsr	Sc9d6
+	lda	Z4c
+	ora	#$80
+	jsr	Sc9d8
+	lda	Z4b
+	ora	#$80
+	jsr	Sc9d8
+	lda	Z4c
+	beq	Lc873
+	ldy	#$ff
+	lda	Z59
+Lc862:	asl	iwm_q6l,x
+	bcc	Lc862
+	sta	iwm_q6h,x
+	iny
+	lda	(Z54),y
+	ora	#$80
+	cpy	Z4c
+	bcc	Lc862
+Lc873:	lda	Z4b
+	bne	Lc87a
+	jmp	Lc913
+Lc87a:	nop
+	ldy	#$00
+Lc87d:	lda	Z41
+	sta	iwm_q6h,x
+	lda	Z4d
+	ora	#$80
+	sty	Z59
+Lc888:	ldy	iwm_q6l,x
+	bpl	Lc888
+	sta	iwm_q6h,x
+	ldy	Z59
+	lda	(Z56),y
+	sta	Z4d
+	asl
+	rol	Z41
+	iny
+	bne	Lc8a1
+	inc	Z57
+	jmp	Lc8a3
+Lc8a1:	pha
+	pla
+Lc8a3:	lda	#$02
+	ora	Z41
+	sta	Z41
+	lda	Z4e
+	ora	#$80
+	sta	iwm_q6h,x
+	lda	(Z56),y
+	sta	Z4e
+	asl
+	rol	Z41
+	iny
+	lda	Z4f
+	ora	#$80
+	sta	iwm_q6h,x
+	lda	(Z56),y
+	sta	Z4f
+	asl
+	rol	Z41
+	iny
+	lda	Z50
+	ora	#$80
+	sta	iwm_q6h,x
+	lda	(Z56),y
+	sta	Z50
+	asl
+	rol	Z41
+	iny
+	bne	Lc8dd
+	inc	Z57
+	jmp	Lc8df
+Lc8dd:	pha
+	pla
+Lc8df:	lda	Z51
+	ora	#$80
+	sta	iwm_q6h,x
+	lda	(Z56),y
+	sta	Z51
+	asl
+	rol	Z41
+	iny
+	lda	Z52
+	ora	#$80
+	sta	iwm_q6h,x
+	lda	(Z56),y
+	sta	Z52
+	asl
+	rol	Z41
+	iny
+	lda	Z53
+	ora	#$80
+	sta	iwm_q6h,x
+	lda	(Z56),y
+	sta	Z53
+	asl
+	rol	Z41
+	iny
+	dec	Z4b
+	beq	Lc913
+	jmp	Lc87d
+Lc913:	lda	Z40
+	ora	#$aa
+Lc917:	ldy	iwm_q6l,x
+	bpl	Lc917
+	sta	iwm_q6h,x
+	lda	Z40
+	lsr
+	ora	#$aa
+	jsr	Sc9d8
+	lda	#$c8
+	jsr	Sc9d8
+Lc92c:	lda	iwm_q6l,x
+	and	#$40
+	bne	Lc92c
+	sta	iwm_q6h,x
+	ldy	#$0a
+Lc938:	dey
+	bne	Lc943
+	lda	#$01
+
+Sc93d:	jsr	Sca1f
+	sec
+	bcs	Lc949
+Lc943:	lda	iwm_q7l,x
+	bmi	Lc938
+	clc
+Lc949:	lda	iwm_ph_0_off,x
+	lda	iwm_q6l,x
+	rts
+
+
+Dc950:	fcb	$c3,$ff,$fc,$f3,$cf,$3f
+
+
+	jsr	Sc95b
+	nop
+	nop
+Sc95b:	nop
+	rts
+
+Lc95d:	jmp	Sc93d
+
+Sc960:	lda	#$00
+	sta	Z40
+	lda	Z54
+	sta	Z56
+	lda	Z55
+	sta	Z57
+
+	lda	#$21	; point Z52 at LCn21
+	sta	Z52
+	lda	slot
+	clc
+	adc	#$c0
+	sta	Z53
+
+	jsr	Sca05
+	lda	iwm_q6h,x
+Lc97d:	lda	iwm_q7l,x
+	bpl	Lc97d
+	lda	iwm_ph_0_on,x
+	ldy	#$1e
+Lc987:	lda	iwm_q6l,x
+	bpl	Lc987
+	dey
+	bmi	Lc95d
+	cmp	#$c3
+	bne	Lc987
+	ldy	#$06
+Lc995:	lda	iwm_q6l,x
+	bpl	Lc995
+	and	#$7f
+	sta	Z4b,y
+	eor	#$80
+	eor	Z40
+	sta	Z40
+	dey
+	bpl	Lc995
+	lda	Z4c
+	beq	Lc9d3
+	clc
+	adc	Z54
+	sta	Z56
+	lda	Z55
+	adc	#$00
+	sta	Z57
+	ldy	#$00
+Lc9b9:	lda	iwm_q6l,x
+	bpl	Lc9b9
+	asl
+	sta	Z41
+Lc9c1:	lda	iwm_q6l,x
+	bpl	Lc9c1
+	asl	Z41
+	bcs	Lc9cc
+	eor	#$80
+Lc9cc:	sta	(Z54),y
+	iny
+	cpy	Z4c
+	bcc	Lc9c1
+Lc9d3:	jmp	(Z52)
+
+Sc9d6:	lda	#$80
+
+Sc9d8:	ldy	iwm_q6l,x
+	bpl	Sc9d8
+	sta	iwm_q6h,x
+	eor	Z40
+	sta	Z40
+	rts
+
+Sc9e5:	jsr	Sca0f
+	lda	iwm_ph_0_on,x
+	lda	iwm_ph_2_on,x
+	ldy	#$50
+	jsr	Sc9f8
+	jsr	Sca0f
+	ldy	#$0a
+
+Sc9f8:	jsr	Sc9ff
+	dey
+	bne	Sc9f8
+	rts
+
+Sc9ff:	ldx	#$c8
+Lca01:	dex
+	bne	Lca01
+	rts
+
+Sca05:	jsr	Sca1f
+	lda	iwm_ph_1_on,x
+	lda	iwm_ph_3_on,x
+	rts
+
+Sca0f:	jsr	Sca1f
+	lda	iwm_ph_0_off,x
+	lda	iwm_ph_1_off,x
+	lda	iwm_ph_2_off,x
+	lda	iwm_ph_3_off,x
+	rts
+
+Sca1f:	lda	slot
+	asl
+	asl
+	asl
+	asl
+	tax
+	rts
+
+
+Dca27:	fcb	$80,$80,$80,$80,$80,$80,$80,$80
+	fcb	$00,$00,$00,$00,$00,$00,$00,$00
+
+Dca37:	fcb	$80,$80,$80,$80,$00,$00,$00,$00
+	fcb	$80,$80,$80,$80,$00,$00,$00,$00
+
+Dca47:	fcb	$80,$80,$00,$00,$80,$80,$00,$00
+	fcb	$80,$80,$00,$00,$80,$80,$00,$00
+
+Dca57:	fcb	$80,$00,$80,$00,$80,$00,$80,$00
+	fcb	$80,$00,$80,$00,$80,$00,$80,$00
+
+
+Sca67:	lda	#$05
+	ldy	#$00
+	jsr	Sca8a
+	bcc	Lca75
+	lda	#$80
+	jsr	Scded
+Lca75:	rts
+
+Sca76:	jsr	Sca8a
+	bcc	Lca75
+	lda	#$80
+	jsr	Scded
+	lda	gh_06f8
+	sta	Z4d
+	lda	gh_0778
+	sta	Z4e
+
+Sca8a:	lda	#$b8
+	ldy	#$0b
+	ldx	slot
+	sta	sh_04f8,x
+	tya
+	sta	sh_0578,x
+Lca97:	lda	Z4d
+	sta	gh_06f8
+	lda	Z4e
+	sta	gh_0778
+	jsr	Sc800
+	lda	gh_06f8
+	sta	Z4d
+	lda	gh_0778
+	sta	Z4e
+	bcc	Lcabc
+	ldx	slot
+	dec	sh_04f8,x
+	bne	Lca97
+	dec	sh_0578,x
+	bpl	Lca97
+Lcabc:	rts
+
+Scabd:	ldy	slot
+	lda	#$05
+	sta	sh_04f8,y
+Lcac4:	jsr	Sc960
+	bcc	Lcad8
+	ldy	#$01
+	jsr	Sc9f8
+	jsr	Sc93d
+	ldx	slot
+	dec	sh_04f8,x
+	bne	Lcac4
+Lcad8:	rts
+
+
+Dcad9:	fcb	$00,$24,$49
+Dcadc:	fcb	$00,$04,$01
+Dcadf:	fcb	$00,$01,$02,$04,$09,$12
+Dcae5:	fcb	$00,$01,$02,$04,$01,$02
+Dcaeb:	fcb	$00,$7f,$ff
+
+Scaee:	ldx	Z4e
+	beq	Lcb05
+	lda	Z55
+	sta	Z57
+	lda	#$80
+	cpx	#$01
+	beq	Lcb00
+	inc	Z57
+	lda	#$00
+Lcb00:	clc
+	adc	Z54
+	sta	Z56
+Lcb05:	lda	Dcad9,x
+	sta	Z4b
+	lda	Dcadc,x
+	sta	Z4c
+	ldx	#$05
+	lda	Z4d
+	sta	Z59
+	and	#$07
+	tay
+Lcb18:	asl	Z59
+	bcc	Lcb31
+	lda	Dcae5,x
+Lcb1f:	clc
+	adc	Z4c
+	cmp	#$07
+	bcc	Lcb28
+	sbc	#$07
+Lcb28:	sta	Z4c
+	lda	Dcadf,x
+	adc	Z4b
+	sta	Z4b
+Lcb31:	dex
+	bmi	Lcb3a
+	bne	Lcb18
+	tya
+	jmp	Lcb1f
+Lcb3a:	lda	Z55
+	pha
+	lda	#$00
+	ldx	Z4e
+	beq	Lcb59
+	ldy	Dcaeb,x
+Lcb46:	eor	(Z54),y
+	eor	(Z56),y
+	dey
+	bne	Lcb46
+	eor	(Z54),y
+	eor	(Z56),y
+	cpx	#$01
+	beq	Lcb57
+	inc	Z55
+Lcb57:	inc	Z55
+Lcb59:	ldy	Z4d
+	beq	Lcb66
+	eor	(Z54),y
+Lcb5f:	eor	(Z54),y
+	dey
+	bne	Lcb5f
+	eor	(Z54),y
+Lcb66:	sta	Z40
+	pla
+	sta	Z55
+	ldy	Z4c
+	dey
+	lda	#$00
+	sta	Z59
+Lcb72:	lda	(Z54),y
+	asl
+	ror	Z59
+	dey
+	bpl	Lcb72
+	sec
+	ror	Z59
+	lda	Z4c
+	clc
+	adc	Z54
+	sta	Z56
+	lda	Z55
+	adc	#$00
+	sta	Z57
+	ldy	#$06
+Lcb8c:	sec
+	lda	(Z56),y
+	sta	Z4d,y
+	bmi	Lcb95
+	clc
+Lcb95:	ror	Z41
+	dey
+	bpl	Lcb8c
+	sec
+	ror	Z41
+	lda	Z56
+	clc
+	adc	#$07
+	sta	Z56
+	bcc	Lcba8
+	inc	Z57
+Lcba8:	rts
+
+Scba9:	lda	iwm_motor_off,x
+	lda	iwm_q6h,x
+	jmp	Lcbb6
+Lcbb2:	tya
+	sta	iwm_q7h,x
+Lcbb6:	tya
+	eor	iwm_q7l,x
+	and	#$1f
+	bne	Lcbb2
+	rts
+
+Scbbf:	lda	Z4b
+	tay
+	ldx	#$00
+	stx	Z4b
+	ldx	#$03
+Lcbc8:	asl
+	rol	Z4b
+	dex
+	bne	Lcbc8
+	clc
+	adc	Z4c
+	bcc	Lcbd5
+	inc	Z4b
+Lcbd5:	sty	Z4c
+	sec
+	sbc	Z4c
+	bcs	Lcbde
+	dec	Z4b
+Lcbde:	ldy	Z4b
+	rts
+
+
+shared_rom_entry:
+	bcc	execute_command
+	jmp	boot
+
+execute_command:
+	cld
+	txa
+	tay
+
+	lda	sh_prodos_flag,y		; ProDOS or SmartPort?
+	bmi	Lcbff
+
+; SmartPort
+	pla			; save ptr to SmartPort cmd num (offset 1)
+	sta	sh_05f8,y
+
+	clc			; advance past cmd num and parm list ptr (low byte)
+	adc	#$03
+	tax
+
+	pla			; save ptr to SmartPort cmd num (offset 1)
+	sta	sh_0678,y
+
+	adc	#$00		; advance past cmd num and parm list ptr (high byte)
+
+	pha			; push advanced return address back onto stack
+	txa
+	pha
+
+; ProDOS
+Lcbff:	php
+	sei
+	ldx	#$1b
+Lcc03:	lda	Z40,x
+	pha
+	dex
+	bpl	Lcc03
+	sty	slot
+	lda	sh_06f8,y
+	cmp	#$a5
+	bne	Lcc19
+	eor	#$ff
+	eor	sh_0778,y
+	beq	Lcc1e
+Lcc19:	lda	#$00
+	jsr	Scded
+
+Lcc1e:	lda	Z43
+	rol
+	php
+	rol
+	rol
+	plp
+	rol
+	and	#$03
+	eor	#$02
+	cpy	#$04
+	bcs	Lcc30
+	eor	#$02
+Lcc30:	tax
+	inx
+	stx	Z43
+	lda	sh_prodos_flag,y	; ProDOS or SmartPort?
+	bpl	Lcc3c
+
+	jmp	Lcccf
+
+; SmartPort
+Lcc3c:	lda	sh_05f8,y	; set Z54 to point to cmd num -1
+	sta	Z54
+	lda	sh_0678,y
+	sta	Z55
+
+	ldy	#$01		; copy SmartPort command to Z42
+	lda	(Z54),y
+	sta	Z42
+	iny
+
+	lda	(Z54),y		; copy SmartPort arg list pointer to Z54
+	tax
+	iny
+	lda	(Z54),y
+	sta	Z55
+	stx	Z54
+
+	lda	#$01
+
+	ldx	Z42		; SmartPort command in range ($00 to $09)?
+	cpx	#$0a
+	bcc	Lcc62
+
+Lcc5f:	jmp	Lcd9f
+
+Lcc62:	ldy	#$00
+	lda	(Z54),y
+	sta	Z5a
+	ldy	#$08
+Lcc6a:	lda	(Z54),y
+	sta	Z42,y
+	dey
+	bne	Lcc6a
+	lda	Z43
+	bne	Lcccf
+	ldx	Z42
+	lda	Dcde3,x
+	and	#$7f
+	tay
+	lda	#$04
+	cpy	Z5a
+	bne	Lcc5f
+	cpx	#$05
+	bne	Lcc92
+	lda	#$00
+	jsr	Scded
+Lcc8d:	lda	#$00
+	jmp	Lcdc1
+Lcc92:	txa
+	bne	Lccb8
+	lda	#$21
+	ldx	Z46
+	bne	Lcc5f
+	txa
+	ldx	slot
+	ldy	#$07
+Lcca0:	sta	(Z44),y
+	dey
+	bne	Lcca0
+	lda	sh_07f8,x
+	sta	(Z44),y
+	iny
+	lda	#$00
+	sta	(Z44),y
+	lda	#$08
+	dey
+	jsr	Sce4f
+	jmp	Lcc8d
+Lccb8:	cmp	#$04
+	bne	Lccc7
+	ldx	Z46
+	beq	Lcccb
+	dex
+	beq	Lcccb
+	lda	#$21
+Lccc5:	bne	Lcc5f
+Lccc7:	lda	#$11
+	bne	Lcc5f
+Lcccb:	lda	#$1f
+	bne	Lcc5f
+
+; ProDOS
+Lcccf:	lda	#$28
+	ldy	slot
+	ldx	sh_07f8,y
+	cpx	Z43
+	bcc	Lccc5
+
+	lda	#$09
+	sta	Z4d
+	lda	#$00
+	sta	Z4e
+	sta	Z55
+	lda	#$42
+	sta	Z54
+	ldx	slot
+
+	lda	sh_prodos_flag,x	; ProDOS or SmartPort?
+	bpl	Lcd02
+
+	ldx	Z42
+	lda	Dcde3,x
+	and	#$7f
+	sta	Z5a
+	lda	#$00
+	sta	Z48
+	lda	Z42
+	bne	Lcd02
+	sta	Z46
+Lcd02:	lda	Z5a
+	ldx	Z43
+	stx	Z5a
+	sta	Z43
+	lda	#$80
+	sta	Z5b
+	jsr	Sca0f
+	jsr	Sca76
+	bcs	Lcd5c
+	lda	Z44
+	sta	Z54
+	lda	Z45
+	sta	Z55
+	ldx	Z42
+	lda	Dcde3,x
+	bpl	Lcd60
+	cpx	#$04
+	bne	Lcd41
+	ldy	#$01
+	lda	(Z54),y
+	tax
+	dey
+	lda	(Z54),y
+	pha
+	clc
+	lda	#$02
+	adc	Z54
+	sta	Z54
+	pla
+	bcc	Lcd4f
+	inc	Z55
+	jmp	Lcd4f
+Lcd41:	cpx	#$02
+	bne	Lcd4b
+	lda	#$00
+	ldx	#$02
+	bne	Lcd4f
+Lcd4b:	ldx	Z47
+	lda	Z46
+Lcd4f:	stx	Z4e
+	sta	Z4d
+	lda	#$82
+	sta	Z5b
+	jsr	Sca67
+	bcc	Lcd60
+Lcd5c:	lda	#$06
+	bne	Lcd9f
+Lcd60:	ldy	slot
+	lda	sh_prodos_flag,y	; ProDOS or SmartPort?
+	bpl	Lcd73
+	lda	Z42
+	bne	Lcd73
+	lda	#$45
+	ldx	#$00
+	sta	Z54
+	stx	Z55
+Lcd73:	jsr	Scabd
+	bcs	Lcd5c
+	jsr	Scbbf
+	jsr	Sce4f
+	lda	Z42
+	bne	Lcd9d
+	ldx	slot
+	lda	sh_prodos_flag,x	; ProDOS or SmartPort?
+	bpl	Lcd9d
+	lda	Z46
+	sta	sh_05f8,x
+	lda	Z47
+	sta	sh_0678,x
+	lda	Z45
+	and	#$10
+	bne	Lcd9d
+	lda	#$2f
+	bne	Lcd9f
+Lcd9d:	lda	Z4d
+Lcd9f:	ldy	slot
+	sta	sh_04f8,y
+	tax
+	beq	Lcdc1
+	ldx	sh_prodos_flag,y	; ProDOS or SmartPort?
+	bpl	Lcdc1
+	ldx	#$00
+	cmp	#$40
+	bcs	Lcdc0
+	ldx	#$27
+	cmp	#$2b
+	beq	Lcdc1
+	cmp	#$28
+	beq	Lcdc1
+	cmp	#$2f
+	beq	Lcdc1
+Lcdc0:	txa
+Lcdc1:	ldy	slot
+	sta	sh_0578,y
+	ldx	#$00
+Lcdc8:	pla
+	sta	Z40,x
+	inx
+	cpx	#$1c
+	bcc	Lcdc8
+	plp
+	lda	sh_05f8,y
+	tax
+	lda	sh_0578,y
+	pha
+	lda	sh_0678,y
+	tay
+	clc
+	pla
+	beq	Lcde2
+	sec
+Lcde2:	rts
+
+
+Dcde3:	fcb	$03,$03,$83,$01,$83,$01,$01,$01
+	fcb	$03,$83
+
+
+Scded:	pha
+	jsr	Sc9e5
+	pla
+	tax
+	lda	Z42
+	pha
+	lda	Z43
+	pha
+	lda	Z46
+	pha
+	stx	Z46
+	lda	#$05
+	sta	Z42
+	lda	#$00
+	sta	Z5a
+	lda	#$02
+	sta	Z43
+	lda	#$42
+	sta	Z54
+	lda	#$00
+	sta	Z55
+	lda	#$80
+	sta	Z5b
+	jsr	Sca0f
+Lce19:	inc	Z5a
+	lda	#$09
+	sta	Z4d
+	lda	#$00
+	sta	Z4e
+	jsr	Sc800
+	bcc	Lce2d
+	dec	Z5a
+	jmp	Lce34
+Lce2d:	jsr	Sc960
+	lda	Z4d
+	beq	Lce19
+Lce34:	lda	Z5a
+	ldy	slot
+	sta	sh_07f8,y
+	pla
+	sta	Z46
+	pla
+	sta	Z43
+	pla
+	sta	Z42
+	lda	#$a5
+	sta	sh_06f8,y
+	eor	#$ff
+	sta	sh_0778,y
+	rts
+
+Sce4f:	ldx	slot
+	sta	sh_05f8,x
+	tya
+	sta	sh_0678,x
+	rts
+
+
+boot:	stx	slot
+	lda	#$aa
+	sta	sh_prodos_flag,x	; sets MSB, to indicate use of ProDOS protocol
+	sta	sh_06f8,x
+
+; copy boot_prodos_command_block into zero page for use
+	ldy	#boot_prodos_command_block_len - 1
+Lce65:	lda	boot_prodos_command_block,y
+	sta	Z42,y
+	dey
+	bpl	Lce65
+
+	lda	slot
+	asl
+	asl
+	asl
+	asl
+	sta	Z43
+
+	jsr	execute_command		; read the boot block
+	bcs	boot_error
+
+	ldx	D0800			; first byte of boot block must be 1
+	dex
+	bne	boot_error
+	
+	ldx	L0801			; second byte of boot block must be non-zero
+	beq	boot_error
+
+	lda	slot			; jump to boot block entry point
+	asl				; with slot * 16 in X
+	asl
+	asl
+	asl
+	tax
+	jmp	L0801
+
+boot_error:
+	jsr	mon_setvid
+	jsr	mon_setkbd
+	ldx	Z00
+	bne	Lcea4
+	ldx	Z01
+	cpx	gh_07f8
+	bne	Lcea4
+	jmp	mon_sloop
+
+Lcea4:	ldx	#23		; bottom line of display
+	stx	Z25
+	jsr	mon_vtab
+
+	lda	#$00
+	sta	Z24
+	ldx	#$00
+	ldy	slot
+	lda	sh_04f8,y
+	bne	Lceba
+	ldx	#msg_not_bootable - msg_tab
+Lceba:	cmp	#$28
+	bne	Lcec0
+	ldx	#msg_no_dev - msg_tab
+Lcec0:	cmp	#$2f
+	bne	Lcec6
+	ldx	#msg_no_disk - msg_tab
+
+; output error message with starting index in X
+Lcec6:	lda	msg_tab,x
+	beq	Lced1
+	jsr	mon_cout
+	inx
+	bne	Lcec6
+Lced1:	jmp	basic_cold
+
+
+msg_tab:
+	fcchz	"I/O ERROR"
+
+msg_not_bootable:
+	fcchz	"NOT A BOOTABLE DISK"
+
+msg_no_dev:
+	fcchz	"NO DEVICE CONNECTED"
+
+msg_no_disk:
+	fcchz	"NO DISK TO BOOT"
+
+
+boot_prodos_command_block:
+	fcb	$01 	; command
+	fcb	$50	; unit
+	fdb	D0800	; buffer
+	fdb	0	; block number
+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
+
+	fillto	$d000,$ff