.TITLE PSPCE -- SKIP OVER LEADING CTRL CHARS AND SPACES .IDENT /790717/ .GLOBL FB.EOF ; $$SPCE: SKIP OVER LEADING CTRL CHARS AND SPACES ; REGISTER USAGE ; R0: SCRATCH ; R1: POINTER TO FILE BLOCK ; .GLOBL $$$021 .PSECT P.SPCE:: CMPB #' ,@(R1) ;SKIP OVER SPACES AND CONTROL CHARS BLO 1$ MOV R1,-(SP) JSR PC,$$$021 ;BUMP TO NEXT CHARACTER TSTB FB.EOF(R1) ;EOF SET? BNE 1$ ;YES, ABORT SCAN BR P.SPCE 1$: RTS PC .END