Routines
Prev: 7649 Up: Map Next: 77F6
76C1: Routine at 76C1
Used by the routine at 7554.
76C1 LD ($5B47),IX
76C5 DI Disables interrupts.
76C6 LD HL,($5B1B)
76C9 LD DE,($7653)
76CD LD A,L
76CE SUB E
76CF LD A,H
76D0 SBC A,D
76D1 JR C,$7725
76D3 LD IX,$7649
76D7 LD DE,$000C
76DA LD B,$0A
76DC LD A,L
76DD SUB (IX+$0A)
76E0 LD A,H
76E1 SBC A,(IX+$0B)
76E4 JR C,$76EA
76E6 ADD IX,DE
76E8 DJNZ $76DC
76EA PUSH IX
76EC POP HL
76ED OR A
76EE SBC HL,DE
76F0 PUSH HL
76F1 LD DE,$7649
76F4 LD A,$0A
76F6 SUB B
76F7 ADD A,A
76F8 ADD A,A
76F9 LD B,A
76FA ADD A,A
76FB ADD A,B
76FC JR Z,$7706
76FE LD C,A
76FF LD B,$00
7701 LD HL,$7655
7704 LDIR
7706 POP HL
7707 LD B,$06
7709 LD (HL),$80
770B INC HL
770C DJNZ $7709
770E LD A,($5B27)
7711 LD (HL),A
7712 INC HL
7713 LD (HL),$00
7715 INC HL
7716 LD BC,($5B49)
771A LD (HL),C
771B INC HL
771C LD (HL),B
771D INC HL
771E LD BC,($5B1B)
7722 LD (HL),C
7723 INC HL
7724 LD (HL),B
7725 LD IX,($5B47)
7729 LD DE,$77F6 DE=Messaging_SplashScreen
772C LD BC,$0068 BC=Characters to print.
772F CALL $203C Call PR_STRING.
7732 LD B,$0A
7734 LD HL,$76B5
7737 PUSH BC
7738 XOR A
7739 LD ($5B4B),A
773C LD ($5B4C),A
773F CALL $777C
7742 PUSH HL
7743 LD HL,$5B4C
7746 INC (HL)
7747 LD A,$06
7749 CP (HL)
774A POP HL
774B JR NZ,$773F
774D LD B,$0C
774F CALL $77E3
7752 LD B,$13
7754 CALL $77E3
7757 LD B,$19
7759 CALL $77E3
775C PUSH HL
775D LD A,$30 Print "0" to the screen.
775F RST $10
7760 LD BC,$0003 BC=Characters to print.
7763 LD DE,$7884 DE=7884
7766 CALL $203C Call PR_STRING.
7769 POP HL
776A LD DE,$FFE8
776D ADD HL,DE
776E POP BC
776F DJNZ $7737
7771 LD DE,$783F DE=783F
7774 LD BC,$0045 BC=Characters to print.
7777 CALL $203C Call PR_STRING.
777A EI Enable interrupts.
777B RET Return.
777C LD A,(HL)
777D INC HL
777E PUSH HL
777F BIT 7,A
7781 JR NZ,$7786
7783 RST $10
7784 POP HL
7785 RET
7786 LD A,($5B4B)
7789 OR A
778A JR Z,$7790
778C LD A,$20
778E JR $77D4
7790 LD BC,$0006 BC=Characters to print.
7793 LD DE,$788A DE=788A
7796 CALL $203C Call PR_STRING.
7799 EI Enable interrupts.
779A LD A,($5C05)
779D OR A
779E JR Z,$779A
77A0 LD A,($5C08)
77A3 BIT 7,A
77A5 JR NZ,$779A
77A7 CP $0D
77A9 JR NZ,$77B2
77AB LD A,$20
77AD LD ($5B4B),A
77B0 JR $77D4
77B2 CP $0C
77B4 JR NZ,$77D0
77B6 LD A,($5B4C)
77B9 OR A
77BA JR Z,$779A
77BC DEC A
77BD LD ($5B4C),A
77C0 LD DE,$7887 DE=7887
77C3 LD BC,$0009 BC=Characters to print.
77C6 CALL $203C Call PR_STRING.
77C9 POP HL
77CA DEC HL
77CB PUSH HL
77CC LD (HL),$80
77CE JR $779A
77D0 CP $20
77D2 JR C,$779A
77D4 PUSH AF
77D5 RST $10
77D6 LD A,($5C05)
77D9 OR A
77DA JR NZ,$77D6
77DC DI
77DD POP AF
77DE POP HL
77DF DEC HL
77E0 LD (HL),A
77E1 INC HL
77E2 RET
77E3 PUSH HL
77E4 PUSH BC
77E5 LD A,$17
77E7 RST $10
77E8 POP AF
77E9 RST $10
77EA RST $10
77EB POP HL
77EC LD C,(HL)
77ED INC HL
77EE LD B,(HL)
77EF INC HL
77F0 PUSH HL
77F1 CALL $1A1B
77F4 POP HL
77F5 RET
Prev: 7649 Up: Map Next: 77F6