nuclear@0: | vi:filetype=gas68k:
nuclear@0: 	.equ CMD_READ, 2
nuclear@0: 
nuclear@0: 	.equ EXEC_DO_IO, -0x1c8
nuclear@0: 
nuclear@0: | starting with trackdisk device I/O request pointer in a1
nuclear@1: | load the program at 0x100 and jump there
nuclear@1: | program length is patched by mk_adf just before start
nuclear@0: start:
nuclear@1: 	move.l -6(%pc), %d0		| get binary size
nuclear@1: 	move.l %d0, 0x24(%a1)		| I/O length
nuclear@0: 	move.l #0x100, 0x28(%a1)	| I/O data pointer
nuclear@0: 	move.l #512, 0x2c(%a1)		| I/O offset (skip first sector)
nuclear@0: 	move.w #CMD_READ, 0x1c(%a1)	| I/O command
nuclear@0: 	move.l %a1, -(%sp)
nuclear@0: 	jsr EXEC_DO_IO(%a6)
nuclear@0: 	move.l (%sp)+, %a1
nuclear@0: 
nuclear@1: 	bra 0x100
nuclear@0: 	.align 4