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

(Source file text) 

---

.TITLE	
L I N K - L I B R A R Y
.SBTTL	
SDAUS5:5-STELLIGE DEZIMALAUSGABE


.INCLUDE SYS:MACLIB.MA


/
****SDAUS5****
/04.09.81  PMO,15.8.83  VH
/(L,AC)=?,?
/CALL	SDAUS5
/(L,AC)=0,0
/
**************


/DAS UNTERPROGRAMM SDAUS5 WIRD VOM MACRO DECPRT VERWENDET


/ES DIENT ZUR UMWANDLUNG UND ZUM AUSDRUCK VON 15-BIT OKTAL-
/ZAHLEN IN 5 STELLIGE DEZIMALZAHLEN.

/ZAHLENBEREICH  0...99999
/FUEHRENDE NULLEN WERDEN UNTERDRUECKT.

/DIE AUSZUGEBENDEN ZAHLEN STEHEN IN ZAHIGH UND ZAHLOW




OPEN	"SDAU5","F"


.ENTRY	SDAUS5

	DEFMER	AIND2$	,GEPU2$	,GEPU1$	,PNTR2$	,PNTR1$	,TEMP2$	,TEMP1$
	DEFMER	CNTR2$	,CNTR1$

SDAUS5,	OPNSUB RT:SDA5R$

	TAD (-5)
	RESMER AC+CNTR1$,CNTR2$
	DCAADD PNTR1$,(SDA5L$)

	VATAD ZALOW
	DCA TEMP2$

	VATAD ZAHIGH
	AND (^O17)
	DCA TEMP1$
	DCA PNTR2$

SDA51$:	TAD I PNTR1$
	INC PNTR1$,0
	DCA GEPU1$
	TAD I PNTR1$
	INC PNTR1$,0
	DCA GEPU2$

SDA52$:	CLL
	DCAADD AIND2$,AC+GEPU2$,TEMP2$

	RAL
	TAD GEPU1$
	TAD TEMP1$
	SNL
	JMP SDA53$
	INC CNTR2$,0
	DCA TEMP1$
	DCAADD TEMP2$,AC+AIND2$
	JMP SDA52$

SDA53$:	CLA CLL IAC
	JMX AC+CNTR1$,EQ:SDA54$

	JMX AC+PNTR2$,NE:SDA54$

	JMX AC+CNTR2$,EQ:SDA55$

SDA54$:	TAD CNTR2$
	INC PNTR2$,0
	TAD (^O20)
SDA55$:	TAD (SPACE)
	TYPECL
	DCA CNTR2$
	ISZ CNTR1$
	JMP SDA51$

SDA5R$:	V				/RUECKSPRUNG
	CAL
	JMP I SDAUS5

SDA5L$:	^O7775
	^O4360
	^O7777
	^O6030
	^O7777
	^O7634
	^O7777
	^O7766
	^O7777
	^O7777


CLOSE	"SDAU5"

	ENDPR

---