Parcourir la source

restore load address, no need to change after all

Peter Ferrie il y a 3 ans
Parent
commit
98e028d13b
2 fichiers modifiés avec 3 ajouts et 3 suppressions
  1. BIN
      bin/sectorlisp.bin
  2. 3 3
      sectorlisp.S

BIN
bin/sectorlisp.bin


+ 3 - 3
sectorlisp.S

@@ -30,7 +30,7 @@
 .set ATOM_CONS,		61
 .set ATOM_CONS,		61
 .set ATOM_EQ,		71
 .set ATOM_EQ,		71
 
 
-.set g_token,	0x7600
+.set g_token,	0x7800
 .set g_str,	0x0
 .set g_str,	0x0
 .set g_mem,	0x3600
 .set g_mem,	0x3600
 .set boot,	0x7c00
 .set boot,	0x7c00
@@ -46,8 +46,8 @@ kSymbols:
 	.ascii "NIL\0T\0QUOTE\0COND\0ATOM\0CAR\0CDR\0CONS\0EQ"
 	.ascii "NIL\0T\0QUOTE\0COND\0ATOM\0CAR\0CDR\0CONS\0EQ"
 
 
 .type .init,@function
 .type .init,@function
-.init:	ljmp	$0x800>>4,$_begin		# end of bios data roundup page
-_begin:	push	%cs				# memory model cs=ds=es = 0x800
+.init:	ljmp	$0x600>>4,$_begin		# end of bios data roundup page
+_begin:	push	%cs				# memory model cs=ds=es = 0x600
 	push	%cs
 	push	%cs
 	push	%cs
 	push	%cs
 	pop	%ds
 	pop	%ds