V303, newcomer: FastForth I2C TERMINAL

[fast-forth/master.git] / MSP430-FORTH / MSP_EXP430FR5994 / PROG100K.4TH

diff --git a/MSP430-FORTH/MSP_EXP430FR5994/PROG100K.4TH b/MSP430-FORTH/MSP_EXP430FR5994/PROG100K.4TH
index cc96786..7457a33 100644 (file)
--- a/MSP430-FORTH/MSP_EXP430FR5994/PROG100K.4TH
+++ b/MSP430-FORTH/MSP_EXP430FR5994/PROG100K.4TH
@@ -1,32 +1,15 @@
 
 ; -----------------------------------
-; PROG100k.4th = 77 x RC5toLCD.4th
+; PROG100k.4th = 76 x RC5toLCD.4th
+; -----------------------------------
+; download source file sized to compile 100 kbytes
 ; -----------------------------------
 
 
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -69,13 +52,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -87,7 +68,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -95,27 +76,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -294,7 +263,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -363,35 +334,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -434,13 +380,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -452,7 +396,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -460,27 +404,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -659,7 +591,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -728,35 +662,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -799,13 +708,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -817,7 +724,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -825,27 +732,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -1024,7 +919,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -1093,35 +990,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -1164,13 +1036,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -1182,7 +1052,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -1190,27 +1060,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -1389,7 +1247,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -1458,35 +1318,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -1529,13 +1364,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -1547,7 +1380,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -1555,27 +1388,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -1754,7 +1575,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -1823,35 +1646,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -1894,13 +1692,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -1912,7 +1708,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -1920,27 +1716,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -2119,7 +1903,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -2188,35 +1974,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -2259,13 +2020,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -2277,7 +2036,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -2285,27 +2044,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -2484,7 +2231,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -2553,35 +2302,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -2624,13 +2348,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -2642,7 +2364,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -2650,27 +2372,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -2849,7 +2559,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -2918,35 +2630,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -2989,13 +2676,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -3007,7 +2692,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -3015,27 +2700,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -3214,7 +2887,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -3283,35 +2958,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -3354,13 +3004,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -3372,7 +3020,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -3380,27 +3028,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -3579,7 +3215,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -3648,35 +3286,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -3719,13 +3332,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -3737,7 +3348,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -3745,27 +3356,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -3944,7 +3543,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -4013,35 +3614,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -4084,13 +3660,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -4102,7 +3676,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -4110,27 +3684,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -4309,7 +3871,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -4378,35 +3942,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -4449,13 +3988,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -4467,7 +4004,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -4475,27 +4012,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -4674,7 +4199,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -4743,35 +4270,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -4814,13 +4316,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -4832,7 +4332,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -4840,27 +4340,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -5039,7 +4527,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -5108,35 +4598,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -5179,13 +4644,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -5197,7 +4660,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -5205,27 +4668,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -5404,7 +4855,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -5473,35 +4926,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -5544,13 +4972,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -5562,7 +4988,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -5570,27 +4996,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -5769,7 +5183,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -5838,35 +5254,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -5909,13 +5300,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -5927,7 +5316,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -5935,27 +5324,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -6134,7 +5511,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -6203,35 +5582,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -6274,13 +5628,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -6292,7 +5644,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -6300,27 +5652,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -6499,7 +5839,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -6568,43 +5910,18 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
+PWR_STATE
 
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
+[DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-RST_STATE
+MARKER {RC5TOLCD}
 
-[DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
-
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
-MARKER {RC5TOLCD}
-
-[UNDEFINED] @ [IF]
-CODE @
-MOV @R14,R14
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] @ [IF]
+CODE @
+MOV @R14,R14
+MOV @R13+,R0
+ENDCODE
+[THEN]
 
 [UNDEFINED] CONSTANT [IF]
 : CONSTANT 
@@ -6639,13 +5956,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -6657,7 +5972,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -6665,392 +5980,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
-
-[UNDEFINED] DEFER! [IF]
-CODE DEFER!
-MOV @R15+,2(R14)
-MOV @R15+,R14
-MOV @R13+,R0
-ENDCODE
-[THEN]
-
 [UNDEFINED] IS [IF]
-: IS
-STATE @
-IF  POSTPONE ['] POSTPONE DEFER! 
-ELSE ' DEFER! 
-THEN
-; IMMEDIATE
-[THEN]
 
-[UNDEFINED] >BODY [IF]
-CODE >BODY
-ADD #4,R14
-MOV @R13+,R0
-ENDCODE
-[THEN]
-
-
-CODE 20_US
-BEGIN
-    BEGIN
-        BIT #1,&$3C0
-    0<> UNTIL
-    BIC #1,&$3C0
-    SUB #1,R14
-U< UNTIL
-MOV @R15+,R14
-MOV @R13+,R0
-ENDCODE
-
-CODE TOP_LCD
-    BIS.B #4,&$243
-    BIT.B #1,&$241
-0= IF
-    AND.B #$0F,R14
-    MOV.B R14,&$222
-    BIC.B #4,&$243
-    MOV @R15+,R14
-    MOV @R13+,R0
-THEN
-    SUB #2,R15
-    MOV R14,0(R15)
-    BIC.B #4,&$243
-    MOV.B &$220,R14
-    AND.B #$0F,R14
-    MOV @R13+,R0
-ENDCODE
-
-CODE LCD_WRC
-    BIS.B #2,&$243
-BW1 SUB #2,R15
-    MOV R14,0(R15)
-    RRUM #4,R14
-    BIC.B #1,&$243
-    BIS.B #$0F,&$224
-COLON
-    TOP_LCD 2 20_US
-    TOP_LCD 2 20_US 
-;
-
-CODE LCD_WRF
-    BIC.B #2,&$243
-    GOTO BW1
-ENDCODE
-
-: LCD_CLEAR $01 LCD_WRF 100 20_us ;
-: LCD_HOME $02 LCD_WRF 100 20_us ;
-
-
-
-ASM WDT_INT
-ADD #2,R1
-BIT.B #$20,&$240
-0= IF
-    CMP #19,&$3D6
-    U< IF
-        ADD #1,&$3D6
-    THEN
-ELSE
-    BIT.B #$40,&$240
-    0= IF
-        CMP #3,&$3D6
-        U>= IF
-           SUB #1,&$3D6
-        THEN
-    THEN
-THEN
-BW1
-MOV @R1+,R0
-ENDASM
-
-ASM RC5_INT
-ADD #2,R1
-$1806 @ 16000 = [IF]
-    MOV #1,&$3A0
-[THEN]
-$1806 @ 24000 = [IF]
-    MOV #2,&$3A0
-[THEN]
-MOV #1778,R9
-MOV #14,R10
-BEGIN
-MOV #%1011100100,&$380
-    RRUM    #1,R9
-    MOV     R9,R8
-    RRUM    #1,R8
-    ADD     R9,R8
-    BEGIN   CMP R8,&$390
-    U>= UNTIL
-    BIT.B   #4,&$200
-    ADDC    R11,R11
-    MOV.B   &$200,&$208
-    BIC.B   #4,&$20C
-    SUB     #1,R10
-0<> WHILE
-    ADD R9,R8
-    BEGIN
-        MOV &$390,R9
-        CMP R8,R9
-        U>= IF
-        BIC #$30,&$380
-        GOTO BW1
-        THEN
-        BIT.B #4,&$20C
-    0<> UNTIL
-REPEAT
-BIC #$30,&$380
-RLAM    #1,R11
-MOV.B   R11,R9
-RRUM    #2,R9
-BIT     #$4000,R11
-0= IF   BIS #$40,R9
-THEN
-RRUM    #3,R11
-XOR     @R1,R11
-BIT     #$400,R11
-0= ?GOTO BW1
-XOR #$400,0(R1)
-SUB #8,R15
-MOV R14,6(R15)
-MOV &$1DDC,4(R15)
-MOV #$10,&$1DDC
-MOV R9,0(R15)
-MOV #0,R14
-LO2HI
-    LCD_CLEAR
-    <# # #S #36 HOLD #>
-    ['] LCD_WRC IS EMIT
-    TYPE
-    ['] EMIT >BODY IS EMIT
-HI2LO
-MOV @R15+,&$1DDC
-MOV @R15+,R14
-MOV @R1+,R0
-ENDASM
-
-ASM BACKGROUND
-BEGIN
-    CALL &$1814
-    BIS &$180A,R2
-AGAIN
-ENDASM
-
-ASM SYS_OUT
-    MOV #WARM,R9
-    ADD #4,R9
-    MOV R9,R0
-ENDASM
-
-CODE STOP
-BW1 MOV #$4000,R9
-    ADD #4,R9
-    MOV R9,-2(R9)
-    MOV #WARM,R9
-    MOV #SYS_OUT,2(R9)
-    BIC.B #4,&$20A
-    BIC.B #4,&$20C
-    MOV #0,&$3C0
-    MOV #0,&$340
-    MOV #0,&$342
-    CALL #$400E
-COLON
-ECHO
-." RC5toLCD is removed,"
-."  type START to restart"
- WARM
-;
-
-CODE SYS_INIT
-MOV #%10_1101_0100,&$3C0
-$1806 @ 16000 = [IF]
-    MOV #1,&$3E0
-[THEN]
-$1806 @ 24000 = [IF]
-    MOV #2,&$3E0
-[THEN]
-    MOV #19,&$3D2
-MOV #%0110_0000,&$3C6
-    MOV #10,&$3D6
-    BIS.B #$20,&$204
-    BIS.B #$20,&$20A
-    BIS.B #7,&$245
-    BIC.B #7,&$247
-    BIS.B #$0F,&$224
-    BIC.B #$0F,&$226
-    BIS.B #4,&$20A
-    BIC.B #4,&$20C
-    MOV #RC5_INT,&$FFDE
-MOV #%01_0001_0100,&$340
-    MOV ##3276,&$352
-    MOV #%10000,&$342
-    MOV #WDT_INT,&$FFEA
-BIC #1,&$130
-BIS.B #3,&$20D
-MOV &$1808,R8
-CMP #4,R8
-0= ?GOTO BW1
-COLON
-    #1000 20_US
-    %011 TOP_LCD
-    #205 20_US
-    %011 TOP_LCD
-    #5 20_US
-    %011 TOP_LCD
-    #2 20_US
-    %010 TOP_LCD
-    #2 20_US
-    %00101000 LCD_WRF
-    %1000 LCD_WRF
-    LCD_CLEAR
-    %0110 LCD_WRF
-    %1100 LCD_WRF
-    LCD_CLEAR
-    ['] LCD_HOME IS CR
-    ['] LCD_WRC  IS EMIT
-    CR ." I love you"
-    ['] CR >BODY IS CR
-    ['] EMIT >BODY IS EMIT
-    ." RC5toLCD is running. Type STOP to quit"
-    PWR_STATE ABORT
-;
-
-CODE START
-MOV #$4000,R9
-MOV #BACKGROUND,2(R9)
-MOV #WARM,R9
-MOV #SYS_INIT,2(R9)
-MOV R9,R0
-ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
-
-[DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
-
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
-MARKER {RC5TOLCD}
-
-[UNDEFINED] @ [IF]
-CODE @
-MOV @R14,R14
-MOV @R13+,R0
-ENDCODE
-[THEN]
-
-[UNDEFINED] CONSTANT [IF]
-: CONSTANT 
-CREATE
-HI2LO
-MOV R14,-2(R10)
-MOV @R15+,R14
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
-
-[UNDEFINED] STATE [IF]
-$1DBE CONSTANT STATE
-[THEN]
-
-[UNDEFINED] = [IF]
-CODE =
-SUB @R15+,R14
-0<> IF
-    AND #0,R14
-    MOV @R13+,R0
-THEN
-XOR #-1,R14
-MOV @R13+,R0
-ENDCODE
-[THEN]
-
-[UNDEFINED] IF [IF]
-CODE IF
-SUB #2,R15
-MOV R14,0(R15)
-MOV &$1DC6,R14
-ADD #4,&$1DC6
-MOV #$404C,0(R14)
-ADD #2,R14
-MOV @R13+,R0
-ENDCODE IMMEDIATE
-[THEN]
-
-[UNDEFINED] THEN [IF]
-CODE THEN
-MOV &$1DC6,0(R14)
-MOV @R15+,R14
-MOV @R13+,R0
-ENDCODE IMMEDIATE
-[THEN]
-
-[UNDEFINED] ELSE [IF]
-CODE ELSE
-ADD #4,&$1DC6
-MOV &$1DC6,R10
-MOV #$4048,-4(R10)
-MOV R10,0(R14)
-SUB #2,R10
-MOV R10,R14
-MOV @R13+,R0
-ENDCODE IMMEDIATE
-[THEN]
-
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
-
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -7229,7 +6167,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -7298,35 +6238,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -7369,13 +6284,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -7387,7 +6300,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -7395,27 +6308,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -7594,7 +6495,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -7663,35 +6566,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -7734,13 +6612,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -7752,7 +6628,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -7760,27 +6636,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -7959,7 +6823,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -8028,35 +6894,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -8099,13 +6940,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -8117,35 +6956,23 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
 MOV @R13+,R0
-ENDCODE IMMEDIATE
-[THEN]
-
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
+ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER! [IF]
+[UNDEFINED] IS [IF]
+
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -8324,7 +7151,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -8393,35 +7222,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -8464,13 +7268,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -8482,7 +7284,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -8490,27 +7292,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -8689,7 +7479,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -8758,35 +7550,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -8829,13 +7596,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -8847,7 +7612,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -8855,27 +7620,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -9054,7 +7807,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -9123,35 +7878,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -9194,13 +7924,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -9212,7 +7940,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -9220,27 +7948,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -9419,7 +8135,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -9488,35 +8206,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -9559,13 +8252,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -9577,7 +8268,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -9585,27 +8276,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -9784,7 +8463,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -9853,35 +8534,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -9924,13 +8580,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -9942,7 +8596,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -9950,27 +8604,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -10149,7 +8791,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -10218,35 +8862,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -10289,13 +8908,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -10307,7 +8924,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -10315,27 +8932,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -10514,7 +9119,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -10583,35 +9190,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -10654,13 +9236,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -10672,7 +9252,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -10680,27 +9260,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -10879,7 +9447,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -10948,35 +9518,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -11019,13 +9564,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -11037,7 +9580,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -11045,27 +9588,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -11244,7 +9775,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -11313,35 +9846,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -11384,13 +9892,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -11402,35 +9908,23 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
 MOV @R13+,R0
-ENDCODE IMMEDIATE
-[THEN]
-
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
+ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER! [IF]
+[UNDEFINED] IS [IF]
+
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -11609,7 +10103,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -11678,35 +10174,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -11749,13 +10220,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -11767,7 +10236,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -11775,27 +10244,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -11974,7 +10431,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -12043,35 +10502,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -12114,13 +10548,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -12132,7 +10564,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -12140,27 +10572,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -12339,7 +10759,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -12408,35 +10830,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -12479,13 +10876,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -12497,7 +10892,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -12505,27 +10900,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -12704,7 +11087,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -12773,35 +11158,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -12844,13 +11204,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -12862,7 +11220,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -12870,27 +11228,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -13069,7 +11415,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -13138,35 +11486,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -13209,13 +11532,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -13227,7 +11548,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -13235,27 +11556,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -13434,7 +11743,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -13503,35 +11814,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -13574,13 +11860,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -13592,7 +11876,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -13600,27 +11884,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -13799,7 +12071,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -13868,35 +12142,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -13939,13 +12188,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -13957,7 +12204,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -13965,27 +12212,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -14164,7 +12399,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -14233,35 +12470,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -14304,13 +12516,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -14322,7 +12532,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -14330,27 +12540,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -14529,7 +12727,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -14598,35 +12798,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -14669,13 +12844,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -14687,35 +12860,23 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
 MOV @R13+,R0
-ENDCODE IMMEDIATE
-[THEN]
-
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
+ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER! [IF]
+[UNDEFINED] IS [IF]
+
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -14894,7 +13055,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -14963,35 +13126,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -15034,13 +13172,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -15052,7 +13188,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -15060,27 +13196,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -15259,7 +13383,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -15328,35 +13454,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -15399,13 +13500,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -15417,7 +13516,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -15425,27 +13524,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -15624,7 +13711,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -15693,35 +13782,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -15764,13 +13828,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -15782,7 +13844,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -15790,27 +13852,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -15989,7 +14039,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -16058,35 +14110,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -16129,13 +14156,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -16147,7 +14172,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -16155,27 +14180,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -16354,7 +14367,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -16423,35 +14438,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -16494,13 +14484,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -16512,7 +14500,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -16520,27 +14508,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -16719,7 +14695,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -16788,35 +14766,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -16859,13 +14812,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -16877,7 +14828,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -16885,27 +14836,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -17084,7 +15023,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -17153,35 +15094,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -17224,13 +15140,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -17242,7 +15156,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -17250,27 +15164,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -17449,7 +15351,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -17518,35 +15422,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -17589,13 +15468,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -17607,7 +15484,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -17615,27 +15492,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -17814,7 +15679,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -17883,35 +15750,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -17954,13 +15796,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -17972,35 +15812,23 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
 MOV @R13+,R0
-ENDCODE IMMEDIATE
-[THEN]
-
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
+ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER! [IF]
+[UNDEFINED] IS [IF]
+
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -18179,7 +16007,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -18248,35 +16078,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -18319,13 +16124,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -18337,7 +16140,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -18345,27 +16148,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -18544,7 +16335,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -18613,35 +16406,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -18684,13 +16452,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -18702,7 +16468,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -18710,27 +16476,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -18909,7 +16663,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -18978,35 +16734,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -19049,13 +16780,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -19067,7 +16796,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -19075,27 +16804,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -19274,7 +16991,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -19343,35 +17062,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -19414,13 +17108,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -19432,7 +17124,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -19440,27 +17132,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -19639,7 +17319,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -19708,35 +17390,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -19779,13 +17436,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -19797,7 +17452,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -19805,27 +17460,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -20004,7 +17647,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -20073,35 +17718,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -20144,13 +17764,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -20162,7 +17780,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -20170,27 +17788,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -20369,7 +17975,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -20438,35 +18046,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -20509,13 +18092,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -20527,7 +18108,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -20535,27 +18116,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -20734,7 +18303,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -20803,35 +18374,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -20874,13 +18420,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -20892,7 +18436,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -20900,27 +18444,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -21099,7 +18631,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -21168,35 +18702,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -21239,13 +18748,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -21257,35 +18764,23 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
-MOV R10,R14
-MOV @R13+,R0
-ENDCODE IMMEDIATE
-[THEN]
-
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
+MOV R10,R14
 MOV @R13+,R0
-ENDCODE
+ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER! [IF]
+[UNDEFINED] IS [IF]
+
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -21464,7 +18959,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -21533,35 +19030,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -21604,13 +19076,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -21622,7 +19092,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -21630,27 +19100,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -21829,7 +19287,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -21898,35 +19358,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -21969,13 +19404,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -21987,7 +19420,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -21995,27 +19428,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -22194,7 +19615,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -22263,35 +19686,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -22334,13 +19732,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -22352,7 +19748,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -22360,27 +19756,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -22559,7 +19943,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -22628,35 +20014,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -22699,13 +20060,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -22717,7 +20076,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -22725,27 +20084,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -22924,7 +20271,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -22993,35 +20342,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -23064,13 +20388,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -23082,7 +20404,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -23090,27 +20412,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -23289,7 +20599,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -23358,35 +20670,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -23429,13 +20716,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -23447,7 +20732,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -23455,27 +20740,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -23654,7 +20927,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -23723,35 +20998,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -23794,13 +21044,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -23812,7 +21060,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -23820,27 +21068,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -24019,7 +21255,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -24088,35 +21326,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -24159,13 +21372,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -24177,7 +21388,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -24185,27 +21396,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -24384,7 +21583,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -24453,35 +21654,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -24524,13 +21700,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -24542,7 +21716,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -24550,27 +21724,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -24749,7 +21911,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -24818,35 +21982,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -24889,13 +22028,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -24907,7 +22044,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -24915,27 +22052,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -25114,7 +22239,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -25183,35 +22310,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -25254,13 +22356,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -25272,7 +22372,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -25280,27 +22380,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -25479,7 +22567,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -25548,35 +22638,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -25619,13 +22684,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -25637,7 +22700,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -25645,27 +22708,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -25844,7 +22895,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -25913,35 +22966,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -25984,13 +23012,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -26002,7 +23028,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -26010,27 +23036,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -26209,7 +23223,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -26278,35 +23294,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -26349,13 +23340,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -26367,7 +23356,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -26375,27 +23364,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -26574,7 +23551,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -26643,35 +23622,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -26714,13 +23668,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -26732,7 +23684,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -26740,27 +23692,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -26939,7 +23879,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -27008,35 +23950,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -27079,13 +23996,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -27097,7 +24012,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -27105,27 +24020,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -27304,7 +24207,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -27373,35 +24278,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -27444,13 +24324,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -27462,7 +24340,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -27470,27 +24348,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -27669,7 +24535,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"
@@ -27738,35 +24606,10 @@ MOV #WARM,R9
 MOV #SYS_INIT,2(R9)
 MOV R9,R0
 ENDCODE 
-
-ECHO
-            ; downloading RC5toLCD.4th is done
-RST_HERE    ; this app is protected against <reset>
-
-
-RST_STATE
+PWR_STATE
 
 [DEFINED] {RC5TOLCD} [IF] {RC5TOLCD} [THEN]
 
-[UNDEFINED] MARKER [IF]
-: MARKER
-CREATE
-HI2LO
-MOV &$1DC8,0(R10)
-SUB #2,R8
-MOV R8,2(R10)
-ADD #4,&$1DC6
-LO2HI
-DOES>
-HI2LO
-MOV @R1+,R13
-MOV @R14+,&$180E
-MOV @R14,&$180C
-MOV @R15+,R14
-MOV #RST_STATE,R0
-ENDCODE
-[THEN]
-
 MARKER {RC5TOLCD}
 
 [UNDEFINED] @ [IF]
@@ -27809,13 +24652,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -27827,7 +24668,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -27835,27 +24676,15 @@ MOV @R13+,R0
 ENDCODE IMMEDIATE
 [THEN]
 
-[UNDEFINED] DEFER [IF]
-
-: DEFER
-CREATE
-HI2LO
-MOV #$4030,-4(R10)
-MOV #$402C,-2(R10)
-MOV @R1+,R13
-MOV @R13+,R0
-ENDCODE
-[THEN]
+[UNDEFINED] IS [IF]
 
-[UNDEFINED] DEFER! [IF]
 CODE DEFER!
 MOV @R15+,2(R14)
 MOV @R15+,R14
 MOV @R13+,R0
 ENDCODE
-[THEN]
 
-[UNDEFINED] IS [IF]
+
 : IS
 STATE @
 IF  POSTPONE ['] POSTPONE DEFER! 
@@ -28034,7 +24863,9 @@ BW1 MOV #$4000,R9
     MOV #0,&$3C0
     MOV #0,&$340
     MOV #0,&$342
-    CALL #$400E
+    MOV #COLD,R9
+    MOV R9,&$FFDE
+    MOV R9,&$FFEA
 COLON
 ECHO
 ." RC5toLCD is removed,"