MacIIROMDiskDriver/entry.s

.EQU	killCode,	 1
.EQU	noQueueBit,	 9
.EQU	kioTrap,	 6
.EQU	kioResult,	16
.EQU	kcsCode,	26
.EQU	JIODone,	0x08FC

dc.l	0x00000000, 0x00000000, 0x00000000, 0x00000000
dc.l	0x00000000, 0x00000000, 0x00000000, 0x00000000
.ascii	"\RDisk\0"
.align 4

DOpen:
	movem.l		%A0-%A1, -(%SP)
	bsr			RDiskOpen
	movem.l		(%SP)+, %A0-%A1
	rts

DClose:
	movem.l		%A0-%A1, -(%SP)
	bsr			RDiskClose
	movem.l		(%SP)+, %A0-%A1
	rts

DPrime:
	movem.l		%A0-%A1, -(%SP)
	bsr			RDiskPrime
	movem.l		(%SP)+, %A0-%A1
	bra.b		IOReturn

DControl:
	movem.l		%A0-%A1, -(%SP)
	bsr			RDiskControl
	movem.l		(%SP)+, %A0-%A1
	cmpi.w		#killCode, kcsCode(%A0)
	bne.b		IOReturn
	rts

DStatus:
	movem.l		%A0-%A1, -(%SP)
	bsr			RDiskStatus
	movem.l		(%SP)+, %A0-%A1

IOReturn:
	move.w		kioTrap(%A0), %D1
	btst		#noQueueBit, %D1
	beq.b		Queued

NotQueued:
	tst.w		%D0
	ble.b		ImmedRTS
	clr.w		%D0

ImmedRTS:
	move.w		%D0, kioResult(%A0)
	rts

Queued:
	tst.w		%D0
	ble.b		MyIODone
	clr.w		%D0
	rts

MyIODone:
	move.l		JIODone, -(%SP)
	rts
Works but read-only 2020-06-26 07:12:08 +00:00			`.EQU killCode, 1`
			`.EQU noQueueBit, 9`
			`.EQU kioTrap, 6`
			`.EQU kioResult, 16`
			`.EQU kcsCode, 26`
			`.EQU JIODone, 0x08FC`

With boot patch 2020-06-30 01:08:50 +00:00			`dc.l 0x00000000, 0x00000000, 0x00000000, 0x00000000`
			`dc.l 0x00000000, 0x00000000, 0x00000000, 0x00000000`
Removed boot patch 2020-07-02 05:06:41 +00:00			`.ascii "\RDisk\0"`
With boot patch 2020-06-30 01:08:50 +00:00			`.align 4`

Works but read-only 2020-06-26 07:12:08 +00:00			`DOpen:`
With boot patch 2020-06-30 01:08:50 +00:00			`movem.l %A0-%A1, -(%SP)`
Works but read-only 2020-06-26 07:12:08 +00:00			`bsr RDiskOpen`
With boot patch 2020-06-30 01:08:50 +00:00			`movem.l (%SP)+, %A0-%A1`
Works but read-only 2020-06-26 07:12:08 +00:00			`rts`

			`DClose:`
With boot patch 2020-06-30 01:08:50 +00:00			`movem.l %A0-%A1, -(%SP)`
Works but read-only 2020-06-26 07:12:08 +00:00			`bsr RDiskClose`
With boot patch 2020-06-30 01:08:50 +00:00			`movem.l (%SP)+, %A0-%A1`
Works but read-only 2020-06-26 07:12:08 +00:00			`rts`

			`DPrime:`
With boot patch 2020-06-30 01:08:50 +00:00			`movem.l %A0-%A1, -(%SP)`
Works but read-only 2020-06-26 07:12:08 +00:00			`bsr RDiskPrime`
With boot patch 2020-06-30 01:08:50 +00:00			`movem.l (%SP)+, %A0-%A1`
Works but read-only 2020-06-26 07:12:08 +00:00			`bra.b IOReturn`

			`DControl:`
With boot patch 2020-06-30 01:08:50 +00:00			`movem.l %A0-%A1, -(%SP)`
Works but read-only 2020-06-26 07:12:08 +00:00			`bsr RDiskControl`
With boot patch 2020-06-30 01:08:50 +00:00			`movem.l (%SP)+, %A0-%A1`
Works but read-only 2020-06-26 07:12:08 +00:00			`cmpi.w #killCode, kcsCode(%A0)`
			`bne.b IOReturn`
			`rts`

			`DStatus:`
With boot patch 2020-06-30 01:08:50 +00:00			`movem.l %A0-%A1, -(%SP)`
Works but read-only 2020-06-26 07:12:08 +00:00			`bsr RDiskStatus`
With boot patch 2020-06-30 01:08:50 +00:00			`movem.l (%SP)+, %A0-%A1`
Works but read-only 2020-06-26 07:12:08 +00:00
			`IOReturn:`
With boot patch 2020-06-30 01:08:50 +00:00			`move.w kioTrap(%A0), %D1`
			`btst #noQueueBit, %D1`
Works but read-only 2020-06-26 07:12:08 +00:00			`beq.b Queued`

			`NotQueued:`
			`tst.w %D0`
			`ble.b ImmedRTS`
			`clr.w %D0`

			`ImmedRTS:`
With boot patch 2020-06-30 01:08:50 +00:00			`move.w %D0, kioResult(%A0)`
Works but read-only 2020-06-26 07:12:08 +00:00			`rts`

			`Queued:`
			`tst.w %D0`
			`ble.b MyIODone`
			`clr.w %D0`
			`rts`

			`MyIODone:`
With boot patch 2020-06-30 01:08:50 +00:00			`move.l JIODone, -(%SP)`
Works but read-only 2020-06-26 07:12:08 +00:00			`rts`