� VDU compression
� By R.Henderson
� (c) Electron User
(� 4
2
�assemble
<
�image
F?&74=40
P?&75=32
Z� compress
dG=�
n�
x� decomp
�
?&D0=0
�� 28,8,23,32,8
�?&35F=10
�� Normal cursor
��
��
� 
�� �assemble
��i%=0�2 �2
�P%=&900
�[ OPT i%
�
.compress
� \ Read � codes and save in a

 \ convienient area of memory


LDA #0

STA &72

"STA &73

,STA &70

6LDA #&30

@STA &71

J
LDY #0

T	.loop

^LDA #31

h
JSR &FFEE

rLDA &72

|
JSR &FFEE

�LDA &73

�
JSR &FFEE

�LDA #135

�
JSR &FFF4

�TXA

�
LDY #0

�STA (&70),Y

�INC &72

�INC &70

�LDA &70

�
CMP #0

�BEQ dat

�	.cont
LDA &72
CMP &74
BNE loop
&
LDA #0
0STA &72
:INC &73
DLDA &73
NCMP &75
XBNE loop
bRTS
l.dat
vINC &71
�JMP cont
�\ Reconstruct
�\ from � codes
�.decomp
�
LDA #0
�STA &70
�LDA #&30
�STA &71
�LDA #31
�
JSR &FFEE
�
LDA #0
�
JSR &FFEE
�
JSR &FFEE

LDY #0
LDA &74
STA &72
 LDA &75
*STA &73
4
LDY #0
>
.loop2
HLDA (&70),Y
R
JSR &FFEE
\DEC &72
fLDA &72
pBEQ set2
z.ret
�INY
�
BNE loop2
�INC &71
�LDA &73
�
BNE loop2
�.rts RTS
�	.set2
�LDA #40
�STA &72
�DEC &73
�BEQ rts
�JMP ret
�]
�
�
 
$��image
.� 23,1,2;0;0;0;0;
8
?&D0=2
B"� Static cursor / no scrolling
L�X=1� 32
V1� "This is an example of the VDU compressor";
`�
j�
�

00000000  0d 00 0a 15 f4 20 56 44  55 20 63 6f 6d 70 72 65  |..... VDU compre|
00000010  73 73 69 6f 6e 0d 00 14  14 f4 20 42 79 20 52 2e  |ssion..... By R.|
00000020  48 65 6e 64 65 72 73 6f  6e 0d 00 1e 17 f4 20 28  |Henderson..... (|
00000030  63 29 20 45 6c 65 63 74  72 6f 6e 20 55 73 65 72  |c) Electron User|
00000040  0d 00 28 07 eb 20 34 0d  00 32 0d f2 61 73 73 65  |..(.. 4..2..asse|
00000050  6d 62 6c 65 0d 00 3c 0a  f2 69 6d 61 67 65 0d 00  |mble..<..image..|
00000060  46 0b 3f 26 37 34 3d 34  30 0d 00 50 0b 3f 26 37  |F.?&74=40..P.?&7|
00000070  35 3d 33 32 0d 00 5a 0e  d6 20 63 6f 6d 70 72 65  |5=32..Z.. compre|
00000080  73 73 0d 00 64 07 47 3d  a5 0d 00 6e 05 db 0d 00  |ss..d.G=...n....|
00000090  78 0c d6 20 64 65 63 6f  6d 70 0d 00 82 0a 3f 26  |x.. decomp....?&|
000000a0  44 30 3d 30 0d 00 8c 12  ef 20 32 38 2c 38 2c 32  |D0=0..... 28,8,2|
000000b0  33 2c 33 32 2c 38 0d 00  96 0c 3f 26 33 35 46 3d  |3,32,8....?&35F=|
000000c0  31 30 0d 00 a0 13 f4 20  4e 6f 72 6d 61 6c 20 63  |10..... Normal c|
000000d0  75 72 73 6f 72 0d 00 aa  05 db 0d 00 b4 05 e0 0d  |ursor...........|
000000e0  00 be 05 20 0d 00 c8 0f  dd 20 f2 61 73 73 65 6d  |... ..... .assem|
000000f0  62 6c 65 0d 00 d2 0e e3  69 25 3d 30 b8 32 20 88  |ble.....i%=0.2 .|
00000100  32 0d 00 dc 0b 50 25 3d  26 39 30 30 0d 00 e6 0c  |2....P%=&900....|
00000110  5b 20 4f 50 54 20 69 25  0d 00 f0 0d 2e 63 6f 6d  |[ OPT i%.....com|
00000120  70 72 65 73 73 0d 00 fa  20 5c 20 52 65 61 64 20  |press... \ Read |
00000130  ef 20 63 6f 64 65 73 20  61 6e 64 20 73 61 76 65  |. codes and save|
00000140  20 69 6e 20 61 0d 01 04  20 5c 20 63 6f 6e 76 69  | in a... \ convi|
00000150  65 6e 69 65 6e 74 20 61  72 65 61 20 6f 66 20 6d  |enient area of m|
00000160  65 6d 6f 72 79 0d 01 0e  0a 4c 44 41 20 23 30 0d  |emory....LDA #0.|
00000170  01 18 0b 53 54 41 20 26  37 32 0d 01 22 0b 53 54  |...STA &72..".ST|
00000180  41 20 26 37 33 0d 01 2c  0b 53 54 41 20 26 37 30  |A &73..,.STA &70|
00000190  0d 01 36 0c 4c 44 41 20  23 26 33 30 0d 01 40 0b  |..6.LDA #&30..@.|
000001a0  53 54 41 20 26 37 31 0d  01 4a 0a 4c 44 59 20 23  |STA &71..J.LDY #|
000001b0  30 0d 01 54 09 2e 6c 6f  6f 70 0d 01 5e 0b 4c 44  |0..T..loop..^.LD|
000001c0  41 20 23 33 31 0d 01 68  0d 4a 53 52 20 26 46 46  |A #31..h.JSR &FF|
000001d0  45 45 0d 01 72 0b 4c 44  41 20 26 37 32 0d 01 7c  |EE..r.LDA &72..||
000001e0  0d 4a 53 52 20 26 46 46  45 45 0d 01 86 0b 4c 44  |.JSR &FFEE....LD|
000001f0  41 20 26 37 33 0d 01 90  0d 4a 53 52 20 26 46 46  |A &73....JSR &FF|
00000200  45 45 0d 01 9a 0c 4c 44  41 20 23 31 33 35 0d 01  |EE....LDA #135..|
00000210  a4 0d 4a 53 52 20 26 46  46 46 34 0d 01 ae 07 54  |..JSR &FFF4....T|
00000220  58 41 0d 01 b8 0a 4c 44  59 20 23 30 0d 01 c2 0f  |XA....LDY #0....|
00000230  53 54 41 20 28 26 37 30  29 2c 59 0d 01 cc 0b 49  |STA (&70),Y....I|
00000240  4e 43 20 26 37 32 0d 01  d6 0b 49 4e 43 20 26 37  |NC &72....INC &7|
00000250  30 0d 01 e0 0b 4c 44 41  20 26 37 30 0d 01 ea 0a  |0....LDA &70....|
00000260  43 4d 50 20 23 30 0d 01  f4 0b 42 45 51 20 64 61  |CMP #0....BEQ da|
00000270  74 0d 01 fe 09 2e 63 6f  6e 74 0d 02 08 0b 4c 44  |t.....cont....LD|
00000280  41 20 26 37 32 0d 02 12  0b 43 4d 50 20 26 37 34  |A &72....CMP &74|
00000290  0d 02 1c 0c 42 4e 45 20  6c 6f 6f 70 0d 02 26 0a  |....BNE loop..&.|
000002a0  4c 44 41 20 23 30 0d 02  30 0b 53 54 41 20 26 37  |LDA #0..0.STA &7|
000002b0  32 0d 02 3a 0b 49 4e 43  20 26 37 33 0d 02 44 0b  |2..:.INC &73..D.|
000002c0  4c 44 41 20 26 37 33 0d  02 4e 0b 43 4d 50 20 26  |LDA &73..N.CMP &|
000002d0  37 35 0d 02 58 0c 42 4e  45 20 6c 6f 6f 70 0d 02  |75..X.BNE loop..|
000002e0  62 07 52 54 53 0d 02 6c  08 2e 64 61 74 0d 02 76  |b.RTS..l..dat..v|
000002f0  0b 49 4e 43 20 26 37 31  0d 02 80 0c 4a 4d 50 20  |.INC &71....JMP |
00000300  63 6f 6e 74 0d 02 8a 11  5c 20 52 65 63 6f 6e 73  |cont....\ Recons|
00000310  74 72 75 63 74 0d 02 94  12 5c 20 66 72 6f 6d 20  |truct....\ from |
00000320  ef 20 63 6f 64 65 73 0d  02 9e 0b 2e 64 65 63 6f  |. codes.....deco|
00000330  6d 70 0d 02 a8 0a 4c 44  41 20 23 30 0d 02 b2 0b  |mp....LDA #0....|
00000340  53 54 41 20 26 37 30 0d  02 bc 0c 4c 44 41 20 23  |STA &70....LDA #|
00000350  26 33 30 0d 02 c6 0b 53  54 41 20 26 37 31 0d 02  |&30....STA &71..|
00000360  d0 0b 4c 44 41 20 23 33  31 0d 02 da 0d 4a 53 52  |..LDA #31....JSR|
00000370  20 26 46 46 45 45 0d 02  e4 0a 4c 44 41 20 23 30  | &FFEE....LDA #0|
00000380  0d 02 ee 0d 4a 53 52 20  26 46 46 45 45 0d 02 f8  |....JSR &FFEE...|
00000390  0d 4a 53 52 20 26 46 46  45 45 0d 03 02 0a 4c 44  |.JSR &FFEE....LD|
000003a0  59 20 23 30 0d 03 0c 0b  4c 44 41 20 26 37 34 0d  |Y #0....LDA &74.|
000003b0  03 16 0b 53 54 41 20 26  37 32 0d 03 20 0b 4c 44  |...STA &72.. .LD|
000003c0  41 20 26 37 35 0d 03 2a  0b 53 54 41 20 26 37 33  |A &75..*.STA &73|
000003d0  0d 03 34 0a 4c 44 59 20  23 30 0d 03 3e 0a 2e 6c  |..4.LDY #0..>..l|
000003e0  6f 6f 70 32 0d 03 48 0f  4c 44 41 20 28 26 37 30  |oop2..H.LDA (&70|
000003f0  29 2c 59 0d 03 52 0d 4a  53 52 20 26 46 46 45 45  |),Y..R.JSR &FFEE|
00000400  0d 03 5c 0b 44 45 43 20  26 37 32 0d 03 66 0b 4c  |..\.DEC &72..f.L|
00000410  44 41 20 26 37 32 0d 03  70 0c 42 45 51 20 73 65  |DA &72..p.BEQ se|
00000420  74 32 0d 03 7a 08 2e 72  65 74 0d 03 84 07 49 4e  |t2..z..ret....IN|
00000430  59 0d 03 8e 0d 42 4e 45  20 6c 6f 6f 70 32 0d 03  |Y....BNE loop2..|
00000440  98 0b 49 4e 43 20 26 37  31 0d 03 a2 0b 4c 44 41  |..INC &71....LDA|
00000450  20 26 37 33 0d 03 ac 0d  42 4e 45 20 6c 6f 6f 70  | &73....BNE loop|
00000460  32 0d 03 b6 0c 2e 72 74  73 20 52 54 53 0d 03 c0  |2.....rts RTS...|
00000470  09 2e 73 65 74 32 0d 03  ca 0b 4c 44 41 20 23 34  |..set2....LDA #4|
00000480  30 0d 03 d4 0b 53 54 41  20 26 37 32 0d 03 de 0b  |0....STA &72....|
00000490  44 45 43 20 26 37 33 0d  03 e8 0b 42 45 51 20 72  |DEC &73....BEQ r|
000004a0  74 73 0d 03 f2 0b 4a 4d  50 20 72 65 74 0d 03 fc  |ts....JMP ret...|
000004b0  05 5d 0d 04 06 05 ed 0d  04 10 05 e1 0d 04 1a 05  |.]..............|
000004c0  20 0d 04 24 0b dd f2 69  6d 61 67 65 0d 04 2e 15  | ..$...image....|
000004d0  ef 20 32 33 2c 31 2c 32  3b 30 3b 30 3b 30 3b 30  |. 23,1,2;0;0;0;0|
000004e0  3b 0d 04 38 0a 3f 26 44  30 3d 32 0d 04 42 22 f4  |;..8.?&D0=2..B".|
000004f0  20 53 74 61 74 69 63 20  63 75 72 73 6f 72 20 2f  | Static cursor /|
00000500  20 6e 6f 20 73 63 72 6f  6c 6c 69 6e 67 0d 04 4c  | no scrolling..L|
00000510  0c e3 58 3d 31 b8 20 33  32 0d 04 56 31 f1 20 22  |..X=1. 32..V1. "|
00000520  54 68 69 73 20 69 73 20  61 6e 20 65 78 61 6d 70  |This is an examp|
00000530  6c 65 20 6f 66 20 74 68  65 20 56 44 55 20 63 6f  |le of the VDU co|
00000540  6d 70 72 65 73 73 6f 72  22 3b 0d 04 60 05 ed 0d  |mpressor";..`...|
00000550  04 6a 05 e1 0d ff                                 |.j....|
00000556