mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-25 00:23:52 +00:00
Kernel 0.93
This commit is contained in:
parent
94a15e1ec3
commit
13b16e76be
@ -15,6 +15,7 @@ TIMEOUT.MAX .EQ 100 10 sec.
|
|||||||
.OR ZPBIN
|
.OR ZPBIN
|
||||||
ZS.START
|
ZS.START
|
||||||
ZPPtr1 .BS 2
|
ZPPtr1 .BS 2
|
||||||
|
TimeOut .BS 1
|
||||||
ZS.END .ED
|
ZS.END .ED
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* File Header (16 Bytes)
|
* File Header (16 Bytes)
|
||||||
@ -120,7 +121,8 @@ CS.RUN.LOOP0 >SLEEP
|
|||||||
>SYSCALL fwrite
|
>SYSCALL fwrite
|
||||||
bcs CS.RUN.EXIT I/O error
|
bcs CS.RUN.EXIT I/O error
|
||||||
|
|
||||||
jsr Init.Timeout
|
lda #TIMEOUT.MAX
|
||||||
|
sta TimeOut
|
||||||
|
|
||||||
CS.RUN.LOOP1 >SLEEP
|
CS.RUN.LOOP1 >SLEEP
|
||||||
|
|
||||||
@ -144,8 +146,8 @@ CS.RUN.LOOP1 >SLEEP
|
|||||||
|
|
||||||
bra CS.RUN.LOOP1
|
bra CS.RUN.LOOP1
|
||||||
|
|
||||||
.1 jsr Wait.Timeout
|
.1 lda TimeOut
|
||||||
bcc CS.RUN.LOOP1
|
bne CS.RUN.LOOP1
|
||||||
|
|
||||||
>LDA.G ArgDev
|
>LDA.G ArgDev
|
||||||
>SYSCALL ArgV
|
>SYSCALL ArgV
|
||||||
@ -264,11 +266,10 @@ CS.RUN.IAC.SB >SYSCALL GetChar Wait for IAC SB.IS or SEND
|
|||||||
CS.DOEVENT lda (pEvent)
|
CS.DOEVENT lda (pEvent)
|
||||||
bpl .9 is it a TIMER event?
|
bpl .9 is it a TIMER event?
|
||||||
|
|
||||||
>LDA.G TimeOut
|
lda TimeOut
|
||||||
beq .9
|
beq .9
|
||||||
|
|
||||||
dec
|
dec TimeOut
|
||||||
sta (pData),y
|
|
||||||
|
|
||||||
.9 sec do not discard TIMER event
|
.9 sec do not discard TIMER event
|
||||||
rts
|
rts
|
||||||
@ -281,16 +282,6 @@ CS.QUIT >LDA.G hFILE
|
|||||||
.8 clc
|
.8 clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Init.Timeout lda #TIMEOUT.MAX
|
|
||||||
>STA.G TimeOut
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
Wait.TimeOut sec
|
|
||||||
>LDA.G TimeOut
|
|
||||||
beq .9
|
|
||||||
clc
|
|
||||||
.9 rts
|
|
||||||
*--------------------------------------
|
|
||||||
CkeckOption lda (ZPPtr1)
|
CkeckOption lda (ZPPtr1)
|
||||||
cmp #'-'
|
cmp #'-'
|
||||||
bne .8
|
bne .8
|
||||||
@ -351,7 +342,6 @@ ArgDev .BS 1
|
|||||||
ArgProg .BS 1
|
ArgProg .BS 1
|
||||||
hFILE .BS 1
|
hFILE .BS 1
|
||||||
bExitOnClose .BS 1
|
bExitOnClose .BS 1
|
||||||
TimeOut .BS 1
|
|
||||||
IAC.CMD .BS 1
|
IAC.CMD .BS 1
|
||||||
IAC.SUBCMD .BS 1
|
IAC.SUBCMD .BS 1
|
||||||
IAC.SB.CMD .BS 1
|
IAC.SB.CMD .BS 1
|
||||||
|
@ -938,14 +938,11 @@ DevMgrInit.SP ldy #$ff
|
|||||||
.1 jsr $ffff Self Modified
|
.1 jsr $ffff Self Modified
|
||||||
.DA #0 Status
|
.DA #0 Status
|
||||||
.DA SP.IOCTL.STATUS
|
.DA SP.IOCTL.STATUS
|
||||||
bcs .9
|
bcs DevMgrInit.AddBDev.RTS
|
||||||
|
|
||||||
ldx SP.IOCTL.STATUS.DIB+S.DIB.S
|
ldx SP.IOCTL.STATUS.DIB+S.DIB.S
|
||||||
|
|
||||||
>LDYAI DRV.SmartPort
|
>LDYAI DRV.SmartPort
|
||||||
jsr DevMgrInit.AddBDev
|
|
||||||
|
|
||||||
.9 rts
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DevMgrInit.AddBDev
|
DevMgrInit.AddBDev
|
||||||
>STYA FD.BDEV+S.FD.DEV.DRVPTR
|
>STYA FD.BDEV+S.FD.DEV.DRVPTR
|
||||||
@ -966,6 +963,7 @@ DevMgrInit.AddBDev
|
|||||||
>PUSHWI FD.BDEV.NAME
|
>PUSHWI FD.BDEV.NAME
|
||||||
>LDYAI FD.BDEV
|
>LDYAI FD.BDEV
|
||||||
>SYSCALL MKDev
|
>SYSCALL MKDev
|
||||||
|
DevMgrInit.AddBDev.RTS
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
EvtMgrInit >LDYAI MSG.EVT
|
EvtMgrInit >LDYAI MSG.EVT
|
||||||
|
Loading…
Reference in New Issue
Block a user