;recode ;name W2 ;assert 1 ;author Douglas McDaniels ; ITIP DAT # 0 WHERE DAT # 0 COUNT DAT # 0 U DAT # 0 START SPL ART TT MOV U, WHERE MOV #-128, COUNT RESTART MOV STALL2, < WHERE MOV STALL1, < WHERE SUB # 30, WHERE SUB # 31, COUNT DJN RESTART, COUNT SUB # 5, U DJN TT, A Q DAT #-30 ART MOV Q, < ITIP DJN ART, Q MOV #-30, Q MOV # 0, ITIP JMP ART STALL1 SPL 0 STALL2 JMP -1 A DAT # 6 END START