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