ORG     $0
        DC.L    $8000
        DC.L    START
        ORG     $400
START:  MOVE.B  #39, D0
        MOVE.B  #0, D1
        BTST.L  #$00, D0
        BEQ Else1
        BSET.L  #$07, D1
Else1   BTST.L  #$01, D0
        BEQ Else2
        BSET.L  #$06, D1
Else2   BTST.L  #$02, D0
        BEQ Else3
        BSET.L  #$05, D1
Else3   BTST.L  #$03, D0
        BEQ Else4
        BSET.L  #$04, D1
Else4   BTST.L  #$04, D0
        BEQ Else5
        BSET.L  #$03, D1
Else5   BTST.L  #$05, D0
        BEQ Else6
        BSET.L  #$02, D1
Else6   BTST.L  #$06, D0
        BEQ Else7
        BSET.L  #$01, D1
Else7   BTST.L  #$07, D0
        BEQ Exit
        BSET.L  #$00, D1

Exit
        STOP #$2700
        END    START