Home » Archimedes archive » Micro User » MU 1990-06.adf » L-2-III
L-2-III
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 1990-06.adf |
| Filename: | L-2-III |
| Read OK: | ✔ |
| File size: | 01A9 bytes |
| Load address: | FFFFFB43 |
| Exec address: | 6D39897C |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Micro User » MU 1990-06.adf » L-2-III
- AEW website » mu » mu_5_25_discs_Micro_User_08_04_D-MU08_04.ssd » L-2-III
File contents
10 REM Listing III 20 REM By Glenn Marshall 30 REM (C) The Micro User 40 : 50 .pointer 60 JSR set_pointer_size 70 JSR set_pointer_interrupts 80 LDA #19:JSR &FFF4 90 .sync_loop 100 LDA #0:STA icon 110 LDA icon:BEQ sync_loop 120 JSR pointer_off 130 JSR reset_pointer_interrupts 140 rts 150 : 160 .desktop 170 JSR desktop_background 180 JSR desktop_icon_line 190 LDA #60:STA X1:LDA #6:STA Y1 200 JSR pointer 210 rts
� Listing III � By Glenn Marshall � (C) The Micro User ( : 2 .pointer < JSR set_pointer_size F JSR set_pointer_interrupts P LDA #19:JSR &FFF4 Z .sync_loop d LDA #0:STA icon n LDA icon:BEQ sync_loop x JSR pointer_off �! JSR reset_pointer_interrupts � rts � : � .desktop � JSR desktop_background � JSR desktop_icon_line �! LDA #60:STA X1:LDA #6:STA Y1 � JSR pointer � rts �
00000000 0d 00 0a 14 20 f4 20 20 20 4c 69 73 74 69 6e 67 |.... . Listing| 00000010 20 49 49 49 0d 00 14 1a 20 f4 20 20 20 42 79 20 | III.... . By | 00000020 47 6c 65 6e 6e 20 4d 61 72 73 68 61 6c 6c 0d 00 |Glenn Marshall..| 00000030 1e 1b 20 f4 20 20 20 28 43 29 20 54 68 65 20 4d |.. . (C) The M| 00000040 69 63 72 6f 20 55 73 65 72 0d 00 28 06 20 3a 0d |icro User..(. :.| 00000050 00 32 0d 20 2e 70 6f 69 6e 74 65 72 0d 00 3c 19 |.2. .pointer..<.| 00000060 20 4a 53 52 20 73 65 74 5f 70 6f 69 6e 74 65 72 | JSR set_pointer| 00000070 5f 73 69 7a 65 0d 00 46 1f 20 4a 53 52 20 73 65 |_size..F. JSR se| 00000080 74 5f 70 6f 69 6e 74 65 72 5f 69 6e 74 65 72 72 |t_pointer_interr| 00000090 75 70 74 73 0d 00 50 16 20 4c 44 41 20 23 31 39 |upts..P. LDA #19| 000000a0 3a 4a 53 52 20 26 46 46 46 34 0d 00 5a 0f 20 2e |:JSR &FFF4..Z. .| 000000b0 73 79 6e 63 5f 6c 6f 6f 70 0d 00 64 14 20 4c 44 |sync_loop..d. LD| 000000c0 41 20 23 30 3a 53 54 41 20 69 63 6f 6e 0d 00 6e |A #0:STA icon..n| 000000d0 1b 20 4c 44 41 20 69 63 6f 6e 3a 42 45 51 20 73 |. LDA icon:BEQ s| 000000e0 79 6e 63 5f 6c 6f 6f 70 0d 00 78 14 20 4a 53 52 |ync_loop..x. JSR| 000000f0 20 70 6f 69 6e 74 65 72 5f 6f 66 66 0d 00 82 21 | pointer_off...!| 00000100 20 4a 53 52 20 72 65 73 65 74 5f 70 6f 69 6e 74 | JSR reset_point| 00000110 65 72 5f 69 6e 74 65 72 72 75 70 74 73 0d 00 8c |er_interrupts...| 00000120 08 20 72 74 73 0d 00 96 06 20 3a 0d 00 a0 0d 20 |. rts.... :.... | 00000130 2e 64 65 73 6b 74 6f 70 0d 00 aa 1b 20 4a 53 52 |.desktop.... JSR| 00000140 20 64 65 73 6b 74 6f 70 5f 62 61 63 6b 67 72 6f | desktop_backgro| 00000150 75 6e 64 0d 00 b4 1a 20 4a 53 52 20 64 65 73 6b |und.... JSR desk| 00000160 74 6f 70 5f 69 63 6f 6e 5f 6c 69 6e 65 0d 00 be |top_icon_line...| 00000170 21 20 4c 44 41 20 23 36 30 3a 53 54 41 20 58 31 |! LDA #60:STA X1| 00000180 3a 4c 44 41 20 23 36 3a 53 54 41 20 59 31 0d 00 |:LDA #6:STA Y1..| 00000190 c8 11 20 4a 53 52 20 70 6f 69 6e 74 65 72 20 0d |.. JSR pointer .| 000001a0 00 d2 08 20 72 74 73 0d ff |... rts..| 000001a9
.