This buffer is for notes you don't want to save, and for Lisp evaluation.
If you want to create a file, visit that file with C-x C-f,
then enter the text in that file's own buffer.


       NODE    vme_address[6..0]; " not needed, but helps ledgibilty

        vme_address[6..0] = [ab[6..2],0,0];

        CASE    (vme_address)

        "Registers                                                                               -- id -- attr -----
                WHEN 00h  => access_data.D       = 1;   addr_valid = 1; " 0 - 24bit     rw reg
                WHEN 04h  => read_feedback0.D    = 1;   addr_valid = 1; " 1 -  8bit ro reg
                WHEN 08h  => read_feedback1.D    = 1;   addr_valid = 1; " 2 -  8bit ro reg
                WHEN 0Ch  => read_feedback2.D    = 1;   addr_valid = 1; " 3 -  8bit ro reg
                WHEN 10h  => access_status.D     = 1;   addr_valid = 1; " 4 -  3bit ro reg, wr=reset
                WHEN 14h  => read_trig_count.D = 1;     addr_valid = 1; " 5 -  8bit ro reg
                WHEN 18h  => access_tp_mask.D    = 1;   addr_valid = 1; " 6 - 15bit rw reg
                WHEN 1Ch  => access_sl_sent.D  = 1;     addr_valid = 1; " 7 - 15bit ro reg, wr=reset

        "Commands
                WHEN 20h  => hsd_mode_set.D      = 1;   addr_valid = 1; " 8 - r/wr = command
                WHEN 24h  => output_data_set.D = 1;     addr_valid = 1; " 9 - r/wr = command
                WHEN 28h  => soft_trig.D       = 1;     addr_valid = 1; "10 - r/wr = command
                WHEN 2Ch  => hsd_mode_reset.D  = 1;     addr_valid = 1; "11 - r/wr = command
                WHEN 30h  => soft_test.D                 =      1;      addr_valid = 1; "12 - r/wr = command
                "WHEN 34h  => ;
        "13 - unused
                "WHEN 38h  => ;
        "14 - unused
                WHEN 3Ch  => reset_cmd.D       = 1; addr_valid = 1;     "15 - r/wr = command

        "Delays
                WHEN 40h  => dlen[ 0] = 1;      addr_valid = 1;                         "16 - wo
           WHEN 44h  => dlen[ 1] = 1;   addr_valid = 1;                         "17 - wo
           WHEN 48h  => dlen[ 2] = 1;   addr_valid = 1;                         "18 - wo
           WHEN 4Ch  => dlen[ 3] = 1;   addr_valid = 1;                         "19 - wo
           WHEN 50h  => dlen[ 4] = 1;   addr_valid = 1;                         "20 - wo
           WHEN 54h  => dlen[ 5] = 1;   addr_valid = 1;                         "21 - wo
           WHEN 58h  => dlen[ 6] = 1;   addr_valid = 1;                         "22 - wo
           WHEN 5Ch  => dlen[ 7] = 1;   addr_valid = 1;                         "23 - wo
           WHEN 60h  => dlen[ 8] = 1;   addr_valid = 1;                         "24 - wo
           WHEN 64h  => dlen[ 9] = 1;   addr_valid = 1;                         "25 - wo
           WHEN 68h  => dlen[10] = 1;   addr_valid = 1;                         "26 - wo
           WHEN 6Ch  => dlen[11] = 1;   addr_valid = 1;                         "27 - wo
           WHEN 70h  => dlen[12] = 1;   addr_valid = 1;                         "28 - wo
           WHEN 74h  => dlen[13] = 1;   addr_valid = 1;                         "29 - wo
           WHEN 78h  => dlen[14] = 1;   addr_valid = 1;                         "30 - wo
           WHEN 7Ch  => dlen = (7FFFh AND writeb15);
                                                                                addr_valid = 1;
"31 - wo - simul all del_unit wr
           
           ELSE addr_valid = 0;

        END CASE;