mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-09-12 02:54:54 +00:00
git-svn-id: http://svn.code.sf.net/p/netboot65/code@277 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
parent
1fa4a5ba71
commit
b42a88caa9
Binary file not shown.
@ -118,6 +118,23 @@ basicstub:
|
|||||||
@nextline:
|
@nextline:
|
||||||
.word 0
|
.word 0
|
||||||
relocate:
|
relocate:
|
||||||
|
lda MEMSIZ+1
|
||||||
|
cmp #$A0 ;standard end of memory
|
||||||
|
beq ok_to_install
|
||||||
|
|
||||||
|
ldy #0
|
||||||
|
@loop:
|
||||||
|
lda not_installing,y
|
||||||
|
beq @done
|
||||||
|
jsr $ffd2
|
||||||
|
iny
|
||||||
|
bne @loop
|
||||||
|
@done:
|
||||||
|
rts
|
||||||
|
not_installing:
|
||||||
|
.byte "INSUFFICIENT FREE MEMORY",0
|
||||||
|
ok_to_install:
|
||||||
|
|
||||||
ldax #end_of_loader
|
ldax #end_of_loader
|
||||||
stax copy_src
|
stax copy_src
|
||||||
ldax #main_start
|
ldax #main_start
|
||||||
@ -179,10 +196,19 @@ install_new_vectors_loop:
|
|||||||
;BASIC keywords installed, now bring up the ip65 stack
|
;BASIC keywords installed, now bring up the ip65 stack
|
||||||
|
|
||||||
jsr ip65_init
|
jsr ip65_init
|
||||||
@init_failed:
|
bcc @init_ok
|
||||||
|
ldax #@no_nic
|
||||||
|
jsr print
|
||||||
|
@reboot:
|
||||||
|
jsr $e453 ;reset vectors
|
||||||
|
jsr $e3bf ;init BASIC
|
||||||
|
jsr $a644 ;NEW
|
||||||
|
jmp $e39d
|
||||||
|
@no_nic:
|
||||||
|
.byte "NO RR-NET FOUND - UNINSTALLING",0
|
||||||
|
|
||||||
|
@init_ok:
|
||||||
jsr $A644 ;do a "NEW"
|
jsr $A644 ;do a "NEW"
|
||||||
|
|
||||||
jmp $A474 ;"READY" prompt
|
jmp $A474 ;"READY" prompt
|
||||||
|
|
||||||
welcome_banner:
|
welcome_banner:
|
||||||
@ -783,6 +809,15 @@ netmask_keyword:
|
|||||||
ldax #cfg_netmask
|
ldax #cfg_netmask
|
||||||
jmp get_ip_parameter
|
jmp get_ip_parameter
|
||||||
|
|
||||||
|
mac_keyword:
|
||||||
|
jsr extract_string
|
||||||
|
ldy #5
|
||||||
|
:
|
||||||
|
lda transfer_buffer,y
|
||||||
|
sta cfg_mac,y
|
||||||
|
dey
|
||||||
|
bpl:-
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
skip_comma_get_integer:
|
skip_comma_get_integer:
|
||||||
@ -1535,8 +1570,9 @@ keywords:
|
|||||||
.byte "TYPE",$ED
|
.byte "TYPE",$ED
|
||||||
.byte "STATUS",$EE
|
.byte "STATUS",$EE
|
||||||
.byte "FLUSH",$EF
|
.byte "FLUSH",$EF
|
||||||
|
.byte "MAC",$F0
|
||||||
.byte $00 ;end of list
|
.byte $00 ;end of list
|
||||||
HITOKEN=$F0
|
HITOKEN=$F1
|
||||||
|
|
||||||
;
|
;
|
||||||
; Table of token locations-1
|
; Table of token locations-1
|
||||||
@ -1558,6 +1594,7 @@ EC: .word httpd_keyword-1
|
|||||||
ED: .word type_keyword-1
|
ED: .word type_keyword-1
|
||||||
EE: .word status_keyword-1
|
EE: .word status_keyword-1
|
||||||
EF: .word flush_keyword-1
|
EF: .word flush_keyword-1
|
||||||
|
F0: .word mac_keyword-1
|
||||||
|
|
||||||
.segment "SELF_MODIFIED_CODE"
|
.segment "SELF_MODIFIED_CODE"
|
||||||
|
|
||||||
|
Binary file not shown.
@ -109,6 +109,22 @@ basicstub:
|
|||||||
@nextline:
|
@nextline:
|
||||||
.word 0
|
.word 0
|
||||||
relocate:
|
relocate:
|
||||||
|
lda MEMSIZ+1
|
||||||
|
cmp #$A0 ;standard end of memory
|
||||||
|
beq ok_to_install
|
||||||
|
|
||||||
|
ldy #0
|
||||||
|
@loop:
|
||||||
|
lda not_installing,y
|
||||||
|
beq @done
|
||||||
|
jsr $ffd2
|
||||||
|
iny
|
||||||
|
bne @loop
|
||||||
|
@done:
|
||||||
|
rts
|
||||||
|
not_installing:
|
||||||
|
.byte "INSUFFICIENT FREE MEMORY",0
|
||||||
|
ok_to_install:
|
||||||
ldax #end_of_loader
|
ldax #end_of_loader
|
||||||
stax copy_src
|
stax copy_src
|
||||||
ldax #main_start
|
ldax #main_start
|
||||||
@ -164,13 +180,24 @@ install_new_vectors_loop:
|
|||||||
;BASIC keywords installed, now bring up the ip65 stack
|
;BASIC keywords installed, now bring up the ip65 stack
|
||||||
|
|
||||||
jsr ip65_init
|
jsr ip65_init
|
||||||
bcs @init_failed
|
bcc @init_ok
|
||||||
|
ldax #@no_nic
|
||||||
|
jsr print
|
||||||
|
@reboot:
|
||||||
|
jsr $e453 ;reset vectors
|
||||||
|
jsr $e3bf ;init BASIC
|
||||||
|
jsr $a644 ;NEW
|
||||||
|
jmp $e39d
|
||||||
|
@no_nic:
|
||||||
|
.byte "NO RR-NET FOUND - UNINSTALLING",0
|
||||||
|
|
||||||
|
@init_ok:
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
sta connection_state
|
sta connection_state
|
||||||
@init_failed:
|
|
||||||
jsr set_error
|
jsr set_error
|
||||||
|
@exit:
|
||||||
jsr $A644 ;do a "NEW"
|
jsr $A644 ;do a "NEW"
|
||||||
jmp $A474 ;"READY" prompt
|
jmp $A474 ;"READY" prompt
|
||||||
|
|
||||||
@ -372,8 +399,9 @@ list:
|
|||||||
execute:
|
execute:
|
||||||
jsr CHRGET
|
jsr CHRGET
|
||||||
execute_a:
|
execute_a:
|
||||||
php
|
php
|
||||||
|
cmp #':' ;is it a colon?
|
||||||
|
beq execute;if so, skip over and go to next token
|
||||||
cmp #$8B ;is it 'IF'?
|
cmp #$8B ;is it 'IF'?
|
||||||
bne @not_if
|
bne @not_if
|
||||||
lda #$E0 ;our dummy IF token
|
lda #$E0 ;our dummy IF token
|
||||||
@ -752,6 +780,16 @@ dhcp_keyword:
|
|||||||
jmp clear_error
|
jmp clear_error
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
mac_keyword:
|
||||||
|
jsr extract_string
|
||||||
|
ldy #5
|
||||||
|
:
|
||||||
|
lda transfer_buffer,y
|
||||||
|
sta cfg_mac,y
|
||||||
|
dey
|
||||||
|
bpl:-
|
||||||
|
rts
|
||||||
|
|
||||||
ping_keyword:
|
ping_keyword:
|
||||||
ldax #icmp_echo_ip
|
ldax #icmp_echo_ip
|
||||||
jsr get_ip_parameter
|
jsr get_ip_parameter
|
||||||
@ -1470,8 +1508,9 @@ keywords:
|
|||||||
.byte "TCPS",$80,$EF ;TCPSEND - BASIC will replace END with $80
|
.byte "TCPS",$80,$EF ;TCPSEND - BASIC will replace END with $80
|
||||||
.byte "TCP",$A0,$F0 ;TCPLOSE - BASIC will replace CLOSE with $A0
|
.byte "TCP",$A0,$F0 ;TCPLOSE - BASIC will replace CLOSE with $A0
|
||||||
.byte "TCPBLAT",$F1
|
.byte "TCPBLAT",$F1
|
||||||
|
.byte "MAC",$F2
|
||||||
.byte $00 ;end of list
|
.byte $00 ;end of list
|
||||||
HITOKEN=$F2
|
HITOKEN=$F3
|
||||||
|
|
||||||
;
|
;
|
||||||
; Table of token locations-1
|
; Table of token locations-1
|
||||||
@ -1495,6 +1534,7 @@ EE: .word tcplisten_keyword-1
|
|||||||
EF: .word tcpsend_keyword-1
|
EF: .word tcpsend_keyword-1
|
||||||
FO: .word tcpclose_keyword-1
|
FO: .word tcpclose_keyword-1
|
||||||
F1: .word tcpblat_keyword-1
|
F1: .word tcpblat_keyword-1
|
||||||
|
F2: .word mac_keyword-1
|
||||||
|
|
||||||
.segment "SELF_MODIFIED_CODE"
|
.segment "SELF_MODIFIED_CODE"
|
||||||
|
|
||||||
|
@ -1 +1 @@
|
|||||||
*** KIPPER BASIC 1.0 ****
|
**** KIPPER BASIC 1.0 ****
|
||||||
|
Loading…
Reference in New Issue
Block a user