Home » Archimedes archive » Acorn User » AU 1998-09.adf » Regulars » StarInfo/Brobecker/EnvMap
StarInfo/Brobecker/EnvMap
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-09.adf » Regulars |
| Filename: | StarInfo/Brobecker/EnvMap |
| Read OK: | ✔ |
| File size: | 1E64 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>>> Environment Mapping
20REM Alain BROBECKER (baah/Arm's Tech) on 05-Apr-1998
30
40REM==== ASM CODE ============================================================
50DIMcode% 1024:FORopt%=0TO2STEP2:P%=code%:[opt opt%
60.old_stack ; Used to save r13, will overwrite on 'envmap' routine
70
80;\\\\\\\\\\\\\\\\\\\\\\\\\\\
90; Calculate Environment Map >
100;///////////////////////////
110;This routine creates the environment map. We calculate the intensity as an
120;affine function of the distance d=SQR(x^2+y^2). To allow dithering in mode12,
130;pixel_table contains a raster when offset is positive (even lines) and another
140;one when offset is negative (odd lines).
150; r0=adress where to save 128*128 environment map
160.envmap
170 stmfd r13!,{r0-r6,r14}
180 adr r1,pixel_table ; intensity to mode12_pixel table
190 mov r2,#256 ; y coord
200.env_y
210 mov r3,#256 ; x coord
220 sub r5,r2,#128 ; r5=y-128
230 mul r4,r5,r5 ; r4=(y-128)^2
240.env_x
250 sub r14,r3,#128 ; r14=x-128
260 mla r6,r14,r14,r4 ; r6=(x-128)^2+(y-128)^2
270 FNsqrt(5,6,14) ; r5=sqrt((x-128)^2+(y-128)^2)
280 mov r5,r5,lsl #1
290 rsbS r5,r5,#255 ; r5=255-2*sqrt(...)
300 movMI r5,#0
310 tst r2,#1 ; Parity of line?
320 ldrEQB r5,[r1,r5,lsr #3]
330 ldrNEB r5,[r1,-r5,lsr #3]
340 strB r5,[r0],#1 ; Save pixel
350 subS r3,r3,#1:bNE env_x ; Next pixel
360 subS r2,r2,#1:bNE env_y ; Next line
370 ldmfd r13!,{r0-r6,pc}^
380
390 dcd &feffffff:dcd &dcddedee:dcd &babbcbcc:dcd &9899a9aa
400 dcd &76778788:dcd &54556566:dcd &32334344:dcd &10112122
410.pixel_table
420 dcd &12110100:dcd &34332322:dcd &56554544:dcd &78776766
430 dcd &9a998988:dcd &bcbbabaa:dcd &deddcdcc:dcd &ffffefee
440
450;\\\\\\\\\\\\\\\\\\\\\\\\\\\\
460; Compute Displacements Table>
470;////////////////////////////
480;This routine use the height field image to create the displacement table.
490;Formulaes are disp_x(x;y)=h(x+1;y)-h(x-1;y) & disp_y(x;y)=h(x;y+1)-h(x;y-1).
500; r0=adress of heights
510; r1=table which will contain disp_x, disp_y
520.displacements
530 stmfd r13!,{r0-r5,r14}
540 mov r2,#0 ; y<<24
550.disp_y
560 mov r3,#0 ; x<<24
570.disp_x
580 add r5,r0,r2,lsr #16 ; r5=h(0;y)
590 sub r4,r3,#1<<24 ; r4=(x-1 mod 255)<<24
600 ldrB r4,[r5,r4,lsr #24] ; r4=h(x-1;y)
610 add r14,r3,#1<<24 ; r14=(x+1 mod 255)<<24
620 ldrB r14,[r5,r14,lsr #24] ; r14=h(x+1;y)
630 sub r4,r14,r4 ; r4=h(x+1;y)-h(x-1;y)
640 mov r4,r4,asr #1
650 add r4,r4,#128
660 strB r4,[r1],#1
670 add r5,r0,r3,lsr #24 ; r5=h(x;0)
680 sub r4,r2,#1<<24 ; r4=(y-1 mod 255)<<24
690 ldrB r4,[r5,r4,lsr #16] ; r4=h(x;y-1)
700 add r14,r2,#1<<24 ; r14=(y+1 mod 255)<<24
710 ldrB r14,[r5,r14,lsr #16] ; r14=h(x;y+1)
720 sub r4,r14,r4 ; r4=h(x;y+1)-h(x;y-1)
730 mov r4,r4,asr #1
740 add r4,r4,#128
750 strB r4,[r1],#1
760 addS r3,r3,#1<<24:bNE disp_x ; x=(x+1 mod255)<<24, continue if <>0
770 addS r2,r2,#1<<24:bNE disp_x ; y=(y+1 mod255)<<24, continue if <>0
780 ldmfd r13!,{r0-r5,pc}^
790
800;\\\\\\\\\\\\\\\\\\\\\\\\\\
810; Draw Environment Mapping >
820;//////////////////////////
830;For each screen pixel we compute which pixel to copy from environment map.
840;Formula is screen(x;y)=envmap(disp_x(x;y)+lx-x;disp_y(x;y)+ly-y).
850; r0=vram
860; r1=table with disp_x, disp_y
870; r2=adress of 256*256 environment map
880; r3=lx
890; r4=ly
900.draw_env
910 stmfd r13!,{r0-r12,r14}
920 str r13,old_stack
930 mov r5,#0 ; r5=y<<24
940.draw_y
950 mov r6,#0 ; r6=x<<24
960 sub r11,r4,r5,lsr #24 ; r11=ly-y
970.draw_x4
980 sub r12,r3,r6,lsr #24 ; r12=lx-x
990 ldmia r1!,{r13,r14} ; Load 4*2 displacements
1000 mov r9,#0 ; Will contain 4 points
1010 and r7,r13,#&ff ; r7=disp_x
1020 and r8,r13,#&ff00 ; r8=disp_y<<8
1030 addS r7,r7,r12 ; r7=dx=disp_x+lx-x
1040 addGES r8,r8,r11,lsl #8 ; r8=dy<<8=(disp_y+ly-y)<<8
1050 bMI draw_next1 ; Don't draw if dx<0 or dy<0
1060 cmp r7,#&ff
1070 cmpLE r8,#&ff00
1080 addLE r8,r7,r8 ; If dx<256 and dy<256, r8=dy<<8+dx
1090 ldrLEB r9,[r2,r8] ; And put envmap(dx;dy) in r9
1100.draw_next1
1110 sub r12,r12,#1 ; lx-x-=1 (ie x+=1)
1120 and r7,r13,#&ff0000 ; Similar, 2nd pixel
1130 addS r7,r7,r12,lsl #16
1140 addGES r8,r11,r13,lsr #24
1150 bMI draw_next2
1160 cmp r7,#&ff0000
1170 cmpLE r8,#&ff
1180 addLE r8,r7,r8,lsl #24
1190 ldrLEB r8,[r2,r8,lsr #16]
1200 addLE r9,r9,r8,lsl #8
1210.draw_next2
1220 sub r12,r12,#1
1230 and r7,r14,#&ff ; 3rd pixel
1240 and r8,r14,#&ff00
1250 addS r7,r7,r12
1260 addGES r8,r8,r11,lsl #8
1270 bMI draw_next3
1280 cmp r7,#&ff
1290 cmpLE r8,#&ff00
1300 addLE r8,r7,r8
1310 ldrLEB r8,[r2,r8]
1320 addLE r9,r9,r8,lsl #16
1330.draw_next3
1340 sub r12,r12,#1
1350 and r7,r14,#&ff0000 ; 4th pixel
1360 addS r7,r7,r12,lsl #16
1370 addGES r8,r11,r14,lsr #24
1380 bMI draw_next4
1390 cmp r7,#&ff0000
1400 cmpLE r8,#&ff
1410 addLE r8,r7,r8,lsl #24
1420 ldrLEB r8,[r2,r8,lsr #16]
1430 addLE r9,r9,r8,lsl #24
1440.draw_next4
1450 str r9,[r0],#4 ; Save 4 pixels
1460 addS r6,r6,#4<<24:bNE draw_x4 ; x+=4<<24, continue if <>0
1470 add r0,r0,#320-256 ; Next vram line
1480 addS r5,r5,#1<<24:bNE draw_y ; y+=1<<24, continue if <>0
1490 ldr r13,old_stack
1500 ldmfd r13!,{r0-r12,pc}^
1510
1520]:NEXTopt%:PRINT"Assembly code is ";P%-code%;" bytes long"
1530
1540REM==== BASIC CODE ==========================================================
1550DIMenvmap% 65536
1560DIMdisp% 65536*2
1570REMLoad height field and compute displacements
1580PRINT"Computing displacements"
1590A%=envmap%:B%=disp%
1600f%=OPENIN("Height256"):SYS"OS_GBPB",4,f%,A%,65536:CLOSE#f%
1610CALLdisplacements
1620REMCreate environment map
1630PRINT"Computing environment map"
1640A%=envmap%:CALLenvmap
1650
1660REMScreen & color initialisation. Then let the show begin.
1670MODE15:MODE12:OFF:DIMv% 8:!v%=148:v%!4=-1:SYS"OS_ReadVduVariables",v%,v%:v%=!v%
1680FORc%=1TO15
1690 b%=c%*17+34:IFb%>255THENb%=255
1700 COLOURc%,c%*17,c%*17,b%
1710NEXTc%
1720b%=2
1730B%=disp%
1740C%=envmap%
1750REPEAT
1760 WAIT:SYS"OS_Byte",&71,b%:b%=b%EOR3:SYS"OS_Byte",&70,b%
1770 A%=v%+(b%>>1)*81920+32
1780 MOUSEx%,y%,z%
1790 D%=(x%>>2)-32:E%=256-(y%>>2)
1800 CALLdraw_env
1810UNTILFALSE
1820
1830REM==== MACROS ====================================================
1840REMm0=sqrt(m1).
1850DEFFNsqrt(m0,m1,m2)
1860LOCALn%
1870[opt opt%
1880 mov m0,#0 ; This is ripped from Jan/BASS.
1890 mov m2,#1<<30 ; |
1900 cmp m1,m2 ; |
1910 subHS m1,m0,m2 ; |
1920 adc m0,m0,m0 ; |
1930]:FORn%=2TO30STEP2:[opt opt%
1940 add m2,m0,#1<<30 ; |
1950 cmp m1,m2,ror #n% ; |
1960 subHS m1,m1,m2,ror #n% ; |
1970 adc m0,m0,m0 ; End of ripped code.
1980]:NEXTn%:[opt opt%
1990 cmp m1,m0 ; Flags=val-root.
2000 addPL m0,m0,#1 ; Round to nearest integer.
2010]:=""
�>>> Environment Mapping
9� Alain BROBECKER (baah/Arm's Tech) on 05-Apr-1998
(O�==== ASM CODE ============================================================
2.�code% 1024:�opt%=0�2�2:P%=code%:[opt opt%
<R.old_stack ; Used to save r13, will overwrite on 'envmap' routine
F
P ;\\\\\\\\\\\\\\\\\\\\\\\\\\\
Z!; Calculate Environment Map >
d ;///////////////////////////
nO;This routine creates the environment map. We calculate the intensity as an
xP;affine function of the distance d=�(x^2+y^2). To allow dithering in mode12,
�S;pixel_table contains a raster when offset is positive (even lines) and another
�-;one when offset is negative (odd lines).
�?; r0=adress where to save 128*128 environment map
� .envmap
� stmfd r13!,{r0-r6,r14}
�I adr r1,pixel_table ; intensity to mode12_pixel table
�1 mov r2,#256 ; y coord
�
.env_y
�1 mov r3,#256 ; x coord
�2 sub r5,r2,#128 ; r5=y-128
�6 mul r4,r5,r5 ; r4=(y-128)^2
�
.env_x
�3 sub r14,r3,#128 ; r14=x-128
@ mla r6,r14,r14,r4 ; r6=(x-128)^2+(y-128)^2
E �sqrt(5,6,14) ; r5=sqrt((x-128)^2+(y-128)^2)
mov r5,r5,lsl #1
"< rsbS r5,r5,#255 ; r5=255-2*sqrt(...)
, movMI r5,#0
69 tst r2,#1 ; Parity of line?
@! ldrEQB r5,[r1,r5,lsr #3]
J" ldrNEB r5,[r1,-r5,lsr #3]
T4 strB r5,[r0],#1 ; Save pixel
^4 subS r3,r3,#1:bNE env_x ; Next pixel
h3 subS r2,r2,#1:bNE env_y ; Next line
r ldmfd r13!,{r0-r6,pc}^
|
�= dcd &feffffff:dcd &dcddedee:dcd &babbcbcc:dcd &9899a9aa
�= dcd &76778788:dcd &54556566:dcd &32334344:dcd &10112122
�.pixel_table
�= dcd &12110100:dcd &34332322:dcd &56554544:dcd &78776766
�= dcd &9a998988:dcd &bcbbabaa:dcd &deddcdcc:dcd &ffffefee
�
�!;\\\\\\\\\\\\\\\\\\\\\\\\\\\\
�"; Compute Displacements Table>
�!;////////////////////////////
�N;This routine use the height field image to create the displacement table.
�Q;Formulaes are disp_x(x;y)=h(x+1;y)-h(x-1;y) & disp_y(x;y)=h(x;y+1)-h(x;y-1).
�$; r0=adress of heights
�:; r1=table which will contain disp_x, disp_y
.displacements
stmfd r13!,{r0-r5,r14}
/ mov r2,#0 ; y<<24
& .disp_y
0/ mov r3,#0 ; x<<24
: .disp_x
D3 add r5,r0,r2,lsr #16 ; r5=h(0;y)
N> sub r4,r3,#1<<24 ; r4=(x-1 mod 255)<<24
X5 ldrB r4,[r5,r4,lsr #24] ; r4=h(x-1;y)
b? add r14,r3,#1<<24 ; r14=(x+1 mod 255)<<24
l6 ldrB r14,[r5,r14,lsr #24] ; r14=h(x+1;y)
v> sub r4,r14,r4 ; r4=h(x+1;y)-h(x-1;y)
� mov r4,r4,asr #1
� add r4,r4,#128
� strB r4,[r1],#1
�3 add r5,r0,r3,lsr #24 ; r5=h(x;0)
�> sub r4,r2,#1<<24 ; r4=(y-1 mod 255)<<24
�5 ldrB r4,[r5,r4,lsr #16] ; r4=h(x;y-1)
�? add r14,r2,#1<<24 ; r14=(y+1 mod 255)<<24
�6 ldrB r14,[r5,r14,lsr #16] ; r14=h(x;y+1)
�> sub r4,r14,r4 ; r4=h(x;y+1)-h(x;y-1)
� mov r4,r4,asr #1
� add r4,r4,#128
� strB r4,[r1],#1
�M addS r3,r3,#1<<24:bNE disp_x ; x=(x+1 mod255)<<24, continue if <>0
M addS r2,r2,#1<<24:bNE disp_x ; y=(y+1 mod255)<<24, continue if <>0
ldmfd r13!,{r0-r5,pc}^
;\\\\\\\\\\\\\\\\\\\\\\\\\\
* ; Draw Environment Mapping >
4 ;//////////////////////////
>O;For each screen pixel we compute which pixel to copy from environment map.
HF;Formula is screen(x;y)=envmap(disp_x(x;y)+lx-x;disp_y(x;y)+ly-y).
R; r0=vram
\,; r1=table with disp_x, disp_y
f4; r2=adress of 256*256 environment map
p; r3=lx
z; r4=ly
�
.draw_env
�! stmfd r13!,{r0-r12,r14}
� str r13,old_stack
�2 mov r5,#0 ; r5=y<<24
� .draw_y
�2 mov r6,#0 ; r6=x<<24
�2 sub r11,r4,r5,lsr #24 ; r11=ly-y
� .draw_x4
�2 sub r12,r3,r6,lsr #24 ; r12=lx-x
�@ ldmia r1!,{r13,r14} ; Load 4*2 displacements
�? mov r9,#0 ; Will contain 4 points
�3 and r7,r13,#&ff ; r7=disp_x
�6 and r8,r13,#&ff00 ; r8=disp_y<<8
; addS r7,r7,r12 ; r7=dx=disp_x+lx-x
C addGES r8,r8,r11,lsl #8 ; r8=dy<<8=(disp_y+ly-y)<<8
D bMI draw_next1 ; Don't draw if dx<0 or dy<0
$ cmp r7,#&ff
. cmpLE r8,#&ff00
8K addLE r8,r7,r8 ; If dx<256 and dy<256, r8=dy<<8+dx
BE ldrLEB r9,[r2,r8] ; And put envmap(dx;dy) in r9
L.draw_next1
V; sub r12,r12,#1 ; lx-x-=1 (ie x+=1)
`< and r7,r13,#&ff0000 ; Similar, 2nd pixel
j! addS r7,r7,r12,lsl #16
t" addGES r8,r11,r13,lsr #24
~ bMI draw_next2
� cmp r7,#&ff0000
� cmpLE r8,#&ff
�" addLE r8,r7,r8,lsl #24
�" ldrLEB r8,[r2,r8,lsr #16]
� addLE r9,r9,r8,lsl #8
�.draw_next2
� sub r12,r12,#1
�3 and r7,r14,#&ff ; 3rd pixel
� and r8,r14,#&ff00
� addS r7,r7,r12
� addGES r8,r8,r11,lsl #8
� bMI draw_next3
cmp r7,#&ff
cmpLE r8,#&ff00
addLE r8,r7,r8
ldrLEB r8,[r2,r8]
( addLE r9,r9,r8,lsl #16
2.draw_next3
< sub r12,r12,#1
F3 and r7,r14,#&ff0000 ; 4th pixel
P! addS r7,r7,r12,lsl #16
Z" addGES r8,r11,r14,lsr #24
d bMI draw_next4
n cmp r7,#&ff0000
x cmpLE r8,#&ff
� addLE r8,r7,r8,lsl #24
�" ldrLEB r8,[r2,r8,lsr #16]
� addLE r9,r9,r8,lsl #24
�.draw_next4
�7 str r9,[r0],#4 ; Save 4 pixels
�C addS r6,r6,#4<<24:bNE draw_x4 ; x+=4<<24, continue if <>0
�8 add r0,r0,#320-256 ; Next vram line
�C addS r5,r5,#1<<24:bNE draw_y ; y+=1<<24, continue if <>0
� ldr r13,old_stack
�! ldmfd r13!,{r0-r12,pc}^
�
�7]:�opt%:�"Assembly code is ";P%-code%;" bytes long"
�
O�==== BASIC CODE ==========================================================
�envmap% 65536
�disp% 65536*2
"0�Load height field and compute displacements
, �"Computing displacements"
6A%=envmap%:B%=disp%
@4f%=�("Height256"):ș"OS_GBPB",4,f%,A%,65536:�#f%
J�displacements
T�Create environment map
^ �"Computing environment map"
hA%=envmap%:�envmap
r
|<�Screen & color initialisation. Then let the show begin.
�H�15:�12:�:�v% 8:!v%=148:v%!4=-1:ș"OS_ReadVduVariables",v%,v%:v%=!v%
� �c%=1�15
� b%=c%*17+34:�b%>255�b%=255
� �c%,c%*17,c%*17,b%
��c%
�b%=2
� B%=disp%
�C%=envmap%
��
�5 Ȗ:ș"OS_Byte",&71,b%:b%=b%�3:ș"OS_Byte",&70,b%
� A%=v%+(b%>>1)*81920+32
� ȗx%,y%,z%
�! D%=(x%>>2)-32:E%=256-(y%>>2)
�draw_env
��
&E�==== MACROS ====================================================
0�m0=sqrt(m1).
:ݤsqrt(m0,m1,m2)
D�n%
N
[opt opt%
XG mov m0,#0 ; This is ripped from Jan/BASS.
b, mov m2,#1<<30 ; |
l, cmp m1,m2 ; |
v, subHS m1,m0,m2 ; |
�, adc m0,m0,m0 ; |
�]:�n%=2�30�2:[opt opt%
�, add m2,m0,#1<<30 ; |
�, cmp m1,m2,ror #n% ; |
�, subHS m1,m1,m2,ror #n% ; |
�= adc m0,m0,m0 ; End of ripped code.
�]:�n%:[opt opt%
�9 cmp m1,m0 ; Flags=val-root.
�C addPL m0,m0,#1 ; Round to nearest integer.
� ]:=""
� 00000000 0d 00 0a 1c f4 3e 3e 3e 20 45 6e 76 69 72 6f 6e |.....>>> Environ|
00000010 6d 65 6e 74 20 4d 61 70 70 69 6e 67 0d 00 14 39 |ment Mapping...9|
00000020 f4 20 20 20 20 41 6c 61 69 6e 20 42 52 4f 42 45 |. Alain BROBE|
00000030 43 4b 45 52 20 28 62 61 61 68 2f 41 72 6d 27 73 |CKER (baah/Arm's|
00000040 20 54 65 63 68 29 20 6f 6e 20 30 35 2d 41 70 72 | Tech) on 05-Apr|
00000050 2d 31 39 39 38 0d 00 1e 04 0d 00 28 4f f4 3d 3d |-1998......(O.==|
00000060 3d 3d 20 41 53 4d 20 43 4f 44 45 20 3d 3d 3d 3d |== ASM CODE ====|
00000070 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
000000a0 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 32 2e de 63 6f 64 |========..2..cod|
000000b0 65 25 20 31 30 32 34 3a e3 6f 70 74 25 3d 30 b8 |e% 1024:.opt%=0.|
000000c0 32 88 32 3a 50 25 3d 63 6f 64 65 25 3a 5b 6f 70 |2.2:P%=code%:[op|
000000d0 74 20 6f 70 74 25 0d 00 3c 52 2e 6f 6c 64 5f 73 |t opt%..<R.old_s|
000000e0 74 61 63 6b 20 20 20 20 20 20 20 20 20 20 20 20 |tack |
000000f0 20 20 3b 20 55 73 65 64 20 74 6f 20 73 61 76 65 | ; Used to save|
00000100 20 72 31 33 2c 20 77 69 6c 6c 20 6f 76 65 72 77 | r13, will overw|
00000110 72 69 74 65 20 6f 6e 20 27 65 6e 76 6d 61 70 27 |rite on 'envmap'|
00000120 20 72 6f 75 74 69 6e 65 0d 00 46 04 0d 00 50 20 | routine..F...P |
00000130 3b 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c |;\\\\\\\\\\\\\\\|
00000140 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 0d 00 5a 21 |\\\\\\\\\\\\..Z!|
00000150 3b 20 43 61 6c 63 75 6c 61 74 65 20 45 6e 76 69 |; Calculate Envi|
00000160 72 6f 6e 6d 65 6e 74 20 4d 61 70 20 3e 0d 00 64 |ronment Map >..d|
00000170 20 3b 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f | ;//////////////|
00000180 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 00 6e |/////////////..n|
00000190 4f 3b 54 68 69 73 20 72 6f 75 74 69 6e 65 20 63 |O;This routine c|
000001a0 72 65 61 74 65 73 20 74 68 65 20 65 6e 76 69 72 |reates the envir|
000001b0 6f 6e 6d 65 6e 74 20 6d 61 70 2e 20 57 65 20 63 |onment map. We c|
000001c0 61 6c 63 75 6c 61 74 65 20 74 68 65 20 69 6e 74 |alculate the int|
000001d0 65 6e 73 69 74 79 20 61 73 20 61 6e 0d 00 78 50 |ensity as an..xP|
000001e0 3b 61 66 66 69 6e 65 20 66 75 6e 63 74 69 6f 6e |;affine function|
000001f0 20 6f 66 20 74 68 65 20 64 69 73 74 61 6e 63 65 | of the distance|
00000200 20 64 3d b6 28 78 5e 32 2b 79 5e 32 29 2e 20 54 | d=.(x^2+y^2). T|
00000210 6f 20 61 6c 6c 6f 77 20 64 69 74 68 65 72 69 6e |o allow ditherin|
00000220 67 20 69 6e 20 6d 6f 64 65 31 32 2c 0d 00 82 53 |g in mode12,...S|
00000230 3b 70 69 78 65 6c 5f 74 61 62 6c 65 20 63 6f 6e |;pixel_table con|
00000240 74 61 69 6e 73 20 61 20 72 61 73 74 65 72 20 77 |tains a raster w|
00000250 68 65 6e 20 6f 66 66 73 65 74 20 69 73 20 70 6f |hen offset is po|
00000260 73 69 74 69 76 65 20 28 65 76 65 6e 20 6c 69 6e |sitive (even lin|
00000270 65 73 29 20 61 6e 64 20 61 6e 6f 74 68 65 72 0d |es) and another.|
00000280 00 8c 2d 3b 6f 6e 65 20 77 68 65 6e 20 6f 66 66 |..-;one when off|
00000290 73 65 74 20 69 73 20 6e 65 67 61 74 69 76 65 20 |set is negative |
000002a0 28 6f 64 64 20 6c 69 6e 65 73 29 2e 0d 00 96 3f |(odd lines)....?|
000002b0 3b 20 20 20 20 20 20 20 20 20 20 20 72 30 3d 61 |; r0=a|
000002c0 64 72 65 73 73 20 77 68 65 72 65 20 74 6f 20 73 |dress where to s|
000002d0 61 76 65 20 31 32 38 2a 31 32 38 20 65 6e 76 69 |ave 128*128 envi|
000002e0 72 6f 6e 6d 65 6e 74 20 6d 61 70 0d 00 a0 0b 2e |ronment map.....|
000002f0 65 6e 76 6d 61 70 0d 00 aa 20 20 20 73 74 6d 66 |envmap... stmf|
00000300 64 20 20 20 20 20 72 31 33 21 2c 7b 72 30 2d 72 |d r13!,{r0-r|
00000310 36 2c 72 31 34 7d 0d 00 b4 49 20 20 61 64 72 20 |6,r14}...I adr |
00000320 20 20 20 20 20 20 72 31 2c 70 69 78 65 6c 5f 74 | r1,pixel_t|
00000330 61 62 6c 65 20 20 20 20 20 20 20 20 20 20 3b 20 |able ; |
00000340 69 6e 74 65 6e 73 69 74 79 20 74 6f 20 6d 6f 64 |intensity to mod|
00000350 65 31 32 5f 70 69 78 65 6c 20 74 61 62 6c 65 0d |e12_pixel table.|
00000360 00 be 31 20 20 6d 6f 76 20 20 20 20 20 20 20 72 |..1 mov r|
00000370 32 2c 23 32 35 36 20 20 20 20 20 20 20 20 20 20 |2,#256 |
00000380 20 20 20 20 20 20 20 3b 20 79 20 63 6f 6f 72 64 | ; y coord|
00000390 0d 00 c8 0a 2e 65 6e 76 5f 79 0d 00 d2 31 20 20 |.....env_y...1 |
000003a0 6d 6f 76 20 20 20 20 20 20 20 72 33 2c 23 32 35 |mov r3,#25|
000003b0 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |6 |
000003c0 20 20 3b 20 78 20 63 6f 6f 72 64 0d 00 dc 32 20 | ; x coord...2 |
000003d0 20 73 75 62 20 20 20 20 20 20 20 72 35 2c 72 32 | sub r5,r2|
000003e0 2c 23 31 32 38 20 20 20 20 20 20 20 20 20 20 20 |,#128 |
000003f0 20 20 20 3b 20 72 35 3d 79 2d 31 32 38 0d 00 e6 | ; r5=y-128...|
00000400 36 20 20 6d 75 6c 20 20 20 20 20 20 20 72 34 2c |6 mul r4,|
00000410 72 35 2c 72 35 20 20 20 20 20 20 20 20 20 20 20 |r5,r5 |
00000420 20 20 20 20 20 3b 20 72 34 3d 28 79 2d 31 32 38 | ; r4=(y-128|
00000430 29 5e 32 0d 00 f0 0a 2e 65 6e 76 5f 78 0d 00 fa |)^2.....env_x...|
00000440 33 20 20 73 75 62 20 20 20 20 20 20 20 72 31 34 |3 sub r14|
00000450 2c 72 33 2c 23 31 32 38 20 20 20 20 20 20 20 20 |,r3,#128 |
00000460 20 20 20 20 20 3b 20 72 31 34 3d 78 2d 31 32 38 | ; r14=x-128|
00000470 0d 01 04 40 20 20 6d 6c 61 20 20 20 20 20 20 20 |...@ mla |
00000480 72 36 2c 72 31 34 2c 72 31 34 2c 72 34 20 20 20 |r6,r14,r14,r4 |
00000490 20 20 20 20 20 20 20 20 3b 20 72 36 3d 28 78 2d | ; r6=(x-|
000004a0 31 32 38 29 5e 32 2b 28 79 2d 31 32 38 29 5e 32 |128)^2+(y-128)^2|
000004b0 0d 01 0e 45 20 20 a4 73 71 72 74 28 35 2c 36 2c |...E .sqrt(5,6,|
000004c0 31 34 29 20 20 20 20 20 20 20 20 20 20 20 20 20 |14) |
000004d0 20 20 20 20 20 20 20 3b 20 72 35 3d 73 71 72 74 | ; r5=sqrt|
000004e0 28 28 78 2d 31 32 38 29 5e 32 2b 28 79 2d 31 32 |((x-128)^2+(y-12|
000004f0 38 29 5e 32 29 0d 01 18 1c 20 20 6d 6f 76 20 20 |8)^2).... mov |
00000500 20 20 20 20 20 72 35 2c 72 35 2c 6c 73 6c 20 23 | r5,r5,lsl #|
00000510 31 0d 01 22 3c 20 20 72 73 62 53 20 20 20 20 20 |1.."< rsbS |
00000520 20 72 35 2c 72 35 2c 23 32 35 35 20 20 20 20 20 | r5,r5,#255 |
00000530 20 20 20 20 20 20 20 20 20 3b 20 72 35 3d 32 35 | ; r5=25|
00000540 35 2d 32 2a 73 71 72 74 28 2e 2e 2e 29 0d 01 2c |5-2*sqrt(...)..,|
00000550 15 20 20 6d 6f 76 4d 49 20 20 20 20 20 72 35 2c |. movMI r5,|
00000560 23 30 0d 01 36 39 20 20 74 73 74 20 20 20 20 20 |#0..69 tst |
00000570 20 20 72 32 2c 23 31 20 20 20 20 20 20 20 20 20 | r2,#1 |
00000580 20 20 20 20 20 20 20 20 20 20 3b 20 50 61 72 69 | ; Pari|
00000590 74 79 20 6f 66 20 6c 69 6e 65 3f 0d 01 40 21 20 |ty of line?..@! |
000005a0 20 6c 64 72 45 51 42 20 20 20 20 72 35 2c 5b 72 | ldrEQB r5,[r|
000005b0 31 2c 72 35 2c 6c 73 72 20 23 33 5d 0d 01 4a 22 |1,r5,lsr #3]..J"|
000005c0 20 20 6c 64 72 4e 45 42 20 20 20 20 72 35 2c 5b | ldrNEB r5,[|
000005d0 72 31 2c 2d 72 35 2c 6c 73 72 20 23 33 5d 0d 01 |r1,-r5,lsr #3]..|
000005e0 54 34 20 20 73 74 72 42 20 20 20 20 20 20 72 35 |T4 strB r5|
000005f0 2c 5b 72 30 5d 2c 23 31 20 20 20 20 20 20 20 20 |,[r0],#1 |
00000600 20 20 20 20 20 20 3b 20 53 61 76 65 20 70 69 78 | ; Save pix|
00000610 65 6c 0d 01 5e 34 20 73 75 62 53 20 72 33 2c 72 |el..^4 subS r3,r|
00000620 33 2c 23 31 3a 62 4e 45 20 65 6e 76 5f 78 20 20 |3,#1:bNE env_x |
00000630 20 20 20 20 20 20 20 20 20 20 3b 20 4e 65 78 74 | ; Next|
00000640 20 70 69 78 65 6c 0d 01 68 33 20 73 75 62 53 20 | pixel..h3 subS |
00000650 72 32 2c 72 32 2c 23 31 3a 62 4e 45 20 65 6e 76 |r2,r2,#1:bNE env|
00000660 5f 79 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 |_y ; |
00000670 4e 65 78 74 20 6c 69 6e 65 0d 01 72 20 20 20 6c |Next line..r l|
00000680 64 6d 66 64 20 20 20 20 20 72 31 33 21 2c 7b 72 |dmfd r13!,{r|
00000690 30 2d 72 36 2c 70 63 7d 5e 0d 01 7c 04 0d 01 86 |0-r6,pc}^..|....|
000006a0 3d 20 20 64 63 64 20 26 66 65 66 66 66 66 66 66 |= dcd &feffffff|
000006b0 3a 64 63 64 20 26 64 63 64 64 65 64 65 65 3a 64 |:dcd &dcddedee:d|
000006c0 63 64 20 26 62 61 62 62 63 62 63 63 3a 64 63 64 |cd &babbcbcc:dcd|
000006d0 20 26 39 38 39 39 61 39 61 61 0d 01 90 3d 20 20 | &9899a9aa...= |
000006e0 64 63 64 20 26 37 36 37 37 38 37 38 38 3a 64 63 |dcd &76778788:dc|
000006f0 64 20 26 35 34 35 35 36 35 36 36 3a 64 63 64 20 |d &54556566:dcd |
00000700 26 33 32 33 33 34 33 34 34 3a 64 63 64 20 26 31 |&32334344:dcd &1|
00000710 30 31 31 32 31 32 32 0d 01 9a 10 2e 70 69 78 65 |0112122.....pixe|
00000720 6c 5f 74 61 62 6c 65 0d 01 a4 3d 20 20 64 63 64 |l_table...= dcd|
00000730 20 26 31 32 31 31 30 31 30 30 3a 64 63 64 20 26 | &12110100:dcd &|
00000740 33 34 33 33 32 33 32 32 3a 64 63 64 20 26 35 36 |34332322:dcd &56|
00000750 35 35 34 35 34 34 3a 64 63 64 20 26 37 38 37 37 |554544:dcd &7877|
00000760 36 37 36 36 0d 01 ae 3d 20 20 64 63 64 20 26 39 |6766...= dcd &9|
00000770 61 39 39 38 39 38 38 3a 64 63 64 20 26 62 63 62 |a998988:dcd &bcb|
00000780 62 61 62 61 61 3a 64 63 64 20 26 64 65 64 64 63 |babaa:dcd &deddc|
00000790 64 63 63 3a 64 63 64 20 26 66 66 66 66 65 66 65 |dcc:dcd &ffffefe|
000007a0 65 0d 01 b8 04 0d 01 c2 21 3b 5c 5c 5c 5c 5c 5c |e.......!;\\\\\\|
000007b0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c |\\\\\\\\\\\\\\\\|
000007c0 5c 5c 5c 5c 5c 5c 0d 01 cc 22 3b 20 43 6f 6d 70 |\\\\\\..."; Comp|
000007d0 75 74 65 20 44 69 73 70 6c 61 63 65 6d 65 6e 74 |ute Displacement|
000007e0 73 20 54 61 62 6c 65 3e 0d 01 d6 21 3b 2f 2f 2f |s Table>...!;///|
000007f0 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f |////////////////|
00000800 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 01 e0 4e 3b 54 68 |/////////...N;Th|
00000810 69 73 20 72 6f 75 74 69 6e 65 20 75 73 65 20 74 |is routine use t|
00000820 68 65 20 68 65 69 67 68 74 20 66 69 65 6c 64 20 |he height field |
00000830 69 6d 61 67 65 20 74 6f 20 63 72 65 61 74 65 20 |image to create |
00000840 74 68 65 20 64 69 73 70 6c 61 63 65 6d 65 6e 74 |the displacement|
00000850 20 74 61 62 6c 65 2e 0d 01 ea 51 3b 46 6f 72 6d | table....Q;Form|
00000860 75 6c 61 65 73 20 61 72 65 20 64 69 73 70 5f 78 |ulaes are disp_x|
00000870 28 78 3b 79 29 3d 68 28 78 2b 31 3b 79 29 2d 68 |(x;y)=h(x+1;y)-h|
00000880 28 78 2d 31 3b 79 29 20 26 20 64 69 73 70 5f 79 |(x-1;y) & disp_y|
00000890 28 78 3b 79 29 3d 68 28 78 3b 79 2b 31 29 2d 68 |(x;y)=h(x;y+1)-h|
000008a0 28 78 3b 79 2d 31 29 2e 0d 01 f4 24 3b 20 20 20 |(x;y-1)....$; |
000008b0 20 20 20 20 20 20 20 20 72 30 3d 61 64 72 65 73 | r0=adres|
000008c0 73 20 6f 66 20 68 65 69 67 68 74 73 0d 01 fe 3a |s of heights...:|
000008d0 3b 20 20 20 20 20 20 20 20 20 20 20 72 31 3d 74 |; r1=t|
000008e0 61 62 6c 65 20 77 68 69 63 68 20 77 69 6c 6c 20 |able which will |
000008f0 63 6f 6e 74 61 69 6e 20 64 69 73 70 5f 78 2c 20 |contain disp_x, |
00000900 64 69 73 70 5f 79 0d 02 08 12 2e 64 69 73 70 6c |disp_y.....displ|
00000910 61 63 65 6d 65 6e 74 73 0d 02 12 20 20 20 73 74 |acements... st|
00000920 6d 66 64 20 20 20 20 20 72 31 33 21 2c 7b 72 30 |mfd r13!,{r0|
00000930 2d 72 35 2c 72 31 34 7d 0d 02 1c 2f 20 20 6d 6f |-r5,r14}.../ mo|
00000940 76 20 20 20 20 20 20 20 72 32 2c 23 30 20 20 20 |v r2,#0 |
00000950 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000960 3b 20 79 3c 3c 32 34 0d 02 26 0b 2e 64 69 73 70 |; y<<24..&..disp|
00000970 5f 79 0d 02 30 2f 20 20 6d 6f 76 20 20 20 20 20 |_y..0/ mov |
00000980 20 20 72 33 2c 23 30 20 20 20 20 20 20 20 20 20 | r3,#0 |
00000990 20 20 20 20 20 20 20 20 20 20 3b 20 78 3c 3c 32 | ; x<<2|
000009a0 34 0d 02 3a 0b 2e 64 69 73 70 5f 78 0d 02 44 33 |4..:..disp_x..D3|
000009b0 20 20 61 64 64 20 20 20 20 20 20 20 72 35 2c 72 | add r5,r|
000009c0 30 2c 72 32 2c 6c 73 72 20 23 31 36 20 20 20 20 |0,r2,lsr #16 |
000009d0 20 20 20 20 3b 20 72 35 3d 68 28 30 3b 79 29 0d | ; r5=h(0;y).|
000009e0 02 4e 3e 20 20 73 75 62 20 20 20 20 20 20 20 72 |.N> sub r|
000009f0 34 2c 72 33 2c 23 31 3c 3c 32 34 20 20 20 20 20 |4,r3,#1<<24 |
00000a00 20 20 20 20 20 20 20 3b 20 72 34 3d 28 78 2d 31 | ; r4=(x-1|
00000a10 20 6d 6f 64 20 32 35 35 29 3c 3c 32 34 0d 02 58 | mod 255)<<24..X|
00000a20 35 20 20 6c 64 72 42 20 20 20 20 20 20 72 34 2c |5 ldrB r4,|
00000a30 5b 72 35 2c 72 34 2c 6c 73 72 20 23 32 34 5d 20 |[r5,r4,lsr #24] |
00000a40 20 20 20 20 20 3b 20 72 34 3d 68 28 78 2d 31 3b | ; r4=h(x-1;|
00000a50 79 29 0d 02 62 3f 20 20 61 64 64 20 20 20 20 20 |y)..b? add |
00000a60 20 20 72 31 34 2c 72 33 2c 23 31 3c 3c 32 34 20 | r14,r3,#1<<24 |
00000a70 20 20 20 20 20 20 20 20 20 20 3b 20 72 31 34 3d | ; r14=|
00000a80 28 78 2b 31 20 6d 6f 64 20 32 35 35 29 3c 3c 32 |(x+1 mod 255)<<2|
00000a90 34 0d 02 6c 36 20 20 6c 64 72 42 20 20 20 20 20 |4..l6 ldrB |
00000aa0 20 72 31 34 2c 5b 72 35 2c 72 31 34 2c 6c 73 72 | r14,[r5,r14,lsr|
00000ab0 20 23 32 34 5d 20 20 20 20 3b 20 72 31 34 3d 68 | #24] ; r14=h|
00000ac0 28 78 2b 31 3b 79 29 0d 02 76 3e 20 20 73 75 62 |(x+1;y)..v> sub|
00000ad0 20 20 20 20 20 20 20 72 34 2c 72 31 34 2c 72 34 | r4,r14,r4|
00000ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | ;|
00000af0 20 72 34 3d 68 28 78 2b 31 3b 79 29 2d 68 28 78 | r4=h(x+1;y)-h(x|
00000b00 2d 31 3b 79 29 0d 02 80 1c 20 20 6d 6f 76 20 20 |-1;y).... mov |
00000b10 20 20 20 20 20 72 34 2c 72 34 2c 61 73 72 20 23 | r4,r4,asr #|
00000b20 31 0d 02 8a 1a 20 20 61 64 64 20 20 20 20 20 20 |1.... add |
00000b30 20 72 34 2c 72 34 2c 23 31 32 38 0d 02 94 1a 20 | r4,r4,#128.... |
00000b40 20 73 74 72 42 20 20 20 20 20 20 72 34 2c 5b 72 | strB r4,[r|
00000b50 31 5d 2c 23 31 0d 02 9e 33 20 20 61 64 64 20 20 |1],#1...3 add |
00000b60 20 20 20 20 20 72 35 2c 72 30 2c 72 33 2c 6c 73 | r5,r0,r3,ls|
00000b70 72 20 23 32 34 20 20 20 20 20 20 20 20 3b 20 72 |r #24 ; r|
00000b80 35 3d 68 28 78 3b 30 29 0d 02 a8 3e 20 20 73 75 |5=h(x;0)...> su|
00000b90 62 20 20 20 20 20 20 20 72 34 2c 72 32 2c 23 31 |b r4,r2,#1|
00000ba0 3c 3c 32 34 20 20 20 20 20 20 20 20 20 20 20 20 |<<24 |
00000bb0 3b 20 72 34 3d 28 79 2d 31 20 6d 6f 64 20 32 35 |; r4=(y-1 mod 25|
00000bc0 35 29 3c 3c 32 34 0d 02 b2 35 20 20 6c 64 72 42 |5)<<24...5 ldrB|
00000bd0 20 20 20 20 20 20 72 34 2c 5b 72 35 2c 72 34 2c | r4,[r5,r4,|
00000be0 6c 73 72 20 23 31 36 5d 20 20 20 20 20 20 3b 20 |lsr #16] ; |
00000bf0 72 34 3d 68 28 78 3b 79 2d 31 29 0d 02 bc 3f 20 |r4=h(x;y-1)...? |
00000c00 20 61 64 64 20 20 20 20 20 20 20 72 31 34 2c 72 | add r14,r|
00000c10 32 2c 23 31 3c 3c 32 34 20 20 20 20 20 20 20 20 |2,#1<<24 |
00000c20 20 20 20 3b 20 72 31 34 3d 28 79 2b 31 20 6d 6f | ; r14=(y+1 mo|
00000c30 64 20 32 35 35 29 3c 3c 32 34 0d 02 c6 36 20 20 |d 255)<<24...6 |
00000c40 6c 64 72 42 20 20 20 20 20 20 72 31 34 2c 5b 72 |ldrB r14,[r|
00000c50 35 2c 72 31 34 2c 6c 73 72 20 23 31 36 5d 20 20 |5,r14,lsr #16] |
00000c60 20 20 3b 20 72 31 34 3d 68 28 78 3b 79 2b 31 29 | ; r14=h(x;y+1)|
00000c70 0d 02 d0 3e 20 20 73 75 62 20 20 20 20 20 20 20 |...> sub |
00000c80 72 34 2c 72 31 34 2c 72 34 20 20 20 20 20 20 20 |r4,r14,r4 |
00000c90 20 20 20 20 20 20 20 20 3b 20 72 34 3d 68 28 78 | ; r4=h(x|
00000ca0 3b 79 2b 31 29 2d 68 28 78 3b 79 2d 31 29 0d 02 |;y+1)-h(x;y-1)..|
00000cb0 da 1c 20 20 6d 6f 76 20 20 20 20 20 20 20 72 34 |.. mov r4|
00000cc0 2c 72 34 2c 61 73 72 20 23 31 0d 02 e4 1a 20 20 |,r4,asr #1.... |
00000cd0 61 64 64 20 20 20 20 20 20 20 72 34 2c 72 34 2c |add r4,r4,|
00000ce0 23 31 32 38 0d 02 ee 1a 20 20 73 74 72 42 20 20 |#128.... strB |
00000cf0 20 20 20 20 72 34 2c 5b 72 31 5d 2c 23 31 0d 02 | r4,[r1],#1..|
00000d00 f8 4d 20 61 64 64 53 20 72 33 2c 72 33 2c 23 31 |.M addS r3,r3,#1|
00000d10 3c 3c 32 34 3a 62 4e 45 20 64 69 73 70 5f 78 20 |<<24:bNE disp_x |
00000d20 20 20 20 20 20 20 3b 20 78 3d 28 78 2b 31 20 6d | ; x=(x+1 m|
00000d30 6f 64 32 35 35 29 3c 3c 32 34 2c 20 63 6f 6e 74 |od255)<<24, cont|
00000d40 69 6e 75 65 20 69 66 20 3c 3e 30 0d 03 02 4d 20 |inue if <>0...M |
00000d50 61 64 64 53 20 72 32 2c 72 32 2c 23 31 3c 3c 32 |addS r2,r2,#1<<2|
00000d60 34 3a 62 4e 45 20 64 69 73 70 5f 78 20 20 20 20 |4:bNE disp_x |
00000d70 20 20 20 3b 20 79 3d 28 79 2b 31 20 6d 6f 64 32 | ; y=(y+1 mod2|
00000d80 35 35 29 3c 3c 32 34 2c 20 63 6f 6e 74 69 6e 75 |55)<<24, continu|
00000d90 65 20 69 66 20 3c 3e 30 0d 03 0c 20 20 20 6c 64 |e if <>0... ld|
00000da0 6d 66 64 20 20 20 20 20 72 31 33 21 2c 7b 72 30 |mfd r13!,{r0|
00000db0 2d 72 35 2c 70 63 7d 5e 0d 03 16 04 0d 03 20 1f |-r5,pc}^...... .|
00000dc0 3b 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c |;\\\\\\\\\\\\\\\|
00000dd0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 0d 03 2a 20 3b |\\\\\\\\\\\..* ;|
00000de0 20 44 72 61 77 20 45 6e 76 69 72 6f 6e 6d 65 6e | Draw Environmen|
00000df0 74 20 4d 61 70 70 69 6e 67 20 3e 0d 03 34 1f 3b |t Mapping >..4.;|
00000e00 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f |////////////////|
00000e10 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 03 3e 4f 3b 46 |//////////..>O;F|
00000e20 6f 72 20 65 61 63 68 20 73 63 72 65 65 6e 20 70 |or each screen p|
00000e30 69 78 65 6c 20 77 65 20 63 6f 6d 70 75 74 65 20 |ixel we compute |
00000e40 77 68 69 63 68 20 70 69 78 65 6c 20 74 6f 20 63 |which pixel to c|
00000e50 6f 70 79 20 66 72 6f 6d 20 65 6e 76 69 72 6f 6e |opy from environ|
00000e60 6d 65 6e 74 20 6d 61 70 2e 0d 03 48 46 3b 46 6f |ment map...HF;Fo|
00000e70 72 6d 75 6c 61 20 69 73 20 73 63 72 65 65 6e 28 |rmula is screen(|
00000e80 78 3b 79 29 3d 65 6e 76 6d 61 70 28 64 69 73 70 |x;y)=envmap(disp|
00000e90 5f 78 28 78 3b 79 29 2b 6c 78 2d 78 3b 64 69 73 |_x(x;y)+lx-x;dis|
00000ea0 70 5f 79 28 78 3b 79 29 2b 6c 79 2d 79 29 2e 0d |p_y(x;y)+ly-y)..|
00000eb0 03 52 17 3b 20 20 20 20 20 20 20 20 20 20 20 72 |.R.; r|
00000ec0 30 3d 76 72 61 6d 0d 03 5c 2c 3b 20 20 20 20 20 |0=vram..\,; |
00000ed0 20 20 20 20 20 20 72 31 3d 74 61 62 6c 65 20 77 | r1=table w|
00000ee0 69 74 68 20 64 69 73 70 5f 78 2c 20 64 69 73 70 |ith disp_x, disp|
00000ef0 5f 79 0d 03 66 34 3b 20 20 20 20 20 20 20 20 20 |_y..f4; |
00000f00 20 20 72 32 3d 61 64 72 65 73 73 20 6f 66 20 32 | r2=adress of 2|
00000f10 35 36 2a 32 35 36 20 65 6e 76 69 72 6f 6e 6d 65 |56*256 environme|
00000f20 6e 74 20 6d 61 70 0d 03 70 15 3b 20 20 20 20 20 |nt map..p.; |
00000f30 20 20 20 20 20 20 72 33 3d 6c 78 0d 03 7a 15 3b | r3=lx..z.;|
00000f40 20 20 20 20 20 20 20 20 20 20 20 72 34 3d 6c 79 | r4=ly|
00000f50 0d 03 84 0d 2e 64 72 61 77 5f 65 6e 76 0d 03 8e |.....draw_env...|
00000f60 21 20 20 73 74 6d 66 64 20 20 20 20 20 72 31 33 |! stmfd r13|
00000f70 21 2c 7b 72 30 2d 72 31 32 2c 72 31 34 7d 0d 03 |!,{r0-r12,r14}..|
00000f80 98 1d 20 20 73 74 72 20 20 20 20 20 20 20 72 31 |.. str r1|
00000f90 33 2c 6f 6c 64 5f 73 74 61 63 6b 0d 03 a2 32 20 |3,old_stack...2 |
00000fa0 20 6d 6f 76 20 20 20 20 20 20 20 72 35 2c 23 30 | mov r5,#0|
00000fb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000fc0 20 20 20 3b 20 72 35 3d 79 3c 3c 32 34 0d 03 ac | ; r5=y<<24...|
00000fd0 0b 2e 64 72 61 77 5f 79 0d 03 b6 32 20 20 6d 6f |..draw_y...2 mo|
00000fe0 76 20 20 20 20 20 20 20 72 36 2c 23 30 20 20 20 |v r6,#0 |
00000ff0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001000 3b 20 72 36 3d 78 3c 3c 32 34 0d 03 c0 32 20 20 |; r6=x<<24...2 |
00001010 73 75 62 20 20 20 20 20 20 20 72 31 31 2c 72 34 |sub r11,r4|
00001020 2c 72 35 2c 6c 73 72 20 23 32 34 20 20 20 20 20 |,r5,lsr #24 |
00001030 20 20 3b 20 72 31 31 3d 6c 79 2d 79 0d 03 ca 0c | ; r11=ly-y....|
00001040 2e 64 72 61 77 5f 78 34 0d 03 d4 32 20 20 73 75 |.draw_x4...2 su|
00001050 62 20 20 20 20 20 20 20 72 31 32 2c 72 33 2c 72 |b r12,r3,r|
00001060 36 2c 6c 73 72 20 23 32 34 20 20 20 20 20 20 20 |6,lsr #24 |
00001070 3b 20 72 31 32 3d 6c 78 2d 78 0d 03 de 40 20 20 |; r12=lx-x...@ |
00001080 6c 64 6d 69 61 20 20 20 20 20 72 31 21 2c 7b 72 |ldmia r1!,{r|
00001090 31 33 2c 72 31 34 7d 20 20 20 20 20 20 20 20 20 |13,r14} |
000010a0 20 20 3b 20 4c 6f 61 64 20 34 2a 32 20 64 69 73 | ; Load 4*2 dis|
000010b0 70 6c 61 63 65 6d 65 6e 74 73 0d 03 e8 3f 20 20 |placements...? |
000010c0 6d 6f 76 20 20 20 20 20 20 20 72 39 2c 23 30 20 |mov r9,#0 |
000010d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010e0 20 20 3b 20 57 69 6c 6c 20 63 6f 6e 74 61 69 6e | ; Will contain|
000010f0 20 34 20 70 6f 69 6e 74 73 0d 03 f2 33 20 20 61 | 4 points...3 a|
00001100 6e 64 20 20 20 20 20 20 20 72 37 2c 72 31 33 2c |nd r7,r13,|
00001110 23 26 66 66 20 20 20 20 20 20 20 20 20 20 20 20 |#&ff |
00001120 20 3b 20 72 37 3d 64 69 73 70 5f 78 0d 03 fc 36 | ; r7=disp_x...6|
00001130 20 20 61 6e 64 20 20 20 20 20 20 20 72 38 2c 72 | and r8,r|
00001140 31 33 2c 23 26 66 66 30 30 20 20 20 20 20 20 20 |13,#&ff00 |
00001150 20 20 20 20 3b 20 72 38 3d 64 69 73 70 5f 79 3c | ; r8=disp_y<|
00001160 3c 38 0d 04 06 3b 20 20 61 64 64 53 20 20 20 20 |<8...; addS |
00001170 20 20 72 37 2c 72 37 2c 72 31 32 20 20 20 20 20 | r7,r7,r12 |
00001180 20 20 20 20 20 20 20 20 20 20 3b 20 72 37 3d 64 | ; r7=d|
00001190 78 3d 64 69 73 70 5f 78 2b 6c 78 2d 78 0d 04 10 |x=disp_x+lx-x...|
000011a0 43 20 20 61 64 64 47 45 53 20 20 20 20 72 38 2c |C addGES r8,|
000011b0 72 38 2c 72 31 31 2c 6c 73 6c 20 23 38 20 20 20 |r8,r11,lsl #8 |
000011c0 20 20 20 20 20 3b 20 72 38 3d 64 79 3c 3c 38 3d | ; r8=dy<<8=|
000011d0 28 64 69 73 70 5f 79 2b 6c 79 2d 79 29 3c 3c 38 |(disp_y+ly-y)<<8|
000011e0 0d 04 1a 44 20 20 62 4d 49 20 20 20 20 20 20 20 |...D bMI |
000011f0 64 72 61 77 5f 6e 65 78 74 31 20 20 20 20 20 20 |draw_next1 |
00001200 20 20 20 20 20 20 20 20 3b 20 44 6f 6e 27 74 20 | ; Don't |
00001210 64 72 61 77 20 69 66 20 64 78 3c 30 20 6f 72 20 |draw if dx<0 or |
00001220 64 79 3c 30 0d 04 24 17 20 20 63 6d 70 20 20 20 |dy<0..$. cmp |
00001230 20 20 20 20 72 37 2c 23 26 66 66 0d 04 2e 19 20 | r7,#&ff.... |
00001240 20 63 6d 70 4c 45 20 20 20 20 20 72 38 2c 23 26 | cmpLE r8,#&|
00001250 66 66 30 30 0d 04 38 4b 20 20 61 64 64 4c 45 20 |ff00..8K addLE |
00001260 20 20 20 20 72 38 2c 72 37 2c 72 38 20 20 20 20 | r8,r7,r8 |
00001270 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 49 66 | ; If|
00001280 20 64 78 3c 32 35 36 20 61 6e 64 20 64 79 3c 32 | dx<256 and dy<2|
00001290 35 36 2c 20 72 38 3d 64 79 3c 3c 38 2b 64 78 0d |56, r8=dy<<8+dx.|
000012a0 04 42 45 20 20 6c 64 72 4c 45 42 20 20 20 20 72 |.BE ldrLEB r|
000012b0 39 2c 5b 72 32 2c 72 38 5d 20 20 20 20 20 20 20 |9,[r2,r8] |
000012c0 20 20 20 20 20 20 20 3b 20 41 6e 64 20 70 75 74 | ; And put|
000012d0 20 65 6e 76 6d 61 70 28 64 78 3b 64 79 29 20 69 | envmap(dx;dy) i|
000012e0 6e 20 72 39 0d 04 4c 0f 2e 64 72 61 77 5f 6e 65 |n r9..L..draw_ne|
000012f0 78 74 31 0d 04 56 3b 20 20 73 75 62 20 20 20 20 |xt1..V; sub |
00001300 20 20 20 72 31 32 2c 72 31 32 2c 23 31 20 20 20 | r12,r12,#1 |
00001310 20 20 20 20 20 20 20 20 20 20 20 3b 20 6c 78 2d | ; lx-|
00001320 78 2d 3d 31 20 28 69 65 20 78 2b 3d 31 29 0d 04 |x-=1 (ie x+=1)..|
00001330 60 3c 20 20 61 6e 64 20 20 20 20 20 20 20 72 37 |`< and r7|
00001340 2c 72 31 33 2c 23 26 66 66 30 30 30 30 20 20 20 |,r13,#&ff0000 |
00001350 20 20 20 20 20 20 3b 20 53 69 6d 69 6c 61 72 2c | ; Similar,|
00001360 20 32 6e 64 20 70 69 78 65 6c 0d 04 6a 21 20 20 | 2nd pixel..j! |
00001370 61 64 64 53 20 20 20 20 20 20 72 37 2c 72 37 2c |addS r7,r7,|
00001380 72 31 32 2c 6c 73 6c 20 23 31 36 0d 04 74 22 20 |r12,lsl #16..t" |
00001390 20 61 64 64 47 45 53 20 20 20 20 72 38 2c 72 31 | addGES r8,r1|
000013a0 31 2c 72 31 33 2c 6c 73 72 20 23 32 34 0d 04 7e |1,r13,lsr #24..~|
000013b0 1a 20 20 62 4d 49 20 20 20 20 20 20 20 64 72 61 |. bMI dra|
000013c0 77 5f 6e 65 78 74 32 0d 04 88 1b 20 20 63 6d 70 |w_next2.... cmp|
000013d0 20 20 20 20 20 20 20 72 37 2c 23 26 66 66 30 30 | r7,#&ff00|
000013e0 30 30 0d 04 92 17 20 20 63 6d 70 4c 45 20 20 20 |00.... cmpLE |
000013f0 20 20 72 38 2c 23 26 66 66 0d 04 9c 22 20 20 61 | r8,#&ff..." a|
00001400 64 64 4c 45 20 20 20 20 20 72 38 2c 72 37 2c 72 |ddLE r8,r7,r|
00001410 38 2c 6c 73 6c 20 23 32 34 20 20 0d 04 a6 22 20 |8,lsl #24 ..." |
00001420 20 6c 64 72 4c 45 42 20 20 20 20 72 38 2c 5b 72 | ldrLEB r8,[r|
00001430 32 2c 72 38 2c 6c 73 72 20 23 31 36 5d 0d 04 b0 |2,r8,lsr #16]...|
00001440 1f 20 20 61 64 64 4c 45 20 20 20 20 20 72 39 2c |. addLE r9,|
00001450 72 39 2c 72 38 2c 6c 73 6c 20 23 38 0d 04 ba 0f |r9,r8,lsl #8....|
00001460 2e 64 72 61 77 5f 6e 65 78 74 32 0d 04 c4 1a 20 |.draw_next2.... |
00001470 20 73 75 62 20 20 20 20 20 20 20 72 31 32 2c 72 | sub r12,r|
00001480 31 32 2c 23 31 0d 04 ce 33 20 20 61 6e 64 20 20 |12,#1...3 and |
00001490 20 20 20 20 20 72 37 2c 72 31 34 2c 23 26 66 66 | r7,r14,#&ff|
000014a0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 33 | ; 3|
000014b0 72 64 20 70 69 78 65 6c 0d 04 d8 1d 20 20 61 6e |rd pixel.... an|
000014c0 64 20 20 20 20 20 20 20 72 38 2c 72 31 34 2c 23 |d r8,r14,#|
000014d0 26 66 66 30 30 0d 04 e2 19 20 20 61 64 64 53 20 |&ff00.... addS |
000014e0 20 20 20 20 20 72 37 2c 72 37 2c 72 31 32 0d 04 | r7,r7,r12..|
000014f0 ec 20 20 20 61 64 64 47 45 53 20 20 20 20 72 38 |. addGES r8|
00001500 2c 72 38 2c 72 31 31 2c 6c 73 6c 20 23 38 0d 04 |,r8,r11,lsl #8..|
00001510 f6 1a 20 20 62 4d 49 20 20 20 20 20 20 20 64 72 |.. bMI dr|
00001520 61 77 5f 6e 65 78 74 33 0d 05 00 17 20 20 63 6d |aw_next3.... cm|
00001530 70 20 20 20 20 20 20 20 72 37 2c 23 26 66 66 0d |p r7,#&ff.|
00001540 05 0a 19 20 20 63 6d 70 4c 45 20 20 20 20 20 72 |... cmpLE r|
00001550 38 2c 23 26 66 66 30 30 0d 05 14 18 20 20 61 64 |8,#&ff00.... ad|
00001560 64 4c 45 20 20 20 20 20 72 38 2c 72 37 2c 72 38 |dLE r8,r7,r8|
00001570 0d 05 1e 1a 20 20 6c 64 72 4c 45 42 20 20 20 20 |.... ldrLEB |
00001580 72 38 2c 5b 72 32 2c 72 38 5d 0d 05 28 20 20 20 |r8,[r2,r8]..( |
00001590 61 64 64 4c 45 20 20 20 20 20 72 39 2c 72 39 2c |addLE r9,r9,|
000015a0 72 38 2c 6c 73 6c 20 23 31 36 0d 05 32 0f 2e 64 |r8,lsl #16..2..d|
000015b0 72 61 77 5f 6e 65 78 74 33 0d 05 3c 1a 20 20 73 |raw_next3..<. s|
000015c0 75 62 20 20 20 20 20 20 20 72 31 32 2c 72 31 32 |ub r12,r12|
000015d0 2c 23 31 0d 05 46 33 20 20 61 6e 64 20 20 20 20 |,#1..F3 and |
000015e0 20 20 20 72 37 2c 72 31 34 2c 23 26 66 66 30 30 | r7,r14,#&ff00|
000015f0 30 30 20 20 20 20 20 20 20 20 20 3b 20 34 74 68 |00 ; 4th|
00001600 20 70 69 78 65 6c 0d 05 50 21 20 20 61 64 64 53 | pixel..P! addS|
00001610 20 20 20 20 20 20 72 37 2c 72 37 2c 72 31 32 2c | r7,r7,r12,|
00001620 6c 73 6c 20 23 31 36 0d 05 5a 22 20 20 61 64 64 |lsl #16..Z" add|
00001630 47 45 53 20 20 20 20 72 38 2c 72 31 31 2c 72 31 |GES r8,r11,r1|
00001640 34 2c 6c 73 72 20 23 32 34 0d 05 64 1a 20 20 62 |4,lsr #24..d. b|
00001650 4d 49 20 20 20 20 20 20 20 64 72 61 77 5f 6e 65 |MI draw_ne|
00001660 78 74 34 0d 05 6e 1b 20 20 63 6d 70 20 20 20 20 |xt4..n. cmp |
00001670 20 20 20 72 37 2c 23 26 66 66 30 30 30 30 0d 05 | r7,#&ff0000..|
00001680 78 17 20 20 63 6d 70 4c 45 20 20 20 20 20 72 38 |x. cmpLE r8|
00001690 2c 23 26 66 66 0d 05 82 20 20 20 61 64 64 4c 45 |,#&ff... addLE|
000016a0 20 20 20 20 20 72 38 2c 72 37 2c 72 38 2c 6c 73 | r8,r7,r8,ls|
000016b0 6c 20 23 32 34 0d 05 8c 22 20 20 6c 64 72 4c 45 |l #24..." ldrLE|
000016c0 42 20 20 20 20 72 38 2c 5b 72 32 2c 72 38 2c 6c |B r8,[r2,r8,l|
000016d0 73 72 20 23 31 36 5d 0d 05 96 20 20 20 61 64 64 |sr #16]... add|
000016e0 4c 45 20 20 20 20 20 72 39 2c 72 39 2c 72 38 2c |LE r9,r9,r8,|
000016f0 6c 73 6c 20 23 32 34 0d 05 a0 0f 2e 64 72 61 77 |lsl #24.....draw|
00001700 5f 6e 65 78 74 34 0d 05 aa 37 20 20 73 74 72 20 |_next4...7 str |
00001710 20 20 20 20 20 20 72 39 2c 5b 72 30 5d 2c 23 34 | r9,[r0],#4|
00001720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 | ; |
00001730 53 61 76 65 20 34 20 70 69 78 65 6c 73 0d 05 b4 |Save 4 pixels...|
00001740 43 20 61 64 64 53 20 72 36 2c 72 36 2c 23 34 3c |C addS r6,r6,#4<|
00001750 3c 32 34 3a 62 4e 45 20 64 72 61 77 5f 78 34 20 |<24:bNE draw_x4 |
00001760 20 20 20 20 20 3b 20 78 2b 3d 34 3c 3c 32 34 2c | ; x+=4<<24,|
00001770 20 63 6f 6e 74 69 6e 75 65 20 69 66 20 3c 3e 30 | continue if <>0|
00001780 0d 05 be 38 20 20 61 64 64 20 20 20 20 20 20 20 |...8 add |
00001790 72 30 2c 72 30 2c 23 33 32 30 2d 32 35 36 20 20 |r0,r0,#320-256 |
000017a0 20 20 20 20 20 20 20 20 3b 20 4e 65 78 74 20 76 | ; Next v|
000017b0 72 61 6d 20 6c 69 6e 65 0d 05 c8 43 20 61 64 64 |ram line...C add|
000017c0 53 20 72 35 2c 72 35 2c 23 31 3c 3c 32 34 3a 62 |S r5,r5,#1<<24:b|
000017d0 4e 45 20 64 72 61 77 5f 79 20 20 20 20 20 20 20 |NE draw_y |
000017e0 3b 20 79 2b 3d 31 3c 3c 32 34 2c 20 63 6f 6e 74 |; y+=1<<24, cont|
000017f0 69 6e 75 65 20 69 66 20 3c 3e 30 0d 05 d2 1d 20 |inue if <>0.... |
00001800 20 6c 64 72 20 20 20 20 20 20 20 72 31 33 2c 6f | ldr r13,o|
00001810 6c 64 5f 73 74 61 63 6b 0d 05 dc 21 20 20 6c 64 |ld_stack...! ld|
00001820 6d 66 64 20 20 20 20 20 72 31 33 21 2c 7b 72 30 |mfd r13!,{r0|
00001830 2d 72 31 32 2c 70 63 7d 5e 0d 05 e6 06 20 20 0d |-r12,pc}^.... .|
00001840 05 f0 37 5d 3a ed 6f 70 74 25 3a f1 22 41 73 73 |..7]:.opt%:."Ass|
00001850 65 6d 62 6c 79 20 63 6f 64 65 20 69 73 20 22 3b |embly code is ";|
00001860 50 25 2d 63 6f 64 65 25 3b 22 20 62 79 74 65 73 |P%-code%;" bytes|
00001870 20 6c 6f 6e 67 22 0d 05 fa 04 0d 06 04 4f f4 3d | long".......O.=|
00001880 3d 3d 3d 20 42 41 53 49 43 20 43 4f 44 45 20 3d |=== BASIC CODE =|
00001890 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
000018c0 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 06 0e 12 de 65 6e |=========.....en|
000018d0 76 6d 61 70 25 20 36 35 35 33 36 0d 06 18 12 de |vmap% 65536.....|
000018e0 64 69 73 70 25 20 36 35 35 33 36 2a 32 0d 06 22 |disp% 65536*2.."|
000018f0 30 f4 4c 6f 61 64 20 68 65 69 67 68 74 20 66 69 |0.Load height fi|
00001900 65 6c 64 20 61 6e 64 20 63 6f 6d 70 75 74 65 20 |eld and compute |
00001910 64 69 73 70 6c 61 63 65 6d 65 6e 74 73 0d 06 2c |displacements..,|
00001920 1f f1 22 43 6f 6d 70 75 74 69 6e 67 20 64 69 73 |.."Computing dis|
00001930 70 6c 61 63 65 6d 65 6e 74 73 22 20 0d 06 36 17 |placements" ..6.|
00001940 41 25 3d 65 6e 76 6d 61 70 25 3a 42 25 3d 64 69 |A%=envmap%:B%=di|
00001950 73 70 25 0d 06 40 34 66 25 3d 8e 28 22 48 65 69 |sp%..@4f%=.("Hei|
00001960 67 68 74 32 35 36 22 29 3a c8 99 22 4f 53 5f 47 |ght256"):.."OS_G|
00001970 42 50 42 22 2c 34 2c 66 25 2c 41 25 2c 36 35 35 |BPB",4,f%,A%,655|
00001980 33 36 3a d9 23 66 25 0d 06 4a 12 d6 64 69 73 70 |36:.#f%..J..disp|
00001990 6c 61 63 65 6d 65 6e 74 73 0d 06 54 1b f4 43 72 |lacements..T..Cr|
000019a0 65 61 74 65 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 |eate environment|
000019b0 20 6d 61 70 0d 06 5e 20 f1 22 43 6f 6d 70 75 74 | map..^ ."Comput|
000019c0 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 |ing environment |
000019d0 6d 61 70 22 0d 06 68 16 41 25 3d 65 6e 76 6d 61 |map"..h.A%=envma|
000019e0 70 25 3a d6 65 6e 76 6d 61 70 0d 06 72 04 0d 06 |p%:.envmap..r...|
000019f0 7c 3c f4 53 63 72 65 65 6e 20 26 20 63 6f 6c 6f ||<.Screen & colo|
00001a00 72 20 69 6e 69 74 69 61 6c 69 73 61 74 69 6f 6e |r initialisation|
00001a10 2e 20 54 68 65 6e 20 6c 65 74 20 74 68 65 20 73 |. Then let the s|
00001a20 68 6f 77 20 62 65 67 69 6e 2e 0d 06 86 48 eb 31 |how begin....H.1|
00001a30 35 3a eb 31 32 3a 87 3a de 76 25 20 38 3a 21 76 |5:.12:.:.v% 8:!v|
00001a40 25 3d 31 34 38 3a 76 25 21 34 3d 2d 31 3a c8 99 |%=148:v%!4=-1:..|
00001a50 22 4f 53 5f 52 65 61 64 56 64 75 56 61 72 69 61 |"OS_ReadVduVaria|
00001a60 62 6c 65 73 22 2c 76 25 2c 76 25 3a 76 25 3d 21 |bles",v%,v%:v%=!|
00001a70 76 25 0d 06 90 0c e3 63 25 3d 31 b8 31 35 0d 06 |v%.....c%=1.15..|
00001a80 9a 1f 20 62 25 3d 63 25 2a 31 37 2b 33 34 3a e7 |.. b%=c%*17+34:.|
00001a90 62 25 3e 32 35 35 8c 62 25 3d 32 35 35 0d 06 a4 |b%>255.b%=255...|
00001aa0 17 20 fb 63 25 2c 63 25 2a 31 37 2c 63 25 2a 31 |. .c%,c%*17,c%*1|
00001ab0 37 2c 62 25 0d 06 ae 07 ed 63 25 0d 06 b8 08 62 |7,b%.....c%....b|
00001ac0 25 3d 32 0d 06 c2 0c 42 25 3d 64 69 73 70 25 0d |%=2....B%=disp%.|
00001ad0 06 cc 0e 43 25 3d 65 6e 76 6d 61 70 25 0d 06 d6 |...C%=envmap%...|
00001ae0 05 f5 0d 06 e0 35 20 c8 96 3a c8 99 22 4f 53 5f |.....5 ..:.."OS_|
00001af0 42 79 74 65 22 2c 26 37 31 2c 62 25 3a 62 25 3d |Byte",&71,b%:b%=|
00001b00 62 25 82 33 3a c8 99 22 4f 53 5f 42 79 74 65 22 |b%.3:.."OS_Byte"|
00001b10 2c 26 37 30 2c 62 25 0d 06 ea 1b 20 41 25 3d 76 |,&70,b%.... A%=v|
00001b20 25 2b 28 62 25 3e 3e 31 29 2a 38 31 39 32 30 2b |%+(b%>>1)*81920+|
00001b30 33 32 0d 06 f4 0f 20 c8 97 78 25 2c 79 25 2c 7a |32.... ..x%,y%,z|
00001b40 25 0d 06 fe 21 20 44 25 3d 28 78 25 3e 3e 32 29 |%...! D%=(x%>>2)|
00001b50 2d 33 32 3a 45 25 3d 32 35 36 2d 28 79 25 3e 3e |-32:E%=256-(y%>>|
00001b60 32 29 0d 07 08 0e 20 d6 64 72 61 77 5f 65 6e 76 |2).... .draw_env|
00001b70 0d 07 12 06 fd a3 0d 07 1c 04 0d 07 26 45 f4 3d |............&E.=|
00001b80 3d 3d 3d 20 4d 41 43 52 4f 53 20 3d 3d 3d 3d 3d |=== MACROS =====|
00001b90 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00001bb0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d |===============.|
00001bc0 07 30 11 f4 6d 30 3d 73 71 72 74 28 6d 31 29 2e |.0..m0=sqrt(m1).|
00001bd0 0d 07 3a 14 dd a4 73 71 72 74 28 6d 30 2c 6d 31 |..:...sqrt(m0,m1|
00001be0 2c 6d 32 29 0d 07 44 07 ea 6e 25 0d 07 4e 0d 5b |,m2)..D..n%..N.[|
00001bf0 6f 70 74 20 6f 70 74 25 0d 07 58 47 20 20 6d 6f |opt opt%..XG mo|
00001c00 76 20 20 20 20 20 20 20 6d 30 2c 23 30 20 20 20 |v m0,#0 |
00001c10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001c20 3b 20 54 68 69 73 20 69 73 20 72 69 70 70 65 64 |; This is ripped|
00001c30 20 66 72 6f 6d 20 4a 61 6e 2f 42 41 53 53 2e 0d | from Jan/BASS..|
00001c40 07 62 2c 20 20 6d 6f 76 20 20 20 20 20 20 20 6d |.b, mov m|
00001c50 32 2c 23 31 3c 3c 33 30 20 20 20 20 20 20 20 20 |2,#1<<30 |
00001c60 20 20 20 20 20 20 20 3b 20 20 7c 0d 07 6c 2c 20 | ; |..l, |
00001c70 20 63 6d 70 20 20 20 20 20 20 20 6d 31 2c 6d 32 | cmp m1,m2|
00001c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001c90 20 20 20 3b 20 20 7c 0d 07 76 2c 20 20 73 75 62 | ; |..v, sub|
00001ca0 48 53 20 20 20 20 20 6d 31 2c 6d 30 2c 6d 32 20 |HS m1,m0,m2 |
00001cb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | ;|
00001cc0 20 20 7c 0d 07 80 2c 20 20 61 64 63 20 20 20 20 | |..., adc |
00001cd0 20 20 20 6d 30 2c 6d 30 2c 6d 30 20 20 20 20 20 | m0,m0,m0 |
00001ce0 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 7c 0d | ; |.|
00001cf0 07 8a 1a 5d 3a e3 6e 25 3d 32 b8 33 30 88 32 3a |...]:.n%=2.30.2:|
00001d00 5b 6f 70 74 20 6f 70 74 25 0d 07 94 2c 20 20 61 |[opt opt%..., a|
00001d10 64 64 20 20 20 20 20 20 20 6d 32 2c 6d 30 2c 23 |dd m2,m0,#|
00001d20 31 3c 3c 33 30 20 20 20 20 20 20 20 20 20 20 20 |1<<30 |
00001d30 20 3b 20 20 7c 0d 07 9e 2c 20 20 63 6d 70 20 20 | ; |..., cmp |
00001d40 20 20 20 20 20 6d 31 2c 6d 32 2c 72 6f 72 20 23 | m1,m2,ror #|
00001d50 6e 25 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 |n% ; |
00001d60 7c 0d 07 a8 2c 20 20 73 75 62 48 53 20 20 20 20 ||..., subHS |
00001d70 20 6d 31 2c 6d 31 2c 6d 32 2c 72 6f 72 20 23 6e | m1,m1,m2,ror #n|
00001d80 25 20 20 20 20 20 20 20 20 3b 20 20 7c 0d 07 b2 |% ; |...|
00001d90 3d 20 20 61 64 63 20 20 20 20 20 20 20 6d 30 2c |= adc m0,|
00001da0 6d 30 2c 6d 30 20 20 20 20 20 20 20 20 20 20 20 |m0,m0 |
00001db0 20 20 20 20 20 3b 20 45 6e 64 20 6f 66 20 72 69 | ; End of ri|
00001dc0 70 70 65 64 20 63 6f 64 65 2e 0d 07 bc 13 5d 3a |pped code.....]:|
00001dd0 ed 6e 25 3a 5b 6f 70 74 20 6f 70 74 25 0d 07 c6 |.n%:[opt opt%...|
00001de0 39 20 20 63 6d 70 20 20 20 20 20 20 20 6d 31 2c |9 cmp m1,|
00001df0 6d 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |m0 |
00001e00 20 20 20 20 20 3b 20 46 6c 61 67 73 3d 76 61 6c | ; Flags=val|
00001e10 2d 72 6f 6f 74 2e 0d 07 d0 43 20 20 61 64 64 50 |-root....C addP|
00001e20 4c 20 20 20 20 20 6d 30 2c 6d 30 2c 23 31 20 20 |L m0,m0,#1 |
00001e30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 | ; |
00001e40 52 6f 75 6e 64 20 74 6f 20 6e 65 61 72 65 73 74 |Round to nearest|
00001e50 20 69 6e 74 65 67 65 72 2e 0d 07 da 09 5d 3a 3d | integer.....]:=|
00001e60 22 22 0d ff |""..|
00001e64 
.