🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.asm370
Article #395

Re: Immediate Commands and Beeps

#395
From: Rick Troth
Date: Wed, 29 Aug 1990 12:35
20 lines
1715 bytes
>On a different note, I am trying to get a console beep WITHOUT that funky
>"RRRIII....IIINNN....NNNGGGG" message generated by CP (or "BEEEEEEEPPP" if
>you are on a XA system).  I am using SIO with a CCW control code of X'0B' to
>generate a console printer ring ... is there a better/easier/harder way that
>doesn't generate that message by CP?

        You're right that it's generated by CP.  I thought that by doing
SIO with command code X'0B' I'd be able to avoid the text,  but NNOOOOO.
Legend says that it's kind of an inside joke with the VM developers in
that one of the real consoles on some older model of 370 (who's number
escapes me) had an obnoxious fire alarm style bell.

        GONE EXEC (and probably others) mask it by SAYing '1D1C'X before
and '1DF0'X after invoking BEEP.  Those are 3270 orders which set the
attributes to "no display" and "display" respectively,  so the verbose
"RRRR....RING....GGGG" still shows up in your console log (if SPOOLed),
but not on your screen.  You could probably write your own BEEP which
would spit those out using X'09' with the X'0B' in between.

 Rick Troth <TROTH@RICEVM1.RICE.EDU> ------------- Rice ONCS VM Systems Support
Technical Details
Message-ID: <9008291251.AA19049@ucbvax.Berkeley.EDU>
Path: arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!rutgers!ucsd!ucbvax!RICEVM1.RICE.EDU!TROTH
References: <KXH105@PSUVM>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!rutgers!ucsd!ucbvax!RICEVM1.RICE.EDU!TROTH
From: TROTH@RICEVM1.RICE.EDU (Rick Troth)
Newsgroups: comp.lang.asm370
Subject: Re: Immediate Commands and Beeps
Message-ID: <9008291251.AA19049@ucbvax.Berkeley.EDU>
Date: 29 Aug 90 12:35:28 GMT
References: <KXH105@PSUVM>
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: IBM 370 Assembly Programming Discussion List
              <ASM370@OHSTVMA.BITNET>
Distribution: inet
Organization: The Internet
Lines: 20