Simple XOR encoding (for BASIC USR Call)#
The data "
00010 .LI OFF
00020 *
00030 ****************
00040 * *
00050 * CODE-Routine *
00060 * *
00070 ****************
00080 *
00090 *
00100 *
00110 SC .EQ $CD
00120 BYTES .EQ $CF
00130 WERT .EQ $D1
00140 *
00150 *
00160 *
00170 *
00180 *
00190 START PLA Anzahl Parameter holen
00200 *
00210 PLA Start
00220 STA SC+1 addresse
00230 PLA holen
00240 STA SC
00250 *
00260 PLA Laenge
00270 STA BYTES+1 holen
00280 PLA
00290 STA BYTES
00300 *
00310 PLA Code-
00320 PLA wert
00330 STA WERT holen
00340 ------------------------------
00350 CODE LDY #0
00360 .3 LDA (SC),Y Wert
00370 EOR WERT codieren
00380 STA (SC),Y
00390 *
00400 INC SC Pointer
00410 BNE .1 hoch-
00420 INC SC+1 zaehlen
00430 *
00440 .1 LDA BYTES Byte-
00450 BNE .2 zahl
00460 DEC BYTES+1 ernie-
00470 .2 DEC BYTES drigen
00480 *
00490 LDA BYTES+1 Ende
00500 ORA BYTES erreicht
00510 BNE .3 nein0x1F0x1F0x1F
00520 RTS zureck
" is not legal for a JDOM character content: 0x001f is not a legal XML character.