Home » Archimedes archive » Acorn User » AU 1996-03 B.adf » Regulars » StarInfo/Northcott/Foglia2
StarInfo/Northcott/Foglia2
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 1996-03 B.adf » Regulars |
| Filename: | StarInfo/Northcott/Foglia2 |
| Read OK: | ✔ |
| File size: | 110E bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Foglia
20REM Modified to work regardless of Screen Base Address
30REM also MOUSE control of rotational speed, and mutation rate.
40REM use SELECT to hide pointer, ADJUST to show pointer, MENU to exit
50REM D.Northcott
60
70MODE15
80PRINT''"MOUSE control of rotational speed, and mutation rate."
90PRINT'"use SELECT to hide pointer"'"ADJUST to show pointer"'"MENU to exit"
100PRINT''"Click MOUSE to continue"
110REPEAT:MOUSEX,Y,B:UNTIL B<>0
120REPEAT:MOUSEX,Y,B:UNTIL B=0
130MODE13:OFF
140ONERRORPROCbiterr:END
150
160DIM base 20
170!base=149
180!(base+4)=-1
190SYS "OS_ReadVduVariables",base,base+8
200vdu%=!(base+8)
210
220DIM foglie 18000
230
240FOR PASS=0TO 2 STEP 2
250P%=foglie
260[OPT PASS
270
280.ERASE:ALIGN
290
300MOV R0,#19:SWI "OS_Byte"
310
320LDR R0,BASESCR
330ADD R1,R0,#80*1024
340 MOV R2,#0:MOV R3,#0:MOV R4,#0:MOV R5,#0
350 MOV R6,#0:MOV R7,#0:MOV R8,#0:MOV R9,#0
360.Lcls
370STMIA R0!,{R2-R9}
380STMIA R0!,{R2-R9}
390STMIA R0!,{R2-R9}
400STMIA R0!,{R2-R9}
410CMP R0,R1
420BMI Lcls
430
440MOV R15,R14
450
460.A EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
470 EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
480.B EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
490 EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
500.C EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
510 EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
520.D EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
530 EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
540
550.BASESCR EQUD vdu%+320*255+160
560.Random EQUD -1
570.Mask EQUD %111111111111111
580
590.Mem13 EQUD 0
600.Mem14 EQUD 0
610
620.Draw
630STR R13,Mem13
640STR R14,Mem14
650 ; input R0 = alfa
660AND R0,R0,#255
670ADR R1,sinus
680LDR R13,[R1,R0,LSL#2] ;SIN
690ADD R1,R1,#64*4
700LDR R14,[R1,R0,LSL#2] ;COS
710
720MOV R1,#0 ;X
730MOV R2,#0 ;Y
740MOV R3,#0
750
760LDR R4,Random
770
780MOV R0,#&4F00/32
790.LOOP
800
810ADD R4,R4,R4,ROR#1 ; RND
820
830LDR R9,Mask
840AND R5,R4,R9 ; =J
850
860CMP R5,#320
870ADRMI R6,A
880BMI OK
890CMP R5,#&A40
900ADRMI R6,B ; =K%
910BMI OK
920CMP R5,#&1300
930ADRMI R6,C ; =K%
940ADRPL R6,D ; =K%
950
960.OK
970LDMIA R6!,{R7,R8,R9}
980
990MUL R7,R1,R7
1000MLA R7,R2,R8,R7
1010MLA R7,R3,R9,R7
1020
1030LDMIA R6!,{R8,R9,R10}
1040
1050MUL R8,R1,R8
1060MLA R8,R2,R9,R8
1070MLA R8,R3,R10,R8
1080
1090LDMIA R6!,{R9,R10,R11}
1100
1110MUL R9,R1,R9
1120MLA R9,R2,R10,R9
1130MLA R9,R3,R11,R9
1140
1150LDMIA R6,{R10,R11,R12}
1160ADD R1,R10,R7,ASR#9
1170ADD R2,R11,R8,ASR#9
1180ADD R3,R12,R9,ASR#9
1190
1200MUL R8,R13,R1:RSB R8,R8,#0:MLA R8,R14,R3,R8:MOV R8,R8,ASR#8
1210MUL R9,R14,R1:MLA R9,R13,R3,R9:MOV R9,R9,ASR#8 ; y,z
1220
1230MOV R10,R2,ASR#5 ;?
1240
1250MOV R8,R8,ASR#5
1260ADD R8,R8,#160
1270
1280CMP R8,#320:BCS noP
1290CMN R10,#56:BLE noP
1300CMP R10,#200:BPL noP
1310
1320LDR R12,BASESCR
1330ADD R12,R12,#320*200
1340SUB R11,R12,R10,LSL#8
1350SUB R11,R11,R10,LSL#6
1360AND R12,R4,#%10010111:RSB R12,R12,#255:STRB R12,[R11,R8] ;plot point
1370
1380.noP
1390SUBS R0,R0,#1
1400BNE LOOP
1410
1420LDR R13,Mem13
1430LDR R15,Mem14
1440
1450.sinus
1460]
1470FOR T%=0TO 255+64
1480[OPT PASS : EQUD 256*SIN(2*PI*T%/256)
1490]
1500NEXT
1510[OPT PASS
1520]
1530NEXT
1540
1550BT%=512
1560
1570A!00=BT%*0: B!00=BT%*0.20: C!00=BT%*-0.15: D!00=BT%*0.85
1580A!04=BT%*0: B!04=BT%*-0.26: C!04=BT%*0.28: D!04=BT%*0.04
1590A!08=BT%*0: B!08=BT%*-0.30: C!08=BT%*0.19: D!08=BT%*0.13
1600A!12=BT%*0: B!12=BT%*0.23: C!12=BT%*0.26: D!12=BT%*-0.04
1610
1620A!16=BT%*0.16: B!16=BT%*0.22: C!16=BT%*0.24: D!16=BT%*0.85
1630A!20=BT%*0.3: B!20=BT%*-0.03: C!20=BT%*0.14: D!20=BT%*0.16
1640A!24=BT%*0.0: B!24=BT%*-0.00: C!24=BT%*0.00: D!24=BT%*0.0
1650A!28=BT%*0.0: B!28=BT%*-0.00: C!28=BT%*0.00: D!28=BT%*0.0
1660
1670A!32=BT%*0.2: B!32=BT%*-0.30: C!32=BT%*0.70: D!32=BT%*0.79
1680A!36=BT%*0: B!36=BT%*0: C!36=BT%*0: D!36=BT%*0
1690A!40=BT%*0: B!40=BT%*1.60: C!40=BT%*0.44: D!40=BT%*1.6
1700A!44=BT%*0.5: B!44=BT%*0.5 : C!44=BT%*0.5 : D!44=BT%*0.4
1710
1720SC%=2
1730MF%=75
1740alfplus=1
1750aplus=4
1760ORIGIN 640,512
1770MOUSE RECTANGLE -640,-512,1279,1023
1780MOUSE TO aplus*MF%,alfplus*MF%
1790MOUSE ON
1800ALFA=0
1810REPEAT
1820A%+=aplus:!BASESCR=vdu%+40960*SC%:D!04=BT%*(SIN(ALFA/150)/40+0.15)
1830D!24=256*(SIN(ALFA/060)/10):D!36=BT%*(SIN(ALFA/120))*1.4
1840D!28=2*BT%*(COS(ALFA/170))/4:D!32=BT%*(COS(ALFA/214))
1850CALL ERASE:CALL Draw
1860SYS 6,113,SC%:SC%=2-SC%:ALFA+=alfplus
1870MOUSE XP,YP,BB
1880sbp=BB AND 1:IF sbp>0 MOUSE ON
1890abp=BB AND 4:IF abp>0 MOUSE OFF
1900aplus=XP/MF%:alfplus=YP/MF%
1910UNTIL INKEY(-1) OR (BB AND 2)=2
1920END
1930DEFPROCbiterr
1940*FX112,0
1950*FX113,0
1960IF ERR<>17 THEN REPORT:PRINT" at line ";ERL
1970ENDPROC
� >Foglia
8� Modified to work regardless of Screen Base Address
@� also MOUSE control of rotational speed, and mutation rate.
(F� use SELECT to hide pointer, ADJUST to show pointer, MENU to exit
2� D.Northcott
<
F�15
P>�''"MOUSE control of rotational speed, and mutation rate."
ZJ�'"use SELECT to hide pointer"'"ADJUST to show pointer"'"MENU to exit"
d �''"Click MOUSE to continue"
n�:ȗX,Y,B:� B<>0
x�:ȗX,Y,B:� B=0
� �13:�
���biterr:�
�
�
� base 20
�
!base=149
�!(base+4)=-1
�(ș "OS_ReadVduVariables",base,base+8
�vdu%=!(base+8)
�
�� foglie 18000
�
�� PASS=0� 2 � 2
�
P%=foglie
[OPT PASS
.ERASE:ALIGN
"
, MOV R0,#19:SWI "OS_Byte"
6
@LDR R0,BASESCR
JADD R1,R0,#80*1024
T, MOV R2,#0:MOV R3,#0:MOV R4,#0:MOV R5,#0
^, MOV R6,#0:MOV R7,#0:MOV R8,#0:MOV R9,#0
h .Lcls
rSTMIA R0!,{R2-R9}
|STMIA R0!,{R2-R9}
�STMIA R0!,{R2-R9}
�STMIA R0!,{R2-R9}
�
CMP R0,R1
� BMI Lcls
�
�MOV R15,R14
�
�0.A EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�0 EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�0.B EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�0 EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�0.C EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�0 EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
0.D EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
0 EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
&".BASESCR EQUD vdu%+320*255+160
0.Random EQUD -1
: .Mask EQUD %111111111111111
D
N.Mem13 EQUD 0
X.Mem14 EQUD 0
b
l .Draw
vSTR R13,Mem13
�STR R14,Mem14
�6 ; input R0 = alfa
�� R0,R0,#255
�ADR R1,sinus
� LDR R13,[R1,R0,LSL#2] ;�
�ADD R1,R1,#64*4
� LDR R14,[R1,R0,LSL#2] ;�
�
�MOV R1,#0 ;X
�MOV R2,#0 ;Y
�
MOV R3,#0
�
�LDR R4,Random
MOV R0,#&4F00/32
.LOOP
*ADD R4,R4,R4,ROR#1 ; �
4
>LDR R9,Mask
H� R5,R4,R9 ; =J
R
\CMP R5,#320
fADRMI R6,A
p
BMI OK
zCMP R5,#&A40
�ADRMI R6,B ; =K%
�
BMI OK
�CMP R5,#&1300
�ADRMI R6,C ; =K%
�ADRPL R6,D ; =K%
�
�.OK
�LDMIA R6!,{R7,R8,R9}
�
�MUL R7,R1,R7
�MLA R7,R2,R8,R7
�MLA R7,R3,R9,R7
�
LDMIA R6!,{R8,R9,R10}
MUL R8,R1,R8
$MLA R8,R2,R9,R8
.MLA R8,R3,R10,R8
8
BLDMIA R6!,{R9,R10,R11}
L
VMUL R9,R1,R9
`MLA R9,R2,R10,R9
jMLA R9,R3,R11,R9
t
~LDMIA R6,{R10,R11,R12}
�ADD R1,R10,R7,ASR#9
�ADD R2,R11,R8,ASR#9
�ADD R3,R12,R9,ASR#9
�
�?MUL R8,R13,R1:RSB R8,R8,#0:MLA R8,R14,R3,R8:MOV R8,R8,ASR#8
�;MUL R9,R14,R1:MLA R9,R13,R3,R9:MOV R9,R9,ASR#8 ; y,z
�
�MOV R10,R2,ASR#5 ;?
�
�MOV R8,R8,ASR#5
�ADD R8,R8,#160
�
CMP R8,#320:BCS noP
CMN R10,#56:BLE noP
CMP R10,#200:BPL noP
(LDR R12,BASESCR
2ADD R12,R12,#320*200
<SUB R11,R12,R10,LSL#8
FSUB R11,R11,R10,LSL#6
PF� R12,R4,#%10010111:RSB R12,R12,#255:STRB R12,[R11,R8] ;plot point
Z
d.noP
nSUBS R0,R0,#1
x BNE LOOP
�
�LDR R13,Mem13
�LDR R15,Mem14
�
�
.sinus
�]
�� T%=0� 255+64
�&[OPT PASS : EQUD 256*�(2*�*T%/256)
�]
��
�
[OPT PASS
�]
��
BT%=512
"@A!00=BT%*0: B!00=BT%*0.20: C!00=BT%*-0.15: D!00=BT%*0.85
,@A!04=BT%*0: B!04=BT%*-0.26: C!04=BT%*0.28: D!04=BT%*0.04
6@A!08=BT%*0: B!08=BT%*-0.30: C!08=BT%*0.19: D!08=BT%*0.13
@AA!12=BT%*0: B!12=BT%*0.23: C!12=BT%*0.26: D!12=BT%*-0.04
J
T@A!16=BT%*0.16: B!16=BT%*0.22: C!16=BT%*0.24: D!16=BT%*0.85
^@A!20=BT%*0.3: B!20=BT%*-0.03: C!20=BT%*0.14: D!20=BT%*0.16
h?A!24=BT%*0.0: B!24=BT%*-0.00: C!24=BT%*0.00: D!24=BT%*0.0
r?A!28=BT%*0.0: B!28=BT%*-0.00: C!28=BT%*0.00: D!28=BT%*0.0
|
�@A!32=BT%*0.2: B!32=BT%*-0.30: C!32=BT%*0.70: D!32=BT%*0.79
�=A!36=BT%*0: B!36=BT%*0: C!36=BT%*0: D!36=BT%*0
�?A!40=BT%*0: B!40=BT%*1.60: C!40=BT%*0.44: D!40=BT%*1.6
�?A!44=BT%*0.5: B!44=BT%*0.5 : C!44=BT%*0.5 : D!44=BT%*0.4
�
� SC%=2
�
MF%=75
�
alfplus=1
� aplus=4
�ȑ 640,512
� ȗ ȓ -640,-512,1279,1023
� ȗ � aplus*MF%,alfplus*MF%
�ȗ �
ALFA=0
�
DA%+=aplus:!BASESCR=vdu%+40960*SC%:D!04=BT%*(�(ALFA/150)/40+0.15)
&8D!24=256*(�(ALFA/060)/10):D!36=BT%*(�(ALFA/120))*1.4
05D!28=2*BT%*(�(ALFA/170))/4:D!32=BT%*(�(ALFA/214))
:� ERASE:� Draw
D(ș 6,113,SC%:SC%=2-SC%:ALFA+=alfplus
Nȗ XP,YP,BB
Xsbp=BB � 1:� sbp>0 ȗ �
babp=BB � 4:� abp>0 ȗ �
l aplus=XP/MF%:alfplus=YP/MF%
v� �(-1) � (BB � 2)=2
��
� ��biterr
� *FX112,0
� *FX113,0
� � �<>17 � �:�" at line ";�
��
� 00000000 0d 00 0a 0d f4 20 3e 46 6f 67 6c 69 61 0d 00 14 |..... >Foglia...|
00000010 38 f4 20 4d 6f 64 69 66 69 65 64 20 74 6f 20 77 |8. Modified to w|
00000020 6f 72 6b 20 72 65 67 61 72 64 6c 65 73 73 20 6f |ork regardless o|
00000030 66 20 53 63 72 65 65 6e 20 42 61 73 65 20 41 64 |f Screen Base Ad|
00000040 64 72 65 73 73 0d 00 1e 40 f4 20 61 6c 73 6f 20 |dress...@. also |
00000050 4d 4f 55 53 45 20 63 6f 6e 74 72 6f 6c 20 6f 66 |MOUSE control of|
00000060 20 72 6f 74 61 74 69 6f 6e 61 6c 20 73 70 65 65 | rotational spee|
00000070 64 2c 20 61 6e 64 20 6d 75 74 61 74 69 6f 6e 20 |d, and mutation |
00000080 72 61 74 65 2e 0d 00 28 46 f4 20 75 73 65 20 53 |rate...(F. use S|
00000090 45 4c 45 43 54 20 74 6f 20 68 69 64 65 20 70 6f |ELECT to hide po|
000000a0 69 6e 74 65 72 2c 20 41 44 4a 55 53 54 20 74 6f |inter, ADJUST to|
000000b0 20 73 68 6f 77 20 70 6f 69 6e 74 65 72 2c 20 4d | show pointer, M|
000000c0 45 4e 55 20 74 6f 20 65 78 69 74 0d 00 32 11 f4 |ENU to exit..2..|
000000d0 20 44 2e 4e 6f 72 74 68 63 6f 74 74 0d 00 3c 04 | D.Northcott..<.|
000000e0 0d 00 46 07 eb 31 35 0d 00 50 3e f1 27 27 22 4d |..F..15..P>.''"M|
000000f0 4f 55 53 45 20 63 6f 6e 74 72 6f 6c 20 6f 66 20 |OUSE control of |
00000100 72 6f 74 61 74 69 6f 6e 61 6c 20 73 70 65 65 64 |rotational speed|
00000110 2c 20 61 6e 64 20 6d 75 74 61 74 69 6f 6e 20 72 |, and mutation r|
00000120 61 74 65 2e 22 0d 00 5a 4a f1 27 22 75 73 65 20 |ate."..ZJ.'"use |
00000130 53 45 4c 45 43 54 20 74 6f 20 68 69 64 65 20 70 |SELECT to hide p|
00000140 6f 69 6e 74 65 72 22 27 22 41 44 4a 55 53 54 20 |ointer"'"ADJUST |
00000150 74 6f 20 73 68 6f 77 20 70 6f 69 6e 74 65 72 22 |to show pointer"|
00000160 27 22 4d 45 4e 55 20 74 6f 20 65 78 69 74 22 0d |'"MENU to exit".|
00000170 00 64 20 f1 27 27 22 43 6c 69 63 6b 20 4d 4f 55 |.d .''"Click MOU|
00000180 53 45 20 74 6f 20 63 6f 6e 74 69 6e 75 65 22 0d |SE to continue".|
00000190 00 6e 14 f5 3a c8 97 58 2c 59 2c 42 3a fd 20 42 |.n..:..X,Y,B:. B|
000001a0 3c 3e 30 0d 00 78 13 f5 3a c8 97 58 2c 59 2c 42 |<>0..x..:..X,Y,B|
000001b0 3a fd 20 42 3d 30 0d 00 82 09 eb 31 33 3a 87 0d |:. B=0.....13:..|
000001c0 00 8c 0f ee 85 f2 62 69 74 65 72 72 3a e0 0d 00 |......biterr:...|
000001d0 96 04 0d 00 a0 0d de 20 62 61 73 65 20 32 30 0d |....... base 20.|
000001e0 00 aa 0d 21 62 61 73 65 3d 31 34 39 0d 00 b4 10 |...!base=149....|
000001f0 21 28 62 61 73 65 2b 34 29 3d 2d 31 0d 00 be 28 |!(base+4)=-1...(|
00000200 c8 99 20 22 4f 53 5f 52 65 61 64 56 64 75 56 61 |.. "OS_ReadVduVa|
00000210 72 69 61 62 6c 65 73 22 2c 62 61 73 65 2c 62 61 |riables",base,ba|
00000220 73 65 2b 38 0d 00 c8 12 76 64 75 25 3d 21 28 62 |se+8....vdu%=!(b|
00000230 61 73 65 2b 38 29 0d 00 d2 04 0d 00 dc 12 de 20 |ase+8)......... |
00000240 66 6f 67 6c 69 65 20 31 38 30 30 30 0d 00 e6 04 |foglie 18000....|
00000250 0d 00 f0 13 e3 20 50 41 53 53 3d 30 b8 20 32 20 |..... PASS=0. 2 |
00000260 88 20 32 0d 00 fa 0d 50 25 3d 66 6f 67 6c 69 65 |. 2....P%=foglie|
00000270 0d 01 04 0d 5b 4f 50 54 20 50 41 53 53 0d 01 0e |....[OPT PASS...|
00000280 04 0d 01 18 10 2e 45 52 41 53 45 3a 41 4c 49 47 |......ERASE:ALIG|
00000290 4e 0d 01 22 04 0d 01 2c 1c 4d 4f 56 20 52 30 2c |N.."...,.MOV R0,|
000002a0 23 31 39 3a 53 57 49 20 22 4f 53 5f 42 79 74 65 |#19:SWI "OS_Byte|
000002b0 22 0d 01 36 04 0d 01 40 12 4c 44 52 20 52 30 2c |"..6...@.LDR R0,|
000002c0 42 41 53 45 53 43 52 0d 01 4a 16 41 44 44 20 52 |BASESCR..J.ADD R|
000002d0 31 2c 52 30 2c 23 38 30 2a 31 30 32 34 0d 01 54 |1,R0,#80*1024..T|
000002e0 2c 20 4d 4f 56 20 52 32 2c 23 30 3a 4d 4f 56 20 |, MOV R2,#0:MOV |
000002f0 52 33 2c 23 30 3a 4d 4f 56 20 52 34 2c 23 30 3a |R3,#0:MOV R4,#0:|
00000300 4d 4f 56 20 52 35 2c 23 30 0d 01 5e 2c 20 4d 4f |MOV R5,#0..^, MO|
00000310 56 20 52 36 2c 23 30 3a 4d 4f 56 20 52 37 2c 23 |V R6,#0:MOV R7,#|
00000320 30 3a 4d 4f 56 20 52 38 2c 23 30 3a 4d 4f 56 20 |0:MOV R8,#0:MOV |
00000330 52 39 2c 23 30 0d 01 68 09 2e 4c 63 6c 73 0d 01 |R9,#0..h..Lcls..|
00000340 72 15 53 54 4d 49 41 20 52 30 21 2c 7b 52 32 2d |r.STMIA R0!,{R2-|
00000350 52 39 7d 0d 01 7c 15 53 54 4d 49 41 20 52 30 21 |R9}..|.STMIA R0!|
00000360 2c 7b 52 32 2d 52 39 7d 0d 01 86 15 53 54 4d 49 |,{R2-R9}....STMI|
00000370 41 20 52 30 21 2c 7b 52 32 2d 52 39 7d 0d 01 90 |A R0!,{R2-R9}...|
00000380 15 53 54 4d 49 41 20 52 30 21 2c 7b 52 32 2d 52 |.STMIA R0!,{R2-R|
00000390 39 7d 0d 01 9a 0d 43 4d 50 20 52 30 2c 52 31 0d |9}....CMP R0,R1.|
000003a0 01 a4 0c 42 4d 49 20 4c 63 6c 73 0d 01 ae 04 0d |...BMI Lcls.....|
000003b0 01 b8 0f 4d 4f 56 20 52 31 35 2c 52 31 34 0d 01 |...MOV R15,R14..|
000003c0 c2 04 0d 01 cc 30 2e 41 20 45 51 55 44 20 30 3a |.....0.A EQUD 0:|
000003d0 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
000003e0 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 |UD 0:EQUD 0:EQUD|
000003f0 20 30 0d 01 d6 30 20 20 20 45 51 55 44 20 30 3a | 0...0 EQUD 0:|
00000400 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
00000410 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 |UD 0:EQUD 0:EQUD|
00000420 20 30 0d 01 e0 30 2e 42 20 45 51 55 44 20 30 3a | 0...0.B EQUD 0:|
00000430 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
00000440 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 |UD 0:EQUD 0:EQUD|
00000450 20 30 0d 01 ea 30 20 20 20 45 51 55 44 20 30 3a | 0...0 EQUD 0:|
00000460 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
00000470 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 |UD 0:EQUD 0:EQUD|
00000480 20 30 0d 01 f4 30 2e 43 20 45 51 55 44 20 30 3a | 0...0.C EQUD 0:|
00000490 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
000004a0 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 |UD 0:EQUD 0:EQUD|
000004b0 20 30 0d 01 fe 30 20 20 20 45 51 55 44 20 30 3a | 0...0 EQUD 0:|
000004c0 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
000004d0 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 |UD 0:EQUD 0:EQUD|
000004e0 20 30 0d 02 08 30 2e 44 20 45 51 55 44 20 30 3a | 0...0.D EQUD 0:|
000004f0 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
00000500 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 |UD 0:EQUD 0:EQUD|
00000510 20 30 0d 02 12 30 20 20 20 45 51 55 44 20 30 3a | 0...0 EQUD 0:|
00000520 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
00000530 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 |UD 0:EQUD 0:EQUD|
00000540 20 30 0d 02 1c 04 0d 02 26 22 2e 42 41 53 45 53 | 0......&".BASES|
00000550 43 52 20 45 51 55 44 20 76 64 75 25 2b 33 32 30 |CR EQUD vdu%+320|
00000560 2a 32 35 35 2b 31 36 30 0d 02 30 13 2e 52 61 6e |*255+160..0..Ran|
00000570 64 6f 6d 20 45 51 55 44 20 2d 31 0d 02 3a 1f 2e |dom EQUD -1..:..|
00000580 4d 61 73 6b 20 45 51 55 44 20 25 31 31 31 31 31 |Mask EQUD %11111|
00000590 31 31 31 31 31 31 31 31 31 31 0d 02 44 04 0d 02 |1111111111..D...|
000005a0 4e 11 2e 4d 65 6d 31 33 20 45 51 55 44 20 30 0d |N..Mem13 EQUD 0.|
000005b0 02 58 11 2e 4d 65 6d 31 34 20 45 51 55 44 20 30 |.X..Mem14 EQUD 0|
000005c0 0d 02 62 04 0d 02 6c 09 2e 44 72 61 77 0d 02 76 |..b...l..Draw..v|
000005d0 11 53 54 52 20 52 31 33 2c 4d 65 6d 31 33 0d 02 |.STR R13,Mem13..|
000005e0 80 11 53 54 52 20 52 31 34 2c 4d 65 6d 31 34 0d |..STR R14,Mem14.|
000005f0 02 8a 36 20 20 20 20 20 20 20 20 20 20 20 20 20 |..6 |
00000600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000610 20 20 20 20 3b 20 69 6e 70 75 74 20 52 30 20 3d | ; input R0 =|
00000620 20 61 6c 66 61 0d 02 94 10 80 20 52 30 2c 52 30 | alfa..... R0,R0|
00000630 2c 23 32 35 35 0d 02 9e 10 41 44 52 20 52 31 2c |,#255....ADR R1,|
00000640 73 69 6e 75 73 0d 02 a8 1e 4c 44 52 20 52 31 33 |sinus....LDR R13|
00000650 2c 5b 52 31 2c 52 30 2c 4c 53 4c 23 32 5d 20 20 |,[R1,R0,LSL#2] |
00000660 20 3b b5 0d 02 b2 13 41 44 44 20 52 31 2c 52 31 | ;.....ADD R1,R1|
00000670 2c 23 36 34 2a 34 0d 02 bc 1e 4c 44 52 20 52 31 |,#64*4....LDR R1|
00000680 34 2c 5b 52 31 2c 52 30 2c 4c 53 4c 23 32 5d 20 |4,[R1,R0,LSL#2] |
00000690 20 20 3b 9b 0d 02 c6 04 0d 02 d0 11 4d 4f 56 20 | ;.........MOV |
000006a0 52 31 2c 23 30 20 20 3b 58 0d 02 da 11 4d 4f 56 |R1,#0 ;X....MOV|
000006b0 20 52 32 2c 23 30 20 20 3b 59 0d 02 e4 0d 4d 4f | R2,#0 ;Y....MO|
000006c0 56 20 52 33 2c 23 30 0d 02 ee 04 0d 02 f8 11 4c |V R3,#0........L|
000006d0 44 52 20 52 34 2c 52 61 6e 64 6f 6d 0d 03 02 04 |DR R4,Random....|
000006e0 0d 03 0c 14 4d 4f 56 20 52 30 2c 23 26 34 46 30 |....MOV R0,#&4F0|
000006f0 30 2f 33 32 0d 03 16 09 2e 4c 4f 4f 50 0d 03 20 |0/32.....LOOP.. |
00000700 04 0d 03 2a 1a 41 44 44 20 52 34 2c 52 34 2c 52 |...*.ADD R4,R4,R|
00000710 34 2c 52 4f 52 23 31 20 3b 20 b3 0d 03 34 04 0d |4,ROR#1 ; ...4..|
00000720 03 3e 0f 4c 44 52 20 52 39 2c 4d 61 73 6b 0d 03 |.>.LDR R9,Mask..|
00000730 48 13 80 20 52 35 2c 52 34 2c 52 39 20 3b 20 3d |H.. R5,R4,R9 ; =|
00000740 4a 0d 03 52 04 0d 03 5c 0f 43 4d 50 20 52 35 2c |J..R...\.CMP R5,|
00000750 23 33 32 30 0d 03 66 0e 41 44 52 4d 49 20 52 36 |#320..f.ADRMI R6|
00000760 2c 41 0d 03 70 0a 42 4d 49 20 4f 4b 0d 03 7a 10 |,A..p.BMI OK..z.|
00000770 43 4d 50 20 52 35 2c 23 26 41 34 30 0d 03 84 14 |CMP R5,#&A40....|
00000780 41 44 52 4d 49 20 52 36 2c 42 20 3b 20 3d 4b 25 |ADRMI R6,B ; =K%|
00000790 0d 03 8e 0a 42 4d 49 20 4f 4b 0d 03 98 11 43 4d |....BMI OK....CM|
000007a0 50 20 52 35 2c 23 26 31 33 30 30 0d 03 a2 14 41 |P R5,#&1300....A|
000007b0 44 52 4d 49 20 52 36 2c 43 20 3b 20 3d 4b 25 0d |DRMI R6,C ; =K%.|
000007c0 03 ac 14 41 44 52 50 4c 20 52 36 2c 44 20 3b 20 |...ADRPL R6,D ; |
000007d0 3d 4b 25 0d 03 b6 04 0d 03 c0 07 2e 4f 4b 0d 03 |=K%.........OK..|
000007e0 ca 18 4c 44 4d 49 41 20 52 36 21 2c 7b 52 37 2c |..LDMIA R6!,{R7,|
000007f0 52 38 2c 52 39 7d 0d 03 d4 04 0d 03 de 10 4d 55 |R8,R9}........MU|
00000800 4c 20 52 37 2c 52 31 2c 52 37 0d 03 e8 13 4d 4c |L R7,R1,R7....ML|
00000810 41 20 52 37 2c 52 32 2c 52 38 2c 52 37 0d 03 f2 |A R7,R2,R8,R7...|
00000820 13 4d 4c 41 20 52 37 2c 52 33 2c 52 39 2c 52 37 |.MLA R7,R3,R9,R7|
00000830 0d 03 fc 04 0d 04 06 19 4c 44 4d 49 41 20 52 36 |........LDMIA R6|
00000840 21 2c 7b 52 38 2c 52 39 2c 52 31 30 7d 0d 04 10 |!,{R8,R9,R10}...|
00000850 04 0d 04 1a 10 4d 55 4c 20 52 38 2c 52 31 2c 52 |.....MUL R8,R1,R|
00000860 38 0d 04 24 13 4d 4c 41 20 52 38 2c 52 32 2c 52 |8..$.MLA R8,R2,R|
00000870 39 2c 52 38 0d 04 2e 14 4d 4c 41 20 52 38 2c 52 |9,R8....MLA R8,R|
00000880 33 2c 52 31 30 2c 52 38 0d 04 38 04 0d 04 42 1a |3,R10,R8..8...B.|
00000890 4c 44 4d 49 41 20 52 36 21 2c 7b 52 39 2c 52 31 |LDMIA R6!,{R9,R1|
000008a0 30 2c 52 31 31 7d 0d 04 4c 04 0d 04 56 10 4d 55 |0,R11}..L...V.MU|
000008b0 4c 20 52 39 2c 52 31 2c 52 39 0d 04 60 14 4d 4c |L R9,R1,R9..`.ML|
000008c0 41 20 52 39 2c 52 32 2c 52 31 30 2c 52 39 0d 04 |A R9,R2,R10,R9..|
000008d0 6a 14 4d 4c 41 20 52 39 2c 52 33 2c 52 31 31 2c |j.MLA R9,R3,R11,|
000008e0 52 39 0d 04 74 04 0d 04 7e 1a 4c 44 4d 49 41 20 |R9..t...~.LDMIA |
000008f0 52 36 2c 7b 52 31 30 2c 52 31 31 2c 52 31 32 7d |R6,{R10,R11,R12}|
00000900 0d 04 88 17 41 44 44 20 52 31 2c 52 31 30 2c 52 |....ADD R1,R10,R|
00000910 37 2c 41 53 52 23 39 0d 04 92 17 41 44 44 20 52 |7,ASR#9....ADD R|
00000920 32 2c 52 31 31 2c 52 38 2c 41 53 52 23 39 0d 04 |2,R11,R8,ASR#9..|
00000930 9c 17 41 44 44 20 52 33 2c 52 31 32 2c 52 39 2c |..ADD R3,R12,R9,|
00000940 41 53 52 23 39 0d 04 a6 04 0d 04 b0 3f 4d 55 4c |ASR#9.......?MUL|
00000950 20 52 38 2c 52 31 33 2c 52 31 3a 52 53 42 20 52 | R8,R13,R1:RSB R|
00000960 38 2c 52 38 2c 23 30 3a 4d 4c 41 20 52 38 2c 52 |8,R8,#0:MLA R8,R|
00000970 31 34 2c 52 33 2c 52 38 3a 4d 4f 56 20 52 38 2c |14,R3,R8:MOV R8,|
00000980 52 38 2c 41 53 52 23 38 0d 04 ba 3b 4d 55 4c 20 |R8,ASR#8...;MUL |
00000990 52 39 2c 52 31 34 2c 52 31 3a 4d 4c 41 20 52 39 |R9,R14,R1:MLA R9|
000009a0 2c 52 31 33 2c 52 33 2c 52 39 3a 4d 4f 56 20 52 |,R13,R3,R9:MOV R|
000009b0 39 2c 52 39 2c 41 53 52 23 38 20 20 20 20 3b 20 |9,R9,ASR#8 ; |
000009c0 79 2c 7a 0d 04 c4 04 0d 04 ce 19 4d 4f 56 20 52 |y,z........MOV R|
000009d0 31 30 2c 52 32 2c 41 53 52 23 35 20 20 20 3b 3f |10,R2,ASR#5 ;?|
000009e0 0d 04 d8 04 0d 04 e2 13 4d 4f 56 20 52 38 2c 52 |........MOV R8,R|
000009f0 38 2c 41 53 52 23 35 0d 04 ec 12 41 44 44 20 52 |8,ASR#5....ADD R|
00000a00 38 2c 52 38 2c 23 31 36 30 0d 04 f6 04 0d 05 00 |8,R8,#160.......|
00000a10 17 43 4d 50 20 52 38 2c 23 33 32 30 3a 42 43 53 |.CMP R8,#320:BCS|
00000a20 20 6e 6f 50 0d 05 0a 17 43 4d 4e 20 52 31 30 2c | noP....CMN R10,|
00000a30 23 35 36 3a 42 4c 45 20 6e 6f 50 0d 05 14 18 43 |#56:BLE noP....C|
00000a40 4d 50 20 52 31 30 2c 23 32 30 30 3a 42 50 4c 20 |MP R10,#200:BPL |
00000a50 6e 6f 50 0d 05 1e 04 0d 05 28 13 4c 44 52 20 52 |noP......(.LDR R|
00000a60 31 32 2c 42 41 53 45 53 43 52 0d 05 32 18 41 44 |12,BASESCR..2.AD|
00000a70 44 20 52 31 32 2c 52 31 32 2c 23 33 32 30 2a 32 |D R12,R12,#320*2|
00000a80 30 30 0d 05 3c 19 53 55 42 20 52 31 31 2c 52 31 |00..<.SUB R11,R1|
00000a90 32 2c 52 31 30 2c 4c 53 4c 23 38 0d 05 46 19 53 |2,R10,LSL#8..F.S|
00000aa0 55 42 20 52 31 31 2c 52 31 31 2c 52 31 30 2c 4c |UB R11,R11,R10,L|
00000ab0 53 4c 23 36 0d 05 50 46 80 20 52 31 32 2c 52 34 |SL#6..PF. R12,R4|
00000ac0 2c 23 25 31 30 30 31 30 31 31 31 3a 52 53 42 20 |,#%10010111:RSB |
00000ad0 52 31 32 2c 52 31 32 2c 23 32 35 35 3a 53 54 52 |R12,R12,#255:STR|
00000ae0 42 20 52 31 32 2c 5b 52 31 31 2c 52 38 5d 20 3b |B R12,[R11,R8] ;|
00000af0 70 6c 6f 74 20 70 6f 69 6e 74 0d 05 5a 04 0d 05 |plot point..Z...|
00000b00 64 08 2e 6e 6f 50 0d 05 6e 11 53 55 42 53 20 52 |d..noP..n.SUBS R|
00000b10 30 2c 52 30 2c 23 31 0d 05 78 0c 42 4e 45 20 4c |0,R0,#1..x.BNE L|
00000b20 4f 4f 50 0d 05 82 04 0d 05 8c 11 4c 44 52 20 52 |OOP........LDR R|
00000b30 31 33 2c 4d 65 6d 31 33 0d 05 96 11 4c 44 52 20 |13,Mem13....LDR |
00000b40 52 31 35 2c 4d 65 6d 31 34 0d 05 a0 04 0d 05 aa |R15,Mem14.......|
00000b50 0a 2e 73 69 6e 75 73 0d 05 b4 05 5d 0d 05 be 12 |..sinus....]....|
00000b60 e3 20 54 25 3d 30 b8 20 32 35 35 2b 36 34 0d 05 |. T%=0. 255+64..|
00000b70 c8 26 5b 4f 50 54 20 50 41 53 53 20 3a 20 45 51 |.&[OPT PASS : EQ|
00000b80 55 44 20 32 35 36 2a b5 28 32 2a af 2a 54 25 2f |UD 256*.(2*.*T%/|
00000b90 32 35 36 29 0d 05 d2 05 5d 0d 05 dc 05 ed 0d 05 |256)....].......|
00000ba0 e6 0d 5b 4f 50 54 20 50 41 53 53 0d 05 f0 05 5d |..[OPT PASS....]|
00000bb0 0d 05 fa 05 ed 0d 06 04 04 0d 06 0e 0b 42 54 25 |.............BT%|
00000bc0 3d 35 31 32 0d 06 18 04 0d 06 22 40 41 21 30 30 |=512......"@A!00|
00000bd0 3d 42 54 25 2a 30 3a 20 20 20 20 42 21 30 30 3d |=BT%*0: B!00=|
00000be0 42 54 25 2a 30 2e 32 30 3a 20 20 43 21 30 30 3d |BT%*0.20: C!00=|
00000bf0 42 54 25 2a 2d 30 2e 31 35 3a 20 44 21 30 30 3d |BT%*-0.15: D!00=|
00000c00 42 54 25 2a 30 2e 38 35 0d 06 2c 40 41 21 30 34 |BT%*0.85..,@A!04|
00000c10 3d 42 54 25 2a 30 3a 20 20 20 20 42 21 30 34 3d |=BT%*0: B!04=|
00000c20 42 54 25 2a 2d 30 2e 32 36 3a 20 43 21 30 34 3d |BT%*-0.26: C!04=|
00000c30 42 54 25 2a 30 2e 32 38 3a 20 20 44 21 30 34 3d |BT%*0.28: D!04=|
00000c40 42 54 25 2a 30 2e 30 34 0d 06 36 40 41 21 30 38 |BT%*0.04..6@A!08|
00000c50 3d 42 54 25 2a 30 3a 20 20 20 20 42 21 30 38 3d |=BT%*0: B!08=|
00000c60 42 54 25 2a 2d 30 2e 33 30 3a 20 43 21 30 38 3d |BT%*-0.30: C!08=|
00000c70 42 54 25 2a 30 2e 31 39 3a 20 20 44 21 30 38 3d |BT%*0.19: D!08=|
00000c80 42 54 25 2a 30 2e 31 33 0d 06 40 41 41 21 31 32 |BT%*0.13..@AA!12|
00000c90 3d 42 54 25 2a 30 3a 20 20 20 20 42 21 31 32 3d |=BT%*0: B!12=|
00000ca0 42 54 25 2a 30 2e 32 33 3a 20 20 43 21 31 32 3d |BT%*0.23: C!12=|
00000cb0 42 54 25 2a 30 2e 32 36 3a 20 20 44 21 31 32 3d |BT%*0.26: D!12=|
00000cc0 42 54 25 2a 2d 30 2e 30 34 0d 06 4a 04 0d 06 54 |BT%*-0.04..J...T|
00000cd0 40 41 21 31 36 3d 42 54 25 2a 30 2e 31 36 3a 20 |@A!16=BT%*0.16: |
00000ce0 42 21 31 36 3d 42 54 25 2a 30 2e 32 32 3a 20 20 |B!16=BT%*0.22: |
00000cf0 43 21 31 36 3d 42 54 25 2a 30 2e 32 34 3a 20 20 |C!16=BT%*0.24: |
00000d00 44 21 31 36 3d 42 54 25 2a 30 2e 38 35 0d 06 5e |D!16=BT%*0.85..^|
00000d10 40 41 21 32 30 3d 42 54 25 2a 30 2e 33 3a 20 20 |@A!20=BT%*0.3: |
00000d20 42 21 32 30 3d 42 54 25 2a 2d 30 2e 30 33 3a 20 |B!20=BT%*-0.03: |
00000d30 43 21 32 30 3d 42 54 25 2a 30 2e 31 34 3a 20 20 |C!20=BT%*0.14: |
00000d40 44 21 32 30 3d 42 54 25 2a 30 2e 31 36 0d 06 68 |D!20=BT%*0.16..h|
00000d50 3f 41 21 32 34 3d 42 54 25 2a 30 2e 30 3a 20 20 |?A!24=BT%*0.0: |
00000d60 42 21 32 34 3d 42 54 25 2a 2d 30 2e 30 30 3a 20 |B!24=BT%*-0.00: |
00000d70 43 21 32 34 3d 42 54 25 2a 30 2e 30 30 3a 20 20 |C!24=BT%*0.00: |
00000d80 44 21 32 34 3d 42 54 25 2a 30 2e 30 0d 06 72 3f |D!24=BT%*0.0..r?|
00000d90 41 21 32 38 3d 42 54 25 2a 30 2e 30 3a 20 20 42 |A!28=BT%*0.0: B|
00000da0 21 32 38 3d 42 54 25 2a 2d 30 2e 30 30 3a 20 43 |!28=BT%*-0.00: C|
00000db0 21 32 38 3d 42 54 25 2a 30 2e 30 30 3a 20 20 44 |!28=BT%*0.00: D|
00000dc0 21 32 38 3d 42 54 25 2a 30 2e 30 0d 06 7c 04 0d |!28=BT%*0.0..|..|
00000dd0 06 86 40 41 21 33 32 3d 42 54 25 2a 30 2e 32 3a |..@A!32=BT%*0.2:|
00000de0 20 20 42 21 33 32 3d 42 54 25 2a 2d 30 2e 33 30 | B!32=BT%*-0.30|
00000df0 3a 20 43 21 33 32 3d 42 54 25 2a 30 2e 37 30 3a |: C!32=BT%*0.70:|
00000e00 20 20 44 21 33 32 3d 42 54 25 2a 30 2e 37 39 0d | D!32=BT%*0.79.|
00000e10 06 90 3d 41 21 33 36 3d 42 54 25 2a 30 3a 20 20 |..=A!36=BT%*0: |
00000e20 20 20 42 21 33 36 3d 42 54 25 2a 30 3a 20 20 20 | B!36=BT%*0: |
00000e30 20 20 43 21 33 36 3d 42 54 25 2a 30 3a 20 20 20 | C!36=BT%*0: |
00000e40 20 20 44 21 33 36 3d 42 54 25 2a 30 0d 06 9a 3f | D!36=BT%*0...?|
00000e50 41 21 34 30 3d 42 54 25 2a 30 3a 20 20 20 20 42 |A!40=BT%*0: B|
00000e60 21 34 30 3d 42 54 25 2a 31 2e 36 30 3a 20 20 43 |!40=BT%*1.60: C|
00000e70 21 34 30 3d 42 54 25 2a 30 2e 34 34 3a 20 20 44 |!40=BT%*0.44: D|
00000e80 21 34 30 3d 42 54 25 2a 31 2e 36 0d 06 a4 3f 41 |!40=BT%*1.6...?A|
00000e90 21 34 34 3d 42 54 25 2a 30 2e 35 3a 20 20 42 21 |!44=BT%*0.5: B!|
00000ea0 34 34 3d 42 54 25 2a 30 2e 35 20 3a 20 20 43 21 |44=BT%*0.5 : C!|
00000eb0 34 34 3d 42 54 25 2a 30 2e 35 20 3a 20 20 44 21 |44=BT%*0.5 : D!|
00000ec0 34 34 3d 42 54 25 2a 30 2e 34 0d 06 ae 04 0d 06 |44=BT%*0.4......|
00000ed0 b8 09 53 43 25 3d 32 0d 06 c2 0a 4d 46 25 3d 37 |..SC%=2....MF%=7|
00000ee0 35 0d 06 cc 0d 61 6c 66 70 6c 75 73 3d 31 0d 06 |5....alfplus=1..|
00000ef0 d6 0b 61 70 6c 75 73 3d 34 0d 06 e0 0e c8 91 20 |..aplus=4...... |
00000f00 36 34 30 2c 35 31 32 0d 06 ea 1d c8 97 20 c8 93 |640,512...... ..|
00000f10 20 2d 36 34 30 2c 2d 35 31 32 2c 31 32 37 39 2c | -640,-512,1279,|
00000f20 31 30 32 33 0d 06 f4 1e c8 97 20 b8 20 61 70 6c |1023...... . apl|
00000f30 75 73 2a 4d 46 25 2c 61 6c 66 70 6c 75 73 2a 4d |us*MF%,alfplus*M|
00000f40 46 25 0d 06 fe 08 c8 97 20 ee 0d 07 08 0a 41 4c |F%...... .....AL|
00000f50 46 41 3d 30 0d 07 12 05 f5 0d 07 1c 44 41 25 2b |FA=0........DA%+|
00000f60 3d 61 70 6c 75 73 3a 21 42 41 53 45 53 43 52 3d |=aplus:!BASESCR=|
00000f70 76 64 75 25 2b 34 30 39 36 30 2a 53 43 25 3a 44 |vdu%+40960*SC%:D|
00000f80 21 30 34 3d 42 54 25 2a 28 b5 28 41 4c 46 41 2f |!04=BT%*(.(ALFA/|
00000f90 31 35 30 29 2f 34 30 2b 30 2e 31 35 29 0d 07 26 |150)/40+0.15)..&|
00000fa0 38 44 21 32 34 3d 32 35 36 2a 28 b5 28 41 4c 46 |8D!24=256*(.(ALF|
00000fb0 41 2f 30 36 30 29 2f 31 30 29 3a 44 21 33 36 3d |A/060)/10):D!36=|
00000fc0 42 54 25 2a 28 b5 28 41 4c 46 41 2f 31 32 30 29 |BT%*(.(ALFA/120)|
00000fd0 29 2a 31 2e 34 0d 07 30 35 44 21 32 38 3d 32 2a |)*1.4..05D!28=2*|
00000fe0 42 54 25 2a 28 9b 28 41 4c 46 41 2f 31 37 30 29 |BT%*(.(ALFA/170)|
00000ff0 29 2f 34 3a 44 21 33 32 3d 42 54 25 2a 28 9b 28 |)/4:D!32=BT%*(.(|
00001000 41 4c 46 41 2f 32 31 34 29 29 0d 07 3a 12 d6 20 |ALFA/214))..:.. |
00001010 45 52 41 53 45 3a d6 20 44 72 61 77 0d 07 44 28 |ERASE:. Draw..D(|
00001020 c8 99 20 36 2c 31 31 33 2c 53 43 25 3a 53 43 25 |.. 6,113,SC%:SC%|
00001030 3d 32 2d 53 43 25 3a 41 4c 46 41 2b 3d 61 6c 66 |=2-SC%:ALFA+=alf|
00001040 70 6c 75 73 0d 07 4e 0f c8 97 20 58 50 2c 59 50 |plus..N... XP,YP|
00001050 2c 42 42 0d 07 58 1b 73 62 70 3d 42 42 20 80 20 |,BB..X.sbp=BB . |
00001060 31 3a e7 20 73 62 70 3e 30 20 c8 97 20 ee 0d 07 |1:. sbp>0 .. ...|
00001070 62 1b 61 62 70 3d 42 42 20 80 20 34 3a e7 20 61 |b.abp=BB . 4:. a|
00001080 62 70 3e 30 20 c8 97 20 87 0d 07 6c 1f 61 70 6c |bp>0 .. ...l.apl|
00001090 75 73 3d 58 50 2f 4d 46 25 3a 61 6c 66 70 6c 75 |us=XP/MF%:alfplu|
000010a0 73 3d 59 50 2f 4d 46 25 0d 07 76 18 fd 20 a6 28 |s=YP/MF%..v.. .(|
000010b0 2d 31 29 20 84 20 28 42 42 20 80 20 32 29 3d 32 |-1) . (BB . 2)=2|
000010c0 0d 07 80 05 e0 0d 07 8a 0c dd f2 62 69 74 65 72 |...........biter|
000010d0 72 0d 07 94 0c 2a 46 58 31 31 32 2c 30 0d 07 9e |r....*FX112,0...|
000010e0 0c 2a 46 58 31 31 33 2c 30 0d 07 a8 1e e7 20 9f |.*FX113,0..... .|
000010f0 3c 3e 31 37 20 8c 20 f6 3a f1 22 20 61 74 20 6c |<>17 . .:." at l|
00001100 69 6e 65 20 22 3b 9e 0d 07 b2 05 e1 0d ff |ine ";........|
0000110e 
.