Prev: 25636 Up: Map Next: 25764
25664: Routine at 6440
Used by the routine at InitialiseLevel.
25664 LD A,10 A=10.
25666 NOP No operation.
25667 LD C,A C=A.
25668 INC B Increment B by one.
25669 INC C Increment C by one.
25670 LD HL,40990 HL=40990.
25673 PUSH HL Stash HL on the stack.
25674 LD DE,46080 DE=46080.
25677 DEC (HL) Decrease *HL by one.
25678 JR Z,25688 Jump to 25688 if *HL is zero.
25680 LD E,36 E=36.
25682 INC H Increment H by one.
25683 DEC (HL) Decrease *HL by one.
25684 JR Z,25688 Jump to 25688 if *HL is zero.
25686 LD E,72 E=72.
25688 POP HL Restore HL from the stack.
25689 PUSH HL Stash HL on the stack.
25690 INC L Increment L by two.
25691 INC L
25692 JR NZ,25698 Jump to 25698 if L is not zero.
25694 LD A,H A=H.
25695 ADD A,5 A+=5.
25697 LD H,A H=A.
25698 INC L Increment L by one.
25699 LD A,(HL) A=*HL.
25700 DEC A Decrease A by one.
25701 JR Z,25712 Jump to 25712 if A is zero.
25703 INC H Increment H by one.
25704 LD A,(HL) A=*HL.
25705 DEC A Decrease A by one.
25706 LD A,12 A=12.
25708 JR Z,25712 Jump to 25712 if A was zero on line 25705.
25710 LD A,24 A=24.
25712 ADD A,E A+=E.
25713 LD E,A E=A.
25714 POP HL Restore HL from the stack.
25715 DEC H Decrease H by one.
25716 LD B,4 B=4.
25718 LD A,(DE) A=*DE.
25719 LD (HL),A Write A to *HL.
25720 INC H Increment H by one.
25721 INC E Increment E by one.
25722 DJNZ 25718 Decrease counter by one and loop back to 25718 until counter is zero.
25724 DEC H Decrease H by four.
25725 DEC H
25726 DEC H
25727 DEC H
25728 INC L Increment L by one.
25729 LD B,4 B=4.
25731 LD A,(DE) A=*DE.
25732 LD (HL),A Write A to *HL.
25733 INC H Increment H by one.
25734 INC E Increment E by one.
25735 DJNZ 25731 Decrease counter by one and loop back to 25731 until counter is zero.
25737 INC H Increment H by one.
25738 INC L Increment L by one.
25739 JR Z,25745 Jump to 25745 if L is zero.
25741 LD A,H A=H.
25742 SUB 5 A-=5.
25744 LD H,A H=A.
25745 LD B,4 B=4.
25747 LD A,(DE) A=*DE.
25748 LD (HL),A Write A to *HL.
25749 INC H Increment H by one.
25750 INC E Increment E by one.
25751 DJNZ 25747 Decrease counter by one and loop back to 25747 until counter is zero.
25753 DEC H Decrease H by three.
25754 DEC H
25755 DEC H
25756 LD A,L L+=30.
25757 ADD A,30
25759 LD L,A
25760 DEC C Decrease C by one.
25761 JR NZ,25673 Jump to 25673 until C is zero.
25763 RET Return.
Prev: 25636 Up: Map Next: 25764