� Score 1
� By R.A.Waddilove
� (c) Electron User
(� 5
2
�assemble
< � �0,5)"Tap the spacebar..."
F� 2
P� �4,10)"SCORE:00000"
Z
� &900
d�
n 
x� �assemble
�oswrch=!&20E
�� pass=0 � 2 � 2
�P%=&900
�
[OPT pass
� 
�	.main
�
JSR &FFE0
�BCS exit
�
JSR score
�JMP main
�	.exit
�RTS
� 
�
.score


LDX #3

	.loop

INC digits,X

"LDA digits,X

,CMP #�"0"+10

6
BNE sc_ok

@
LDA #�"0"

JSTA digits,X

TDEX

^BPL loop

h
.sc_ok

r
LDX #0

|	.loop

�LDA digits-3,X

�J

00000000  0d 00 0a 0d f4 20 53 63  6f 72 65 20 31 0d 00 14  |..... Score 1...|
00000010  16 f4 20 42 79 20 52 2e  41 2e 57 61 64 64 69 6c  |.. By R.A.Waddil|
00000020  6f 76 65 0d 00 1e 17 f4  20 28 63 29 20 45 6c 65  |ove..... (c) Ele|
00000030  63 74 72 6f 6e 20 55 73  65 72 0d 00 28 07 eb 20  |ctron User..(.. |
00000040  35 0d 00 32 0d f2 61 73  73 65 6d 62 6c 65 0d 00  |5..2..assemble..|
00000050  3c 20 f1 20 8a 30 2c 35  29 22 54 61 70 20 74 68  |< . .0,5)"Tap th|
00000060  65 20 73 70 61 63 65 62  61 72 2e 2e 2e 22 0d 00  |e spacebar..."..|
00000070  46 07 fb 20 32 0d 00 50  19 f1 20 8a 34 2c 31 30  |F.. 2..P.. .4,10|
00000080  29 22 53 43 4f 52 45 3a  30 30 30 30 30 22 0d 00  |)"SCORE:00000"..|
00000090  5a 0a d6 20 26 39 30 30  0d 00 64 05 e0 0d 00 6e  |Z.. &900..d....n|
000000a0  05 20 0d 00 78 0f dd 20  f2 61 73 73 65 6d 62 6c  |. ..x.. .assembl|
000000b0  65 0d 00 82 10 6f 73 77  72 63 68 3d 21 26 32 30  |e....oswrch=!&20|
000000c0  45 0d 00 8c 14 e3 20 70  61 73 73 3d 30 20 b8 20  |E..... pass=0 . |
000000d0  32 20 88 20 32 0d 00 96  0b 50 25 3d 26 39 30 30  |2 . 2....P%=&900|
000000e0  0d 00 a0 0d 5b 4f 50 54  20 70 61 73 73 0d 00 a5  |....[OPT pass...|
000000f0  05 20 0d 00 aa 09 2e 6d  61 69 6e 0d 00 b4 0d 4a  |. .....main....J|
00000100  53 52 20 26 46 46 45 30  0d 00 be 0c 42 43 53 20  |SR &FFE0....BCS |
00000110  65 78 69 74 0d 00 c8 0d  4a 53 52 20 73 63 6f 72  |exit....JSR scor|
00000120  65 0d 00 d2 0c 4a 4d 50  20 6d 61 69 6e 0d 00 dc  |e....JMP main...|
00000130  09 2e 65 78 69 74 0d 00  e6 07 52 54 53 0d 00 f0  |..exit....RTS...|
00000140  05 20 0d 00 fa 0a 2e 73  63 6f 72 65 0d 01 04 0a  |. .....score....|
00000150  4c 44 58 20 23 33 0d 01  0e 09 2e 6c 6f 6f 70 0d  |LDX #3.....loop.|
00000160  01 18 10 49 4e 43 20 64  69 67 69 74 73 2c 58 0d  |...INC digits,X.|
00000170  01 22 10 4c 44 41 20 64  69 67 69 74 73 2c 58 0d  |.".LDA digits,X.|
00000180  01 2c 10 43 4d 50 20 23  97 22 30 22 2b 31 30 0d  |.,.CMP #."0"+10.|
00000190  01 36 0d 42 4e 45 20 73  63 5f 6f 6b 0d 01 40 0d  |.6.BNE sc_ok..@.|
000001a0  4c 44 41 20 23 97 22 30  22 0d 01 4a 10 53 54 41  |LDA #."0"..J.STA|
000001b0  20 64 69 67 69 74 73 2c  58 0d 01 54 07 44 45 58  | digits,X..T.DEX|
000001c0  0d 01 5e 0c 42 50 4c 20  6c 6f 6f 70 0d 01 68 0a  |..^.BPL loop..h.|
000001d0  2e 73 63 5f 6f 6b 0d 01  72 0a 4c 44 58 20 23 30  |.sc_ok..r.LDX #0|
000001e0  0d 01 7c 09 2e 6c 6f 6f  70 0d 01 86 12 4c 44 41  |..|..loop....LDA|
000001f0  20 64 69 67 69 74 73 2d  33 2c 58 0d 01 90 0e 4a  | digits-3,X....J|
00000200