Home » Archimedes archive » Acorn User » AU 1996-01.adf » Regulars » RunTheRISC/PadTst

RunTheRISC/PadTst

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1996-01.adf » Regulars
Filename: RunTheRISC/PadTst
Read OK: ✔
File size: 0606 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM>PadTst
   20PRINT"Games keypad test on printer port"
   30PRINT"By Mike Cook"
   40PRINT"Press Esc to end"
   50PRINT
   60DIM Key$(12)
   70FOR A%=0 TO 11
   80READ Key$(A%)
   90NEXT
  100DATA A,Start,Up,Down,B,C,Left,Right,Z,Y,Mode,X
  110
  120REM Enable Port for inputs
  130Mask%=NOT(&20)
  140SYS&42EC1,2,&20,Mask%
  150Mask%=NOT(1)
  160Last%=&900
  170
  180REPEAT
  190K%=0
  200REM Put Clock Low
  210SYS&42EC1,2,1,Mask%
  220SYS&42EC1,0 TO ,Bit%
  230IF (Bit% AND &10)=0 THEN K%=K% OR &1
  240IF (Bit% AND &1)=0  THEN K%=K% OR &2
  250REM Put Clock High
  260SYS&42EC1,2,0,Mask%
  270SYS&42EC1,0 TO ,Bit%
  280IF (Bit% AND &20)=0 THEN K%=K% OR &4
  290IF (Bit% AND &08)=0 THEN K%=K% OR &8
  300
  310REM Put Clock Low
  320SYS&42EC1,2,1,Mask%
  330REM Put Clock High
  340SYS&42EC1,2,0,Mask%
  350SYS&42EC1,0 TO ,Bit%
  360IF (Bit% AND &10)=0 THEN K%=K% OR &10
  370IF (Bit% AND &01)=0 THEN K%=K% OR &20
  380IF (Bit% AND &04)=0 THEN K%=K% OR &40
  390IF (Bit% AND &02)=0 THEN K%=K% OR &80
  400
  410REM Put Clock Low
  420SYS&42EC1,2,1,Mask%
  430REM Put Clock High
  440SYS&42EC1,2,0,Mask%
  450SYS&42EC1,0 TO ,Bit%
  460IF (Bit% AND &20)=0 THEN K%=K% OR &100
  470IF (Bit% AND &08)=0 THEN K%=K% OR &200
  480IF (Bit% AND &02)=0 THEN K%=K% OR &400
  490IF (Bit% AND &04)=0 THEN K%=K% OR &800
  500
  510IF Last%<>K% PROC_Display(K%)
  520Last%=K%
  530REM Delay 20mS
  540*FX19
  550UNTIL FALSE
  560
  570DEF PROC_Display(N%)
  580LOCAL A%,B%
  590PRINT "Value &";~N%;
  600PRINTTAB(10);" Pattern ";
  610A%=&800
  620REPEAT
  630IF (A% AND N%)=0 THEN PRINT"0"; ELSE PRINT"1";
  640A%=A%>>1
  650UNTIL A%=0
  660A%=&800:B%=11
  670REPEAT
  680IF (A% AND N%)<>0 THEN PRINT" - ";Key$(B%);
  690B%-=1
  700A%=A%>>1
  710UNTIL A%=0
  720PRINT
  730ENDPROC
  740
  750REM Bit Pattern returned:-
  760REM 0 - A, 1 - Start, 2 - Up, 3 - Down
  770REM 4 - B, 5 - C, 6 - Left, 7 - Right
  780REM 8 - Z, 9 - Y, 10 - Mode, 11 - X
  790


�>PadTst
(�"Games keypad test on printer port"
�"By Mike Cook"
(�"Press Esc to end"
2�
<� Key$(12)
F� A%=0 � 11
P� Key$(A%)
Z�
d/� A,Start,Up,Down,B,C,Left,Right,Z,Y,Mode,X
n
x� Enable Port for inputs
�Mask%=�(&20)
�ș&42EC1,2,&20,Mask%
�Mask%=�(1)
�Last%=&900
�
��
�K%=0
�� Put Clock Low
�ș&42EC1,2,1,Mask%
�ș&42EC1,0 � ,Bit%
�!� (Bit% � &10)=0 � K%=K% � &1
�!� (Bit% � &1)=0  � K%=K% � &2
�� Put Clock High
ș&42EC1,2,0,Mask%
ș&42EC1,0 � ,Bit%
!� (Bit% � &20)=0 � K%=K% � &4
"!� (Bit% � &08)=0 � K%=K% � &8
,
6� Put Clock Low
@ș&42EC1,2,1,Mask%
J� Put Clock High
Tș&42EC1,2,0,Mask%
^ș&42EC1,0 � ,Bit%
h"� (Bit% � &10)=0 � K%=K% � &10
r"� (Bit% � &01)=0 � K%=K% � &20
|"� (Bit% � &04)=0 � K%=K% � &40
�"� (Bit% � &02)=0 � K%=K% � &80
�
�� Put Clock Low
�ș&42EC1,2,1,Mask%
�� Put Clock High
�ș&42EC1,2,0,Mask%
�ș&42EC1,0 � ,Bit%
�#� (Bit% � &20)=0 � K%=K% � &100
�#� (Bit% � &08)=0 � K%=K% � &200
�#� (Bit% � &02)=0 � K%=K% � &400
�#� (Bit% � &04)=0 � K%=K% � &800
�
�� Last%<>K% �_Display(K%)
Last%=K%
� Delay 20mS
	*FX19
&� �
0
:� �_Display(N%)
D� A%,B%
N� "Value &";~N%;
X�10);" Pattern ";
bA%=&800
l�
v!� (A% � N%)=0 � �"0"; � �"1";
�A%=A%>>1
�
� A%=0
�A%=&800:B%=11
��
�%� (A% � N%)<>0 � �" - ";Key$(B%);
�	B%-=1
�A%=A%>>1
�
� A%=0
��
��
�
�� Bit Pattern returned:-
�(� 0 - A, 1 - Start, 2 - Up, 3 - Down
'� 4 - B, 5 - C, 6 - Left, 7 - Right
%� 8 - Z, 9 - Y, 10 - Mode, 11 - X

�
00000000  0d 00 0a 0c f4 3e 50 61  64 54 73 74 0d 00 14 28  |.....>PadTst...(|
00000010  f1 22 47 61 6d 65 73 20  6b 65 79 70 61 64 20 74  |."Games keypad t|
00000020  65 73 74 20 6f 6e 20 70  72 69 6e 74 65 72 20 70  |est on printer p|
00000030  6f 72 74 22 0d 00 1e 13  f1 22 42 79 20 4d 69 6b  |ort"....."By Mik|
00000040  65 20 43 6f 6f 6b 22 0d  00 28 17 f1 22 50 72 65  |e Cook"..(.."Pre|
00000050  73 73 20 45 73 63 20 74  6f 20 65 6e 64 22 0d 00  |ss Esc to end"..|
00000060  32 05 f1 0d 00 3c 0e de  20 4b 65 79 24 28 31 32  |2....<.. Key$(12|
00000070  29 0d 00 46 0f e3 20 41  25 3d 30 20 b8 20 31 31  |)..F.. A%=0 . 11|
00000080  0d 00 50 0e f3 20 4b 65  79 24 28 41 25 29 0d 00  |..P.. Key$(A%)..|
00000090  5a 05 ed 0d 00 64 2f dc  20 41 2c 53 74 61 72 74  |Z....d/. A,Start|
000000a0  2c 55 70 2c 44 6f 77 6e  2c 42 2c 43 2c 4c 65 66  |,Up,Down,B,C,Lef|
000000b0  74 2c 52 69 67 68 74 2c  5a 2c 59 2c 4d 6f 64 65  |t,Right,Z,Y,Mode|
000000c0  2c 58 0d 00 6e 04 0d 00  78 1c f4 20 45 6e 61 62  |,X..n...x.. Enab|
000000d0  6c 65 20 50 6f 72 74 20  66 6f 72 20 69 6e 70 75  |le Port for inpu|
000000e0  74 73 0d 00 82 10 4d 61  73 6b 25 3d ac 28 26 32  |ts....Mask%=.(&2|
000000f0  30 29 0d 00 8c 18 c8 99  26 34 32 45 43 31 2c 32  |0)......&42EC1,2|
00000100  2c 26 32 30 2c 4d 61 73  6b 25 0d 00 96 0e 4d 61  |,&20,Mask%....Ma|
00000110  73 6b 25 3d ac 28 31 29  0d 00 a0 0e 4c 61 73 74  |sk%=.(1)....Last|
00000120  25 3d 26 39 30 30 0d 00  aa 04 0d 00 b4 05 f5 0d  |%=&900..........|
00000130  00 be 08 4b 25 3d 30 0d  00 c8 13 f4 20 50 75 74  |...K%=0..... Put|
00000140  20 43 6c 6f 63 6b 20 4c  6f 77 0d 00 d2 16 c8 99  | Clock Low......|
00000150  26 34 32 45 43 31 2c 32  2c 31 2c 4d 61 73 6b 25  |&42EC1,2,1,Mask%|
00000160  0d 00 dc 16 c8 99 26 34  32 45 43 31 2c 30 20 b8  |......&42EC1,0 .|
00000170  20 2c 42 69 74 25 0d 00  e6 21 e7 20 28 42 69 74  | ,Bit%...!. (Bit|
00000180  25 20 80 20 26 31 30 29  3d 30 20 8c 20 4b 25 3d  |% . &10)=0 . K%=|
00000190  4b 25 20 84 20 26 31 0d  00 f0 21 e7 20 28 42 69  |K% . &1...!. (Bi|
000001a0  74 25 20 80 20 26 31 29  3d 30 20 20 8c 20 4b 25  |t% . &1)=0  . K%|
000001b0  3d 4b 25 20 84 20 26 32  0d 00 fa 14 f4 20 50 75  |=K% . &2..... Pu|
000001c0  74 20 43 6c 6f 63 6b 20  48 69 67 68 0d 01 04 16  |t Clock High....|
000001d0  c8 99 26 34 32 45 43 31  2c 32 2c 30 2c 4d 61 73  |..&42EC1,2,0,Mas|
000001e0  6b 25 0d 01 0e 16 c8 99  26 34 32 45 43 31 2c 30  |k%......&42EC1,0|
000001f0  20 b8 20 2c 42 69 74 25  0d 01 18 21 e7 20 28 42  | . ,Bit%...!. (B|
00000200  69 74 25 20 80 20 26 32  30 29 3d 30 20 8c 20 4b  |it% . &20)=0 . K|
00000210  25 3d 4b 25 20 84 20 26  34 0d 01 22 21 e7 20 28  |%=K% . &4.."!. (|
00000220  42 69 74 25 20 80 20 26  30 38 29 3d 30 20 8c 20  |Bit% . &08)=0 . |
00000230  4b 25 3d 4b 25 20 84 20  26 38 0d 01 2c 04 0d 01  |K%=K% . &8..,...|
00000240  36 13 f4 20 50 75 74 20  43 6c 6f 63 6b 20 4c 6f  |6.. Put Clock Lo|
00000250  77 0d 01 40 16 c8 99 26  34 32 45 43 31 2c 32 2c  |w..@...&42EC1,2,|
00000260  31 2c 4d 61 73 6b 25 0d  01 4a 14 f4 20 50 75 74  |1,Mask%..J.. Put|
00000270  20 43 6c 6f 63 6b 20 48  69 67 68 0d 01 54 16 c8  | Clock High..T..|
00000280  99 26 34 32 45 43 31 2c  32 2c 30 2c 4d 61 73 6b  |.&42EC1,2,0,Mask|
00000290  25 0d 01 5e 16 c8 99 26  34 32 45 43 31 2c 30 20  |%..^...&42EC1,0 |
000002a0  b8 20 2c 42 69 74 25 0d  01 68 22 e7 20 28 42 69  |. ,Bit%..h". (Bi|
000002b0  74 25 20 80 20 26 31 30  29 3d 30 20 8c 20 4b 25  |t% . &10)=0 . K%|
000002c0  3d 4b 25 20 84 20 26 31  30 0d 01 72 22 e7 20 28  |=K% . &10..r". (|
000002d0  42 69 74 25 20 80 20 26  30 31 29 3d 30 20 8c 20  |Bit% . &01)=0 . |
000002e0  4b 25 3d 4b 25 20 84 20  26 32 30 0d 01 7c 22 e7  |K%=K% . &20..|".|
000002f0  20 28 42 69 74 25 20 80  20 26 30 34 29 3d 30 20  | (Bit% . &04)=0 |
00000300  8c 20 4b 25 3d 4b 25 20  84 20 26 34 30 0d 01 86  |. K%=K% . &40...|
00000310  22 e7 20 28 42 69 74 25  20 80 20 26 30 32 29 3d  |". (Bit% . &02)=|
00000320  30 20 8c 20 4b 25 3d 4b  25 20 84 20 26 38 30 0d  |0 . K%=K% . &80.|
00000330  01 90 04 0d 01 9a 13 f4  20 50 75 74 20 43 6c 6f  |........ Put Clo|
00000340  63 6b 20 4c 6f 77 0d 01  a4 16 c8 99 26 34 32 45  |ck Low......&42E|
00000350  43 31 2c 32 2c 31 2c 4d  61 73 6b 25 0d 01 ae 14  |C1,2,1,Mask%....|
00000360  f4 20 50 75 74 20 43 6c  6f 63 6b 20 48 69 67 68  |. Put Clock High|
00000370  0d 01 b8 16 c8 99 26 34  32 45 43 31 2c 32 2c 30  |......&42EC1,2,0|
00000380  2c 4d 61 73 6b 25 0d 01  c2 16 c8 99 26 34 32 45  |,Mask%......&42E|
00000390  43 31 2c 30 20 b8 20 2c  42 69 74 25 0d 01 cc 23  |C1,0 . ,Bit%...#|
000003a0  e7 20 28 42 69 74 25 20  80 20 26 32 30 29 3d 30  |. (Bit% . &20)=0|
000003b0  20 8c 20 4b 25 3d 4b 25  20 84 20 26 31 30 30 0d  | . K%=K% . &100.|
000003c0  01 d6 23 e7 20 28 42 69  74 25 20 80 20 26 30 38  |..#. (Bit% . &08|
000003d0  29 3d 30 20 8c 20 4b 25  3d 4b 25 20 84 20 26 32  |)=0 . K%=K% . &2|
000003e0  30 30 0d 01 e0 23 e7 20  28 42 69 74 25 20 80 20  |00...#. (Bit% . |
000003f0  26 30 32 29 3d 30 20 8c  20 4b 25 3d 4b 25 20 84  |&02)=0 . K%=K% .|
00000400  20 26 34 30 30 0d 01 ea  23 e7 20 28 42 69 74 25  | &400...#. (Bit%|
00000410  20 80 20 26 30 34 29 3d  30 20 8c 20 4b 25 3d 4b  | . &04)=0 . K%=K|
00000420  25 20 84 20 26 38 30 30  0d 01 f4 04 0d 01 fe 1d  |% . &800........|
00000430  e7 20 4c 61 73 74 25 3c  3e 4b 25 20 f2 5f 44 69  |. Last%<>K% ._Di|
00000440  73 70 6c 61 79 28 4b 25  29 0d 02 08 0c 4c 61 73  |splay(K%)....Las|
00000450  74 25 3d 4b 25 0d 02 12  10 f4 20 44 65 6c 61 79  |t%=K%..... Delay|
00000460  20 32 30 6d 53 0d 02 1c  09 2a 46 58 31 39 0d 02  | 20mS....*FX19..|
00000470  26 07 fd 20 a3 0d 02 30  04 0d 02 3a 13 dd 20 f2  |&.. ...0...:.. .|
00000480  5f 44 69 73 70 6c 61 79  28 4e 25 29 0d 02 44 0b  |_Display(N%)..D.|
00000490  ea 20 41 25 2c 42 25 0d  02 4e 14 f1 20 22 56 61  |. A%,B%..N.. "Va|
000004a0  6c 75 65 20 26 22 3b 7e  4e 25 3b 0d 02 58 16 f1  |lue &";~N%;..X..|
000004b0  8a 31 30 29 3b 22 20 50  61 74 74 65 72 6e 20 22  |.10);" Pattern "|
000004c0  3b 0d 02 62 0b 41 25 3d  26 38 30 30 0d 02 6c 05  |;..b.A%=&800..l.|
000004d0  f5 0d 02 76 21 e7 20 28  41 25 20 80 20 4e 25 29  |...v!. (A% . N%)|
000004e0  3d 30 20 8c 20 f1 22 30  22 3b 20 8b 20 f1 22 31  |=0 . ."0"; . ."1|
000004f0  22 3b 0d 02 80 0c 41 25  3d 41 25 3e 3e 31 0d 02  |";....A%=A%>>1..|
00000500  8a 0a fd 20 41 25 3d 30  0d 02 94 11 41 25 3d 26  |... A%=0....A%=&|
00000510  38 30 30 3a 42 25 3d 31  31 0d 02 9e 05 f5 0d 02  |800:B%=11.......|
00000520  a8 25 e7 20 28 41 25 20  80 20 4e 25 29 3c 3e 30  |.%. (A% . N%)<>0|
00000530  20 8c 20 f1 22 20 2d 20  22 3b 4b 65 79 24 28 42  | . ." - ";Key$(B|
00000540  25 29 3b 0d 02 b2 09 42  25 2d 3d 31 0d 02 bc 0c  |%);....B%-=1....|
00000550  41 25 3d 41 25 3e 3e 31  0d 02 c6 0a fd 20 41 25  |A%=A%>>1..... A%|
00000560  3d 30 0d 02 d0 05 f1 0d  02 da 05 e1 0d 02 e4 04  |=0..............|
00000570  0d 02 ee 1c f4 20 42 69  74 20 50 61 74 74 65 72  |..... Bit Patter|
00000580  6e 20 72 65 74 75 72 6e  65 64 3a 2d 0d 02 f8 28  |n returned:-...(|
00000590  f4 20 30 20 2d 20 41 2c  20 31 20 2d 20 53 74 61  |. 0 - A, 1 - Sta|
000005a0  72 74 2c 20 32 20 2d 20  55 70 2c 20 33 20 2d 20  |rt, 2 - Up, 3 - |
000005b0  44 6f 77 6e 0d 03 02 27  f4 20 34 20 2d 20 42 2c  |Down...'. 4 - B,|
000005c0  20 35 20 2d 20 43 2c 20  36 20 2d 20 4c 65 66 74  | 5 - C, 6 - Left|
000005d0  2c 20 37 20 2d 20 52 69  67 68 74 0d 03 0c 25 f4  |, 7 - Right...%.|
000005e0  20 38 20 2d 20 5a 2c 20  39 20 2d 20 59 2c 20 31  | 8 - Z, 9 - Y, 1|
000005f0  30 20 2d 20 4d 6f 64 65  2c 20 31 31 20 2d 20 58  |0 - Mode, 11 - X|
00000600  0d 03 16 04 0d ff                                 |......|
00000606

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .