Routines
Prev: 37749 Up: Map Next: 37865
37789: Routine at 939D
Used by the routines at 37573 and Handler_SaoPaulo.
37789 LD B,H B=H.
37790 LD C,L C=L.
37791 LD DE,10 DE=0010.
37794 LD IX,32256 IX=32256.
37798 BIT 0,(IX+0) Test bit 0 of *IX+0.
37802 JR Z,37815 Jump to 37815 if A is zero.
37804 LD L,(IX+1) L=*IX+1.
37807 LD H,(IX+2) H=*IX+2.
37810 AND A Set flags.
37811 SBC HL,BC HL-=BC.
37813 JR Z,37819 Jump to 37819 if A is zero.
37815 ADD IX,DE IX+=DE.
37817 JR 37798 Jump to 37798.
37819 LD L,(IX+5) L=*IX+5.
37822 LD H,(IX+6) H=*IX+6.
37825 LD DE,(39366) DE=*39366.
37829 SBC HL,DE HL-=DE (with carry).
37831 JR NZ,37838 Jump to 37838 if A is not zero.
37833 LD HL,29240 Write 128 to *29240.
37836 LD (HL),128
37838 LD (IX+0),0 Write 0 to *IX+0.
37842 CALL 37865 Call 37865.
37845 LD A,(39339) A=*39339.
37848 SUB 1 A-=1.
37850 DAA DAA.
37851 LD (39339),A Write A to *39339.
37854 LD HL,29184 Write 1 to *29184.
37857 LD (HL),1
37859 LD HL,61439 HL=61439.
37862 SET 3,(HL) Set bit 3 of *HL.
37864 RET Return.
Prev: 37749 Up: Map Next: 37865