*-----------------------------------------------------------
* Title      :
* Written by :
* Date       :
* Description:
*-----------------------------------------------------------
    ORG    $1000
START:                  

*    move.l   #irq1,$64
*    move.l   #irq2,$68
*    move.l   #irq3,$6C
*    move.l   #irq4,$70
*    move.l   #irq5,$74
*    move.l   #irq6,$78
*    move.l   #irq7,$7C
    
    move.l   #irq1,100
    move.l   #irq2,104
    move.l   #irq3,108
    move.l   #irq4,112
    move.l   #irq5,116
    move.l   #irq6,120
    move.l   #irq7,124


loop   nop
       nop
       nop
       bra   loop

    STOP	#$00
    
    
segment7:
    movem.l d3-d4/a0-a2,-(a7)
    move.w  24(a7),d3
    lea digits,a0           
    jsr resettaDisplay
    move.l #$E00000,a2  *Indirizzo del display a segmenti
    lea     position,A3 *position mi indica la posizione del display
    *move.l  #14,d1
    move.b  (a0,d3),14(a2) *Nella prima cifra a destra inserisco il valore della interruzione 
    move.l  d3,d1
    move.b  (a3,d1),d3      *sposto in d3 la posizione in cui deve visualizzare il valore
    move.b  #92,(a2,d3)     *Visualizzo il simbolo alla posizione desiderata
    movem.l (a7)+,d3-d4/a0-a2    
    rts
    

resettaDisplay:
        movem.l d3/d4/a2,-(a7)
        move.l #$E00000,a2  *Indirizzo del display a segmenti
        move.l  #10,d3      *spegne le varie cifre
        move    #14,d4
        *il ciclo mi serve per spegnerle tutte
cic:    move.b  (a0,d3),(a2,d4) *indirizz. indiretto con reg. indirizzo + indice + scostamento (in questo caso non c'è)
        sub.l   #2,d4
        bge cic
        movem.l (a7)+,d3/d4/a2
        rts
    


irq1   move.w #1,-(a7)
       JSR  segment7
       add.l    #2,a7
       rte

irq2   move.w #2,-(a7)
       JSR  segment7
       add.l    #2,a7
       rte


irq3   move.w #3,-(a7)
       JSR  segment7
       add.l    #2,a7
       rte


irq4   move.w #4,-(a7)
       JSR  segment7
       add.l    #2,a7
       rte


irq5   move.w #5,-(a7)
       JSR  segment7
       add.l    #2,a7
       rte


irq6   move.w #6,-(a7)
       JSR  segment7
       add.l    #2,a7
       rte


irq7   move.w #7,-(a7)
       JSR  segment7
       add.l    #2,a7
       rte


    SIMHALT             ; halt simulator


digits:
    *dc.b    $3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F,$00,$40
    dc.b  $3F           *digit 0
    dc.b  $06           *digit 1
    dc.b  $5B           *digit 2
    dc.b  $4F           *digit 3
    dc.b  $66           *digit 4
    dc.b  $6D           *digit 5
    dc.b  $7D           *digit 6
    dc.b  $07           *digit 7
    dc.b  $7F           *digit 8
    dc.b  $6F           *digit 9
    dc.b  $00           *digit off
    dc.b  $40           *dash

position dc.b       14,12,10,8,6,4,2,0
    END    START        



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