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.
67 lines
1.6 KiB
67 lines
1.6 KiB
; 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
|
|
|
|
|