;Sortowanie przez prosta zamiane.
         .OPT  LIST,OBJ
		 .include #d:\6502.s65\lib.s65\shortsys.s65
ILE      =   25
MAXELEM  =   $C0     °
ADRELEM  =   $C1     °
PHA      =   $C2     °
         *=  $6000
         .macro first
;takie jakies macro
         lda #10
tu       sta tablica
         lda #23
         sta $cccc
         sta sch
         beq tu
         bne om
sch      .byte $bb
om
         .endm
         .macro txx
         lda #%1
         tax
         .endm
         .macro move.b
         lda %1
         sta %2
         txx 2
         .endm
         move.b $1111,$2222
         txx 1
         first
         alamakot
; troche bzedetow
	     .opt noxref,no mlist,no clist,num,no eject
         .title"To jest tytul"
         .page "To jest naglowek";komentarz
	  	 .set 0,5
         .set 4,80
         .tab 16,24,56
         lda # .not 0
         lda #<5.or 15
?loc=$567
?loc2=$4444
         lda ?loc
         sta ?loc2
         .local
?loc=$123
         lda ?loc
         lda 100 .and 2*[20+30]*0
         lda 100 .and 2*[20+31]
         lda #<7+6*5+[3+ile]
         lda #>ile*20
         lda #>$4000
; koniec bzdetow
         .include #src1.s65
tab = tablica; komentarz
lbl .= jeszczeraz
         lda lbl-2
lbl .= $6000+10
         lda lbl
         LDY #ILE-1
;  	     .error "Sam sobie robie error"
JESZCZERAZ
         STY MAXELEM
NEWMAX
         LDA TABLICA,Y
         STY ADRELEM
BEZZMIAN
         DEY 
         BMI NASTCYKL
         CMP TABLICA,Y
         BCS BEZZMIAN
         BCC NEWMAX
NASTCYKL
         LDX ADRELEM
         LDY MAXELEM
         LDA TABLICA,X
         STA PHA
         LDA TABLICA,Y
         STA TABLICA,X
         LDA PHA
         STA TABLICA,Y
         DEY 
         BNE JESZCZERAZ
         RTS 
;NEWmax
        lda tab
;		lda kot
        sta tab;komentarz
;       *=*+2;komentarz
TABLICA
         .BYTE 2,6,7,1,2,4,3,225,255,0,0,0,1,1,1,2,65,45,78,98,121,23,65,78,99
         .if 1
         .if maxelem=$c0
         .word  $ffff,65535,0,1536,1537,$8000,$0800,1535,tablica
         .else
         .dbyte $ffff,65535,0,1536,1537,$8000,$0800,1535,tablica
         .endif
         .endif
         .byte   +2,"ala ma kota",34,$54,"costam",'A
         .sbyte +$2,"ala ma kota",34,$54,"costam",'A
         .cbyte +02,"ala ma kota",34,$54,"costam",'A
         .OPT LIST
         .incbin #ia
         .opt noobj
		  lda #2
         .opt obj
		 .include #src2.s65
	      lda # .not <-12
          lda #.ref edek
          lda # .ref edek
          lda # .def tablica
          .incbin #e:\drucker.dat
          .incbin #ddd.s65 
         .float 0,5,10,10.256,10e10,1000000
          .float 1e10,1E-10,-1e10,-1e-10,-1234.15e10,123.456666555e-10
          .float 0.00005,0.005e-10,0.006e23,-0.9943,0.00e10,.1
la.=5; to znaczy la. = 5 a nie la .=5
           first ;my first macro
          .float 0.5,0.5000000000000000
          lda # >$f0c5
          lda #:1011
          sta :10101101100111
          lda 1+:10
		  poke 45673,$413
		  .rept 5
		   .byte 1,2,3,4,5
         .endr

        .macro ds.b
		  .rept %1
		    .if %0>1
		      .byte %2
		    .else
              .byte 0
            .endif
	      .endr
        .endm

		ds.b 3
		ds.b 16,7
	    .rept 2
		  dpoke $1000,$123
		.endr
*********koniec************
a1
	*= [[>[*-1]]+1]*256
a0
	.byte 1,2,3,4,5,6
	*=736
	.word jeszczeraz