� >Config
?� By G.Stanley & J.Wallace for Superior Software..........
� B% &20,code 40,buf% 240
(� alloc(10),con$(6)
2 tot=0:K=1024:D%=1.51587081E9
<Tbasic=100
FTscreen=80
PTsprites=0
ZTfont=0
dTrma=80
n� �ostest<1.2 � �7:�
x� �ostest<2 � �tV@
��21:*EXEC !RISC_OS
��
��"AutoConfiguring"
�!ș &40240,0,1,&B6400,buf%,240
�� buf%!128=D% � �dz@
��reloadcmos
�:
�*RMCLEAR
�*RMLOAD RM_Tunes
�
*TUNE1
�*REPTON3
�:
��breakcode


�tests

:

"� �met � �cmos(185)=4 � � �dH@

":

, � Are conditions attainable?

6/required=Tbasic+Tscreen+Tsprites+Tfont+Trma

@?maxuseable=tot-alloc(5)-alloc(6)-alloc(4)+alloc(9)+alloc(8)

J*� required>maxuseable � �failmessage:�

T:

^
�allsteal

h
�savecmos

r� A=0 � 5:�(con$(A)):�

|*CONFIGURE BOOT

�*CONFIGURE DRIVE 0

�*CONFIGURE LANGUAGE 4

�
� code

��

�:

���reloadcmos

�� J%=0 � 239

�$�("FX162,"+�(J%)+","+�(buf%?J%))

�� J%

�� J%=0 � 236 � 4

�buf%!J%=D%

�� J%

�!ș &40240,0,2,&B6400,buf%,240
�
:
��savecmos
&� A%=0 � 239
0buf%!A%=�cmos(A%)
:� A%
D!ș &40240,0,2,&B6400,buf%,240
N�
X:
b��tests
l'� �four � page%=&8000 � page%=&2000
v�tvalueadjust
��readram
�alloc(7)=�scrn
�alloc(0)=�-�
�alloc(8)=&1000*�cmos(134)
�alloc(9)=page%*�cmos(146)
�� A=1 � 7:tot+=alloc(A):�
��
�:
�
��readram
�
� �T`C
�
� A=1 � 6
�� start%
�start%=start%*&10000
!alloc(A)=�range(start%,page%)
�
�
  � 0,&100,&140,&180,&1C0,&1F0
*:
4��allsteal
>C$="*Configure "
H-con$(0)=C$+"ScreenSize "+�(Tscreen/page%)
R.con$(1)=C$+"SpriteSize "+�(Tsprites/page%)
\)con$(2)=C$+"FontSize "+�(Tfont/(4*K))
f'con$(3)=C$+"RMASize "+�(Trma/page%)
pcon$(4)=C$+"RamFSsize 0"
zcon$(5)=C$+"SystemSize 0"
��
�:
���tvalueadjust
�=� Tscreen<40 � �"SCREEN VALUE TOO LOW (40K Minimum)":�7:�
�Tbasic=�roundup(Tbasic)
�Tscreen=�roundup(Tscreen)
�Tsprites=�roundup(Tsprites)
�Trma=�roundup(Trma)
�Tfont=Tfont*K
�0� Tfont � (4*K) � Tfont+=4*K-(Tfont � (4*K))
��
�:
�ݤroundup(param)
param=param*K
1=page%*((�(param/page%)-((param � page%)>0)))
:
$	ݤmet
.Mbasic=(Tbasic<=alloc(0))
8Mscreen=(Tscreen<=alloc(7))
B!Msprites=(Tsprites<=alloc(3))
LMfont=(Tfont<=alloc(8))
VMrma=(Trma<=alloc(9))
`/=Mbasic � Mscreen � Msprites � Mfont � Mrma
j:
tݤcmos(loc)
~ș 6,161,loc � X,Y,Z
�=Z
�:
�ݤrange(start%,page%)
�addr%=start%
��
�Z%=�check(addr%)
�addr%+=page%
�
� Z%=�
�=addr%-start%-page%
�:
�ݤcheck(addr%)
� ș &3A,addr%,addr%+1 � ;flag
=(flag � 2)=0

:

ݤscrn
&B%=((B%+3)�4)*4:!B%=150:!(B%+4)=-1
(ș &31,B%,B%+&10:=!(B%+&10)
2:
<
ݤfour
Fș &1A ,0,0 � reg
P=(reg � 8)=8
Z:
dݤostest
nș 6+2^17,0,0 � A%
xA$="":A%+=11
�
� B=0 � 3
�A$+=�(A%?B)
��:=�(A$)
�:
���breakcode
�
� �dzE
�� I%=0 � 36 � 4
�
� hex%
�code!I%=hex%
��
��
�:
�7� &E3A000C8,&E3A01003,&E3A02000,&EF020006,&E3A0050E
7� &E5901000,&E7011001,&EF020016,&E33FF3FF,&E3A0F000
�

00000000  0d 00 0a 0d f4 20 3e 43  6f 6e 66 69 67 0d 00 14  |..... >Config...|
00000010  3f f4 20 42 79 20 47 2e  53 74 61 6e 6c 65 79 20  |?. By G.Stanley |
00000020  26 20 4a 2e 57 61 6c 6c  61 63 65 20 66 6f 72 20  |& J.Wallace for |
00000030  53 75 70 65 72 69 6f 72  20 53 6f 66 74 77 61 72  |Superior Softwar|
00000040  65 15 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 0d 00 1e 1d  |e...............|
00000050  de 20 42 25 20 26 32 30  2c 63 6f 64 65 20 34 30  |. B% &20,code 40|
00000060  2c 62 75 66 25 20 32 34  30 0d 00 28 17 de 20 61  |,buf% 240..(.. a|
00000070  6c 6c 6f 63 28 31 30 29  2c 63 6f 6e 24 28 36 29  |lloc(10),con$(6)|
00000080  0d 00 32 20 74 6f 74 3d  30 3a 4b 3d 31 30 32 34  |..2 tot=0:K=1024|
00000090  3a 44 25 3d 31 2e 35 31  35 38 37 30 38 31 45 39  |:D%=1.51587081E9|
000000a0  0d 00 3c 0e 54 62 61 73  69 63 3d 31 30 30 0d 00  |..<.Tbasic=100..|
000000b0  46 0e 54 73 63 72 65 65  6e 3d 38 30 0d 00 50 0e  |F.Tscreen=80..P.|
000000c0  54 73 70 72 69 74 65 73  3d 30 0d 00 5a 0b 54 66  |Tsprites=0..Z.Tf|
000000d0  6f 6e 74 3d 30 0d 00 64  0b 54 72 6d 61 3d 38 30  |ont=0..d.Trma=80|
000000e0  0d 00 6e 18 e7 20 a4 6f  73 74 65 73 74 3c 31 2e  |..n.. .ostest<1.|
000000f0  32 20 8c 20 ef 37 3a e0  0d 00 78 16 e7 20 a4 6f  |2 . .7:...x.. .o|
00000100  73 74 65 73 74 3c 32 20  8c 20 8d 74 56 40 0d 00  |stest<2 . .tV@..|
00000110  82 16 ef 32 31 3a 2a 45  58 45 43 20 21 52 49 53  |...21:*EXEC !RIS|
00000120  43 5f 4f 53 0d 00 8c 05  e0 0d 00 96 16 f1 22 41  |C_OS.........."A|
00000130  75 74 6f 43 6f 6e 66 69  67 75 72 69 6e 67 22 0d  |utoConfiguring".|
00000140  00 a0 21 c8 99 20 26 34  30 32 34 30 2c 30 2c 31  |..!.. &40240,0,1|
00000150  2c 26 42 36 34 30 30 2c  62 75 66 25 2c 32 34 30  |,&B6400,buf%,240|
00000160  0d 00 aa 18 e7 20 62 75  66 25 21 31 32 38 3d 44  |..... buf%!128=D|
00000170  25 20 8c 20 8d 64 7a 40  0d 00 b4 0f f2 72 65 6c  |% . .dz@.....rel|
00000180  6f 61 64 63 6d 6f 73 0d  00 be 05 3a 0d 00 c8 0c  |oadcmos....:....|
00000190  2a 52 4d 43 4c 45 41 52  0d 00 d2 14 2a 52 4d 4c  |*RMCLEAR....*RML|
000001a0  4f 41 44 20 52 4d 5f 54  75 6e 65 73 0d 00 dc 0a  |OAD RM_Tunes....|
000001b0  2a 54 55 4e 45 31 0d 00  e6 0c 2a 52 45 50 54 4f  |*TUNE1....*REPTO|
000001c0  4e 33 0d 00 f0 05 3a 0d  00 fa 0e f2 62 72 65 61  |N3....:.....brea|
000001d0  6b 63 6f 64 65 0d 01 04  0a f2 74 65 73 74 73 0d  |kcode.....tests.|
000001e0  01 0e 05 3a 0d 01 18 22  e7 20 a4 6d 65 74 20 80  |...:...". .met .|
000001f0  20 a4 63 6d 6f 73 28 31  38 35 29 3d 34 20 8c 20  | .cmos(185)=4 . |
00000200  e5 20 8d 64 48 40 0d 01  22 05 3a 0d 01 2c 20 f4  |. .dH@..".:.., .|
00000210  20 41 72 65 20 63 6f 6e  64 69 74 69 6f 6e 73 20  | Are conditions |
00000220  61 74 74 61 69 6e 61 62  6c 65 3f 0d 01 36 2f 72  |attainable?..6/r|
00000230  65 71 75 69 72 65 64 3d  54 62 61 73 69 63 2b 54  |equired=Tbasic+T|
00000240  73 63 72 65 65 6e 2b 54  73 70 72 69 74 65 73 2b  |screen+Tsprites+|
00000250  54 66 6f 6e 74 2b 54 72  6d 61 0d 01 40 3f 6d 61  |Tfont+Trma..@?ma|
00000260  78 75 73 65 61 62 6c 65  3d 74 6f 74 2d 61 6c 6c  |xuseable=tot-all|
00000270  6f 63 28 35 29 2d 61 6c  6c 6f 63 28 36 29 2d 61  |oc(5)-alloc(6)-a|
00000280  6c 6c 6f 63 28 34 29 2b  61 6c 6c 6f 63 28 39 29  |lloc(4)+alloc(9)|
00000290  2b 61 6c 6c 6f 63 28 38  29 0d 01 4a 2a e7 20 72  |+alloc(8)..J*. r|
000002a0  65 71 75 69 72 65 64 3e  6d 61 78 75 73 65 61 62  |equired>maxuseab|
000002b0  6c 65 20 8c 20 f2 66 61  69 6c 6d 65 73 73 61 67  |le . .failmessag|
000002c0  65 3a e0 0d 01 54 05 3a  0d 01 5e 0d f2 61 6c 6c  |e:...T.:..^..all|
000002d0  73 74 65 61 6c 0d 01 68  0d f2 73 61 76 65 63 6d  |steal..h..savecm|
000002e0  6f 73 0d 01 72 1a e3 20  41 3d 30 20 b8 20 35 3a  |os..r.. A=0 . 5:|
000002f0  ff 28 63 6f 6e 24 28 41  29 29 3a ed 0d 01 7c 13  |.(con$(A)):...|.|
00000300  2a 43 4f 4e 46 49 47 55  52 45 20 42 4f 4f 54 0d  |*CONFIGURE BOOT.|
00000310  01 86 16 2a 43 4f 4e 46  49 47 55 52 45 20 44 52  |...*CONFIGURE DR|
00000320  49 56 45 20 30 0d 01 90  19 2a 43 4f 4e 46 49 47  |IVE 0....*CONFIG|
00000330  55 52 45 20 4c 41 4e 47  55 41 47 45 20 34 0d 01  |URE LANGUAGE 4..|
00000340  9a 0a d6 20 63 6f 64 65  0d 01 a4 05 e0 0d 01 ae  |... code........|
00000350  05 3a 0d 01 b8 10 dd f2  72 65 6c 6f 61 64 63 6d  |.:......reloadcm|
00000360  6f 73 0d 01 c2 10 e3 20  4a 25 3d 30 20 b8 20 32  |os..... J%=0 . 2|
00000370  33 39 0d 01 cc 24 ff 28  22 46 58 31 36 32 2c 22  |39...$.("FX162,"|
00000380  2b c3 28 4a 25 29 2b 22  2c 22 2b c3 28 62 75 66  |+.(J%)+","+.(buf|
00000390  25 3f 4a 25 29 29 0d 01  d6 08 ed 20 4a 25 0d 01  |%?J%))..... J%..|
000003a0  e0 14 e3 20 4a 25 3d 30  20 b8 20 32 33 36 20 88  |... J%=0 . 236 .|
000003b0  20 34 0d 01 ea 0e 62 75  66 25 21 4a 25 3d 44 25  | 4....buf%!J%=D%|
000003c0  0d 01 f4 08 ed 20 4a 25  0d 01 fe 21 c8 99 20 26  |..... J%...!.. &|
000003d0  34 30 32 34 30 2c 30 2c  32 2c 26 42 36 34 30 30  |40240,0,2,&B6400|
000003e0  2c 62 75 66 25 2c 32 34  30 0d 02 08 05 e1 0d 02  |,buf%,240.......|
000003f0  12 05 3a 0d 02 1c 0e dd  f2 73 61 76 65 63 6d 6f  |..:......savecmo|
00000400  73 0d 02 26 10 e3 20 41  25 3d 30 20 b8 20 32 33  |s..&.. A%=0 . 23|
00000410  39 0d 02 30 15 62 75 66  25 21 41 25 3d a4 63 6d  |9..0.buf%!A%=.cm|
00000420  6f 73 28 41 25 29 0d 02  3a 08 ed 20 41 25 0d 02  |os(A%)..:.. A%..|
00000430  44 21 c8 99 20 26 34 30  32 34 30 2c 30 2c 32 2c  |D!.. &40240,0,2,|
00000440  26 42 36 34 30 30 2c 62  75 66 25 2c 32 34 30 0d  |&B6400,buf%,240.|
00000450  02 4e 05 e1 0d 02 58 05  3a 0d 02 62 0b dd f2 74  |.N....X.:..b...t|
00000460  65 73 74 73 0d 02 6c 27  e7 20 a4 66 6f 75 72 20  |ests..l'. .four |
00000470  8c 20 70 61 67 65 25 3d  26 38 30 30 30 20 8b 20  |. page%=&8000 . |
00000480  70 61 67 65 25 3d 26 32  30 30 30 0d 02 76 11 f2  |page%=&2000..v..|
00000490  74 76 61 6c 75 65 61 64  6a 75 73 74 0d 02 80 0c  |tvalueadjust....|
000004a0  f2 72 65 61 64 72 61 6d  0d 02 8a 12 61 6c 6c 6f  |.readram....allo|
000004b0  63 28 37 29 3d a4 73 63  72 6e 0d 02 94 10 61 6c  |c(7)=.scrn....al|
000004c0  6c 6f 63 28 30 29 3d 93  2d 90 0d 02 9e 1d 61 6c  |loc(0)=.-.....al|
000004d0  6c 6f 63 28 38 29 3d 26  31 30 30 30 2a a4 63 6d  |loc(8)=&1000*.cm|
000004e0  6f 73 28 31 33 34 29 0d  02 a8 1d 61 6c 6c 6f 63  |os(134)....alloc|
000004f0  28 39 29 3d 70 61 67 65  25 2a a4 63 6d 6f 73 28  |(9)=page%*.cmos(|
00000500  31 34 36 29 0d 02 b2 1d  e3 20 41 3d 31 20 b8 20  |146)..... A=1 . |
00000510  37 3a 74 6f 74 2b 3d 61  6c 6c 6f 63 28 41 29 3a  |7:tot+=alloc(A):|
00000520  ed 0d 02 bc 05 e1 0d 02  c6 05 3a 0d 02 d0 0d dd  |..........:.....|
00000530  f2 72 65 61 64 72 61 6d  0d 02 da 0a f7 20 8d 54  |.readram..... .T|
00000540  60 43 0d 02 e4 0d e3 20  41 3d 31 20 b8 20 36 0d  |`C..... A=1 . 6.|
00000550  02 ee 0c f3 20 73 74 61  72 74 25 0d 02 f8 18 73  |.... start%....s|
00000560  74 61 72 74 25 3d 73 74  61 72 74 25 2a 26 31 30  |tart%=start%*&10|
00000570  30 30 30 0d 03 02 21 61  6c 6c 6f 63 28 41 29 3d  |000...!alloc(A)=|
00000580  a4 72 61 6e 67 65 28 73  74 61 72 74 25 2c 70 61  |.range(start%,pa|
00000590  67 65 25 29 0d 03 0c 05  ed 0d 03 16 05 e1 0d 03  |ge%)............|
000005a0  20 20 dc 20 30 2c 26 31  30 30 2c 26 31 34 30 2c  |  . 0,&100,&140,|
000005b0  26 31 38 30 2c 26 31 43  30 2c 26 31 46 30 0d 03  |&180,&1C0,&1F0..|
000005c0  2a 05 3a 0d 03 34 0e dd  f2 61 6c 6c 73 74 65 61  |*.:..4...allstea|
000005d0  6c 0d 03 3e 14 43 24 3d  22 2a 43 6f 6e 66 69 67  |l..>.C$="*Config|
000005e0  75 72 65 20 22 0d 03 48  2d 63 6f 6e 24 28 30 29  |ure "..H-con$(0)|
000005f0  3d 43 24 2b 22 53 63 72  65 65 6e 53 69 7a 65 20  |=C$+"ScreenSize |
00000600  22 2b c3 28 54 73 63 72  65 65 6e 2f 70 61 67 65  |"+.(Tscreen/page|
00000610  25 29 0d 03 52 2e 63 6f  6e 24 28 31 29 3d 43 24  |%)..R.con$(1)=C$|
00000620  2b 22 53 70 72 69 74 65  53 69 7a 65 20 22 2b c3  |+"SpriteSize "+.|
00000630  28 54 73 70 72 69 74 65  73 2f 70 61 67 65 25 29  |(Tsprites/page%)|
00000640  0d 03 5c 29 63 6f 6e 24  28 32 29 3d 43 24 2b 22  |..\)con$(2)=C$+"|
00000650  46 6f 6e 74 53 69 7a 65  20 22 2b c3 28 54 66 6f  |FontSize "+.(Tfo|
00000660  6e 74 2f 28 34 2a 4b 29  29 0d 03 66 27 63 6f 6e  |nt/(4*K))..f'con|
00000670  24 28 33 29 3d 43 24 2b  22 52 4d 41 53 69 7a 65  |$(3)=C$+"RMASize|
00000680  20 22 2b c3 28 54 72 6d  61 2f 70 61 67 65 25 29  | "+.(Trma/page%)|
00000690  0d 03 70 1c 63 6f 6e 24  28 34 29 3d 43 24 2b 22  |..p.con$(4)=C$+"|
000006a0  52 61 6d 46 53 73 69 7a  65 20 30 22 0d 03 7a 1d  |RamFSsize 0"..z.|
000006b0  63 6f 6e 24 28 35 29 3d  43 24 2b 22 53 79 73 74  |con$(5)=C$+"Syst|
000006c0  65 6d 53 69 7a 65 20 30  22 0d 03 84 05 e1 0d 03  |emSize 0".......|
000006d0  8e 05 3a 0d 03 98 12 dd  f2 74 76 61 6c 75 65 61  |..:......tvaluea|
000006e0  64 6a 75 73 74 0d 03 a2  3d e7 20 54 73 63 72 65  |djust...=. Tscre|
000006f0  65 6e 3c 34 30 20 8c 20  f1 22 53 43 52 45 45 4e  |en<40 . ."SCREEN|
00000700  20 56 41 4c 55 45 20 54  4f 4f 20 4c 4f 57 20 28  | VALUE TOO LOW (|
00000710  34 30 4b 20 4d 69 6e 69  6d 75 6d 29 22 3a ef 37  |40K Minimum)":.7|
00000720  3a e0 0d 03 ac 1b 54 62  61 73 69 63 3d a4 72 6f  |:.....Tbasic=.ro|
00000730  75 6e 64 75 70 28 54 62  61 73 69 63 29 0d 03 b6  |undup(Tbasic)...|
00000740  1d 54 73 63 72 65 65 6e  3d a4 72 6f 75 6e 64 75  |.Tscreen=.roundu|
00000750  70 28 54 73 63 72 65 65  6e 29 0d 03 c0 1f 54 73  |p(Tscreen)....Ts|
00000760  70 72 69 74 65 73 3d a4  72 6f 75 6e 64 75 70 28  |prites=.roundup(|
00000770  54 73 70 72 69 74 65 73  29 0d 03 ca 17 54 72 6d  |Tsprites)....Trm|
00000780  61 3d a4 72 6f 75 6e 64  75 70 28 54 72 6d 61 29  |a=.roundup(Trma)|
00000790  0d 03 d4 11 54 66 6f 6e  74 3d 54 66 6f 6e 74 2a  |....Tfont=Tfont*|
000007a0  4b 0d 03 de 30 e7 20 54  66 6f 6e 74 20 83 20 28  |K...0. Tfont . (|
000007b0  34 2a 4b 29 20 8c 20 54  66 6f 6e 74 2b 3d 34 2a  |4*K) . Tfont+=4*|
000007c0  4b 2d 28 54 66 6f 6e 74  20 83 20 28 34 2a 4b 29  |K-(Tfont . (4*K)|
000007d0  29 0d 03 e8 05 e1 0d 03  f2 05 3a 0d 03 fc 14 dd  |).........:.....|
000007e0  a4 72 6f 75 6e 64 75 70  28 70 61 72 61 6d 29 0d  |.roundup(param).|
000007f0  04 06 11 70 61 72 61 6d  3d 70 61 72 61 6d 2a 4b  |...param=param*K|
00000800  0d 04 10 31 3d 70 61 67  65 25 2a 28 28 a8 28 70  |...1=page%*((.(p|
00000810  61 72 61 6d 2f 70 61 67  65 25 29 2d 28 28 70 61  |aram/page%)-((pa|
00000820  72 61 6d 20 83 20 70 61  67 65 25 29 3e 30 29 29  |ram . page%)>0))|
00000830  29 0d 04 1a 05 3a 0d 04  24 09 dd a4 6d 65 74 0d  |)....:..$...met.|
00000840  04 2e 1d 4d 62 61 73 69  63 3d 28 54 62 61 73 69  |...Mbasic=(Tbasi|
00000850  63 3c 3d 61 6c 6c 6f 63  28 30 29 29 0d 04 38 1f  |c<=alloc(0))..8.|
00000860  4d 73 63 72 65 65 6e 3d  28 54 73 63 72 65 65 6e  |Mscreen=(Tscreen|
00000870  3c 3d 61 6c 6c 6f 63 28  37 29 29 0d 04 42 21 4d  |<=alloc(7))..B!M|
00000880  73 70 72 69 74 65 73 3d  28 54 73 70 72 69 74 65  |sprites=(Tsprite|
00000890  73 3c 3d 61 6c 6c 6f 63  28 33 29 29 0d 04 4c 1b  |s<=alloc(3))..L.|
000008a0  4d 66 6f 6e 74 3d 28 54  66 6f 6e 74 3c 3d 61 6c  |Mfont=(Tfont<=al|
000008b0  6c 6f 63 28 38 29 29 0d  04 56 19 4d 72 6d 61 3d  |loc(8))..V.Mrma=|
000008c0  28 54 72 6d 61 3c 3d 61  6c 6c 6f 63 28 39 29 29  |(Trma<=alloc(9))|
000008d0  0d 04 60 2f 3d 4d 62 61  73 69 63 20 80 20 4d 73  |..`/=Mbasic . Ms|
000008e0  63 72 65 65 6e 20 80 20  4d 73 70 72 69 74 65 73  |creen . Msprites|
000008f0  20 80 20 4d 66 6f 6e 74  20 80 20 4d 72 6d 61 0d  | . Mfont . Mrma.|
00000900  04 6a 05 3a 0d 04 74 0f  dd a4 63 6d 6f 73 28 6c  |.j.:..t...cmos(l|
00000910  6f 63 29 0d 04 7e 18 c8  99 20 36 2c 31 36 31 2c  |oc)..~... 6,161,|
00000920  6c 6f 63 20 b8 20 58 2c  59 2c 5a 0d 04 88 06 3d  |loc . X,Y,Z....=|
00000930  5a 0d 04 92 05 3a 0d 04  9c 19 dd a4 72 61 6e 67  |Z....:......rang|
00000940  65 28 73 74 61 72 74 25  2c 70 61 67 65 25 29 0d  |e(start%,page%).|
00000950  04 a6 10 61 64 64 72 25  3d 73 74 61 72 74 25 0d  |...addr%=start%.|
00000960  04 b0 05 f5 0d 04 ba 14  5a 25 3d a4 63 68 65 63  |........Z%=.chec|
00000970  6b 28 61 64 64 72 25 29  0d 04 c4 10 61 64 64 72  |k(addr%)....addr|
00000980  25 2b 3d 70 61 67 65 25  0d 04 ce 0a fd 20 5a 25  |%+=page%..... Z%|
00000990  3d a3 0d 04 d8 17 3d 61  64 64 72 25 2d 73 74 61  |=.....=addr%-sta|
000009a0  72 74 25 2d 70 61 67 65  25 0d 04 e2 05 3a 0d 04  |rt%-page%....:..|
000009b0  ec 12 dd a4 63 68 65 63  6b 28 61 64 64 72 25 29  |....check(addr%)|
000009c0  0d 04 f6 20 c8 99 20 26  33 41 2c 61 64 64 72 25  |... .. &3A,addr%|
000009d0  2c 61 64 64 72 25 2b 31  20 b8 20 3b 66 6c 61 67  |,addr%+1 . ;flag|
000009e0  0d 05 00 11 3d 28 66 6c  61 67 20 80 20 32 29 3d  |....=(flag . 2)=|
000009f0  30 0d 05 0a 05 3a 0d 05  14 0a dd a4 73 63 72 6e  |0....:......scrn|
00000a00  0d 05 1e 26 42 25 3d 28  28 42 25 2b 33 29 81 34  |...&B%=((B%+3).4|
00000a10  29 2a 34 3a 21 42 25 3d  31 35 30 3a 21 28 42 25  |)*4:!B%=150:!(B%|
00000a20  2b 34 29 3d 2d 31 0d 05  28 1f c8 99 20 26 33 31  |+4)=-1..(... &31|
00000a30  2c 42 25 2c 42 25 2b 26  31 30 3a 3d 21 28 42 25  |,B%,B%+&10:=!(B%|
00000a40  2b 26 31 30 29 0d 05 32  05 3a 0d 05 3c 0a dd a4  |+&10)..2.:..<...|
00000a50  66 6f 75 72 0d 05 46 15  c8 99 20 26 31 41 20 2c  |four..F... &1A ,|
00000a60  30 2c 30 20 b8 20 72 65  67 0d 05 50 10 3d 28 72  |0,0 . reg..P.=(r|
00000a70  65 67 20 80 20 38 29 3d  38 0d 05 5a 05 3a 0d 05  |eg . 8)=8..Z.:..|
00000a80  64 0c dd a4 6f 73 74 65  73 74 0d 05 6e 16 c8 99  |d...ostest..n...|
00000a90  20 36 2b 32 5e 31 37 2c  30 2c 30 20 b8 20 41 25  | 6+2^17,0,0 . A%|
00000aa0  0d 05 78 10 41 24 3d 22  22 3a 41 25 2b 3d 31 31  |..x.A$="":A%+=11|
00000ab0  0d 05 82 0d e3 20 42 3d  30 20 b8 20 33 0d 05 8c  |..... B=0 . 3...|
00000ac0  0f 41 24 2b 3d bd 28 41  25 3f 42 29 0d 05 96 0c  |.A$+=.(A%?B)....|
00000ad0  ed 3a 3d bb 28 41 24 29  0d 05 a0 05 3a 0d 05 aa  |.:=.(A$)....:...|
00000ae0  0f dd f2 62 72 65 61 6b  63 6f 64 65 0d 05 b4 0a  |...breakcode....|
00000af0  f7 20 8d 64 7a 45 0d 05  be 13 e3 20 49 25 3d 30  |. .dzE..... I%=0|
00000b00  20 b8 20 33 36 20 88 20  34 0d 05 c8 0a f3 20 68  | . 36 . 4..... h|
00000b10  65 78 25 0d 05 d2 10 63  6f 64 65 21 49 25 3d 68  |ex%....code!I%=h|
00000b20  65 78 25 0d 05 dc 05 ed  0d 05 e6 05 e1 0d 05 f0  |ex%.............|
00000b30  05 3a 0d 05 fa 37 dc 20  26 45 33 41 30 30 30 43  |.:...7. &E3A000C|
00000b40  38 2c 26 45 33 41 30 31  30 30 33 2c 26 45 33 41  |8,&E3A01003,&E3A|
00000b50  30 32 30 30 30 2c 26 45  46 30 32 30 30 30 36 2c  |02000,&EF020006,|
00000b60  26 45 33 41 30 30 35 30  45 0d 06 04 37 dc 20 26  |&E3A0050E...7. &|
00000b70  45 35 39 30 31 30 30 30  2c 26 45 37 30 31 31 30  |E5901000,&E70110|
00000b80  30 31 2c 26 45 46 30 32  30 30 31 36 2c 26 45 33  |01,&EF020016,&E3|
00000b90  33 46 46 33 46 46 2c 26  45 33 41 30 46 30 30 30  |3FF3FF,&E3A0F000|
00000ba0  0d ff                                             |..|
00000ba2