Sign in
go
/
website
/
3e18747147e17de19023de7a334c5a8508cbdff1
/
.
/
_content
/
talks
/
2016
/
asm
/
360.s.txt
blob: 5c9d60c4e4b1682e907eac52f6c7c43e3211af05 [
file
] [
log
] [
blame
]
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