![]() |
Routines |
Prev: 38008 | Up: Map | Next: 38207 |
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 |