Routines |
Prev: 51986 | Up: Map | Next: 52075 |
|
||||
51998 | PUSH AF | Stash AF on the stack. | ||
51999 | XOR A | Write 0 to *53257. | ||
52000 | LD (53257),A | |||
52003 | POP AF | Restore AF from the stack. | ||
52004 | LD C,A | Multiply A by 6 and store the result in C. | ||
52005 | ADD A,A | |||
52006 | ADD A,C | |||
52007 | ADD A,A | |||
52008 | LD C,A | |||
52009 | LD B,0 | B=0. | ||
52011 | LD HL,53258 | HL=53258. | ||
52014 | ADD HL,BC | HL+=BC. | ||
52015 | LD IX,52075 | IX=52075. | ||
52019 | LD C,31 | C=31. | ||
52021 | LD A,3 | A=3. | ||
52023 | LD E,(HL) | E=*HL. | ||
52024 | INC HL | Increment HL by one. | ||
52025 | LD D,(HL) | D=*HL. | ||
52026 | INC HL | Increment HL by one. | ||
52027 | PUSH HL | Stash HL on the stack. | ||
52028 | LD (IX+16),1 | Write 1 to *IX+16. | ||
52032 | LD (IX+0),B | Write B to *IX+0. | ||
52035 | LD (IX+29),B | Write B to *IX+29. | ||
52038 | LD (IX+3),E | Write E to *IX+3. | ||
52041 | LD (IX+4),D | Write D to *IX+4. | ||
52044 | EX DE,HL | Exchange the DE and HL registers. | ||
52045 | LD E,(HL) | E=*HL. | ||
52046 | INC HL | Increment HL by one. | ||
52047 | LD D,(HL) | D=*HL. | ||
52048 | LD (IX+5),2 | Write 2 to *IX+5. | ||
52052 | LD (IX+6),B | Write B to *IX+6. | ||
52055 | POP HL | Restore HL from the stack. | ||
52056 | LD (IX+1),E | Write E to *IX+1. | ||
52059 | LD (IX+2),D | Write D to *IX+2. | ||
52062 | ADD IX,BC | IX+=BC. | ||
52064 | DEC A | Decrease A by one. | ||
52065 | JR NZ,52023 | Jump to 52023 if A is not equal to 3. | ||
52067 | INC A | Increment A by one. | ||
52068 | LD (52356),A | Write A to *52356. | ||
52071 | LD (53257),A | Write A to *53257. | ||
52074 | RET | Return. |
Prev: 51986 | Up: Map | Next: 52075 |