Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2024-10-11 01:23:42 +00:00
Code Issues Projects Releases Wiki Activity

git-svn-id: http://svn.code.sf.net/p/netboot65/code@153 93682198-c243-4bdb-bd91-e943c89aac3b

Browse Source
This commit is contained in:
jonnosan 2009-07-09 23:43:47 +00:00
parent 987a7046a5
commit 8fdbaef6f7
1 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
client/test/test_gopher.s
View File

@ -61,7 +61,7 @@ current_resource_history_entry: .byte 0
.bss
DISPLAY_LINES=20
DISPLAY_LINES=24
page_counter: .res 1
MAX_PAGES = 50
page_pointer_lo: .res MAX_PAGES
@ -113,10 +113,10 @@ show_buffer:
@do_one_page:
jsr cls
ldax #page_header
jsr print
lda page_counter
jsr print_hex
; ldax #page_header
; jsr print
; lda page_counter
; jsr print_hex
jsr print_resource_description
ldx page_counter
@ -412,13 +412,16 @@ load_resource_from_history:
rts
print_resource_description:
ldax #port_no
; ldax #port_no
; jsr print
; lda resource_port+1
; jsr print_hex
; lda resource_port
; jsr print_hex
; jsr print_cr
ldax #gopher
jsr print
lda resource_port+1
jsr print_hex
lda resource_port
jsr print_hex
jsr print_cr
ldax #resource_hostname
jsr print
ldax #resource_selector
@ -428,7 +431,7 @@ ldax #port_no
.rodata
input_buffer:
.incbin "rob_gopher.txt"
;.incbin "rob_gopher.txt"
.incbin "retro_gopher.txt"
.byte 0
page_header:
@ -437,6 +440,9 @@ port_no:
.byte "PORT NO ",0
history:
.byte "gopher history ",13,0
gopher:
.byte "gopher://",0
initial_location:
.byte "1luddite",$09,"/luddite/",$09,"retro-net.org",$09,"70",$0D,$0A,0
.byte "1luddite",$09,"",$09,"retro-net.org",$09,"70",$0D,$0A,0
;.byte "1luddite",$09,"/luddite/",$09,"retro-net.org",$09,"70",$0D,$0A,0