🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: bit.listserv.asm370
Article #1615

Help

#1615
From: Pete Davis
Date: Fri, 21 Feb 1992 03:56
32 lines
1987 bytes
I'm trying to do some direct console io using the CMS CONSOLE macro. I'm
kinda new to this, so let me explain the environment and the program:
I'm using VM/XA and VM/IS 6:
My program is something along these lines:
SCRDUMP  CSECT
         STM    14,12,12(13)
         BALR   12,0
         USING  *,12
         ST     13,SAVE+4
         LA     13,SAVE
         FSOPEN FCSB=MYFSCB
         CONSOLE OPEN,PATH='PATH1',BUFFER=PTR,ERROR=ERR,EXIT=INTR
         CONSOLE READ,PATH='PATH1',BUFFER=PTR,OPTIONS=(NOWAIT,RDBUF)
         LR     7,0
         ST     7,TOTCNT
         etc....
   Anyway, R0 returns a value of 32 and the 32 values pointed to are all zeros.
 Any ideas? I Have to make it clear that assembly is pretty new to me, so I'm s
ure that I'm screwing up somewhere. We want to be able to read an entire screen
 into a buffer and save it to a file.
   We've checked all of the returned values via LINEDIT and some other steps. W
hat am I missing?
                                                             _Pete

------------------------------------------------------------------------
BitNet: HJ647C@GWUVM or HJ647C@GWUVM.BITNET
        UE356C@GWUVM or UE356C@GWUVM.BITNET
GEnie:  P.DAVIS5
Internet: HJ647C@GWUVM.GWU.EDU
          UE356C@GWUVM.GWU.EDU
UUCP:  uunet!cornellc.cit.cornell.edu!HJ647C%GWUVM.BITNET
------------------------------------------------------------------------
Technical Details
Message-ID: <ASM370%92022023543743@UGA.CC.UGA.EDU>
Path: arc1-ca.pugleaf.net!sparky!uunet!paladin.american.edu!auvm!GWUVM.BITNET!HJ647C

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fcdcb,179bf7562c03529c,start
X-Google-Attributes: gidfcdcb,public
X-Google-ArrivalTime: 1992-02-21 03:11:25 PST
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Path: arc1-ca.pugleaf.net!sparky!uunet!paladin.american.edu!auvm!GWUVM.BITNET!HJ647C
Message-ID: <ASM370%92022023543743@UGA.CC.UGA.EDU>
Newsgroups: bit.listserv.asm370
Date:         Thu, 20 Feb 1992 23:56:34 EDT
Sender:       IBM 370 Assembly Programming Discussion List <ASM370@UGA.BITNET>
From:         Pete Davis <HJ647C@GWUVM.BITNET>
Subject:      Help