mirror of
https://github.com/moshix/mvs.git
synced 2026-01-20 01:25:17 +00:00
66 lines
4.4 KiB
Plaintext
66 lines
4.4 KiB
Plaintext
PRINT NOGEN
|
|
ASMSUB CSECT
|
|
USING *,R15 INITIAL BASE REGISTER
|
|
BEGIN B START
|
|
DC AL1(8)
|
|
DC CL8'ASMSUB' PROGRAM NAME FOR DEBUGGING
|
|
*--------M-Y----S-A-V-E----A-R-E-A------------------------------*
|
|
SAVEAREA DS F RESERVED FOR PLI *
|
|
PRESAVE DC XL8'0' ADDR OF PREVIOUS SAVE AREA *
|
|
NEXTSAVE DC XL8'0' ADDR OF NEXT SAVE AREA *
|
|
SREG14 DC XL8'0' GENERAL *
|
|
SREG15 DC XL8'0' PURPOSE *
|
|
SREG0 DC 13XL8'0' REGISTER SAVE *
|
|
SAVEEND DS 0H *
|
|
*--------E-N-D----O-F----S-A-V-E----A-R-E-A---------------------*
|
|
DROP R15 DUMP INITIAL BASE REGISTER
|
|
START BAKR R14,0
|
|
LR R12,R15 SET UP MY
|
|
USING BEGIN,R12 BASE REGISTER
|
|
ST R13,PRESAVE PERFORM SAVE
|
|
LA R15,SAVEAREA AREA
|
|
ST R15,8(R13) CHAINING
|
|
LR R13,R15 R13 = ADDR OF MY SAVE AREA.
|
|
OPEN (OUTDCB,OUTPUT) OPEN OUTPUT FILE FOR INTRDR
|
|
PRTJCL EQU * START OF PRINTING
|
|
MVC OUTAREA,LINE1
|
|
PUT OUTDCB,OUTAREA
|
|
MVC OUTAREA,LINE2
|
|
PUT OUTDCB,OUTAREA GET ADDR OF NEXT O/P AREA.
|
|
MVC OUTAREA,LINE3
|
|
PUT OUTDCB,OUTAREA GET ADDR OF NEXT O/P AREA.
|
|
MVC OUTAREA,LINE4
|
|
PUT OUTDCB,OUTAREA GET ADDR OF NEXT O/P AREA.
|
|
MVC OUTAREA,LINE5
|
|
PUT OUTDCB,OUTAREA GET ADDR OF NEXT O/P AREA.
|
|
PRNTDONE CLOSE (OUTDCB) CLOSE THE INPUT FILE.
|
|
L R13,PRESAVE R13 = PREVIOUS SAVE AREA ADDR.
|
|
RETURN (14,12),RC=0 RESTORE REGISTERS
|
|
LTORG
|
|
OUTDCB DCB MACRF=PM,RECFM=FB,LRECL=80,DDNAME=OUTDD,DSORG=PS
|
|
*--------M-Y----O-U-T-P-U-T----A-R-E-A------------*
|
|
OUTAREA DC CL80' ' *
|
|
LINE1 DC CL80'//MOSHIXI JOB (ASM),MSGCLASS=H,CLASS=A'
|
|
LINE2 DC CL80'//STEP1 EXEC PGM=IEFBR14' *
|
|
LINE3 DC CL80'//SYSPRINT SYSOUT=*' *
|
|
LINE4 DC CL80'//SYSABEND SYSOUT=*' *
|
|
LINE5 DC CL80'//' *
|
|
*-------------------------------------------------*
|
|
R0 EQU 0
|
|
R1 EQU 1
|
|
R2 EQU 2
|
|
R3 EQU 3
|
|
R4 EQU 4
|
|
R5 EQU 5
|
|
R6 EQU 6
|
|
R7 EQU 7
|
|
R8 EQU 8
|
|
R9 EQU 9
|
|
R10 EQU 10
|
|
R11 EQU 11
|
|
R12 EQU 12
|
|
R13 EQU 13
|
|
R14 EQU 14
|
|
R15 EQU 15
|
|
END , PHYSICAL END OF THE PROGRAM
|