Test_Sort_EM_Jet_List_1   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.L   #1,D0                   ; Get the Cashe running
        MOVEC   D0,CACR

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

        JSR      Begin_Fill

        MOVEA.L  #$00020000,A0           ; Load the base address for the list
        MOVE.L   #8,D6                  ; Load the list length

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

        JSR      Begin_Sort_EM_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                             '

        XREF    Begin_Sort_EM_Jet_List,Begin_Fill

        INCLUDE  Main_Symbols.Include

        END

