
 1000  *SAVE S.AUTO/MAN
 1010  *--------------------------------
 1020         .OR $300
 1030  *      .TF AUTO/MAN TOGGLE
 1040  *--------------------------------
 1050  INCREMENT    .EQ $5A,5B
 1060  SYM.VALUE    .EQ $B8,B9
 1070  AUTO.FLAG    .EQ $E3
 1080   
 1090  WARM.START   .EQ $D028
 1100  GET.VALUE    .EQ $D198
 1110  AUTO.CMD     .EQ $D40B
 1120  INSTALL.CHAR .EQ $DB9A
 1130  *--------------------------------
 1140  AUTO.MAN.CODE
 1150         TXA               check cursor posn.
 1160         BEQ .1            OK to output cmd.
 1170         CPX #7            line start?
 1180         BGE .2            ignore ESC-U.
 1190         LSR AUTO.FLAG     cancel auto-mode.
 1200         JMP WARM.START
 1210   
 1220  .1     LDA AUTO.CMD,X    output cmd. name
 1230         JSR INSTALL.CHAR  put in buffer+scrn.
 1240         CPX #4            4 chars. output?
 1250         BNE .1            no.
 1260  .2     RTS               exit ESC-U routine
 1270  *-----------------------------
 1280  *  Point start of AUTO cmd. handler
 1290  *  to here for extended function.
 1300  *--------------------------------
 1310  NEW.AUTO.EXT
 1320         JSR GET.VALUE     get linenum if any.
 1330         JSR GET.VALUE     get inc. if any.
 1340         CPX #3            increment?
 1350         BLT .1            no
 1360         DEX               adjust for inc.
 1370         DEX                   do.
 1380         LDA SYM.VALUE     set inc. low byte
 1390         STA INCREMENT
 1400  *  (following 2 lines only needed
 1410  *   if you use increments of 255+!)
 1420  *      LDA SYM.VALUE+1   set inc. high byte
 1430  *      STA INCREMENT+1
 1440  .1     RTS               finish AUTO cmd.

