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