.TITLE W2S .MCALL .W2B,.W2S .GLOBL .W2L,.W2S S: .BLKW 1 .W2S: MOV R0,-(SP) MOV S,R0 WSLOOP: TSTB (R0) BEQ WSRET .W2B (R0)+ BR WSLOOP WSRET: MOV (SP)+,R0 RETURN L: .BLKW 1 .W2L: .W2S L .W2B #15 .W2B #12 RETURN .END