alp65.mlc

*****************************************************************
* program: alp65.mlc
* author : John Ehrman
* desc   : Hello world from chapter 6.5 of book
*          Assembler Language Programming for IBM System Z
*          Servers
*          z390 does not support all the features of the 
*          John Ehrman macros supplied from his book.
*          ASSIST instructions are used in its place.
*          Run using ASSIST - asmlga or add "ASSIST" as param 
*****************************************************************
Test     Start 0                 First line of program Line 4
*         Print NoGen             Line 5
* Sample Program Line 6
*         BASR  15,0              Establish a base register Line 7
*         Using *,15              Inform the Assembler Line 8
*         PRINTOUT MyName,*       Print name and stop Line 9
*         XPRNT MyName,L'MyName   >9>  ASSIST print
         XDUMP
         RETURN 0                >9>  Exit
MyName   DC    C'Anthony Delosa' Define constant with name Line 10
         END   Test              Last statement Line 11