Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape10a_acorn_eu_1990_april.wav » CPROG1

CPROG1

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape10a_acorn_eu_1990_april.wav
Filename: CPROG1
Read OK:
File size: 0556 bytes
Load address: 2000
Exec address: 1900
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM VDU compression
   20REM By R.Henderson
   30REM (c) Electron User
   40MODE 4
   50PROCassemble
   60PROCimage
   70?&74=40
   80?&75=32
   90CALL compress
  100G=GET
  110CLS
  120CALL decomp
  130?&D0=0
  140VDU 28,8,23,32,8
  150?&35F=10
  160REM Normal cursor
  170CLS
  180END
  190 
  200DEF PROCassemble
  210FORi%=0TO2 STEP2
  220P%=&900
  230[ OPT i%
  240.compress
  250\ Read VDU codes and save in a
  260\ convienient area of memory
  270LDA #0
  280STA &72
  290STA &73
  300STA &70
  310LDA #&30
  320STA &71
  330LDY #0
  340.loop
  350LDA #31
  360JSR &FFEE
  370LDA &72
  380JSR &FFEE
  390LDA &73
  400JSR &FFEE
  410LDA #135
  420JSR &FFF4
  430TXA
  440LDY #0
  450STA (&70),Y
  460INC &72
  470INC &70
  480LDA &70
  490CMP #0
  500BEQ dat
  510.cont
  520LDA &72
  530CMP &74
  540BNE loop
  550LDA #0
  560STA &72
  570INC &73
  580LDA &73
  590CMP &75
  600BNE loop
  610RTS
  620.dat
  630INC &71
  640JMP cont
  650\ Reconstruct
  660\ from VDU codes
  670.decomp
  680LDA #0
  690STA &70
  700LDA #&30
  710STA &71
  720LDA #31
  730JSR &FFEE
  740LDA #0
  750JSR &FFEE
  760JSR &FFEE
  770LDY #0
  780LDA &74
  790STA &72
  800LDA &75
  810STA &73
  820LDY #0
  830.loop2
  840LDA (&70),Y
  850JSR &FFEE
  860DEC &72
  870LDA &72
  880BEQ set2
  890.ret
  900INY
  910BNE loop2
  920INC &71
  930LDA &73
  940BNE loop2
  950.rts RTS
  960.set2
  970LDA #40
  980STA &72
  990DEC &73
 1000BEQ rts
 1010JMP ret
 1020]
 1030NEXT
 1040ENDPROC
 1050 
 1060DEFPROCimage
 1070VDU 23,1,2;0;0;0;0;
 1080?&D0=2
 1090REM Static cursor / no scrolling
 1100FORX=1TO 32
 1110PRINT "This is an example of the VDU compressor";
 1120NEXT
 1130ENDPROC

� 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
CPROG1.m0
CPROG1.m1
CPROG1.m2
CPROG1.m4
CPROG1.m5