Hello world in mainframe assembler HLASM - M127
Channel: moshix
Date: 22/04/2019

To chat with moshix on the Discord moshix mainframe channel click here: 
https://discord.gg/6PSQ2vpVap

here is the assembler program for HLASM, including the JCL:
//MOSHIXH  JOB  CLASS=A,NOTIFY=&SYSUID,MSGCLASS=X,MSGLEVEL=(1,1)  
//ASMCLG   EXEC PROC=ASMACLG                                      
//C.SYSLIB DD   DISP=SHR,DSN=MOSHIX.COPY.BOOKS                    
//         DD   DISP=SHR,DSN=SYS1.MACLIB                          
//G.OUTDD    DD SYSOUT=*,RECFM=FBA,LRECL=133                      
//C.SYSIN DD *                                                    
        PRINT ON,GEN,DATA                                         
HELLO   CSECT                                                     
        SAVE (14,12)                                              
        BASR R12,0                                                
        USING *,R12                                               
        ST R13,SAVEA+4                                            
        LA R13,SAVEA                                              
SAYIT   WTO 'HELLO,WORLD!'                                        
        L R13,SAVEDA+4                                            
        RETURN (14,12),RC=0                                       
        LTORG                                                     
        END,                                                      
SAVEA   DS 18F                                                    
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                                                    
/*                                                                
//SYSUDUMP DD SYSOUT=*,RECFM=FBA,LRECL=133                        
//G.SYSUDUMP DD SYSOUT=*,RECFM=FBA,LRECL=133


Our community FB page is at www.facebook.com/moshixchannel

To chat with moshix on the Discord moshix channel click here: 

https://discord.gg/eyRjj4t