!� Test of the AKA12 User Port

� Buf% 10
Slot%=3
(�
2�
<)�"Test of the User Port on the AKA12"
F#�"In expansion slot No. ";Slot%
P�"By Mike Cook"
Z�
d$�"Press Space Bar to end a test"
n�"1 - To read the inputs"
x*�"2 - To Write a count to the outputs"
��
�A$=�
�
� A$<>" "
�� A$="1" � �_Read
�� A$="2" � �_Write
�� �
�
�� �_Read
�1� First set Data Direction Register to inputs
�?Buf%=0
�)ș"Podule_RawWrite",&802,1,Buf%,Slot%
��
�(ș"Podule_RawRead",&800,1,Buf%,Slot%

� ?Buf%

� �(-99)

�

"

,
� �_Write

62� First set Data Direction Register to outputs

@
?Buf%=&FF

J)ș"Podule_RawWrite",&802,1,Buf%,Slot%

TA%=0

^/�"Now sending a count out on the User Port"

h�

r?Buf%=A%

|)ș"Podule_RawWrite",&800,1,Buf%,Slot%

�	A%+=1

�� A%=256 � A%=0

�� B%=0 � 1000:�

�� �(-99)

��
�

00000000  0d 00 0a 21 f4 20 54 65  73 74 20 6f 66 20 74 68  |...!. Test of th|
00000010  65 20 41 4b 41 31 32 20  55 73 65 72 20 50 6f 72  |e AKA12 User Por|
00000020  74 0d 00 14 0d de 20 42  75 66 25 20 31 30 0d 00  |t..... Buf% 10..|
00000030  1e 0b 53 6c 6f 74 25 3d  33 0d 00 28 05 f5 0d 00  |..Slot%=3..(....|
00000040  32 05 f1 0d 00 3c 29 f1  22 54 65 73 74 20 6f 66  |2....<)."Test of|
00000050  20 74 68 65 20 55 73 65  72 20 50 6f 72 74 20 6f  | the User Port o|
00000060  6e 20 74 68 65 20 41 4b  41 31 32 22 0d 00 46 23  |n the AKA12"..F#|
00000070  f1 22 49 6e 20 65 78 70  61 6e 73 69 6f 6e 20 73  |."In expansion s|
00000080  6c 6f 74 20 4e 6f 2e 20  22 3b 53 6c 6f 74 25 0d  |lot No. ";Slot%.|
00000090  00 50 13 f1 22 42 79 20  4d 69 6b 65 20 43 6f 6f  |.P.."By Mike Coo|
000000a0  6b 22 0d 00 5a 05 f1 0d  00 64 24 f1 22 50 72 65  |k"..Z....d$."Pre|
000000b0  73 73 20 53 70 61 63 65  20 42 61 72 20 74 6f 20  |ss Space Bar to |
000000c0  65 6e 64 20 61 20 74 65  73 74 22 0d 00 6e 1d f1  |end a test"..n..|
000000d0  22 31 20 2d 20 54 6f 20  72 65 61 64 20 74 68 65  |"1 - To read the|
000000e0  20 69 6e 70 75 74 73 22  0d 00 78 2a f1 22 32 20  | inputs"..x*."2 |
000000f0  2d 20 54 6f 20 57 72 69  74 65 20 61 20 63 6f 75  |- To Write a cou|
00000100  6e 74 20 74 6f 20 74 68  65 20 6f 75 74 70 75 74  |nt to the output|
00000110  73 22 0d 00 82 05 f5 0d  00 8c 08 41 24 3d be 0d  |s".........A$=..|
00000120  00 96 0d fd 20 41 24 3c  3e 22 20 22 0d 00 a0 15  |.... A$<>" "....|
00000130  e7 20 41 24 3d 22 31 22  20 8c 20 f2 5f 52 65 61  |. A$="1" . ._Rea|
00000140  64 0d 00 aa 16 e7 20 41  24 3d 22 32 22 20 8c 20  |d..... A$="2" . |
00000150  f2 5f 57 72 69 74 65 0d  00 b4 07 fd 20 a3 0d 00  |._Write..... ...|
00000160  be 04 0d 00 c8 0c dd 20  f2 5f 52 65 61 64 0d 00  |....... ._Read..|
00000170  d2 31 f4 20 46 69 72 73  74 20 73 65 74 20 44 61  |.1. First set Da|
00000180  74 61 20 44 69 72 65 63  74 69 6f 6e 20 52 65 67  |ta Direction Reg|
00000190  69 73 74 65 72 20 74 6f  20 69 6e 70 75 74 73 0d  |ister to inputs.|
000001a0  00 dc 0b 3f 42 75 66 25  3d 30 0d 00 e6 29 c8 99  |...?Buf%=0...)..|
000001b0  22 50 6f 64 75 6c 65 5f  52 61 77 57 72 69 74 65  |"Podule_RawWrite|
000001c0  22 2c 26 38 30 32 2c 31  2c 42 75 66 25 2c 53 6c  |",&802,1,Buf%,Sl|
000001d0  6f 74 25 0d 00 f0 05 f5  0d 00 fa 28 c8 99 22 50  |ot%........(.."P|
000001e0  6f 64 75 6c 65 5f 52 61  77 52 65 61 64 22 2c 26  |odule_RawRead",&|
000001f0  38 30 30 2c 31 2c 42 75  66 25 2c 53 6c 6f 74 25  |800,1,Buf%,Slot%|
00000200  0d 01 04 0b f1 20 3f 42  75 66 25 0d 01 0e 0c fd  |..... ?Buf%.....|
00000210  20 a6 28 2d 39 39 29 0d  01 18 05 e1 0d 01 22 04  | .(-99).......".|
00000220  0d 01 2c 0d dd 20 f2 5f  57 72 69 74 65 0d 01 36  |..,.. ._Write..6|
00000230  32 f4 20 46 69 72 73 74  20 73 65 74 20 44 61 74  |2. First set Dat|
00000240  61 20 44 69 72 65 63 74  69 6f 6e 20 52 65 67 69  |a Direction Regi|
00000250  73 74 65 72 20 74 6f 20  6f 75 74 70 75 74 73 0d  |ster to outputs.|
00000260  01 40 0d 3f 42 75 66 25  3d 26 46 46 0d 01 4a 29  |.@.?Buf%=&FF..J)|
00000270  c8 99 22 50 6f 64 75 6c  65 5f 52 61 77 57 72 69  |.."Podule_RawWri|
00000280  74 65 22 2c 26 38 30 32  2c 31 2c 42 75 66 25 2c  |te",&802,1,Buf%,|
00000290  53 6c 6f 74 25 0d 01 54  08 41 25 3d 30 0d 01 5e  |Slot%..T.A%=0..^|
000002a0  2f f1 22 4e 6f 77 20 73  65 6e 64 69 6e 67 20 61  |/."Now sending a|
000002b0  20 63 6f 75 6e 74 20 6f  75 74 20 6f 6e 20 74 68  | count out on th|
000002c0  65 20 55 73 65 72 20 50  6f 72 74 22 0d 01 68 05  |e User Port"..h.|
000002d0  f5 0d 01 72 0c 3f 42 75  66 25 3d 41 25 0d 01 7c  |...r.?Buf%=A%..||
000002e0  29 c8 99 22 50 6f 64 75  6c 65 5f 52 61 77 57 72  |).."Podule_RawWr|
000002f0  69 74 65 22 2c 26 38 30  30 2c 31 2c 42 75 66 25  |ite",&800,1,Buf%|
00000300  2c 53 6c 6f 74 25 0d 01  86 09 41 25 2b 3d 31 0d  |,Slot%....A%+=1.|
00000310  01 90 13 e7 20 41 25 3d  32 35 36 20 8c 20 41 25  |.... A%=256 . A%|
00000320  3d 30 0d 01 9a 13 e3 20  42 25 3d 30 20 b8 20 31  |=0..... B%=0 . 1|
00000330  30 30 30 3a ed 0d 01 a4  0c fd 20 a6 28 2d 39 39  |000:...... .(-99|
00000340  29 0d 01 ae 05 e1 0d ff                           |).......|
00000348