( APPLICATIONS: - external eeprom autostart.
(                               - variables stay in ram
(                               - link all new words on power up.
( HARDWARE CONFIGS:
(               - eeprom jumpers from 8000 - 9FFF, 8k-byte
(               - ram jumpers from 0000 - 1FFF, 8k-byte


HEX

0 8000 EEC! ( kill previous autostart if present

COLD  

HEX

8080 30 !   ( assume eeprom is available at $8000, U3 socket

( assume ram is installed on U2 socket )
0200 CONSTANT RAM  EEWORD  0202 RAM !

: RAM-VARIABLE   RAM @ CONSTANT  2 RAM +! ; EEWORD    

: 2RAM-VARIABLE  RAM @ CONSTANT  4 RAM +! ; EEWORD

RAM-VARIABLE  NUM1 EEWORD       ( 16-bit variable
RAM-VARIABLE  NUM2 EEWORD       ( 16-bit variable
2RAM-VARIABLE NUM3 EEWORD       ( 32-bit variable
( ... more variables here if you wish 

: INIT-VARIABLES
    0 NUM1 !
    0 NUM2 !
    0 NUM3 2!
; EEWORD

: NUM1++ NUM1 1+! ; EEWORD

: NUM2++ NUM2 1+! ; EEWORD

: PRODUCT NUM1 @ NUM2 @ UM* NUM3 2! ; EEWORD

: DELAY 2000 0 DO LOOP ; EEWORD

: MAIN
    8004 6 6A CMOVE    ( move all new words to UAREA internal ram on power up )
    INIT-VARIABLES
    CR ." TO QUIT, HIT ANY KEY "
    BEGIN
      DECIMAL
      CR NUM1 @ U.
      ." x " NUM2  @ U.
      ." = " PRODUCT NUM3 2@ D.
      DELAY
      NUM1++
      NUM2++
    ?TERMINAL UNTIL
   ABORT
; EEWORD

(save new words in the eeprom so that you can link it back on power up 
6 8004 6A EEMOVE

161 DP !     ( put DP back in ram so it won't get lock up in eeprom
1F0 AUTOSTART MAIN    (just create an autostart pattern in ram,
1F0 8000 4 EEMOVE          ( then copy it into eeprom

( now recycle the power or reset, it will auto start your program )