force_load.asm
bitfixer_bitfixer/dg/z88dk/libsrc/osca/force_load.asm
;
;	Old School Computer Architecture - interfacing FLOS
;	Stefano Bodrato, 2012
;
;	 int force_load(int address, int bank);
;
; forces a file to be loaded to a particular address - kjt_find_file MUST be called first!
;
; Input Registers :
;
; HL = Load address.
; B = Bank of load address.
;
; Output Registers :  FLOS style error handling
;
;
;	$Id: force_load.asm,v 1.3 2015/01/19 01:33:00 pauloscustodio Exp $
;

	PUBLIC  force_load
	EXTERN  force_load_callee
	EXTERN ASMDISP_FORCE_LOAD_CALLEE

force_load:
	pop de
	pop bc	; bank
	pop hl	; data position
	push hl
	push bc
	push de

   jp force_load_callee + ASMDISP_FORCE_LOAD_CALLEE
