HP3000-L Archives

September 1996, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Michael Anderson <[log in to unmask]>
Reply To:
Michael Anderson <[log in to unmask]>
Date:
Wed, 25 Sep 1996 17:58:32 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (98 lines)
This is a multi-part message in MIME format.
 
--------------50152EF02E9E
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
 
HELP! Any Slave printing Experts,
 
I'm up against the wall here, can't put users on the new 969.
 
I have been using two subroutines "SLAVON" & "SLAVOFF" for many years on
the series 70. They have always worked great.
 
Now on the series 969 "SLAVOFF" hangs on a read. I think maybe it's
because the 969 in so much faster than the searies 70 Don't know for
sure. The original author is unavailable.
 
I have attached (NOT THE PROGRAM SOURCE) two small files that contain a
list of calls each routine does. The hangup occurs in step 6 of the
"SLAVOFF" routine.
 
I would very much appreciate any HELP!, or if anyone knows of a WRQ list
I can subscribe too.
 
Thanks in advance,
 
Michael Anderson, Systems/Programmer Analyst
TIW Corporation
mailto:[log in to unmask]
 
--------------50152EF02E9E
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="SLAVON.TXT"
 
"SLAVON" To enable slave printing with a msg on the top line of the BLOCK MODEterminal
 
Note: The term "TERMINAL" refers to a Reflections emulation of an HP700/9x.
      All FWRITE's are directed to a terminal that has already been opened for output.
      % indicates an OCTAL value.
 
1. FWRITE ( %320 %33 "X" %33 "H" %33 "S" %33 "L" )
 
2. FWRITE ( %320 %33 "&a0c1R" %33 "K" %33 "&dBPrinting, please wait...." )
 
3. PC SUPPORT: (REFLECTIONS COMMANDS) << <esc>&oF[reflections command] >>
 
   FWRITE ( %33 "&oFSET CONFIG-LOCKED NO" %15 )
   FWRITE ( %33 "&oFSET AUTO-FORM-FEED NO" %15 )
   FWRITE ( %33 "&oFSET DISABLE-PRINTER-TRANSLATION YES" %15 )
   FWRITE ( %33 "&oFSET PRINTER-BYPASS YES" %15 )
   FWRITE ( %33 "&oFSET PRINTER-CLOSE-MANUALLY YES" %15 )
   FWRITE ( %33 "&oFSET PRINRT-DEFAULT "HP LaserJet III,HPPCL5MS,LPT1:"" %15 )
   FWRITE ( %33 "&oFSET CONFIG-LOCKED YES" %15 )
 
 
END OF "SLAVON"
 
 
--------------50152EF02E9E
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="SLAVOFF.TXT"
 
"SLAVOFF" To DISable slave printing on a terminal.
 
Note: The term "TERMINAL" refers to a Reflections emulation of an HP700/9x.
      All FWRITE's are directed to a terminal that has already been opened for output.
      % indicates an OCTAL value.
 
 
1. CALL INTRINSIC "FOPEN" USING \\ \%244\ giving TERM-IN. <<Open terminal for input>>
 
2. CALL INTRINSIC "FSETMODE USING TERM-IN \%4\ <<Disable CR and LF>>
 
3. FWRITE ( %320 %12 %1 ) <<Disable Slave >>
 
4. CALL INTRINSIC "FREAD" USING TERM-IN BUFFER \-2\  <<READ A 2 byte dummy buffer from TERM-IN>>
 
5. FWRITE ( %320 %33 "&p4d3W" %14 %33 "@" ) << Page eject & RESET >>
 
6. CALL INTRINSIC "FREAD" USING TERM-IN BUFFER \-2\  <<READ A 2 byte dummy buffer from TERM-IN>>
 
7. PC SUPPORT: (REFLECTIONS COMMANDS) << <esc>&oF[reflections command] >>
 
   FWRITE ( %33 "&oFSET CONFIG-LOCKED NO" %15 )
   FWRITE ( %33 "&oFCLOSE PRINTER" %15 )
   FWRITE ( %33 "&oFSET CONFIG-LOCKED YES" %15 )
 
8. FWRITE ( %320 %33 "&a0c1R" %33 "M" %33 "W" ) << Cursor 0,0  & Format mode ON >>
 
9. CALL INTRINSIC "FCLOSE" USING TERM-IN \0\ \0\.
 
END OF "SLAVOFF"
 
 
--------------50152EF02E9E--

ATOM RSS1 RSS2