.title Kill all TCPIP messages .mcall .exit killm: mov #argmnt,r1 ;argument block mov #tcpip,2(r1) 1$: mov r1,r0 emt 375 bcc 1$ mov #32.,r2 2$: mov #argmnt,r1 ;argument block mov #userid,2(r1) 3$: mov r1,r0 emt 375 bcc 3$ incb userid+5 cmpb #'9,userid+5 bhis 4$ movb #'0,userid+5 incb userid+4 4$: dec r2 bge 2$ .exit argmnt: .byte 0,105 ;argument block .word 0 .word data .word 16. data: .blkb 16. ;16-byte message buffers tcpip: .ascii /TCPIP / ;TCPIP message channel userid: .ascii /USER00/ ;USER channels .end killm