opt 21›dl equ $a000›scr equ $9000›tab1 equ $a400›tab2 equ $a500›font equ $e000›adr_1 equ $80 ,$81›adr_2 equ $82 ,$83›cont equ $84›start equ $85›help equ $86 ,$87›stos1 equ $88›stos2 equ $89›stos3 equ $8a›coto equ $8b›adr equ $8c ,$8d›poz equ $8e››ilosc equ 30› org $b000› lda #0› sta cont› sta poz› lda #0› sta $22f› lda <font› sta adr_1› lda >font› sta adr_1+1› ldx #0›taz_1 lda adr_1› sta tab1,x› lda adr_1+1› sta tab2,x› lda adr_1› clc› adc #8› sta adr_1› lda adr_1+1› adc #0› sta adr_1+1› inx› bne taz_1›› lda #%100001› sta $22f› lda <dl› sta $230› lda >dl› sta $231› lda <txt› sta adr_1› sta adr› lda >txt› sta adr_1+1› sta adr+1› lda <scr› sta adr_2› lda >scr› sta adr_2+1› lda #0› sta stos1› sta stos2› sta stos3› sta coto›tx_1 ldy stos1› lda (adr_1),y› tax› lda tab1,x› sta help› lda tab2,x› sta help+1› ldy stos2› lda (help),y› ldy stos3› sta (adr_2),y› inc stos1› inc stos3› lda stos3› cmp #$20› bne tx_1› lda #0› sta stos3› sta stos1› lda adr_2› clc› adc #$20› sta adr_2› lda adr_2+1› adc #0› sta adr_2+1› inc stos2› lda stos2› cmp #8› bne tx_1› lda adr_1› clc› adc #$20› sta adr_1› lda adr_1+1› adc #0› sta adr_1+1› lda #0› sta stos2› inc coto› lda coto› cmp #$10› bne tx_1› jsr main›gl_ lda 764› cmp #15› beq dol› cmp #14› beq gora› jmp gl_›gora jmp goro›dol lda poz› cmp #ilosc› beq gl_› inc poz› lda cont› cmp #$78› beq dol_3› lda #7› sta coto› lda adr› clc› adc #$20› sta adr› lda adr+1› adc #0› sta adr+1› lda #$ff› sta 764›dol_2 inc cont› jsr main› lda $14› cmp $14› beq *-2› dec coto› bpl dol_2› jmp gl_›dol_3 ldx #0›dol_4 lda scr+$100,x› sta scr,x› lda scr+$200,x› sta scr+$100,x› lda scr+$300,x› sta scr+$200,x› lda scr+$400,x› sta scr+$300,x› lda scr+$500,x› sta scr+$400,x› lda scr+$600,x› sta scr+$500,x› lda scr+$700,x› sta scr+$600,x› lda scr+$800,x› sta scr+$700,x› lda scr+$900,x› sta scr+$800,x› lda scr+$a00,x› sta scr+$900,x› lda scr+$b00,x› sta scr+$a00,x› lda scr+$c00,x› sta scr+$b00,x› lda scr+$d00,x› sta scr+$c00,x› lda scr+$e00,x› sta scr+$d00,x› lda scr+$f00,x› sta scr+$e00,x› inx› bne dol_4› lda adr› clc› adc #$20› sta adr› sta adr_1› lda adr+1› adc #0› sta adr+1› sta adr_1+1›› lda <scr+$f00› sta adr_2› lda >scr+$f00› sta adr_2+1› lda #0› sta stos1› sta stos2› sta stos3› sta coto›dtx_1 ldy stos1› lda (adr_1),y› tax› lda tab1,x› sta help› lda tab2,x› sta help+1› ldy stos2› lda (help),y› ldy stos3› sta (adr_2),y› inc stos1› inc stos3› lda stos3› cmp #$20› bne dtx_1› lda #0› sta stos3› sta stos1› lda adr_2› clc› adc #$20› sta adr_2› lda adr_2+1› adc #0› sta adr_2+1› inc stos2› lda stos2› cmp #8› bne dtx_1› jsr main› lda #$ff› sta 764› lda $14› cmp $14› beq *-2›gls jmp gl_›goro lda poz› cmp #0› beq gls› dec poz› lda cont› cmp #$0› beq goro_3› lda #7› sta coto› lda adr› sec› sbc #$20› sta adr› lda adr+1› sbc #0› sta adr+1› lda #$ff› sta 764›goro_2 dec cont› jsr main› lda $14› cmp $14› beq *-2› dec coto› bpl goro_2› jmp gl_›goro_3 ldx #0›goro_4 lda scr+$e00,x› sta scr+$f00,x› lda scr+$d00,x› sta scr+$e00,x› lda scr+$c00,x› sta scr+$d00,x› lda scr+$b00,x› sta scr+$c00,x› lda scr+$a00,x› sta scr+$b00,x› lda scr+$900,x› sta scr+$a00,x› lda scr+$800,x› sta scr+$900,x› lda scr+$700,x› sta scr+$800,x› lda scr+$600,x› sta scr+$700,x› lda scr+$500,x› sta scr+$600,x› lda scr+$400,x› sta scr+$500,x› lda scr+$300,x› sta scr+$400,x› lda scr+$200,x› sta scr+$300,x› lda scr+$100,x› sta scr+$200,x› lda scr,x› sta scr+$100,x› inx› bne goro_4› lda adr› sec› sbc #$20› sta adr› sta adr_1› lda adr+1› sbc #0› sta adr+1› sta adr_1+1›› lda <scr› sta adr_2› lda >scr› sta adr_2+1› lda #0› sta stos1› sta stos2› sta stos3› sta coto›gtx_1 ldy stos1› lda (adr_1),y› tax› lda tab1,x› sta help› lda tab2,x› sta help+1› ldy stos2› lda (help),y› ldy stos3› sta (adr_2),y› inc stos1› inc stos3› lda stos3› cmp #$20› bne gtx_1› lda #0› sta stos3› sta stos1› lda adr_2› clc› adc #$20› sta adr_2› lda adr_2+1› adc #0› sta adr_2+1› inc stos2› lda stos2› cmp #8› bne gtx_1› jsr main› lda #$ff› sta 764› lda $14› cmp $14› beq *-2› jmp gl_››main ldx #0› lda <dl› sta adr_1› lda >dl› sta adr_1+1› lda <scr› sta adr_2› lda >scr› sta adr_2+1› lda cont› beq dls_›dls_1 ldy #0› lda #'O'› sta (adr_1),y› iny› lda adr_2› sta (adr_1),y› iny› lda adr_2+1› sta (adr_1),y› lda adr_1› clc› adc #$3› sta adr_1› lda adr_1+1› adc #0› sta adr_1+1› lda adr_2› clc› adc #$20› sta adr_2› lda adr_2+1› adc #0› sta adr_2+1› inx› cpx cont› bne dls_1›dls_ stx start› ldx #0›dls_2 ldy #0› lda #'O'› sta (adr_1),y› iny› lda adr_2› sta (adr_1),y› iny› lda adr_2+1› sta (adr_1),y› iny› lda #'O'› sta (adr_1),y› iny› lda adr_2› sta (adr_1),y› iny› lda adr_2+1› sta (adr_1),y› lda adr_1› clc› adc #$6› sta adr_1› lda adr_1+1› adc #0› sta adr_1+1› lda adr_2› clc› adc #$20› sta adr_2› lda adr_2+1› adc #0› sta adr_2+1› inc start› inx› cpx #$8› bne dls_2› lda start› cmp #128› beq dls__› ldx #0›dls_3 ldy #0› lda #'O'› sta (adr_1),y› iny› lda adr_2› sta (adr_1),y› iny› lda adr_2+1› sta (adr_1),y› lda adr_1› clc› adc #$3› sta adr_1› lda adr_1+1› adc #0› sta adr_1+1› lda adr_2› clc› adc #$20› sta adr_2› lda adr_2+1› adc #0› sta adr_2+1› inc start› lda start› cmp #128› bne dls_3››dls__ ldy #0› lda #'p'› sta (adr_1),y› iny› lda #'B'› sta (adr_1),y› iny› lda adr› sta (adr_1),y› iny› lda adr+1› sta (adr_1),y› iny› lda #'A'› sta (adr_1),y› iny› lda <dl› sta (adr_1),y› iny› lda >dl› sta (adr_1),y› rts›txt dta d'    przykladowy tekst           '› dta d'tego tekstu nie powinno sie brac'› dta d'pod uwage jako cos modrego. a   '› dta d'wiec zaczynajmy:                '› dta d'ala Ma COtka I ten Cotek Ma raKa'› dta d'pluc i biedaczysko pluje sie kr-'› dta d'wiq                             '› dta d'1                               '› dta d'2                               '› dta d'3                               '› dta d'4                               '› dta d'5                              '› dta d'6                              '› dta d'7                              '› dta d'8                              '› dta d'9                              '› dta d'10!                             '› dta d'kolejne artykoski....           '› dta d'11                             '› dta d'12                             '› dta d'13+                             '› dta d'14 
                            '› dta d'15                             '› dta d'16!                             '› dta d'moia buda jest Przejebana!!!!!!!'› dta d'moia buda jest Przejebana???????'› dta d'i to jak!!                      '› dta d'17                              '› dta d'18                              '› dta d'19                              '› dta d'20                              '›››scrs dta d'                                '›