Home » Archimedes archive » Micro User » MU 1991-02.adf » Listings » Sport_IO
Sport_IO
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 » Archimedes archive » Micro User » MU 1991-02.adf » Listings |
| Filename: | Sport_IO |
| Read OK: | ✔ |
| File size: | 021B bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Sport_IO 20ON ERROR GOTO 300 30PRINT"Serial Port Input Output Test" 40REM This is the initilisation 50*FX7,7 60REM 9600 BAUD RECIEVE 70*FX8,7 80REM 9600 BAUD TRANSMIT 90*FX156,18 100REM 8 BITS NO PARITY 1 STOP 110REM Serial Interface now set up 120 130REPEAT 140INPUT"Send ",B% 150A%=FN_SP(B%) 160PRINT A%;" Is recived when ";B%;" is sent" 170UNTIL FALSE 180 190REM Send and Read a byte 200DEF FN_SP(B%) 210LOCAL R% 220B%=B% AND &FF 230*FX2,1 240*FX3,3 250PRINT CHR$(B%); 260R%=GET 270*FX2,0 280*FX3,0 290=R% 300REM ERROR ROUTINE 310ON ERROR OFF 320*FX2,0 330*FX3,0 340PRINT"ERROR ";ERR;" AT LINE ";ERL
� >Sport_IO � � � �TlA $�"Serial Port Input Output Test" ( � This is the initilisation 2 *FX7,7 <� 9600 BAUD RECIEVE F *FX8,7 P� 9600 BAUD TRANSMIT Z *FX156,18 d � 8 BITS NO PARITY 1 STOP n!� Serial Interface now set up x �� ��"Send ",B% �A%=�_SP(B%) �*� A%;" Is recived when ";B%;" is sent" �� � � �� Send and Read a byte �� �_SP(B%) �� R% �B%=B% � &FF � *FX2,1 � *FX3,3 � � �(B%); R%=� *FX2,0 *FX3,0 "=R% ,� ERROR ROUTINE 6 � � � @ *FX2,0 J *FX3,0 T �"ERROR ";�;" AT LINE ";� �
00000000 0d 00 0a 0f f4 20 3e 53 70 6f 72 74 5f 49 4f 0d |..... >Sport_IO.| 00000010 00 14 0e ee 20 85 20 e5 20 8d 54 6c 41 0d 00 1e |.... . . .TlA...| 00000020 24 f1 22 53 65 72 69 61 6c 20 50 6f 72 74 20 49 |$."Serial Port I| 00000030 6e 70 75 74 20 4f 75 74 70 75 74 20 54 65 73 74 |nput Output Test| 00000040 22 0d 00 28 1f f4 20 54 68 69 73 20 69 73 20 74 |"..(.. This is t| 00000050 68 65 20 69 6e 69 74 69 6c 69 73 61 74 69 6f 6e |he initilisation| 00000060 0d 00 32 0a 2a 46 58 37 2c 37 0d 00 3c 17 f4 20 |..2.*FX7,7..<.. | 00000070 39 36 30 30 20 42 41 55 44 20 52 45 43 49 45 56 |9600 BAUD RECIEV| 00000080 45 0d 00 46 0a 2a 46 58 38 2c 37 0d 00 50 18 f4 |E..F.*FX8,7..P..| 00000090 20 39 36 30 30 20 42 41 55 44 20 54 52 41 4e 53 | 9600 BAUD TRANS| 000000a0 4d 49 54 0d 00 5a 0d 2a 46 58 31 35 36 2c 31 38 |MIT..Z.*FX156,18| 000000b0 0d 00 64 1d f4 20 38 20 42 49 54 53 20 4e 4f 20 |..d.. 8 BITS NO | 000000c0 50 41 52 49 54 59 20 31 20 53 54 4f 50 0d 00 6e |PARITY 1 STOP..n| 000000d0 21 f4 20 53 65 72 69 61 6c 20 49 6e 74 65 72 66 |!. Serial Interf| 000000e0 61 63 65 20 6e 6f 77 20 73 65 74 20 75 70 0d 00 |ace now set up..| 000000f0 78 04 0d 00 82 05 f5 0d 00 8c 0f e8 22 53 65 6e |x..........."Sen| 00000100 64 20 22 2c 42 25 0d 00 96 0f 41 25 3d a4 5f 53 |d ",B%....A%=._S| 00000110 50 28 42 25 29 0d 00 a0 2a f1 20 41 25 3b 22 20 |P(B%)...*. A%;" | 00000120 49 73 20 72 65 63 69 76 65 64 20 77 68 65 6e 20 |Is recived when | 00000130 22 3b 42 25 3b 22 20 69 73 20 73 65 6e 74 22 0d |";B%;" is sent".| 00000140 00 aa 07 fd 20 a3 0d 00 b4 04 0d 00 be 1a f4 20 |.... .......... | 00000150 53 65 6e 64 20 61 6e 64 20 52 65 61 64 20 61 20 |Send and Read a | 00000160 62 79 74 65 0d 00 c8 0e dd 20 a4 5f 53 50 28 42 |byte..... ._SP(B| 00000170 25 29 0d 00 d2 08 ea 20 52 25 0d 00 dc 0f 42 25 |%)..... R%....B%| 00000180 3d 42 25 20 80 20 26 46 46 0d 00 e6 0a 2a 46 58 |=B% . &FF....*FX| 00000190 32 2c 31 0d 00 f0 0a 2a 46 58 33 2c 33 0d 00 fa |2,1....*FX3,3...| 000001a0 0c f1 20 bd 28 42 25 29 3b 0d 01 04 08 52 25 3d |.. .(B%);....R%=| 000001b0 a5 0d 01 0e 0a 2a 46 58 32 2c 30 0d 01 18 0a 2a |.....*FX2,0....*| 000001c0 46 58 33 2c 30 0d 01 22 07 3d 52 25 0d 01 2c 13 |FX3,0..".=R%..,.| 000001d0 f4 20 45 52 52 4f 52 20 52 4f 55 54 49 4e 45 0d |. ERROR ROUTINE.| 000001e0 01 36 09 ee 20 85 20 87 0d 01 40 0a 2a 46 58 32 |.6.. . ...@.*FX2| 000001f0 2c 30 0d 01 4a 0a 2a 46 58 33 2c 30 0d 01 54 1d |,0..J.*FX3,0..T.| 00000200 f1 22 45 52 52 4f 52 20 22 3b 9f 3b 22 20 41 54 |."ERROR ";.;" AT| 00000210 20 4c 49 4e 45 20 22 3b 9e 0d ff | LINE ";...| 0000021b
.