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

(Source file text) 

---

.TITLE	
L I N K - L I B R A R Y
.SBTTL	
SDAUS4:4-STELLIGE DEZIMALAUSGABE



.INCLUDE SYS:MACLIB.MA


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



/DAS UNTERPROGRAMM SDAUS4 WIRD VOM MACRO DECPRT VERWENDET


/ES DIENT ZUR UMWANDLUNG UND AUSGABE EINER 12-BIT OKTALZAHL
/IN EINE 4 STELLIGE DEZIMALZAHL.

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

/DER AUSDRUCK KANN UEBER TTY ODER TTY+LPT ERFOLGEN.
/				SPHSR=0 TTY
/				SPHSR=1 TTY+LPT

/DIE AUSZUGEBENDE ZAHL STEHT IM AC





OPEN	"SDAU4","F"


.ENTRY	SDAUS4

	DEFMER	PNTR1$	,GEPU1$	,CNTR1$	,TEMP1$

SDAUS4,	OPNSUB RT:SDA4R$,AC:TEMP1$

	TAD (-4)
	RESMER AC+PNTR1$,CNTR1$,GEPU1$

	TAD (SDA45$)			/TAD (TAD SDA45$)
	AND (^O0177)
	TAD (^O1200)
	DCA SDA41$
	SKP
	DCA TEMP1$
	CLL
	TAD TEMP1$
SDA41$:	V
	SZL
	ISZ CNTR1$
	SZL
	JMP SDA41$-3
	CLA
	TAD GEPU1$
	SNA CLA
	JMP SDA44$
SDA42$:	TAD CNTR1$
	TAD (^O20)
SDA43$:	TAD (SPACE)
	TYPECL
	DCA CNTR1$
	ISZ SDA41$
	ISZ PNTR1$
	JMP SDA41$-1

SDA4R$:	V				/RUECKSPRUNG
	JMP I SDAUS4

SDA44$:	TAD PNTR1$
	IAC
	SNA CLA
	JMP SDA42$
	TAD CNTR1$
	SNA CLA
	JMP SDA43$
	ISZ GEPU1$
	JMP SDA42$

SDA45$:	^O6030
	^O7634
	^O7766
	^O7777


CLOSE	"SDAU4"

	ENDPR

---