アセンブラーの出力
External Symbol Dictionary
Symbol
Type
Id
Address Length
LD ID Flags Alias-of
HLASM R
MAINENTR SD 00000001 00000000 0000073A
00
Active Usings: None
Loc Object Code
Addr1 Addr2 Stmt
Source Statement
HLASM R
1
@ASMCNTL BEGIN EXPAND CNTL CODE, NEVER CHANGE/MODIF
この部分はひな型自身の
2+************************************************************
制御コードにつき無視してよい。 3+*======= HERE IS CONTROL CODE, NEVER CHANGE/MODIFY FROM HER
（先頭からUSERCODEまで）
4+************************************************************
000000
00000 0073A
5+MAINENTR CSECT ,
DEFINE CODE SECTION
R:D 00000
6+
USING *,13
DEFINE BASE REGISTER
000000 47F0 F048
00048
7+
B
4+68(,15)
AROUND PROGRAM HEAD
000004 FFFFFFFFFFFFFFFF
8+
DC
17F'-1'
OUR REGISTER SAVEAR
000048 90EC D00C
0000C
10+
STM
14,12,12(13)
SAVE CALLER REGISTER
00004C 18ED
11+
LR
14,13
SAVE CALLER SAVEAREA
00004E 18DF
12+
LR
13,15
GR13 --> OUR 1ST BAS
：
000100
プログラム内
オフセットを示す
000100
000104
000108
00010C
000110
000114
5810
4800
4110
5820
5A20
5020
1000
1000
1002
D16C
D180
D168
40+USERCODE DS
0H
USER CODE START AT H
41 ************************************************************
42 *
AVAILABLE YOUR ASSEMBLER LANGUAGE CODE AT HERE.
43 *
===================================================
44 *
GR1 ---> AS ENTRY POINT(PLIST FOR EXEC PARAMETER)
45 *
GR13 --> BASE REGISTER AND OUR REGISTER SAVEAREA
46 *----------------------------------------------------------ここからがあなたが書いた命令の部分。
49 *
プログラムの先頭からx100番地離れたところから始まる。
50 ************************************************************
00000
51
L
R1,0(,R1)
LOAD EXEC PARM FIELD
00000
52
LH
R0,0(,R1)
GR0 ---> PARM STRING
00002
53
LA
R1,2(,R1)
GR1 ---> BEGIN OF PA
0016C
55
L
2,F100
LOAD +100
00180
56
A
2,=F'3'
ADD +3
00168
57
ST
2,WORK
SAVE RESULT(+103)
：
000140 41E0 000E
000144 41F0 000F
0000E
0000F
68
LA
14,14
69
LA
15,15
GR15 --> COMPLETION
70 ******** SLR
R15,R15
CLEAR COMPLETION COD
72 *===========================================================
000148
73 EXITPROC DS
0H
EXIT PROCEDURE AT H
@ASMCNTL EXIT EXPAND CNTL CODE, NEVER CHANGE/MODIF
ここにもひな型自身の 74
000148 3B00 制御コード入るが無視する。
75+
SER
0,0
CLEAR FPR0
00014A 3D00
76+
DER
0,0
GO TO EPILOGUE PROC
+
ESPIE EXIT(S0
ここからあなたが書いたデータが入る。
00014C 00000000
77+
DC
((((*-MAINENTR-1)/16)+1)*16-(*-MAINENTR))X'00
78 *===========================================================
000150
79 USERDATA DS
0D
USER DATA AREA START
000150 C2C7D540D6C640E4
80
DC
C'BGN OF USER DATA'
000160 0000000000000000
82 DOUBLE
DC
D'0'
RESULT AREA(PACKED D
000168 00000000
83 WORK
DC
F'0'
RESULT AREA(BINARY)
00016C 00000064
84 F100
DC
F'100'
CONSTANT VALUE +100
000170 C5D5C440D6C640E4
86
DC
C'END OF USER DATA'
87 ************************************************************
88
@ASMCNTL END
EXPAND CNTL CODE, NEVER CHANGE/MODIF
000180
89+
LTORG ,
USER LITERAL PLACE A
000180 00000003
90
=F'3'
91+************************************************************
この後ろにもひな型自身の
92+*======= HERE IS CONTROL CODE, NEVER CHANGE/MODIFY FROM HER
制御コード入るが無視する。
93+************************************************************
000184 0000000000000000
94+
DC
((((*-MAINENTR-1)/16)+1)*16-(*-MAINENTR))X'00

Katalog & Preisliste BUSCH

Catch Me If You Can