idigitaddsubmult.s

来自「Arithmetic for integers of almost unlimi」· S 代码 · 共 80 行

#include <config.h>

/*
  Alpha assembly support for libI
  Written by Thomas Papanikolaou, June 2 1998
  internal version for John Cremona
*/

.text

	.set noreorder
	.set noat
	.align 3
	.globl DigitAdd
	.ent DigitAdd 0
DigitAdd:
	.frame $30,0,$26,0
	.prologue 0
	addq $17,$19,$17
	cmpult $17,$19,$19
	addq $17,$18,$17
	cmpult $17,$18,$18
	stq $17,0($16)
	addq $19,$18,$0
	ret $31,($26),1
	.end DigitAdd


	.set noreorder
	.set noat
	.align 3
	.globl DigitSub
	.ent DigitSub 0
DigitSub:
	.frame $30,0,$26,0
	.prologue 0
	subq $17,$19,$19
	cmpult $17,$19,$0
	subq $19,$18,$17
	cmpult $19,$17,$19
	stq $17,0($16)
	addq $0,$19,$0
	ret $31,($26),1
	.end DigitSub


	.set noreorder
	.set noat
	.align 3
	.globl DigitMult
	.ent DigitMult 0
DigitMult:
	.frame $30,0,$26,0
	.prologue 0
	mulq $17,$18,$1
	umulh $17,$18,$0
	stq $1,0($16)
	ret $31,($26),1
	.end DigitMult


	.set noreorder
	.set noat
	.align 3
	.globl DigitMultAdd
	.ent DigitMultAdd 0
DigitMultAdd:
	.frame $30,0,$26,0
	.prologue 0
	mulq $17,$18,$1
	addq $1,$19,$1
	cmpult $1,$19,$19
	umulh $17,$18,$0
	stq $1,0($16)
	addq $0,$19,$0
	ret $31,($26),1
	.end DigitMultAdd