{s ColorMap
    BYTE  Flags
    BYTE  Type
    WORD  Count
    APTR  ColorTable
   s}

{s ViewPort
    LONG     Next
    LONG     ColorMap
    LONG     DspIns
    LONG     SprIns
    LONG     ClrIns
    LONG     UCopIns
    WORD     DWidth
    WORD     DHeight
    WORD     DxOffset
    WORD     DyOffset
    WORD     Modes
    BYTE     SpritePriorities
    BYTE     reserved
    APTR     RasInfo
   s}

{s View
    LONG   ViewPort
    LONG   LOFCprList
    LONG   SHFCprList
    WORD   DyOffset
    WORD   DxOffset
    WORD   Modes
   s}

EQU GENLOCK_VIDEO   $0002
EQU LACE            $0004
EQU PFBA            $0040
EQU EXTRA_HALFBRITE $0080
EQU GENLOCK_AUDIO   $0100
EQU DUALPF          $0400
EQU HAM             $0800
EQU VP_HIDE         $2000
EQU SPRITES         $4000
EQU HIRES           $8000

{s RasInfo
    APTR     Next
    LONG     BitMap
    WORD     RxOffset
    WORD     RyOffset
   s}


>Graphics   -360 (r A1 r)    InitView  (s view -- )
>Graphics   -222 (r A1 r)    LoadView  (s view -- )
>Graphics   -216 (r A1 A0 r) MakeVPort (s vP view -- )
>Graphics   -210 (r A1 r)    MrgCop    (s view -- )

>Graphics   -204 (r A0 r) InitVPort         (s vP -- )
>Graphics   -588 (r A0 r) ScrollVPort       (s vP -- )
>Graphics   -540 (r A0 r) FreeVPortCopLists (s vP -- )
>Graphics   -402 (r A0 r) WaitBOVP          (s vP -- )

>Graphics ^ -570 (r D0 r) GetColorMap  (s entries -- cm )
>Graphics   -576 (r A0 r) FreeColorMap (s cm -- )

>Graphics ^ -582 (r A0 D0 r)          GetRGB4   (s cm entry -- color )
>Graphics   -192 (r A1 A0 D0 r)       LoadRGB4  (s colors vP count -- )
>Graphics   -288 (r A0 D3 D2 D1 D0 r) SetRGB4   (s vP color# b g r -- )
>Graphics   -630 (r A0 D3 D2 D1 D0 r) SetRGB4CM (s cm c# b g r -- )