mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-09-01 05:29:18 +00:00
68 lines
1.3 KiB
ArmAsm
68 lines
1.3 KiB
ArmAsm
;Apple 2 gopher browser
|
|
;july 2009 - jonno @ jamtronix.com
|
|
|
|
.include "../inc/common.i"
|
|
.include "../inc/commonprint.i"
|
|
.include "../inc/net.i"
|
|
.include "../inc/a2keycodes.i"
|
|
; .include "../inc/c64keycodes.i"
|
|
|
|
|
|
|
|
KEY_NEXT_PAGE=$8E ; ^N
|
|
KEY_PREV_PAGE=$90; ^P
|
|
KEY_SHOW_HISTORY=$93; ^S
|
|
KEY_BACK_IN_HISTORY=$82 ; ^B
|
|
KEY_NEW_SERVER=$89 ;TAB key
|
|
|
|
.include "../inc/gopher.i"
|
|
|
|
.import __CODE_LOAD__
|
|
.import __CODE_SIZE__
|
|
.import __RODATA_SIZE__
|
|
.import __DATA_SIZE__
|
|
|
|
.import get_key
|
|
|
|
.segment "EXEHDR" ;this is what gets put an the start of the file on the Apple 2
|
|
.addr __CODE_LOAD__-3 ; Start address
|
|
.word __CODE_SIZE__+__RODATA_SIZE__+__DATA_SIZE__+4 ; Size
|
|
jmp init
|
|
|
|
|
|
.code
|
|
|
|
init:
|
|
|
|
jsr cls
|
|
jsr $c300 ; go to 80 column mode
|
|
|
|
|
|
ldax #title
|
|
jsr print
|
|
jsr print_cr
|
|
init_ip_via_dhcp
|
|
jsr print_ip_config
|
|
|
|
|
|
ldax #initial_location
|
|
sta resource_pointer_lo
|
|
stx resource_pointer_hi
|
|
ldx #0
|
|
jsr select_resource_from_current_directory
|
|
|
|
exit_gopher:
|
|
jmp $e000
|
|
; rts
|
|
|
|
.rodata
|
|
title:
|
|
.byte " GOPHER ][",13," jonno@jamtronix.com",13,0
|
|
|
|
resolving:
|
|
.byte "RESOLVING ",0
|
|
|
|
initial_location:
|
|
.byte "1gopher.floodgap.com",$09,"/",$09,"gopher.floodgap.com",$09,"70",$0D,$0A,0
|
|
|