Home » Archimedes archive » Acorn User » AU 1998-07.adf » Regulars » RTR/A_Dtest
RTR/A_Dtest
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 1998-07.adf » Regulars |
| Filename: | RTR/A_Dtest |
| Read OK: | ✔ |
| File size: | 09C9 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM A/D Input Test
20DIM CODE% &300, Trace1% 1024, Trace2% 1024
30PRINT"A/D Input test"
40PROCCinit
50REM REPEAT
60CALL Input
70FOR A%=1 TO 30
80PRINT~Trace1%?A%
90NEXT
100REM UNTIL FALSE
110END
120
130DEF PROCCinit
140FOR A%=0 TO 2 STEP 2
150P%=CODE%
160[
170OPT A%
180.Sample EQUD &0
190.BufP1 EQUD Trace1% \ Points to the buffer
200.BufP2 EQUD Trace2% \ End of buffer
210.OddEven EQUD 1 \ Odd even buffer
220
230.Input
240STMFD R13!,{R14}
250LDR R1,OddEven
260TST R1,#1
270LDRNE R6,BufP1
280LDREQ R6,BufP2
290\Make printer Port Output
300MOV R0,#2
310MOV R1,#&00
320MOV R2,#&DF
330SWI &42EC1 \ Parallel output
340MOV R8,#&100
350.Samp
360\Take One Sample
370MOV R0,#1
380MOV R1,#1
390SWI &42EC1 \ Chip select Low
400MOV R3,#&B \ Bits to read
410MOV R5,#0 \ Collect bits here
420.Loop1
430MOV R0,#0
440SWI &42EC1 \ Get the data
450MOV R5,R5,LSL #1 \ Prepare R5 for new bit
460MOV R2,R2,LSR #7
470ORR R5,R5,R2 \ Mix R5 with new bit
480MOV R0,#1
490MOV R1,#1
500SWI &42EC1 \ Clock High
510MOV R1,#0
520SWI &42EC1 \ Clock Low
530SUBS R3,R3,#1
540BNE Loop1
550MOV R1,#3
560SWI &42EC1 \ Chip select & Clock High
570AND R5,R5,#&FF \ MASK OFF START BIT
580EOR R5,R5,#&FF \ TURN RIGHT WAYUP
590\R5 NOW HAS SAMPLE
600STRB R5,[R6],#1
610
620MOV R5,#&8 \ delay for next sample
630.Hold
640MOV R0,#0
650SWI &42EC1 \ Dummy read
660SUBS R5,R5,#1
670BNE Hold
690
700SUBS R8,R8,#1
710BNE Samp
720\ Make Printer Port input
730MOV R0,#2
740MOV R1,#&20
750MOV R2,#&DF
760\SWI &42EC1 \ Parallel output
770
780LDMFD R13!, {PC} \ BACK FROM WHENST YOU CAME
790
800
810.Input2
820STMFD R13!,{R14}
830\Make printer Port Output
840MOV R0,#2
850MOV R1,#&00
860MOV R2,#&DF
870SWI &42EC1 \ Parallel output
880MOV R8,#4
890.Samp
900\Take One Sample
910MOV R0,#1
920MOV R1,#1
930SWI &42EC1 \ Chip select Low
940MOV R3,#&B \ Bits to read
950MOV R5,#0 \ Collect bits here
960.Loop1
970MOV R0,#0
980SWI &42EC1 \ Get the data
990MOV R5,R5,LSL #1 \ Prepare R5 for new bit
1000MOV R2,R2,LSR #7
1010ORR R5,R5,R2 \ Mix R5 with new bit
1020MOV R0,#1
1030MOV R1,#1
1040SWI &42EC1 \ Clock High
1050MOV R1,#0
1060SWI &42EC1 \ Clock Low
1070SUBS R3,R3,#1
1080BNE Loop1
1090MOV R1,#3
1100SWI &42EC1 \ Chip select & Clock High
1110AND R5,R5,#&FF \ MASK OFF START BIT
1120EOR R5,R5,#&FF \ TURN RIGHT WAYUP
1130\R5 NOW HAS SAMPLE
1140ADR R6,Sample
1150STR R5,[R6]
1160SUBS R8,R8,#1
1170BNE Samp
1180\ Make Printer Port input
1190MOV R0,#2
1200MOV R1,#&20
1210MOV R2,#&DF
1220\SWI &42EC1 \ Parallel output
1230
1240LDMFD R13!, {PC} \ BACK FROM WHENST YOU CAME
1250
1260]
1270NEXT
1280ENDPROC
� A/D Input Test
,� CODE% &300, Trace1% 1024, Trace2% 1024
�"A/D Input test"
(
�Cinit
2 � REPEAT
< � Input
F� A%=1 � 30
P�~Trace1%?A%
Z�
d� UNTIL FALSE
n�
x
� � �Cinit
�� A%=0 � 2 � 2
� P%=CODE%
�[
�
OPT A%
�.Sample EQUD &0
�..BufP1 EQUD Trace1% \ Points to the buffer
�'.BufP2 EQUD Trace2% \ End of buffer
�(.OddEven EQUD 1 \ Odd even buffer
�
�
.Input
�STMFD R13!,{R14}
�LDR R1,OddEven
TST R1,#1
LDRNE R6,BufP1
LDREQ R6,BufP2
" \Make printer Port Output
,
MOV R0,#2
6MOV R1,#&00
@MOV R2,#&DF
J!SWI &42EC1 \ Parallel output
TMOV R8,#&100
^ .Samp
h\Take One Sample
r
MOV R0,#1
|
MOV R1,#1
�!SWI &42EC1 \ Chip select Low
� MOV R3,#&B \ Bits to read
�#MOV R5,#0 \ Collect bits here
�
.Loop1
�
MOV R0,#0
� SWI &42EC1 \ Get the data
�-MOV R5,R5,LSL #1 \ Prepare R5 for new bit
�MOV R2,R2,LSR #7
�)�R R5,R5,R2 \ Mix R5 with new bit
�
MOV R0,#1
�
MOV R1,#1
� SWI &42EC1 \ Clock High
�
MOV R1,#0
SWI &42EC1 \ Clock Low
SUBS R3,R3,#1
BNE Loop1
&
MOV R1,#3
0*SWI &42EC1 \ Chip select & Clock High
:&� R5,R5,#&FF \ MASK � START BIT
D'� R5,R5,#&FF \ TURN RIGHT WAYUP
N\R5 NOW HAS SAMPLE
XSTRB R5,[R6],#1
b
l&MOV R5,#&8 \ delay for next sample
v .Hold
�
MOV R0,#0
� SWI &42EC1 \ Dummy read
�SUBS R5,R5,#1
� BNE Hold
�
�SUBS R8,R8,#1
� BNE Samp
� \ Make Printer Port input
�
MOV R0,#2
�MOV R1,#&20
�MOV R2,#&DF
�"\SWI &42EC1 \ Parallel output
-LDMFD R13!, {PC} \ BACK FROM �ST YOU CAME
* .Input2
4STMFD R13!,{R14}
> \Make printer Port Output
H
MOV R0,#2
RMOV R1,#&00
\MOV R2,#&DF
f!SWI &42EC1 \ Parallel output
p
MOV R8,#4
z .Samp
�\Take One Sample
�
MOV R0,#1
�
MOV R1,#1
�!SWI &42EC1 \ Chip select Low
� MOV R3,#&B \ Bits to read
�#MOV R5,#0 \ Collect bits here
�
.Loop1
�
MOV R0,#0
� SWI &42EC1 \ Get the data
�-MOV R5,R5,LSL #1 \ Prepare R5 for new bit
�MOV R2,R2,LSR #7
�)�R R5,R5,R2 \ Mix R5 with new bit
�
MOV R0,#1
MOV R1,#1
SWI &42EC1 \ Clock High
MOV R1,#0
$SWI &42EC1 \ Clock Low
.SUBS R3,R3,#1
8
BNE Loop1
B
MOV R1,#3
L*SWI &42EC1 \ Chip select & Clock High
V&� R5,R5,#&FF \ MASK � START BIT
`'� R5,R5,#&FF \ TURN RIGHT WAYUP
j\R5 NOW HAS SAMPLE
tADR R6,Sample
~STR R5,[R6]
�SUBS R8,R8,#1
� BNE Samp
� \ Make Printer Port input
�
MOV R0,#2
�MOV R1,#&20
�MOV R2,#&DF
�"\SWI &42EC1 \ Parallel output
�
�-LDMFD R13!, {PC} \ BACK FROM �ST YOU CAME
�
�]
��
�
� 00000000 0d 00 0a 14 f4 20 41 2f 44 20 49 6e 70 75 74 20 |..... A/D Input |
00000010 54 65 73 74 0d 00 14 2c de 20 43 4f 44 45 25 20 |Test...,. CODE% |
00000020 26 33 30 30 2c 20 54 72 61 63 65 31 25 20 31 30 |&300, Trace1% 10|
00000030 32 34 2c 20 54 72 61 63 65 32 25 20 31 30 32 34 |24, Trace2% 1024|
00000040 0d 00 1e 15 f1 22 41 2f 44 20 49 6e 70 75 74 20 |....."A/D Input |
00000050 74 65 73 74 22 0d 00 28 0a f2 43 69 6e 69 74 0d |test"..(..Cinit.|
00000060 00 32 0c f4 20 52 45 50 45 41 54 0d 00 3c 0b d6 |.2.. REPEAT..<..|
00000070 20 49 6e 70 75 74 0d 00 46 0f e3 20 41 25 3d 31 | Input..F.. A%=1|
00000080 20 b8 20 33 30 0d 00 50 10 f1 7e 54 72 61 63 65 | . 30..P..~Trace|
00000090 31 25 3f 41 25 0d 00 5a 05 ed 0d 00 64 11 f4 20 |1%?A%..Z....d.. |
000000a0 55 4e 54 49 4c 20 46 41 4c 53 45 0d 00 6e 05 e0 |UNTIL FALSE..n..|
000000b0 0d 00 78 04 0d 00 82 0c dd 20 f2 43 69 6e 69 74 |..x...... .Cinit|
000000c0 0d 00 8c 12 e3 20 41 25 3d 30 20 b8 20 32 20 88 |..... A%=0 . 2 .|
000000d0 20 32 0d 00 96 0c 50 25 3d 43 4f 44 45 25 0d 00 | 2....P%=CODE%..|
000000e0 a0 05 5b 0d 00 aa 0a 4f 50 54 20 41 25 0d 00 b4 |..[....OPT A%...|
000000f0 13 2e 53 61 6d 70 6c 65 20 45 51 55 44 20 26 30 |..Sample EQUD &0|
00000100 0d 00 be 2e 2e 42 75 66 50 31 20 45 51 55 44 20 |.....BufP1 EQUD |
00000110 54 72 61 63 65 31 25 20 5c 20 50 6f 69 6e 74 73 |Trace1% \ Points|
00000120 20 74 6f 20 74 68 65 20 62 75 66 66 65 72 0d 00 | to the buffer..|
00000130 c8 27 2e 42 75 66 50 32 20 45 51 55 44 20 54 72 |.'.BufP2 EQUD Tr|
00000140 61 63 65 32 25 20 5c 20 45 6e 64 20 6f 66 20 62 |ace2% \ End of b|
00000150 75 66 66 65 72 0d 00 d2 28 2e 4f 64 64 45 76 65 |uffer...(.OddEve|
00000160 6e 20 45 51 55 44 20 31 20 20 20 20 5c 20 4f 64 |n EQUD 1 \ Od|
00000170 64 20 65 76 65 6e 20 62 75 66 66 65 72 0d 00 dc |d even buffer...|
00000180 04 0d 00 e6 0a 2e 49 6e 70 75 74 0d 00 f0 14 53 |......Input....S|
00000190 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 34 7d 0d |TMFD R13!,{R14}.|
000001a0 00 fa 12 4c 44 52 20 52 31 2c 4f 64 64 45 76 65 |...LDR R1,OddEve|
000001b0 6e 0d 01 04 0d 54 53 54 20 52 31 2c 23 31 0d 01 |n....TST R1,#1..|
000001c0 0e 12 4c 44 52 4e 45 20 52 36 2c 42 75 66 50 31 |..LDRNE R6,BufP1|
000001d0 0d 01 18 12 4c 44 52 45 51 20 52 36 2c 42 75 66 |....LDREQ R6,Buf|
000001e0 50 32 0d 01 22 1d 5c 4d 61 6b 65 20 70 72 69 6e |P2..".\Make prin|
000001f0 74 65 72 20 50 6f 72 74 20 4f 75 74 70 75 74 0d |ter Port Output.|
00000200 01 2c 0d 4d 4f 56 20 52 30 2c 23 32 0d 01 36 0f |.,.MOV R0,#2..6.|
00000210 4d 4f 56 20 52 31 2c 23 26 30 30 0d 01 40 0f 4d |MOV R1,#&00..@.M|
00000220 4f 56 20 52 32 2c 23 26 44 46 0d 01 4a 21 53 57 |OV R2,#&DF..J!SW|
00000230 49 20 26 34 32 45 43 31 20 20 5c 20 50 61 72 61 |I &42EC1 \ Para|
00000240 6c 6c 65 6c 20 6f 75 74 70 75 74 0d 01 54 10 4d |llel output..T.M|
00000250 4f 56 20 52 38 2c 23 26 31 30 30 0d 01 5e 09 2e |OV R8,#&100..^..|
00000260 53 61 6d 70 0d 01 68 14 5c 54 61 6b 65 20 4f 6e |Samp..h.\Take On|
00000270 65 20 53 61 6d 70 6c 65 0d 01 72 0d 4d 4f 56 20 |e Sample..r.MOV |
00000280 52 30 2c 23 31 0d 01 7c 0d 4d 4f 56 20 52 31 2c |R0,#1..|.MOV R1,|
00000290 23 31 0d 01 86 21 53 57 49 20 26 34 32 45 43 31 |#1...!SWI &42EC1|
000002a0 20 20 5c 20 43 68 69 70 20 73 65 6c 65 63 74 20 | \ Chip select |
000002b0 4c 6f 77 0d 01 90 1e 4d 4f 56 20 52 33 2c 23 26 |Low....MOV R3,#&|
000002c0 42 20 20 5c 20 42 69 74 73 20 74 6f 20 72 65 61 |B \ Bits to rea|
000002d0 64 0d 01 9a 23 4d 4f 56 20 52 35 2c 23 30 20 20 |d...#MOV R5,#0 |
000002e0 20 5c 20 43 6f 6c 6c 65 63 74 20 62 69 74 73 20 | \ Collect bits |
000002f0 68 65 72 65 0d 01 a4 0a 2e 4c 6f 6f 70 31 0d 01 |here.....Loop1..|
00000300 ae 0d 4d 4f 56 20 52 30 2c 23 30 0d 01 b8 1e 53 |..MOV R0,#0....S|
00000310 57 49 20 26 34 32 45 43 31 20 20 5c 20 47 65 74 |WI &42EC1 \ Get|
00000320 20 74 68 65 20 64 61 74 61 0d 01 c2 2d 4d 4f 56 | the data...-MOV|
00000330 20 52 35 2c 52 35 2c 4c 53 4c 20 23 31 20 5c 20 | R5,R5,LSL #1 \ |
00000340 50 72 65 70 61 72 65 20 52 35 20 66 6f 72 20 6e |Prepare R5 for n|
00000350 65 77 20 62 69 74 0d 01 cc 14 4d 4f 56 20 52 32 |ew bit....MOV R2|
00000360 2c 52 32 2c 4c 53 52 20 23 37 0d 01 d6 29 84 52 |,R2,LSR #7...).R|
00000370 20 52 35 2c 52 35 2c 52 32 20 20 20 20 20 5c 20 | R5,R5,R2 \ |
00000380 4d 69 78 20 52 35 20 77 69 74 68 20 6e 65 77 20 |Mix R5 with new |
00000390 62 69 74 0d 01 e0 0d 4d 4f 56 20 52 30 2c 23 31 |bit....MOV R0,#1|
000003a0 0d 01 ea 0d 4d 4f 56 20 52 31 2c 23 31 0d 01 f4 |....MOV R1,#1...|
000003b0 1c 53 57 49 20 26 34 32 45 43 31 20 20 5c 20 43 |.SWI &42EC1 \ C|
000003c0 6c 6f 63 6b 20 48 69 67 68 0d 01 fe 0d 4d 4f 56 |lock High....MOV|
000003d0 20 52 31 2c 23 30 0d 02 08 1b 53 57 49 20 26 34 | R1,#0....SWI &4|
000003e0 32 45 43 31 20 20 5c 20 43 6c 6f 63 6b 20 4c 6f |2EC1 \ Clock Lo|
000003f0 77 0d 02 12 11 53 55 42 53 20 52 33 2c 52 33 2c |w....SUBS R3,R3,|
00000400 23 31 0d 02 1c 0d 42 4e 45 20 4c 6f 6f 70 31 0d |#1....BNE Loop1.|
00000410 02 26 0d 4d 4f 56 20 52 31 2c 23 33 0d 02 30 2a |.&.MOV R1,#3..0*|
00000420 53 57 49 20 26 34 32 45 43 31 20 20 5c 20 43 68 |SWI &42EC1 \ Ch|
00000430 69 70 20 73 65 6c 65 63 74 20 26 20 43 6c 6f 63 |ip select & Cloc|
00000440 6b 20 48 69 67 68 0d 02 3a 26 80 20 52 35 2c 52 |k High..:&. R5,R|
00000450 35 2c 23 26 46 46 20 20 20 20 5c 20 4d 41 53 4b |5,#&FF \ MASK|
00000460 20 87 20 53 54 41 52 54 20 42 49 54 0d 02 44 27 | . START BIT..D'|
00000470 82 20 52 35 2c 52 35 2c 23 26 46 46 20 20 20 20 |. R5,R5,#&FF |
00000480 20 5c 20 54 55 52 4e 20 52 49 47 48 54 20 57 41 | \ TURN RIGHT WA|
00000490 59 55 50 0d 02 4e 16 5c 52 35 20 4e 4f 57 20 48 |YUP..N.\R5 NOW H|
000004a0 41 53 20 53 41 4d 50 4c 45 0d 02 58 13 53 54 52 |AS SAMPLE..X.STR|
000004b0 42 20 52 35 2c 5b 52 36 5d 2c 23 31 0d 02 62 04 |B R5,[R6],#1..b.|
000004c0 0d 02 6c 26 4d 4f 56 20 52 35 2c 23 26 38 20 5c |..l&MOV R5,#&8 \|
000004d0 20 64 65 6c 61 79 20 66 6f 72 20 6e 65 78 74 20 | delay for next |
000004e0 73 61 6d 70 6c 65 0d 02 76 09 2e 48 6f 6c 64 0d |sample..v..Hold.|
000004f0 02 80 0d 4d 4f 56 20 52 30 2c 23 30 0d 02 8a 1c |...MOV R0,#0....|
00000500 53 57 49 20 26 34 32 45 43 31 20 20 5c 20 44 75 |SWI &42EC1 \ Du|
00000510 6d 6d 79 20 72 65 61 64 0d 02 94 11 53 55 42 53 |mmy read....SUBS|
00000520 20 52 35 2c 52 35 2c 23 31 0d 02 9e 0c 42 4e 45 | R5,R5,#1....BNE|
00000530 20 48 6f 6c 64 0d 02 b2 04 0d 02 bc 11 53 55 42 | Hold........SUB|
00000540 53 20 52 38 2c 52 38 2c 23 31 0d 02 c6 0c 42 4e |S R8,R8,#1....BN|
00000550 45 20 53 61 6d 70 0d 02 d0 1d 5c 20 4d 61 6b 65 |E Samp....\ Make|
00000560 20 50 72 69 6e 74 65 72 20 50 6f 72 74 20 69 6e | Printer Port in|
00000570 70 75 74 0d 02 da 0d 4d 4f 56 20 52 30 2c 23 32 |put....MOV R0,#2|
00000580 0d 02 e4 0f 4d 4f 56 20 52 31 2c 23 26 32 30 0d |....MOV R1,#&20.|
00000590 02 ee 0f 4d 4f 56 20 52 32 2c 23 26 44 46 0d 02 |...MOV R2,#&DF..|
000005a0 f8 22 5c 53 57 49 20 26 34 32 45 43 31 20 20 5c |."\SWI &42EC1 \|
000005b0 20 50 61 72 61 6c 6c 65 6c 20 6f 75 74 70 75 74 | Parallel output|
000005c0 0d 03 02 04 0d 03 0c 2d 4c 44 4d 46 44 20 52 31 |.......-LDMFD R1|
000005d0 33 21 2c 20 7b 50 43 7d 20 5c 20 42 41 43 4b 20 |3!, {PC} \ BACK |
000005e0 46 52 4f 4d 20 c9 53 54 20 59 4f 55 20 43 41 4d |FROM .ST YOU CAM|
000005f0 45 0d 03 16 04 0d 03 20 04 0d 03 2a 0b 2e 49 6e |E...... ...*..In|
00000600 70 75 74 32 0d 03 34 14 53 54 4d 46 44 20 52 31 |put2..4.STMFD R1|
00000610 33 21 2c 7b 52 31 34 7d 0d 03 3e 1d 5c 4d 61 6b |3!,{R14}..>.\Mak|
00000620 65 20 70 72 69 6e 74 65 72 20 50 6f 72 74 20 4f |e printer Port O|
00000630 75 74 70 75 74 0d 03 48 0d 4d 4f 56 20 52 30 2c |utput..H.MOV R0,|
00000640 23 32 0d 03 52 0f 4d 4f 56 20 52 31 2c 23 26 30 |#2..R.MOV R1,#&0|
00000650 30 0d 03 5c 0f 4d 4f 56 20 52 32 2c 23 26 44 46 |0..\.MOV R2,#&DF|
00000660 0d 03 66 21 53 57 49 20 26 34 32 45 43 31 20 20 |..f!SWI &42EC1 |
00000670 5c 20 50 61 72 61 6c 6c 65 6c 20 6f 75 74 70 75 |\ Parallel outpu|
00000680 74 0d 03 70 0d 4d 4f 56 20 52 38 2c 23 34 0d 03 |t..p.MOV R8,#4..|
00000690 7a 09 2e 53 61 6d 70 0d 03 84 14 5c 54 61 6b 65 |z..Samp....\Take|
000006a0 20 4f 6e 65 20 53 61 6d 70 6c 65 0d 03 8e 0d 4d | One Sample....M|
000006b0 4f 56 20 52 30 2c 23 31 0d 03 98 0d 4d 4f 56 20 |OV R0,#1....MOV |
000006c0 52 31 2c 23 31 0d 03 a2 21 53 57 49 20 26 34 32 |R1,#1...!SWI &42|
000006d0 45 43 31 20 20 5c 20 43 68 69 70 20 73 65 6c 65 |EC1 \ Chip sele|
000006e0 63 74 20 4c 6f 77 0d 03 ac 1e 4d 4f 56 20 52 33 |ct Low....MOV R3|
000006f0 2c 23 26 42 20 20 5c 20 42 69 74 73 20 74 6f 20 |,#&B \ Bits to |
00000700 72 65 61 64 0d 03 b6 23 4d 4f 56 20 52 35 2c 23 |read...#MOV R5,#|
00000710 30 20 20 20 5c 20 43 6f 6c 6c 65 63 74 20 62 69 |0 \ Collect bi|
00000720 74 73 20 68 65 72 65 0d 03 c0 0a 2e 4c 6f 6f 70 |ts here.....Loop|
00000730 31 0d 03 ca 0d 4d 4f 56 20 52 30 2c 23 30 0d 03 |1....MOV R0,#0..|
00000740 d4 1e 53 57 49 20 26 34 32 45 43 31 20 20 5c 20 |..SWI &42EC1 \ |
00000750 47 65 74 20 74 68 65 20 64 61 74 61 0d 03 de 2d |Get the data...-|
00000760 4d 4f 56 20 52 35 2c 52 35 2c 4c 53 4c 20 23 31 |MOV R5,R5,LSL #1|
00000770 20 5c 20 50 72 65 70 61 72 65 20 52 35 20 66 6f | \ Prepare R5 fo|
00000780 72 20 6e 65 77 20 62 69 74 0d 03 e8 14 4d 4f 56 |r new bit....MOV|
00000790 20 52 32 2c 52 32 2c 4c 53 52 20 23 37 0d 03 f2 | R2,R2,LSR #7...|
000007a0 29 84 52 20 52 35 2c 52 35 2c 52 32 20 20 20 20 |).R R5,R5,R2 |
000007b0 20 5c 20 4d 69 78 20 52 35 20 77 69 74 68 20 6e | \ Mix R5 with n|
000007c0 65 77 20 62 69 74 0d 03 fc 0d 4d 4f 56 20 52 30 |ew bit....MOV R0|
000007d0 2c 23 31 0d 04 06 0d 4d 4f 56 20 52 31 2c 23 31 |,#1....MOV R1,#1|
000007e0 0d 04 10 1c 53 57 49 20 26 34 32 45 43 31 20 20 |....SWI &42EC1 |
000007f0 5c 20 43 6c 6f 63 6b 20 48 69 67 68 0d 04 1a 0d |\ Clock High....|
00000800 4d 4f 56 20 52 31 2c 23 30 0d 04 24 1b 53 57 49 |MOV R1,#0..$.SWI|
00000810 20 26 34 32 45 43 31 20 20 5c 20 43 6c 6f 63 6b | &42EC1 \ Clock|
00000820 20 4c 6f 77 0d 04 2e 11 53 55 42 53 20 52 33 2c | Low....SUBS R3,|
00000830 52 33 2c 23 31 0d 04 38 0d 42 4e 45 20 4c 6f 6f |R3,#1..8.BNE Loo|
00000840 70 31 0d 04 42 0d 4d 4f 56 20 52 31 2c 23 33 0d |p1..B.MOV R1,#3.|
00000850 04 4c 2a 53 57 49 20 26 34 32 45 43 31 20 20 5c |.L*SWI &42EC1 \|
00000860 20 43 68 69 70 20 73 65 6c 65 63 74 20 26 20 43 | Chip select & C|
00000870 6c 6f 63 6b 20 48 69 67 68 0d 04 56 26 80 20 52 |lock High..V&. R|
00000880 35 2c 52 35 2c 23 26 46 46 20 20 20 20 5c 20 4d |5,R5,#&FF \ M|
00000890 41 53 4b 20 87 20 53 54 41 52 54 20 42 49 54 0d |ASK . START BIT.|
000008a0 04 60 27 82 20 52 35 2c 52 35 2c 23 26 46 46 20 |.`'. R5,R5,#&FF |
000008b0 20 20 20 20 5c 20 54 55 52 4e 20 52 49 47 48 54 | \ TURN RIGHT|
000008c0 20 57 41 59 55 50 0d 04 6a 16 5c 52 35 20 4e 4f | WAYUP..j.\R5 NO|
000008d0 57 20 48 41 53 20 53 41 4d 50 4c 45 0d 04 74 11 |W HAS SAMPLE..t.|
000008e0 41 44 52 20 52 36 2c 53 61 6d 70 6c 65 0d 04 7e |ADR R6,Sample..~|
000008f0 0f 53 54 52 20 52 35 2c 5b 52 36 5d 0d 04 88 11 |.STR R5,[R6]....|
00000900 53 55 42 53 20 52 38 2c 52 38 2c 23 31 0d 04 92 |SUBS R8,R8,#1...|
00000910 0c 42 4e 45 20 53 61 6d 70 0d 04 9c 1d 5c 20 4d |.BNE Samp....\ M|
00000920 61 6b 65 20 50 72 69 6e 74 65 72 20 50 6f 72 74 |ake Printer Port|
00000930 20 69 6e 70 75 74 0d 04 a6 0d 4d 4f 56 20 52 30 | input....MOV R0|
00000940 2c 23 32 0d 04 b0 0f 4d 4f 56 20 52 31 2c 23 26 |,#2....MOV R1,#&|
00000950 32 30 0d 04 ba 0f 4d 4f 56 20 52 32 2c 23 26 44 |20....MOV R2,#&D|
00000960 46 0d 04 c4 22 5c 53 57 49 20 26 34 32 45 43 31 |F..."\SWI &42EC1|
00000970 20 20 5c 20 50 61 72 61 6c 6c 65 6c 20 6f 75 74 | \ Parallel out|
00000980 70 75 74 0d 04 ce 04 0d 04 d8 2d 4c 44 4d 46 44 |put.......-LDMFD|
00000990 20 52 31 33 21 2c 20 7b 50 43 7d 20 5c 20 42 41 | R13!, {PC} \ BA|
000009a0 43 4b 20 46 52 4f 4d 20 c9 53 54 20 59 4f 55 20 |CK FROM .ST YOU |
000009b0 43 41 4d 45 0d 04 e2 04 0d 04 ec 05 5d 0d 04 f6 |CAME........]...|
000009c0 05 ed 0d 05 00 05 e1 0d ff |.........|
000009c9 
.