mirror of
https://github.com/moshix/mvs.git
synced 2026-03-01 09:21:03 +00:00
82 lines
3.8 KiB
Plaintext
82 lines
3.8 KiB
Plaintext
//COBASM5 JOB (COBOL),'CALL ASM FROM COBOL',MSGLEVEL=(1,1)
|
|
// CLASS=A, MSGCLASS=A,REGION=8M,TIME=1440,
|
|
//ASM EXEC ASMFC,PARM.ASM=(OBJ,NODECK,NOESD,LIST,XREF)
|
|
//ASM.SYSIN DD *
|
|
PRINT GEN
|
|
WTOCONS TITLE 'CALL ASM FROM COBOL'
|
|
ENTRY WTOCONS ENTRY POINTS
|
|
WTOCONS CSECT ,
|
|
SAVE (14,12),,* SAVE REGISTERS 00001400
|
|
LR R12,R15 ESTABLISH MODULE ADDRESSABILITY 00001500
|
|
USING WTOCONS,R12 TELL ASSEMBLER OF BASE 00001600
|
|
LA R2,SAVEA CHAIN .. 00001700
|
|
ST R13,4(,R2) .. THE .. 00001800
|
|
ST R2,8(,R13) .. SAVE .. 00001900
|
|
LR R13,R2 .. AREAS 00002000
|
|
* START OF PROGRAM LOGIC
|
|
WTO 'HELLO WORLD FROM ASM'
|
|
* 00008200
|
|
* RETURN TO CALLER 00008300
|
|
* 00008400
|
|
RETURN L R13,4(,R13) CALLER'S SAVE AREA POINTER 00008500
|
|
RETURN (14,12),RC=0 RESTORE REGISTERS AND RETURN 00008600
|
|
* DATA AREA 00008800
|
|
* 00008900
|
|
SAVEA DS 18F SAVE AREA 00009000
|
|
R0 EQU 0 REGISTER 0 00009500
|
|
R1 EQU 1 REGISTER 1 00009600
|
|
R2 EQU 2 REGISTER 2 00009700
|
|
R3 EQU 3 REGISTER 3 00009800
|
|
R4 EQU 4 REGISTER 4 00009900
|
|
R5 EQU 5 REGISTER 5 00010000
|
|
R6 EQU 6 REGISTER 6 00010100
|
|
R7 EQU 7 REGISTER 7 00010200
|
|
R8 EQU 8 REGISTER 8 00010300
|
|
R9 EQU 9 REGISTER 9 00010400
|
|
R10 EQU 10 REGISTER 10 00010500
|
|
R11 EQU 11 REGISTER 11 00010600
|
|
R12 EQU 12 REGISTER 12 00010700
|
|
R13 EQU 13 REGISTER 13 00010800
|
|
R14 EQU 14 REGISTER 14 00010900
|
|
R15 EQU 15 REGISTER 15 00011000
|
|
END WTOCONS END OF PROGRAM 00011100
|
|
/*
|
|
//ASM.SYSGO DD UNIT=VIO,SPACE=(800,(1,1)),DISP=(,PASS),
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),DSN=&&WTOCONS
|
|
//COB2ASM EXEC COBUCG,
|
|
// PARM.COB='FLAGW,LOAD,SUPMAP,SIZE=2048K,BUF=1024K'
|
|
//COB.SYSPUNCH DD DUMMY
|
|
//COB.SYSIN DD *
|
|
100 * // COBOL TO ASM
|
|
110 * //
|
|
120 * //
|
|
130 * //
|
|
150 ***
|
|
160 ***
|
|
170 ***
|
|
180 IDENTIFICATION DIVISION.
|
|
190 PROGRAM-ID. 'COB2AS'.
|
|
200 ***
|
|
210 ***
|
|
220 ***
|
|
230 ENVIRONMENT DIVISION.
|
|
240 **
|
|
250 **
|
|
260 CONFIGURATION SECTION.
|
|
270 SOURCE-COMPUTER. IBM-370.
|
|
280 OBJECT-COMPUTER. IBM-370.
|
|
300 **
|
|
380 DATA DIVISION.
|
|
390 **
|
|
400 **
|
|
410 PROCEDURE DIVISION.
|
|
420 DISPLAY 'HELLO FROM COBOL'
|
|
430 CALL 'WTOCONS'
|
|
440 STOP RUN.
|
|
/*
|
|
//COB.SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR
|
|
//GO.SYSLIN DD
|
|
// DD DSN=&&WTOCONS,DISP=(OLD,DELETE)
|
|
//GO.SYSOUT DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=161,BLKSIZE=16100)
|
|
//
|