//ASMFCLG JOB  (001),'ASM HELLO WORLD',                             
//             CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),REGION=128K        
//HELLO  EXEC ASMFCLG                                               
//ASM.SYSUT1 DD UNIT=SYSDA                                          
//ASM.SYSUT2 DD UNIT=SYSDA                                          
//ASM.SYSUT3 DD UNIT=SYSDA                                          
//ASM.SYSGO DD UNIT=SYSDA                                           
//ASM.SYSIN DD *                                                    
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

HELLO    CSECT            
	SAVE  (14,12)
         BALR  12,0			;0=No actual branch!
         USING *,12   				;*=Current Line number

		MVC   WTOTEXT(76),WTOMSG1
         BAL   R3,DOMSG              ;DISPLAY MESSAGE, RETURN VIA R3
         MVC   WTOTEXT(76),WTOMSG2
         BAL   R3,DOMSG           ;   DISPLAY MESSAGE, RETURN VIA R3

	WTO 'I LIKE PIE...!'   
	WTO 'I Like your mommas pie!'   	 
                
        
         
	B DONE
	
	
DOMSG    WTO   MF=(E,WTOBLOCK)
         LTR   R15,R15    
         BNZ   DONE								;Something went wrong       
         BR    R3          ;Return via Register 3

         DS    0H   			; Align to hald word
		 
WTOBLOCK DC    H'80'         								;For WTO, length of WTO buffer, should be binary zeroes
         DC    H'0'            
WTOTEXT  DC    CL76'ASMWTOA1 - WTO with user-coded buffer...'
WTOMSG1  DC    CL76'ASMWTOA1 - User message number one...'
WTOMSG2  DC    CL76'ASMWTOA1 - User message number two...'
        
DONE   	 RETURN (14,12),RC=0                                        

		DC X'FF'
		DC C'A'
		DC X'FF'
		DC 4CL3'A'
		DC X'FF'

         END                                                      
//                                                                