Home » Archimedes archive » Acorn User » AU 1998-12.adf » Regulars » RTR/HandS
RTR/HandS
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 » Acorn User » AU 1998-12.adf » Regulars |
| Filename: | RTR/HandS |
| Read OK: | ✔ |
| File size: | 0159 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Serial I/O Handshaking test 20REM Initilise Serial Port 19,200 Baud 8 data 1 Stop no Parity 30SYS"OS_SerialOp",0,&04,&FF00 40SYS"OS_SerialOp",1,0 50SYS"OS_SerialOp",5,8 60SYS"OS_SerialOp",6,8 70SYS"OS_Byte",2,2 80 90A%=0 100REPEAT 110SYS"OS_SerialOp",3,A% 111REPEAT 112SYS"OS_SerialOp",4,256 TO ,B% ;C% 113C%=C% AND &2 114UNTIL C%=0 115A%+=1 116PRINTA% 117UNTIL FALSE
!� Serial I/O Handshaking test ?� Initilise Serial Port 19,200 Baud 8 data 1 Stop no Parity ș"OS_SerialOp",0,&04,&FF00 (ș"OS_SerialOp",1,0 2ș"OS_SerialOp",5,8 <ș"OS_SerialOp",6,8 Fș"OS_Byte",2,2 P ZA%=0 d� nș"OS_SerialOp",3,A% o� p#ș"OS_SerialOp",4,256 � ,B% ;C% qC%=C% � &2 r � C%=0 s A%+=1 t�A% u� � �
00000000 0d 00 0a 21 f4 20 53 65 72 69 61 6c 20 49 2f 4f |...!. Serial I/O| 00000010 20 48 61 6e 64 73 68 61 6b 69 6e 67 20 74 65 73 | Handshaking tes| 00000020 74 0d 00 14 3f f4 20 49 6e 69 74 69 6c 69 73 65 |t...?. Initilise| 00000030 20 53 65 72 69 61 6c 20 50 6f 72 74 20 31 39 2c | Serial Port 19,| 00000040 32 30 30 20 42 61 75 64 20 38 20 64 61 74 61 20 |200 Baud 8 data | 00000050 31 20 53 74 6f 70 20 6e 6f 20 50 61 72 69 74 79 |1 Stop no Parity| 00000060 0d 00 1e 1f c8 99 22 4f 53 5f 53 65 72 69 61 6c |......"OS_Serial| 00000070 4f 70 22 2c 30 2c 26 30 34 2c 26 46 46 30 30 0d |Op",0,&04,&FF00.| 00000080 00 28 17 c8 99 22 4f 53 5f 53 65 72 69 61 6c 4f |.(..."OS_SerialO| 00000090 70 22 2c 31 2c 30 0d 00 32 17 c8 99 22 4f 53 5f |p",1,0..2..."OS_| 000000a0 53 65 72 69 61 6c 4f 70 22 2c 35 2c 38 0d 00 3c |SerialOp",5,8..<| 000000b0 17 c8 99 22 4f 53 5f 53 65 72 69 61 6c 4f 70 22 |..."OS_SerialOp"| 000000c0 2c 36 2c 38 0d 00 46 13 c8 99 22 4f 53 5f 42 79 |,6,8..F..."OS_By| 000000d0 74 65 22 2c 32 2c 32 0d 00 50 04 0d 00 5a 08 41 |te",2,2..P...Z.A| 000000e0 25 3d 30 0d 00 64 05 f5 0d 00 6e 18 c8 99 22 4f |%=0..d....n..."O| 000000f0 53 5f 53 65 72 69 61 6c 4f 70 22 2c 33 2c 41 25 |S_SerialOp",3,A%| 00000100 0d 00 6f 05 f5 0d 00 70 23 c8 99 22 4f 53 5f 53 |..o....p#.."OS_S| 00000110 65 72 69 61 6c 4f 70 22 2c 34 2c 32 35 36 20 b8 |erialOp",4,256 .| 00000120 20 2c 42 25 20 3b 43 25 0d 00 71 0e 43 25 3d 43 | ,B% ;C%..q.C%=C| 00000130 25 20 80 20 26 32 0d 00 72 0a fd 20 43 25 3d 30 |% . &2..r.. C%=0| 00000140 0d 00 73 09 41 25 2b 3d 31 0d 00 74 07 f1 41 25 |..s.A%+=1..t..A%| 00000150 0d 00 75 07 fd 20 a3 0d ff |..u.. ...| 00000159
.