Home » Archimedes archive » Acorn User » AU 1994-09.adf » !StarInfo_Star » VanMourik/!MARTIN/!RUNIMAGE
VanMourik/!MARTIN/!RUNIMAGE
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 1994-09.adf » !StarInfo_Star |
| Filename: | VanMourik/!MARTIN/!RUNIMAGE |
| Read OK: | ✔ |
| File size: | 0F66 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>MARTIN2
20REM (C) JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183QL U.K. 94
30REM Image gen code rewritten in assembler by Michael Rozdoba, 6/9/93.
40MODE12:COLOUR132:CLS:PRINT:PRINT" MARTIN MAP":PRINT
50DIM code% 1024
60PRINT:PRINT:PRINT" (C) THIRD MILLENNIUM 1994":PRINT:PRINT:PRINT
70PRINT" RIGHT BUTTON TO START A NEW MAP.":PRINT
80PRINT" MIDDLE TO SEE THE SAME PATTERN ENLARGED.":PRINT:PRINT" LEFT TO MOVE PLOTTING AT POINTERS POSITION."
90PRINT:PRINT:PRINT" CLICK TO START"
100REPEAT:MOUSEA,B,C:A=RND:UNTILC
110PROCMODE:D%=0:REPEAT:MOUSEA,B,C:UNTILC=0:*POINTER
120ORIGIN 640,512
130PRINT"3 VARIABLES DETERMINE THE PATTERN;"
140FORZ=0TO15:READF,D,E:COLOURZ,F,D,E:NEXT:Q=SQR2*2:R=Q:C%=1
150PROCass
160
170REM MAIN LOOP
210REPEAT:IF C%=1 j=RND(1)*6:k=RND(1)/2:l=RND(1)*9:Q=R:x=9/Q:y=9/Q
220PRINTTAB(0,2)"j="j:PRINT"k="k:PRINT"l="l
230!aq%=Q*65536:!aj%=j*65536:!ak%=k*65536:!al%=l*65536
250REPEAT:D%+=1:!acolour%=D%MOD15+1:!ax%=x*65536:!ay%=y*65536:CALL gen%:x=!ax%/65536:y=!ay%/65536:MOUSEA%,B%,C%:IFC%=4 x=(A%+B%)/(Q*2):y=(A%-B%)/(Q*2):UNTIL0
350
360UNTILC%:IFC%=2 Q=Q*1.5
370IFC%=2 Q=Q*1.5
380REPEAT:MOUSEA,B,C:A=RND:UNTILC=0:CLS:UNTIL0
420
430DEFPROCMODE LOCAL C%,F%
440SYS "OS_CheckModeValid",20 TO ;F%
450C%=(F%AND%0010)>>1
460IF NOT (C%=1) MODE 20:MO%=1 ELSE MODE 12:MO%=0
470OFF:ENDPROC
480
490DATA 0,0,0,192,0,240,144,48,240,96,96,240,48,144,240,0,192,240,0,240,192,48,240,144,96,240,96,144,240,48,192,240,0,240,192,0,240,144,48,240,96,96,240,48,144,240,0,192 REM R,G,B PALETTE VALUES
500
510
520REM FORI%=1TO1567:Z=y-SGNx*ABS(k*x-l):y=j-x:x=Z:POINTQ*(x+y),Q*(x-y):NEXT
530DEF PROCass
540LOCAL sp, lr, pc, t5, v, c, q, j, k, l, x, y, t4, t1, t2, t3
550sp=13:lr=14:pc=15
560t5=0:v=1:c=2:q=3:j=4:k=5:l=6:x=7:y=8:t4=9:t1=10:t2=11:t3=12
570!code%=148:code%!4=-1
580SYS "OS_ReadVduVariables", code%, code%
590scrst%=!code%
600FOR opt% = 8 TO 10 STEP 2
610P%=code%:L%=code%+1024
620[OPT opt%
630.ascrst% EQUD scrst%
640.avert% EQUD -1*(MODE=20)-2*(MODE=12)
650.acolour% EQUD 0
660.aq% EQUD 0
670.aj% EQUD 0
680.ak% EQUD 0
690.al% EQUD 0
700.ax% EQUD 0
710.ay% EQUD 0
720.ai% EQUD 0
730.aii% EQUD 1567
740.asp% EQUD 0
750.gen%
760STMFD (sp)!, {lr}
770STR sp, asp%
780LDR t1, aii%
790STR t1, ai%
800ADR t1, avert%
810LDMIA t1, {v-y}
820.loop%
830
840MOV t1, x
850MOV t2, k
860FNmul16(t1, t2, t1, t3, t4, t5)
870SUBS t1, t1, l
880RSBMI t1, t1, #0
890CMP x, #0
900RSBMI t1, t1, #0
910SUB t1, y, t1
920SUB y, j, x
930MOV x, t1
940ADD t1, x, y
950MOV t2, q
960FNmul16(t1, t2, sp, t3, t4, t5)
970SUB t1, x, y
980MOV t2, q
990FNmul16(t1, t2, t1, t3, t4, t5)
1000MOV t2, t1, ASR #16
1010MOV t1, sp, ASR #16
1020ADD t1, t1, #640
1030ADD t2, t2, #512
1040CMP t1, #1280
1050BHS next%
1060CMP t2, #1024
1070BHS next%
1080
1090RSB t2, t2, #1024
1100SUB t2, t2, #1
1110MOV t1, t1, ASR #1
1120MOV t2, t2, ASR v
1130LDR t3, ascrst%
1140ADD t2, t2, t2, ASL #2
1150ADD t3, t3, t2, ASL #6
1160TST t1, #1
1170LDRB t4, [t3, t1, ASR #1]!
1180BICEQ t4, t4, #15
1190BICNE t4, t4, #240
1200ORREQ t4, t4, c
1210ORRNE t4, t4, c, ASL #4
1220STRB t4, [t3]
1230
1240.next%
1250LDR t1, ai%
1260SUBS t1, t1, #1
1270STR t1, ai%
1280BNE loop%
1290STR x, ax%
1300STR y, ay%
1310LDR sp, asp%
1320LDMFD (sp)!, {pc}
1330]
1340NEXT:ENDPROC
1360:
1500DEF FNmul16(x%,a%,r%,u%,v%,w%)
1510IF (r%=a% OR r%=u% OR r%=v% OR r%=w% OR x%=a% OR x%=u% OR x%=v% OR x%=w% OR a%=u% OR a%=v% OR a%=w% OR u%=v% OR u%=w% OR v%=w%) ERROR 1,"Error in arguments to FNmul16"
1520[OPT opt%
1530MOVS w%, a%, LSL #1
1540RSBCS a%, a%, #0
1550TEQ x%, #0
1560RSBMI r%, x%, #0
1570]
1580IF r% <> x% THEN
1590[OPT opt%
1600MOVPL r%, x%
1610]
1620ENDIF
1630[OPT opt%
1640MOV w%, pc, LSR #31
1650MOV w%, w%, LSL #28
1660TEQP w%, pc, LSR #1
1680MOV w%, r%, LSR #16
1690BIC r%, r%, w%, LSL #16
1700MOV v%, a%, LSR #16
1710BIC a%, a%, v%, LSL #16
1720MUL u%, a%, r%
1730TST u%, #1<<15
1750MOV u%, u%, LSR #16
1760ADDNE u%, u%, #1
1770MLA u%, v%, r%, u%
1780MLA u%, a%, w%, u%
1790MUL r%, v%, w%
1800ADD r%, u%, r%, LSL #16
1810RSBVS r%, r%, #0
1820]
1830=0
�>MARTIN2
M� (C) JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183QL U.K. 94
G� Image gen code rewritten in assembler by Michael Rozdoba, 6/9/93.
(3�12:�132:�:�:�" MARTIN MAP":�
2� code% 1024
<-�:�:�" (C) THIRD MILLENNIUM 1994":�:�:�
F*�" RIGHT BUTTON TO START A NEW MAP.":�
Pb�" MIDDLE TO SEE THE SAME PATTERN ENLARGED.":�:�" LEFT TO MOVE PLOTTING AT POINTERS POSITION."
Z�:�:�" CLICK TO START"
d�:ȗA,B,C:A=�:�C
n&�MODE:D%=0:�:ȗA,B,C:�C=0:*POINTER
xȑ 640,512
�)�"3 VARIABLES DETERMINE THE PATTERN;"
�-�Z=0�15:�F,D,E:�Z,F,D,E:�:Q=�2*2:R=Q:C%=1
��ass
�
�� MAIN LOOP
�7�:� C%=1 j=�(1)*6:k=�(1)/2:l=�(1)*9:Q=R:x=9/Q:y=9/Q
� �0,2)"j="j:�"k="k:�"l="l
�7!aq%=Q*65536:!aj%=j*65536:!ak%=k*65536:!al%=l*65536
���:D%+=1:!acolour%=D%�15+1:!ax%=x*65536:!ay%=y*65536:� gen%:x=!ax%/65536:y=!ay%/65536:ȗA%,B%,C%:�C%=4 x=(A%+B%)/(Q*2):y=(A%-B%)/(Q*2):�0
^
h�C%:�C%=2 Q=Q*1.5
r�C%=2 Q=Q*1.5
|�:ȗA,B,C:A=�:�C=0:�:�0
�
���MODE � C%,F%
�#ș "OS_CheckModeValid",20 � ;F%
�C%=(F%�%0010)>>1
�&� � (C%=1) � 20:MO%=1 � � 12:MO%=0
��:�
�
��� 0,0,0,192,0,240,144,48,240,96,96,240,48,144,240,0,192,240,0,240,192,48,240,144,96,240,96,144,240,48,192,240,0,240,192,0,240,144,48,240,96,96,240,48,144,240,0,192 REM R,G,B PALETTE VALUES
�
�
K� FORI%=1TO1567:Z=y-SGNx*ABS(k*x-l):y=j-x:x=Z:POINTQ*(x+y),Q*(x-y):NEXT
� �ass
<� sp, lr, pc, t5, v, c, q, j, k, l, x, y, t4, t1, t2, t3
&sp=13:lr=14:pc=15
0?t5=0:v=1:c=2:q=3:j=4:k=5:l=6:x=7:y=8:t4=9:t1=10:t2=11:t3=12
:!code%=148:code%!4=-1
D*ș "OS_ReadVduVariables", code%, code%
Nscrst%=!code%
X� opt% = 8 � 10 � 2
bP%=code%:L%=code%+1024
l
[OPT opt%
v.ascrst% EQUD scrst%
�%.avert% EQUD -1*(�=20)-2*(�=12)
�.acolour% EQUD 0
�.aq% EQUD 0
�.aj% EQUD 0
�.ak% EQUD 0
�.al% EQUD 0
�.ax% EQUD 0
�.ay% EQUD 0
�.ai% EQUD 0
�.aii% EQUD 1567
�.asp% EQUD 0
� .gen%
�STMFD (sp)!, {lr}
STR sp, asp%
LDR t1, aii%
STR t1, ai%
ADR t1, avert%
*LDMIA t1, {v-y}
4
.loop%
>
HMOV t1, x
RMOV t2, k
\"�mul16(t1, t2, t1, t3, t4, t5)
fSUBS t1, t1, l
pRSBMI t1, t1, #0
zCMP x, #0
�RSBMI t1, t1, #0
�SUB t1, y, t1
�SUB y, j, x
�MOV x, t1
�ADD t1, x, y
�MOV t2, q
�"�mul16(t1, t2, sp, t3, t4, t5)
�SUB t1, x, y
�MOV t2, q
�"�mul16(t1, t2, t1, t3, t4, t5)
�MOV t2, t1, ASR #16
�MOV t1, sp, ASR #16
�ADD t1, t1, #640
ADD t2, t2, #512
CMP t1, #1280
BHS next%
$CMP t2, #1024
.BHS next%
8
BRSB t2, t2, #1024
LSUB t2, t2, #1
VMOV t1, t1, ASR #1
`MOV t2, t2, ASR v
jLDR t3, ascrst%
t ADD t2, t2, t2, ASL #2
~ ADD t3, t3, t2, ASL #6
�TST t1, #1
�!LDRB t4, [t3, t1, ASR #1]!
�BICEQ t4, t4, #15
�BICNE t4, t4, #240
��REQ t4, t4, c
� �RNE t4, t4, c, ASL #4
�STRB t4, [t3]
�
�
.next%
�LDR t1, ai%
�SUBS t1, t1, #1
�STR t1, ai%
BNE loop%
STR x, ax%
STR y, ay%
LDR sp, asp%
(LDMFD (sp)!, {pc}
2]
<�:�
P:
� � �mul16(x%,a%,r%,u%,v%,w%)
�� (r%=a% � r%=u% � r%=v% � r%=w% � x%=a% � x%=u% � x%=v% � x%=w% � a%=u% � a%=v% � a%=w% � u%=v% � u%=w% � v%=w%) � 1,"Error in arguments to FNmul16"
�
[OPT opt%
�MOVS w%, a%, LSL #1
RSBCS a%, a%, #0
TEQ x%, #0
RSBMI r%, x%, #0
"]
,� r% <> x% �
6
[OPT opt%
@MOVPL r%, x%
J]
T�
^
[OPT opt%
hMOV w%, pc, LSR #31
rMOV w%, w%, LSL #28
|TEQP w%, pc, LSR #1
�MOV w%, r%, LSR #16
� BIC r%, r%, w%, LSL #16
�MOV v%, a%, LSR #16
� BIC a%, a%, v%, LSL #16
�MUL u%, a%, r%
�TST u%, #1<<15
�MOV u%, u%, LSR #16
�ADDNE u%, u%, #1
�MLA u%, v%, r%, u%
�MLA u%, a%, w%, u%
�MUL r%, v%, w%
ADD r%, u%, r%, LSL #16
RSBVS r%, r%, #0
]
&=0
� 00000000 0d 00 0a 0d f4 3e 4d 41 52 54 49 4e 32 0d 00 14 |.....>MARTIN2...|
00000010 4d f4 20 28 43 29 20 4a 45 41 4e 20 56 41 4e 20 |M. (C) JEAN VAN |
00000020 4d 4f 55 52 49 4b 20 4d 49 4c 4c 43 4f 54 54 41 |MOURIK MILLCOTTA|
00000030 47 45 20 44 45 52 57 59 44 44 20 41 4d 4d 41 4e |GE DERWYDD AMMAN|
00000040 46 4f 52 44 20 44 59 46 45 44 20 53 41 31 38 33 |FORD DYFED SA183|
00000050 51 4c 20 55 2e 4b 2e 20 39 34 0d 00 1e 47 f4 20 |QL U.K. 94...G. |
00000060 49 6d 61 67 65 20 67 65 6e 20 63 6f 64 65 20 72 |Image gen code r|
00000070 65 77 72 69 74 74 65 6e 20 69 6e 20 61 73 73 65 |ewritten in asse|
00000080 6d 62 6c 65 72 20 62 79 20 4d 69 63 68 61 65 6c |mbler by Michael|
00000090 20 52 6f 7a 64 6f 62 61 2c 20 36 2f 39 2f 39 33 | Rozdoba, 6/9/93|
000000a0 2e 0d 00 28 33 eb 31 32 3a fb 31 33 32 3a db 3a |...(3.12:.132:.:|
000000b0 f1 3a f1 22 20 20 20 20 20 20 20 20 20 20 20 20 |.:." |
000000c0 20 20 20 20 20 20 20 4d 41 52 54 49 4e 20 4d 41 | MARTIN MA|
000000d0 50 22 3a f1 0d 00 32 10 de 20 63 6f 64 65 25 20 |P":...2.. code% |
000000e0 31 30 32 34 0d 00 3c 2d f1 3a f1 3a f1 22 20 28 |1024..<-.:.:." (|
000000f0 43 29 20 54 48 49 52 44 20 4d 49 4c 4c 45 4e 4e |C) THIRD MILLENN|
00000100 49 55 4d 20 20 20 31 39 39 34 22 3a f1 3a f1 3a |IUM 1994":.:.:|
00000110 f1 0d 00 46 2a f1 22 20 52 49 47 48 54 20 42 55 |...F*." RIGHT BU|
00000120 54 54 4f 4e 20 54 4f 20 53 54 41 52 54 20 41 20 |TTON TO START A |
00000130 4e 45 57 20 4d 41 50 2e 22 3a f1 0d 00 50 62 f1 |NEW MAP.":...Pb.|
00000140 22 20 4d 49 44 44 4c 45 20 54 4f 20 53 45 45 20 |" MIDDLE TO SEE |
00000150 54 48 45 20 53 41 4d 45 20 50 41 54 54 45 52 4e |THE SAME PATTERN|
00000160 20 45 4e 4c 41 52 47 45 44 2e 22 3a f1 3a f1 22 | ENLARGED.":.:."|
00000170 20 4c 45 46 54 20 54 4f 20 4d 4f 56 45 20 50 4c | LEFT TO MOVE PL|
00000180 4f 54 54 49 4e 47 20 41 54 20 50 4f 49 4e 54 45 |OTTING AT POINTE|
00000190 52 53 20 50 4f 53 49 54 49 4f 4e 2e 22 0d 00 5a |RS POSITION."..Z|
000001a0 1a f1 3a f1 3a f1 22 20 43 4c 49 43 4b 20 54 4f |..:.:." CLICK TO|
000001b0 20 53 54 41 52 54 22 0d 00 64 14 f5 3a c8 97 41 | START"..d..:..A|
000001c0 2c 42 2c 43 3a 41 3d b3 3a fd 43 0d 00 6e 26 f2 |,B,C:A=.:.C..n&.|
000001d0 4d 4f 44 45 3a 44 25 3d 30 3a f5 3a c8 97 41 2c |MODE:D%=0:.:..A,|
000001e0 42 2c 43 3a fd 43 3d 30 3a 2a 50 4f 49 4e 54 45 |B,C:.C=0:*POINTE|
000001f0 52 0d 00 78 0e c8 91 20 36 34 30 2c 35 31 32 0d |R..x... 640,512.|
00000200 00 82 29 f1 22 33 20 56 41 52 49 41 42 4c 45 53 |..)."3 VARIABLES|
00000210 20 44 45 54 45 52 4d 49 4e 45 20 54 48 45 20 50 | DETERMINE THE P|
00000220 41 54 54 45 52 4e 3b 22 0d 00 8c 2d e3 5a 3d 30 |ATTERN;"...-.Z=0|
00000230 b8 31 35 3a f3 46 2c 44 2c 45 3a fb 5a 2c 46 2c |.15:.F,D,E:.Z,F,|
00000240 44 2c 45 3a ed 3a 51 3d b6 32 2a 32 3a 52 3d 51 |D,E:.:Q=.2*2:R=Q|
00000250 3a 43 25 3d 31 0d 00 96 08 f2 61 73 73 0d 00 a0 |:C%=1.....ass...|
00000260 04 0d 00 aa 0f f4 20 4d 41 49 4e 20 4c 4f 4f 50 |...... MAIN LOOP|
00000270 0d 00 d2 37 f5 3a e7 20 43 25 3d 31 20 6a 3d b3 |...7.:. C%=1 j=.|
00000280 28 31 29 2a 36 3a 6b 3d b3 28 31 29 2f 32 3a 6c |(1)*6:k=.(1)/2:l|
00000290 3d b3 28 31 29 2a 39 3a 51 3d 52 3a 78 3d 39 2f |=.(1)*9:Q=R:x=9/|
000002a0 51 3a 79 3d 39 2f 51 0d 00 dc 1d f1 8a 30 2c 32 |Q:y=9/Q......0,2|
000002b0 29 22 6a 3d 22 6a 3a f1 22 6b 3d 22 6b 3a f1 22 |)"j="j:."k="k:."|
000002c0 6c 3d 22 6c 0d 00 e6 37 21 61 71 25 3d 51 2a 36 |l="l...7!aq%=Q*6|
000002d0 35 35 33 36 3a 21 61 6a 25 3d 6a 2a 36 35 35 33 |5536:!aj%=j*6553|
000002e0 36 3a 21 61 6b 25 3d 6b 2a 36 35 35 33 36 3a 21 |6:!ak%=k*65536:!|
000002f0 61 6c 25 3d 6c 2a 36 35 35 33 36 0d 00 fa 8c f5 |al%=l*65536.....|
00000300 3a 44 25 2b 3d 31 3a 21 61 63 6f 6c 6f 75 72 25 |:D%+=1:!acolour%|
00000310 3d 44 25 83 31 35 2b 31 3a 21 61 78 25 3d 78 2a |=D%.15+1:!ax%=x*|
00000320 36 35 35 33 36 3a 21 61 79 25 3d 79 2a 36 35 35 |65536:!ay%=y*655|
00000330 33 36 3a d6 20 67 65 6e 25 3a 78 3d 21 61 78 25 |36:. gen%:x=!ax%|
00000340 2f 36 35 35 33 36 3a 79 3d 21 61 79 25 2f 36 35 |/65536:y=!ay%/65|
00000350 35 33 36 3a c8 97 41 25 2c 42 25 2c 43 25 3a e7 |536:..A%,B%,C%:.|
00000360 43 25 3d 34 20 78 3d 28 41 25 2b 42 25 29 2f 28 |C%=4 x=(A%+B%)/(|
00000370 51 2a 32 29 3a 79 3d 28 41 25 2d 42 25 29 2f 28 |Q*2):y=(A%-B%)/(|
00000380 51 2a 32 29 3a fd 30 0d 01 5e 04 0d 01 68 15 fd |Q*2):.0..^...h..|
00000390 43 25 3a e7 43 25 3d 32 20 51 3d 51 2a 31 2e 35 |C%:.C%=2 Q=Q*1.5|
000003a0 0d 01 72 11 e7 43 25 3d 32 20 51 3d 51 2a 31 2e |..r..C%=2 Q=Q*1.|
000003b0 35 0d 01 7c 1b f5 3a c8 97 41 2c 42 2c 43 3a 41 |5..|..:..A,B,C:A|
000003c0 3d b3 3a fd 43 3d 30 3a db 3a fd 30 0d 01 a4 04 |=.:.C=0:.:.0....|
000003d0 0d 01 ae 12 dd f2 4d 4f 44 45 20 ea 20 43 25 2c |......MODE . C%,|
000003e0 46 25 0d 01 b8 23 c8 99 20 22 4f 53 5f 43 68 65 |F%...#.. "OS_Che|
000003f0 63 6b 4d 6f 64 65 56 61 6c 69 64 22 2c 32 30 20 |ckModeValid",20 |
00000400 b8 20 3b 46 25 0d 01 c2 14 43 25 3d 28 46 25 80 |. ;F%....C%=(F%.|
00000410 25 30 30 31 30 29 3e 3e 31 0d 01 cc 26 e7 20 ac |%0010)>>1...&. .|
00000420 20 28 43 25 3d 31 29 20 eb 20 32 30 3a 4d 4f 25 | (C%=1) . 20:MO%|
00000430 3d 31 20 8b 20 eb 20 31 32 3a 4d 4f 25 3d 30 0d |=1 . . 12:MO%=0.|
00000440 01 d6 07 87 3a e1 0d 01 e0 04 0d 01 ea c2 dc 20 |....:.......... |
00000450 30 2c 30 2c 30 2c 31 39 32 2c 30 2c 32 34 30 2c |0,0,0,192,0,240,|
00000460 31 34 34 2c 34 38 2c 32 34 30 2c 39 36 2c 39 36 |144,48,240,96,96|
00000470 2c 32 34 30 2c 34 38 2c 31 34 34 2c 32 34 30 2c |,240,48,144,240,|
00000480 30 2c 31 39 32 2c 32 34 30 2c 30 2c 32 34 30 2c |0,192,240,0,240,|
00000490 31 39 32 2c 34 38 2c 32 34 30 2c 31 34 34 2c 39 |192,48,240,144,9|
000004a0 36 2c 32 34 30 2c 39 36 2c 31 34 34 2c 32 34 30 |6,240,96,144,240|
000004b0 2c 34 38 2c 31 39 32 2c 32 34 30 2c 30 2c 32 34 |,48,192,240,0,24|
000004c0 30 2c 31 39 32 2c 30 2c 32 34 30 2c 31 34 34 2c |0,192,0,240,144,|
000004d0 34 38 2c 32 34 30 2c 39 36 2c 39 36 2c 32 34 30 |48,240,96,96,240|
000004e0 2c 34 38 2c 31 34 34 2c 32 34 30 2c 30 2c 31 39 |,48,144,240,0,19|
000004f0 32 20 20 20 52 45 4d 20 52 2c 47 2c 42 20 50 41 |2 REM R,G,B PA|
00000500 4c 45 54 54 45 20 56 41 4c 55 45 53 0d 01 f4 04 |LETTE VALUES....|
00000510 0d 01 fe 04 0d 02 08 4b f4 20 46 4f 52 49 25 3d |.......K. FORI%=|
00000520 31 54 4f 31 35 36 37 3a 5a 3d 79 2d 53 47 4e 78 |1TO1567:Z=y-SGNx|
00000530 2a 41 42 53 28 6b 2a 78 2d 6c 29 3a 79 3d 6a 2d |*ABS(k*x-l):y=j-|
00000540 78 3a 78 3d 5a 3a 50 4f 49 4e 54 51 2a 28 78 2b |x:x=Z:POINTQ*(x+|
00000550 79 29 2c 51 2a 28 78 2d 79 29 3a 4e 45 58 54 0d |y),Q*(x-y):NEXT.|
00000560 02 12 0a dd 20 f2 61 73 73 0d 02 1c 3c ea 20 73 |.... .ass...<. s|
00000570 70 2c 20 6c 72 2c 20 70 63 2c 20 74 35 2c 20 76 |p, lr, pc, t5, v|
00000580 2c 20 63 2c 20 71 2c 20 6a 2c 20 6b 2c 20 6c 2c |, c, q, j, k, l,|
00000590 20 78 2c 20 79 2c 20 74 34 2c 20 74 31 2c 20 74 | x, y, t4, t1, t|
000005a0 32 2c 20 74 33 0d 02 26 15 73 70 3d 31 33 3a 6c |2, t3..&.sp=13:l|
000005b0 72 3d 31 34 3a 70 63 3d 31 35 0d 02 30 3f 74 35 |r=14:pc=15..0?t5|
000005c0 3d 30 3a 76 3d 31 3a 63 3d 32 3a 71 3d 33 3a 6a |=0:v=1:c=2:q=3:j|
000005d0 3d 34 3a 6b 3d 35 3a 6c 3d 36 3a 78 3d 37 3a 79 |=4:k=5:l=6:x=7:y|
000005e0 3d 38 3a 74 34 3d 39 3a 74 31 3d 31 30 3a 74 32 |=8:t4=9:t1=10:t2|
000005f0 3d 31 31 3a 74 33 3d 31 32 0d 02 3a 19 21 63 6f |=11:t3=12..:.!co|
00000600 64 65 25 3d 31 34 38 3a 63 6f 64 65 25 21 34 3d |de%=148:code%!4=|
00000610 2d 31 0d 02 44 2a c8 99 20 22 4f 53 5f 52 65 61 |-1..D*.. "OS_Rea|
00000620 64 56 64 75 56 61 72 69 61 62 6c 65 73 22 2c 20 |dVduVariables", |
00000630 63 6f 64 65 25 2c 20 63 6f 64 65 25 0d 02 4e 11 |code%, code%..N.|
00000640 73 63 72 73 74 25 3d 21 63 6f 64 65 25 0d 02 58 |scrst%=!code%..X|
00000650 17 e3 20 6f 70 74 25 20 3d 20 38 20 b8 20 31 30 |.. opt% = 8 . 10|
00000660 20 88 20 32 0d 02 62 1a 50 25 3d 63 6f 64 65 25 | . 2..b.P%=code%|
00000670 3a 4c 25 3d 63 6f 64 65 25 2b 31 30 32 34 0d 02 |:L%=code%+1024..|
00000680 6c 0d 5b 4f 50 54 20 6f 70 74 25 0d 02 76 19 2e |l.[OPT opt%..v..|
00000690 61 73 63 72 73 74 25 20 20 45 51 55 44 20 73 63 |ascrst% EQUD sc|
000006a0 72 73 74 25 0d 02 80 25 2e 61 76 65 72 74 25 20 |rst%...%.avert% |
000006b0 20 20 45 51 55 44 20 2d 31 2a 28 eb 3d 32 30 29 | EQUD -1*(.=20)|
000006c0 2d 32 2a 28 eb 3d 31 32 29 0d 02 8a 14 2e 61 63 |-2*(.=12).....ac|
000006d0 6f 6c 6f 75 72 25 20 45 51 55 44 20 30 0d 02 94 |olour% EQUD 0...|
000006e0 14 2e 61 71 25 20 20 20 20 20 20 45 51 55 44 20 |..aq% EQUD |
000006f0 30 0d 02 9e 14 2e 61 6a 25 20 20 20 20 20 20 45 |0.....aj% E|
00000700 51 55 44 20 30 0d 02 a8 14 2e 61 6b 25 20 20 20 |QUD 0.....ak% |
00000710 20 20 20 45 51 55 44 20 30 0d 02 b2 14 2e 61 6c | EQUD 0.....al|
00000720 25 20 20 20 20 20 20 45 51 55 44 20 30 0d 02 bc |% EQUD 0...|
00000730 14 2e 61 78 25 20 20 20 20 20 20 45 51 55 44 20 |..ax% EQUD |
00000740 30 0d 02 c6 14 2e 61 79 25 20 20 20 20 20 20 45 |0.....ay% E|
00000750 51 55 44 20 30 0d 02 d0 14 2e 61 69 25 20 20 20 |QUD 0.....ai% |
00000760 20 20 20 45 51 55 44 20 30 0d 02 da 17 2e 61 69 | EQUD 0.....ai|
00000770 69 25 20 20 20 20 20 45 51 55 44 20 31 35 36 37 |i% EQUD 1567|
00000780 0d 02 e4 14 2e 61 73 70 25 20 20 20 20 20 45 51 |.....asp% EQ|
00000790 55 44 20 30 0d 02 ee 09 2e 67 65 6e 25 0d 02 f8 |UD 0.....gen%...|
000007a0 17 53 54 4d 46 44 20 20 20 28 73 70 29 21 2c 20 |.STMFD (sp)!, |
000007b0 7b 6c 72 7d 0d 03 02 14 53 54 52 20 20 20 20 20 |{lr}....STR |
000007c0 73 70 2c 20 61 73 70 25 0d 03 0c 14 4c 44 52 20 |sp, asp%....LDR |
000007d0 20 20 20 20 74 31 2c 20 61 69 69 25 0d 03 16 13 | t1, aii%....|
000007e0 53 54 52 20 20 20 20 20 74 31 2c 20 61 69 25 0d |STR t1, ai%.|
000007f0 03 20 16 41 44 52 20 20 20 20 20 74 31 2c 20 61 |. .ADR t1, a|
00000800 76 65 72 74 25 0d 03 2a 15 4c 44 4d 49 41 20 20 |vert%..*.LDMIA |
00000810 20 74 31 2c 20 7b 76 2d 79 7d 0d 03 34 0a 2e 6c | t1, {v-y}..4..l|
00000820 6f 6f 70 25 0d 03 3e 04 0d 03 48 11 4d 4f 56 20 |oop%..>...H.MOV |
00000830 20 20 20 20 74 31 2c 20 78 0d 03 52 11 4d 4f 56 | t1, x..R.MOV|
00000840 20 20 20 20 20 74 32 2c 20 6b 0d 03 5c 22 a4 6d | t2, k..\".m|
00000850 75 6c 31 36 28 74 31 2c 20 74 32 2c 20 74 31 2c |ul16(t1, t2, t1,|
00000860 20 74 33 2c 20 74 34 2c 20 74 35 29 0d 03 66 15 | t3, t4, t5)..f.|
00000870 53 55 42 53 20 20 20 20 74 31 2c 20 74 31 2c 20 |SUBS t1, t1, |
00000880 6c 0d 03 70 16 52 53 42 4d 49 20 20 20 74 31 2c |l..p.RSBMI t1,|
00000890 20 74 31 2c 20 23 30 0d 03 7a 11 43 4d 50 20 20 | t1, #0..z.CMP |
000008a0 20 20 20 78 2c 20 23 30 0d 03 84 16 52 53 42 4d | x, #0....RSBM|
000008b0 49 20 20 20 74 31 2c 20 74 31 2c 20 23 30 0d 03 |I t1, t1, #0..|
000008c0 8e 15 53 55 42 20 20 20 20 20 74 31 2c 20 79 2c |..SUB t1, y,|
000008d0 20 74 31 0d 03 98 13 53 55 42 20 20 20 20 20 79 | t1....SUB y|
000008e0 2c 20 6a 2c 20 78 0d 03 a2 11 4d 4f 56 20 20 20 |, j, x....MOV |
000008f0 20 20 78 2c 20 74 31 0d 03 ac 14 41 44 44 20 20 | x, t1....ADD |
00000900 20 20 20 74 31 2c 20 78 2c 20 79 0d 03 b6 11 4d | t1, x, y....M|
00000910 4f 56 20 20 20 20 20 74 32 2c 20 71 0d 03 c0 22 |OV t2, q..."|
00000920 a4 6d 75 6c 31 36 28 74 31 2c 20 74 32 2c 20 73 |.mul16(t1, t2, s|
00000930 70 2c 20 74 33 2c 20 74 34 2c 20 74 35 29 0d 03 |p, t3, t4, t5)..|
00000940 ca 14 53 55 42 20 20 20 20 20 74 31 2c 20 78 2c |..SUB t1, x,|
00000950 20 79 0d 03 d4 11 4d 4f 56 20 20 20 20 20 74 32 | y....MOV t2|
00000960 2c 20 71 0d 03 de 22 a4 6d 75 6c 31 36 28 74 31 |, q...".mul16(t1|
00000970 2c 20 74 32 2c 20 74 31 2c 20 74 33 2c 20 74 34 |, t2, t1, t3, t4|
00000980 2c 20 74 35 29 0d 03 e8 1b 4d 4f 56 20 20 20 20 |, t5)....MOV |
00000990 20 74 32 2c 20 74 31 2c 20 41 53 52 20 23 31 36 | t2, t1, ASR #16|
000009a0 0d 03 f2 1b 4d 4f 56 20 20 20 20 20 74 31 2c 20 |....MOV t1, |
000009b0 73 70 2c 20 41 53 52 20 23 31 36 0d 03 fc 18 41 |sp, ASR #16....A|
000009c0 44 44 20 20 20 20 20 74 31 2c 20 74 31 2c 20 23 |DD t1, t1, #|
000009d0 36 34 30 0d 04 06 18 41 44 44 20 20 20 20 20 74 |640....ADD t|
000009e0 32 2c 20 74 32 2c 20 23 35 31 32 0d 04 10 15 43 |2, t2, #512....C|
000009f0 4d 50 20 20 20 20 20 74 31 2c 20 23 31 32 38 30 |MP t1, #1280|
00000a00 0d 04 1a 11 42 48 53 20 20 20 20 20 6e 65 78 74 |....BHS next|
00000a10 25 0d 04 24 15 43 4d 50 20 20 20 20 20 74 32 2c |%..$.CMP t2,|
00000a20 20 23 31 30 32 34 0d 04 2e 11 42 48 53 20 20 20 | #1024....BHS |
00000a30 20 20 6e 65 78 74 25 0d 04 38 04 0d 04 42 19 52 | next%..8...B.R|
00000a40 53 42 20 20 20 20 20 74 32 2c 20 74 32 2c 20 23 |SB t2, t2, #|
00000a50 31 30 32 34 0d 04 4c 16 53 55 42 20 20 20 20 20 |1024..L.SUB |
00000a60 74 32 2c 20 74 32 2c 20 23 31 0d 04 56 1a 4d 4f |t2, t2, #1..V.MO|
00000a70 56 20 20 20 20 20 74 31 2c 20 74 31 2c 20 41 53 |V t1, t1, AS|
00000a80 52 20 23 31 0d 04 60 19 4d 4f 56 20 20 20 20 20 |R #1..`.MOV |
00000a90 74 32 2c 20 74 32 2c 20 41 53 52 20 76 0d 04 6a |t2, t2, ASR v..j|
00000aa0 17 4c 44 52 20 20 20 20 20 74 33 2c 20 61 73 63 |.LDR t3, asc|
00000ab0 72 73 74 25 0d 04 74 1e 41 44 44 20 20 20 20 20 |rst%..t.ADD |
00000ac0 74 32 2c 20 74 32 2c 20 74 32 2c 20 41 53 4c 20 |t2, t2, t2, ASL |
00000ad0 23 32 0d 04 7e 1e 41 44 44 20 20 20 20 20 74 33 |#2..~.ADD t3|
00000ae0 2c 20 74 33 2c 20 74 32 2c 20 41 53 4c 20 23 36 |, t3, t2, ASL #6|
00000af0 0d 04 88 12 54 53 54 20 20 20 20 20 74 31 2c 20 |....TST t1, |
00000b00 23 31 0d 04 92 21 4c 44 52 42 20 20 20 20 74 34 |#1...!LDRB t4|
00000b10 2c 20 5b 74 33 2c 20 74 31 2c 20 41 53 52 20 23 |, [t3, t1, ASR #|
00000b20 31 5d 21 0d 04 9c 17 42 49 43 45 51 20 20 20 74 |1]!....BICEQ t|
00000b30 34 2c 20 74 34 2c 20 23 31 35 0d 04 a6 18 42 49 |4, t4, #15....BI|
00000b40 43 4e 45 20 20 20 74 34 2c 20 74 34 2c 20 23 32 |CNE t4, t4, #2|
00000b50 34 30 0d 04 b0 14 84 52 45 51 20 20 20 74 34 2c |40.....REQ t4,|
00000b60 20 74 34 2c 20 63 0d 04 ba 1c 84 52 4e 45 20 20 | t4, c.....RNE |
00000b70 20 74 34 2c 20 74 34 2c 20 63 2c 20 41 53 4c 20 | t4, t4, c, ASL |
00000b80 23 34 0d 04 c4 14 53 54 52 42 20 20 20 20 74 34 |#4....STRB t4|
00000b90 2c 20 5b 74 33 5d 0d 04 ce 04 0d 04 d8 0a 2e 6e |, [t3].........n|
00000ba0 65 78 74 25 0d 04 e2 13 4c 44 52 20 20 20 20 20 |ext%....LDR |
00000bb0 74 31 2c 20 61 69 25 0d 04 ec 16 53 55 42 53 20 |t1, ai%....SUBS |
00000bc0 20 20 20 74 31 2c 20 74 31 2c 20 23 31 0d 04 f6 | t1, t1, #1...|
00000bd0 13 53 54 52 20 20 20 20 20 74 31 2c 20 61 69 25 |.STR t1, ai%|
00000be0 0d 05 00 11 42 4e 45 20 20 20 20 20 6c 6f 6f 70 |....BNE loop|
00000bf0 25 0d 05 0a 12 53 54 52 20 20 20 20 20 78 2c 20 |%....STR x, |
00000c00 61 78 25 0d 05 14 12 53 54 52 20 20 20 20 20 79 |ax%....STR y|
00000c10 2c 20 61 79 25 0d 05 1e 14 4c 44 52 20 20 20 20 |, ay%....LDR |
00000c20 20 73 70 2c 20 61 73 70 25 0d 05 28 17 4c 44 4d | sp, asp%..(.LDM|
00000c30 46 44 20 20 20 28 73 70 29 21 2c 20 7b 70 63 7d |FD (sp)!, {pc}|
00000c40 0d 05 32 05 5d 0d 05 3c 07 ed 3a e1 0d 05 50 05 |..2.]..<..:...P.|
00000c50 3a 0d 05 dc 1f dd 20 a4 6d 75 6c 31 36 28 78 25 |:..... .mul16(x%|
00000c60 2c 61 25 2c 72 25 2c 75 25 2c 76 25 2c 77 25 29 |,a%,r%,u%,v%,w%)|
00000c70 0d 05 e6 99 e7 20 28 72 25 3d 61 25 20 84 20 72 |..... (r%=a% . r|
00000c80 25 3d 75 25 20 84 20 72 25 3d 76 25 20 84 20 72 |%=u% . r%=v% . r|
00000c90 25 3d 77 25 20 84 20 78 25 3d 61 25 20 84 20 78 |%=w% . x%=a% . x|
00000ca0 25 3d 75 25 20 84 20 78 25 3d 76 25 20 84 20 78 |%=u% . x%=v% . x|
00000cb0 25 3d 77 25 20 84 20 61 25 3d 75 25 20 84 20 61 |%=w% . a%=u% . a|
00000cc0 25 3d 76 25 20 84 20 61 25 3d 77 25 20 84 20 75 |%=v% . a%=w% . u|
00000cd0 25 3d 76 25 20 84 20 75 25 3d 77 25 20 84 20 76 |%=v% . u%=w% . v|
00000ce0 25 3d 77 25 29 20 85 20 31 2c 22 45 72 72 6f 72 |%=w%) . 1,"Error|
00000cf0 20 69 6e 20 61 72 67 75 6d 65 6e 74 73 20 74 6f | in arguments to|
00000d00 20 46 4e 6d 75 6c 31 36 22 0d 05 f0 0d 5b 4f 50 | FNmul16"....[OP|
00000d10 54 20 6f 70 74 25 0d 05 fa 1a 4d 4f 56 53 20 20 |T opt%....MOVS |
00000d20 20 20 77 25 2c 20 61 25 2c 20 4c 53 4c 20 23 31 | w%, a%, LSL #1|
00000d30 0d 06 04 16 52 53 42 43 53 20 20 20 61 25 2c 20 |....RSBCS a%, |
00000d40 61 25 2c 20 23 30 0d 06 0e 12 54 45 51 20 20 20 |a%, #0....TEQ |
00000d50 20 20 78 25 2c 20 23 30 0d 06 18 16 52 53 42 4d | x%, #0....RSBM|
00000d60 49 20 20 20 72 25 2c 20 78 25 2c 20 23 30 0d 06 |I r%, x%, #0..|
00000d70 22 05 5d 0d 06 2c 10 e7 20 72 25 20 3c 3e 20 78 |".]..,.. r% <> x|
00000d80 25 20 8c 0d 06 36 0d 5b 4f 50 54 20 6f 70 74 25 |% ...6.[OPT opt%|
00000d90 0d 06 40 12 4d 4f 56 50 4c 20 20 20 72 25 2c 20 |..@.MOVPL r%, |
00000da0 78 25 0d 06 4a 05 5d 0d 06 54 05 cd 0d 06 5e 0d |x%..J.]..T....^.|
00000db0 5b 4f 50 54 20 6f 70 74 25 0d 06 68 1b 4d 4f 56 |[OPT opt%..h.MOV|
00000dc0 20 20 20 20 20 77 25 2c 20 70 63 2c 20 4c 53 52 | w%, pc, LSR|
00000dd0 20 23 33 31 0d 06 72 1b 4d 4f 56 20 20 20 20 20 | #31..r.MOV |
00000de0 77 25 2c 20 77 25 2c 20 4c 53 4c 20 23 32 38 0d |w%, w%, LSL #28.|
00000df0 06 7c 1a 54 45 51 50 20 20 20 20 77 25 2c 20 70 |.|.TEQP w%, p|
00000e00 63 2c 20 4c 53 52 20 23 31 0d 06 90 1b 4d 4f 56 |c, LSR #1....MOV|
00000e10 20 20 20 20 20 77 25 2c 20 72 25 2c 20 4c 53 52 | w%, r%, LSR|
00000e20 20 23 31 36 0d 06 9a 1f 42 49 43 20 20 20 20 20 | #16....BIC |
00000e30 72 25 2c 20 72 25 2c 20 77 25 2c 20 4c 53 4c 20 |r%, r%, w%, LSL |
00000e40 23 31 36 0d 06 a4 1b 4d 4f 56 20 20 20 20 20 76 |#16....MOV v|
00000e50 25 2c 20 61 25 2c 20 4c 53 52 20 23 31 36 0d 06 |%, a%, LSR #16..|
00000e60 ae 1f 42 49 43 20 20 20 20 20 61 25 2c 20 61 25 |..BIC a%, a%|
00000e70 2c 20 76 25 2c 20 4c 53 4c 20 23 31 36 0d 06 b8 |, v%, LSL #16...|
00000e80 16 4d 55 4c 20 20 20 20 20 75 25 2c 20 61 25 2c |.MUL u%, a%,|
00000e90 20 72 25 0d 06 c2 16 54 53 54 20 20 20 20 20 75 | r%....TST u|
00000ea0 25 2c 20 23 31 3c 3c 31 35 0d 06 d6 1b 4d 4f 56 |%, #1<<15....MOV|
00000eb0 20 20 20 20 20 75 25 2c 20 75 25 2c 20 4c 53 52 | u%, u%, LSR|
00000ec0 20 23 31 36 0d 06 e0 16 41 44 44 4e 45 20 20 20 | #16....ADDNE |
00000ed0 75 25 2c 20 75 25 2c 20 23 31 0d 06 ea 1a 4d 4c |u%, u%, #1....ML|
00000ee0 41 20 20 20 20 20 75 25 2c 20 76 25 2c 20 72 25 |A u%, v%, r%|
00000ef0 2c 20 75 25 0d 06 f4 1a 4d 4c 41 20 20 20 20 20 |, u%....MLA |
00000f00 75 25 2c 20 61 25 2c 20 77 25 2c 20 75 25 0d 06 |u%, a%, w%, u%..|
00000f10 fe 16 4d 55 4c 20 20 20 20 20 72 25 2c 20 76 25 |..MUL r%, v%|
00000f20 2c 20 77 25 0d 07 08 1f 41 44 44 20 20 20 20 20 |, w%....ADD |
00000f30 72 25 2c 20 75 25 2c 20 72 25 2c 20 4c 53 4c 20 |r%, u%, r%, LSL |
00000f40 23 31 36 0d 07 12 16 52 53 42 56 53 20 20 20 72 |#16....RSBVS r|
00000f50 25 2c 20 72 25 2c 20 23 30 0d 07 1c 05 5d 0d 07 |%, r%, #0....]..|
00000f60 26 06 3d 30 0d ff |&.=0..|
00000f66 
.