ORG 800H
MVI B,15
MOV C,B
SCG MVI A,'+'
RST 1
DCR C
JZ SCB
MVI A,'-'
RST 1
DCR C
JZ SCB
JNZ SCG
SCB MOV A,H
SUI 1
JZ KON
MVI H,1
MVI A,10
RST 1
MVI A,13
RST 1
MOV A,B
SUI 2
MOV C,A
MVI L,'-'
ZNAK MOV A,B
SUI 2
MOV D,A
MOV A,L
RST 1
SK1 MVI A,' '
RST 1
DCR D
JNZ SK1
MOV A,L
RST 1
MVI A,10
RST 1
MVI A,13
RST 1
MOV A,L
SUI '-'
JZ ZK
MVI L,'-'
JMP DA
ZK MVI L,'+'
DA DCR C
JNZ ZNAK
MOV C,B
JMP SCG
KON HLT
Offline