***************************** Top of Data **********************
BEGIN CSECT
STM 14,12,12(13) SAVE THE REGISTERS
LR 12,15 MEKE R12 THE BASE REGISTER
USING *,12 FINISH THE JOB
LA 11,REGSAVE POINT TO SAVE AREA
ST 13,4(11) SAVE CURRENT R13
ST 11,8(13) INFORM THE OS
LR 13,11 ESTABLISH NEW R13
*
LA 2,ONE
LA 5,TWO
AR 2,5
XDECO R2,DBL
XPRNT DBL,L'DBL
*
L 13,4(13) RESTORE R13 TO ORIGINAL
LM 14,12,12(13) RESTORE THE REGS
SR 15,15 EVERYTHING WENT OK
BCR B'1111',14 RETURN TO THE SYSTEM
BR 14
REGSAVE DS 18F
ONE DC F'1'
TWO DC F'2'
DBL DS CL12
END
**************************** Bottom of Data ********************
BEGIN CSECT
STM 14,12,12(13) SAVE THE REGISTERS
LR 12,15 MEKE R12 THE BASE REGISTER
USING *,12 FINISH THE JOB
LA 11,REGSAVE POINT TO SAVE AREA
ST 13,4(11) SAVE CURRENT R13
ST 11,8(13) INFORM THE OS
LR 13,11 ESTABLISH NEW R13
*
LA 2,ONE
LA 5,TWO
AR 2,5
XDECO R2,DBL
XPRNT DBL,L'DBL
*
L 13,4(13) RESTORE R13 TO ORIGINAL
LM 14,12,12(13) RESTORE THE REGS
SR 15,15 EVERYTHING WENT OK
BCR B'1111',14 RETURN TO THE SYSTEM
BR 14
REGSAVE DS 18F
ONE DC F'1'
TWO DC F'2'
DBL DS CL12
END
**************************** Bottom of Data ********************
GETTING ERROR:
ASMA057E Undefined operation code - XDECO
ASMA057E Undefined operation code - XPRNT
ASMA057E Undefined operation code - XPRNT