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

Kernel 0.92

Browse Source
This commit is contained in:
Rémy GIBERT 2018-12-06 22:58:47 +01:00
parent ad58d07822
commit 530cb8b5e2
3 changed files with 11 additions and 7 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.

16
BIN/HTTPGET.S.txt
View File

@ -20,6 +20,7 @@ ZPHostPtr .EQ ZPBIN+2
ZPPtr .EQ ZPBIN+4 ZPPtr .EQ ZPBIN+4
ZPBufPtr .EQ ZPBIN+6 ZPBufPtr .EQ ZPBIN+6
ZPBufLen .EQ ZPBIN+8 ZPBufLen .EQ ZPBIN+8
ZPRespBufPtr .EQ ZPBIN+10
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
*-------------------------------------- *--------------------------------------
@ -32,7 +33,7 @@ CS.START cld
.DA CS.END-CS.START Code Length To Relocate .DA CS.END-CS.START Code Length To Relocate
.DA DS.END-DS.START Data Segment to Allocate .DA DS.END-DS.START Data Segment to Allocate
.DA #16 SS .DA #16 SS
.DA #10 ZP .DA #12 ZP
.DA 0 .DA 0
*-------------------------------------- *--------------------------------------
.1 .DA CS.INIT .1 .DA CS.INIT
@ -207,7 +208,7 @@ CS.RUN.OPENSKT >PUSHBI 0 no protocol
>LDYAI RESP.BUFSIZE >LDYAI RESP.BUFSIZE
>SYSCALL getmem >SYSCALL getmem
bcs .9 bcs .9
>STYA ZPBufPtr >STYA ZPRespBufPtr
txa txa
>STA.G hRespBuf >STA.G hRespBuf
@ -221,7 +222,7 @@ CS.RUN.GET >SLEEP
.1 >SLEEP .1 >SLEEP
>PUSHWI RESP.BUFSIZE >PUSHWI RESP.BUFSIZE
>PUSHW ZPBufPtr >PUSHW ZPRespBufPtr
>LDA.G hSocket >LDA.G hSocket
>LIBCALL hLIBTCPIP,LIBTCPIP.Read >LIBCALL hLIBTCPIP,LIBTCPIP.Read
bcc .2 bcc .2
@ -235,7 +236,7 @@ CS.RUN.GET >SLEEP
jmp CS.RUN.IOERR jmp CS.RUN.IOERR
.2 >PUSHYA len .2 >PUSHYA len
>PUSHW ZPBufPtr >PUSHW ZPRespBufPtr
ldy #S.PS.hStdOut ldy #S.PS.hStdOut
lda (pPs),y lda (pPs),y
>SYSCALL fwrite >SYSCALL fwrite
@ -266,6 +267,8 @@ CS.RUN.IOERR pha
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.REQUEST jsr Init.Timeout CS.RUN.REQUEST jsr Init.Timeout
>LDYA ZPBufPtr
>SYSCALL puts
.10 >PUSHWI HTTP.GET1.LEN .10 >PUSHWI HTTP.GET1.LEN
>PUSHW L.HTTP.GET1 >PUSHW L.HTTP.GET1
@ -279,8 +282,7 @@ CS.RUN.REQUEST jsr Init.Timeout
jsr Wait.TimeOut jsr Wait.TimeOut
bcc .10 bcc .10
.99 lda #$ff .99 sec
sec
rts rts
.1 >PUSHW ZPBufLen .1 >PUSHW ZPBufLen
@ -385,6 +387,8 @@ HTTP.GET2 .AS " HTTP/1.1"
.AS "Host: " .AS "Host: "
HTTP.GET2.LEN .EQ *-HTTP.GET2 HTTP.GET2.LEN .EQ *-HTTP.GET2
HTTP.GET3 .DA #C.CR,#C.LF HTTP.GET3 .DA #C.CR,#C.LF
.AS "Connection: close"
.DA #C.CR,#C.LF
.DA #C.CR,#C.LF .DA #C.CR,#C.LF
HTTP.GET3.LEN .EQ *-HTTP.GET3 HTTP.GET3.LEN .EQ *-HTTP.GET3
*-------------------------------------- *--------------------------------------

2
BIN/SHELL.S.txt
View File

@ -8,7 +8,7 @@ AUTO 4,1
*-------------------------------------- *--------------------------------------
CSH .EQ 0 CSH .EQ 0
*-------------------------------------- *--------------------------------------
CL.MAX .EQ 127 CL.MAX .EQ 159
History.MAX .EQ 256 History.MAX .EQ 256
CMD.STACK.MAX .EQ 64 CMD.STACK.MAX .EQ 64
PUSHD.STACK.MAX .EQ 8 PUSHD.STACK.MAX .EQ 8