Prev: 72CA Up: Map Next: 7533
739D: Routine at 739D
Used by the routines at 72CA and 78B0.
739D PUSH AF
739E CALL $60F6
73A1 LD A,(DE)
73A2 CP $24
73A4 JR NZ,$73AC
73A6 LD (IX+$05),$00
73AA POP AF
73AB RET
73AC XOR $05
73AE LD (DE),A
73AF CALL ScreenBufferAddress
73B2 POP AF
73B3 CALL Address_UDG
73B6 LD H,B
73B7 LD L,C
73B8 LD B,$08
73BA LD A,(DE)
73BB XOR (HL)
73BC LD (HL),A
73BD INC DE
73BE INC H
73BF DJNZ $73BA
73C1 RET
73C2 NOP
73C3 NOP
73C4 LD C,B
73C5 RST $38
73C6 LD BC,$0A01
73C9 NOP
73CA NOP
73CB LD C,C
73CC NOP
73CD LD (BC),A
73CE LD BC,$000F
73D1 NOP
73D2 LD C,D
73D3 RST $38
73D4 LD (BC),A
73D5 LD BC,$0014
73D8 NOP
73D9 LD C,B
73DA LD BC,$0102
73DD LD C,$00
73DF NOP
73E0 LD C,C
73E1 NOP
73E2 LD BC,$1901
73E5 NOP
73E6 NOP
73E7 LD C,D
73E8 RST $38
73E9 LD BC,$0701
73EC NOP
73ED NOP
73EE LD C,B
73EF NOP
73F0 LD (BC),A
73F1 LD BC,$000D
73F4 NOP
73F5 LD C,C
73F6 LD BC,$0102
73F9 INC D
73FA NOP
73FB NOP
73FC LD C,D
73FD LD (BC),A
73FE LD BC,$0901
7401 OR (HL)
7402 DEC HL
7403 JR NZ,$7448
7405 LD D,B
7406 JR NZ,$7454
7408 DEC C
7409 RET NZ
740A DEC HL
740B JR NZ,$7457
740D LD D,D
740E JR NZ,$746A
7410 INC L
7411 LD C,L
7412 LD D,H
7413 DEC (HL)
7414 DEC C
7415 JP Z,$1B2A
7418 LD E,E
7419 ADD A,L
741A LD L,A
741B JR NC,$741E
741D INC H
741E LD ($5B1B),HL
7421 PUSH HL
7422 LD BC,$061A
7425 CALL $0DD9
7428 LD A,$07
742A LD ($5C8F),A
742D POP BC
742E CALL $1A1B
7431 LD A,$30
7433 RST $10
7434 RET
This entry point is used by the routine at 7554.
7435 LD HL,$5C78
7438 LD A,(HL)
7439 ADD A,$07
743B CP (HL)
743C JR NZ,$743B
743E CALL $6FD8
7441 CALL $70A8
7444 LD A,($5B0B)
7447 LD HL,($5B20)
744A DEC A
744B JR NZ,$7454
744D INC H
744E LD ($5B20),HL
7451 DEC H
7452 JR $74B0
7454 LD A,($5B06)
7457 OR A
7458 JR NZ,$744D
745A PUSH HL
745B LD HL,$5C78
745E LD A,(HL)
745F ADD A,$07
7461 CP (HL)
7462 JR NZ,$7461
7464 CALL $70A8
7467 POP HL
7468 LD BC,$F7FE
746B IN A,(C)
746D LD BC,$EFFE
7470 LD E,A
7471 IN A,(C)
7473 ADD A,A
7474 ADD A,A
7475 XOR E
7476 BIT 4,A
7478 JR Z,$7482
747A BIT 4,E
747C JR Z,$7481
747E INC L
747F JR $7482
7481 DEC L
7482 IN A,(C)
7484 LD E,A
7485 ADD A,A
7486 XOR E
7487 BIT 4,A
7489 JR Z,$7493
748B BIT 4,E
748D JR Z,$7492
748F DEC H
7490 JR $7493
7492 INC H
7493 LD A,L
7494 OR A
7495 JR NZ,$7498
7497 INC L
7498 CP $1E
749A JR NZ,$749D
749C DEC L
749D LD A,H
749E OR A
749F JR NZ,$74A2
74A1 INC H
74A2 LD DE,($5B20)
74A6 PUSH DE
74A7 LD ($5B20),HL
74AA OR A
74AB SBC HL,DE
74AD POP HL
74AE JR Z,$7435
74B0 XOR A
74B1 LD C,$2D
74B3 PUSH HL
74B4 CALL $6114
74B7 POP HL
74B8 XOR A
74B9 LD C,$2D
74BB PUSH HL
74BC INC L
74BD CALL $6114
74C0 LD HL,($5B20)
74C3 CALL $60F6
74C6 LD A,(DE)
74C7 CP $2D
74C9 JR Z,$74E0
74CB CP $2F
74CD JR Z,$74E0
74CF LD A,($5B06)
74D2 DEC A
74D3 LD A,$64
74D5 CALL Z,$7416
74D8 LD A,$4D
74DA LD ($5B46),A
74DD POP HL
74DE JR $74ED
74E0 INC DE
74E1 LD A,(DE)
74E2 CP $2D
74E4 JR Z,$74EA
74E6 CP $2F
74E8 JR NZ,$74CF
74EA LD A,$2F
74EC POP DE
74ED PUSH HL
74EE PUSH AF
74EF LD C,$28
74F1 CALL $6114
74F4 LD C,$28
74F6 POP AF
74F7 INC A
74F8 POP HL
74F9 PUSH HL
74FA INC L
74FB CALL $6114
74FE POP HL
74FF LD A,($5B46)
7502 OR A
7503 JR NZ,$7533
7505 LD A,($5B0B)
7508 DEC A
7509 JP Z,$7435
750C LD A,($5B06)
750F OR A
7510 JP NZ,$7435
7513 LD A,H
7514 CP $0E
7516 JP NZ,$7435
7519 LD A,L
751A SUB $0D
751C JP C,$7435
751F CP $03
7521 JP NC,$7435
7524 LD A,$C8
7526 CALL $7416
7529 CALL $7890
752C CALL $7890
752F CALL $7890
7532 RET
Prev: 72CA Up: Map Next: 7533