Bu sayfadaki yazılar
Sayfanın metni
Sayfa 24
;====================================================================; ; TEXT ŞİFRE / DEŞİFRE PROGRAMI ; ; 31-05-2003 / HADES ; ;====================================================================; *=$0900
;--------------------------------------------------------------------; mainsifre jmp sifre maindesifre jmp desifre ;--------------------------------------------------------------------; sifre lda #<text ldx #>text sta read+1 stx read+2 lda #<sifrememory ldx #>sifrememory sta $fb stx $fc ldx #$00 ldy #$00 looppack jsr read asl asl sta temp inx jsr read jsr lsr4 ora temp sta ($fb),y jsr read jsr asl4 sta temp inx jsr read lsr lsr ora temp iny sta ($fb),y jsr read jsr asl6 sta temp inx jsr read ora temp iny sta ($fb),y inx iny cpy length
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 25
bne looppack rts ;--------------------------------------------------------------------; desifre lda #<sifrememory ldx #>sifrememory sta read+1 stx read+2 lda #<desifrememory ldx #>desifrememory sta $fb stx $fc ldx #$00 ldy #$00 loopdepack jsr read lsr lsr sta ($fb),y jsr read and #$03 jsr asl4 sta temp inx jsr read jsr lsr4 ora temp iny sta ($fb),y jsr read and #$0f asl asl sta temp inx jsr read jsr lsr6 ora temp iny sta ($fb),y jsr read and #$3f iny sta ($fb),y iny inx cpx length bne loopdepack rts ;--------------------------------------------------------------------; lsr6 lsr lsr lsr4 lsr lsr lsr lsr rts ;--------------------------------------------------------------------;
asl6 asl