mirror of
https://github.com/moshix/mvs.git
synced 2026-01-13 07:09:40 +00:00
51 lines
1.5 KiB
Plaintext
51 lines
1.5 KiB
Plaintext
//PM55ASM JOB CLASS=A,NOTIFY=&SYSUID,MSGCLASS=X,MSGLEVEL=(1,0)
|
|
// SET STU=&SYSUID /* DATA SET HLQ = USERID */
|
|
//***********************************************************
|
|
//** THIS ASSEMBLER PROGRAM OUTPUTS A VARIBLE TEXT OT CONSOLE
|
|
//** WHICH IS USEFUL WHEN YOU WANT TO OUTPUT A DECIMAL NUMBER
|
|
//** TO THE CONSOLE. THIS COULD OF COURSE BE TURNED INTO A MACRO
|
|
//***********************************************************
|
|
//S0010 EXEC PROC=ASMACLG
|
|
//C.SYSLIB DD
|
|
// DD DISP=SHR,DSN=&STU..COPY.BOOKS
|
|
//G.OUTDD DD SYSOUT=*,RECFM=FBA,LRECL=133
|
|
//C.SYSIN DD *
|
|
PRINT GEN
|
|
TESTWTO CSECT
|
|
SAVE (14,12)
|
|
BASR R12,0
|
|
USING *,R12
|
|
ST R13,SAVEA+4
|
|
LA R13,SAVEA
|
|
LA R5,23 ARBITRARY VALUE FOR R5 OF 10
|
|
CVD R5,NUMDEC
|
|
UNPK UNDEC,NUMDEC+1
|
|
MVC WTOLIST+20(8),UNDEC WTO MACRO EXPANDS TO 24 BYTES
|
|
WTOLIST WTO 'REG R5 VLUE XXXXXXXX'
|
|
L R13,SAVEA+4
|
|
RETURN (14,12),RC=0 RETURN TO CALLER (Z/OS)
|
|
LTORG
|
|
SAVEA DS 18F
|
|
NUMDEC DS D
|
|
UNDEC DS PL4
|
|
R0 EQU 0
|
|
R1 EQU 1
|
|
R2 EQU 2
|
|
R3 EQU 3
|
|
R4 EQU 4
|
|
R5 EQU 5
|
|
R6 EQU 6
|
|
R7 EQU 7
|
|
R8 EQU 8
|
|
R9 EQU 9
|
|
R10 EQU 10
|
|
R11 EQU 11
|
|
R12 EQU 12
|
|
R13 EQU 13
|
|
R14 EQU 14
|
|
R15 EQU 15
|
|
END
|
|
/*
|
|
//SYSUDUMP DD SYSOUT=*,RECFM=FBA,LRECL=133
|
|
//G.SYSUDUMP DD SYSOUT=*,RECFM=FBA,LRECL=133
|