
VBDDRV  IDNT                            ; title.
        ORG     $50000                  ; start of code (MVME133A).

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

        MOVE.L   #$00000001,D6           ; Turn on the
        MOVEC    D6,CACR                 ;  CASH


        MOVEA.L    #$00300000,A0

        FOR.L   D0 = #$1 TO #$7FF0  BY #4  DO.S     ; PUT ZEROS
           CLR.L  (A0)+                             ; EVERYWHERE.
        ENDF



    MOVE.W    #$0004,$301FC2        ; SPEC TRIG PROGRAMMING   This shows that
                                    ; Spec Trig #2  depends on EM Ref Set #1

    MOVE.W    #$0004,$300386        ; SPEC TRIG'S FIRED   1st byte 300387
                                    ; $04  --->  Spec Trig #2  fired

    MOVE.W    #$001F,$3008D0        ; CHTCR  EM JET MASK   This says that EM
                                    ; Trig towers at eta = +1 and Phi = 16,15,
                                    ; 14,13,12.    Recall EM Ref Set are
                                    ; numbered  0...3


    MOVE.W    #$F6F7,$300430        ;
    MOVE.W    #$8101,$300432        ;
    MOVE.W    #$8202,$300434        ;
    MOVE.W    #$8303,$300436        ;
    MOVE.W    #$8404,$300438        ;
    MOVE.W    #$8505,$30043A        ;
    MOVE.W    #$8606,$30043C        ;
    MOVE.W    #$8707,$30043E        ;

    MOVE.W    #$8808,$300440        ;
    MOVE.W    #$8909,$300442        ;
    MOVE.W    #$9010,$300444        ;
    MOVE.W    #$9111,$300446        ;
    MOVE.W    #$9212,$300448        ;
    MOVE.W    #$9313,$30044A        ;
    MOVE.W    #$9414,$30044C        ;
    MOVE.W    #$9515,$30044E        ;

    MOVE.W    #$9616,$300450        ;
    MOVE.W    #$9717,$300452        ;
    MOVE.W    #$9818,$300454        ;
    MOVE.W    #$9919,$300456        ;
    MOVE.W    #$A020,$300458        ;
    MOVE.W    #$A121,$30045A        ;
    MOVE.W    #$A222,$30045C        ;
    MOVE.W    #$A323,$30045E        ;

    MOVE.W    #$A424,$300460        ;
    MOVE.W    #$A525,$300462        ;
    MOVE.W    #$A626,$300464        ;
    MOVE.W    #$A727,$300466        ;
    MOVE.W    #$A828,$300468        ;
    MOVE.W    #$A929,$30046A        ;
    MOVE.W    #$B030,$30046C        ;
    MOVE.W    #$B131,$30046E        ;

    MOVE.W    #$B232,$300470        ;
    MOVE.W    #$B333,$300472        ;
    MOVE.W    #$B434,$300474        ;
    MOVE.W    #$B535,$300476        ;
    MOVE.W    #$B636,$300478        ;
    MOVE.W    #$B737,$30047A        ;
    MOVE.W    #$B838,$30047C        ;
    MOVE.W    #$B939,$30047E        ;

    MOVE.W    #$C040,$300480        ;
    MOVE.W    #$C141,$300482        ;
    MOVE.W    #$C242,$300484        ;
    MOVE.W    #$C343,$300486        ;
    MOVE.W    #$C444,$300488        ;
    MOVE.W    #$C545,$30048A        ;
    MOVE.W    #$C646,$30048C        ;
    MOVE.W    #$C747,$30048E        ;

    MOVE.W    #$C848,$300490        ;
    MOVE.W    #$C949,$300492        ;
    MOVE.W    #$D050,$300494        ;
    MOVE.W    #$D151,$300496        ;
    MOVE.W    #$D252,$300498        ;
    MOVE.W    #$D353,$30049A        ;
    MOVE.W    #$D454,$30049C        ;
    MOVE.W    #$D555,$30049E        ;

    MOVE.W    #$D656,$3004A0        ;
    MOVE.W    #$D757,$3004A2        ;
    MOVE.W    #$D858,$3004A4        ;
    MOVE.W    #$D959,$3004A6        ;
    MOVE.W    #$E060,$3004A8        ;
    MOVE.W    #$E161,$3004AA        ;
    MOVE.W    #$E262,$3004AC        ;
    MOVE.W    #$E363,$3004AE        ;


        SYSCALL   .RETURN

        END

