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