Browse Source

Merge trunk -> dgg

import/raw
wayne 13 years ago
parent
commit
5c465d8eb0
  1. 40
      branches/dgg/Apps/crossdev/2DRIVE.C
  2. BIN
      branches/dgg/Apps/crossdev/ACCESS.CPM
  3. BIN
      branches/dgg/Apps/crossdev/ACCESS.REL
  4. BIN
      branches/dgg/Apps/crossdev/ASMIFACE.O
  5. BIN
      branches/dgg/Apps/crossdev/ASMIFACE.REL
  6. BIN
      branches/dgg/Apps/crossdev/BANNER.REL
  7. BIN
      branches/dgg/Apps/crossdev/BDOSCALL.O
  8. BIN
      branches/dgg/Apps/crossdev/BDOSCALL.REL
  9. BIN
      branches/dgg/Apps/crossdev/BIOSCALL.O
  10. BIN
      branches/dgg/Apps/crossdev/BIOSCALL.REL
  11. 208
      branches/dgg/Apps/crossdev/CBANNER.ASM
  12. BIN
      branches/dgg/Apps/crossdev/CBANNER.O
  13. 970
      branches/dgg/Apps/crossdev/CHARS.ASM
  14. 118
      branches/dgg/Apps/crossdev/CLEAN.BAT
  15. 44
      branches/dgg/Apps/crossdev/CLEAR.ASM
  16. 159
      branches/dgg/Apps/crossdev/CLOGICAL.ASM
  17. BIN
      branches/dgg/Apps/crossdev/CLOGICAL.O
  18. BIN
      branches/dgg/Apps/crossdev/CMEMORY.O
  19. 0
      branches/dgg/Apps/crossdev/CMETADAT.C
  20. 527
      branches/dgg/Apps/crossdev/CNAMEPT1.ASM
  21. BIN
      branches/dgg/Apps/crossdev/CNAMEPT1.O
  22. 480
      branches/dgg/Apps/crossdev/CNAMEPT2.ASM
  23. BIN
      branches/dgg/Apps/crossdev/CNAMEPT2.O
  24. 794
      branches/dgg/Apps/crossdev/CNAMEPT3.ASM
  25. BIN
      branches/dgg/Apps/crossdev/CNAMEPT3.O
  26. 742
      branches/dgg/Apps/crossdev/CNAMEPT4.ASM
  27. BIN
      branches/dgg/Apps/crossdev/CNAMEPT4.O
  28. 51
      branches/dgg/Apps/crossdev/COREAPPS.BAK
  29. 61
      branches/dgg/Apps/crossdev/COREAPPS.BAT
  30. 164
      branches/dgg/Apps/crossdev/CPMNAME.ASM
  31. BIN
      branches/dgg/Apps/crossdev/CPMNAME.O
  32. 334
      branches/dgg/Apps/crossdev/CTERMCAP.ASM
  33. BIN
      branches/dgg/Apps/crossdev/CTERMCAP.O
  34. 5
      branches/dgg/Apps/crossdev/CVT2H.C
  35. BIN
      branches/dgg/Apps/crossdev/DIAGNOSE.O
  36. BIN
      branches/dgg/Apps/crossdev/DIAGNOSE.REL
  37. BIN
      branches/dgg/Apps/crossdev/EDITOR.EXE
  38. 12
      branches/dgg/Apps/crossdev/FINDFILE.BAK
  39. BIN
      branches/dgg/Apps/crossdev/FINDFILE.REL
  40. 428
      branches/dgg/Apps/crossdev/FLIP.ASM
  41. 646
      branches/dgg/Apps/crossdev/FORM.ASM
  42. BIN
      branches/dgg/Apps/crossdev/HBIOS.REL
  43. BIN
      branches/dgg/Apps/crossdev/IDENTITY.REL
  44. BIN
      branches/dgg/Apps/crossdev/LABELIB.REL
  45. 1649
      branches/dgg/Apps/crossdev/MAP.ASM
  46. 14
      branches/dgg/Apps/crossdev/MAP.BAK
  47. BIN
      branches/dgg/Apps/crossdev/MAP.O
  48. BIN
      branches/dgg/Apps/crossdev/MEMORY.REL
  49. 750
      branches/dgg/Apps/crossdev/META.ASM
  50. 62
      branches/dgg/Apps/crossdev/META.BAK
  51. BIN
      branches/dgg/Apps/crossdev/META.O
  52. BIN
      branches/dgg/Apps/crossdev/METADATA.REL
  53. 4
      branches/dgg/Apps/crossdev/METADATA.SYM
  54. 1319
      branches/dgg/Apps/crossdev/MULTIFMT.ASM
  55. BIN
      branches/dgg/Apps/crossdev/MULTIFMT.O
  56. 2056
      branches/dgg/Apps/crossdev/N8CHARS.ASM
  57. 609
      branches/dgg/Apps/crossdev/N8VIDTST.ASM
  58. 9
      branches/dgg/Apps/crossdev/N8VIDTST.BAT
  59. BIN
      branches/dgg/Apps/crossdev/PRINTERS.REL
  60. 185
      branches/dgg/Apps/crossdev/PUTC.ASM
  61. 20
      branches/dgg/Apps/crossdev/README.1ST
  62. BIN
      branches/dgg/Apps/crossdev/REM.REL
  63. 246
      branches/dgg/Apps/crossdev/REMOTE.ASM
  64. 117
      branches/dgg/Apps/crossdev/SECTORIO.ASM
  65. BIN
      branches/dgg/Apps/crossdev/SETLABEL.CPM
  66. BIN
      branches/dgg/Apps/crossdev/SETLABEL.REL
  67. 982
      branches/dgg/Apps/crossdev/SYSGEN.ASM
  68. BIN
      branches/dgg/Apps/crossdev/TASM301.EXE
  69. BIN
      branches/dgg/Apps/crossdev/TERMINAL.REL
  70. 448
      branches/dgg/Apps/crossdev/TERMTYPE.ASM
  71. 1463
      branches/dgg/Apps/crossdev/TMS9918.ASM
  72. 10
      branches/dgg/Apps/crossdev/TMSSTAT.BAT
  73. 500
      branches/dgg/Apps/crossdev/VIDEO.ASM
  74. 2233
      branches/dgg/Apps/crossdev/VIEW.ASM
  75. 4
      branches/dgg/Apps/crossdev/XTRAAPPS.BAT

40
branches/dgg/Apps/crossdev/2DRIVE.C

@ -4,6 +4,42 @@
it contains techniques which are not recommended because
there are better API functions to do these operations. */
/*
This code is in the crossdev folder because it is part of
my development environment, and I said I would make everything
available.
The purpose of this code is to dynamically alter the BIOS
data associated with PPIDE (or PPISD) drives. The default
configuration is that mass storage devices get four drives.
Each of the four drives can be remapped using the logical
unit utility MAP.
The purpose of this code is to alter the runtime data so that
instead of the PPIDE having four drives for the primary IDE
device, it then has two for the primary and two for the secondary.
The MAP command will properly display the status after this is
run, but you must keep in mind that having two sets of logical
units at the same time is twice as complicated to keep straight
in your mind, and you have to be more careful you know exactly
how the drives are mapped so you don't accidentally destroy your
data.
This utility is unsupported, and not recommended for general use.
The reason this utility wasn't generally published is that it
is very difficult to give support about this remotely.
If you are brave, and talented, and you can figure out what I did
with pointers in this program, then you get the prize, which is
to be able to copy from one CF chip to another in a dual adapter.
It has only been tested on my PPIDE, and I don't know what will
happen if you try it. You could wipe out your CF chip, so make
sure you are backed up if you try this.
*/
#include "cpmbios.h"
#include "bioscall.h"
@ -51,18 +87,20 @@ main(argc,argv)
iregbc = DRIVED;
iregde = 0;
bioscall();
pDPH_D = ireghl;
pDPB_D = pDPH_D->dpb;
pDU_D = ireghl -1;
*pDU_D = 0x41;
printf("Current D: DevUnit is %02x\n",*pDU_D);
pCUR_D = ireghl + 18;
*pCUR_D = 1;
printf("Current D: Logical Unit is %d\n",* pCUR_D);
pNUM_D = ireghl + 20;
*pNUM_D = 64/9;
printf("Current D: Number of LU's is %d\n",* pNUM_D);
}


BIN
branches/dgg/Apps/crossdev/ACCESS.CPM

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/ACCESS.REL

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/ASMIFACE.O

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/ASMIFACE.REL

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/BANNER.REL

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/BDOSCALL.O

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/BDOSCALL.REL

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/BIOSCALL.O

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/BIOSCALL.REL

Binary file not shown.

208
branches/dgg/Apps/crossdev/CBANNER.ASM

@ -1,208 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
DSEG
public lines_
lines_:
DW .1+0
CSEG
.1:
DB 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45
DB 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45
DB 45,45,45,45,45,45,45,45,45,45,0
DSEG
public line1_
line1_:
DW .2+0
CSEG
.2:
DB 49,50,51,52,53,54,55,56,46,49,50,51,32,109,109
DB 47,100,100,47,121,121,121,121,32,32,86,101,114,115,105
DB 111,110,32,120,46,120,46,120,46,120,0
DSEG
public line2_
line2_:
DW .3+0
CSEG
.3:
DB 83,47,78,32,67,80,77,56,48,45,68,87,71,45,54
DB 53,52,51,50,49,32,76,105,99,101,110,115,101,100,32
DB 117,110,100,101,114,32,71,80,76,51,0
DSEG
public line3_
line3_:
DW .4+0
CSEG
.4:
DB 67,111,112,121,114,105,103,104,116,32,40,67,41,32,50
DB 48,49,49,45,49,50,32,68,111,117,103,108,97,115,32
DB 87,46,32,71,111,111,100,97,108,108,0
PUBLIC sbanner_
sbanner_: lxi d,.6
call csave
LXI H,8-.6
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,.5+0
PUSH H
CALL printf_
POP D
POP D
LXI H,2013
PUSH H
LXI H,16
PUSH H
LXI H,1
PUSH H
LXI H,.5+4
PUSH H
CALL printf_
XCHG
LXI H,8
DAD SP
SPHL
LXI H,0
PUSH H
LXI H,0
PUSH H
LXI H,3
PUSH H
LXI H,2
PUSH H
LXI H,.5+18
PUSH H
CALL printf_
XCHG
LXI H,10
DAD SP
SPHL
LXI H,.5+39
PUSH H
CALL printf_
POP D
RET
.6 EQU -128
.5:
DB 37,115,32,0,37,50,100,47,37,50,100,47,37,52,100
DB 32,32,0,86,101,114,115,105,111,110,32,37,100,46,37
DB 100,46,37,100,46,37,100,32,0,67,79,80,82,32,68
DB 111,117,103,108,97,115,32,71,111,111,100,97,108,108,32
DB 76,105,99,101,110,115,101,100,32,119,47,71,80,76,118
DB 51,10,0
PUBLIC banner_
banner_: lxi d,.8
call csave
LHLD lines_
PUSH H
LXI H,.7+0
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.8
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,-122-.8
DAD SP
PUSH H
CALL strcpy_
POP D
POP D
.9:
LXI H,-124-.8
DAD SP
PUSH H
CALL strlen_
POP D
PUSH H
LXI H,12
POP D
XCHG
CALL .gt
JZ .10
LXI H,.7+4
PUSH H
LXI H,-122-.8
DAD SP
PUSH H
CALL strcat_
POP D
POP D
JMP .9
.10:
LXI H,-124-.8
DAD SP
PUSH H
LXI H,.7+6
PUSH H
CALL printf_
POP D
POP D
LXI H,2013
PUSH H
LXI H,16
PUSH H
LXI H,1
PUSH H
LXI H,.7+10
PUSH H
CALL printf_
XCHG
LXI H,8
DAD SP
SPHL
LXI H,0
PUSH H
LXI H,0
PUSH H
LXI H,3
PUSH H
LXI H,2
PUSH H
LXI H,.7+24
PUSH H
CALL printf_
XCHG
LXI H,10
DAD SP
SPHL
LHLD line2_
PUSH H
LXI H,.7+45
PUSH H
CALL printf_
POP D
POP D
LHLD line3_
PUSH H
LXI H,.7+49
PUSH H
CALL printf_
POP D
POP D
LHLD lines_
PUSH H
LXI H,.7+53
PUSH H
CALL printf_
POP D
POP D
RET
.8 EQU -128
.7:
DB 37,115,10,0,32,0,37,115,32,0,37,50,100,47,37
DB 50,100,47,37,52,100,32,32,0,86,101,114,115,105,111
DB 110,32,37,100,46,37,100,46,37,100,46,37,100,10,0
DB 37,115,10,0,37,115,10,0,37,115,10,0
extrn strcat_
extrn strlen_
extrn strcpy_
extrn printf_
extrn .gt
END


BIN
branches/dgg/Apps/crossdev/CBANNER.O

Binary file not shown.

970
branches/dgg/Apps/crossdev/CHARS.ASM

@ -1,970 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
global pDPHMAP_,2
global pDPHVEC_,24
DSEG
public pSYSCFG_
pSYSCFG_:
DW -16384
CSEG
DSEG
public map_
map_:
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 1
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 1
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
CSEG
DSEG
public attroff_
attroff_:
DB 27
DB 91
DB 109
DB 0
CSEG
DSEG
public attrbold_
attrbold_:
DB 27
DB 91
DB 49
DB 109
DB 0
CSEG
DSEG
public attrlow_
attrlow_:
DB 27
DB 91
DB 50
DB 109
DB 0
CSEG
DSEG
public attrundr_
attrundr_:
DB 27
DB 91
DB 52
DB 109
DB 0
CSEG
DSEG
public attrblnk_
attrblnk_:
DB 27
DB 91
DB 53
DB 109
DB 0
CSEG
DSEG
public attrrevs_
attrrevs_:
DB 27
DB 91
DB 55
DB 109
DB 0
CSEG
DSEG
public attrinvs_
attrinvs_:
DB 27
DB 91
DB 56
DB 109
DB 0
CSEG
DSEG
public graphon_
graphon_:
DB 27
DB 70
DB 0
CSEG
DSEG
public graphoff_
graphoff_:
DB 27
DB 71
DB 0
CSEG
DSEG
public atreset_
atreset_:
DB 48
DB 0
CSEG
DSEG
public atbold_
atbold_:
DB 49
DB 0
CSEG
DSEG
public atdim_
atdim_:
DB 50
DB 0
CSEG
DSEG
public atundrsc_
atundrsc_:
DB 52
DB 0
CSEG
DSEG
public atblink_
atblink_:
DB 53
DB 0
CSEG
DSEG
public atrevs_
atrevs_:
DB 55
DB 0
CSEG
DSEG
public athidden_
athidden_:
DB 56
DB 0
CSEG
DSEG
public fgblack_
fgblack_:
DB 51
DB 48
DB 0
CSEG
DSEG
public fgred_
fgred_:
DB 51
DB 49
DB 0
CSEG
DSEG
public fggreen_
fggreen_:
DB 51
DB 50
DB 0
CSEG
DSEG
public fgyellow_
fgyellow_:
DB 51
DB 51
DB 0
CSEG
DSEG
public fgblue_
fgblue_:
DB 51
DB 52
DB 0
CSEG
DSEG
public fgmagent_
fgmagent_:
DB 51
DB 53
DB 0
CSEG
DSEG
public fgcyan_
fgcyan_:
DB 51
DB 54
DB 0
CSEG
DSEG
public fgwhite_
fgwhite_:
DB 51
DB 55
DB 0
CSEG
DSEG
public bgblack_
bgblack_:
DB 52
DB 48
DB 0
CSEG
DSEG
public bgred_
bgred_:
DB 52
DB 49
DB 0
CSEG
DSEG
public bggreen_
bggreen_:
DB 52
DB 50
DB 0
CSEG
DSEG
public bgyellow_
bgyellow_:
DB 52
DB 51
DB 0
CSEG
DSEG
public bgblue_
bgblue_:
DB 52
DB 52
DB 0
CSEG
DSEG
public bgmagent_
bgmagent_:
DB 52
DB 53
DB 0
CSEG
DSEG
public bgcyan_
bgcyan_:
DB 52
DB 54
DB 0
CSEG
DSEG
public bgwhite_
bgwhite_:
DB 52
DB 55
DB 0
CSEG
PUBLIC dispattr_
dispattr_: lxi d,.2
call csave
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,27
PUSH H
LXI H,.1+0
PUSH H
CALL printf_
XCHG
LXI H,10
DAD SP
SPHL
RET
.2 EQU 0
.1:
DB 37,99,91,37,115,59,37,115,59,37,115,109,0
PUBLIC main_
main_: lxi d,.4
call csave
LXI H,1
XCHG
LXI H,8-.4
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .lt
JZ .5
LXI H,1
XCHG
LXI H,2-.4
DAD SP
MOV M,E
INX H
MOV M,D
JMP .7
.6:
LXI H,2-.4
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.7:
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,8-.4
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .lt
JZ .8
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
DAD H
XCHG
LXI H,10-.4
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
CALL atoi_
POP D
PUSH H
LXI H,.3+0
PUSH H
CALL printf_
POP D
POP D
JMP .6
.8:
JMP .9
.5:
LXI H,-4096
SHLD hregbc_
LXI H,-16384
SHLD hregde_
CALL diagnose_
LXI H,-16384
SHLD pSYSCFG_
LHLD pSYSCFG_
LXI D,68
DAD D
MOV E,M
MVI D,0
PUSH D
CALL crtinit_
POP D
CALL crtclr_
LXI H,0
PUSH H
LXI H,0
PUSH H
CALL crtlc_
POP D
POP D
LXI H,bgblack_
PUSH H
LXI H,fggreen_
PUSH H
LXI H,atbold_
PUSH H
CALL dispattr_
POP D
POP D
POP D
LXI H,.3+3
PUSH H
CALL banner_
POP D
LXI H,attroff_
PUSH H
LXI H,.3+9
PUSH H
CALL printf_
POP D
POP D
LXI H,bgblack_
PUSH H
LXI H,fgcyan_
PUSH H
LXI H,atbold_
PUSH H
CALL dispattr_
POP D
POP D
POP D
LXI H,0
XCHG
LXI H,-4-.4
DAD SP
MOV M,E
INX H
MOV M,D
JMP .11
.10:
LXI H,-4-.4
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.11:
LXI H,-4-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,16
CALL .lt
JZ .12
LXI H,-4-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
DAD H
DAD H
LXI D,9
DAD D
PUSH H
LXI H,6
PUSH H
CALL crtlc_
POP D
POP D
LXI H,-4-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,.3+12
PUSH H
CALL printf_
POP D
POP D
JMP .10
.12:
LXI H,attroff_
PUSH H
LXI H,.3+17
PUSH H
CALL printf_
POP D
POP D
LXI H,0
XCHG
LXI H,-6-.4
DAD SP
MOV M,E
INX H
MOV M,D
JMP .14
.13:
LXI H,-6-.4
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.14:
LXI H,-6-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,16
CALL .lt
JZ .15
LXI H,4
PUSH H
LXI H,-4-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,7
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,bgblack_
PUSH H
LXI H,fgcyan_
PUSH H
LXI H,atbold_
PUSH H
CALL dispattr_
POP D
POP D
POP D
LXI H,-6-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,.3+20
PUSH H
CALL printf_
POP D
POP D
LXI H,attroff_
PUSH H
LXI H,.3+25
PUSH H
CALL printf_
POP D
POP D
LXI H,0
XCHG
LXI H,-4-.4
DAD SP
MOV M,E
INX H
MOV M,D
JMP .17
.16:
LXI H,-4-.4
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.17:
LXI H,-4-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,16
CALL .lt
JZ .18
LXI H,-4-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
DAD H
DAD H
LXI D,10
DAD D
PUSH H
LXI H,-4-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,7
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,-6-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
DAD H
DAD H
DAD H
DAD H
XCHG
LXI H,-4-.4
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
DAD D
LXI D,map_
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,1
POP D
CALL .eq
JZ .19
LXI H,.3+28
PUSH H
CALL printf_
POP D
JMP .20
.19:
LXI H,-6-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
DAD H
DAD H
DAD H
DAD H
XCHG
LXI H,-4-.4
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
DAD D
PUSH H
LXI H,.3+30
PUSH H
CALL printf_
POP D
POP D
.20:
JMP .16
.18:
LXI H,bgblack_
PUSH H
LXI H,fgcyan_
PUSH H
LXI H,atbold_
PUSH H
CALL dispattr_
POP D
POP D
POP D
LXI H,-6-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,.3+33
PUSH H
CALL printf_
POP D
POP D
LXI H,attroff_
PUSH H
LXI H,.3+40
PUSH H
CALL printf_
POP D
POP D
JMP .13
.15:
.9:
LXI H,0
RET
.4 EQU -10
.3:
DB 37,99,0,67,72,65,82,83,0,37,115,0,91,37,120
DB 93,0,37,115,0,91,37,120,93,0,37,115,0,46,0
DB 37,99,0,32,32,91,37,120,93,0,37,115,0
extrn atoi_
extrn printf_
extrn banner_
extrn crtlc_
extrn crtclr_
extrn crtinit_
extrn diagnose_
extrn hregde_
extrn hregbc_
extrn .eq
extrn .lt
END


118
branches/dgg/Apps/crossdev/CLEAN.BAT

@ -0,0 +1,118 @@
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 2drive.asm erase 2drive.asm
if exist 2map.asm erase 2map.asm
if exist banker.asm erase banker.asm
if exist cbanner.asm erase cbanner.asm
if exist chars.asm erase chars.asm
if exist clear.asm erase clear.asm
if exist clogical.asm erase clogical.asm
if exist cls.asm erase cls.asm
if exist cmemory.asm erase cmemory.asm
if exist cnamept*.asm erase cnamept*.asm
if exist convert.asm erase convert.asm
if exist cpmname.asm erase cpmname.asm
if exist ctermcap.asm erase ctermcap.asm
if exist cvt2h.asm erase cvt2h.asm
if exist diskcopy.asm erase diskcopy.asm
if exist doit.asm erase doit.asm
if exist dump.asm erase dump.asm
if exist editor.asm erase editor.asm
if exist flip.asm erase flip.asm
if exist form.asm erase form.asm
if exist formfeed.asm erase formfeed.asm
if exist getcfg.asm erase getcfg.asm
if exist hello.asm erase hello.asm
if exist help.asm erase help.asm
if exist label.asm erase label.asm
if exist map.asm erase map.asm
if exist menu.asm erase menu.asm
if exist menu1.asm erase menu1.asm
if exist menucol.asm erase menucol.asm
if exist meta.asm erase meta.asm
if exist mkrasm80.asm erase mkrasm80.asm
if exist monitor.asm erase monitor.asm
if exist multifmt.asm erase multifmt.asm
if exist n8chars.asm erase n8chars.asm
if exist n8vidtst.asm erase n8vidtst.asm
if exist portio.asm erase portio.asm
if exist psecio.asm erase psecio.asm
if exist putc.asm erase putc.asm
if exist reconv.asm erase reconv.asm
if exist remote.asm erase remote.asm
if exist sectorio.asm erase sectorio.asm
if exist stat9918.asm erase stat9918.asm
if exist sysgen.asm erase sysgen.asm
if exist termtype.asm erase termtype.asm
if exist test.asm ertase test.asm
if exist tester.asm erase tester.asm
if exist testn8.asm erase testn8.asm
if exist testv5.asm erase testv5.asm
if exist testv6.asm erase testv6.asm
if exist tms9918.asm erase tms9918.asm
if exist tms9918x.asm erase tms9918x.asm
if exist tmsbind.asm erase tmsbind.asm
if exist tmsstat.asm erase tmsstat.asm
if exist trackio.asm erase trackio.asm
if exist video.asm erase video.asm
if exist view.asm erase view.asm
if exist 2drive.o erase 2drive.o
if exist 2map.o erase 2map.o
if exist banker.o erase banker.o
if exist cbanner.o erase cbanner.o
if exist chars.o erase chars.o
if exist clear.o erase clear.o
if exist clogical.o erase clogical.o
if exist cls.o erase cls.o
if exist cmemory.o erase cmemory.o
if exist cnamept*.o erase cnamept*.o
if exist convert.o erase convert.o
if exist cpmname.o erase cpmname.o
if exist ctermcap.o erase ctermcap.o
if exist cvt2h.o erase cvt2h.o
if exist diskcopy.o erase diskcopy.o
if exist doit.o erase doit.o
if exist dump.o erase dump.o
if exist editor.o erase editor.o
if exist flip.o erase flip.o
if exist form.o erase form.o
if exist formfeed.o erase formfeed.o
if exist getcfg.o erase getcfg.o
if exist hello.o erase hello.o
if exist help.o erase help.o
if exist label.o erase label.o
if exist map.o erase map.o
if exist menu.o erase menu.o
if exist menu1.o erase menu1.o
if exist menucol.o erase menucol.o
if exist meta.o erase meta.o
if exist metadata.o erase metadata.o
if exist mkrasm80.o erase mkrasm80.o
if exist monitor.o erase monitor.o
if exist multifmt.o erase multifmt.o
if exist n8chars.o erase n8chars.o
if exist n8vidtst.o erase n8vidtst.o
if exist portio.o erase portio.o
if exist psecio.o erase psecio.o
if exist putc.o erase putc.o
if exist reconv.o erase reconv.o
if exist remote.o erase remote.o
if exist sectorio.o erase sectorio.o
if exist stat9918.o erase stat9918.o
if exist sysgen.o erase sysgen.o
if exist termtype.o erase termtype.o
if exist test.o ertase test.o
if exist tester.o erase tester.o
if exist testn8.o erase testn8.o
if exist testv5.o erase testv5.o
if exist testv6.o erase testv6.o
if exist tms9918.o erase tms9918.o
if exist tms9918x.o erase tms9918x.o
if exist tmsbind.o erase tmsbind.o
if exist tmsstat.o erase tmsstat.o
if exist trackio.o erase trackio.o
if exist video.o erase video.o
if exist view.o erase view.o

44
branches/dgg/Apps/crossdev/CLEAR.ASM

@ -1,44 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
global style_,1
global vdp_rege_,960
global pINFOLIS_,2
global metadata_,128
global pCNFGDAT_,2
global pSYSCFG_,2
PUBLIC main_
main_: lxi d,.2
call csave
LXI H,-4096
SHLD hregbc_
LXI H,-16384
SHLD hregde_
CALL diagnose_
LXI H,-16384
SHLD pSYSCFG_
LHLD pSYSCFG_
LXI D,68
DAD D
MOV E,M
MVI D,0
PUSH D
CALL crtinit_
POP D
CALL crtclr_
LXI H,0
PUSH H
LXI H,0
PUSH H
CALL crtlc_
POP D
POP D
RET
.2 EQU -1
extrn diagnose_
extrn hregde_
extrn hregbc_
extrn crtlc_
extrn crtclr_
extrn crtinit_
END


159
branches/dgg/Apps/crossdev/CLOGICAL.ASM

@ -1,159 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
PUBLIC lugcur_
lugcur_: lxi d,.2
call csave
LXI H,0
PUSH H
LXI H,0
PUSH H
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,-6602
PUSH H
CALL asmif_
XCHG
LXI H,8
DAD SP
SPHL
LHLD xregde_
RET
.2 EQU 0
PUBLIC lugnum_
lugnum_: lxi d,.3
call csave
LXI H,0
PUSH H
LXI H,0
PUSH H
LXI H,12-.3
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,-6602
PUSH H
CALL asmif_
XCHG
LXI H,8
DAD SP
SPHL
LHLD xreghl_
RET
.3 EQU 0
PUBLIC lugdu_
lugdu_: lxi d,.4
call csave
LXI H,0
PUSH H
LXI H,0
PUSH H
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,-6602
PUSH H
CALL asmif_
XCHG
LXI H,8
DAD SP
SPHL
LHLD xregbc_
LXI D,8
XCHG
CALL .ur
RET
.4 EQU 0
PUBLIC luscur_
luscur_: lxi d,.5
call csave
LXI H,0
PUSH H
LXI H,0
PUSH H
LXI H,12-.5
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,-6602
PUSH H
CALL asmif_
XCHG
LXI H,8
DAD SP
SPHL
LHLD xreghl_
PUSH H
LXI H,12-.5
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LHLD xregbc_
PUSH H
LXI H,-6599
PUSH H
CALL asmif_
XCHG
LXI H,8
DAD SP
SPHL
RET
.5 EQU 0
PUBLIC lusnum_
lusnum_: lxi d,.6
call csave
LXI H,0
PUSH H
LXI H,0
PUSH H
LXI H,12-.6
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,-6602
PUSH H
CALL asmif_
XCHG
LXI H,8
DAD SP
SPHL
LXI H,10-.6
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LHLD xregde_
PUSH H
LHLD xregbc_
PUSH H
LXI H,-6599
PUSH H
CALL asmif_
XCHG
LXI H,8
DAD SP
SPHL
RET
.6 EQU 0
extrn asmif_
extrn xreghl_
extrn xregde_
extrn xregbc_
extrn .ur
END


BIN
branches/dgg/Apps/crossdev/CLOGICAL.O

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/CMEMORY.O

Binary file not shown.

0
branches/dgg/Apps/crossdev/METADATA.C → branches/dgg/Apps/crossdev/CMETADAT.C

527
branches/dgg/Apps/crossdev/CNAMEPT1.ASM

@ -1,527 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
global cache_,17
PUBLIC cnamept1_
cnamept1_: lxi d,.2
call csave
LXI H,.1+0
PUSH H
LXI H,cache_
PUSH H
CALL strcpy_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,.1+17
PUSH H
CALL printf_
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
INX H
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,.1+51
PUSH H
CALL printf_
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,5
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,.1+85
PUSH H
CALL printf_
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,7
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,.1+119
PUSH H
CALL printf_
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,9
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+153
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,10
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+175
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,11
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+197
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,12
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+219
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+241
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,13
DAD D
MOV E,M
MVI D,0
XCHG
JMP .3
.5:
LXI H,.1+261
PUSH H
CALL printf_
POP D
JMP .4
.6:
LXI H,.1+266
PUSH H
CALL printf_
POP D
JMP .4
.3:
CALL .swt
DW 2
DW 0,.6
DW 1,.5
DW .4
.4:
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,14
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+272
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,15
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+298
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,23
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+324
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+349
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,24
DAD D
MOV E,M
MVI D,0
XCHG
JMP .7
.9:
LXI H,.1+369
PUSH H
CALL printf_
POP D
JMP .8
.10:
LXI H,.1+375
PUSH H
CALL printf_
POP D
JMP .8
.11:
LXI H,.1+380
PUSH H
CALL printf_
POP D
JMP .8
.7:
CALL .swt
DW 3
DW 1,.9
DW 2,.10
DW 3,.11
DW .8
.8:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+383
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,25
DAD D
MOV E,M
MVI D,0
XCHG
JMP .12
.14:
LXI H,.1+403
PUSH H
CALL printf_
POP D
JMP .13
.15:
LXI H,.1+415
PUSH H
CALL printf_
POP D
JMP .13
.16:
LXI H,.1+429
PUSH H
CALL printf_
POP D
JMP .13
.17:
LXI H,.1+441
PUSH H
CALL printf_
POP D
JMP .13
.18:
LXI H,.1+453
PUSH H
CALL printf_
POP D
JMP .13
.19:
LXI H,.1+463
PUSH H
CALL printf_
POP D
JMP .13
.20:
LXI H,.1+478
PUSH H
CALL printf_
POP D
JMP .13
.12:
CALL .swt
DW 6
DW 0,.14
DW 1,.15
DW 2,.16
DW 3,.17
DW 4,.18
DW 5,.19
DW .20
.13:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+486
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,26
DAD D
MOV E,M
MVI D,0
XCHG
JMP .21
.23:
LXI H,.1+506
PUSH H
CALL printf_
POP D
JMP .22
.24:
LXI H,.1+518
PUSH H
CALL printf_
POP D
JMP .22
.25:
LXI H,.1+529
PUSH H
CALL printf_
POP D
JMP .22
.26:
LXI H,.1+541
PUSH H
CALL printf_
POP D
JMP .22
.27:
LXI H,.1+555
PUSH H
CALL printf_
POP D
JMP .22
.28:
LXI H,.1+567
PUSH H
CALL printf_
POP D
JMP .22
.21:
CALL .swt
DW 5
DW 0,.23
DW 1,.24
DW 2,.25
DW 3,.26
DW 4,.27
DW .28
.22:
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,27
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+577
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,29
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+599
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
RET
.2 EQU 0
.1:
DB 115,121,115,99,102,103,45,62,99,110,102,103,100,97,116
DB 97,0,115,121,115,99,102,103,45,62,106,109,112,32,32
DB 32,32,32,32,32,32,32,32,32,32,106,112,32,32,48
DB 37,48,52,120,104,0,115,121,115,99,102,103,45,62,99
DB 110,102,108,111,99,32,32,32,32,32,32,32,32,32,46
DB 100,119,32,48,37,48,52,120,104,0,115,121,115,99,102
DB 103,45,62,116,115,116,108,111,99,32,32,32,32,32,32
DB 32,32,32,46,100,119,32,48,37,48,52,120,104,0,115
DB 121,115,99,102,103,45,62,118,97,114,108,111,99,32,32
DB 32,32,32,32,32,32,32,46,100,119,32,48,37,48,52
DB 120,104,0,37,115,46,114,109,106,32,32,32,32,32,32
DB 32,32,32,32,32,61,32,37,100,0,37,115,46,114,109
DB 110,32,32,32,32,32,32,32,32,32,32,32,61,32,37
DB 100,0,37,115,46,114,117,112,32,32,32,32,32,32,32
DB 32,32,32,32,61,32,37,100,0,37,115,46,114,116,112
DB 32,32,32,32,32,32,32,32,32,32,32,61,32,37,100
DB 0,37,115,46,100,105,115,107,98,111,111,116,32,32,32
DB 32,32,32,61,32,0,84,82,85,69,0,70,65,76,83
DB 69,0,37,115,46,100,101,118,117,110,105,116,32,32,32
DB 32,32,32,32,61,32,48,120,37,48,50,120,0,37,115
DB 46,98,111,111,116,108,117,32,32,32,32,32,32,32,32
DB 61,32,48,120,37,48,52,120,0,37,115,46,102,114,101
DB 113,32,32,32,32,32,32,32,32,32,32,61,32,37,100
DB 77,72,122,0,37,115,46,112,108,97,116,102,111,114,109
DB 32,32,32,32,32,32,61,32,0,78,56,86,69,77,0
DB 90,69,84,65,0,78,56,0,37,115,46,100,105,111,112
DB 108,97,116,32,32,32,32,32,32,32,61,32,0,68,73
DB 79,80,76,84,95,78,79,78,69,0,68,73,79,80,76
DB 84,95,68,73,83,75,73,79,0,68,73,79,80,76,84
DB 95,90,69,84,65,0,68,73,79,80,76,84,95,68,73
DB 68,69,0,68,73,79,80,76,84,95,78,56,0,68,73
DB 79,80,76,84,95,68,73,83,75,73,79,51,0,85,110
DB 107,110,111,119,110,0,37,115,46,118,100,117,109,111,100
DB 101,32,32,32,32,32,32,32,61,32,0,86,68,85,80
DB 76,84,95,78,79,78,69,0,86,68,85,80,76,84,95
DB 86,68,85,0,86,68,85,80,76,84,95,86,68,85,67
DB 0,86,68,85,80,76,84,95,80,82,79,80,73,79,0
DB 86,68,85,80,76,84,95,86,80,78,56,0,85,110,107
DB 110,111,119,110,33,33,0,37,115,46,114,111,109,115,105
DB 122,101,32,32,32,32,32,32,32,61,32,37,100,0,37
DB 115,46,114,97,109,115,105,122,101,32,32,32,32,32,32
DB 32,61,32,37,100,0
extrn printf_
extrn strcpy_
extrn pager_
END


BIN
branches/dgg/Apps/crossdev/CNAMEPT1.O

Binary file not shown.

480
branches/dgg/Apps/crossdev/CNAMEPT2.ASM

@ -1,480 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
global cache_,17
PUBLIC cnamept2_
cnamept2_: lxi d,.2
call csave
LXI H,.1+0
PUSH H
LXI H,cache_
PUSH H
CALL strcpy_
POP D
POP D
LXI H,cache_
PUSH H
LXI H,.1+17
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,31
DAD D
MOV E,M
MVI D,0
XCHG
JMP .3
.5:
LXI H,.1+37
PUSH H
CALL printf_
POP D
JMP .4
.6:
LXI H,.1+47
PUSH H
CALL printf_
POP D
JMP .4
.7:
LXI H,.1+56
PUSH H
CALL printf_
POP D
JMP .4
.3:
CALL .swt
DW 3
DW 0,.5
DW 1,.6
DW 2,.7
DW .4
.4:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+68
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,32
DAD D
MOV E,M
MVI D,0
XCHG
JMP .8
.10:
LXI H,.1+88
PUSH H
CALL printf_
POP D
JMP .9
.11:
LXI H,.1+93
PUSH H
CALL printf_
POP D
JMP .9
.8:
CALL .swt
DW 2
DW 0,.11
DW 1,.10
DW .9
.9:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+99
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,33
DAD D
MOV E,M
MVI D,0
XCHG
JMP .12
.14:
LXI H,.1+119
PUSH H
CALL printf_
POP D
JMP .13
.15:
LXI H,.1+124
PUSH H
CALL printf_
POP D
JMP .13
.12:
CALL .swt
DW 2
DW 0,.15
DW 1,.14
DW .13
.13:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+130
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,34
DAD D
MOV E,M
MVI D,0
XCHG
JMP .16
.18:
LXI H,.1+150
PUSH H
CALL printf_
POP D
JMP .17
.19:
LXI H,.1+155
PUSH H
CALL printf_
POP D
JMP .17
.16:
CALL .swt
DW 2
DW 0,.19
DW 1,.18
DW .17
.17:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+161
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,35
DAD D
MOV E,M
MVI D,0
XCHG
JMP .20
.22:
LXI H,.1+181
PUSH H
CALL printf_
POP D
JMP .21
.23:
LXI H,.1+186
PUSH H
CALL printf_
POP D
JMP .21
.20:
CALL .swt
DW 2
DW 0,.23
DW 1,.22
DW .21
.21:
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,35
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,1
POP D
CALL .eq
JZ .24
LXI H,cache_
PUSH H
LXI H,.1+192
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,36
DAD D
MOV E,M
MVI D,0
XCHG
JMP .25
.27:
LXI H,.1+212
PUSH H
CALL printf_
POP D
JMP .26
.28:
LXI H,.1+219
PUSH H
CALL printf_
POP D
JMP .26
.29:
LXI H,.1+232
PUSH H
CALL printf_
POP D
JMP .26
.30:
LXI H,.1+243
PUSH H
CALL printf_
POP D
JMP .26
.31:
LXI H,.1+254
PUSH H
CALL printf_
POP D
JMP .26
.25:
CALL .swt
DW 4
DW 0,.27
DW 1,.28
DW 2,.29
DW 3,.30
DW .31
.26:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+264
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,37
DAD D
MOV E,M
MVI D,0
XCHG
JMP .32
.34:
LXI H,.1+284
PUSH H
CALL printf_
POP D
LXI H,.1+291
PUSH H
CALL printf_
POP D
JMP .33
.35:
LXI H,.1+329
PUSH H
CALL printf_
POP D
LXI H,.1+336
PUSH H
CALL printf_
POP D
JMP .33
.36:
LXI H,.1+376
PUSH H
CALL printf_
POP D
LXI H,.1+383
PUSH H
CALL printf_
POP D
JMP .33
.37:
LXI H,.1+422
PUSH H
CALL printf_
POP D
LXI H,.1+429
PUSH H
CALL printf_
POP D
JMP .33
.38:
LXI H,.1+468
PUSH H
CALL printf_
POP D
JMP .33
.32:
CALL .swt
DW 4
DW 0,.34
DW 1,.35
DW 2,.36
DW 3,.37
DW .38
.33:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+478
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,38
DAD D
MOV E,M
MVI D,0
XCHG
JMP .39
.41:
LXI H,.1+498
PUSH H
CALL printf_
POP D
LXI H,.1+505
PUSH H
CALL printf_
POP D
JMP .40
.42:
LXI H,.1+543
PUSH H
CALL printf_
POP D
LXI H,.1+550
PUSH H
CALL printf_
POP D
JMP .40
.43:
LXI H,.1+590
PUSH H
CALL printf_
POP D
LXI H,.1+597
PUSH H
CALL printf_
POP D
JMP .40
.44:
LXI H,.1+636
PUSH H
CALL printf_
POP D
LXI H,.1+643
PUSH H
CALL printf_
POP D
JMP .40
.39:
CALL .swt
DW 4
DW 0,.41
DW 1,.42
DW 2,.43
DW 3,.44
DW .40
.40:
CALL pager_
.24:
RET
.2 EQU 0
.1:
DB 115,121,115,99,102,103,45,62,99,110,102,103,100,97,116
DB 97,0,37,115,46,99,108,114,114,97,109,100,107,32,32
DB 32,32,32,32,61,32,0,67,76,82,95,78,69,86,69
DB 82,0,67,76,82,95,65,85,84,79,0,67,76,82,95
DB 65,76,76,87,65,89,83,0,37,115,46,100,115,107,121
DB 101,110,97,98,108,101,32,32,32,32,61,32,0,84,82
DB 85,69,0,70,65,76,83,69,0,37,115,46,117,97,114
DB 116,101,110,97,98,108,101,32,32,32,32,61,32,0,84
DB 82,85,69,0,70,65,76,83,69,0,37,115,46,118,100
DB 117,101,110,97,98,108,101,32,32,32,32,32,61,32,0
DB 84,82,85,69,0,70,65,76,83,69,0,37,115,46,102
DB 100,101,110,97,98,108,101,32,32,32,32,32,32,61,32
DB 0,84,82,85,69,0,70,65,76,83,69,0,37,115,46
DB 102,100,116,114,97,99,101,32,32,32,32,32,32,32,61
DB 32,0,83,105,108,101,110,116,0,70,97,116,97,108,32
DB 69,114,114,111,114,115,0,65,108,108,32,69,114,114,111
DB 114,115,0,69,118,101,114,121,116,104,105,110,103,0,85
DB 110,107,110,111,119,110,33,33,0,37,115,46,102,100,109
DB 101,100,105,97,32,32,32,32,32,32,32,61,32,0,70
DB 68,77,55,50,48,0,32,32,51,46,53,32,55,50,48
DB 75,66,32,50,45,115,105,100,101,100,32,56,48,32,84
DB 114,107,115,32,57,32,83,101,99,116,111,114,115,0,70
DB 68,77,49,52,52,0,32,32,51,46,53,32,49,46,52
DB 52,77,66,32,50,45,115,105,100,101,100,32,56,48,32
DB 84,114,107,115,32,49,56,32,83,101,99,116,111,114,115
DB 0,70,68,77,51,54,48,0,32,32,53,46,50,53,32
DB 51,54,48,75,66,32,50,45,115,105,100,101,100,32,52
DB 48,32,84,114,107,115,32,57,32,83,101,99,116,111,114
DB 115,0,70,68,77,49,50,48,0,32,32,51,46,53,32
DB 49,46,50,77,66,32,50,45,115,105,100,101,100,32,56
DB 48,32,84,114,107,115,32,49,53,32,83,101,99,116,111
DB 114,115,0,85,110,107,110,111,119,110,33,33,0,37,115
DB 46,102,100,109,101,100,105,97,97,108,116,32,32,32,32
DB 61,32,0,70,68,77,55,50,48,0,32,32,51,46,53
DB 32,55,50,48,75,66,32,50,45,115,105,100,101,100,32
DB 56,48,32,84,114,107,115,32,57,32,83,101,99,116,111
DB 114,115,0,70,68,77,49,52,52,0,32,32,51,46,53
DB 32,49,46,52,52,77,66,32,50,45,115,105,100,101,100
DB 32,56,48,32,84,114,107,115,32,49,56,32,83,101,99
DB 116,111,114,115,0,70,68,77,51,54,48,0,32,32,53
DB 46,50,53,32,51,54,48,75,66,32,50,45,115,105,100
DB 101,100,32,52,48,32,84,114,107,115,32,57,32,83,101
DB 99,116,111,114,115,0,70,68,77,49,50,48,0,32,32
DB 51,46,53,32,49,46,50,77,66,32,50,45,115,105,100
DB 101,100,32,56,48,32,84,114,107,115,32,49,53,32,83
DB 101,99,116,111,114,115,0
extrn printf_
extrn strcpy_
extrn pager_
extrn .eq
END


BIN
branches/dgg/Apps/crossdev/CNAMEPT2.O

Binary file not shown.

794
branches/dgg/Apps/crossdev/CNAMEPT3.ASM

@ -1,794 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
global cache_,17
PUBLIC cnamept3_
cnamept3_: lxi d,.2
call csave
LXI H,.1+0
PUSH H
LXI H,cache_
PUSH H
CALL strcpy_
POP D
POP D
LXI H,cache_
PUSH H
LXI H,.1+17
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,39
DAD D
MOV E,M
MVI D,0
XCHG
JMP .3
.5:
LXI H,.1+37
PUSH H
CALL printf_
POP D
JMP .4
.6:
LXI H,.1+42
PUSH H
CALL printf_
POP D
JMP .4
.3:
CALL .swt
DW 2
DW 0,.6
DW 1,.5
DW .4
.4:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+48
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,40
DAD D
MOV E,M
MVI D,0
XCHG
JMP .7
.9:
LXI H,.1+68
PUSH H
CALL printf_
POP D
JMP .8
.10:
LXI H,.1+73
PUSH H
CALL printf_
POP D
JMP .8
.7:
CALL .swt
DW 2
DW 0,.10
DW 1,.9
DW .8
.8:
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,40
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,1
POP D
CALL .eq
JZ .11
LXI H,cache_
PUSH H
LXI H,.1+79
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,41
DAD D
MOV E,M
MVI D,0
XCHG
JMP .12
.14:
LXI H,.1+95
PUSH H
CALL printf_
POP D
JMP .13
.15:
LXI H,.1+102
PUSH H
CALL printf_
POP D
JMP .13
.16:
LXI H,.1+109
PUSH H
CALL printf_
POP D
JMP .13
.17:
LXI H,.1+120
PUSH H
CALL printf_
POP D
JMP .13
.12:
CALL .swt
DW 3
DW 0,.14
DW 1,.15
DW 2,.16
DW .17
.13:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+130
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,42
DAD D
MOV E,M
MVI D,0
XCHG
JMP .18
.20:
LXI H,.1+149
PUSH H
CALL printf_
POP D
JMP .19
.21:
LXI H,.1+154
PUSH H
CALL printf_
POP D
JMP .19
.22:
LXI H,.1+160
PUSH H
CALL printf_
POP D
JMP .19
.18:
CALL .swt
DW 2
DW 0,.21
DW 1,.20
DW .22
.19:
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,43
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+170
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
.11:
LXI H,cache_
PUSH H
LXI H,.1+194
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,45
DAD D
MOV E,M
MVI D,0
XCHG
JMP .23
.25:
LXI H,.1+214
PUSH H
CALL printf_
POP D
JMP .24
.26:
LXI H,.1+219
PUSH H
CALL printf_
POP D
JMP .24
.23:
CALL .swt
DW 2
DW 0,.26
DW 1,.25
DW .24
.24:
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,45
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,1
POP D
CALL .eq
JZ .27
LXI H,cache_
PUSH H
LXI H,.1+225
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,46
DAD D
MOV E,M
MVI D,0
XCHG
JMP .28
.30:
LXI H,.1+245
PUSH H
CALL printf_
POP D
JMP .29
.31:
LXI H,.1+252
PUSH H
CALL printf_
POP D
JMP .29
.32:
LXI H,.1+259
PUSH H
CALL printf_
POP D
JMP .29
.33:
LXI H,.1+270
PUSH H
CALL printf_
POP D
JMP .29
.28:
CALL .swt
DW 3
DW 0,.30
DW 1,.31
DW 2,.32
DW .33
.29:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+280
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,47
DAD D
MOV E,M
MVI D,0
XCHG
JMP .34
.36:
LXI H,.1+300
PUSH H
CALL printf_
POP D
JMP .35
.37:
LXI H,.1+305
PUSH H
CALL printf_
POP D
JMP .35
.38:
LXI H,.1+311
PUSH H
CALL printf_
POP D
JMP .35
.34:
CALL .swt
DW 2
DW 0,.37
DW 1,.36
DW .38
.35:
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,48
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+321
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+345
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
DAD D
MOV E,M
MVI D,0
XCHG
JMP .39
.41:
LXI H,.1+365
PUSH H
CALL printf_
POP D
JMP .40
.42:
LXI H,.1+370
PUSH H
CALL printf_
POP D
JMP .40
.43:
LXI H,.1+376
PUSH H
CALL printf_
POP D
JMP .40
.39:
CALL .swt
DW 2
DW 0,.42
DW 1,.41
DW .43
.40:
CALL pager_
.27:
LXI H,cache_
PUSH H
LXI H,.1+386
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,51
DAD D
MOV E,M
MVI D,0
XCHG
JMP .44
.46:
LXI H,.1+406
PUSH H
CALL printf_
POP D
JMP .45
.47:
LXI H,.1+414
PUSH H
CALL printf_
POP D
JMP .45
.44:
CALL .swt
DW 2
DW 1,.46
DW 2,.47
DW .45
.45:
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,52
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+422
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,53
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+452
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,54
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,54
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+475
PUSH H
CALL printf_
XCHG
LXI H,8
DAD SP
SPHL
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,24
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,3
POP D
CALL .eq
JZ .48
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,56
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+511
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,57
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+533
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,58
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+559
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,59
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+585
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,60
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+611
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+637
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,61
DAD D
MOV E,M
MVI D,0
XCHG
JMP .49
.51:
LXI H,.1+657
PUSH H
CALL printf_
POP D
JMP .50
.52:
LXI H,.1+662
PUSH H
CALL printf_
POP D
JMP .50
.53:
LXI H,.1+668
PUSH H
CALL printf_
POP D
JMP .50
.49:
CALL .swt
DW 2
DW 0,.52
DW 1,.51
DW .53
.50:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+678
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,62
DAD D
MOV E,M
MVI D,0
XCHG
JMP .54
.56:
LXI H,.1+698
PUSH H
CALL printf_
POP D
JMP .55
.57:
LXI H,.1+703
PUSH H
CALL printf_
POP D
JMP .55
.58:
LXI H,.1+709
PUSH H
CALL printf_
POP D
JMP .55
.54:
CALL .swt
DW 2
DW 0,.57
DW 1,.56
DW .58
.55:
CALL pager_
.48:
RET
.2 EQU 0
.1:
DB 115,121,115,99,102,103,45,62,99,110,102,103,100,97,116
DB 97,0,37,115,46,102,100,109,97,117,116,111,32,32,32
DB 32,32,32,32,61,32,0,84,82,85,69,0,70,65,76
DB 83,69,0,37,115,46,105,100,101,101,110,97,98,108,101
DB 32,32,32,32,32,61,32,0,84,82,85,69,0,70,65
DB 76,83,69,0,37,115,46,105,100,101,116,114,97,99,101
DB 32,32,61,32,0,83,73,76,69,78,84,0,69,82,82
DB 79,82,83,0,69,86,69,82,89,84,72,73,78,71,0
DB 85,110,107,110,111,119,110,33,33,0,37,115,46,100,101
DB 56,98,105,116,32,32,32,32,32,32,32,61,32,0,84
DB 82,85,69,0,70,65,76,83,69,0,85,110,107,110,111
DB 119,110,33,33,0,37,115,46,105,100,101,99,97,112,97
DB 99,105,116,121,32,32,32,61,32,37,100,77,66,0,37
DB 115,46,112,112,105,100,101,101,110,97,98,108,101,32,32
DB 32,61,32,0,84,82,85,69,0,70,65,76,83,69,0
DB 37,115,46,112,112,105,100,101,116,114,97,99,101,32,32
DB 32,32,61,32,0,83,73,76,69,78,84,0,69,82,82
DB 79,82,83,0,69,86,69,82,89,84,72,73,78,71,0
DB 85,110,107,110,111,119,110,33,33,0,37,115,46,112,112
DB 105,100,101,56,98,105,116,32,32,32,32,32,61,32,0
DB 84,82,85,69,0,70,65,76,83,69,0,85,110,107,110
DB 111,119,110,33,33,0,37,115,46,112,112,105,100,101,99
DB 97,112,97,99,105,116,121,32,61,32,37,100,75,66,0
DB 37,115,46,112,112,105,100,101,115,108,111,119,32,32,32
DB 32,32,61,32,0,84,82,85,69,0,70,65,76,83,69
DB 0,85,110,107,110,111,119,110,33,33,0,37,115,46,98
DB 111,111,116,116,121,112,101,32,32,32,32,32,32,61,32
DB 0,66,84,95,77,69,78,85,0,66,84,95,65,85,84
DB 79,0,37,115,46,98,111,111,116,116,105,109,101,111,117
DB 116,32,32,32,61,32,37,100,32,115,101,99,111,110,100
DB 115,0,37,115,46,98,111,111,116,100,101,102,97,117,108
DB 116,32,32,32,61,32,37,99,58,0,37,115,46,98,97
DB 117,100,114,97,116,101,32,32,32,32,32,32,61,32,37
DB 117,32,40,48,120,37,48,52,120,41,32,66,97,117,100
DB 0,37,115,46,99,107,100,105,118,32,32,32,32,32,32
DB 32,32,32,61,32,37,100,0,37,115,46,109,101,109,119
DB 97,105,116,32,32,32,32,32,32,32,61,32,48,120,37
DB 48,50,120,0,37,115,46,105,111,119,97,105,116,32,32
DB 32,32,32,32,32,32,61,32,48,120,37,48,50,120,0
DB 37,115,46,99,110,116,108,98,48,32,32,32,32,32,32
DB 32,32,61,32,48,120,37,48,50,120,0,37,115,46,99
DB 110,116,108,98,49,32,32,32,32,32,32,32,32,61,32
DB 48,120,37,48,50,120,0,37,115,46,115,100,101,110,97
DB 98,108,101,32,32,32,32,32,32,61,32,0,84,82,85
DB 69,0,70,65,76,83,69,0,85,110,107,110,111,119,110
DB 33,33,0,37,115,46,115,100,116,114,97,99,101,32,32
DB 32,32,32,32,32,61,32,0,84,82,85,69,0,70,65
DB 76,83,69,0,85,110,107,110,111,119,110,33,33,0
extrn printf_
extrn strcpy_
extrn pager_
extrn .eq
END


BIN
branches/dgg/Apps/crossdev/CNAMEPT3.O

Binary file not shown.

742
branches/dgg/Apps/crossdev/CNAMEPT4.ASM

@ -1,742 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
global cache_,17
PUBLIC cnamept4_
cnamept4_: lxi d,.2
call csave
LXI H,.1+0
PUSH H
LXI H,cache_
PUSH H
CALL strcpy_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,24
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,3
POP D
CALL .eq
JZ .3
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,63
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+17
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+41
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,65
DAD D
MOV E,M
MVI D,0
XCHG
JMP .4
.6:
LXI H,.1+61
PUSH H
CALL printf_
POP D
JMP .5
.7:
LXI H,.1+66
PUSH H
CALL printf_
POP D
JMP .5
.8:
LXI H,.1+72
PUSH H
CALL printf_
POP D
JMP .5
.4:
CALL .swt
DW 2
DW 0,.7
DW 1,.6
DW .8
.5:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+82
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,66
DAD D
MOV E,M
MVI D,0
XCHG
JMP .9
.11:
LXI H,.1+102
PUSH H
CALL printf_
POP D
JMP .10
.12:
LXI H,.1+107
PUSH H
CALL printf_
POP D
JMP .10
.13:
LXI H,.1+113
PUSH H
CALL printf_
POP D
JMP .10
.9:
CALL .swt
DW 2
DW 0,.12
DW 1,.11
DW .13
.10:
CALL pager_
.3:
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,67
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+123
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+149
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,68
DAD D
MOV E,M
MVI D,0
XCHG
JMP .14
.16:
LXI H,.1+169
PUSH H
CALL printf_
POP D
JMP .15
.17:
LXI H,.1+178
PUSH H
CALL printf_
POP D
JMP .15
.18:
LXI H,.1+188
PUSH H
CALL printf_
POP D
JMP .15
.19:
LXI H,.1+198
PUSH H
CALL printf_
POP D
JMP .15
.20:
LXI H,.1+208
PUSH H
CALL printf_
POP D
JMP .15
.14:
CALL .swt
DW 4
DW 0,.16
DW 1,.17
DW 2,.18
DW 3,.19
DW .20
.15:
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,69
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+218
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+240
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,84
DAD D
MOV E,M
MVI D,0
XCHG
JMP .21
.23:
LXI H,.1+260
PUSH H
CALL printf_
POP D
JMP .22
.24:
LXI H,.1+265
PUSH H
CALL printf_
POP D
JMP .22
.25:
LXI H,.1+271
PUSH H
CALL printf_
POP D
JMP .22
.21:
CALL .swt
DW 2
DW 0,.24
DW 1,.23
DW .25
.22:
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,84
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,1
POP D
CALL .eq
JZ .26
LXI H,.1+281
PUSH H
CALL printf_
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,71
DAD D
MOV E,M
MVI D,0
XCHG
JMP .27
.29:
LXI H,.1+301
PUSH H
CALL printf_
POP D
JMP .28
.30:
LXI H,.1+306
PUSH H
CALL printf_
POP D
JMP .28
.31:
LXI H,.1+312
PUSH H
CALL printf_
POP D
JMP .28
.27:
CALL .swt
DW 2
DW 0,.30
DW 1,.29
DW .31
.28:
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,71
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,1
POP D
CALL .eq
JZ .32
LXI H,cache_
PUSH H
LXI H,.1+322
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,72
DAD D
MOV E,M
MVI D,0
XCHG
JMP .33
.35:
LXI H,.1+342
PUSH H
CALL printf_
POP D
JMP .34
.36:
LXI H,.1+349
PUSH H
CALL printf_
POP D
JMP .34
.37:
LXI H,.1+356
PUSH H
CALL printf_
POP D
JMP .34
.38:
LXI H,.1+367
PUSH H
CALL printf_
POP D
JMP .34
.33:
CALL .swt
DW 3
DW 0,.35
DW 1,.36
DW 2,.37
DW .38
.34:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+377
PUSH H
CALL printf_
POP D
POP D
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+397
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,75
DAD D
MOV E,M
MVI D,0
XCHG
JMP .39
.41:
LXI H,.1+417
PUSH H
CALL printf_
POP D
JMP .40
.42:
LXI H,.1+422
PUSH H
CALL printf_
POP D
JMP .40
.43:
LXI H,.1+428
PUSH H
CALL printf_
POP D
JMP .40
.39:
CALL .swt
DW 2
DW 0,.42
DW 1,.41
DW .43
.40:
CALL pager_
.32:
.26:
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,76
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+438
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+460
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,78
DAD D
MOV E,M
MVI D,0
XCHG
JMP .44
.46:
LXI H,.1+480
PUSH H
CALL printf_
POP D
JMP .45
.47:
LXI H,.1+485
PUSH H
CALL printf_
POP D
JMP .45
.48:
LXI H,.1+491
PUSH H
CALL printf_
POP D
JMP .45
.44:
CALL .swt
DW 2
DW 0,.47
DW 1,.46
DW .48
.45:
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,78
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,1
POP D
CALL .eq
JZ .49
LXI H,cache_
PUSH H
LXI H,.1+501
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,79
DAD D
MOV E,M
MVI D,0
XCHG
JMP .50
.52:
LXI H,.1+520
PUSH H
CALL printf_
POP D
JMP .51
.53:
LXI H,.1+525
PUSH H
CALL printf_
POP D
JMP .51
.54:
LXI H,.1+531
PUSH H
CALL printf_
POP D
JMP .51
.50:
CALL .swt
DW 2
DW 0,.53
DW 1,.52
DW .54
.51:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+541
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,80
DAD D
MOV E,M
MVI D,0
XCHG
JMP .55
.57:
LXI H,.1+561
PUSH H
CALL printf_
POP D
JMP .56
.58:
LXI H,.1+568
PUSH H
CALL printf_
POP D
JMP .56
.59:
LXI H,.1+575
PUSH H
CALL printf_
POP D
JMP .56
.60:
LXI H,.1+586
PUSH H
CALL printf_
POP D
JMP .56
.55:
CALL .swt
DW 3
DW 0,.57
DW 1,.58
DW 2,.59
DW .60
.56:
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,73
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,cache_
PUSH H
LXI H,.1+596
PUSH H
CALL printf_
POP D
POP D
POP D
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+618
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,83
DAD D
MOV E,M
MVI D,0
XCHG
JMP .61
.63:
LXI H,.1+638
PUSH H
CALL printf_
POP D
JMP .62
.64:
LXI H,.1+643
PUSH H
CALL printf_
POP D
JMP .62
.65:
LXI H,.1+649
PUSH H
CALL printf_
POP D
JMP .62
.61:
CALL .swt
DW 2
DW 0,.64
DW 1,.63
DW .65
.62:
CALL pager_
.49:
RET
.2 EQU 0
.1:
DB 115,121,115,99,102,103,45,62,99,110,102,103,100,97,116
DB 97,0,37,115,46,115,100,99,97,112,97,99,105,116,121
DB 32,32,32,32,61,32,37,117,75,66,0,37,115,46,115
DB 100,99,115,105,111,32,32,32,32,32,32,32,32,61,32
DB 0,84,82,85,69,0,70,65,76,83,69,0,85,110,107
DB 110,111,119,110,33,33,0,37,115,46,115,100,99,115,105
DB 111,102,97,115,116,32,32,32,32,61,32,0,84,82,85
DB 69,0,70,65,76,83,69,0,85,110,107,110,111,119,110
DB 33,33,0,37,115,46,100,101,102,105,111,98,121,116,101
DB 32,32,32,32,32,61,32,48,120,37,48,50,120,0,37
DB 115,46,116,101,114,109,116,121,112,101,32,32,32,32,32
DB 32,61,32,0,84,69,82,77,95,84,84,89,0,84,69
DB 82,77,95,65,78,83,73,0,84,69,82,77,95,87,89
DB 83,69,0,84,69,82,77,95,86,84,53,50,0,85,110
DB 107,110,111,119,110,33,33,0,37,115,46,114,101,118,105
DB 115,105,111,110,32,32,32,32,32,32,61,32,37,100,0
DB 37,115,46,112,114,112,101,110,97,98,108,101,32,32,32
DB 32,32,61,32,0,84,82,85,69,0,70,65,76,83,69
DB 0,85,110,107,110,111,119,110,33,33,0,37,115,46,112
DB 114,112,115,100,101,110,97,98,108,101,32,32,32,61,32
DB 0,84,82,85,69,0,70,65,76,83,69,0,85,110,107
DB 110,111,119,110,33,33,0,37,115,46,112,114,112,115,100
DB 116,114,97,99,101,32,32,32,32,61,32,0,83,73,76
DB 69,78,84,0,69,82,82,79,82,83,0,69,86,69,82
DB 89,84,72,73,78,71,0,85,110,107,110,111,119,110,33
DB 33,0,37,115,46,112,114,112,115,100,99,97,112,97,99
DB 105,116,121,32,61,32,0,37,115,46,112,114,112,99,111
DB 110,101,110,97,98,108,101,32,32,61,32,0,84,82,85
DB 69,0,70,65,76,83,69,0,85,110,107,110,111,119,110
DB 33,33,0,37,115,46,98,105,111,115,115,105,122,101,32
DB 32,32,32,32,32,61,32,37,100,0,37,115,46,112,112
DB 112,101,110,97,98,108,101,32,32,32,32,32,61,32,0
DB 84,82,85,69,0,70,65,76,83,69,0,85,110,107,110
DB 111,119,110,33,33,0,37,115,46,112,112,112,115,100,101
DB 110,97,98,108,101,32,32,61,32,0,84,82,85,69,0
DB 70,65,76,83,69,0,85,110,107,110,111,119,110,33,33
DB 0,37,115,46,112,112,112,115,100,116,114,97,99,101,32
DB 32,32,32,61,32,0,83,73,76,69,78,84,0,69,82
DB 82,79,82,83,0,69,86,69,82,89,84,72,73,78,71
DB 0,85,110,107,110,111,119,110,33,33,0,37,115,46,112
DB 112,112,99,97,112,97,99,105,116,121,32,32,32,61,32
DB 37,100,0,37,115,46,112,112,112,99,111,110,101,110,97
DB 98,108,101,32,32,61,32,0,84,82,85,69,0,70,65
DB 76,83,69,0,85,110,107,110,111,119,110,33,33,0
extrn printf_
extrn strcpy_
extrn pager_
extrn .eq
END


BIN
branches/dgg/Apps/crossdev/CNAMEPT4.O

Binary file not shown.

51
branches/dgg/Apps/crossdev/COREAPPS.BAK

@ -1,28 +1,49 @@
rem coreapps.bat 2/15/2013 dwg - build all core apps using batch files
@rem coreapps.bat 2/15/2013 dwg - build all core apps using batch files
if not exist access.cpm call access.bat
@@if not exist access.cpm call access.bat
@@if not exist access.cpm echo WARNING ACCESS DIDN'T BUILD
@@if not exist access.cpm pause
if not exist cpmname.cpm call cpmname.bat
@@if not exist cpmname.cpm call cpmname.bat
@@if not exist cpmname.cpm echo WARNING CPMNAME DIDN'T BUILD
@@if not exist cpmname.cpm pause
if not exist findfile.cpm call findfile.bat
if not exist findfile.cpm pause
@if not exist findfile.cpm call findfile.bat
@if not exist findfile.cpm echo WARNING FINDFILE DIDN'T BUILD
@if not exist findfile.cpm pause
if not exist map.cpm call map.bat
@if not exist map.cpm call map.bat
@if not exist map.cpm echo WARNING MAP DIDN'T BUILD
@if not exist map.cpm pause
if not exist meta.cpm call meta.bat
@if not exist meta.cpm call meta.bat
@if not exist meta.cpm echo WARNING META DIDN'T BUILD
@if not exist meta.cpm pause
if not exist multifmt.cpm call multifmt.bat
@if not exist multifmt.cpm call multifmt.bat
@if not exist multifmt.cpm echo WARNING MULTIFMT DIDN'T BUILD
@if not exist multifmt.cpm pause
if not exist rem.cpm call makerem.bat
@if not exist rem.cpm call makerem.bat
@if not exist rem.cpm echo WARNING REM DIDN'T BUILD
@if not exist rem.cpm pause
if not exist setlabel.cpm call setlabel.bat
@if not exist setlabel.cpm call setlabel.bat
@if not exist setlabel.cpm echo WARNING SETLABEL DIDN'T BUILD
@if not exist setlabel.cpm pause
if not exist sysgen.cpm call sysgen.bat
@if not exist sysgen.cpm call sysgen.bat
@if not exist sysgen.cpm echo WARNING SYSGEN DIDN'T BUILD
@if not exist sysgen.cpm pause
if not exist termtype.cpm call termtype.bat
@if not exist termtype.cpm call termtype.bat
@if not exist termtype.cpm echo WARNING TERMTYPE DIDN'T BUILD
@if not exist termtype.cpm pause
if not exist view.cpm call view.bat
@if not exist view.cpm call view.bat
@if not exist view.cpm echo WARNING VIEW DIDN'T BUILD
@if not exist view.cpm pause
rem All Core Apps Built
dir *.cpm /w
@echo All Core Apps Built
@dir *.cpm /w

61
branches/dgg/Apps/crossdev/COREAPPS.BAT

@ -1,38 +1,49 @@
rem coreapps.bat 2/15/2013 dwg - build all core apps using batch files
@rem coreapps.bat 2/15/2013 dwg - build all core apps using batch files
if not exist access.cpm call access.bat
if not exist access.cpm pause
@@if not exist access.cpm call access.bat
@@if not exist access.cpm echo WARNING ACCESS DIDN'T BUILD
@@if not exist access.cpm pause
if not exist cpmname.cpm call cpmname.bat
if not exist cpmname.cpm pause
@@if not exist cpmname.cpm call cpmname.bat
@@if not exist cpmname.cpm echo WARNING CPMNAME DIDN'T BUILD
@@if not exist cpmname.cpm pause
if not exist findfile.cpm call findfile.bat
if not exist findfile.cpm pause
@if not exist findfile.cpm call findfile.bat
@if not exist findfile.cpm echo WARNING FINDFILE DIDN'T BUILD
@if not exist findfile.cpm pause
if not exist map.cpm call map.bat
if not exist map.cpm pause
@if not exist map.cpm call map.bat
@if not exist map.cpm echo WARNING MAP DIDN'T BUILD
@if not exist map.cpm pause
if not exist meta.cpm call meta.bat
if not exist meta.cpm pause
@if not exist meta.cpm call meta.bat
@if not exist meta.cpm echo WARNING META DIDN'T BUILD
@if not exist meta.cpm pause
if not exist multifmt.cpm call multifmt.bat
if not exist multifmt.cpm pause
@if not exist multifmt.cpm call multifmt.bat
@if not exist multifmt.cpm echo WARNING MULTIFMT DIDN'T BUILD
@if not exist multifmt.cpm pause
if not exist rem.cpm call makerem.bat
if not exist rem.cpm pause
@if not exist rem.cpm call makerem.bat
@if not exist rem.cpm echo WARNING REM DIDN'T BUILD
@if not exist rem.cpm pause
if not exist setlabel.cpm call setlabel.bat
if not exist setlabel.cpm pause
@if not exist setlabel.cpm call setlabel.bat
@if not exist setlabel.cpm echo WARNING SETLABEL DIDN'T BUILD
@if not exist setlabel.cpm pause
if not exist sysgen.cpm call sysgen.bat
if not exist sysgen.cpm pause
@if not exist sysgen.cpm call sysgen.bat
@if not exist sysgen.cpm echo WARNING SYSGEN DIDN'T BUILD
@if not exist sysgen.cpm pause
if not exist termtype.cpm call termtype.bat
if not exist termtype.cpm pause
@if not exist termtype.cpm call termtype.bat
@if not exist termtype.cpm echo WARNING TERMTYPE DIDN'T BUILD
@if not exist termtype.cpm pause
if not exist view.cpm call view.bat
if not exist view.cpm pause
@if not exist view.cpm call view.bat
@if not exist view.cpm echo WARNING VIEW DIDN'T BUILD
@if not exist view.cpm pause
rem All Core Apps Built
dir *.cpm /w
@echo All Core Apps Built
@dir *.cpm

164
branches/dgg/Apps/crossdev/CPMNAME.ASM

@ -1,164 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
global pINFOLIS_,2
global pSYSCFG_,2
global line_,2
PUBLIC main_
main_: lxi d,.2
call csave
LXI H,5
SHLD line_
LXI H,-4096
SHLD hregbc_
LXI H,-16384
SHLD hregde_
CALL diagnose_
LXI H,-16384
SHLD pSYSCFG_
LHLD pSYSCFG_
LXI D,68
DAD D
MOV E,M
MVI D,0
PUSH D
CALL crtinit_
POP D
CALL crtclr_
LXI H,0
PUSH H
LXI H,0
PUSH H
CALL crtlc_
POP D
POP D
LXI H,0
PUSH H
LXI H,0
PUSH H
LXI H,3
PUSH H
LXI H,2
PUSH H
LXI H,2013
PUSH H
LXI H,16
PUSH H
LXI H,1
PUSH H
LXI H,.1+0
PUSH H
CALL printf_
XCHG
LXI H,16
DAD SP
SPHL
LXI H,.1+36
PUSH H
CALL printf_
POP D
CALL pager_
CALL pager_
LXI H,-6596
SHLD ireghl_
CALL bioscall_
LHLD ireghl_
SHLD pINFOLIS_
LXI H,.1+72
PUSH H
CALL printf_
POP D
LHLD pINFOLIS_
INX H
INX H
MOV E,M
INX H
MOV D,M
XCHG
SHLD dregde_
LXI H,9
SHLD dregbc_
CALL bdoscall_
CALL pager_
LXI H,-4096
SHLD hregbc_
LXI H,-16384
SHLD hregde_
CALL diagnose_
LXI H,-16384
SHLD pSYSCFG_
LHLD pSYSCFG_
PUSH H
CALL cnamept1_
POP D
LHLD pSYSCFG_
PUSH H
CALL cnamept2_
POP D
LHLD pSYSCFG_
PUSH H
CALL cnamept3_
POP D
LHLD pSYSCFG_
PUSH H
CALL cnamept4_
POP D
RET
.2 EQU -7
.1:
DB 67,80,77,78,65,77,69,46,67,79,77,32,37,100,47
DB 37,100,47,37,100,32,118,37,100,46,37,100,46,37,100
DB 32,40,37,100,41,0,32,100,119,103,32,45,32,68,105
DB 115,112,108,97,121,32,83,121,115,116,101,109,32,67,111
DB 110,102,105,103,117,114,97,116,105,111,110,0,112,73,78
DB 70,79,76,73,83,84,45,62,98,97,110,112,116,114,32
DB 61,61,62,32,0
PUBLIC pager_
pager_: lxi d,.4
call csave
LHLD line_
INX H
SHLD line_
LXI H,.3+0
PUSH H
CALL printf_
POP D
LXI H,24
XCHG
LHLD line_
CALL .eq
JZ .5
LXI H,.3+2
PUSH H
CALL printf_
POP D
LXI H,1
SHLD dregbc_
CALL bdoscall_
LXI H,1
SHLD line_
.5:
RET
.4 EQU 0
.3:
DB 10,0,32,32,32,32,32,112,114,101,115,115,32,97,110
DB 121,32,107,101,121,32,116,111,32,99,111,110,116,105,110
DB 117,101,0
extrn printf_
extrn crtlc_
extrn crtclr_
extrn crtinit_
extrn cnamept4_
extrn cnamept3_
extrn cnamept2_
extrn cnamept1_
extrn diagnose_
extrn hregde_
extrn hregbc_
extrn bdoscall_
extrn dregde_
extrn dregbc_
extrn bioscall_
extrn ireghl_
extrn .eq
END


BIN
branches/dgg/Apps/crossdev/CPMNAME.O

Binary file not shown.

334
branches/dgg/Apps/crossdev/CTERMCAP.ASM

@ -1,334 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
global termtype_,1
DSEG
public wy50row_
wy50row_:
DB 32
DB 33
DB 34
DB 35
DB 36
DB 37
DB 38
DB 39
DB 40
DB 41
DB 42
DB 43
DB 44
DB 45
DB 46
DB 47
DB 48
DB 49
DB 50
DB 51
DB 52
DB 53
DB 54
DB 55
CSEG
DSEG
public wy50col_
wy50col_:
DB 32
DB 33
DB 34
DB 35
DB 36
DB 37
DB 38
DB 39
DB 40
DB 41
DB 42
DB 43
DB 44
DB 45
DB 46
DB 47
DB 48
DB 49
DB 50
DB 51
DB 52
DB 53
DB 54
DB 55
DB 56
DB 57
DB 58
DB 59
DB 60
DB 61
DB 62
DB 63
DB 64
DB 65
DB 66
DB 67
DB 68
DB 69
DB 70
DB 71
DB 72
DB 73
DB 74
DB 75
DB 76
DB 77
DB 78
DB 79
DB 80
DB 81
DB 82
DB 83
DB 84
DB 85
DB 86
DB 87
DB 88
DB 89
DB 90
DB 91
DB 92
DB 93
DB 94
DB 95
DB 96
DB 97
DB 98
DB 99
DB 100
DB 101
DB 102
DB 103
DB 104
DB 105
DB 106
DB 107
DB 108
DB 109
DB 110
DB 111
CSEG
PUBLIC crtinit_
crtinit_: lxi d,.2
call csave
LXI H,8-.2
DAD SP
MOV E,M
XCHG
MOV A,L
STA termtype_
RET
.2 EQU 0
PUBLIC crtclr_
crtclr_: lxi d,.3
call csave
LDA termtype_
MOV L,A
MVI H,0
JMP .4
.6:
LXI H,0
XCHG
LXI H,2-.3
DAD SP
MOV M,E
INX H
MOV M,D
JMP .8
.7:
LXI H,2-.3
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.8:
LXI H,2-.3
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,43
CALL .lt
JZ .9
LXI H,10
PUSH H
LXI H,13
PUSH H
LXI H,.1+0
PUSH H
CALL printf_
POP D
POP D
POP D
JMP .7
.9:
JMP .5
.10:
LXI H,27
PUSH H
LXI H,.1+5
PUSH H
CALL printf_
POP D
POP D
JMP .5
.11:
LXI H,27
PUSH H
LXI H,.1+11
PUSH H
CALL printf_
POP D
POP D
JMP .5
.12:
LXI H,27
PUSH H
LXI H,27
PUSH H
LXI H,.1+15
PUSH H
CALL printf_
POP D
POP D
POP D
JMP .5
.4:
CALL .swt
DW 4
DW 0,.6
DW 1,.10
DW 2,.11
DW 3,.12
DW .5
.5:
RET
.3 EQU -2
.1:
DB 37,99,37,99,0,37,99,91,50,74,0,37,99,43,0
DB 37,99,74,37,99,72,0
PUBLIC crtlc_
crtlc_: lxi d,.14
call csave
LDA termtype_
MOV L,A
MVI H,0
JMP .15
.17:
JMP .16
.18:
LXI H,102
PUSH H
LXI H,12-.14
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,12-.14
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,27
PUSH H
LXI H,.13+0
PUSH H
CALL printf_
XCHG
LXI H,10
DAD SP
SPHL
JMP .16
.19:
LXI H,10-.14
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,wy50col_
DAD D
DCX H
MOV E,M
MVI D,0
PUSH D
LXI H,10-.14
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,wy50row_
DAD D
DCX H
MOV E,M
MVI D,0
PUSH D
LXI H,27
PUSH H
LXI H,.13+11
PUSH H
CALL printf_
XCHG
LXI H,8
DAD SP
SPHL
JMP .16
.20:
LXI H,10-.14
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,32
DAD D
PUSH H
LXI H,10-.14
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,32
DAD D
PUSH H
LXI H,27
PUSH H
LXI H,.13+19
PUSH H
CALL printf_
XCHG
LXI H,8
DAD SP
SPHL
JMP .16
.15:
CALL .swt
DW 4
DW 0,.17
DW 1,.18
DW 2,.19
DW 3,.20
DW .16
.16:
RET
.14 EQU -2
.13:
DB 37,99,91,37,100,59,37,100,37,99,0,37,99,61,37
DB 99,37,99,0,37,99,89,37,99,37,99,0
extrn printf_
extrn .lt
END


BIN
branches/dgg/Apps/crossdev/CTERMCAP.O

Binary file not shown.

5
branches/dgg/Apps/crossdev/CVT2H.C

@ -1,5 +1,9 @@
/* cvt2h.h 7/11/2012 dwg - Copyright (C) 2012 Douglas Goodall */
/* This is an include file for a function which takes a pointer,
a length, and a filename, and converts a buffer into a C
header file that can be later incuded in some other compilation. */
#include "stdio.h"
#include "visible.h"
@ -39,4 +43,3 @@ cvt2h(buffer,length,name)
fprintf(fd,"};\n/* eof - %s */\n",name);
fclose(fd);
}


BIN
branches/dgg/Apps/crossdev/DIAGNOSE.O

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/DIAGNOSE.REL

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/EDITOR.EXE

Binary file not shown.

12
branches/dgg/Apps/crossdev/FINDFILE.BAK

@ -1,12 +0,0 @@
rem findfile.sub 9/5/2012 dwg - make findfile.com from sources
if not exist findfile.rel z80mu rmac findfile
if not exist printers.rel z80mu rmac printers
if not exist terminal.rel z80mu rmac terminal
if not exist memory.rel z80mu rmac memory
if not exist banner.rel z80mu rmac banner
if not exist identity.rel z80mu rmac identity
if not exist hbios.rel z80mu rmac hbios
if not exist findfile.cpm z80mu link findfile,hbios,identity,banner,memory,printers,terminal
if not exist findfile.cpm copy findfile.com findfile.cpm
dir findfile.cpm

BIN
branches/dgg/Apps/crossdev/FINDFILE.REL

Binary file not shown.

428
branches/dgg/Apps/crossdev/FLIP.ASM

@ -1,428 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
PUBLIC vdaini_
vdaini_: lxi d,.2
call csave
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,16384
CALL .or
SHLD hregbc_
LHLD hregbc_
PUSH H
LXI H,.1+0
PUSH H
CALL printf_
POP D
POP D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD hregde_
LHLD hregde_
PUSH H
LXI H,.1+17
PUSH H
CALL printf_
POP D
POP D
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD hreghl_
LHLD hreghl_
PUSH H
LXI H,.1+34
PUSH H
CALL printf_
POP D
POP D
CALL diagnose_
LDA hrega_
MOV L,A
MVI H,0
PUSH H
LXI H,.1+51
PUSH H
CALL printf_
POP D
POP D
LDA hrega_
MOV L,A
MVI H,0
RET
.2 EQU 0
.1:
DB 104,114,101,103,98,99,32,61,32,48,120,37,48,52,120
DB 10,0,104,114,101,103,100,101,32,61,32,48,120,37,48
DB 52,120,10,0,104,114,101,103,104,108,32,61,32,48,120
DB 37,48,52,120,10,0,86,68,65,73,78,73,32,99,97
DB 108,108,101,100,44,32,114,101,116,117,114,110,32,99,111
DB 100,101,32,119,97,115,32,48,120,37,48,50,120,10,0
PUBLIC bitlook_
bitlook_: lxi d,.4
call csave
LXI H,-32768
XCHG
LXI H,2-.4
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,0
XCHG
LXI H,0-.4
DAD SP
MOV M,E
INX H
MOV M,D
JMP .6
.5:
LXI H,0-.4
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.6:
LXI H,0-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,256
CALL .lt
JZ .7
LXI H,0-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,.3+0
PUSH H
CALL printf_
POP D
POP D
LXI H,0
XCHG
LXI H,-2-.4
DAD SP
MOV M,E
INX H
MOV M,D
JMP .9
.8:
LXI H,-2-.4
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.9:
LXI H,-2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,8
CALL .lt
JZ .10
LXI H,2-.4
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
XCHG
DCX H
MOV E,M
MVI D,0
PUSH D
LXI H,.3+16
PUSH H
CALL printf_
POP D
POP D
JMP .8
.10:
LXI H,.3+24
PUSH H
CALL printf_
POP D
JMP .5
.7:
RET
.4 EQU -6
.3:
DB 97,115,99,105,105,32,61,32,48,120,37,48,50,120,32
DB 0,48,120,37,48,50,120,32,0,10,0
PUBLIC vdaqry_
vdaqry_: lxi d,.12
call csave
LXI H,8-.12
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,16640
CALL .or
SHLD hregbc_
LHLD hregbc_
PUSH H
LXI H,.11+0
PUSH H
CALL printf_
POP D
POP D
LXI H,10-.12
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD hreghl_
LHLD hreghl_
LXI D,-32768
CALL .ne
JZ .13
LXI H,.11+17
PUSH H
CALL printf_
POP D
.13:
CALL diagnose_
LDA hrega_
MOV L,A
MVI H,0
PUSH H
LXI H,.11+43
PUSH H
CALL printf_
POP D
POP D
LHLD hregbc_
LXI D,255
CALL .an
PUSH H
LXI H,.11+83
PUSH H
CALL printf_
POP D
POP D
LHLD hregde_
LXI D,8
XCHG
CALL .ur
PUSH H
LHLD hregde_
LXI D,8
XCHG
CALL .ur
PUSH H
LXI H,.11+123
PUSH H
CALL printf_
POP D
POP D
POP D
LHLD hregde_
LXI D,255
CALL .an
PUSH H
LHLD hregde_
LXI D,255
CALL .an
PUSH H
LXI H,.11+167
PUSH H
CALL printf_
POP D
POP D
POP D
LDA hrega_
MOV L,A
MVI H,0
RET
.12 EQU 0
.11:
DB 104,114,101,103,98,99,32,61,32,48,120,37,48,52,120
DB 10,0,118,100,97,113,114,121,32,115,97,121,115,32,104
DB 108,32,33,61,32,48,120,56,48,48,48,10,0,86,68
DB 65,81,82,89,32,99,97,108,108,101,100,44,32,115,116
DB 97,116,117,115,32,32,32,32,32,32,32,119,97,115,32
DB 48,120,37,48,50,120,10,0,32,32,32,32,32,32,32
DB 32,32,32,32,32,32,32,32,118,105,100,101,111,32,109
DB 111,100,101,32,32,32,119,97,115,32,48,120,37,48,50
DB 120,10,0,32,32,32,32,32,32,32,32,32,32,32,32
DB 32,32,32,114,111,119,32,99,111,117,110,116,32,32,32
DB 32,119,97,115,32,48,120,37,48,50,120,40,37,100,41
DB 10,0,32,32,32,32,32,32,32,32,32,32,32,32,32
DB 32,32,99,111,108,117,109,110,32,99,111,117,110,116,32
DB 119,97,115,32,48,120,37,48,50,120,40,37,100,41,10
DB 0
PUBLIC main_
main_: lxi d,.15
call csave
LXI H,.14+0
PUSH H
CALL printf_
POP D
LXI H,-32768
PUSH H
LXI H,64
PUSH H
CALL vdaqry_
POP D
POP D
XCHG
LXI H,-3-.15
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,-32768
XCHG
LXI H,2-.15
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,0
XCHG
LXI H,-1-.15
DAD SP
MOV M,E
INX H
MOV M,D
JMP .17
.16:
LXI H,-1-.15
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.17:
LXI H,-1-.15
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,2048
CALL .lt
JZ .18
LXI H,2-.15
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
MOV E,M
LXI H,1-.15
DAD SP
MOV M,E
LXI H,1-.15
DAD SP
MOV E,M
MVI D,0
LXI H,255
CALL .xr
XCHG
LXI H,1-.15
DAD SP
MOV M,E
LXI H,1-.15
DAD SP
MOV E,M
PUSH D
LXI H,4-.15
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
POP D
MOV M,E
LXI H,2-.15
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
JMP .16
.18:
LXI H,-32768
PUSH H
LXI H,0
PUSH H
LXI H,64
PUSH H
CALL vdaini_
POP D
POP D
POP D
RET
.15 EQU -7
.14:
DB 102,108,105,112,46,99,111,109,40,99,41,32,49,49,47
DB 49,53,47,50,48,49,50,32,100,119,103,32,45,32,10
DB 10,0
extrn printf_
extrn diagnose_
extrn hreghl_
extrn hregde_
extrn hregbc_
extrn hrega_
extrn .or
extrn .xr
extrn .an
extrn .ne
extrn .lt
extrn .ur
END


646
branches/dgg/Apps/crossdev/FORM.ASM

@ -1,646 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
global pDPHMAP_,2
global pDPHVEC_,16
DSEG
public pSYSCFG_
pSYSCFG_:
DW -16384
CSEG
DSEG
public form_
form_:
DW 6
DW 3
DW 6
DB 102
DB 105
DB 101
DB 108
DB 100
DB 49
DB 0
DW 6
DW 13
DB 100
DB 101
DB 102
DB 97
DB 117
DB 108
DB 116
DB 49
DB 0
ds 24
DW 7
DW 3
DW 6
DB 102
DB 105
DB 101
DB 108
DB 100
DB 50
DB 0
DW 7
DW 13
DB 100
DB 101
DB 102
DB 97
DB 117
DB 108
DB 116
DB 50
DB 0
ds 24
CSEG
PUBLIC main_
main_: lxi d,.2
call csave
LXI H,-4096
SHLD hregbc_
LXI H,-16384
SHLD hregde_
CALL diagnose_
LXI H,-16384
SHLD pSYSCFG_
LHLD pSYSCFG_
LXI D,68
DAD D
MOV E,M
MVI D,0
PUSH D
CALL crtinit_
POP D
CALL crtclr_
LXI H,0
PUSH H
LXI H,0
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.1+0
PUSH H
CALL banner_
POP D
LXI H,0
XCHG
LXI H,2-.2
DAD SP
MOV M,E
INX H
MOV M,D
JMP .4
.3:
LXI H,2-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.4:
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,2
CALL .lt
JZ .5
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+2
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
CALL crtlc_
POP D
POP D
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+6
DAD D
PUSH H
LXI H,.1+5
PUSH H
CALL printf_
POP D
POP D
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+15
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+13
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
CALL crtlc_
POP D
POP D
LXI H,0
XCHG
LXI H,0-.2
DAD SP
MOV M,E
INX H
MOV M,D
JMP .7
.6:
LXI H,0-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.7:
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+17
DAD D
PUSH H
CALL strlen_
POP D
PUSH H
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
POP H
CALL .lt
JZ .8
LXI H,.1+8
PUSH H
CALL printf_
POP D
JMP .6
.8:
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+15
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+13
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
CALL crtlc_
POP D
POP D
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+17
DAD D
PUSH H
LXI H,.1+10
PUSH H
CALL printf_
POP D
POP D
JMP .3
.5:
LXI H,0
XCHG
LXI H,2-.2
DAD SP
MOV M,E
INX H
MOV M,D
JMP .10
.9:
LXI H,2-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.10:
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,2
CALL .lt
JZ .11
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+15
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+13
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
CALL crtlc_
POP D
POP D
LXI H,34
PUSH H
LXI H,0
PUSH H
LXI H,-30-.2
DAD SP
PUSH H
CALL memset_
POP D
POP D
POP D
LXI H,10
SHLD dregbc_
LXI H,-34-.2
DAD SP
SHLD dregde_
LXI H,31
XCHG
LXI H,-34-.2
DAD SP
MOV M,E
LXI H,0
XCHG
LXI H,-33-.2
DAD SP
MOV M,E
CALL bdoscall_
LXI H,-33-.2
DAD SP
MOV E,M
MVI D,0
PUSH D
LXI H,0
POP D
XCHG
CALL .lt
JZ .12
LXI H,32
PUSH H
LXI H,0
PUSH H
LXI H,6-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+17
DAD D
PUSH H
CALL memset_
POP D
POP D
POP D
LXI H,-32-.2
DAD SP
MOV E,M
MVI D,0
PUSH D
LXI H,4-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+17
DAD D
PUSH H
CALL strcpy_
POP D
POP D
.12:
JMP .9
.11:
LXI H,0
XCHG
LXI H,2-.2
DAD SP
MOV M,E
INX H
MOV M,D
JMP .14
.13:
LXI H,2-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.14:
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,2
CALL .lt
JZ .15
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+2
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
CALL crtlc_
POP D
POP D
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+6
DAD D
PUSH H
LXI H,.1+13
PUSH H
CALL printf_
POP D
POP D
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+15
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+13
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
CALL crtlc_
POP D
POP D
LXI H,0
XCHG
LXI H,0-.2
DAD SP
MOV M,E
INX H
MOV M,D
JMP .17
.16:
LXI H,0-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.17:
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+17
DAD D
PUSH H
CALL strlen_
POP D
PUSH H
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
POP H
CALL .lt
JZ .18
LXI H,.1+16
PUSH H
CALL printf_
POP D
JMP .16
.18:
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+15
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+13
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
CALL crtlc_
POP D
POP D
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,50
CALL .ml
LXI D,form_+17
DAD D
PUSH H
LXI H,.1+18
PUSH H
CALL printf_
POP D
POP D
JMP .13
.15:
RET
.2 EQU -38
.1:
DB 70,79,82,77,0,37,115,0,95,0,37,115,0,37,115
DB 0,32,0,37,115,0
extrn strcpy_
extrn memset_
extrn strlen_
extrn printf_
extrn banner_
extrn crtlc_
extrn crtclr_
extrn crtinit_
extrn diagnose_
extrn hregde_
extrn hregbc_
extrn bdoscall_
extrn dregde_
extrn dregbc_
extrn .lt
extrn .ml
END


BIN
branches/dgg/Apps/crossdev/HBIOS.REL

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/IDENTITY.REL

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/LABELIB.REL

Binary file not shown.

1649
branches/dgg/Apps/crossdev/MAP.ASM

File diff suppressed because it is too large

14
branches/dgg/Apps/crossdev/MAP.BAK

@ -1,14 +0,0 @@
rem map.bat 7/22/2012 dwg - build map from sources
if not exist map.asm z80mu cc map
if not exist map.o z80mu as map
if not exist asmiface.o z80mu as asmiface
if not exist bdoscall.o z80mu as bdoscall
if not exist bioscall.o z80mu as bioscall
if not exist clogical.asm z80mu cc clogical
if not exist clogical.o z80mu as clogical
if not exist ctermcap.asm z80mu cc ctermcap
if not exist ctermcap.o z80mu as ctermcap
if not exist diagnose.o z80mu as diagnose
if not exist map.cmd z80mu ln map.o asmiface.o bioscall.o bdoscall.o clogical.o diagnose.o ctermcap.o c.lib
if not exist map.cmd rename map.com map.cmd
dir map.cmd

BIN
branches/dgg/Apps/crossdev/MAP.O

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/MEMORY.REL

Binary file not shown.

750
branches/dgg/Apps/crossdev/META.ASM

@ -1,750 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
global metadata_,128
global bRunning_,2
global deflu_,2
global drive_,2
global logunit_,2
global numlu_,2
DSEG
public pSYSCFG_
pSYSCFG_:
DW -16384
CSEG
PUBLIC display_
display_: lxi d,.2
call csave
LHLD logunit_
PUSH H
LHLD drive_
PUSH H
CALL luscur_
POP D
POP D
LXI H,metadata_
PUSH H
LXI H,11
PUSH H
LXI H,0
PUSH H
LHLD drive_
PUSH H
CALL rdsector_
XCHG
LXI H,8
DAD SP
SPHL
LXI H,0
PUSH H
LXI H,7
PUSH H
CALL crtlc_
POP D
POP D
LHLD metadata_
PUSH H
LXI H,.1+0
PUSH H
CALL printf_
POP D
POP D
LXI H,0
PUSH H
LXI H,8
PUSH H
CALL crtlc_
POP D
POP D
LDA metadata_+2
MOV L,A
MVI H,0
PUSH H
LXI H,.1+28
PUSH H
CALL printf_
POP D
POP D
LXI H,0
PUSH H
LXI H,9
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.1+56
PUSH H
CALL printf_
POP D
LXI H,0
XCHG
LXI H,2-.2
DAD SP
MOV M,E
INX H
MOV M,D
JMP .4
.3:
LXI H,2-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.4:
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,8
CALL .lt
JZ .5
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,metadata_+4
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,.1+79
PUSH H
CALL printf_
POP D
POP D
JMP .3
.5:
LXI H,.1+82
PUSH H
CALL printf_
POP D
LXI H,0
PUSH H
LXI H,10
PUSH H
CALL crtlc_
POP D
POP D
LDA metadata_+12
MOV L,A
MVI H,0
LXI D,65
DAD D
PUSH H
LXI H,.1+84
PUSH H
CALL printf_
POP D
POP D
LHLD metadata_+13
XCHG
LHLD logunit_
CALL .ne
JZ .6
LHLD logunit_
SHLD metadata_+13
LHLD metadata_+97
INX H
SHLD metadata_+97
LXI H,metadata_
PUSH H
LXI H,11
PUSH H
LXI H,0
PUSH H
LHLD drive_
PUSH H
CALL wrsector_
XCHG
LXI H,8
DAD SP
SPHL
.6:
LXI H,0
PUSH H
LXI H,11
PUSH H
CALL crtlc_
POP D
POP D
LHLD numlu_
PUSH H
LHLD metadata_+13
PUSH H
LXI H,.1+109
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,0
PUSH H
LXI H,12
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.1+150
PUSH H
CALL printf_
POP D
LDA metadata_+96
MOV L,A
MVI H,0
JMP .7
.9:
LXI H,.1+172
PUSH H
CALL printf_
POP D
JMP .8
.10:
LXI H,.1+178
PUSH H
CALL printf_
POP D
JMP .8
.11:
LXI H,.1+184
PUSH H
CALL printf_
POP D
JMP .8
.7:
CALL .swt
DW 2
DW 0,.10
DW 1,.9
DW .11
.8:
LXI H,0
PUSH H
LXI H,13
PUSH H
CALL crtlc_
POP D
POP D
LHLD metadata_+97
PUSH H
LXI H,.1+190
PUSH H
CALL printf_
POP D
POP D
LXI H,0
PUSH H
LXI H,14
PUSH H
CALL crtlc_
POP D
POP D
LDA metadata_+101
MOV L,A
MVI H,0
PUSH H
LDA metadata_+101
MOV L,A
MVI H,0
PUSH H
LDA metadata_+100
MOV L,A
MVI H,0
PUSH H
LDA metadata_+99
MOV L,A
MVI H,0
PUSH H
LXI H,.1+214
PUSH H
CALL printf_
XCHG
LXI H,10
DAD SP
SPHL
LXI H,0
PUSH H
LXI H,15
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.1+247
PUSH H
CALL printf_
POP D
LXI H,0
XCHG
LXI H,2-.2
DAD SP
MOV M,E
INX H
MOV M,D
JMP .13
.12:
LXI H,2-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.13:
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,16
CALL .lt
JZ .14
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,metadata_+103
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,.1+270
PUSH H
CALL printf_
POP D
POP D
JMP .12
.14:
LXI H,.1+273
PUSH H
CALL printf_
POP D
LXI H,0
PUSH H
LXI H,16
PUSH H
CALL crtlc_
POP D
POP D
LHLD metadata_+120
PUSH H
LXI H,.1+275
PUSH H
CALL printf_
POP D
POP D
LXI H,0
PUSH H
LXI H,17
PUSH H
CALL crtlc_
POP D
POP D
LHLD metadata_+122
PUSH H
LXI H,.1+303
PUSH H
CALL printf_
POP D
POP D
LXI H,0
PUSH H
LXI H,18
PUSH H
CALL crtlc_
POP D
POP D
LHLD metadata_+124
PUSH H
LXI H,.1+331
PUSH H
CALL printf_
POP D
POP D
LXI H,0
PUSH H
LXI H,19
PUSH H
CALL crtlc_
POP D
POP D
LHLD metadata_+126
PUSH H
LXI H,.1+359
PUSH H
CALL printf_
POP D
POP D
RET
.2 EQU -2
.1:
DB 109,101,116,97,100,97,116,97,46,115,105,103,110,97,116
DB 117,114,101,32,61,32,48,120,37,48,52,120,0,109,101
DB 116,97,100,97,116,97,46,112,108,97,116,102,111,114,109
DB 32,32,61,32,48,120,37,48,50,120,0,109,101,116,97
DB 100,97,116,97,46,102,111,114,109,97,116,116,101,114,32
DB 61,32,34,0,37,99,0,34,0,109,101,116,97,100,97
DB 116,97,46,100,114,105,118,101,32,32,32,32,32,61,32
DB 37,99,58,0,109,101,116,97,100,97,116,97,46,108,111
DB 103,117,110,105,116,32,32,32,61,32,37,100,40,114,101
DB 108,48,41,32,111,102,32,37,100,32,32,32,32,32,0
DB 109,101,116,97,100,97,116,97,46,119,114,105,116,101,112
DB 114,111,116,32,61,32,0,84,82,85,69,32,0,70,65
DB 76,83,69,0,85,110,107,33,33,0,109,101,116,97,100
DB 97,116,97,46,117,112,100,97,116,101,32,32,32,32,61
DB 32,37,100,0,109,101,116,97,100,97,116,97,46,123,118
DB 101,114,125,32,32,32,32,32,61,32,37,100,46,37,100
DB 46,37,100,46,37,100,0,109,101,116,97,100,97,116,97
DB 46,108,97,98,101,108,32,32,32,32,32,61,32,34,0
DB 37,99,0,34,0,109,101,116,97,100,97,116,97,46,105
DB 110,102,108,111,99,32,32,32,32,61,32,48,120,37,48
DB 52,120,0,109,101,116,97,100,97,116,97,46,99,112,109
DB 108,111,99,32,32,32,32,61,32,48,120,37,48,52,120
DB 0,109,101,116,97,100,97,116,97,46,99,112,109,101,110
DB 100,32,32,32,32,61,32,48,120,37,48,52,120,0,109
DB 101,116,97,100,97,116,97,46,99,112,109,101,110,116,32
DB 32,32,32,61,32,48,120,37,48,52,120,0
PUBLIC menu_
menu_: lxi d,.16
call csave
LXI H,0
PUSH H
LXI H,21
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.15+0
PUSH H
CALL printf_
POP D
LXI H,.15+40
PUSH H
CALL printf_
POP D
LXI H,0
PUSH H
LXI H,21
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.15+80
PUSH H
CALL printf_
POP D
LXI H,0
XCHG
LHLD logunit_
CALL .lt
JZ .17
LXI H,.15+90
PUSH H
CALL printf_
POP D
.17:
LHLD numlu_
DCX H
PUSH H
LHLD logunit_
POP D
XCHG
CALL .lt
JZ .18
LXI H,.15+102
PUSH H
CALL printf_
POP D
.18:
LDA metadata_+96
MOV L,A
MVI H,0
PUSH H
LXI H,1
POP D
CALL .eq
JZ .19
LXI H,.15+114
PUSH H
CALL printf_
POP D
.19:
lda metadata_+96
ora a
JNZ .20
LXI H,.15+127
PUSH H
CALL printf_
POP D
.20:
LXI H,.15+138
PUSH H
CALL printf_
POP D
LXI H,1
SHLD dregbc_
CALL bdoscall_
LXI H,1
XCHG
LXI H,2-.16
DAD SP
MOV M,E
INX H
MOV M,D
LDA drega_
MOV L,A
MVI H,0
JMP .21
.23:
.24:
LXI H,0
XCHG
LXI H,2-.16
DAD SP
MOV M,E
INX H
MOV M,D
JMP .22
.25:
LHLD numlu_
DCX H
PUSH H
LHLD logunit_
POP D
XCHG
CALL .lt
JZ .26
LHLD logunit_
INX H
SHLD logunit_
JMP .27
.26:
LXI H,7
PUSH H
LXI H,.15+151
PUSH H
CALL printf_
POP D
POP D
.27:
JMP .22
.28:
LXI H,0
XCHG
LHLD logunit_
CALL .lt
JZ .29
LHLD logunit_
DCX H
SHLD logunit_
JMP .30
.29:
LXI H,7
PUSH H
LXI H,.15+154
PUSH H
CALL printf_
POP D
POP D
.30:
JMP .22
.31:
LXI H,1
MOV A,L
STA metadata_+96
LHLD metadata_+97
INX H
SHLD metadata_+97
LXI H,metadata_
PUSH H
LXI H,11
PUSH H
LXI H,0
PUSH H
LHLD drive_
PUSH H
CALL wrsector_
XCHG
LXI H,8
DAD SP
SPHL
JMP .22
.32:
LXI H,0
MOV A,L
STA metadata_+96
LHLD metadata_+97
INX H
SHLD metadata_+97
LXI H,metadata_
PUSH H
LXI H,11
PUSH H
LXI H,0
PUSH H
LHLD drive_
PUSH H
CALL wrsector_
XCHG
LXI H,8
DAD SP
SPHL
JMP .22
.33:
LXI H,7
PUSH H
LXI H,.15+157
PUSH H
CALL printf_
POP D
POP D
JMP .22
.21:
CALL .swt
DW 6
DW 43,.25
DW 45,.28
DW 88,.23
DW 112,.31
DW 117,.32
DW 120,.24
DW .33
.22:
LXI H,2-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
RET
.16 EQU -2
.15:
DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
DB 32,32,32,32,32,32,32,32,32,0,32,32,32,32,32
DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
DB 32,32,32,32,0,79,112,116,105,111,110,115,40,32,0
DB 32,45,123,112,114,101,118,32,108,117,125,0,32,43,123
DB 110,101,120,116,32,108,117,125,0,32,117,123,110,112,114
DB 111,116,101,99,116,125,0,32,112,123,114,111,116,101,99
DB 116,125,0,32,120,123,113,117,105,116,125,32,41,58,32
DB 0,37,99,0,37,99,0,37,99,0
PUBLIC main_
main_: lxi d,.35
call csave
LXI H,-4096
SHLD hregbc_
LXI H,-16384
SHLD hregde_
CALL diagnose_
LXI H,-16384
SHLD pSYSCFG_
LHLD pSYSCFG_
LXI D,68
DAD D
MOV E,M
MVI D,0
PUSH D
CALL crtinit_
POP D
CALL crtclr_
LXI H,0
PUSH H
LXI H,0
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.34+0
PUSH H
CALL banner_
POP D
LXI H,25
SHLD dregbc_
CALL bdoscall_
LDA drega_
MOV L,A
MVI H,0
SHLD drive_
LHLD drive_
PUSH H
CALL lugnum_
POP D
SHLD numlu_
LHLD drive_
PUSH H
CALL lugcur_
POP D
SHLD deflu_
LHLD deflu_
SHLD logunit_
LXI H,1
SHLD bRunning_
.36:
LXI H,1
XCHG
LHLD bRunning_
CALL .eq
JZ .37
CALL display_
LXI H,1
PUSH H
CALL menu_
POP D
SHLD bRunning_
JMP .36
.37:
LHLD deflu_
PUSH H
LHLD drive_
PUSH H
CALL luscur_
POP D
POP D
LXI H,0
PUSH H
LXI H,23
PUSH H
CALL crtlc_
POP D
POP D
RET
.35 EQU 0
.34:
DB 77,69,84,65,0
extrn banner_
extrn printf_
extrn lugnum_
extrn luscur_
extrn lugcur_
extrn crtlc_
extrn crtclr_
extrn crtinit_
extrn diagnose_
extrn hregde_
extrn hregbc_
extrn wrsector_
extrn rdsector_
extrn bdoscall_
extrn dregbc_
extrn drega_
extrn .eq
extrn .ne
extrn .lt
END


62
branches/dgg/Apps/crossdev/META.BAK

@ -1,62 +0,0 @@
rem meta.bat 2/14/2013 dwg - build meta.cpm using native tools via z80mu
if not exist asmiface.o erase meta.cpm
if not exist asmiface.o z80mu as asmiface
rem dir asmiface.*
rem pause
if not exist bdoscall.o erase meta.cpm
if not exist bdoscall.o z80mu as bdoscall
rem dir bdoscall.*
rem pause
if not exist bioscall.o erase meta.cpm
if not exist bioscall.o z80mu as bioscall
rem dir bioscall*
rem pause
if not exist cbanner.asm erase meta.cpm
if not exist cbanner.asm erase cbanner.o
if not exist cbanner.asm z80mu cc cbanner
if not exist cbanner.o erase meta.cpm
if not exist cbanner.o z80mu as cbanner
rem dir cbanner.*
rem pause
if not exist clogical.asm erase meta.cpm
if not exist clogical.asm erase clogical.o
if not exist clogical.asm z80mu cc clogical
if not exist clogical.o erase meta.cpm
if not exist clogical.o z80mu as clogical
rem dir clogical.*
rem pause
if not exist ctermcap.asm erase meta.cpm
if not exist ctermcap.asm erase ctermcap.o
if not exist ctermcap.asm z80mu cc ctermcap
if not exist ctermcap.o erase meta.cpm
if not exist ctermcap.o z80mu as ctermcap
rem dir ctermcap.*
rem pause
if not exist diagnose.o erase meta.cpm
if not exist diagnose.o z80mu as diagnose
rem dir diagnose.*
rem pause
if not exist sectorio.asm erase meta.cpm
if not exist sectorio.asm erase sectorio.o
if not exist sectorio.asm z80mu cc sectorio
if not exist sectorio.o erase meta.cpm
if not exist sectorio.o z80mu as sectorio
rem dir sectorio.*
rem pause
if not exist meta.asm erase meta.cpm
if not exist meta.asm erase meta.o
if not exist meta.asm z80mu cc meta
if not exist meta.o erase meta.cpm
if not exist meta.o z80mu as meta
rem dir meta.*
rem pause
if not exist meta.cpm z80mu ln meta.o asmiface.o bioscall.o bdoscall.o cbanner.o clogical.o diagnose.o ctermcap.o sectorio.o c.lib
if not exist meta.cpm rename meta.com meta.cpm
rem dir meta.*
dir meta.cpm

BIN
branches/dgg/Apps/crossdev/META.O

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/METADATA.REL

Binary file not shown.

4
branches/dgg/Apps/crossdev/METADATA.SYM

@ -1,5 +1,5 @@
000E ADAY 0009 AL0OFS 000A AL1OFS 000E ALVOFS 0009 AMONTH
0002 ARMJ 0002 ARMN 0000 ARTP 0000 ARUP 07DC AYEAR
000F ADAY 0009 AL0OFS 000A AL1OFS 000E ALVOFS 0002 AMONTH
0002 ARMJ 0002 ARMN 0000 ARTP 0000 ARUP 07DD AYEAR
0005 BDOS E600 BIBOOT E609 BICONIN E60C BICONOUT E606 BICONST
0000 BIDRVA 0001 BIDRVB 0002 BIDRVC 0003 BIDRVD 0004 BIDRVE
0005 BIDRVF 0006 BIDRVG 0007 BIDRVH E618 BIHOME E60F BILIST

1319
branches/dgg/Apps/crossdev/MULTIFMT.ASM

File diff suppressed because it is too large

BIN
branches/dgg/Apps/crossdev/MULTIFMT.O

Binary file not shown.

2056
branches/dgg/Apps/crossdev/N8CHARS.ASM

File diff suppressed because it is too large

609
branches/dgg/Apps/crossdev/N8VIDTST.ASM

@ -1,609 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
global style_,1
global vdp_rege_,960
global szTemp_,128
global linenum_,1
global counter_,1
global outer_,1
global inner_,1
global limit_,1
global index_,2
PUBLIC main_
main_: lxi d,.2
call csave
CALL vdp_clr1_
CALL vdp_setr_
CALL vdp_mode_
CALL vdp_pnt_
CALL vdp_pgt_
CALL vdp_colo_
CALL vdp_load_
LDA outer_
MOV L,A
MVI H,0
LXI D,3
CALL .eq
JZ .3
LXI H,0
MOV A,L
STA style_
.3:
LXI H,.1+0
PUSH H
CALL vdp_main_
POP D
LXI H,0
XCHG
LXI H,-63-.2
DAD SP
MOV M,E
LXI H,0
MOV A,L
STA outer_
JMP .5
.4:
LDA outer_
MOV L,A
INX H
MOV A,L
STA outer_
.5:
LDA outer_
MOV L,A
MVI H,0
LXI D,4
XCHG
CALL .lt
JZ .6
LXI H,4
MOV A,L
STA linenum_
LXI H,0
MOV A,L
STA inner_
JMP .8
.7:
LDA inner_
MOV L,A
INX H
MOV A,L
STA inner_
.8:
LDA inner_
MOV L,A
MVI H,0
LXI D,6
XCHG
CALL .lt
JZ .9
LDA inner_
MOV L,A
MVI H,0
LXI D,5
XCHG
CALL .lt
JZ .10
LXI H,11
MOV A,L
STA limit_
JMP .11
.10:
LXI H,9
MOV A,L
STA limit_
.11:
LXI H,0
XCHG
LXI H,2-.2
DAD SP
MOV M,E
INX H
MOV M,D
JMP .13
.12:
LXI H,2-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.13:
LDA limit_
MOV L,A
MVI H,0
PUSH H
LXI H,4-.2
DAD SP
MOV E,M
INX H
MOV D,M
POP H
CALL .lt
JZ .14
LXI H,-63-.2
DAD SP
MOV E,M
MVI D,0
PUSH D
LXI H,.1+14
PUSH H
LXI H,-58-.2
DAD SP
PUSH H
CALL sprintf_
POP D
POP D
POP D
LXI H,-62-.2
DAD SP
PUSH H
LXI H,4-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,3
CALL .ml
INX H
INX H
PUSH H
LDA linenum_
MOV L,A
MVI H,0
PUSH H
CALL vdp_disp_
POP D
POP D
POP D
LXI H,-63-.2
DAD SP
PUSH H
MOV L,M
INX H
XCHG
POP H
MOV M,E
XCHG
DCX H
MVI H,0
PUSH H
LXI H,.1+17
PUSH H
LXI H,-58-.2
DAD SP
PUSH H
CALL sprintf_
POP D
POP D
POP D
LXI H,-62-.2
DAD SP
PUSH H
LXI H,4-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,3
CALL .ml
INX H
INX H
PUSH H
LDA linenum_
MOV L,A
MVI H,0
INX H
PUSH H
CALL vdp_disp_
POP D
POP D
POP D
JMP .12
.14:
LXI H,3
XCHG
LDA linenum_
MOV L,A
mvi h,0
DAD D
MOV A,L
STA linenum_
LDA inner_
MOV L,A
MVI H,0
LXI D,5
CALL .eq
JZ .15
LDA outer_
MOV L,A
MVI H,0
INX H
PUSH H
LXI H,.1+22
PUSH H
LXI H,-58-.2
DAD SP
PUSH H
CALL sprintf_
POP D
POP D
POP D
LXI H,-62-.2
DAD SP
PUSH H
LXI H,29
PUSH H
LXI H,20
PUSH H
CALL vdp_disp_
POP D
POP D
POP D
.15:
JMP .7
.9:
LDA outer_
MOV L,A
MVI H,0
LXI D,3
XCHG
CALL .lt
JZ .16
LXI H,.1+30
PUSH H
LXI H,2
PUSH H
LXI H,22
PUSH H
CALL vdp_disp_
POP D
POP D
POP D
LXI H,-62-.2
DAD SP
PUSH H
CALL gets_
POP D
.16:
JMP .4
.6:
LXI H,.1+57
PUSH H
LXI H,1
PUSH H
LXI H,22
PUSH H
CALL vdp_disp_
POP D
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,2
CALL .eq
JZ .17
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
MOV E,M
INX H
MOV D,M
PUSH D
CALL atoi_
POP D
PUSH H
LXI H,.1+93
PUSH H
LXI H,-58-.2
DAD SP
PUSH H
CALL sprintf_
POP D
POP D
POP D
LXI H,-62-.2
DAD SP
PUSH H
LXI H,35
PUSH H
LXI H,1
PUSH H
CALL vdp_disp_
POP D
POP D
POP D
.17:
LXI H,charset_
XCHG
LXI H,-65-.2
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,.1+108
PUSH H
LXI H,.1+96
PUSH H
CALL fopen_
POP D
POP D
XCHG
LXI H,-67-.2
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,.1+110
PUSH H
LXI H,-65-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
CALL fprintf_
POP D
POP D
LXI H,0
SHLD index_
JMP .19
.18:
LHLD index_
INX H
SHLD index_
.19:
LHLD index_
LXI D,256
XCHG
CALL .lt
JZ .20
LXI H,.1+163
PUSH H
LXI H,-65-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
CALL fprintf_
POP D
POP D
LHLD index_
PUSH H
LHLD index_
PUSH H
LXI H,-61-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
XCHG
DCX H
MOV E,M
MVI D,0
PUSH D
LXI H,-59-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
XCHG
DCX H
MOV E,M
MVI D,0
PUSH D
LXI H,-57-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
XCHG
DCX H
MOV E,M
MVI D,0
PUSH D
LXI H,-55-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
XCHG
DCX H
MOV E,M
MVI D,0
PUSH D
LXI H,-53-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
XCHG
DCX H
MOV E,M
MVI D,0
PUSH D
LXI H,-51-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
XCHG
DCX H
MOV E,M
MVI D,0
PUSH D
LXI H,-49-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
XCHG
DCX H
MOV E,M
MVI D,0
PUSH D
LXI H,-47-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
XCHG
DCX H
MOV E,M
MVI D,0
PUSH D
LXI H,.1+169
PUSH H
LXI H,-45-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
CALL fprintf_
XCHG
LXI H,24
DAD SP
SPHL
JMP .18
.20:
LXI H,.1+231
PUSH H
LXI H,-65-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
CALL fprintf_
POP D
POP D
LXI H,-67-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
CALL fclose_
POP D
RET
.2 EQU -71
.1:
DB 78,56,86,73,68,84,83,84,40,100,119,103,41,0,37
DB 99,0,37,48,50,120,0,80,103,32,37,100,47,52,0
DB 32,80,114,101,115,115,32,97,110,121,32,107,101,121,32
DB 116,111,32,99,111,110,116,105,110,117,101,0,69,120,101
DB 99,117,116,105,111,110,32,99,111,109,112,108,101,116,101
DB 44,114,101,116,117,114,110,101,100,32,116,111,32,67,80
DB 47,77,0,37,99,0,110,56,99,104,97,114,115,46,105
DB 110,99,0,119,0,59,32,110,56,99,104,97,114,115,46
DB 105,110,99,32,45,32,97,117,116,111,109,97,116,105,99
DB 97,108,108,121,32,103,101,110,101,114,97,116,101,100,32
DB 98,121,32,110,56,118,105,100,116,115,116,10,0,9,46
DB 68,66,9,0,37,48,51,120,104,44,37,48,51,120,104
DB 44,37,48,51,120,104,44,37,48,51,120,104,44,37,48
DB 51,120,104,44,37,48,51,120,104,44,37,48,51,120,104
DB 44,37,48,51,120,104,9,59,32,48,120,37,48,50,120
DB 40,37,100,41,10,0,59,32,101,111,102,32,45,32,110
DB 56,99,104,97,114,115,46,105,110,99,10,0
extrn fclose_
extrn fprintf_
extrn atoi_
extrn gets_
extrn sprintf_
extrn vdp_load_
extrn vdp_colo_
extrn vdp_pgt_
extrn vdp_pnt_
extrn vdp_mode_
extrn vdp_setr_
extrn vdp_clr1_
extrn vdp_main_
extrn vdp_disp_
extrn charset_
extrn fopen_
extrn .eq
extrn .lt
extrn .ml
END


9
branches/dgg/Apps/crossdev/N8VIDTST.BAT

@ -0,0 +1,9 @@
if not exist n8vidtst.asm z80mu cc n8vidtst
if not exist n8vidtst.o z80mu as n8vidtst
if not exist n8chars.asm z80mu cc n8chars
if not exist n8chars.o z80mu as n8chars
if not exist tms9918.asm z80mu cc tms9918
if not exist tms9918.o z80mu as tms9918
if not exist n8vidtst.cpm z80mu ln n8vidtst.o n8chars.o tms9918.o -lc
if not exist n8vidtst.cpm rename n8vidtst.com n8vidtst.cpm
dir n8vidtst.cpm

BIN
branches/dgg/Apps/crossdev/PRINTERS.REL

Binary file not shown.

185
branches/dgg/Apps/crossdev/PUTC.ASM

@ -1,185 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
PUBLIC copyup_
copyup_: lxi d,.2
call csave
LXI H,-32768
XCHG
LXI H,2-.2
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,0
XCHG
LXI H,0-.2
DAD SP
MOV M,E
INX H
MOV M,D
JMP .4
.3:
LXI H,0-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.4:
LXI H,0-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,256
CALL .lt
JZ .5
LXI H,0
XCHG
LXI H,-2-.2
DAD SP
MOV M,E
INX H
MOV M,D
JMP .7
.6:
LXI H,-2-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.7:
LXI H,-2-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,8
CALL .lt
JZ .8
LXI H,0-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
DAD H
DAD H
DAD H
LXI D,7
DAD D
XCHG
LXI H,-2-.2
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .sb
LXI D,charset_
DAD D
MOV E,M
PUSH D
LXI H,4-.2
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
XCHG
DCX H
POP D
MOV M,E
JMP .6
.8:
JMP .3
.5:
RET
.2 EQU -6
PUBLIC main_
main_: lxi d,.9
call csave
CALL copyup_
LXI H,16448
SHLD hregbc_
LXI H,0
SHLD hregde_
LXI H,-32768
SHLD hreghl_
CALL diagnose_
LXI H,17472
SHLD hregbc_
LXI H,3084
SHLD hregde_
CALL diagnose_
LXI H,0
XCHG
LXI H,2-.9
DAD SP
MOV M,E
INX H
MOV M,D
JMP .11
.10:
LXI H,2-.9
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.11:
LXI H,2-.9
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,600
CALL .lt
JZ .12
LXI H,18240
SHLD hregbc_
LXI H,63
SHLD hregde_
CALL diagnose_
JMP .10
.12:
RET
.9 EQU -2
extrn charset_
extrn diagnose_
extrn hreghl_
extrn hregde_
extrn hregbc_
extrn .lt
extrn .sb
END


20
branches/dgg/Apps/crossdev/README.1ST

@ -1,20 +0,0 @@
This directory has the files that comprise a cross development
environment for building C utility programs.
The program files located here are not current but rather represent
a snapshot from a recent time. If you wanted to compile any of the
current apps from RomWBW, you would have too unpack the sources in
/RomWBW/trunk/Apps/apps-srcs and copy them to this folder, being careful
to usde upper case filenames.
The build is set up in sort of a microsoft-like folder arrangement
with files generated being placed in either the DEBUG or RELEASE folder.
The actual apps for RomWBW are generated directly on CP/M-80- v2.2
using native language tools, it's the "CP/M way".
Have fun,
Douglas Goodall
Santa Maria, CA
douglas_goodall@mac.com

BIN
branches/dgg/Apps/crossdev/REM.REL

Binary file not shown.

246
branches/dgg/Apps/crossdev/REMOTE.ASM

@ -1,246 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
global style_,1
global vdp_rege_,960
global pINFOLIS_,2
global metadata_,128
global szTemp_,128
global linenum_,1
global counter_,1
global outer_,1
global inner_,1
global limit_,1
global index_,2
global line_,2
global ubyte_,1
global bitmask_,1
global row_,2
global bit_,2
global ascii_,2
global bool_,2
global pCNFGDAT_,2
global pSYSCFG_,2
global fd_,2
PUBLIC main_
main_: lxi d,.2
call csave
LXI H,-4096
SHLD hregbc_
LXI H,-16384
SHLD hregde_
CALL diagnose_
LXI H,-16384
SHLD pSYSCFG_
LHLD pSYSCFG_
LXI D,68
DAD D
MOV E,M
MVI D,0
PUSH D
CALL crtinit_
POP D
CALL crtclr_
LXI H,0
PUSH H
CALL vdp_wrvr_
POP D
LXI H,152
PUSH H
CALL in_
POP D
LXI H,152
PUSH H
CALL in_
POP D
LXI H,0
SHLD line_
JMP .4
.3:
LHLD line_
INX H
SHLD line_
.4:
LHLD line_
LXI D,24
XCHG
CALL .ul
JZ .5
LXI H,0
PUSH H
LHLD line_
INX H
PUSH H
CALL crtlc_
POP D
POP D
LHLD line_
INX H
PUSH H
LXI H,.1+0
PUSH H
CALL printf_
POP D
POP D
LXI H,0
XCHG
LXI H,3-.2
DAD SP
MOV M,E
JMP .7
.6:
LXI H,3-.2
DAD SP
PUSH H
MOV L,M
INX H
XCHG
POP H
MOV M,E
.7:
LXI H,3-.2
DAD SP
MOV E,M
MVI D,0
LXI H,40
CALL .lt
JZ .8
LXI H,152
PUSH H
CALL in_
POP D
MOV A,L
STA ubyte_
LDA ubyte_
MOV L,A
MVI H,0
JMP .9
.11:
LXI H,0
MOV A,L
STA ubyte_
JMP .10
.12:
LXI H,0
MOV A,L
STA ubyte_
JMP .10
.13:
LXI H,0
MOV A,L
STA ubyte_
JMP .10
.14:
LXI H,32
MOV A,L
STA ubyte_
JMP .10
.9:
CALL .swt
DW 4
DW 0,.14
DW 9,.13
DW 10,.12
DW 13,.11
DW .10
.10:
lda ubyte_
ora a
JZ .15
LDA ubyte_
MOV L,A
MVI H,0
PUSH H
LXI H,.1+11
PUSH H
CALL printf_
POP D
POP D
.15:
JMP .6
.8:
LXI H,50
PUSH H
LHLD line_
INX H
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.1+14
PUSH H
CALL printf_
POP D
LHLD line_
MOV A,H
ORA L
JNZ .16
LXI H,.1+16
PUSH H
CALL printf_
POP D
.16:
LHLD line_
LXI D,1
CALL .eq
JZ .17
LXI H,.1+43
PUSH H
CALL printf_
POP D
.17:
LHLD line_
LXI D,4
CALL .eq
JZ .18
LXI H,.1+70
PUSH H
CALL printf_
POP D
.18:
LHLD line_
LXI D,5
CALL .eq
JZ .19
LXI H,.1+97
PUSH H
CALL printf_
POP D
.19:
JMP .3
.5:
LXI H,.1+117
PUSH H
CALL printf_
POP D
LXI H,1
SHLD dregbc_
CALL bdoscall_
RET
.2 EQU -1
.1:
DB 108,105,110,101,32,37,50,100,32,124,0,37,99,0,124
DB 0,32,114,101,109,111,116,101,46,99,111,109,32,49,49
DB 47,50,49,47,50,48,49,50,32,100,119,103,0,32,32
DB 32,32,100,105,115,112,108,97,121,32,116,109,115,57,57
DB 49,56,32,115,99,114,101,101,110,0,32,32,32,78,111
DB 116,101,58,32,115,101,109,105,45,103,114,97,112,104,105
DB 99,115,32,110,111,116,0,32,32,32,32,32,32,32,32
DB 32,115,117,112,112,111,114,116,101,100,46,0,32,40,112
DB 114,101,115,115,32,101,110,116,101,114,32,116,111,32,101
DB 120,105,116,41,0
extrn printf_
extrn in_
extrn diagnose_
extrn hregde_
extrn hregbc_
extrn bdoscall_
extrn dregbc_
extrn crtlc_
extrn crtclr_
extrn crtinit_
extrn vdp_wrvr_
extrn .eq
extrn .lt
extrn .ul
END


117
branches/dgg/Apps/crossdev/SECTORIO.ASM

@ -1,117 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
PUBLIC rdsector_
rdsector_: lxi d,.2
call csave
LXI H,-6629
SHLD ireghl_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD iregbc_
LXI H,0
SHLD iregde_
CALL bioscall_
LXI H,-6626
SHLD ireghl_
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD iregbc_
CALL bioscall_
LXI H,-6623
SHLD ireghl_
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD iregbc_
CALL bioscall_
LXI H,-6620
SHLD ireghl_
LXI H,14-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD iregbc_
CALL bioscall_
LXI H,-6617
SHLD ireghl_
CALL bioscall_
LDA irega_
MOV L,A
MVI H,0
RET
.2 EQU 0
PUBLIC wrsector_
wrsector_: lxi d,.3
call csave
LXI H,-6629
SHLD ireghl_
LXI H,8-.3
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD iregbc_
LXI H,0
SHLD iregde_
CALL bioscall_
LXI H,-6626
SHLD ireghl_
LXI H,10-.3
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD iregbc_
CALL bioscall_
LXI H,-6623
SHLD ireghl_
LXI H,12-.3
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD iregbc_
CALL bioscall_
LXI H,-6620
SHLD ireghl_
LXI H,14-.3
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD iregbc_
CALL bioscall_
LXI H,-6614
SHLD ireghl_
LXI H,0
SHLD iregbc_
CALL bioscall_
LDA irega_
MOV L,A
MVI H,0
RET
.3 EQU 0
extrn bioscall_
extrn ireghl_
extrn iregde_
extrn iregbc_
extrn irega_
END


BIN
branches/dgg/Apps/crossdev/SETLABEL.CPM

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/SETLABEL.REL

Binary file not shown.

982
branches/dgg/Apps/crossdev/SYSGEN.ASM

@ -1,982 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
global pDPHMAP_,2
global pDPHVEC_,24
global pINFOLIS_,2
global pDPH_,2
global pDPB_,2
DSEG
public pSYSCFG_
pSYSCFG_:
DW -16384
CSEG
global filespec_,32
global pBUFFER_,2
global szDrive_,32
global szTemp_,128
PUBLIC rdimage_
rdimage_: lxi d,.2
call csave
LXI H,.1+0
PUSH H
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
CALL fopen_
POP D
POP D
XCHG
LXI H,0-.2
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,0-.2
DAD SP
mov a,m
inx h
ora m
JNZ .3
LXI H,0
RET
.3:
LXI H,0-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,14-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,1
PUSH H
LXI H,16-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
CALL fread_
XCHG
LXI H,8
DAD SP
SPHL
LXI H,2-.2
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,0-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
CALL fclose_
POP D
LXI H,2-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
RET
.2 EQU -4
.1:
DB 114,0
PUBLIC strupr_
strupr_: lxi d,.5
call csave
LXI H,0
XCHG
LXI H,2-.5
DAD SP
MOV M,E
INX H
MOV M,D
JMP .7
.6:
LXI H,2-.5
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.7:
LXI H,8-.5
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
CALL strlen_
POP D
PUSH H
LXI H,4-.5
DAD SP
MOV E,M
INX H
MOV D,M
POP H
CALL .lt
JZ .8
LXI H,8-.5
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,2-.5
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
DAD D
MOV E,M
MVI D,0
LXI H,97
CALL .ge
JZ .9
LXI H,8-.5
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,2-.5
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
DAD D
MOV E,M
MVI D,0
LXI H,122
CALL .le
JZ .10
LXI H,8-.5
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,2-.5
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
DAD D
MOV E,M
MVI D,0
LXI H,223
CALL .an
PUSH H
LXI H,10-.5
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,4-.5
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
DAD D
POP D
MOV M,E
.10:
.9:
JMP .6
.8:
RET
.5 EQU -2
PUBLIC sysgen_
sysgen_: lxi d,.11
call csave
.12:
LXI H,0
XCHG
LXI H,18-.11
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .lt
JZ .13
LXI H,14-.11
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,14-.11
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,14-.11
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,14-.11
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
CALL wrsector_
XCHG
LXI H,8
DAD SP
SPHL
LXI H,14-.11
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,14-.11
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,14-.11
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,14-.11
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,65
DAD D
PUSH H
LXI H,.4+0
PUSH H
CALL printf_
XCHG
LXI H,10
DAD SP
SPHL
LXI H,13
PUSH H
LXI H,.4+43
PUSH H
CALL printf_
POP D
POP D
LXI H,128
XCHG
LXI H,14-.11
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
DAD D
XCHG
POP H
MOV M,E
INX H
MOV M,D
LXI H,12-.11
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
LXI H,12-.11
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,16-.11
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .eq
JZ .14
LXI H,10-.11
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
LXI H,0
XCHG
LXI H,12-.11
DAD SP
MOV M,E
INX H
MOV M,D
.14:
LXI H,18-.11
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
DCX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
JMP .12
.13:
LXI H,.4+46
PUSH H
CALL printf_
POP D
LXI H,13
PUSH H
LXI H,.4+87
PUSH H
CALL printf_
POP D
POP D
RET
.11 EQU 0
.4:
DB 100,114,105,118,101,61,37,99,58,44,32,116,114,107,61
DB 37,100,44,32,115,101,99,61,37,51,100,44,32,32,112
DB 116,114,61,48,120,48,37,52,120,32,32,32,0,37,99
DB 0,32,32,32,32,32,32,32,32,32,32,32,32,32,32
DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
DB 32,32,32,32,32,32,32,32,32,32,32,0,37,99,0
PUBLIC main_
main_: lxi d,.16
call csave
LXI H,-4096
SHLD hregbc_
LXI H,-16384
SHLD hregde_
CALL diagnose_
LHLD pSYSCFG_
LXI D,68
DAD D
MOV E,M
MVI D,0
PUSH D
CALL crtinit_
POP D
CALL crtclr_
LXI H,0
PUSH H
LXI H,0
PUSH H
CALL crtlc_
POP D
POP D
LXI H,0
PUSH H
LXI H,0
PUSH H
LXI H,3
PUSH H
LXI H,2
PUSH H
LXI H,2013
PUSH H
LXI H,16
PUSH H
LXI H,1
PUSH H
LXI H,.15+0
PUSH H
CALL printf_
XCHG
LXI H,16
DAD SP
SPHL
LXI H,.15+33
PUSH H
CALL printf_
POP D
LXI H,25
SHLD dregbc_
CALL bdoscall_
LDA drega_
MOV L,A
MVI H,0
XCHG
LXI H,-14-.16
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,-32768
SHLD pBUFFER_
LXI H,1
XCHG
LXI H,8-.16
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .eq
JZ .17
LXI H,0
XCHG
LXI H,-12-.16
DAD SP
MOV M,E
INX H
MOV M,D
JMP .19
.18:
LXI H,-12-.16
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.19:
LXI H,-12-.16
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,12
CALL .lt
JZ .20
LXI H,-6602
SHLD ireghl_
LXI H,-12-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD iregbc_
CALL bioscall_
LHLD iregbc_
LXI D,8
XCHG
CALL .ur
JNZ .21
JMP .20
.21:
JMP .18
.20:
LXI H,-12-.16
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,65
DAD D
PUSH H
LXI H,.15+77
PUSH H
LXI H,filespec_
PUSH H
CALL sprintf_
POP D
POP D
POP D
LXI H,16383
PUSH H
LHLD pBUFFER_
PUSH H
LXI H,filespec_
PUSH H
CALL rdimage_
POP D
POP D
POP D
XCHG
LXI H,0-.16
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,0-.16
DAD SP
mov a,m
inx h
ora m
JNZ .22
LXI H,-12-.16
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,65
DAD D
PUSH H
LXI H,.15+88
PUSH H
LXI H,filespec_
PUSH H
CALL sprintf_
POP D
POP D
POP D
LXI H,16383
PUSH H
LHLD pBUFFER_
PUSH H
LXI H,filespec_
PUSH H
CALL rdimage_
POP D
POP D
POP D
XCHG
LXI H,0-.16
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,0-.16
DAD SP
mov a,m
inx h
ora m
JNZ .23
LXI H,.15+100
PUSH H
CALL printf_
POP D
LXI H,1
PUSH H
CALL exit_
POP D
.23:
.22:
.17:
LXI H,2
XCHG
LXI H,8-.16
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .eq
JZ .24
LXI H,10-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,filespec_
PUSH H
CALL strcpy_
POP D
POP D
LXI H,16383
PUSH H
LHLD pBUFFER_
PUSH H
LXI H,filespec_
PUSH H
CALL rdimage_
POP D
POP D
POP D
XCHG
LXI H,0-.16
DAD SP
MOV M,E
INX H
MOV M,D
.24:
LXI H,3
XCHG
LXI H,8-.16
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .eq
JZ .25
LXI H,10-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,filespec_
PUSH H
CALL strcpy_
POP D
POP D
LXI H,10-.16
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,4
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,szDrive_
PUSH H
CALL strcpy_
POP D
POP D
LXI H,szDrive_
PUSH H
CALL strupr_
POP D
LDA szDrive_
MOV L,A
MVI H,0
LXI D,-65
DAD D
XCHG
LXI H,-14-.16
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,16383
PUSH H
LHLD pBUFFER_
PUSH H
LXI H,filespec_
PUSH H
CALL rdimage_
POP D
POP D
POP D
XCHG
LXI H,0-.16
DAD SP
MOV M,E
INX H
MOV M,D
.25:
LXI H,-6629
SHLD ireghl_
LXI H,-14-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD iregbc_
LXI H,0
SHLD iregde_
CALL bioscall_
LHLD ireghl_
SHLD pDPH_
LHLD pDPH_
LXI D,10
DAD D
MOV E,M
INX H
MOV D,M
XCHG
SHLD pDPB_
LHLD pDPB_
MOV E,M
INX H
MOV D,M
LXI H,-4-.16
DAD SP
MOV M,E
INX H
MOV M,D
LHLD pDPB_
LXI D,13
DAD D
MOV E,M
INX H
MOV D,M
LXI H,-16-.16
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,0
XCHG
LXI H,-6-.16
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,0
XCHG
LXI H,-8-.16
DAD SP
MOV M,E
INX H
MOV M,D
LHLD pBUFFER_
XCHG
LXI H,-146-.16
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,0-.16
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,128
CALL .dv
XCHG
LXI H,-10-.16
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,-16-.16
DAD SP
mov a,m
inx h
ora m
JNZ .26
LXI H,-14-.16
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,65
DAD D
PUSH H
LXI H,.15+142
PUSH H
CALL printf_
POP D
POP D
LXI H,1
PUSH H
CALL exit_
POP D
.26:
LXI H,.15+190
PUSH H
CALL printf_
POP D
LXI H,0-.16
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,filespec_
PUSH H
LXI H,-10-.16
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,65
DAD D
PUSH H
LXI H,.15+242
PUSH H
CALL printf_
XCHG
LXI H,8
DAD SP
SPHL
LXI H,.15+277
PUSH H
CALL printf_
POP D
LXI H,.15+302
PUSH H
CALL printf_
POP D
LXI H,1
SHLD dregbc_
CALL bdoscall_
LDA drega_
MOV L,A
MVI H,0
PUSH H
LXI H,89
POP D
CALL .ne
JZ .27
LXI H,.15+304
PUSH H
CALL printf_
POP D
LXI H,1
PUSH H
CALL exit_
POP D
.27:
LXI H,-10-.16
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,-2-.16
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LHLD pBUFFER_
PUSH H
LXI H,-2-.16
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,2-.16
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,-4-.16
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
CALL sysgen_
XCHG
LXI H,12
DAD SP
SPHL
LXI H,-14-.16
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,65
DAD D
PUSH H
LXI H,.15+350
PUSH H
CALL printf_
POP D
POP D
RET
.16 EQU -152
.15:
DB 83,89,83,71,69,78,46,67,79,77,32,37,100,47,37
DB 100,47,37,100,32,118,37,100,46,37,100,46,37,100,46
DB 37,100,0,32,100,119,103,32,45,32,87,114,105,116,101
DB 32,83,121,115,116,101,109,32,73,109,97,103,101,32,116
DB 111,32,83,116,111,114,97,103,101,32,77,101,100,105,97
DB 10,0,37,99,58,67,80,77,46,83,89,83,0,37,99
DB 58,90,83,89,83,46,83,89,83,0,83,111,114,114,121
DB 44,32,99,111,117,108,100,32,110,111,116,32,114,101,97
DB 100,32,100,101,102,97,117,108,116,32,115,121,115,116,101
DB 109,32,102,105,108,101,0,83,111,114,114,121,44,32,37
DB 99,58,32,68,114,105,118,101,32,100,111,101,115,32,110
DB 111,116,32,104,97,118,101,32,114,101,115,101,114,118,101
DB 100,32,116,114,97,99,107,115,10,0,80,114,101,112,97
DB 114,105,110,103,32,116,111,32,116,114,97,110,115,102,101
DB 114,32,116,104,101,32,67,80,47,77,32,115,121,115,116
DB 101,109,32,105,109,97,103,101,32,116,111,32,116,104,101
DB 32,0,37,99,58,32,100,114,105,118,101,32,102,114,111
DB 109,32,37,115,10,102,105,108,101,32,119,104,105,99,104
DB 32,105,115,32,37,100,0,32,98,121,116,101,115,32,108
DB 111,110,103,44,32,79,75,63,32,40,89,47,110,41,58
DB 32,0,10,0,83,121,115,103,101,110,32,111,112,101,114
DB 97,116,105,111,110,32,99,97,110,99,101,108,108,101,100
DB 32,112,101,114,32,121,111,117,114,32,114,101,113,117,101
DB 115,116,46,10,0,37,99,58,32,100,114,105,118,101,32
DB 115,104,111,117,108,100,32,98,101,32,98,111,111,116,97
DB 98,108,101,32,110,111,119,32,58,45,41,0
extrn strcpy_
extrn exit_
extrn sprintf_
extrn printf_
extrn strlen_
extrn fclose_
extrn fread_
extrn wrsector_
extrn crtlc_
extrn crtclr_
extrn crtinit_
extrn diagnose_
extrn hregde_
extrn hregbc_
extrn bdoscall_
extrn dregbc_
extrn drega_
extrn bioscall_
extrn ireghl_
extrn iregde_
extrn iregbc_
extrn fopen_
extrn .an
extrn .eq
extrn .ne
extrn .lt
extrn .le
extrn .ge
extrn .ur
extrn .dv
END


BIN
branches/dgg/Apps/crossdev/TASM301.EXE

Binary file not shown.

BIN
branches/dgg/Apps/crossdev/TERMINAL.REL

Binary file not shown.

448
branches/dgg/Apps/crossdev/TERMTYPE.ASM

@ -1,448 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
DSEG
public pPriFcb_
pPriFcb_:
DW 92
CSEG
DSEG
public pSecFcb_
pSecFcb_:
DW 108
CSEG
DSEG
public pDefBuf_
pDefBuf_:
DW 128
CSEG
DSEG
public pBIOS_
pBIOS_:
DW -6656
CSEG
global pDPB_,2
global pDPH_,2
global pINFOLIS_,2
global pCNFGDAT_,2
DSEG
public pSYSCFG_
pSYSCFG_:
DW -16384
CSEG
DSEG
public bRun_
bRun_:
DB 1
CSEG
global c_,1
DSEG
public newtt_
newtt_:
DB 255
CSEG
global tt_,1
global i_,2
PUBLIC main_
main_: lxi d,.2
call csave
LXI H,-4096
SHLD hregbc_
LXI H,-16384
SHLD hregde_
CALL diagnose_
LXI H,0
SHLD i_
JMP .4
.3:
LHLD i_
INX H
SHLD i_
.4:
LHLD i_
LXI D,25
XCHG
CALL .lt
JZ .5
LXI H,.1+0
PUSH H
CALL printf_
POP D
JMP .3
.5:
LXI H,0
PUSH H
LXI H,0
PUSH H
LXI H,3
PUSH H
LXI H,2
PUSH H
LXI H,2013
PUSH H
LXI H,16
PUSH H
LXI H,1
PUSH H
LXI H,.1+2
PUSH H
CALL printf_
XCHG
LXI H,16
DAD SP
SPHL
.6:
LDA bRun_
MOV L,A
MVI H,0
PUSH H
LXI H,1
POP D
CALL .eq
JZ .7
LXI H,.1+72
PUSH H
CALL printf_
POP D
LHLD pSYSCFG_
LXI D,68
DAD D
MOV E,M
XCHG
MOV A,L
STA tt_
LDA tt_
MOV L,A
MVI H,0
JMP .8
.10:
LXI H,.1+95
PUSH H
CALL printf_
POP D
JMP .9
.11:
LXI H,.1+143
PUSH H
CALL printf_
POP D
JMP .9
.12:
LXI H,.1+191
PUSH H
CALL printf_
POP D
JMP .9
.13:
LXI H,.1+239
PUSH H
CALL printf_
POP D
JMP .9
.14:
LXI H,.1+287
PUSH H
CALL printf_
POP D
LXI H,.1+306
PUSH H
CALL printf_
POP D
JMP .9
.8:
CALL .swt
DW 4
DW 0,.10
DW 1,.11
DW 2,.12
DW 3,.13
DW .14
.9:
LXI H,0
PUSH H
LXI H,0
PUSH H
LXI H,1
PUSH H
LXI H,5
PUSH H
CALL asmif_
XCHG
LXI H,8
DAD SP
SPHL
LDA xrega_
MOV L,A
MOV A,L
STA c_
LDA c_
MOV L,A
MVI H,0
PUSH H
LXI H,113
POP D
CALL .eq
JZ .15
LXI H,0
MOV A,L
STA bRun_
.15:
LDA c_
MOV L,A
MVI H,0
PUSH H
LXI H,120
POP D
CALL .eq
JZ .16
LXI H,0
MOV A,L
STA bRun_
.16:
LDA c_
MOV L,A
MVI H,0
PUSH H
LXI H,81
POP D
CALL .eq
JZ .17
LXI H,0
MOV A,L
STA bRun_
.17:
LDA c_
MOV L,A
MVI H,0
PUSH H
LXI H,88
POP D
CALL .eq
JZ .18
LXI H,0
MOV A,L
STA bRun_
.18:
LDA tt_
MOV L,A
MVI H,0
JMP .19
.21:
LDA c_
MOV L,A
MVI H,0
JMP .22
.24:
.25:
LXI H,1
MOV A,L
STA newtt_
JMP .23
.26:
.27:
LXI H,2
MOV A,L
STA newtt_
JMP .23
.28:
.29:
LXI H,3
MOV A,L
STA newtt_
JMP .23
.22:
CALL .swt
DW 6
DW 65,.25
DW 86,.29
DW 87,.27
DW 97,.24
DW 118,.28
DW 119,.26
DW .23
.23:
JMP .20
.30:
LDA c_
MOV L,A
MVI H,0
JMP .31
.33:
.34:
LXI H,0
MOV A,L
STA newtt_
JMP .32
.35:
.36:
LXI H,2
MOV A,L
STA newtt_
JMP .32
.37:
.38:
LXI H,3
MOV A,L
STA newtt_
JMP .32
.31:
CALL .swt
DW 6
DW 84,.34
DW 86,.38
DW 87,.36
DW 116,.33
DW 118,.37
DW 119,.35
DW .32
.32:
JMP .20
.39:
LDA c_
MOV L,A
MVI H,0
JMP .40
.42:
.43:
LXI H,0
MOV A,L
STA newtt_
JMP .41
.44:
.45:
LXI H,1
MOV A,L
STA newtt_
JMP .41
.46:
.47:
LXI H,3
MOV A,L
STA newtt_
JMP .41
.40:
CALL .swt
DW 6
DW 65,.45
DW 84,.43
DW 86,.47
DW 97,.44
DW 116,.42
DW 118,.46
DW .41
.41:
JMP .20
.48:
LDA c_
MOV L,A
MVI H,0
JMP .49
.51:
.52:
LXI H,0
MOV A,L
STA newtt_
JMP .50
.53:
.54:
LXI H,1
MOV A,L
STA newtt_
JMP .50
.55:
.56:
LXI H,2
MOV A,L
STA newtt_
JMP .50
.49:
CALL .swt
DW 6
DW 65,.54
DW 84,.52
DW 87,.56
DW 97,.53
DW 116,.51
DW 119,.55
DW .50
.50:
JMP .20
.57:
LXI H,7
PUSH H
LXI H,.1+347
PUSH H
CALL printf_
POP D
POP D
JMP .20
.19:
CALL .swt
DW 4
DW 0,.21
DW 1,.30
DW 2,.39
DW 3,.48
DW .57
.20:
LDA newtt_
MOV L,A
MVI H,0
PUSH H
LXI H,255
POP D
CALL .ne
JZ .58
LDA newtt_
MOV L,A
PUSH H
LHLD pSYSCFG_
LXI D,68
DAD D
POP D
MOV M,E
LXI H,-3840
SHLD hregbc_
LXI H,-16384
SHLD hregde_
CALL diagnose_
.58:
JMP .6
.7:
RET
.2 EQU 0
.1:
DB 10,0,84,69,82,77,84,89,80,69,46,67,79,77,32
DB 37,100,47,37,100,47,37,100,32,37,100,46,37,100,46
DB 37,100,46,37,100,32,100,119,103,32,45,32,68,105,115
DB 112,108,97,121,47,67,104,97,110,103,101,32,84,101,114
DB 109,105,110,97,108,32,84,121,112,101,10,0,10,84,104
DB 101,32,84,101,114,109,105,110,97,108,32,84,121,112,101
DB 32,105,115,32,0,32,84,84,89,44,32,79,112,116,105
DB 111,110,115,58,32,97,40,110,115,105,41,44,32,119,40
DB 121,115,101,41,44,32,118,40,116,53,50,41,44,32,113
DB 40,117,105,116,41,32,63,0,65,78,83,73,44,32,79
DB 112,116,105,111,110,115,58,32,116,40,116,121,41,44,32
DB 32,119,40,121,115,101,41,44,32,118,40,116,53,50,41
DB 44,32,113,40,117,105,116,41,32,63,0,87,89,83,69
DB 44,32,79,112,116,105,111,110,115,58,32,116,40,116,121
DB 41,44,32,32,97,40,110,115,105,41,44,32,118,40,116
DB 53,50,41,44,32,113,40,117,105,116,41,32,63,0,86
DB 84,53,50,44,32,79,112,116,105,111,110,115,58,32,116
DB 40,116,121,41,44,32,32,97,40,110,115,105,41,44,32
DB 119,40,121,115,101,41,44,32,113,40,117,105,116,41,32
DB 63,0,85,110,107,110,111,119,110,44,32,79,112,116,105
DB 111,110,115,58,32,0,116,40,116,121,41,44,32,32,97
DB 40,110,115,105,41,44,32,119,40,121,115,101,41,44,32
DB 118,40,116,53,50,41,44,32,113,40,117,105,116,41,32
DB 63,0,37,99,0
extrn printf_
extrn asmif_
extrn xrega_
extrn diagnose_
extrn hregde_
extrn hregbc_
extrn .eq
extrn .ne
extrn .lt
END


1463
branches/dgg/Apps/crossdev/TMS9918.ASM

File diff suppressed because it is too large

10
branches/dgg/Apps/crossdev/TMSSTAT.BAT

@ -0,0 +1,10 @@
rem tmsstat.bat 2/15/2013 dwg - build tmsstat.cpm using native tools
if not exist tmsstat.asm z80mu cc tmsstat
if not exist tmsstat.o z80mu as tmsstat
if not exist n8chars.asm z80mu cc n8chars
if not exist n8chars.o z80mu as n8chars
if not exist tms9918.asm z80mu cc tms9918
if not exist tms9918.o z80mu as tms9918
if not exist tmsstat.cpm z80mu ln tmsstat.o n8chars.o tms9918.o -lc
if not exist tmsstat.cpm rename tmsstat.com tmsstat.cpm

500
branches/dgg/Apps/crossdev/VIDEO.ASM

@ -1,500 +0,0 @@
extrn .begin,.chl,.swt
extrn csave,cret,.move
PUBLIC vdaini_
vdaini_: lxi d,.2
call csave
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,16384
CALL .or
SHLD hregbc_
LHLD hregbc_
PUSH H
LXI H,.1+0
PUSH H
CALL printf_
POP D
POP D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD hregde_
LHLD hregde_
PUSH H
LXI H,.1+17
PUSH H
CALL printf_
POP D
POP D
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD hreghl_
LHLD hreghl_
PUSH H
LXI H,.1+34
PUSH H
CALL printf_
POP D
POP D
CALL diagnose_
LDA hrega_
MOV L,A
MVI H,0
PUSH H
LXI H,.1+51
PUSH H
CALL printf_
POP D
POP D
LDA hrega_
MOV L,A
MVI H,0
RET
.2 EQU 0
.1:
DB 104,114,101,103,98,99,32,61,32,48,120,37,48,52,120
DB 10,0,104,114,101,103,100,101,32,61,32,48,120,37,48
DB 52,120,10,0,104,114,101,103,104,108,32,61,32,48,120
DB 37,48,52,120,10,0,86,68,65,73,78,73,32,99,97
DB 108,108,101,100,44,32,114,101,116,117,114,110,32,99,111
DB 100,101,32,119,97,115,32,48,120,37,48,50,120,10,0
PUBLIC bitlook_
bitlook_: lxi d,.4
call csave
LXI H,-32768
XCHG
LXI H,2-.4
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,0
XCHG
LXI H,0-.4
DAD SP
MOV M,E
INX H
MOV M,D
JMP .6
.5:
LXI H,0-.4
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.6:
LXI H,0-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,256
CALL .lt
JZ .7
LXI H,0-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,.3+0
PUSH H
CALL printf_
POP D
POP D
LXI H,0
XCHG
LXI H,-2-.4
DAD SP
MOV M,E
INX H
MOV M,D
JMP .9
.8:
LXI H,-2-.4
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.9:
LXI H,-2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,8
CALL .lt
JZ .10
LXI H,2-.4
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
XCHG
DCX H
MOV E,M
MVI D,0
PUSH D
LXI H,.3+16
PUSH H
CALL printf_
POP D
POP D
JMP .8
.10:
LXI H,.3+24
PUSH H
CALL printf_
POP D
JMP .5
.7:
RET
.4 EQU -6
.3:
DB 97,115,99,105,105,32,61,32,48,120,37,48,50,120,32
DB 0,48,120,37,48,50,120,32,0,10,0
PUBLIC vdaqry_
vdaqry_: lxi d,.12
call csave
LXI H,8-.12
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,16640
CALL .or
SHLD hregbc_
LHLD hregbc_
PUSH H
LXI H,.11+0
PUSH H
CALL printf_
POP D
POP D
LXI H,10-.12
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD hreghl_
LHLD hreghl_
LXI D,-32768
CALL .ne
JZ .13
LXI H,.11+17
PUSH H
CALL printf_
POP D
.13:
CALL diagnose_
LDA hrega_
MOV L,A
MVI H,0
PUSH H
LXI H,.11+43
PUSH H
CALL printf_
POP D
POP D
LHLD hregbc_
LXI D,255
CALL .an
PUSH H
LXI H,.11+83
PUSH H
CALL printf_
POP D
POP D
LHLD hregde_
LXI D,8
XCHG
CALL .ur
PUSH H
LHLD hregde_
LXI D,8
XCHG
CALL .ur
PUSH H
LXI H,.11+123
PUSH H
CALL printf_
POP D
POP D
POP D
LHLD hregde_
LXI D,255
CALL .an
PUSH H
LHLD hregde_
LXI D,255
CALL .an
PUSH H
LXI H,.11+167
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,10-.12
DAD SP
mov a,m
inx h
ora m
JZ .14
LXI H,.11+211
PUSH H
CALL printf_
POP D
CALL bitlook_
.14:
LDA hrega_
MOV L,A
MVI H,0
RET
.12 EQU 0
.11:
DB 104,114,101,103,98,99,32,61,32,48,120,37,48,52,120
DB 10,0,118,100,97,113,114,121,32,115,97,121,115,32,104
DB 108,32,33,61,32,48,120,56,48,48,48,10,0,86,68
DB 65,81,82,89,32,99,97,108,108,101,100,44,32,115,116
DB 97,116,117,115,32,32,32,32,32,32,32,119,97,115,32
DB 48,120,37,48,50,120,10,0,32,32,32,32,32,32,32
DB 32,32,32,32,32,32,32,32,118,105,100,101,111,32,109
DB 111,100,101,32,32,32,119,97,115,32,48,120,37,48,50
DB 120,10,0,32,32,32,32,32,32,32,32,32,32,32,32
DB 32,32,32,114,111,119,32,99,111,117,110,116,32,32,32
DB 32,119,97,115,32,48,120,37,48,50,120,40,37,100,41
DB 10,0,32,32,32,32,32,32,32,32,32,32,32,32,32
DB 32,32,99,111,108,117,109,110,32,99,111,117,110,116,32
DB 119,97,115,32,48,120,37,48,50,120,40,37,100,41,10
DB 0,118,100,97,113,114,121,32,99,97,108,108,101,100,32
DB 119,105,116,104,32,98,105,116,109,97,112,32,112,111,105
DB 110,116,101,114,10,0
PUBLIC main_
main_: lxi d,.16
call csave
LXI H,.15+0
PUSH H
CALL printf_
POP D
LXI H,0
PUSH H
LXI H,0
PUSH H
LXI H,64
PUSH H
CALL vdaini_
POP D
POP D
POP D
XCHG
LXI H,-3-.16
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,-3-.16
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,-1-.16
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,.15+33
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,-32768
PUSH H
LXI H,64
PUSH H
CALL vdaqry_
POP D
POP D
XCHG
LXI H,-3-.16
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,-3-.16
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,-1-.16
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,.15+77
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,-32768
XCHG
LXI H,2-.16
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,0
XCHG
LXI H,-1-.16
DAD SP
MOV M,E
INX H
MOV M,D
JMP .18
.17:
LXI H,-1-.16
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
.18:
LXI H,-1-.16
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,2048
CALL .lt
JZ .19
LXI H,2-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
MOV E,M
LXI H,1-.16
DAD SP
MOV M,E
LXI H,1-.16
DAD SP
MOV E,M
MVI D,0
LXI H,255
CALL .xr
XCHG
LXI H,1-.16
DAD SP
MOV M,E
LXI H,1-.16
DAD SP
MOV E,M
PUSH D
LXI H,4-.16
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
POP D
MOV M,E
LXI H,2-.16
DAD SP
PUSH H
MOV A,M
INX H
MOV H,M
MOV L,A
INX H
XCHG
POP H
MOV M,E
INX H
MOV M,D
JMP .17
.19:
LXI H,-32768
PUSH H
LXI H,0
PUSH H
LXI H,64
PUSH H
CALL vdaini_
POP D
POP D
POP D
RET
.16 EQU -7
.15:
DB 118,105,100,101,111,46,99,111,109,40,99,41,32,49,49
DB 47,49,53,47,50,48,49,50,32,100,119,103,32,45,32
DB 10,10,0,115,116,97,116,117,115,32,114,101,116,117,114
DB 110,101,100,32,102,114,111,109,32,118,100,97,105,110,105
DB 32,119,97,115,32,48,120,37,48,52,120,40,37,100,41
DB 10,0,115,116,97,116,117,115,32,114,101,116,117,114,110
DB 101,100,32,102,114,111,109,32,118,100,97,113,114,121,32
DB 119,97,115,32,48,120,37,48,52,120,40,37,100,41,10
DB 0
extrn printf_
extrn diagnose_
extrn hreghl_
extrn hregde_
extrn hregbc_
extrn hrega_
extrn .or
extrn .xr
extrn .an
extrn .ne
extrn .lt
extrn .ur
END


2233
branches/dgg/Apps/crossdev/VIEW.ASM

File diff suppressed because it is too large

4
branches/dgg/Apps/crossdev/XTRAAPPS.BAT

@ -0,0 +1,4 @@
rem xtraapps.bat 2/16/2013 dwg - build extra applicastions
if not exist n8vidtst.cpm call n8vidtst.bat
if not exist tmsstat.cpm call tmsstat.bat
Loading…
Cancel
Save