; cpmappl.lib 2/10/2012 dwg - begin 1.6 development
; cpmappl.lib 2/04/2012 dwg - fix typo mov becomes mvi
; cpmappl.lib 2/ 2/2012 dwg - initial version
 
;
; Copyright (C) 2011-2012 Douglas Goodall Licensed under GPL Ver 3.
;
; This file is part of NuBiosDWG and 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 3 of the License, or (at your option) any later version.
; This file 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 it.  If not, see <http://www.gnu.org/licenses/>.
;

do$start	macro

start:	jmp	begin

	public	hexref
hexref	db	'0123456789ABCDEF'

	public	id$sig,id$rmj,id$rmn,id$rup,id$rtp,id$mon,id$day,id$yr
id$sig	db	'ID'
id$rmj	db	A$RMJ
id$rmn	db	A$RMN
id$rup	db	A$RUP
id$rtp	db	A$RTP
id$mon	db	A$MONTH
id$day	db	A$DAY
id$yr	dw	A$YEAR
id$argv	dw	argv
	db	0e5h


	public	pre$stk
pre$stk	ds	2

	public	begin
begin:	lxi	h,0
	dad	sp
	shld	pre$stk
	lxi	sp,stack$top
	nop
	endm


;---------------------------------


do$end	macro
	lhld	pre$stk
	sphl

	mvi	c,13
	call	BDOS

	ret
	ds	stack$size
stack$top:

	endm

movfcb	macro	destn,source
	lxi d,destn
	lxi h,source
	lxi b,LENFCB
	ldir
	endm

copyfcb	macro	fcbname,source
	local	around
	jmp	around
fcbname	ds	32
around:
	endm