Mercurial > hg > Members > kono > nitros9-code

changeset 1709:1e026af2217c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rodney's source fixer uppers
author boisy
date Sat, 14 Aug 2004 02:40:48 +0000
parents 823c651e7dcd
children 27c3b6b64914
files level1/modules/boot_1773.asm level1/modules/makefile level1/modules/rel.asm
diffstat 3 files changed, 17 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/boot_1773.asm	Thu Aug 12 18:43:58 2004 +0000
+++ b/level1/modules/boot_1773.asm	Sat Aug 14 02:40:48 2004 +0000
@@ -40,8 +40,17 @@
 DRVSEL1  equ   %00000010
 DRVSEL0  equ   %00000001
 
-* Default Boot Drive is /d0
+* Default Boot is from drive 0
 BootDr   set DRVSEL0
+         IFEQ  DNum-1
+BootDr   set DRVSEL1		Alternate boot from drive 1
+         ENDC
+         IFEQ  DNum-2
+BootDr   set DRVSEL2		Alternate boot from drive 2
+         ENDC
+         IFEQ  DNum-3
+BootDr   set SIDESEL		Alternate boot from drive 3
+         ENDC
 
 * WD17x3 DPort offsets
 CONTROL  equ   0
--- a/level1/modules/makefile	Thu Aug 12 18:43:58 2004 +0000
+++ b/level1/modules/makefile	Sat Aug 14 02:40:48 2004 +0000
@@ -108,7 +108,7 @@
 DSDD40		= -aCyls=40 -aSides=2 -aSectTrk=18 -aSectTrk0=18 \
 		-aInterlv=3 -aSAS=8 -aDensity=1
 DSDD80		= -aCyls=80 -aSides=2 -aSectTrk=18 -aSectTrk0=18 \
-		-aInterlv=3 -aSAS=8 -aDensity=3 -aD35
+		-aInterlv=3 -aSAS=8 -aDensity=1 -aD35
 
 ddd0_35s.dd: rb1773desc.asm
 	$(AS) $< $(ASOUT)$@ $(AFLAGS) $(SSDD35) -aDNum=0 -aDD=1
--- a/level1/modules/rel.asm	Thu Aug 12 18:43:58 2004 +0000
+++ b/level1/modules/rel.asm	Sat Aug 14 02:40:48 2004 +0000
@@ -61,16 +61,19 @@
          IFEQ  Width-80
          fcb   $34 200 lines, 80 column mode, no attribute byte (monochrome)
          fcb   $3F        white border
+BOOTLINE set   11	80-col start line for BOOT/FAIL messages
          ENDC
 
          IFEQ  Width-40
          fcb   $24 200 lines, 40-col, no attribute byte
          fcb   $3F        white border
+BOOTLINE set   13	40-col start line for BOOT/FAIL messages
          ENDC
 
          IFEQ  Width-32
          fcb   $20 200 lines, 32-col, no attribute byte
          fcb   $00        black border
+BOOTLINE set   13	32-col start line for BOOT/FAIL messages
          ENDC
 
          fcb   $00 display in lower 512k bank
@@ -104,7 +107,7 @@
          stb   ,-s        save status of start, $00=cold, $01=warm
 * This is done so I can tell what went on in the direct page if there's
 * a crash. 0(crash) 1(reset) -1(startup)
-         beq   Cont       --don't clear out direct page is it's a crash
+         beq   Cont       --don't clear out direct page if it's a crash
          ldb   #$20       start out at $20
          tfr   d,x        here, too
 L0072    sta   ,x+        clear out the direct page
@@ -195,13 +198,13 @@
          ENDC
          rts   
 
-L0011    fdb   ScStart+(11*Width)+((Width-L1)/2)
+L0011    fdb   ScStart+(BOOTLINE*Width)+((Width-L1)/2)
          fcb   L1         length of the text below
 T1       equ   *
          fcc   /NITROS9 BOOT/
 L1       equ   *-T1
 
-         fdb   ScStart+(13*Width)+((Width-LFail)/2)
+         fdb   ScStart+((BOOTLINE+2)*Width)+((Width-LFail)/2)
          fcb   LFail      length of the 'FAILED' string
 TFail    fcc   /FAILED/
 LFail    equ   *-TFail