_content/talks/2016/asm/360.s.txt - website - Git at Google

 1        PRINT NOGEN
 2 STOCK1 START 0
 3 BEGIN  BALR  11,0
 4        USING *,11
 5        MVC   NEWOH,OLDOH
 6        AP    NEWOH,RECPT
 7        AP    NEWOH,ISSUE
 8        EOJ
 11 OLDOH DC    PL4'9'
 12 RECPT DC    PL4'4'
 13 ISSUE DC    PL4'6'
 14 NEWOH DS    PL4
 15       END   BEGIN
	1 PRINT NOGEN
	2 STOCK1 START 0
	3 BEGIN BALR 11,0
	4 USING *,11
	5 MVC NEWOH,OLDOH
	6 AP NEWOH,RECPT
	7 AP NEWOH,ISSUE
	8 EOJ
	11 OLDOH DC PL4'9'
	12 RECPT DC PL4'4'
	13 ISSUE DC PL4'6'
	14 NEWOH DS PL4
	15 END BEGIN