.TITLE TRUNS ; .MACRO .TRUNS W,L ;TRUNCATES STRING W TO LENGTH L. .GLOBL .TRUNS ;IF THE STRING IS SHORTER THAN L, L: .BLKW 1 ;IT IS PADDED WITH SPACES. W: .BLKW 1 .TRUNS: MOV R0,-(SP) MOV R1,-(SP) MOV W,R0 MOV L,R1 LOOP66: TSTB (R0)+ BEQ WW SOB R1,LOOP66 BR FINIS WW: DEC R0 LOOP62: MOVB #40,(R0)+ ;FILL REST OF STRING WITH SPACES SOB R1,LOOP62 FINIS: CLRB (R0) MOV (SP)+,R1 MOV (SP)+,R0 RETURN .END