File Edit Edit_Settings Menu Utilities Compilers Test Help
------------------------------------------------------------------------------
EDIT XXXXXX.PP.ASM Columns 00001 00072
Command ===> Scroll ===> HALF
****** ***************************** Top of Data ******************************
000001 PP TITLE ' P R I N T C O N T E N T S O F >
000002 A S O U R C E P D S'
000003 PP CSECT ESTABLISH THE PP CSECT
000004 SAVE (14,12),,PP-&SYSDATE-&SYSTIME SAVE REGISTERS
000005 BASR 12,0 PREPARE PP BASE REGISTTER
000006 USING *,12 ESTABLISH PP ADDRESSABILITY
000007 LR 15,13 ADD NEW SAVE
000008 LA 13,SAVEAREA AREA TO THE
000009 ST 15,4(,13) SAVE AREA CHAIN
000010 ST 13,8(,15)
000011 L 2,0(,1) LOAD ADDRESS OF PARAMETER TEXT
000012 TIME DEC OBTAIN THE SYSATEM DATE AND TIME
000013 STM 0,1,12(13) SAVE THE SYSTEM DATE AND TIME
000014 MVC HDRHHMM,DTPATT COPY THE TIME EDIT PATTERN TO ->
000015 THE PAGE HEADER
000016 ED HDRHHMM,12(13) FORMAT THE TIME IN THE PAGE HDR
. . . . . . . . . . . . . . . . . . . . . . . . . . .
Menu Utilities Compilers Help
------------------------------------------------------------------------------
BROWSE XXXXXX.PP.ASM Line 00000000 Col 001 080
Command ===> Scroll ===> PAGE
********************************* Top of Data **********************************
PP TITLE ' P R I N T C O N T E N T S O F >
A S O U R C E P D S'
PP CSECT ESTABLISH THE PP CSECT
SAVE (14,12),,PP-&SYSDATE-&SYSTIME SAVE REGISTERS
BASR 12,0 PREPARE PP BASE REGISTTER
USING *,12 ESTABLISH PP ADDRESSABILITY
LR 15,13 ADD NEW SAVE
LA 13,SAVEAREA AREA TO THE
ST 15,4(,13) SAVE AREA CHAIN
ST 13,8(,15)
L 2,0(,1) LOAD ADDRESS OF PARAMETER TEXT
TIME DEC OBTAIN THE SYSATEM DATE AND TIME
STM 0,1,12(13) SAVE THE SYSTEM DATE AND TIME
MVC HDRHHMM,DTPATT COPY THE TIME EDIT PATTERN TO ->
THE PAGE HEADER
ED HDRHHMM,12(13) FORMAT THE TIME IN THE PAGE HDR