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

(Source file text) 

---

.TITLE
	L I N K - L I B R A R Y
.SBTTL	
SAM10 :MULTIPLIKATION MIT 10


.INCLUDE SYS:MACLIB.MA


/
********* SAM10 *******
/81-11-30 PMO
/(L,AC)=?,?
/CIF SAM10
/JMS SAM10
/FELD DES BUFFERS
/ADRESSE VON BUFFER-HIGH
/ADRESSE VON BUFFER-LOW
/RUECKSPRUNG (L,AC)=?,?
/
*********************




/DAS UNTERPROGRAMM SAM10 FUEHRT DIE MULTIPLIKATION EINER ASCII-ZAHL
/MIT 10 AUS.ZUNAECHST WIRD DAS UNTERPROGRAMM SAM2 ZWEIMAL DURCHLAUFEN
/(DIE MULTIPLIKATION MIT 4 ENTSPRICHT EINEM ZWEIMALIGEN VERSCHIEBEN NACH
/LINKS),DANN WIRD DIE AUSGANGSZAHL EINMAL ADDIERT (X5) UND ZUM 
/ABSCHLUSS NOCH EINMAL SAM2 AUFGERUFEN (X10).
/DAS PROGRAMM BEARBEITET 2X12 BIT.EIN UEBERTRAG AUS DER ZAHL (LOW)
/WIRD IM UEBERTRAG (HIGH) ENTSPRECHEND BERUECKSICHTIGT.


OPEN	"SAM10","F"

.ENTRY	SAM10

SAM10,	OPNSUB RT:SA10R$,SA10F$,PNTR1$,PNTR2$

	DEFMER PNTR2$,PNTR1$,LOW$,HIGH$

SA10F$:	V

	DCAADD HIGH$,<I PNTR1$>

	DCAADD LOW$,<AC+I PNTR2$>

	JMS SAM2
	JMS SAM2
	CLL

	DCAADD <I PNTR1$>,AC+HIGH$,<I PNTR1$>

	DCAADD <I PNTR2$>,AC+LOW$,<I PNTR2$>

	SZL

	INC <I PNTR1$>

	JMS SAM2
SA10R$:	V

	INC SAM10

	JMP I SAM10

SAM2:	V
	MULTI2	PNTR2$,PNTR1$
	JMP I SAM2



CLOSE	"SAM10"

	ENDPR

---