First version of transcribed disk II controller ROM

2025-01-11 10:29:48 +00:00 · 2018-01-29 01:24:40 -06:00 · 2018-01-29 01:24:40 -06:00 · e2e5f20e24
commit e2e5f20e24
parent 5812fb8672
1 changed files with 145 additions and 0 deletions
--- a/data/disk2.asm
+++ b/data/disk2.asm
@ -0,0 +1,145 @@
+			GBASL	EQU		$26
+			GBASH	EQU		$27
+			BAS2H	EQU		$2B
+			A1L		EQU		$3C
+			A1H		EQU		$3D
+			A3L		EQU		$40
+			A3H		EQU		$41
+			STACK	EQU		$0100
+			OFFPH0	EQU		$C080
+			ONPH0	EQU		$C081
+			TURNON	EQU		$C089
+			SLCTD1	EQU		$C08A
+			READ	EQU		$C08C
+			SETRD	EQU		$C08E
+			WAIT	EQU		$FCA8
+			IMMRTS	EQU		$FF58
+00:A2 20			LDX		#$20
+02:A0 00			LDY		#$00
+04:A2 03			LDX		#$03
+06:86 3C	SAVTMP	STX		A1L
+08:8A				TXA
+09:0A				ASL		A
+0A:24 3C			BIT		A1L
+0C:F0 10			BEQ		INCX
+0E:05 3C			ORA		A1L
+10:49 FF			ADC		#$FF
+12:29 7E			AND		#$7E
+14:B0 08	HASCRY	BCS		INCX
+16:4A				LSR		A
+17:D0 FB			BNE		HASCRY
+19:98				TYA
+1A:9D 56 03			STA		$0356,X
+1D:C8				INY
+1E:E8		INCX	INX
+1F:10 E5			BPL		SAVTMP
+21:20 58 FF			JSR		IMMRTS
+24:BA				TSX
+25:BD 00 01			LDA		STACK,X
+28:0A				ASL
+29:0A				ASL
+2A:0A				ASL
+2B:0A				ASL
+2C:85 2B			STA		$2B
+2E:AA				TAX
+2F:BD 8E C0			LDA		SETRD,X
+32:BD 8C C0			LDA		READ,X
+35:BD 8A C0			LDA		SLCTD1,X
+38:BD 89 C0			LDA		TURNON,X
+3B:A0 50			LDY		#$50
+3D:BD 80 C0			LDA		OFFPH0,X
+40:98				TYA
+41:29 03			AND		#$03
+43:0A				ASL
+44:05 2B			ORA		$2B
+46:AA				TAX
+47:BD 81 C0			LDA		ONPH0,X
+4A:A9 56			LDA		#$56
+4C:20 A8 FC			JSR		WAIT
+4F:88				DEY
+50:10 EB			BPL 	[3d]
+52:85 26			STA		GBASL
+54:85 3D			STA		A1H
+56:85 41			STA		A3H
+58:A9 08			LDA		#$08
+5A:85 27			STA		GBASH
+5C:18				CLC
+5D:08				PHP
+5E:BD 8C C0			LDA		READ,X
+61:10 FB			BPL		[5e]
+63:49 D5			EOR		#$D5
+65:D0 F7			BNE		[5e]
+67:BD 8C C0			LDA		READ,X
+6A:10 FB			BPL		[67]
+6C:C9 AA			CMP		#$AA
+6E:D0 F3			BNE		[63]
+70:EA				NOP
+71:BD 8C C0			LDA		READ,X
+74:10 FB			BPL		[71]
+76:C9 96			CMP		#$96
+78:F0 09			BEQ		[83]
+7A:28				PLP
+7B:90 DF			BCC		[5c]
+7D:49 AD			EOR		#$AD
+7F:F0 25			BEQ		[a6]
+81:D0 D9			BNE		[5c]
+
+83:A0 03			LDY		#$03
+85:85 40			STA		A3L
+87:BD 8C C0			LDA		READ,X
+8A:10 FB			BPL		[87]
+8C:2A				ROL		A
+8D:85 3C			STA		A1L
+8F:BD 8C C0			LDA		READ,X
+92:10 FB			BPL		[8f]
+94:25 3C			AND		A1L
+96:88				DEY
+97:D0 EC			BNE		[85]
+99:28				PLP
+9A:C5 3D			CMP		A1H
+9C:D0 BE			BNE		[5c]
+9E:A5 40			LDA		A3L
+A0:C5 41			CMP		A3H
+A2:D0 B8			BNE		[5c]
+A4:B0 B7			BCS		[5d]		;; weird
+
+A6:A0 56			LDY		#$56
+A8:84 3C			STY		A1L
+AA:BC 8C C0			LDY		READ,X
+AD:10 FB			BPL		[aa]
+AF:59 D6 02			EOR		$02D6,X
+B2:A4 3C			LDY		A1L
+B4:88				DEY
+B5:99 00 03			STA		$0300,Y
+B8:D0 EE			BNE		[a8]
+BA:84 3C			STY		A1L
+BC:BC 8C C0			LDY		READ,X
+BF:10 FB			BPL		[bc]
+C1:59 D6 02			EOR		$02D6,X
+C4:A4 3C			LDY		A1L
+C6:91 26			STA		(GBASL),Y
+C8:C8				INY
+C9:D0 EF			BNE		[ba]
+CB:BC 8C C0			LDY		READ,X
+CE:10 FB			BPL		[cb]
+D0:59 D6 02			EOR		$02D6,X
+D3:D0 87			BNE		[5c]
+D5:A0 00			LDY		#$00
+D7:A2 56			LDX		#$56
+D9:CA				DEX
+DA:30 FB			BMI		[d7]
+DC:B1 26			LDA		(GBASL),Y
+DE:5E 00 03			LSR		$0300,X
+E1:2A				ROL		A
+E2:5E 00 03			STA		(GBASL),Y
+E5:2A				ROL		A
+E6:91 26			STA		(GBASL),Y
+E8:C8				INY
+E9:D0 EE			BNE		[d9]
+EB:E6 27			INC		GBASH
+ED:E6 3D			INC		A1H
+EF:A5 3D			LDA		A1H
+F1:CD 00 08			CMP		$0800
+F4:A6 2B			LDX		$2B
+F6:90 DB			BCC		[d3]
+F8:4C 01 08			JMP		$0801