Kernel 0.93+

BIN/ATBROWSE.S.txt

@@ -23,7 +23,7 @@ CS.START		cld
 				.DA 0
 				.DA CS.END-CS.START		CS
 				.DA DS.END-DS.START		DS
-				.DA #16					SS
+				.DA #64					SS
 				.DA #4					ZP
 				.DA 0
 *--------------------------------------
@@ -44,17 +44,23 @@ CS.INIT			clc
 				rts
 *--------------------------------------
 CS.RUN			>STZ.G P.GetInfo		Sync
+
 				lda #ATGetInfo
 				>STA.G P.GetInfo+1
+				
+				>LEA.G P.GetInfo
+			>DEBUG
 				jsr A2osX.ATKCALL
-				bcc .10
+				bcc CS.RUN.ATKOK
+
 				pha
 				>LDYA L.MSG.NOATK
 				>SYSCALL printf
 				pla
 				sec
-.99				rts
+				rts
-.10				>LDA.G P.GetInfo+$E		NODE
+
+CS.RUN.ATKOK	>LDA.G P.GetInfo+$E		NODE
 				>PUSHA
 				>PUSHW.G P.GetInfo+$8	NET
 				>LDYA L.MSG.NETNODE
@@ -73,19 +79,26 @@ CS.RUN			>STZ.G P.GetInfo		Sync
 				>STYA.G P.LookupName+$10	BufLen
 				>SYSCALL getmem
 				bcs .99
+
 				>STYA.G P.LookupName+$12	BufPtr
 				>STYA ZPPTR1
 				txa
 				>STA.G hBuf
+
 				lda #16
 				>STA.G P.LookupName+$16		MaxMatch
+				
+				>LEA.G P.LookupName
 				jsr A2osX.ATKCALL
-				bcs .99
+.99				bcs .9
+
 				>LDA.G P.LookupName+$17
 				beq .8
+
 				>LDYA L.MSG.DUMP0
 				>SYSCALL printf
 				bcs .9
+
 .1				lda ZPPTR1
 				clc
 				adc #5
@@ -96,12 +109,15 @@ CS.RUN			>STZ.G P.GetInfo		Sync
 				>PUSHW ZPPTR2
 	
 				ldy #4
+
 .2				>PUSHB (ZPPTR1),y
 				dey
 				bpl .2
+
 				>LDYA L.MSG.DUMP
 				>SYSCALL printf
 				bcs .9
+
 				lda ZPPTR2
 				sec
 				adc (ZPPTR2)
@@ -111,7 +127,9 @@ CS.RUN			>STZ.G P.GetInfo		Sync
 				sta ZPPTR1+1
 				>DEC.G P.LookupName+$17
 				bne .2
+
 				lda #0
+
 .8				sec
 .9				rts
 *--------------------------------------
@@ -142,5 +160,5 @@ DS.END
 				.ED
 *--------------------------------------
 MAN
-SAVE USR/SRC/BIN/BIN/ATBROWSE.S
+SAVE USR/SRC/BIN/ATBROWSE.S
 ASM

INC/IO.I.txt

@@ -1,6 +1,5 @@
 NEW
-PREFIX
+  AUTO 3,1
-AUTO 4,1
 				.LIST OFF
 *--------------------------------------
 * Software Switches
@@ -64,8 +63,6 @@ SETHIRES		.EQ $C057				W
 SETAN3			.EQ $C05E 				W, Set annunciator-3 output to 0 
 CLRAN3			.EQ $C05F 				W, Set annunciator-3 output to 1 
 
-*DISVBLIIC		.EQ $C05A				W, Disable VBL switch (IIc)
-*ENBVBLIIC		.EQ $C05B				W, Enable VBL switch (IIc)
 SETDHIRES		.EQ $C05E 				W, if IOUDIS Set, turn on double-hires 
 CLRDHIRES		.EQ $C05F 				W, if IOUDIS Set, turn off double-hires 
 

SYS/KERNEL.S.INIT.txt

@@ -449,13 +449,18 @@ CPU.Init.6502	>PUSHBI 0
 				
 				lda MACHID
 				and #MACHID.T
-				cmp #MACHID.T.IIc
+				eor #MACHID.T.IIc
 				bne	.1
 
+				sta CLRIOUDIS
+				lda IO.IIC.RDVBLMSK
+				asl					
 								
+				sta CLRIOUDIS
+				sta IO.IIC.ENVBL
 				
 .1				bit VBL
-				bpl .2
+				bpl .1
 
 .2				bit VBL
 				bmi .2
@@ -481,11 +486,14 @@ CPU.Init.6502	>PUSHBI 0
 				
 .6				lda MACHID
 				and #MACHID.T
-				cmp #MACHID.T.IIc
+				eor #MACHID.T.IIc
 				bne .60
 				
+				lda IO.IIC.CLRVBLIRQ
 				
+				bcs .60
 				
+				sta IO.IIC.DISVBL
 
 .60				plp
 

SYS/KERNEL.S.txt

@@ -8,6 +8,7 @@ NEW
 				.INB INC/MACROS.I
 				.INB INC/A2OSX.I
 				.INB INC/IO.I
+				.INB INC/IO.IIC.I
 				.INB INC/MLI.I
 				.INB INC/MLI.E.I
 				.INB INC/NET.TELNET.I