home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 12 / ibsap22.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-09-29  |  1.3 KB  |  44 lines
  1. (* ---------------------------------------------------- *)
  2. (*                    IBSAP22.PAS                       *)
  3. (*      Turbo Pascal-6502-Interface fuer Apple II       *)
  4. (*                    mit IBS AP22                      *)
  5.  
  6.                               (* die Register der 6502: *)
  7. VAR  A_Reg  : BYTE    ABSOLUTE $Ffa5;
  8.      X_Reg  : BYTE    ABSOLUTE $Ffa6;
  9.      Y_Reg  : BYTE    ABSOLUTE $Ffa7;
  10.      Xy_Reg : INTEGER ABSOLUTE $Ffa6;
  11.      Ax_Reg : INTEGER ABSOLUTE $Ffa5;
  12.      A_Res  : BYTE    ABSOLUTE $Ff05;
  13.      X_Res  : BYTE    ABSOLUTE $Ff06;
  14.      Y_Res  : BYTE    ABSOLUTE $Ff07;
  15.  
  16. FUNCTION Read6502 (Adr : INTEGER) : BYTE;
  17. BEGIN
  18.   INLINE ($2a/Adr/$E7/$02/$6f/$26/$00/$C9)
  19. END;
  20.  
  21. PROCEDURE Write6502 (Adr : INTEGER; Val : BYTE);
  22. BEGIN
  23.   INLINE ($2a/Adr/$3a/Val/$E7/$3/$C9)
  24. END;
  25.  
  26. PROCEDURE Switch6502 (Adr : INTEGER);
  27. BEGIN
  28.   INLINE ($2a/Adr/$E7/$02/$C9);
  29. END;
  30.  
  31. PROCEDURE MoveTo6502 (Start,Ziel,Laenge : INTEGER);
  32. BEGIN
  33.   INLINE ( $2a/Start/$Ed/$5b/Ziel/$Ed/$4b/Laenge/$E7/1/$C9)
  34. END;
  35.  
  36. PROCEDURE MoveFrom6502 (Start,Ziel,Laenge : INTEGER);
  37. BEGIN
  38.   INLINE ( $2a/Start/$Ed/$5b/Ziel/$Ed/$4b/Laenge/$E7/0/$C9)
  39. END;
  40.  
  41. PROCEDURE Call6502 (Adr : INTEGER);
  42. (* ---------------------------------------------------- *)
  43. (*                    IBSAP22.PAS                       *)
  44.