// P R I N T D E B U G 
// Print page to the display -- for debugging.

get "PressInternals.df"
get "PressParams.df"

//outgoing procedures
external PDisplay

//incoming procedures
external
 [
//WINDOW
	WindowInit
	WindowClose
	WindowReadBlock
	WindowGetPosition
	WindowSetPosition
	FileVDA

//PRESSML
	DoubleAdd
	Ugt
	BitBLT

//OS
	Zero
	MoveBlock
	Timer

//PRESS
	PressError
	DblShift
	FSGet
	FSGetX
	FSPut
	MulDiv

//CURSOR
	CursorChar
	CursorDigit
	CursorToggle

//PRINT
	PrintError
 ]

// incoming statics
external
	[
	BitsFile
	]

manifest DISWID=36

let PDisplay(pg) be
 [
   let nbands=pg>>PageG.LastBand-pg>>PageG.FirstBand+1
   let gbands=nbands		//Number of bands we have dis for
   if gbands gr 800/BANDWidth then gbands=800/BANDWidth
   let dsiz=nil			//Size of dis buffer
   let dcore=nil			//Dis buffer
   while gbands ge 1 do
     [
      dsiz=gbands*BANDWidth*DISWID	//Size
      dcore=FSGet(dsiz+1)		//Try for it
      if dcore then break		//OK
      gbands=gbands-1
     ]
   if dcore eq 0 then [ PressError(1701); return ]
   let dataVec=FSGetX(4096)
   let dptr=(dcore+1)&(-2)		//Even address

   Zero(dptr,dsiz)		//Zero it.
   let display=vec 10
   display=(display+1)&(-2)			//Even address
   display!0=@#420
   display!1=DISWID
   display!2=dptr
   display!3=gbands*BANDWidth/2

   let BitWc=pg>>PageG.BitWc
   let pages=((BitWc*BANDWidth+1023)/1024)	//1024 word hunks
   let del=vec 1; del!0=0; del!1=BitWc
   let rwin=WindowInit(BitsFile)	//Get a window.

   let band=0			//Number of bands displayed.
   while band ls nbands do		//Loop through all bands.
     [
      let b=nbands-band
      if b gr gbands then b=gbands	// b= number of bands to show this time

      let wid=0			//Number of words displayed
      while wid ls BitWc do
	[
	let w=BitWc-wid
	if w gr DISWID then w=DISWID	// w= number of words to display

//When we get here, we are to display "b" bands starting at "band".
//In each band, we are to show "w" words starting at "wid"
	Zero(dptr,dsiz)

	   let pos=vec 1
	   pos!0=0; pos!1=(band)*pages+pg>>PageG.BitPage
	   DblShift(pos,-10)		//1024 hunks to Words
	   let dw=vec 1
	   dw!0=0; dw!1=wid		//Amount to pass up
	   DoubleAdd(dw,pos)			//Where to start
	   WindowSetPosition(rwin,dw)

	   let nWordsRead=0
	   for db=0 to b-1 do
		[
		let dbase=dptr+DISWID*db*BANDWidth
		WindowReadBlock(rwin,dataVec,2)
		nWordsRead=(nWordsRead+2)&#7777	//avoid wrap around
		let nWords=-(dataVec!0)
		if nWords eq 0 then break	//all done
		if nWords ls 0 then	//jump to next <4096> page start
		 [
		  WindowReadBlock(rwin,dataVec,4096-nWordsRead)
		  WindowReadBlock(rwin,dataVec,2)
		  nWords=-(dataVec!0)
		  nWordsRead=2
		 ]
		//BITBLT!!!!
		WindowReadBlock(rwin,dataVec+2,nWords)
		nWordsRead=nWordsRead+nWords
		let BLTv=vec 11
		BLTv!0=0
		BLTv!2=dbase
		BLTv!3=DISWID	//Dest scan line length 
		BLTv!4=0		//Dest x offset
		BLTv!6=nWords	//Dest width (and so, source width)
		BLTv!7=1	//Dest height
		BLTv!9=4096	//consider it just one scan line
		BLTv!11=0		//Source y offset
		for s=0 to BANDWidth-1 do
		 [ BLTv!5=s	//Dest y offset
		   BLTv!8=dataVec+2+(nWords/16)*s	//Source CBA
		   BLTv!10=(nWords&15)*s	//Source x offset
		   BitBLT(BLTv)
		 ]

		] //end of "for db=0 to b-1"

	@#420=display			//Now displaying!
	CursorToggle(2); CursorToggle(3)	//Let him know!
	PrintError()			//Wait for response
	@#420=0
	wid=wid+w
	]

      band=band+b
     ]

   WindowClose(rwin)
   @#420=display!0
   FSPut(dcore)
   FSPut(dataVec)
 ]

(1270)\3196i1I