; > &.Hdr.VduExt

OldOpt SETA {OPT}
       OPT OptNoList+OptNoP1List

; Sets up external symbols of the form VduExt_<var name>
; for use with SWI ReadVDUVariables

        MACRO
        NotRVVTBarWobblyBits    $var, $base
        [ "$base"<>""
NotRVVTBarWobblyBitscounter SETA $base
        ]
VduExt_$var                 *    NotRVVTBarWobblyBitscounter
NotRVVTBarWobblyBitscounter SETA NotRVVTBarWobblyBitscounter +1
        MEND

                            GBLA   NotRVVTBarWobblyBitscounter
NotRVVTBarWobblyBitscounter SETA    0

       NotRVVTBarWobblyBits    ModeFlags, 0
       NotRVVTBarWobblyBits    ScrRCol
       NotRVVTBarWobblyBits    ScrBRow
       NotRVVTBarWobblyBits    NColour
       NotRVVTBarWobblyBits    XEigFactor
       NotRVVTBarWobblyBits    YEigFactor
       NotRVVTBarWobblyBits    LineLength
       NotRVVTBarWobblyBits    ScreenSize
       NotRVVTBarWobblyBits    YShftFactor
       NotRVVTBarWobblyBits    Log2BPP
       NotRVVTBarWobblyBits    Log2BPC
       NotRVVTBarWobblyBits    XWindLimit
       NotRVVTBarWobblyBits    YWindLimit

       NotRVVTBarWobblyBits    GWLCol, &80
       NotRVVTBarWobblyBits    GWBRow
       NotRVVTBarWobblyBits    GWRCol
       NotRVVTBarWobblyBits    GWTRow
       NotRVVTBarWobblyBits    TWLCol
       NotRVVTBarWobblyBits    TWBRow
       NotRVVTBarWobblyBits    TWRCol
       NotRVVTBarWobblyBits    TWTRow
       NotRVVTBarWobblyBits    OrgX
       NotRVVTBarWobblyBits    OrgY
       NotRVVTBarWobblyBits    GCsX
       NotRVVTBarWobblyBits    GCsY
       NotRVVTBarWobblyBits    OlderCsX
       NotRVVTBarWobblyBits    OlderCsY
       NotRVVTBarWobblyBits    OldCsX
       NotRVVTBarWobblyBits    OldCsY
       NotRVVTBarWobblyBits    GCsIX
       NotRVVTBarWobblyBits    GCsIY
       NotRVVTBarWobblyBits    NewPtX
       NotRVVTBarWobblyBits    NewPtY
       NotRVVTBarWobblyBits    ScreenStart
       NotRVVTBarWobblyBits    DisplayStart
       NotRVVTBarWobblyBits    TotalScreenSize
       NotRVVTBarWobblyBits    GPLFMD
       NotRVVTBarWobblyBits    GPLBMD
       NotRVVTBarWobblyBits    GFCOL
       NotRVVTBarWobblyBits    GBCOL
       NotRVVTBarWobblyBits    TForeCol
       NotRVVTBarWobblyBits    TBackCol
       NotRVVTBarWobblyBits    GFTint
       NotRVVTBarWobblyBits    GBTint
       NotRVVTBarWobblyBits    TFTint
       NotRVVTBarWobblyBits    TBTint
       NotRVVTBarWobblyBits    MaxMode
       NotRVVTBarWobblyBits    GCharSizeX
       NotRVVTBarWobblyBits    GCharSizeY
       NotRVVTBarWobblyBits    GCharSpaceX
       NotRVVTBarWobblyBits    GCharSpaceY
       NotRVVTBarWobblyBits    HLineAddr
       NotRVVTBarWobblyBits    TCharSizeX
       NotRVVTBarWobblyBits    TCharSizeY
       NotRVVTBarWobblyBits    TCharSpaceX
       NotRVVTBarWobblyBits    TCharSpaceY
       NotRVVTBarWobblyBits    GcolOraEorAddr

       NotRVVTBarWobblyBits    WindowWidth, &100
       NotRVVTBarWobblyBits    WindowHeight

; Bits in ModeFlags

Flag_NonGraphic * 1
Flag_Teletext   * 2
Flag_GapMode    * 4
Flag_BBCGapMode * 8
Flag_HiResMono  * 16
Flag_DoubleVertical * 32
Flag_HardScrollDisabled * 64    ; set when outputting to a sprite

        OPT     OldOpt

        END
