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