D004: Script routine: (48)
| D004 |
CALL $D02C |
| D007 |
OR A |
| D008 |
JP Z,AdvanceScriptInstruction |
| D00B |
LD A,$02 |
| D00D |
CALL $955A |
| D010 |
OR A |
| D011 |
JR Z,$D019 |
| D013 |
LD HL,$CF53 |
| D016 |
JP ScriptInstruction |
| D019 |
SET 5,(IY+$09) |
| D01D |
LD A,($6DB2) |
| D020 |
INC A |
| D021 |
LD ($6DB2),A |
| D024 |
LD A,$07 |
| D026 |
CALL $D899 |
| D029 |
JP AdvanceScriptInstruction |
| D02C |
LD IY,($6D73) |
| D030 |
LD A,(IY+$01) |
| D033 |
CP $03 |
| D035 |
JR Z,$D06C |
| D037 |
LD A,($6D8A) |
| D03A |
CP $02 |
| D03C |
JR NZ,$D06C |
| D03E |
LD B,$03 |
| D040 |
LD IY,$CEB5 |
| D044 |
LD DE,$000C |
| D047 |
BIT 4,(IY+$0A) |
| D04B |
JR NZ,$D068 |
| D04D |
LD A,(IY+$00) |
| D050 |
CP $02 |
| D052 |
JR NZ,$D068 |
| D054 |
LD A,(IY+$05) |
| D057 |
CP $7C |
| D059 |
JR NC,$D068 |
| D05B |
LD A,$79 |
| D05D |
CP (IY+$05) |
| D060 |
JR NC,$D068 |
| D062 |
LD A,(IY+$01) |
| D065 |
CP $03 |
| D067 |
RET Z |
| D068 |
ADD IY,DE |
| D06A |
DJNZ $D047 |
| D06C |
XOR A |
| D06D |
RET |
