mirror of https://github.com/A2osX/A2osX.git
53 lines
1008 B
Plaintext
53 lines
1008 B
Plaintext
NEW
|
||
AUTO 3,1
|
||
*--------------------------------------
|
||
SOCK.OPEN lda IO.hFD
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
SOCK.CLOSE ldy #S.FD.SSOCK.CLOSE
|
||
.HS 2C BIT ABS
|
||
*--------------------------------------
|
||
SOCK.EOF ldy #S.FD.SSOCK.EOF
|
||
jsr SOCK.SETUP
|
||
SOCK.JMP jmp (pDrv)
|
||
*--------------------------------------
|
||
SOCK.READ ldy #S.FD.SSOCK.READ
|
||
.HS 2C BIT ABS
|
||
*--------------------------------------
|
||
SOCK.WRITE ldy #S.FD.SSOCK.WRITE
|
||
jsr SOCK.SETUP
|
||
|
||
>PUSHA hFD
|
||
|
||
phx
|
||
|
||
ldx #4
|
||
ldy #4
|
||
|
||
.1 lda (pStack),y
|
||
>PUSHA
|
||
dex
|
||
bne .1
|
||
|
||
plx
|
||
jsr SOCK.JMP
|
||
|
||
>RET 5
|
||
*--------------------------------------
|
||
SOCK.SETUP lda (pFD),y
|
||
tax Function Offset in LIB
|
||
|
||
ldy #S.FD.SSOCK.IOH
|
||
lda (pFD),y
|
||
jsr K.GetMemPtr
|
||
>STYA pDrv
|
||
|
||
lda IO.hFD
|
||
rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/sys/kernel.s.sock
|
||
LOAD usr/src/sys/kernel.s
|
||
ASM
|