Home » Archimedes archive » Acorn User » AU 1997-10 A.adf » Regulars » RTR/Examples/First
RTR/Examples/First
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 1997-10 A.adf » Regulars |
| Filename: | RTR/Examples/First |
| Read OK: | ✔ |
| File size: | 00F9 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
;Simple example to put a binary count on Port B
;An LED connected to any pin will flash at diffrent rates
LIST P=16C84
MOVLW 0
TRIS 6
OPTION
LOOP SLEEP
INCF 6,F
GOTO LOOP
END
00000000 3b 53 69 6d 70 6c 65 20 65 78 61 6d 70 6c 65 20 |;Simple example | 00000010 74 6f 20 70 75 74 20 61 20 62 69 6e 61 72 79 20 |to put a binary | 00000020 63 6f 75 6e 74 20 6f 6e 20 50 6f 72 74 20 42 0a |count on Port B.| 00000030 3b 41 6e 20 4c 45 44 20 63 6f 6e 6e 65 63 74 65 |;An LED connecte| 00000040 64 20 74 6f 20 61 6e 79 20 70 69 6e 20 77 69 6c |d to any pin wil| 00000050 6c 20 66 6c 61 73 68 20 61 74 20 64 69 66 66 72 |l flash at diffr| 00000060 65 6e 74 20 72 61 74 65 73 0a 20 20 20 20 20 20 |ent rates. | 00000070 20 20 4c 49 53 54 20 20 20 20 50 3d 31 36 43 38 | LIST P=16C8| 00000080 34 0a 20 20 20 20 20 20 20 20 4d 4f 56 4c 57 20 |4. MOVLW | 00000090 20 20 30 0a 20 20 20 20 20 20 20 20 54 52 49 53 | 0. TRIS| 000000a0 20 20 20 20 36 0a 20 20 20 20 20 20 20 20 4f 50 | 6. OP| 000000b0 54 49 4f 4e 0a 4c 4f 4f 50 20 20 20 20 53 4c 45 |TION.LOOP SLE| 000000c0 45 50 0a 20 20 20 20 20 20 20 20 49 4e 43 46 20 |EP. INCF | 000000d0 20 20 20 36 2c 46 0a 20 20 20 20 20 20 20 20 47 | 6,F. G| 000000e0 4f 54 4f 20 20 20 20 4c 4f 4f 50 0a 20 20 20 20 |OTO LOOP. | 000000f0 20 20 20 20 45 4e 44 0a 1a | END..| 000000f9
.