Reintegrate wbw -> trunk

Apps/Source/Build.cmd

@@ -0,0 +1,192 @@
+@echo off
+
+setlocal
+
+set PATH=..\..\tools\zx;%PATH%
+set ZXBINDIR=../../tools/cpm/bin/
+set ZXLIBDIR=../../tools/cpm/lib/
+set ZXINCDIR=../../tools/cpm/include/
+
+set OUTDIR=..\Output\
+set COREAPPS=ACCESS CPMNAME FINDFILE MAP META MULTIFMT REM SETLABEL SYSGEN TERMTYPE VIEW
+
+echo.
+echo Building DWG.REL...
+echo.
+set TGT=dwg.rel
+if exist %TGT% del %TGT%
+zx rmac printers
+zx rmac memory
+zx rmac banner
+zx rmac terminal
+zx rmac identity
+zx rmac hbios
+zx lib %TGT%=printers,memory,banner,terminal,identity,hbios
+if not exist %TGT% echo *** Failed to build %TGT% ***  && pause
+
+echo.
+echo Building DWG.LIB...
+echo.
+set TGT=dwg.lib
+if exist %TGT% del %TGT%
+zx as bioscall
+zx as bdoscall
+zx as diagnose
+zx cz --o cmemory.a80 cmemory
+zx as cmemory.a80
+zx cz --o cbanner.a80 cbanner
+zx as cbanner.a80
+zx cz --o ctermcap.a80 ctermcap
+zx as ctermcap.a80
+zx cz --o clogical.a80 clogical
+zx as clogical.a80
+zx as asmiface
+zx cz --o sectorio.a80 sectorio
+zx as sectorio.a80
+zx libutil --o dwg.lib cbanner.o clogical.o ctermcap.o sectorio.o asmiface.o 
+zx libutil --o dwg.lib dwg.lib bioscall.o bdoscall.o diagnose.o cmemory.o clogical.o
+if not exist %TGT% echo *** Failed to build %TGT% ***  && pause
+
+echo.
+echo Building ACCESS.COM...
+echo.
+set TGT=access.com
+if exist %TGT% del %TGT%
+zx rmac access
+zx link access,dwg
+if not exist %TGT% echo *** Failed to build %TGT% ***  && pause
+
+echo.
+echo Building CPMNAME.COM...
+echo.
+set TGT=cpmname.com
+if exist %TGT% del %TGT%
+zx cz --o cpmname.a80 cpmname
+zx as cpmname.a80
+zx cz --o cnamept1.a80 cnamept1
+zx as cnamept1.a80
+zx cz --o cnamept2.a80 cnamept2
+zx as cnamept2.a80
+zx cz --o cnamept3.a80 cnamept3
+zx as cnamept3.a80
+zx cz --o cnamept4.a80 cnamept4
+zx as cnamept4.a80
+zx ln cpmname.o cnamept1.o cnamept2.o cnamept3.o cnamept4.o --ldwg --lt --lc
+if not exist %TGT% echo *** Failed to build %TGT% ***  && pause
+
+echo.
+echo Building FINDFILE.COM...
+echo.
+set TGT=findfile.com
+if exist %TGT% del %TGT%
+zx rmac findfile 
+zx link findfile,dwg
+if not exist %TGT% echo *** Failed to build %TGT% ***  && pause
+
+echo.
+echo Building MAP.COM...
+echo.
+set TGT=map.com
+if exist %TGT% del %TGT%
+zx cz --o map.a80 map
+zx as map.a80
+zx ln map.o --ldwg --lt --lc
+if not exist %TGT% echo *** Failed to build %TGT% ***  && pause
+
+echo.
+echo Building META.COM...
+echo.
+set TGT=meta.com
+if exist %TGT% del %TGT%
+zx cz --o meta.a80 meta
+zx as meta.a80
+zx ln meta.o --ldwg --lt --lc
+if not exist %TGT% echo *** Failed to build %TGT% ***  && pause
+
+echo.
+echo Building MULTIFMT.COM...
+echo.
+set TGT=multifmt.com
+if exist %TGT% del %TGT%
+zx cz --o multifmt.a80 multifmt
+zx as multifmt.a80
+zx ln multifmt.o --ldwg --lt --lc
+if not exist %TGT% echo *** Failed to build %TGT% ***  && pause
+
+echo.
+echo Building REM.COM...
+echo.
+set TGT=rem.com
+if exist %TGT% del %TGT%
+zx rmac rem
+zx link rem
+if not exist %TGT% echo *** Failed to build %TGT% ***  && pause
+
+echo.
+echo Building SETLABEL.COM...
+echo.
+set TGT=setlabel.com
+if exist %TGT% del %TGT%
+zx rmac setlabel
+zx link setlabel,dwg
+if not exist %TGT% echo *** Failed to build %TGT% ***  && pause
+
+echo.
+echo Building SYSGEN.COM...
+echo.
+set TGT=sysgen.com
+if exist %TGT% del %TGT%
+zx cz --o sysgen.a80 sysgen
+zx as sysgen.a80
+zx ln sysgen.o --ldwg --lt --lc
+if not exist %TGT% echo *** Failed to build %TGT% ***  && pause
+
+echo.
+echo Building TERMTYPE.COM...
+echo.
+set TGT=termtype.com
+if exist %TGT% del %TGT%
+zx cz --o termtype.a80 termtype
+zx as termtype.a80
+zx ln termtype.o --ldwg --lt --lc
+if not exist %TGT% echo *** Failed to build %TGT% ***  && pause
+
+echo.
+echo Building VIEW.COM...
+echo.
+set TGT=view.com
+if exist %TGT% del %TGT%
+zx cz --o view.a80 view
+zx as view.a80
+zx ln view.o --ldwg --lt --lc
+if not exist %TGT% echo *** Failed to build %TGT% ***  && pause
+
+echo.
+echo Building N8VIDTST.COM / TMSSTAT.COM...
+echo.
+zx cz --o n8chars.a80 n8chars
+zx as n8chars.a80
+zx cz --o tms9918.a80 tms9918
+zx as tms9918.a80
+
+set TGT=n8vidtst.com
+if exist %TGT% del %TGT%
+zx cz --o n8vidtst.a80 n8vidtst
+zx as n8vidtst.a80
+zx ln n8vidtst.o n8chars.o tms9918.o --ldwg --lt --lc
+if not exist %TGT% echo *** Failed to build %TGT% ***  && pause
+
+set TGT=tmsstat.com
+if exist %TGT% del %TGT%
+zx cz --o tmsstat.a80 tmsstat
+zx as tmsstat.a80
+zx ln tmsstat.o n8chars.o tms9918.o --ldwg --lt --lc
+if not exist %TGT% echo *** Failed to build %TGT% ***  && pause
+
+echo.
+echo Generating Output...
+echo.
+if exist %OUTDIR% rd /s /q %OUTDIR%
+md %OUTDIR%
+for %%f in (%COREAPPS%) do echo %%f... && copy %%f.COM %OUTDIR%
+echo DWG-APPS.MAN... && copy DWG-APPS.MAN %OUTDIR%

Apps/Source/Clean.cmd

@@ -0,0 +1,10 @@
+@echo off
+if exist *.bak erase *.bak
+if exist *.prn erase *.prn 
+if exist *.o   erase *.o
+if exist *.rel erase *.rel
+if exist *.cpm erase *.cpm
+if exist *.sym erase *.sym
+if exist *.com erase *.com
+if exist *.a80 erase *.a80
+if exist dwg.lib erase dwg.lib

Apps/crossdev/APPLVERS.H → Apps/Source/applvers.h

@@ -5,10 +5,10 @@
 #define A_RMJ 2
 #define A_RMN 5
 #define A_RUP 0
-#define A_RTP 6
+#define A_RTP 8
 
-#define A_MONTH	4
-#define A_DAY 11
+#define A_MONTH	5
+#define A_DAY 10
 #define A_YEAR 2013
 #define A_YR   13
 

Apps/crossdev/APPLVERS.LIB → Apps/Source/applvers.lib

@@ -3,14 +3,14 @@
 A$RMJ	equ	2
 A$RMN	equ	5
 A$RUP	equ	0
-A$RTP	equ	6
+A$RTP	equ	8
 
-A$MONTH	equ	4
-A$DAY	equ	11
+A$MONTH	equ	5
+A$DAY	equ	10
 A$YEAR	equ	2013
 
 date	macro
-dat	db	' 4/11/2013$'
+dat	db	' 5/10/2013$'
 	endm
 
 serial	macro