� Score 3
� By R.A.Waddilove
� (c) Electron User
(� 5
2
�assemble
< � �0,5)"Tap the spacebar..."
F� 2
P� �3,10)"SCORE:"
Z
� &900
d�
n 
x� �assemble
�new=&70
�temp=&72
�digits=&73
�
!digits=0
�� pass=0 � 2 � 2
�P%=&900
�
[OPT pass
� 
�	.main
�
JSR &FFE0
�BCS exit
�
JSR score
�JMP main

	.exit

RTS

 

"
.score

,'LDA #&10:STA new:LDA #&65:STA new+1

6SED

@CLC

JLDA digits+1

T
ADC #5

^STA digits+1

hLDA digits

r
ADC #0

|STA digits

�CLD

�LDA digits:JSR print

�LDA digits+1

�
.print

�STA temp

�LSR A:LSR A:LSR A:LSR A

�JSR number

�LDA temp

�.number

�
� #&0F

�ASL A:ASL A:ASL A

�TAX

�
LDY #0
	.loop
LDA numdata,X
STA (new),Y
&INX
0INY:CPY #8:BNE loop
:CLC
DLDA new:ADC #8:STA new
NLDA new+1:ADC #0:STA new+1
XRTS
b 
l.numdata
v
OPT �read
�]
��
��
� 
�� �read
��
��
�
� byte
�
[OPT pass
�
EQUB byte
�]
�� byte<0
�	=pass
 
� 14,10,10,10,10,10,10,14
P� 6,6,6,6,6,6,6,6,14,10,2,2,6,12,8,14,14,10,2,6,6,2,10,14,2,6,4,12,8,10,14,2
 X� 14,8,8,14,2,2,10,14,12,8,8,8,14,10,10,14,14,10,2,2,6,4,4,4,14,10,10,10,14,10,10,14
*� 14,10,10,14,2,2,2,2,-1
�

00000000  0d 00 0a 0d f4 20 53 63  6f 72 65 20 33 0d 00 14  |..... Score 3...|
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  14 f1 20 8a 33 2c 31 30  |F.. 2..P.. .3,10|
00000080  29 22 53 43 4f 52 45 3a  22 0d 00 5a 0a d6 20 26  |)"SCORE:"..Z.. &|
00000090  39 30 30 0d 00 64 05 e0  0d 00 6e 05 20 0d 00 78  |900..d....n. ..x|
000000a0  0f dd 20 f2 61 73 73 65  6d 62 6c 65 0d 00 82 0b  |.. .assemble....|
000000b0  6e 65 77 3d 26 37 30 0d  00 8c 0c 74 65 6d 70 3d  |new=&70....temp=|
000000c0  26 37 32 0d 00 96 0e 64  69 67 69 74 73 3d 26 37  |&72....digits=&7|
000000d0  33 0d 00 a0 0d 21 64 69  67 69 74 73 3d 30 0d 00  |3....!digits=0..|
000000e0  aa 14 e3 20 70 61 73 73  3d 30 20 b8 20 32 20 88  |... pass=0 . 2 .|
000000f0  20 32 0d 00 b4 0b 50 25  3d 26 39 30 30 0d 00 be  | 2....P%=&900...|
00000100  0d 5b 4f 50 54 20 70 61  73 73 0d 00 c8 05 20 0d  |.[OPT pass.... .|
00000110  00 d2 09 2e 6d 61 69 6e  0d 00 dc 0d 4a 53 52 20  |....main....JSR |
00000120  26 46 46 45 30 0d 00 e6  0c 42 43 53 20 65 78 69  |&FFE0....BCS exi|
00000130  74 0d 00 f0 0d 4a 53 52  20 73 63 6f 72 65 0d 00  |t....JSR score..|
00000140  fa 0c 4a 4d 50 20 6d 61  69 6e 0d 01 04 09 2e 65  |..JMP main.....e|
00000150  78 69 74 0d 01 0e 07 52  54 53 0d 01 18 05 20 0d  |xit....RTS.... .|
00000160  01 22 0a 2e 73 63 6f 72  65 0d 01 2c 27 4c 44 41  |."..score..,'LDA|
00000170  20 23 26 31 30 3a 53 54  41 20 6e 65 77 3a 4c 44  | #&10:STA new:LD|
00000180  41 20 23 26 36 35 3a 53  54 41 20 6e 65 77 2b 31  |A #&65:STA new+1|
00000190  0d 01 36 07 53 45 44 0d  01 40 07 43 4c 43 0d 01  |..6.SED..@.CLC..|
000001a0  4a 10 4c 44 41 20 64 69  67 69 74 73 2b 31 0d 01  |J.LDA digits+1..|
000001b0  54 0a 41 44 43 20 23 35  0d 01 5e 10 53 54 41 20  |T.ADC #5..^.STA |
000001c0  64 69 67 69 74 73 2b 31  0d 01 68 0e 4c 44 41 20  |digits+1..h.LDA |
000001d0  64 69 67 69 74 73 0d 01  72 0a 41 44 43 20 23 30  |digits..r.ADC #0|
000001e0  0d 01 7c 0e 53 54 41 20  64 69 67 69 74 73 0d 01  |..|.STA digits..|
000001f0  86 07 43 4c 44 0d 01 90  18 4c 44 41 20 64 69 67  |..CLD....LDA dig|
00000200  69 74 73 3a 4a 53 52 20  70 72 69 6e 74 0d 01 9a  |its:JSR print...|
00000210  10 4c 44 41 20 64 69 67  69 74 73 2b 31 0d 01 a4  |.LDA digits+1...|
00000220  0a 2e 70 72 69 6e 74 0d  01 ae 0c 53 54 41 20 74  |..print....STA t|
00000230  65 6d 70 0d 01 b8 1b 4c  53 52 20 41 3a 4c 53 52  |emp....LSR A:LSR|
00000240  20 41 3a 4c 53 52 20 41  3a 4c 53 52 20 41 0d 01  | A:LSR A:LSR A..|
00000250  c2 0e 4a 53 52 20 6e 75  6d 62 65 72 0d 01 cc 0c  |..JSR number....|
00000260  4c 44 41 20 74 65 6d 70  0d 01 d6 0b 2e 6e 75 6d  |LDA temp.....num|
00000270  62 65 72 0d 01 e0 0a 80  20 23 26 30 46 0d 01 ea  |ber..... #&0F...|
00000280  15 41 53 4c 20 41 3a 41  53 4c 20 41 3a 41 53 4c  |.ASL A:ASL A:ASL|
00000290  20 41 0d 01 f4 07 54 41  58 0d 01 fe 0a 4c 44 59  | A....TAX....LDY|
000002a0  20 23 30 0d 02 08 09 2e  6c 6f 6f 70 0d 02 12 11  | #0.....loop....|
000002b0  4c 44 41 20 6e 75 6d 64  61 74 61 2c 58 0d 02 1c  |LDA numdata,X...|
000002c0  0f 53 54 41 20 28 6e 65  77 29 2c 59 0d 02 26 07  |.STA (new),Y..&.|
000002d0  49 4e 58 0d 02 30 17 49  4e 59 3a 43 50 59 20 23  |INX..0.INY:CPY #|
000002e0  38 3a 42 4e 45 20 6c 6f  6f 70 0d 02 3a 07 43 4c  |8:BNE loop..:.CL|
000002f0  43 0d 02 44 1a 4c 44 41  20 6e 65 77 3a 41 44 43  |C..D.LDA new:ADC|
00000300  20 23 38 3a 53 54 41 20  6e 65 77 0d 02 4e 1e 4c  | #8:STA new..N.L|
00000310  44 41 20 6e 65 77 2b 31  3a 41 44 43 20 23 30 3a  |DA new+1:ADC #0:|
00000320  53 54 41 20 6e 65 77 2b  31 0d 02 58 07 52 54 53  |STA new+1..X.RTS|
00000330  0d 02 62 05 20 0d 02 6c  0c 2e 6e 75 6d 64 61 74  |..b. ..l..numdat|
00000340  61 0d 02 76 0d 4f 50 54  20 a4 72 65 61 64 0d 02  |a..v.OPT .read..|
00000350  80 05 5d 0d 02 8a 05 ed  0d 02 94 05 e1 0d 02 9e  |..].............|
00000360  05 20 0d 02 a8 0b dd 20  a4 72 65 61 64 0d 02 b2  |. ..... .read...|
00000370  05 f7 0d 02 bc 05 f5 0d  02 c6 0a f3 20 62 79 74  |............ byt|
00000380  65 0d 02 d0 0d 5b 4f 50  54 20 70 61 73 73 0d 02  |e....[OPT pass..|
00000390  da 0d 45 51 55 42 20 62  79 74 65 0d 02 e4 05 5d  |..EQUB byte....]|
000003a0  0d 02 ee 0c fd 20 62 79  74 65 3c 30 0d 02 f8 09  |..... byte<0....|
000003b0  3d 70 61 73 73 0d 03 02  05 20 0d 03 0c 1d dc 20  |=pass.... ..... |
000003c0  31 34 2c 31 30 2c 31 30  2c 31 30 2c 31 30 2c 31  |14,10,10,10,10,1|
000003d0  30 2c 31 30 2c 31 34 0d  03 16 50 dc 20 36 2c 36  |0,10,14...P. 6,6|
000003e0  2c 36 2c 36 2c 36 2c 36  2c 36 2c 36 2c 31 34 2c  |,6,6,6,6,6,6,14,|
000003f0  31 30 2c 32 2c 32 2c 36  2c 31 32 2c 38 2c 31 34  |10,2,2,6,12,8,14|
00000400  2c 31 34 2c 31 30 2c 32  2c 36 2c 36 2c 32 2c 31  |,14,10,2,6,6,2,1|
00000410  30 2c 31 34 2c 32 2c 36  2c 34 2c 31 32 2c 38 2c  |0,14,2,6,4,12,8,|
00000420  31 30 2c 31 34 2c 32 0d  03 20 58 dc 20 31 34 2c  |10,14,2.. X. 14,|
00000430  38 2c 38 2c 31 34 2c 32  2c 32 2c 31 30 2c 31 34  |8,8,14,2,2,10,14|
00000440  2c 31 32 2c 38 2c 38 2c  38 2c 31 34 2c 31 30 2c  |,12,8,8,8,14,10,|
00000450  31 30 2c 31 34 2c 31 34  2c 31 30 2c 32 2c 32 2c  |10,14,14,10,2,2,|
00000460  36 2c 34 2c 34 2c 34 2c  31 34 2c 31 30 2c 31 30  |6,4,4,4,14,10,10|
00000470  2c 31 30 2c 31 34 2c 31  30 2c 31 30 2c 31 34 0d  |,10,14,10,10,14.|
00000480  03 2a 1c dc 20 31 34 2c  31 30 2c 31 30 2c 31 34  |.*.. 14,10,10,14|
00000490  2c 32 2c 32 2c 32 2c 32  2c 2d 31 0d ff           |,2,2,2,2,-1..|
0000049d