Prev: DD0B Up: Map Next: DF5B
DD35: Routine at DD35
Used by the routine at CheckCharacterID.
DD35 AND A
DD36 RET Z
DD37 PUSH IX
DD39 CALL FetchObjectDataPointer
DD3C LD A,(IX+$05)
DD3F AND $28
DD41 LD A,(IX+$02)
DD44 POP IX
DD46 JR Z,$DD4F
DD48 CP (IY+$02)
DD4B JR C,$DD4F
DD4D XOR A
DD4E RET
DD4F OR $01
DD51 RET
DD52 AND H
DD53 NOP
DD54 RLA
DD55 LD H,C
DD56 DEFB $DD
DD57 DEFB $FD
DD58 RST $38
DD59 LD H,B
DD5A DEFB $DD
DD5B LD DE,$60FD
DD5E DEFB $DD
DD5F DEC BC
DD60 LD A,(BC)
DD61 LD H,H
DD62 NOP
DD63 LD L,(HL)
DD64 DEFB $DD
DD65 LD A,(IX+$00)
DD68 LD ($9FD7),A
DD6B OR $01
DD6D RET
DD6E LD A,($A034)
DD71 CALL ProcessObjectDisplayType
DD74 CP $FF
DD76 JP Z,ReturnZero
DD79 LD A,(IX+$00)
DD7C CP $0B
DD7E JP NC,ReturnZero
DD81 OR $01
DD83 RET
DD84 LD L,L
DD85 NOP
DD86 SUB C
DD87 DEFB $DD
DD88 LD A,(IX+$01)
DD8B LD ($9FD6),A
DD8E OR $01
DD90 RET
DD91 LD IX,($A013)
DD95 LD A,(IX+$01)
DD98 AND A
DD99 INC A
DD9A JP Z,ReturnZero
DD9D RET
DD9E DEC C
DD9F DJNZ $DDDB
DDA1 INC (HL)
DDA2 AND B
DDA3 CALL FindCharacter
DDA6 CP $FF
DDA8 LD A,$00
DDAA JR Z,$DDAE
DDAC LD A,$01
DDAE CALL ProcessTextTokenStream_12
DDB1 OR $01
DDB3 RET
DDB4 LD B,B
DDB5 LD D,B
DDB6 CP B
DDB7 DEFB $DD
DDB8 CALL CheckFlagAndJumpToNewline
DDBB OR $01
DDBD RET
DDBE LD B,B
DDBF NOP
DDC0 CP B
DDC1 DEFB $DD
DDC2 LD A,($A034)
DDC5 LD ($A01F),A
DDC8 OR $01
DDCA RET
DDCB NOP
DDCC NOP
DDCD NOP
DDCE NOP
DDCF NOP
DDD0 LD B,L
DDD1 NOP
DDD2 CP B
DDD3 LD IX,($A02F)
DDD7 RES 7,H
DDD9 PUSH HL
DDDA LD A,H
DDDB AND $3F
DDDD LD H,A
DDDE LD A,L
DDDF AND $3F
DDE1 LD L,A
DDE2 CALL $DE48
DDE5 LD ($DDCD),HL
DDE8 LD HL,($9FDF)
DDEB CALL $DE48
DDEE LD ($DDCB),HL
DDF1 POP HL
DDF2 LD A,$61
DDF4 LD ($DDCF),A
DDF7 BIT 6,H
DDF9 JR NZ,$DE19
DDFB LD A,$70
DDFD LD ($DDCF),A
DE00 BIT 6,L
DE02 JR NZ,$DE19
DE04 CALL $DE60
DE07 LD A,($9FE2)
DE0A JR C,$DE0E
DE0C JR NZ,$DE16
DE0E CP $61
DE10 LD A,$70
DE12 JR Z,$DE16
DE14 LD A,$61
DE16 LD ($DDCF),A
DE19 LD HL,($DDCD)
DE1C LD DE,($DDCB)
DE20 AND A
DE21 SBC HL,DE
DE23 LD DE,$02D0
DE26 LD A,($9FE2)
DE29 LD C,A
DE2A LD A,($DDCF)
DE2D LD B,A
DE2E CALL $DE60
DE31 JR C,$DE3C
DE33 JR Z,$DE3C
DE35 LD A,B
DE36 CP C
DE37 JR Z,$DE42
DE39 ADD HL,DE
DE3A JR $DE42
DE3C ADD HL,DE
DE3D LD A,B
DE3E CP C
DE3F JR NZ,$DE42
DE41 ADD HL,DE
DE42 LD ($A01F),HL
DE45 OR $01
DE47 RET
DE48 PUSH DE
DE49 PUSH BC
DE4A LD C,L
DE4B LD B,H
DE4C LD HL,$0000
DE4F LD DE,$003C
DE52 LD A,B
DE53 CP $0C
DE55 JR Z,$DE5A
DE57 ADD HL,DE
DE58 DJNZ $DE57
DE5A LD B,$00
DE5C ADD HL,BC
DE5D POP BC
DE5E POP DE
DE5F RET
DE60 PUSH HL
DE61 PUSH DE
DE62 LD HL,($DDCD)
DE65 LD DE,($DDCB)
DE69 AND A
DE6A SBC HL,DE
DE6C POP DE
DE6D POP HL
DE6E RET
DE6F JR NZ,$DE81
DE71 CALL PrintNewline
DE74 LD HL,$68AD
DE77 CALL PrintTextAndHandleControlCharacters
DE7A LD A,($A036)
DE7D CALL CountObjectsInLocation
DE80 AND A
DE81 LD HL,$6900
DE84 JR NZ,$DE8C
DE86 CALL PrintTextAndHandleControlCharacters
DE89 OR $01
DE8B RET
DE8C LD C,A
DE8D LD A,($A00A)
DE90 LD B,A
DE91 LD A,($A036)
DE94 CALL PrintObjectListWithFormatting
DE97 CALL PrintNewline
DE9A OR $01
DE9C RET
DE9D JR C,$DEAF
DE9F ADD A,B
DEA0 LD HL,$0000
DEA3 NOP
DEA4 LD IX,($A013)
DEA8 SET 5,(IX+$05)
DEAC OR $01
DEAE RET
DEAF JR C,$DEC1
DEB1 NOP
DEB2 JR NZ,$DEB4
DEB4 NOP
DEB5 NOP
DEB6 LD IX,($A013)
DEBA RES 5,(IX+$05)
DEBE OR $01
DEC0 RET
DEC1 LD A,D
DEC2 JR $DE9D
DEC4 SBC A,$09
DEC6 NOP
DEC7 NOP
DEC8 LD B,B
DEC9 JR Z,$DEC8
DECB LD A,(HL)
DECC RRCA
DECD LD (IX+$0F),A
DED0 LD A,($A035)
DED3 LD (IX+$01),A
DED6 OR $01
DED8 RET
DED9 LD IX,($A013)
DEDD LD IY,($A015)
DEE1 LD A,($A035)
This entry point is used by the routine at E17B.
DEE4 LD B,A
DEE5 LD A,(IY+$04)
DEE8 AND $07
DEEA JP Z,ReturnZero
DEED LD A,(IY+$02)
DEF0 SUB (IX+$02)
DEF3 JR C,$DF00
DEF5 PUSH AF
DEF6 LD A,B
DEF7 CALL GetCharacterAttributeWithSign_6
DEFA LD B,A
DEFB POP AF
DEFC SUB B
DEFD JR C,$DF00
DEFF RET NZ
DF00 XOR A
DF01 RET
DF02 LD L,D
DF03 DEC E
DF04 INC H
DF05 RST $18
DF06 LD IY,($A015)
DF0A LD IX,($A013)
DF0E LD A,($A035)
DF11 LD (IX+$01),A
DF14 LD A,(IY+$0F)
DF17 LD (IX+$0F),A
DF1A LD B,A
DF1B LD A,($A034)
DF1E CALL ProcessObjectLocationRecursively
DF21 OR $01
DF23 RET
DF24 LD A,($A034)
DF27 LD B,A
DF28 LD A,($A035)
DF2B JP ProcessObjectAttribute_C8C6
DF2E LD A,($A034)
DF31 CALL GetObjectMotherID
DF34 JR Z,$DF3D
DF36 LD HL,$A036
DF39 CP (HL)
DF3A JP NZ,ReturnZero
DF3D OR $01
DF3F RET
DF40 LD A,B
DF41 DJNZ $DF71
DF43 RST $18
DF44 ADD A,B
DF45 LD B,B
DF46 NOP
DF47 NOP
DF48 NOP
DF49 LD A,$01
DF4B LD ($CAAE),A
DF4E CALL CheckCharacterID
DF51 RET NZ
DF52 CALL PrintObjectDescriptionText
DF55 CALL PrintNewline
DF58 OR $01
DF5A RET
Prev: DD0B Up: Map Next: DF5B