This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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" |