; -*- Midas -*-

title KSDMP - Network boot KS10 using Unibus Chaosnet interface

define setf flag
ifdef flag,.stop
printc "flag==:"
.ttymac val
flag==:val
termin
termin

setf debugp

ife debugp, boot=:<1,,0>-100		; Traditional
ifn debugp, boot==:4000			; Debugging
lboot==:77				; Last word is for MACCR

loc boot

.insrt dsk:system;ksnet >
.insrt dsk:system;ksdefs >
.insrt dsk:syseng;chsdef >

boot:	jrst .+2
	skipa 1,[440700,,boot]
	jrst 4,.

constants
variables

ifg <.-boot>-lboot, .err Too big!

	end boot