/* 
     Copyright 4, 1994 by CHY
    
     TRAP declarations for PL/M-51
*/

declare Black        literally '0';
declare Blue         literally '1';
declare Green        literally '2';
declare Cyan         literally '3';
declare Red          literally '4';
declare Magenta      literally '5';
declare Brown        literally '6';
declare LightGray    literally '7';
declare DarkGray     literally '8';
declare LightBlue    literally '9';
declare LightGreen   literally '10';
declare LightCyan    literally '11';
declare LightRed     literally '12';
declare LightMagenta literally '13';
declare Yellow       literally '14';
declare White        literally '15';

Refresh: procedure external;
end Refresh;

ClrScr: procedure external;
end ClrScr;

SetColor: procedure(Color) external;
  declare Color byte;
end SetColor;

SetBackGround: procedure(Color) external;
  declare Color byte;
end SetBackGround;

GotoXY: procedure(X, Y) external;
  declare (X, Y) byte;
end GotoXY;

GetXY: procedure word external; /* high(GetXY) = X, low(GetXY) = Y */
end GetXY;

WriteChar: procedure(Ch) external;
  declare Ch byte;
end WriteChar;

WriteAChar: procedure(Ch) external;
  declare Ch byte;
end WriteAChar;

WriteStr: procedure(Ptr) external;
  declare Ptr address;
end WriteStr;

WriteLED: procedure(LED) external;
  declare LED byte;
end WriteLED;

WriteALED: procedure(LED) external;
  declare LED byte;
end WriteALED;

KeyPressed: procedure bit external;
end KeyPressed;

ReadKey: procedure byte external;
end ReadKey;

PutPixel: procedure(X, Y, Draw) external;
  declare (X, Y) word;
  declare Draw bit;
end PutPixel;

LineH: procedure(X1, X2, Y, Draw) external;
  declare (X1, X2, Y) word;
  declare Draw bit;
end LineH;

LineV: procedure(Y1, Y2, X, Draw) external;
  declare (Y1, Y2, X) word;
  declare Draw bit;
end LineV;

Box: procedure(X1, Y1, X2, Y2, Draw) external;
  declare (X1, Y1, X2, Y2) word;
  declare Draw bit;
end Box;

Bar: procedure(X1, Y1, X2, Y2, Draw) external;
  declare (X1, Y1, X2, Y2) word;
  declare Draw bit;
end Bar;

ClrGraph: procedure external;
end ClrGraph;

ActiveGraph: procedure external;
end ActiveGraph;

UnActiveGraph: procedure external;
end UnActiveGraph;

PrintChar: procedure(Ch) external;
  declare Ch byte;
end PrintChar;

PrintStr: procedure(Ptr) external;
  declare Ptr address;
end PrintStr;

MemNormal: procedure external;
end MemNormal;

MemPMOnly: procedure external;
end MemPMOnly;

MemEMOnly: procedure external;
end MemEMOnly;