� Keyboard Graphics
� listing one
� By Peter Harris
(� (C) The Micro User
2oldvec=&20E:newvec=&230
<
�I%=0�2�2
FP%=&A60
P
[OPTI%
U	.init
ZLDA oldvec
dSTA newvec
nLDA oldvec+1
xSTA newvec+1
�LDA#start � &100
�STA oldvec
�LDA#start � &100
�STA oldvec+1
�RTS
�
.start
�PHA
�
LDA&D0
��#1
�	CMP#1
�BNE restore
�PLA
�
CMP#33


BCCold

ADC#127

.old

JMP(newvec)

".restore

,PLA

6JMP old

@]

JP%=P%+1

T�

^$x$="SAVE GCHRS "+�~init+" "+�~P%

h(� B 30:$B=x$:X%=B � &100:Y%=B � &100

r� &FFF7
�

00000000  0d 00 0a 17 f4 20 4b 65  79 62 6f 61 72 64 20 47  |..... Keyboard G|
00000010  72 61 70 68 69 63 73 0d  00 14 11 f4 20 6c 69 73  |raphics..... lis|
00000020  74 69 6e 67 20 6f 6e 65  0d 00 1e 15 f4 20 42 79  |ting one..... By|
00000030  20 50 65 74 65 72 20 48  61 72 72 69 73 0d 00 28  | Peter Harris..(|
00000040  18 f4 20 28 43 29 20 54  68 65 20 4d 69 63 72 6f  |.. (C) The Micro|
00000050  20 55 73 65 72 0d 00 32  1b 6f 6c 64 76 65 63 3d  | User..2.oldvec=|
00000060  26 32 30 45 3a 6e 65 77  76 65 63 3d 26 32 33 30  |&20E:newvec=&230|
00000070  0d 00 3c 0d e3 49 25 3d  30 b8 32 88 32 0d 00 46  |..<..I%=0.2.2..F|
00000080  0b 50 25 3d 26 41 36 30  0d 00 50 0a 5b 4f 50 54  |.P%=&A60..P.[OPT|
00000090  49 25 0d 00 55 09 2e 69  6e 69 74 0d 00 5a 0e 4c  |I%..U..init..Z.L|
000000a0  44 41 20 6f 6c 64 76 65  63 0d 00 64 0e 53 54 41  |DA oldvec..d.STA|
000000b0  20 6e 65 77 76 65 63 0d  00 6e 10 4c 44 41 20 6f  | newvec..n.LDA o|
000000c0  6c 64 76 65 63 2b 31 0d  00 78 10 53 54 41 20 6e  |ldvec+1..x.STA n|
000000d0  65 77 76 65 63 2b 31 0d  00 82 14 4c 44 41 23 73  |ewvec+1....LDA#s|
000000e0  74 61 72 74 20 83 20 26  31 30 30 0d 00 8c 0e 53  |tart . &100....S|
000000f0  54 41 20 6f 6c 64 76 65  63 0d 00 96 14 4c 44 41  |TA oldvec....LDA|
00000100  23 73 74 61 72 74 20 81  20 26 31 30 30 0d 00 a0  |#start . &100...|
00000110  10 53 54 41 20 6f 6c 64  76 65 63 2b 31 0d 00 aa  |.STA oldvec+1...|
00000120  07 52 54 53 0d 00 b4 0a  2e 73 74 61 72 74 0d 00  |.RTS.....start..|
00000130  be 07 50 48 41 0d 00 c8  0a 4c 44 41 26 44 30 0d  |..PHA....LDA&D0.|
00000140  00 d2 07 80 23 31 0d 00  dc 09 43 4d 50 23 31 0d  |....#1....CMP#1.|
00000150  00 e6 0f 42 4e 45 20 72  65 73 74 6f 72 65 0d 00  |...BNE restore..|
00000160  f0 07 50 4c 41 0d 00 fa  0a 43 4d 50 23 33 33 0d  |..PLA....CMP#33.|
00000170  01 04 0a 42 43 43 6f 6c  64 0d 01 0e 0b 41 44 43  |...BCCold....ADC|
00000180  23 31 32 37 0d 01 13 08  2e 6f 6c 64 0d 01 18 0f  |#127.....old....|
00000190  4a 4d 50 28 6e 65 77 76  65 63 29 0d 01 22 0c 2e  |JMP(newvec).."..|
000001a0  72 65 73 74 6f 72 65 0d  01 2c 07 50 4c 41 0d 01  |restore..,.PLA..|
000001b0  36 0b 4a 4d 50 20 6f 6c  64 0d 01 40 05 5d 0d 01  |6.JMP old..@.]..|
000001c0  4a 0b 50 25 3d 50 25 2b  31 0d 01 54 05 ed 0d 01  |J.P%=P%+1..T....|
000001d0  5e 24 78 24 3d 22 53 41  56 45 20 47 43 48 52 53  |^$x$="SAVE GCHRS|
000001e0  20 22 2b c3 7e 69 6e 69  74 2b 22 20 22 2b c3 7e  | "+.~init+" "+.~|
000001f0  50 25 0d 01 68 28 de 20  42 20 33 30 3a 24 42 3d  |P%..h(. B 30:$B=|
00000200  78 24 3a 58 25 3d 42 20  83 20 26 31 30 30 3a 59  |x$:X%=B . &100:Y|
00000210  25 3d 42 20 81 20 26 31  30 30 0d 01 72 0b d6 20  |%=B . &100..r.. |
00000220  26 46 46 46 37 0d ff                              |&FFF7..|
00000227