|
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).
Other articles:
Similar articles:
В этот день... 1 April
Info Guide #13,
ACNews #50,
Avro News #01,
ACNews #47,
ACNews #40,
ACNews #29,
Black Metall #01,
ACNews #16,
Adventurer #13,
Polesse #19,
Subliminal Extacy #03,
ZX Pilot #37,
Always #03,
Born Dead #0G,
Odyssey paper #08,
Optron #26,
City #08,
Zodiac #02,
Polesse #05,
Nicron #108,
X-Magazine #10,
Nicron #82,
Energy #01,
Sorrow News #03,
Sorrow News #02,
Proton #27,
Think #08,
Wallpaper #01,
Spectrum Progress #03,
Spectrum Expert #02,
Micro #01,
X-Files #02,
Gorodok #05,
Deja Vu #04,
Anecdotes #01,
X-Files #02,
Maximum #35,
Impulse #01,
Spectrofun #01,
Faultless #07,
Breeze #06,
Nicron #27,
Echo #03,
Oberon #01,
Spectrofon #19,
On-Line #30,
Sinclair Town #01,
Sinclair Classic #04,
Spectrofon #04