*
* dmp_tasks - Print task tables
*
dmp_tasks pshs d,x,y,u
 ldx #00f
 jsr DB_pdata
 ldy #tsktab
 jsr DB_pcrlf
10 lda tsstat,y only print non-free tasks
 cmpa #TFREE
 beq 20f
 tfr y,d
 jsr DB_phex2
 ldx #01f
 jsr DB_pdata
 ldd tsstat,y
 jsr DB_phex2
 ldx #01f
 jsr DB_pdata
 ldu umark0,y
 lda tsstat,y task sleeping?
 cmpa #TSLEEP
 bne 12f no
 ldd 0+7,u PC - in sleep
 bra 15f
12 ldd 0,u PC - from interrupt
15 jsr DB_phex2
 jsr DB_outsp
 ldd tsevnt,y
 jsr DB_phex2 event
 jsr DB_outsp
 jsr DB_pcrlf
20 leay TSKSIZ,y
 cmpy #end_vars
 bne 10b
99 puls d,x,y,u,pc
00 fcc $d,'Task  State  PC   Event',0
01 fcc '  ',0
