Prev: 51986 Up: Map Next: 52075
51998: Routine at CB1E
Used by the routines at MainMenu, Messaging_YouWin, 43740 and 51986.
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