Kernel 0.93+

BIN/EDIT.S.FILE.txt

@@ -8,21 +8,11 @@ NewFile			stz FileLen
 				clc
 				rts
 *--------------------------------------
-LoadFile		>PUSHWZ				Aux type
-				>PUSHBZ				Type
-				>PUSHBI	O.RDONLY
+LoadFile		>PUSHEA.G STATBUF
 				>LDA.G hFileName
 				>SYSCALL GetMemPtr
-				>SYSCALL fopen
+				>SYSCALL stat
 				bcs NewFile
-
-				txa
-				>STA.G hFile
-				
-				>PUSHEA.G STATBUF
-				>LDA.G hFile
-				>SYSCALL fstat
-				bcs .9
 				
 				>LDA.G STATBUF+S.STAT.P.TYPE
 				cmp #S.FI.T.TXT
@@ -31,9 +21,6 @@ LoadFile		>PUSHWZ				Aux type
 				bne .91
 
 				jmp LoadFile.ASM
-
-				>LDA.G hFile
-				>SYSCALL fclose
 				
 .91				lda #MLI.E.INCFF
 				sec
@@ -99,7 +86,23 @@ LoadFile		>PUSHWZ				Aux type
 				sec
 				rts
 *--------------------------------------
-LoadFile.TXT	stz 
+LoadFile.TXT	stz FileLen
+				stz FileLen+1
+				
+				>PUSHWZ				Aux type
+				>PUSHBI S.FI.T.TXT
+				>PUSHBI	O.RDONLY+O.TEXT
+				>LDA.G hFileName
+				>SYSCALL GetMemPtr
+				>SYSCALL fopen
+				bcs .9
+				
+				txa
+				>STA.G hFile
+				
+				
+				
+.9				rts				
 *--------------------------------------
 LoadFile.ASM
 				lda #MLI.E.INCFF

BIN/EDIT.S.SCRN.txt

@@ -2,14 +2,7 @@ NEW
   AUTO 3,1
 				.LIST OFF
 *--------------------------------------
-SCRN.Init		>LDYAI 510+5+5+4+1		potentially 255*\\ NORM,INV,CEOL & \0
-				>SYSCALL Getmem
-				bcs .9
-				>STYA LineBufPtr
-				txa
-				>STA.G hLineBuffer
-
-				>LDA.G ScreenH
+SCRN.Init		>LDA.G ScreenH
 				dec
 				>PUSHA
 				>PUSHBI 1

BIN/EDIT.S.txt

@@ -137,6 +137,13 @@ CS.RUN			>PUSHBI 0
 				>LDA.G ScreenW			Wait for Response from terminal for W & H
 				beq .1
 
+				>LDYAI 510+5+5+4+1		potentially 255*\\ NORM,INV,CEOL & \0
+				>SYSCALL Getmem
+				bcs CS.RUN.RTS
+				>STYA LineBufPtr
+				txa
+				>STA.G hLineBuffer
+
 				lda #1
 				>SYSCALL ArgV
 				bcs .2					No arg, new file....

ProDOS.FX/ProDOS.S.LDR.txt

@@ -215,6 +215,13 @@ m128k  			sta idapple				Save MACHID in temp location
 LDR.IIGS		stz vmode				force setvid to reset cursor
 				jsr setvid	   			reset output to screen
 
+				lda #calldisp
+				sta cortdisp
+				lda /calldisp
+				sta cortdisp+1
+				lda #1
+				sta cortflag
+				
 				ldx PAKME.CCLK
 				ldy PAKME.CCLK+1
 				jsr LDR.SetupCLK
@@ -556,7 +563,6 @@ LDR.ClkDevScan	php
 				jmp LDR.SetupCLK
 				
 LDR.ClkDevTCLK	lda CLRC8ROM	   		switch out $C8 ROMs
-				ldy #$05
 				
 				stz idxl
 				lda #$C1

ProDOS.FX/ProDOS.S.XDOS.F.txt

@@ -761,16 +761,16 @@ spvectlo 		.HS 0000000000000000  	storage for low byte of smartport entry.
 spvecthi 		.HS 0000000000000000  	storage for high byte of smartport entry.
 				.HS 00000000000000
 
-cortflag 		.HS 00			  		cortland flag. 1 = Cortland system (must stay within page boundary)
-
 XDOS.DATA.LEN	.EQ *-XDOS.DATA
 
 				.ED
 				
 * zero fill to page boundary - 3 ($FEFD). so that cortland flag stays within page boundary.
 				.LIST ON
-XDOS.FREE		.EQ $FF00-*-XDOS.DATA.LEN		(ProDOS 2.0.3 = $0C)
+XDOS.FREE		.EQ $FEFD-*-XDOS.DATA.LEN		(ProDOS 2.0.3 = $0C)
 				.LIST OFF
+cortdisp		.EQ $FEFD				
+cortflag 		.EQ $FEFF			  		cortland flag. 1 = Cortland system (must stay within page boundary)			
 *--------------------------------------
 XDOS.LEN		.EQ *-XDOS.START
 MAN