mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:43:15 -06:00
82 lines
1.6 KiB
Plaintext
82 lines
1.6 KiB
Plaintext
; 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
|
||
|
||
|