File: SDAUS2.MA of Tape: Various/Decus/decus-2

(Source file text) 

---

.TITLE	
L I N K - L I B R A R Y
.SBTTL	
SDAUS2:2-STELLIGE DEZIMALAUSGABE


.INCLUDE SYS:MACLIB.MA


/
****SDAUS2****
/04.09.81  PMO,15.8.83  VH
/(L,AC)=?,AUSZUDRUCKENDE ZAHL
/CALL	SDAUS2
/(L,AC)=0,0
/
**************


/DAS UNTERPROGARMM SDAUS2 WIRD VOM MACRO DECPRT VERWENDET.

/ES DIENT ZUR UMWANDLUNG UND DEM AUSDRUCK EINER BIS ZU
/3-STELLIGEN OKTALZAHL IN EINE 2-STELLIGE DEZIMALZAHL


/DIE OKTALZAHL MUSS IM AC STEHEN.

/DER ZAHLENBEREICH BETRAEGT  0-99.
/DIE FUEHRENDE 0 WIRD UNTERDRUECKT.


/DER AUSDRUCK ERFOLGT UEBER TTY ODER TTY+LPT
/ANWAHL DURCH  SPHSR=0  NUR TTY
/	       SPHSR=1  TTY+LPT


OPEN	"SDAU2","F"


.ENTRY	SDAUS2

	DEFMER	ZAHL$	,ZAHL1$	,PNTR1$

SDAUS2, OPNSUB RT:DUALR$,AC:ZAHL$

	TAD ZAHL$
	AND (177)
	DCA ZAHL1$
	DCA PNTR1$
DUAL1$: TAD ZAHL1$
	TAD (-12)
	SMA
	JMP DUAL2$
	CAL
	TAD PNTR1$
	SZA
	TAD (20)
	TAD (SPACE)
	TYPECL
	TAD ZAHL1$
	TAD ("0)
	TYPECL

DUALR$: V				/RUECKSPRUNG
	JMP I SDAUS2

DUAL2$: DCA ZAHL1$
	INC PNTR1$
	JMP DUAL1$


CLOSE	"SDAU2"

	ENDPR

---