// Effectus auto-generated Mad Pascal source code listing
program dlidemoPrg;

uses
  Crt, StringUtils, Graph;

var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// Display list interrupt (DLI) demo
var
  DL : array[0..21] of byte = ($70, $70, $70, $42, $00, $40, $2, $2, $2, $2, $F0, $2, $2, $2, $2, $2, $70, $70, $70, $41, $00, $20);  // DL_byte_array
// 48        PHA
// A9 DE     LDA #$DE
// 8D 0A D4  STA $D40A
// 8D 18 D0  STA $D018
// 68        PLA
// 40        RTI
var
  DLI : array[0..10] of byte = ($48, $A9, $DE, $8D, $0A, $D4, $8D, $18, $D0, $68, $40);  // DLI_byte_array
  CH : byte absolute $2FC;  // CH_byte_array
  NMIEN : byte absolute $D40E;  // NMIEN_byte_array
  VDSLST : word absolute $200;  // VDSLST_byte_array
  SDLSTL : word absolute $230;  // SDLSTL_byte_array

procedure MAINProc;
begin
  SDLSTL := word(@DL);
  VDSLST := word(@DLI);
  NMIEN := $C0;
 WHILE CH=$FF do begin
  end;
  InitGraph(0);
end;

begin
  MAINProc;
end.
