*-----------------------------------------------------------
* Title      :
* Written by :
* Date       :
* Description:
*-----------------------------------------------------------
    ORG    $1000
START:
start
    lea tab(pc),a0
    moveq #1,d0
    move.l #18,d1
    move.w d1,d5
    lsr.w  #1,d5

loop

    move.l d1,d2
    divu.w d0, d2
    swap d2
    cmp.w #0, d2
    bne.s next

zapisz move.w d0, (a0)+
next  addq.w #1,d0
    cmp.w  d5,d0
    ble.s loop
    move.w d1, (a0)

zakoncz

tab
    dc.w $0000,0,0,0,0
    ds.w 20
    END    START        ; last line of source

*~Font name~Courier New~
*~Font size~10~
*~Tab type~1~
*~Tab size~4~