;16 22 in - Result of last read/write operation.
; 0x00 = ok, 0xff = error (--> Bad Sector)
;
-;40 64-71 in/out - Timer/Clock controll.
+;40 64-71 in/out - Timer/Clock control.
;46
.dw uartout
.db 13,9 ; Port 13-21, (lenth 9)
- .dw dsk_param_rd
- .dw dsk_param_wr
+ .dw dsk_param_get
+ .dw dsk_param_set
.db 22,1
.dw dskErrorRet
.dw dskDoIt
.db TIMERPORT,7
.dw clockget
.dw clockput
+
+ .db DEBUGPORT,1
+ .dw dbg_stat
+ .dw dbg_ctrl
.db 0,0 ; Stop mark
;---------------------------------------------------------------------
clt
vprw_start:
+ push yh
+ push yl
.if PORT_DEBUG > 1
tst temp2
brne dvp_1 ;don't debug console status
icall
rcall printhex
printstring " "
+ pop yl
+ pop yh
ret
dvp_2:
rcall printhex
printstring " "
- ijmp ; relative port # in temp3
+ ; relative port # in temp3
+ icall
+ pop yl
+ pop yh
+ ret
.else
- ijmp
+ icall
+ pop yl
+ pop yh
+ ret
.endif
vprw_exit:
vport_in_dummy:
ldi temp,0xff
vport_out_dummy:
+ pop yl
+ pop yh
ret
ret
+dbg_stat:
+ ldi temp,0
+ ret
+
+dbg_ctrl:
+ bmov intstat,i_trace, temp,0
+ ret
+
+
+
;---------------------------------------------------------------------
; vim:set ts=8 noet nowrap