Prev: CB12 Up: Map Next: CB6B
CB1E: Routine at CB1E
Used by the routines at MainMenu, Messaging_YouWin, AADC and CB12.
CB1E PUSH AF Stash AF on the stack.
CB1F XOR A Write 00 to *D009.
CB20 LD ($D009),A
CB23 POP AF Restore AF from the stack.
CB24 LD C,A C=A.
CB25 ADD A,A A+=A.
CB26 ADD A,C A+=C.
CB27 ADD A,A A+=A.
CB28 LD C,A C=A.
CB29 LD B,$00 B=00.
CB2B LD HL,$D00A HL=D00A.
CB2E ADD HL,BC HL+=BC.
CB2F LD IX,$CB6B IX=CB6B.
CB33 LD C,$1F C=1F.
CB35 LD A,$03 A=03.
CB37 LD E,(HL) E=*HL.
CB38 INC HL Increment HL by one.
CB39 LD D,(HL) D=*HL.
CB3A INC HL Increment HL by one.
CB3B PUSH HL Stash HL on the stack.
CB3C LD (IX+$10),$01 Write 01 to *IX+10.
CB40 LD (IX+$00),B Write B to *IX+00.
CB43 LD (IX+$1D),B Write B to *IX+1D.
CB46 LD (IX+$03),E Write E to *IX+03.
CB49 LD (IX+$04),D Write D to *IX+04.
CB4C EX DE,HL Exchange the DE and HL registers.
CB4D LD E,(HL) E=*HL.
CB4E INC HL Increment HL by one.
CB4F LD D,(HL) D=*HL.
CB50 LD (IX+$05),$02 Write 02 to *IX+05.
CB54 LD (IX+$06),B Write B to *IX+06.
CB57 POP HL Restore HL from the stack.
CB58 LD (IX+$01),E Write E to *IX+01.
CB5B LD (IX+$02),D Write D to *IX+02.
CB5E ADD IX,BC IX+=BC.
CB60 DEC A Decrease A by one.
CB61 JR NZ,$CB37 Jump to CB37 if A is not equal to 03.
CB63 INC A Increment A by one.
CB64 LD ($CC84),A Write A to *CC84.
CB67 LD ($D009),A Write A to *D009.
CB6A RET Return.
Prev: CB12 Up: Map Next: CB6B