Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199607.adf » Regulars » RunTheRisc/Transfer/Risc
RunTheRisc/Transfer/Risc
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199607.adf » Regulars |
| Filename: | RunTheRisc/Transfer/Risc |
| Read OK: | ✔ |
| File size: | 0309 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Serial Transfer 20REM Origional program by Paul Pibworth 30SYS"OS_SerialOp",0,0,0 :REM Set handshaking protocol 40SYS"OS_SerialOp",1,0 :REM 8 data 1 stop no parity 50SYS"OS_SerialOp",5,7 :REM 9600 baud 60*FX2,1 70F$="" 80 90ON ERROR GOTO 400 100REM Empty serial buffer 110WHILE F$<>"*QUIT" 120WHILE ADVAL(-2)>0 130G%=GET:PRINT"X ";~G%; 140ENDWHILE 150PRINT"Waiting, now start sending" 160INPUT"Incoming File name is ";F$ 170PRINT F$ 180IF F$<>"*QUIT" THEN 190 E%=GET 200 PRINT"odd byte =";~E% 210 REM lose this odd byte that arrives 220 INPUT"Getting file size ";Z% 230 PRINT"File size = ";Z% 240 E%=GET 250 PRINT"next odd byte ";~Z% 260 IF Z%<1 GOTO 400 270 PRINT"Ready to open file" 280 Q%=OPENOUT F$ 290 FOR I%=1 TO Z% 300 A%=GET 310 BPUT#Q%,A% 320 NEXT 330 CLOSE#Q% 340 PRINT"Recieved ";F$ 350 ENDIF 360ENDWHILE 370*FX2,0 380 390END 400CLOSE#Q% 410*FX2,0 420PRINT ERR;" AT "ERL 430PRINT"Crashed"
� Serial Transfer (� Origional program by Paul Pibworth 5ș"OS_SerialOp",0,0,0 :� Set handshaking protocol (4ș"OS_SerialOp",1,0 :� 8 data 1 stop no parity 2&ș"OS_SerialOp",5,7 :� 9600 baud < *FX2,1 F F$="" P Z� � � �tPA d� Empty serial buffer nȕ F$<>"*QUIT" xȕ �(-2)>0 �G%=�:�"X ";~G%; �� �!�"Waiting, now start sending" � �"Incoming File name is ";F$ �� F$ �� F$<>"*QUIT" � � E%=� � �"odd byte =";~E% �& � lose this odd byte that arrives � �"Getting file size ";Z% � �"File size = ";Z% � E%=� � �"next odd byte ";~Z% � Z%<1 � �tPA �"Ready to open file" Q%=� F$ " � I%=1 � Z% , A%=� 6 �#Q%,A% @ � J �#Q% T �"Recieved ";F$ ^ � h� r *FX2,0 | �� ��#Q% � *FX2,0 �� �;" AT "� ��"Crashed" �
00000000 0d 00 0a 15 f4 20 53 65 72 69 61 6c 20 54 72 61 |..... Serial Tra| 00000010 6e 73 66 65 72 0d 00 14 28 f4 20 4f 72 69 67 69 |nsfer...(. Origi| 00000020 6f 6e 61 6c 20 70 72 6f 67 72 61 6d 20 62 79 20 |onal program by | 00000030 50 61 75 6c 20 50 69 62 77 6f 72 74 68 0d 00 1e |Paul Pibworth...| 00000040 35 c8 99 22 4f 53 5f 53 65 72 69 61 6c 4f 70 22 |5.."OS_SerialOp"| 00000050 2c 30 2c 30 2c 30 20 3a f4 20 53 65 74 20 68 61 |,0,0,0 :. Set ha| 00000060 6e 64 73 68 61 6b 69 6e 67 20 70 72 6f 74 6f 63 |ndshaking protoc| 00000070 6f 6c 0d 00 28 34 c8 99 22 4f 53 5f 53 65 72 69 |ol..(4.."OS_Seri| 00000080 61 6c 4f 70 22 2c 31 2c 30 20 20 20 3a f4 20 38 |alOp",1,0 :. 8| 00000090 20 64 61 74 61 20 31 20 73 74 6f 70 20 6e 6f 20 | data 1 stop no | 000000a0 70 61 72 69 74 79 0d 00 32 26 c8 99 22 4f 53 5f |parity..2&.."OS_| 000000b0 53 65 72 69 61 6c 4f 70 22 2c 35 2c 37 20 20 20 |SerialOp",5,7 | 000000c0 3a f4 20 39 36 30 30 20 62 61 75 64 0d 00 3c 0a |:. 9600 baud..<.| 000000d0 2a 46 58 32 2c 31 0d 00 46 09 46 24 3d 22 22 0d |*FX2,1..F.F$="".| 000000e0 00 50 04 0d 00 5a 0e ee 20 85 20 e5 20 8d 74 50 |.P...Z.. . . .tP| 000000f0 41 0d 00 64 19 f4 20 45 6d 70 74 79 20 73 65 72 |A..d.. Empty ser| 00000100 69 61 6c 20 62 75 66 66 65 72 0d 00 6e 12 c8 95 |ial buffer..n...| 00000110 20 46 24 3c 3e 22 2a 51 55 49 54 22 0d 00 78 0e | F$<>"*QUIT"..x.| 00000120 c8 95 20 96 28 2d 32 29 3e 30 0d 00 82 13 47 25 |.. .(-2)>0....G%| 00000130 3d a5 3a f1 22 58 20 22 3b 7e 47 25 3b 0d 00 8c |=.:."X ";~G%;...| 00000140 05 ce 0d 00 96 21 f1 22 57 61 69 74 69 6e 67 2c |.....!."Waiting,| 00000150 20 6e 6f 77 20 73 74 61 72 74 20 73 65 6e 64 69 | now start sendi| 00000160 6e 67 22 0d 00 a0 20 e8 22 49 6e 63 6f 6d 69 6e |ng"... ."Incomin| 00000170 67 20 46 69 6c 65 20 6e 61 6d 65 20 69 73 20 22 |g File name is "| 00000180 3b 46 24 0d 00 aa 08 f1 20 46 24 0d 00 b4 13 e7 |;F$..... F$.....| 00000190 20 46 24 3c 3e 22 2a 51 55 49 54 22 20 8c 0d 00 | F$<>"*QUIT" ...| 000001a0 be 09 20 45 25 3d a5 0d 00 c8 16 20 f1 22 6f 64 |.. E%=..... ."od| 000001b0 64 20 62 79 74 65 20 3d 22 3b 7e 45 25 0d 00 d2 |d byte =";~E%...| 000001c0 26 20 f4 20 6c 6f 73 65 20 74 68 69 73 20 6f 64 |& . lose this od| 000001d0 64 20 62 79 74 65 20 74 68 61 74 20 61 72 72 69 |d byte that arri| 000001e0 76 65 73 0d 00 dc 1d 20 e8 22 47 65 74 74 69 6e |ves.... ."Gettin| 000001f0 67 20 66 69 6c 65 20 73 69 7a 65 20 22 3b 5a 25 |g file size ";Z%| 00000200 0d 00 e6 17 20 f1 22 46 69 6c 65 20 73 69 7a 65 |.... ."File size| 00000210 20 3d 20 22 3b 5a 25 0d 00 f0 09 20 45 25 3d a5 | = ";Z%.... E%=.| 00000220 0d 00 fa 1a 20 f1 22 6e 65 78 74 20 6f 64 64 20 |.... ."next odd | 00000230 62 79 74 65 20 22 3b 7e 5a 25 0d 01 04 12 20 e7 |byte ";~Z%.... .| 00000240 20 5a 25 3c 31 20 e5 20 8d 74 50 41 0d 01 0e 1a | Z%<1 . .tPA....| 00000250 20 f1 22 52 65 61 64 79 20 74 6f 20 6f 70 65 6e | ."Ready to open| 00000260 20 66 69 6c 65 22 0d 01 18 0c 20 51 25 3d ae 20 | file".... Q%=. | 00000270 46 24 0d 01 22 10 20 e3 20 49 25 3d 31 20 b8 20 |F$..". . I%=1 . | 00000280 5a 25 0d 01 2c 09 20 41 25 3d a5 0d 01 36 0c 20 |Z%..,. A%=...6. | 00000290 d5 23 51 25 2c 41 25 0d 01 40 06 20 ed 0d 01 4a |.#Q%,A%..@. ...J| 000002a0 09 20 d9 23 51 25 0d 01 54 14 20 f1 22 52 65 63 |. .#Q%..T. ."Rec| 000002b0 69 65 76 65 64 20 22 3b 46 24 0d 01 5e 06 20 cd |ieved ";F$..^. .| 000002c0 0d 01 68 05 ce 0d 01 72 0a 2a 46 58 32 2c 30 0d |..h....r.*FX2,0.| 000002d0 01 7c 04 0d 01 86 05 e0 0d 01 90 08 d9 23 51 25 |.|...........#Q%| 000002e0 0d 01 9a 0a 2a 46 58 32 2c 30 0d 01 a4 0f f1 20 |....*FX2,0..... | 000002f0 9f 3b 22 20 41 54 20 22 9e 0d 01 ae 0e f1 22 43 |.;" AT "......"C| 00000300 72 61 73 68 65 64 22 0d ff |rashed"..| 00000309
.