mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
82 lines
1.6 KiB
82 lines
1.6 KiB
; 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
|
|
|
|
|