mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 14:11:48 -06:00
67 lines
1.6 KiB
NASM
67 lines
1.6 KiB
NASM
; stop.asm 7/19/2012 dwg - for 2.0.0.0 B22
|
||
; stop.asm 2/11/2012 dwg - review for release 1.5.1.0
|
||
; stop.asm 2/11/2012 dwg - review for release 1.5
|
||
; stop.asm 1/28/2012 dwg - update for 1.4.1.0
|
||
; stop.asm 1/22/2012 dwg - review for release 1.4
|
||
; stop.asm 1/20.2012 dwg - stop submit file activity
|
||
|
||
; 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/>.
|
||
|
||
|
||
maclib portab
|
||
maclib globals
|
||
maclib banner
|
||
maclib cpmbdos
|
||
maclib cpmappl
|
||
maclib applvers
|
||
maclib printers
|
||
maclib version
|
||
maclib z80
|
||
maclib identity
|
||
|
||
cseg
|
||
|
||
do$start
|
||
|
||
jmp around$bandata
|
||
argv dw prog,dat,prod,orig,ser,myname,0
|
||
prog db 'STOP.COM $'
|
||
date
|
||
serial
|
||
product
|
||
originator
|
||
oriname
|
||
uuid db '4A7BABA3-D6F3-4AAC-9C02-4F92CD52F91E$'
|
||
around$bandata:
|
||
|
||
sbanner argv
|
||
|
||
mvi c,FDELETE
|
||
lxi d,del$fcb
|
||
call BDOS
|
||
|
||
printmsg 'Submit file halted'
|
||
|
||
do$end
|
||
|
||
dseg
|
||
|
||
newfcb del$fcb,1,'$$$ SUB'
|
||
|
||
crlf db CR,LF
|
||
term db '$'
|
||
|
||
end start
|
||
|
||
|