Prev: 25620 Up: Map Next: 25664
25636: Copy Level Data to Level Buffer
Used by the routine at InitialiseLevel.
CopyLevelDataToBuffer 25636 LD C,5 C=5.
CopyLevelDataToBuffer_0 25638 LD B,32 B=32.
CopyLevelDataToBuffer_1 25640 LD A,(HL) A=*HL.
25641 INC HL Increment HL by one.
25642 LD (DE),A Write A to *DE.
25643 INC E Increment E by one.
25644 DJNZ CopyLevelDataToBuffer_1 Decrease counter by one and loop back to CopyLevelDataToBuffer_1 until counter is zero.
25646 DEC E Decrease E by one.
25647 LD A,E A=E.
25648 AND %11100000 Keep only bits 5-7.
25650 LD E,A E=A.
25651 INC D Increment D by one.
25652 DEC C Decrease C by one.
25653 JR NZ,CopyLevelDataToBuffer_0 Jump to CopyLevelDataToBuffer_0 until C is zero.
25655 ADD A,32 A+=32.
25657 LD E,A E=A.
25658 RET Z Return if A is zero.
25659 LD A,D D-=5.
25660 SUB 5
25662 LD D,A
25663 RET Return.
Prev: 25620 Up: Map Next: 25664