� ><Obey$Dir>.GameLoad

 �=&81900
 � IB% 20:� OB% 20
(A !IB%=148:IB%!4=150:IB%!8=-1:ș "OS_ReadVduVariables",IB%,OB%
2 S%=!OB%
<1 Spr1=&88000:Spr2=&89000:� Scale 16:� Name 10
FX !Spr1=&88000:Spr1!4=0:Spr1!8=16:ș"OS_SpriteOp",256+10,Spr1,"<Obey$Dir>.MainGFX.UC"
P	 �Ass
Z � Pal &100
d � Buff 10*1024
n  *SET Disc2 <Obey$Dir>.Disc2
x *TUNING 0
� *TUNING -&2000
� *VOLUME 127
�
 *FX15
�
 �12:�9:�
� �T=0�15:�19,T,0;0;:�
� � CODE &100
� �T=0�2�2:P%=CODE:[OPT T
� .ScMem EQUD S%+&3000
�G .Bank EQUD 0:.BankSwitch STMFD R13!,{R14}:MOV R0,#19:SWI "OS_Byte"
܁ LDR R1,Bank:ADD R1,R1,#1:MOV R0,#113:SWI "OS_Byte":LDR R1,Bank:� R1,R1,#1:STR R1,Bank:ADD R1,R1,#1:MOV R0,#112:SWI "OS_Byte"
�: LDR R1,Bank:LDR R0,ScMem:CMP R1,#1:ADDEQ R0,R0,#&A000
� SUB R0,R0,#320
� MOV R1,#&2000:MOV R2,#0

S MOV R3,R2:MOV R4,R2:MOV R5,R2:MOV R6,R2:MOV R7,R2:MOV R8,R2:MOV R9,R2:.ClrLoop

1 STMIA R0!,{R2-R9}:SUBS R1,R1,#32:BNE ClrLoop

 LDMFD R13!,{PC}:]:�

" � Scale 16

, �T=0�3:Scale!(T*4)=256:�

6$ *SLOAD <Obey$Dir>.MainGFX.READY

@ A=0

J �T=0�15:� BankSwitch

T9 Scl=256+32*(15-T):�ScaleSp:�19,7,16,T*15,T*15,T*15:�

^
 *FX113,1

h6 *RMENSURE DING 1.00 *RMLOAD <Obey$Dir>.SOUND.DING

r8 *RMENSURE SPLAT 1.00 *RMLOAD <Obey$Dir>.SOUND.SPLAT

|: *RMENSURE WHOOSH 1.00 *RMLOAD <Obey$Dir>.SOUND.WHOOSH

�4 *RMENSURE TAP 1.00 *RMLOAD <Obey$Dir>.SOUND.TAP

�8 *RMENSURE BONUS 1.00 *RMLOAD <Obey$Dir>.SOUND.BONUS

�8 *RMENSURE SPEED 1.00 *RMLOAD <Obey$Dir>.SOUND.SPEED

�6 *RMENSURE HORN 1.00 *RMLOAD <Obey$Dir>.SOUND.HORN

�6 *RMENSURE BELL 1.00 *RMLOAD <Obey$Dir>.SOUND.BELL

�6 *RMENSURE PLUG 1.00 *RMLOAD <Obey$Dir>.SOUND.PLUG

�8 *RMENSURE CROAK 1.00 *RMLOAD <Obey$Dir>.SOUND.CROAK

�4 *RMENSURE POP 1.00 *RMLOAD <Obey$Dir>.SOUND.POP

�8 *RMENSURE SMASH 1.00 *RMLOAD <Obey$Dir>.SOUND.SMASH

�6 *RMENSURE OUCH 1.00 *RMLOAD <Obey$Dir>.SOUND.OUCH

�' *LOAD <Obey$Dir>.MainGFX.SPR 3C000

�( *LOAD <Obey$Dir>.MainGFX.NUMS 3F000

�) *LOAD <Obey$Dir>.MainGFX.FRUIT 44000
* *LOAD <Obey$Dir>.MainGFX.EXPLOS 46000
* *LOAD <Obey$Dir>.MainGFX.Blocks 2D200
+ *LOAD <Obey$Dir>.MainGFX.SOCKETS 32200
&) *LOAD <Obey$Dir>.MainGFX.LIPIC 96600
0 *<Obey$Dir>.MainGFX.Chars
: �T=15�0�-1:� BankSwitch
D9 Scl=256+32*(15-T):�ScaleSp:�19,7,16,T*15,T*15,T*15:�
N �T=0�15:�19,T,0;0;:�
X, *LOAD <Disc2>.Spobble.DATA.KeyDefs 8F00
b	 R%=1
l
 �=&70000
v �"<Disc2>.Spobble.Starter"
� ��ScaleSp
� !Scale=Scl:Scale!4=Scl
� D=64/256*!Scale*4
� *SCHOOSE LOADING
� �&ED,400,600
� �
�
 ��Ass
�* � CODE &100:�T%=0�2�2:P%=CODE:[OPT T%
�� .Uncom STMFD R13!,{R14}:LDR R1,RD:LDR R0,SC:LDR R4,LE:.EX1 LDRB R2,[R1],#1:LDRB R3,[R1],#1:.EX2 STRB R2,[R0],#1:SUB R4,R4,#1:SUBS R3,R3,#1:BGT EX2:CMP R4,#0:BGT EX1:LDMFD R13!,{PC}:.RD EQUD0:.SC EQUD0:.LE EQUD0
�
 ]:�:�
� ��Cols
� � �>50 Col=Col � 1:�=0
�% � Col=1 � �T=8�11:�19,T,0;0;:�:�
? T=Pal:�N=0�15:�M=1�3:� ?T:T=T+1:�:�M=1�3:� ((?T)):T=T+1:�,
 �
�

00000000  0d 00 0a 1b 20 f4 20 3e  3c 4f 62 65 79 24 44 69  |.... . ><Obey$Di|
00000010  72 3e 2e 47 61 6d 65 4c  6f 61 64 0d 00 14 0d 20  |r>.GameLoad.... |
00000020  d3 3d 26 38 31 39 30 30  0d 00 1e 16 20 de 20 49  |.=&81900.... . I|
00000030  42 25 20 32 30 3a de 20  4f 42 25 20 32 30 0d 00  |B% 20:. OB% 20..|
00000040  28 41 20 21 49 42 25 3d  31 34 38 3a 49 42 25 21  |(A !IB%=148:IB%!|
00000050  34 3d 31 35 30 3a 49 42  25 21 38 3d 2d 31 3a c8  |4=150:IB%!8=-1:.|
00000060  99 20 22 4f 53 5f 52 65  61 64 56 64 75 56 61 72  |. "OS_ReadVduVar|
00000070  69 61 62 6c 65 73 22 2c  49 42 25 2c 4f 42 25 0d  |iables",IB%,OB%.|
00000080  00 32 0c 20 53 25 3d 21  4f 42 25 0d 00 3c 31 20  |.2. S%=!OB%..<1 |
00000090  53 70 72 31 3d 26 38 38  30 30 30 3a 53 70 72 32  |Spr1=&88000:Spr2|
000000a0  3d 26 38 39 30 30 30 3a  de 20 53 63 61 6c 65 20  |=&89000:. Scale |
000000b0  31 36 3a de 20 4e 61 6d  65 20 31 30 0d 00 46 58  |16:. Name 10..FX|
000000c0  20 21 53 70 72 31 3d 26  38 38 30 30 30 3a 53 70  | !Spr1=&88000:Sp|
000000d0  72 31 21 34 3d 30 3a 53  70 72 31 21 38 3d 31 36  |r1!4=0:Spr1!8=16|
000000e0  3a c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |:.."OS_SpriteOp"|
000000f0  2c 32 35 36 2b 31 30 2c  53 70 72 31 2c 22 3c 4f  |,256+10,Spr1,"<O|
00000100  62 65 79 24 44 69 72 3e  2e 4d 61 69 6e 47 46 58  |bey$Dir>.MainGFX|
00000110  2e 55 43 22 0d 00 50 09  20 f2 41 73 73 0d 00 5a  |.UC"..P. .Ass..Z|
00000120  0f 20 de 20 50 61 6c 20  26 31 30 30 0d 00 64 13  |. . Pal &100..d.|
00000130  20 de 20 42 75 66 66 20  31 30 2a 31 30 32 34 0d  | . Buff 10*1024.|
00000140  00 6e 20 20 2a 53 45 54  20 44 69 73 63 32 20 3c  |.n  *SET Disc2 <|
00000150  4f 62 65 79 24 44 69 72  3e 2e 44 69 73 63 32 0d  |Obey$Dir>.Disc2.|
00000160  00 78 0e 20 2a 54 55 4e  49 4e 47 20 30 0d 00 82  |.x. *TUNING 0...|
00000170  13 20 2a 54 55 4e 49 4e  47 20 2d 26 32 30 30 30  |. *TUNING -&2000|
00000180  0d 00 8c 10 20 2a 56 4f  4c 55 4d 45 20 31 32 37  |.... *VOLUME 127|
00000190  0d 00 96 0a 20 2a 46 58  31 35 0d 00 a0 0d 20 eb  |.... *FX15.... .|
000001a0  31 32 3a eb 39 3a 87 0d  00 aa 19 20 e3 54 3d 30  |12:.9:..... .T=0|
000001b0  b8 31 35 3a ef 31 39 2c  54 2c 30 3b 30 3b 3a ed  |.15:.19,T,0;0;:.|
000001c0  0d 00 b4 10 20 de 20 43  4f 44 45 20 26 31 30 30  |.... . CODE &100|
000001d0  0d 00 be 1c 20 e3 54 3d  30 b8 32 88 32 3a 50 25  |.... .T=0.2.2:P%|
000001e0  3d 43 4f 44 45 3a 5b 4f  50 54 20 54 0d 00 c8 19  |=CODE:[OPT T....|
000001f0  20 2e 53 63 4d 65 6d 20  45 51 55 44 20 53 25 2b  | .ScMem EQUD S%+|
00000200  26 33 30 30 30 0d 00 d2  47 20 2e 42 61 6e 6b 20  |&3000...G .Bank |
00000210  45 51 55 44 20 30 3a 2e  42 61 6e 6b 53 77 69 74  |EQUD 0:.BankSwit|
00000220  63 68 20 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |ch STMFD R13!,{R|
00000230  31 34 7d 3a 4d 4f 56 20  52 30 2c 23 31 39 3a 53  |14}:MOV R0,#19:S|
00000240  57 49 20 22 4f 53 5f 42  79 74 65 22 0d 00 dc 81  |WI "OS_Byte"....|
00000250  20 4c 44 52 20 52 31 2c  42 61 6e 6b 3a 41 44 44  | LDR R1,Bank:ADD|
00000260  20 52 31 2c 52 31 2c 23  31 3a 4d 4f 56 20 52 30  | R1,R1,#1:MOV R0|
00000270  2c 23 31 31 33 3a 53 57  49 20 22 4f 53 5f 42 79  |,#113:SWI "OS_By|
00000280  74 65 22 3a 4c 44 52 20  52 31 2c 42 61 6e 6b 3a  |te":LDR R1,Bank:|
00000290  82 20 52 31 2c 52 31 2c  23 31 3a 53 54 52 20 52  |. R1,R1,#1:STR R|
000002a0  31 2c 42 61 6e 6b 3a 41  44 44 20 52 31 2c 52 31  |1,Bank:ADD R1,R1|
000002b0  2c 23 31 3a 4d 4f 56 20  52 30 2c 23 31 31 32 3a  |,#1:MOV R0,#112:|
000002c0  53 57 49 20 22 4f 53 5f  42 79 74 65 22 0d 00 e6  |SWI "OS_Byte"...|
000002d0  3a 20 4c 44 52 20 52 31  2c 42 61 6e 6b 3a 4c 44  |: LDR R1,Bank:LD|
000002e0  52 20 52 30 2c 53 63 4d  65 6d 3a 43 4d 50 20 52  |R R0,ScMem:CMP R|
000002f0  31 2c 23 31 3a 41 44 44  45 51 20 52 30 2c 52 30  |1,#1:ADDEQ R0,R0|
00000300  2c 23 26 41 30 30 30 0d  00 f0 13 20 53 55 42 20  |,#&A000.... SUB |
00000310  52 30 2c 52 30 2c 23 33  32 30 0d 00 fa 1c 20 4d  |R0,R0,#320.... M|
00000320  4f 56 20 52 31 2c 23 26  32 30 30 30 3a 4d 4f 56  |OV R1,#&2000:MOV|
00000330  20 52 32 2c 23 30 0d 01  04 53 20 4d 4f 56 20 52  | R2,#0...S MOV R|
00000340  33 2c 52 32 3a 4d 4f 56  20 52 34 2c 52 32 3a 4d  |3,R2:MOV R4,R2:M|
00000350  4f 56 20 52 35 2c 52 32  3a 4d 4f 56 20 52 36 2c  |OV R5,R2:MOV R6,|
00000360  52 32 3a 4d 4f 56 20 52  37 2c 52 32 3a 4d 4f 56  |R2:MOV R7,R2:MOV|
00000370  20 52 38 2c 52 32 3a 4d  4f 56 20 52 39 2c 52 32  | R8,R2:MOV R9,R2|
00000380  3a 2e 43 6c 72 4c 6f 6f  70 0d 01 0e 31 20 53 54  |:.ClrLoop...1 ST|
00000390  4d 49 41 20 52 30 21 2c  7b 52 32 2d 52 39 7d 3a  |MIA R0!,{R2-R9}:|
000003a0  53 55 42 53 20 52 31 2c  52 31 2c 23 33 32 3a 42  |SUBS R1,R1,#32:B|
000003b0  4e 45 20 43 6c 72 4c 6f  6f 70 0d 01 18 18 20 4c  |NE ClrLoop.... L|
000003c0  44 4d 46 44 20 52 31 33  21 2c 7b 50 43 7d 3a 5d  |DMFD R13!,{PC}:]|
000003d0  3a ed 0d 01 22 0f 20 de  20 53 63 61 6c 65 20 31  |:...". . Scale 1|
000003e0  36 0d 01 2c 1d 20 e3 54  3d 30 b8 33 3a 53 63 61  |6..,. .T=0.3:Sca|
000003f0  6c 65 21 28 54 2a 34 29  3d 32 35 36 3a ed 0d 01  |le!(T*4)=256:...|
00000400  36 24 20 2a 53 4c 4f 41  44 20 3c 4f 62 65 79 24  |6$ *SLOAD <Obey$|
00000410  44 69 72 3e 2e 4d 61 69  6e 47 46 58 2e 52 45 41  |Dir>.MainGFX.REA|
00000420  44 59 0d 01 40 08 20 41  3d 30 0d 01 4a 19 20 e3  |DY..@. A=0..J. .|
00000430  54 3d 30 b8 31 35 3a d6  20 42 61 6e 6b 53 77 69  |T=0.15:. BankSwi|
00000440  74 63 68 0d 01 54 39 20  53 63 6c 3d 32 35 36 2b  |tch..T9 Scl=256+|
00000450  33 32 2a 28 31 35 2d 54  29 3a f2 53 63 61 6c 65  |32*(15-T):.Scale|
00000460  53 70 3a ef 31 39 2c 37  2c 31 36 2c 54 2a 31 35  |Sp:.19,7,16,T*15|
00000470  2c 54 2a 31 35 2c 54 2a  31 35 3a ed 0d 01 5e 0d  |,T*15,T*15:...^.|
00000480  20 2a 46 58 31 31 33 2c  31 0d 01 68 36 20 2a 52  | *FX113,1..h6 *R|
00000490  4d 45 4e 53 55 52 45 20  44 49 4e 47 20 31 2e 30  |MENSURE DING 1.0|
000004a0  30 20 2a 52 4d 4c 4f 41  44 20 3c 4f 62 65 79 24  |0 *RMLOAD <Obey$|
000004b0  44 69 72 3e 2e 53 4f 55  4e 44 2e 44 49 4e 47 0d  |Dir>.SOUND.DING.|
000004c0  01 72 38 20 2a 52 4d 45  4e 53 55 52 45 20 53 50  |.r8 *RMENSURE SP|
000004d0  4c 41 54 20 31 2e 30 30  20 2a 52 4d 4c 4f 41 44  |LAT 1.00 *RMLOAD|
000004e0  20 3c 4f 62 65 79 24 44  69 72 3e 2e 53 4f 55 4e  | <Obey$Dir>.SOUN|
000004f0  44 2e 53 50 4c 41 54 0d  01 7c 3a 20 2a 52 4d 45  |D.SPLAT..|: *RME|
00000500  4e 53 55 52 45 20 57 48  4f 4f 53 48 20 31 2e 30  |NSURE WHOOSH 1.0|
00000510  30 20 2a 52 4d 4c 4f 41  44 20 3c 4f 62 65 79 24  |0 *RMLOAD <Obey$|
00000520  44 69 72 3e 2e 53 4f 55  4e 44 2e 57 48 4f 4f 53  |Dir>.SOUND.WHOOS|
00000530  48 0d 01 86 34 20 2a 52  4d 45 4e 53 55 52 45 20  |H...4 *RMENSURE |
00000540  54 41 50 20 31 2e 30 30  20 2a 52 4d 4c 4f 41 44  |TAP 1.00 *RMLOAD|
00000550  20 3c 4f 62 65 79 24 44  69 72 3e 2e 53 4f 55 4e  | <Obey$Dir>.SOUN|
00000560  44 2e 54 41 50 0d 01 90  38 20 2a 52 4d 45 4e 53  |D.TAP...8 *RMENS|
00000570  55 52 45 20 42 4f 4e 55  53 20 31 2e 30 30 20 2a  |URE BONUS 1.00 *|
00000580  52 4d 4c 4f 41 44 20 3c  4f 62 65 79 24 44 69 72  |RMLOAD <Obey$Dir|
00000590  3e 2e 53 4f 55 4e 44 2e  42 4f 4e 55 53 0d 01 9a  |>.SOUND.BONUS...|
000005a0  38 20 2a 52 4d 45 4e 53  55 52 45 20 53 50 45 45  |8 *RMENSURE SPEE|
000005b0  44 20 31 2e 30 30 20 2a  52 4d 4c 4f 41 44 20 3c  |D 1.00 *RMLOAD <|
000005c0  4f 62 65 79 24 44 69 72  3e 2e 53 4f 55 4e 44 2e  |Obey$Dir>.SOUND.|
000005d0  53 50 45 45 44 0d 01 a4  36 20 2a 52 4d 45 4e 53  |SPEED...6 *RMENS|
000005e0  55 52 45 20 48 4f 52 4e  20 31 2e 30 30 20 2a 52  |URE HORN 1.00 *R|
000005f0  4d 4c 4f 41 44 20 3c 4f  62 65 79 24 44 69 72 3e  |MLOAD <Obey$Dir>|
00000600  2e 53 4f 55 4e 44 2e 48  4f 52 4e 0d 01 ae 36 20  |.SOUND.HORN...6 |
00000610  2a 52 4d 45 4e 53 55 52  45 20 42 45 4c 4c 20 31  |*RMENSURE BELL 1|
00000620  2e 30 30 20 2a 52 4d 4c  4f 41 44 20 3c 4f 62 65  |.00 *RMLOAD <Obe|
00000630  79 24 44 69 72 3e 2e 53  4f 55 4e 44 2e 42 45 4c  |y$Dir>.SOUND.BEL|
00000640  4c 0d 01 b8 36 20 2a 52  4d 45 4e 53 55 52 45 20  |L...6 *RMENSURE |
00000650  50 4c 55 47 20 31 2e 30  30 20 2a 52 4d 4c 4f 41  |PLUG 1.00 *RMLOA|
00000660  44 20 3c 4f 62 65 79 24  44 69 72 3e 2e 53 4f 55  |D <Obey$Dir>.SOU|
00000670  4e 44 2e 50 4c 55 47 0d  01 c2 38 20 2a 52 4d 45  |ND.PLUG...8 *RME|
00000680  4e 53 55 52 45 20 43 52  4f 41 4b 20 31 2e 30 30  |NSURE CROAK 1.00|
00000690  20 2a 52 4d 4c 4f 41 44  20 3c 4f 62 65 79 24 44  | *RMLOAD <Obey$D|
000006a0  69 72 3e 2e 53 4f 55 4e  44 2e 43 52 4f 41 4b 0d  |ir>.SOUND.CROAK.|
000006b0  01 cc 34 20 2a 52 4d 45  4e 53 55 52 45 20 50 4f  |..4 *RMENSURE PO|
000006c0  50 20 31 2e 30 30 20 2a  52 4d 4c 4f 41 44 20 3c  |P 1.00 *RMLOAD <|
000006d0  4f 62 65 79 24 44 69 72  3e 2e 53 4f 55 4e 44 2e  |Obey$Dir>.SOUND.|
000006e0  50 4f 50 0d 01 d6 38 20  2a 52 4d 45 4e 53 55 52  |POP...8 *RMENSUR|
000006f0  45 20 53 4d 41 53 48 20  31 2e 30 30 20 2a 52 4d  |E SMASH 1.00 *RM|
00000700  4c 4f 41 44 20 3c 4f 62  65 79 24 44 69 72 3e 2e  |LOAD <Obey$Dir>.|
00000710  53 4f 55 4e 44 2e 53 4d  41 53 48 0d 01 e0 36 20  |SOUND.SMASH...6 |
00000720  2a 52 4d 45 4e 53 55 52  45 20 4f 55 43 48 20 31  |*RMENSURE OUCH 1|
00000730  2e 30 30 20 2a 52 4d 4c  4f 41 44 20 3c 4f 62 65  |.00 *RMLOAD <Obe|
00000740  79 24 44 69 72 3e 2e 53  4f 55 4e 44 2e 4f 55 43  |y$Dir>.SOUND.OUC|
00000750  48 0d 01 ea 27 20 2a 4c  4f 41 44 20 3c 4f 62 65  |H...' *LOAD <Obe|
00000760  79 24 44 69 72 3e 2e 4d  61 69 6e 47 46 58 2e 53  |y$Dir>.MainGFX.S|
00000770  50 52 20 33 43 30 30 30  0d 01 f4 28 20 2a 4c 4f  |PR 3C000...( *LO|
00000780  41 44 20 3c 4f 62 65 79  24 44 69 72 3e 2e 4d 61  |AD <Obey$Dir>.Ma|
00000790  69 6e 47 46 58 2e 4e 55  4d 53 20 33 46 30 30 30  |inGFX.NUMS 3F000|
000007a0  0d 01 fe 29 20 2a 4c 4f  41 44 20 3c 4f 62 65 79  |...) *LOAD <Obey|
000007b0  24 44 69 72 3e 2e 4d 61  69 6e 47 46 58 2e 46 52  |$Dir>.MainGFX.FR|
000007c0  55 49 54 20 34 34 30 30  30 0d 02 08 2a 20 2a 4c  |UIT 44000...* *L|
000007d0  4f 41 44 20 3c 4f 62 65  79 24 44 69 72 3e 2e 4d  |OAD <Obey$Dir>.M|
000007e0  61 69 6e 47 46 58 2e 45  58 50 4c 4f 53 20 34 36  |ainGFX.EXPLOS 46|
000007f0  30 30 30 0d 02 12 2a 20  2a 4c 4f 41 44 20 3c 4f  |000...* *LOAD <O|
00000800  62 65 79 24 44 69 72 3e  2e 4d 61 69 6e 47 46 58  |bey$Dir>.MainGFX|
00000810  2e 42 6c 6f 63 6b 73 20  32 44 32 30 30 0d 02 1c  |.Blocks 2D200...|
00000820  2b 20 2a 4c 4f 41 44 20  3c 4f 62 65 79 24 44 69  |+ *LOAD <Obey$Di|
00000830  72 3e 2e 4d 61 69 6e 47  46 58 2e 53 4f 43 4b 45  |r>.MainGFX.SOCKE|
00000840  54 53 20 33 32 32 30 30  0d 02 26 29 20 2a 4c 4f  |TS 32200..&) *LO|
00000850  41 44 20 3c 4f 62 65 79  24 44 69 72 3e 2e 4d 61  |AD <Obey$Dir>.Ma|
00000860  69 6e 47 46 58 2e 4c 49  50 49 43 20 39 36 36 30  |inGFX.LIPIC 9660|
00000870  30 0d 02 30 1e 20 2a 3c  4f 62 65 79 24 44 69 72  |0..0. *<Obey$Dir|
00000880  3e 2e 4d 61 69 6e 47 46  58 2e 43 68 61 72 73 0d  |>.MainGFX.Chars.|
00000890  02 3a 1c 20 e3 54 3d 31  35 b8 30 88 2d 31 3a d6  |.:. .T=15.0.-1:.|
000008a0  20 42 61 6e 6b 53 77 69  74 63 68 0d 02 44 39 20  | BankSwitch..D9 |
000008b0  53 63 6c 3d 32 35 36 2b  33 32 2a 28 31 35 2d 54  |Scl=256+32*(15-T|
000008c0  29 3a f2 53 63 61 6c 65  53 70 3a ef 31 39 2c 37  |):.ScaleSp:.19,7|
000008d0  2c 31 36 2c 54 2a 31 35  2c 54 2a 31 35 2c 54 2a  |,16,T*15,T*15,T*|
000008e0  31 35 3a ed 0d 02 4e 19  20 e3 54 3d 30 b8 31 35  |15:...N. .T=0.15|
000008f0  3a ef 31 39 2c 54 2c 30  3b 30 3b 3a ed 0d 02 58  |:.19,T,0;0;:...X|
00000900  2c 20 2a 4c 4f 41 44 20  3c 44 69 73 63 32 3e 2e  |, *LOAD <Disc2>.|
00000910  53 70 6f 62 62 6c 65 2e  44 41 54 41 2e 4b 65 79  |Spobble.DATA.Key|
00000920  44 65 66 73 20 38 46 30  30 0d 02 62 09 20 52 25  |Defs 8F00..b. R%|
00000930  3d 31 0d 02 6c 0d 20 d0  3d 26 37 30 30 30 30 0d  |=1..l. .=&70000.|
00000940  02 76 1f 20 d7 22 3c 44  69 73 63 32 3e 2e 53 70  |.v. ."<Disc2>.Sp|
00000950  6f 62 62 6c 65 2e 53 74  61 72 74 65 72 22 0d 02  |obble.Starter"..|
00000960  80 0e 20 dd f2 53 63 61  6c 65 53 70 0d 02 8a 1b  |.. ..ScaleSp....|
00000970  20 21 53 63 61 6c 65 3d  53 63 6c 3a 53 63 61 6c  | !Scale=Scl:Scal|
00000980  65 21 34 3d 53 63 6c 0d  02 94 16 20 44 3d 36 34  |e!4=Scl.... D=64|
00000990  2f 32 35 36 2a 21 53 63  61 6c 65 2a 34 0d 02 9e  |/256*!Scale*4...|
000009a0  15 20 2a 53 43 48 4f 4f  53 45 20 4c 4f 41 44 49  |. *SCHOOSE LOADI|
000009b0  4e 47 0d 02 a8 11 20 f0  26 45 44 2c 34 30 30 2c  |NG.... .&ED,400,|
000009c0  36 30 30 0d 02 b2 06 20  e1 0d 02 bc 0a 20 dd f2  |600.... ..... ..|
000009d0  41 73 73 0d 02 c6 2a 20  de 20 43 4f 44 45 20 26  |Ass...* . CODE &|
000009e0  31 30 30 3a e3 54 25 3d  30 b8 32 88 32 3a 50 25  |100:.T%=0.2.2:P%|
000009f0  3d 43 4f 44 45 3a 5b 4f  50 54 20 54 25 0d 02 d0  |=CODE:[OPT T%...|
00000a00  d7 20 2e 55 6e 63 6f 6d  20 53 54 4d 46 44 20 52  |. .Uncom STMFD R|
00000a10  31 33 21 2c 7b 52 31 34  7d 3a 4c 44 52 20 52 31  |13!,{R14}:LDR R1|
00000a20  2c 52 44 3a 4c 44 52 20  52 30 2c 53 43 3a 4c 44  |,RD:LDR R0,SC:LD|
00000a30  52 20 52 34 2c 4c 45 3a  2e 45 58 31 20 4c 44 52  |R R4,LE:.EX1 LDR|
00000a40  42 20 52 32 2c 5b 52 31  5d 2c 23 31 3a 4c 44 52  |B R2,[R1],#1:LDR|
00000a50  42 20 52 33 2c 5b 52 31  5d 2c 23 31 3a 2e 45 58  |B R3,[R1],#1:.EX|
00000a60  32 20 53 54 52 42 20 52  32 2c 5b 52 30 5d 2c 23  |2 STRB R2,[R0],#|
00000a70  31 3a 53 55 42 20 52 34  2c 52 34 2c 23 31 3a 53  |1:SUB R4,R4,#1:S|
00000a80  55 42 53 20 52 33 2c 52  33 2c 23 31 3a 42 47 54  |UBS R3,R3,#1:BGT|
00000a90  20 45 58 32 3a 43 4d 50  20 52 34 2c 23 30 3a 42  | EX2:CMP R4,#0:B|
00000aa0  47 54 20 45 58 31 3a 4c  44 4d 46 44 20 52 31 33  |GT EX1:LDMFD R13|
00000ab0  21 2c 7b 50 43 7d 3a 2e  52 44 20 45 51 55 44 30  |!,{PC}:.RD EQUD0|
00000ac0  3a 2e 53 43 20 45 51 55  44 30 3a 2e 4c 45 20 45  |:.SC EQUD0:.LE E|
00000ad0  51 55 44 30 0d 02 da 0a  20 5d 3a ed 3a e1 0d 02  |QUD0.... ]:.:...|
00000ae0  e4 0b 20 dd f2 43 6f 6c  73 0d 02 ee 1b 20 e7 20  |.. ..Cols.... . |
00000af0  91 3e 35 30 20 43 6f 6c  3d 43 6f 6c 20 82 20 31  |.>50 Col=Col . 1|
00000b00  3a d1 3d 30 0d 02 f8 25  20 e7 20 43 6f 6c 3d 31  |:.=0...% . Col=1|
00000b10  20 8c 20 e3 54 3d 38 b8  31 31 3a ef 31 39 2c 54  | . .T=8.11:.19,T|
00000b20  2c 30 3b 30 3b 3a ed 3a  e1 0d 03 02 3f 20 54 3d  |,0;0;:.:....? T=|
00000b30  50 61 6c 3a e3 4e 3d 30  b8 31 35 3a e3 4d 3d 31  |Pal:.N=0.15:.M=1|
00000b40  b8 33 3a ef 20 3f 54 3a  54 3d 54 2b 31 3a ed 3a  |.3:. ?T:T=T+1:.:|
00000b50  e3 4d 3d 31 b8 33 3a ef  20 28 28 3f 54 29 29 3a  |.M=1.3:. ((?T)):|
00000b60  54 3d 54 2b 31 3a ed 2c  0d 03 0c 06 20 e1 0d ff  |T=T+1:.,.... ...|
00000b70