Routines
Prev: 24576 Up: Map Next: 26699
26624: Routine at 6800
Used by the routine at Decryption.
26624 DI Disable interrupts.
26625 LD SP,24576 SP=24576.
26628 XOR A Set border to INK: BLACK, PAPER: BLACK .
26629 OUT (254),A
26631 LD HL,61952 HL=61952.
26634 LD B,1 B=1.
26636 LD C,0 C=0.
26638 LD D,C D=C.
26639 LD E,B E=B.
26640 XOR A A=0.
26641 SRL D
26643 RRA
26644 DEC E Decrease E by one.
26645 JR NZ,26641 Jump to 26641 until E is zero.
26647 INC H Increment H by one.
26648 LD (HL),A Write A to *HL.
26649 DEC H Decrease H by one.
26650 LD (HL),D Write D to *HL.
26651 INC HL Increment HL by one.
26652 INC C Increment C by one.
26653 JR NZ,26638 Jump to 26638 until C is 0.
26655 INC H Increment H by one.
26656 INC B Increment B by one.
26657 BIT 3,B Jump to 26636 if bit 3 of B is zero.
26659 JR Z,26636
26661 CALL 26707 Call 26707.
26664 LD IX,30614 IX=30614.
26668 LD L,(IX+0) L=*IX+0.
26671 LD H,(IX+1) H=*IX+1.
26674 LD A,L Jump to 26699 if HL is zero.
26675 OR H
26676 JR Z,26699
26678 INC IX Increment IX by two.
26680 INC IX
26682 LD C,(HL) C=*HL.
26683 INC HL Increment HL by one.
26684 LD E,(HL) E=*HL.
26685 INC HL Increment HL by one.
26686 LD B,C B=C.
26687 LD A,(HL) A=*HL.
26688 INC HL Increment HL by one.
26689 XOR (HL) XOR on *HL.
26690 LD (HL),A Write A to *HL.
26691 INC HL Increment HL by one.
26692 DJNZ 26687 Decrease counter by one and loop back to 26687 until counter is zero.
26694 DEC E Decrease E by one.
26695 JR NZ,26686 Jump to 26686 until E is zero.
26697 JR 26668 Jump to 26668.
Prev: 24576 Up: Map Next: 26699