Skip to content

Instantly share code, notes, and snippets.

@kimitoboku

kimitoboku/05-155821.s

Created June 5, 2015 07:22
Show Gist options
  • Save kimitoboku/281ddc3b14b70dd61191 to your computer and use it in GitHub Desktop.
Save kimitoboku/281ddc3b14b70dd61191 to your computer and use it in GitHub Desktop.
Download ZIP
音楽を出力するやつ
Raw
05-155821.s
LD ACC,FFh
ST ACC,(image)
LD ACC,dptr1
ST ACC,(dptr)
L0: LD ACC,(dp
LD IX,ACC
ADD ACC,03h
ST ACC,(dptr)
LD ACC,(IX+0)
CMP ACC,00h
BNZ L1
OUT
LD ACC,(IX+1)
NOLn2: SUB ACC,01h
BNZ NOLn2
LD ACC,(IX+2)
NOLn3: SUB ACC,01h
BNZ NOLn3
BA L0
SUB ACC,dptr2
BNZ L1
LD ACC,dptr1
ST ACC,(dptr)
L1: LD ACC,(IX+2)
ST ACC,(n3)
Ln3: LD ACC,(IX+1)
ST ACC,(n2)
Ln2: LD ACC,(image)
OUT
EOR ACC,FFh
ST ACC,(image)
LD ACC,(IX+0)
Ln1: SUB ACC,01h
BNZ Ln1
LD ACC,(n2)
SUB ACC,01h
ST ACC,(n2)
BNZ Ln2
LD ACC,(n3)
SUB ACC,01h
ST ACC,(n3)
BNZ Ln3
LD ACC,00h
OUT
LD ACC,0Ah
SP: SUB ACC,01h
BNZ SP
BA L0
HLT
END
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment