mirror of
https://github.com/moshix/mvs.git
synced 2026-01-30 05:04:10 +00:00
31 lines
1.1 KiB
Plaintext
31 lines
1.1 KiB
Plaintext
PRINT NOGEN
|
||
****************************************************************
|
||
* FILENAME: BAL4F.MLC *
|
||
* AUTHOR : Bill Qualls *
|
||
* SYSTEM : Compaq 286LTE, PC/370 R4.2 *
|
||
* REMARKS : Chapter 4 Exercise - Predict output. *
|
||
****************************************************************
|
||
START 0
|
||
REGS
|
||
BEGIN BEGIN
|
||
BAL R9,SUB1
|
||
BAL R9,SUB2
|
||
RETURN
|
||
SUB1 EQU *
|
||
ST R9,SVSUB1
|
||
WTO 'BEGIN SUB1'
|
||
BAL R9,SUB2
|
||
WTO 'LEAVE SUB1'
|
||
L R9,SVSUB2
|
||
BR R9
|
||
SUB2 EQU *
|
||
ST R9,SVSUB2
|
||
WTO 'BEGIN SUB2'
|
||
WTO 'LEAVE SUB2'
|
||
L R9,SVSUB2
|
||
BR R9
|
||
LTORG
|
||
SVSUB1 DC F'0'
|
||
SVSUB2 DC F'0'
|
||
END BEGIN
|
||
|