unit vbxe

Video Board XE unit

author: Tomasz Biela (Tebe)

Constants:

name:value:description:
LoRes1
MedRes2
HiRes3
VC_XDL1
VC_XCOLOR2
VC_NO_TRANS4
VC_TRANS158

Types:

name:type:description:
TUInt24record
  • byte0: byte;
  • byte1: byte;
  • byte2: byte;

end;
TXDLrecord
  • xdlc_: word; // blank
  • rptl_: byte;
  • xdlc: word;
  • rptl: byte;
  • ov_adr: TUInt24;
  • ov_step: word;
  • mp_adr: TUInt24;
  • mp_step: word;
  • mp_hscrol: byte;
  • mp_vscrol: byte;
  • mp_width: byte;
  • mp_height: byte;
  • ov_width: byte;
  • ov_prior: byte;

end;
TBCBrecord
  • src_adr: TUInt24;
  • src_step_y: smallint;
  • src_step_x: shortint;
  • dst_adr: TUInt24;
  • dst_step_y: smallint;
  • dst_step_x: shortint;
  • blt_width: word;
  • blt_height: byte;
  • blt_and_mask: byte;
  • blt_xor_mask: byte;
  • blt_collision_mask: byte;
  • blt_zoom: byte;
  • pattern_feature: byte;
  • blt_control: byte;

end;
TVBXEMemoryStreamObject
end;

Interface:

name:description:
BlitterBusy

function BlitterBusy: Boolean; assembler;



    ColorMapOff

    procedure ColorMapOff; assembler;



      ColorMapOn

      procedure ColorMapOn; assembler;



        DstBCB

        procedure DstBCB(var a: TBCB; dst: cardinal);



          GetXDL

          procedure GetXDL(var a: txdl); register; assembler;



            IniBCB

            procedure IniBCB(var a: TBCB; src,dst: cardinal; w0, w1: smallint; w: word; h: byte; ctrl: byte);



              OverlayOff

              procedure OverlayOff; assembler;



                ReadVBXEMemoryByte

                function ReadVBXEMemoryByte(var Position: cardinal): byte;



                  RunBCB

                  procedure RunBCB(var a: TBCB); assembler;



                    SetHorizontalRes

                    procedure SetHorizontalRes(a: byte); assembler;



                      SetHRes

                      procedure SetHRes(a: byte); assembler;



                        SetXDL

                        procedure SetXDL(var a: txdl); register; assembler;



                          SrcBCB

                          procedure SrcBCB(var a: TBCB; src: cardinal);



                            TVBXEMemoryStream.Clear

                            procedure TVBXEMemoryStream.Clear;



                              TVBXEMemoryStream.Create

                              procedure TVBXEMemoryStream.Create;



                                TVBXEMemoryStream.ReadBuffer

                                procedure TVBXEMemoryStream.ReadBuffer(var Buffer; Count: word);



                                  TVBXEMemoryStream.ReadByte

                                  function TVBXEMemoryStream.ReadByte: Byte;



                                    TVBXEMemoryStream.ReadDWord

                                    function TVBXEMemoryStream.ReadDWord: Cardinal;



                                      TVBXEMemoryStream.ReadWord

                                      function TVBXEMemoryStream.ReadWord: Word;



                                        TVBXEMemoryStream.SetBank

                                        procedure TVBXEMemoryStream.SetBank;



                                          TVBXEMemoryStream.WriteBuffer

                                          procedure TVBXEMemoryStream.WriteBuffer(var Buffer; Count: word);



                                            TVBXEMemoryStream.WriteByte

                                            procedure TVBXEMemoryStream.WriteByte(b: Byte);



                                              TVBXEMemoryStream.WriteDWord

                                              procedure TVBXEMemoryStream.WriteDWord(d: Cardinal);



                                                TVBXEMemoryStream.WriteWord

                                                procedure TVBXEMemoryStream.WriteWord(w: Word);



                                                  VBXEControl

                                                  procedure VBXEControl(a: byte); assembler;



                                                    VBXEMemoryBank

                                                    procedure VBXEMemoryBank(b: byte); assembler;



                                                      VBXEOff

                                                      procedure VBXEOff; assembler;



                                                        WriteVBXEMemoryByte

                                                        procedure WriteVBXEMemoryByte(var Position: cardinal; a: byte);