Think #30 09 августа 1999

Программирование

Assembler - LED - color squares.

                ASSEMBLER.


; DIMIKSOFT PRESENTS:
; INDICATOR FOR AY-8910 (8912) - Color
; Squares ... (In the upper third of the screen).



; Procedure is taken from a musical demonstration; function 
"EXODUS". 


        ORG 50000

        LD BC, # FFFD

        LD A, # 08

        OUT (C), A

        IN A, (C)

        SRL A

        AND # 07

        SLA A

        SLA A

        SLA A

        LD (# 581E), A

        LD (# 5869), A

        LD (# 5907), A

        LD (# 589D), A

        LD (# 58A6), A

        LD A, # 09

        OUT (C), A

        IN A, (C)

        SRL A

        AND # 07

        SLA A

        SLA A

        SLA A

        LD (# 5823), A

        LD (# 5832), A

        LD (# 58E3), A

        LD (# 58BA), A

        LD (# 58C9), A

        LD A, # 0A

        OUT (C), A

        IN A, (C)

        SRL A

        AND # 07

        SLA A

        SLA A

        SLA A

        LD (# 582C), A

        LD (# 5839), A

        LD (# 5875), A

        LD (# 5882), A

        LD (# 58FC), A

        RET

 Source provided in this section, the procedure indicator can 
be found after newspaper. (For assembler ZX-ASM v3).