	subroutine sndpic
#
# sendet das Grauwertbild in Bank 1 ueber die serielle Schnittstelle SIO-A
# zum WANG. Der Transfer geschieht in Bloecken zu 120 Bytes.
#
# Verwendete externe Routinen, die nicht in FORLIB sind:
# Name		Bibliothek,File
# ibadr		RGEN		berechnet Bank-Adresse
# loadb		BANKLIB		liest ein Byte aus Bank 1
# wrts		WANG		wartet auf Request to Send-Zeichen
# send		WANG		sendet ein Byte ueber die SIO
# sendq		WANG		sendet ein Byte schnell ueber die SIO
#
# Version 1.3	18.07.84
#
byte	g		# Grauwert
#
integer	adrb,adr	# Adresse in Bank 1
integer	xanz,yanz,	# Bildgrenzen
	gwmax		# max.Grauwert (<32)
integer	i,j,k		# Laufindizes
integer	ibadr		# function, liefert Adresse in Bank 1
#
common	/bild/adrb,xanz,yanz,gwmax
#
write(1,10)
10 format(' SNDPIC')
call wrts				# wait for RTS
write(1,11) xanz,yanz,gwmax
11 format(' Bilddaten ',3i4/)
call send(xanz) ; call send(yanz)	# Bildgrenzen
i=1 ; call send(i) ; call send(i)	# Pixelgroesse
call send(gwmax)			# max.Grauwert
call wrts
write(1,12)
12 format('+  und'/)
k=0 ; l=0				# Byte- und Pixel-Zaehler
do j=1,xanz
[	do i=1,yanz
	[	adr=ibadr(j,i)
		call loadb(g,adr)
		call sendq(g)
		k=k+1
		if (k==120)
		[	call wrts
			l=l+k
			write(1,13) l
			13 format('+     ',i5,' Pixel gesendet')
			k=0
		]
]	]
k=xanz*yanz
write(1,13) k
return
end
