Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199607.adf » Regulars » RunTheRisc/Transfer/Original/Risc
RunTheRisc/Transfer/Original/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/Original/Risc |
| Read OK: | ✔ |
| File size: | 028A bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Serial Transfer 20REM Origional program by Paul Pibworth 30*FX156,86,0 40*FX7,4 50*FX2,1 60*FX15,0 70*RAM 80ON ERROR GOTO 380 90REM Empty serial buffer 100WHILE ADVAL(-2)>0 110G%=GET:PRINT"X ";~G%; 120ENDWHILE 130PRINT"Waiting, now start sending" 140INPUT"Incoming File name is ";F$ 150PRINT F$ 160E%=GET 170PRINT"odd byte =";~E% 180REM lose this odd byte that arrives 190INPUT"Getting file size ";Z% 200PRINT"File size = ";Z% 210E%=GET 220PRINT"next odd byte ";~Z% 230IF Z%<1 GOTO 380 240PRINT"Ready to open file" 250*FX2,0 260PRINT"Press a key to continue" 270y=GET 280*FX2,1 290Q%=OPENOUT F$ 300FOR I%=1 TO Z% 310A%=GET 320BPUT#Q%,A% 330NEXT 340CLOSE#Q% 350PRINT"Recieved" 360*FX2,0 370END 380CLOSE#Q% 390*FX2,0 400PRINT ERR;" AT "ERL 410PRINT"Crashed"
� Serial Transfer (� Origional program by Paul Pibworth *FX156,86,0 ( *FX7,4 2 *FX2,1 < *FX15,0 F*RAM P� � � �D|A Z� Empty serial buffer dȕ �(-2)>0 nG%=�:�"X ";~G%; x� �!�"Waiting, now start sending" � �"Incoming File name is ";F$ �� F$ �E%=� ��"odd byte =";~E% �%� lose this odd byte that arrives � �"Getting file size ";Z% ��"File size = ";Z% �E%=� ��"next odd byte ";~Z% �� Z%<1 � �D|A ��"Ready to open file" � *FX2,0 �"Press a key to continue" y=� *FX2,1 " Q%=� F$ ,� I%=1 � Z% 6A%=� @ �#Q%,A% J� T�#Q% ^�"Recieved" h *FX2,0 r� |�#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 0f 2a 46 58 31 35 36 2c 38 36 2c 30 0d 00 28 0a |.*FX156,86,0..(.| 00000050 2a 46 58 37 2c 34 0d 00 32 0a 2a 46 58 32 2c 31 |*FX7,4..2.*FX2,1| 00000060 0d 00 3c 0b 2a 46 58 31 35 2c 30 0d 00 46 08 2a |..<.*FX15,0..F.*| 00000070 52 41 4d 0d 00 50 0e ee 20 85 20 e5 20 8d 44 7c |RAM..P.. . . .D|| 00000080 41 0d 00 5a 19 f4 20 45 6d 70 74 79 20 73 65 72 |A..Z.. Empty ser| 00000090 69 61 6c 20 62 75 66 66 65 72 0d 00 64 0e c8 95 |ial buffer..d...| 000000a0 20 96 28 2d 32 29 3e 30 0d 00 6e 13 47 25 3d a5 | .(-2)>0..n.G%=.| 000000b0 3a f1 22 58 20 22 3b 7e 47 25 3b 0d 00 78 05 ce |:."X ";~G%;..x..| 000000c0 0d 00 82 21 f1 22 57 61 69 74 69 6e 67 2c 20 6e |...!."Waiting, n| 000000d0 6f 77 20 73 74 61 72 74 20 73 65 6e 64 69 6e 67 |ow start sending| 000000e0 22 0d 00 8c 20 e8 22 49 6e 63 6f 6d 69 6e 67 20 |"... ."Incoming | 000000f0 46 69 6c 65 20 6e 61 6d 65 20 69 73 20 22 3b 46 |File name is ";F| 00000100 24 0d 00 96 08 f1 20 46 24 0d 00 a0 08 45 25 3d |$..... F$....E%=| 00000110 a5 0d 00 aa 15 f1 22 6f 64 64 20 62 79 74 65 20 |......"odd byte | 00000120 3d 22 3b 7e 45 25 0d 00 b4 25 f4 20 6c 6f 73 65 |=";~E%...%. lose| 00000130 20 74 68 69 73 20 6f 64 64 20 62 79 74 65 20 74 | this odd byte t| 00000140 68 61 74 20 61 72 72 69 76 65 73 0d 00 be 1c e8 |hat arrives.....| 00000150 22 47 65 74 74 69 6e 67 20 66 69 6c 65 20 73 69 |"Getting file si| 00000160 7a 65 20 22 3b 5a 25 0d 00 c8 16 f1 22 46 69 6c |ze ";Z%....."Fil| 00000170 65 20 73 69 7a 65 20 3d 20 22 3b 5a 25 0d 00 d2 |e size = ";Z%...| 00000180 08 45 25 3d a5 0d 00 dc 19 f1 22 6e 65 78 74 20 |.E%=......"next | 00000190 6f 64 64 20 62 79 74 65 20 22 3b 7e 5a 25 0d 00 |odd byte ";~Z%..| 000001a0 e6 11 e7 20 5a 25 3c 31 20 e5 20 8d 44 7c 41 0d |... Z%<1 . .D|A.| 000001b0 00 f0 19 f1 22 52 65 61 64 79 20 74 6f 20 6f 70 |...."Ready to op| 000001c0 65 6e 20 66 69 6c 65 22 0d 00 fa 0a 2a 46 58 32 |en file"....*FX2| 000001d0 2c 30 0d 01 04 1e f1 22 50 72 65 73 73 20 61 20 |,0....."Press a | 000001e0 6b 65 79 20 74 6f 20 63 6f 6e 74 69 6e 75 65 22 |key to continue"| 000001f0 0d 01 0e 07 79 3d a5 0d 01 18 0a 2a 46 58 32 2c |....y=.....*FX2,| 00000200 31 0d 01 22 0b 51 25 3d ae 20 46 24 0d 01 2c 0f |1..".Q%=. F$..,.| 00000210 e3 20 49 25 3d 31 20 b8 20 5a 25 0d 01 36 08 41 |. I%=1 . Z%..6.A| 00000220 25 3d a5 0d 01 40 0b d5 23 51 25 2c 41 25 0d 01 |%=...@..#Q%,A%..| 00000230 4a 05 ed 0d 01 54 08 d9 23 51 25 0d 01 5e 0f f1 |J....T..#Q%..^..| 00000240 22 52 65 63 69 65 76 65 64 22 0d 01 68 0a 2a 46 |"Recieved"..h.*F| 00000250 58 32 2c 30 0d 01 72 05 e0 0d 01 7c 08 d9 23 51 |X2,0..r....|..#Q| 00000260 25 0d 01 86 0a 2a 46 58 32 2c 30 0d 01 90 0f f1 |%....*FX2,0.....| 00000270 20 9f 3b 22 20 41 54 20 22 9e 0d 01 9a 0e f1 22 | .;" AT "......"| 00000280 43 72 61 73 68 65 64 22 0d ff |Crashed"..| 0000028a
.