.TITLE W3S .MCALL .W3B,.W3S .GLOBL .W3L,.W3S ; .MACRO .W3S S S: .BLKW 1 .W3S: MOV R0,-(SP) MOV S,R0 WSLOOP: TSTB (R0) BEQ WSRET .W3B (R0)+ BR WSLOOP WSRET: MOV (SP)+,R0 RETURN ; .MACRO .W3L L L: .BLKW 1 .W3L: .W3S L .W3B #15 .W3B #12 RETURN .END