Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-03-28 20:30:09 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-06-25 23:20:22 +02:00
parent 1da0f1677f
commit ba6ee5fd3f
3 changed files with 47 additions and 39 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.

71
BIN/IRC.S.txt
View File

@ -25,9 +25,6 @@ ZPPtr1 .BS 2
hSocket .BS 1
hFile .BS 1
ZPUsrBufPtr .BS 2
hUsrBuf .BS 1
hLineBuf .BS 1
ZPLineBufPtr .BS 2
@ -101,6 +98,7 @@ L.IRC.CMDS .DA IRC.CMDS
J.IRC.CMDS .DA CS.RUN.CMD.PING
.DA CS.RUN.CMD.PRIVMSG
.DA CS.RUN.CMD.MODE
.DA CS.RUN.CMD.353
J.ESC .DA CS.RUN.CHARIN.LEFT
.DA CS.RUN.CHARIN.DOWN
.DA CS.RUN.CHARIN.UP
@ -254,6 +252,7 @@ CS.RUN.OPENSKT >PUSHBI 0 no protocol
jsr CS.RUN.JOIN
bcs .99
>LDYA pData
jsr CS.RUN.STATUSPDATE
bcs .99
@ -327,15 +326,6 @@ CS.RUN.GETBUF >LDYAI MSGSIZE
stx hMsgBuf
>STYA ZPMsgPtr
>LDYAI 256
>SYSCALL GetMem
bcs .9
stx hUsrBuf
>STYA ZPUsrBufPtr
lda #0
sta (ZPUsrBufPtr)
>LDYAI 256
>SYSCALL GetMem
bcs .9
@ -393,13 +383,17 @@ CS.RUN.TOPUPDATE
rts
*--------------------------------------
CS.RUN.STATUSPDATE
pha
phy
>PUSHW ZPLineBufPtr
>PUSHW L.MSG.STATUSBAR
lda #4
>SYSCALL ArgV
>PUSHYA
>PUSHW ZPUsrBufPtr
ply
pla
>PUSHYA
>PUSHBI 4
bra CS.RUN.STATUS
@ -572,7 +566,7 @@ CS.RUN.JOIN >LDYA L.MSG.JOIN
CS.RUN.REQ jsr CS.RUN.SPLITMSG
bcs .8
jsr CS.RUN.DUMPMSG
* jsr CS.RUN.DUMPMSG
>LDYA L.IRC.CMDS
>STYA ZPPtr1
@ -618,7 +612,7 @@ CS.RUN.REQ jsr CS.RUN.SPLITMSG
CS.RUN.CMD.PING >PUSHB hFile
>PUSHW L.IRC.PONG
>PUSHW ZPMsgArgPtr
>PUSHW ZPMsgExtPtr
>PUSHBI 2
>SYSCALL FPrintF
rts
@ -626,7 +620,7 @@ CS.RUN.CMD.PING >PUSHB hFile
CS.RUN.CMD.PRIVMSG
>PUSHW L.SEQ.PRIVMSG
>PUSHW ZPMsgArgPtr
>PUSHW ZPMsgPfxPtr
>PUSHW ZPMsgExtPtr
>PUSHBI 4
@ -637,6 +631,9 @@ CS.RUN.CMD.MODE
clc
rts
*--------------------------------------
CS.RUN.CMD.353 >LDYA ZPMsgExtPtr
jmp CS.RUN.STATUSPDATE
*--------------------------------------
CS.RUN.SPLITMSG >LDYA pData
>STYA ZPMsgPfxPtr
>STYA ZPMsgCmdPtr
@ -644,10 +641,11 @@ CS.RUN.SPLITMSG >LDYA pData
>STYA ZPMsgExtPtr
ldy #0
ldx #0
lda (ZPMsgPtr)
cmp #':'
bne .21
bne .2
lda ZPMsgPtr
clc
@ -667,25 +665,28 @@ CS.RUN.SPLITMSG >LDYA pData
lda #0
sta (ZPMsgPtr),y
.2 tya
tax
iny Skip blank
.21 iny
tya
tax Save CMD start pos
.2 iny
lda (ZPMsgPtr),y
beq .4
.3 cmp #C.SPACE
bne .21
bne .2
lda #0
sta (ZPMsgPtr),y
inc
iny Skip blank
.4 php
txa
sec
clc
adc ZPMsgPtr
sta ZPMsgCmdPtr
@ -697,12 +698,11 @@ CS.RUN.SPLITMSG >LDYA pData
beq .80
tya
tax
tax Save Arg start pos
iny
lda (ZPMsgPtr),y
cmp #':'
beq .8
beq .71 not arg....ext
.6 iny
@ -714,12 +714,13 @@ CS.RUN.SPLITMSG >LDYA pData
lda #0
sta (ZPMsgPtr),y
inc
iny Skip blank
.7 php
txa
sec
clc
adc ZPMsgPtr
sta ZPMsgArgPtr
@ -729,10 +730,15 @@ CS.RUN.SPLITMSG >LDYA pData
plp
beq .80
lda (ZPMsgPtr),y
cmp #':'
bne .8
.8 iny
tya
sec
.71 iny Skip blank
.8 tya
clc
adc ZPMsgPtr
sta ZPMsgExtPtr
@ -932,6 +938,7 @@ IRC.REP.JOIN .AZ "JOIN"
IRC.CMDS .AZ "PING"
.AZ "PRIVMSG"
.AZ "MODE"
.AZ "353"
.DA #0
*--------------------------------------
IRC.NICK .AZ "NICK %s\r\n"
@ -945,7 +952,7 @@ SEQ.INIT .AZ "\ec\e(B\e)0\e[?7l\e[2;20r\e[22;1H\e[?7h"
SEQ.BAR .AZ "\e7\e[%d;1H\e[7m\e[37;40m%80s\e[0m\e8"
SEQ.TXTCLR .AZ "\e[22;1H\e[K\r\n\e[K\r\n\e[K\e[22;1H"
SEQ.PRIVMSG .AZ "\e7\e[20;1H\r\n\e[7m%s:\e[0m%s\r\n\e8"
SEQ.DUMPMSG .AZ "\e7\e[20;1H\r\n\e[7m%s\e[0m %s %s %s\r\n\e8"
SEQ.DUMPMSG .AZ "\e7\e[20;1H\r\n\e[7m%s \e[0m%s %s %s\e8"
SEQ.RESET .AZ "\ec"
*--------------------------------------
SA.LOCAL .DA #AF.INET S.SOCKADDR.AF

15
BIN/KCONFIG.S.txt
View File

@ -197,11 +197,12 @@ CS.RUN.Load >PUSHW L.FILENAME
>LDA.G StatBuf+S.STAT.P.TYPE
eor #S.FI.T.SYS
bne .99
>PUSHWI A2osX.KCONFIG
>PUSHBI S.FI.T.SYS
>PUSHW L.FILENAME
>PUSHBI O.RDONLY
>LDYA L.FILENAME
>PUSHBI S.FI.T.SYS
>PUSHWI A2osX.KCONFIG
>SYSCALL LoadFile
bcs .99
@ -235,10 +236,10 @@ CS.RUN.Load >PUSHW L.FILENAME
sec
rts
*--------------------------------------
CS.RUN.Save >PUSHWI A2osX.KCONFIG
>PUSHBI S.FI.T.SYS
CS.RUN.Save >PUSHW L.FILENAME
>PUSHBI O.WRONLY+O.CREATE+O.TRUNC
>LDYA L.FILENAME
>PUSHBI S.FI.T.SYS
>PUSHWI A2osX.KCONFIG
>SYSCALL FOpen
bcs .9
pha save hFile