Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-09-23 15:54:43 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.9.1 : KERNEL, Extending SScanf

Browse Source
This commit is contained in:
Rémy GIBERT 2018-05-28 08:00:45 +02:00
parent 2548c4d0d6
commit 9d9e3cda4e
5 changed files with 30 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

BIN
.Floppies/A2OSX.SRC.po
View File

Binary file not shown.

25
BIN/ARP.S.txt
View File

@ -64,7 +64,7 @@ CS.RUN ldy #S.PS.ARGC
>PUSHW L.SSCANF.IP >PUSHW L.SSCANF.IP
lda #1 lda #1
>SYSCALL GetArg.A >SYSCALL GetArg.A
>SYSCALL SScanF.YA >SYSCALL SScanF.YA
bcs .9 bcs .9
@ -117,8 +117,29 @@ CS.RUN.QUERY jsr Init.Timeout
.9 sec .9 sec
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.ADD CS.RUN.ADD >PUSHEA.G DST.MAC+5
>PUSHEA.G DST.MAC+4
>PUSHEA.G DST.MAC+3
>PUSHEA.G DST.MAC+2
>PUSHEA.G DST.MAC+1
>PUSHEA.G DST.MAC
>PUSHW L.SSCANF.MAC
lda #2
>SYSCALL GetArg.A
>SYSCALL SScanF.YA
bcs .9
>PUSHEA.G DST.MAC
>PUSHEA.G DST.IP
>LIBCALL hLIBTCPIP,LIBTCPIP.ARP.ADD
bcc CS.RUN.DUMP
rts
.9 lda #K.E.SYN
.99 sec
rts
*-------------------------------------- *--------------------------------------
CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.ARP.GETCACHE CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.ARP.GETCACHE
>STYA ZPPTR1 >STYA ZPPTR1

8
SYS/KERNEL.S.STDIO.txt
View File

@ -173,8 +173,8 @@ K.GetC.CDEV ldx #DEVMGR.READ
.1 jmp $ffff .1 jmp $ffff
*-------------------------------------- *--------------------------------------
K.GetC.SSOCK lda (pDev) #S.NODE.HANDLER K.GetC.SSOCK lda (pDev) #S.NODE.HANDLER
jsr K.GetMemPtr.A * jsr K.GetMemPtr.A
>STYA .1+1 * >STYA .1+1
* ldy #S.NODE.SSOCK.READ * ldy #S.NODE.SSOCK.READ
* lda (pDev),y * lda (pDev),y
@ -183,7 +183,7 @@ K.GetC.SSOCK lda (pDev) #S.NODE.HANDLER
* ldy #S.NODE.SSOCK.HSKT * ldy #S.NODE.SSOCK.HSKT
* lda (pDev),y * lda (pDev),y
.1 jmp $ffff *.1 jmp $ffff
*-------------------------------------- *--------------------------------------
K.GetC.FIFO K.GetC.FIFO
*/-------------------------------------- */--------------------------------------
@ -719,7 +719,7 @@ K.SScanF.U pha Save VAL size
*-------------------------------------- *--------------------------------------
K.SScanF.HH K.SScanF.HH
K.SScanF.H pha K.SScanF.H pha
jsr STDLIB.GetHex jsr STDLIB.GetHex
K.SScanF.GetVAL tya Y=char count parsed K.SScanF.GetVAL tya Y=char count parsed

7
SYS/KERNEL.S.STDLIB.txt
View File

@ -176,7 +176,10 @@ STDLIB.GetDec jsr STDLIB.32.Clear
jsr MEM.IsDigit jsr MEM.IsDigit
bcs .8 bcs .8
phy Save Y, pointing to next char
jsr STDLIB.32.T10 jsr STDLIB.32.T10
ply
bcs .9 bcs .9
lda (ZPPtr2),y lda (ZPPtr2),y
@ -212,8 +215,6 @@ STDLIB.32.T10 ldx #3
jsr STDLIB.32.T2 STDLIB.32 * 4 -> STDLIB.32 jsr STDLIB.32.T2 STDLIB.32 * 4 -> STDLIB.32
bcs STDLIB.32.9 overflow!!! bcs STDLIB.32.9 overflow!!!
phy Save Y, pointing to next char
ldx #0 ldx #0
ldy #4 ldy #4
@ -226,8 +227,6 @@ STDLIB.32.T10 ldx #3
dey dey
bne .2 bne .2
ply
bcs STDLIB.32.RTS overflow!!! bcs STDLIB.32.RTS overflow!!!
* STDLIB.32 * 2 -> STDLIB.32 * STDLIB.32 * 2 -> STDLIB.32