home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 10 / wherexy.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1987-08-02  |  1.2 KB  |  25 lines
  1. (* ----------------------------------------------------------- *)
  2. (*                        WHEREXY.PAS                          *)
  3. (*   Ermittlung der aktuellen Cursor-Position fuer Schneider   *)
  4. (*             JOYCE und CPC 6128 unter CP/M 3.0               *)
  5.  
  6. FUNCTION WhereX : INTEGER;                      (* akt. Spalte *)
  7. VAR x: INTEGER;
  8. BEGIN
  9.   INLINE ($CD/$5A/$FC/  (* CALL FC5A   (XBIOS)                 *)
  10.           $BF/$00/      (* DW   00BF   (Adresse der Routine)   *)
  11.           $22/x);       (* LD   (x),HL (HL-Reg. in x speichern)*)
  12.   WhereX := Succ(Lo(x)) (* Spaltenzaehlung unter CP/M beginnt  *)
  13. END;                    (* bei 0                               *)
  14.  
  15. FUNCTION WhereY : INTEGER;                       (* akt. Zeile *)
  16. VAR y: INTEGER;
  17. BEGIN
  18.   INLINE ($CD/$5A/$FC/  (* CALL FC5A     dito *)
  19.           $BF/$00/      (* DW   00BF          *)
  20.           $22/y);       (* LD   (y),HL        *)
  21.   WhereY := Succ(Hi(y)) (* Zeilenzaehlung unter CP/M *)
  22. END;                    (* beginnt ebenfalls bei 0   *)
  23. (* ----------------------------------------------------------- *)
  24. (*                        WHEREXY.PAS                          *)
  25.