Mercurial > hg > Members > kono > nitros9-code

changeset 2583:307e619f3cd9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Corrected silly typo which occured during upload.
author robertgault
date Fri, 16 Sep 2011 09:41:34 +0000
parents af48b1e02c6c
children f7f97fe766e3
files level1/cmds/cobbler.asm
diffstat 1 files changed, 17 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/level1/cmds/cobbler.asm	Fri Sep 16 09:33:21 2011 +0000
+++ b/level1/cmds/cobbler.asm	Fri Sep 16 09:41:34 2011 +0000
@@ -20,6 +20,10 @@
 * Removed hard coded FAT buffer and calculated the size from DD.BIT.
 * Added error message if not enough memory for buffer.
 * Moved common code into subroutine for CheckAlloc & Allocate.
+*
+*        2011/09/16 Robert Gault
+* Corrected a typo which occured when committing code. Exit of Initcalc had
+* ABM3 in wrong place.
 
          nam   Cobbler
          ttl   Write OS9Boot to a disk
@@ -29,7 +33,7 @@
 *The next line needed for stand-alone compiling. It should not
 * be present in the NitrOS-9 project.
 
-*LEVEL    equ	2
+*Level    equ	2
 
          IFP1
          use   defsfile
@@ -62,7 +66,6 @@
 u008E    	rmb   1
 u008F    	rmb   7
 u0096    	rmb   232
-
 		IFGT  Level-1
 u057E    	rmb   76
 u05CA    	rmb   8316
@@ -90,7 +93,9 @@
          fcb   C$LF
          fcc   "Error - cannot gen to hard disk"
          fcb   C$CR
-	 
+SeekErr	 fcb	C$LF
+	 fcc	"Error seeking sector"
+	 fcb	C$CR	 
 	IFNE	DRAGON
 FileWarn fcb   C$LF
          fcc   "Warning - not a Dragon "
@@ -175,12 +180,14 @@
          os9   I$Read   		read LSN0
          lbcs  Bye			Error : exit
 
+	ifeq	0
 * Request memory fot the FAT buffer + 256 bytes for stack space R.G.
          ldd	<DD.MAP
          addd	#size+256
          os9	F$Mem
          lbcs	NoMem
 	 tfr	y,s
+	endc
 
          ldd   <DD.BSZ			get size of bootfile currently
          beq   L019F			branch if none
@@ -309,7 +316,7 @@
          ldd   >bffdbuf+(FD.SEG+1),u
          std   <DD.BT+1
          lbsr  WriteLSN0		Write bootfile loc to LSN0 on disk
-	 
+ 
          ldd   #$0001
          lbsr  Seek2LSN
          leax  >bitmbuf,u		Point to bitmap buffer
@@ -512,8 +519,8 @@
 CAnz	 tfr	d,y		regY has been divided by DD.BIT
 	 ldd	,s		recover content
 	 leas	4,s		clean stack
-	 rts
-CA3	equ	*
+CA3	 rts
+
 *
 * CheckAlloc, check to see if a block of sectors is allocated.
 * 
@@ -632,7 +639,7 @@
          tfr   d,x
          lda   <devpath
          os9   I$Seek   
-         bcs   WriteBad
+         bcs   SeekBad
          puls  pc,u,y,x,b,a
 
 WriteLSN0
@@ -676,7 +683,9 @@
 WriteBad leax  >WritErr,pcr
          clrb  
          bra   DisplayErrorAndExit
-
+SeekBad	leax	SeekErr,pcr
+	clrb
+	bsr	DisplayErrorAndExit
 TrkAlloc leax  >FileWarn,pcr
          clrb  
          bra   DisplayErrorAndExit