Kernel 0.93

SBIN/GETTY.S.txt

@@ -15,6 +15,7 @@ TIMEOUT.MAX		.EQ 100					10 sec.
 				.OR ZPBIN
 ZS.START
 ZPPtr1			.BS 2
+TimeOut			.BS 1
 ZS.END			.ED
 *--------------------------------------
 *			File Header (16 Bytes)
@@ -120,7 +121,8 @@ CS.RUN.LOOP0 	>SLEEP
 				>SYSCALL fwrite
 				bcs CS.RUN.EXIT			I/O error
 
-				jsr Init.Timeout
+				lda #TIMEOUT.MAX
+				sta TimeOut
 			
 CS.RUN.LOOP1	>SLEEP
 
@@ -144,8 +146,8 @@ CS.RUN.LOOP1	>SLEEP
 				
 				bra CS.RUN.LOOP1
 				
-.1				jsr Wait.Timeout
-				bcc CS.RUN.LOOP1
+.1				lda TimeOut
+				bne CS.RUN.LOOP1
 
 				>LDA.G ArgDev
 				>SYSCALL ArgV
@@ -264,11 +266,10 @@ CS.RUN.IAC.SB  	>SYSCALL GetChar		Wait for IAC SB.IS or SEND
 CS.DOEVENT		lda (pEvent)
 				bpl .9					is it a TIMER event?
 
-				>LDA.G TimeOut
+				lda TimeOut
 				beq .9
 				
-				dec 
-				sta (pData),y
+				dec TimeOut
 				
 .9				sec						do not discard TIMER event
 				rts	
@@ -281,16 +282,6 @@ CS.QUIT			>LDA.G hFILE
 .8				clc
 				rts
 *--------------------------------------
-Init.Timeout	lda #TIMEOUT.MAX
-				>STA.G TimeOut
-				rts
-*--------------------------------------
-Wait.TimeOut	sec
-				>LDA.G TimeOut
-				beq .9
-				clc
-.9				rts
-*--------------------------------------
 CkeckOption		lda (ZPPtr1)
 				cmp #'-'
 				bne .8
@@ -351,7 +342,6 @@ ArgDev			.BS 1
 ArgProg			.BS 1
 hFILE			.BS 1
 bExitOnClose	.BS 1
-TimeOut			.BS 1
 IAC.CMD			.BS 1
 IAC.SUBCMD		.BS 1
 IAC.SB.CMD		.BS 1

SYS/KERNEL.S.INIT.txt

@@ -938,14 +938,11 @@ DevMgrInit.SP	ldy #$ff
 .1				jsr $ffff				Self Modified
 				.DA #0					Status
 				.DA SP.IOCTL.STATUS
-				bcs .9
+				bcs DevMgrInit.AddBDev.RTS
 				
 				ldx SP.IOCTL.STATUS.DIB+S.DIB.S
 				
 				>LDYAI DRV.SmartPort
-				jsr DevMgrInit.AddBDev
-				
-.9				rts
 *--------------------------------------
 DevMgrInit.AddBDev
 				>STYA FD.BDEV+S.FD.DEV.DRVPTR
@@ -966,6 +963,7 @@ DevMgrInit.AddBDev
 				>PUSHWI FD.BDEV.NAME
 				>LDYAI FD.BDEV 
 				>SYSCALL MKDev
+DevMgrInit.AddBDev.RTS				
 				rts
 *--------------------------------------
 EvtMgrInit		>LDYAI MSG.EVT