;ALGORITMO DIVISIONE (sottrazione ripetuta)

LD B, 15 ; DIVIDENDO
LD C, 2 ;DIVISORE
LD E, 0 ;risultato nel registro E


LD A, B
NEG
JP Z, zero_dividendo  ;(0:y = 0)


LD A, C
NEG ; per settaare il flag di zero
JP Z, zero_divisore ; (y:0 = ERROR)

LD A, B
MAIN:
SUB C ;toglie la quantita' C dall' accumulatore
JP M, flag_segno_attivo
JP Z, fine
INC D ; +1
JP MAIN

fine:
INC D
LD E, D
HALT

zero_dividendo:
LD E, A ;carica zero in E
HALT

zero_divisore:
HALT ;arresta il PU

flag_segno_attivo:
LD E, D
HALT