سورس برنامه برای z80

[sange_sabur]

درود
سورس برنامه ای رو میخواستم برای Z80 که بتونه
چراغ هایی به صورت زیر روشن کنه.
****
***
**
*
****
***
**
*

و همچنین

****
**
*
****
**
*
لطفا کمک کنید.ممنون میشم.

[mohammad.ta]

سلام اگه میتونین این کدروواسم اصلاحش کنین وقتی باsimilator z80اجراش میکنم قسمت های پرانتزدارش خطامیده
INIT: LD HL,RAM
LD C,4
INIT LD (HL),00H
INC HL
DEC C
JR NZ,INIT1
LD A,0EEH
LD (POINT),A
LD A,0
LD (POS),A
ORG 66H
DISPLAY: PUSH AF
PUSH HL
LD A,(POINT)
OUT (PORTB),A
RLC
LD (POINT),A
LD A,(POS)
LD HL,RAM
LD L,A
LD A,HL
OUT (PORTA),A
LD A,L
INC A
LD (POS),A
SUB A,4
JR NZ,DISPLAY1
LD (POS),A
DISPLAY1: POP HL
POP AF
RET
ORG 2000H
RAM: DS 4