Source file: /~heha/vt/viewers/vt080.zip/src/STATS.ASM

;Statistics!!!
;Variablen

macro PRINTCY	str:rest
	LEAZ	dx,str
	call	printzlncy
endm

proc printzlncy
	jnc	@@e
	push	ax
	 call	zkonl
	pop	ax
@@e:	ret
endp
	_AXDEZ

proc Stats_Resume
	mov	al,[es:TheSw]
	add	al,al
	LEAZ	dx,'ein'
	jc	@@1
	LEAZ	dx,'aus'
@@1:	call	zkout2
	PRINTZLN 'geschaltet, die Statistik:'
	xor	ax,ax
	xchg	ax,[es:Stats.News]
	call	axdez
	PRINTZLN ' neue Seiten'
	xor	ax,ax
	xchg	ax,[es:Stats.Equals]
	call	axdez
	PRINTZLN ' gleich gelesene Seiten'
	xor	ax,ax
	xchg	ax,[es:Stats.Updates]
	call	axdez
	PRINTZLN ' ungleich gelesene und aktualisierte Seiten'
	xor	ax,ax
	xchg	ax,[es:Stats.Deletes]
	call	axdez
	PRINTZLN ' geloeschte Seiten (waren nicht mehr aufzufinden)'
	xor	ax,ax
	xchg	ax,[es:Stats.Faults]
	call	axdez
	PRINTZLN ' verworfene Seiten (Fehler im Header oder bei Vergleich)'
	mov	al,[es:TheSw]
	shl	al,1
	jn	nc,@@e		;Flag-Ausgabe nur wenn eingeschaltet
	PRINTZ	'Aktueller VT-Name: '
	push	ds
	 LD	ds,es
	 mov	dx,ofs CurVT
	 call	zkonl
	pop	ds
	PRINTZLN 'Und nun die gesetzten Flags:'
	mov	al,[es:TheSw]
	shr	al,1
	shr	al,1
	cmc
	PRINTCY	'Hintergrundarbeit AUSgeschaltet'
	mov	ax,[es:ctrl0]
	shl	ax,1
	PRINTCY	'Datentraeger (Festplatte?) voll!'
	shl	ax,1
	jnc	@@3
	push	ax
	 mov	al,[es:DosError]
	 call	ahex
	 PRINTZLN ' - DOS-Fehler bei der .VT-Datei!'
	pop	ax
@@3:	shl	ax,1
	PRINTCY	'DOS-Fehler bei der .VTD-Datei!'
	shl	ax,1
	PRINTCY	'Index-Überlauf, bitte Index groesser dimensionieren!'
	shl	ax,1
	cmc
	PRINTCY	'.VT-Datei-Einlese komplett! Bitte Sender wechseln!'
	shl	ax,1
	PRINTCY	'Einlese-Mode aktiv.'
	shl	ax,1
	PRINTCY	'Garbage-Collection-Mode aktiv.'
	shl	ax,1
	PRINTCY	'Interner Fehler (duerfte nie auftreten)!'
	shl	ax,1
	jnc	@@4
	push	ax
	 mov	ax,[es:I2CErrors]
	 call	axdez
	 PRINTZLN ' I2C-Busfehler!'
	pop	ax
@@4:	shl	ax,1
	PRINTCY	'Kein Schreiben einer .VTI-Indexdatei.'
	shl	ax,1
	PRINTCY	'Quiet-Mode ein, keine Piepser.'
	shl	ax,1
	PRINTCY	'Unterseiten 0 und ',60,62,'0 gleichzeitig zulassen.'
	shl	ax,1
	PRINTCY	'Teste Rolling Header nicht auf Senderwechsel (RTL4-Problem).'
	shl	ax,1
	PRINTCY	'VTGrab traegt in Praediktortabelle auch alle "Verweise" ein.'
	shl	ax,1
	PRINTCY	'VTGrab sucht auch nach Pseudoseiten.'
	shl	ax,1
	PRINTCY	'Rolling Header AUS (wird nur bei jeder gefundenen Seite eingelesen).'
@@e:	ret
	endp
proc Stats_Clear
	xor	ax,ax
	mov	di,ofs Stats
	mov	cx,size Stats
	rep	stosb
	ret
	endp