ppe

100 PRINT "Loading qterm"
110 qterm=RESPR(24*1024)
120 LBYTES mdv1_qterm_cde,qterm
130 CALL qterm
140 PRINT "Loading ramdisc"
150 ramdisk=RESPR(2*1024)
160 LBYTES mdv1_ramdisc_cde,ramdisk
170 CALL ramdisk
180 PRINT "Done"

ppe

1000  def proc recv
1005    loc filename$,serdev$,ignore$,status,total_bytes
1010    input "File name to write? "!filename$
1020    input "Serial device (e.g. ser1r)? "!serdev$
1025    input "Press enter to start receiving..."!ignore$
1030    open #3,serdev$
1040    call base,3
1045    close #3
1050    status = peek(base + 4)
1060    if status = 0 then

ppe

SOH         equ     1
EOT         equ     4
ACK         equ     6
NAK         equ     21
SUB         equ     26
block_size  equ     128
max_retries equ     20
status_eot  equ     -1
status_read_block_fail  equ     -2
res_ok              equ     0