000258 70 SOME_PADDING DS 633CL1
0004D1 71 SAVE_DETS DS 10CL80
00014 72 MAX_INDENT EQU 20
0007F1 73 SAVE_INDENT DS (MAX_INDENT)CL10
007D0 74 MAX_FIELDS EQU 2000
0008B9 75 SAVE_FIELDS DS (MAX_FIELDS)CL116
007D0 76 MAX_FILES EQU 2000
0392F9 77 SAVE_FILES DS (MAX_FILES)CL8
03D179 00000 3D179 78 #PRGAREA DSECT
0000A8 50E0 D058 00058 100 MAIN_PART ST R14,#SEG_SAV+(4*0)
save return address
0000AC 50B0 D120 00120 101 ST R11,#BAS_SAV+(4*0)
save prev code base
0000B0 0DB0 102 BASR R11,0
set code base address
R:B 000B2 103 USING (*,#END_CBASE_1),R11
0000B2 41E0 02F9 392F9 104 LA R14,SAVE_FILES
incorrect
0000B6 E3E0 D2F9 3971 392F9 105 LAY R14,SAVE_FILES
correct
0000BC 58E0 D058 00058 106 L R14,#SEG_SAV+(4*0)
load return address
0000C0 107 #END_CBASE_1 DS 0H
John
