Trailing-Edge
-
PDP-10 Archives
-
steco_19840320_1er_E35
-
10,5676/teco/macros/ht.tco
There is 1 other file named ht.tco in the archive. Click here to see a list.
!;HT - Types current page. For use with HA macro.!
[0 [1 [2 !;Save Q-regs!
.U0 !;Save current pointer!
0U1 !;Init lower bound!
:-S^E<14>$"L .U1 ' !;Search back for FF!
Q0J !;Go back to starting place!
ZU2 !;Init upper bound!
:S^E<14>$"L .-1U2 ' !;Search forward for FF!
Q1,Q2T !;Type the text!
Q0J !;Restore pointer!
]2 ]1 ]0 !;Restore Q-regs!