File:  [Infocom source] / coco / cocozip.src
Revision 1.1.1.3 (vendor branch): download - view: text, annotated - select for diffs
Fri Mar 20 10:20:14 2020 UTC (20 months, 2 weeks ago) by root
Branches: infocom, MAIN
CVS tags: VERSION_D, HEAD
coco interpeter version D

	;TITLE "ZIP/6809-D INFOCOM, INC. --- INITIALIZATION"

	; -------------------------------
	; ZIP/6809 VERSION D
	; Z-CODE INTERPRETER PROGRAM
	; FOR 64K TRS-80 COLOR COMPUTER 2
	; -------------------------------

	; COMPANY PRIVATE -- NOT FOR DISTRIBUTION

MSTART	EQU	$0A00			; START OF FREE PROGRAM RAM

DEBUG	EQU	0			; ASSEMBLY FLAG

	; -----------
	; ERROR CODES
	; -----------

	; 00 -- INSUFFICIENT RAM
	; 01 -- ILLEGAL X-OP
	; 02 -- ILLEGAL 0-OP
	; 03 -- ILLEGAL 1-OP
	; 04 -- ILLEGAL 2-OP
	; 05 -- Z-STACK UNDERFLOW
	; 06 -- Z-STACK OVERFLOW
	; 07 -- ILLEGAL PROPERTY LENGTH (GETP)
	; 08 -- DIVISION BY ZERO
	; 09 -- ILLEGAL ARGUMENT COUNT (EQUAL?)
	; 10 -- ILLEGAL PROPERTY ID (PUTP)
	; 11 -- ILLEGAL PROPERTY LENGTH (PUTP)
	; 12 -- DISK ADDRESS OUT OF RANGE
	; 13 -- PARSER OVERFLOW
	; 14 -- DRIVE ACCESS
	; 15 -- Z-STACK DESTROYED
	; 16 -- ZIP NOT FULLY LOADED


	INCLUDE zequates.src
	INCLUDE warm.src

	;TITLE "ZIP/6809-D INFOCOM, INC. --- MAINLINE"
	INCLUDE main.src
	INCLUDE mainsubs.src
	INCLUDE dispatch.src

	;TITLE "ZIP/6809-D INFOCOM, INC. --- OPCODE EXECUTORS"
	INCLUDE ops0.src
	INCLUDE ops1.src
	INCLUDE ops2.src
	INCLUDE opsx.src
	INCLUDE read.src

	;TITLE "ZIP/6809-D INFOCOM, INC. --- OPCODE SUPPORT"
	INCLUDE paging.src
	INCLUDE zstring.src
	INCLUDE objects.src

	;TITLE "ZIP/6809-D INFOCOM, INC. --- COCO MACHINE DEPENDENT"
	INCLUDE ioprims.src
	INCLUDE screen.src
	INCLUDE disk.src

	;TITLE "ZIP/6809-D INFOCOM, INC."
	IF DEBUG
	INCLUDE bugger.src
	ENDIF

	END


unix.superglobalmegacorp.com