Задача кодирование

[Vanya-tim]

Привет!

Помогите, пожалуйста, решить задачу на Assembler для I8085.

Есть исходник программы, на основе которого надо решить следующую задачу (точнее просто дополнить):

Для кодирования содержимого буфера BUF1 и декодирования BUF2 использовать суммирование-вычитание текста с арифметической прогрессией, параметры которой a0 = 1, d = 16. Организовать вывод членов АП в выходной файл.

L_01.A85

; ВАРИАНТ ПРОГРАММЫ ИЗ НЕСКОЛЬКИХ ИСХОДНЫХ ФАЙЛОВ
; РАЗДЕЛ 7 ЛАБОРАТОРНОГО ПРАКТИКУМА
;-------------------------------------------------
; MAIN PROGRAM

%INCLUDE "OPIS.INC"	; ПОДКЛЮЧЕНИЕ 
%INCLUDE "LAB_IO.INC"	;	ДОПОЛНИТЕЛЬНЫХ 
%INCLUDE "INIT_BU.MAC"	;	 ТЕКСТОВЫХ ФАЙЛОВ

RAM EQU 0800H
ROM EQU 0000H
LEN_RAM EQU 0800H

;	BUFFERS
TEXTSIZE EQU 20H

DEFSEG DATA1,CLASS=DATA,START=RAM
SEG DATA1
BUF1: DS TEXTSIZE
BUF2: DS TEXTSIZE
BUF3: DS TEXTSIZE

; STACK
STACKSIZE	EQU	32
DEFSEG STACK,CLASS=DATA,START=RAM+LEN_RAM-STACKSIZE
SEG STACK
STACKR: DS STACKSIZE
STPOINT EQU $ ;

; FLAGS
SEG DATA1
PASS1	DS	1
; MASKS FOR EXAMPLES
MASK11 EQU 00000011B ;
MASK12	EQU	01010000B	;

;
; PROGRAMM
;
EXTERN DEQH	; ОБЪЯВЛЕНИЕ ВНЕШНЕГО ИМЕНИ, 
; ПОДКЛЮЧАЕМОГО НА СТАДИИ КОМПОНОВКИ

SEG CODE

PROG: LXI SP,STPOINT
MVI A,0 ;ALL INPUT
OUT DB8355
DCR A
OUT DA8355 ;ALL OUTPUT

INIT1	STACKR,'.',STACKSIZE
INIT1 BUF1,'1',TEXTSIZE
INIT1 BUF2,'2',TEXTSIZE
INIT1 BUF3,'3',TEXTSIZE
;
; MAIN
;
; INPUT TO PORT A 8355
LXI H,BUF1+TEXTSIZE-1
MVI	M,0	;END OF BUFFER
XCHG
LXI H,BUF1
LOOPIN:
IN PB8355
MOV M,A
INX H
CALL DEQH
JNZ LOOPIN
; DECODING
LXI H,BUF1
CALL	KONSUM

LXI	D,BUF2
MVI	A,1
STA	PASS1
LOOP1:
MOV A,M
ORA	A
JZ	ENDTEXT
CALL	CODING
STAX	D
INX	H
INX	D
JMP	LOOP1
ENDTEXT:
STAX D
LDA	PASS1
ORA	A
MVI	A,0
STA	PASS1
JZ	HALT
PRODOLJ:
; ONCE MORE
LXI	H,BUF2
LXI	D,BUF3
JMP	LOOP1
;
HALT:
LXI H,BUF3
CALL KONSUM
; OUTPUT FROM THE PORT B
LXI H,BUF2
MVI B,TEXTSIZE-1
LOOPOUT:
MOV A,M
OUT PA8355
INX H
DCR B
JNZ LOOPOUT

HLT

;======	SUBROUTINES ============
CODING:
CMA
RET

KONSUM:
;
RET

END

То, что сделал я упорно не работает. Если даже и кодирует, то в буфер писать отказывается на отрез это точно!

Спасибо за помощь заранее!