;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; show messages
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


dspMsgNormal:
;in	hl = pointer naar tekst die moet worden weergegeven
 push	hl
 b_call	(_clrlcdfull)
 ld	hl, 0
 ld	(penCol), hl
 ld	(var), hl
 res	fracdrawlfont, (iy + fontflags)
 res	textinverse, (iy + textflags)
 jr	realmsg

 
dspMsg:
;in	hl = pointer naar de error die moet worden weergegeven
;out	a = keycode
 push	hl
 b_call	(_clrlcdfull)
 ld	hl, 0
 ld	(penCol), hl
 ld	(var), hl
 res	fracdrawlfont, (iy + fontflags)
 res	textinverse, (iy + textflags)
 ld	hl, realmsg
 push	hl;dit gaat ret zometeen gebruiken om na ERROR:  t echte bericht te scrhijven
 ld	hl, err
 jr	dspchar
realmsg:
 pop	de
 push	de
 ld	hl, laatstestuk
 push	hl
 ex	de, hl
dspChar:
 ld	a, (hl)
 or	a
 jr	z, dspChar_
 ld	b, a;backup
 cp	$f5
 jr	nz, dontskip
skip:
 inc	hl
 jr	dspChar
dontskip:
 cp	$f0
 call	z, pennextline
 jr	z, skip

 cp	$20
 jr	nz, nospace
 ld	(var), hl
nospace:
 inc	hl
 ld	a, (penCol)
 cp	96-3
 jr	c, notendline
 call	pennextline
notendline:
 ld	a, b
 b_call	(_vputmap)
 
 jr	dspChar
dspChar_:
 ret;naar laatstestuk of trug naar realmsg
laatstestuk:
 b_call	(_getkey)
 pop	hl
 ret
 
pennextline:
 push	de
 push	af
 ld	e, 0
 ld	a, (penRow)
 add	a, 8
 ld	d, a
 ld	(penCol), de
 pop	af
 pop	de
 ret
 
penjump1:
 push	af
 ld	a, (penRow)
 add	a,7
 ld	(penRow), a
 ld	a, (penCol)
 sub	8
 ld	(pencol), a
 pop	af
 ret 


 
  
  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; errors
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 

fatalOverflow:
 ld	hl, erroverflowmsg
 call	dspmsg
 jp	prevpage
 


 
atomNotFound:
 push	hl
 ld	hl, atomnotfoundmsg
 ld	de, buffer2
 ld	bc, atomnotfoundmsg_ - atomnotfoundmsg
 ldir
 ld	hl, buffer2+7
 pop	de
 ld	(hl), d
 ld	a, 1
 cp	e
 jr	nz, notone
 ld	e, $f5
notone:
 inc	hl
 ld	(hl), e
 ld	hl, buffer2
 call	dspMsg
 
 ld	b, a;backup
 ld	a, (methode);methode 3 wordt niet in menu gestart, dus moet ook niet in menu terugkomen
 cp	3
 ld	a, b;restore
 jp	z, atomDetailsBackError
 
 jp	menu2
  
 
 
errnois:
 ld	hl, errnoismsg
errend:
 ld	a, (methode)
 or	a
 jp	nz, errISback;methode 1,2,enz geeft hier geen foutmelding voor
 call	dspmsg
 jp	menu2	
err2muchis:
 ld	hl, err2muchismsg
 jr	errend
 
errbrackets:
 ld	hl, errbracketsmsg
 call	dspmsg
 jp	menu2
 
 
 
 
dspStringSmall:
 res	fracdrawlfont, (iy + fontflags)
 res	textinverse, (iy + textflags)
dspStringSmall_loop:
 ld	a, (hl)
 or	a
 ret	z
 
 cp	$f6;voor title
 jr	nz, nothingspecial
 
 ld	bc, dontprint
 push	bc
 jp	penjump1
nothingspecial:
 ;cp	$f7
 ;jr	nz, nothingspecial2

 ;ld	bc, dontprint
 ;push	bc
 ;jp	penjump2
;nothingspecial2:
 cp	$f0
 call	z, pennextline

 b_call	(_vputmap)
dontprint:
 inc	hl
 jr	dspStringSmall_loop