Mercurial > sarpn

view arch/ioint.S @ 16:3d69c66b2610

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
arch: last fixup, now things seem to work as expected
author Josef 'Jeff' Sipek <jeffpc@josefsipek.net>
date Fri, 08 Apr 2011 09:44:57 -0400
parents c75be274ce23
children 0d5e25251e10
line wrap: on
line source

.text
	.align	4
.globl IOINT
	.type	IOINT, @function
IOINT:
	stmg	%r1,%r2,512

	l	%r1,0xb8
	larl	%r2,irb
	tsch	0(%r2)

	l	%r1,5(%r2)
	nill	%r1,0x04
	brc	7,4f		# device end

	l	%r1,5(%r2)
	nill	%r1,0x80
	brc	7,4f		# attention

	l	%r1,5(%r2)
	nill	%r1,0x03
	brc	7,4f		# ucheck or uexcept

4:
	la	%r1,1
	st	%r1,0x170
3:
	mvc	0x210(1,%r0),8(%r2)
	lmg	%r1,%r2,512
	lpswe	0x170

irb:
	.8byte 0x00
	.8byte 0x00
	.8byte 0x00
	.8byte 0x00
	.8byte 0x00
	.8byte 0x00
	.8byte 0x00
	.8byte 0x00
	.8byte 0x00
	.8byte 0x00
	.8byte 0x00
	.8byte 0x00