� >Touch2

(� By Mike Cook - Musbury Consultants
(*KEY1 PROC_SPB(2)
2� CODE% 200
<!� BOXx%(7),BOXy%(7),BUT%(7,7)
FNewH%=�
P
Z	�_CSU
dA%=&FFFF
n� � � �tB@
xș &42EC0 � A%,B%
�-� A%<>0 � NewH%=�:ș"Parallel_Op",2,&DF,0
�	� � �
�
�� 21 :� Change to your mode
�+CB%=0: CC%=7 : � The two colours to use
�*POINTER 1
�
��_SetUp
��
��_Tread
��_Tdisp
�� �(-99)
��_SPB(2)

�



� Set printer bits

"� �_SPB(B%)

,
!PBITS=B%

6� NewH% � �_NHS � � SPB

@�

J

T� �_NHS

^ș"Parallel_Op",1,!PBITS

h�

r

|� Read Status Bits

�
� �_RS

�� NewH% � �_NH � � RS

�!BITS=!BITS � 3

��

�

�
� �_NH

�ș"Parallel_Op",0 � ,,B%

�!BITS=(B%>>6) � 1

��

�

�� �_CSU :� CODE SETUP

�� A=0 � 2 � 2

�P%=CODE%
[
	OPT A

&2.BITS EQUD 0 \ Place to store the control bits
0
:.RS
DSTMFD R13!,{R14}
NMOV R9,R15
XSWI "OS_EnterOS"
b#MOVNV R0,R0        \ JUST DELAY
l,MOV R0, #&3200000   \ BASE ADDRESS � IOC
v+ADD R1,R0,#&50000    \ BASE � �ER LATCH
�
�\ Get Control Lines
�LDR R4,[R0,#&10] \ � BUSY
�LDR R5,[R0,#&00]  \ � ACK
�
�)� R4,R4,#1      \ Merge them together
�� R5,R5,#&40
�MOV R5,R5,LSR #5
��R R5,R5,R4
�
�-� R5,R5,#2 \ Get the ACK the right way up
�%STR R5,BITS \ Store the bit state
�
\PREPARE � EXIT
TEQP R9,#0
MOVNV R0,R0
 -LDMFD R13!, {PC} \ BACK FROM �ST YOU CAME
*
45.PBITS EQUD 0 \ Place to pass printer bit pattern
>\ Set Printer Bits
H.SPB
RSTMFD R13!,{R14}
\MOV R9,R15
fSWI "OS_EnterOS"
p#MOVNV R0,R0        \ JUST DELAY
z,MOV R0, #&3200000   \ BASE ADDRESS � IOC
�+ADD R1,R0,#&50000    \ BASE � �ER LATCH
�
�#LDR R2,PBITS \ Data output high
�MOV R2,R2,ASL #16
�STR R2,[R1,#&10]
�
�\PREPARE � EXIT
�TEQP R9,#0
�MOVNV R0,R0
�-LDMFD R13!, {PC} \ BACK FROM �ST YOU CAME
�]
��
��

I� This sets XT% and YT% with a 1 in each bit with an interrupted beam

� �_Tread
$�_SPB(2)
.XT%=0:YT%=0
8�_SPB(0)
B
L� A%=0 � 7
V�_SPB(1)
`�_SPB(0)
j
T%=�+1
t�
~�_RS
�� �>T% � !BITS=3
�
�XT%=XT%>>1
�XT%=XT% � ((!BITS � 1)<<7)
�YT%=YT%<<1
�YT%=YT% � (!BITS>>1 � 1)
��
��_SPB(1)
��
�
�
� �_Tdisp
�� X%,Y%
!X%=�_BITC(XT%):Y%=�_BITC(YT%)

+� LX%<8 � LY%<8 � (LX%<>X% � LY%<>Y%) �
� 0,0 Ȝ 0
*ȓȐ BOXx%(LX%)-20,BOXy%(LY%)-20,60,60
( � BUT%(LX%,LY%)=0 �
2  � 0,&38 Ȝ 255
<$  ȓ BOXx%(LX%),BOXy%(LY%),20,20
F  �
P  � 0,&C Ȝ 255
Z&  ȓȐ BOXx%(LX%),BOXy%(LY%),20,20
d �
n�
x
�*� X%<8 � Y%<8  � (LX%<>X% � LY%<>Y%) �
�� 0,7 Ȝ 255
�(ȓȐ BOXx%(X%)-20,BOXy%(Y%)-20,60,60
�BUT%(X%,Y%)=BUT%(X%,Y%) � 1
��
�
�LX%=X%:LY%=Y%
�K� Use the mouse pointer to see where your touches occour on your screen
�ȗ X%,Y%,B%
�� �30,58);" X - ";X%;�(3)
�� �30,59);" Y - ";Y%;�(3)
��
�
� �_BITC(B%)
� A%,C%
B%=B%<<1
"	A%=-1
,�
6B%=B%>>1
@	A%+=1
J� (B% � 1)=1 � A%>7
T=A%
^
h
r
� �_SetUp
|0�"Body Build Touch Screen Test By Mike Cook"
��"Space to quit"
�LX%=8:LY%=8
�� A%=0 � 7
�� BOXx%(A%)
��
�� A%=0 � 7
�� BOXy%(A%)
��
�%� 69,243,402,546,694,850,999,1170
�%� 120,222,357,485,600,729,834,939
�
�� 0,&38 Ȝ 255
�� X%=0 � 7
� Y%=0 � 7
 ȓ BOXx%(X%),BOXy%(Y%),20,20
BUT%(X%,Y%)=0
&�:�
0�
�

00000000  0d 00 0a 0d f4 20 3e 54  6f 75 63 68 32 0d 00 14  |..... >Touch2...|
00000010  04 0d 00 1e 28 f4 20 42  79 20 4d 69 6b 65 20 43  |....(. By Mike C|
00000020  6f 6f 6b 20 2d 20 4d 75  73 62 75 72 79 20 43 6f  |ook - Musbury Co|
00000030  6e 73 75 6c 74 61 6e 74  73 0d 00 28 15 2a 4b 45  |nsultants..(.*KE|
00000040  59 31 20 50 52 4f 43 5f  53 50 42 28 32 29 0d 00  |Y1 PROC_SPB(2)..|
00000050  32 0f de 20 43 4f 44 45  25 20 32 30 30 0d 00 3c  |2.. CODE% 200..<|
00000060  21 de 20 42 4f 58 78 25  28 37 29 2c 42 4f 58 79  |!. BOXx%(7),BOXy|
00000070  25 28 37 29 2c 42 55 54  25 28 37 2c 37 29 0d 00  |%(7),BUT%(7,7)..|
00000080  46 0b 4e 65 77 48 25 3d  a3 0d 00 50 04 0d 00 5a  |F.NewH%=...P...Z|
00000090  09 f2 5f 43 53 55 0d 00  64 0c 41 25 3d 26 46 46  |.._CSU..d.A%=&FF|
000000a0  46 46 0d 00 6e 0e ee 20  85 20 e5 20 8d 74 42 40  |FF..n.. . . .tB@|
000000b0  0d 00 78 15 c8 99 20 26  34 32 45 43 30 20 b8 20  |..x... &42EC0 . |
000000c0  41 25 2c 42 25 0d 00 82  2d e7 20 41 25 3c 3e 30  |A%,B%...-. A%<>0|
000000d0  20 8c 20 4e 65 77 48 25  3d b9 3a c8 99 22 50 61  | . NewH%=.:.."Pa|
000000e0  72 61 6c 6c 65 6c 5f 4f  70 22 2c 32 2c 26 44 46  |rallel_Op",2,&DF|
000000f0  2c 30 0d 00 8c 09 ee 20  85 20 87 0d 00 96 04 0d  |,0..... . ......|
00000100  00 a0 1f eb 20 32 31 20  3a f4 20 43 68 61 6e 67  |.... 21 :. Chang|
00000110  65 20 74 6f 20 79 6f 75  72 20 6d 6f 64 65 0d 00  |e to your mode..|
00000120  aa 2b 43 42 25 3d 30 3a  20 43 43 25 3d 37 20 3a  |.+CB%=0: CC%=7 :|
00000130  20 f4 20 54 68 65 20 74  77 6f 20 63 6f 6c 6f 75  | . The two colou|
00000140  72 73 20 74 6f 20 75 73  65 0d 00 b4 0e 2a 50 4f  |rs to use....*PO|
00000150  49 4e 54 45 52 20 31 0d  00 be 04 0d 00 c8 0b f2  |INTER 1.........|
00000160  5f 53 65 74 55 70 0d 00  d2 05 f5 0d 00 dc 0b f2  |_SetUp..........|
00000170  5f 54 72 65 61 64 0d 00  e6 0b f2 5f 54 64 69 73  |_Tread....._Tdis|
00000180  70 0d 00 f0 0c fd 20 a6  28 2d 39 39 29 0d 00 fa  |p..... .(-99)...|
00000190  0c f2 5f 53 50 42 28 32  29 0d 01 04 05 e0 0d 01  |.._SPB(2).......|
000001a0  0e 04 0d 01 18 16 f4 20  53 65 74 20 70 72 69 6e  |....... Set prin|
000001b0  74 65 72 20 62 69 74 73  0d 01 22 0f dd 20 f2 5f  |ter bits..".. ._|
000001c0  53 50 42 28 42 25 29 0d  01 2c 0d 21 50 42 49 54  |SPB(B%)..,.!PBIT|
000001d0  53 3d 42 25 0d 01 36 1b  e7 20 4e 65 77 48 25 20  |S=B%..6.. NewH% |
000001e0  8c 20 f2 5f 4e 48 53 20  8b 20 d6 20 53 50 42 0d  |. ._NHS . . SPB.|
000001f0  01 40 05 e1 0d 01 4a 04  0d 01 54 0b dd 20 f2 5f  |.@....J...T.. ._|
00000200  4e 48 53 0d 01 5e 1c c8  99 22 50 61 72 61 6c 6c  |NHS..^..."Parall|
00000210  65 6c 5f 4f 70 22 2c 31  2c 21 50 42 49 54 53 0d  |el_Op",1,!PBITS.|
00000220  01 68 05 e1 0d 01 72 04  0d 01 7c 16 f4 20 52 65  |.h....r...|.. Re|
00000230  61 64 20 53 74 61 74 75  73 20 42 69 74 73 0d 01  |ad Status Bits..|
00000240  86 0a dd 20 f2 5f 52 53  0d 01 90 19 e7 20 4e 65  |... ._RS..... Ne|
00000250  77 48 25 20 8c 20 f2 5f  4e 48 20 8b 20 d6 20 52  |wH% . ._NH . . R|
00000260  53 0d 01 9a 13 21 42 49  54 53 3d 21 42 49 54 53  |S....!BITS=!BITS|
00000270  20 82 20 33 0d 01 a4 05  e1 0d 01 ae 04 0d 01 b8  | . 3............|
00000280  0a dd 20 f2 5f 4e 48 0d  01 c2 1c c8 99 22 50 61  |.. ._NH......"Pa|
00000290  72 61 6c 6c 65 6c 5f 4f  70 22 2c 30 20 b8 20 2c  |rallel_Op",0 . ,|
000002a0  2c 42 25 0d 01 cc 15 21  42 49 54 53 3d 28 42 25  |,B%....!BITS=(B%|
000002b0  3e 3e 36 29 20 82 20 31  0d 01 d6 05 e1 0d 01 e0  |>>6) . 1........|
000002c0  04 0d 01 ea 19 dd 20 f2  5f 43 53 55 20 3a f4 20  |...... ._CSU :. |
000002d0  43 4f 44 45 20 53 45 54  55 50 0d 01 f4 11 e3 20  |CODE SETUP..... |
000002e0  41 3d 30 20 b8 20 32 20  88 20 32 0d 01 fe 0c 50  |A=0 . 2 . 2....P|
000002f0  25 3d 43 4f 44 45 25 0d  02 08 05 5b 0d 02 12 09  |%=CODE%....[....|
00000300  4f 50 54 20 41 0d 02 1c  04 0d 02 26 32 2e 42 49  |OPT A......&2.BI|
00000310  54 53 20 45 51 55 44 20  30 20 5c 20 50 6c 61 63  |TS EQUD 0 \ Plac|
00000320  65 20 74 6f 20 73 74 6f  72 65 20 74 68 65 20 63  |e to store the c|
00000330  6f 6e 74 72 6f 6c 20 62  69 74 73 0d 02 30 04 0d  |ontrol bits..0..|
00000340  02 3a 07 2e 52 53 0d 02  44 14 53 54 4d 46 44 20  |.:..RS..D.STMFD |
00000350  52 31 33 21 2c 7b 52 31  34 7d 0d 02 4e 0e 4d 4f  |R13!,{R14}..N.MO|
00000360  56 20 52 39 2c 52 31 35  0d 02 58 14 53 57 49 20  |V R9,R15..X.SWI |
00000370  22 4f 53 5f 45 6e 74 65  72 4f 53 22 0d 02 62 23  |"OS_EnterOS"..b#|
00000380  4d 4f 56 4e 56 20 52 30  2c 52 30 20 20 20 20 20  |MOVNV R0,R0     |
00000390  20 20 20 5c 20 4a 55 53  54 20 44 45 4c 41 59 0d  |   \ JUST DELAY.|
000003a0  02 6c 2c 4d 4f 56 20 52  30 2c 20 23 26 33 32 30  |.l,MOV R0, #&320|
000003b0  30 30 30 30 20 20 20 5c  20 42 41 53 45 20 41 44  |0000   \ BASE AD|
000003c0  44 52 45 53 53 20 ca 20  49 4f 43 0d 02 76 2b 41  |DRESS . IOC..v+A|
000003d0  44 44 20 52 31 2c 52 30  2c 23 26 35 30 30 30 30  |DD R1,R0,#&50000|
000003e0  20 20 20 20 5c 20 42 41  53 45 20 ca 20 f1 45 52  |    \ BASE . .ER|
000003f0  20 4c 41 54 43 48 0d 02  80 04 0d 02 8a 17 5c 20  | LATCH........\ |
00000400  47 65 74 20 43 6f 6e 74  72 6f 6c 20 4c 69 6e 65  |Get Control Line|
00000410  73 0d 02 94 1d 4c 44 52  20 52 34 2c 5b 52 30 2c  |s....LDR R4,[R0,|
00000420  23 26 31 30 5d 20 5c 20  a5 20 42 55 53 59 0d 02  |#&10] \ . BUSY..|
00000430  9e 1d 4c 44 52 20 52 35  2c 5b 52 30 2c 23 26 30  |..LDR R5,[R0,#&0|
00000440  30 5d 20 20 5c 20 a5 20  41 43 4b 0d 02 a8 04 0d  |0]  \ . ACK.....|
00000450  02 b2 29 80 20 52 34 2c  52 34 2c 23 31 20 20 20  |..). R4,R4,#1   |
00000460  20 20 20 5c 20 4d 65 72  67 65 20 74 68 65 6d 20  |   \ Merge them |
00000470  74 6f 67 65 74 68 65 72  0d 02 bc 10 80 20 52 35  |together..... R5|
00000480  2c 52 35 2c 23 26 34 30  0d 02 c6 14 4d 4f 56 20  |,R5,#&40....MOV |
00000490  52 35 2c 52 35 2c 4c 53  52 20 23 35 0d 02 d0 0f  |R5,R5,LSR #5....|
000004a0  84 52 20 52 35 2c 52 35  2c 52 34 0d 02 da 04 0d  |.R R5,R5,R4.....|
000004b0  02 e4 2d 82 20 52 35 2c  52 35 2c 23 32 20 5c 20  |..-. R5,R5,#2 \ |
000004c0  47 65 74 20 74 68 65 20  41 43 4b 20 74 68 65 20  |Get the ACK the |
000004d0  72 69 67 68 74 20 77 61  79 20 75 70 0d 02 ee 25  |right way up...%|
000004e0  53 54 52 20 52 35 2c 42  49 54 53 20 5c 20 53 74  |STR R5,BITS \ St|
000004f0  6f 72 65 20 74 68 65 20  62 69 74 20 73 74 61 74  |ore the bit stat|
00000500  65 0d 02 f8 04 0d 03 02  13 5c 50 52 45 50 41 52  |e........\PREPAR|
00000510  45 20 b8 20 45 58 49 54  0d 03 0c 0e 54 45 51 50  |E . EXIT....TEQP|
00000520  20 52 39 2c 23 30 0d 03  16 0f 4d 4f 56 4e 56 20  | R9,#0....MOVNV |
00000530  52 30 2c 52 30 0d 03 20  2d 4c 44 4d 46 44 20 52  |R0,R0.. -LDMFD R|
00000540  31 33 21 2c 20 7b 50 43  7d 20 5c 20 42 41 43 4b  |13!, {PC} \ BACK|
00000550  20 46 52 4f 4d 20 c9 53  54 20 59 4f 55 20 43 41  | FROM .ST YOU CA|
00000560  4d 45 0d 03 2a 04 0d 03  34 35 2e 50 42 49 54 53  |ME..*...45.PBITS|
00000570  20 45 51 55 44 20 30 20  5c 20 50 6c 61 63 65 20  | EQUD 0 \ Place |
00000580  74 6f 20 70 61 73 73 20  70 72 69 6e 74 65 72 20  |to pass printer |
00000590  62 69 74 20 70 61 74 74  65 72 6e 0d 03 3e 16 5c  |bit pattern..>.\|
000005a0  20 53 65 74 20 50 72 69  6e 74 65 72 20 42 69 74  | Set Printer Bit|
000005b0  73 0d 03 48 08 2e 53 50  42 0d 03 52 14 53 54 4d  |s..H..SPB..R.STM|
000005c0  46 44 20 52 31 33 21 2c  7b 52 31 34 7d 0d 03 5c  |FD R13!,{R14}..\|
000005d0  0e 4d 4f 56 20 52 39 2c  52 31 35 0d 03 66 14 53  |.MOV R9,R15..f.S|
000005e0  57 49 20 22 4f 53 5f 45  6e 74 65 72 4f 53 22 0d  |WI "OS_EnterOS".|
000005f0  03 70 23 4d 4f 56 4e 56  20 52 30 2c 52 30 20 20  |.p#MOVNV R0,R0  |
00000600  20 20 20 20 20 20 5c 20  4a 55 53 54 20 44 45 4c  |      \ JUST DEL|
00000610  41 59 0d 03 7a 2c 4d 4f  56 20 52 30 2c 20 23 26  |AY..z,MOV R0, #&|
00000620  33 32 30 30 30 30 30 20  20 20 5c 20 42 41 53 45  |3200000   \ BASE|
00000630  20 41 44 44 52 45 53 53  20 ca 20 49 4f 43 0d 03  | ADDRESS . IOC..|
00000640  84 2b 41 44 44 20 52 31  2c 52 30 2c 23 26 35 30  |.+ADD R1,R0,#&50|
00000650  30 30 30 20 20 20 20 5c  20 42 41 53 45 20 ca 20  |000    \ BASE . |
00000660  f1 45 52 20 4c 41 54 43  48 0d 03 8e 04 0d 03 98  |.ER LATCH.......|
00000670  23 4c 44 52 20 52 32 2c  50 42 49 54 53 20 5c 20  |#LDR R2,PBITS \ |
00000680  44 61 74 61 20 6f 75 74  70 75 74 20 68 69 67 68  |Data output high|
00000690  0d 03 a2 15 4d 4f 56 20  52 32 2c 52 32 2c 41 53  |....MOV R2,R2,AS|
000006a0  4c 20 23 31 36 0d 03 ac  14 53 54 52 20 52 32 2c  |L #16....STR R2,|
000006b0  5b 52 31 2c 23 26 31 30  5d 0d 03 b6 04 0d 03 c0  |[R1,#&10].......|
000006c0  13 5c 50 52 45 50 41 52  45 20 b8 20 45 58 49 54  |.\PREPARE . EXIT|
000006d0  0d 03 ca 0e 54 45 51 50  20 52 39 2c 23 30 0d 03  |....TEQP R9,#0..|
000006e0  d4 0f 4d 4f 56 4e 56 20  52 30 2c 52 30 0d 03 de  |..MOVNV R0,R0...|
000006f0  2d 4c 44 4d 46 44 20 52  31 33 21 2c 20 7b 50 43  |-LDMFD R13!, {PC|
00000700  7d 20 5c 20 42 41 43 4b  20 46 52 4f 4d 20 c9 53  |} \ BACK FROM .S|
00000710  54 20 59 4f 55 20 43 41  4d 45 0d 03 e8 05 5d 0d  |T YOU CAME....].|
00000720  03 f2 05 ed 0d 03 fc 05  e1 0d 04 06 04 0d 04 10  |................|
00000730  49 f4 20 54 68 69 73 20  73 65 74 73 20 58 54 25  |I. This sets XT%|
00000740  20 61 6e 64 20 59 54 25  20 77 69 74 68 20 61 20  | and YT% with a |
00000750  31 20 69 6e 20 65 61 63  68 20 62 69 74 20 77 69  |1 in each bit wi|
00000760  74 68 20 61 6e 20 69 6e  74 65 72 72 75 70 74 65  |th an interrupte|
00000770  64 20 62 65 61 6d 0d 04  1a 0d dd 20 f2 5f 54 72  |d beam..... ._Tr|
00000780  65 61 64 0d 04 24 0c f2  5f 53 50 42 28 32 29 0d  |ead..$.._SPB(2).|
00000790  04 2e 0f 58 54 25 3d 30  3a 59 54 25 3d 30 0d 04  |...XT%=0:YT%=0..|
000007a0  38 0c f2 5f 53 50 42 28  30 29 0d 04 42 04 0d 04  |8.._SPB(0)..B...|
000007b0  4c 0e e3 20 41 25 3d 30  20 b8 20 37 0d 04 56 0c  |L.. A%=0 . 7..V.|
000007c0  f2 5f 53 50 42 28 31 29  0d 04 60 0c f2 5f 53 50  |._SPB(1)..`.._SP|
000007d0  42 28 30 29 0d 04 6a 0a  54 25 3d 91 2b 31 0d 04  |B(0)..j.T%=.+1..|
000007e0  74 05 f5 0d 04 7e 08 f2  5f 52 53 0d 04 88 14 fd  |t....~.._RS.....|
000007f0  20 91 3e 54 25 20 84 20  21 42 49 54 53 3d 33 0d  | .>T% . !BITS=3.|
00000800  04 92 04 0d 04 9c 0e 58  54 25 3d 58 54 25 3e 3e  |.......XT%=XT%>>|
00000810  31 0d 04 a6 1e 58 54 25  3d 58 54 25 20 84 20 28  |1....XT%=XT% . (|
00000820  28 21 42 49 54 53 20 80  20 31 29 3c 3c 37 29 0d  |(!BITS . 1)<<7).|
00000830  04 b0 0e 59 54 25 3d 59  54 25 3c 3c 31 0d 04 ba  |...YT%=YT%<<1...|
00000840  1c 59 54 25 3d 59 54 25  20 84 20 28 21 42 49 54  |.YT%=YT% . (!BIT|
00000850  53 3e 3e 31 20 80 20 31  29 0d 04 c4 05 ed 0d 04  |S>>1 . 1).......|
00000860  ce 0c f2 5f 53 50 42 28  31 29 0d 04 d8 05 e1 0d  |..._SPB(1)......|
00000870  04 e2 04 0d 04 ec 0d dd  20 f2 5f 54 64 69 73 70  |........ ._Tdisp|
00000880  0d 04 f6 0b ea 20 58 25  2c 59 25 0d 05 00 21 58  |..... X%,Y%...!X|
00000890  25 3d a4 5f 42 49 54 43  28 58 54 25 29 3a 59 25  |%=._BITC(XT%):Y%|
000008a0  3d a4 5f 42 49 54 43 28  59 54 25 29 0d 05 0a 2b  |=._BITC(YT%)...+|
000008b0  e7 20 4c 58 25 3c 38 20  80 20 4c 59 25 3c 38 20  |. LX%<8 . LY%<8 |
000008c0  80 20 28 4c 58 25 3c 3e  58 25 20 84 20 4c 59 25  |. (LX%<>X% . LY%|
000008d0  3c 3e 59 25 29 20 8c 0d  05 14 0e e6 20 30 2c 30  |<>Y%) ...... 0,0|
000008e0  20 c8 9c 20 30 0d 05 1e  2a c8 93 c8 90 20 42 4f  | .. 0...*.... BO|
000008f0  58 78 25 28 4c 58 25 29  2d 32 30 2c 42 4f 58 79  |Xx%(LX%)-20,BOXy|
00000900  25 28 4c 59 25 29 2d 32  30 2c 36 30 2c 36 30 0d  |%(LY%)-20,60,60.|
00000910  05 28 18 20 e7 20 42 55  54 25 28 4c 58 25 2c 4c  |.(. . BUT%(LX%,L|
00000920  59 25 29 3d 30 20 8c 0d  05 32 14 20 20 e6 20 30  |Y%)=0 ...2.  . 0|
00000930  2c 26 33 38 20 c8 9c 20  32 35 35 0d 05 3c 24 20  |,&38 .. 255..<$ |
00000940  20 c8 93 20 42 4f 58 78  25 28 4c 58 25 29 2c 42  | .. BOXx%(LX%),B|
00000950  4f 58 79 25 28 4c 59 25  29 2c 32 30 2c 32 30 0d  |OXy%(LY%),20,20.|
00000960  05 46 07 20 20 cc 0d 05  50 13 20 20 e6 20 30 2c  |.F.  ...P.  . 0,|
00000970  26 43 20 c8 9c 20 32 35  35 0d 05 5a 26 20 20 c8  |&C .. 255..Z&  .|
00000980  93 c8 90 20 42 4f 58 78  25 28 4c 58 25 29 2c 42  |... BOXx%(LX%),B|
00000990  4f 58 79 25 28 4c 59 25  29 2c 32 30 2c 32 30 0d  |OXy%(LY%),20,20.|
000009a0  05 64 06 20 cd 0d 05 6e  05 cd 0d 05 78 04 0d 05  |.d. ...n....x...|
000009b0  82 2a e7 20 58 25 3c 38  20 80 20 59 25 3c 38 20  |.*. X%<8 . Y%<8 |
000009c0  20 80 20 28 4c 58 25 3c  3e 58 25 20 84 20 4c 59  | . (LX%<>X% . LY|
000009d0  25 3c 3e 59 25 29 20 8c  0d 05 8c 10 e6 20 30 2c  |%<>Y%) ...... 0,|
000009e0  37 20 c8 9c 20 32 35 35  0d 05 96 28 c8 93 c8 90  |7 .. 255...(....|
000009f0  20 42 4f 58 78 25 28 58  25 29 2d 32 30 2c 42 4f  | BOXx%(X%)-20,BO|
00000a00  58 79 25 28 59 25 29 2d  32 30 2c 36 30 2c 36 30  |Xy%(Y%)-20,60,60|
00000a10  0d 05 a0 1f 42 55 54 25  28 58 25 2c 59 25 29 3d  |....BUT%(X%,Y%)=|
00000a20  42 55 54 25 28 58 25 2c  59 25 29 20 82 20 31 0d  |BUT%(X%,Y%) . 1.|
00000a30  05 aa 05 cd 0d 05 b4 04  0d 05 be 11 4c 58 25 3d  |............LX%=|
00000a40  58 25 3a 4c 59 25 3d 59  25 0d 05 c8 4b f4 20 55  |X%:LY%=Y%...K. U|
00000a50  73 65 20 74 68 65 20 6d  6f 75 73 65 20 70 6f 69  |se the mouse poi|
00000a60  6e 74 65 72 20 74 6f 20  73 65 65 20 77 68 65 72  |nter to see wher|
00000a70  65 20 79 6f 75 72 20 74  6f 75 63 68 65 73 20 6f  |e your touches o|
00000a80  63 63 6f 75 72 20 6f 6e  20 79 6f 75 72 20 73 63  |ccour on your sc|
00000a90  72 65 65 6e 0d 05 d2 0f  c8 97 20 58 25 2c 59 25  |reen...... X%,Y%|
00000aa0  2c 42 25 0d 05 dc 1d f1  20 8a 33 30 2c 35 38 29  |,B%..... .30,58)|
00000ab0  3b 22 20 58 20 2d 20 22  3b 58 25 3b 89 28 33 29  |;" X - ";X%;.(3)|
00000ac0  0d 05 e6 1d f1 20 8a 33  30 2c 35 39 29 3b 22 20  |..... .30,59);" |
00000ad0  59 20 2d 20 22 3b 59 25  3b 89 28 33 29 0d 05 f0  |Y - ";Y%;.(3)...|
00000ae0  05 e1 0d 05 fa 04 0d 06  04 10 dd 20 a4 5f 42 49  |........... ._BI|
00000af0  54 43 28 42 25 29 0d 06  0e 0b ea 20 41 25 2c 43  |TC(B%)..... A%,C|
00000b00  25 0d 06 18 0c 42 25 3d  42 25 3c 3c 31 0d 06 22  |%....B%=B%<<1.."|
00000b10  09 41 25 3d 2d 31 0d 06  2c 05 f5 0d 06 36 0c 42  |.A%=-1..,....6.B|
00000b20  25 3d 42 25 3e 3e 31 0d  06 40 09 41 25 2b 3d 31  |%=B%>>1..@.A%+=1|
00000b30  0d 06 4a 17 fd 20 28 42  25 20 80 20 31 29 3d 31  |..J.. (B% . 1)=1|
00000b40  20 84 20 41 25 3e 37 0d  06 54 07 3d 41 25 0d 06  | . A%>7..T.=A%..|
00000b50  5e 04 0d 06 68 04 0d 06  72 0d dd 20 f2 5f 53 65  |^...h...r.. ._Se|
00000b60  74 55 70 0d 06 7c 30 f1  22 42 6f 64 79 20 42 75  |tUp..|0."Body Bu|
00000b70  69 6c 64 20 54 6f 75 63  68 20 53 63 72 65 65 6e  |ild Touch Screen|
00000b80  20 54 65 73 74 20 42 79  20 4d 69 6b 65 20 43 6f  | Test By Mike Co|
00000b90  6f 6b 22 0d 06 86 14 f1  22 53 70 61 63 65 20 74  |ok"....."Space t|
00000ba0  6f 20 71 75 69 74 22 0d  06 90 0f 4c 58 25 3d 38  |o quit"....LX%=8|
00000bb0  3a 4c 59 25 3d 38 0d 06  9a 0e e3 20 41 25 3d 30  |:LY%=8..... A%=0|
00000bc0  20 b8 20 37 0d 06 a4 0f  f3 20 42 4f 58 78 25 28  | . 7..... BOXx%(|
00000bd0  41 25 29 0d 06 ae 05 ed  0d 06 b8 0e e3 20 41 25  |A%).......... A%|
00000be0  3d 30 20 b8 20 37 0d 06  c2 0f f3 20 42 4f 58 79  |=0 . 7..... BOXy|
00000bf0  25 28 41 25 29 0d 06 cc  05 ed 0d 06 d6 25 dc 20  |%(A%)........%. |
00000c00  36 39 2c 32 34 33 2c 34  30 32 2c 35 34 36 2c 36  |69,243,402,546,6|
00000c10  39 34 2c 38 35 30 2c 39  39 39 2c 31 31 37 30 0d  |94,850,999,1170.|
00000c20  06 e0 25 dc 20 31 32 30  2c 32 32 32 2c 33 35 37  |..%. 120,222,357|
00000c30  2c 34 38 35 2c 36 30 30  2c 37 32 39 2c 38 33 34  |,485,600,729,834|
00000c40  2c 39 33 39 0d 06 ea 04  0d 06 f4 12 e6 20 30 2c  |,939......... 0,|
00000c50  26 33 38 20 c8 9c 20 32  35 35 0d 06 fe 0e e3 20  |&38 .. 255..... |
00000c60  58 25 3d 30 20 b8 20 37  0d 07 08 0e e3 20 59 25  |X%=0 . 7..... Y%|
00000c70  3d 30 20 b8 20 37 0d 07  12 20 c8 93 20 42 4f 58  |=0 . 7... .. BOX|
00000c80  78 25 28 58 25 29 2c 42  4f 58 79 25 28 59 25 29  |x%(X%),BOXy%(Y%)|
00000c90  2c 32 30 2c 32 30 0d 07  1c 11 42 55 54 25 28 58  |,20,20....BUT%(X|
00000ca0  25 2c 59 25 29 3d 30 0d  07 26 07 ed 3a ed 0d 07  |%,Y%)=0..&..:...|
00000cb0  30 05 e1 0d ff                                    |0....|
00000cb5