Home » Archimedes archive » Micro User » MU 1991-06.adf » Listings » IIC4
IIC4
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-06.adf » Listings |
| Filename: | IIC4 |
| Read OK: | ✔ |
| File size: | 00E4 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn User » AU 1995-12 B.adf » Regulars » RuntheRISC/IIC4
- Archimedes archive » Micro User » MU 1991-06.adf » Listings » IIC4
File contents
10REM> IIC4 20CLS 30PRINT"IIC Bus Digital Input Device &70" 40PRINT"By Mike Cook" 50DIM PBK% 3 60REM SET ALL BITS HIGH 70?PBK%=&FF 80SYS "IIC_Control",&70,PBK%,1 90REPEAT 100SYS "IIC_Control",&71,PBK%,1 110PRINT TAB(0,5)~?PBK%;" HEX ";SPC(3) 120UNTIL FALSE
�> IIC4 � '�"IIC Bus Digital Input Device &70" (�"By Mike Cook" 2 � PBK% 3 <� SET ALL BITS HIGH F ?PBK%=&FF P ș "IIC_Control",&70,PBK%,1 Z� d ș "IIC_Control",&71,PBK%,1 n � �0,5)~?PBK%;" HEX ";�(3) x� � �
00000000 0d 00 0a 0b f4 3e 20 49 49 43 34 0d 00 14 05 db |.....> IIC4.....| 00000010 0d 00 1e 27 f1 22 49 49 43 20 42 75 73 20 44 69 |...'."IIC Bus Di| 00000020 67 69 74 61 6c 20 49 6e 70 75 74 20 44 65 76 69 |gital Input Devi| 00000030 63 65 20 26 37 30 22 0d 00 28 13 f1 22 42 79 20 |ce &70"..(.."By | 00000040 4d 69 6b 65 20 43 6f 6f 6b 22 0d 00 32 0c de 20 |Mike Cook"..2.. | 00000050 50 42 4b 25 20 33 0d 00 3c 17 f4 20 53 45 54 20 |PBK% 3..<.. SET | 00000060 41 4c 4c 20 42 49 54 53 20 48 49 47 48 0d 00 46 |ALL BITS HIGH..F| 00000070 0d 3f 50 42 4b 25 3d 26 46 46 0d 00 50 1f c8 99 |.?PBK%=&FF..P...| 00000080 20 22 49 49 43 5f 43 6f 6e 74 72 6f 6c 22 2c 26 | "IIC_Control",&| 00000090 37 30 2c 50 42 4b 25 2c 31 0d 00 5a 05 f5 0d 00 |70,PBK%,1..Z....| 000000a0 64 1f c8 99 20 22 49 49 43 5f 43 6f 6e 74 72 6f |d... "IIC_Contro| 000000b0 6c 22 2c 26 37 31 2c 50 42 4b 25 2c 31 0d 00 6e |l",&71,PBK%,1..n| 000000c0 1e f1 20 8a 30 2c 35 29 7e 3f 50 42 4b 25 3b 22 |.. .0,5)~?PBK%;"| 000000d0 20 48 45 58 20 22 3b 89 28 33 29 0d 00 78 07 fd | HEX ";.(3)..x..| 000000e0 20 a3 0d ff | ...| 000000e4
.