# HG changeset patch
# User boisy
# Date 1027235585 0
# Node ID 20e8c354b91405ee48b1707a5861c48048a72f0e
# Parent  3960e63fd9f788be5fc093eb62fd5bcb4ffc7aa1
Added support for Level One Rampak Boot

diff -r 3960e63fd9f7 -r 20e8c354b914 3rdparty/booters/boot_rampak.asm
--- a/3rdparty/booters/boot_rampak.asm	Sun Jul 21 07:02:39 2002 +0000
+++ b/3rdparty/booters/boot_rampak.asm	Sun Jul 21 07:13:05 2002 +0000
@@ -65,7 +65,11 @@
          os9   F$SRtMem   return the copy of LSN0 to free memory
 
          ldd   R.X,s      get size of boot memory to request
+         ifgt  Level-1
          os9   F$BtMem    ask for the boot memory
+         else
+         os9   F$SRqMem   ask for the boot memory
+         endc
          puls  x          restore the starting sector number
          bcs   L00AE      no memory: exit with error
 
@@ -96,7 +100,7 @@
 
 L00B0    puls  x          restore start address of memory allocated
 *         leas  size,s     remove the on-stack buffer
-         clr   >$FF40     stop the disk
+         clr   >DPort     stop the disk
 L00BA    rts   
 
 * GetSect: read a sector off of the disk
@@ -117,25 +121,27 @@
          clrb             no errors
          puls  d,x,y,pc   restore registers and return
 
+         ifgt  Level-1
          fcc   /    JABBERWOCKY.          /
-         fcb   $0D
+         fcb   C$CR
          fcc   /'Twas brillig, and the slithy toves/
-         fcb   $0D
+         fcb   C$CR
          fcc   /  Did gyre and gimble in the wabe:/
-         fcb   $0D
+         fcb   C$CR
          fcc   /All mimsy were the borogroves,/
-         fcb   $0D
+         fcb   C$CR
          fcc   /  And the mome raths outgrabe./
-         fcb   $0D
-         fcb   $0D
+         fcb   C$CR
+         fcb   C$CR
          fcc   /"Beware the Jabberwock, my son!/
-         fcb   $0D
+         fcb   C$CR
          fcc   /  The jaws that bite, the claws that catch!/
-         fcb   $0D
+         fcb   C$CR
          fcc   /Beware the Jubjub bird, and shun/
-         fcb   $0D
+         fcb   C$CR
          fcc   /  The frumious Bandersnatch"/
-         fcb   $0D
+         fcb   C$CR
+         endc
 
 Address  fdb   $FF40      address of the device to boot from
 PakSlot  fcb   $01        multipak slot number
diff -r 3960e63fd9f7 -r 20e8c354b914 3rdparty/booters/defsfile
--- a/3rdparty/booters/defsfile	Sun Jul 21 07:02:39 2002 +0000
+++ b/3rdparty/booters/defsfile	Sun Jul 21 07:13:05 2002 +0000
@@ -1,3 +1,4 @@
 	use	os9defs
+	use	systype
+        use     scfdefs
 	use	rbfdefs
-	use	systype
diff -r 3960e63fd9f7 -r 20e8c354b914 3rdparty/booters/makefile
--- a/3rdparty/booters/makefile	Sun Jul 21 07:02:39 2002 +0000
+++ b/3rdparty/booters/makefile	Sun Jul 21 07:13:05 2002 +0000
@@ -1,10 +1,12 @@
 include ../../Makefile.rules
 
 DEPENDS		= ./Makefile
-BOOTERS		= boot_kenton boot_rampak boot_tc3 boot_ide boot_wd1002 \
-		boot_rom boot_rom_l1 boot_tc3_l1 boot_kenton_l1 boot_ide_l1 \
-		boot_ide_nl2
-ALLOBJS		= $(BOOTERS)
+BOOTERS_NITROS	= boot_ide_nl2
+BOOTERS_L2	= boot_kenton boot_rampak boot_tc3 boot_ide boot_wd1002 \
+		boot_rom
+BOOTERS_L1	= boot_kenton_l1 boot_rampak_l1 boot_tc3_l1 boot_ide_l1 \
+		boot_rom_l1
+ALLOBJS		= $(BOOTERS_NITROS) $(BOOTERS_L2) $(BOOTERS_L1)
 
 all:	$(ALLOBJS) $(DEPENDS)
 
@@ -12,6 +14,14 @@
 	$(RM) $(ALLOBJS)
 
 
+# NitrOS-9 Booters
+boot_ide_nl2: boot_ide.asm
+	$(AS) $(AFLAGS) $(ASOUT)$@ $< -aLevel=2 -aNitrOS9=1
+
+# OS-9 Level Two Booters
+boot_ide: boot_ide.asm
+	$(AS) $(AFLAGS) $(ASOUT)$@ $< -aLevel=2 -aNitrOS9=0
+
 boot_kenton: boot_scsi.asm
 	$(AS) $(AFLAGS) $(ASOUT)$@ $< -aLevel=2 -aKenton=1 -aTC3=0
 
@@ -27,6 +37,7 @@
 boot_rom: boot_rom.asm
 	$(AS) $(AFLAGS) $(ASOUT)$@ $< -aLevel=2
 
+# OS-9 Level One Booters
 boot_rom_l1: boot_rom_l1.asm
 	$(AS) $(AFLAGS) $(ASOUT)$@ $< -aLevel=1
 
@@ -36,11 +47,8 @@
 boot_tc3_l1: boot_scsi.asm
 	$(AS) $(AFLAGS) $(ASOUT)$@ $< -aLevel=1 -aKenton=1 -aTC3=0
 
-boot_ide: boot_ide.asm
-	$(AS) $(AFLAGS) $(ASOUT)$@ $< -aLevel=2 -aNitrOS9=0
-
-boot_ide_nl2: boot_ide.asm
-	$(AS) $(AFLAGS) $(ASOUT)$@ $< -aLevel=2 -aNitrOS9=1
+boot_rampak_l1: boot_rampak.asm
+	$(AS) $(AFLAGS) $(ASOUT)$@ $< -aLevel=1
 
 boot_ide_l1: boot_ide.asm
 	$(AS) $(AFLAGS) $(ASOUT)$@ $< -aLevel=1 -aNitrOS9=0