home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / def / gemlib / xbios.def < prev   
Encoding:
Modula Definition  |  1994-09-22  |  12.6 KB  |  423 lines
  1. DEFINITION MODULE XBIOS;
  2. (* --------------------------------------------------------------
  3.          XBIOS - Modula interface to Atari extended BIOS functions
  4.    -------------------------------------------------------------------- *)
  5.  
  6. FROM SYSTEM IMPORT BYTE, ADDRESS;
  7.  
  8.  
  9. TYPE
  10.   (* InitMouse *)
  11.   MouseType = (DisableMouse,
  12.                RelativeMouse,
  13.                AbsoluteMouse,
  14.                UnusedMouse,
  15.                KeycodeMouse);
  16.  
  17.  
  18. TYPE
  19.   ParamBlk  = RECORD
  20.                 topMode: (OriginBotton, OriginTop);
  21.                 buttons: BYTE;
  22.                 xParam: BYTE;
  23.                 yParam: BYTE;
  24.                 (* for AbsoluteMouse mode only: *)
  25.                 xMax: CARDINAL;
  26.                 yMax: CARDINAL;
  27.                 xinitial: CARDINAL;
  28.                 yInitial: CARDINAL;
  29.               END;
  30.  
  31.  
  32. TYPE
  33.   Palette = ARRAY [0..15] OF CARDINAL;
  34.  
  35.  
  36. TYPE
  37.   FlowFlavor = (NONE, XONXOFF, RISCTS, XONXOFFRTSCTS);
  38.   SerialDevice = (RS232, Keyboard, MIDI);
  39.   SerialSpeed = (BPS19200, BPS9600, BPS4800, BPS3600, BPS2400, BPS2000,
  40.                  BPS1800,  BPS1200, BPS600,  BPS300,  BPS200,  BPS150,
  41.                  BPS134,   BPS118,  BPS75,    BPS50);
  42.  
  43.  
  44. TYPE
  45.   IORECPTR = POINTER TO IOREC;
  46.   IOREC = RECORD
  47.             ibuf: ADDRESS;        (* pointer to buffer *)
  48.             ibufsize: CARDINAL;   (* buffer size *)
  49.             ibufhd: CARDINAL;     (* head index *)
  50.             ibuftl: CARDINAL;     (* tail index *)
  51.             ibuflow: CARDINAL;    (* low water mark *)
  52.             ibufhi: CARDINAL;     (* high water mark *)
  53.           END;
  54.  
  55.  
  56. TYPE
  57.   PrtConfig = (DaisyWheel,      (* dot/datsy *)
  58.                Monochrome,      (* colour/mono *)
  59.                EpsonPrinter,    (* Atari/Epson *)
  60.                Final,           (* draft/final *)
  61.                RS232Port,       (* parallel/RS232 *)
  62.                SingleSheet,     (* form-feed/single sheet *)
  63.                PC6, PC7, PC8,   (* unused: *)
  64.                PC9, PCV10, PC11,
  65.                PC12, PC13, PC14,
  66.                PC15);
  67.  
  68.   PrtConfigSet = SET OF PrtConfig;
  69.  
  70. CONST
  71.   NoAlter = PrtConfigSet{DaisyWheel..PC15}; (* passed to ConfigurePrinter *)
  72.  
  73.  
  74. TYPE
  75.   KeyTransPtr = POINTER TO KeyTrans;
  76.   KeyTrans = ARRAY [0..127] OF BYTE;
  77.   KeyTablePtr = POINTER TO KeyTable;
  78.   KeyTable = RECORD
  79.                unshift: KeyTransPtr;
  80.                shift: KeyTransPtr;
  81.                capslock: KeyTransPtr;
  82.              END;
  83.  
  84. CONST
  85.   (* resolutions for GetScreenResolution and SetScreen *)
  86.   Low    = 0;
  87.   Medium = 1;
  88.   High   = 2;
  89.  
  90. CONST
  91.   (* normal value given for virgin floppies *)
  92.   VirginMedia = 0E5E5H;
  93.  
  94.  
  95. TYPE
  96.   Timer = (TimerA, TimerB, TimerC, TimerD);
  97.  
  98.  
  99. TYPE
  100.   KBVectorPtr = POINTER TO KBVector;
  101.   KBVector = RECORD
  102.                midi: ADDRESS;      (* MIDI input *)
  103.                kbderr: ADDRESS;    (* keyboard error *)
  104.                midierr: ADDRESS;   (* MIDI error *)
  105.                statvec: ADDRESS;   (* ikdb status packet *)
  106.                mousevec: ADDRESS;  (* mouse packet *)
  107.                clockvex: ADDRESS;  (* clock packet *)
  108.                joyvec: ADDRESS;    (* joystick packet *)
  109.              END;
  110.  
  111.  
  112. PROCEDURE InitMouse(type: MouseType; VAR param: ParamBlk; vec: PROC);
  113.   (* initialise mouse packet handler. *)
  114.  
  115.  
  116. PROCEDURE ScreenPhysicalBase(): ADDRESS;
  117.   (* get the screen's physical base address at beginning of next vblank. *)
  118.  
  119.  
  120. PROCEDURE ScreenLogicalBase(): ADDRESS;
  121.   (* get the screen's logical (GSX) base address. *)
  122.  
  123.  
  124. PROCEDURE GetResolution(): INTEGER;
  125.   (* return the screen's current resolution
  126.  
  127.      0 - low
  128.      1 - medium
  129.      2 - high *)
  130.  
  131.  
  132. PROCEDURE SetScreenBase(logLoc, physLoc: ADDRESS; rez: INTEGER);
  133.   (* set screen base address and resolutions.
  134.  
  135.  
  136.      logLoc: new logical screen location.
  137.      physLoc: new physical screen resolution.
  138.      rez: new resolution.
  139.  
  140.      NOTE: specifying -1 for any of the above will not change the
  141.              current value. *)
  142.  
  143.  
  144. PROCEDURE SetPalette(VAR palette: Palette);
  145.   (* set the contents of the hardware palette register. *)
  146.  
  147.  
  148. PROCEDURE SetColour(colourNum, colour: CARDINAL): CARDINAL;
  149.   (* set the colour of a palette table entry.
  150.  
  151.      coluorNum: the palette entry to set colour of.
  152.      coluor: the new colour.
  153.  
  154.      returns: the old value of the palette entry. *)
  155.  
  156.  
  157. PROCEDURE FloppyRead(buf: ADDRESS; drive: CARDINAL;
  158.                      sector, track, side: CARDINAL;
  159.                      count: CARDINAL):INTEGER; 
  160.   (* read floppy disk sector(s) into buffer.
  161.  
  162.      buf: the buffer origin for the data.
  163.      drive: 0 => A:, 1 => B:
  164.      sector: sector number to start read from, normally i..9.
  165.      track: the track to seek to.
  166.      side: the side to select.
  167.      count: the number of sectors to read.
  168.  
  169.      returns: 0 => no error, otherwise DOS error code. *)
  170.  
  171.  
  172. PROCEDURE FloppyWrite(buf: ADDRESS; drive: CARDINAL;
  173.                       sector, track, side: CARDINAL;
  174.                       count: CARDINAL): INTEGER;
  175.   (* write buffer to floppy disk sector(s).
  176.  
  177.      parameters as for FloppyRead, except data is written from the buffer.
  178.  
  179.      returns: 0 => no error, otherwise DOS error code. *)
  180.  
  181.  
  182. PROCEDURE FloppyFormat(buf: ADDRESS; drive: CARDINAL;
  183.                        spt, track, side: CARDINAL;
  184.                        interleave, virgin: CARDINAL): INTEGER;
  185.   (* format a floppy disk track.
  186.  
  187.      buf: buffer large enough to hold bit image of a track (8K for 9 spt)
  188.      drive: the drive to format, 0 => A:, 1 => B:
  189.      spt: the number of sectors per track, normally 9
  190.      track: the track to format, 0 through 79.
  191.      side: the side to format, 0 or 1.
  192.      interleave: the interleave factor, normally 1.
  193.      virgin: the word fill value for new sectors.
  194.  
  195.      returns: 0 => no error, otherwise DOS error code.
  196.  
  197.      note: on return buf holds zero terminated list of sectors that would
  198.            not format. *)
  199.  
  200.  
  201. PROCEDURE MIDIWS(VAR string: ARRAY OF BYTE; len: CARDINAL);
  202.   (* write a string of characters to the MIDI port.
  203.  
  204.      str: the string to write.
  205.      len: the number of characters to write - 1. *)
  206.  
  207.  
  208. PROCEDURE MFPint(intNo: CARDINAL; vector: PROC);
  209.   (* set MFP interrupt vector.
  210.  
  211.      intNo: the MFP interrupt vector to set.
  212.      vector: the interrupt handler code. *)
  213.  
  214.  
  215. PROCEDURE IORec(dev: SerialDevice): IORECPTR;
  216.   (* return pointer to serial device IO record.
  217.  
  218.      NOTE: for the RS232 device, an output record immediately follows the
  219.              input record returned by this function. It may be accessed by:
  220.  
  221.            VAR x: IORECPTR;
  222.            x := IORECPTR(LONGCARD(IORec(RS232))+LONGCARD(TSIZE(IORec))); *)
  223.  
  224.  
  225. PROCEDURE ConfigureRS232(speed: SerialSpeed;
  226.                          flowctl: FlowFlavor;
  227.                          ucr, rsr, tsr, scr: INTEGER);
  228.   (* configure RS232 port.
  229.  
  230.      speed: the new RS232 speed.
  231.      flowctl: the handshaking used.
  232.      ucr, rsr, tsr, scr: set the appropriate 68981 registers. *)
  233.  
  234.  
  235. PROCEDURE SetKeyTable(VAR unshift, shift, capslock: KeyTransPtr):
  236.                                                           KeyTablePtr;
  237.   (* set pointers to keyboard translation tables. *)
  238.  
  239.  
  240. PROCEDURE Random(): LONGCARD;
  241.   (* return a random number. *)
  242.  
  243.  
  244. PROCEDURE PrototypeBootSector(buf: ADDRESS; serialNo: LONGINT;
  245.                               disktype: INTEGER; execFlag: INTEGER);
  246.   (* prototype an image of a boot sector.
  247.  
  248.      buf: the buffer to put the image into. (512 bytes)
  249.      serialNo: -1 => leave boot sector serial number unchanged.
  250.                00000000..00FFFFFF => new serial number for disk.
  251.                00000000..FFFFFFFE => generate random serial number.
  252.      disktype: -1 => leave information alone.
  253.                 0 = 40 tracks, SS (100K)
  254.                 1 = 40 tracks, DS (360K)
  255.                 2 = 80 tracks, SS (360K)
  256.                 3 = 80 tracks, DS (720K)
  257.      execFlag: 1 => bootable, 0 => non-bootable, -1 => leave alone. *)
  258.  
  259.  
  260. PROCEDURE FloppyVerify(buf: ADDRESS; drive: CARDINAL;
  261.                        sector, track, side: CARDINAL;
  262.                        count: CARDINAL): INTEGER;
  263.   (* verify floppy disk sectors are readable.
  264.  
  265.      parameters as for FloppyRead, except buffer must br 1024 bytes long. *)
  266.  
  267.  
  268. PROCEDURE ScreenDump;
  269.   (* dump screen to printer. *)
  270.  
  271.  
  272. PROCEDURE ConfigureCursor(rate, attrib: INTEGER): INTEGER;
  273.   (* configure cursor blink rate and attributes,
  274.  
  275.      rate: based on video scan rate; -1 => no change.
  276.      attrib: 0 => flash, 1 => steady, -1 => no change.
  277.  
  278.      returns: hi byte = old blink rate, lo byte = old attributes. *)
  279.  
  280.  
  281. PROCEDURE SetDateTime(datetime: LONGCARD);
  282.   (* set keyboard date and time.
  283.  
  284.      datetime: DOS format date & time; hi word = date, lo word = time. *)
  285.  
  286.  
  287. PROCEDURE GetDateTime (): LONGCARD;
  288.   (* get the date and time.
  289.  
  290.      returns: DOS format date & time. *)
  291.  
  292.  
  293. PROCEDURE BiosKeys;
  294.   (* restore keymappings to power up settings *)
  295.  
  296.  
  297. PROCEDURE KeyboardWS(VAR str: ARRAY OF BYTE; len: CARDINAL);
  298.   (* write string to intelligent keyboard.
  299.  
  300.      str: the string to write.
  301.      len: the number of characters to write - 1. *)
  302.  
  303.  
  304. PROCEDURE DisableInterrupt(intNo: CARDINAL);
  305.   (* diable given 68981 interrupt. *)
  306.  
  307.  
  308. PROCEDURE EnableInterrupt(intNo: CARDINAL);
  309.   (* enable given 68981 interrupt. *)
  310.  
  311.  
  312. PROCEDURE GIRead(regno: CARDINAL): CARDINAL;
  313.   (* read register on the sound chip.
  314.  
  315.      regno: the register number to read.
  316.      returns: data in the register. *)
  317.  
  318.  
  319. PROCEDURE GIWrite(regno, data: CARDINAL);
  320.   (* write register on the sound chip.
  321.  
  322.      regno: the register number to write.
  323.      data: the data to write to the register. *)
  324.  
  325.  
  326. PROCEDURE GIOffBit(bitno: CARDINAL);
  327.   (* set a bit in the port A register to zero.
  328.  
  329.      bitno: the bit number to set to zero. *)
  330.  
  331.  
  332. PROCEDURE GIOnBit(bitno: CARDINAL);
  333.   (* set a bit in the port A register to one.
  334.  
  335.      bitno: the bit number to set to one. *)
  336.  
  337.  
  338. PROCEDURE SetTimerInterrupt(timer: Timer; control, data: CARDINAL;
  339.                                                        vec: PROC);
  340.   (* set an interrupt handler for timer.
  341.  
  342.      timer: the timer to install interrupt handler for.
  343.      control: timer's control register setting.
  344.      data: byte put into timer's data register.
  345.      vec: the interrupt procedure. *)
  346.  
  347.  
  348. PROCEDURE DoSound(x: ADDRESS);
  349.   (* set sound daemon's "program counter".
  350.  
  351.      x: the new program counter; program is a sequence of bytes of the
  352.         form:
  353.  
  354.         ( <opcode> <operand1> [<operand2> <operand3> ] )
  355.  
  356.         00 - 0F   sound register <opcode> := <operand1>
  357.         00        temporary register := <operand1>
  358.         01        sound register <operand1> := temporary register
  359.                   INC(temporary register,<operand2>) (*signed*)
  360.                   IF temporary register = <operand3> THEN
  361.                      go to next instuction
  362.                   ELSE
  363.                     wait for next update
  364.                     repeat instruction
  365.                   END
  366.         02 - FF   IF <operand1> = 0 THEN stop sound daemon
  367.                   ELSE set next updadte to <operand1> 50Hz ticks time
  368.                   END
  369.  
  370.         e.g. data for "bell" type sound:
  371.  
  372.         00 34 01 00 02 00 03 00 04 00 05 00 06 00 07 FE 08 10 09 00
  373.         0A 00 0B 00 0C 10 0D 09 FF 00
  374.  
  375. *)
  376.  
  377. PROCEDURE ConfigurePrinter(config: PrtConfig): PrtConfig;
  378.   (* configure printer.
  379.  
  380.      config: the new printer configuration.
  381.      returns: old printer configuration.
  382.  
  383.      NOTE: ConfigurePrinter(NoAlter) does not alter the old setting. *)
  384.  
  385.  
  386. PROCEDURE KeyboardVectors(): KBVectorPtr;
  387.   (* return pointer to keyboard vector table. *)
  388.  
  389.  
  390. PROCEDURE KeyboardRate(initial, repeat: INTEGER): CARDINAL;
  391.   (* set keyboard repeat rate and delay.
  392.  
  393.      initial: -1 => no change, otherwise initial delay, 50Hz.
  394.      repeat: -1 => no change, otherwise repeat rate, 50Hz.
  395.  
  396.      returns: hi byte = old initial delay, lo byte = old repeat rate. *)
  397.  
  398.  
  399. PROCEDURE PrintBlock (parameter: ADDRESS);
  400.  
  401. PROCEDURE VSync;
  402.   (* wait for next vertical blank interrupt. *)
  403.  
  404.  
  405. PROCEDURE SuperExec(Code: PROC);
  406.   (* Run code in supervisor mode with supervisor stack.
  407.  
  408.      Code: The code to run in supervisor mode, terminated with RTS.
  409.  
  410.      Note: The code is run with the supervisor stack. Do NOT attempt
  411.            to allocate large amounts of local data as the supervisor
  412.            stack will overflow. Note that the code in the "Code" proc
  413.            must have stack checking turned off (with a SS- directive)
  414.            otherwise a "stack overflow" error will be generated on entry
  415.            to the procedure. *)
  416.  
  417.  
  418. PROCEDURE PuntAES;
  419.   (* Throws away the GEM AES, freeing up memory. A re-boot will always be
  420.      performed after this call (unless AES is in ROM) *)
  421.  
  422. END XBIOS.
  423.