Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-07-06 12:29:02 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-07-09 20:57:35 +02:00
parent a5096eef4e
commit 44eb7b8a82
3 changed files with 15 additions and 23 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.

34
BIN/IRC.S.txt
View File

@ -273,17 +273,9 @@ CS.RUN.LOOP >SLEEP
tay tay
bne .2 bne .2
lda #"I" jsr CS.RUN.GetMsg
sta $427
>PUSHWI MSGSIZE
>PUSHW ZPMsgPtr
lda hFile
>SYSCALL fgets
bcs .9 bcs .9
lda #"O"
sta $427
jsr CS.RUN.REQ jsr CS.RUN.REQ
bcs .9 bcs .9
@ -458,13 +450,10 @@ CS.RUN.NICK >LDYA L.MSG.NICK
.1 >SLEEP .1 >SLEEP
>PUSHWI MSGSIZE jsr CS.RUN.GetMsg
>PUSHW ZPMsgPtr
lda hFile
>SYSCALL fgets
bcs .9 bcs .9
jsr CS.RUN.SPLITMSG jsr CS.RUN.SplitMsg
jsr CS.RUN.DUMPMSG jsr CS.RUN.DUMPMSG
ldy #$ff ldy #$ff
@ -500,13 +489,10 @@ CS.RUN.USER >LDYA L.MSG.USER
.1 >SLEEP .1 >SLEEP
>PUSHWI MSGSIZE jsr CS.RUN.GetMsg
>PUSHW ZPMsgPtr
lda hFile
>SYSCALL fgets
bcs .9 bcs .9
.2 jsr CS.RUN.SPLITMSG .2 jsr CS.RUN.SplitMsg
jsr CS.RUN.DUMPMSG jsr CS.RUN.DUMPMSG
ldy #$ff ldy #$ff
@ -554,7 +540,7 @@ CS.RUN.JOIN >LDYA L.MSG.JOIN
.2 >SYSCALL FPrintF .2 >SYSCALL FPrintF
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN.REQ jsr CS.RUN.SPLITMSG CS.RUN.REQ jsr CS.RUN.SplitMsg
bcs .8 bcs .8
* jsr CS.RUN.DUMPMSG * jsr CS.RUN.DUMPMSG
@ -650,7 +636,13 @@ CS.RUN.CMD.376
>SYSCALL PrintF >SYSCALL PrintF
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.SPLITMSG >LDYA pData CS.RUN.GetMsg >PUSHWI MSGSIZE
>PUSHW ZPMsgPtr
lda hFile
>SYSCALL fgets
rts
*--------------------------------------
CS.RUN.SplitMsg >LDYA pData
>STYA ZPMsgPfxPtr >STYA ZPMsgPfxPtr
>STYA ZPMsgCmdPtr >STYA ZPMsgCmdPtr
>STYA ZPMsgArgPtr >STYA ZPMsgArgPtr

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

@ -214,8 +214,8 @@ K.FGetS jsr PFT.CheckNodeA
rts rts
.2 lda K.IOBuf .2 lda K.IOBuf
cmp #C.LF Discard any leading LF cmp #C.LF Discard any leading LF from a previous CR/LF
beq .1 beq .8 returns as empty string
cmp #C.CR cmp #C.CR
beq .8 empty string beq .8 empty string