diff --git a/INC/APPLESOFT.I.txt b/INC/APPLESOFT.I.txt
index ef56ec5c..29270ff9 100644
--- a/INC/APPLESOFT.I.txt
+++ b/INC/APPLESOFT.I.txt
@@ -20,7 +20,16 @@ CHRGET			.EQ $B1					-> $C8
 CHRGOT			.EQ $B7
 TXTPTR			.EQ $B8					
 *--------------------------------------
+BASICLD			.EQ $E000				ENTER BASIC COLD
+BASICWM			.EQ $E003 				RE-ENTER BASIC WARM
+HGR2			.EQ $F3D8 				APPLESOFT CLEAR TO HIRES 2
+HGR				.EQ $F3E2 				APPLESOFT CLEAR TO HIRES 1
+BKGND			.EQ $F3F4				APPLESOFT HIRES BACKGROUND CLEAR
+HCOLOR			.EQ $F6F0				APPLESOFT HIRES COLOR SELECT
+HPOSN			.EQ $F411				APPLESOFT HIRES POSITION
+HPLOT			.EQ $F457				APPLESOFT HIRES PLOT
 *--------------------------------------
+LOAD.ARG.FROM.YA	.EQ $E9E3
 *--------------------------------------
 *--------------------------------------
 * FAC = (Y,A) - FAC
diff --git a/INC/MONITOR.I.txt b/INC/MONITOR.I.txt
index 2d1dcb53..0bc143d0 100644
--- a/INC/MONITOR.I.txt
+++ b/INC/MONITOR.I.txt
@@ -16,14 +16,6 @@ IRQVECT			.EQ $3FE
 *--------------------------------------
 COL80FIRM		.EQ $C300
 *--------------------------------------
-BASICLD			.EQ $E000				ENTER BASIC COLD
-BASICWM			.EQ $E003 				RE-ENTER BASIC WARM
-HGR2			.EQ $F3D8 				APPLESOFT CLEAR TO HIRES 2
-HGR				.EQ $F3E2 				APPLESOFT CLEAR TO HIRES 1
-BKGND			.EQ $F3F4				APPLESOFT HIRES BACKGROUND CLEAR
-HCOLOR			.EQ $F6F0				APPLESOFT HIRES COLOR SELECT
-HPOSN			.EQ $F411				APPLESOFT HIRES POSITION
-HPLOT			.EQ $F457				APPLESOFT HIRES PLOT
 PLOT			.EQ $F800				PLOT LORES BLOCK
 HLINE			.EQ $F819				HORIZ LORES LINE
 VLINE			.EQ $F828				VERTICAL LORES LINE