Trailing-Edge
-
PDP-10 Archives
-
steco_19840320_1er_E35
-
10,5676/teco/macros/acom.tec
There is 1 other file named acom.tec in the archive. Click here to see a list.
!ACOM - Align comments in a MACRO program !
!This macro aligns all comments in a MACRO source program on column 32, !
!except those which start at the left margin. If the source line extends!
!beyond column 32, one space is inserted between the last character and !
!the semi-colon. ACOM lists all lines it changes. It will close the !
!file and exit to the monitor when it finishes. To execute, run TECO !
!and type "EIACOM$$". !
HK
FILE:
!HEAD!^TU1
(Q1-127)"E(.-1,.)T-DOHEAD'
(Q1-8)"E -D OHEAD'
Q1I
(Q1-10)"NOHEAD'
@I:: R -D J IEB HXY HK MY
<N;;0L0UT
!START!
0UC0US
!LOOP!
(1A-59)"EOOUT'
(1A-9)"E(((QC+8)/8)*8)-1UCQCUS'
(1A-32)"EQCUS'
(QC+1)UCC
OLOOP
!OUT!
QC"EOEND'
(QC-32)"LI R-1UTOLOOP'
(QC-32)"GOOUT1'
(QC-(QS+1))"EOEND'
!OUTI!I -1UTOEND
!OUT1!
(QC-(QS+1))"NOOUTI'
-D0L-1UTOSTART
!END!
QT"N0TT'
L> EX