X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=fig6800to6809dumb.asm;h=b05f5de72bf2a66a184984d79a408ff4b045bd5e;hb=e678f34dd4cd03ba8eb550f53b3b59648c23f0dd;hp=48a33335aa9bac4ff3b16c7d76defefed7674996;hpb=e690dd348fe5fa3f396deba91fa0ad4b58186ed0;p=fig-forth-6809%2Ffig-forth-6809.git

diff --git a/fig6800to6809dumb.asm b/fig6800to6809dumb.asm
index 48a3333..b05f5de 100644
--- a/fig6800to6809dumb.asm
+++ b/fig6800to6809dumb.asm
@@ -74,18 +74,22 @@
 
 *
 NBLK	EQU	4	# of disc buffer blocks for virtual memory
-MEMEND	EQU	132*NBLK+$3000 end of ram
+* MEMEND	EQU	132*NBLK+$3000 end of ram
+MEMEND	EQU	132*NBLK+$5000+132 end of ram with some breathing room (32K Coco)
 *  each block is 132 bytes in size,
 *  holding 128 characters
 *
-MEMTOP	EQU	$3FFF	absolute end of all ram
-ACIAC	EQU	$FBCE	the ACIA control address and
-ACIAD	EQU	ACIAC+1	data address for PROTO
+* MEMTOP	EQU	$3FFF	absolute end of all ram
+MEMTOP	EQU	$7FFF	putative absolute end of all ram (32K Coco)
+* No ACIA in Coco (how sad).
+* ACIAC	EQU	$FBCE	the ACIA control address and
+* ACIAD	EQU	ACIAC+1	data address for PROTO
 	PAGE
-*  MEMORY MAP for this 16K system:
+*  MEMORY MAP for this 16K system (32K Coco):
 *  ( positioned so that systems with 4k byte write-
 *   protected segments can write protect FORTH )
 *
+* Read below and calculate it yourself:
 * addr.		contents		pointer	init by
 * ****	*******************************	*******	******
 * 3FFF						HI
@@ -101,8 +105,8 @@ ACIAD	EQU	ACIAC+1	data address for PROTO
 *					<== W
 *	the VIRTUAL FORTH MACHINE
 *
-* 1004 <<< WARM START ENTRY >>>
-* 1000 <<< COLD START ENTRY >>>
+* 1004 (3004) <<< WARM START ENTRY >>>
+* 1000 (3000) <<< COLD START ENTRY >>>
 *
 * >>>>>> memory from here down must be RAM <<<<<<
 *  FFE	RETURN STACK base		<== RP	RINIT
@@ -142,14 +146,17 @@ ACIAD	EQU	ACIAC+1	data address for PROTO
 * RP points to second free byte (first free word) in return stack
 * SP (hardware SP) points to first free byte in data stack
 *
-*	when A ANDB hold one 16 bit FORTH data word,
+*	when A AND B hold one 16 bit FORTH data word,
 *	A contains the high byte, B, the low byte.
 ***
 
 
 
 
-	ORG	$E0	variables
+*	ORG	$E0	variables
+	ORG	$1300	variables
+PGBASE	EQU	*
+	SETDP	PGBASE/$100
 
 
 N	RMB	10	used as scratch by (FIND),ENCLOSE,CMOVE,EMIT,KEY,
@@ -186,7 +193,8 @@ UP	RMB	2	the pointer to base of current user's 'USER' table
 *	COLD start and WARM start:
 * 	[ names correspond to FORTH words of similar (no X) name ]
 *
-	ORG	$100
+*	ORG	$100
+	ORG	$1400
 UORIG	RMB	6	3 reserved variables
 XSPZER	RMB	2	initial top of data stack for this user
 XRZERO	RMB	2	initial top of return stack
@@ -254,9 +262,10 @@ TASK	FDB	DOCOL,SEMIS
 REND	EQU	*	( first empty location in dictionary )
 
 	PAGE
+* Check the addresses yourself:
 *    The FORTH program ( address $1000 to $27FF ) is written
 *    so that it can be in a ROM, or write-protected if desired
-	ORG	$1000
+	ORG	$3000
 
 * ######>> screen 3 <<
 *
@@ -274,13 +283,19 @@ ORIG	NOP
 *
 ******* startup parmeters **************************
 *
-	FDB	$6800,0000	cpu & revision
+RPTIB	EQU	$200		Give us more room to breath.
+SBUMPR	EQU	$10		Bumper area for stacks.
+*
+	FDB	$6800,6809	cpu & revision
 	FDB	0	topmost word in FORTH vocabulary
 BACKSP	FDB	$7F	backspace character for editing
 UPINIT	FDB	UORIG	initial user area
-SINIT	FDB	ORIG-$D0	initial top of data stack
-RINIT	FDB	ORIG-2	initial top of return stack
-	FDB	ORIG-$D0	terminal input buffer
+* SINIT	FDB	ORIG-$D0	initial top of data stack
+SINIT	FDB	ORIG-RPTIB-SBUMPR*2
+* RINIT	FDB	ORIG-2	initial top of return stack
+RINIT	FDB	ORIG-SBUMPR
+*	FDB	ORIG-$D0	terminal input buffer
+	FDB	ORIG-RPTIB-SBUMPR
 	FDB	31	initial name field width
 	FDB	0	initial warning mode (0 = no disc)
 FENCIN	FDB	REND	initial fence
@@ -293,6 +308,7 @@ DELINT	FDB	4	initial carriage return delay
 	PAGE
 *
 * ######>> screen 13 <<
+* Calculate the cycles yourself:
 PULABX	PULS A		24 cycles until 'NEXT'
 	PULS B
 STABX	STA	0,X	16 cycles until 'NEXT'
@@ -308,7 +324,7 @@ PUSHBA	PSHS B		8 cycles until 'NEXT'
 *
 * "NEXT" takes 38 cycles if TRACE is removed,
 *
-* and 95 cycles if NOT tracing.
+* and 95 cycles if NOT tracing. (Way bogus numbers by now.)
 *
 * = = = = = = =   t h e   v i r t u a l   m a c h i n e   = = = = =
 *                                                                 =
@@ -2401,7 +2417,9 @@ ABORT	FDB	DOCOL,SPSTOR,DEC,QSTACK,DRZERO,CR,PDOTQ
 	FDB	ABORT-8
 COLD	FDB	*+2
 * CENT	LDS	#REND-1	top of destination on 6800
-CENT	LDS	#REND	top of destination on 6809
+CENT	LDA #PGBASE/$100
+	TFR A,DP
+	LDS	#REND	top of destination on 6809
 	LDX	#ERAM	top of stuff to move
 COLD2	LEAX -1,X
 	LDA	0,X