Kernel 0.9.2

This commit is contained in:
Rémy GIBERT 2018-07-16 17:29:18 +02:00
parent 6c8a40e170
commit 545cd148d0
5 changed files with 16 additions and 13 deletions

Binary file not shown.

Binary file not shown.

View File

@ -34,7 +34,7 @@ L.NODE .DA NODE
*-------------------------------------- *--------------------------------------
Dev.Detect >LDYA L.MSG.DETECT Dev.Detect >LDYA L.MSG.DETECT
>SYSCALL printf >SYSCALL printf
>PUSHW L.INSDRV+4 >PUSHW L.INSDRV+4
>PUSHW L.INSDRV+2 >PUSHW L.INSDRV+2
>LDYA L.INSDRV >LDYA L.INSDRV

View File

@ -43,9 +43,9 @@ CS.INIT ldy #S.PS.ARGC
bne .90 bne .90
lda #1 lda #1
>SYSCALL GetArg.A >SYSCALL GetArg
>SYSCALL MkNod.YA >SYSCALL MkNod
bcs .9 bcs .9
ldy #S.PS.hStdIn ldy #S.PS.hStdIn
@ -58,10 +58,10 @@ CS.INIT ldy #S.PS.ARGC
>STA.G hNode >STA.G hNode
lda #2 lda #2
>SYSCALL GetArg.A >SYSCALL GetArg
bcs .9 bcs .9
>SYSCALL ExpandStr.YA >SYSCALL ExpandStr
bcs .9 bcs .9
txa txa
@ -97,7 +97,7 @@ CS.RUN >SLEEP
.1 lda MSG.TELNETOPT,y .1 lda MSG.TELNETOPT,y
phy phy
>SYSCALL PutChar.A >SYSCALL PutChar
ply ply
iny iny
cpy #MSG.TELNETOPT.LEN cpy #MSG.TELNETOPT.LEN
@ -122,8 +122,8 @@ CS.RUN.LOOP
bcs .8 unable to send greetings...reset.. bcs .8 unable to send greetings...reset..
>LDA.G hBinName >LDA.G hBinName
>SYSCALL GetMemPtr.A >SYSCALL GetMemPtr
>SYSCALL ExecPS.YA >SYSCALL ExecPS
.9 rts .9 rts
@ -218,13 +218,13 @@ CS.DOEVENT lda (pEvent)
*-------------------------------------- *--------------------------------------
CS.QUIT >LDA.G hBinName CS.QUIT >LDA.G hBinName
beq .1 beq .1
>SYSCALL FreeMem.A >SYSCALL FreeMem
.1 >LDA.G hNode .1 >LDA.G hNode
beq .8 beq .8
>PUSHA >PUSHA
>PUSHBI DEVMGR.CLOSE >PUSHBI IOCTL.CLOSE
>PUSHBI 0 >PUSHBI 0
>SYSCALL IOCTL >SYSCALL IOCTL

View File

@ -335,9 +335,12 @@ K.InsDrv >STYA BIN.R.CS.Start
lda DevMgr.Free+1 lda DevMgr.Free+1
sbc BIN.R.CS.Start+1 sbc BIN.R.CS.Start+1
sta BIN.R.Offset+1 sta BIN.R.Offset+1
jsr BIN.Move jsr BIN.Move
>LDYA BIN.R.CS.Start
>STYA ZPPtr1
jsr BIN.RelDrv jsr BIN.RelDrv
>LDYA BIN.R.End >LDYA BIN.R.End
@ -450,10 +453,10 @@ BIN.RelExe ldy #H.BIN.T+1
*-------------------------------------- *--------------------------------------
BIN.RelDrv ldy #H.BIN.DRV.REL.TABLE BIN.RelDrv ldy #H.BIN.DRV.REL.TABLE
.1 lda (ZPPtr1),y Start Relocate JMP table .1 lda (ZPPtr1),y Start Relocate JMP table
tax LO in X tax LO in X
iny iny
ora (ZPPtr1),y ORA with HI ora (ZPPtr1),y ORA with HI
beq .2 $0000 = end of table beq .2 $0000 = end of table
dey dey