Kernel 0.93+

ProDOS.FX/ProDOS.S.ILDR.txt

@@ -33,9 +33,7 @@ gfi_ok 			lda gfi_type
 				jsr sysentry			execute ATinit
 
 H23DF  			jmp ILDR.SYSTEM			execute .system file
-
-* fatal error
-
+*--------------------------------------
 H23E2 			ldx ATINIT.ERR
 H23E5  			lda ATINIT.ERR,x
 				sta vline16,x

ProDOS.FX/ProDOS.S.LDR.txt

@@ -7,6 +7,8 @@ NEW
 				sta	$C010
 				.EM
 				
+READCAT			.EQ 0					Boot Block read Catalog at $C00				
+				
 H2000			jmp prostart
 				jmp atalkset
 				jmp p16start
@@ -412,8 +414,9 @@ LDR.ReadRoot	jsr MLI
 				.DA LDR.MLISETP.P
 				bcs .9
 
+				.DO READCAT=1
 				stz dst
-				lda /DirBlkBuf
+				lda /dbuf
 				ldy #$02	  			read directory into buffer
 				ldx #0
 				
@@ -440,7 +443,8 @@ LDR.ReadRoot	jsr MLI
 				inc						add $200 to buffer pointer
 				cmp /dbuf+$800	  		until it points past end of buffer.
 				bcc .1					if ok, read next block.
-
+				.FIN
+				
 .8  			jmp $800				jmp to "load interpreter" code
 
 .9		 		sta RROMBNK2

ProDOS.FX/ProDOS.S.txt

@@ -125,7 +125,6 @@ vline16			.EQ	$07A8				line 16 of display
 vline23			.EQ	$0750				line 23 of display
 vline24			.EQ	$07D0				line 24 of display
 
-DirBlkBuf		.EQ $0C00
 dbuf			.EQ	$0C00				8 page directory buffer
 vblock1			.EQ	$0E00				ramdisk directory block
 volbuf			.EQ	$0F00				volume buffer