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

L-1-VII

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-VII
Read OK: ✔
File size: 0D25 bytes
Load address: FFF00043
Exec address: 6D39C186
Duplicates

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

File contents
   10 REM   Listing VII
   20 REM   By Glenn Marshall
   30 REM   (C) The Micro User
   40 :
   50 IF PAGE<>&2100 THEN END
   60 :
   70 xlb=&50:xhb=&51
   80 ylb=&52:yhb=&53
   90 X1=&54:X2=&55
  100 Y1=&56:Y2=&57
  110 color=&58
  120 stl=&59:sth=&5A
  130 pass=&5B
  140 coll=&5C:colh=&5D
  150 memory=&5E
  160 pwl=&5F:pwh=&60
  170 windows=&61
  180 :
  190 FOR code=0 TO 2 STEP 2
  200 P%=&1900
  210 [OPT code 
  220 :
  230 .sprite_save 
  240 LDA pass:CMP #2:BCC saving
  250 JSR sprite
  260 rts
  270 .saving
  280 TYA:PHA 
  290 INC windows
  300 LDA pass:PHA
  310 LDA #1:STA memory 
  320 LDA stl:STA pwl
  330 LDA sth:STA pwh
  340 JSR sprite 
  350 LDA memory:BEQ not_enough_memory 
  360 LDY #0 
  370 LDA X1:STA (stl),Y:INY 
  380 LDA Y1:STA (stl),Y:INY 
  390 LDA X2:STA (stl),Y:INY 
  400 LDA Y2:STA (stl),Y:INY 
  410 LDA pwl:STA (stl),Y:INY
  420 LDA pwh:STA (stl),Y
  430 LDA stl:CLC:ADC #6:STA stl
  440 LDA sth:ADC #0:STA sth
  450 PLA:STA pass
  460 PLA:TAY 
  470 rts 
  480 :
  490 .not_enough_memory 
  500 LDA pwl:PHA:STA stl
  510 LDA pwh:PHA:STA sth
  520 DEC windows
  530 LDA #128:STA pass:JSR sprite 
  540 LDA #7:JSR &FFEE 
  550 PLA:STA sth:PLA:STA stl
  560 PLA:STA pass
  570 PLA:TAY 
  580 rts 
  590 :
  600 .sprite_restore 
  610 LDA X1:PHA:LDA Y1:PHA
  620 LDA X2:PHA:LDA Y2:PHA
  630 LDA windows
  640 BEQ sprite_restore_exit
  650 DEC windows
  660 TYA:PHA 
  670 LDA stl:SEC:SBC #6:STA stl
  680 LDA sth:SBC #0:STA sth
  690 LDY #0 
  700 LDA (stl),Y:STA X1:INY 
  710 LDA (stl),Y:STA Y1:INY 
  720 LDA (stl),Y:STA X2:INY 
  730 LDA (stl),Y:STA Y2:INY 
  740 LDA (stl),Y:PHA:STA pwl:INY 
  750 LDA (stl),Y:STA sth:STA pwh 
  760 PLA:STA stl 
  770 LDA #128:STA pass:JSR sprite  
  780 LDA pwl:STA stl 
  790 LDA pwh:STA sth 
  800 PLA:TAY 
  810 .sprite_restore_exit
  820 PLA:STA Y2:PLA:STA X2
  830 PLA:STA Y1:PLA:STA X1
  840 rts 
  850 :
  860 .sprite 
  870 TYA:PHA:TXA:PHA 
  880 LDA Y1:PHA 
  890 LDY Y2 
  900 :
  910 .sprite_yloop 
  920 JSR position 
  930 TYA:PHA 
  940 LDX X2 
  950 LDY #0 
  960 :
  970 .sprite_xloop 
  980 LDA pass:BMI restore 
  990 CMP #2:BEQ draw_pointer 
 1000 BCS draw_fixed 
 1010 CMP #1:BEQ draw_save_fixed 
 1020 :
 1030 .draw_save_pointer 
 1040 LDA (ylb),Y:STA (stl),Y 
 1050 LDA (coll),Y:STA (ylb),Y
 1060 JMP inc_colour_pointer 
 1070 :
 1080 .draw_save_fixed 
 1090 LDA (ylb),Y:STA (stl),Y 
 1100 LDA color:STA (ylb),Y
 1110 JMP inc_store_mem 
 1120 :
 1130 .draw_pointer 
 1140 LDA (coll),Y:STA (ylb),Y 
 1150 INC coll:BNE no_colour_carry1
 1160 INC colh:.no_colour_carry1
 1170 JMP no_store_mem_carry 
 1180 :
 1190 .draw_fixed 
 1200 LDA color:STA (ylb),Y 
 1210 JMP no_store_mem_carry 
 1220 :
 1230 .restore 
 1240 LDA (stl),Y:STA (ylb),Y 
 1250 JMP inc_store_mem  
 1260 :
 1270 .inc_colour_pointer 
 1280 INC coll:BNE inc_store_mem
 1290 INC colh
 1300 :
 1310 .inc_store_mem 
 1320 INC stl:BNE no_store_mem_carry
 1330 INC sth
 1340 LDA sth:CMP &7
 1350 BEQ past_memory_bound
 1360 .no_store_mem_carry
 1370 :
 1380  
 1390 LDA ylb:CLC:ADC #8:STA ylb
 1400 LDA yhb:ADC #0:STA yhb
 1410 DEX:BNE sprite_xloop 
 1420 INC Y1:PLA:TAY
 1430 DEY:BNE sprite_yloop
 1440 JMP sprite_exit  
 1450 
 1460 .past_memory_bound 
 1470 LDA #0:STA memory 
 1480 PLA 
 1490 :
 1500 .sprite_exit 
 1510 PLA:STA Y1 
 1520 PLA:TAX:PLA:TAY 
 1530 rts 
 1540 :
 1550 .position 
 1560 LDA #0:STA xhb 
 1570 LDA X1:ASL A:ROL xhb:ASL A
 1580 ROL xhb:ASL A:ROL xhb:STA xlb
 1590 LDA &7:CLC:ADC xhb:STA xhb 
 1600 LDA #0:STA ylb 
 1610 LDA Y1:AND #&F8
 1620 LSR A:LSR A:STA yhb
 1630 LSR A:LSR A:ROR ylb:CLC:ADC yhb
 1640 ADC xhb:STA yhb
 1650 LDA Y1:AND #7:CLC:ADC ylb:ADC xlb
 1660 STA ylb:LDA #0:ADC yhb:STA yhb
 1670 rts 
 1680 :
 1690 ] 
 1700 NEXT code 


 �   Listing VII
 �   By Glenn Marshall
 �   (C) The Micro User
( :
2 � �<>&2100 � �
< :
F xlb=&50:xhb=&51
P ylb=&52:yhb=&53
Z X1=&54:X2=&55
d Y1=&56:Y2=&57
n color=&58
x stl=&59:sth=&5A
�
 pass=&5B
� coll=&5C:colh=&5D
� memory=&5E
� pwl=&5F:pwh=&60
� windows=&61
� :
� � code=0 � 2 � 2
�
 P%=&1900
� [OPT code 
� :
� .sprite_save 
� LDA pass:CMP #2:BCC saving
� JSR sprite
 rts
 .saving

 TYA:PHA 
" INC windows
, LDA pass:PHA
6 LDA #1:STA memory 
@ LDA stl:STA pwl
J LDA sth:STA pwh
T JSR sprite 
^& LDA memory:BEQ not_enough_memory 
h LDY #0 
r LDA X1:STA (stl),Y:INY 
| LDA Y1:STA (stl),Y:INY 
� LDA X2:STA (stl),Y:INY 
� LDA Y2:STA (stl),Y:INY 
� LDA pwl:STA (stl),Y:INY
� LDA pwh:STA (stl),Y
� LDA stl:CLC:ADC #6:STA stl
� LDA sth:ADC #0:STA sth
� PLA:STA pass
�
 PLA:TAY 
�	 rts 
� :
� .not_enough_memory 
� LDA pwl:PHA:STA stl
� LDA pwh:PHA:STA sth
 DEC windows
" LDA #128:STA pass:JSR sprite 
 LDA #7:JSR &FFEE 
& PLA:STA sth:PLA:STA stl
0 PLA:STA pass
:
 PLA:TAY 
D	 rts 
N :
X .sprite_restore 
b LDA X1:PHA:LDA Y1:PHA
l LDA X2:PHA:LDA Y2:PHA
v LDA windows
� BEQ sprite_restore_exit
� DEC windows
�
 TYA:PHA 
� LDA stl:SEC:SBC #6:STA stl
� LDA sth:SBC #0:STA sth
� LDY #0 
� LDA (stl),Y:STA X1:INY 
� LDA (stl),Y:STA Y1:INY 
� LDA (stl),Y:STA X2:INY 
� LDA (stl),Y:STA Y2:INY 
�! LDA (stl),Y:PHA:STA pwl:INY 
�! LDA (stl),Y:STA sth:STA pwh 
� PLA:STA stl 
# LDA #128:STA pass:JSR sprite  
 LDA pwl:STA stl 
 LDA pwh:STA sth 
 
 PLA:TAY 
* .sprite_restore_exit
4 PLA:STA Y2:PLA:STA X2
> PLA:STA Y1:PLA:STA X1
H	 rts 
R :
\
 .sprite 
f TYA:PHA:TXA:PHA 
p LDA Y1:PHA 
z LDY Y2 
� :
� .sprite_yloop 
� JSR position 
�
 TYA:PHA 
� LDX X2 
� LDY #0 
� :
� .sprite_xloop 
� LDA pass:BMI restore 
� CMP #2:BEQ draw_pointer 
� BCS draw_fixed 
�  CMP #1:BEQ draw_save_fixed 
� :
 .draw_save_pointer 
 LDA (ylb),Y:STA (stl),Y 
 LDA (coll),Y:STA (ylb),Y
$ JMP inc_colour_pointer 
. :
8 .draw_save_fixed 
B LDA (ylb),Y:STA (stl),Y 
L LDA color:STA (ylb),Y
V JMP inc_store_mem 
` :
j .draw_pointer 
t LDA (coll),Y:STA (ylb),Y 
~" INC coll:BNE no_colour_carry1
� INC colh:.no_colour_carry1
� JMP no_store_mem_carry 
� :
� .draw_fixed 
� LDA color:STA (ylb),Y 
� JMP no_store_mem_carry 
� :
� .restore 
� LDA (stl),Y:STA (ylb),Y 
� JMP inc_store_mem  
� :
� .inc_colour_pointer 
 INC coll:BNE inc_store_mem


 INC colh
 :
 .inc_store_mem 
(# INC stl:BNE no_store_mem_carry
2 INC sth
< LDA sth:CMP &7
F BEQ past_memory_bound
P .no_store_mem_carry
Z :
d  
n LDA ylb:CLC:ADC #8:STA ylb
x LDA yhb:ADC #0:STA yhb
� DEX:BNE sprite_xloop 
� INC Y1:PLA:TAY
� DEY:BNE sprite_yloop
� JMP sprite_exit  
� 
� .past_memory_bound 
� LDA #0:STA memory 
�	 PLA 
� :
� .sprite_exit 
� PLA:STA Y1 
� PLA:TAX:PLA:TAY 
�	 rts 
 :
 .position 
 LDA #0:STA xhb 
" LDA X1:ASL A:ROL xhb:ASL A
," ROL xhb:ASL A:ROL xhb:STA xlb
6  LDA &7:CLC:ADC xhb:STA xhb 
@ LDA #0:STA ylb 
J LDA Y1:� #&F8
T LSR A:LSR A:STA yhb
^$ LSR A:LSR A:ROR ylb:CLC:ADC yhb
h ADC xhb:STA yhb
r$ LDA Y1:� #7:CLC:ADC ylb:ADC xlb
|# STA ylb:LDA #0:ADC yhb:STA yhb
�	 rts 
� :
� ] 
� � code 
�
00000000  0d 00 0a 14 20 f4 20 20  20 4c 69 73 74 69 6e 67  |.... .   Listing|
00000010  20 56 49 49 0d 00 14 1a  20 f4 20 20 20 42 79 20  | VII.... .   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 14 20 78 6c 62  | ...<. :..F. xlb|
00000070  3d 26 35 30 3a 78 68 62  3d 26 35 31 0d 00 50 14  |=&50:xhb=&51..P.|
00000080  20 79 6c 62 3d 26 35 32  3a 79 68 62 3d 26 35 33  | ylb=&52:yhb=&53|
00000090  0d 00 5a 12 20 58 31 3d  26 35 34 3a 58 32 3d 26  |..Z. X1=&54:X2=&|
000000a0  35 35 0d 00 64 12 20 59  31 3d 26 35 36 3a 59 32  |55..d. Y1=&56:Y2|
000000b0  3d 26 35 37 0d 00 6e 0e  20 63 6f 6c 6f 72 3d 26  |=&57..n. color=&|
000000c0  35 38 0d 00 78 14 20 73  74 6c 3d 26 35 39 3a 73  |58..x. stl=&59:s|
000000d0  74 68 3d 26 35 41 0d 00  82 0d 20 70 61 73 73 3d  |th=&5A.... pass=|
000000e0  26 35 42 0d 00 8c 16 20  63 6f 6c 6c 3d 26 35 43  |&5B.... coll=&5C|
000000f0  3a 63 6f 6c 68 3d 26 35  44 0d 00 96 0f 20 6d 65  |:colh=&5D.... me|
00000100  6d 6f 72 79 3d 26 35 45  0d 00 a0 14 20 70 77 6c  |mory=&5E.... pwl|
00000110  3d 26 35 46 3a 70 77 68  3d 26 36 30 0d 00 aa 10  |=&5F:pwh=&60....|
00000120  20 77 69 6e 64 6f 77 73  3d 26 36 31 0d 00 b4 06  | windows=&61....|
00000130  20 3a 0d 00 be 15 20 e3  20 63 6f 64 65 3d 30 20  | :.... . code=0 |
00000140  b8 20 32 20 88 20 32 0d  00 c8 0d 20 50 25 3d 26  |. 2 . 2.... P%=&|
00000150  31 39 30 30 0d 00 d2 0f  20 5b 4f 50 54 20 63 6f  |1900.... [OPT co|
00000160  64 65 20 0d 00 dc 06 20  3a 0d 00 e6 12 20 2e 73  |de .... :.... .s|
00000170  70 72 69 74 65 5f 73 61  76 65 20 0d 00 f0 1f 20  |prite_save .... |
00000180  4c 44 41 20 70 61 73 73  3a 43 4d 50 20 23 32 3a  |LDA pass:CMP #2:|
00000190  42 43 43 20 73 61 76 69  6e 67 0d 00 fa 0f 20 4a  |BCC saving.... J|
000001a0  53 52 20 73 70 72 69 74  65 0d 01 04 08 20 72 74  |SR sprite.... rt|
000001b0  73 0d 01 0e 0c 20 2e 73  61 76 69 6e 67 0d 01 18  |s.... .saving...|
000001c0  0d 20 54 59 41 3a 50 48  41 20 0d 01 22 10 20 49  |. TYA:PHA ..". I|
000001d0  4e 43 20 77 69 6e 64 6f  77 73 0d 01 2c 11 20 4c  |NC windows..,. L|
000001e0  44 41 20 70 61 73 73 3a  50 48 41 0d 01 36 17 20  |DA pass:PHA..6. |
000001f0  4c 44 41 20 23 31 3a 53  54 41 20 6d 65 6d 6f 72  |LDA #1:STA memor|
00000200  79 20 0d 01 40 14 20 4c  44 41 20 73 74 6c 3a 53  |y ..@. LDA stl:S|
00000210  54 41 20 70 77 6c 0d 01  4a 14 20 4c 44 41 20 73  |TA pwl..J. LDA s|
00000220  74 68 3a 53 54 41 20 70  77 68 0d 01 54 10 20 4a  |th:STA pwh..T. J|
00000230  53 52 20 73 70 72 69 74  65 20 0d 01 5e 26 20 4c  |SR sprite ..^& L|
00000240  44 41 20 6d 65 6d 6f 72  79 3a 42 45 51 20 6e 6f  |DA memory:BEQ no|
00000250  74 5f 65 6e 6f 75 67 68  5f 6d 65 6d 6f 72 79 20  |t_enough_memory |
00000260  0d 01 68 0c 20 4c 44 59  20 23 30 20 0d 01 72 1c  |..h. LDY #0 ..r.|
00000270  20 4c 44 41 20 58 31 3a  53 54 41 20 28 73 74 6c  | LDA X1:STA (stl|
00000280  29 2c 59 3a 49 4e 59 20  0d 01 7c 1c 20 4c 44 41  |),Y:INY ..|. LDA|
00000290  20 59 31 3a 53 54 41 20  28 73 74 6c 29 2c 59 3a  | Y1:STA (stl),Y:|
000002a0  49 4e 59 20 0d 01 86 1c  20 4c 44 41 20 58 32 3a  |INY .... LDA X2:|
000002b0  53 54 41 20 28 73 74 6c  29 2c 59 3a 49 4e 59 20  |STA (stl),Y:INY |
000002c0  0d 01 90 1c 20 4c 44 41  20 59 32 3a 53 54 41 20  |.... LDA Y2:STA |
000002d0  28 73 74 6c 29 2c 59 3a  49 4e 59 20 0d 01 9a 1c  |(stl),Y:INY ....|
000002e0  20 4c 44 41 20 70 77 6c  3a 53 54 41 20 28 73 74  | LDA pwl:STA (st|
000002f0  6c 29 2c 59 3a 49 4e 59  0d 01 a4 18 20 4c 44 41  |l),Y:INY.... LDA|
00000300  20 70 77 68 3a 53 54 41  20 28 73 74 6c 29 2c 59  | pwh:STA (stl),Y|
00000310  0d 01 ae 1f 20 4c 44 41  20 73 74 6c 3a 43 4c 43  |.... LDA stl:CLC|
00000320  3a 41 44 43 20 23 36 3a  53 54 41 20 73 74 6c 0d  |:ADC #6:STA stl.|
00000330  01 b8 1b 20 4c 44 41 20  73 74 68 3a 41 44 43 20  |... LDA sth:ADC |
00000340  23 30 3a 53 54 41 20 73  74 68 0d 01 c2 11 20 50  |#0:STA sth.... P|
00000350  4c 41 3a 53 54 41 20 70  61 73 73 0d 01 cc 0d 20  |LA:STA pass.... |
00000360  50 4c 41 3a 54 41 59 20  0d 01 d6 09 20 72 74 73  |PLA:TAY .... rts|
00000370  20 0d 01 e0 06 20 3a 0d  01 ea 18 20 2e 6e 6f 74  | .... :.... .not|
00000380  5f 65 6e 6f 75 67 68 5f  6d 65 6d 6f 72 79 20 0d  |_enough_memory .|
00000390  01 f4 18 20 4c 44 41 20  70 77 6c 3a 50 48 41 3a  |... LDA pwl:PHA:|
000003a0  53 54 41 20 73 74 6c 0d  01 fe 18 20 4c 44 41 20  |STA stl.... LDA |
000003b0  70 77 68 3a 50 48 41 3a  53 54 41 20 73 74 68 0d  |pwh:PHA:STA sth.|
000003c0  02 08 10 20 44 45 43 20  77 69 6e 64 6f 77 73 0d  |... DEC windows.|
000003d0  02 12 22 20 4c 44 41 20  23 31 32 38 3a 53 54 41  |.." LDA #128:STA|
000003e0  20 70 61 73 73 3a 4a 53  52 20 73 70 72 69 74 65  | pass:JSR sprite|
000003f0  20 0d 02 1c 16 20 4c 44  41 20 23 37 3a 4a 53 52  | .... LDA #7:JSR|
00000400  20 26 46 46 45 45 20 0d  02 26 1c 20 50 4c 41 3a  | &FFEE ..&. PLA:|
00000410  53 54 41 20 73 74 68 3a  50 4c 41 3a 53 54 41 20  |STA sth:PLA:STA |
00000420  73 74 6c 0d 02 30 11 20  50 4c 41 3a 53 54 41 20  |stl..0. PLA:STA |
00000430  70 61 73 73 0d 02 3a 0d  20 50 4c 41 3a 54 41 59  |pass..:. PLA:TAY|
00000440  20 0d 02 44 09 20 72 74  73 20 0d 02 4e 06 20 3a  | ..D. rts ..N. :|
00000450  0d 02 58 15 20 2e 73 70  72 69 74 65 5f 72 65 73  |..X. .sprite_res|
00000460  74 6f 72 65 20 0d 02 62  1a 20 4c 44 41 20 58 31  |tore ..b. LDA X1|
00000470  3a 50 48 41 3a 4c 44 41  20 59 31 3a 50 48 41 0d  |:PHA:LDA Y1:PHA.|
00000480  02 6c 1a 20 4c 44 41 20  58 32 3a 50 48 41 3a 4c  |.l. LDA X2:PHA:L|
00000490  44 41 20 59 32 3a 50 48  41 0d 02 76 10 20 4c 44  |DA Y2:PHA..v. LD|
000004a0  41 20 77 69 6e 64 6f 77  73 0d 02 80 1c 20 42 45  |A windows.... BE|
000004b0  51 20 73 70 72 69 74 65  5f 72 65 73 74 6f 72 65  |Q sprite_restore|
000004c0  5f 65 78 69 74 0d 02 8a  10 20 44 45 43 20 77 69  |_exit.... DEC wi|
000004d0  6e 64 6f 77 73 0d 02 94  0d 20 54 59 41 3a 50 48  |ndows.... TYA:PH|
000004e0  41 20 0d 02 9e 1f 20 4c  44 41 20 73 74 6c 3a 53  |A .... LDA stl:S|
000004f0  45 43 3a 53 42 43 20 23  36 3a 53 54 41 20 73 74  |EC:SBC #6:STA st|
00000500  6c 0d 02 a8 1b 20 4c 44  41 20 73 74 68 3a 53 42  |l.... LDA sth:SB|
00000510  43 20 23 30 3a 53 54 41  20 73 74 68 0d 02 b2 0c  |C #0:STA sth....|
00000520  20 4c 44 59 20 23 30 20  0d 02 bc 1c 20 4c 44 41  | LDY #0 .... LDA|
00000530  20 28 73 74 6c 29 2c 59  3a 53 54 41 20 58 31 3a  | (stl),Y:STA X1:|
00000540  49 4e 59 20 0d 02 c6 1c  20 4c 44 41 20 28 73 74  |INY .... LDA (st|
00000550  6c 29 2c 59 3a 53 54 41  20 59 31 3a 49 4e 59 20  |l),Y:STA Y1:INY |
00000560  0d 02 d0 1c 20 4c 44 41  20 28 73 74 6c 29 2c 59  |.... LDA (stl),Y|
00000570  3a 53 54 41 20 58 32 3a  49 4e 59 20 0d 02 da 1c  |:STA X2:INY ....|
00000580  20 4c 44 41 20 28 73 74  6c 29 2c 59 3a 53 54 41  | LDA (stl),Y:STA|
00000590  20 59 32 3a 49 4e 59 20  0d 02 e4 21 20 4c 44 41  | Y2:INY ...! LDA|
000005a0  20 28 73 74 6c 29 2c 59  3a 50 48 41 3a 53 54 41  | (stl),Y:PHA:STA|
000005b0  20 70 77 6c 3a 49 4e 59  20 0d 02 ee 21 20 4c 44  | pwl:INY ...! LD|
000005c0  41 20 28 73 74 6c 29 2c  59 3a 53 54 41 20 73 74  |A (stl),Y:STA st|
000005d0  68 3a 53 54 41 20 70 77  68 20 0d 02 f8 11 20 50  |h:STA pwh .... P|
000005e0  4c 41 3a 53 54 41 20 73  74 6c 20 0d 03 02 23 20  |LA:STA stl ...# |
000005f0  4c 44 41 20 23 31 32 38  3a 53 54 41 20 70 61 73  |LDA #128:STA pas|
00000600  73 3a 4a 53 52 20 73 70  72 69 74 65 20 20 0d 03  |s:JSR sprite  ..|
00000610  0c 15 20 4c 44 41 20 70  77 6c 3a 53 54 41 20 73  |.. LDA pwl:STA s|
00000620  74 6c 20 0d 03 16 15 20  4c 44 41 20 70 77 68 3a  |tl .... LDA pwh:|
00000630  53 54 41 20 73 74 68 20  0d 03 20 0d 20 50 4c 41  |STA sth .. . PLA|
00000640  3a 54 41 59 20 0d 03 2a  19 20 2e 73 70 72 69 74  |:TAY ..*. .sprit|
00000650  65 5f 72 65 73 74 6f 72  65 5f 65 78 69 74 0d 03  |e_restore_exit..|
00000660  34 1a 20 50 4c 41 3a 53  54 41 20 59 32 3a 50 4c  |4. PLA:STA Y2:PL|
00000670  41 3a 53 54 41 20 58 32  0d 03 3e 1a 20 50 4c 41  |A:STA X2..>. PLA|
00000680  3a 53 54 41 20 59 31 3a  50 4c 41 3a 53 54 41 20  |:STA Y1:PLA:STA |
00000690  58 31 0d 03 48 09 20 72  74 73 20 0d 03 52 06 20  |X1..H. rts ..R. |
000006a0  3a 0d 03 5c 0d 20 2e 73  70 72 69 74 65 20 0d 03  |:..\. .sprite ..|
000006b0  66 15 20 54 59 41 3a 50  48 41 3a 54 58 41 3a 50  |f. TYA:PHA:TXA:P|
000006c0  48 41 20 0d 03 70 10 20  4c 44 41 20 59 31 3a 50  |HA ..p. LDA Y1:P|
000006d0  48 41 20 0d 03 7a 0c 20  4c 44 59 20 59 32 20 0d  |HA ..z. LDY Y2 .|
000006e0  03 84 06 20 3a 0d 03 8e  13 20 2e 73 70 72 69 74  |... :.... .sprit|
000006f0  65 5f 79 6c 6f 6f 70 20  0d 03 98 12 20 4a 53 52  |e_yloop .... JSR|
00000700  20 70 6f 73 69 74 69 6f  6e 20 0d 03 a2 0d 20 54  | position .... T|
00000710  59 41 3a 50 48 41 20 0d  03 ac 0c 20 4c 44 58 20  |YA:PHA .... LDX |
00000720  58 32 20 0d 03 b6 0c 20  4c 44 59 20 23 30 20 0d  |X2 .... LDY #0 .|
00000730  03 c0 06 20 3a 0d 03 ca  13 20 2e 73 70 72 69 74  |... :.... .sprit|
00000740  65 5f 78 6c 6f 6f 70 20  0d 03 d4 1a 20 4c 44 41  |e_xloop .... LDA|
00000750  20 70 61 73 73 3a 42 4d  49 20 72 65 73 74 6f 72  | pass:BMI restor|
00000760  65 20 0d 03 de 1d 20 43  4d 50 20 23 32 3a 42 45  |e .... CMP #2:BE|
00000770  51 20 64 72 61 77 5f 70  6f 69 6e 74 65 72 20 0d  |Q draw_pointer .|
00000780  03 e8 14 20 42 43 53 20  64 72 61 77 5f 66 69 78  |... BCS draw_fix|
00000790  65 64 20 0d 03 f2 20 20  43 4d 50 20 23 31 3a 42  |ed ...  CMP #1:B|
000007a0  45 51 20 64 72 61 77 5f  73 61 76 65 5f 66 69 78  |EQ draw_save_fix|
000007b0  65 64 20 0d 03 fc 06 20  3a 0d 04 06 18 20 2e 64  |ed .... :.... .d|
000007c0  72 61 77 5f 73 61 76 65  5f 70 6f 69 6e 74 65 72  |raw_save_pointer|
000007d0  20 0d 04 10 1d 20 4c 44  41 20 28 79 6c 62 29 2c  | .... LDA (ylb),|
000007e0  59 3a 53 54 41 20 28 73  74 6c 29 2c 59 20 0d 04  |Y:STA (stl),Y ..|
000007f0  1a 1d 20 4c 44 41 20 28  63 6f 6c 6c 29 2c 59 3a  |.. LDA (coll),Y:|
00000800  53 54 41 20 28 79 6c 62  29 2c 59 0d 04 24 1c 20  |STA (ylb),Y..$. |
00000810  4a 4d 50 20 69 6e 63 5f  63 6f 6c 6f 75 72 5f 70  |JMP inc_colour_p|
00000820  6f 69 6e 74 65 72 20 0d  04 2e 06 20 3a 0d 04 38  |ointer .... :..8|
00000830  16 20 2e 64 72 61 77 5f  73 61 76 65 5f 66 69 78  |. .draw_save_fix|
00000840  65 64 20 0d 04 42 1d 20  4c 44 41 20 28 79 6c 62  |ed ..B. LDA (ylb|
00000850  29 2c 59 3a 53 54 41 20  28 73 74 6c 29 2c 59 20  |),Y:STA (stl),Y |
00000860  0d 04 4c 1a 20 4c 44 41  20 63 6f 6c 6f 72 3a 53  |..L. LDA color:S|
00000870  54 41 20 28 79 6c 62 29  2c 59 0d 04 56 17 20 4a  |TA (ylb),Y..V. J|
00000880  4d 50 20 69 6e 63 5f 73  74 6f 72 65 5f 6d 65 6d  |MP inc_store_mem|
00000890  20 0d 04 60 06 20 3a 0d  04 6a 13 20 2e 64 72 61  | ..`. :..j. .dra|
000008a0  77 5f 70 6f 69 6e 74 65  72 20 0d 04 74 1e 20 4c  |w_pointer ..t. L|
000008b0  44 41 20 28 63 6f 6c 6c  29 2c 59 3a 53 54 41 20  |DA (coll),Y:STA |
000008c0  28 79 6c 62 29 2c 59 20  0d 04 7e 22 20 49 4e 43  |(ylb),Y ..~" INC|
000008d0  20 63 6f 6c 6c 3a 42 4e  45 20 6e 6f 5f 63 6f 6c  | coll:BNE no_col|
000008e0  6f 75 72 5f 63 61 72 72  79 31 0d 04 88 1f 20 49  |our_carry1.... I|
000008f0  4e 43 20 63 6f 6c 68 3a  2e 6e 6f 5f 63 6f 6c 6f  |NC colh:.no_colo|
00000900  75 72 5f 63 61 72 72 79  31 0d 04 92 1c 20 4a 4d  |ur_carry1.... JM|
00000910  50 20 6e 6f 5f 73 74 6f  72 65 5f 6d 65 6d 5f 63  |P no_store_mem_c|
00000920  61 72 72 79 20 0d 04 9c  06 20 3a 0d 04 a6 11 20  |arry .... :.... |
00000930  2e 64 72 61 77 5f 66 69  78 65 64 20 0d 04 b0 1b  |.draw_fixed ....|
00000940  20 4c 44 41 20 63 6f 6c  6f 72 3a 53 54 41 20 28  | LDA color:STA (|
00000950  79 6c 62 29 2c 59 20 0d  04 ba 1c 20 4a 4d 50 20  |ylb),Y .... JMP |
00000960  6e 6f 5f 73 74 6f 72 65  5f 6d 65 6d 5f 63 61 72  |no_store_mem_car|
00000970  72 79 20 0d 04 c4 06 20  3a 0d 04 ce 0e 20 2e 72  |ry .... :.... .r|
00000980  65 73 74 6f 72 65 20 0d  04 d8 1d 20 4c 44 41 20  |estore .... LDA |
00000990  28 73 74 6c 29 2c 59 3a  53 54 41 20 28 79 6c 62  |(stl),Y:STA (ylb|
000009a0  29 2c 59 20 0d 04 e2 18  20 4a 4d 50 20 69 6e 63  |),Y .... JMP inc|
000009b0  5f 73 74 6f 72 65 5f 6d  65 6d 20 20 0d 04 ec 06  |_store_mem  ....|
000009c0  20 3a 0d 04 f6 19 20 2e  69 6e 63 5f 63 6f 6c 6f  | :.... .inc_colo|
000009d0  75 72 5f 70 6f 69 6e 74  65 72 20 0d 05 00 1f 20  |ur_pointer .... |
000009e0  49 4e 43 20 63 6f 6c 6c  3a 42 4e 45 20 69 6e 63  |INC coll:BNE inc|
000009f0  5f 73 74 6f 72 65 5f 6d  65 6d 0d 05 0a 0d 20 49  |_store_mem.... I|
00000a00  4e 43 20 63 6f 6c 68 0d  05 14 06 20 3a 0d 05 1e  |NC colh.... :...|
00000a10  14 20 2e 69 6e 63 5f 73  74 6f 72 65 5f 6d 65 6d  |. .inc_store_mem|
00000a20  20 0d 05 28 23 20 49 4e  43 20 73 74 6c 3a 42 4e  | ..(# INC stl:BN|
00000a30  45 20 6e 6f 5f 73 74 6f  72 65 5f 6d 65 6d 5f 63  |E no_store_mem_c|
00000a40  61 72 72 79 0d 05 32 0c  20 49 4e 43 20 73 74 68  |arry..2. INC sth|
00000a50  0d 05 3c 13 20 4c 44 41  20 73 74 68 3a 43 4d 50  |..<. LDA sth:CMP|
00000a60  20 26 37 0d 05 46 1a 20  42 45 51 20 70 61 73 74  | &7..F. BEQ past|
00000a70  5f 6d 65 6d 6f 72 79 5f  62 6f 75 6e 64 0d 05 50  |_memory_bound..P|
00000a80  18 20 2e 6e 6f 5f 73 74  6f 72 65 5f 6d 65 6d 5f  |. .no_store_mem_|
00000a90  63 61 72 72 79 0d 05 5a  06 20 3a 0d 05 64 06 20  |carry..Z. :..d. |
00000aa0  20 0d 05 6e 1f 20 4c 44  41 20 79 6c 62 3a 43 4c  | ..n. LDA ylb:CL|
00000ab0  43 3a 41 44 43 20 23 38  3a 53 54 41 20 79 6c 62  |C:ADC #8:STA ylb|
00000ac0  0d 05 78 1b 20 4c 44 41  20 79 68 62 3a 41 44 43  |..x. LDA yhb:ADC|
00000ad0  20 23 30 3a 53 54 41 20  79 68 62 0d 05 82 1a 20  | #0:STA yhb.... |
00000ae0  44 45 58 3a 42 4e 45 20  73 70 72 69 74 65 5f 78  |DEX:BNE sprite_x|
00000af0  6c 6f 6f 70 20 0d 05 8c  13 20 49 4e 43 20 59 31  |loop .... INC Y1|
00000b00  3a 50 4c 41 3a 54 41 59  0d 05 96 19 20 44 45 59  |:PLA:TAY.... DEY|
00000b10  3a 42 4e 45 20 73 70 72  69 74 65 5f 79 6c 6f 6f  |:BNE sprite_yloo|
00000b20  70 0d 05 a0 16 20 4a 4d  50 20 73 70 72 69 74 65  |p.... JMP sprite|
00000b30  5f 65 78 69 74 20 20 0d  05 aa 05 20 0d 05 b4 18  |_exit  .... ....|
00000b40  20 2e 70 61 73 74 5f 6d  65 6d 6f 72 79 5f 62 6f  | .past_memory_bo|
00000b50  75 6e 64 20 0d 05 be 17  20 4c 44 41 20 23 30 3a  |und .... LDA #0:|
00000b60  53 54 41 20 6d 65 6d 6f  72 79 20 0d 05 c8 09 20  |STA memory .... |
00000b70  50 4c 41 20 0d 05 d2 06  20 3a 0d 05 dc 12 20 2e  |PLA .... :.... .|
00000b80  73 70 72 69 74 65 5f 65  78 69 74 20 0d 05 e6 10  |sprite_exit ....|
00000b90  20 50 4c 41 3a 53 54 41  20 59 31 20 0d 05 f0 15  | PLA:STA Y1 ....|
00000ba0  20 50 4c 41 3a 54 41 58  3a 50 4c 41 3a 54 41 59  | PLA:TAX:PLA:TAY|
00000bb0  20 0d 05 fa 09 20 72 74  73 20 0d 06 04 06 20 3a  | .... rts .... :|
00000bc0  0d 06 0e 0f 20 2e 70 6f  73 69 74 69 6f 6e 20 0d  |.... .position .|
00000bd0  06 18 14 20 4c 44 41 20  23 30 3a 53 54 41 20 78  |... LDA #0:STA x|
00000be0  68 62 20 0d 06 22 1f 20  4c 44 41 20 58 31 3a 41  |hb ..". LDA X1:A|
00000bf0  53 4c 20 41 3a 52 4f 4c  20 78 68 62 3a 41 53 4c  |SL A:ROL xhb:ASL|
00000c00  20 41 0d 06 2c 22 20 52  4f 4c 20 78 68 62 3a 41  | A..," ROL xhb:A|
00000c10  53 4c 20 41 3a 52 4f 4c  20 78 68 62 3a 53 54 41  |SL A:ROL xhb:STA|
00000c20  20 78 6c 62 0d 06 36 20  20 4c 44 41 20 26 37 3a  | xlb..6  LDA &7:|
00000c30  43 4c 43 3a 41 44 43 20  78 68 62 3a 53 54 41 20  |CLC:ADC xhb:STA |
00000c40  78 68 62 20 0d 06 40 14  20 4c 44 41 20 23 30 3a  |xhb ..@. LDA #0:|
00000c50  53 54 41 20 79 6c 62 20  0d 06 4a 12 20 4c 44 41  |STA ylb ..J. LDA|
00000c60  20 59 31 3a 80 20 23 26  46 38 0d 06 54 18 20 4c  | Y1:. #&F8..T. L|
00000c70  53 52 20 41 3a 4c 53 52  20 41 3a 53 54 41 20 79  |SR A:LSR A:STA y|
00000c80  68 62 0d 06 5e 24 20 4c  53 52 20 41 3a 4c 53 52  |hb..^$ LSR A:LSR|
00000c90  20 41 3a 52 4f 52 20 79  6c 62 3a 43 4c 43 3a 41  | A:ROR ylb:CLC:A|
00000ca0  44 43 20 79 68 62 0d 06  68 14 20 41 44 43 20 78  |DC yhb..h. ADC x|
00000cb0  68 62 3a 53 54 41 20 79  68 62 0d 06 72 24 20 4c  |hb:STA yhb..r$ L|
00000cc0  44 41 20 59 31 3a 80 20  23 37 3a 43 4c 43 3a 41  |DA Y1:. #7:CLC:A|
00000cd0  44 43 20 79 6c 62 3a 41  44 43 20 78 6c 62 0d 06  |DC ylb:ADC xlb..|
00000ce0  7c 23 20 53 54 41 20 79  6c 62 3a 4c 44 41 20 23  ||# STA ylb:LDA #|
00000cf0  30 3a 41 44 43 20 79 68  62 3a 53 54 41 20 79 68  |0:ADC yhb:STA yh|
00000d00  62 0d 06 86 09 20 72 74  73 20 0d 06 90 06 20 3a  |b.... rts .... :|
00000d10  0d 06 9a 07 20 5d 20 0d  06 a4 0c 20 ed 20 63 6f  |.... ] .... . co|
00000d20  64 65 20 0d ff                                    |de ..|
00000d25

© Dominic Ford 2021–2025.

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