Home » Archimedes archive » Acorn User » AU 1998-10.adf » Regulars » StarInfo/Smith/URhere13
StarInfo/Smith/URhere13
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 1998-10.adf » Regulars |
| Filename: | StarInfo/Smith/URhere13 |
| Read OK: | ✔ |
| File size: | 1D32 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >youRhere13
20REM by Stu Smith
30
40ON ERROR MODE 20:SYS"Hourglass_Smash":PRINT REPORT$;" at line ";ERL:END
50
60steps% = 513 : REM subdivisions in 360 deg.
70dots% = 8193 : REM no. of stars in galaxy
80per = 900 : REM perspective distance
90yp = 512 : REM y position of stars in galaxy
100numst% = 130 : REM no. of stars in background
110inca% = 129 : REM angle increment for galaxy shape
120incd% = 1 : REM distance incrememt for galaxy shape
130
140SYS "Hourglass_On"
150
160PROCassm
170MODE 15:MODE 13
180OFF
190DIM vdu% 8
200CALL swap
210PRINT"Please wait..."
220!vdu%=148:vdu%!4=-1
230SYS "OS_ReadVduVariables",vdu%,vdu%
240!st1 = !vdu%
250CALL swap
260!vdu%=148:vdu%!4=-1
270SYS "OS_ReadVduVariables",vdu%,vdu%
280!st2 = !vdu%
290
300FOR s%=0 TO numst%-1
310!(stars+s%*16) = RND(319)-1
320!(stars+s%*16+4) = RND(254)-1
330!(stars+s%*16+8) = RND(31)
340IF RND(2)=1 THEN
350!(stars+s%*16+12) = 1
360ELSE
370!(stars+s%*16+12) = -1
380ENDIF
390NEXT
400
410FOR ang=0 TO steps%-1
420x=SINRAD(360*ang/steps%)*639
430z=COSRAD(360*ang/steps%)*639+1200
440xx%=per*(x/z)
450yy%=per*(yp/z)-460
460
470IF xx% > 639 xx% = 639
480IF xx% < -639 xx% = -639
490IF yy% > 512 yy% = 512
500IF yy% < -512 yy% = -512
510
520!(table+ang*16) = (xx%/4)
530!(table+ang*16+4) = (yy%/4)
540!(table+ang*16+8) = 255
550NEXT
560
570di%=0
580an%=0
590
600cutoff%=0.6*dots%
610
620FOR d%=0 TO cutoff%
630SYS "Hourglass_Percentage",d%*100/dots%
640di%+=incd%
650an%+=inca%
660
670IF an%>=steps% an%-=steps%
680IF di%>=256 di%-=256
690
700anv%=an%+RND(20)-10
710div%=di%+RND(20)-10
720
730IF anv% < 0 anv%+=steps%
740IF anv% >= steps% anv%-=steps%
750IF div% < 0 div%+=256
760IF div% >= 256 div%-=256
770!(dots+d%*12) = anv%
780!(dots+d%*12+4) = div%
790!(dots+d%*12+8) = RND(25)+5
800IF div% > 200 AND div% < 220 THEN
810tmp1%=!(dots+d%*12)
820tmp2%=!(dots+d%*12+4)
830tmp3%=!(dots+d%*12+8)
840ENDIF
850NEXT
860
870FOR d%=cutoff%+1 TO dots%-2
880SYS "Hourglass_Percentage",d%*100/dots%
890!(dots+d%*12)=RND(steps%)-1
900!(dots+d%*12+4)=RND(RND(160))
910!(dots+d%*12+8)=31
920NEXT
930
940d%=dots%-1
950!(dots+d%*12)=tmp1%
960!(dots+d%*12+4)=tmp2%
970!(dots+d%*12+8)=tmp3%
980
990
1000SYS "Hourglass_Off"
1010COLOUR 12
1020CALL entry
1030END
1040
1050DEFPROCassm
1060DIM mem% (16*steps%)+(12*dots%)+(16*numst%)+2000
1070FOR pass%=0 TO 2 STEP 2
1080P%=mem%
1090[OPT pass%
1100
1110; Entry point
1120
1130.entry stmfd 13!,{14}
1140.l swi "OS_ReadEscapeState"
1150 bcs out ; Quit if ESC
1160 bl swap ; Swap screens
1170 bl gal ; Draw screen
1180 b l
1190.out ldmfd 13!,{15}
1200
1210; Screen information
1220
1230.bank dcd 1 ; bank number (1 or 2)
1240.start dcd 0 ; Screen start address
1250.st1 dcd 0 ; Screen 1 start address
1260.st2 dcd 0 ; Screen 2 start address
1270
1280; Swap screens smoothly
1290
1300.swap
1310 ldr 6,bank
1320 cmp 6,#1
1330 ldreq 7,st1
1340 ldrne 7,st2
1350 str 7,start
1360 mov 0,#19
1370 swi "OS_Byte"
1380 mov 0,#113
1390 mov 1,6
1400 swi "OS_Byte"
1410 rsb 6,6,#3
1420 str 6,bank
1430 mov 0,#112
1440 mov 1,6
1450 swi "OS_Byte"
1460 mov 15,14
1470
1480; Pointers to tables
1490
1500.dotp dcd dots
1510.tabp dcd table
1520.colp dcd cols
1530.strp dcd stars
1540
1550; Draw screen
1560
1570.gal stmfd 13!,{14}
1580 swi 256+12
1590; draw star field
1600 ldr 9,start ; r9 -> screen start
1610 mov 12,#numst%-1 ; r12 = starfield count
1620 ldr 11,strp ; r11 -> starfield table
1630 ldr 3,colp ; r3 -> colour table
1640.loop2
1650 ldmia 11,{5,6,7,8} ; r5 = xpos, r6 = ypos, r7 = shade (0..31), r8 = dir
1660 adds 7,7,8 ; change shade
1670 movlt 7,#0 ; rnage check
1680 rsblt 8,8,#0
1690 cmp 7,#31
1700 movgt 7,#31
1710 rsbgt 8,8,#0
1720 stmia 11!,{5,6,7,8} ; store new values
1730 add 4,9,6,lsl#8 ; address = screen + ypos * 320 + xpos
1740 add 4,4,6,lsl#6
1750 ldrb 0,[3,7] ; get actual colour
1760 strb 0,[4,5] ; plot star
1770 subs 12,12,#1 ; loop
1780 bge loop2
1790; write message
1800 swi "OS_WriteS"
1810 dcb 31
1820 dcb 14
1830 dcb 3
1840 equs "YOU ARE HERE"
1850 dcb 0
1860 align
1870; plot galaxy
1880 mov 12,#dots%-1 ; r12 = star count
1890 ldr 11,dotp ; r11 -> dot table
1900 ldr 10,tabp ; r10 -> rotation/perspective table
1910.loop
1920 ldmia 11,{1,4,8} ; r1 = angular posn, r4 = dist (0..255), r8 = shade
1930 subs 1,1,#1 ; move dot
1940 movle 1,#steps%-1 ; range check
1950 str 1,[11] ; store new value
1960 add 14,10,1,lsl#4 ; find screen posn in lookup table
1970 ldmia 14,{6,7} ; r6 = x, r7 = y
1980 mul 6,4,6 ; scale towards centre of screen
1990 mul 7,4,7
2000 mov 6,6,asr#8
2010 mov 7,7,asr#8
2020 add 6,6,#160 ; translate for top-left origin
2030 add 7,7,#128
2040 sub 0,7,#76 ; calculate distance shade
2050 movs 0,0,asr#2 ; (convert ypos to range 0..31)
2060 movlt 0,#0
2070 cmp 0,#31
2080 movgt 0,#31
2090 cmp 8,#31
2100 mulne 0,8,0
2110 movnes 0,0,asr#4
2120 movlt 0,#0 ; range check
2130 cmp 0,#31
2140 movgt 0,#31
2150 ldrb 0,[3,0] ; lookup in colour table
2160 cmp 8,#31
2170 moveq 0,#254
2180 add 5,9,7,lsl#8 ; get screen address
2190 add 5,5,7,lsl#6
2200 strb 0,[5,6] ; plot point
2210 add 11,11,#12
2220 subs 12,12,#1 ; loop
2230 bge loop
2240; plot last point with arrow above it
2250 mov 0,#99
2260 add 6,6,5
2270 sub 6,6,#640
2280 strb 0,[6]
2290 sub 6,6,#320
2300 strb 0,[6]
2310 strb 0,[6,#-1]
2320 strb 0,[6,#1]
2330 sub 6,6,#320
2340 strb 0,[6]
2350 strb 0,[6,#-2]
2360 strb 0,[6,#2]
2370 sub 6,6,#320
2380 strb 0,[6]
2390 sub 6,6,#320
2400 strb 0,[6]
2410
2420 ldmfd 13!,{15}
2430
2440; perspective/rotation table (0..steps%)
2450; +0 xpos
2460; +4 ypos
2470; +8 unused
2480; +12 unused
2490.table FNspace(16*steps%)
2500
2510; dots (galaxy table) (0..dots%)
2520; +0 angle (0..steps%)
2530; +4 distance from centre (0..255)
2540; +12 shade (0..31)
2550.dots FNspace(12*dots%)
2560
2570;starfield table
2580; +0 xpos
2590; +4 ypos
2600; +8 shade
2610; +12 direction
2620.stars FNspace(16*numst%)
2630; colour table
2640; map shade (0..31) to actual screen byte
2650.cols dcb 2
2660 dcb 3
2670 dcb 44
2680 dcb 45
2690 dcb 45
2700 dcb 46
2710 dcb 46
2720 dcb 46
2730 dcb 47
2740 dcb 47
2750 dcb 208
2760 dcb 208
2770 dcb 208
2780 dcb 208
2790 dcb 208
2800 dcb 209
2810 dcb 209
2820 dcb 210
2830 dcb 210
2840 dcb 211
2850 dcb 211
2860 dcb 253
2870 dcb 253
2880 dcb 253
2890 dcb 254
2900 dcb 254
2910 dcb 254
2920 dcb 254
2930 dcb 255
2940 dcb 255
2950 dcb 255
2960 dcb 255
2970 dcb 255
2980]
2990NEXT
3000ENDPROC
3010
3020DEFFNspace(l%)
3030P%+=l%
3040=0
� >youRhere13
� by Stu Smith
(5� � � 20:ș"Hourglass_Smash":� �$;" at line ";�:�
2
<3steps% = 513 : � subdivisions in 360 deg.
F1dots% = 8193 : � no. of stars in galaxy
P/per = 900 : � perspective distance
Z8yp = 512 : � y position of stars in galaxy
d5numst% = 130 : � no. of stars in background
n;inca% = 129 : � angle increment for galaxy shape
x>incd% = 1 : � distance incrememt for galaxy shape
�
�ș "Hourglass_On"
�
� �assm
�
� 15:� 13
��
� � vdu% 8
�
� swap
��"Please wait..."
�!vdu%=148:vdu%!4=-1
�&ș "OS_ReadVduVariables",vdu%,vdu%
�!st1 = !vdu%
�
� swap
!vdu%=148:vdu%!4=-1
&ș "OS_ReadVduVariables",vdu%,vdu%
!st2 = !vdu%
"
,� s%=0 � numst%-1
6 !(stars+s%*16) = �(319)-1
@ !(stars+s%*16+4) = �(254)-1
J !(stars+s%*16+8) = �(31)
T� �(2)=1 �
^!(stars+s%*16+12) = 1
h�
r!(stars+s%*16+12) = -1
|�
��
�
�� ang=0 � steps%-1
� x=��(360*ang/steps%)*639
�!z=��(360*ang/steps%)*639+1200
�xx%=per*(x/z)
�yy%=per*(yp/z)-460
�
�� xx% > 639 xx% = 639
�� xx% < -639 xx% = -639
�� yy% > 512 yy% = 512
�� yy% < -512 yy% = -512
�
!(table+ang*16) = (xx%/4)
!(table+ang*16+4) = (yy%/4)
!(table+ang*16+8) = 255
&�
0
: di%=0
D an%=0
N
Xcutoff%=0.6*dots%
b
l� d%=0 � cutoff%
v*ș "Hourglass_Percentage",d%*100/dots%
�di%+=incd%
�an%+=inca%
�
� � an%>=steps% an%-=steps%
�� di%>=256 di%-=256
�
�anv%=an%+�(20)-10
�div%=di%+�(20)-10
�
�!� anv% < 0 anv%+=steps%
�!� anv% >= steps% anv%-=steps%
� � div% < 0 div%+=256
� � div% >= 256 div%-=256
!(dots+d%*12) = anv%
!(dots+d%*12+4) = div%
!(dots+d%*12+8) = �(25)+5
� div% > 200 � div% < 220 �
*tmp1%=!(dots+d%*12)
4tmp2%=!(dots+d%*12+4)
>tmp3%=!(dots+d%*12+8)
H�
R�
\
f � d%=cutoff%+1 � dots%-2
p*ș "Hourglass_Percentage",d%*100/dots%
z !(dots+d%*12)=�(steps%)-1
� !(dots+d%*12+4)=�(�(160))
�!(dots+d%*12+8)=31
��
�
�d%=dots%-1
�!(dots+d%*12)=tmp1%
�!(dots+d%*12+4)=tmp2%
�!(dots+d%*12+8)=tmp3%
�
�
�ș "Hourglass_Off"
�� 12
� � entry
�
��assm
$2� mem% (16*steps%)+(12*dots%)+(16*numst%)+2000
.� pass%=0 � 2 � 2
8 P%=mem%
B[OPT pass%
L
V; Entry point
`
j.entry stmfd 13!,{14}
t&.l swi "OS_ReadEscapeState"
~- bcs out ; Quit if ESC
�. bl swap ; Swap screens
�- bl gal ; Draw screen
� b l
�.out ldmfd 13!,{15}
�
�; Screen information
�
�6.bank dcd 1 ; bank number (1 or 2)
�6.start dcd 0 ; Screen start address
�8.st1 dcd 0 ; Screen 1 start address
�8.st2 dcd 0 ; Screen 2 start address
�
; Swap screens smoothly
.swap
ldr 6,bank
( cmp 6,#1
2 ldreq 7,st1
< ldrne 7,st2
F str 7,start
P mov 0,#19
Z swi "OS_Byte"
d mov 0,#113
n mov 1,6
x swi "OS_Byte"
� rsb 6,6,#3
� str 6,bank
� mov 0,#112
� mov 1,6
� swi "OS_Byte"
� mov 15,14
�
�; Pointers to tables
�
�.dotp dcd dots
�.tabp dcd table
�.colp dcd cols
�.strp dcd stars
; Draw screen
".gal stmfd 13!,{14}
, swi 256+12
6; draw star field
@4 ldr 9,start ; r9 -> screen start
J7 mov 12,#numst%-1 ; r12 = starfield count
T8 ldr 11,strp ; r11 -> starfield table
^4 ldr 3,colp ; r3 -> colour table
h
.loop2
rT ldmia 11,{5,6,7,8} ; r5 = xpos, r6 = ypos, r7 = shade (0..31), r8 = dir
|. adds 7,7,8 ; change shade
�- movlt 7,#0 ; rnage check
� rsblt 8,8,#0
� cmp 7,#31
� movgt 7,#31
� rsbgt 8,8,#0
�2 stmia 11!,{5,6,7,8} ; store new values
�F add 4,9,6,lsl#8 ; address = screen + ypos * 320 + xpos
� add 4,4,6,lsl#6
�3 ldrb 0,[3,7] ; get actual colour
�+ strb 0,[4,5] ; plot star
�& subs 12,12,#1 ; loop
� bge loop2
�; write message
swi "OS_WriteS"
dcb 31
dcb 14
& dcb 3
0 equs "YOU ARE HERE"
: dcb 0
D align
N; plot galaxy
X2 mov 12,#dots%-1 ; r12 = star count
b2 ldr 11,dotp ; r11 -> dot table
lC ldr 10,tabp ; r10 -> rotation/perspective table
v .loop
�S ldmia 11,{1,4,8} ; r1 = angular posn, r4 = dist (0..255), r8 = shade
�* subs 1,1,#1 ; move dot
�- movle 1,#steps%-1 ; range check
�1 str 1,[11] ; store new value
�B add 14,10,1,lsl#4 ; find screen posn in lookup table
�0 ldmia 14,{6,7} ; r6 = x, r7 = y
�@ mul 6,4,6 ; scale towards centre of screen
� mul 7,4,7
� mov 6,6,asr#8
� mov 7,7,asr#8
�? add 6,6,#160 ; translate for top-left origin
� add 7,7,#128
�: sub 0,7,#76 ; calculate distance shade
? movs 0,0,asr#2 ; (convert ypos to range 0..31)
movlt 0,#0
cmp 0,#31
movgt 0,#31
* cmp 8,#31
4 mulne 0,8,0
> movnes 0,0,asr#4
H- movlt 0,#0 ; range check
R cmp 0,#31
\ movgt 0,#31
f8 ldrb 0,[3,0] ; lookup in colour table
p cmp 8,#31
z moveq 0,#254
�4 add 5,9,7,lsl#8 ; get screen address
� add 5,5,7,lsl#6
�, strb 0,[5,6] ; plot point
� add 11,11,#12
�& subs 12,12,#1 ; loop
� bge loop
�); plot last point with arrow above it
� mov 0,#99
� add 6,6,5
� sub 6,6,#640
� strb 0,[6]
� sub 6,6,#320
� strb 0,[6]
strb 0,[6,#-1]
strb 0,[6,#1]
sub 6,6,#320
$ strb 0,[6]
. strb 0,[6,#-2]
8 strb 0,[6,#2]
B sub 6,6,#320
L strb 0,[6]
V sub 6,6,#320
` strb 0,[6]
j
t ldmfd 13!,{15}
~
�,; perspective/rotation table (0..steps%)
�; +0 xpos
�; +4 ypos
�; +8 unused
�; +12 unused
� .table �space(16*steps%)
�
�$; dots (galaxy table) (0..dots%)
� ; +0 angle (0..steps%)
�(; +4 distance from centre (0..255)
�; +12 shade (0..31)
�.dots �space(12*dots%)
;starfield table
; +0 xpos
; +4 ypos
(; +8 shade
2; +12 direction
< .stars �space(16*numst%)
F; colour table
P-; map shade (0..31) to actual screen byte
Z.cols dcb 2
d dcb 3
n dcb 44
x dcb 45
� dcb 45
� dcb 46
� dcb 46
� dcb 46
� dcb 47
� dcb 47
� dcb 208
� dcb 208
� dcb 208
� dcb 208
� dcb 208
� dcb 209
� dcb 209
dcb 210
dcb 210
dcb 211
" dcb 211
, dcb 253
6 dcb 253
@ dcb 253
J dcb 254
T dcb 254
^ dcb 254
h dcb 254
r dcb 255
| dcb 255
� dcb 255
� dcb 255
� dcb 255
�]
��
��
�
�ݤspace(l%)
�
P%+=l%
�=0
� 00000000 0d 00 0a 11 f4 20 3e 79 6f 75 52 68 65 72 65 31 |..... >youRhere1|
00000010 33 0d 00 14 12 f4 20 62 79 20 53 74 75 20 53 6d |3..... by Stu Sm|
00000020 69 74 68 0d 00 1e 04 0d 00 28 35 ee 20 85 20 eb |ith......(5. . .|
00000030 20 32 30 3a c8 99 22 48 6f 75 72 67 6c 61 73 73 | 20:.."Hourglass|
00000040 5f 53 6d 61 73 68 22 3a f1 20 f6 24 3b 22 20 61 |_Smash":. .$;" a|
00000050 74 20 6c 69 6e 65 20 22 3b 9e 3a e0 0d 00 32 04 |t line ";.:...2.|
00000060 0d 00 3c 33 73 74 65 70 73 25 20 3d 20 35 31 33 |..<3steps% = 513|
00000070 20 20 20 20 20 20 20 3a 20 f4 20 73 75 62 64 69 | : . subdi|
00000080 76 69 73 69 6f 6e 73 20 69 6e 20 33 36 30 20 64 |visions in 360 d|
00000090 65 67 2e 0d 00 46 31 64 6f 74 73 25 20 20 3d 20 |eg...F1dots% = |
000000a0 38 31 39 33 20 20 20 20 20 20 3a 20 f4 20 6e 6f |8193 : . no|
000000b0 2e 20 6f 66 20 73 74 61 72 73 20 69 6e 20 67 61 |. of stars in ga|
000000c0 6c 61 78 79 0d 00 50 2f 70 65 72 20 20 20 20 3d |laxy..P/per =|
000000d0 20 39 30 30 20 20 20 20 20 20 20 3a 20 f4 20 70 | 900 : . p|
000000e0 65 72 73 70 65 63 74 69 76 65 20 64 69 73 74 61 |erspective dista|
000000f0 6e 63 65 0d 00 5a 38 79 70 20 20 20 20 20 3d 20 |nce..Z8yp = |
00000100 35 31 32 20 20 20 20 20 20 20 3a 20 f4 20 79 20 |512 : . y |
00000110 70 6f 73 69 74 69 6f 6e 20 6f 66 20 73 74 61 72 |position of star|
00000120 73 20 69 6e 20 67 61 6c 61 78 79 0d 00 64 35 6e |s in galaxy..d5n|
00000130 75 6d 73 74 25 20 3d 20 31 33 30 20 20 20 20 20 |umst% = 130 |
00000140 20 20 3a 20 f4 20 6e 6f 2e 20 6f 66 20 73 74 61 | : . no. of sta|
00000150 72 73 20 69 6e 20 62 61 63 6b 67 72 6f 75 6e 64 |rs in background|
00000160 0d 00 6e 3b 69 6e 63 61 25 20 20 3d 20 31 32 39 |..n;inca% = 129|
00000170 20 20 20 20 20 20 20 3a 20 f4 20 61 6e 67 6c 65 | : . angle|
00000180 20 69 6e 63 72 65 6d 65 6e 74 20 66 6f 72 20 67 | increment for g|
00000190 61 6c 61 78 79 20 73 68 61 70 65 0d 00 78 3e 69 |alaxy shape..x>i|
000001a0 6e 63 64 25 20 20 3d 20 31 20 20 20 20 20 20 20 |ncd% = 1 |
000001b0 20 20 3a 20 f4 20 64 69 73 74 61 6e 63 65 20 69 | : . distance i|
000001c0 6e 63 72 65 6d 65 6d 74 20 66 6f 72 20 67 61 6c |ncrememt for gal|
000001d0 61 78 79 20 73 68 61 70 65 0d 00 82 04 0d 00 8c |axy shape.......|
000001e0 15 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f |... "Hourglass_O|
000001f0 6e 22 0d 00 96 04 0d 00 a0 09 f2 61 73 73 6d 0d |n".........assm.|
00000200 00 aa 0d eb 20 31 35 3a eb 20 31 33 0d 00 b4 05 |.... 15:. 13....|
00000210 87 0d 00 be 0c de 20 76 64 75 25 20 38 0d 00 c8 |...... vdu% 8...|
00000220 0a d6 20 73 77 61 70 0d 00 d2 15 f1 22 50 6c 65 |.. swap....."Ple|
00000230 61 73 65 20 77 61 69 74 2e 2e 2e 22 0d 00 dc 17 |ase wait..."....|
00000240 21 76 64 75 25 3d 31 34 38 3a 76 64 75 25 21 34 |!vdu%=148:vdu%!4|
00000250 3d 2d 31 0d 00 e6 26 c8 99 20 22 4f 53 5f 52 65 |=-1...&.. "OS_Re|
00000260 61 64 56 64 75 56 61 72 69 61 62 6c 65 73 22 2c |adVduVariables",|
00000270 76 64 75 25 2c 76 64 75 25 0d 00 f0 10 21 73 74 |vdu%,vdu%....!st|
00000280 31 20 3d 20 21 76 64 75 25 0d 00 fa 0a d6 20 73 |1 = !vdu%..... s|
00000290 77 61 70 0d 01 04 17 21 76 64 75 25 3d 31 34 38 |wap....!vdu%=148|
000002a0 3a 76 64 75 25 21 34 3d 2d 31 0d 01 0e 26 c8 99 |:vdu%!4=-1...&..|
000002b0 20 22 4f 53 5f 52 65 61 64 56 64 75 56 61 72 69 | "OS_ReadVduVari|
000002c0 61 62 6c 65 73 22 2c 76 64 75 25 2c 76 64 75 25 |ables",vdu%,vdu%|
000002d0 0d 01 18 10 21 73 74 32 20 3d 20 21 76 64 75 25 |....!st2 = !vdu%|
000002e0 0d 01 22 04 0d 01 2c 15 e3 20 73 25 3d 30 20 b8 |.."...,.. s%=0 .|
000002f0 20 6e 75 6d 73 74 25 2d 31 0d 01 36 1d 21 28 73 | numst%-1..6.!(s|
00000300 74 61 72 73 2b 73 25 2a 31 36 29 20 3d 20 b3 28 |tars+s%*16) = .(|
00000310 33 31 39 29 2d 31 0d 01 40 1f 21 28 73 74 61 72 |319)-1..@.!(star|
00000320 73 2b 73 25 2a 31 36 2b 34 29 20 3d 20 b3 28 32 |s+s%*16+4) = .(2|
00000330 35 34 29 2d 31 0d 01 4a 1c 21 28 73 74 61 72 73 |54)-1..J.!(stars|
00000340 2b 73 25 2a 31 36 2b 38 29 20 3d 20 b3 28 33 31 |+s%*16+8) = .(31|
00000350 29 0d 01 54 0e e7 20 b3 28 32 29 3d 31 20 8c 0d |)..T.. .(2)=1 ..|
00000360 01 5e 19 21 28 73 74 61 72 73 2b 73 25 2a 31 36 |.^.!(stars+s%*16|
00000370 2b 31 32 29 20 3d 20 31 0d 01 68 05 cc 0d 01 72 |+12) = 1..h....r|
00000380 1a 21 28 73 74 61 72 73 2b 73 25 2a 31 36 2b 31 |.!(stars+s%*16+1|
00000390 32 29 20 3d 20 2d 31 0d 01 7c 05 cd 0d 01 86 05 |2) = -1..|......|
000003a0 ed 0d 01 90 04 0d 01 9a 16 e3 20 61 6e 67 3d 30 |.......... ang=0|
000003b0 20 b8 20 73 74 65 70 73 25 2d 31 0d 01 a4 1c 78 | . steps%-1....x|
000003c0 3d b5 b2 28 33 36 30 2a 61 6e 67 2f 73 74 65 70 |=..(360*ang/step|
000003d0 73 25 29 2a 36 33 39 0d 01 ae 21 7a 3d 9b b2 28 |s%)*639...!z=..(|
000003e0 33 36 30 2a 61 6e 67 2f 73 74 65 70 73 25 29 2a |360*ang/steps%)*|
000003f0 36 33 39 2b 31 32 30 30 0d 01 b8 11 78 78 25 3d |639+1200....xx%=|
00000400 70 65 72 2a 28 78 2f 7a 29 0d 01 c2 16 79 79 25 |per*(x/z)....yy%|
00000410 3d 70 65 72 2a 28 79 70 2f 7a 29 2d 34 36 30 0d |=per*(yp/z)-460.|
00000420 01 cc 04 0d 01 d6 1a e7 20 78 78 25 20 3e 20 36 |........ xx% > 6|
00000430 33 39 20 20 78 78 25 20 3d 20 36 33 39 0d 01 e0 |39 xx% = 639...|
00000440 1b e7 20 78 78 25 20 3c 20 2d 36 33 39 20 78 78 |.. xx% < -639 xx|
00000450 25 20 3d 20 2d 36 33 39 0d 01 ea 1a e7 20 79 79 |% = -639..... yy|
00000460 25 20 3e 20 35 31 32 20 20 79 79 25 20 3d 20 35 |% > 512 yy% = 5|
00000470 31 32 0d 01 f4 1b e7 20 79 79 25 20 3c 20 2d 35 |12..... yy% < -5|
00000480 31 32 20 79 79 25 20 3d 20 2d 35 31 32 0d 01 fe |12 yy% = -512...|
00000490 04 0d 02 08 1f 21 28 74 61 62 6c 65 2b 61 6e 67 |.....!(table+ang|
000004a0 2a 31 36 29 20 20 20 3d 20 28 78 78 25 2f 34 29 |*16) = (xx%/4)|
000004b0 0d 02 12 1f 21 28 74 61 62 6c 65 2b 61 6e 67 2a |....!(table+ang*|
000004c0 31 36 2b 34 29 20 3d 20 28 79 79 25 2f 34 29 0d |16+4) = (yy%/4).|
000004d0 02 1c 1b 21 28 74 61 62 6c 65 2b 61 6e 67 2a 31 |...!(table+ang*1|
000004e0 36 2b 38 29 20 3d 20 32 35 35 0d 02 26 05 ed 0d |6+8) = 255..&...|
000004f0 02 30 04 0d 02 3a 09 64 69 25 3d 30 0d 02 44 09 |.0...:.di%=0..D.|
00000500 61 6e 25 3d 30 0d 02 4e 04 0d 02 58 15 63 75 74 |an%=0..N...X.cut|
00000510 6f 66 66 25 3d 30 2e 36 2a 64 6f 74 73 25 0d 02 |off%=0.6*dots%..|
00000520 62 04 0d 02 6c 14 e3 20 64 25 3d 30 20 b8 20 63 |b...l.. d%=0 . c|
00000530 75 74 6f 66 66 25 0d 02 76 2a c8 99 20 22 48 6f |utoff%..v*.. "Ho|
00000540 75 72 67 6c 61 73 73 5f 50 65 72 63 65 6e 74 61 |urglass_Percenta|
00000550 67 65 22 2c 64 25 2a 31 30 30 2f 64 6f 74 73 25 |ge",d%*100/dots%|
00000560 0d 02 80 0e 64 69 25 2b 3d 69 6e 63 64 25 0d 02 |....di%+=incd%..|
00000570 8a 0e 61 6e 25 2b 3d 69 6e 63 61 25 0d 02 94 04 |..an%+=inca%....|
00000580 0d 02 9e 1d e7 20 61 6e 25 3e 3d 73 74 65 70 73 |..... an%>=steps|
00000590 25 20 61 6e 25 2d 3d 73 74 65 70 73 25 0d 02 a8 |% an%-=steps%...|
000005a0 17 e7 20 64 69 25 3e 3d 32 35 36 20 64 69 25 2d |.. di%>=256 di%-|
000005b0 3d 32 35 36 0d 02 b2 04 0d 02 bc 15 61 6e 76 25 |=256........anv%|
000005c0 3d 61 6e 25 2b b3 28 32 30 29 2d 31 30 0d 02 c6 |=an%+.(20)-10...|
000005d0 15 64 69 76 25 3d 64 69 25 2b b3 28 32 30 29 2d |.div%=di%+.(20)-|
000005e0 31 30 0d 02 d0 04 0d 02 da 21 e7 20 61 6e 76 25 |10.......!. anv%|
000005f0 20 3c 20 30 20 20 20 20 20 20 20 61 6e 76 25 2b | < 0 anv%+|
00000600 3d 73 74 65 70 73 25 0d 02 e4 21 e7 20 61 6e 76 |=steps%...!. anv|
00000610 25 20 3e 3d 20 73 74 65 70 73 25 20 61 6e 76 25 |% >= steps% anv%|
00000620 2d 3d 73 74 65 70 73 25 0d 02 ee 1e e7 20 64 69 |-=steps%..... di|
00000630 76 25 20 3c 20 30 20 20 20 20 20 20 20 64 69 76 |v% < 0 div|
00000640 25 2b 3d 32 35 36 0d 02 f8 1e e7 20 64 69 76 25 |%+=256..... div%|
00000650 20 3e 3d 20 32 35 36 20 20 20 20 64 69 76 25 2d | >= 256 div%-|
00000660 3d 32 35 36 0d 03 02 1a 21 28 64 6f 74 73 2b 64 |=256....!(dots+d|
00000670 25 2a 31 32 29 20 20 20 3d 20 61 6e 76 25 0d 03 |%*12) = anv%..|
00000680 0c 1a 21 28 64 6f 74 73 2b 64 25 2a 31 32 2b 34 |..!(dots+d%*12+4|
00000690 29 20 3d 20 64 69 76 25 0d 03 16 1d 21 28 64 6f |) = div%....!(do|
000006a0 74 73 2b 64 25 2a 31 32 2b 38 29 20 3d 20 b3 28 |ts+d%*12+8) = .(|
000006b0 32 35 29 2b 35 0d 03 20 20 e7 20 64 69 76 25 20 |25)+5.. . div% |
000006c0 3e 20 32 30 30 20 20 80 20 64 69 76 25 20 3c 20 |> 200 . div% < |
000006d0 32 32 30 20 8c 0d 03 2a 17 74 6d 70 31 25 3d 21 |220 ...*.tmp1%=!|
000006e0 28 64 6f 74 73 2b 64 25 2a 31 32 29 0d 03 34 19 |(dots+d%*12)..4.|
000006f0 74 6d 70 32 25 3d 21 28 64 6f 74 73 2b 64 25 2a |tmp2%=!(dots+d%*|
00000700 31 32 2b 34 29 0d 03 3e 19 74 6d 70 33 25 3d 21 |12+4)..>.tmp3%=!|
00000710 28 64 6f 74 73 2b 64 25 2a 31 32 2b 38 29 0d 03 |(dots+d%*12+8)..|
00000720 48 05 cd 0d 03 52 05 ed 0d 03 5c 04 0d 03 66 1c |H....R....\...f.|
00000730 e3 20 64 25 3d 63 75 74 6f 66 66 25 2b 31 20 b8 |. d%=cutoff%+1 .|
00000740 20 64 6f 74 73 25 2d 32 0d 03 70 2a c8 99 20 22 | dots%-2..p*.. "|
00000750 48 6f 75 72 67 6c 61 73 73 5f 50 65 72 63 65 6e |Hourglass_Percen|
00000760 74 61 67 65 22 2c 64 25 2a 31 30 30 2f 64 6f 74 |tage",d%*100/dot|
00000770 73 25 0d 03 7a 1d 21 28 64 6f 74 73 2b 64 25 2a |s%..z.!(dots+d%*|
00000780 31 32 29 3d b3 28 73 74 65 70 73 25 29 2d 31 0d |12)=.(steps%)-1.|
00000790 03 84 1d 21 28 64 6f 74 73 2b 64 25 2a 31 32 2b |...!(dots+d%*12+|
000007a0 34 29 3d b3 28 b3 28 31 36 30 29 29 0d 03 8e 16 |4)=.(.(160))....|
000007b0 21 28 64 6f 74 73 2b 64 25 2a 31 32 2b 38 29 3d |!(dots+d%*12+8)=|
000007c0 33 31 0d 03 98 05 ed 0d 03 a2 04 0d 03 ac 0e 64 |31.............d|
000007d0 25 3d 64 6f 74 73 25 2d 31 0d 03 b6 17 21 28 64 |%=dots%-1....!(d|
000007e0 6f 74 73 2b 64 25 2a 31 32 29 3d 74 6d 70 31 25 |ots+d%*12)=tmp1%|
000007f0 0d 03 c0 19 21 28 64 6f 74 73 2b 64 25 2a 31 32 |....!(dots+d%*12|
00000800 2b 34 29 3d 74 6d 70 32 25 0d 03 ca 19 21 28 64 |+4)=tmp2%....!(d|
00000810 6f 74 73 2b 64 25 2a 31 32 2b 38 29 3d 74 6d 70 |ots+d%*12+8)=tmp|
00000820 33 25 0d 03 d4 04 0d 03 de 04 0d 03 e8 16 c8 99 |3%..............|
00000830 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 | "Hourglass_Off"|
00000840 0d 03 f2 08 fb 20 31 32 0d 03 fc 0b d6 20 65 6e |..... 12..... en|
00000850 74 72 79 0d 04 06 05 e0 0d 04 10 04 0d 04 1a 0a |try.............|
00000860 dd f2 61 73 73 6d 0d 04 24 32 de 20 6d 65 6d 25 |..assm..$2. mem%|
00000870 20 28 31 36 2a 73 74 65 70 73 25 29 2b 28 31 32 | (16*steps%)+(12|
00000880 2a 64 6f 74 73 25 29 2b 28 31 36 2a 6e 75 6d 73 |*dots%)+(16*nums|
00000890 74 25 29 2b 32 30 30 30 0d 04 2e 15 e3 20 70 61 |t%)+2000..... pa|
000008a0 73 73 25 3d 30 20 b8 20 32 20 88 20 32 0d 04 38 |ss%=0 . 2 . 2..8|
000008b0 0b 50 25 3d 6d 65 6d 25 0d 04 42 0e 5b 4f 50 54 |.P%=mem%..B.[OPT|
000008c0 20 70 61 73 73 25 0d 04 4c 04 0d 04 56 11 3b 20 | pass%..L...V.; |
000008d0 45 6e 74 72 79 20 70 6f 69 6e 74 0d 04 60 04 0d |Entry point..`..|
000008e0 04 6a 1a 2e 65 6e 74 72 79 20 73 74 6d 66 64 20 |.j..entry stmfd |
000008f0 20 31 33 21 2c 7b 31 34 7d 0d 04 74 26 2e 6c 20 | 13!,{14}..t&.l |
00000900 20 20 20 20 73 77 69 20 20 20 20 22 4f 53 5f 52 | swi "OS_R|
00000910 65 61 64 45 73 63 61 70 65 53 74 61 74 65 22 0d |eadEscapeState".|
00000920 04 7e 2d 20 20 20 20 20 20 20 62 63 73 20 20 20 |.~- bcs |
00000930 20 6f 75 74 20 20 20 20 20 20 20 20 20 20 20 3b | out ;|
00000940 20 51 75 69 74 20 69 66 20 45 53 43 0d 04 88 2e | Quit if ESC....|
00000950 20 20 20 20 20 20 20 62 6c 20 20 20 20 20 73 77 | bl sw|
00000960 61 70 20 20 20 20 20 20 20 20 20 20 3b 20 53 77 |ap ; Sw|
00000970 61 70 20 73 63 72 65 65 6e 73 0d 04 92 2d 20 20 |ap screens...- |
00000980 20 20 20 20 20 62 6c 20 20 20 20 20 67 61 6c 20 | bl gal |
00000990 20 20 20 20 20 20 20 20 20 20 3b 20 44 72 61 77 | ; Draw|
000009a0 20 73 63 72 65 65 6e 0d 04 9c 13 20 20 20 20 20 | screen.... |
000009b0 20 20 62 20 20 20 20 20 20 6c 0d 04 a6 1a 2e 6f | b l.....o|
000009c0 75 74 20 20 20 6c 64 6d 66 64 20 20 31 33 21 2c |ut ldmfd 13!,|
000009d0 7b 31 35 7d 0d 04 b0 04 0d 04 ba 18 3b 20 53 63 |{15}........; Sc|
000009e0 72 65 65 6e 20 69 6e 66 6f 72 6d 61 74 69 6f 6e |reen information|
000009f0 0d 04 c4 04 0d 04 ce 36 2e 62 61 6e 6b 20 20 64 |.......6.bank d|
00000a00 63 64 20 20 20 20 31 20 20 20 20 20 20 20 20 20 |cd 1 |
00000a10 20 20 20 20 3b 20 62 61 6e 6b 20 6e 75 6d 62 65 | ; bank numbe|
00000a20 72 20 28 31 20 6f 72 20 32 29 0d 04 d8 36 2e 73 |r (1 or 2)...6.s|
00000a30 74 61 72 74 20 64 63 64 20 20 20 20 30 20 20 20 |tart dcd 0 |
00000a40 20 20 20 20 20 20 20 20 20 20 3b 20 53 63 72 65 | ; Scre|
00000a50 65 6e 20 73 74 61 72 74 20 61 64 64 72 65 73 73 |en start address|
00000a60 0d 04 e2 38 2e 73 74 31 20 20 20 64 63 64 20 20 |...8.st1 dcd |
00000a70 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 | 0 |
00000a80 3b 20 53 63 72 65 65 6e 20 31 20 73 74 61 72 74 |; Screen 1 start|
00000a90 20 61 64 64 72 65 73 73 0d 04 ec 38 2e 73 74 32 | address...8.st2|
00000aa0 20 20 20 64 63 64 20 20 20 20 30 20 20 20 20 20 | dcd 0 |
00000ab0 20 20 20 20 20 20 20 20 3b 20 53 63 72 65 65 6e | ; Screen|
00000ac0 20 32 20 73 74 61 72 74 20 61 64 64 72 65 73 73 | 2 start address|
00000ad0 0d 04 f6 04 0d 05 00 1b 3b 20 53 77 61 70 20 73 |........; Swap s|
00000ae0 63 72 65 65 6e 73 20 73 6d 6f 6f 74 68 6c 79 0d |creens smoothly.|
00000af0 05 0a 04 0d 05 14 09 2e 73 77 61 70 0d 05 1e 18 |........swap....|
00000b00 20 20 20 20 20 20 20 6c 64 72 20 20 20 20 36 2c | ldr 6,|
00000b10 62 61 6e 6b 0d 05 28 16 20 20 20 20 20 20 20 63 |bank..(. c|
00000b20 6d 70 20 20 20 20 36 2c 23 31 0d 05 32 17 20 20 |mp 6,#1..2. |
00000b30 20 20 20 20 20 6c 64 72 65 71 20 20 37 2c 73 74 | ldreq 7,st|
00000b40 31 0d 05 3c 17 20 20 20 20 20 20 20 6c 64 72 6e |1..<. ldrn|
00000b50 65 20 20 37 2c 73 74 32 0d 05 46 19 20 20 20 20 |e 7,st2..F. |
00000b60 20 20 20 73 74 72 20 20 20 20 37 2c 73 74 61 72 | str 7,star|
00000b70 74 0d 05 50 17 20 20 20 20 20 20 20 6d 6f 76 20 |t..P. mov |
00000b80 20 20 20 30 2c 23 31 39 0d 05 5a 1b 20 20 20 20 | 0,#19..Z. |
00000b90 20 20 20 73 77 69 20 20 20 20 22 4f 53 5f 42 79 | swi "OS_By|
00000ba0 74 65 22 0d 05 64 18 20 20 20 20 20 20 20 6d 6f |te"..d. mo|
00000bb0 76 20 20 20 20 30 2c 23 31 31 33 0d 05 6e 15 20 |v 0,#113..n. |
00000bc0 20 20 20 20 20 20 6d 6f 76 20 20 20 20 31 2c 36 | mov 1,6|
00000bd0 0d 05 78 1b 20 20 20 20 20 20 20 73 77 69 20 20 |..x. swi |
00000be0 20 20 22 4f 53 5f 42 79 74 65 22 0d 05 82 18 20 | "OS_Byte".... |
00000bf0 20 20 20 20 20 20 72 73 62 20 20 20 20 36 2c 36 | rsb 6,6|
00000c00 2c 23 33 0d 05 8c 18 20 20 20 20 20 20 20 73 74 |,#3.... st|
00000c10 72 20 20 20 20 36 2c 62 61 6e 6b 0d 05 96 18 20 |r 6,bank.... |
00000c20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 30 2c 23 | mov 0,#|
00000c30 31 31 32 0d 05 a0 15 20 20 20 20 20 20 20 6d 6f |112.... mo|
00000c40 76 20 20 20 20 31 2c 36 0d 05 aa 1b 20 20 20 20 |v 1,6.... |
00000c50 20 20 20 73 77 69 20 20 20 20 22 4f 53 5f 42 79 | swi "OS_By|
00000c60 74 65 22 0d 05 b4 17 20 20 20 20 20 20 20 6d 6f |te".... mo|
00000c70 76 20 20 20 20 31 35 2c 31 34 0d 05 be 04 0d 05 |v 15,14......|
00000c80 c8 18 3b 20 50 6f 69 6e 74 65 72 73 20 74 6f 20 |..; Pointers to |
00000c90 74 61 62 6c 65 73 0d 05 d2 04 0d 05 dc 16 2e 64 |tables.........d|
00000ca0 6f 74 70 20 20 64 63 64 20 20 20 20 64 6f 74 73 |otp dcd dots|
00000cb0 0d 05 e6 17 2e 74 61 62 70 20 20 64 63 64 20 20 |.....tabp dcd |
00000cc0 20 20 74 61 62 6c 65 0d 05 f0 16 2e 63 6f 6c 70 | table.....colp|
00000cd0 20 20 64 63 64 20 20 20 20 63 6f 6c 73 0d 05 fa | dcd cols...|
00000ce0 17 2e 73 74 72 70 20 20 64 63 64 20 20 20 20 73 |..strp dcd s|
00000cf0 74 61 72 73 0d 06 04 04 0d 06 0e 11 3b 20 44 72 |tars........; Dr|
00000d00 61 77 20 73 63 72 65 65 6e 0d 06 18 04 0d 06 22 |aw screen......"|
00000d10 1a 2e 67 61 6c 20 20 20 73 74 6d 66 64 20 20 31 |..gal stmfd 1|
00000d20 33 21 2c 7b 31 34 7d 0d 06 2c 18 20 20 20 20 20 |3!,{14}..,. |
00000d30 20 20 73 77 69 20 20 20 20 32 35 36 2b 31 32 0d | swi 256+12.|
00000d40 06 36 15 3b 20 64 72 61 77 20 73 74 61 72 20 66 |.6.; draw star f|
00000d50 69 65 6c 64 0d 06 40 34 20 20 20 20 20 20 20 6c |ield..@4 l|
00000d60 64 72 20 20 20 20 39 2c 73 74 61 72 74 20 20 20 |dr 9,start |
00000d70 20 20 20 20 3b 20 72 39 20 2d 3e 20 73 63 72 65 | ; r9 -> scre|
00000d80 65 6e 20 73 74 61 72 74 0d 06 4a 37 20 20 20 20 |en start..J7 |
00000d90 20 20 20 6d 6f 76 20 20 20 20 31 32 2c 23 6e 75 | mov 12,#nu|
00000da0 6d 73 74 25 2d 31 20 20 3b 20 72 31 32 20 3d 20 |mst%-1 ; r12 = |
00000db0 73 74 61 72 66 69 65 6c 64 20 63 6f 75 6e 74 0d |starfield count.|
00000dc0 06 54 38 20 20 20 20 20 20 20 6c 64 72 20 20 20 |.T8 ldr |
00000dd0 20 31 31 2c 73 74 72 70 20 20 20 20 20 20 20 3b | 11,strp ;|
00000de0 20 72 31 31 20 2d 3e 20 73 74 61 72 66 69 65 6c | r11 -> starfiel|
00000df0 64 20 74 61 62 6c 65 0d 06 5e 34 20 20 20 20 20 |d table..^4 |
00000e00 20 20 6c 64 72 20 20 20 20 33 2c 63 6f 6c 70 20 | ldr 3,colp |
00000e10 20 20 20 20 20 20 20 3b 20 72 33 20 2d 3e 20 63 | ; r3 -> c|
00000e20 6f 6c 6f 75 72 20 74 61 62 6c 65 0d 06 68 0a 2e |olour table..h..|
00000e30 6c 6f 6f 70 32 0d 06 72 54 20 20 20 20 20 20 20 |loop2..rT |
00000e40 6c 64 6d 69 61 20 20 31 31 2c 7b 35 2c 36 2c 37 |ldmia 11,{5,6,7|
00000e50 2c 38 7d 20 20 3b 20 72 35 20 3d 20 78 70 6f 73 |,8} ; r5 = xpos|
00000e60 2c 20 72 36 20 3d 20 79 70 6f 73 2c 20 72 37 20 |, r6 = ypos, r7 |
00000e70 3d 20 73 68 61 64 65 20 28 30 2e 2e 33 31 29 2c |= shade (0..31),|
00000e80 20 72 38 20 3d 20 64 69 72 0d 06 7c 2e 20 20 20 | r8 = dir..|. |
00000e90 20 20 20 20 61 64 64 73 20 20 20 37 2c 37 2c 38 | adds 7,7,8|
00000ea0 20 20 20 20 20 20 20 20 20 3b 20 63 68 61 6e 67 | ; chang|
00000eb0 65 20 73 68 61 64 65 0d 06 86 2d 20 20 20 20 20 |e shade...- |
00000ec0 20 20 6d 6f 76 6c 74 20 20 37 2c 23 30 20 20 20 | movlt 7,#0 |
00000ed0 20 20 20 20 20 20 20 3b 20 72 6e 61 67 65 20 63 | ; rnage c|
00000ee0 68 65 63 6b 0d 06 90 18 20 20 20 20 20 20 20 72 |heck.... r|
00000ef0 73 62 6c 74 20 20 38 2c 38 2c 23 30 0d 06 9a 17 |sblt 8,8,#0....|
00000f00 20 20 20 20 20 20 20 63 6d 70 20 20 20 20 37 2c | cmp 7,|
00000f10 23 33 31 0d 06 a4 17 20 20 20 20 20 20 20 6d 6f |#31.... mo|
00000f20 76 67 74 20 20 37 2c 23 33 31 0d 06 ae 18 20 20 |vgt 7,#31.... |
00000f30 20 20 20 20 20 72 73 62 67 74 20 20 38 2c 38 2c | rsbgt 8,8,|
00000f40 23 30 0d 06 b8 32 20 20 20 20 20 20 20 73 74 6d |#0...2 stm|
00000f50 69 61 20 20 31 31 21 2c 7b 35 2c 36 2c 37 2c 38 |ia 11!,{5,6,7,8|
00000f60 7d 20 3b 20 73 74 6f 72 65 20 6e 65 77 20 76 61 |} ; store new va|
00000f70 6c 75 65 73 0d 06 c2 46 20 20 20 20 20 20 20 61 |lues...F a|
00000f80 64 64 20 20 20 20 34 2c 39 2c 36 2c 6c 73 6c 23 |dd 4,9,6,lsl#|
00000f90 38 20 20 20 3b 20 61 64 64 72 65 73 73 20 3d 20 |8 ; address = |
00000fa0 73 63 72 65 65 6e 20 2b 20 79 70 6f 73 20 2a 20 |screen + ypos * |
00000fb0 33 32 30 20 2b 20 78 70 6f 73 0d 06 cc 1d 20 20 |320 + xpos.... |
00000fc0 20 20 20 20 20 61 64 64 20 20 20 20 34 2c 34 2c | add 4,4,|
00000fd0 36 2c 6c 73 6c 23 36 0d 06 d6 33 20 20 20 20 20 |6,lsl#6...3 |
00000fe0 20 20 6c 64 72 62 20 20 20 30 2c 5b 33 2c 37 5d | ldrb 0,[3,7]|
00000ff0 20 20 20 20 20 20 20 3b 20 67 65 74 20 61 63 74 | ; get act|
00001000 75 61 6c 20 63 6f 6c 6f 75 72 0d 06 e0 2b 20 20 |ual colour...+ |
00001010 20 20 20 20 20 73 74 72 62 20 20 20 30 2c 5b 34 | strb 0,[4|
00001020 2c 35 5d 20 20 20 20 20 20 20 3b 20 70 6c 6f 74 |,5] ; plot|
00001030 20 73 74 61 72 0d 06 ea 26 20 20 20 20 20 20 20 | star...& |
00001040 73 75 62 73 20 20 20 31 32 2c 31 32 2c 23 31 20 |subs 12,12,#1 |
00001050 20 20 20 20 20 3b 20 6c 6f 6f 70 0d 06 f4 17 20 | ; loop.... |
00001060 20 20 20 20 20 20 62 67 65 20 20 20 20 6c 6f 6f | bge loo|
00001070 70 32 0d 06 fe 13 3b 20 77 72 69 74 65 20 6d 65 |p2....; write me|
00001080 73 73 61 67 65 0d 07 08 1d 20 20 20 20 20 20 20 |ssage.... |
00001090 73 77 69 20 20 20 20 22 4f 53 5f 57 72 69 74 65 |swi "OS_Write|
000010a0 53 22 0d 07 12 14 20 20 20 20 20 20 20 64 63 62 |S".... dcb|
000010b0 20 20 20 20 33 31 0d 07 1c 14 20 20 20 20 20 20 | 31.... |
000010c0 20 64 63 62 20 20 20 20 31 34 0d 07 26 13 20 20 | dcb 14..&. |
000010d0 20 20 20 20 20 64 63 62 20 20 20 20 33 0d 07 30 | dcb 3..0|
000010e0 20 20 20 20 20 20 20 20 65 71 75 73 20 20 20 22 | equs "|
000010f0 59 4f 55 20 41 52 45 20 48 45 52 45 22 0d 07 3a |YOU ARE HERE"..:|
00001100 13 20 20 20 20 20 20 20 64 63 62 20 20 20 20 30 |. dcb 0|
00001110 0d 07 44 10 20 20 20 20 20 20 20 61 6c 69 67 6e |..D. align|
00001120 0d 07 4e 11 3b 20 70 6c 6f 74 20 67 61 6c 61 78 |..N.; plot galax|
00001130 79 0d 07 58 32 20 20 20 20 20 20 20 6d 6f 76 20 |y..X2 mov |
00001140 20 20 20 31 32 2c 23 64 6f 74 73 25 2d 31 20 20 | 12,#dots%-1 |
00001150 20 3b 20 72 31 32 20 3d 20 73 74 61 72 20 63 6f | ; r12 = star co|
00001160 75 6e 74 0d 07 62 32 20 20 20 20 20 20 20 6c 64 |unt..b2 ld|
00001170 72 20 20 20 20 31 31 2c 64 6f 74 70 20 20 20 20 |r 11,dotp |
00001180 20 20 20 3b 20 72 31 31 20 2d 3e 20 64 6f 74 20 | ; r11 -> dot |
00001190 74 61 62 6c 65 0d 07 6c 43 20 20 20 20 20 20 20 |table..lC |
000011a0 6c 64 72 20 20 20 20 31 30 2c 74 61 62 70 20 20 |ldr 10,tabp |
000011b0 20 20 20 20 20 3b 20 72 31 30 20 2d 3e 20 72 6f | ; r10 -> ro|
000011c0 74 61 74 69 6f 6e 2f 70 65 72 73 70 65 63 74 69 |tation/perspecti|
000011d0 76 65 20 74 61 62 6c 65 0d 07 76 09 2e 6c 6f 6f |ve table..v..loo|
000011e0 70 0d 07 80 53 20 20 20 20 20 20 20 6c 64 6d 69 |p...S ldmi|
000011f0 61 20 20 31 31 2c 7b 31 2c 34 2c 38 7d 20 20 20 |a 11,{1,4,8} |
00001200 20 3b 20 72 31 20 3d 20 61 6e 67 75 6c 61 72 20 | ; r1 = angular |
00001210 70 6f 73 6e 2c 20 72 34 20 3d 20 64 69 73 74 20 |posn, r4 = dist |
00001220 28 30 2e 2e 32 35 35 29 2c 20 72 38 20 3d 20 73 |(0..255), r8 = s|
00001230 68 61 64 65 0d 07 8a 2a 20 20 20 20 20 20 20 73 |hade...* s|
00001240 75 62 73 20 20 20 31 2c 31 2c 23 31 20 20 20 20 |ubs 1,1,#1 |
00001250 20 20 20 20 3b 20 6d 6f 76 65 20 64 6f 74 0d 07 | ; move dot..|
00001260 94 2d 20 20 20 20 20 20 20 6d 6f 76 6c 65 20 20 |.- movle |
00001270 31 2c 23 73 74 65 70 73 25 2d 31 20 20 20 3b 20 |1,#steps%-1 ; |
00001280 72 61 6e 67 65 20 63 68 65 63 6b 0d 07 9e 31 20 |range check...1 |
00001290 20 20 20 20 20 20 73 74 72 20 20 20 20 31 2c 5b | str 1,[|
000012a0 31 31 5d 20 20 20 20 20 20 20 20 3b 20 73 74 6f |11] ; sto|
000012b0 72 65 20 6e 65 77 20 76 61 6c 75 65 0d 07 a8 42 |re new value...B|
000012c0 20 20 20 20 20 20 20 61 64 64 20 20 20 20 31 34 | add 14|
000012d0 2c 31 30 2c 31 2c 6c 73 6c 23 34 20 3b 20 66 69 |,10,1,lsl#4 ; fi|
000012e0 6e 64 20 73 63 72 65 65 6e 20 70 6f 73 6e 20 69 |nd screen posn i|
000012f0 6e 20 6c 6f 6f 6b 75 70 20 74 61 62 6c 65 0d 07 |n lookup table..|
00001300 b2 30 20 20 20 20 20 20 20 6c 64 6d 69 61 20 20 |.0 ldmia |
00001310 31 34 2c 7b 36 2c 37 7d 20 20 20 20 20 20 3b 20 |14,{6,7} ; |
00001320 72 36 20 3d 20 78 2c 20 72 37 20 3d 20 79 0d 07 |r6 = x, r7 = y..|
00001330 bc 40 20 20 20 20 20 20 20 6d 75 6c 20 20 20 20 |.@ mul |
00001340 36 2c 34 2c 36 20 20 20 20 20 20 20 20 20 3b 20 |6,4,6 ; |
00001350 73 63 61 6c 65 20 74 6f 77 61 72 64 73 20 63 65 |scale towards ce|
00001360 6e 74 72 65 20 6f 66 20 73 63 72 65 65 6e 0d 07 |ntre of screen..|
00001370 c6 17 20 20 20 20 20 20 20 6d 75 6c 20 20 20 20 |.. mul |
00001380 37 2c 34 2c 37 0d 07 d0 1b 20 20 20 20 20 20 20 |7,4,7.... |
00001390 6d 6f 76 20 20 20 20 36 2c 36 2c 61 73 72 23 38 |mov 6,6,asr#8|
000013a0 0d 07 da 1b 20 20 20 20 20 20 20 6d 6f 76 20 20 |.... mov |
000013b0 20 20 37 2c 37 2c 61 73 72 23 38 0d 07 e4 3f 20 | 7,7,asr#8...? |
000013c0 20 20 20 20 20 20 61 64 64 20 20 20 20 36 2c 36 | add 6,6|
000013d0 2c 23 31 36 30 20 20 20 20 20 20 3b 20 74 72 61 |,#160 ; tra|
000013e0 6e 73 6c 61 74 65 20 66 6f 72 20 74 6f 70 2d 6c |nslate for top-l|
000013f0 65 66 74 20 6f 72 69 67 69 6e 0d 07 ee 1a 20 20 |eft origin.... |
00001400 20 20 20 20 20 61 64 64 20 20 20 20 37 2c 37 2c | add 7,7,|
00001410 23 31 32 38 0d 07 f8 3a 20 20 20 20 20 20 20 73 |#128...: s|
00001420 75 62 20 20 20 20 30 2c 37 2c 23 37 36 20 20 20 |ub 0,7,#76 |
00001430 20 20 20 20 3b 20 63 61 6c 63 75 6c 61 74 65 20 | ; calculate |
00001440 64 69 73 74 61 6e 63 65 20 73 68 61 64 65 0d 08 |distance shade..|
00001450 02 3f 20 20 20 20 20 20 20 6d 6f 76 73 20 20 20 |.? movs |
00001460 30 2c 30 2c 61 73 72 23 32 20 20 20 20 20 3b 20 |0,0,asr#2 ; |
00001470 28 63 6f 6e 76 65 72 74 20 79 70 6f 73 20 74 6f |(convert ypos to|
00001480 20 72 61 6e 67 65 20 30 2e 2e 33 31 29 0d 08 0c | range 0..31)...|
00001490 16 20 20 20 20 20 20 20 6d 6f 76 6c 74 20 20 30 |. movlt 0|
000014a0 2c 23 30 0d 08 16 17 20 20 20 20 20 20 20 63 6d |,#0.... cm|
000014b0 70 20 20 20 20 30 2c 23 33 31 0d 08 20 17 20 20 |p 0,#31.. . |
000014c0 20 20 20 20 20 6d 6f 76 67 74 20 20 30 2c 23 33 | movgt 0,#3|
000014d0 31 0d 08 2a 17 20 20 20 20 20 20 20 63 6d 70 20 |1..*. cmp |
000014e0 20 20 20 38 2c 23 33 31 0d 08 34 17 20 20 20 20 | 8,#31..4. |
000014f0 20 20 20 6d 75 6c 6e 65 20 20 30 2c 38 2c 30 0d | mulne 0,8,0.|
00001500 08 3e 1b 20 20 20 20 20 20 20 6d 6f 76 6e 65 73 |.>. movnes|
00001510 20 30 2c 30 2c 61 73 72 23 34 0d 08 48 2d 20 20 | 0,0,asr#4..H- |
00001520 20 20 20 20 20 6d 6f 76 6c 74 20 20 30 2c 23 30 | movlt 0,#0|
00001530 20 20 20 20 20 20 20 20 20 20 3b 20 72 61 6e 67 | ; rang|
00001540 65 20 63 68 65 63 6b 0d 08 52 17 20 20 20 20 20 |e check..R. |
00001550 20 20 63 6d 70 20 20 20 20 30 2c 23 33 31 0d 08 | cmp 0,#31..|
00001560 5c 17 20 20 20 20 20 20 20 6d 6f 76 67 74 20 20 |\. movgt |
00001570 30 2c 23 33 31 0d 08 66 38 20 20 20 20 20 20 20 |0,#31..f8 |
00001580 6c 64 72 62 20 20 20 30 2c 5b 33 2c 30 5d 20 20 |ldrb 0,[3,0] |
00001590 20 20 20 20 20 3b 20 6c 6f 6f 6b 75 70 20 69 6e | ; lookup in|
000015a0 20 63 6f 6c 6f 75 72 20 74 61 62 6c 65 0d 08 70 | colour table..p|
000015b0 17 20 20 20 20 20 20 20 63 6d 70 20 20 20 20 38 |. cmp 8|
000015c0 2c 23 33 31 0d 08 7a 18 20 20 20 20 20 20 20 6d |,#31..z. m|
000015d0 6f 76 65 71 20 20 30 2c 23 32 35 34 0d 08 84 34 |oveq 0,#254...4|
000015e0 20 20 20 20 20 20 20 61 64 64 20 20 20 20 35 2c | add 5,|
000015f0 39 2c 37 2c 6c 73 6c 23 38 20 20 20 3b 20 67 65 |9,7,lsl#8 ; ge|
00001600 74 20 73 63 72 65 65 6e 20 61 64 64 72 65 73 73 |t screen address|
00001610 0d 08 8e 1d 20 20 20 20 20 20 20 61 64 64 20 20 |.... add |
00001620 20 20 35 2c 35 2c 37 2c 6c 73 6c 23 36 0d 08 98 | 5,5,7,lsl#6...|
00001630 2c 20 20 20 20 20 20 20 73 74 72 62 20 20 20 30 |, strb 0|
00001640 2c 5b 35 2c 36 5d 20 20 20 20 20 20 20 3b 20 70 |,[5,6] ; p|
00001650 6c 6f 74 20 70 6f 69 6e 74 0d 08 a2 1b 20 20 20 |lot point.... |
00001660 20 20 20 20 61 64 64 20 20 20 20 31 31 2c 31 31 | add 11,11|
00001670 2c 23 31 32 0d 08 ac 26 20 20 20 20 20 20 20 73 |,#12...& s|
00001680 75 62 73 20 20 20 31 32 2c 31 32 2c 23 31 20 20 |ubs 12,12,#1 |
00001690 20 20 20 20 3b 20 6c 6f 6f 70 0d 08 b6 16 20 20 | ; loop.... |
000016a0 20 20 20 20 20 62 67 65 20 20 20 20 6c 6f 6f 70 | bge loop|
000016b0 0d 08 c0 29 3b 20 70 6c 6f 74 20 6c 61 73 74 20 |...); plot last |
000016c0 70 6f 69 6e 74 20 77 69 74 68 20 61 72 72 6f 77 |point with arrow|
000016d0 20 61 62 6f 76 65 20 69 74 0d 08 ca 17 20 20 20 | above it.... |
000016e0 20 20 20 20 6d 6f 76 20 20 20 20 30 2c 23 39 39 | mov 0,#99|
000016f0 0d 08 d4 17 20 20 20 20 20 20 20 61 64 64 20 20 |.... add |
00001700 20 20 36 2c 36 2c 35 0d 08 de 1a 20 20 20 20 20 | 6,6,5.... |
00001710 20 20 73 75 62 20 20 20 20 36 2c 36 2c 23 36 34 | sub 6,6,#64|
00001720 30 0d 08 e8 17 20 20 20 20 20 20 20 73 74 72 62 |0.... strb|
00001730 20 20 20 30 2c 5b 36 5d 0d 08 f2 1a 20 20 20 20 | 0,[6].... |
00001740 20 20 20 73 75 62 20 20 20 20 36 2c 36 2c 23 33 | sub 6,6,#3|
00001750 32 30 0d 08 fc 17 20 20 20 20 20 20 20 73 74 72 |20.... str|
00001760 62 20 20 20 30 2c 5b 36 5d 0d 09 06 1b 20 20 20 |b 0,[6].... |
00001770 20 20 20 20 73 74 72 62 20 20 20 30 2c 5b 36 2c | strb 0,[6,|
00001780 23 2d 31 5d 0d 09 10 1a 20 20 20 20 20 20 20 73 |#-1].... s|
00001790 74 72 62 20 20 20 30 2c 5b 36 2c 23 31 5d 0d 09 |trb 0,[6,#1]..|
000017a0 1a 1a 20 20 20 20 20 20 20 73 75 62 20 20 20 20 |.. sub |
000017b0 36 2c 36 2c 23 33 32 30 0d 09 24 17 20 20 20 20 |6,6,#320..$. |
000017c0 20 20 20 73 74 72 62 20 20 20 30 2c 5b 36 5d 0d | strb 0,[6].|
000017d0 09 2e 1b 20 20 20 20 20 20 20 73 74 72 62 20 20 |... strb |
000017e0 20 30 2c 5b 36 2c 23 2d 32 5d 0d 09 38 1a 20 20 | 0,[6,#-2]..8. |
000017f0 20 20 20 20 20 73 74 72 62 20 20 20 30 2c 5b 36 | strb 0,[6|
00001800 2c 23 32 5d 0d 09 42 1a 20 20 20 20 20 20 20 73 |,#2]..B. s|
00001810 75 62 20 20 20 20 36 2c 36 2c 23 33 32 30 0d 09 |ub 6,6,#320..|
00001820 4c 17 20 20 20 20 20 20 20 73 74 72 62 20 20 20 |L. strb |
00001830 30 2c 5b 36 5d 0d 09 56 1a 20 20 20 20 20 20 20 |0,[6]..V. |
00001840 73 75 62 20 20 20 20 36 2c 36 2c 23 33 32 30 0d |sub 6,6,#320.|
00001850 09 60 17 20 20 20 20 20 20 20 73 74 72 62 20 20 |.`. strb |
00001860 20 30 2c 5b 36 5d 0d 09 6a 04 0d 09 74 1a 20 20 | 0,[6]..j...t. |
00001870 20 20 20 20 20 6c 64 6d 66 64 20 20 31 33 21 2c | ldmfd 13!,|
00001880 7b 31 35 7d 0d 09 7e 04 0d 09 88 2c 3b 20 70 65 |{15}..~....,; pe|
00001890 72 73 70 65 63 74 69 76 65 2f 72 6f 74 61 74 69 |rspective/rotati|
000018a0 6f 6e 20 74 61 62 6c 65 20 28 30 2e 2e 73 74 65 |on table (0..ste|
000018b0 70 73 25 29 0d 09 92 0f 3b 20 20 2b 30 20 20 78 |ps%)....; +0 x|
000018c0 70 6f 73 0d 09 9c 0f 3b 20 20 2b 34 20 20 79 70 |pos....; +4 yp|
000018d0 6f 73 0d 09 a6 11 3b 20 20 2b 38 20 20 75 6e 75 |os....; +8 unu|
000018e0 73 65 64 0d 09 b0 11 3b 20 20 2b 31 32 20 75 6e |sed....; +12 un|
000018f0 75 73 65 64 0d 09 ba 1c 2e 74 61 62 6c 65 20 a4 |used.....table .|
00001900 73 70 61 63 65 28 31 36 2a 73 74 65 70 73 25 29 |space(16*steps%)|
00001910 0d 09 c4 04 0d 09 ce 24 3b 20 64 6f 74 73 20 28 |.......$; dots (|
00001920 67 61 6c 61 78 79 20 74 61 62 6c 65 29 20 28 30 |galaxy table) (0|
00001930 2e 2e 64 6f 74 73 25 29 0d 09 d8 1c 3b 20 20 2b |..dots%)....; +|
00001940 30 20 20 61 6e 67 6c 65 20 28 30 2e 2e 73 74 65 |0 angle (0..ste|
00001950 70 73 25 29 0d 09 e2 28 3b 20 20 2b 34 20 20 64 |ps%)...(; +4 d|
00001960 69 73 74 61 6e 63 65 20 66 72 6f 6d 20 63 65 6e |istance from cen|
00001970 74 72 65 20 28 30 2e 2e 32 35 35 29 0d 09 ec 18 |tre (0..255)....|
00001980 3b 20 20 2b 31 32 20 73 68 61 64 65 20 28 30 2e |; +12 shade (0.|
00001990 2e 33 31 29 0d 09 f6 1b 2e 64 6f 74 73 20 20 a4 |.31).....dots .|
000019a0 73 70 61 63 65 28 31 32 2a 64 6f 74 73 25 29 0d |space(12*dots%).|
000019b0 0a 00 04 0d 0a 0a 14 3b 73 74 61 72 66 69 65 6c |.......;starfiel|
000019c0 64 20 74 61 62 6c 65 0d 0a 14 0f 3b 20 20 2b 30 |d table....; +0|
000019d0 20 20 78 70 6f 73 0d 0a 1e 0f 3b 20 20 2b 34 20 | xpos....; +4 |
000019e0 20 79 70 6f 73 0d 0a 28 10 3b 20 20 2b 38 20 20 | ypos..(.; +8 |
000019f0 73 68 61 64 65 0d 0a 32 14 3b 20 20 2b 31 32 20 |shade..2.; +12 |
00001a00 64 69 72 65 63 74 69 6f 6e 0d 0a 3c 1c 2e 73 74 |direction..<..st|
00001a10 61 72 73 20 a4 73 70 61 63 65 28 31 36 2a 6e 75 |ars .space(16*nu|
00001a20 6d 73 74 25 29 0d 0a 46 12 3b 20 63 6f 6c 6f 75 |mst%)..F.; colou|
00001a30 72 20 74 61 62 6c 65 0d 0a 50 2d 3b 20 6d 61 70 |r table..P-; map|
00001a40 20 73 68 61 64 65 20 28 30 2e 2e 33 31 29 20 74 | shade (0..31) t|
00001a50 6f 20 61 63 74 75 61 6c 20 73 63 72 65 65 6e 20 |o actual screen |
00001a60 62 79 74 65 0d 0a 5a 13 2e 63 6f 6c 73 20 20 64 |byte..Z..cols d|
00001a70 63 62 20 20 20 20 32 0d 0a 64 12 20 20 20 20 20 |cb 2..d. |
00001a80 20 64 63 62 20 20 20 20 33 0d 0a 6e 13 20 20 20 | dcb 3..n. |
00001a90 20 20 20 64 63 62 20 20 20 20 34 34 0d 0a 78 13 | dcb 44..x.|
00001aa0 20 20 20 20 20 20 64 63 62 20 20 20 20 34 35 0d | dcb 45.|
00001ab0 0a 82 13 20 20 20 20 20 20 64 63 62 20 20 20 20 |... dcb |
00001ac0 34 35 0d 0a 8c 13 20 20 20 20 20 20 64 63 62 20 |45.... dcb |
00001ad0 20 20 20 34 36 0d 0a 96 13 20 20 20 20 20 20 64 | 46.... d|
00001ae0 63 62 20 20 20 20 34 36 0d 0a a0 13 20 20 20 20 |cb 46.... |
00001af0 20 20 64 63 62 20 20 20 20 34 36 0d 0a aa 13 20 | dcb 46.... |
00001b00 20 20 20 20 20 64 63 62 20 20 20 20 34 37 0d 0a | dcb 47..|
00001b10 b4 13 20 20 20 20 20 20 64 63 62 20 20 20 20 34 |.. dcb 4|
00001b20 37 0d 0a be 14 20 20 20 20 20 20 64 63 62 20 20 |7.... dcb |
00001b30 20 20 32 30 38 0d 0a c8 14 20 20 20 20 20 20 64 | 208.... d|
00001b40 63 62 20 20 20 20 32 30 38 0d 0a d2 14 20 20 20 |cb 208.... |
00001b50 20 20 20 64 63 62 20 20 20 20 32 30 38 0d 0a dc | dcb 208...|
00001b60 14 20 20 20 20 20 20 64 63 62 20 20 20 20 32 30 |. dcb 20|
00001b70 38 0d 0a e6 14 20 20 20 20 20 20 64 63 62 20 20 |8.... dcb |
00001b80 20 20 32 30 38 0d 0a f0 14 20 20 20 20 20 20 64 | 208.... d|
00001b90 63 62 20 20 20 20 32 30 39 0d 0a fa 15 20 20 20 |cb 209.... |
00001ba0 20 20 20 20 64 63 62 20 20 20 20 32 30 39 0d 0b | dcb 209..|
00001bb0 04 15 20 20 20 20 20 20 20 64 63 62 20 20 20 20 |.. dcb |
00001bc0 32 31 30 0d 0b 0e 15 20 20 20 20 20 20 20 64 63 |210.... dc|
00001bd0 62 20 20 20 20 32 31 30 0d 0b 18 15 20 20 20 20 |b 210.... |
00001be0 20 20 20 64 63 62 20 20 20 20 32 31 31 0d 0b 22 | dcb 211.."|
00001bf0 15 20 20 20 20 20 20 20 64 63 62 20 20 20 20 32 |. dcb 2|
00001c00 31 31 0d 0b 2c 15 20 20 20 20 20 20 20 64 63 62 |11..,. dcb|
00001c10 20 20 20 20 32 35 33 0d 0b 36 15 20 20 20 20 20 | 253..6. |
00001c20 20 20 64 63 62 20 20 20 20 32 35 33 0d 0b 40 15 | dcb 253..@.|
00001c30 20 20 20 20 20 20 20 64 63 62 20 20 20 20 32 35 | dcb 25|
00001c40 33 0d 0b 4a 15 20 20 20 20 20 20 20 64 63 62 20 |3..J. dcb |
00001c50 20 20 20 32 35 34 0d 0b 54 15 20 20 20 20 20 20 | 254..T. |
00001c60 20 64 63 62 20 20 20 20 32 35 34 0d 0b 5e 15 20 | dcb 254..^. |
00001c70 20 20 20 20 20 20 64 63 62 20 20 20 20 32 35 34 | dcb 254|
00001c80 0d 0b 68 15 20 20 20 20 20 20 20 64 63 62 20 20 |..h. dcb |
00001c90 20 20 32 35 34 0d 0b 72 15 20 20 20 20 20 20 20 | 254..r. |
00001ca0 64 63 62 20 20 20 20 32 35 35 0d 0b 7c 15 20 20 |dcb 255..|. |
00001cb0 20 20 20 20 20 64 63 62 20 20 20 20 32 35 35 0d | dcb 255.|
00001cc0 0b 86 15 20 20 20 20 20 20 20 64 63 62 20 20 20 |... dcb |
00001cd0 20 32 35 35 0d 0b 90 15 20 20 20 20 20 20 20 64 | 255.... d|
00001ce0 63 62 20 20 20 20 32 35 35 0d 0b 9a 15 20 20 20 |cb 255.... |
00001cf0 20 20 20 20 64 63 62 20 20 20 20 32 35 35 0d 0b | dcb 255..|
00001d00 a4 05 5d 0d 0b ae 05 ed 0d 0b b8 05 e1 0d 0b c2 |..].............|
00001d10 04 0d 0b cc 0f dd a4 73 70 61 63 65 28 6c 25 29 |.......space(l%)|
00001d20 0d 0b d6 0a 50 25 2b 3d 6c 25 0d 0b e0 06 3d 30 |....P%+=l%....=0|
00001d30 0d ff |..|
00001d32 
.