Kernel 0.92

BIN/HTTPGET.S.txt

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

BIN/SHELL.S.txt

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