Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2025-01-03 19:30:21 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
jonnosan 2010-09-26 10:44:39 +00:00
parent 2dab490d7c
commit 05990c1449
2 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
client/v1541/v1541.prg
View File

Binary file not shown.

25
client/v1541/v1541.s
View File

@ -17,6 +17,8 @@ SERVER_PORT=1541
.import dns_ip .import dns_ip
.import print_a .import print_a
.import tcp_connect_ip .import tcp_connect_ip
.import tcp_send
.import tcp_send_data_len
.import tcp_send_string .import tcp_send_string
.import tcp_connect .import tcp_connect
.import tcp_close .import tcp_close
@ -273,12 +275,32 @@ load_dev_2:
lda (FNADDR),y lda (FNADDR),y
cmp #'!' cmp #'!'
beq @do_disks beq @do_disks
cmp #'>'
beq @do_command
@done: @done:
clc clc
jmp swap_basic_in jmp swap_basic_in
@do_command:
ldy FNLEN
@copy_cmd:
lda (FNADDR),y
sta cmd_buffer-1,y
dey
bne @copy_cmd
ldy FNLEN
lda #$0D
sta cmd_buffer-1,y
lda #0
sta cmd_buffer,y
ldax #cmd_buffer
jmp@send_string_show_list
@do_disks: @do_disks:
ldax #@cmd_dsks ldax #@cmd_dsks
@send_string_show_list:
jsr tcp_send_string jsr tcp_send_string
bcs @error bcs @error
jsr show_list jsr show_list
@ -511,7 +533,8 @@ old_irq_vector:
underneath_basic: .res 1 underneath_basic: .res 1
.segment "TCP_VARS" .segment "TCP_VARS"
csip_stream_buffer: .res 1600 csip_stream_buffer: .res 1500
cmd_buffer: .res 100
user_abort: .res 1 user_abort: .res 1
getc_timeout_end: .res 1 getc_timeout_end: .res 1
getc_timeout_seconds: .res 1 getc_timeout_seconds: .res 1