diff --git a/branches/dwg/Apps/crossdev/ASMIFACE.O b/branches/dwg/Apps/crossdev/ASMIFACE.O deleted file mode 100644 index fa0de31b..00000000 Binary files a/branches/dwg/Apps/crossdev/ASMIFACE.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/BDOSCALL.O b/branches/dwg/Apps/crossdev/BDOSCALL.O deleted file mode 100644 index ce37563d..00000000 Binary files a/branches/dwg/Apps/crossdev/BDOSCALL.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/BIOSCALL.O b/branches/dwg/Apps/crossdev/BIOSCALL.O deleted file mode 100644 index 9a6a9fba..00000000 Binary files a/branches/dwg/Apps/crossdev/BIOSCALL.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/CBANNER.ASM b/branches/dwg/Apps/crossdev/CBANNER.ASM deleted file mode 100644 index 7648636c..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/CBANNER.O b/branches/dwg/Apps/crossdev/CBANNER.O deleted file mode 100644 index 5759d5a0..00000000 Binary files a/branches/dwg/Apps/crossdev/CBANNER.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/CHARS.ASM b/branches/dwg/Apps/crossdev/CHARS.ASM deleted file mode 100644 index 47bae2f6..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/CLEAR.ASM b/branches/dwg/Apps/crossdev/CLEAR.ASM deleted file mode 100644 index 261b3d1f..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/CLOGICAL.ASM b/branches/dwg/Apps/crossdev/CLOGICAL.ASM deleted file mode 100644 index 017c74b6..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/CLOGICAL.O b/branches/dwg/Apps/crossdev/CLOGICAL.O deleted file mode 100644 index cb9e3a5c..00000000 Binary files a/branches/dwg/Apps/crossdev/CLOGICAL.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/CMEMORY.O b/branches/dwg/Apps/crossdev/CMEMORY.O deleted file mode 100644 index d58456b5..00000000 Binary files a/branches/dwg/Apps/crossdev/CMEMORY.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/CNAMEPT1.ASM b/branches/dwg/Apps/crossdev/CNAMEPT1.ASM deleted file mode 100644 index 98b7e2d6..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/CNAMEPT1.O b/branches/dwg/Apps/crossdev/CNAMEPT1.O deleted file mode 100644 index 30243fe5..00000000 Binary files a/branches/dwg/Apps/crossdev/CNAMEPT1.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/CNAMEPT2.ASM b/branches/dwg/Apps/crossdev/CNAMEPT2.ASM deleted file mode 100644 index a8280c90..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/CNAMEPT2.O b/branches/dwg/Apps/crossdev/CNAMEPT2.O deleted file mode 100644 index ad28d6bb..00000000 Binary files a/branches/dwg/Apps/crossdev/CNAMEPT2.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/CNAMEPT3.ASM b/branches/dwg/Apps/crossdev/CNAMEPT3.ASM deleted file mode 100644 index 1d77ae04..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/CNAMEPT3.O b/branches/dwg/Apps/crossdev/CNAMEPT3.O deleted file mode 100644 index 4d1a1517..00000000 Binary files a/branches/dwg/Apps/crossdev/CNAMEPT3.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/CNAMEPT4.ASM b/branches/dwg/Apps/crossdev/CNAMEPT4.ASM deleted file mode 100644 index 437a4620..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/CNAMEPT4.O b/branches/dwg/Apps/crossdev/CNAMEPT4.O deleted file mode 100644 index 50309b57..00000000 Binary files a/branches/dwg/Apps/crossdev/CNAMEPT4.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/CPMNAME.ASM b/branches/dwg/Apps/crossdev/CPMNAME.ASM deleted file mode 100644 index d4b2fd0c..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/CPMNAME.O b/branches/dwg/Apps/crossdev/CPMNAME.O deleted file mode 100644 index 07068550..00000000 Binary files a/branches/dwg/Apps/crossdev/CPMNAME.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/CTERMCAP.ASM b/branches/dwg/Apps/crossdev/CTERMCAP.ASM deleted file mode 100644 index 50ae771d..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/CTERMCAP.O b/branches/dwg/Apps/crossdev/CTERMCAP.O deleted file mode 100644 index f6da9622..00000000 Binary files a/branches/dwg/Apps/crossdev/CTERMCAP.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/DIAGNOSE.O b/branches/dwg/Apps/crossdev/DIAGNOSE.O deleted file mode 100644 index eb1ff811..00000000 Binary files a/branches/dwg/Apps/crossdev/DIAGNOSE.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/FLIP.ASM b/branches/dwg/Apps/crossdev/FLIP.ASM deleted file mode 100644 index bfd5cb5b..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/FORM.ASM b/branches/dwg/Apps/crossdev/FORM.ASM deleted file mode 100644 index e2f63568..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/MAP.ASM b/branches/dwg/Apps/crossdev/MAP.ASM deleted file mode 100644 index 35aa6305..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/MAP.O b/branches/dwg/Apps/crossdev/MAP.O deleted file mode 100644 index e74abee3..00000000 Binary files a/branches/dwg/Apps/crossdev/MAP.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/META.ASM b/branches/dwg/Apps/crossdev/META.ASM deleted file mode 100644 index 02d485b5..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/META.O b/branches/dwg/Apps/crossdev/META.O deleted file mode 100644 index a68bf7c1..00000000 Binary files a/branches/dwg/Apps/crossdev/META.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/METADATA.ASM b/branches/dwg/Apps/crossdev/METADATA.ASM deleted file mode 100644 index 56660919..00000000 --- a/branches/dwg/Apps/crossdev/METADATA.ASM +++ /dev/null @@ -1,523 +0,0 @@ -; metadata.asm 7/30/2012 dwg - set c=0 for BIOS WRITE calls per Wayne -; metadata.asm 2/17/2012 dwg - review for release 1.5.1.0 -; metadata.asm 2/11/2012 dwg - review for release 1.5 -; metadata.asm 2/ 4/2012 dwg - metadata library implementation - -; Copyright (C) 2011-2012 Douglas Goodall Licensed under GPL Ver 3. -; -; This file is part of NuBiosDWG and is free software: you can -; redistribute it and/or modify it under the terms of the GNU -; General Public License as published by the Free Software Foundation, -; either version 3 of the License, or (at your option) any later version. -; This file is distributed in the hope that it will be useful, -; but WITHOUT ANY WARRANTY; without even the implied warranty of -; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -; GNU General Public License for more details. -; You should have received a copy of the GNU General Public License -; along with it. If not, see . - - - maclib portab - maclib globals - maclib cpmbios - maclib cpmbdos - maclib memory ; has x$memset - maclib applvers ; has A$RMJ, A$RMN, A$RUP, A$RTP - maclib printers - maclib stdlib ; SUCCESS and FAILURE - -; metadata.lib 1/31/2012 dwg - macros to manipulate drive metadata -; -; update$meta buffer | x$u$meta hl -> buffer -; init$meta buffer | x$i$meta hl -> buffer -; get$meta drive,buffer | x$g$meta hl -> buffer, c = drivenum -; put$meta drive,buffer | x$p$meta hl -> buffer, c = drivenum -; prot$meta drive | x$pr$meta c = drivenum -; unprot$meta drive | x$un$meta c = drivenum -; -;------------------------------------------- - -;meta$debug equ TRUE -meta$debug equ FALSE - -meta$sig5a equ 0 -meta$siga5 equ 1 -meta$prot equ 128-8-1-16-7 -meta$updates equ 128-8-1-16-6 -meta$rmj equ 128-8-1-16-4 -meta$rmn equ 128-8-1-16-3 -meta$rup equ 128-8-1-16-2 -meta$rtp equ 128-8-1-16-1 -meta$label equ 128-8-1-16 -meta$term equ 128-8-1 -meta$info$loc equ 128-8 -meta$cpm$loc equ 128-6 -meta$dat$end equ 128-4 -meta$cpm$ent equ 128-2 -meta$label$len equ meta$term-meta$label - -;----------------------------- -crlf db CR,LF,'$' -;----------------------------- - - page - - public x$u$meta -x$u$meta: - shld x$u$bufptr - -; lhld x$u$bufptr - lxi d,meta$prot - dad d - mov a,m - cpi TRUE ; is metadata write protected - jz x$u$proterr ; if so go around update code - - ; increment the update count - lhld x$u$bufptr - lxi d,meta$updates - dad d - mov e,m ; pick up LO byte into E - inx h - mov d,m ; pick up HO byte into D - inx d ; increment DE - mov m,d - dcx h - mov m,e - - ; update last written version quad - lhld x$u$bufptr - lxi d,meta$rmj - dad d - mvi a,A$RMJ - mov m,a - inx h - mvi a,A$RMN - mov m,a - inx h - mvi a,A$RUP - mov m,a - inx h - mvi a,A$RTP - mov m,a - - lhld x$u$bufptr - lxi d,meta$term - dad d - mov a,m - cpi '$' - jz x$u$end - - lhld x$u$bufptr - lxi d,meta$label - dad d - mvi a,' ' - mvi c,16 - call x$memset - - lhld x$u$bufptr - lxi d,meta$term - dad d - mvi a,'$' - mov m,a - -x$u$end: - mvi a,SUCCESS - ret - -x$u$proterr: - mvi a,FAILURE - ret - -x$u$bufptr ds 2 - - -;----------------------------- - - page - - public x$i$meta -x$i$meta: - shld x$i$bufptr - - lhld x$i$bufptr - lxi d,meta$sig5a - dad d - mvi a,05ah - mov m,a - inx h - mvi a,0a5h - mov m,a - - lhld x$i$bufptr - lxi d,meta$prot - dad d - mvi a,FALSE - mov m,a - - lhld x$i$bufptr - lxi d,meta$updates - dad d - mvi a,0 - mov m,a - inx h - mov m,a - - lhld x$i$bufptr - lxi d,meta$label - dad d ; hl -> dest - mvi a,' ' - mvi c,meta$label$len - call x$memset - - lhld x$i$bufptr - lxi d,meta$term - dad d - mvi a,'$' - mov m,a - - lhld x$i$bufptr - lxi d,meta$updates - dad d - mvi a,0 - mov m,a - inx h - mov m,a - - lhld x$i$bufptr - call x$u$meta - - ret - -x$i$bufptr ds 2 - -;------------------------------------------- - - page - - public x$g$meta -x$g$meta; - - shld x$g$bufptr ; entry hl has bufptr - mov a,c ; entry c has drivenum - sta x$g$drivenum - -; lda x$g$drivenum - mov c,a - call BISELDSK - - lxi b,0 - call BISETTRK - - lxi b,11 - call BISETSEC - - lhld x$g$bufptr - push h - pop b - call BISETDMA - - call BIREAD - - lhld x$g$bufptr - lxi d,meta$siga5 - dad d - mov a,m - cpi 0a5h - jnz x$g$needs$init - - lhld x$g$bufptr - lxi d,meta$sig5a - dad d - mov a,m - cpi 05ah - jnz x$g$needs$init - - jmp x$g$fini - -x$g$needs$init: - - lhld x$g$bufptr - call x$i$meta - - mvi c,0 ; default to 0 per Wayne - call BIWRITE - -x$g$fini: - mvi c,13 - call BDOS - ret - -x$g$bufptr ds 2 -x$g$drivenum ds 1 - -;----------------------------------- - - page - - public x$p$meta -x$p$meta: - shld x$p$bufptr - mov a,c - sta x$p$drivenum - - IF meta$debug eq TRUE - conout 'x' - conout '$' - conout 'p' - conout '$' - printf 'meta called, drive=' - lda x$p$drivenum - mov l,a - mvi h,0 - call pr$d$word - printf ', buffer=' - lhld x$p$bufptr - call pr$h$word - print crlf - ENDIF - - ; increment the update count - lhld x$p$bufptr ; hl -> buffer - lxi d,meta$updates ; de = offset to updates word - dad d ; hl -> updates word - mov e,m ; e = LO byte of updates - inx h ; hl -> HO byte - mov d,m ; d = HO byte of updates - inx d ; increment DE (updates) - mov m,d ; put back HO byte - dcx h ; back up ptr - mov m,e ; put back LO byte - - ; update last written version quad - lhld x$p$bufptr - lxi d,meta$rmj - dad d - mvi a,A$RMJ - mov m,a - inx h - mvi a,A$RMN - mov m,a - inx h - mov a,A$RUP - mov m,a - inx h - mvi a,A$RTP - mov m,a - - lhld x$p$bufptr - lxi d,meta$prot - dad d - mov a,m - cpi TRUE ; if metadata is write protected - jz x$p$fini ; jump around update code - lda x$p$drivenum - mov c,a - call BISELDSK - lxi b,0 - call BISETTRK - lxi b,11 - call BISETSEC - lhld x$p$bufptr - push h - pop b - call BISETDMA - - mvi c,0 ; default to 0 per Wayne - call BIWRITE - - IF meta$debug eq TRUE - printf 'return from BIWRITE is ' - mov l,a - mvi h,0 - call pr$h$word - print crlf - ENDIF - -x$p$fini: - ret - -x$p$bufptr ds 2 -x$p$drivenum ds 1 - -;----------------------- - - page - - public x$pr$meta -x$pr$meta: - mov a,c - sta x$pr$drivenum - - IF meta$debug eq TRUE - conout 'x' - conout '$' - printf 'pr' - conout '$' - printf 'meta called, drive=' - lda x$pr$drivenum - mov l,a - mvi h,0 - call pr$d$word - print crlf - ENDIF - - lda x$pr$drivenum - mov c,a - call BISELDSK - lxi b,0 - call BISETTRK - lxi b,11 - call BISETSEC - lxi b,x$pr$buffer - call BISETDMA - call BIREAD - - IF meta$debug eq TRUE - printf 'return from BIREAD is ' - mov l,a - mvi h,0 - call pr$h$word - print crlf - ENDIF - - lxi h,x$pr$buffer - lxi d,meta$prot - dad d - mvi a,TRUE - mov m,a - - - lxi h,x$pr$buffer - lxi d,meta$updates - dad d - mov e,m - inx h - mov d,m - inx d - mov m,d - dcx h - mov m,e - - lda x$pr$drivenum - mov c,a - call BISELDSK - lxi b,0 - call BISETTRK - lxi b,11 - call BISETSEC - lxi b,x$pr$buffer - call BISETDMA - - mvi c,0 ; default to 0 per Wayne - call BIWRITE - - IF meta$debug eq TRUE - printf 'return from BIWRITE is ' - mov l,a - mvi h,0 - call pr$h$word - print crlf - ENDIF - - mvi c,13 - call BDOS - - ret - - -x$pr$drivenum ds 1 -x$pr$buffer ds 128 - -;----------------------- - - page - - public x$un$meta -x$un$meta: - mov a,c - sta x$un$drivenum - - IF meta$debug eq TRUE - conout 'x' - conout '$' - printf 'un' - conout '$' - printf 'meta called, drive=' - lda x$un$drivenum - mov l,a - mvi h,0 - call pr$d$word - print crlf - ENDIF - - lda x$un$drivenum - mov c,a - call BISELDSK - lxi b,0 - call BISETTRK - lxi b,11 - call BISETSEC - lxi b,x$un$buffer - call BISETDMA - call BIREAD - - IF meta$debug eq TRUE - printf 'return from BIREAD is ' - mov l,a - mvi h,0 - call pr$h$word - print crlf - ENDIF - - lxi h,x$un$buffer - lxi d,meta$prot - dad d - mvi a,FALSE - mov m,a - - - lxi h,x$un$buffer - lxi d,meta$updates - dad d - mov e,m - inx h - mov d,m - inx d - mov m,d - dcx h - mov m,e - - lda x$un$drivenum - mov c,a - call BISELDSK - lxi b,0 - call BISETTRK - lxi b,11 - call BISETSEC - lxi b,x$un$buffer - call BISETDMA - - mvi c,0 ; default to 0 per Wayne - call BIWRITE - - IF meta$debug eq TRUE - printf 'return from BIWRITE is ' - mov l,a - mvi h,0 - call pr$h$word - print crlf - ENDIF - - mvi c,13 - call BDOS - - ret - -x$un$drivenum ds 1 -x$un$buffer ds 128 - -;----------------------- - -; eof - metadata.asm - \ No newline at end of file diff --git a/branches/dwg/Apps/crossdev/MULTIFMT.ASM b/branches/dwg/Apps/crossdev/MULTIFMT.ASM deleted file mode 100644 index e4013257..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/MULTIFMT.O b/branches/dwg/Apps/crossdev/MULTIFMT.O deleted file mode 100644 index 6b441a10..00000000 Binary files a/branches/dwg/Apps/crossdev/MULTIFMT.O and /dev/null differ diff --git a/branches/dwg/Apps/crossdev/N8CHARS.ASM b/branches/dwg/Apps/crossdev/N8CHARS.ASM deleted file mode 100644 index 55fc055c..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/N8VIDTST.ASM b/branches/dwg/Apps/crossdev/N8VIDTST.ASM deleted file mode 100644 index b186f820..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/PUTC.ASM b/branches/dwg/Apps/crossdev/PUTC.ASM deleted file mode 100644 index 37a787ea..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/README.1ST b/branches/dwg/Apps/crossdev/README.1ST deleted file mode 100644 index 64aaab57..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/REMOTE.ASM b/branches/dwg/Apps/crossdev/REMOTE.ASM deleted file mode 100644 index d97f5ec6..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/SECTORIO.ASM b/branches/dwg/Apps/crossdev/SECTORIO.ASM deleted file mode 100644 index 59fa4121..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/SYSGEN.ASM b/branches/dwg/Apps/crossdev/SYSGEN.ASM deleted file mode 100644 index fbec0b5d..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/TERMTYPE.ASM b/branches/dwg/Apps/crossdev/TERMTYPE.ASM deleted file mode 100644 index f1d9008b..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/TMS9918.ASM b/branches/dwg/Apps/crossdev/TMS9918.ASM deleted file mode 100644 index 37787e9f..00000000 --- a/branches/dwg/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,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,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/dwg/Apps/crossdev/VIDEO.ASM b/branches/dwg/Apps/crossdev/VIDEO.ASM deleted file mode 100644 index 5b78c400..00000000 --- a/branches/dwg/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/dwg/Apps/crossdev/VIEW.ASM b/branches/dwg/Apps/crossdev/VIEW.ASM deleted file mode 100644 index d49639ce..00000000 --- a/branches/dwg/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