mirror of
https://github.com/moshix/mvs.git
synced 2026-05-01 22:26:16 +00:00
21 lines
896 B
Plaintext
21 lines
896 B
Plaintext
TITLE 'DEMOPD2 - PRINT POWERS OF 2 USING PACKED DECIMAL'
|
||
DEMOPD2 CSECT
|
||
USING *,BASE USE ENTRY POINT REG AS BASE
|
||
SPM 0 SET PROGRAM MASK TO SURPRESS DECIMAL OVF
|
||
LOOP MVC DNUM,MASK
|
||
ED DNUM,PWORK
|
||
LA R2,DMSG
|
||
SVC WTO PRINT LINE VIA WRITE TO OPERATOR SVC
|
||
AP PWORK,PWORK DOUBLE PACKED DECIMAL NUMBER
|
||
BNO LOOP LOOP UNTIL OVERFLOW CONDITION CODE SET
|
||
SVC EXIT
|
||
EXIT EQU 0 PC/370 SVC 0 EXIT TO MS-DOS
|
||
WTO EQU 209 PC/370 SVC 200+9 WRITE TO OPERATOR
|
||
R2 EQU 2
|
||
BASE EQU 15
|
||
PWORK DC PL16'1' INITIAL PACKED NUMBER
|
||
MASK DC C' ',X'20',10X'6B202020' EDIT MASK BLANK AND COMMAS
|
||
DMSG DC C' '
|
||
DNUM DC CL(DMSG-MASK)' ',C'$'
|
||
END DEMOPD2
|
||
|