Travel With Trashman: Routine at 939D

939D: Routine at 939D

Used by the routines at 92C5 and Handler_SaoPaulo.
939D	LD B,H	B=H.
939E	LD C,L	C=L.
939F	LD DE,$000A	DE=000A.
93A2	LD IX,$7E00	IX=7E00.
93A6	BIT 0,(IX+$00)	Test bit 0 of *IX+00.
93AA	JR Z,$93B7	Jump to 93B7 if A is zero.
93AC	LD L,(IX+$01)	L=*IX+01.
93AF	LD H,(IX+$02)	H=*IX+02.
93B2	AND A	Set flags.
93B3	SBC HL,BC	HL-=BC.
93B5	JR Z,$93BB	Jump to 93BB if A is zero.
93B7	ADD IX,DE	IX+=DE.
93B9	JR $93A6	Jump to 93A6.
93BB	LD L,(IX+$05)	L=*IX+05.
93BE	LD H,(IX+$06)	H=*IX+06.
93C1	LD DE,($99C6)	DE=*99C6.
93C5	SBC HL,DE	HL-=DE (with carry).
93C7	JR NZ,$93CE	Jump to 93CE if A is not zero.
93C9	LD HL,$7238	Write 80 to *7238.
93CC	LD (HL),$80	Write 80 to *7238.
93CE	LD (IX+$00),$00	Write 00 to *IX+00.
93D2	CALL $93E9	Call 93E9.
93D5	LD A,($99AB)	A=*99AB.
93D8	SUB $01	A-=01.
93DA	DAA	DAA.
93DB	LD ($99AB),A	Write A to *99AB.
93DE	LD HL,$7200	Write 01 to *7200.
93E1	LD (HL),$01	Write 01 to *7200.
93E3	LD HL,$EFFF	HL=EFFF.
93E6	SET 3,(HL)	Set bit 3 of *HL.
93E8	RET	Return.