home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-3.DMS / in.adf / Units / Console.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  2.8 KB  |  161 lines
  1. unit Console;
  2.  
  3. INTERFACE
  4. uses Exec, Graphics, Input, Intuition, Keymap;
  5.  
  6.  
  7. type
  8.     pConUnit = ^tConUnit;
  9.     tConUnit = record
  10.         cu_MP: tMsgPort;
  11.         cu_Window: pWindow;
  12.         cu_XCP: integer;
  13.         cu_YCP: integer;
  14.         cu_XMax: integer;
  15.         cu_YMax: integer;
  16.         cu_XRSize: integer;
  17.         cu_YRSize: integer;
  18.         cu_XROrigin: integer;
  19.         cu_YROrigin: integer;
  20.         cu_XRExtant: integer;
  21.         cu_YRExtant: integer;
  22.         cu_XMinShrink: integer;
  23.         cu_YMinShrink: integer;
  24.         cu_XCCP: integer;
  25.         cu_YCCP: integer;
  26.         cu_KeyMapStruct: tKeyMap;
  27.         cu_TabStops: array [0..79] of word;
  28.         cu_Mask: shortint;
  29.         cu_FgPen: shortint;
  30.         cu_BgPen: shortint;
  31.         cu_AOLPen: shortint;
  32.         cu_DrawMode: shortint;
  33.         cu_Obsolete1: shortint;
  34.         cu_Obsolete2: pointer;
  35.         cu_Minterms: array [0..7] of byte;
  36.         cu_Font: pTextFont;
  37.         cu_AlgoStyle: byte;
  38.         cu_TxFlags: byte;
  39.         cu_TxHeight: word;
  40.         cu_TxWidth: word;
  41.         cu_TxBaseline: word;
  42.         cu_TxSpacing: integer;
  43.         cu_Modes: array [0..2] of byte;
  44.         cu_RawEvents: array [0..2] of byte;
  45.         end;
  46.  
  47.  
  48.  
  49. var
  50.     ConsoleDevice: pLibrary;
  51.  
  52.  
  53. const
  54.     SGR_NOTITALIC = $17;
  55.     SGR_CLR2 = $20;
  56.     SGR_CLR3 = $21;
  57.     SGR_CLR4 = $22;
  58.     SGR_CLR5 = $23;
  59.     CONU_CHARMAP = 1;
  60.     SGR_CLR6 = $24;
  61.     SGR_CLR7 = $25;
  62.     CONFLAG_DEFAULT = 0;
  63.     SGR_WHITE = $25;
  64.     SGR_BLACKBG = $28;
  65.     CD_ASKDEFAULTKEYMAP = $B;
  66.     CD_SETKEYMAP = $A;
  67.     TBC_HCLRTABSALL = 3;
  68.     SGR_BOLD = 1;
  69.     CTC_HCLRTABSALL = 5;
  70.     TBC_HCLRTAB = 0;
  71.     SGR_NEGATIVE = 7;
  72.     CTC_HCLRTAB = 2;
  73.     SGR_NOTUNDERSCORE = $18;
  74.     SGR_BLUE = $22;
  75.     MAXTABS = $50;
  76.     CD_SETDEFAULTKEYMAP = $C;
  77.     SGR_CYAN = $24;
  78.     CTC_HSETTAB = 0;
  79.     CONU_LIBRARY = $FFFFFFFF;
  80.     SGR_GREENBG = $2A;
  81.     CONU_SNIPMAP = 3;
  82.     SGR_MAGENTA = $23;
  83.     SGR_CLR0BG = $28;
  84.     SGR_YELLOWBG = $2B;
  85.     SGR_CLR1BG = $29;
  86.     SGR_CLR2BG = $2A;
  87.     SGR_CLR3BG = $2B;
  88.     CONFLAG_NODRAW_ON_NEWSIZE = 1;
  89.     SGR_CLR4BG = $2C;
  90.     PMB_ASM = $15;
  91.     SGR_CLR5BG = $2D;
  92.     SGR_DEFAULT = $27;
  93.     SGR_CLR6BG = $2E;
  94.     SGR_CLR7BG = $2F;
  95.     PMB_AWM = $16;
  96.     SGR_RED = $1F;
  97.     SGR_WHITEBG = $2F;
  98.     SGR_POSITIVE = $1B;
  99.     DSR_CPR = 6;
  100.     SGR_BLUEBG = $2C;
  101.     SGR_CYANBG = $2E;
  102.     SGR_ITALIC = 3;
  103.     SGR_MAGENTABG = $2D;
  104.     SGR_PRIMARY = 0;
  105.     SGR_BLACK = $1E;
  106.     SGR_DEFAULTBG = $31;
  107.     SGR_NORMAL = $16;
  108.     SGR_REDBG = $29;
  109.     SGR_UNDERSCORE = 4;
  110.     CONU_STANDARD = 0;
  111.     SGR_GREEN = $20;
  112.     M_ASM = '>1';
  113.     M_AWM = '?7';
  114.     SGR_CLR0 = $1E;
  115.     CD_ASKKEYMAP = 9;
  116.     SGR_YELLOW = $21;
  117.     SGR_CLR1 = $1F;
  118.     M_LNM = $14;
  119.  
  120.  
  121. function CDInputHandler
  122.         (events: pInputEvent;
  123.         consoleDevice: pLibrary): pInputEvent;
  124.  
  125. function RawKeyConvert
  126.         (events: pInputEvent;
  127.         buffer: STRPTR;
  128.         length: longint;
  129.         keyMap: pKeyMap): longint;
  130.  
  131.  
  132.  
  133. IMPLEMENTATION
  134. function CDInputHandler; xassembler;
  135. asm
  136.     move.l    a6,-(sp)
  137.     lea        8(sp),a6
  138.     move.l    (a6)+,a1
  139.     move.l    (a6)+,a0
  140.     move.l    ConsoleDevice,a6
  141.     jsr        -$2A(a6)
  142.     move.l    d0,$10(sp)
  143.     move.l    (sp)+,a6
  144. end;
  145.  
  146. function RawKeyConvert; xassembler;
  147. asm
  148.     movem.l    a2/a6,-(sp)
  149.     lea        $C(sp),a6
  150.     move.l    (a6)+,a2
  151.     move.l    (a6)+,d1
  152.     move.l    (a6)+,a1
  153.     move.l    (a6)+,a0
  154.     move.l    ConsoleDevice,a6
  155.     jsr        -$30(a6)
  156.     move.l    d0,$1C(sp)
  157.     movem.l    (sp)+,a2/a6
  158. end;
  159.  
  160. end.
  161.