.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