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
@@ -39,7 +38,7 @@ RDHIRES			.EQ	$C01D				R
 RDALTCHAR		.EQ $C01E				R
 RD80DISP		.EQ $C01F				R
 *TAPEOUT		.EQ $C020				W
-newvideo 		.EQ	$C029		video mode select
+newvideo 		.EQ	$C029				video mode select
 SPEAKER 		.EQ $C030 				W, toggle speaker diaphragm 
 *STROBE			.EQ $C040 				R, generate .5 uS low pulse @ Game pin 5 
 *RDVBLIIC		.EQ $C05A				R, VBL switch Status (IIc)
@@ -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 
 
@@ -79,7 +76,7 @@ SOLIDAPPLE		.EQ $C062				R
 *PADDLE1		.EQ	$C065 				R, bit 7 = status of pdl-1 timer
 *PADDLE2		.EQ	$C066 				R, bit 7 = status of pdl-2 timer
 *PADDLE3		.EQ	$C067 				R, bit 7 = status of pdl-3 timer
-statereg 		.EQ	$C068		memory state register
+statereg 		.EQ	$C068				memory state register
 *PDLTRIG 		.EQ $C070 				W, trigger paddles
 
 SETIOUDIS		.EQ $C07E 				W, enable DHIRES & disable $C058-5F

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