Routines
Prev: DE0F Up: Map Next: E3DB
DEED: Routine at DEED
Used by the routine at E901.
DEED LD L,A
DEEE LD ($DF76),HL
DEF1 LD A,($E56C)
DEF4 RRCA
DEF5 RRCA
DEF6 LD ($DF78),A
DEF9 CALL $DEFD
DEFC RET
DEFD LD HL,($DF76)
DF00 LD A,$47
DF02 LD ($DFA9),A
DF05 LD A,$00
DF07 LD ($DFAB),A
DF0A LD B,$02
DF0C PUSH BC
DF0D LD B,$02
DF0F HALT
DF10 PUSH BC
DF11 LD A,($DF78)
DF14 LD B,A
DF15 LD A,$05
DF17 SUB B
DF18 CP $04
DF1A JR NZ,$DF20
DF1C HALT
DF1D HALT
DF1E RLCA
DF1F RLCA
DF20 RLCA
DF21 RLCA
DF22 RLCA
DF23 INC A
DF24 LD ($DF75),A
DF27 PUSH BC
DF28 LD A,(IX+$00)
DF2B ADD A,H
DF2C LD B,A
DF2D LD A,(IX+$01)
DF30 ADD A,L
DF31 LD C,A
DF32 CALL $DFE4
DF35 LD A,(IX+$02)
DF38 ADD A,H
DF39 LD B,A
DF3A LD A,(IX+$03)
DF3D ADD A,L
DF3E LD C,A
DF3F CALL $DFE4
DF42 LD A,(IX+$04)
DF45 ADD A,H
DF46 LD B,A
DF47 LD A,(IX+$05)
DF4A ADD A,L
DF4B LD C,A
DF4C CALL $DFE4
DF4F POP BC
DF50 DJNZ $DF27
DF52 LD A,$47
DF54 LD ($DFA9),A
DF57 LD A,$08
DF59 LD ($DFAB),A
DF5C LD HL,($DF76)
DF5F POP BC
DF60 DJNZ $DF10
DF62 LD A,$00
DF64 LD ($DFAB),A
DF67 LD BC,$0006
DF6A ADD IX,BC
DF6C LD A,$45
DF6E LD ($DFA9),A
DF71 POP BC
DF72 DJNZ $DF0C
DF74 RET
DF75 ADD A,C
DF76 DAA
DF77 LD E,B
DF78 LD BC,$F916
DF7B JP P,$160D
DF7E LD SP,HL
DF7F LD D,$07
DF81 DI
DF82 CALL P,$0616
DF85 JP PE,$0E07
DF88 DI
DF89 JP PE,$EA07
DF8C LD SP,HL
DF8D DEC C
DF8E INC C
DF8F JP PE,$07FA
DF92 LD D,$F3
DF94 JP P,$1707
DF97 LD SP,HL
DF98 LD D,$0D
DF9A JP P,$17F9
DF9D LD SP,HL
DF9E JP PE,$0E0D
DFA1 LD SP,HL
DFA2 JP (HL)
DFA3 RLCA
DFA4 JP PE,$0EF3
DFA7 RLCA
DFA8 JP (HL)
DFA9 LD B,L
DFAA NOP
DFAB NOP
DFAC CALL $DC5C
DFAF PUSH DE
DFB0 LD A,D
DFB1 RRCA
DFB2 RRCA
DFB3 RRCA
DFB4 AND $03
DFB6 OR $58
DFB8 LD D,A
DFB9 LD BC,($DFA9)
DFBD LD A,(DE)
DFBE XOR C
DFBF AND B
DFC0 XOR C
DFC1 LD (DE),A
DFC2 POP DE
DFC3 LD A,H
DFC4 AND $07
DFC6 LD B,A
DFC7 INC B
DFC8 LD A,$FE
DFCA RRCA
DFCB DJNZ $DFCA
DFCD LD B,A
DFCE LD A,($DFAB)
DFD1 LD C,A
DFD2 LD A,(DE)
DFD3 BIT 1,C
DFD5 JR NZ,$DFD8
DFD7 AND B
DFD8 BIT 3,C
DFDA JR NZ,$DFDE
DFDC XOR B
DFDD CPL
DFDE LD (DE),A
DFDF RET
DFE0 RST $38
DFE1 LD BC,$00FF
DFE4 PUSH BC
DFE5 CALL $DFAC
DFE8 POP BC
DFE9 LD DE,$0101
DFEC LD A,B
DFED SUB H
DFEE JR NC,$DFF4
DFF0 DEC D
DFF1 DEC D
DFF2 NEG
DFF4 LD B,A
DFF5 LD A,C
DFF6 SUB L
DFF7 JR NC,$DFFD
DFF9 DEC E
DFFA DEC E
DFFB NEG
DFFD LD C,A
DFFE OR B
DFFF RET Z
E000 LD A,C
E001 CP B
E002 PUSH HL
E003 LD H,D
E004 LD L,E
E005 LD ($DFE0),HL
E008 LD L,$00
E00A JR C,$E010
E00C LD H,L
E00D LD L,E
E00E LD C,B
E00F LD B,A
E010 LD ($DFE2),HL
E013 LD H,B
E014 LD A,B
E015 SRL A
E017 LD L,A
E018 LD A,L
E019 ADD A,C
E01A JR C,$E01F
E01C CP B
E01D JR C,$E027
E01F SUB B
E020 LD L,A
E021 LD DE,($DFE0)
E025 JR $E02C
E027 LD L,A
E028 LD DE,($DFE2)
E02C EX (SP),HL
E02D LD A,H
E02E ADD A,D
E02F LD H,A
E030 LD A,L
E031 ADD A,E
E032 LD L,A
E033 PUSH BC
E034 CALL $DFAC
E037 CALL $E041
E03A POP BC
E03B EX (SP),HL
E03C DEC H
E03D JR NZ,$E018
E03F POP HL
E040 RET
E041 PUSH AF
E042 PUSH HL
E043 LD A,R
E045 RLCA
E046 LD L,A
E047 LD A,R
E049 RRCA
E04A RRCA
E04B RRCA
E04C LD H,A
E04D LD A,(HL)
E04E AND $18
E050 OR $05
E052 OUT ($FE),A
E054 XOR $10
E056 OUT ($FE),A
E058 POP HL
E059 POP AF
E05A RET
This entry point is used by the routine at E901.
E05B LD A,$05
E05D LD C,$AF
E05F LD B,C
E060 SLA B
E062 DJNZ $E062
E064 XOR $10
E066 OUT ($FE),A
E068 DEC C
E069 JR NZ,$E05F
E06B RET
E06C RST $38
E06D RST $38
E06E RST $38
E06F RST $38
E070 RST $38
E071 RST $38
E072 RST $38
E073 RST $38
E074 RST $38
E075 NOP
E076 NOP
E077 NOP
E078 NOP
E079 RST $38
E07A RST $38
E07B LD BC,$0302
E07E INC B
E07F DEC B
E080 RST $38
E081 RST $38
E082 LD B,$07
E084 EX AF,AF'
E085 ADD HL,BC
E086 LD A,(BC)
E087 LD B,B
E088 RST $38
E089 DEC BC
E08A INC C
E08B DEC C
E08C LD C,$0F
E08E RST $38
E08F RST $38
E090 DJNZ $E0A3
E092 LD (DE),A
E093 INC DE
E094 INC D
E095 RST $38
E096 RST $38
E097 RST $38
E098 RST $38
E099 ADD A,B
E09A RST $38
E09B RST $38
E09C RST $38
E09D DEC B
E09E INC B
E09F INC B
E0A0 INC B
E0A1 INC B
E0A2 INC B
E0A3 INC B
E0A4 RLCA
E0A5 DEC B
E0A6 INC BC
E0A7 INC BC
E0A8 INC BC
E0A9 INC BC
E0AA EX AF,AF'
E0AB LD B,$09
E0AD RLCA
E0AE DEC B
E0AF DEC B
E0B0 DEC B
E0B1 DEC B
E0B2 DEC C
E0B3 LD DE,$0F11
E0B6 RRCA
E0B7 LD BC,$0101
E0BA DJNZ $E0CC
E0BC DJNZ $E0CE
E0BE DJNZ $E0D0
E0C0 DJNZ $E0CA
E0C2 LD A,(BC)
E0C3 ADD HL,BC
E0C4 DEC E
E0C5 DEC E
E0C6 DEC E
E0C7 DEC E
E0C8 NOP
E0C9 NOP
E0CA NOP
E0CB NOP
E0CC NOP
E0CD NOP
E0CE NOP
E0CF NOP
E0D0 AND B
E0D1 RRCA
E0D2 ADD HL,BC
E0D3 EX (SP),HL
E0D4 AND B
E0D5 LD HL,$D550
E0D8 LD A,(HL)
E0D9 LD HL,$E06B
E0DC LD B,$00
E0DE LD C,A
E0DF ADD HL,BC
E0E0 LD A,(HL)
E0E1 CALL $DDBD
E0E4 RET
This entry point is used by the routine at E901.
E0E5 LD HL,($E3BB)
E0E8 LD A,(HL)
E0E9 LD ($E0D2),A
E0EC PUSH HL
E0ED CALL $E54C
E0F0 POP HL
E0F1 LD A,$00
E0F3 LD (HL),A
E0F4 LD B,$04
E0F6 LD A,$01
E0F8 LD ($E56C),A
E0FB RET
This entry point is used by the routine at E901.
E0FC PUSH DE
E0FD LD DE,($E3BB)
E101 LD A,(DE)
E102 LD (HL),A
E103 LD A,$00
E105 LD (DE),A
E106 POP DE
E107 RET
This entry point is used by the routine at E901.
E108 LD A,($E3BD)
E10B CP $10
E10D RET Z
E10E LD A,($D54E)
E111 CP $02
E113 RET Z
E114 CP $00
E116 RET Z
E117 LD A,($D548)
E11A LD HL,$D54C
E11D CP (HL)
E11E RET NZ
E11F LD A,($D549)
E122 LD HL,$D54D
E125 CP (HL)
E126 RET NZ
E127 CALL Remove_PlayerCursor
E12A RET
This entry point is used by the routine at E901.
E12B LD HL,$E4A0
E12E LD A,($D552)
E131 CP $0E
E133 JR NZ,$E13A
E135 LD A,$00
E137 LD ($D552),A
E13A LD C,A
E13B LD B,$00
E13D ADD HL,BC
E13E LD A,(HL)
E13F CALL ColouriseHome
E142 HALT
E143 LD HL,$D552
E146 INC (HL)
E147 LD A,(HL)
E148 RLCA
E149 RLCA
E14A LD C,A
E14B LD B,$06
E14D LD A,$05
E14F OUT ($FE),A
E151 XOR $10
E153 PUSH BC
E154 LD B,C
E155 DJNZ $E155
E157 POP BC
E158 DJNZ $E14F
E15A JP $EFBB
This entry point is used by the routine at E901.
E15D LD A,R
E15F LD L,A
E160 LD H,$C8
E162 LD B,$32
E164 LD D,$05
E166 LD A,(HL)
E167 AND $18
E169 OR $05
E16B OUT ($FE),A
E16D INC HL
E16E PUSH BC
E16F LD B,D
E170 DJNZ $E170
E172 POP BC
E173 DJNZ $E166
E175 HALT
E176 HALT
E177 CALL $E859
E17A CP $01
E17C RET Z
E17D CP $02
E17F RET Z
E180 CP $04
E182 RET Z
E183 CP $08
E185 RET Z
E186 HALT
E187 HALT
E188 LD A,R
E18A LD L,A
E18B LD H,$0A
E18D LD B,$23
E18F LD C,$64
E191 LD A,(HL)
E192 AND $18
E194 OR $05
E196 OUT ($FE),A
E198 INC HL
E199 PUSH BC
E19A LD B,C
E19B DJNZ $E19B
E19D POP BC
E19E DJNZ $E191
E1A0 RET
This entry point is used by the routine at E901.
E1A1 LD A,($E3BD)
E1A4 LD HL,$D550
E1A7 CP $01
E1A9 JR NZ,$E204
E1AB LD A,($D549)
E1AE CP $0F
E1B0 JP P,$E347
E1B3 CP $02
E1B5 JR NZ,$E1FB
E1B7 LD A,($D548)
E1BA CP $02
E1BC LD A,($D549)
E1BF JR NZ,$E1FB
E1C1 ADD A,$04
E1C3 LD ($D549),A
E1C6 INC (HL)
E1C7 LD A,$00
E1C9 LD ($D551),A
E1CC LD A,$2F
E1CE CALL ColouriseHome
E1D1 LD HL,$D54B
E1D4 INC (HL)
E1D5 LD B,$03
E1D7 PUSH BC
E1D8 PUSH HL
E1D9 CALL Draw_Cursor
E1DC CALL Home_DefaultAttributes
E1DF CALL $E3BE
E1E2 HALT
E1E3 CALL Remove_PlayerCursorAttributes
E1E6 POP HL
E1E7 POP BC
E1E8 INC (HL)
E1E9 DJNZ $E1D7
E1EB CALL Display_PlayerCursor
E1EE LD A,($D548)
E1F1 LD ($D54C),A
E1F4 LD A,($D549)
E1F7 LD ($D54D),A
E1FA RET
E1FB ADD A,$04
E1FD LD ($D549),A
E200 INC (HL)
E201 JP $E347
E204 CP $02
E206 JR NZ,$E25F
E208 LD A,($D549)
E20B CP $05
E20D JP M,$E347
E210 CP $06
E212 JR NZ,$E256
E214 LD A,($D548)
E217 CP $02
E219 LD A,($D549)
E21C JR NZ,$E256
E21E SUB $04
E220 LD ($D549),A
E223 DEC (HL)
E224 CALL Remove_PlayerCursor
E227 LD HL,$D54B
E22A LD B,$04
E22C CP $02
E22E JR Z,$E208
E230 PUSH BC
E231 PUSH HL
E232 CALL Draw_Cursor
E235 CALL Home_DefaultAttributes
E238 CALL $E3BE
E23B HALT
E23C CALL Remove_PlayerCursorAttributes
E23F POP HL
E240 POP BC
E241 DEC (HL)
E242 DJNZ $E230
E244 LD A,$00
E246 LD ($D551),A
E249 LD A,($D548)
E24C LD ($D54C),A
E24F LD A,($D549)
E252 LD ($D54D),A
E255 RET
E256 SUB $04
E258 LD ($D549),A
E25B DEC (HL)
E25C JP $E347
E25F CP $04
E261 JR NZ,$E286
E263 LD A,($D548)
E266 CP $0F
E268 JP P,$E347
E26B CP $02
E26D JR NZ,$E27A
E26F LD A,($D549)
E272 CP $02
E274 JP Z,$E347
E277 LD A,($D548)
E27A ADD A,$04
E27C LD ($D548),A
E27F LD A,(HL)
E280 ADD A,$07
E282 LD (HL),A
E283 JP $E347
E286 CP $08
E288 JR NZ,$E2AD
E28A LD A,($D548)
E28D CP $05
E28F JP M,$E347
E292 CP $06
E294 JR NZ,$E2A1
E296 LD A,($D549)
E299 CP $02
E29B JP Z,$E347
E29E LD A,($D548)
E2A1 SUB $04
E2A3 LD ($D548),A
E2A6 LD A,(HL)
E2A7 SUB $07
E2A9 LD (HL),A
E2AA JP $E347
E2AD CP $05
E2AF JR NZ,$E2D0
E2B1 LD A,($D549)
E2B4 CP $0F
E2B6 JP P,$E263
E2B9 CP $02
E2BB JR NZ,$E2C8
E2BD LD A,($D548)
E2C0 CP $02
E2C2 JP Z,$E1AB
E2C5 LD A,($D549)
E2C8 ADD A,$04
E2CA LD ($D549),A
E2CD INC (HL)
E2CE JR $E263
E2D0 CP $06
E2D2 JR NZ,$E2F4
E2D4 LD A,($D549)
E2D7 CP $05
E2D9 JP M,$E263
E2DC CP $06
E2DE JR NZ,$E2EB
E2E0 LD A,($D548)
E2E3 CP $02
E2E5 JP Z,$E208
E2E8 LD A,($D549)
E2EB SUB $04
E2ED LD ($D549),A
E2F0 DEC (HL)
E2F1 JP $E263
E2F4 CP $09
E2F6 JR NZ,$E31D
E2F8 LD A,($D549)
E2FB CP $0F
E2FD JP P,$E28A
E300 CP $02
E302 JR NZ,$E314
E304 LD A,($D548)
E307 CP $06
E309 JP Z,$E1AB
E30C CP $02
E30E JP Z,$E1AB
E311 LD A,($D549)
E314 ADD A,$04
E316 LD ($D549),A
E319 INC (HL)
E31A JP $E28A
E31D CP $0A
E31F JP NZ,$F05B
E322 LD A,($D549)
E325 CP $05
E327 JP M,$E28A
E32A CP $06
E32C JR NZ,$E33E
E32E LD A,($D548)
E331 CP $06
E333 JP Z,$E347
E336 CP $02
E338 JP Z,$E208
E33B LD A,($D549)
E33E SUB $04
E340 LD ($D549),A
E343 DEC (HL)
E344 JP $E28A
E347 CALL $E0D5
E34A LD A,($D548)
E34D LD ($D54C),A
E350 LD A,($D549)
E353 LD ($D54D),A
E356 LD A,R
E358 RLCA
E359 LD L,A
E35A LD H,$00
E35C LD B,$46
E35E LD D,$05
E360 LD A,(HL)
E361 AND $18
E363 OR $05
E365 OUT ($FE),A
E367 INC HL
E368 PUSH BC
E369 LD B,D
E36A DJNZ $E36A
E36C POP BC
E36D DJNZ $E360
E36F HALT
E370 LD A,($D548)
E373 LD HL,$D54A
E376 CP (HL)
E377 JR Z,$E380
E379 JP P,$E37F
E37C DEC (HL)
E37D JR $E380
E37F INC (HL)
E380 LD A,($D549)
E383 LD HL,$D54B
E386 CP (HL)
E387 JR Z,$E390
E389 JP P,$E38F
E38C DEC (HL)
E38D JR $E390
E38F INC (HL)
E390 LD A,($D54A)
E393 LD HL,$D548
E396 CP (HL)
E397 JR NZ,$E347
E399 LD A,($D54B)
E39C LD HL,$D549
E39F CP (HL)
E3A0 JR NZ,$E347
E3A2 LD A,R
E3A4 LD L,A
E3A5 LD H,$0A
E3A7 LD B,$23
E3A9 LD C,$64
E3AB LD A,(HL)
E3AC INC HL
E3AD AND $18
E3AF OR $05
E3B1 OUT ($FE),A
E3B3 PUSH BC
E3B4 LD B,C
E3B5 DJNZ $E3B5
E3B7 POP BC
E3B8 DJNZ $E3AB
E3BA RET
E3BB ADD A,L
E3BC RET PO
E3BD DJNZ $E3F9
E3BF LD C,E
E3C0 PUSH DE
E3C1 RLCA
E3C2 RLCA
E3C3 RLCA
E3C4 RLCA
E3C5 LD C,A
E3C6 LD B,$64
E3C8 LD HL,$03E8
E3CB LD A,(HL)
E3CC AND $18
E3CE OR $05
E3D0 OUT ($FE),A
E3D2 INC HL
E3D3 PUSH BC
E3D4 LD B,C
E3D5 DJNZ $E3D5
E3D7 POP BC
E3D8 DJNZ $E3CB
E3DA RET
Prev: DE0F Up: Map Next: E3DB