nuclear@0: | vi:filetype=gas68k:
nuclear@0: 	.equ CMD_READ, 2
nuclear@2: 	.equ EXEC_DO_IO, -0x1c8
nuclear@2: 	.equ LOADADDR,	0x10000
nuclear@0: 
nuclear@2: start:
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@2: 	move.l -6(%pc), %d0		| get program size
nuclear@2: 	move.w #0x080, 0xdff180
nuclear@1: 	move.l %d0, 0x24(%a1)		| I/O length
nuclear@2: 	move.l #LOADADDR, 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: 	jsr EXEC_DO_IO(%a6)
nuclear@2: 	move.w #0xf0f, 0xdff180
nuclear@0: 
nuclear@2: 	jmp LOADADDR
nuclear@0: 	.align 4