Class TMainForm (unit Main)
Inherits from
TForm
Constructors
Functions
procedure BitBtn3Click(Sender: TObject);
procedure B_MaskClick(Sender: TObject);
procedure B_PrintClick(Sender: TObject);
procedure B_PulseClick(Sender: TObject);
procedure B_ReadMemoryClick(Sender: TObject);
procedure B_SetIRQClick(Sender: TObject);
procedure B_StopClick(Sender: TObject);
procedure B_WriteAllPinsClick(Sender: TObject);
procedure C_InitClick(Sender: TObject);
procedure C_IRQClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure HWCtrlHwInterrupt(Sender: TObject);
procedure L_LPTsChange(Sender: TObject);
procedure SpinIRQChange(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
Properties
Events
Variables
AllLines : TSpinEdit;
BitBtn3 : TBitBtn;
B_Mask : TButton;
B_Print : TButton;
B_Pulse : TButton;
B_ReadMemory : TButton;
B_SetIRQ : TButton;
B_Stop : TButton;
CheckBox1 : TCheckBox;
CheckBox10 : TCheckBox;
CheckBox11 : TCheckBox;
CheckBox12 : TCheckBox;
CheckBox13 : TCheckBox;
CheckBox14 : TCheckBox;
CheckBox15 : TCheckBox;
CheckBox16 : TCheckBox;
CheckBox2 : TCheckBox;
CheckBox3 : TCheckBox;
CheckBox4 : TCheckBox;
CheckBox5 : TCheckBox;
CheckBox6 : TCheckBox;
CheckBox7 : TCheckBox;
CheckBox8 : TCheckBox;
CheckBox9 : TCheckBox;
C_BUSY : TCheckBox;
C_ERROR : TCheckBox;
C_Init : TButton;
C_IRQ : TCheckBox;
C_LPTs : TComboBox;
C_PE : TCheckBox;
E_Addr : TEdit;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
GroupBox3 : TGroupBox;
GroupBox4 : TGroupBox;
G_Read : TGroupBox;
HWCtrl : TVicHw16;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label13 : TLabel;
Label14 : TLabel;
Label15 : TLabel;
Label16 : TLabel;
Label17 : TLabel;
Label18 : TLabel;
Label19 : TLabel;
Label2 : TLabel;
Label20 : TLabel;
Label21 : TLabel;
Label22 : TLabel;
Label23 : TLabel;
Label24 : TLabel;
Label25 : TLabel;
Label26 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
L_Gen : TLabel;
L_H : TLabel;
L_Handled : TLabel;
L_lines : TLabel;
L_LPTs : TComboBox;
L_Timers : TLabel;
MemoHex : TStringGrid;
Panel1 : TPanel;
RPin1 : TCheckBox;
RPin10 : TCheckBox;
RPin11 : TCheckBox;
RPin12 : TCheckBox;
RPin13 : TCheckBox;
RPin14 : TCheckBox;
RPin15 : TCheckBox;
RPin16 : TCheckBox;
RPin17 : TCheckBox;
RPin2 : TCheckBox;
RPin3 : TCheckBox;
RPin4 : TCheckBox;
RPin5 : TCheckBox;
RPin6 : TCheckBox;
Rpin7 : TCheckBox;
RPin8 : TCheckBox;
RPin9 : TCheckBox;
SpinIRQ : TSpinEdit;
S_Interval : TSpinEdit;
TabbedNotebook1 : TTabbedNotebook;
TextMemo : TEdit;
Timer1 : TTimer;
VicLPT : TVicLPT16;
WPin1 : TCheckBox;
WPin10 : TCheckBox;
WPin11 : TCheckBox;
WPin12 : TCheckBox;
WPin13 : TCheckBox;
WPin14 : TCheckBox;
WPin15 : TCheckBox;
WPin16 : TCheckBox;
WPin17 : TCheckBox;
WPin2 : TCheckBox;
WPin3 : TCheckBox;
WPin4 : TCheckBox;
WPin5 : TCheckBox;
WPin6 : TCheckBox;
WPin7 : TCheckBox;
WPin8 : TCheckBox;
WPin9 : TCheckBox;
Constructors
Functions
procedure BitBtn3Click(Sender: TObject);
procedure B_MaskClick(Sender: TObject);
procedure B_PrintClick(Sender: TObject);
procedure B_PulseClick(Sender: TObject);
procedure B_ReadMemoryClick(Sender: TObject);
procedure B_SetIRQClick(Sender: TObject);
procedure B_StopClick(Sender: TObject);
procedure B_WriteAllPinsClick(Sender: TObject);
procedure C_InitClick(Sender: TObject);
procedure C_IRQClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure HWCtrlHwInterrupt(Sender: TObject);
procedure L_LPTsChange(Sender: TObject);
procedure SpinIRQChange(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
Properties
Events
Variables
AllLines : TSpinEdit;
BitBtn3 : TBitBtn;
B_Mask : TButton;
B_Print : TButton;
B_Pulse : TButton;
B_ReadMemory : TButton;
B_SetIRQ : TButton;
B_Stop : TButton;
CheckBox1 : TCheckBox;
CheckBox10 : TCheckBox;
CheckBox11 : TCheckBox;
CheckBox12 : TCheckBox;
CheckBox13 : TCheckBox;
CheckBox14 : TCheckBox;
CheckBox15 : TCheckBox;
CheckBox16 : TCheckBox;
CheckBox2 : TCheckBox;
CheckBox3 : TCheckBox;
CheckBox4 : TCheckBox;
CheckBox5 : TCheckBox;
CheckBox6 : TCheckBox;
CheckBox7 : TCheckBox;
CheckBox8 : TCheckBox;
CheckBox9 : TCheckBox;
C_BUSY : TCheckBox;
C_ERROR : TCheckBox;
C_Init : TButton;
C_IRQ : TCheckBox;
C_LPTs : TComboBox;
C_PE : TCheckBox;
E_Addr : TEdit;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
GroupBox3 : TGroupBox;
GroupBox4 : TGroupBox;
G_Read : TGroupBox;
HWCtrl : TVicHw16;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label13 : TLabel;
Label14 : TLabel;
Label15 : TLabel;
Label16 : TLabel;
Label17 : TLabel;
Label18 : TLabel;
Label19 : TLabel;
Label2 : TLabel;
Label20 : TLabel;
Label21 : TLabel;
Label22 : TLabel;
Label23 : TLabel;
Label24 : TLabel;
Label25 : TLabel;
Label26 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
L_Gen : TLabel;
L_H : TLabel;
L_Handled : TLabel;
L_lines : TLabel;
L_LPTs : TComboBox;
L_Timers : TLabel;
MemoHex : TStringGrid;
Panel1 : TPanel;
RPin1 : TCheckBox;
RPin10 : TCheckBox;
RPin11 : TCheckBox;
RPin12 : TCheckBox;
RPin13 : TCheckBox;
RPin14 : TCheckBox;
RPin15 : TCheckBox;
RPin16 : TCheckBox;
RPin17 : TCheckBox;
RPin2 : TCheckBox;
RPin3 : TCheckBox;
RPin4 : TCheckBox;
RPin5 : TCheckBox;
RPin6 : TCheckBox;
Rpin7 : TCheckBox;
RPin8 : TCheckBox;
RPin9 : TCheckBox;
SpinIRQ : TSpinEdit;
S_Interval : TSpinEdit;
TabbedNotebook1 : TTabbedNotebook;
TextMemo : TEdit;
Timer1 : TTimer;
VicLPT : TVicLPT16;
WPin1 : TCheckBox;
WPin10 : TCheckBox;
WPin11 : TCheckBox;
WPin12 : TCheckBox;
WPin13 : TCheckBox;
WPin14 : TCheckBox;
WPin15 : TCheckBox;
WPin16 : TCheckBox;
WPin17 : TCheckBox;
WPin2 : TCheckBox;
WPin3 : TCheckBox;
WPin4 : TCheckBox;
WPin5 : TCheckBox;
WPin6 : TCheckBox;
WPin7 : TCheckBox;
WPin8 : TCheckBox;
WPin9 : TCheckBox;