test_spec_trig_prog_fire   IDNT                             ; title

        INCLUDE 68020_EQUATES.INC        ; Get the MVME133A BUG ROM Calls.

        ORG     $10000                   ; start of code (MVME133A).

        PEA.L   HELLOloc                 ; push message address on stack.
        SYSCALL .WRITELN                 ; and send it out.


        move.w    #$3000,-(SP)
        syscall   .outchr

        move.w    #$3100,-(SP)
        syscall   .outchr

        syscall   .pcrlf


        MOVE.L   #1,D0                   ; turn on the cashe
        MOVEC   D0,CACR

OMT     MOVE.B   #$FF,$FFFFF001          ; set external signal LOW

        JSR      Begin_Move_Data

        JSR      Begin_Spec_Trig_Prog_Fire

        JSR      Begin_EM_Jet_List

        JSR      Begin_TEt_Jet_List

        MOVE.B   #$00,$FFFFF001          ; set external signal HIGH

;;;;        JMP     OMT


        PEA.L   HELLOloc2                ; push message address on stack.
        SYSCALL .WRITELN                 ; and send it out.

        SYSCALL .return                  ; return to the bug


HELLOloc      DC.B    50,'  Hello from the MAIN now jump to subroutine      '
HELLOloc2     DC.B    50,'  Hello back from the EM Jet List Buiilder        '


        XREF    Begin_EM_Jet_List,Begin_Move_Data,Begin_Spec_Trig_Prog_Fire
        XREF    Begin_TEt_Jet_list

        INCLUDE  Main_Symbols.Include

        END

