|
Routines |
| Prev: 6000 | Up: Map | Next: 684B |
|
Used by the routine at Decryption.
|
||||
| 6800 | DI | Disable interrupts. | ||
| 6801 | LD SP,$6000 | SP=6000. | ||
| 6804 | XOR A | Set border to INK: BLACK, PAPER: BLACK . | ||
| 6805 | OUT ($FE),A | |||
| 6807 | LD HL,$F200 | HL=F200. | ||
| 680A | LD B,$01 | B=01. | ||
| 680C | LD C,$00 | C=00. | ||
| 680E | LD D,C | D=C. | ||
| 680F | LD E,B | E=B. | ||
| 6810 | XOR A | A=00. | ||
| 6811 | SRL D | |||
| 6813 | RRA | |||
| 6814 | DEC E | Decrease E by one. | ||
| 6815 | JR NZ,$6811 | Jump to 6811 until E is zero. | ||
| 6817 | INC H | Increment H by one. | ||
| 6818 | LD (HL),A | Write A to *HL. | ||
| 6819 | DEC H | Decrease H by one. | ||
| 681A | LD (HL),D | Write D to *HL. | ||
| 681B | INC HL | Increment HL by one. | ||
| 681C | INC C | Increment C by one. | ||
| 681D | JR NZ,$680E | Jump to 680E until C is 00. | ||
| 681F | INC H | Increment H by one. | ||
| 6820 | INC B | Increment B by one. | ||
| 6821 | BIT 3,B | Jump to 680C if bit 3 of B is zero. | ||
| 6823 | JR Z,$680C | |||
| 6825 | CALL $6853 | Call 6853. | ||
| 6828 | LD IX,$7796 | IX=7796. | ||
| 682C | LD L,(IX+$00) | L=*IX+00. | ||
| 682F | LD H,(IX+$01) | H=*IX+01. | ||
| 6832 | LD A,L | Jump to 684B if HL is zero. | ||
| 6833 | OR H | |||
| 6834 | JR Z,$684B | |||
| 6836 | INC IX | Increment IX by two. | ||
| 6838 | INC IX | |||
| 683A | LD C,(HL) | C=*HL. | ||
| 683B | INC HL | Increment HL by one. | ||
| 683C | LD E,(HL) | E=*HL. | ||
| 683D | INC HL | Increment HL by one. | ||
| 683E | LD B,C | B=C. | ||
| 683F | LD A,(HL) | A=*HL. | ||
| 6840 | INC HL | Increment HL by one. | ||
| 6841 | XOR (HL) | XOR on *HL. | ||
| 6842 | LD (HL),A | Write A to *HL. | ||
| 6843 | INC HL | Increment HL by one. | ||
| 6844 | DJNZ $683F | Decrease counter by one and loop back to 683F until counter is zero. | ||
| 6846 | DEC E | Decrease E by one. | ||
| 6847 | JR NZ,$683E | Jump to 683E until E is zero. | ||
| 6849 | JR $682C | Jump to 682C. | ||
| Prev: 6000 | Up: Map | Next: 684B |