cut on the fly gopher page lines

This commit is contained in:
nihirash 2019-07-16 18:16:02 +00:00
parent 24fdfeaa47
commit a65520bc0d
4 changed files with 17 additions and 10 deletions

View File

@ -9,14 +9,14 @@ openPage:
ex hl, de
ld de, hist
ld bc, 147
ld bc, 322
ldir
ld hl, page_buffer
xor a
ld (hl), a
ld de, page_buffer + 1
ld bc, 32767
ld bc, #ffff - page_buffer - 1
ldir
pop bc
pop de
@ -210,7 +210,7 @@ d_host defs 70
d_port db '70'
defs 5
hist ds 147
hist ds 322
connectionOpen db 0
downloading_msg db 'Downloading...', 0
connectionError db 'Cant open TCP connection', 0
connectionError db 'Cant open TCP connection', 0

View File

@ -25,13 +25,12 @@ connecting_wifi db 13, ' Connecting to WiFi', 13, 0
open_lbl db 'Opening connection to ', 0
path db '/'
defs 69
defs 254
server db 'nihirash.net'
defs 58
port db '70'
defs 5
data_buff defs 255
page_buffer
incbin "index.pg"
db 0

View File

@ -124,7 +124,7 @@ downPg:
ld hl, hist
ld de, path
ld bc, 147
ld bc, 322
ldir
ld hl, server_buffer
@ -481,7 +481,7 @@ type_unkn db "Unknown type ", 0
display $
file_buffer defs 70 ; URI path
file_buffer defs 255 ; URI path
server_buffer defs 70 ; Host name
port_buffer defs 7 ; Port

View File

@ -70,6 +70,11 @@ printZ64:
jr printZ64
printT64:
ld b, 63
ptlp:
ld a, 0
or b
ret z
ld a, (hl)
and a
@ -78,11 +83,14 @@ printT64:
cp 09
ret z
push bc
push hl
call putC
pop hl
inc hl
jr printT64
pop bc
dec b
jr ptlp
printL64:
ld a, (hl)
@ -411,4 +419,4 @@ col_screen_temp defw 0
half_tile_screen_temp defb 0
single_symbol_print defb 1
single_symbol defb 0
single_symbol defb 0