|
This page contains no introduction. |
Source Code Fragment#
Several strings of uncompiled source code can be found in offset 0x1275D:
LD DE,(MML.DATA.ADR)
ADD HL,DE
JP NOTE.SET.LOOP
;
LOOP.BREAK.COM
POP HL
LD E,(IX+@LOOP.STACK.ADR)
LD D,(IX+@LOOP.STACK.ADR+1)
LD A,(DE)
DEC A
JP Z,LOOP.BREAK.COM.1
INC HL
INC HL
JP NOTE.SET.LOOP
LOOP.BREAK.COM.1
DEC DE
LD (IX+@LOOP.STACK.ADR),E
LD (IX+@LOOP.STACK.ADR+1),D
LD E,(HL)
INC HL
LD D,(HL)
EX DE,HL
LD DE,(MML.DATA.ADR)
ADD HL,DE
JP NOTE.SET.LOOP
;
LOOP.START.COM
POP HL
LD E,(IX+@LOOP.STACK.ADR)
LD D,(IX+@LOOP.STACK.ADR+1)
INC DE
LD A,(HL)
INC HL
LD (DE),A
LD (IX+@LOOP.STACK.ADR),E
LD (IX+@LOOP.STACK.ADR+1),D
JP NOTE.SET.LOOP
;
SOFT.LFO.COM
POP HL
EX DE,HL
LD HL,IX
LD BC,@LFO.SPEED
ADD HL,BC
EX DE,HL
; LD BC,5
LDI:LDI:LDI:LDI:LDI
JP NOTE.SET.LOOP
;
LFO.DELAY.COM
POP HL
LD A,(HL)
INC HL
LD (IX+@LFO.DELAY),A
JP NOTE.SET.LOOP
;
LFO.SPEED.COM
POP HL
LD A,(HL)
INC HL
LD (IX+@LFO.SPEED),A
JP NOTE.SET.LOOP
;
PORTAMENTO.COM
POP HL
PUSH HL
LD A,(HL)
SRL A
LD H,A
LD L,0
LD E,(IX+@DETUNE)
LD D,(IX+@DETUNE+1)
ADD HL,DE
LD A,H
LD D,0
CP 12*4
JP C,PORTAMENTO.COM.2
SET 2,D
SUB 12*4
PORTAMENTO.COM.2
CP 12*2
JP C,PORTAMENTO.COM.3
SET 1,D
SUB 12*2
PORTAMENTO.COM.3
CP 12
JP C,PORTAMENTO.COM.4
INC D
SUB 12
PORTAMENTO.COM.4
LD H,A
LD (IX+@FREQNO),L
LD (IX+@FREQNO+1),H
; INC D
LD (IX+@OCTERVE),D
CA