DataMuseum.dk

Presents historical artifacts from the history of:

Bogika Butler

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Bogika Butler

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦9ad37d186⟧ TextFile

    Length: 1408 (0x580)
    Types: TextFile
    Names: »ZNULCP.ASM«

Derivation

└─⟦63c65de3f⟧ Bits:30009789/_.ft.Ibm2.50007335.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »ZNULCP.ASM« 

TextFile

;
; Null User Support Module for ZEX, CP/M Version 1.1
;
;  The user should define the routines described below
;   for the particular Z-8000 bus master switching
;   protocol used.
;  The MACLIB statement below assumes MAC is being used.
;  To use ASM, just replace that statement with the entire
;  contents of ZEXCP.LIB.
;
;

	MACLIB	ZEXCP	; (or include with the editor for ASM)


;
; Set up vectors to support routines below
;  (should not be modified)
;
	ORG	SETSEG
	DW	SETSGP
	ORG	SETUPZ
	DW	SETUPP
	ORG	RUNZ
	DW	RUNZP

;
; Start code following vector area
;
	ORG	USERAR

SETSGP:
;
; Set segment number
;  currently unused
;  For segmented Z8001 environments, replace this
;   with a program to control external memory management
;   hardware (see User Manual).
;
	RET

SETUPP:
;
; Set up the Z-8000 CPU Board.
; The hardware should be conditioned to begin execution
;  in non-segmented, system mode
;  at location %1000 (in the segment ZEX occupies).
;
	RET

RUNZP:
;
; Start the Z-8000 running,
; suspending the current program's execution
;  until TOHOST is called by the Z-8000 monitor.
;
	MVI	C,MSG
	LXI	D,NZMSG
	CALL	BDOS	; Print warning message
	RET

NZMSG:	DB	'ZEX needs user patch (see manual)',13,10,'$'
ZCMD:	DS	1

;
	IF	$ >= ZCOM
	ERROR	'Too Big'
	ENDIF

	END
«eof»