mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-09-08 21:54:28 +00:00
git-svn-id: http://svn.code.sf.net/p/netboot65/code@269 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
parent
8883f74220
commit
c3fa29078c
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -556,14 +556,14 @@ print:
|
||||
|
||||
extract_string:
|
||||
jsr FRMEVL
|
||||
jsr $AD8F ;check result is a string, if not create type mismatch error
|
||||
ldy $19 ;temp string created by FRMEVL
|
||||
sty param_length
|
||||
jsr FRESTR ;if not string, will create type mismatch error
|
||||
sta param_length
|
||||
tay
|
||||
lda #0
|
||||
sta transfer_buffer,y
|
||||
dey
|
||||
@loop:
|
||||
lda ($1a),y
|
||||
lda ($22),y
|
||||
sta transfer_buffer,y
|
||||
dey
|
||||
bpl @loop
|
||||
@ -1327,7 +1327,6 @@ tcpblat_keyword:
|
||||
ldx #<transfer_buffer
|
||||
ldy #>transfer_buffer
|
||||
lda param_length
|
||||
|
||||
jsr SETNAM
|
||||
lda #$02 ; file number 2
|
||||
ldx $BA ; last used device number
|
||||
|
Loading…
Reference in New Issue
Block a user