/*
 * Preliminary Alpha AXP version, using UNIX system calls.
 * (Works on Linux, probably works on others as well)
 *
 * I'd like to change this to use the bitwise rot13 to which
 * AXP would be much better suited. Maybe later.
 *
 * Julian Squires <tek@wiw.org>
 */

.text
	.globl _start
	.ent _start
_start:
	.frame $15,8,$26,0

	lda $30, -8($30)
	stq $15, 8($30)
	mov $30, $15

l1:
	bis $31, 3, $0
	bis $31, $31, $16
	bis $15, 0, $17
	bis $31, 1, $18
	callsys

	beq $0, exit

	ldq $1, 0($17)
	bis $1, 32, $2
	subq $2, 'a', $3
	blt $3, notalpha
	subq $2, 'm', $3
	bgt $3, grm
	addq $1, 13, $1
	br end
grm:	subq $2, 'z', $3
	bgt $3, notalpha
	subq $1, 13, $1
notalpha:
end:
	stq $1, 0($17)

	mov 4, $0
	mov 1, $16
	mov 1, $18
	callsys

	br l1

exit:
	mov 1, $0
	mov 0, $16
	callsys