diff 3rdparty/booters/boot_rampak.asm @ 279:20e8c354b914

Added support for Level One Rampak Boot
author boisy
date Sun, 21 Jul 2002 07:13:05 +0000
parents 2ce754e62499
children df43967d6a46
line wrap: on
line diff
--- 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