This code appears in the following versions (click to see it in the source code):
Code variations between these versions are shown below.
Name: DEEOR Type: Subroutine Category: Loader
.DEEOR IF _STH_DISC OR _IB_DISC LDY #0 \ We're going to work our way through a large number of \ encrypted bytes, so we set Y to 0 to be the index of \ the current byte within its page in memory STY SC \ Set the low byte of SC(1 0) to 0 LDX #&13 \ Set X to &13 to be the page number of the current \ byte, so we start the decryption with the first byte \ of page &13 .DEEORL STX SCH \ Set the high byte of SC(1 0) to X, so SC(1 0) now \ points to the first byte of page X TYA \ Set A to Y, so A now contains the index of the current \ byte within its page EOR (SC),Y \ EOR the current byte with its index within the page EOR #&33 \ EOR the current byte with &33 STA (SC),Y \ Update the current byte \ The current byte is in page X at offset Y, and SC(1 0) \ points to the first byte of page X, so we just did \ this: \ \ (X Y) = (X Y) EOR Y EOR &33 DEY \ Decrement the index in Y to point to the next byte BNE DEEORL \ Loop back to DEEORL to decrypt the next byte until we \ have done the whole page INX \ Increment X to point to the next page in memory
ELIF _SRAM_DISC
ENDIF