,� 13 : � try modes 15 and 21 if you can!
�initvbles
�
( �inputparams
2 �assemble
< �:�
F �maze(numz,szmz)
P � 7
Z key%=�
d � key%=83 � key%=115 �
n* �("Screensave Maze"+�"00"+�image%,2))
x image%+=1
� �
�� �
��
�:
�:
�� �initvbles
�mem=512
�� code mem
�!code=148:code!4=-1
�&ș "OS_ReadVduVariables",code,code
�
scn=!code
�%wcol=77   :� gcol # of maze walls
�$mcol=192  :�           maze path

&fcol=79   :�           maze border

Dtcol=3    :� temporary colour of maze path (during construction)

sz$="35":nu$="1":sl$="0"

"3ș "OS_ReadModeVariable",-1,11 � ,,hpix:hpix+=1

,3ș "OS_ReadModeVariable",-1,12 � ,,vpix:vpix+=1

6(ș "OS_ReadModeVariable",-1,4 � ,,xe

@(ș "OS_ReadModeVariable",-1,5 � ,,ye

Jmaxsize = �((vpix-5)/2)

Timage%=1

^�

h:

r� �inputparams

|I�input("Maze size (10-"+�maxsize+") ",sz$,szmz,"v>=5 AND v<=maxsize")

�*�input("Maze number ",nu$,numz,"v<>0")

�8�input("Slow (1 yes, 0 no) ",sl$,slow%,"v=0 OR v=1")

��

�:

�� �input(p$,� v$,� v,c$)

�� w$

��

��

��11,13:�(39):�11,13

��p$;"{"+v$+"}";:� w$

�� w$="" w$=v$

�!� w$="R" � w$="r" w$="random"

�&� w$="random" � v=�:� v<>0 � v=�w$
� �c$=�
	v$=w$
�
&:
0� �maze(num%,size%)
:� wp%,hp%,ys%,x%,y%,dummy%
D� size%<10 size%=10
N!� size%>maxsize size%=maxsize
Xhp%=1+2*size%
bwp%=hp%*hpix/vpix
l� wp%>hpix-4 wp%=hpix-4
v� (wp%�1)=0 wp%-=1
�Ȗ
�%�rectangle(wp%+4, hp%+4, fcol, �)
�!�rectangle(wp%, hp%, wcol, �)
�!ased=num%
�dummy%=�(num%�&80000000)
�ys%=2*(�(size%+1)-1)
�x%=(hpix-wp%)/2
�y%=(vpix-hp%)/2 + ys%
�D!ascn  = scn + (vpix-1-y%)*hpix + x% :� start point for maze gen
�?!ascn = �lcol(tcol)
��mcol �63Ȝmcol
�<� (x%-2)<<xe,y%<<ye, (x%-1)<<xe,y%<<ye :� maze entrance!
�
� maze
ys%=2*(�(size%+1)-1)
x%=wp%+(hpix-wp%)/2
y%=(vpix-hp%)/2 + ys%
 8� x%<<xe,y%<<ye, (x%+1)<<xe,y%<<ye     :� maze exit!
*�
4:
>'� �rectangle(wp%, hp%, c%, window%)
H� x%,y%,w%,h%
Rx%=((hpix-wp%)/2)<<xe
\y%=((vpix-hp%)/2)<<ye
fw%=(wp%<<xe)-1
ph%=(hp%<<ye)-1
z� c%�63 Ȝ c%
�ȓ Ȑ x%,y%, w%,h%
�%� window% � 24,x%;y%;x%+w%;y%+h%;
��
�:
�>� convert 8-bit gcol # to value as stored in screen memory
�F� �lcol(c%) = ((c%�33)<<2)+((c%�14)<<3)+((c%�16)>>1)+((c%�192)>>6)
�:
�� �assemble
�#addr=0:xor=1:seed=2:a=3:b=4:l=5
�'tc=6:r=7:fc=8:of=9:newad=10:tmp4=11
�sp=13:link=14:pc=15
�L%=code+mem
�� pass%=8 � 10 � 2
P%=code
[OPT pass%
.axor EQUD &82D4E1B8
$.ased EQUD -1
.%.ascn EQUD scn+hpix/2+vpix/2*hpix
8:
B	.maze
LLDR    xor,axor
VLDR    seed,ased
`FLDR    addr,ascn              ;screen address to start maze gen at
j<MOV    tc,#�lcol(tcol)       ;temporary maze path colour
t8MOV    fc,#�lcol(mcol)       ;final maze path colour
~:
�4.rep                          ;main program loop
�]
�
� slow% �
� [OPT pass%
� STMFD  (sp)!,{0,1,2}
�F MOV    0, #19                ;if 'slow' option on, wait for vsync
�? SWI    "OS_Byte"             ;and also check escape status
� LDMFD  (sp)!,{0,1,2}
�  SWI    "OS_ReadEscapeState"
� MOVCS  pc, link
� ]
��
[OPT pass%

LDRB   r,[addr,#2]
LDRB   l,[addr,#-2]
LDRB   b,[addr,#hpix*2]
(LDRB   a,[addr,#-hpix*2]
2;CMP    r,#�lcol(wcol)        ;check if current point is
<,CMPNE  l,#�lcol(wcol)        ;'boxed in'
FCMPNE  b,#�lcol(wcol)
PCMPNE  a,#�lcol(wcol)
ZCBEQ    endw                   ;if not, take a random walk . . .
d:
nDSTRB   fc,[addr]              ;else mark point with final colour
xELDRB   r,[addr,#1]!           ;then locate adjacent temp coloured
�>CMP    r,tc                   ;path and step back over it,
�>STREQB fc,[addr],#1           ;colouring it final as we go
�@BEQ    rep                    ;before looping back to try to
�ELDRB   l,[addr,#-2]!          ;continue our random walk from this
�(CMP    l,tc                   ;point
�STREQB fc,[addr],#-1
�BEQ    rep
�LDRB   b,[addr,#1+hpix]!
�CMP    b,tc
�STREQB fc,[addr],#hpix
�BEQ    rep
�LDRB   a,[addr,#-2*hpix]!
�CMP    a,tc
FSTREQB fc,[addr],#-hpix       ;should there be no surrounding temp
FBEQ    rep                    ;path remaining, we must have filled
FMOV    pc,link                ;full region with maze and can exit!
":
,6.endw                         ;take a random walk!
6MOVS   seed,seed,LSR #1
@�CS  seed,seed,xor
J:MOVCS  of,#2                  ;decide to move sideways
T-MOVCC  of,#2*hpix             ;or up/down
^MOVS   seed,seed,LSR #1
h�CS  seed,seed,xor
r7ADDCS  newad,addr,of          ;decide on right/down
|ESUBCC  newad,addr,of          ;or left/up, and then make the move
�LDRB   tmp4,[newad]
�ECMP    tmp4,#�lcol(wcol)     ;if point isn't free, branch back to
�DBNE    endw                   ;select another at random (nb >= 1
�F:                             ; exist so will find one eventually)
�ADDS   addr,addr,newad
�FMOV    addr,addr,RRX          ;get addr of point tween new and old
�,STRB   tc,[addr]              ;colour it
�ESTRB   tc,[newad]             ;and new with temporary path colour
�MOV    addr,newad
�AB      rep                    ;step onto new point and try to
�<:                             ;continue our random walk.
�]
��
�
�

00000000  0d 00 0a 2c eb 20 31 33  20 3a 20 f4 20 74 72 79  |...,. 13 : . try|
00000010  20 6d 6f 64 65 73 20 31  35 20 61 6e 64 20 32 31  | modes 15 and 21|
00000020  20 69 66 20 79 6f 75 20  63 61 6e 21 0d 00 14 0e  | if you can!....|
00000030  f2 69 6e 69 74 76 62 6c  65 73 0d 00 1e 05 f5 0d  |.initvbles......|
00000040  00 28 11 20 f2 69 6e 70  75 74 70 61 72 61 6d 73  |.(. .inputparams|
00000050  0d 00 32 0e 20 f2 61 73  73 65 6d 62 6c 65 0d 00  |..2. .assemble..|
00000060  3c 08 20 db 3a 87 0d 00  46 15 20 f2 6d 61 7a 65  |<. .:...F. .maze|
00000070  28 6e 75 6d 7a 2c 73 7a  6d 7a 29 0d 00 50 08 20  |(numz,szmz)..P. |
00000080  ef 20 37 0d 00 5a 0b 20  6b 65 79 25 3d a5 0d 00  |. 7..Z. key%=...|
00000090  64 1b 20 e7 20 6b 65 79  25 3d 38 33 20 84 20 6b  |d. . key%=83 . k|
000000a0  65 79 25 3d 31 31 35 20  8c 0d 00 6e 2a 20 ff 28  |ey%=115 ...n* .(|
000000b0  22 53 63 72 65 65 6e 73  61 76 65 20 4d 61 7a 65  |"Screensave Maze|
000000c0  22 2b c2 22 30 30 22 2b  c3 69 6d 61 67 65 25 2c  |"+."00"+.image%,|
000000d0  32 29 29 0d 00 78 0e 20  69 6d 61 67 65 25 2b 3d  |2))..x. image%+=|
000000e0  31 0d 00 82 06 20 cd 0d  00 8c 07 fd 20 a3 0d 00  |1.... ...... ...|
000000f0  96 05 e0 0d 00 a0 05 3a  0d 00 aa 05 3a 0d 00 b4  |.......:....:...|
00000100  10 dd 20 f2 69 6e 69 74  76 62 6c 65 73 0d 00 be  |.. .initvbles...|
00000110  0b 6d 65 6d 3d 35 31 32  0d 00 c8 0e de 20 63 6f  |.mem=512..... co|
00000120  64 65 20 6d 65 6d 0d 00  d2 17 21 63 6f 64 65 3d  |de mem....!code=|
00000130  31 34 38 3a 63 6f 64 65  21 34 3d 2d 31 0d 00 dc  |148:code!4=-1...|
00000140  26 c8 99 20 22 4f 53 5f  52 65 61 64 56 64 75 56  |&.. "OS_ReadVduV|
00000150  61 72 69 61 62 6c 65 73  22 2c 63 6f 64 65 2c 63  |ariables",code,c|
00000160  6f 64 65 0d 00 e6 0d 73  63 6e 3d 21 63 6f 64 65  |ode....scn=!code|
00000170  0d 00 f0 25 77 63 6f 6c  3d 37 37 20 20 20 3a f4  |...%wcol=77   :.|
00000180  20 67 63 6f 6c 20 23 20  6f 66 20 6d 61 7a 65 20  | gcol # of maze |
00000190  77 61 6c 6c 73 0d 00 fa  24 6d 63 6f 6c 3d 31 39  |walls...$mcol=19|
000001a0  32 20 20 3a f4 20 20 20  20 20 20 20 20 20 20 20  |2  :.           |
000001b0  6d 61 7a 65 20 70 61 74  68 0d 01 04 26 66 63 6f  |maze path...&fco|
000001c0  6c 3d 37 39 20 20 20 3a  f4 20 20 20 20 20 20 20  |l=79   :.       |
000001d0  20 20 20 20 6d 61 7a 65  20 62 6f 72 64 65 72 0d  |    maze border.|
000001e0  01 0e 44 74 63 6f 6c 3d  33 20 20 20 20 3a f4 20  |..Dtcol=3    :. |
000001f0  74 65 6d 70 6f 72 61 72  79 20 63 6f 6c 6f 75 72  |temporary colour|
00000200  20 6f 66 20 6d 61 7a 65  20 70 61 74 68 20 28 64  | of maze path (d|
00000210  75 72 69 6e 67 20 63 6f  6e 73 74 72 75 63 74 69  |uring constructi|
00000220  6f 6e 29 0d 01 18 1c 73  7a 24 3d 22 33 35 22 3a  |on)....sz$="35":|
00000230  6e 75 24 3d 22 31 22 3a  73 6c 24 3d 22 30 22 0d  |nu$="1":sl$="0".|
00000240  01 22 33 c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |."3.. "OS_ReadMo|
00000250  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 31  |deVariable",-1,1|
00000260  31 20 b8 20 2c 2c 68 70  69 78 3a 68 70 69 78 2b  |1 . ,,hpix:hpix+|
00000270  3d 31 0d 01 2c 33 c8 99  20 22 4f 53 5f 52 65 61  |=1..,3.. "OS_Rea|
00000280  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
00000290  31 2c 31 32 20 b8 20 2c  2c 76 70 69 78 3a 76 70  |1,12 . ,,vpix:vp|
000002a0  69 78 2b 3d 31 0d 01 36  28 c8 99 20 22 4f 53 5f  |ix+=1..6(.. "OS_|
000002b0  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
000002c0  22 2c 2d 31 2c 34 20 b8  20 2c 2c 78 65 0d 01 40  |",-1,4 . ,,xe..@|
000002d0  28 c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |(.. "OS_ReadMode|
000002e0  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 35 20 b8  |Variable",-1,5 .|
000002f0  20 2c 2c 79 65 0d 01 4a  1b 6d 61 78 73 69 7a 65  | ,,ye..J.maxsize|
00000300  20 3d 20 a8 28 28 76 70  69 78 2d 35 29 2f 32 29  | = .((vpix-5)/2)|
00000310  0d 01 54 0c 69 6d 61 67  65 25 3d 31 0d 01 5e 05  |..T.image%=1..^.|
00000320  e1 0d 01 68 05 3a 0d 01  72 12 dd 20 f2 69 6e 70  |...h.:..r.. .inp|
00000330  75 74 70 61 72 61 6d 73  0d 01 7c 49 f2 69 6e 70  |utparams..|I.inp|
00000340  75 74 28 22 4d 61 7a 65  20 73 69 7a 65 20 28 31  |ut("Maze size (1|
00000350  30 2d 22 2b c3 6d 61 78  73 69 7a 65 2b 22 29 20  |0-"+.maxsize+") |
00000360  22 2c 73 7a 24 2c 73 7a  6d 7a 2c 22 76 3e 3d 35  |",sz$,szmz,"v>=5|
00000370  20 41 4e 44 20 76 3c 3d  6d 61 78 73 69 7a 65 22  | AND v<=maxsize"|
00000380  29 0d 01 86 2a f2 69 6e  70 75 74 28 22 4d 61 7a  |)...*.input("Maz|
00000390  65 20 6e 75 6d 62 65 72  20 22 2c 6e 75 24 2c 6e  |e number ",nu$,n|
000003a0  75 6d 7a 2c 22 76 3c 3e  30 22 29 0d 01 90 38 f2  |umz,"v<>0")...8.|
000003b0  69 6e 70 75 74 28 22 53  6c 6f 77 20 28 31 20 79  |input("Slow (1 y|
000003c0  65 73 2c 20 30 20 6e 6f  29 20 22 2c 73 6c 24 2c  |es, 0 no) ",sl$,|
000003d0  73 6c 6f 77 25 2c 22 76  3d 30 20 4f 52 20 76 3d  |slow%,"v=0 OR v=|
000003e0  31 22 29 0d 01 9a 05 e1  0d 01 a4 05 3a 0d 01 ae  |1").........:...|
000003f0  1c dd 20 f2 69 6e 70 75  74 28 70 24 2c f8 20 76  |.. .input(p$,. v|
00000400  24 2c f8 20 76 2c 63 24  29 0d 01 b8 08 ea 20 77  |$,. v,c$)..... w|
00000410  24 0d 01 c2 05 f1 0d 01  cc 05 f5 0d 01 d6 18 ef  |$...............|
00000420  31 31 2c 31 33 3a f1 89  28 33 39 29 3a ef 31 31  |11,13:..(39):.11|
00000430  2c 31 33 0d 01 e0 18 f1  70 24 3b 22 7b 22 2b 76  |,13.....p$;"{"+v|
00000440  24 2b 22 7d 22 3b 3a e8  20 77 24 0d 01 ea 11 e7  |$+"}";:. w$.....|
00000450  20 77 24 3d 22 22 20 77  24 3d 76 24 0d 01 f4 21  | w$="" w$=v$...!|
00000460  e7 20 77 24 3d 22 52 22  20 84 20 77 24 3d 22 72  |. w$="R" . w$="r|
00000470  22 20 77 24 3d 22 72 61  6e 64 6f 6d 22 0d 01 fe  |" w$="random"...|
00000480  26 e7 20 77 24 3d 22 72  61 6e 64 6f 6d 22 20 f5  |&. w$="random" .|
00000490  20 76 3d b3 3a fd 20 76  3c 3e 30 20 8b 20 76 3d  | v=.:. v<>0 . v=|
000004a0  bb 77 24 0d 02 08 0b fd  20 a0 63 24 3d b9 0d 02  |.w$..... .c$=...|
000004b0  12 09 76 24 3d 77 24 0d  02 1c 05 e1 0d 02 26 05  |..v$=w$.......&.|
000004c0  3a 0d 02 30 17 dd 20 f2  6d 61 7a 65 28 6e 75 6d  |:..0.. .maze(num|
000004d0  25 2c 73 69 7a 65 25 29  0d 02 3a 1e ea 20 77 70  |%,size%)..:.. wp|
000004e0  25 2c 68 70 25 2c 79 73  25 2c 78 25 2c 79 25 2c  |%,hp%,ys%,x%,y%,|
000004f0  64 75 6d 6d 79 25 0d 02  44 17 e7 20 73 69 7a 65  |dummy%..D.. size|
00000500  25 3c 31 30 20 73 69 7a  65 25 3d 31 30 0d 02 4e  |%<10 size%=10..N|
00000510  21 e7 20 73 69 7a 65 25  3e 6d 61 78 73 69 7a 65  |!. size%>maxsize|
00000520  20 73 69 7a 65 25 3d 6d  61 78 73 69 7a 65 0d 02  | size%=maxsize..|
00000530  58 11 68 70 25 3d 31 2b  32 2a 73 69 7a 65 25 0d  |X.hp%=1+2*size%.|
00000540  02 62 15 77 70 25 3d 68  70 25 2a 68 70 69 78 2f  |.b.wp%=hp%*hpix/|
00000550  76 70 69 78 0d 02 6c 1b  e7 20 77 70 25 3e 68 70  |vpix..l.. wp%>hp|
00000560  69 78 2d 34 20 77 70 25  3d 68 70 69 78 2d 34 0d  |ix-4 wp%=hpix-4.|
00000570  02 76 16 e7 20 28 77 70  25 80 31 29 3d 30 20 77  |.v.. (wp%.1)=0 w|
00000580  70 25 2d 3d 31 0d 02 80  06 c8 96 0d 02 8a 25 f2  |p%-=1.........%.|
00000590  72 65 63 74 61 6e 67 6c  65 28 77 70 25 2b 34 2c  |rectangle(wp%+4,|
000005a0  20 68 70 25 2b 34 2c 20  66 63 6f 6c 2c 20 b9 29  | hp%+4, fcol, .)|
000005b0  0d 02 94 21 f2 72 65 63  74 61 6e 67 6c 65 28 77  |...!.rectangle(w|
000005c0  70 25 2c 20 68 70 25 2c  20 77 63 6f 6c 2c 20 a3  |p%, hp%, wcol, .|
000005d0  29 0d 02 9e 0e 21 61 73  65 64 3d 6e 75 6d 25 0d  |)....!ased=num%.|
000005e0  02 a8 1c 64 75 6d 6d 79  25 3d b3 28 6e 75 6d 25  |...dummy%=.(num%|
000005f0  84 26 38 30 30 30 30 30  30 30 29 0d 02 b2 18 79  |.&80000000)....y|
00000600  73 25 3d 32 2a 28 b3 28  73 69 7a 65 25 2b 31 29  |s%=2*(.(size%+1)|
00000610  2d 31 29 0d 02 bc 13 78  25 3d 28 68 70 69 78 2d  |-1)....x%=(hpix-|
00000620  77 70 25 29 2f 32 0d 02  c6 19 79 25 3d 28 76 70  |wp%)/2....y%=(vp|
00000630  69 78 2d 68 70 25 29 2f  32 20 2b 20 79 73 25 0d  |ix-hp%)/2 + ys%.|
00000640  02 d0 44 21 61 73 63 6e  20 20 3d 20 73 63 6e 20  |..D!ascn  = scn |
00000650  2b 20 28 76 70 69 78 2d  31 2d 79 25 29 2a 68 70  |+ (vpix-1-y%)*hp|
00000660  69 78 20 2b 20 78 25 20  3a f4 20 73 74 61 72 74  |ix + x% :. start|
00000670  20 70 6f 69 6e 74 20 66  6f 72 20 6d 61 7a 65 20  | point for maze |
00000680  67 65 6e 0d 02 da 18 3f  21 61 73 63 6e 20 3d 20  |gen....?!ascn = |
00000690  a4 6c 63 6f 6c 28 74 63  6f 6c 29 0d 02 e4 13 e6  |.lcol(tcol).....|
000006a0  6d 63 6f 6c 20 80 36 33  c8 9c 6d 63 6f 6c 0d 02  |mcol .63..mcol..|
000006b0  ee 3c 86 20 28 78 25 2d  32 29 3c 3c 78 65 2c 79  |.<. (x%-2)<<xe,y|
000006c0  25 3c 3c 79 65 2c 20 28  78 25 2d 31 29 3c 3c 78  |%<<ye, (x%-1)<<x|
000006d0  65 2c 79 25 3c 3c 79 65  20 3a f4 20 6d 61 7a 65  |e,y%<<ye :. maze|
000006e0  20 65 6e 74 72 61 6e 63  65 21 0d 02 f8 0a d6 20  | entrance!..... |
000006f0  6d 61 7a 65 0d 03 02 18  79 73 25 3d 32 2a 28 b3  |maze....ys%=2*(.|
00000700  28 73 69 7a 65 25 2b 31  29 2d 31 29 0d 03 0c 17  |(size%+1)-1)....|
00000710  78 25 3d 77 70 25 2b 28  68 70 69 78 2d 77 70 25  |x%=wp%+(hpix-wp%|
00000720  29 2f 32 0d 03 16 19 79  25 3d 28 76 70 69 78 2d  |)/2....y%=(vpix-|
00000730  68 70 25 29 2f 32 20 2b  20 79 73 25 0d 03 20 38  |hp%)/2 + ys%.. 8|
00000740  86 20 78 25 3c 3c 78 65  2c 79 25 3c 3c 79 65 2c  |. x%<<xe,y%<<ye,|
00000750  20 28 78 25 2b 31 29 3c  3c 78 65 2c 79 25 3c 3c  | (x%+1)<<xe,y%<<|
00000760  79 65 20 20 20 20 20 3a  f4 20 6d 61 7a 65 20 65  |ye     :. maze e|
00000770  78 69 74 21 0d 03 2a 05  e1 0d 03 34 05 3a 0d 03  |xit!..*....4.:..|
00000780  3e 27 dd 20 f2 72 65 63  74 61 6e 67 6c 65 28 77  |>'. .rectangle(w|
00000790  70 25 2c 20 68 70 25 2c  20 63 25 2c 20 77 69 6e  |p%, hp%, c%, win|
000007a0  64 6f 77 25 29 0d 03 48  11 ea 20 78 25 2c 79 25  |dow%)..H.. x%,y%|
000007b0  2c 77 25 2c 68 25 0d 03  52 19 78 25 3d 28 28 68  |,w%,h%..R.x%=((h|
000007c0  70 69 78 2d 77 70 25 29  2f 32 29 3c 3c 78 65 0d  |pix-wp%)/2)<<xe.|
000007d0  03 5c 19 79 25 3d 28 28  76 70 69 78 2d 68 70 25  |.\.y%=((vpix-hp%|
000007e0  29 2f 32 29 3c 3c 79 65  0d 03 66 12 77 25 3d 28  |)/2)<<ye..f.w%=(|
000007f0  77 70 25 3c 3c 78 65 29  2d 31 0d 03 70 12 68 25  |wp%<<xe)-1..p.h%|
00000800  3d 28 68 70 25 3c 3c 79  65 29 2d 31 0d 03 7a 11  |=(hp%<<ye)-1..z.|
00000810  e6 20 63 25 80 36 33 20  c8 9c 20 63 25 0d 03 84  |. c%.63 .. c%...|
00000820  16 c8 93 20 c8 90 20 78  25 2c 79 25 2c 20 77 25  |... .. x%,y%, w%|
00000830  2c 68 25 0d 03 8e 25 e7  20 77 69 6e 64 6f 77 25  |,h%...%. window%|
00000840  20 ef 20 32 34 2c 78 25  3b 79 25 3b 78 25 2b 77  | . 24,x%;y%;x%+w|
00000850  25 3b 79 25 2b 68 25 3b  0d 03 98 05 e1 0d 03 a2  |%;y%+h%;........|
00000860  05 3a 0d 03 ac 3e f4 20  63 6f 6e 76 65 72 74 20  |.:...>. convert |
00000870  38 2d 62 69 74 20 67 63  6f 6c 20 23 20 74 6f 20  |8-bit gcol # to |
00000880  76 61 6c 75 65 20 61 73  20 73 74 6f 72 65 64 20  |value as stored |
00000890  69 6e 20 73 63 72 65 65  6e 20 6d 65 6d 6f 72 79  |in screen memory|
000008a0  0d 03 b6 46 dd 20 a4 6c  63 6f 6c 28 63 25 29 20  |...F. .lcol(c%) |
000008b0  3d 20 28 28 63 25 80 33  33 29 3c 3c 32 29 2b 28  |= ((c%.33)<<2)+(|
000008c0  28 63 25 80 31 34 29 3c  3c 33 29 2b 28 28 63 25  |(c%.14)<<3)+((c%|
000008d0  80 31 36 29 3e 3e 31 29  2b 28 28 63 25 80 31 39  |.16)>>1)+((c%.19|
000008e0  32 29 3e 3e 36 29 0d 03  c0 05 3a 0d 03 ca 0f dd  |2)>>6)....:.....|
000008f0  20 f2 61 73 73 65 6d 62  6c 65 0d 03 d4 23 61 64  | .assemble...#ad|
00000900  64 72 3d 30 3a 78 6f 72  3d 31 3a 73 65 65 64 3d  |dr=0:xor=1:seed=|
00000910  32 3a 61 3d 33 3a 62 3d  34 3a 6c 3d 35 0d 03 de  |2:a=3:b=4:l=5...|
00000920  27 74 63 3d 36 3a 72 3d  37 3a 66 63 3d 38 3a 6f  |'tc=6:r=7:fc=8:o|
00000930  66 3d 39 3a 6e 65 77 61  64 3d 31 30 3a 74 6d 70  |f=9:newad=10:tmp|
00000940  34 3d 31 31 0d 03 e8 17  73 70 3d 31 33 3a 6c 69  |4=11....sp=13:li|
00000950  6e 6b 3d 31 34 3a 70 63  3d 31 35 0d 03 f2 0f 4c  |nk=14:pc=15....L|
00000960  25 3d 63 6f 64 65 2b 6d  65 6d 0d 03 fc 16 e3 20  |%=code+mem..... |
00000970  70 61 73 73 25 3d 38 20  b8 20 31 30 20 88 20 32  |pass%=8 . 10 . 2|
00000980  0d 04 06 0b 50 25 3d 63  6f 64 65 0d 04 10 0e 5b  |....P%=code....[|
00000990  4f 50 54 20 70 61 73 73  25 0d 04 1a 18 2e 61 78  |OPT pass%.....ax|
000009a0  6f 72 20 45 51 55 44 20  26 38 32 44 34 45 31 42  |or EQUD &82D4E1B|
000009b0  38 0d 04 24 11 2e 61 73  65 64 20 45 51 55 44 20  |8..$..ased EQUD |
000009c0  2d 31 0d 04 2e 25 2e 61  73 63 6e 20 45 51 55 44  |-1...%.ascn EQUD|
000009d0  20 73 63 6e 2b 68 70 69  78 2f 32 2b 76 70 69 78  | scn+hpix/2+vpix|
000009e0  2f 32 2a 68 70 69 78 0d  04 38 05 3a 0d 04 42 09  |/2*hpix..8.:..B.|
000009f0  2e 6d 61 7a 65 0d 04 4c  13 4c 44 52 20 20 20 20  |.maze..L.LDR    |
00000a00  78 6f 72 2c 61 78 6f 72  0d 04 56 14 4c 44 52 20  |xor,axor..V.LDR |
00000a10  20 20 20 73 65 65 64 2c  61 73 65 64 0d 04 60 46  |   seed,ased..`F|
00000a20  4c 44 52 20 20 20 20 61  64 64 72 2c 61 73 63 6e  |LDR    addr,ascn|
00000a30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 73  |              ;s|
00000a40  63 72 65 65 6e 20 61 64  64 72 65 73 73 20 74 6f  |creen address to|
00000a50  20 73 74 61 72 74 20 6d  61 7a 65 20 67 65 6e 20  | start maze gen |
00000a60  61 74 0d 04 6a 3c 4d 4f  56 20 20 20 20 74 63 2c  |at..j<MOV    tc,|
00000a70  23 a4 6c 63 6f 6c 28 74  63 6f 6c 29 20 20 20 20  |#.lcol(tcol)    |
00000a80  20 20 20 3b 74 65 6d 70  6f 72 61 72 79 20 6d 61  |   ;temporary ma|
00000a90  7a 65 20 70 61 74 68 20  63 6f 6c 6f 75 72 0d 04  |ze path colour..|
00000aa0  74 38 4d 4f 56 20 20 20  20 66 63 2c 23 a4 6c 63  |t8MOV    fc,#.lc|
00000ab0  6f 6c 28 6d 63 6f 6c 29  20 20 20 20 20 20 20 3b  |ol(mcol)       ;|
00000ac0  66 69 6e 61 6c 20 6d 61  7a 65 20 70 61 74 68 20  |final maze path |
00000ad0  63 6f 6c 6f 75 72 0d 04  7e 05 3a 0d 04 88 34 2e  |colour..~.:...4.|
00000ae0  72 65 70 20 20 20 20 20  20 20 20 20 20 20 20 20  |rep             |
00000af0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 6d 61  |             ;ma|
00000b00  69 6e 20 70 72 6f 67 72  61 6d 20 6c 6f 6f 70 0d  |in program loop.|
00000b10  04 92 05 5d 0d 04 9c 0d  e7 20 73 6c 6f 77 25 20  |...]..... slow% |
00000b20  8c 0d 04 a6 0f 20 5b 4f  50 54 20 70 61 73 73 25  |..... [OPT pass%|
00000b30  0d 04 b0 19 20 53 54 4d  46 44 20 20 28 73 70 29  |.... STMFD  (sp)|
00000b40  21 2c 7b 30 2c 31 2c 32  7d 0d 04 ba 46 20 4d 4f  |!,{0,1,2}...F MO|
00000b50  56 20 20 20 20 30 2c 20  23 31 39 20 20 20 20 20  |V    0, #19     |
00000b60  20 20 20 20 20 20 20 20  20 20 20 3b 69 66 20 27  |           ;if '|
00000b70  73 6c 6f 77 27 20 6f 70  74 69 6f 6e 20 6f 6e 2c  |slow' option on,|
00000b80  20 77 61 69 74 20 66 6f  72 20 76 73 79 6e 63 0d  | wait for vsync.|
00000b90  04 c4 3f 20 53 57 49 20  20 20 20 22 4f 53 5f 42  |..? SWI    "OS_B|
00000ba0  79 74 65 22 20 20 20 20  20 20 20 20 20 20 20 20  |yte"            |
00000bb0  20 3b 61 6e 64 20 61 6c  73 6f 20 63 68 65 63 6b  | ;and also check|
00000bc0  20 65 73 63 61 70 65 20  73 74 61 74 75 73 0d 04  | escape status..|
00000bd0  ce 19 20 4c 44 4d 46 44  20 20 28 73 70 29 21 2c  |.. LDMFD  (sp)!,|
00000be0  7b 30 2c 31 2c 32 7d 0d  04 d8 20 20 53 57 49 20  |{0,1,2}...  SWI |
00000bf0  20 20 20 22 4f 53 5f 52  65 61 64 45 73 63 61 70  |   "OS_ReadEscap|
00000c00  65 53 74 61 74 65 22 0d  04 e2 14 20 4d 4f 56 43  |eState".... MOVC|
00000c10  53 20 20 70 63 2c 20 6c  69 6e 6b 0d 04 ec 06 20  |S  pc, link.... |
00000c20  5d 0d 04 f6 05 cd 0d 05  00 0e 5b 4f 50 54 20 70  |].........[OPT p|
00000c30  61 73 73 25 0d 05 0a 16  4c 44 52 42 20 20 20 72  |ass%....LDRB   r|
00000c40  2c 5b 61 64 64 72 2c 23  32 5d 0d 05 14 17 4c 44  |,[addr,#2]....LD|
00000c50  52 42 20 20 20 6c 2c 5b  61 64 64 72 2c 23 2d 32  |RB   l,[addr,#-2|
00000c60  5d 0d 05 1e 1b 4c 44 52  42 20 20 20 62 2c 5b 61  |]....LDRB   b,[a|
00000c70  64 64 72 2c 23 68 70 69  78 2a 32 5d 0d 05 28 1c  |ddr,#hpix*2]..(.|
00000c80  4c 44 52 42 20 20 20 61  2c 5b 61 64 64 72 2c 23  |LDRB   a,[addr,#|
00000c90  2d 68 70 69 78 2a 32 5d  0d 05 32 3b 43 4d 50 20  |-hpix*2]..2;CMP |
00000ca0  20 20 20 72 2c 23 a4 6c  63 6f 6c 28 77 63 6f 6c  |   r,#.lcol(wcol|
00000cb0  29 20 20 20 20 20 20 20  20 3b 63 68 65 63 6b 20  |)        ;check |
00000cc0  69 66 20 63 75 72 72 65  6e 74 20 70 6f 69 6e 74  |if current point|
00000cd0  20 69 73 0d 05 3c 2c 43  4d 50 4e 45 20 20 6c 2c  | is..<,CMPNE  l,|
00000ce0  23 a4 6c 63 6f 6c 28 77  63 6f 6c 29 20 20 20 20  |#.lcol(wcol)    |
00000cf0  20 20 20 20 3b 27 62 6f  78 65 64 20 69 6e 27 0d  |    ;'boxed in'.|
00000d00  05 46 19 43 4d 50 4e 45  20 20 62 2c 23 a4 6c 63  |.F.CMPNE  b,#.lc|
00000d10  6f 6c 28 77 63 6f 6c 29  0d 05 50 19 43 4d 50 4e  |ol(wcol)..P.CMPN|
00000d20  45 20 20 61 2c 23 a4 6c  63 6f 6c 28 77 63 6f 6c  |E  a,#.lcol(wcol|
00000d30  29 0d 05 5a 43 42 45 51  20 20 20 20 65 6e 64 77  |)..ZCBEQ    endw|
00000d40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000d50  20 20 20 3b 69 66 20 6e  6f 74 2c 20 74 61 6b 65  |   ;if not, take|
00000d60  20 61 20 72 61 6e 64 6f  6d 20 77 61 6c 6b 20 2e  | a random walk .|
00000d70  20 2e 20 2e 0d 05 64 05  3a 0d 05 6e 44 53 54 52  | . ...d.:..nDSTR|
00000d80  42 20 20 20 66 63 2c 5b  61 64 64 72 5d 20 20 20  |B   fc,[addr]   |
00000d90  20 20 20 20 20 20 20 20  20 20 20 3b 65 6c 73 65  |           ;else|
00000da0  20 6d 61 72 6b 20 70 6f  69 6e 74 20 77 69 74 68  | mark point with|
00000db0  20 66 69 6e 61 6c 20 63  6f 6c 6f 75 72 0d 05 78  | final colour..x|
00000dc0  45 4c 44 52 42 20 20 20  72 2c 5b 61 64 64 72 2c  |ELDRB   r,[addr,|
00000dd0  23 31 5d 21 20 20 20 20  20 20 20 20 20 20 20 3b  |#1]!           ;|
00000de0  74 68 65 6e 20 6c 6f 63  61 74 65 20 61 64 6a 61  |then locate adja|
00000df0  63 65 6e 74 20 74 65 6d  70 20 63 6f 6c 6f 75 72  |cent temp colour|
00000e00  65 64 0d 05 82 3e 43 4d  50 20 20 20 20 72 2c 74  |ed...>CMP    r,t|
00000e10  63 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |c               |
00000e20  20 20 20 20 3b 70 61 74  68 20 61 6e 64 20 73 74  |    ;path and st|
00000e30  65 70 20 62 61 63 6b 20  6f 76 65 72 20 69 74 2c  |ep back over it,|
00000e40  0d 05 8c 3e 53 54 52 45  51 42 20 66 63 2c 5b 61  |...>STREQB fc,[a|
00000e50  64 64 72 5d 2c 23 31 20  20 20 20 20 20 20 20 20  |ddr],#1         |
00000e60  20 20 3b 63 6f 6c 6f 75  72 69 6e 67 20 69 74 20  |  ;colouring it |
00000e70  66 69 6e 61 6c 20 61 73  20 77 65 20 67 6f 0d 05  |final as we go..|
00000e80  96 40 42 45 51 20 20 20  20 72 65 70 20 20 20 20  |.@BEQ    rep    |
00000e90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000ea0  3b 62 65 66 6f 72 65 20  6c 6f 6f 70 69 6e 67 20  |;before looping |
00000eb0  62 61 63 6b 20 74 6f 20  74 72 79 20 74 6f 0d 05  |back to try to..|
00000ec0  a0 45 4c 44 52 42 20 20  20 6c 2c 5b 61 64 64 72  |.ELDRB   l,[addr|
00000ed0  2c 23 2d 32 5d 21 20 20  20 20 20 20 20 20 20 20  |,#-2]!          |
00000ee0  3b 63 6f 6e 74 69 6e 75  65 20 6f 75 72 20 72 61  |;continue our ra|
00000ef0  6e 64 6f 6d 20 77 61 6c  6b 20 66 72 6f 6d 20 74  |ndom walk from t|
00000f00  68 69 73 0d 05 aa 28 43  4d 50 20 20 20 20 6c 2c  |his...(CMP    l,|
00000f10  74 63 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |tc              |
00000f20  20 20 20 20 20 3b 70 6f  69 6e 74 0d 05 b4 18 53  |     ;point....S|
00000f30  54 52 45 51 42 20 66 63  2c 5b 61 64 64 72 5d 2c  |TREQB fc,[addr],|
00000f40  23 2d 31 0d 05 be 0e 42  45 51 20 20 20 20 72 65  |#-1....BEQ    re|
00000f50  70 0d 05 c8 1c 4c 44 52  42 20 20 20 62 2c 5b 61  |p....LDRB   b,[a|
00000f60  64 64 72 2c 23 31 2b 68  70 69 78 5d 21 0d 05 d2  |ddr,#1+hpix]!...|
00000f70  0f 43 4d 50 20 20 20 20  62 2c 74 63 0d 05 dc 1a  |.CMP    b,tc....|
00000f80  53 54 52 45 51 42 20 66  63 2c 5b 61 64 64 72 5d  |STREQB fc,[addr]|
00000f90  2c 23 68 70 69 78 0d 05  e6 0e 42 45 51 20 20 20  |,#hpix....BEQ   |
00000fa0  20 72 65 70 0d 05 f0 1d  4c 44 52 42 20 20 20 61  | rep....LDRB   a|
00000fb0  2c 5b 61 64 64 72 2c 23  2d 32 2a 68 70 69 78 5d  |,[addr,#-2*hpix]|
00000fc0  21 0d 05 fa 0f 43 4d 50  20 20 20 20 61 2c 74 63  |!....CMP    a,tc|
00000fd0  0d 06 04 46 53 54 52 45  51 42 20 66 63 2c 5b 61  |...FSTREQB fc,[a|
00000fe0  64 64 72 5d 2c 23 2d 68  70 69 78 20 20 20 20 20  |ddr],#-hpix     |
00000ff0  20 20 3b 73 68 6f 75 6c  64 20 74 68 65 72 65 20  |  ;should there |
00001000  62 65 20 6e 6f 20 73 75  72 72 6f 75 6e 64 69 6e  |be no surroundin|
00001010  67 20 74 65 6d 70 0d 06  0e 46 42 45 51 20 20 20  |g temp...FBEQ   |
00001020  20 72 65 70 20 20 20 20  20 20 20 20 20 20 20 20  | rep            |
00001030  20 20 20 20 20 20 20 20  3b 70 61 74 68 20 72 65  |        ;path re|
00001040  6d 61 69 6e 69 6e 67 2c  20 77 65 20 6d 75 73 74  |maining, we must|
00001050  20 68 61 76 65 20 66 69  6c 6c 65 64 0d 06 18 46  | have filled...F|
00001060  4d 4f 56 20 20 20 20 70  63 2c 6c 69 6e 6b 20 20  |MOV    pc,link  |
00001070  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 66  |              ;f|
00001080  75 6c 6c 20 72 65 67 69  6f 6e 20 77 69 74 68 20  |ull region with |
00001090  6d 61 7a 65 20 61 6e 64  20 63 61 6e 20 65 78 69  |maze and can exi|
000010a0  74 21 0d 06 22 05 3a 0d  06 2c 36 2e 65 6e 64 77  |t!..".:..,6.endw|
000010b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000010c0  20 20 20 20 20 20 20 20  20 3b 74 61 6b 65 20 61  |         ;take a|
000010d0  20 72 61 6e 64 6f 6d 20  77 61 6c 6b 21 0d 06 36  | random walk!..6|
000010e0  1b 4d 4f 56 53 20 20 20  73 65 65 64 2c 73 65 65  |.MOVS   seed,see|
000010f0  64 2c 4c 53 52 20 23 31  0d 06 40 16 82 43 53 20  |d,LSR #1..@..CS |
00001100  20 73 65 65 64 2c 73 65  65 64 2c 78 6f 72 0d 06  | seed,seed,xor..|
00001110  4a 3a 4d 4f 56 43 53 20  20 6f 66 2c 23 32 20 20  |J:MOVCS  of,#2  |
00001120  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001130  3b 64 65 63 69 64 65 20  74 6f 20 6d 6f 76 65 20  |;decide to move |
00001140  73 69 64 65 77 61 79 73  0d 06 54 2d 4d 4f 56 43  |sideways..T-MOVC|
00001150  43 20 20 6f 66 2c 23 32  2a 68 70 69 78 20 20 20  |C  of,#2*hpix   |
00001160  20 20 20 20 20 20 20 20  20 20 3b 6f 72 20 75 70  |          ;or up|
00001170  2f 64 6f 77 6e 0d 06 5e  1b 4d 4f 56 53 20 20 20  |/down..^.MOVS   |
00001180  73 65 65 64 2c 73 65 65  64 2c 4c 53 52 20 23 31  |seed,seed,LSR #1|
00001190  0d 06 68 16 82 43 53 20  20 73 65 65 64 2c 73 65  |..h..CS  seed,se|
000011a0  65 64 2c 78 6f 72 0d 06  72 37 41 44 44 43 53 20  |ed,xor..r7ADDCS |
000011b0  20 6e 65 77 61 64 2c 61  64 64 72 2c 6f 66 20 20  | newad,addr,of  |
000011c0  20 20 20 20 20 20 20 20  3b 64 65 63 69 64 65 20  |        ;decide |
000011d0  6f 6e 20 72 69 67 68 74  2f 64 6f 77 6e 0d 06 7c  |on right/down..||
000011e0  45 53 55 42 43 43 20 20  6e 65 77 61 64 2c 61 64  |ESUBCC  newad,ad|
000011f0  64 72 2c 6f 66 20 20 20  20 20 20 20 20 20 20 3b  |dr,of          ;|
00001200  6f 72 20 6c 65 66 74 2f  75 70 2c 20 61 6e 64 20  |or left/up, and |
00001210  74 68 65 6e 20 6d 61 6b  65 20 74 68 65 20 6d 6f  |then make the mo|
00001220  76 65 0d 06 86 17 4c 44  52 42 20 20 20 74 6d 70  |ve....LDRB   tmp|
00001230  34 2c 5b 6e 65 77 61 64  5d 0d 06 90 45 43 4d 50  |4,[newad]...ECMP|
00001240  20 20 20 20 74 6d 70 34  2c 23 a4 6c 63 6f 6c 28  |    tmp4,#.lcol(|
00001250  77 63 6f 6c 29 20 20 20  20 20 3b 69 66 20 70 6f  |wcol)     ;if po|
00001260  69 6e 74 20 69 73 6e 27  74 20 66 72 65 65 2c 20  |int isn't free, |
00001270  62 72 61 6e 63 68 20 62  61 63 6b 20 74 6f 0d 06  |branch back to..|
00001280  9a 44 42 4e 45 20 20 20  20 65 6e 64 77 20 20 20  |.DBNE    endw   |
00001290  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000012a0  3b 73 65 6c 65 63 74 20  61 6e 6f 74 68 65 72 20  |;select another |
000012b0  61 74 20 72 61 6e 64 6f  6d 20 28 6e 62 20 3e 3d  |at random (nb >=|
000012c0  20 31 0d 06 a4 46 3a 20  20 20 20 20 20 20 20 20  | 1...F:         |
000012d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000012e0  20 20 20 20 3b 20 65 78  69 73 74 20 73 6f 20 77  |    ; exist so w|
000012f0  69 6c 6c 20 66 69 6e 64  20 6f 6e 65 20 65 76 65  |ill find one eve|
00001300  6e 74 75 61 6c 6c 79 29  0d 06 ae 1a 41 44 44 53  |ntually)....ADDS|
00001310  20 20 20 61 64 64 72 2c  61 64 64 72 2c 6e 65 77  |   addr,addr,new|
00001320  61 64 0d 06 b8 46 4d 4f  56 20 20 20 20 61 64 64  |ad...FMOV    add|
00001330  72 2c 61 64 64 72 2c 52  52 58 20 20 20 20 20 20  |r,addr,RRX      |
00001340  20 20 20 20 3b 67 65 74  20 61 64 64 72 20 6f 66  |    ;get addr of|
00001350  20 70 6f 69 6e 74 20 74  77 65 65 6e 20 6e 65 77  | point tween new|
00001360  20 61 6e 64 20 6f 6c 64  0d 06 c2 2c 53 54 52 42  | and old...,STRB|
00001370  20 20 20 74 63 2c 5b 61  64 64 72 5d 20 20 20 20  |   tc,[addr]    |
00001380  20 20 20 20 20 20 20 20  20 20 3b 63 6f 6c 6f 75  |          ;colou|
00001390  72 20 69 74 0d 06 cc 45  53 54 52 42 20 20 20 74  |r it...ESTRB   t|
000013a0  63 2c 5b 6e 65 77 61 64  5d 20 20 20 20 20 20 20  |c,[newad]       |
000013b0  20 20 20 20 20 20 3b 61  6e 64 20 6e 65 77 20 77  |      ;and new w|
000013c0  69 74 68 20 74 65 6d 70  6f 72 61 72 79 20 70 61  |ith temporary pa|
000013d0  74 68 20 63 6f 6c 6f 75  72 0d 06 d6 15 4d 4f 56  |th colour....MOV|
000013e0  20 20 20 20 61 64 64 72  2c 6e 65 77 61 64 0d 06  |    addr,newad..|
000013f0  e0 41 42 20 20 20 20 20  20 72 65 70 20 20 20 20  |.AB      rep    |
00001400  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001410  3b 73 74 65 70 20 6f 6e  74 6f 20 6e 65 77 20 70  |;step onto new p|
00001420  6f 69 6e 74 20 61 6e 64  20 74 72 79 20 74 6f 0d  |oint and try to.|
00001430  06 ea 3c 3a 20 20 20 20  20 20 20 20 20 20 20 20  |..<:            |
00001440  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001450  20 3b 63 6f 6e 74 69 6e  75 65 20 6f 75 72 20 72  | ;continue our r|
00001460  61 6e 64 6f 6d 20 77 61  6c 6b 2e 0d 06 f4 05 5d  |andom walk.....]|
00001470  0d 06 fe 05 ed 0d 07 08  05 e1 0d ff              |............|
0000147c