Home » Archimedes archive » Acorn User » AU 1998-05 A.adf » Regulars » MikeC/TestPartiy
MikeC/TestPartiy
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-05 A.adf » Regulars |
| Filename: | MikeC/TestPartiy |
| Read OK: | ✔ |
| File size: | 012D bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Parity tester
20
30P2%=0
40P%=0
50F%=OPENIN("$.Develop.SerialMon.Orginiser.2Phone")
60B%=BGET#F%:B%=BGET#F%
70REPEAT
80P2%=B%
90B%=BGET#F%
100IF B%>&7F THEN B%= B% OR &FFFFFF00
110P%=P% - B%
120UNTIL B%=&1A
130CLOSE#F%
140CP%=(P%+B%+P2%) AND &FF
150P2%=P2% AND &FF
160PRINT"Parity in file ";~P2%
170PRINT"Calculated parity ";~CP%
� Parity tester
P2%=0
(P%=0
20F%=�("$.Develop.SerialMon.Orginiser.2Phone")
<B%=�#F%:B%=�#F%
F�
P
P2%=B%
Z B%=�#F%
d!� B%>&7F � B%= B% � &FFFFFF00
nP%=P% - B%
x � B%=&1A
��#F%
�CP%=(P%+B%+P2%) � &FF
�P2%=P2% � &FF
��"Parity in file ";~P2%
� �"Calculated parity ";~CP%
� 00000000 0d 00 0a 13 f4 20 50 61 72 69 74 79 20 74 65 73 |..... Parity tes|
00000010 74 65 72 0d 00 14 04 0d 00 1e 09 50 32 25 3d 30 |ter........P2%=0|
00000020 0d 00 28 08 50 25 3d 30 0d 00 32 30 46 25 3d 8e |..(.P%=0..20F%=.|
00000030 28 22 24 2e 44 65 76 65 6c 6f 70 2e 53 65 72 69 |("$.Develop.Seri|
00000040 61 6c 4d 6f 6e 2e 4f 72 67 69 6e 69 73 65 72 2e |alMon.Orginiser.|
00000050 32 50 68 6f 6e 65 22 29 0d 00 3c 13 42 25 3d 9a |2Phone")..<.B%=.|
00000060 23 46 25 3a 42 25 3d 9a 23 46 25 0d 00 46 05 f5 |#F%:B%=.#F%..F..|
00000070 0d 00 50 0a 50 32 25 3d 42 25 0d 00 5a 0b 42 25 |..P.P2%=B%..Z.B%|
00000080 3d 9a 23 46 25 0d 00 64 21 e7 20 42 25 3e 26 37 |=.#F%..d!. B%>&7|
00000090 46 20 8c 20 42 25 3d 20 42 25 20 84 20 26 46 46 |F . B%= B% . &FF|
000000a0 46 46 46 46 30 30 0d 00 6e 0e 50 25 3d 50 25 20 |FFFF00..n.P%=P% |
000000b0 2d 20 42 25 0d 00 78 0c fd 20 42 25 3d 26 31 41 |- B%..x.. B%=&1A|
000000c0 0d 00 82 08 d9 23 46 25 0d 00 8c 19 43 50 25 3d |.....#F%....CP%=|
000000d0 28 50 25 2b 42 25 2b 50 32 25 29 20 80 20 26 46 |(P%+B%+P2%) . &F|
000000e0 46 0d 00 96 11 50 32 25 3d 50 32 25 20 80 20 26 |F....P2%=P2% . &|
000000f0 46 46 0d 00 a0 1b f1 22 50 61 72 69 74 79 20 69 |FF....."Parity i|
00000100 6e 20 66 69 6c 65 20 22 3b 7e 50 32 25 0d 00 aa |n file ";~P2%...|
00000110 1e f1 22 43 61 6c 63 75 6c 61 74 65 64 20 70 61 |.."Calculated pa|
00000120 72 69 74 79 20 22 3b 7e 43 50 25 0d ff |rity ";~CP%..|
0000012d 
.