LXI H,0B00H
MVI M,10H
INX H
MVI M,10H
INX H
MVI M,10H
INX H
MVI M,10H
INX H
STARTING:
LDA 2000H
ANI 0FH ;FORTWNW KAI KRATAW TA 4 LSB
CPI 0AH
JNC DIPSIFIOS ;AN EINAI MEGALYTERO, THA PREPEI NA VGALW ASSO STO PRWTO
JMP MONOPSIFIOS
DIPSIFIOS: ;AN EINAI DIPSIFIOS PREPEI NA VALW ASSO KAI KAI NA AFAIRESW DEKA
LXI H,0B04H
SUI 0AH
MOV M,A
INX H
MVI A,01H
MOV M,A
JMP DISPLAY
MONOPSIFIOS: ;OK
LXI H,0B04H
MOV M,A
INX H
MVI M,00H
JMP DISPLAY
DISPLAY:
LXI D,0B00H
PUSH D
PUSH H
CALL STDM
POP H
POP D
CALL DCD
JMP PART2
PART2:
QUIT:
END