Home » Archimedes archive » Micro User » MU 1990-05.adf » L-1-III

L-1-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-05.adf
Filename: L-1-III
Read OK: ✔
File size: 0750 bytes
Load address: FFF00043
Exec address: 6D39B902
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10 REM   Listing III
   20 REM   By Glenn Marshall
   30 REM   (C) The Micro User
   40 :
   50 IF PAGE<>&2100 THEN END
   60 :
   70 MODE 3
   80 VDU 19,7,0,0,0,0
   90 VDU 19,0,7,0,0,0
  100 VDU 23,0,9,7,0,0,0,0,0,0
  110 VDU 23,0,4,38,0,0,0,0,0,0
  120 VDU 23,0,7,31,0,0,0,0,0,0
  130 :
  140 xlb=&50:xhb=&51
  150 ylb=&52:yhb=&53
  160 X1=&54:X2=&55
  170 Y1=&56:Y2=&57
  180 color=&58
  190 pass=&5B
  200 coll=&5C:colh=&5D
  210 :
  220 FOR code=0 TO 2 STEP 2
  230 P%=&1900
  240 [OPT code
  250 :
  260 .screen
  270 LDA #255:STA color
  280 LDA #26:STA X1:LDA #80:STA Y1
  290 LDA #4:STA X2:LDA #19:STA Y2
  300 LDA #0:STA pass
  310 LDA #calculator_icon MOD 256
  320 STA coll
  330 LDA #calculator_icon DIV 256
  340 STA colh
  350 JSR sprite
  360 RTS
  370 :
  380 .sprite
  390 LDY Y2
  400 .sprite_yloop
  410 JSR position
  420 TYA:PHA
  430 LDX X2
  440 LDY #0
  450 .sprite_xloop
  460 LDA pass
  470 BNE two_byte_colour
  480 LDA color
  490 JMP no_colour_carry
  500 .two_byte_colour
  510 LDA (coll),Y
  520 INC coll
  530 BNE no_colour_carry
  540 INC colh
  550 .no_colour_carry
  560 STA (ylb),Y
  570 LDA ylb:CLC:ADC #8:STA ylb
  580 LDA yhb:ADC #0:STA yhb
  590 DEX:BNE sprite_xloop
  600 INC Y1
  610 PLA:TAY
  620 DEY:BNE sprite_yloop
  630 rts
  640 :
  650 .position 
  660 LDA #0:STA xhb
  670 LDA X1:ASL A:ROL xhb:ASL A
  680 ROL xhb:ASL A:ROL xhb:STA xlb
  690 LDA &7:CLC:ADC xhb:STA xhb
  700 LDA #0:STA ylb 
  710 LDA Y1:AND #&F8
  720 LSR A:LSR A:STA yhb
  730 LSR A:LSR A:ROR ylb:CLC:ADC yhb
  740 ADC xhb:STA yhb
  750 LDA Y1:AND #7:CLC:ADC ylb:ADC xlb
  760 STA ylb:LDA #0:ADC yhb:STA yhb
  770 rts
  780 :
  790 .calculator_icon
  800 EQUD &FEFFFF7F
  810 EQUD &01000080
  820 EQUD &F1FFFF8F
  830 EQUD &31FEFF8F
  840 EQUD &F1FFFF8F
  850 EQUD &01000080
  860 EQUD &71381C8E
  870 EQUD &71381C8E
  880 EQUD &01000080
  890 EQUD &71381C8E
  900 EQUD &71381C8E
  910 EQUD &01000080
  920 EQUD &71381C8E
  930 EQUD &71381C8E
  940 EQUD &01000080 
  950 EQUD &71381C8E
  960 EQUD &71381C8E
  970 EQUD &01000080
  980 EQUD &FEFFFF7F
  990 :
 1000 ]
 1010 NEXT code
 1020 CALL screen


 �   Listing III
 �   By Glenn Marshall
 �   (C) The Micro User
( :
2 � �<>&2100 � �
< :
F � 3
P � 19,7,0,0,0,0
Z � 19,0,7,0,0,0
d � 23,0,9,7,0,0,0,0,0,0
n � 23,0,4,38,0,0,0,0,0,0
x � 23,0,7,31,0,0,0,0,0,0
� :
� xlb=&50:xhb=&51
� ylb=&52:yhb=&53
� X1=&54:X2=&55
� Y1=&56:Y2=&57
� color=&58
�
 pass=&5B
� coll=&5C:colh=&5D
� :
� � code=0 � 2 � 2
�
 P%=&1900
� [OPT code
� :
 .screen
 LDA #255:STA color
" LDA #26:STA X1:LDA #80:STA Y1
"! LDA #4:STA X2:LDA #19:STA Y2
, LDA #0:STA pass
6 LDA #calculator_icon � 256
@
 STA coll
J LDA #calculator_icon � 256
T
 STA colh
^ JSR sprite
h RTS
r :
| .sprite
� LDY Y2
� .sprite_yloop
� JSR position
� TYA:PHA
� LDX X2
� LDY #0
� .sprite_xloop
�
 LDA pass
� BNE two_byte_colour
� LDA color
� JMP no_colour_carry
� .two_byte_colour
� LDA (coll),Y

 INC coll
 BNE no_colour_carry

 INC colh
& .no_colour_carry
0 STA (ylb),Y
: LDA ylb:CLC:ADC #8:STA ylb
D LDA yhb:ADC #0:STA yhb
N DEX:BNE sprite_xloop
X INC Y1
b PLA:TAY
l DEY:BNE sprite_yloop
v rts
� :
� .position 
� LDA #0:STA xhb
� LDA X1:ASL A:ROL xhb:ASL A
�" ROL xhb:ASL A:ROL xhb:STA xlb
� LDA &7:CLC:ADC xhb:STA xhb
� LDA #0:STA ylb 
� LDA Y1:� #&F8
� LSR A:LSR A:STA yhb
�$ LSR A:LSR A:ROR ylb:CLC:ADC yhb
� ADC xhb:STA yhb
�$ LDA Y1:� #7:CLC:ADC ylb:ADC xlb
�# STA ylb:LDA #0:ADC yhb:STA yhb
 rts
 :
 .calculator_icon
  EQUD &FEFFFF7F
* EQUD &01000080
4 EQUD &F1FFFF8F
> EQUD &31FEFF8F
H EQUD &F1FFFF8F
R EQUD &01000080
\ EQUD &71381C8E
f EQUD &71381C8E
p EQUD &01000080
z EQUD &71381C8E
� EQUD &71381C8E
� EQUD &01000080
� EQUD &71381C8E
� EQUD &71381C8E
� EQUD &01000080 
� EQUD &71381C8E
� EQUD &71381C8E
� EQUD &01000080
� EQUD &FEFFFF7F
� :
� ]
� � code
�
 � screen
�
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 13 20 e7 20 90 3c  3e 26 32 31 30 30 20 8c  |.2. . .<>&2100 .|
00000060  20 e0 0d 00 3c 06 20 3a  0d 00 46 08 20 eb 20 33  | ...<. :..F. . 3|
00000070  0d 00 50 13 20 ef 20 31  39 2c 37 2c 30 2c 30 2c  |..P. . 19,7,0,0,|
00000080  30 2c 30 0d 00 5a 13 20  ef 20 31 39 2c 30 2c 37  |0,0..Z. . 19,0,7|
00000090  2c 30 2c 30 2c 30 0d 00  64 1b 20 ef 20 32 33 2c  |,0,0,0..d. . 23,|
000000a0  30 2c 39 2c 37 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,9,7,0,0,0,0,0,|
000000b0  30 0d 00 6e 1c 20 ef 20  32 33 2c 30 2c 34 2c 33  |0..n. . 23,0,4,3|
000000c0  38 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 0d 00 78  |8,0,0,0,0,0,0..x|
000000d0  1c 20 ef 20 32 33 2c 30  2c 37 2c 33 31 2c 30 2c  |. . 23,0,7,31,0,|
000000e0  30 2c 30 2c 30 2c 30 2c  30 0d 00 82 06 20 3a 0d  |0,0,0,0,0.... :.|
000000f0  00 8c 14 20 78 6c 62 3d  26 35 30 3a 78 68 62 3d  |... xlb=&50:xhb=|
00000100  26 35 31 0d 00 96 14 20  79 6c 62 3d 26 35 32 3a  |&51.... ylb=&52:|
00000110  79 68 62 3d 26 35 33 0d  00 a0 12 20 58 31 3d 26  |yhb=&53.... X1=&|
00000120  35 34 3a 58 32 3d 26 35  35 0d 00 aa 12 20 59 31  |54:X2=&55.... Y1|
00000130  3d 26 35 36 3a 59 32 3d  26 35 37 0d 00 b4 0e 20  |=&56:Y2=&57.... |
00000140  63 6f 6c 6f 72 3d 26 35  38 0d 00 be 0d 20 70 61  |color=&58.... pa|
00000150  73 73 3d 26 35 42 0d 00  c8 16 20 63 6f 6c 6c 3d  |ss=&5B.... coll=|
00000160  26 35 43 3a 63 6f 6c 68  3d 26 35 44 0d 00 d2 06  |&5C:colh=&5D....|
00000170  20 3a 0d 00 dc 15 20 e3  20 63 6f 64 65 3d 30 20  | :.... . code=0 |
00000180  b8 20 32 20 88 20 32 0d  00 e6 0d 20 50 25 3d 26  |. 2 . 2.... P%=&|
00000190  31 39 30 30 0d 00 f0 0e  20 5b 4f 50 54 20 63 6f  |1900.... [OPT co|
000001a0  64 65 0d 00 fa 06 20 3a  0d 01 04 0c 20 2e 73 63  |de.... :.... .sc|
000001b0  72 65 65 6e 0d 01 0e 17  20 4c 44 41 20 23 32 35  |reen.... LDA #25|
000001c0  35 3a 53 54 41 20 63 6f  6c 6f 72 0d 01 18 22 20  |5:STA color..." |
000001d0  4c 44 41 20 23 32 36 3a  53 54 41 20 58 31 3a 4c  |LDA #26:STA X1:L|
000001e0  44 41 20 23 38 30 3a 53  54 41 20 59 31 0d 01 22  |DA #80:STA Y1.."|
000001f0  21 20 4c 44 41 20 23 34  3a 53 54 41 20 58 32 3a  |! LDA #4:STA X2:|
00000200  4c 44 41 20 23 31 39 3a  53 54 41 20 59 32 0d 01  |LDA #19:STA Y2..|
00000210  2c 14 20 4c 44 41 20 23  30 3a 53 54 41 20 70 61  |,. LDA #0:STA pa|
00000220  73 73 0d 01 36 1f 20 4c  44 41 20 23 63 61 6c 63  |ss..6. LDA #calc|
00000230  75 6c 61 74 6f 72 5f 69  63 6f 6e 20 83 20 32 35  |ulator_icon . 25|
00000240  36 0d 01 40 0d 20 53 54  41 20 63 6f 6c 6c 0d 01  |6..@. STA coll..|
00000250  4a 1f 20 4c 44 41 20 23  63 61 6c 63 75 6c 61 74  |J. LDA #calculat|
00000260  6f 72 5f 69 63 6f 6e 20  81 20 32 35 36 0d 01 54  |or_icon . 256..T|
00000270  0d 20 53 54 41 20 63 6f  6c 68 0d 01 5e 0f 20 4a  |. STA colh..^. J|
00000280  53 52 20 73 70 72 69 74  65 0d 01 68 08 20 52 54  |SR sprite..h. RT|
00000290  53 0d 01 72 06 20 3a 0d  01 7c 0c 20 2e 73 70 72  |S..r. :..|. .spr|
000002a0  69 74 65 0d 01 86 0b 20  4c 44 59 20 59 32 0d 01  |ite.... LDY Y2..|
000002b0  90 12 20 2e 73 70 72 69  74 65 5f 79 6c 6f 6f 70  |.. .sprite_yloop|
000002c0  0d 01 9a 11 20 4a 53 52  20 70 6f 73 69 74 69 6f  |.... JSR positio|
000002d0  6e 0d 01 a4 0c 20 54 59  41 3a 50 48 41 0d 01 ae  |n.... TYA:PHA...|
000002e0  0b 20 4c 44 58 20 58 32  0d 01 b8 0b 20 4c 44 59  |. LDX X2.... LDY|
000002f0  20 23 30 0d 01 c2 12 20  2e 73 70 72 69 74 65 5f  | #0.... .sprite_|
00000300  78 6c 6f 6f 70 0d 01 cc  0d 20 4c 44 41 20 70 61  |xloop.... LDA pa|
00000310  73 73 0d 01 d6 18 20 42  4e 45 20 74 77 6f 5f 62  |ss.... BNE two_b|
00000320  79 74 65 5f 63 6f 6c 6f  75 72 0d 01 e0 0e 20 4c  |yte_colour.... L|
00000330  44 41 20 63 6f 6c 6f 72  0d 01 ea 18 20 4a 4d 50  |DA color.... JMP|
00000340  20 6e 6f 5f 63 6f 6c 6f  75 72 5f 63 61 72 72 79  | no_colour_carry|
00000350  0d 01 f4 15 20 2e 74 77  6f 5f 62 79 74 65 5f 63  |.... .two_byte_c|
00000360  6f 6c 6f 75 72 0d 01 fe  11 20 4c 44 41 20 28 63  |olour.... LDA (c|
00000370  6f 6c 6c 29 2c 59 0d 02  08 0d 20 49 4e 43 20 63  |oll),Y.... INC c|
00000380  6f 6c 6c 0d 02 12 18 20  42 4e 45 20 6e 6f 5f 63  |oll.... BNE no_c|
00000390  6f 6c 6f 75 72 5f 63 61  72 72 79 0d 02 1c 0d 20  |olour_carry.... |
000003a0  49 4e 43 20 63 6f 6c 68  0d 02 26 15 20 2e 6e 6f  |INC colh..&. .no|
000003b0  5f 63 6f 6c 6f 75 72 5f  63 61 72 72 79 0d 02 30  |_colour_carry..0|
000003c0  10 20 53 54 41 20 28 79  6c 62 29 2c 59 0d 02 3a  |. STA (ylb),Y..:|
000003d0  1f 20 4c 44 41 20 79 6c  62 3a 43 4c 43 3a 41 44  |. LDA ylb:CLC:AD|
000003e0  43 20 23 38 3a 53 54 41  20 79 6c 62 0d 02 44 1b  |C #8:STA ylb..D.|
000003f0  20 4c 44 41 20 79 68 62  3a 41 44 43 20 23 30 3a  | LDA yhb:ADC #0:|
00000400  53 54 41 20 79 68 62 0d  02 4e 19 20 44 45 58 3a  |STA yhb..N. DEX:|
00000410  42 4e 45 20 73 70 72 69  74 65 5f 78 6c 6f 6f 70  |BNE sprite_xloop|
00000420  0d 02 58 0b 20 49 4e 43  20 59 31 0d 02 62 0c 20  |..X. INC Y1..b. |
00000430  50 4c 41 3a 54 41 59 0d  02 6c 19 20 44 45 59 3a  |PLA:TAY..l. DEY:|
00000440  42 4e 45 20 73 70 72 69  74 65 5f 79 6c 6f 6f 70  |BNE sprite_yloop|
00000450  0d 02 76 08 20 72 74 73  0d 02 80 06 20 3a 0d 02  |..v. rts.... :..|
00000460  8a 0f 20 2e 70 6f 73 69  74 69 6f 6e 20 0d 02 94  |.. .position ...|
00000470  13 20 4c 44 41 20 23 30  3a 53 54 41 20 78 68 62  |. LDA #0:STA xhb|
00000480  0d 02 9e 1f 20 4c 44 41  20 58 31 3a 41 53 4c 20  |.... LDA X1:ASL |
00000490  41 3a 52 4f 4c 20 78 68  62 3a 41 53 4c 20 41 0d  |A:ROL xhb:ASL A.|
000004a0  02 a8 22 20 52 4f 4c 20  78 68 62 3a 41 53 4c 20  |.." ROL xhb:ASL |
000004b0  41 3a 52 4f 4c 20 78 68  62 3a 53 54 41 20 78 6c  |A:ROL xhb:STA xl|
000004c0  62 0d 02 b2 1f 20 4c 44  41 20 26 37 3a 43 4c 43  |b.... LDA &7:CLC|
000004d0  3a 41 44 43 20 78 68 62  3a 53 54 41 20 78 68 62  |:ADC xhb:STA xhb|
000004e0  0d 02 bc 14 20 4c 44 41  20 23 30 3a 53 54 41 20  |.... LDA #0:STA |
000004f0  79 6c 62 20 0d 02 c6 12  20 4c 44 41 20 59 31 3a  |ylb .... LDA Y1:|
00000500  80 20 23 26 46 38 0d 02  d0 18 20 4c 53 52 20 41  |. #&F8.... LSR A|
00000510  3a 4c 53 52 20 41 3a 53  54 41 20 79 68 62 0d 02  |:LSR A:STA yhb..|
00000520  da 24 20 4c 53 52 20 41  3a 4c 53 52 20 41 3a 52  |.$ LSR A:LSR A:R|
00000530  4f 52 20 79 6c 62 3a 43  4c 43 3a 41 44 43 20 79  |OR ylb:CLC:ADC y|
00000540  68 62 0d 02 e4 14 20 41  44 43 20 78 68 62 3a 53  |hb.... ADC xhb:S|
00000550  54 41 20 79 68 62 0d 02  ee 24 20 4c 44 41 20 59  |TA yhb...$ LDA Y|
00000560  31 3a 80 20 23 37 3a 43  4c 43 3a 41 44 43 20 79  |1:. #7:CLC:ADC y|
00000570  6c 62 3a 41 44 43 20 78  6c 62 0d 02 f8 23 20 53  |lb:ADC xlb...# S|
00000580  54 41 20 79 6c 62 3a 4c  44 41 20 23 30 3a 41 44  |TA ylb:LDA #0:AD|
00000590  43 20 79 68 62 3a 53 54  41 20 79 68 62 0d 03 02  |C yhb:STA yhb...|
000005a0  08 20 72 74 73 0d 03 0c  06 20 3a 0d 03 16 15 20  |. rts.... :.... |
000005b0  2e 63 61 6c 63 75 6c 61  74 6f 72 5f 69 63 6f 6e  |.calculator_icon|
000005c0  0d 03 20 13 20 45 51 55  44 20 26 46 45 46 46 46  |.. . EQUD &FEFFF|
000005d0  46 37 46 0d 03 2a 13 20  45 51 55 44 20 26 30 31  |F7F..*. EQUD &01|
000005e0  30 30 30 30 38 30 0d 03  34 13 20 45 51 55 44 20  |000080..4. EQUD |
000005f0  26 46 31 46 46 46 46 38  46 0d 03 3e 13 20 45 51  |&F1FFFF8F..>. EQ|
00000600  55 44 20 26 33 31 46 45  46 46 38 46 0d 03 48 13  |UD &31FEFF8F..H.|
00000610  20 45 51 55 44 20 26 46  31 46 46 46 46 38 46 0d  | EQUD &F1FFFF8F.|
00000620  03 52 13 20 45 51 55 44  20 26 30 31 30 30 30 30  |.R. EQUD &010000|
00000630  38 30 0d 03 5c 13 20 45  51 55 44 20 26 37 31 33  |80..\. EQUD &713|
00000640  38 31 43 38 45 0d 03 66  13 20 45 51 55 44 20 26  |81C8E..f. EQUD &|
00000650  37 31 33 38 31 43 38 45  0d 03 70 13 20 45 51 55  |71381C8E..p. EQU|
00000660  44 20 26 30 31 30 30 30  30 38 30 0d 03 7a 13 20  |D &01000080..z. |
00000670  45 51 55 44 20 26 37 31  33 38 31 43 38 45 0d 03  |EQUD &71381C8E..|
00000680  84 13 20 45 51 55 44 20  26 37 31 33 38 31 43 38  |.. EQUD &71381C8|
00000690  45 0d 03 8e 13 20 45 51  55 44 20 26 30 31 30 30  |E.... EQUD &0100|
000006a0  30 30 38 30 0d 03 98 13  20 45 51 55 44 20 26 37  |0080.... EQUD &7|
000006b0  31 33 38 31 43 38 45 0d  03 a2 13 20 45 51 55 44  |1381C8E.... EQUD|
000006c0  20 26 37 31 33 38 31 43  38 45 0d 03 ac 14 20 45  | &71381C8E.... E|
000006d0  51 55 44 20 26 30 31 30  30 30 30 38 30 20 0d 03  |QUD &01000080 ..|
000006e0  b6 13 20 45 51 55 44 20  26 37 31 33 38 31 43 38  |.. EQUD &71381C8|
000006f0  45 0d 03 c0 13 20 45 51  55 44 20 26 37 31 33 38  |E.... EQUD &7138|
00000700  31 43 38 45 0d 03 ca 13  20 45 51 55 44 20 26 30  |1C8E.... EQUD &0|
00000710  31 30 30 30 30 38 30 0d  03 d4 13 20 45 51 55 44  |1000080.... EQUD|
00000720  20 26 46 45 46 46 46 46  37 46 0d 03 de 06 20 3a  | &FEFFFF7F.... :|
00000730  0d 03 e8 06 20 5d 0d 03  f2 0b 20 ed 20 63 6f 64  |.... ].... . cod|
00000740  65 0d 03 fc 0d 20 d6 20  73 63 72 65 65 6e 0d ff  |e.... . screen..|
00000750

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .