printnewline
printstring "Partinit done."
- lcall dsk_inval_hostbuf ;init (de)blocking buffer
+; Init (de)blocking buffer
+
+ lcall dsk_inval_hostbuf
; Read first sector of first CP/M partition (ipl)
ldiw x,IPLADDR
stsw dmaadr,x
- lcall dsk_read
+ ldi temp,1<<READ_FUNC
+ lcall dskDoIt
; lift off
ljmp z80_init