� Scanline compression
�        and
� double image height.
(� R.Henderson  1989/90
2� i%=0 � 2 � 2
<P%=&900
F[ OPT i%
P\ Scrunch the image down
Z\ to around half size...
d.comp LDA #0
nSTA &70
xSTA &72
�LDA #&58
�STA &71
�LDA #&30
�STA &73
�
LDY #0
�	.loop
�LDA (&70),Y
�STA (&72),Y
�INC &72
�LDA &72
�BEQ out1
�.middle
�INC &70

INC &70

BNE loop

INC &71

"LDA &71

,CMP #&80

6BNE loop

@RTS

J	.out1

TINC &73

^JMP middle

h\ Redraw image

r\ on the screen.

|.decomp

�
LDY #0

�LDA #&30

�STA &71

�LDA #&58

�STA &73

�
LDA #0

�STA &70

�STA &72

�
.loop2

�LDA (&70),Y

�STA (&72),Y

�INC &72

�STA (&72),Y
INC &72
INC &70
LDA &70
&BEQ out2
0
.continue
:LDA &72
D
BNE loop2
NINC &73
XLDA &71
bCMP #&44
l
BNE loop2
vRTS
�	.out2
�INC &71
�JMP continue
�\ Double the height of a
�\ 5k chunk of screen...
�.dblhsc
�LDA #&28
�STA &74
�
LDA #0
�STA &70
�STA &72
�LDA #&58
�STA &73
LDA #&30
STA &71

LDY #0
 .st
*
LDX #4
4.dbloop1
>LDA (&70),Y
HSTA (&72),Y
RINC &72
\STA (&72),Y
fINC &72
pLDA &72
zBEQ rt1
�.bk1
�INC &70
�LDA &70
�BEQ rt2
�.bk2
�DEX
�BNE dbloop1
�CLC
�LDA &72
�ADC #&38
�STA &72
�LDA &73
�
ADC #1
STA &73

LDX #4
.dbloop2
$LDA (&70),Y
.STA (&72),Y
8INC &72
BSTA (&72),Y
LINC &72
VLDA &72
`BEQ rt3
j.bk3
tINC &70
~LDA &70
�BEQ rt4
�.bk4
�DEX
�BNE dbloop2
�SEC
�LDA &72
�SBC #&40
�STA &72
�LDA &73
�
SBC #1
�STA &73
�DEC &74
LDA &74


BNE st
CLC
LDA &72
(ADC #&40
2STA &72
<LDA &73
F
ADC #1
PSTA &73
ZLDA #&28
dSTA &74
nLDA &73
x
BPL st
�RTS
�.rt1
�INC &73:JMP bk1
�.rt2
�INC &71:JMP bk2
�.rt3
�INC &73:JMP bk3
�.rt4
�INC &71:JMP bk4
�]
��
�� 5
�� 23,1,0;0;0;0;

�demo1

� comp
� 7 : G=� : �
"� decomp
,G=� : �
6
�demo2
@� 7: G=� : �
J� dblhsc
T�
^ 
h� �demo2
r
no%=&55AA
|� 23,&FF,no%;no%;no%;no%;
�� x%=0 � 3
�� y%=3 � 0 �-1
�� x%
�� y%+128
�� �20,�255);
��
��
�	� 0,3
�� 0,508
�� 1278,508
�� Relocate graphics data
�� x%=&3000 � &4600 �4
�!x%=!(x%+&2800)
�
�
 
&� �demo1
0	� 3,3
:� d%=0 � 1278 � 24
D
� d%,0
N
� d%,1024
X�
b	� 3,2
l� e%=0 � 1024 � 12
v
� 0,e%
�
� 1278,e%
��
��
�

00000000  0d 00 0a 1a f4 20 53 63  61 6e 6c 69 6e 65 20 63  |..... Scanline c|
00000010  6f 6d 70 72 65 73 73 69  6f 6e 0d 00 14 10 f4 20  |ompression..... |
00000020  20 20 20 20 20 20 20 61  6e 64 0d 00 1e 1a f4 20  |       and..... |
00000030  64 6f 75 62 6c 65 20 69  6d 61 67 65 20 68 65 69  |double image hei|
00000040  67 68 74 2e 0d 00 28 1a  f4 20 52 2e 48 65 6e 64  |ght...(.. R.Hend|
00000050  65 72 73 6f 6e 20 20 31  39 38 39 2f 39 30 0d 00  |erson  1989/90..|
00000060  32 12 e3 20 69 25 3d 30  20 b8 20 32 20 88 20 32  |2.. i%=0 . 2 . 2|
00000070  0d 00 3c 0b 50 25 3d 26  39 30 30 0d 00 46 0c 5b  |..<.P%=&900..F.[|
00000080  20 4f 50 54 20 69 25 0d  00 50 1c 5c 20 53 63 72  | OPT i%..P.\ Scr|
00000090  75 6e 63 68 20 74 68 65  20 69 6d 61 67 65 20 64  |unch the image d|
000000a0  6f 77 6e 0d 00 5a 1c 5c  20 74 6f 20 61 72 6f 75  |own..Z.\ to arou|
000000b0  6e 64 20 68 61 6c 66 20  73 69 7a 65 2e 2e 2e 0d  |nd half size....|
000000c0  00 64 10 2e 63 6f 6d 70  20 4c 44 41 20 23 30 0d  |.d..comp LDA #0.|
000000d0  00 6e 0b 53 54 41 20 26  37 30 0d 00 78 0b 53 54  |.n.STA &70..x.ST|
000000e0  41 20 26 37 32 0d 00 82  0c 4c 44 41 20 23 26 35  |A &72....LDA #&5|
000000f0  38 0d 00 8c 0b 53 54 41  20 26 37 31 0d 00 96 0c  |8....STA &71....|
00000100  4c 44 41 20 23 26 33 30  0d 00 a0 0b 53 54 41 20  |LDA #&30....STA |
00000110  26 37 33 0d 00 aa 0a 4c  44 59 20 23 30 0d 00 b4  |&73....LDY #0...|
00000120  09 2e 6c 6f 6f 70 0d 00  be 0f 4c 44 41 20 28 26  |..loop....LDA (&|
00000130  37 30 29 2c 59 0d 00 c8  0f 53 54 41 20 28 26 37  |70),Y....STA (&7|
00000140  32 29 2c 59 0d 00 d2 0b  49 4e 43 20 26 37 32 0d  |2),Y....INC &72.|
00000150  00 dc 0b 4c 44 41 20 26  37 32 0d 00 e6 0c 42 45  |...LDA &72....BE|
00000160  51 20 6f 75 74 31 0d 00  f0 0b 2e 6d 69 64 64 6c  |Q out1.....middl|
00000170  65 0d 00 fa 0b 49 4e 43  20 26 37 30 0d 01 04 0b  |e....INC &70....|
00000180  49 4e 43 20 26 37 30 0d  01 0e 0c 42 4e 45 20 6c  |INC &70....BNE l|
00000190  6f 6f 70 0d 01 18 0b 49  4e 43 20 26 37 31 0d 01  |oop....INC &71..|
000001a0  22 0b 4c 44 41 20 26 37  31 0d 01 2c 0c 43 4d 50  |".LDA &71..,.CMP|
000001b0  20 23 26 38 30 0d 01 36  0c 42 4e 45 20 6c 6f 6f  | #&80..6.BNE loo|
000001c0  70 0d 01 40 07 52 54 53  0d 01 4a 09 2e 6f 75 74  |p..@.RTS..J..out|
000001d0  31 0d 01 54 0b 49 4e 43  20 26 37 33 0d 01 5e 0e  |1..T.INC &73..^.|
000001e0  4a 4d 50 20 6d 69 64 64  6c 65 0d 01 68 12 5c 20  |JMP middle..h.\ |
000001f0  52 65 64 72 61 77 20 69  6d 61 67 65 0d 01 72 14  |Redraw image..r.|
00000200  5c 20 6f 6e 20 74 68 65  20 73 63 72 65 65 6e 2e  |\ on the screen.|
00000210  0d 01 7c 0b 2e 64 65 63  6f 6d 70 0d 01 86 0a 4c  |..|..decomp....L|
00000220  44 59 20 23 30 0d 01 90  0c 4c 44 41 20 23 26 33  |DY #0....LDA #&3|
00000230  30 0d 01 9a 0b 53 54 41  20 26 37 31 0d 01 a4 0c  |0....STA &71....|
00000240  4c 44 41 20 23 26 35 38  0d 01 ae 0b 53 54 41 20  |LDA #&58....STA |
00000250  26 37 33 0d 01 b8 0a 4c  44 41 20 23 30 0d 01 c2  |&73....LDA #0...|
00000260  0b 53 54 41 20 26 37 30  0d 01 cc 0b 53 54 41 20  |.STA &70....STA |
00000270  26 37 32 0d 01 d6 0a 2e  6c 6f 6f 70 32 0d 01 e0  |&72.....loop2...|
00000280  0f 4c 44 41 20 28 26 37  30 29 2c 59 0d 01 ea 0f  |.LDA (&70),Y....|
00000290  53 54 41 20 28 26 37 32  29 2c 59 0d 01 f4 0b 49  |STA (&72),Y....I|
000002a0  4e 43 20 26 37 32 0d 01  fe 0f 53 54 41 20 28 26  |NC &72....STA (&|
000002b0  37 32 29 2c 59 0d 02 08  0b 49 4e 43 20 26 37 32  |72),Y....INC &72|
000002c0  0d 02 12 0b 49 4e 43 20  26 37 30 0d 02 1c 0b 4c  |....INC &70....L|
000002d0  44 41 20 26 37 30 0d 02  26 0c 42 45 51 20 6f 75  |DA &70..&.BEQ ou|
000002e0  74 32 0d 02 30 0d 2e 63  6f 6e 74 69 6e 75 65 0d  |t2..0..continue.|
000002f0  02 3a 0b 4c 44 41 20 26  37 32 0d 02 44 0d 42 4e  |.:.LDA &72..D.BN|
00000300  45 20 6c 6f 6f 70 32 0d  02 4e 0b 49 4e 43 20 26  |E loop2..N.INC &|
00000310  37 33 0d 02 58 0b 4c 44  41 20 26 37 31 0d 02 62  |73..X.LDA &71..b|
00000320  0c 43 4d 50 20 23 26 34  34 0d 02 6c 0d 42 4e 45  |.CMP #&44..l.BNE|
00000330  20 6c 6f 6f 70 32 0d 02  76 07 52 54 53 0d 02 80  | loop2..v.RTS...|
00000340  09 2e 6f 75 74 32 0d 02  8a 0b 49 4e 43 20 26 37  |..out2....INC &7|
00000350  31 0d 02 94 10 4a 4d 50  20 63 6f 6e 74 69 6e 75  |1....JMP continu|
00000360  65 0d 02 9e 1c 5c 20 44  6f 75 62 6c 65 20 74 68  |e....\ Double th|
00000370  65 20 68 65 69 67 68 74  20 6f 66 20 61 0d 02 a8  |e height of a...|
00000380  1b 5c 20 35 6b 20 63 68  75 6e 6b 20 6f 66 20 73  |.\ 5k chunk of s|
00000390  63 72 65 65 6e 2e 2e 2e  0d 02 b2 0b 2e 64 62 6c  |creen........dbl|
000003a0  68 73 63 0d 02 bc 0c 4c  44 41 20 23 26 32 38 0d  |hsc....LDA #&28.|
000003b0  02 c6 0b 53 54 41 20 26  37 34 0d 02 d0 0a 4c 44  |...STA &74....LD|
000003c0  41 20 23 30 0d 02 da 0b  53 54 41 20 26 37 30 0d  |A #0....STA &70.|
000003d0  02 e4 0b 53 54 41 20 26  37 32 0d 02 ee 0c 4c 44  |...STA &72....LD|
000003e0  41 20 23 26 35 38 0d 02  f8 0b 53 54 41 20 26 37  |A #&58....STA &7|
000003f0  33 0d 03 02 0c 4c 44 41  20 23 26 33 30 0d 03 0c  |3....LDA #&30...|
00000400  0b 53 54 41 20 26 37 31  0d 03 16 0a 4c 44 59 20  |.STA &71....LDY |
00000410  23 30 0d 03 20 07 2e 73  74 0d 03 2a 0a 4c 44 58  |#0.. ..st..*.LDX|
00000420  20 23 34 0d 03 34 0c 2e  64 62 6c 6f 6f 70 31 0d  | #4..4..dbloop1.|
00000430  03 3e 0f 4c 44 41 20 28  26 37 30 29 2c 59 0d 03  |.>.LDA (&70),Y..|
00000440  48 0f 53 54 41 20 28 26  37 32 29 2c 59 0d 03 52  |H.STA (&72),Y..R|
00000450  0b 49 4e 43 20 26 37 32  0d 03 5c 0f 53 54 41 20  |.INC &72..\.STA |
00000460  28 26 37 32 29 2c 59 0d  03 66 0b 49 4e 43 20 26  |(&72),Y..f.INC &|
00000470  37 32 0d 03 70 0b 4c 44  41 20 26 37 32 0d 03 7a  |72..p.LDA &72..z|
00000480  0b 42 45 51 20 72 74 31  0d 03 84 08 2e 62 6b 31  |.BEQ rt1.....bk1|
00000490  0d 03 8e 0b 49 4e 43 20  26 37 30 0d 03 98 0b 4c  |....INC &70....L|
000004a0  44 41 20 26 37 30 0d 03  a2 0b 42 45 51 20 72 74  |DA &70....BEQ rt|
000004b0  32 0d 03 ac 08 2e 62 6b  32 0d 03 b6 07 44 45 58  |2.....bk2....DEX|
000004c0  0d 03 c0 0f 42 4e 45 20  64 62 6c 6f 6f 70 31 0d  |....BNE dbloop1.|
000004d0  03 ca 07 43 4c 43 0d 03  d4 0b 4c 44 41 20 26 37  |...CLC....LDA &7|
000004e0  32 0d 03 de 0c 41 44 43  20 23 26 33 38 0d 03 e8  |2....ADC #&38...|
000004f0  0b 53 54 41 20 26 37 32  0d 03 f2 0b 4c 44 41 20  |.STA &72....LDA |
00000500  26 37 33 0d 03 fc 0a 41  44 43 20 23 31 0d 04 06  |&73....ADC #1...|
00000510  0b 53 54 41 20 26 37 33  0d 04 10 0a 4c 44 58 20  |.STA &73....LDX |
00000520  23 34 0d 04 1a 0c 2e 64  62 6c 6f 6f 70 32 0d 04  |#4.....dbloop2..|
00000530  24 0f 4c 44 41 20 28 26  37 30 29 2c 59 0d 04 2e  |$.LDA (&70),Y...|
00000540  0f 53 54 41 20 28 26 37  32 29 2c 59 0d 04 38 0b  |.STA (&72),Y..8.|
00000550  49 4e 43 20 26 37 32 0d  04 42 0f 53 54 41 20 28  |INC &72..B.STA (|
00000560  26 37 32 29 2c 59 0d 04  4c 0b 49 4e 43 20 26 37  |&72),Y..L.INC &7|
00000570  32 0d 04 56 0b 4c 44 41  20 26 37 32 0d 04 60 0b  |2..V.LDA &72..`.|
00000580  42 45 51 20 72 74 33 0d  04 6a 08 2e 62 6b 33 0d  |BEQ rt3..j..bk3.|
00000590  04 74 0b 49 4e 43 20 26  37 30 0d 04 7e 0b 4c 44  |.t.INC &70..~.LD|
000005a0  41 20 26 37 30 0d 04 88  0b 42 45 51 20 72 74 34  |A &70....BEQ rt4|
000005b0  0d 04 92 08 2e 62 6b 34  0d 04 9c 07 44 45 58 0d  |.....bk4....DEX.|
000005c0  04 a6 0f 42 4e 45 20 64  62 6c 6f 6f 70 32 0d 04  |...BNE dbloop2..|
000005d0  b0 07 53 45 43 0d 04 ba  0b 4c 44 41 20 26 37 32  |..SEC....LDA &72|
000005e0  0d 04 c4 0c 53 42 43 20  23 26 34 30 0d 04 ce 0b  |....SBC #&40....|
000005f0  53 54 41 20 26 37 32 0d  04 d8 0b 4c 44 41 20 26  |STA &72....LDA &|
00000600  37 33 0d 04 e2 0a 53 42  43 20 23 31 0d 04 ec 0b  |73....SBC #1....|
00000610  53 54 41 20 26 37 33 0d  04 f6 0b 44 45 43 20 26  |STA &73....DEC &|
00000620  37 34 0d 05 00 0b 4c 44  41 20 26 37 34 0d 05 0a  |74....LDA &74...|
00000630  0a 42 4e 45 20 73 74 0d  05 14 07 43 4c 43 0d 05  |.BNE st....CLC..|
00000640  1e 0b 4c 44 41 20 26 37  32 0d 05 28 0c 41 44 43  |..LDA &72..(.ADC|
00000650  20 23 26 34 30 0d 05 32  0b 53 54 41 20 26 37 32  | #&40..2.STA &72|
00000660  0d 05 3c 0b 4c 44 41 20  26 37 33 0d 05 46 0a 41  |..<.LDA &73..F.A|
00000670  44 43 20 23 31 0d 05 50  0b 53 54 41 20 26 37 33  |DC #1..P.STA &73|
00000680  0d 05 5a 0c 4c 44 41 20  23 26 32 38 0d 05 64 0b  |..Z.LDA #&28..d.|
00000690  53 54 41 20 26 37 34 0d  05 6e 0b 4c 44 41 20 26  |STA &74..n.LDA &|
000006a0  37 33 0d 05 78 0a 42 50  4c 20 73 74 0d 05 82 07  |73..x.BPL st....|
000006b0  52 54 53 0d 05 8c 08 2e  72 74 31 0d 05 96 13 49  |RTS.....rt1....I|
000006c0  4e 43 20 26 37 33 3a 4a  4d 50 20 62 6b 31 0d 05  |NC &73:JMP bk1..|
000006d0  a0 08 2e 72 74 32 0d 05  aa 13 49 4e 43 20 26 37  |...rt2....INC &7|
000006e0  31 3a 4a 4d 50 20 62 6b  32 0d 05 b4 08 2e 72 74  |1:JMP bk2.....rt|
000006f0  33 0d 05 be 13 49 4e 43  20 26 37 33 3a 4a 4d 50  |3....INC &73:JMP|
00000700  20 62 6b 33 0d 05 c8 08  2e 72 74 34 0d 05 d2 13  | bk3.....rt4....|
00000710  49 4e 43 20 26 37 31 3a  4a 4d 50 20 62 6b 34 0d  |INC &71:JMP bk4.|
00000720  05 dc 05 5d 0d 05 e6 05  ed 0d 05 f0 07 eb 20 35  |...].......... 5|
00000730  0d 05 fa 13 ef 20 32 33  2c 31 2c 30 3b 30 3b 30  |..... 23,1,0;0;0|
00000740  3b 30 3b 0d 06 04 0a f2  64 65 6d 6f 31 0d 06 0e  |;0;.....demo1...|
00000750  0a d6 20 63 6f 6d 70 0d  06 18 11 ef 20 37 20 3a  |.. comp..... 7 :|
00000760  20 47 3d a5 20 3a 20 db  0d 06 22 0c d6 20 64 65  | G=. : ...".. de|
00000770  63 6f 6d 70 0d 06 2c 0b  47 3d a5 20 3a 20 db 0d  |comp..,.G=. : ..|
00000780  06 36 0a f2 64 65 6d 6f  32 0d 06 40 10 ef 20 37  |.6..demo2..@.. 7|
00000790  3a 20 47 3d a5 20 3a 20  db 0d 06 4a 0c d6 20 64  |: G=. : ...J.. d|
000007a0  62 6c 68 73 63 0d 06 54  05 e0 0d 06 5e 05 20 0d  |blhsc..T....^. .|
000007b0  06 68 0c dd 20 f2 64 65  6d 6f 32 0d 06 72 0d 6e  |.h.. .demo2..r.n|
000007c0  6f 25 3d 26 35 35 41 41  0d 06 7c 1d ef 20 32 33  |o%=&55AA..|.. 23|
000007d0  2c 26 46 46 2c 6e 6f 25  3b 6e 6f 25 3b 6e 6f 25  |,&FF,no%;no%;no%|
000007e0  3b 6e 6f 25 3b 0d 06 86  0e e3 20 78 25 3d 30 20  |;no%;..... x%=0 |
000007f0  b8 20 33 0d 06 90 12 e3  20 79 25 3d 33 20 b8 20  |. 3..... y%=3 . |
00000800  30 20 88 2d 31 0d 06 9a  08 fb 20 78 25 0d 06 a4  |0 .-1..... x%...|
00000810  0c fb 20 79 25 2b 31 32  38 0d 06 ae 10 f1 20 c4  |.. y%+128..... .|
00000820  32 30 2c bd 32 35 35 29  3b 0d 06 b8 05 ed 0d 06  |20,.255);.......|
00000830  c2 05 ed 0d 06 cc 09 e6  20 30 2c 33 0d 06 d6 0b  |........ 0,3....|
00000840  ec 20 30 2c 35 30 38 0d  06 e0 0e df 20 31 32 37  |. 0,508..... 127|
00000850  38 2c 35 30 38 0d 06 ea  1c f4 20 52 65 6c 6f 63  |8,508..... Reloc|
00000860  61 74 65 20 67 72 61 70  68 69 63 73 20 64 61 74  |ate graphics dat|
00000870  61 0d 06 f4 19 e3 20 78  25 3d 26 33 30 30 30 20  |a..... x%=&3000 |
00000880  b8 20 26 34 36 30 30 20  88 34 0d 06 fe 13 21 78  |. &4600 .4....!x|
00000890  25 3d 21 28 78 25 2b 26  32 38 30 30 29 0d 07 08  |%=!(x%+&2800)...|
000008a0  05 ed 0d 07 12 05 e1 0d  07 1c 05 20 0d 07 26 0c  |........... ..&.|
000008b0  dd 20 f2 64 65 6d 6f 31  0d 07 30 09 e6 20 33 2c  |. .demo1..0.. 3,|
000008c0  33 0d 07 3a 16 e3 20 64  25 3d 30 20 b8 20 31 32  |3..:.. d%=0 . 12|
000008d0  37 38 20 88 20 32 34 0d  07 44 0a ec 20 64 25 2c  |78 . 24..D.. d%,|
000008e0  30 0d 07 4e 0d df 20 64  25 2c 31 30 32 34 0d 07  |0..N.. d%,1024..|
000008f0  58 05 ed 0d 07 62 09 e6  20 33 2c 32 0d 07 6c 16  |X....b.. 3,2..l.|
00000900  e3 20 65 25 3d 30 20 b8  20 31 30 32 34 20 88 20  |. e%=0 . 1024 . |
00000910  31 32 0d 07 76 0a ec 20  30 2c 65 25 0d 07 80 0d  |12..v.. 0,e%....|
00000920  df 20 31 32 37 38 2c 65  25 0d 07 8a 05 ed 0d 07  |. 1278,e%.......|
00000930  94 05 e1 0d ff                                    |.....|
00000935