diff --git a/branches/s100/Apps/crossdev/2DRIVE.C b/branches/s100/Apps/crossdev/2DRIVE.C index c80e722d..3e7e8b91 100644 --- a/branches/s100/Apps/crossdev/2DRIVE.C +++ b/branches/s100/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); } - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/ACCESS.CPM b/branches/s100/Apps/crossdev/ACCESS.CPM deleted file mode 100644 index dbf6b878..00000000 Binary files a/branches/s100/Apps/crossdev/ACCESS.CPM and /dev/null differ diff --git a/branches/s100/Apps/crossdev/ACCESS.REL b/branches/s100/Apps/crossdev/ACCESS.REL deleted file mode 100644 index 0b69846a..00000000 Binary files a/branches/s100/Apps/crossdev/ACCESS.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/ASMIFACE.O b/branches/s100/Apps/crossdev/ASMIFACE.O deleted file mode 100644 index fa0de31b..00000000 Binary files a/branches/s100/Apps/crossdev/ASMIFACE.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/ASMIFACE.REL b/branches/s100/Apps/crossdev/ASMIFACE.REL deleted file mode 100644 index fa0de31b..00000000 Binary files a/branches/s100/Apps/crossdev/ASMIFACE.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/BANNER.REL b/branches/s100/Apps/crossdev/BANNER.REL deleted file mode 100644 index e3566c2b..00000000 Binary files a/branches/s100/Apps/crossdev/BANNER.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/BDOSCALL.O b/branches/s100/Apps/crossdev/BDOSCALL.O deleted file mode 100644 index ce37563d..00000000 Binary files a/branches/s100/Apps/crossdev/BDOSCALL.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/BDOSCALL.REL b/branches/s100/Apps/crossdev/BDOSCALL.REL deleted file mode 100644 index ce37563d..00000000 Binary files a/branches/s100/Apps/crossdev/BDOSCALL.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/BIOSCALL.O b/branches/s100/Apps/crossdev/BIOSCALL.O deleted file mode 100644 index 9a6a9fba..00000000 Binary files a/branches/s100/Apps/crossdev/BIOSCALL.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/BIOSCALL.REL b/branches/s100/Apps/crossdev/BIOSCALL.REL deleted file mode 100644 index 9a6a9fba..00000000 Binary files a/branches/s100/Apps/crossdev/BIOSCALL.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/CBANNER.ASM b/branches/s100/Apps/crossdev/CBANNER.ASM deleted file mode 100644 index 7648636c..00000000 --- a/branches/s100/Apps/crossdev/CBANNER.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/CBANNER.O b/branches/s100/Apps/crossdev/CBANNER.O deleted file mode 100644 index 5759d5a0..00000000 Binary files a/branches/s100/Apps/crossdev/CBANNER.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/CHARS.ASM b/branches/s100/Apps/crossdev/CHARS.ASM deleted file mode 100644 index 47bae2f6..00000000 --- a/branches/s100/Apps/crossdev/CHARS.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/CLEAN.BAT b/branches/s100/Apps/crossdev/CLEAN.BAT new file mode 100644 index 00000000..0d83b8e4 --- /dev/null +++ b/branches/s100/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 diff --git a/branches/s100/Apps/crossdev/CLEAR.ASM b/branches/s100/Apps/crossdev/CLEAR.ASM deleted file mode 100644 index 261b3d1f..00000000 --- a/branches/s100/Apps/crossdev/CLEAR.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/CLOGICAL.ASM b/branches/s100/Apps/crossdev/CLOGICAL.ASM deleted file mode 100644 index 017c74b6..00000000 --- a/branches/s100/Apps/crossdev/CLOGICAL.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/CLOGICAL.O b/branches/s100/Apps/crossdev/CLOGICAL.O deleted file mode 100644 index cb9e3a5c..00000000 Binary files a/branches/s100/Apps/crossdev/CLOGICAL.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/CMEMORY.O b/branches/s100/Apps/crossdev/CMEMORY.O deleted file mode 100644 index d58456b5..00000000 Binary files a/branches/s100/Apps/crossdev/CMEMORY.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/METADATA.C b/branches/s100/Apps/crossdev/CMETADAT.C similarity index 100% rename from branches/s100/Apps/crossdev/METADATA.C rename to branches/s100/Apps/crossdev/CMETADAT.C diff --git a/branches/s100/Apps/crossdev/CNAMEPT1.ASM b/branches/s100/Apps/crossdev/CNAMEPT1.ASM deleted file mode 100644 index 98b7e2d6..00000000 --- a/branches/s100/Apps/crossdev/CNAMEPT1.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/CNAMEPT1.O b/branches/s100/Apps/crossdev/CNAMEPT1.O deleted file mode 100644 index 30243fe5..00000000 Binary files a/branches/s100/Apps/crossdev/CNAMEPT1.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/CNAMEPT2.ASM b/branches/s100/Apps/crossdev/CNAMEPT2.ASM deleted file mode 100644 index a8280c90..00000000 --- a/branches/s100/Apps/crossdev/CNAMEPT2.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/CNAMEPT2.O b/branches/s100/Apps/crossdev/CNAMEPT2.O deleted file mode 100644 index ad28d6bb..00000000 Binary files a/branches/s100/Apps/crossdev/CNAMEPT2.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/CNAMEPT3.ASM b/branches/s100/Apps/crossdev/CNAMEPT3.ASM deleted file mode 100644 index 1d77ae04..00000000 --- a/branches/s100/Apps/crossdev/CNAMEPT3.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/CNAMEPT3.O b/branches/s100/Apps/crossdev/CNAMEPT3.O deleted file mode 100644 index 4d1a1517..00000000 Binary files a/branches/s100/Apps/crossdev/CNAMEPT3.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/CNAMEPT4.ASM b/branches/s100/Apps/crossdev/CNAMEPT4.ASM deleted file mode 100644 index 437a4620..00000000 --- a/branches/s100/Apps/crossdev/CNAMEPT4.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/CNAMEPT4.O b/branches/s100/Apps/crossdev/CNAMEPT4.O deleted file mode 100644 index 50309b57..00000000 Binary files a/branches/s100/Apps/crossdev/CNAMEPT4.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/COREAPPS.BAK b/branches/s100/Apps/crossdev/COREAPPS.BAK index 5ad6bb86..18062749 100644 --- a/branches/s100/Apps/crossdev/COREAPPS.BAK +++ b/branches/s100/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 diff --git a/branches/s100/Apps/crossdev/COREAPPS.BAT b/branches/s100/Apps/crossdev/COREAPPS.BAT index bdd9ddea..e7c06b5f 100644 --- a/branches/s100/Apps/crossdev/COREAPPS.BAT +++ b/branches/s100/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 diff --git a/branches/s100/Apps/crossdev/CPMNAME.ASM b/branches/s100/Apps/crossdev/CPMNAME.ASM deleted file mode 100644 index d4b2fd0c..00000000 --- a/branches/s100/Apps/crossdev/CPMNAME.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/CPMNAME.O b/branches/s100/Apps/crossdev/CPMNAME.O deleted file mode 100644 index 07068550..00000000 Binary files a/branches/s100/Apps/crossdev/CPMNAME.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/CTERMCAP.ASM b/branches/s100/Apps/crossdev/CTERMCAP.ASM deleted file mode 100644 index 50ae771d..00000000 --- a/branches/s100/Apps/crossdev/CTERMCAP.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/CTERMCAP.O b/branches/s100/Apps/crossdev/CTERMCAP.O deleted file mode 100644 index f6da9622..00000000 Binary files a/branches/s100/Apps/crossdev/CTERMCAP.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/CVT2H.C b/branches/s100/Apps/crossdev/CVT2H.C index 4db57680..0ecdc136 100644 --- a/branches/s100/Apps/crossdev/CVT2H.C +++ b/branches/s100/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); } - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/DIAGNOSE.O b/branches/s100/Apps/crossdev/DIAGNOSE.O deleted file mode 100644 index eb1ff811..00000000 Binary files a/branches/s100/Apps/crossdev/DIAGNOSE.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/DIAGNOSE.REL b/branches/s100/Apps/crossdev/DIAGNOSE.REL deleted file mode 100644 index eb1ff811..00000000 Binary files a/branches/s100/Apps/crossdev/DIAGNOSE.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/EDITOR.EXE b/branches/s100/Apps/crossdev/EDITOR.EXE new file mode 100644 index 00000000..ee7637fe Binary files /dev/null and b/branches/s100/Apps/crossdev/EDITOR.EXE differ diff --git a/branches/s100/Apps/crossdev/FINDFILE.BAK b/branches/s100/Apps/crossdev/FINDFILE.BAK deleted file mode 100644 index 7d480a47..00000000 --- a/branches/s100/Apps/crossdev/FINDFILE.BAK +++ /dev/null @@ -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 - diff --git a/branches/s100/Apps/crossdev/FINDFILE.REL b/branches/s100/Apps/crossdev/FINDFILE.REL deleted file mode 100644 index cc901d12..00000000 Binary files a/branches/s100/Apps/crossdev/FINDFILE.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/FLIP.ASM b/branches/s100/Apps/crossdev/FLIP.ASM deleted file mode 100644 index bfd5cb5b..00000000 --- a/branches/s100/Apps/crossdev/FLIP.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/FORM.ASM b/branches/s100/Apps/crossdev/FORM.ASM deleted file mode 100644 index e2f63568..00000000 --- a/branches/s100/Apps/crossdev/FORM.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/HBIOS.REL b/branches/s100/Apps/crossdev/HBIOS.REL deleted file mode 100644 index b47b7c7d..00000000 Binary files a/branches/s100/Apps/crossdev/HBIOS.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/IDENTITY.REL b/branches/s100/Apps/crossdev/IDENTITY.REL deleted file mode 100644 index b451b042..00000000 Binary files a/branches/s100/Apps/crossdev/IDENTITY.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/LABELIB.REL b/branches/s100/Apps/crossdev/LABELIB.REL deleted file mode 100644 index 8b45cf00..00000000 Binary files a/branches/s100/Apps/crossdev/LABELIB.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/MAP.ASM b/branches/s100/Apps/crossdev/MAP.ASM deleted file mode 100644 index 35aa6305..00000000 --- a/branches/s100/Apps/crossdev/MAP.ASM +++ /dev/null @@ -1,1649 +0,0 @@ - extrn .begin,.chl,.swt - extrn csave,cret,.move - global pINFOLIS_,2 - global pDPHMAP_,2 - global pDPHVEC_,24 - global metadata_,128 - global pBIOS_,2 - global pDPH_,2 - global pCNFGDAT_,2 - global pSYSCFG_,2 - global devunit_,2 - global dev_,2 - global unit_,2 - global currlu_,2 - global numlu_,2 - global drivenum_,2 - global drive_,2 - global deflu_,2 - global szTemp_,128 - PUBLIC readsec_ -readsec_: 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 haslu_ -haslu_: lxi d,.3 - call csave - LXI H,8-.3 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL lugnum_ - POP D - PUSH H - LXI H,0 - POP D - XCHG - CALL .lt - JZ .4 - LXI H,1 - RET -.4: - LXI H,0 - RET -.3 EQU 0 - PUBLIC dispdph_ -dispdph_: lxi d,.5 - call csave - LXI H,-6602 - SHLD ireghl_ - LXI H,12-.5 - DAD SP - MOV E,M - MVI D,0 - LXI H,-65 - DAD D - SHLD iregbc_ - CALL bioscall_ - LDA irega_ - MOV L,A - MVI H,0 - PUSH H - LXI H,1 - POP D - CALL .eq - JZ .6 - RET -.6: - LXI H,10-.5 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,10-.5 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL crtlc_ - POP D - POP D - LXI H,12-.5 - DAD SP - MOV E,M - MVI D,0 - PUSH D - LXI H,.1+0 - PUSH H - CALL printf_ - POP D - POP D - LXI H,12-.5 - DAD SP - MOV E,M - MVI D,0 - LXI H,-65 - DAD D - PUSH H - CALL lugdu_ - POP D - SHLD devunit_ - LHLD devunit_ - LXI D,240 - CALL .an - SHLD dev_ - LHLD devunit_ - LXI D,15 - CALL .an - SHLD unit_ - LXI H,12-.5 - DAD SP - MOV E,M - MVI D,0 - LXI H,-65 - DAD D - PUSH H - CALL lugcur_ - POP D - SHLD currlu_ - LHLD dev_ - JMP .7 -.9: - LHLD unit_ - MOV A,H - ORA L - JNZ .10 - LXI H,.1+5 - PUSH H - CALL printf_ - POP D -.10: - LXI H,1 - XCHG - LHLD unit_ - CALL .eq - JZ .11 - LXI H,.1+9 - PUSH H - CALL printf_ - POP D -.11: - JMP .8 -.12: - LHLD unit_ - PUSH H - LXI H,.1+13 - PUSH H - CALL printf_ - POP D - POP D - JMP .8 -.13: - LHLD unit_ - PUSH H - LXI H,.1+18 - PUSH H - CALL printf_ - POP D - POP D - JMP .8 -.14: - LHLD unit_ - PUSH H - LXI H,.1+24 - PUSH H - CALL printf_ - POP D - POP D - JMP .8 -.15: - LHLD unit_ - PUSH H - LXI H,.1+32 - PUSH H - CALL printf_ - POP D - POP D - JMP .8 -.16: - LHLD unit_ - PUSH H - LXI H,.1+40 - PUSH H - CALL printf_ - POP D - POP D - JMP .8 -.17: - LHLD unit_ - PUSH H - LXI H,.1+45 - PUSH H - CALL printf_ - POP D - POP D - JMP .8 -.18: - LHLD unit_ - PUSH H - LXI H,.1+53 - PUSH H - CALL printf_ - POP D - POP D - JMP .8 -.19: - LHLD unit_ - PUSH H - LXI H,.1+61 - PUSH H - CALL printf_ - POP D - POP D - JMP .8 -.20: - LXI H,.1+68 - PUSH H - CALL printf_ - POP D - JMP .8 -.7: - CALL .swt - DW 9 - DW 0,.9 - DW 16,.12 - DW 32,.13 - DW 48,.14 - DW 64,.15 - DW 80,.16 - DW 96,.17 - DW 112,.18 - DW 128,.19 - DW .20 -.8: - LXI H,14-.5 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,16 - DAD D - MOV E,M - MVI D,0 - PUSH D - LXI H,76 - POP D - CALL .eq - JZ .21 - LXI H,14-.5 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,17 - DAD D - MOV E,M - MVI D,0 - PUSH D - LXI H,85 - POP D - CALL .eq - JZ .22 - LHLD currlu_ - PUSH H - LXI H,.1+72 - PUSH H - CALL printf_ - POP D - POP D -.22: -.21: - RET -.5 EQU 0 -.1: - DB 37,99,58,32,0,82,79,77,0,82,65,77,0,70,68 - DB 37,100,0,73,68,69,37,100,0,65,84,65,80,73,37 - DB 100,0,80,80,73,68,69,37,100,0,83,68,37,100,0 - DB 80,82,80,83,68,37,100,0,80,80,80,83,68,37,100 - DB 0,72,68,83,75,37,100,0,85,78,75,0,45,76,85 - DB 37,100,0 - PUBLIC main_ -main_: lxi d,.24 - call csave - LXI H,8-.24 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,3 - CALL .eq - JZ .25 - LXI H,10-.24 - 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,-43-.24 - DAD SP - PUSH H - CALL strcpy_ - POP D - POP D - LXI H,10-.24 - 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,-75-.24 - DAD SP - PUSH H - CALL strcpy_ - POP D - POP D - LXI H,-77-.24 - DAD SP - PUSH H - CALL atoi_ - POP D - XCHG - LXI H,0-.24 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,-45-.24 - DAD SP - PUSH H - CALL strlen_ - POP D - LXI D,2 - CALL .eq - JZ .26 - LXI H,-44-.24 - DAD SP - MOV E,M - MVI D,0 - PUSH D - LXI H,58 - POP D - CALL .eq - JZ .27 - LXI H,-45-.24 - DAD SP - MOV E,M - MVI D,0 - XCHG - JMP .28 -.30: -.31: - LXI H,0-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,0 - PUSH H - CALL luscur_ - POP D - POP D - JMP .29 -.32: -.33: - LXI H,0-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,1 - PUSH H - CALL luscur_ - POP D - POP D - JMP .29 -.34: -.35: - LXI H,0-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,2 - PUSH H - CALL luscur_ - POP D - POP D - JMP .29 -.36: -.37: - LXI H,0-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,3 - PUSH H - CALL luscur_ - POP D - POP D - JMP .29 -.38: -.39: - LXI H,0-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,4 - PUSH H - CALL luscur_ - POP D - POP D - JMP .29 -.40: -.41: - LXI H,0-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,5 - PUSH H - CALL luscur_ - POP D - POP D - JMP .29 -.42: -.43: - LXI H,0-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,6 - PUSH H - CALL luscur_ - POP D - POP D - JMP .29 -.44: -.45: - LXI H,0-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,7 - PUSH H - CALL luscur_ - POP D - POP D - JMP .29 -.46: -.47: - LXI H,0-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,8 - PUSH H - CALL luscur_ - POP D - POP D - JMP .29 -.48: -.49: - LXI H,0-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,9 - PUSH H - CALL luscur_ - POP D - POP D - JMP .29 -.50: -.51: - LXI H,0-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,10 - PUSH H - CALL luscur_ - POP D - POP D - JMP .29 -.52: -.53: - LXI H,0-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,11 - PUSH H - CALL luscur_ - POP D - POP D - JMP .29 -.54: - JMP .29 -.28: - LXI D,-65 - DAD D - XCHG - LXI H,-44 - DAD D - JC .54 - LXI H,.55 - DAD D - DAD D - MOV E,M - INX H - MOV D,M - XCHG - PCHL -.55: DW .31 - DW .33 - DW .35 - DW .37 - DW .39 - DW .41 - DW .43 - DW .45 - DW .47 - DW .49 - DW .51 - DW .53 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .54 - DW .30 - DW .32 - DW .34 - DW .36 - DW .38 - DW .40 - DW .42 - DW .44 - DW .46 - DW .48 - DW .50 - DW .52 -.29: -.27: -.26: - LXI H,1 - PUSH H - CALL exit_ - POP D -.25: - LXI H,-6656 - SHLD pBIOS_ - 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,.23+0 - PUSH H - CALL printf_ - XCHG - LXI H,16 - DAD SP - SPHL - LXI H,.23+32 - PUSH H - CALL printf_ - POP D - LXI H,-6596 - SHLD ireghl_ - CALL bioscall_ - LHLD ireghl_ - SHLD pINFOLIS_ - LXI H,57 - PUSH H - LXI H,7 - PUSH H - CALL crtlc_ - POP D - POP D - LHLD pINFOLIS_ - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,.23+79 - PUSH H - CALL printf_ - POP D - POP D - LHLD pINFOLIS_ - LXI D,10 - DAD D - MOV E,M - INX H - MOV D,M - XCHG - SHLD pDPHMAP_ - LHLD pDPHMAP_ - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,65 - PUSH H - LXI H,5 - PUSH H - LXI H,3 - PUSH H - CALL dispdph_ - XCHG - LXI H,8 - DAD SP - SPHL - LHLD pDPHMAP_ - INX H - INX H - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,66 - PUSH H - LXI H,5 - PUSH H - LXI H,4 - PUSH H - CALL dispdph_ - XCHG - LXI H,8 - DAD SP - SPHL - LHLD pDPHMAP_ - LXI D,4 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,67 - PUSH H - LXI H,5 - PUSH H - LXI H,5 - PUSH H - CALL dispdph_ - XCHG - LXI H,8 - DAD SP - SPHL - LHLD pDPHMAP_ - LXI D,6 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,68 - PUSH H - LXI H,25 - PUSH H - LXI H,3 - PUSH H - CALL dispdph_ - XCHG - LXI H,8 - DAD SP - SPHL - LHLD pDPHMAP_ - LXI D,8 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,69 - PUSH H - LXI H,25 - PUSH H - LXI H,4 - PUSH H - CALL dispdph_ - XCHG - LXI H,8 - DAD SP - SPHL - LHLD pDPHMAP_ - LXI D,10 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,70 - PUSH H - LXI H,25 - PUSH H - LXI H,5 - PUSH H - CALL dispdph_ - XCHG - LXI H,8 - DAD SP - SPHL - LHLD pDPHMAP_ - LXI D,12 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,71 - PUSH H - LXI H,45 - PUSH H - LXI H,3 - PUSH H - CALL dispdph_ - XCHG - LXI H,8 - DAD SP - SPHL - LHLD pDPHMAP_ - LXI D,14 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,72 - PUSH H - LXI H,45 - PUSH H - LXI H,4 - PUSH H - CALL dispdph_ - XCHG - LXI H,8 - DAD SP - SPHL - LHLD pDPHMAP_ - LXI D,16 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,73 - PUSH H - LXI H,45 - PUSH H - LXI H,5 - PUSH H - CALL dispdph_ - XCHG - LXI H,8 - DAD SP - SPHL - LHLD pDPHMAP_ - LXI D,18 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,74 - PUSH H - LXI H,65 - PUSH H - LXI H,3 - PUSH H - CALL dispdph_ - XCHG - LXI H,8 - DAD SP - SPHL - LHLD pDPHMAP_ - LXI D,20 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,75 - PUSH H - LXI H,65 - PUSH H - LXI H,4 - PUSH H - CALL dispdph_ - XCHG - LXI H,8 - DAD SP - SPHL - LHLD pDPHMAP_ - LXI D,22 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,76 - PUSH H - LXI H,65 - PUSH H - LXI H,5 - PUSH H - CALL dispdph_ - XCHG - LXI H,8 - DAD SP - SPHL - LXI H,25 - SHLD dregbc_ - CALL bdoscall_ - LDA drega_ - MOV L,A - MVI H,0 - SHLD drive_ - LXI H,5 - PUSH H - LXI H,7 - PUSH H - CALL crtlc_ - POP D - POP D - LHLD drive_ - LXI D,65 - DAD D - PUSH H - LXI H,.23+100 - PUSH H - CALL printf_ - POP D - POP D - LHLD drive_ - PUSH H - CALL lugdu_ - POP D - SHLD devunit_ - LHLD devunit_ - LXI D,240 - CALL .an - SHLD dev_ - LHLD devunit_ - LXI D,15 - CALL .an - SHLD unit_ - LHLD drive_ - PUSH H - CALL lugcur_ - POP D - SHLD currlu_ - LHLD currlu_ - SHLD deflu_ - LHLD drive_ - PUSH H - CALL lugnum_ - POP D - SHLD numlu_ - LXI H,31 - PUSH H - LXI H,7 - PUSH H - CALL crtlc_ - POP D - POP D - LHLD drive_ - PUSH H - CALL lugnum_ - POP D - PUSH H - LXI H,.23+121 - PUSH H - CALL printf_ - POP D - POP D - LXI H,0 - XCHG - LHLD numlu_ - CALL .lt - JZ .56 - LXI H,4 - PUSH H - LXI H,9 - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.23+142 - PUSH H - CALL printf_ - POP D - LXI H,30 - PUSH H - LXI H,9 - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.23+164 - PUSH H - CALL printf_ - POP D - LXI H,56 - PUSH H - LXI H,9 - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.23+186 - PUSH H - CALL printf_ - POP D - LXI H,0 - XCHG - LXI H,-10-.24 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,-10-.24 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,39 - DAD D - XCHG - LXI H,-12-.24 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,-12-.24 - DAD SP - MOV E,M - INX H - MOV D,M - LHLD numlu_ - CALL .gt - JZ .57 - LHLD numlu_ - XCHG - LXI H,-12-.24 - DAD SP - MOV M,E - INX H - MOV M,D -.57: - LXI H,1 - XCHG - LXI H,-13-.24 - DAD SP - MOV M,E -.58: - LXI H,-13-.24 - DAD SP - MOV E,M - MVI D,0 - PUSH D - LXI H,1 - POP D - CALL .eq - JZ .59 - LXI H,10 - XCHG - LXI H,-8-.24 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,0 - XCHG - LXI H,-4-.24 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,0 - XCHG - LXI H,-6-.24 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .61 -.60: - LXI H,-6-.24 - 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 -.61: - LXI H,-6-.24 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,13 - CALL .lt - JZ .62 - LXI H,0 - PUSH H - LXI H,-6-.24 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,-4-.24 - DAD SP - MOV A,M - INX H - MOV H,M - MOV L,A - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.23+208 - PUSH H - CALL printf_ - POP D - LXI H,.23+237 - PUSH H - CALL printf_ - POP D - JMP .60 -.62: - LXI H,-10-.24 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,2-.24 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .64 -.63: - LXI H,2-.24 - 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 -.64: - LXI H,2-.24 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,-12-.24 - DAD SP - MOV A,M - INX H - MOV H,M - MOV L,A - CALL .lt - JZ .65 - LXI H,2-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - 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 readsec_ - XCHG - LXI H,8 - DAD SP - SPHL - LXI H,0 - MOV A,L - STA metadata_+119 - LDA metadata_+96 - MOV L,A - MVI H,0 - PUSH H - LXI H,1 - POP D - CALL .eq - JZ .66 - LXI H,.23+266 - PUSH H - LXI H,-77-.24 - DAD SP - PUSH H - CALL strcpy_ - POP D - POP D - JMP .67 -.66: - LXI H,.23+268 - PUSH H - LXI H,-77-.24 - DAD SP - PUSH H - CALL strcpy_ - POP D - POP D -.67: - LXI H,-4-.24 - 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 - JMP .68 -.70: - LXI H,3 - PUSH H - LXI H,-6-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL crtlc_ - POP D - POP D - LXI H,metadata_+103 - PUSH H - LXI H,-77-.24 - DAD SP - PUSH H - LXI H,6-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,.23+270 - PUSH H - CALL printf_ - XCHG - LXI H,8 - DAD SP - SPHL - JMP .69 -.71: - LXI H,29 - PUSH H - LXI H,-6-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL crtlc_ - POP D - POP D - LXI H,metadata_+103 - PUSH H - LXI H,-77-.24 - DAD SP - PUSH H - LXI H,6-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,.23+280 - PUSH H - CALL printf_ - XCHG - LXI H,8 - DAD SP - SPHL - JMP .69 -.72: - LXI H,55 - PUSH H - LXI H,-6-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL crtlc_ - POP D - POP D - LXI H,metadata_+103 - PUSH H - LXI H,-77-.24 - DAD SP - PUSH H - LXI H,6-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,.23+290 - PUSH H - CALL printf_ - XCHG - LXI H,8 - DAD SP - SPHL - LXI H,0 - XCHG - LXI H,-4-.24 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,-8-.24 - 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 .69 -.68: - CALL .swt - DW 3 - DW 0,.70 - DW 1,.71 - DW 2,.72 - DW .69 -.69: - JMP .63 -.65: - LXI H,0 - PUSH H - LXI H,23 - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.23+300 - PUSH H - CALL printf_ - POP D - LXI H,1 - SHLD dregbc_ - CALL bdoscall_ - LDA drega_ - MOV L,A - MVI H,0 - JMP .73 -.75: -.76: -.77: -.78: -.79: - LXI H,0 - XCHG - LXI H,-13-.24 - DAD SP - MOV M,E - JMP .74 -.80: -.81: -.82: - LXI H,39 - XCHG - LXI H,-10-.24 - 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,-10-.24 - DAD SP - MOV E,M - INX H - MOV D,M - LHLD numlu_ - CALL .gt - JZ .83 - LXI H,0 - XCHG - LXI H,-10-.24 - DAD SP - MOV M,E - INX H - MOV M,D -.83: - LXI H,-10-.24 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,39 - DAD D - XCHG - LXI H,-12-.24 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,-12-.24 - DAD SP - MOV E,M - INX H - MOV D,M - LHLD numlu_ - CALL .gt - JZ .84 - LHLD numlu_ - XCHG - LXI H,-12-.24 - DAD SP - MOV M,E - INX H - MOV M,D -.84: - JMP .74 -.85: -.86: - LXI H,39 - XCHG - LXI H,-10-.24 - DAD SP - PUSH H - MOV A,M - INX H - MOV H,M - MOV L,A - XCHG - CALL .sb - XCHG - POP H - MOV M,E - INX H - MOV M,D - LXI H,-10-.24 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,0 - CALL .lt - JZ .87 - LXI H,0 - XCHG - LXI H,-10-.24 - DAD SP - MOV M,E - INX H - MOV M,D -.87: - LXI H,-10-.24 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,39 - DAD D - XCHG - LXI H,-12-.24 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,-12-.24 - DAD SP - MOV E,M - INX H - MOV D,M - LHLD numlu_ - CALL .gt - JZ .88 - LHLD numlu_ - XCHG - LXI H,-12-.24 - DAD SP - MOV M,E - INX H - MOV M,D -.88: - JMP .74 -.89: - LXI H,7 - PUSH H - LXI H,.23+340 - PUSH H - CALL printf_ - POP D - POP D - JMP .74 -.73: - CALL .swt - DW 10 - DW 3,.79 - DW 32,.82 - DW 78,.80 - DW 80,.85 - DW 81,.75 - DW 88,.77 - DW 110,.81 - DW 112,.86 - DW 113,.76 - DW 120,.78 - DW .89 -.74: - JMP .58 -.59: - LHLD deflu_ - PUSH H - LHLD drive_ - PUSH H - CALL luscur_ - POP D - POP D -.56: - RET -.24 EQU -83 -.23: - DB 77,65,80,46,67,79,77,32,37,100,47,37,100,47,37 - DB 100,32,118,37,100,46,37,100,46,37,100,32,40,37,100 - DB 41,0,32,100,119,103,32,45,32,83,121,115,116,101,109 - DB 32,83,116,111,114,97,103,101,32,68,114,105,118,101,115 - DB 32,97,110,100,32,76,111,103,105,99,97,108,32,85,110 - DB 105,116,115,0,105,110,102,111,108,105,115,116,46,118,101 - DB 114,115,105,111,110,32,37,100,10,0,67,117,114,114,101 - DB 110,116,32,100,114,105,118,101,32,105,115,32,37,99,58 - DB 0,78,117,109,98,101,114,32,111,102,32,76,85,115,32 - DB 105,115,32,37,100,10,0,76,85,32,80,32,45,45,45 - DB 45,45,76,97,98,101,108,45,45,45,45,45,45,0,76 - DB 85,32,80,32,45,45,45,45,45,76,97,98,101,108,45 - DB 45,45,45,45,45,0,76,85,32,80,32,45,45,45,45 - DB 45,76,97,98,101,108,45,45,45,45,45,45,0,9,9 - DB 9,9,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,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,0,42,0,32,0 - DB 37,51,100,32,37,115,32,37,115,0,37,51,100,32,37 - DB 115,32,37,115,0,37,51,100,32,37,115,32,37,115,0 - DB 79,112,116,105,111,110,115,40,32,78,40,101,120,116,41 - DB 44,32,80,40,114,101,118,105,111,117,115,41,44,32,81 - DB 40,117,105,116,41,32,41,63,32,0,37,99,0 - extrn crtclr_ - extrn crtinit_ - extrn exit_ - extrn strlen_ - extrn atoi_ - extrn strcpy_ - extrn printf_ - extrn crtlc_ - extrn diagnose_ - extrn hregde_ - extrn hregbc_ - extrn lugnum_ - extrn luscur_ - extrn lugcur_ - extrn lugdu_ - extrn bdoscall_ - extrn dregbc_ - extrn drega_ - extrn bioscall_ - extrn ireghl_ - extrn iregde_ - extrn iregbc_ - extrn irega_ - extrn .an - extrn .eq - extrn .lt - extrn .gt - extrn .sb - END - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/MAP.BAK b/branches/s100/Apps/crossdev/MAP.BAK deleted file mode 100644 index c79254e4..00000000 --- a/branches/s100/Apps/crossdev/MAP.BAK +++ /dev/null @@ -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 diff --git a/branches/s100/Apps/crossdev/MAP.O b/branches/s100/Apps/crossdev/MAP.O deleted file mode 100644 index e74abee3..00000000 Binary files a/branches/s100/Apps/crossdev/MAP.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/MEMORY.REL b/branches/s100/Apps/crossdev/MEMORY.REL deleted file mode 100644 index 10a9a0fb..00000000 Binary files a/branches/s100/Apps/crossdev/MEMORY.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/META.ASM b/branches/s100/Apps/crossdev/META.ASM deleted file mode 100644 index 02d485b5..00000000 --- a/branches/s100/Apps/crossdev/META.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/META.BAK b/branches/s100/Apps/crossdev/META.BAK deleted file mode 100644 index 135cad02..00000000 --- a/branches/s100/Apps/crossdev/META.BAK +++ /dev/null @@ -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 diff --git a/branches/s100/Apps/crossdev/META.O b/branches/s100/Apps/crossdev/META.O deleted file mode 100644 index a68bf7c1..00000000 Binary files a/branches/s100/Apps/crossdev/META.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/METADATA.REL b/branches/s100/Apps/crossdev/METADATA.REL deleted file mode 100644 index 3d3284c1..00000000 Binary files a/branches/s100/Apps/crossdev/METADATA.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/METADATA.SYM b/branches/s100/Apps/crossdev/METADATA.SYM index 199bc963..8f8808cf 100644 --- a/branches/s100/Apps/crossdev/METADATA.SYM +++ b/branches/s100/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 diff --git a/branches/s100/Apps/crossdev/MULTIFMT.ASM b/branches/s100/Apps/crossdev/MULTIFMT.ASM deleted file mode 100644 index e4013257..00000000 --- a/branches/s100/Apps/crossdev/MULTIFMT.ASM +++ /dev/null @@ -1,1319 +0,0 @@ - extrn .begin,.chl,.swt - extrn csave,cret,.move - global pINFOLIS_,2 - global metadata_,128 - global pDPB_,2 - global pDPH_,2 - global pSYSCFG_,2 - global gDrvNum_,2 - global gDevUnit_,2 - global gDefLU_,2 - global gCurLU_,2 - global gNumLU_,2 - global gStatus_,2 - global gRetcode_,2 - global g1st_,2 - global gLast_,2 - global gOverAll_,2 - global gTT_,1 - global e5buffer_,128 - PUBLIC dispattr_ -dispattr_: lxi d,.2 - call csave - LXI H,8-.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_ - POP D - POP D - POP D - RET -.2 EQU 0 -.1: - DB 37,99,91,37,115,109,0 - PUBLIC clrline_ -clrline_: lxi d,.4 - call csave - LDA gTT_ - MOV L,A - MVI H,0 - PUSH H - LXI H,0 - POP D - XCHG - CALL .lt - JZ .5 - LXI H,0 - PUSH H - LXI H,2 - PUSH H - CALL crtlc_ - POP D - POP D -.5: - LXI H,13 - PUSH H - LXI H,.3+0 - PUSH H - CALL printf_ - POP D - POP D - LXI H,13 - PUSH H - LXI H,.3+40 - PUSH H - CALL printf_ - POP D - POP D - RET -.4 EQU 0 -.3: - DB 37,99,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,37,99,0 - PUBLIC getinfo_ -getinfo_: lxi d,.7 - call csave - LXI H,-6602 - SHLD ireghl_ - LXI H,8-.7 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - SHLD iregbc_ - CALL bioscall_ - LDA irega_ - MOV L,A - MVI H,0 - SHLD gStatus_ - LHLD iregbc_ - SHLD gDevUnit_ - LHLD iregde_ - SHLD gCurLU_ - LHLD ireghl_ - SHLD gNumLU_ - RET -.7 EQU 0 - PUBLIC clrdir_ -clrdir_: lxi d,.8 - call csave - lda gTT_ - ora a - JNZ .9 - LHLD gDrvNum_ - PUSH H - LXI H,.6+0 - PUSH H - CALL printf_ - POP D - POP D -.9: - LXI H,128 - PUSH H - LXI H,229 - PUSH H - LXI H,e5buffer_ - PUSH H - CALL memset_ - POP D - POP D - POP D - LXI H,-6629 - SHLD ireghl_ - LHLD gDrvNum_ - 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_ - LXI D,7 - DAD D - MOV E,M - INX H - MOV D,M - XCHG - INX H - LXI D,2 - XCHG - CALL .ur - XCHG - LXI H,0-.8 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,0 - PUSH H - LXI H,e5buffer_ - PUSH H - LXI H,0 - PUSH H - LHLD pDPB_ - LXI D,13 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LHLD gDrvNum_ - PUSH H - CALL wrsector_ - XCHG - LXI H,10 - DAD SP - SPHL - LXI H,1 - XCHG - LXI H,2-.8 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .11 -.10: - LXI H,2-.8 - 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-.8 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,0-.8 - DAD SP - MOV A,M - INX H - MOV H,M - MOV L,A - CALL .lt - JZ .12 - LXI H,-1 - XCHG - LXI H,8-.8 - DAD SP - MOV A,M - INX H - MOV H,M - MOV L,A - CALL .ne - JZ .13 - LXI H,10-.8 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - DCX H - PUSH H - LXI H,10-.8 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL crtlc_ - POP D - POP D - LXI H,0-.8 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,2-.8 - DAD SP - MOV A,M - INX H - MOV H,M - MOV L,A - CALL .sb - PUSH H - LXI H,.6+12 - PUSH H - CALL printf_ - POP D - POP D -.13: - LXI H,1 - PUSH H - LXI H,e5buffer_ - PUSH H - LXI H,6-.8 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LHLD pDPB_ - LXI D,13 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LHLD gDrvNum_ - PUSH H - CALL wrsector_ - XCHG - LXI H,10 - DAD SP - SPHL - JMP .10 -.12: - RET -.8 EQU -4 -.6: - DB 99,108,114,100,105,114,40,37,100,41,32,0,37,51,100 - DB 0 - PUBLIC clrmeta_ -clrmeta_: lxi d,.15 - call csave - lda gTT_ - ora a - JNZ .16 - LXI H,8-.15 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,.14+0 - PUSH H - CALL printf_ - POP D - POP D - JMP .17 -.16: - LXI H,12-.15 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - DCX H - PUSH H - LXI H,12-.15 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL crtlc_ - POP D - POP D - LXI H,.14+13 - PUSH H - CALL printf_ - POP D -.17: - LXI H,0 - PUSH H - LXI H,metadata_ - PUSH H - LXI H,11 - PUSH H - LXI H,0 - PUSH H - LHLD gDrvNum_ - PUSH H - CALL rdsector_ - XCHG - LXI H,10 - DAD SP - SPHL - LXI H,-23206 - SHLD metadata_ - LHLD pSYSCFG_ - LXI D,24 - DAD D - MOV E,M - XCHG - MOV A,L - STA metadata_+2 - LXI H,8 - PUSH H - LXI H,.14+17 - PUSH H - LXI H,metadata_+4 - PUSH H - CALL memcpy_ - POP D - POP D - POP D - LHLD gDrvNum_ - MOV A,L - STA metadata_+12 - LXI H,8-.15 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - SHLD metadata_+13 - LXI H,0 - MOV A,L - STA metadata_+96 - LXI H,2 - MOV A,L - STA metadata_+99 - LXI H,3 - MOV A,L - STA metadata_+100 - LXI H,0 - MOV A,L - STA metadata_+101 - LXI H,0 - MOV A,L - STA metadata_+102 - LXI H,16 - PUSH H - LXI H,.14+26 - PUSH H - LXI H,metadata_+103 - PUSH H - CALL memcpy_ - POP D - POP D - POP D - LXI H,36 - MOV A,L - STA metadata_+119 - LXI H,0 - SHLD metadata_+97 - LXI H,0 - PUSH H - LXI H,metadata_ - PUSH H - LXI H,11 - PUSH H - LXI H,0 - PUSH H - LHLD gDrvNum_ - PUSH H - CALL wrsector_ - XCHG - LXI H,10 - DAD SP - SPHL - RET -.15 EQU 0 -.14: - DB 99,108,114,109,101,116,97,40,37,100,41,32,0,109,101 - DB 116,0,109,117,108,116,105,102,109,116,0,91,109,117,108 - DB 116,105,102,111,114,109,97,116,116,101,100,93,0 - PUBLIC physfmt_ -physfmt_: lxi d,.19 - call csave - LXI H,0 - PUSH H - LXI H,metadata_ - PUSH H - LXI H,11 - PUSH H - LXI H,0 - PUSH H - LHLD gDrvNum_ - PUSH H - CALL rdsector_ - XCHG - LXI H,10 - DAD SP - SPHL - LDA metadata_+96 - MOV L,A - MVI H,0 - PUSH H - LXI H,1 - POP D - CALL .eq - JZ .20 - lda gTT_ - ora a - JNZ .21 - LXI H,8-.19 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,.18+0 - PUSH H - CALL printf_ - POP D - POP D -.21: - LHLD gOverAll_ - MOV A,H - ORA L - JNZ .22 - lda gTT_ - ora a - JNZ .23 - LXI H,.18+21 - PUSH H - CALL printf_ - POP D -.23: - LXI H,0 - RET -.22: - lda gTT_ - ora a - JNZ .24 - LXI H,.18+47 - PUSH H - CALL printf_ - POP D -.24: -.20: - lda gTT_ - ora a - JNZ .25 - LXI H,13 - PUSH H - LXI H,10-.19 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,.18+69 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,-1 - PUSH H - LXI H,-1 - PUSH H - LXI H,12-.19 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL clrmeta_ - POP D - POP D - POP D - LXI H,-1 - PUSH H - LXI H,-1 - PUSH H - CALL clrdir_ - POP D - POP D - JMP .26 -.25: - LXI H,8-.19 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,16 - CALL .dv - XCHG - LXI H,2-.19 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,0 - PUSH H - LXI H,4-.19 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,6 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,8-.19 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,240 - CALL .an - PUSH H - LXI H,.18+90 - PUSH H - CALL printf_ - POP D - POP D - LXI H,8-.19 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,15 - CALL .an - XCHG - LXI H,0-.19 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,0-.19 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - DAD H - DAD H - LXI D,9 - DAD D - PUSH H - LXI H,4-.19 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,6 - DAD D - PUSH H - LXI H,12-.19 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL clrmeta_ - POP D - POP D - POP D - LXI H,0-.19 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - DAD H - DAD H - LXI D,9 - DAD D - PUSH H - LXI H,4-.19 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,6 - DAD D - PUSH H - CALL clrdir_ - POP D - POP D - LXI H,0-.19 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - DAD H - DAD H - LXI D,9 - DAD D - PUSH H - LXI H,4-.19 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,6 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.18+97 - PUSH H - CALL printf_ - POP D -.26: - LXI H,1 - RET -.19 EQU -4 -.18: - DB 76,85,37,100,32,105,115,32,112,114,111,116,101,99,116 - DB 101,100,44,32,32,0,79,118,101,114,114,105,100,101,32 - DB 105,115,32,110,111,116,32,101,110,97,98,108,101,100,44 - DB 32,0,79,118,101,114,114,105,100,101,32,105,115,32,101 - DB 110,97,98,108,101,100,44,32,0,70,111,114,109,97,116 - DB 116,105,110,103,32,76,85,35,32,37,51,100,37,99,0 - DB 37,51,100,46,46,46,0,79,75,0 - PUBLIC lformat_ -lformat_: lxi d,.28 - call csave - lda gTT_ - ora a - JZ .29 - LXI H,0 - XCHG - LXI H,2-.28 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .31 -.30: - LXI H,2-.28 - 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 -.31: - LXI H,2-.28 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,16 - CALL .lt - JZ .32 - LXI H,2-.28 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - DAD H - DAD H - LXI D,8 - DAD D - PUSH H - LXI H,4 - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,2-.28 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,.27+0 - PUSH H - CALL printf_ - POP D - POP D - JMP .30 -.32: - LXI H,0 - XCHG - LXI H,2-.28 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .34 -.33: - LXI H,2-.28 - 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 -.34: - LXI H,2-.28 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,16 - CALL .lt - JZ .35 - LXI H,2-.28 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - DAD H - DAD H - LXI D,8 - DAD D - PUSH H - LXI H,5 - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.27+5 - PUSH H - CALL printf_ - POP D - JMP .33 -.35: -.29: - LHLD gDrvNum_ - PUSH H - CALL lugcur_ - POP D - SHLD gDefLU_ - LHLD g1st_ - XCHG - LXI H,2-.28 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .37 -.36: - LXI H,2-.28 - 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 -.37: - LXI H,2-.28 - DAD SP - MOV E,M - INX H - MOV D,M - LHLD gLast_ - CALL .le - JZ .38 - LXI H,2-.28 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LHLD gDrvNum_ - PUSH H - CALL luscur_ - POP D - POP D - LXI H,0 - PUSH H - LXI H,metadata_ - PUSH H - LXI H,11 - PUSH H - LXI H,0 - PUSH H - LHLD gDrvNum_ - PUSH H - CALL rdsector_ - XCHG - LXI H,10 - DAD SP - SPHL - LDA metadata_+96 - MOV L,A - MVI H,0 - PUSH H - LXI H,1 - POP D - CALL .eq - JZ .39 - LXI H,1 - XCHG - LHLD gOverAll_ - CALL .eq - JZ .40 - LXI H,2-.28 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL physfmt_ - POP D -.40: - JMP .41 -.39: - LXI H,2-.28 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL physfmt_ - POP D -.41: - JMP .36 -.38: - LHLD gDefLU_ - PUSH H - LHLD gDrvNum_ - PUSH H - CALL luscur_ - POP D - POP D - RET -.28 EQU -2 -.27: - DB 43,37,50,100,0,45,45,45,0 - PUBLIC dispinfo_ -dispinfo_: lxi d,.43 - call csave - LXI H,1 - XCHG - LHLD gRetcode_ - CALL .eq - JZ .44 - LXI H,1 - RET -.44: - LHLD gNumLU_ - MOV A,H - ORA L - JNZ .45 - LXI H,1 - RET -.45: - LHLD gDrvNum_ - LXI D,65 - DAD D - PUSH H - LXI H,.42+0 - PUSH H - CALL printf_ - POP D - POP D - LHLD gCurLU_ - PUSH H - LXI H,.42+13 - PUSH H - CALL printf_ - POP D - POP D - LHLD gNumLU_ - PUSH H - LXI H,.42+32 - PUSH H - CALL printf_ - POP D - POP D - LHLD gDevUnit_ - LXI D,8 - XCHG - CALL .rs - LXI D,240 - CALL .an - JMP .46 -.48: - LXI H,.42+55 - PUSH H - CALL printf_ - POP D - JMP .47 -.49: - LXI H,.42+68 - PUSH H - CALL printf_ - POP D - JMP .47 -.50: - LHLD gDevUnit_ - PUSH H - LXI H,.42+83 - PUSH H - CALL printf_ - POP D - POP D - JMP .47 -.46: - CALL .swt - DW 2 - DW 32,.48 - DW 64,.49 - DW .50 -.47: - CALL clrline_ - LXI H,.42+106 - PUSH H - CALL printf_ - POP D - LXI H,1 - SHLD dregbc_ - CALL bdoscall_ - LDA drega_ - MOV L,A - MVI H,0 - JMP .51 -.53: -.54: - LXI H,1 - RET -.55: - LXI H,0 - RET -.51: - CALL .swt - DW 2 - DW 89,.53 - DW 121,.54 - DW .55 -.52: - RET -.43 EQU 0 -.42: - DB 10,68,114,105,118,101,32,37,99,58,44,32,0,67,117 - DB 114,114,101,110,116,32,76,85,32,105,115,32,37,100,44 - DB 32,0,78,117,109,98,101,114,32,111,102,32,76,85,39 - DB 115,32,105,115,32,37,100,44,32,0,68,114,105,118,101 - DB 32,105,115,32,73,68,69,0,68,114,105,118,101,32,105 - DB 115,32,80,80,73,68,69,0,68,114,105,118,101,32,105 - DB 115,32,85,110,107,110,111,119,110,33,33,40,37,120,41 - DB 0,87,111,117,108,100,32,121,111,117,32,108,105,107,101 - DB 32,116,111,32,102,111,114,109,97,116,32,116,104,101,32 - DB 108,111,103,105,99,97,108,32,117,110,105,116,115,32,111 - DB 110,32,116,104,105,115,32,100,114,105,118,101,40,89,47 - DB 110,41,63,0 - PUBLIC gather_ -gather_: lxi d,.57 - call csave - CALL clrline_ - LXI H,1 - SHLD g1st_ - LHLD g1st_ - PUSH H - LHLD gNumLU_ - DCX H - PUSH H - LXI H,.56+0 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,-124-.57 - DAD SP - PUSH H - CALL gets_ - POP D - LXI H,-124-.57 - DAD SP - PUSH H - CALL strlen_ - POP D - PUSH H - LXI H,0 - POP D - XCHG - CALL .lt - JZ .58 - LXI H,-124-.57 - DAD SP - PUSH H - CALL atoi_ - POP D - SHLD g1st_ -.58: - CALL clrline_ - LHLD gNumLU_ - DCX H - SHLD gLast_ - LHLD gLast_ - PUSH H - LHLD gNumLU_ - DCX H - PUSH H - LXI H,.56+53 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,-124-.57 - DAD SP - PUSH H - CALL gets_ - POP D - LXI H,-124-.57 - DAD SP - PUSH H - CALL strlen_ - POP D - PUSH H - LXI H,0 - POP D - XCHG - CALL .lt - JZ .59 - LXI H,-124-.57 - DAD SP - PUSH H - CALL atoi_ - POP D - SHLD gLast_ -.59: - CALL clrline_ - LXI H,0 - SHLD gOverAll_ - LXI H,.56+105 - 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 .eq - JZ .60 - CALL clrline_ - LXI H,.56+165 - 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,68 - POP D - CALL .eq - JZ .61 - LXI H,1 - SHLD gOverAll_ -.61: - JMP .62 -.60: - LXI H,.56+221 - PUSH H - CALL printf_ - POP D -.62: - RET -.57 EQU -128 -.56: - DB 80,108,101,97,115,101,32,101,110,116,101,114,32,102,105 - DB 114,115,116,32,108,111,103,105,99,97,108,32,117,110,105 - DB 116,32,116,111,32,102,111,114,109,97,116,32,48,45,37 - DB 100,32,40,37,100,41,58,0,80,108,101,97,115,101,32 - DB 101,110,116,101,114,32,108,97,115,116,32,108,111,103,105 - DB 99,97,108,32,117,110,105,116,32,116,111,32,102,111,114 - DB 109,97,116,32,48,45,37,100,32,40,37,100,41,58,0 - DB 68,111,32,121,111,117,32,119,97,110,116,32,116,111,32 - DB 111,118,101,114,114,105,100,101,32,97,108,108,32,112,114 - DB 111,116,101,99,116,101,100,32,108,111,103,105,99,97,108 - DB 32,117,110,105,116,115,32,40,89,47,110,41,58,32,0 - DB 68,111,32,121,111,117,32,114,101,97,108,108,121,32,119 - DB 97,110,116,32,116,111,32,68,69,83,84,82,79,89,32 - DB 97,108,108,32,108,111,103,105,99,97,108,32,117,110,105 - DB 116,115,32,40,68,47,110,41,58,32,0,10,0 - PUBLIC main_ -main_: lxi d,.64 - 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 - XCHG - MOV A,L - STA gTT_ - LDA gTT_ - MOV L,A - MVI H,0 - PUSH H - CALL crtinit_ - POP D - LDA gTT_ - MOV L,A - MVI H,0 - PUSH H - LXI H,0 - POP D - XCHG - CALL .lt - JZ .65 - CALL crtclr_ - LXI H,0 - PUSH H - LXI H,0 - PUSH H - CALL crtlc_ - POP D - POP D -.65: - 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,.63+0 - PUSH H - CALL printf_ - XCHG - LXI H,16 - DAD SP - SPHL - LXI H,.63+35 - PUSH H - CALL printf_ - POP D - LXI H,-6596 - SHLD ireghl_ - CALL bioscall_ - LHLD ireghl_ - SHLD pINFOLIS_ - LXI H,25 - SHLD dregbc_ - CALL bdoscall_ - LDA drega_ - MOV L,A - MVI H,0 - SHLD gDrvNum_ - LHLD gDrvNum_ - PUSH H - CALL getinfo_ - POP D - CALL dispinfo_ - XCHG - LXI H,2-.64 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,2-.64 - DAD SP - mov a,m - inx h - ora m - JNZ .66 - LXI H,.63+81 - PUSH H - CALL printf_ - POP D - LXI H,1 - PUSH H - CALL exit_ - POP D -.66: - CALL gather_ - CALL lformat_ - RET -.64 EQU -2 -.63: - DB 77,85,76,84,73,70,77,84,46,67,79,77,32,37,100 - DB 47,37,100,47,37,100,32,118,37,100,46,37,100,46,37 - DB 100,46,37,100,0,32,100,119,103,32,45,32,80,114,101 - DB 112,97,114,101,32,110,101,119,32,109,97,115,115,32,115 - DB 116,111,114,97,103,101,32,109,101,100,105,97,32,102,111 - DB 114,32,117,115,101,0,10,70,111,114,109,97,116,32,99 - DB 97,110,99,101,108,108,101,100,32,97,116,32,117,115,101 - DB 114,39,115,32,114,101,113,117,101,115,116,0 - extrn exit_ - extrn crtclr_ - extrn crtinit_ - extrn atoi_ - extrn strlen_ - extrn gets_ - extrn crtlc_ - extrn printf_ - extrn diagnose_ - extrn hregde_ - extrn hregbc_ - extrn luscur_ - extrn lugcur_ - extrn wrsector_ - extrn rdsector_ - extrn bdoscall_ - extrn dregbc_ - extrn drega_ - extrn bioscall_ - extrn ireghl_ - extrn iregde_ - extrn iregbc_ - extrn irega_ - extrn memset_ - extrn memcpy_ - extrn .an - extrn .eq - extrn .ne - extrn .lt - extrn .le - extrn .rs - extrn .ur - extrn .sb - extrn .dv - END - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/MULTIFMT.O b/branches/s100/Apps/crossdev/MULTIFMT.O deleted file mode 100644 index 6b441a10..00000000 Binary files a/branches/s100/Apps/crossdev/MULTIFMT.O and /dev/null differ diff --git a/branches/s100/Apps/crossdev/N8CHARS.ASM b/branches/s100/Apps/crossdev/N8CHARS.ASM deleted file mode 100644 index 55fc055c..00000000 --- a/branches/s100/Apps/crossdev/N8CHARS.ASM +++ /dev/null @@ -1,2056 +0,0 @@ - extrn .begin,.chl,.swt - extrn csave,cret,.move - DSEG - public charset_ -charset_: - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 60 - DB 60 - DB 48 - DB 48 - DB 48 - DB 0 - DB 0 - DB 0 - DB 240 - DB 240 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 60 - DB 60 - DB 0 - DB 0 - DB 0 - DB 48 - DB 48 - DB 48 - DB 240 - DB 240 - DB 0 - DB 0 - DB 0 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 0 - DB 0 - DB 0 - DB 255 - DB 255 - DB 0 - DB 0 - DB 0 - DB 0 - DB 32 - DB 112 - DB 248 - DB 112 - DB 32 - DB 0 - DB 0 - DB 248 - DB 216 - DB 136 - DB 0 - DB 136 - DB 216 - DB 248 - 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 24 - DB 24 - DB 32 - DB 96 - DB 144 - DB 96 - DB 0 - DB 0 - DB 32 - DB 80 - DB 32 - DB 32 - DB 112 - DB 32 - 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 168 - DB 80 - DB 80 - DB 216 - DB 80 - DB 80 - DB 168 - DB 0 - DB 48 - DB 48 - DB 48 - DB 252 - DB 252 - DB 48 - DB 48 - DB 48 - DB 16 - DB 48 - DB 112 - DB 240 - DB 112 - DB 48 - DB 16 - DB 0 - DB 32 - DB 112 - DB 32 - DB 32 - DB 32 - DB 112 - DB 32 - DB 0 - DB 80 - DB 80 - DB 80 - DB 80 - DB 0 - DB 80 - DB 0 - DB 0 - DB 120 - DB 168 - DB 168 - DB 104 - DB 40 - DB 40 - DB 0 - DB 0 - DB 48 - DB 48 - DB 48 - DB 252 - DB 252 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 252 - DB 252 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 240 - DB 240 - DB 48 - DB 48 - DB 48 - DB 32 - DB 112 - DB 32 - DB 32 - DB 32 - DB 32 - DB 32 - DB 32 - DB 48 - DB 48 - DB 48 - DB 60 - DB 60 - DB 48 - DB 48 - DB 48 - DB 0 - DB 16 - DB 24 - DB 252 - DB 24 - DB 16 - DB 0 - DB 0 - DB 0 - DB 32 - DB 96 - DB 252 - DB 96 - DB 32 - 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 48 - DB 120 - DB 120 - DB 48 - DB 0 - DB 48 - DB 0 - DB 0 - DB 216 - DB 216 - DB 80 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 72 - DB 72 - DB 252 - DB 72 - DB 72 - DB 252 - DB 72 - DB 72 - DB 32 - DB 120 - DB 160 - DB 120 - DB 36 - DB 248 - DB 32 - DB 0 - DB 0 - DB 200 - DB 208 - DB 32 - DB 88 - DB 152 - DB 0 - DB 0 - DB 48 - DB 72 - DB 72 - DB 80 - DB 96 - DB 144 - DB 120 - DB 0 - DB 48 - DB 48 - DB 64 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 16 - DB 32 - DB 32 - DB 32 - DB 32 - DB 32 - DB 16 - DB 0 - DB 32 - DB 16 - DB 16 - DB 16 - DB 16 - DB 16 - DB 32 - DB 0 - DB 32 - DB 168 - DB 112 - DB 248 - DB 112 - DB 168 - DB 32 - DB 0 - DB 0 - DB 32 - DB 32 - DB 248 - DB 32 - DB 32 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 48 - DB 48 - DB 64 - DB 0 - DB 0 - DB 0 - DB 112 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 48 - DB 48 - DB 0 - DB 4 - DB 8 - DB 16 - DB 32 - DB 64 - DB 128 - DB 0 - DB 0 - DB 112 - DB 152 - DB 168 - DB 168 - DB 168 - DB 200 - DB 112 - DB 0 - DB 32 - DB 96 - DB 32 - DB 32 - DB 32 - DB 32 - DB 248 - DB 0 - DB 112 - DB 136 - DB 8 - DB 16 - DB 96 - DB 128 - DB 248 - DB 0 - DB 112 - DB 136 - DB 8 - DB 112 - DB 8 - DB 136 - DB 112 - DB 0 - DB 48 - DB 80 - DB 144 - DB 248 - DB 16 - DB 16 - DB 16 - DB 0 - DB 248 - DB 128 - DB 128 - DB 240 - DB 8 - DB 136 - DB 112 - DB 0 - DB 56 - DB 64 - DB 128 - DB 240 - DB 136 - DB 136 - DB 112 - DB 0 - DB 248 - DB 8 - DB 16 - DB 32 - DB 32 - DB 32 - DB 32 - DB 0 - DB 112 - DB 136 - DB 136 - DB 112 - DB 136 - DB 136 - DB 112 - DB 0 - DB 112 - DB 136 - DB 136 - DB 120 - DB 8 - DB 136 - DB 112 - DB 0 - DB 0 - DB 48 - DB 48 - DB 0 - DB 48 - DB 48 - DB 0 - DB 0 - DB 0 - DB 48 - DB 48 - DB 0 - DB 48 - DB 48 - DB 96 - DB 0 - DB 16 - DB 32 - DB 64 - DB 128 - DB 64 - DB 32 - DB 16 - DB 0 - DB 0 - DB 0 - DB 252 - DB 0 - DB 252 - DB 0 - DB 0 - DB 0 - DB 64 - DB 32 - DB 16 - DB 8 - DB 16 - DB 32 - DB 64 - DB 0 - DB 112 - DB 136 - DB 8 - DB 48 - DB 32 - DB 0 - DB 32 - DB 0 - DB 112 - DB 136 - DB 184 - DB 176 - DB 128 - DB 128 - DB 112 - DB 0 - DB 32 - DB 80 - DB 136 - DB 248 - DB 136 - DB 136 - DB 136 - DB 0 - DB 240 - DB 72 - DB 72 - DB 112 - DB 72 - DB 72 - DB 240 - DB 0 - DB 112 - DB 136 - DB 128 - DB 128 - DB 128 - DB 136 - DB 112 - DB 0 - DB 240 - DB 72 - DB 72 - DB 72 - DB 72 - DB 72 - DB 240 - DB 0 - DB 248 - DB 136 - DB 128 - DB 224 - DB 128 - DB 136 - DB 248 - DB 0 - DB 248 - DB 136 - DB 128 - DB 240 - DB 128 - DB 128 - DB 128 - DB 0 - DB 112 - DB 136 - DB 128 - DB 184 - DB 136 - DB 136 - DB 112 - DB 0 - DB 136 - DB 136 - DB 136 - DB 248 - DB 136 - DB 136 - DB 136 - DB 0 - DB 248 - DB 32 - DB 32 - DB 32 - DB 32 - DB 32 - DB 248 - DB 0 - DB 28 - DB 8 - DB 8 - DB 8 - DB 8 - DB 136 - DB 112 - DB 0 - DB 136 - DB 144 - DB 160 - DB 192 - DB 160 - DB 144 - DB 136 - DB 0 - DB 128 - DB 128 - DB 128 - DB 128 - DB 128 - DB 136 - DB 248 - DB 0 - DB 136 - DB 216 - DB 168 - DB 136 - DB 136 - DB 136 - DB 136 - DB 0 - DB 136 - DB 200 - DB 168 - DB 168 - DB 168 - DB 152 - DB 136 - DB 0 - DB 112 - DB 136 - DB 136 - DB 136 - DB 136 - DB 136 - DB 112 - DB 0 - DB 240 - DB 136 - DB 136 - DB 240 - DB 128 - DB 128 - DB 128 - DB 0 - DB 112 - DB 136 - DB 136 - DB 136 - DB 168 - DB 152 - DB 120 - DB 4 - DB 240 - DB 136 - DB 136 - DB 240 - DB 160 - DB 144 - DB 136 - DB 0 - DB 112 - DB 136 - DB 64 - DB 32 - DB 16 - DB 136 - DB 112 - DB 0 - DB 248 - DB 32 - DB 32 - DB 32 - DB 32 - DB 32 - DB 32 - DB 0 - DB 136 - DB 136 - DB 136 - DB 136 - DB 136 - DB 136 - DB 112 - DB 0 - DB 136 - DB 136 - DB 136 - DB 80 - DB 80 - DB 80 - DB 32 - DB 0 - DB 136 - DB 136 - DB 136 - DB 168 - DB 168 - DB 168 - DB 80 - DB 0 - DB 136 - DB 136 - DB 80 - DB 32 - DB 80 - DB 136 - DB 136 - DB 0 - DB 136 - DB 136 - DB 80 - DB 32 - DB 32 - DB 32 - DB 32 - DB 0 - DB 248 - DB 136 - DB 16 - DB 32 - DB 64 - DB 136 - DB 248 - DB 0 - DB 120 - DB 64 - DB 64 - DB 64 - DB 64 - DB 64 - DB 120 - DB 0 - DB 0 - DB 128 - DB 64 - DB 32 - DB 16 - DB 8 - DB 0 - DB 0 - DB 120 - DB 8 - DB 8 - DB 8 - DB 8 - DB 8 - DB 120 - DB 0 - DB 32 - DB 80 - DB 136 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 252 - DB 0 - DB 96 - DB 96 - DB 16 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 240 - DB 8 - DB 120 - DB 136 - DB 112 - DB 0 - DB 128 - DB 128 - DB 128 - DB 240 - DB 136 - DB 136 - DB 240 - DB 0 - DB 0 - DB 0 - DB 0 - DB 112 - DB 128 - DB 128 - DB 112 - DB 0 - DB 8 - DB 8 - DB 8 - DB 120 - DB 136 - DB 136 - DB 120 - DB 0 - DB 0 - DB 0 - DB 112 - DB 136 - DB 248 - DB 128 - DB 112 - DB 0 - DB 0 - DB 48 - DB 72 - DB 224 - DB 64 - DB 64 - DB 64 - DB 0 - DB 0 - DB 0 - DB 56 - DB 72 - DB 72 - DB 56 - DB 8 - DB 112 - DB 0 - DB 128 - DB 128 - DB 176 - DB 200 - DB 136 - DB 136 - DB 0 - DB 0 - DB 0 - DB 32 - DB 0 - DB 96 - DB 32 - DB 112 - DB 0 - DB 0 - DB 8 - DB 0 - DB 24 - DB 8 - DB 8 - DB 72 - DB 48 - DB 128 - DB 128 - DB 144 - DB 160 - DB 192 - DB 160 - DB 144 - DB 0 - DB 32 - DB 32 - DB 32 - DB 32 - DB 32 - DB 32 - DB 32 - DB 0 - DB 0 - DB 0 - DB 0 - DB 80 - DB 168 - DB 168 - DB 136 - DB 0 - DB 0 - DB 0 - DB 0 - DB 176 - DB 200 - DB 136 - DB 136 - DB 0 - DB 0 - DB 0 - DB 0 - DB 112 - DB 136 - DB 136 - DB 112 - DB 0 - DB 0 - DB 0 - DB 112 - DB 72 - DB 72 - DB 112 - DB 64 - DB 64 - DB 0 - DB 96 - DB 56 - DB 72 - DB 72 - DB 56 - DB 8 - DB 8 - DB 0 - DB 0 - DB 0 - DB 176 - DB 200 - DB 128 - DB 128 - DB 0 - DB 0 - DB 0 - DB 96 - DB 128 - DB 96 - DB 16 - DB 96 - DB 0 - DB 0 - DB 0 - DB 64 - DB 224 - DB 64 - DB 64 - DB 32 - DB 0 - DB 0 - DB 0 - DB 0 - DB 144 - DB 144 - DB 144 - DB 104 - DB 0 - DB 0 - DB 0 - DB 0 - DB 136 - DB 136 - DB 80 - DB 32 - DB 0 - DB 0 - DB 0 - DB 0 - DB 136 - DB 168 - DB 168 - DB 80 - DB 0 - DB 0 - DB 0 - DB 0 - DB 72 - DB 48 - DB 48 - DB 72 - DB 0 - DB 0 - DB 0 - DB 136 - DB 80 - DB 32 - DB 64 - DB 128 - DB 0 - DB 0 - DB 0 - DB 248 - DB 16 - DB 32 - DB 64 - DB 248 - DB 0 - DB 16 - DB 32 - DB 32 - DB 64 - DB 32 - DB 32 - DB 16 - DB 0 - DB 32 - DB 32 - DB 32 - DB 0 - DB 32 - DB 32 - DB 32 - DB 0 - DB 64 - DB 32 - DB 32 - DB 16 - DB 32 - DB 32 - DB 64 - DB 0 - DB 108 - DB 144 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 112 - DB 80 - DB 80 - DB 80 - DB 80 - DB 80 - DB 112 - DB 0 - DB 252 - DB 128 - DB 188 - DB 160 - DB 172 - DB 168 - DB 168 - DB 168 - DB 252 - DB 0 - DB 252 - DB 0 - DB 252 - DB 0 - DB 0 - DB 0 - DB 252 - DB 4 - DB 244 - DB 20 - DB 212 - DB 84 - DB 84 - DB 84 - DB 84 - DB 84 - DB 84 - DB 84 - DB 84 - DB 84 - DB 84 - DB 84 - DB 84 - DB 84 - DB 84 - DB 212 - DB 20 - DB 244 - DB 4 - DB 252 - DB 0 - DB 0 - DB 0 - DB 255 - DB 0 - DB 255 - DB 0 - DB 255 - DB 168 - DB 168 - DB 168 - DB 172 - DB 160 - DB 188 - DB 128 - DB 252 - DB 168 - DB 168 - DB 168 - DB 168 - DB 168 - DB 168 - DB 168 - DB 168 - DB 168 - DB 168 - DB 172 - DB 160 - DB 172 - DB 168 - DB 168 - DB 168 - DB 84 - DB 84 - DB 212 - DB 20 - DB 212 - DB 84 - DB 84 - DB 84 - DB 0 - DB 0 - DB 252 - DB 0 - DB 252 - DB 0 - DB 0 - DB 0 - DB 252 - DB 128 - DB 128 - DB 128 - DB 128 - DB 128 - DB 128 - DB 128 - DB 252 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 252 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 4 - DB 252 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 252 - DB 128 - DB 128 - DB 128 - DB 128 - DB 128 - DB 128 - DB 128 - DB 252 - DB 128 - DB 128 - DB 128 - DB 128 - DB 128 - DB 128 - DB 128 - DB 128 - DB 128 - DB 128 - DB 128 - DB 252 - DB 128 - DB 128 - DB 128 - DB 128 - DB 4 - DB 4 - DB 4 - DB 252 - DB 4 - DB 4 - DB 4 - DB 4 - DB 0 - DB 0 - DB 0 - DB 252 - 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 32 - DB 64 - DB 240 - DB 8 - DB 120 - DB 136 - DB 112 - DB 0 - DB 16 - DB 32 - DB 0 - DB 96 - DB 32 - DB 32 - DB 248 - DB 0 - DB 16 - DB 32 - DB 0 - DB 112 - DB 136 - DB 136 - DB 112 - DB 0 - DB 16 - DB 32 - DB 0 - DB 136 - DB 136 - DB 136 - DB 116 - DB 0 - DB 16 - DB 32 - DB 0 - DB 176 - DB 200 - DB 136 - DB 136 - DB 0 - DB 16 - DB 32 - DB 0 - DB 200 - DB 168 - DB 152 - DB 136 - DB 0 - DB 112 - DB 136 - DB 136 - DB 124 - DB 0 - DB 252 - DB 0 - DB 0 - DB 112 - DB 136 - DB 136 - DB 112 - DB 0 - DB 252 - DB 0 - DB 0 - DB 32 - DB 0 - DB 32 - DB 32 - DB 64 - DB 136 - DB 112 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 252 - DB 128 - DB 128 - DB 128 - DB 0 - DB 0 - DB 0 - DB 0 - DB 252 - DB 4 - DB 4 - DB 4 - DB 136 - DB 144 - DB 168 - DB 84 - DB 136 - DB 28 - DB 0 - DB 0 - DB 136 - DB 144 - DB 168 - DB 88 - DB 184 - DB 8 - DB 0 - DB 0 - DB 48 - DB 0 - DB 48 - DB 120 - DB 120 - DB 48 - DB 0 - DB 0 - DB 20 - DB 40 - DB 80 - DB 160 - DB 80 - DB 40 - DB 20 - DB 0 - DB 160 - DB 80 - DB 40 - DB 20 - DB 40 - DB 80 - DB 160 - DB 0 - DB 84 - DB 170 - DB 84 - DB 170 - DB 84 - DB 170 - DB 84 - DB 170 - DB 170 - DB 84 - DB 170 - DB 84 - DB 170 - DB 84 - DB 170 - DB 84 - DB 182 - DB 108 - DB 218 - DB 182 - DB 108 - DB 218 - DB 182 - DB 108 - DB 24 - DB 24 - DB 24 - DB 24 - DB 24 - DB 24 - DB 24 - DB 24 - DB 24 - DB 24 - DB 24 - DB 24 - DB 248 - DB 24 - DB 24 - DB 24 - DB 24 - DB 24 - DB 24 - DB 248 - DB 24 - DB 248 - DB 24 - DB 24 - DB 108 - DB 108 - DB 108 - DB 108 - DB 236 - DB 108 - DB 108 - DB 108 - DB 0 - DB 0 - DB 0 - DB 0 - DB 252 - DB 108 - DB 108 - DB 108 - DB 0 - DB 0 - DB 0 - DB 252 - DB 108 - DB 236 - DB 108 - DB 108 - DB 108 - DB 108 - DB 236 - DB 12 - DB 236 - DB 108 - DB 108 - DB 108 - DB 108 - DB 108 - DB 108 - DB 108 - DB 108 - DB 108 - DB 108 - DB 108 - DB 0 - DB 0 - DB 252 - DB 14 - DB 238 - DB 108 - DB 108 - DB 108 - DB 108 - DB 108 - DB 236 - DB 12 - DB 252 - DB 0 - DB 0 - DB 0 - DB 100 - DB 100 - DB 252 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 48 - DB 48 - DB 240 - DB 48 - DB 48 - DB 240 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 240 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 60 - DB 0 - DB 0 - DB 0 - DB 48 - DB 48 - DB 48 - DB 48 - DB 252 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 252 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 60 - DB 48 - DB 48 - DB 48 - DB 0 - DB 0 - DB 0 - DB 0 - DB 252 - DB 0 - DB 0 - DB 0 - DB 48 - DB 48 - DB 48 - DB 48 - DB 252 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 60 - DB 48 - DB 60 - DB 48 - DB 48 - DB 48 - DB 216 - DB 216 - DB 220 - DB 216 - DB 216 - DB 216 - DB 216 - DB 216 - DB 216 - DB 216 - DB 216 - DB 220 - DB 192 - DB 252 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 252 - DB 192 - DB 220 - DB 216 - DB 216 - DB 216 - DB 216 - DB 216 - DB 220 - DB 192 - DB 0 - DB 252 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 252 - DB 0 - DB 216 - DB 216 - DB 216 - DB 220 - DB 192 - DB 220 - DB 216 - DB 216 - DB 0 - DB 0 - DB 0 - DB 252 - DB 0 - DB 252 - DB 0 - DB 0 - DB 216 - DB 216 - DB 216 - DB 220 - DB 0 - DB 220 - DB 216 - DB 216 - DB 48 - DB 48 - DB 48 - DB 252 - DB 0 - DB 0 - DB 252 - DB 0 - DB 216 - DB 216 - DB 216 - DB 252 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 252 - DB 0 - DB 0 - DB 252 - DB 48 - DB 48 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 252 - DB 216 - DB 216 - DB 216 - DB 216 - DB 216 - DB 252 - DB 0 - DB 0 - DB 0 - DB 0 - DB 48 - DB 48 - DB 48 - DB 60 - DB 48 - DB 48 - DB 60 - DB 0 - DB 0 - DB 0 - DB 0 - DB 62 - DB 48 - DB 62 - DB 48 - DB 48 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 252 - DB 216 - DB 216 - DB 216 - DB 216 - DB 216 - DB 216 - DB 220 - DB 216 - DB 216 - DB 216 - DB 48 - DB 48 - DB 252 - DB 0 - DB 0 - DB 252 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 240 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 60 - DB 48 - DB 48 - DB 48 - DB 48 - DB 252 - DB 252 - DB 252 - DB 252 - DB 252 - DB 252 - DB 252 - DB 252 - DB 0 - DB 0 - DB 0 - DB 252 - DB 252 - DB 252 - DB 192 - DB 192 - DB 192 - DB 192 - DB 192 - DB 192 - DB 192 - DB 192 - DB 192 - DB 192 - DB 12 - DB 12 - DB 12 - DB 12 - DB 12 - DB 12 - DB 12 - DB 12 - DB 12 - DB 12 - DB 12 - DB 12 - DB 252 - DB 252 - DB 252 - DB 0 - DB 0 - DB 0 - DB 0 - DB 104 - DB 144 - DB 144 - DB 104 - DB 0 - DB 112 - DB 136 - DB 136 - DB 176 - DB 136 - DB 136 - DB 240 - DB 64 - DB 240 - DB 144 - DB 128 - DB 128 - DB 128 - DB 128 - DB 128 - DB 0 - DB 248 - DB 80 - DB 80 - DB 80 - DB 80 - DB 72 - DB 0 - DB 0 - DB 248 - DB 136 - DB 64 - DB 32 - DB 64 - DB 136 - DB 248 - DB 0 - DB 0 - DB 0 - DB 0 - DB 124 - DB 136 - DB 136 - DB 112 - DB 0 - DB 0 - DB 0 - DB 0 - DB 136 - DB 136 - DB 136 - DB 112 - DB 128 - DB 0 - DB 0 - DB 116 - DB 152 - DB 16 - DB 16 - DB 28 - DB 0 - DB 252 - DB 16 - DB 56 - DB 68 - DB 56 - DB 16 - DB 252 - DB 0 - DB 48 - DB 204 - DB 204 - DB 252 - DB 204 - DB 204 - DB 56 - DB 0 - DB 120 - DB 132 - DB 132 - DB 132 - DB 72 - DB 72 - DB 132 - DB 0 - DB 60 - DB 64 - DB 56 - DB 68 - DB 68 - DB 68 - DB 56 - DB 0 - DB 0 - DB 0 - DB 108 - DB 146 - DB 146 - DB 108 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 56 - DB 88 - DB 104 - DB 112 - DB 0 - DB 56 - DB 64 - DB 128 - DB 248 - DB 128 - DB 64 - DB 56 - DB 0 - DB 0 - DB 0 - DB 48 - DB 204 - DB 204 - DB 204 - DB 204 - DB 0 - DB 252 - DB 0 - DB 0 - DB 252 - DB 0 - DB 0 - DB 252 - DB 0 - DB 16 - DB 16 - DB 124 - DB 16 - DB 16 - DB 0 - DB 254 - DB 0 - DB 32 - DB 16 - DB 8 - DB 16 - DB 32 - DB 0 - DB 254 - DB 0 - DB 16 - DB 32 - DB 64 - DB 32 - DB 16 - DB 0 - DB 254 - DB 0 - DB 24 - DB 52 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 48 - DB 176 - DB 112 - DB 48 - DB 48 - DB 0 - DB 252 - DB 0 - DB 48 - DB 48 - DB 0 - DB 0 - DB 100 - DB 152 - DB 0 - DB 100 - DB 152 - DB 0 - DB 0 - DB 56 - DB 68 - DB 68 - DB 56 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 56 - DB 56 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 56 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 14 - DB 8 - DB 8 - DB 72 - DB 40 - DB 24 - DB 8 - DB 0 - DB 0 - DB 0 - DB 0 - DB 176 - DB 72 - DB 72 - DB 72 - DB 0 - DB 0 - DB 0 - DB 240 - DB 60 - DB 64 - DB 128 - DB 248 - DB 0 - DB 252 - DB 252 - DB 252 - DB 252 - DB 252 - DB 252 - DB 252 - DB 252 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - DB 0 - CSEG - END - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/N8VIDTST.ASM b/branches/s100/Apps/crossdev/N8VIDTST.ASM deleted file mode 100644 index b186f820..00000000 --- a/branches/s100/Apps/crossdev/N8VIDTST.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/N8VIDTST.BAT b/branches/s100/Apps/crossdev/N8VIDTST.BAT new file mode 100644 index 00000000..368fe809 --- /dev/null +++ b/branches/s100/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 diff --git a/branches/s100/Apps/crossdev/PRINTERS.REL b/branches/s100/Apps/crossdev/PRINTERS.REL deleted file mode 100644 index 5f3f0601..00000000 Binary files a/branches/s100/Apps/crossdev/PRINTERS.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/PUTC.ASM b/branches/s100/Apps/crossdev/PUTC.ASM deleted file mode 100644 index 37a787ea..00000000 --- a/branches/s100/Apps/crossdev/PUTC.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/README.1ST b/branches/s100/Apps/crossdev/README.1ST deleted file mode 100644 index 64aaab57..00000000 --- a/branches/s100/Apps/crossdev/README.1ST +++ /dev/null @@ -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 diff --git a/branches/s100/Apps/crossdev/REM.REL b/branches/s100/Apps/crossdev/REM.REL deleted file mode 100644 index 3c3987d9..00000000 Binary files a/branches/s100/Apps/crossdev/REM.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/REMOTE.ASM b/branches/s100/Apps/crossdev/REMOTE.ASM deleted file mode 100644 index d97f5ec6..00000000 --- a/branches/s100/Apps/crossdev/REMOTE.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/SECTORIO.ASM b/branches/s100/Apps/crossdev/SECTORIO.ASM deleted file mode 100644 index 59fa4121..00000000 --- a/branches/s100/Apps/crossdev/SECTORIO.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/SETLABEL.CPM b/branches/s100/Apps/crossdev/SETLABEL.CPM index 64416856..9d327678 100644 Binary files a/branches/s100/Apps/crossdev/SETLABEL.CPM and b/branches/s100/Apps/crossdev/SETLABEL.CPM differ diff --git a/branches/s100/Apps/crossdev/SETLABEL.REL b/branches/s100/Apps/crossdev/SETLABEL.REL deleted file mode 100644 index 6d3fd698..00000000 Binary files a/branches/s100/Apps/crossdev/SETLABEL.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/SYSGEN.ASM b/branches/s100/Apps/crossdev/SYSGEN.ASM deleted file mode 100644 index fbec0b5d..00000000 --- a/branches/s100/Apps/crossdev/SYSGEN.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/TASM301.EXE b/branches/s100/Apps/crossdev/TASM301.EXE new file mode 100644 index 00000000..4e1f77c3 Binary files /dev/null and b/branches/s100/Apps/crossdev/TASM301.EXE differ diff --git a/branches/s100/Apps/crossdev/TERMINAL.REL b/branches/s100/Apps/crossdev/TERMINAL.REL deleted file mode 100644 index ef3bc697..00000000 Binary files a/branches/s100/Apps/crossdev/TERMINAL.REL and /dev/null differ diff --git a/branches/s100/Apps/crossdev/TERMTYPE.ASM b/branches/s100/Apps/crossdev/TERMTYPE.ASM deleted file mode 100644 index f1d9008b..00000000 --- a/branches/s100/Apps/crossdev/TERMTYPE.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/TMS9918.ASM b/branches/s100/Apps/crossdev/TMS9918.ASM deleted file mode 100644 index ba24c94e..00000000 --- a/branches/s100/Apps/crossdev/TMS9918.ASM +++ /dev/null @@ -1,1463 +0,0 @@ - extrn .begin,.chl,.swt - extrn csave,cret,.move - global style_,1 - global vdp_rege_,960 - PUBLIC vdp_read_ -vdp_read_: lxi d,.2 - call csave - LXI H,0 - XCHG - LXI H,3-.2 - DAD SP - MOV M,E - JMP .4 -.3: - LXI H,3-.2 - DAD SP - PUSH H - MOV L,M - INX H - XCHG - POP H - MOV M,E -.4: - LXI H,3-.2 - DAD SP - MOV E,M - MVI D,0 - LXI H,17 - CALL .lt - JZ .5 - LXI H,152 - PUSH H - CALL in_ - POP D - XCHG - LXI H,2-.2 - DAD SP - MOV M,E - LXI H,2-.2 - DAD SP - MOV E,M - MVI D,0 - PUSH D - LXI H,.1+0 - PUSH H - CALL printf_ - POP D - POP D - JMP .3 -.5: - RET -.2 EQU -2 -.1: - DB 48,120,50,120,32,0 - PUBLIC vdp_disp_ -vdp_disp_: lxi d,.7 - call csave - LXI H,8-.7 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,40 - CALL .ml - XCHG - LXI H,10-.7 - DAD SP - MOV A,M - INX H - MOV H,M - MOV L,A - DAD D - INX H - INX H - INX H - PUSH H - CALL vdp_wrvr_ - POP D - LXI H,0 - XCHG - LXI H,3-.7 - DAD SP - MOV M,E - JMP .9 -.8: - LXI H,3-.7 - DAD SP - PUSH H - MOV L,M - INX H - XCHG - POP H - MOV M,E -.9: - LXI H,12-.7 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL strlen_ - POP D - PUSH H - LXI H,5-.7 - DAD SP - MOV E,M - MVI D,0 - POP H - CALL .lt - JZ .10 - LXI H,3-.7 - DAD SP - MOV E,M - MVI D,0 - LXI H,12-.7 - DAD SP - MOV A,M - INX H - MOV H,M - MOV L,A - DAD D - MOV E,M - MVI D,0 - PUSH D - LXI H,152 - PUSH H - CALL out_ - POP D - POP D - JMP .8 -.10: - RET -.7 EQU -1 - PUBLIC vdp_pad_ -vdp_pad_: lxi d,.11 - call csave - LXI H,8-.11 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,40 - CALL .ml - XCHG - LXI H,10-.11 - DAD SP - MOV A,M - INX H - MOV H,M - MOV L,A - DAD D - INX H - INX H - INX H - PUSH H - CALL vdp_wrvr_ - POP D - LXI H,0 - XCHG - LXI H,3-.11 - DAD SP - MOV M,E - JMP .13 -.12: - LXI H,3-.11 - DAD SP - PUSH H - MOV L,M - INX H - XCHG - POP H - MOV M,E -.13: - LXI H,12-.11 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL strlen_ - POP D - PUSH H - LXI H,5-.11 - DAD SP - MOV E,M - MVI D,0 - POP H - CALL .lt - JZ .14 - LXI H,3-.11 - DAD SP - MOV E,M - MVI D,0 - LXI H,12-.11 - DAD SP - MOV A,M - INX H - MOV H,M - MOV L,A - DAD D - MOV E,M - MVI D,0 - PUSH D - LXI H,152 - PUSH H - CALL out_ - POP D - POP D - JMP .12 -.14: - LXI H,12-.11 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL strlen_ - POP D - PUSH H - LXI H,40 - POP D - XCHG - CALL .gt - JZ .15 - LXI H,12-.11 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL strlen_ - POP D - XCHG - LXI H,3-.11 - DAD SP - MOV M,E - JMP .17 -.16: - LXI H,3-.11 - DAD SP - PUSH H - MOV L,M - INX H - XCHG - POP H - MOV M,E -.17: - LXI H,3-.11 - DAD SP - MOV E,M - MVI D,0 - LXI H,40 - CALL .lt - JZ .18 - LXI H,32 - PUSH H - LXI H,152 - PUSH H - CALL out_ - POP D - POP D - JMP .16 -.18: -.15: - RET -.11 EQU -1 - PUBLIC vdp_hz_j_ -vdp_hz_j_: lxi d,.19 - call csave - LDA style_ - MOV L,A - MVI H,0 - LXI D,138 - DAD D - PUSH H - LXI H,.6+0 - PUSH H - LXI H,5-.19 - DAD SP - PUSH H - CALL sprintf_ - POP D - POP D - POP D - LXI H,1 - XCHG - LXI H,3-.19 - DAD SP - MOV M,E - JMP .21 -.20: - LXI H,3-.19 - DAD SP - PUSH H - MOV L,M - INX H - XCHG - POP H - MOV M,E -.21: - LXI H,3-.19 - DAD SP - MOV E,M - MVI D,0 - LXI H,36 - CALL .lt - JZ .22 - LXI H,1-.19 - DAD SP - PUSH H - LXI H,5-.19 - DAD SP - MOV E,M - MVI D,0 - PUSH D - LXI H,12-.19 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL vdp_disp_ - POP D - POP D - POP D - JMP .20 -.22: - LDA style_ - MOV L,A - MVI H,0 - LXI D,136 - DAD D - PUSH H - LXI H,.6+3 - PUSH H - LXI H,5-.19 - DAD SP - PUSH H - CALL sprintf_ - POP D - POP D - POP D - LXI H,1-.19 - DAD SP - PUSH H - LXI H,0 - PUSH H - LXI H,12-.19 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL vdp_disp_ - POP D - POP D - POP D - LDA style_ - MOV L,A - MVI H,0 - LXI D,137 - DAD D - PUSH H - LXI H,.6+6 - PUSH H - LXI H,5-.19 - DAD SP - PUSH H - CALL sprintf_ - POP D - POP D - POP D - LXI H,1-.19 - DAD SP - PUSH H - LXI H,36 - PUSH H - LXI H,12-.19 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL vdp_disp_ - POP D - POP D - POP D - RET -.19 EQU -3 -.6: - DB 37,99,0,37,99,0,37,99,0 - PUBLIC vdp_main_ -vdp_main_: lxi d,.24 - call csave - LDA style_ - MOV L,A - MVI H,0 - LXI D,129 - DAD D - PUSH H - LXI H,.23+0 - PUSH H - LXI H,-41-.24 - DAD SP - PUSH H - CALL sprintf_ - POP D - POP D - POP D - LXI H,1 - XCHG - LXI H,3-.24 - DAD SP - MOV M,E - JMP .26 -.25: - LXI H,3-.24 - DAD SP - PUSH H - MOV L,M - INX H - XCHG - POP H - MOV M,E -.26: - LXI H,3-.24 - DAD SP - MOV E,M - MVI D,0 - LXI H,36 - CALL .lt - JZ .27 - LXI H,-45-.24 - DAD SP - PUSH H - LXI H,5-.24 - DAD SP - MOV E,M - MVI D,0 - PUSH D - LXI H,0 - PUSH H - CALL vdp_disp_ - POP D - POP D - POP D - JMP .25 -.27: - LDA style_ - MOV L,A - MVI H,0 - LXI D,133 - DAD D - PUSH H - LXI H,.23+3 - PUSH H - LXI H,-41-.24 - DAD SP - PUSH H - CALL sprintf_ - POP D - POP D - POP D - LXI H,1 - XCHG - LXI H,3-.24 - DAD SP - MOV M,E - JMP .29 -.28: - LXI H,3-.24 - DAD SP - PUSH H - MOV L,M - INX H - XCHG - POP H - MOV M,E -.29: - LXI H,3-.24 - DAD SP - MOV E,M - MVI D,0 - LXI H,36 - CALL .lt - JZ .30 - LXI H,-45-.24 - DAD SP - PUSH H - LXI H,5-.24 - DAD SP - MOV E,M - MVI D,0 - PUSH D - LXI H,23 - PUSH H - CALL vdp_disp_ - POP D - POP D - POP D - JMP .28 -.30: - LDA style_ - MOV L,A - MVI H,0 - LXI D,135 - DAD D - PUSH H - LXI H,.23+6 - PUSH H - LXI H,-41-.24 - DAD SP - PUSH H - CALL sprintf_ - POP D - POP D - POP D - LXI H,1 - XCHG - LXI H,3-.24 - DAD SP - MOV M,E - JMP .32 -.31: - LXI H,3-.24 - DAD SP - PUSH H - MOV L,M - INX H - XCHG - POP H - MOV M,E -.32: - LXI H,3-.24 - DAD SP - MOV E,M - MVI D,0 - LXI H,23 - CALL .lt - JZ .33 - LXI H,-45-.24 - DAD SP - PUSH H - LXI H,0 - PUSH H - LXI H,7-.24 - DAD SP - MOV E,M - MVI D,0 - PUSH D - CALL vdp_disp_ - POP D - POP D - POP D - JMP .31 -.33: - LDA style_ - MOV L,A - MVI H,0 - LXI D,131 - DAD D - PUSH H - LXI H,.23+9 - PUSH H - LXI H,-41-.24 - DAD SP - PUSH H - CALL sprintf_ - POP D - POP D - POP D - LXI H,1 - XCHG - LXI H,3-.24 - DAD SP - MOV M,E - JMP .35 -.34: - LXI H,3-.24 - DAD SP - PUSH H - MOV L,M - INX H - XCHG - POP H - MOV M,E -.35: - LXI H,3-.24 - DAD SP - MOV E,M - MVI D,0 - LXI H,23 - CALL .lt - JZ .36 - LXI H,-45-.24 - DAD SP - PUSH H - LXI H,36 - PUSH H - LXI H,7-.24 - DAD SP - MOV E,M - MVI D,0 - PUSH D - CALL vdp_disp_ - POP D - POP D - POP D - JMP .34 -.36: - LDA style_ - MOV L,A - MVI H,0 - LXI D,128 - DAD D - PUSH H - LXI H,.23+12 - PUSH H - LXI H,-41-.24 - DAD SP - PUSH H - CALL sprintf_ - POP D - POP D - POP D - LXI H,-45-.24 - DAD SP - PUSH H - LXI H,0 - PUSH H - LXI H,0 - PUSH H - CALL vdp_disp_ - POP D - POP D - POP D - LDA style_ - MOV L,A - MVI H,0 - LXI D,130 - DAD D - PUSH H - LXI H,.23+15 - PUSH H - LXI H,-41-.24 - DAD SP - PUSH H - CALL sprintf_ - POP D - POP D - POP D - LXI H,-45-.24 - DAD SP - PUSH H - LXI H,36 - PUSH H - LXI H,0 - PUSH H - CALL vdp_disp_ - POP D - POP D - POP D - LDA style_ - MOV L,A - MVI H,0 - LXI D,132 - DAD D - PUSH H - LXI H,.23+18 - PUSH H - LXI H,-41-.24 - DAD SP - PUSH H - CALL sprintf_ - POP D - POP D - POP D - LXI H,-45-.24 - DAD SP - PUSH H - LXI H,36 - PUSH H - LXI H,23 - PUSH H - CALL vdp_disp_ - POP D - POP D - POP D - LDA style_ - MOV L,A - MVI H,0 - LXI D,134 - DAD D - PUSH H - LXI H,.23+21 - PUSH H - LXI H,-41-.24 - DAD SP - PUSH H - CALL sprintf_ - POP D - POP D - POP D - LXI H,-45-.24 - DAD SP - PUSH H - LXI H,0 - PUSH H - LXI H,23 - PUSH H - CALL vdp_disp_ - POP D - POP D - POP D - LXI H,0 - PUSH H - LXI H,2 - PUSH H - LXI H,2 - PUSH H - LXI H,2012 - PUSH H - LXI H,18 - PUSH H - LXI H,11 - PUSH H - LXI H,20-.24 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,.23+24 - PUSH H - LXI H,-29-.24 - DAD SP - PUSH H - CALL sprintf_ - XCHG - LXI H,18 - DAD SP - SPHL - LXI H,-45-.24 - DAD SP - PUSH H - LXI H,-43-.24 - DAD SP - PUSH H - CALL strlen_ - POP D - PUSH H - LXI H,37 - POP D - XCHG - CALL .sb - LXI D,2 - XCHG - CALL .dv - PUSH H - LXI H,1 - PUSH H - CALL vdp_disp_ - POP D - POP D - POP D - LXI H,2 - PUSH H - CALL vdp_hz_j_ - POP D - LXI H,21 - PUSH H - CALL vdp_hz_j_ - POP D - RET -.24 EQU -49 -.23: - DB 37,99,0,37,99,0,37,99,0,37,99,0,37,99,0 - DB 37,99,0,37,99,0,37,99,0,37,115,32,37,100,47 - DB 37,100,47,37,100,32,86,101,114,32,37,100,46,37,100 - DB 46,37,100,0 - PUBLIC vdp_clr1_ -vdp_clr1_: lxi d,.38 - call csave - LXI H,0 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - LXI H,64 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - LXI H,0 - XCHG - LXI H,2-.38 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .40 -.39: - LXI H,2-.38 - 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 -.40: - LXI H,2-.38 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,16384 - CALL .ul - JZ .41 - LXI H,0 - PUSH H - LXI H,152 - PUSH H - CALL out_ - POP D - POP D - JMP .39 -.41: - RET -.38 EQU -2 - PUBLIC vdp_setr_ -vdp_setr_: lxi d,.42 - call csave - LXI H,0 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - LXI H,128 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - RET -.42 EQU 0 - PUBLIC vdp_mode_ -vdp_mode_: lxi d,.43 - call csave - LXI H,80 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - LXI H,129 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - RET -.43 EQU 0 - PUBLIC vdp_pnt_ -vdp_pnt_: lxi d,.44 - call csave - LXI H,0 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - LXI H,130 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - RET -.44 EQU 0 - PUBLIC vdp_pgt_ -vdp_pgt_: lxi d,.45 - call csave - LXI H,1 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - LXI H,132 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - RET -.45 EQU 0 - PUBLIC vdp_colo_ -vdp_colo_: lxi d,.46 - call csave - LXI H,240 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - LXI H,135 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - RET -.46 EQU 0 - PUBLIC vdp_load_ -vdp_load_: lxi d,.47 - call csave - LXI H,0 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - LXI H,72 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - LXI H,0 - XCHG - LXI H,-2-.47 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,0 - XCHG - LXI H,2-.47 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .49 -.48: - LXI H,2-.47 - 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 -.49: - LXI H,2-.47 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,256 - CALL .lt - JZ .50 - LXI H,0 - XCHG - LXI H,0-.47 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .52 -.51: - LXI H,0-.47 - 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 -.52: - LXI H,0-.47 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,8 - CALL .lt - JZ .53 - LXI H,-2-.47 - 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 - LXI D,charset_ - DAD D - MOV E,M - MVI D,0 - PUSH D - LXI H,152 - PUSH H - CALL out_ - POP D - POP D - JMP .51 -.53: - JMP .48 -.50: - RET -.47 EQU -6 - PUBLIC vdp_fill_ -vdp_fill_: lxi d,.54 - call csave - LXI H,0 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - LXI H,64 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - LXI H,0 - XCHG - LXI H,1-.54 - DAD SP - MOV M,E - LXI H,0 - XCHG - LXI H,2-.54 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .56 -.55: - LXI H,2-.54 - 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 -.56: - LXI H,2-.54 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,960 - CALL .lt - JZ .57 - LXI H,1-.54 - DAD SP - MOV E,M - MVI D,0 - PUSH D - LXI H,152 - PUSH H - CALL out_ - POP D - POP D - LXI H,1-.54 - DAD SP - PUSH H - MOV L,M - INX H - XCHG - POP H - MOV M,E - LXI H,1-.54 - DAD SP - MOV E,M - MVI D,0 - PUSH D - LXI H,128 - POP D - CALL .eq - JZ .58 - LXI H,0 - XCHG - LXI H,1-.54 - DAD SP - MOV M,E -.58: - JMP .55 -.57: - RET -.54 EQU -3 - PUBLIC vdp_sync_ -vdp_sync_: lxi d,.59 - call csave - LXI H,0 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - LXI H,64 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - LXI H,0 - XCHG - LXI H,0-.59 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,0 - XCHG - LXI H,2-.59 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .61 -.60: - LXI H,2-.59 - 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 -.61: - LXI H,2-.59 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,960 - CALL .lt - JZ .62 - LXI H,2-.59 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,vdp_rege_ - DAD D - MOV E,M - MVI D,0 - PUSH D - LXI H,152 - PUSH H - CALL out_ - POP D - POP D - JMP .60 -.62: - RET -.59 EQU -4 - PUBLIC func700_ -func700_: lxi d,.63 - call csave - LXI H,0 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - LXI H,0 - PUSH H - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - RET -.63 EQU 0 - PUBLIC vdp_clr__ -vdp_clr__: lxi d,.64 - call csave - LXI H,0 - XCHG - LXI H,2-.64 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .66 -.65: - LXI H,2-.64 - 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 -.66: - LXI H,2-.64 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,960 - CALL .ul - JZ .67 - LXI H,32 - PUSH H - LXI H,4-.64 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,vdp_rege_ - DAD D - POP D - MOV M,E - JMP .65 -.67: - RET -.64 EQU -2 - PUBLIC vdp_set__ -vdp_set__: lxi d,.68 - call csave - LXI H,0 - XCHG - LXI H,2-.68 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .70 -.69: - LXI H,2-.68 - 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 -.70: - LXI H,2-.68 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,960 - CALL .ul - JZ .71 - LXI H,2-.68 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,127 - CALL .an - PUSH H - LXI H,4-.68 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,vdp_rege_ - DAD D - POP D - MOV M,E - JMP .69 -.71: - RET -.68 EQU -2 - PUBLIC vdp_num__ -vdp_num__: lxi d,.72 - call csave - LXI H,0 - XCHG - LXI H,2-.72 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .74 -.73: - LXI H,2-.72 - 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 -.74: - LXI H,2-.72 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,960 - CALL .ul - JZ .75 - LXI H,2-.72 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,10 - CALL .um - LXI D,48 - DAD D - PUSH H - LXI H,4-.72 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,vdp_rege_ - DAD D - POP D - MOV M,E - JMP .73 -.75: - RET -.72 EQU -2 - PUBLIC vdp_wrvr_ -vdp_wrvr_: lxi d,.76 - call csave - LXI H,8-.76 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,255 - CALL .an - XCHG - LXI H,3-.76 - DAD SP - MOV M,E - LXI H,8-.76 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,8 - CALL .rs - LXI D,64 - CALL .or - XCHG - LXI H,2-.76 - DAD SP - MOV M,E - LXI H,3-.76 - DAD SP - MOV E,M - MVI D,0 - PUSH D - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - LXI H,2-.76 - DAD SP - MOV E,M - MVI D,0 - PUSH D - LXI H,153 - PUSH H - CALL out_ - POP D - POP D - RET -.76 EQU -2 - extrn sprintf_ - extrn out_ - extrn strlen_ - extrn printf_ - extrn in_ - extrn charset_ - extrn .or - extrn .an - extrn .eq - extrn .lt - extrn .ul - extrn .gt - extrn .rs - extrn .sb - extrn .ml - extrn .dv - extrn .um - END - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/TMSSTAT.BAT b/branches/s100/Apps/crossdev/TMSSTAT.BAT new file mode 100644 index 00000000..b29f4eec --- /dev/null +++ b/branches/s100/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 diff --git a/branches/s100/Apps/crossdev/VIDEO.ASM b/branches/s100/Apps/crossdev/VIDEO.ASM deleted file mode 100644 index 5b78c400..00000000 --- a/branches/s100/Apps/crossdev/VIDEO.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/VIEW.ASM b/branches/s100/Apps/crossdev/VIEW.ASM deleted file mode 100644 index d49639ce..00000000 --- a/branches/s100/Apps/crossdev/VIEW.ASM +++ /dev/null @@ -1,2233 +0,0 @@ - extrn .begin,.chl,.swt - extrn csave,cret,.move - global pDPHMAP_,2 - global pDPHVEC_,16 - DSEG - public pSYSCFG_ -pSYSCFG_: - DW -16384 - CSEG - PUBLIC dispdpb_ -dispdpb_: lxi d,.2 - call csave - LXI H,10-.2 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,10-.2 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL crtlc_ - POP D - POP D - LXI H,12-.2 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - 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+0 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,10-.2 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,10-.2 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,12-.2 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - INX H - MOV E,M - MVI D,0 - PUSH D - LXI H,14-.2 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - INX H - PUSH H - LXI H,.1+17 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,10-.2 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,10-.2 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - INX H - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,12-.2 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - INX H - INX H - MOV E,M - MVI D,0 - PUSH D - LXI H,14-.2 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - INX H - INX H - PUSH H - LXI H,.1+34 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,10-.2 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,10-.2 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - INX H - INX H - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,12-.2 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,4 - DAD D - MOV E,M - MVI D,0 - PUSH D - LXI H,14-.2 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,4 - DAD D - PUSH H - LXI H,.1+51 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,10-.2 - DAD SP - 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,4 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,12-.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,14-.2 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,5 - DAD D - PUSH H - LXI H,.1+68 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,10-.2 - DAD SP - 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,5 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,12-.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,14-.2 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,7 - DAD D - PUSH H - LXI H,.1+85 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,10-.2 - DAD SP - 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,6 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,12-.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,14-.2 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,9 - DAD D - PUSH H - LXI H,.1+102 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,10-.2 - DAD SP - 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,7 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,12-.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,14-.2 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,10 - DAD D - PUSH H - LXI H,.1+119 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,10-.2 - DAD SP - 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,8 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,12-.2 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,11 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,14-.2 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,11 - DAD D - PUSH H - LXI H,.1+136 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,10-.2 - DAD SP - 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,9 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,12-.2 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,13 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,14-.2 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,13 - DAD D - PUSH H - LXI H,.1+153 - PUSH H - CALL printf_ - POP D - POP D - POP D - RET -.2 EQU 0 -.1: - DB 91,37,48,52,120,93,32,115,112,116,32,61,37,48,52 - DB 120,0,91,37,48,52,120,93,32,98,115,104,32,61,37 - DB 48,50,120,0,91,37,48,52,120,93,32,98,108,109,32 - DB 61,37,48,50,120,0,91,37,48,52,120,93,32,101,120 - DB 109,32,61,37,48,50,120,0,91,37,48,52,120,93,32 - DB 100,115,109,32,61,37,48,52,120,0,91,37,48,52,120 - DB 93,32,100,114,109,32,61,37,48,52,120,0,91,37,48 - DB 52,120,93,32,97,108,48,32,61,37,48,50,120,0,91 - DB 37,48,52,120,93,32,97,108,49,32,61,37,48,50,120 - DB 0,91,37,48,52,120,93,32,99,107,115,32,61,37,48 - DB 52,120,0,91,37,48,52,120,93,32,111,102,102,32,61 - DB 37,48,52,120,0 - PUBLIC dispdph_ -dispdph_: lxi d,.4 - call csave - LXI H,-6629 - SHLD ireghl_ - LXI H,8-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - SHLD iregbc_ - LXI H,0 - SHLD iregde_ - CALL bioscall_ - LHLD ireghl_ - MOV A,H - ORA L - JNZ .5 - LXI H,0 - RET -.5: - LHLD ireghl_ - XCHG - LXI H,2-.4 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,2-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,10 - DAD D - MOV E,M - INX H - MOV D,M - LXI H,0-.4 - DAD SP - MOV M,E - INX H - MOV M,D - LHLD ireghl_ - DCX H - XCHG - LXI H,-2-.4 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,-2-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - MOV E,M - MVI D,0 - LXI H,-4-.4 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - PUSH H - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - DCX H - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,8-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,65 - DAD D - PUSH H - LXI H,.3+0 - PUSH H - CALL printf_ - POP D - POP D - LXI H,-4-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - JMP .6 -.8: - LXI H,.3+11 - PUSH H - CALL printf_ - POP D - JMP .7 -.9: - LXI H,.3+18 - PUSH H - CALL printf_ - POP D - JMP .7 -.10: - LXI H,.3+25 - PUSH H - CALL printf_ - POP D - JMP .7 -.11: - LXI H,.3+32 - PUSH H - CALL printf_ - POP D - JMP .7 -.12: - LXI H,.3+39 - PUSH H - CALL printf_ - POP D - JMP .7 -.13: - LXI H,.3+46 - PUSH H - CALL printf_ - POP D - JMP .7 -.14: - LXI H,.3+53 - PUSH H - CALL printf_ - POP D - JMP .7 -.15: - LXI H,.3+60 - PUSH H - CALL printf_ - POP D - JMP .7 -.16: - LXI H,.3+67 - PUSH H - CALL printf_ - POP D - JMP .7 -.17: - LXI H,.3+74 - PUSH H - CALL printf_ - POP D - JMP .7 -.18: - LXI H,.3+81 - PUSH H - CALL printf_ - POP D - JMP .7 -.19: - LXI H,.3+88 - PUSH H - CALL printf_ - POP D - JMP .7 -.20: - LXI H,.3+95 - PUSH H - CALL printf_ - POP D - JMP .7 -.21: - LXI H,.3+102 - PUSH H - CALL printf_ - POP D - JMP .7 -.22: - LXI H,.3+109 - PUSH H - CALL printf_ - POP D - JMP .7 -.23: - LXI H,.3+116 - PUSH H - CALL printf_ - POP D - JMP .7 -.6: - CALL .swt - DW 16 - DW 0,.9 - DW 1,.8 - DW 16,.10 - DW 17,.11 - DW 32,.12 - DW 33,.13 - DW 48,.14 - DW 49,.15 - DW 64,.16 - DW 65,.17 - DW 80,.18 - DW 81,.19 - DW 96,.20 - DW 97,.21 - DW 112,.22 - DW 113,.23 - DW .7 -.7: - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL crtlc_ - POP D - POP D - LXI H,2-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,4-.4 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,.3+123 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,2-.4 - 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,4-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - INX H - PUSH H - LXI H,.3+140 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - INX H - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,2-.4 - 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,4-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,4 - DAD D - PUSH H - LXI H,.3+157 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - INX H - INX H - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,2-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,6 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,4-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,6 - DAD D - PUSH H - LXI H,.3+174 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,4 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,2-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,8 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,4-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,8 - DAD D - PUSH H - LXI H,.3+191 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,5 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,2-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,10 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,4-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,10 - DAD D - PUSH H - LXI H,.3+208 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,6 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,2-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,12 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,4-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,12 - DAD D - PUSH H - LXI H,.3+225 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,12-.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,2-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,14 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,4-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,14 - DAD D - PUSH H - LXI H,.3+242 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,2-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,16 - DAD D - MOV E,M - MVI D,0 - PUSH D - LXI H,76 - POP D - CALL .eq - JZ .24 - LXI H,2-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,17 - DAD D - MOV E,M - MVI D,0 - PUSH D - LXI H,85 - POP D - CALL .eq - JZ .24 - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,8 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,2-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,16 - DAD D - MOV E,M - MVI D,0 - PUSH D - LXI H,4-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,16 - DAD D - PUSH H - LXI H,.3+259 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,9 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,2-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,17 - DAD D - MOV E,M - MVI D,0 - PUSH D - LXI H,4-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,17 - DAD D - PUSH H - LXI H,.3+276 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,10 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,2-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,18 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,4-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,18 - DAD D - PUSH H - LXI H,.3+293 - PUSH H - CALL printf_ - POP D - POP D - POP D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,11 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,2-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,20 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,4-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,20 - DAD D - PUSH H - LXI H,.3+310 - PUSH H - CALL printf_ - POP D - POP D - POP D -.24: - LXI H,0-.4 - 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,350 - POP D - CALL .eq - JZ .25 - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - PUSH H - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,9 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.3+327 - PUSH H - CALL printf_ - POP D - LXI H,34 - PUSH H - LXI H,.3+333 - PUSH H - CALL printf_ - POP D - POP D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - PUSH H - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,10 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.3+343 - PUSH H - CALL printf_ - POP D -.25: - LXI H,0-.4 - 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,710 - POP D - CALL .eq - JZ .26 - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - PUSH H - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,9 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.3+358 - PUSH H - CALL printf_ - POP D - LXI H,34 - PUSH H - LXI H,.3+364 - PUSH H - CALL printf_ - POP D - POP D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - PUSH H - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,10 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.3+374 - PUSH H - CALL printf_ - POP D -.26: - LXI H,0-.4 - 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,170 - POP D - CALL .eq - JZ .27 - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - PUSH H - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,9 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.3+390 - PUSH H - CALL printf_ - POP D - LXI H,34 - PUSH H - LXI H,.3+396 - PUSH H - CALL printf_ - POP D - POP D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - PUSH H - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,10 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.3+406 - PUSH H - CALL printf_ - POP D -.27: - LXI H,0-.4 - 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,591 - POP D - CALL .eq - JZ .28 - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - PUSH H - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,9 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.3+421 - PUSH H - CALL printf_ - POP D - LXI H,34 - PUSH H - LXI H,.3+427 - PUSH H - CALL printf_ - POP D - POP D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - PUSH H - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,10 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.3+437 - PUSH H - CALL printf_ - POP D -.28: - LXI H,0-.4 - 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,546 - POP D - CALL .eq - JZ .29 - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - PUSH H - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,9 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.3+452 - PUSH H - CALL printf_ - POP D - LXI H,34 - PUSH H - LXI H,.3+458 - PUSH H - CALL printf_ - POP D - POP D - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - PUSH H - LXI H,12-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,10 - DAD D - PUSH H - CALL crtlc_ - POP D - POP D - LXI H,.3+468 - PUSH H - CALL printf_ - POP D -.29: - LXI H,2-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,10 - DAD D - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,14-.4 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - LXI H,14-.4 - DAD SP - MOV E,M - INX H - MOV D,M - LXI H,12 - DAD D - PUSH H - CALL dispdpb_ - POP D - POP D - POP D - RET -.4 EQU -8 -.3: - DB 68,114,105,118,101,32,37,99,58,32,0,32,32,32,82 - DB 65,77,0,32,32,32,82,79,77,0,32,32,32,70,68 - DB 48,0,32,32,32,70,68,49,0,32,32,73,68,69,48 - DB 0,32,32,73,68,69,49,0,65,84,65,80,73,48,0 - DB 65,84,65,80,73,49,0,80,80,73,68,69,48,0,80 - DB 80,73,68,69,49,0,32,32,32,83,68,48,0,32,32 - DB 32,83,68,49,0,80,82,80,83,68,48,0,80,82,80 - DB 83,68,49,0,80,80,80,83,68,48,0,80,80,80,83 - DB 68,49,0,91,37,48,52,120,93,32,120,108,116,32,61 - DB 37,48,52,120,0,91,37,48,52,120,93,32,114,118,49 - DB 32,61,37,48,52,120,0,91,37,48,52,120,93,32,114 - DB 118,50,32,61,37,48,52,120,0,91,37,48,52,120,93 - DB 32,114,118,51,32,61,37,48,52,120,0,91,37,48,52 - DB 120,93,32,100,98,102,32,61,37,48,52,120,0,91,37 - DB 48,52,120,93,32,100,112,98,32,61,37,48,52,120,0 - DB 91,37,48,52,120,93,32,99,115,118,32,61,37,48,52 - DB 120,0,91,37,48,52,120,93,32,97,108,118,32,61,37 - DB 48,52,120,0,91,37,48,52,120,93,32,115,105,103,108 - DB 61,37,48,50,120,0,91,37,48,52,120,93,32,115,105 - DB 103,117,61,37,48,50,120,0,91,37,48,52,120,93,32 - DB 99,117,114,114,61,37,48,52,120,0,91,37,48,52,120 - DB 93,32,110,117,109,98,61,37,48,52,120,0,51,45,49 - DB 47,50,0,37,99,32,32,57,32,83,80,84,0,55,50 - DB 48,75,66,32,68,83,68,68,32,70,77,84,0,51,45 - DB 49,47,50,0,37,99,32,49,56,32,83,80,84,0,49 - DB 46,52,52,77,66,32,68,83,72,68,32,70,77,84,0 - DB 53,45,49,47,52,0,37,99,32,32,57,32,83,80,84 - DB 0,51,54,48,75,66,32,68,83,68,68,32,70,77,84 - DB 0,53,45,49,47,52,0,37,99,32,49,53,32,83,80 - DB 84,0,49,46,50,77,66,32,68,83,72,68,32,70,77 - DB 84,0,32,32,32,32,56,0,37,99,32,49,53,32,83 - DB 80,84,0,49,46,49,49,77,66,32,68,83,68,68,32 - DB 70,77,84,0 - PUBLIC main_ -main_: lxi d,.31 - call csave - LXI H,25 - SHLD dregbc_ - CALL bdoscall_ - LDA drega_ - MOV L,A - MVI H,0 - XCHG - LXI H,2-.31 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,2-.31 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - JMP .32 -.34: - LXI H,4 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .33 -.35: - LXI H,4 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .33 -.36: - LXI H,4 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .33 -.37: - LXI H,4 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .33 -.38: - LXI H,4 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .33 -.39: - LXI H,3 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .33 -.40: - LXI H,2 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .33 -.41: - LXI H,1 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .33 -.42: - LXI H,0 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .33 -.32: - CALL .swt - DW 8 - DW 0,.34 - DW 1,.35 - DW 2,.36 - DW 3,.37 - DW 4,.38 - DW 5,.39 - DW 6,.40 - DW 7,.41 - DW .42 -.33: - LXI H,2 - XCHG - LXI H,8-.31 - DAD SP - MOV A,M - INX H - MOV H,M - MOV L,A - CALL .eq - JZ .43 - LXI H,10-.31 - 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,-126-.31 - DAD SP - PUSH H - CALL strcpy_ - POP D - POP D - LXI H,-128-.31 - DAD SP - PUSH H - CALL strlen_ - POP D - PUSH H - LXI H,2 - POP D - CALL .eq - JZ .44 - LXI H,-127-.31 - DAD SP - MOV E,M - MVI D,0 - PUSH D - LXI H,58 - POP D - CALL .eq - JZ .45 - LXI H,-128-.31 - DAD SP - MOV E,M - MVI D,0 - XCHG - JMP .46 -.48: -.49: - LXI H,0 - XCHG - LXI H,2-.31 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,4 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .47 -.50: -.51: - LXI H,1 - XCHG - LXI H,2-.31 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,4 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .47 -.52: -.53: - LXI H,2 - XCHG - LXI H,2-.31 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,4 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .47 -.54: -.55: - LXI H,3 - XCHG - LXI H,2-.31 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,4 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .47 -.56: -.57: - LXI H,4 - XCHG - LXI H,2-.31 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,4 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .47 -.58: -.59: - LXI H,5 - XCHG - LXI H,2-.31 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,3 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .47 -.60: -.61: - LXI H,2 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,6 - XCHG - LXI H,2-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .47 -.62: -.63: - LXI H,7 - XCHG - LXI H,2-.31 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,1 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .47 -.64: -.65: - LXI H,8 - XCHG - LXI H,2-.31 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,1 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .47 -.66: -.67: - LXI H,9 - XCHG - LXI H,2-.31 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,1 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .47 -.68: -.69: - LXI H,10 - XCHG - LXI H,2-.31 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,1 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .47 -.70: -.71: - LXI H,11 - XCHG - LXI H,2-.31 - DAD SP - MOV M,E - INX H - MOV M,D - LXI H,1 - XCHG - LXI H,0-.31 - DAD SP - MOV M,E - INX H - MOV M,D - JMP .47 -.46: - LXI D,-65 - DAD D - XCHG - LXI H,-44 - DAD D - JC .47 - LXI H,.72 - DAD D - DAD D - MOV E,M - INX H - MOV D,M - XCHG - PCHL -.72: DW .48 - DW .50 - DW .52 - DW .54 - DW .56 - DW .58 - DW .60 - DW .62 - DW .64 - DW .66 - DW .68 - DW .70 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .47 - DW .49 - DW .51 - DW .53 - DW .55 - DW .57 - DW .59 - DW .61 - DW .63 - DW .65 - DW .67 - DW .69 - DW .71 -.47: -.45: -.44: -.43: - 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,.30+0 - PUSH H - CALL printf_ - XCHG - LXI H,16 - DAD SP - SPHL - LXI H,.30+33 - PUSH H - CALL printf_ - POP D - LXI H,0 - XCHG - LXI H,0-.31 - DAD SP - MOV A,M - INX H - MOV H,M - MOV L,A - CALL .lt - JZ .73 - LXI H,2 - PUSH H - LXI H,3 - PUSH H - LXI H,6-.31 - DAD SP - MOV E,M - INX H - MOV D,M - PUSH D - CALL dispdph_ - POP D - POP D - POP D -.73: - LXI H,1 - XCHG - LXI H,0-.31 - DAD SP - MOV A,M - INX H - MOV H,M - MOV L,A - CALL .lt - JZ .74 - LXI H,22 - PUSH H - LXI H,3 - PUSH H - LXI H,6-.31 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - PUSH H - CALL dispdph_ - POP D - POP D - POP D -.74: - LXI H,2 - XCHG - LXI H,0-.31 - DAD SP - MOV A,M - INX H - MOV H,M - MOV L,A - CALL .lt - JZ .75 - LXI H,42 - PUSH H - LXI H,3 - PUSH H - LXI H,6-.31 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - INX H - PUSH H - CALL dispdph_ - POP D - POP D - POP D -.75: - LXI H,3 - XCHG - LXI H,0-.31 - DAD SP - MOV A,M - INX H - MOV H,M - MOV L,A - CALL .lt - JZ .76 - LXI H,62 - PUSH H - LXI H,3 - PUSH H - LXI H,6-.31 - DAD SP - MOV E,M - INX H - MOV D,M - XCHG - INX H - INX H - INX H - PUSH H - CALL dispdph_ - POP D - POP D - POP D -.76: - LXI H,0 - SHLD dregbc_ - CALL bdoscall_ - RET -.31 EQU -132 -.30: - DB 86,73,69,87,46,67,79,77,32,37,100,47,37,100,47 - DB 37,100,32,118,37,100,46,37,100,46,37,100,32,40,37 - DB 100,41,0,32,100,119,103,32,45,32,83,121,115,116,101 - DB 109,32,83,116,111,114,97,103,101,32,68,114,105,118,101 - DB 115,32,97,110,100,32,76,111,103,105,99,97,108,32,85 - DB 110,105,116,115,0 - extrn strlen_ - extrn strcpy_ - extrn printf_ - 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 .eq - extrn .lt - END - \ No newline at end of file diff --git a/branches/s100/Apps/crossdev/XTRAAPPS.BAT b/branches/s100/Apps/crossdev/XTRAAPPS.BAT new file mode 100644 index 00000000..fce4b32d --- /dev/null +++ b/branches/s100/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