o� (c)1984 Bud Software.  All rights reserved.  Unauthorised lending, copying or resale strictly prohibited.
e�2:�i:�3:�31,3,2:�d("Joystick Adval"):�':�d("      Utility"):�"   v.2"''"(c)1984 Bud Software":�6
<��'''"This Utility allows"'"switch Joysticks to"'"be used with ADVAL"'"software such as"'"Acornsoft's.":�7:�5,25)"PRESS ANY"''�2)"KEY TO CONTINUE";:*fx15,1
Z�r$=�:�a:�6:�19,0,4;0;28,5,24,39,0:�''"  JOYSTICK ADVAL UTILITY"'"  "�22,"*"):�'''"Nothing further is required!":�''"Simply CHAIN your program in"'"the normal manner."''':*fx153,0,67
�*fx153,0,72
�*fx153,0,65
�*fx153,0,73
�*fx153,0,78
�*fx153,0,34
��
�3��d(d$):�i%:�i%=1��(d$):?xy=�(�d$,i%,1)):�&FFF1
�~�23,253,xy?1,xy?1,xy?2,xy?2,xy?3,xy?3,xy?4,xy?4,23,254,xy?5,xy?5,xy?6,xy?6,xy?7,xy?7,xy?8,xy?8,253,8,10,254,11:�i%:�9,10:�
�5��i:�c 12,xy 8:A%=&A:X%=xy�256:Y%=xy�256:r$=" ":�
�A��a:�t,f,q,i%:normal=!&20A�&FFFF:�q=0�2�2:P%=&120:*fx247,76,0

�[OPTq:.reset:PHA:LDA#adval � 256:STA&20A:LDA#adval � 256:STA&20B:PLA:RTS:.adval CMP#&80:BEQitsadv:.exit JMPnormal:.itsadv CPX#5:BCSexit:CPX#0:BNEnotfr:.fire LDA&FCC0:�mask:�#&10:BEQnopres:LDX#3:BNEmin:.nopres LDX#0:BEQmax

�.exit JMPnormal:.itsadv CPX#5:BCSexit:CPX#0:BNEnotfr:.fire LDA&FCC0:�mask:�#&10:BEQnopres:LDX#3:BNEmin:.nopres LDX#0:BEQmax:.notfr TXA:�#&1:BEQvertcl:.notfr TXA:�#&1:BEQvertcl:.horiz LDA&FCC0:�mask:�#&0C:BEQcentre:CMP#4

"�BEQmax:BNEmin:.vertcl LDA&FCC0:�mask:�#3:BEQcentre:CMP#1:BEQmax:.min LDY#0:BEQreturn:.max LDY#&FF:BNEreturn:.centre LDY#&7F:.return LDA#&80:RTS:.mask:]�q:�(?&FCC0�32)<>0�?mask=&FF�?mask=0

,hX%=c�256:Y%=c�256:$c="FX248,"+�(reset�256)+",0":�&FFF7:$c="FX249,"+�(reset�256)+",0":�&FFF7:�reset:�
�

00000000  0d 00 0a 6f f4 20 28 63  29 31 39 38 34 20 42 75  |...o. (c)1984 Bu|
00000010  64 20 53 6f 66 74 77 61  72 65 2e 20 20 41 6c 6c  |d Software.  All|
00000020  20 72 69 67 68 74 73 20  72 65 73 65 72 76 65 64  | rights reserved|
00000030  2e 20 20 55 6e 61 75 74  68 6f 72 69 73 65 64 20  |.  Unauthorised |
00000040  6c 65 6e 64 69 6e 67 2c  20 63 6f 70 79 69 6e 67  |lending, copying|
00000050  20 6f 72 20 72 65 73 61  6c 65 20 73 74 72 69 63  | or resale stric|
00000060  74 6c 79 20 70 72 6f 68  69 62 69 74 65 64 2e 0d  |tly prohibited..|
00000070  00 14 65 eb 32 3a f2 69  3a fb 33 3a ef 33 31 2c  |..e.2:.i:.3:.31,|
00000080  33 2c 32 3a f2 64 28 22  4a 6f 79 73 74 69 63 6b  |3,2:.d("Joystick|
00000090  20 41 64 76 61 6c 22 29  3a f1 27 3a f2 64 28 22  | Adval"):.':.d("|
000000a0  20 20 20 20 20 20 55 74  69 6c 69 74 79 22 29 3a  |      Utility"):|
000000b0  f1 22 20 20 20 76 2e 32  22 27 27 22 28 63 29 31  |."   v.2"''"(c)1|
000000c0  39 38 34 20 42 75 64 20  53 6f 66 74 77 61 72 65  |984 Bud Software|
000000d0  22 3a fb 36 0d 00 3c 9f  f1 27 27 27 22 54 68 69  |":.6..<..'''"Thi|
000000e0  73 20 55 74 69 6c 69 74  79 20 61 6c 6c 6f 77 73  |s Utility allows|
000000f0  22 27 22 73 77 69 74 63  68 20 4a 6f 79 73 74 69  |"'"switch Joysti|
00000100  63 6b 73 20 74 6f 22 27  22 62 65 20 75 73 65 64  |cks to"'"be used|
00000110  20 77 69 74 68 20 41 44  56 41 4c 22 27 22 73 6f  | with ADVAL"'"so|
00000120  66 74 77 61 72 65 20 73  75 63 68 20 61 73 22 27  |ftware such as"'|
00000130  22 41 63 6f 72 6e 73 6f  66 74 27 73 2e 22 3a fb  |"Acornsoft's.":.|
00000140  37 3a f1 8a 35 2c 32 35  29 22 50 52 45 53 53 20  |7:..5,25)"PRESS |
00000150  41 4e 59 22 27 27 8a 32  29 22 4b 45 59 20 54 4f  |ANY"''.2)"KEY TO|
00000160  20 43 4f 4e 54 49 4e 55  45 22 3b 3a 2a 66 78 31  | CONTINUE";:*fx1|
00000170  35 2c 31 0d 00 5a b9 72  24 3d be 3a f2 61 3a eb  |5,1..Z.r$=.:.a:.|
00000180  36 3a ef 31 39 2c 30 2c  34 3b 30 3b 32 38 2c 35  |6:.19,0,4;0;28,5|
00000190  2c 32 34 2c 33 39 2c 30  3a f1 27 27 22 20 20 4a  |,24,39,0:.''"  J|
000001a0  4f 59 53 54 49 43 4b 20  41 44 56 41 4c 20 55 54  |OYSTICK ADVAL UT|
000001b0  49 4c 49 54 59 22 27 22  20 20 22 c4 32 32 2c 22  |ILITY"'"  ".22,"|
000001c0  2a 22 29 3a f1 27 27 27  22 4e 6f 74 68 69 6e 67  |*"):.'''"Nothing|
000001d0  20 66 75 72 74 68 65 72  20 69 73 20 72 65 71 75  | further is requ|
000001e0  69 72 65 64 21 22 3a f1  27 27 22 53 69 6d 70 6c  |ired!":.''"Simpl|
000001f0  79 20 43 48 41 49 4e 20  79 6f 75 72 20 70 72 6f  |y CHAIN your pro|
00000200  67 72 61 6d 20 69 6e 22  27 22 74 68 65 20 6e 6f  |gram in"'"the no|
00000210  72 6d 61 6c 20 6d 61 6e  6e 65 72 2e 22 27 27 27  |rmal manner."'''|
00000220  3a 2a 66 78 31 35 33 2c  30 2c 36 37 0d 00 82 0f  |:*fx153,0,67....|
00000230  2a 66 78 31 35 33 2c 30  2c 37 32 0d 00 8c 0f 2a  |*fx153,0,72....*|
00000240  66 78 31 35 33 2c 30 2c  36 35 0d 00 96 0f 2a 66  |fx153,0,65....*f|
00000250  78 31 35 33 2c 30 2c 37  33 0d 00 a0 0f 2a 66 78  |x153,0,73....*fx|
00000260  31 35 33 2c 30 2c 37 38  0d 00 aa 0f 2a 66 78 31  |153,0,78....*fx1|
00000270  35 33 2c 30 2c 33 34 0d  00 b4 05 e0 0d 00 be 33  |53,0,34........3|
00000280  dd f2 64 28 64 24 29 3a  ea 69 25 3a e3 69 25 3d  |..d(d$):.i%:.i%=|
00000290  31 b8 a9 28 64 24 29 3a  3f 78 79 3d 97 28 c1 64  |1..(d$):?xy=.(.d|
000002a0  24 2c 69 25 2c 31 29 29  3a d6 26 46 46 46 31 0d  |$,i%,1)):.&FFF1.|
000002b0  00 c8 7e ef 32 33 2c 32  35 33 2c 78 79 3f 31 2c  |..~.23,253,xy?1,|
000002c0  78 79 3f 31 2c 78 79 3f  32 2c 78 79 3f 32 2c 78  |xy?1,xy?2,xy?2,x|
000002d0  79 3f 33 2c 78 79 3f 33  2c 78 79 3f 34 2c 78 79  |y?3,xy?3,xy?4,xy|
000002e0  3f 34 2c 32 33 2c 32 35  34 2c 78 79 3f 35 2c 78  |?4,23,254,xy?5,x|
000002f0  79 3f 35 2c 78 79 3f 36  2c 78 79 3f 36 2c 78 79  |y?5,xy?6,xy?6,xy|
00000300  3f 37 2c 78 79 3f 37 2c  78 79 3f 38 2c 78 79 3f  |?7,xy?7,xy?8,xy?|
00000310  38 2c 32 35 33 2c 38 2c  31 30 2c 32 35 34 2c 31  |8,253,8,10,254,1|
00000320  31 3a ed 69 25 3a ef 39  2c 31 30 3a e1 0d 00 dc  |1:.i%:.9,10:....|
00000330  35 dd f2 69 3a de 63 20  31 32 2c 78 79 20 38 3a  |5..i:.c 12,xy 8:|
00000340  41 25 3d 26 41 3a 58 25  3d 78 79 83 32 35 36 3a  |A%=&A:X%=xy.256:|
00000350  59 25 3d 78 79 81 32 35  36 3a 72 24 3d 22 20 22  |Y%=xy.256:r$=" "|
00000360  3a e1 0d 00 fa 41 dd f2  61 3a ea 74 2c 66 2c 71  |:....A..a:.t,f,q|
00000370  2c 69 25 3a 6e 6f 72 6d  61 6c 3d 21 26 32 30 41  |,i%:normal=!&20A|
00000380  80 26 46 46 46 46 3a e3  71 3d 30 b8 32 88 32 3a  |.&FFFF:.q=0.2.2:|
00000390  50 25 3d 26 31 32 30 3a  2a 66 78 32 34 37 2c 37  |P%=&120:*fx247,7|
000003a0  36 2c 30 0d 01 0e e1 5b  4f 50 54 71 3a 2e 72 65  |6,0....[OPTq:.re|
000003b0  73 65 74 3a 50 48 41 3a  4c 44 41 23 61 64 76 61  |set:PHA:LDA#adva|
000003c0  6c 20 83 20 32 35 36 3a  53 54 41 26 32 30 41 3a  |l . 256:STA&20A:|
000003d0  4c 44 41 23 61 64 76 61  6c 20 81 20 32 35 36 3a  |LDA#adval . 256:|
000003e0  53 54 41 26 32 30 42 3a  50 4c 41 3a 52 54 53 3a  |STA&20B:PLA:RTS:|
000003f0  2e 61 64 76 61 6c 20 43  4d 50 23 26 38 30 3a 42  |.adval CMP#&80:B|
00000400  45 51 69 74 73 61 64 76  3a 2e 65 78 69 74 20 4a  |EQitsadv:.exit J|
00000410  4d 50 6e 6f 72 6d 61 6c  3a 2e 69 74 73 61 64 76  |MPnormal:.itsadv|
00000420  20 43 50 58 23 35 3a 42  43 53 65 78 69 74 3a 43  | CPX#5:BCSexit:C|
00000430  50 58 23 30 3a 42 4e 45  6e 6f 74 66 72 3a 2e 66  |PX#0:BNEnotfr:.f|
00000440  69 72 65 20 4c 44 41 26  46 43 43 30 3a 82 6d 61  |ire LDA&FCC0:.ma|
00000450  73 6b 3a 80 23 26 31 30  3a 42 45 51 6e 6f 70 72  |sk:.#&10:BEQnopr|
00000460  65 73 3a 4c 44 58 23 33  3a 42 4e 45 6d 69 6e 3a  |es:LDX#3:BNEmin:|
00000470  2e 6e 6f 70 72 65 73 20  4c 44 58 23 30 3a 42 45  |.nopres LDX#0:BE|
00000480  51 6d 61 78 0d 01 18 df  2e 65 78 69 74 20 4a 4d  |Qmax.....exit JM|
00000490  50 6e 6f 72 6d 61 6c 3a  2e 69 74 73 61 64 76 20  |Pnormal:.itsadv |
000004a0  43 50 58 23 35 3a 42 43  53 65 78 69 74 3a 43 50  |CPX#5:BCSexit:CP|
000004b0  58 23 30 3a 42 4e 45 6e  6f 74 66 72 3a 2e 66 69  |X#0:BNEnotfr:.fi|
000004c0  72 65 20 4c 44 41 26 46  43 43 30 3a 82 6d 61 73  |re LDA&FCC0:.mas|
000004d0  6b 3a 80 23 26 31 30 3a  42 45 51 6e 6f 70 72 65  |k:.#&10:BEQnopre|
000004e0  73 3a 4c 44 58 23 33 3a  42 4e 45 6d 69 6e 3a 2e  |s:LDX#3:BNEmin:.|
000004f0  6e 6f 70 72 65 73 20 4c  44 58 23 30 3a 42 45 51  |nopres LDX#0:BEQ|
00000500  6d 61 78 3a 2e 6e 6f 74  66 72 20 54 58 41 3a 80  |max:.notfr TXA:.|
00000510  23 26 31 3a 42 45 51 76  65 72 74 63 6c 3a 2e 6e  |#&1:BEQvertcl:.n|
00000520  6f 74 66 72 20 54 58 41  3a 80 23 26 31 3a 42 45  |otfr TXA:.#&1:BE|
00000530  51 76 65 72 74 63 6c 3a  2e 68 6f 72 69 7a 20 4c  |Qvertcl:.horiz L|
00000540  44 41 26 46 43 43 30 3a  82 6d 61 73 6b 3a 80 23  |DA&FCC0:.mask:.#|
00000550  26 30 43 3a 42 45 51 63  65 6e 74 72 65 3a 43 4d  |&0C:BEQcentre:CM|
00000560  50 23 34 0d 01 22 bf 42  45 51 6d 61 78 3a 42 4e  |P#4..".BEQmax:BN|
00000570  45 6d 69 6e 3a 2e 76 65  72 74 63 6c 20 4c 44 41  |Emin:.vertcl LDA|
00000580  26 46 43 43 30 3a 82 6d  61 73 6b 3a 80 23 33 3a  |&FCC0:.mask:.#3:|
00000590  42 45 51 63 65 6e 74 72  65 3a 43 4d 50 23 31 3a  |BEQcentre:CMP#1:|
000005a0  42 45 51 6d 61 78 3a 2e  6d 69 6e 20 4c 44 59 23  |BEQmax:.min LDY#|
000005b0  30 3a 42 45 51 72 65 74  75 72 6e 3a 2e 6d 61 78  |0:BEQreturn:.max|
000005c0  20 4c 44 59 23 26 46 46  3a 42 4e 45 72 65 74 75  | LDY#&FF:BNEretu|
000005d0  72 6e 3a 2e 63 65 6e 74  72 65 20 4c 44 59 23 26  |rn:.centre LDY#&|
000005e0  37 46 3a 2e 72 65 74 75  72 6e 20 4c 44 41 23 26  |7F:.return LDA#&|
000005f0  38 30 3a 52 54 53 3a 2e  6d 61 73 6b 3a 5d ed 71  |80:RTS:.mask:].q|
00000600  3a e7 28 3f 26 46 43 43  30 80 33 32 29 3c 3e 30  |:.(?&FCC0.32)<>0|
00000610  8c 3f 6d 61 73 6b 3d 26  46 46 8b 3f 6d 61 73 6b  |.?mask=&FF.?mask|
00000620  3d 30 0d 01 2c 68 58 25  3d 63 83 32 35 36 3a 59  |=0..,hX%=c.256:Y|
00000630  25 3d 63 81 32 35 36 3a  24 63 3d 22 46 58 32 34  |%=c.256:$c="FX24|
00000640  38 2c 22 2b c3 28 72 65  73 65 74 83 32 35 36 29  |8,"+.(reset.256)|
00000650  2b 22 2c 30 22 3a d6 26  46 46 46 37 3a 24 63 3d  |+",0":.&FFF7:$c=|
00000660  22 46 58 32 34 39 2c 22  2b c3 28 72 65 73 65 74  |"FX249,"+.(reset|
00000670  81 32 35 36 29 2b 22 2c  30 22 3a d6 26 46 46 46  |.256)+",0":.&FFF|
00000680  37 3a d6 72 65 73 65 74  3a e1 0d ff              |7:.reset:...|
0000068c