.TITLE PADRIGHT .IDENT /830812/ ;PADS OUT A STRING WITH SPACES ON THE RIGHT TO MAKE IT A REQUIRED LENGTH ; ;REGISTER USAGE : ; R0 SCRATCH ; R1 SCRATCH ; R2 MAXIMUM LENGTH ; R3 PAD LENGTH ; R4 STRING PADRIGHT:: MOV SP,R0 MOV (R0),R1 MOV R2,(R0)+ MOV (R0),R2 ;MAXIMUM LENGTH MOV R3,(R0)+ MOV (R0),R3 ;PAD LENGTH MOV R4,(R0)+ MOV (R0),R4 ;POINTER TO STRING MOV R1,(R0) ; TST R3 BLE 4$ ;FUNNY PAD LENGTH CMP R3,R2 ;SEE IF ALLOWABLE BGT 4$ ; 1$: TSTB (R4)+ ;FIND END OF STRING BEQ 2$ SOB R3,1$ BR 4$ ; 2$: DEC R4 3$: MOVB #' ,(R4)+ ;PAD OUT WITH SPACES SOB R3,3$ CLRB (R4) ;ADD END OF STRING INDICATOR ; 4$: MOV (SP)+,R2 MOV (SP)+,R3 MOV (SP)+,R4 RTS PC .END