Prev: 38008 Up: Map Next: 38207
38092: Routine at 94CC
Used by the routine at 37959.
38092 INC DE Increment DE by one.
38093 LD A,(DE) A=*DE.
38094 AND %00000111 Keep only bits 0-2.
38096 LD (39337),A Write A to *39337.
38099 LD L,(IX+1) L=*IX+1.
38102 LD H,(IX+0) H=*IX+0.
38105 PUSH IX Stash IX on the stack.
38107 PUSH HL Stash HL on the stack.
38108 SET 2,(HL) Set bit 2 of *HL.
38110 INC HL Increment HL by one.
38111 LD A,(HL) A=*HL.
38112 AND %00000111 Keep only bits 0-2.
38114 LD HL,39337 HL=39337.
38117 CP (HL) Compare A with *HL.
38118 POP HL Restore HL from the stack.
38119 JR NC,38182 Jump to 38182 if A is higher.
38121 DEC DE Decrease DE by one.
38122 LD (IX+1),E Write E to *IX+1.
38125 LD (IX+0),D Write D to *IX+0.
38128 PUSH DE Stash DE on the stack.
38129 POP IX Restore IX from the stack.
38131 LD (IX+6),L Write L to *IX+6.
38134 LD (IX+5),H Write H to *IX+5.
38137 LD A,(IX+1) A=*IX+1.
38140 AND %11111000 Keep only bits 3-7.
38142 SET 2,A Set bit 2 of A.
38144 OR (HL) Set the bits from *HL.
38145 LD (IX+0),A Write A to *IX+0.
38148 LD BC,4 BC=0004.
38151 ADD HL,BC HL+=BC.
38152 LD A,(HL) A=*HL.
38153 AND %11111000 Keep only bits 3-7.
38155 OR (IX+4) Set the bits of A with *IX+4.
38158 LD (IX+4),A Write A to *IX+4.
38161 POP BC Restore BC and BC from the stack.
38162 POP BC
38163 LD HL,(39335) HL=*39335.
38166 LD (HL),C Write C to *HL.
38167 INC HL Increment HL by one.
38168 LD (HL),B Write B to *HL.
38169 INC HL Increment HL by one.
38170 LD (39335),HL Write HL to *39335.
38173 LD IX,64 IX=0064.
38177 ADD IX,BC IX+=BC.
38179 JP 37989 Jump to 37989.
38182 LD A,(DE) A=*DE.
38183 AND %11111000 Keep only bits 3-7.
38185 OR (HL) Set the bits from *HL.
38186 LD (HL),A Write A to *HL.
38187 LD BC,5 HL+=0005.
38190 ADD HL,BC
38191 LD A,(HL) A=*HL.
38192 CP 0 Compare A with 0.
38194 POP IX Restore IX from the stack.
38196 JR Z,38203 Jump to 38203 if A is zero.
38198 PUSH HL IX=HL (using the stack).
38199 POP IX
38201 JR 38099 Jump to 38099.
38203 DEC DE Decrease DE by one.
38204 POP BC Restore BC from the stack.
38205 JR 38173 Jump to 38173.
Prev: 38008 Up: Map Next: 38207