Figure 1 shows an example
of the source and object section in 121-character format, and in mixed-case. Figure 1. Source
and object listing section—121 format
1
Loc Object Code Addr1 Addr2 Stmt Source Statement
000000 00000 0006C 24 Samp01 Csect
25 ASMDREG include standard registers
26+ PUSH PRINT 01-ASMDR
126+ POP PRINT 01-ASMDR
127 Entry1 MACSAMP Parm1=YES
000000 18CF 128+Entry1 LR 12,15 01-MACSA
129+ ENTRY Entry1 01-MACSA
2
R:C 00000 130+ USING Entry1,12 Ordinary Using 01-MACSA
000002 0000 0000 00000 131+ LA Savearea,10 01-MACSA
** ASMA044E Undefined symbol - Savearea
** ASMA029E Incorrect register specification - Savearea
** ASMA435I Record 10 in SMORSA.BOOK.SAMPLE.MACS(MACSAMP) on volume: 37P004
000006 50D0 A004 00004 132+ ST 13,4(,10) 01-MACSA
00000A 50A0 D008 00008 133+ ST 10,8(,13) 01-MACSA
00000E 18DA 134+ LR 13,10 01-MACSA
3
R:A35 00010 135+ USING *,10,3,5 Ordinary Using,Multiple Base 01-MACSA
** ASMA303W Multiple address resolutions may result from this USING and the USING on statement number 130
** ASMA435I Record 14 in SMORSA.BOOK.SAMPLE.MACS(MACSAMP) on volume: 37P004
136+ DROP 10,3,5 Drop Multiple Registers 01-MACSA
000010 D4C1C3E2C1D4D7C4 137+Entry1Date DC CL16'MACSAMPDATE' 01-MACSA
138 COPY memsamp
139=* Start of copybook - MEMSAMP
140=* 5696-234
141=* Copyright IBM Corporation 2008, 2015 All Rights Reserved.
142=* This copybook member is incled by sample HLASM programs
000020 C481A385D6958540 143=DateOne DC CL16'DateOne Field'
144=* End of copybook - MEMSAMP
145 push using
R:2 00000 146 PlistIn Using Plist,2 Establish Plist addressability
R:3 00000 147 PlistOut Using Plist,3
000030 1851 148 ?LoadMe LR R5,R1 Save Plist pointer
** ASMA147E Symbol too long, or first character not a letter - ?LoadMe
** ASMA435I Record 31 in SMORSA.BOOK.SAMPLE.ASM(SAMP01) on volume: 37P003
R:9 00000 149 using WorkingStorage,R9
000032 5820 5000 00000 150 L R2,0(,R5) R2 = address of request list
C 050 00000 00050 151 STAT Using STATDS,StaticData
000036 152 Label1 dc 0h Label1
000036 5810 C060 00060 153 L R1,=f'1' load
00003A 5010 9008 00008 154 st r1,WSNumber and save
00003E 5870 C064 00064 155 l R7,=V(RCNVDATE)
000042 5880 C068 00068 156 l r8,=V(RCNVTIME)
157 RETURN
Sample Program - HLASM Page 15
Active Usings (1):WorkingStorage,R9 Entry1,R12 PlistIn.Plist,R2 PlistOut.Plist,R3 STAT.STATDS(X'FB0'),R12+X'50'
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R6.0 2015/04/14 08.50
000046 07FE 159+ BR 14 RETURN 01-RETUR
000048 00000036 160 pLabel1 dc a(Label1) address of Label1
161 RCNVDATE ALIAS c'DateRcvd'
000050 162 StaticData ds 0D'0'
000050 E2E3C1E3C9C3C440 163 StatDate dc CL16'STATICD'
000000 00000 00018 164 STATDS dsect
000000 165 SDATA ds CL16' '
000010 00000014 166 pNumDays DC A(NumDays)
000014 00000064 167 NumDays DC A(100)
000000 00000 00014 168 Plist DSECT SAMP01 input parameter list
000000 169 inputN ds F'0' input identifier
000004 170 inputD ds cl16' ' input description
000000 00000 0001C 171 WorkingStorage DSECT program w/s
000000 172 WSID ds cl8'WORKAREA' identifier
000008 173 WSNumber ds f
00000C 174 WSDate ds cl16' ' WS Date
175 End
** ASMA138W Non-empty PUSH USING stack
** ASMA435I Record 56 in SMORSA.BOOK.SAMPLE.ASM(SAMP01) on volume: 37P003
000060 00000001 176 =f'1'
000064 00000000 177 =V(RCNVDATE)
000068 00000000 178 =V(RCNVTIME)
1
The assembled address of the object code occupies
six characters.
2
The Addr1 and Addr2 columns show six-character operand
addresses.
3
The first five characters of the macro name are shown
in the identification-sequence field.