Routines
Prev: AADA Up: Map Next: AF29
AB17: Handler: Paris
Handler_Paris AB17 CALL Handler_Paris_8 Call Handler_Paris_8.
AB1A LD A,($7207) Return if *7207 is zero.
AB1D CP $00
AB1F RET Z
AB20 LD HL,($99E3) HL=*99E3.
AB23 LD DE,$0038 HL+=0038.
AB26 ADD HL,DE
AB27 LD A,$C8 Jump to Handler_Paris_0 if L is not equal to C8.
AB29 CP L
AB2A JR NZ,Handler_Paris_0
AB2C LD HL,$5EB0 Write 5EB0 to *99E3.
Handler_Paris_0 AB2F LD ($99E3),HL
AB32 BIT 7,(HL) Test bit 7 of *HL.
AB34 JP Z,Handler_Paris_7 Jump to Handler_Paris_7 if A is zero.
AB37 CALL $9439 Call 9439.
AB3A LD IX,($99E3) IX=*99E3.
AB3E LD A,$80 Jump to Handler_Paris_1 if *IX+00 is equal to 80.
AB40 CP (IX+$00)
AB43 JR Z,Handler_Paris_1
AB45 DEC (IX+$00) Decrease *IX+00 by one.
AB48 CP (IX+$00) Compare A with *IX+00.
AB4B RET NZ Return if {} is not zero.
AB4C LD HL,$AD53 Write AD53 to *ACFA.
AB4F LD ($ACFA),HL
AB52 CALL $994D Call 994D.
AB55 LD HL,($99E3) HL=*99E3.
AB58 LD (HL),$80 Write 80 to *HL.
AB5A RET Return.
Handler_Paris_1 AB5B BIT 5,(IX+$06) Test bit 5 of *IX+06.
AB5F JR Z,Handler_Paris_2 Jump to Handler_Paris_2 if A is zero.
AB61 RES 5,(IX+$06) Reset bit 5 of *IX+06.
AB65 LD L,(IX+$04) L=*IX+04.
AB68 LD H,(IX+$05) H=*IX+05.
AB6B CALL $9604 Call 9604.
AB6E JP NZ,$9926 Jump to 9926 if A is not zero.
AB71 LD (IX+$00),$00 Write 00 to *IX+00.
AB75 JP $9942 Jump to 9942.
Handler_Paris_2 AB78 LD A,($99AB) A=*99AB.
AB7B CP $50 Compare A with 50.
AB7D JR Z,Handler_Paris_4 Jump to Handler_Paris_4 if A is zero.
AB7F LD A,($99AC) A=*99AC.
AB82 CP $00 Compare A with 00.
AB84 JR Z,Handler_Paris_4 Jump to Handler_Paris_4 if A is zero.
AB86 LD A,(IX+$18) A=*IX+18.
AB89 AND %10010000 Keep only bits 4, 7.
AB8B CP $80 Compare A with 80.
AB8D JR NZ,Handler_Paris_4 Jump to Handler_Paris_4 if A is not zero.
AB8F CALL $9619 Call 9619.
AB92 AND %00001111 Keep only bits 0-3.
AB94 OR %10010000 Set bits 4, 7.
AB96 LD IX,($99E3) IX=*99E3.
AB9A LD (IX+$00),A Write A to *IX+00.
AB9D RET Return.
Handler_Paris_3 AB9E AND %01000000 Keep only bits 6.
ABA0 JR Z,Handler_Paris_5 Jump to Handler_Paris_5 if A is zero.
ABA2 LD HL,$7200 HL=7200.
ABA5 SET 4,(HL) Set bit 4 of *HL.
ABA7 JR Handler_Paris_5 Jump to Handler_Paris_5.
Handler_Paris_4 ABA9 LD A,(IX+$07) A=*IX+07.
ABAC CP $00 Compare A with 00.
ABAE JR NZ,Handler_Paris_6 Jump to Handler_Paris_6 if A is not zero.
Handler_Paris_5 ABB0 CALL $9619 Call 9619.
ABB3 LD C,A C=A.
ABB4 AND %00011000 Keep only bits 3-4.
ABB6 LD IX,($99E3) IX=*99E3.
ABBA LD (IX+$06),A Write A to *IX+06.
ABBD LD A,C A=C.
ABBE AND %00000111 Keep only bits 0-2.
ABC0 ADD A,$08 A+=08.
ABC2 LD (IX+$07),A Write A to *IX+07.
ABC5 JP $9926 Jump to 9926.
Handler_Paris_6 ABC8 DEC (IX+$07) Decrease *IX+07 by one.
ABCB LD H,(IX+$05) H=*IX+05.
ABCE LD L,(IX+$04) L=*IX+04.
ABD1 CALL $9375 Call 9375.
ABD4 AND %01100010 Keep only bits 1, 5-6.
ABD6 JR NZ,Handler_Paris_3 Jump to Handler_Paris_3 if A is not zero.
ABD8 LD (IX+$04),L Write L to *IX+04.
ABDB LD (IX+$05),H Write H to *IX+05.
ABDE SET 5,(IX+$06) Set bit 5 of *IX+06.
ABE2 JP $9926 Jump to 9926.
Handler_Paris_7 ABE5 CALL $9439 Call 9439.
ABE8 CALL $9619 Call 9619.
ABEB AND %11110000 Keep only bits 4-7.
ABED LD L,A L=A.
ABEE LD H,$00 H=00.
ABF0 ADD HL,HL HL+=HL.
ABF1 ADD HL,HL HL+=HL.
ABF2 LD DE,$78FE DE=78FE.
ABF5 ADD HL,DE HL+=DE.
ABF6 LD A,$10 A=10.
ABF8 LD IX,($99E3) IX=*99E3.
ABFC CALL $9378 Call 9378.
ABFF AND %01100010 Keep only bits 1, 5-6.
AC01 RET NZ Return if {} is not zero.
AC02 LD A,($99A5) A=*99A5.
AC05 AND %00001111 Keep only bits 0-3.
AC07 LD (IX+$07),A Write A to *IX+07.
AC0A LD (IX+$00),$80 Write 80 to *IX+00.
AC0E LD (IX+$04),L Write L to *IX+04.
AC11 LD (IX+$05),H Write H to *IX+05.
AC14 LD (IX+$06),$30 Write 30 to *IX+06.
AC18 JP $9929 Jump to 9929.
Handler_Paris_8 AC1B LD HL,($7239) HL=*7239.
AC1E BIT 0,(HL) Test bit 0 of *HL.
AC20 JR NZ,Handler_Paris_11 Jump to Handler_Paris_11 if A is not zero.
Handler_Paris_9 AC22 LD HL,($7239) HL=*7239.
AC25 LD DE,$000A DE=000A.
AC28 ADD HL,DE HL+=DE.
AC29 LD A,$80 A=80.
Handler_Paris_10 AC2B CP H Compare A with H.
AC2C LD ($7239),HL Write HL to *7239.
AC2F RET NZ Return if {} is not zero.
AC30 LD HL,$7E00 HL=7E00.
AC33 JR Handler_Paris_10 Jump to Handler_Paris_10.
Handler_Paris_11 AC35 BIT 1,(HL) Test bit 1 of *HL.
AC37 JR NZ,Handler_Paris_12 Jump to Handler_Paris_12 if A is not zero.
AC39 CALL $9619 Call 9619.
AC3C CP $96 Compare A with 96.
AC3E JR C,Handler_Paris_9 Jump to Handler_Paris_9 if A is lower.
AC40 AND %00001100 Keep only bits 2-3.
AC42 LD E,A E=A.
AC43 RLCA RLCA.
AC44 LD IX,($7239) IX=*7239.
AC48 LD L,(IX+$01) L=*IX+01.
AC4B LD H,(IX+$02) H=*IX+02.
AC4E CALL $9378 Call 9378.
AC51 AND %00010001 Keep only bits 0, 4.
AC53 JR NZ,Handler_Paris_9 Jump to Handler_Paris_9 if A is not zero.
AC55 LD A,E A=E.
AC56 OR %00000011 Set bits 0-1.
AC58 LD (IX+$00),A Write A to *IX+00.
Handler_Paris_12 AC5B LD IX,($7239) IX=*7239.
AC5F LD C,(IX+$01) C=*IX+01.
AC62 LD B,(IX+$02) B=*IX+02.
AC65 CALL $93E9 Call 93E9.
AC68 LD IX,($7239) IX=*7239.
AC6C LD A,(IX+$00) A=*IX+00.
AC6F ADD A,$10 A+=10.
AC71 CP $50 Compare A with 50.
AC73 JR C,Handler_Paris_13 Jump to Handler_Paris_13 if A is lower.
AC75 AND %00001101 Keep only bits 0, 2-3.
AC77 LD (IX+$00),A Write A to *IX+00.
AC7A CALL Handler_Paris_15 Call Handler_Paris_15.
AC7D JR Handler_Paris_9 Jump to Handler_Paris_9.
Handler_Paris_13 AC7F LD (IX+$00),A Write A to *IX+00.
AC82 CALL Handler_Paris_17 Call Handler_Paris_17.
AC85 LD A,(IX+$02) A=*IX+02.
AC88 LD D,(IX+$03) D=*IX+03.
AC8B LD IX,($7239) IX=*7239.
AC8F CP $00 Compare A with 00.
AC91 JR Z,Handler_Paris_16 Jump to Handler_Paris_16 if A is zero.
AC93 LD E,A E=A.
AC94 LD L,(IX+$01) L=*IX+01.
AC97 LD H,(IX+$02) H=*IX+02.
AC9A ADD HL,DE HL+=DE.
AC9B LD D,(HL) D=*HL.
AC9C INC HL Increment HL by one.
AC9D LD E,(HL) E=*HL.
AC9E LD A,(DE) A=*DE.
AC9F DEC HL Decrease HL by one.
ACA0 AND %00010001 Keep only bits 0, 4.
ACA2 JR NZ,Handler_Paris_14 Jump to Handler_Paris_14 if HL is not zero.
ACA4 LD (IX+$01),L Write L to *IX+01.
ACA7 LD (IX+$02),H Write H to *IX+02.
ACAA JP $97A7 Jump to 97A7.
Handler_Paris_14 ACAD LD A,(IX+$00) A=*IX+00.
ACB0 AND %00001111 Keep only bits 0-3.
ACB2 OR %01000000 Set bits 6.
ACB4 LD (IX+$00),A Write A to *IX+00.
ACB7 JP Handler_Paris_15 Jump to Handler_Paris_15.
Handler_Paris_15 ACBA CALL Handler_Paris_17 Call Handler_Paris_17.
ACBD LD IX,($7239) IX=*7239.
Handler_Paris_16 ACC1 LD L,(IX+$01) L=*IX+01.
ACC4 LD H,(IX+$02) H=*IX+02.
ACC7 JP $97A7 Jump to 97A7.
Handler_Paris_17 ACCA AND %01111100 Keep only bits 2-6.
ACCC LD E,A E=A.
ACCD LD D,$00 D=00.
ACCF LD IX,$AD03 IX=AD03.
ACD3 ADD IX,DE IX+=DE.
ACD5 LD E,(IX+$00) E=*IX+00.
ACD8 LD D,(IX+$01) D=*IX+01.
ACDB LD ($ACFA),DE Write DE to *ACFA.
ACDF AND %01100000 Keep only bits 5-6.
ACE1 LD E,$10 E=10.
ACE3 JR Z,Handler_Paris_18 Jump to Handler_Paris_18 if HL is zero.
ACE5 CP $20 Compare A with 20.
ACE7 LD E,$20 E=20.
ACE9 JR Z,Handler_Paris_18 Jump to Handler_Paris_18 if A is zero.
ACEB CP $40 Compare A with 40.
ACED LD E,$40 E=40.
ACEF JR Z,Handler_Paris_18 Jump to Handler_Paris_18 if A is zero.
ACF1 LD E,$80 E=80.
Handler_Paris_18 ACF3 LD HL,$EFFF HL=EFFF.
ACF6 LD A,E A=E.
ACF7 OR (HL) Set the bits from *HL.
ACF8 LD (HL),A Write A to *HL.
ACF9 RET Return.
ACFA DEFB $53,$AD,$01,$01,$02,$AD,$00,$00
AD02 DEFB $11
AD03 DEFB $53,$AD,$00,$00,$53,$AD,$00,$00
AD0B DEFB $53,$AD,$00,$00,$53,$AD,$00,$00
AD13 DEFB $5B,$AD,$00,$00,$73,$AD,$00,$00
AD1B DEFB $83,$AD,$00,$00,$9B,$AD,$00,$00
AD23 DEFB $63,$AD,$02,$00,$7B,$AD,$40,$00
AD2B DEFB $8B,$AD,$FE,$FF,$9B,$AD,$C0,$FF
AD33 DEFB $63,$AD,$02,$00,$7B,$AD,$40,$00
AD3B DEFB $8B,$AD,$FE,$FF,$9B,$AD,$C0,$FF
AD43 DEFB $6B,$AD,$02,$00,$7B,$AD,$40,$00
AD4B DEFB $93,$AD,$FE,$FF,$A3,$AD,$C0,$FF
AD53 DEFB $00,$00,$00,$00,$00,$18,$18,$00
AD5B DEFB $00,$00,$03,$07,$0A,$04,$08,$00
AD63 DEFB $00,$00,$7C,$0C,$70,$00,$00,$00
AD6B DEFB $00,$00,$C0,$20,$B0,$70,$00,$00
AD73 DEFB $00,$00,$00,$00,$00,$24,$18,$18
AD7B DEFB $00,$24,$24,$24,$18,$18,$00,$00
AD83 DEFB $00,$00,$C0,$E0,$50,$20,$10,$00
AD8B DEFB $00,$00,$3E,$30,$0E,$00,$00,$00
AD93 DEFB $00,$00,$03,$04,$0D,$0E,$00,$00
AD9B DEFB $00,$00,$18,$18,$24,$24,$24,$00
ADA3 DEFB $00,$00,$00,$00,$00,$18,$3C,$24
ADAB DEFB $32,$AE,$CE,$79,$07,$32,$AE,$1E
ADB3 DEFB $7A,$07,$32,$AE,$66,$7A,$07,$32
ADBB DEFB $AE,$96,$7A,$07,$32,$AE,$C8,$7A
ADC3 DEFB $07,$32,$AE,$A0,$7B,$07,$32,$AE
ADCB DEFB $EC,$7B,$07,$32,$AE,$0E,$7C,$07
ADD3 DEFB $32,$AE,$58,$7C,$07,$3A,$AE,$4E
ADDB DEFB $79,$06,$42,$AE,$52,$79,$02,$3A
ADE3 DEFB $AE,$9E,$79,$06,$42,$AE,$A2,$79
ADEB DEFB $03,$3A,$AE,$E6,$79,$05,$42,$AE
ADF3 DEFB $EA,$79,$03,$3A,$AE,$16,$7A,$07
ADFB DEFB $42,$AE,$1A,$7A,$05,$3A,$AE,$48
AE03 DEFB $7A,$03,$42,$AE,$4C,$7A,$05,$3A
AE0B DEFB $AE,$20,$7B,$04,$42,$AE,$24,$7B
AE13 DEFB $06,$3A,$AE,$6C,$7B,$03,$42,$AE
AE1B DEFB $70,$7B,$05,$3A,$AE,$8E,$7B,$06
AE23 DEFB $42,$AE,$92,$7B,$04,$3A,$AE,$D8
AE2B DEFB $7B,$06,$42,$AE,$DC,$7B,$02,$29
AE33 DEFB $AF,$04,$03,$8E,$AE,$00,$00,$4A
AE3B DEFB $AE,$02,$02,$8A,$AE,$00,$00,$6A
AE43 DEFB $AE,$02,$02,$8A,$AE,$00,$00,$00
AE4B DEFB $00,$00,$00,$00,$01,$07,$1F,$1F
AE53 DEFB $1F,$1F,$0F,$0B,$02,$00,$00,$00
AE5B DEFB $01,$07,$1F,$7F,$FF,$FF,$FF,$FF
AE63 DEFB $FF,$FF,$FF,$FF,$FF,$DB,$01,$00
AE6B DEFB $80,$E0,$F8,$FE,$FF,$FF,$FF,$FF
AE73 DEFB $FF,$FF,$FF,$FF,$FF,$DB,$80,$00
AE7B DEFB $00,$00,$00,$00,$80,$E0,$F8,$F8
AE83 DEFB $F8,$F8,$F0,$D0,$40,$00,$00,$05
AE8B DEFB $04,$05,$04,$03,$22,$01,$03,$22
AE93 DEFB $21,$03,$22,$21,$03,$22,$01,$48
AE9B DEFB $61,$75,$70,$70,$65,$74,$20,$54
AEA3 DEFB $72,$61,$73,$68,$6D,$6F,$6E,$A0
AEAB DEFB $00,$00,$00,$00,$00,$00,$24,$00
AEB3 DEFB $00,$09,$01,$20,$00,$00,$00,$00
AEBB DEFB $01,$20,$00,$00,$00,$01,$20,$00
AEC3 DEFB $01,$20,$12,$00,$00,$13,$20,$00
AECB DEFB $09,$00,$12,$00,$00,$12,$00,$00
AED3 DEFB $09,$00,$00,$00,$00,$00,$90,$00
AEDB DEFB $00,$00,$02,$40,$01,$20,$90,$00
AEE3 DEFB $00,$09,$02,$40,$01,$20,$00,$00
AEEB DEFB $00,$09,$00,$00,$00,$00,$00,$00
AEF3 DEFB $30,$11,$08,$11,$04,$11,$08,$0A
AEFB DEFB $34,$11,$0C,$09,$08,$11,$08,$0A
AF03 DEFB $38,$09,$24,$09,$0C,$0A,$78,$0A
AF0B DEFB $78,$0A,$78,$0A,$78,$0A,$78,$0A
AF13 DEFB $78,$0A,$78,$0A,$78,$0A,$78,$0A
AF1B DEFB $78,$0A,$78,$0A,$78,$0A,$78,$0A
AF23 DEFB $78,$0A,$78,$0A,$04,$00
Prev: AADA Up: Map Next: AF29