#comment
     This file is part of Z80 Scheme Interpreter     

     Z80 Scheme Interpreter is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
     the Free Software Foundation; either version 2 of the License, or
     (at your option) any later version.
 
     This program is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     GNU General Public License for more details.
 
     You should have received a copy of the GNU General Public License
     along with this program; if not, write to the Free Software
     Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 
     Copyright 2007, Spencer Putt
#endcomment

err_data_type:
	ld hl,szerr_data_type
	
print_error_code:
	ld de,heap
	call strcpy

	ld hl,(last_eval)
	call workfetch
	ld hl,work
	ld de,heap + 10
	call strcpy
	
print_error:
	bcall(_clrlcdfull)
	ld hl,heap
	bcall(_puts)
	bcall(_getkey)
	
	call heap_uninitialize
	bjump(_JForceCmdNoChar)	
	
	
szerr_data_type:
	.db "DATATYPE: ",0
	
err_var:
	ld hl,szerr_var
	jp print_error_code
	
szerr_var:
	.db "ERR: VAR     ",0
	
err_arg:


	ld hl,szerr_arg
	jp print_error_code
	
szerr_arg:
	.db "ERR: ARG",0
	
err_list:
	ld hl,szerr_list
	jp simple_error_message
szerr_list:
	.db "ERR: LIST",0
	
err_overflow:
	ld hl,szerr_overflow
	jp simple_error_message
szerr_overflow:
	.db "ERR: OVERFLOW",0
	
	
err_syntax:
	ld hl,szerr_syntax
	jp simple_error_message
szerr_syntax:
	.db "ERR: SYNTAX",0
	
	
err_symbol:
	ld hl,szerr_symbol
	jp simple_error_message
szerr_symbol:
	.db "ERR: SYMBOLS",0
	
; hl error message
simple_error_message:
	ld de,heap
	call strcpy
	
	jp print_error