-2,2 .IDENT /04.14/ -40,40 ; MRS02 12-SEP-80 CONTROL PRINTING OF ; AND ! COMMENTS... ; M. Stewart (WECO - Lisle, Ill) ; ; MRS03 12-SEP-80 INSERT WORD FOR STOQ STATEMENT -67 STOQF:: .WORD 0 ; Stop quietly flag word ;MRS03 -322,325 .IF DF R$$11D ;MRS02 .IFF ;MRS02 CMPB #';,(R1) ; A comment ;MRS02 BNE 22$ ; No then we need the > ;MRS02 INC R1 ; Skip over the ; ;MRS02 DEC R2 ; Two less in this case ;MRS02 21$: DEC R2 ; Lie about count... ;MRS02 BR 25$ ; Continue now ;MRS02 22$: CMPB #'!,(R1) ; Another flavor comment? ;MRS02 BEQ 21$ ; No comment ;MRS02 24$: .IFTF MOVB #'>,-(R1) ; Y - PREFIX 25$: .IFT -347 BEQ 30$ ; Skip out if nothing ;MRS02 /