mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-12 20:29:41 +00:00
Compare commits
5 Commits
6340bc77fd
...
27a14a992b
Author | SHA1 | Date | |
---|---|---|---|
|
27a14a992b | ||
|
4f27e8c3b0 | ||
|
cce21ed742 | ||
|
1eaa2c98f1 | ||
|
f4f0f60da4 |
|
@ -711,7 +711,7 @@ CS.QUIT jsr GFX.Close
|
|||
>LDA.G HIS.hBuf
|
||||
beq .10
|
||||
|
||||
>SYSCALL FreeStkObj
|
||||
>SYSCALL StrVFree
|
||||
|
||||
.10 >LDA.G hSList
|
||||
beq .1
|
||||
|
|
|
@ -70,6 +70,7 @@ L.SA.REMOTE.AD .DA SA.REMOTE+S.SOCKADDR.ADDR
|
|||
L.MSG.IPKO .DA MSG.IPKO
|
||||
L.MSG.USAGE .DA MSG.USAGE
|
||||
L.MSG.CRLF .DA MSG.CRLF
|
||||
L.MSG.NULL .DA MSG.NULL
|
||||
L.MSG.UNKNOWN .DA MSG.UNKNOWN
|
||||
L.MSG.CONNECT .DA MSG.CONNECT
|
||||
L.MSG.SKTKO .DA MSG.SKTKO
|
||||
|
@ -166,6 +167,7 @@ CS.RUN.HOSTOK jsr CS.RUN.GETNEXTARG
|
|||
lda (ZPPtr),y
|
||||
cmp #'a'
|
||||
bcc .11
|
||||
|
||||
cmp #'z'+1
|
||||
bcs .11
|
||||
|
||||
|
@ -193,10 +195,10 @@ CS.RUN.HOSTOK jsr CS.RUN.GETNEXTARG
|
|||
bne CS.RUN.ESYN
|
||||
|
||||
jsr CS.RUN.GETNEXTARG
|
||||
bcs .9
|
||||
bcs CS.RUN.ESYN2
|
||||
|
||||
>SYSCALL LoadTxtFile
|
||||
bcs .9
|
||||
bcs CS.RUN.RTS
|
||||
|
||||
>STYA ZPReqBufLen
|
||||
stx hReqBuf
|
||||
|
@ -206,13 +208,13 @@ CS.RUN.HOSTOK jsr CS.RUN.GETNEXTARG
|
|||
jmp CS.RUN.HOSTOK
|
||||
|
||||
.3 cmp #'O'
|
||||
bne .9
|
||||
bne CS.RUN.ESYN2
|
||||
|
||||
lda ZPFileName+1
|
||||
bne CS.RUN.ESYN2
|
||||
|
||||
jsr CS.RUN.GETNEXTARG
|
||||
bcs .9
|
||||
bcs CS.RUN.ESYN2
|
||||
|
||||
>STYA ZPFileName
|
||||
jmp CS.RUN.HOSTOK
|
||||
|
@ -221,10 +223,7 @@ CS.RUN.ESYN2 lda #E.SYN
|
|||
sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN.ARGSOK lda ZPReqBufPtr+1
|
||||
beq CS.RUN.ESYN2
|
||||
|
||||
>PUSHW L.MSG.CONNECT
|
||||
CS.RUN.ARGSOK >PUSHW L.MSG.CONNECT
|
||||
ldx #0
|
||||
|
||||
.1 >PUSHB SA.REMOTE+S.SOCKADDR.ADDR,x
|
||||
|
@ -311,7 +310,8 @@ CS.RUN.GET jsr CS.RUN.ENCODE
|
|||
>PUSHBI 0 TYPE
|
||||
>PUSHWZ AUXTYPE
|
||||
>SYSCALL FOpen
|
||||
bcs .9
|
||||
bcs .99
|
||||
|
||||
sta hFile
|
||||
|
||||
.1 jsr CS.RUN.RESPONSE
|
||||
|
@ -342,8 +342,14 @@ CS.RUN.GETNEXTARG
|
|||
>SYSCALL ArgV
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN.ENCODE >LDYA ZPReqBufPtr
|
||||
>STYA ZPPtr
|
||||
CS.RUN.ENCODE ldy ZPReqBufPtr
|
||||
lda ZPReqBufPtr+1
|
||||
bne .10
|
||||
|
||||
>LDYA L.MSG.NULL
|
||||
>STYA ZPReqBufPtr
|
||||
|
||||
.10 >STYA ZPPtr
|
||||
|
||||
inc ZPEncodedBufLen for ending \0
|
||||
|
||||
|
@ -542,14 +548,17 @@ CS.RUN.RESPONSE jsr Init.TimeOut
|
|||
|
||||
inc Received+3
|
||||
|
||||
.70 >PUSHW L.MSG.Progress
|
||||
.70 lda hFile
|
||||
beq .71
|
||||
|
||||
>PUSHW L.MSG.Progress
|
||||
>PUSHL Received
|
||||
>PUSHBI 4
|
||||
|
||||
>SYSCALL PrintF
|
||||
bcs .9
|
||||
|
||||
jmp CS.RUN.RESPONSE
|
||||
.71 jmp CS.RUN.RESPONSE
|
||||
|
||||
.8 bit bHeader
|
||||
bpl .99
|
||||
|
@ -749,7 +758,8 @@ MSG.USAGE .CS "Usage : HTTPGET <ip|host> [port]\r\n"
|
|||
.CS " -U : Url\r\n"
|
||||
.CS " -F : UrlFile\r\n"
|
||||
.CS " -O : OutputFile"
|
||||
MSG.CRLF .CZ "\r\n"
|
||||
MSG.CRLF .CS "\r\n"
|
||||
MSG.NULL .DA #0
|
||||
MSG.UNKNOWN .CZ "%s: Unknown host\r\n"
|
||||
MSG.CONNECT .CZ "Connecting to %d.%d.%d.%d:%D (%s)..."
|
||||
MSG.SKTKO .CZ "Failed to Open Socket."
|
||||
|
|
|
@ -501,7 +501,7 @@ CS.QUIT jsr CORE.FUNCRESET
|
|||
.10 >LDA.G HIS.hBuf
|
||||
beq .1
|
||||
|
||||
>SYSCALL FreeStkObj
|
||||
>SYSCALL StrVFree
|
||||
|
||||
.1 ldy #CL.hBuf
|
||||
jsr .7
|
||||
|
|
|
@ -10,13 +10,17 @@ STINIT LDA LO.MEM START OF SYMBOL TABLE
|
|||
LDA LO.MEM+1
|
||||
STA EOT+1
|
||||
STA MACLBL+1 PRIVATE LABELS GO DOWN FROM THERE
|
||||
LDX #56 # BYTES IN HASH POINTER TABLE
|
||||
|
||||
LDA #0
|
||||
STA MACLBL
|
||||
STA CURRENT.MAJOR.LABEL+1
|
||||
|
||||
LDX #58 # BYTES IN HASH POINTER TABLE
|
||||
|
||||
.1 STA HSHTBL-1,X
|
||||
DEX
|
||||
BNE .1
|
||||
|
||||
.DO AUXMEM
|
||||
LDA RDRAM
|
||||
LDA RDRAM
|
||||
|
@ -119,7 +123,9 @@ AUX.IMAGE.LEN .EQ *-AUX.IMAGE
|
|||
* HSHTBL+$04: Chain for labels starting with "B"
|
||||
* - - -
|
||||
* HSHTBL+$34: Chain for labels starting with "Z"
|
||||
* HSHTBL+$36: Chain for Macro Names and Skeletons
|
||||
* HSHTBL+$36: Chain for labels starting with "_"
|
||||
*
|
||||
* HSHTBL+$38: Chain for Macro Names and Skeletons
|
||||
*
|
||||
* Format of Target File Entry:
|
||||
* 0,1 -- Forward chain pointer (0=end of chain)
|
||||
|
@ -233,16 +239,27 @@ STSRCH SEC CONVERT FIRST CHARACTER
|
|||
LDA SYMBOL+7 OF SYMBOL TO HASH TABLE INDEX
|
||||
CMP #CHR.PERIOD SEE IF LOCAL SYMBOL
|
||||
BEQ .8 YES
|
||||
|
||||
CMP #': COLON, THEN PRIVATE LABEL
|
||||
BNE .12 NO, NORMAL LABEL
|
||||
|
||||
JMP SEARCH.PRIVATE.LABELS
|
||||
.12 SBC #$40 AT-SIGN
|
||||
|
||||
.12 cmp #'_
|
||||
bne .55
|
||||
|
||||
lda #'Z+1
|
||||
|
||||
.55 sec
|
||||
sbc #'A
|
||||
|
||||
ASL DOUBLE INDEX, CLEAR CARRY
|
||||
ADC #HSHTBL
|
||||
STA STPNTR
|
||||
LDA /HSHTBL
|
||||
ADC #0
|
||||
STA STPNTR+1
|
||||
|
||||
.1 LDY #0
|
||||
>SYM LDA,STPNTR GET POINTER FROM ENTRY
|
||||
STA TPTR
|
||||
|
|
|
@ -20,10 +20,10 @@ MEM.BestScore .EQ ZPMemMgrTmp1
|
|||
* X = hMem
|
||||
*\--------------------------------------
|
||||
K.Realloc >PULLA
|
||||
sta .2+1 New Size HI
|
||||
sta .1+1 New Size LO
|
||||
|
||||
>PULLA
|
||||
sta .1+1 New Size LO
|
||||
sta .2+1 New Size HI
|
||||
|
||||
>PULLA Src hMem
|
||||
tax
|
||||
|
|
Loading…
Reference in New Issue
Block a user