opt 37›     org $2000›››*-- kopiuje:›*   LOGO.DAT z $4000 do $6C00-77ff›*   zaraz za tunel.dat››skad equ $4000›dok  equ $6c00›max  equ $77ff››     lda <skad›     sta $80›     lda >skad›     sta $81›     lda <dok›     sta $82›     lda >dok›     sta $83›     lda <max›     sta $84›     lda >max›     sta $85›     ldy #0››l0 ldx #$ff› stx $d301› lda ($80),y› ldx #$eb› stx $d301› sta ($82),y›› cpy $84› bne l1› lda $83› cmp $85› beq exit››l1 iny› bne l0› inc $81› inc $83› jmp l0››exit lda #$ff› sta $d301› rts››››