Prev: 770D Up: Map Next: 7834
77AC: Routine at 77AC
Used by the routine at Vector_Main.
77AC LD L,A
77AD LD H,$00
77AF ADD HL,HL
77B0 ADD HL,HL
77B1 LD DE,BitmapData_Width
77B4 ADD HL,DE
77B5 LD A,(HL)
77B6 AND $7F
77B8 LD ( s3),A
77BB DEC HL
77BC LD A,(HL)
77BD RLA
77BE RLA
77BF RLA
77C0 AND $F8
77C2 LD ( s2),A
77C5 DEC HL
77C6 LD D,(HL)
77C7 DEC HL
77C8 LD E,(HL)
77C9 LD HL,BmpStart_E
77CC ADD HL,DE
77CD LD ( s0),HL
77D0 LD L,B
77D1 LD H,$00
77D3 ADD HL,HL
77D4 LD E,L
77D5 LD D,H
77D6 ADD HL,HL
77D7 ADD HL,HL
77D8 ADD HL,HL
77D9 ADD HL,HL
77DA ADD HL,DE
77DB LD E,C
77DC SRL E
77DE SRL E
77E0 SRL E
77E2 LD D,$00
77E4 ADD HL,DE
77E5 LD DE,OffScreen0
77E8 ADD HL,DE
77E9 LD DE,( s0)
77ED BIT 2,C
77EF JR NZ,$7808
77F1 LD BC,( s2)
77F5 PUSH BC
77F6 PUSH HL
77F7 LD A,(DE)
77F8 XOR (HL)
77F9 LD (HL),A
77FA INC DE
77FB INC HL
77FC DJNZ $77F7
77FE POP HL
77FF LD BC,$0022
7802 ADD HL,BC
7803 POP BC
7804 DEC C
7805 JR NZ,$77F5
7807 RET
7808 LD BC,( s2)
780C PUSH BC
780D PUSH HL
780E EX DE,HL
780F XOR A
7810 RRD
7812 LD C,A
7813 LD A,(DE)
7814 XOR (HL)
7815 LD (DE),A
7816 LD A,C
7817 RLD
7819 LD A,C
781A INC HL
781B INC DE
781C DJNZ $7810
781E RLA
781F RLA
7820 RLA
7821 RLA
7822 AND $F0
7824 LD C,A
7825 LD A,(DE)
7826 XOR C
7827 LD (DE),A
7828 POP DE
7829 EX DE,HL
782A LD BC,$0022
782D ADD HL,BC
782E POP BC
782F DEC C
7830 JR NZ,$780C
7832 RET
7833 NOP
Prev: 770D Up: Map Next: 7834