* Program ki sesteje 6 stevilk iz lokacij
  * $3000 - %3005 in zapise v port
  * Potem preveri ce je rezultat pravilen
       nam sest_out
       org $fffe
       fdb zaceti

       * Definicije
port1  equ $0002
       * V spomin nalozimo 6 vrednosti od 0 - 50
       sm $3000 100 21 5 2 120 40

       org $3006
zaceti ldaa $3000
       adda $3001
       adda $3002
       adda $3003
       adda $3004
       adda $3005

       * Inicializiramo smerni register
       ldab #%11111111
       stab $0000

       * Shranimo rezultat v podatkovni register
       staa port1

       end