[By the way, you set your Reply-to to yourself again,
instead of to the list.]
On 4/10/2013 4:06 PM, Scott Ford wrote:
Guys,
I am in the process of trying to understand and use baseless Assembler. I read
through Ed's Jumpify Share presentation so
i am trying to read and learn...I am not asking anyone to write my code...just
tell me where I am wrong ..
SAMPL001 CSECT
SAMPL001 AMODE 31
SAMPL001 RMODE ANY
EJECT
EJECT. Really?
YREGS
PRINT OFF
SYSSTATE ARCHLVL=2
PRINT ON
J BEGIN
DC C'cccccccccccccc'
DC C'cccccccccccccccccccccccccccccccc'
DC C'Copyright (C), ccccccccccccccccc'
DC C'All rights reserved'
BEGIN DS 0H
SAVE (14,12) save regs coming in
LR R12,R15
AHI R12,CONST-BEGIN
......
...... Failing GETMAIN for no using here
.......
CONST DC 0D
DYNAMIC DSECT
SAVEAREA DS 18F register save area
PARMLIST DS F
.........
LTORG ,
IHAPSA
IHAASCB
IHAASXB
IRREVXP
IEANTASM
IHAACEE
IKJTSB LIST=YES,EXT=YES
END ,
000138 0A23 201+ SVC 35
00013A 1B99 202 SR R9,R9
00013C 1B88 203 SR R8,R8
00013E 4100 04A4 004A4 204 LA R0,DYNSIZE
206 GETMAIN RC,LV=(0),SP=229
000142 208+ DS 0H
000142 209+IHB0009C DS 0H
000142 0000 0000 00000 210+ L
15,=AL1(B'00000000',(0),
+
** ASMA307E No active USING for operand
=AL1(B'00000000',(0),(229),B'00000000')
** ASMA435I Record 2422 in SYS1.MACLIB(GETMAIN) on volume: SDRES1
I know i misunderstood something...any pointers I would be grateful for.
Regards,
Scott J Ford
Software Engineer
http://www.identityforge.com/
Here's some fragments of code that work for me:
*PROCESS COMPAT(NOCASE,MACROCASE) Ver1
sysstate archlvl=2
pgm4 csect
pgm4 amode 31
pgm4 rmode 31
****************************************************
*
* copyright (c) 2008 by Steven H. Comstock
* - reentrant, baseless
*
****************************************************
*
using data,12
save (14,12) save z/os's regs
larl 12,data
getmain r,lv=worksize
st 13,4(1)
lr 13,1
using wareas,13
.
.
.
* at termination:
*
ltr 15,15
jnz err0
*
lr 1,13
l 0,fsize
l 13,4(13)
freemain r,lv=(0),a=(1)
return (14,12),,rc=0
*
data ds 0f
fsize dc a(worksize)
.
.
.
*
ltorg
wareas dsect
save ds 36f'0'
.
.
.
worksize equ *-save
end PGm4
--
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-355-2752
http://www.trainersfriend.com
* To get a good Return on your Investment, first make an investment!
+ Training your people is an excellent investment
* Try our tool for calculating your Return On Investment
for training dollars at
http://www.trainersfriend.com/ROI/roi.html
