mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-10-27 17:25:19 +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:
|
||||
.word 0
|
||||
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
|
||||
stax copy_src
|
||||
ldax #main_start
|
||||
@ -179,10 +196,19 @@ install_new_vectors_loop:
|
||||
;BASIC keywords installed, now bring up the ip65 stack
|
||||
|
||||
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"
|
||||
|
||||
jmp $A474 ;"READY" prompt
|
||||
|
||||
welcome_banner:
|
||||
@ -783,6 +809,15 @@ netmask_keyword:
|
||||
ldax #cfg_netmask
|
||||
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:
|
||||
@ -1535,8 +1570,9 @@ keywords:
|
||||
.byte "TYPE",$ED
|
||||
.byte "STATUS",$EE
|
||||
.byte "FLUSH",$EF
|
||||
.byte "MAC",$F0
|
||||
.byte $00 ;end of list
|
||||
HITOKEN=$F0
|
||||
HITOKEN=$F1
|
||||
|
||||
;
|
||||
; Table of token locations-1
|
||||
@ -1558,6 +1594,7 @@ EC: .word httpd_keyword-1
|
||||
ED: .word type_keyword-1
|
||||
EE: .word status_keyword-1
|
||||
EF: .word flush_keyword-1
|
||||
F0: .word mac_keyword-1
|
||||
|
||||
.segment "SELF_MODIFIED_CODE"
|
||||
|
||||
|
Binary file not shown.
@ -109,6 +109,22 @@ basicstub:
|
||||
@nextline:
|
||||
.word 0
|
||||
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
|
||||
stax copy_src
|
||||
ldax #main_start
|
||||
@ -164,13 +180,24 @@ install_new_vectors_loop:
|
||||
;BASIC keywords installed, now bring up the ip65 stack
|
||||
|
||||
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
|
||||
sta ip65_error
|
||||
sta connection_state
|
||||
@init_failed:
|
||||
jsr set_error
|
||||
|
||||
@exit:
|
||||
jsr $A644 ;do a "NEW"
|
||||
jmp $A474 ;"READY" prompt
|
||||
|
||||
@ -372,8 +399,9 @@ list:
|
||||
execute:
|
||||
jsr CHRGET
|
||||
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'?
|
||||
bne @not_if
|
||||
lda #$E0 ;our dummy IF token
|
||||
@ -752,6 +780,16 @@ dhcp_keyword:
|
||||
jmp clear_error
|
||||
rts
|
||||
|
||||
mac_keyword:
|
||||
jsr extract_string
|
||||
ldy #5
|
||||
:
|
||||
lda transfer_buffer,y
|
||||
sta cfg_mac,y
|
||||
dey
|
||||
bpl:-
|
||||
rts
|
||||
|
||||
ping_keyword:
|
||||
ldax #icmp_echo_ip
|
||||
jsr get_ip_parameter
|
||||
@ -1470,8 +1508,9 @@ keywords:
|
||||
.byte "TCPS",$80,$EF ;TCPSEND - BASIC will replace END with $80
|
||||
.byte "TCP",$A0,$F0 ;TCPLOSE - BASIC will replace CLOSE with $A0
|
||||
.byte "TCPBLAT",$F1
|
||||
.byte "MAC",$F2
|
||||
.byte $00 ;end of list
|
||||
HITOKEN=$F2
|
||||
HITOKEN=$F3
|
||||
|
||||
;
|
||||
; Table of token locations-1
|
||||
@ -1495,6 +1534,7 @@ EE: .word tcplisten_keyword-1
|
||||
EF: .word tcpsend_keyword-1
|
||||
FO: .word tcpclose_keyword-1
|
||||
F1: .word tcpblat_keyword-1
|
||||
F2: .word mac_keyword-1
|
||||
|
||||
.segment "SELF_MODIFIED_CODE"
|
||||
|
||||
|
@ -1 +1 @@
|
||||
*** KIPPER BASIC 1.0 ****
|
||||
**** KIPPER BASIC 1.0 ****
|
||||
|
Loading…
Reference in New Issue
Block a user