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

(Source file text) 

---

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


.INCLUDE SYS:MACLIB.MA


/
****SDAU2A****
/04.09.81  PMO,15.10.82,15.11.83 VH
/(L,AC)=?,AUSZUDRUCKENDE ZAHL
/CALL	SDAU2A
/(L,AC)=0,0
/
**************


/DAS UNTERPROGARMM SDAU2A 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.
/ES WERDEN 
KEINE FUEHRENDEN SPACES AUSGEGEBEN !


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


OPEN	"SDA2A","F"


.ENTRY	SDAU2A

	DEFMER	ZAHL$	,ZAHL1$	,PNTR1$

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

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

DUALR$: V				/RUECKSPRUNG
	JMP I SDAU2A

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


CLOSE	"SDA2A"

	ENDPR

---