Sign in
go
/
talks
/
c317364e862dd30953a4a39355bc770b15881a02
/
.
/
2016
/
asm
/
360.s
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