title Debugging Kaypro Rom - Addendum
;
	entry	initdev, initvid, initdisk, outvid
	extrn	devinit, vidinit, diskinit, vidout
	extrn	bitport, bankbit, move
;
	cseg
;
outvid:	call	romon
	call	vidout
;	"	"
romoff:	in	a,(bitport)
	and	not bankbit
	out	(bitport),a
	ret
;
romon:	in	a,(bitport)
	or	bankbit
	out	(bitport),a
	ret
;
initvid:
	call	romon
	call	vidinit
	jp	romoff
;
initdev:
	call	devinit
	jp	romoff
;
initdisk:
	call	diskinit;	now must kill rom turnon at xfr
	ld	hl,move+8
	ld	(hl),0c9h;	a return code 
	ret
;
	end