Minor bootloader update but most of all updated UnixFS disk selections so

now also other patitions are possible; The scripts `native/wd*' were all
broken !!! Guess Mark Brinicombe had some plans but forgot to subit them...
This commit is contained in:
reinoud 2001-12-16 20:54:29 +00:00
parent 9b14b25d0d
commit 608b11c8f4
9 changed files with 47 additions and 22 deletions

View File

@ -1,4 +1,4 @@
| $NetBSD: SettScr,v 1.1 2001/10/05 22:28:00 reinoud Exp $
| $NetBSD: SettScr,v 1.2 2001/12/16 20:54:29 reinoud Exp $
*BASIC
@ -32,10 +32,11 @@ SAVE "MountUFS"
*Settype OpenRoot Obey
*Settype unixfs_res Module
*Settype wd0a obey
*Settype wd0d obey
*Settype wd0e obey
*Settype wd0f obey
*Settype wd0g obey
*Settype wd1a obey
*Settype wd1e obey
*DIR <rel$dir>.!BtNetBSD.src.Banner
TEXTLOAD "Banner"
@ -56,8 +57,12 @@ SAVE "mountufs"
*Settype KillUnixFS Obey
*Settype OpenRoot Obey
*Settype unixfs_res module
*Settype wd0a Obey
*Settype wd0e Obey
*Settype wd0a obey
*Settype wd0e obey
*Settype wd0f obey
*Settype wd0g obey
*Settype wd1a obey
*Settype wd1e obey
*DIR <rel$dir>.misc.MkRel
*Settype MkRelease Obey

View File

@ -1,5 +1,5 @@
REM > BtNetBSD
REM $NetBSD: BtNetBSD,v 1.1 2001/10/05 22:28:01 reinoud Exp $
REM $NetBSD: BtNetBSD,v 1.2 2001/12/16 20:54:32 reinoud Exp $
REM
REM Copyright (c) 2000, 2001 Reinoud Zandijk
REM Copyright (c) 1998, 1999, 2000 Ben Harris
@ -39,6 +39,7 @@ ON ERROR REPORT:PRINT " at line ";ERL: PRINT'"Press key":QQ=GET:END
debug% = 0
emulateVRAM% = 0
emulateDRAMsize% = 0
extradebug% = 0
startdelay% = 5
@ -949,6 +950,17 @@ DEF PROCget_memory_configuration
PROCtwirl
ENDWHILE
IF emulateDRAMsize% > 0 THEN
REM emulate HACK
DRAM0% = DRAM_addr%(0)
DRAM_addr%() = 0
DRAM_pages%() = 0
DRAM_addr%(0) = DRAM0%
DRAM_pages%(0) = (emulateDRAMsize%*1024*1024)/nbpp%
dramblocks% = 1
REM END HACK
ENDIF
REM find top of DRAM pages
I%=8: WHILE (I%>=0) AND DRAM_addr%(I%)=0: I%-=1: ENDWHILE

View File

@ -1,5 +1,5 @@
REM >Mountufs
REM $NetBSD: MountUFS,v 1.1 2001/10/05 22:28:03 reinoud Exp $
REM $NetBSD: MountUFS,v 1.2 2001/12/16 20:54:32 reinoud Exp $
REM
REM Copyright (c) 1997 Mark Brinicombe
REM All rights reserved
@ -65,6 +65,7 @@ REM The drive is the next argument
I% = INSTR(env$, " ")
IF (I% = 0) THEN
drive$ = env$
part$ = "a" : REM partition a
ELSE
drive$ = LEFT$(env$, I% - 1)
REM Skip to the next argument
@ -72,9 +73,12 @@ ELSE
I% += 1
UNTIL MID$(env$, I%, 1) <> " "
env$ = MID$(env$, I%)
part$ = env$
ENDIF
drive% = VAL(drive$)
part% = ASC(FNupper(part$))-ASC("A")
unit% = drive% - 4
REM Lookup the SWI Number for the DiscOp SWI
swi$ = filesys$ + "_DiscOp"
@ -83,9 +87,7 @@ SYS "OS_SWINumberFromString",, swi$ TO swi%
REM Assemble the unixfs_mount argument
REM Assumes the filesystem is on the a partition
swi% = swi% AND NOT(&3F)
swi% += drive% * 8
REM PRINT filesys$;" (";~swi%;") ";dev$;unit%;CHR$(part%+ASC("a"))
swi% += drive% * 8 + part%
REM Mount the filesystem
OSCLI("<BtNetBSD$Dir>.native.unixfs_res")

View File

@ -1,3 +1,3 @@
| $NetBSD: wd0a,v 1.1 2001/10/05 22:28:03 reinoud Exp $
| $NetBSD: wd0a,v 1.2 2001/12/16 20:54:32 reinoud Exp $
<Obey$Dir>.mountufs ADFS 4
<Obey$Dir>.mountufs ADFS 4 a

View File

@ -1,3 +1,3 @@
| $NetBSD: wd0e,v 1.1 2001/10/05 22:28:03 reinoud Exp $
| $NetBSD: wd0e,v 1.2 2001/12/16 20:54:33 reinoud Exp $
<Obey$Dir>.mountufs ADFS wd0e
<Obey$Dir>.mountufs ADFS 4 e

View File

@ -1,3 +1,3 @@
| $NetBSD: wd0f,v 1.1 2001/10/05 22:28:03 reinoud Exp $
| $NetBSD: wd0f,v 1.2 2001/12/16 20:54:33 reinoud Exp $
<Obey$Dir>.mountufs ADFS wd0f
<Obey$Dir>.mountufs ADFS 4 f

View File

@ -1,3 +1,3 @@
| $NetBSD: wd0g,v 1.1 2001/10/05 22:28:03 reinoud Exp $
| $NetBSD: wd0g,v 1.2 2001/12/16 20:54:33 reinoud Exp $
<Obey$Dir>.mountufs ADFS wd0g
<Obey$Dir>.mountufs ADFS 4 g

View File

@ -0,0 +1,3 @@
| $NetBSD: wd1a,v 1.1 2001/12/16 20:54:34 reinoud Exp $
<Obey$Dir>.mountufs ADFS 5 a

View File

@ -0,0 +1,3 @@
| $NetBSD: wd1e,v 1.1 2001/12/16 20:54:34 reinoud Exp $
<Obey$Dir>.mountufs ADFS 5 e