ORG 0
INIT MOVE 0, R6 ;COUNTER PARNIH PARITETA
     MOVE 0C, R1 ;BROJAC PODATAKA
     MOVE PODACI, R5 ;POZICIJA PODATAKA
     MOVE 0, R2 ;REGISTAR ZA USPOREDBU
     MOVE 0FFFF, SP ;INICIJALIZACIJA STACK POINTERA

MAIN LOADB R0, (R5)
     OR R0, R2, R2
     PUSH R0
     CALL PAR
     CMP R0, R2
     CALL_NZ PARNI

     STOREB R0, (R5)
     ADD SP, 4, SP

     ADD R5, 1, R5
     SUB R1, 1, R1

     JR_NZ MAIN

     HALT

PAR  LOAD R0, (SP+4)
     MOVE 0, R3 ;USPOREDBA DULJINE
     MOVE 0, R4 ;BROJAC JEDINICA
     CALL PETLJA

     ROTR R4, 1, R4
     CALL_NC POSTAVI

     RET

POSTAVI ADD R0, 80, R0
     RET


PETLJA ADD R3, 1, R3
     ROTR R0, R3, R0
     CALL_C BROJAC
     ROTL R0, R3, R0

     CMP R3, 8
     JR_NZ PETLJA

     RET


BROJAC ADD R4, 1, R4
     RET

PARNI ADD R6, 1, R6
      RET

PODACI DB 0, 1, FF, 2, 3, F3, F8, E, B, 36, 7E, 9F