Prev: 37989 Up: Map Next: 38092
38008: Routine at 9478
38008 INC DE Increment DE by one.
38009 LD A,(DE) A=*DE.
38010 DEC DE Decrease DE by one.
38011 AND %11111000 Keep only bits 3-7.
38013 LD (39337),A Write A to *39337.
38016 LD BC,5 BC=0005.
38019 LD L,(IX+1) L=*IX+1.
38022 LD H,(IX+0) H=*IX+0.
38025 SET 2,(HL) Set bit 2 of *HL.
38027 PUSH HL Stash HL on the stack.
38028 AND A Set flags.
38029 SBC HL,DE HL-=DE (with carry).
38031 JR Z,38058 Jump to 38058 if DE is zero.
38033 POP IX Restore IX from the stack.
38035 LD A,(39337) A=*39337.
38038 XOR (IX+0)
38041 LD (IX+0),A Write A to *IX+0.
38044 LD A,(IX+5) Jump to 38055 if *IX+5 is equal to 0.
38047 CP 0
38049 JR Z,38055
38051 ADD IX,BC IX+=BC.
38053 JR 38019 Jump to 38019.
38055 POP BC Restore BC from the stack.
38056 JR 38083 Jump to 38083.
38058 POP HL Restore HL from the stack.
38059 ADD HL,BC HL+=BC.
38060 LD A,(HL) A=*HL.
38061 INC HL Increment HL by one.
38062 LD L,(HL) L=*HL.
38063 LD (IX+0),A Write A to *IX+0.
38066 LD (IX+1),L Write L to *IX+1.
38069 LD H,A H=A.
38070 SET 2,(HL) Set bit 2 of *HL.
38072 POP BC Restore BC from the stack.
38073 LD HL,(39335) HL=*39335.
38076 LD (HL),C Write C to *HL.
38077 INC HL Increment HL by one.
38078 LD (HL),B Write B to *HL.
38079 INC HL Increment HL by one.
38080 LD (39335),HL Write HL to *39335.
38083 LD IX,64 IX=0064.
38087 ADD IX,BC IX+=BC.
38089 JP 37989 Jump to 37989.
Prev: 37989 Up: Map Next: 38092