Home » Archimedes archive » Acorn User » AU 1998-05 A.adf » Regulars » StarInfo/Johns/s/HourPerc
StarInfo/Johns/s/HourPerc
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: | StarInfo/Johns/s/HourPerc |
| Read OK: | ✔ |
| File size: | 00DF bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
AREA |Hourlgass$Percentage|, CODE, READONLY EXPORT |hourglass_percentage| SWI_Hourglass_Percentage * &406C4 |hourglass_percentage| MOV r1,r14 SWI SWI_Hourglass_Percentage MOV pc,r1 END
00000000 0a 20 20 20 41 52 45 41 20 20 20 20 7c 48 6f 75 |. AREA |Hou| 00000010 72 6c 67 61 73 73 24 50 65 72 63 65 6e 74 61 67 |rlgass$Percentag| 00000020 65 7c 2c 20 43 4f 44 45 2c 20 52 45 41 44 4f 4e |e|, CODE, READON| 00000030 4c 59 0a 20 20 20 45 58 50 4f 52 54 20 20 7c 68 |LY. EXPORT |h| 00000040 6f 75 72 67 6c 61 73 73 5f 70 65 72 63 65 6e 74 |ourglass_percent| 00000050 61 67 65 7c 0a 0a 53 57 49 5f 48 6f 75 72 67 6c |age|..SWI_Hourgl| 00000060 61 73 73 5f 50 65 72 63 65 6e 74 61 67 65 20 2a |ass_Percentage *| 00000070 20 26 34 30 36 43 34 0a 0a 7c 68 6f 75 72 67 6c | &406C4..|hourgl| 00000080 61 73 73 5f 70 65 72 63 65 6e 74 61 67 65 7c 0a |ass_percentage|.| 00000090 20 20 20 4d 4f 56 20 20 20 20 20 72 31 2c 72 31 | MOV r1,r1| 000000a0 34 0a 20 20 20 53 57 49 20 20 20 20 20 53 57 49 |4. SWI SWI| 000000b0 5f 48 6f 75 72 67 6c 61 73 73 5f 50 65 72 63 65 |_Hourglass_Perce| 000000c0 6e 74 61 67 65 0a 20 20 20 4d 4f 56 20 20 20 20 |ntage. MOV | 000000d0 20 70 63 2c 72 31 0a 0a 20 20 20 45 4e 44 0a | pc,r1.. END.| 000000df
.