Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!ames!lll-winken!uunet!mcvax!unido!gmdzi!kloppen
From: kloppen@gmdzi.UUCP (Jelske Kloppenburg)
Newsgroups: comp.sys.atari.st
Subject: Re:  Screen Dump
Message-ID: <1015@gmdzi.UUCP>
Date: 9 Apr 89 15:55:49 GMT
References: <8904071505.AA22842@ucbvax.Berkeley.EDU>
Organization: GMD, Sankt Augustin, F. R. Germany
Lines: 37

I have a little program for the auto folder wich tests the printer
and BELL's if not ready when you press ALT-HELP.
Excuse the german comments, I copy it as it is:

MODULE TstHCopy;
   (* 3.12.88 ALT HELP --> BELL wenn Drucker nicht ready     *)
   (* fuer AUTO Ordner / wie ACC binden                      *)
   (* TermRes: Lnge (SIZE.PRG oder *.MAP) + 100H (BasePage) *)
   (*     BasePageAddress *nicht* in GEMACCX !!!             *)
FROM SYSTEM IMPORT CODE, PUSH;
FROM XBIOS IMPORT SuperExec;
FROM GEMDOS IMPORT TermRes;
FROM BIOS IMPORT Device, BCosStat, BConOut;

VAR OldDumpVec: PROC;

PROCEDURE SetDumpAdr;
VAR dumpVec [502H]: PROC;
BEGIN
   OldDumpVec:=dumpVec; dumpVec:=TestPrinter;
END SetDumpAdr;

(*$P- no entry and exit code for the following procedure *)

PROCEDURE TestPrinter;
BEGIN
   IF BCosStat(PRT) THEN PUSH(OldDumpVec) ELSE BConOut(CON,7C) END;
   CODE(4E75H) (* rts *)
END TestPrinter;

BEGIN
   SuperExec(SetDumpAdr);
   TermRes(548H,0);
END TstHCopy.

      Kloppenburg@kmx.gmd.dbp.de
UUCP: kloppen@gmdzi