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

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-07-19 08:41:33 +02:00
parent 526167522f
commit 18a553fbf6
6 changed files with 22 additions and 28 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.

5
BIN/SH.S.txt
View File

@ -122,7 +122,7 @@ L.FMT.GETKEY .DA FMT.GETKEY
J.ESC .DA CL.BS left arrow J.ESC .DA CL.BS left arrow
.DA HIS.GetNext .DA HIS.GetNext
.DA HIS.GetPrev .DA HIS.GetPrev
.DA CL.NAK right arow .DA CL.NAK right arrow
L.IN .DA IN L.IN .DA IN
L.CMD .DA CMD L.CMD .DA CMD
L.ENDCMD .DA ENDCMD L.ENDCMD .DA ENDCMD
@ -232,6 +232,9 @@ CS.RUN jsr CL.Init
>PUSHEA.G StatBuf >PUSHEA.G StatBuf
>LDYA L.HOME.PROFILE >LDYA L.HOME.PROFILE
>SYSCALL puts
>LDYA L.HOME.PROFILE
* >DEBUG
>SYSCALL STAT >SYSCALL STAT
bcs CS.RUN.LOOP no profile... bcs CS.RUN.LOOP no profile...

36
LIB/LIBTCPIP.S.SKT.txt
View File

@ -444,12 +444,7 @@ SKT.GetDataFromSktIn
adc SKT.Cache+S.SOCKET.TCP.INTAIL+1 adc SKT.Cache+S.SOCKET.TCP.INTAIL+1
sta ZPTmpPtr1+1 sta ZPTmpPtr1+1
lda ZPDataInLen jsr SKT.GetNotDataInLen
eor #$FF
tax
lda ZPDataInLen+1
eor #$FF
pha pha
.DO AUXPIPE=1 .DO AUXPIPE=1
@ -538,12 +533,7 @@ SKT.AddDataToSktIn
adc SKT.Cache+S.SOCKET.TCP.INHEAD+1 adc SKT.Cache+S.SOCKET.TCP.INHEAD+1
sta ZPTmpPtr1+1 sta ZPTmpPtr1+1
lda ZPDataInLen jsr SKT.GetNotDataInLen
eor #$FF
tax
lda ZPDataInLen+1
eor #$FF
pha pha
ldy SKT.Cache+S.SOCKET.TCP.INHEAD ldy SKT.Cache+S.SOCKET.TCP.INHEAD
@ -655,12 +645,7 @@ SKT.AddDataToSktOut
ldy SKT.Cache+S.SOCKET.TCP.OUTHEAD ldy SKT.Cache+S.SOCKET.TCP.OUTHEAD
lda ZPDataInLen jsr SKT.GetNotDataInLen
eor #$FF
tax
lda ZPDataInLen+1
eor #$FF
pha pha
.1 .DO AUXPIPE=1 .1 .DO AUXPIPE=1
@ -1368,17 +1353,22 @@ SKT.SetFrameOutTCPUDPPorts
rts rts
*-------------------------------------- *--------------------------------------
SKT.GetNotDataInLen
lda ZPDataInLen
eor #$FF
tax
lda ZPDataInLen+1
eor #$FF
rts
*--------------------------------------
SKT.CopyDataInToOut SKT.CopyDataInToOut
lda ZPDataInPtr+1 lda ZPDataInPtr+1
pha pha
lda ZPDataOutPtr+1 lda ZPDataOutPtr+1
pha pha
lda ZPDataInLen jsr SKT.GetNotDataInLen
eor #$ff
tax
lda ZPDataInLen+1
eor #$ff
pha pha
ldy #0 ldy #0

1
SYS/KERNEL.S.INIT.txt
View File

@ -1001,6 +1001,7 @@ TskMgrInit >LDYAI MSG.TSK
txa txa
ldy #S.PS.hPREFIX ldy #S.PS.hPREFIX
sta (pPs),y
>PUSHWI $2C0 Get BOOT from QC >PUSHWI $2C0 Get BOOT from QC
>LDYAI I.ENV.BOOT >LDYAI I.ENV.BOOT

2
SYS/KERNEL.S.STRING.txt
View File

@ -89,8 +89,8 @@ K.StrCpy clc
K.StrDup >STYA .1+1 K.StrDup >STYA .1+1
>STYA .4+1 >STYA .4+1
ldy #0
lda #0 lda #0
tay
.1 ldx $ffff,y .1 ldx $ffff,y
beq .2 beq .2