.include "../inc/common.i" .include "../inc/commonprint.i" .include "../inc/net.i" .export start .import exit_to_basic .import httpd_start .import http_get_value ; keep LD65 happy .segment "INIT" .segment "ONCE" .segment "STARTUP" lda #14 jsr print_a ; switch to lower case start: ldax #initializing jsr print init_ip_via_dhcp bcs :+ jsr print_ip_config ldax #listening jsr print ldax #httpd_callback jsr httpd_start : jmp exit_to_basic print_vars: lda #'n' jsr http_get_value bcs :+ jsr print ldax #said jsr print lda #'m' jsr http_get_value bcs :+ jsr print jsr print_cr : rts httpd_callback: jsr print_vars ldax #html ldy #2 ; text/html clc rts .rodata initializing: .byte 13,"INITIALIZING",13,0 listening: .byte "LISTENING",13,0 said: .byte " said ",0 html: .byte "