iosb: .quad 0 ; iosb for all ddtm services tid: .blkw 8 ; tid for all ddtm services delay: .float .25 .entry start, ^m<> 0$: $start_transw_s - ; start iosb=iosb,- ; the tid=tid ; transaction blbc r0,10$ blbc iosb,10$ ; check the iosb bsbw wait $end_transw_s - ; end iosb=iosb,- ; the tid=tid ; transaction blbc r0,10$ blbc iosb,10$ ; check the iosb bsbw wait brb 0$ 10$: ret wait: pushal delay calls #1,g^lib$wait rsb .end start