Send a status request to the terminal
Esc"^" escape -circumflex
Read back from terminal
A status string will come back
Take the 6th char from this string, and if bit 7 (of 8) is on, block is on
If ECHO is ON, the string will be seen on the screen IIRC
Below is Basci/V code that does this.
8152 PRINT '27"X"'27"&a1r0C"'27"&k1B"'27"&a-2C"'27"J" Reset, turn on block
8154 CALL NOECH turn echo off
8156 PRINT '27"^"; status request
8158 ENTER 1,V,Z$ read
8160 Z=INT(NUM(Z$[6,6])/2) get byte 6 as a number, shift 1 to right
8162 IF INT(Z/2)<>Z/2 THEN 8167 test last bit foron
8164 PRINT '27"&a12r24C";"...Please Press Block Mode..."
8166 GOTO 8156
8167 SYSTEM X,"SETMSG OFF"
Regards,
John Pitman
IT Manager
RYCO Hydraulics Pty. Ltd.
19 Whitehall Street
Footscray, VIC 3011
Australia
P: +61 3 9680 8000
F: +61 3 9680 8001
M: +61 417553990
E: [log in to unmask]
W: www.ryco.com.au
CAUTION: This message may contain privileged and confidential information intended only for the use of the addressee named above. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify RYCO Hydraulics Pty. Ltd. immediately. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of RYCO Hydraulics Pty. Ltd.
Please consider the environment before printing this e-mail.
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf Of Michael Caplin
Sent: Thursday, 27 May 2010 1:20 AM
To: [log in to unmask]
Subject: [HP3000-L] BLOCK MODE VARIABLE
I have a subprogram that can be called from a block or character mode main
program and I want the sub to know which called it without anything being
passed in linkage. I can think of some ugly ways to do it. Does anyone know
of an easy/simple way.
TIA,
mike
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
CAUTION: This message may contain privileged and confidential information intended only for the use of the addressee named above. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify RYCO Hydraulics Pty. Ltd. immediately. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of RYCO Hydraulics Pty. Ltd.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|