{ ----------------------- PORTVIEW.INC ---------------------------

  Include-File fuer interruptgesteuerte Anzeige des Binaerzustands
  einer I/O-Adresse auf dem JOYCE.   1987 M.A.

    procedure Display_Init     -> MCode initialisieren
    procedure Set_Parameters() -> Einstellung der Werte
    procedure Display_On       -> Anzeige einschalten
    procedure Display_Off      -> Anzeige ausschalten
    procedure Slow_Display     -> 1 Update/255 Interrupts
    procedure Quick_Display    -> 1 Update/1 Interrupt

  Achtung, externer MCode! Compilerendadresse <F500 halten und den
  Run-Modus unbedingt vermeiden...

  ----------------------------------------------------------------- }


procedure Display_On; external $F500;


procedure Display_Off; external $F50F;


procedure Display_Init;
  type MCode = array[0..148] of byte;
  const MProg:MCode =
  ($F3,$2A,$A7,$FE,$22,$7C,$F5,$21,$18,$F5,$22,$A7,$FE,$FB,$C9,$F3,
   $2A,$7C,$F5,$22,$A7,$FE,$FB,$C9,$F3,$F5,$C5,$D5,$E5,$21,$84,$F5,
   $34,$C2,$3D,$F5,$DB,$F1,$67,$DB,$F2,$6F,$E5,$3E,$81,$D3,$F1,$3E,
   $82,$D3,$F2,$CD,$44,$F5,$E1,$7D,$D3,$F2,$7C,$D3,$F1,$E1,$D1,$C1,
   $F1,$C3,$40,$1E,$06,$08,$1E,$50,$16,$00,$DB,$FD,$C5,$D5,$21,$85,
   $F5,$17,$30,$03,$21,$8D,$F5,$F5,$E5,$7A,$16,$00,$07,$17,$17,$17,
   $6F,$7A,$CE,$B6,$67,$7E,$23,$66,$6F,$EB,$29,$29,$19,$29,$EB,$E1,
   $01,$08,$00,$ED,$B0,$F1,$D1,$C1,$1C,$10,$D1,$C9,$00,$00,$00,$00,
   $00,$00,$00,$00,$00,$38,$6C,$C6,$C6,$6C,$38,$00,$FF,$18,$38,$18,
   $18,$18,$7E,$00,$FF);
  var Data : MCode absolute $F500;
begin
  Data:=MProg;
end;


procedure Set_Parameters (x,y,port: byte);
 var DX    : byte absolute $F547;
     DY    : byte absolute $F549;
     DPort : byte absolute $F54B;
begin
  DX:=x;
  DY:=y;
  DPort:=port;
end;


procedure Slow_Display;
begin
  mem[$F521]:=$C2; { JP NZ,exit }
end;


procedure Quick_Display;
begin
  mem[$F521]:=$CA; { JP Z,exit }
end; { WARNUNG: DIESE PROZEDUR KANN DAS DISK-TIMING STOEREN!!! }


{ -----------------------Ende von PORTVIEW.INC ----------------------- }