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