NEW
PREFIX
AUTO 4,1
*--------------------------------------
Z80.pPs			.EQ pPs+0F000H

Z80.pCode		.EQ pCode+0F000H
Z80.pData		.EQ pData+0F000H
Z80.pStack		.EQ pStack+0F000H
Z80.pLocal		.EQ pLocal+0F000H
*--------------------------------------
Z80.6502P.N		.EQ %10000000
Z80.6502P.V		.EQ %01000000
Z80.6502P.B		.EQ %00010000
Z80.6502P.D		.EQ %00001000
Z80.6502P.I		.EQ %00000100
Z80.6502P.Z		.EQ %00000010
Z80.6502P.C		.EQ %00000001
*--------------------------------------
				.OP Z80
				.OR 0
*--------------------------------------
* First time entry point after reset
* Called from Kernel.Init2
*--------------------------------------
Z80.Init		ld SP,000FFH			Init Stack to 000FFH ($10ff)
				ld A,0FFH				Set Flag...
				ld Z80.6502A,A			...in 6502 A reg
				im 1
				ei
				jr Z80.Exit
*--------------------------------------			
				.BS 00038h-*
*--------------------------------------
Z80.Irq			push AF
				push BC
				push DE
				push HL
				push IX
				push IY
				ld (Z80.pStack),SP 
*--------------------------------------
Z80.Exit		ld Z80.IOz,A			exit to 6502, falling in main loop for next call
*--------------------------------------
* Called from :
* - CORE.PSExec : Z80.6502X = PS.INIT/PS.RUN/PS.DOEVENT/PS.QUIT
* - CORE.PSExec	: Resume
* - SYSCALL Return
* - LIBCALL Return
* - 
*--------------------------------------
Z80.Enter		ld A,(Z80.6502X)		get 6502,X		
				cp A,PS.RESUME
				jpz Z80.Resume
				ld L,A
				ld H,0					HL=offset in jump table
				ld DE,(Z80.pCode)		DE=Code Base
				add DE,4				skip header
				add HL,DE				HL=CodeBase+4+X
				ld A,(HL)				get jmp lo at X
				inc HL
				ld H,(HL)				get jmp hi at X+1
				ld L,A
				call Z80.JumpHL
				ld Z80.6502A,A
*--------------------------------------
Z80.Resume		ld SP,(Z80.pStack) 

				pop IY
				pop IX
				pop HL
				pop DE
				pop BC
				pop AF
				ei
				reti
*--------------------------------------

*--------------------------------------
Z80.SYSCALL		ld 
*--------------------------------------
Z80.LIBCALL		
*--------------------------------------
Z80.JumpHL		jp (HL)
*--------------------------------------
Z80.IOz			.DA 0E100H 
Z80.6502A		.BS 1
Z80.6502X		.BS 1
Z80.6502Y		.BS 1
Z80.6502P		.BS 1
*--------------------------------------
MAN
SAVE USR/SRC/SYS/KERNEL.S.Z80
LOAD USR/SRC/SYS/KERNEL.S
ASM