Users - a “compression” program for compressing text files.

++++++++++++++++++++++++++++++++ 
TEXT: VOROZHKIN ALEXANDER.       
INFORMATION: BAZHENOV STANISLAV.   
MUSIC: KOSHPARENOK PAVEL.        
 SECTION: USERS.           
++++++++++++++++++++++++++++++++ 
  
ABOUT THE 'COMPRESSION' PROGRAM.           
EXPERIENCE OF USING THIS PROGRAM 
WE SHOW THAT IT IS COMPLETE COMPREHENSION 
IT DOES NOT PRODUCE TEXT SESSIONS. 
BEFORE EACH MNEMONIC COMA 
AND THERE IS ONE SPACE LEFT,AND IF 
REMOVE IT, THEN YOU CAN SAVE  
ANOTHER 10% OF THE TEXT VOLUME, THAT FOR  
BIG PROGRAMS ARE NOT BAD.ADDRESS  
TEXT BUFFER IS RECORDED IN A CELL 
YKAH COO1 AND COO2, AND OUTPUT ADDRESS - 
YES AFTER COMPRESSION-B is finished  
CELLS COO1, COO2.IF TEXT -  
THE BUFFER IS LOCATED OTHERWISE  
ADDRESSES OR UPON COMPLETION OF COMP- 
SOURCE TEXT REVISIONS NEEDED  
GO NOT TO ASSEMBLER, THEN  
THE CONTENTS OF THESE CELLS FOLLOW  
CHANGE.PROGRAM CODES:  
  
 21 OO 7O 54 5D O6 OD 7E FE 27  
 C2 16 11 12 1Z 2Z 7E FE 27 C2  
 OD 11 FE ZV C2 22 11 2Z 7E FE  
 OD C2 1B 11 FE OD SA 2C 11 FE  
 2О С2 З1 11 В8 С2 З1 11 1В 12  
 47 1З 2З FE FF C2 O711 С9  
  
 SOURCE TEXT DISASSEMBLED - 
MY PROGRAM IS LISTED BELOW. 
THE OPERATING PRINCIPLES ARE SIMPLE, SO TRE 
THERE IS ONLY SOME EXPLANATION 
 IN THE INITIAL INSTALLATION BLOCK IN  
REGISTERS HL AND DE ARE RECORDED  
ADDRESS OF START OF TEXT PROCESSING, 
IN OUR CASE IT IS EQUAL TO 7OO.  
IN THE REGISTER IN WHICH IN THE PROCESS 
ALL PROGRAM WORK KNOW IS STORED 
READING THE BYTE PRECEDING AN 
LIZED, OD IS RECORDED, THEN  
THERE IS ENTER. AT THE FIRST STAGE ANA- 
LIZA IS FINDING OUT IF IT IS FOLLOW 
FOLLOWING TEXT BY MESSAGE (BY - 
WIDE SIGNS MESSAGE-APOST- 
ROF); IF THIS IS SO, THEN IT IS WITHOUT- 
CHANGES ARE TRANSFERRED TO THE NEW TECH 
ST PROGRAM, IF IT GOES NEXT 
NOT A MESSAGE, IT IS ACCOMPLISHED  
GO TO THE NEXT STAGE OF IMAGE 
BOOTS. FIRST OF ALL CONDITIONAL PRO 
VERKA AVAILABILITY ; AND IF THE RESULT -  
TAT POSITIVE - IT IS FROM THE TEXT 
PROGRAMS ARE EXCLUDED, AND IF  
NEGATIVE ANALYSIS OF LONG- 
PRESSED UNTIL THE END OF THE ORIGIN 
LONG TEXT.                   
  
 ORG 49152  
 LD HL,TEXBUF  
        LD D,Н                  
        LD Е,L                  
        LD В,#OD                
 BEGIN  LD А,(HL)               
        СР #27                  
        JR NZ,СОМ               
 ТЕХТ   LD (DE),А               
        INC DE                  
        INC HL                  
        LD А,(HL)               
        СР #27                  
        JR NZ,ТЕХТ              
 СОМ    СР #ЗВ                  
        JR NZ,ENTER             
 СММ    INC HL                  
        LD А,(HL)               
СР #OD                  
        JR NZ,СММ               
 ENTER  СР #OD                  
        JR NZ,ENTER2            
        СР #2О                  
        JR NZ,LLЗ               
        LD А,В                  
        СР #2С                  
        JR Z,МЗ                 
        СР #ЗА                  
        JR Z,МЗ                 
 ENTER2 LD А,В                  
        СР #OD                  
        JR Z,МЗ                 
        JP LLЧ                  
 LLЗ    СР #2С                  
        JR Z,LLS 
        СР #ЗА                  
        JR NZ,DR                
 LLS    LD А,В                  
 LLЧ    СР #2О                  
        JR NZ,LLб               
        DEC DE                  
 LLб    LD А,(HL)               
 DR     LD (DE),А               
        LD В,А                  
        INC DE                  
 МЗ     INC HL                  
        СР #FF                  
        JR NZ,BEGIN             
        RET                     
 TEXBUF EQU #7ООО               
                                
 ПРИМЕР ОБРАБОТАННОЙ ПРОГРАММОЙ 
'СЖАТИЯ':                       
                                
        ORG 49152               
        LD HL,TEXBUF            
        LD D,Н                  
        LD Е,L                  
        LD В,#OD                
 BEGIN  LD А,(HL)               
        СР #27                  
        JR NZ,СОМ               
 ТЕХТ   LD (DE),А               
        INC DE                  
        INC HL                  
        LD А,(HL)               
        СР #27                  
        JR NZ,ТЕХТ              
 СОМ    СР #ЗВ                  
        JR NZ,ENTER             
 СММ    INC HL                  
        LD А,(HL)               
        СР #OD                  
        JR NZ,СММ               
                                
*******************************