hmmm

diff --git a/asmyt.asm b/asmyt.asm
index d901c9b0ff80fd985eeaba4f0a25c33c16203e4b..3fac23123f4f970685fd7369ca69d18dcc4a683a 100755 (executable)
--- a/asmyt.asm
+++ b/asmyt.asm
@@ -12,15 +12,15 @@ ASSUME cs:poro
 PUBLIC C plzline, C setplzparas, C psini, C lsini4, C lsini16\r
 \r
 LABEL psini BYTE\r
-;;INCLUDE 'psini.inc'\r
+INCLUDE 'psini.inc'\r
 ;        db     16384 dup(?)\r
 \r
 LABEL lsini4 WORD\r
-;;INCLUDE 'lsini4.inc'\r
+INCLUDE 'lsini4.inc'\r
 ;        db     16384 dup(?)\r
 \r
 LABEL lsini16 WORD\r
-;;INCLUDE 'lsini16.inc'\r
+INCLUDE 'lsini16.inc'\r
 ;        db     16384 dup(?)\r
 \r
 PROC    C plzline\r

diff --git a/asmyt.err b/asmyt.err
deleted file mode 100755 (executable)
index 306fb1b..0000000
--- a/asmyt.err
+++ /dev/null
@@ -1,10 +0,0 @@
-asmyt.asm(26): Error! E514: Colon is expected
-asmyt.asm(30): Error! E065: Operator is expected
-asmyt.asm(89): Error! E065: Operator is expected
-asmyt.asm(93): Error! E600: 'C' is already defined
-asmyt.asm(95): Error! E611: ARG may only be used within a PROC and before the first instruction
-asmyt.asm(114): Error! E506: Block nesting error
-asmyt.asm(118): Error! E600: 'C' is already defined
-asmyt.asm(120): Error! E611: ARG may only be used within a PROC and before the first instruction
-asmyt.asm(128): Error! E002: Invalid instruction with current CPU setting
-asmyt.asm(134): Error! E506: Block nesting error

diff --git a/asmyt.o b/asmyt.o
new file mode 100755 (executable)
index 0000000..a398f3e
Binary files /dev/null and b/asmyt.o differ

diff --git a/copper.lib b/copper.lib
index cf5aecc9a643b3985c8bc60c154b1cfca4e3a8bb..1cd15602faf65b3487ddfeb430cd6cabe4c2bed4 100755 (executable)
Binary files a/copper.lib and b/copper.lib differ

diff --git a/plzpart.map b/plzpart.map
index a7aef9129ec565a8ee9c782f78a2ea9bcaeacb90..cc1717ecae05b0742f43a84d21874b2d1b736964 100755 (executable)
--- a/plzpart.map
+++ b/plzpart.map
@@ -1,7 +1,7 @@
 Open Watcom Linker Version 2.0 beta Feb  1 2016 01:01:49 (32-bit)
 Copyright (c) 2002-2016 The Open Watcom Contributors. All Rights Reserved.
 Portions Copyright (c) 1985-2002 Sybase, Inc. All Rights Reserved.
-Created on:       16/08/04 08:44:52
+Created on:       16/08/05 12:44:40
 Executable Image: plzpart.exe
 creating a DOS executable
 Error! E2028: init_copper_ is an undefined reference

diff --git a/u2plz/MAIN.C b/u2plz/MAIN.C
index bf421c469da4cbdad1377d70480f2a689fc4497f..b1bb0b3c8484b842caf0134d6387a989c6a7eedf 100755 (executable)
--- a/u2plz/MAIN.C
+++ b/u2plz/MAIN.C
@@ -1,13 +1,13 @@
-#include "..\dis\dis.h"\r
+//#include "..\dis\dis.h"\r
 \r
 extern plz();\r
-extern vect();\r
+//extern vect();\r
 \r
 main()  {\r
-       dis_partstart();\r
+       //cd udis_partstart();\r
        init_copper();\r
-       initvect();\r
+       //initvect();\r
        plz();\r
-       vect();\r
+       //vect();\r
        close_copper();\r
-       }
\ No newline at end of file
+       }\r

diff --git a/u2plz/MAIN.OBJ b/u2plz/MAIN.OBJ
new file mode 100755 (executable)
index 0000000..b773069
Binary files /dev/null and b/u2plz/MAIN.OBJ differ

diff --git a/u2plz/PLZ.C b/u2plz/PLZ.C
index 420736d32d490610fcf7764192ec4ca44ee1d617..bfcc59eec9a4252e6cbb4ebe1f012a5fcf7086c0 100755 (executable)
--- a/u2plz/PLZ.C
+++ b/u2plz/PLZ.C
@@ -65,19 +65,19 @@ plz(){
        long    tim=0,count=0;\r
        int     ch=0,sync=2;\r
 \r
-       while(dis_musplus()<0 && !dis_exit());\r
-       dis_setmframe(0);\r
+       //while(dis_musplus()<0 && !dis_exit());\r
+       //dis_setmframe(0);\r
 \r
        init_plz();\r
        cop_drop=128;\r
        cop_fadepal=pals[curpal++];\r
 \r
        frame_count=0;\r
-       while(!dis_exit())\r
+       while(!kbhit())\r
                {\r
                tim+=frame_count; frame_count=0; count++;\r
-               if(dis_getmframe()>timetable[ttptr])\r
-                       {\r
+               //if(dis_getmframe()>timetable[ttptr])\r
+               //      {\r
                        memset(fadepal,0,768);\r
                        cop_drop=1;\r
                        cop_fadepal=pals[curpal++];\r
@@ -90,7 +90,7 @@ plz(){
                        ik2=inittable[ttptr][5];\r
                        ik3=inittable[ttptr][6];\r
                        ik4=inittable[ttptr][7];\r
-                       }\r
+               //      }\r
                if(curpal==5 && cop_drop>64) break;\r
 \r
                asm     mov dx, 3c4h\r

diff --git a/u2plz/PLZFILL.BAK b/u2plz/PLZFILL.BAK
new file mode 100755 (executable)
index 0000000..ae73c18
--- /dev/null
+++ b/u2plz/PLZFILL.BAK
@@ -0,0 +1,186 @@
+#include <stdio.h>\r
+#include <conio.h>\r
+#include <dos.h>\r
+#include <math.h>\r
+#include "tweak.h"\r
+\r
+extern far do_line(char far *to, int dx, int dy, int cnt, char far *from, long txx1, long txy1, long txx2, long txy2, int dseg);\r
+extern far do_block(int ycnt);\r
+extern far do_clear(char far *vmem, int far *otau, int far *ntau);\r
+\r
+extern int acstau[256];\r
+int    sini[2000];\r
+char   (* far vmem)[160]=MK_FP(0x0a000,0);\r
+extern char far kuva1[128][256];\r
+extern char far kuva2[128][256];\r
+extern char far kuva3[128][256];\r
+extern char far dist1[128][256];\r
+char   far buu[1000];\r
+char   sinx[128], siny[128];\r
+char   pal[768];\r
+\r
+int    clrtau[8][256][2];\r
+int    clrptr=0;\r
+\r
+initvect() {\r
+       int     a,b,x,y,s,d=0,p=0,ch;\r
+\r
+       for(a=0;a<1524;a++)\r
+               {\r
+               sini[a]=s=sin(a/1024.0*M_PI*4)*127;\r
+               s-=sini[a];\r
+               }\r
+\r
+/*     for(a=0;a<65;a++) for(b=0;b<256;b++) // chessboard\r
+               { x=1; if((a>>4)&1) x^=3; if((b>>5)&1) x^=3; kuva[a][b]=x; }\r
+\r
+       pal[0*192+3*1]=pal[0*192+3*1+1]=pal[0*192+3*1+2]=40;\r
+       pal[0*192+3*2]=pal[0*192+3*2+1]=pal[0*192+3*2+2]=60;\r
+*/\r
+       for(a=1;a<32;a++)               // must-sini-valk\r
+               { pal[0*192+a*3]=0; pal[0*192+a*3+1]=0; pal[0*192+a*3+2]=a*2; }\r
+       for(a=0;a<32;a++)\r
+               { pal[0*192+a*3+32*3]=a*2; pal[0*192+a*3+1+32*3]=a*2; pal[0*192+a*3+2+32*3]=63; }\r
+\r
+       for(a=0;a<32;a++)               // must-pun-kelt\r
+               { pal[1*192+a*3]=a*2; pal[1*192+a*3+1]=0; pal[1*192+a*3+2]=0; }\r
+       for(a=0;a<32;a++)\r
+               { pal[1*192+a*3+32*3]=63; pal[1*192+a*3+1+32*3]=a*2; pal[1*192+a*3+2+32*3]=0; }\r
+\r
+\r
+       for(a=0;a<32;a++)               // must-orans-viol\r
+               { pal[2*192+a*3]=a; pal[2*192+a*3+1]=0; pal[2*192+a*3+2]=a*2/3; }\r
+       for(a=0;a<32;a++)\r
+               { pal[2*192+a*3+32*3]=31-a; pal[2*192+a*3+1+32*3]=a*2; pal[2*192+a*3+2+32*3]=21; }\r
+\r
+\r
+       for(y=0;y<64;y++) for(x=0;x<256;x++)\r
+               {\r
+               kuva1[y][x]=sini[(y*4+sini[x*2])&511]/4+32;\r
+               kuva2[y][x]=sini[(y*4+sini[x*2])&511]/4+32+64;\r
+               kuva3[y][x]=sini[(y*4+sini[x*2])&511]/4+32+128;\r
+               }\r
+\r
+       for(y=0;y<128;y++) for(x=0;x<256;x++)\r
+               dist1[y][x]=sini[y*8]/3;\r
+\r
+       for(a=0;a<8*256;a++) { clrtau[0][a][0]=640; clrtau[0][a][1]=0; }\r
+       }\r
+\r
+extern far char * to;\r
+extern far char * from;\r
+extern far int * ctau;\r
+extern far int dseg;\r
+extern far int xx, yy;\r
+extern far long        ay1,ay2,ax1,ax2,xx1,yy1,xx2,yy2;\r
+extern far long        txx1,txy1,tay1,tax1;\r
+extern far long        txx2,txy2,tay2,tax2;\r
+\r
+int    kuvataus[]={FP_SEG(kuva1),FP_SEG(kuva2),FP_SEG(kuva3),FP_SEG(kuva1)};\r
+int    disttaus[]={FP_SEG(dist1),FP_SEG(dist1),FP_SEG(dist1),FP_SEG(dist1)};\r
+\r
+do_poly(x1,y1,x2,y2,x3,y3,x4,y4,color, dd)\r
+int    x1,y1,x2,y2,x3,y3,x4,y4,color, dd;\r
+       {\r
+       int     a,b,c,d,n=0,m,s1,s2,d1,d2,dx1,dy1,dx2,dy2;\r
+\r
+       struct  points {\r
+               int     x,y; } pnts[4],txt[4]={{64,4},{190,4},{190,60},{64,60}};\r
+//             int     x,y; } pnts[4],txt[4]={{1,1},{63,1},{63,63},{1,63}};\r
+\r
+       dd=(dd+1)&63;\r
+\r
+       pnts[0].x=x1; pnts[0].y=y1;\r
+       pnts[1].x=x2; pnts[1].y=y2;\r
+       pnts[2].x=x3; pnts[2].y=y3;\r
+       pnts[3].x=x4; pnts[3].y=y4;\r
+\r
+       for(n=0,a=1;a<4;a++) if(pnts[a].y<pnts[n].y) n=a;\r
+\r
+       s1=n; s2=n; d1=(s1+1)&3; d2=(s2-1)&3;\r
+       dx1=pnts[d1].x-pnts[s1].x;\r
+       dy1=pnts[d1].y-pnts[s1].y; if(dy1==0) dy1++;\r
+       ax1=65536L*dx1/dy1;\r
+       xx1=((long)pnts[s1].x<<16)+0x8000L;\r
+       txx1=((long)txt[s1].x<<16)+0x8000L;\r
+       txy1=((long)txt[s1].y<<16)+0x8000L;\r
+       tax1=65536L*(txt[d1].x-txt[s1].x)/dy1;\r
+       tay1=65536L*(txt[d1].y-txt[s1].y)/dy1;\r
+\r
+       dx2=pnts[d2].x-pnts[s2].x;\r
+       dy2=pnts[d2].y-pnts[s2].y; if(dy2==0) dy2++;\r
+       ax2=65536L*dx2/dy2;\r
+       xx2=((long)pnts[s2].x<<16)+0x8000L;\r
+       txx2=((long)txt[s2].x<<16)+0x8000L;\r
+       txy2=((long)txt[s2].y<<16)+0x8000L;\r
+       tax2=65536L*(txt[d2].x-txt[s2].x)/dy2;\r
+       tay2=65536L*(txt[d2].y-txt[s2].y)/dy2;\r
+\r
+       yy=(long)pnts[s1].y;\r
+       from=MK_FP(kuvataus[color],0);\r
+       to=vmem[yy];            // initialize gfx pointers\r
+       dseg=disttaus[color]+dd*16;\r
+       ctau=&clrtau[clrptr][yy];\r
+       for(n=0;n<4;)\r
+               {\r
+               if(pnts[d1].y<pnts[d2].y) m=pnts[d1].y; else m=pnts[d2].y;\r
+               do_block(m-yy); yy=m;\r
+\r
+               if(pnts[d1].y==pnts[d2].y)\r
+                       {\r
+                       s1=d1; d1=(s1+1)&3;\r
+                       s2=d2; d2=(s2-1)&3; n+=2;\r
+\r
+                       dx1=pnts[d1].x-pnts[s1].x;\r
+                       dy1=pnts[d1].y-pnts[s1].y; if(dy1==0) dy1++;\r
+                       ax1=65536L*dx1/dy1;\r
+                       xx1=((long)pnts[s1].x<<16)+0x8000L;\r
+                       txx1=((long)txt[s1].x<<16)+0x8000L;\r
+                       txy1=((long)txt[s1].y<<16)+0x8000L;\r
+                       tax1=65536L*(txt[d1].x-txt[s1].x)/dy1;\r
+                       tay1=65536L*(txt[d1].y-txt[s1].y)/dy1;\r
+\r
+                       dx2=pnts[d2].x-pnts[s2].x;\r
+                       dy2=pnts[d2].y-pnts[s2].y; if(dy2==0) dy2++;\r
+                       ax2=65536L*dx2/dy2;\r
+                       xx2=((long)pnts[s2].x<<16)+0x8000L;\r
+                       txx2=((long)txt[s2].x<<16)+0x8000L;\r
+                       txy2=((long)txt[s2].y<<16)+0x8000L;\r
+                       tax2=65536L*(txt[d2].x-txt[s2].x)/dy2;\r
+                       tay2=65536L*(txt[d2].y-txt[s2].y)/dy2;\r
+                       }\r
+               else if(pnts[d1].y<pnts[d2].y)\r
+                       {\r
+                       s1=d1; d1=(s1+1)&3; n++;\r
+                       dx1=pnts[d1].x-pnts[s1].x;\r
+                       dy1=pnts[d1].y-pnts[s1].y; if(dy1==0) dy1++;\r
+                       ax1=65536L*dx1/dy1;\r
+                       xx1=((long)pnts[s1].x<<16)+0x8000L;\r
+                       txx1=((long)txt[s1].x<<16)+0x8000L;\r
+                       txy1=((long)txt[s1].y<<16)+0x8000L;\r
+                       tax1=65536L*(txt[d1].x-txt[s1].x)/dy1;\r
+                       tay1=65536L*(txt[d1].y-txt[s1].y)/dy1;\r
+                       }\r
+               else    {\r
+                       s2=d2; d2=(s2-1)&3; n++;\r
+                       dx2=pnts[d2].x-pnts[s2].x;\r
+                       dy2=pnts[d2].y-pnts[s2].y; if(dy2==0) dy2++;\r
+                       ax2=65536L*dx2/dy2;\r
+                       xx2=((long)pnts[s2].x<<16)+0x8000L;\r
+                       txx2=((long)txt[s2].x<<16)+0x8000L;\r
+                       txy2=((long)txt[s2].y<<16)+0x8000L;\r
+                       tax2=65536L*(txt[d2].x-txt[s2].x)/dy2;\r
+                       tay2=65536L*(txt[d2].y-txt[s2].y)/dy2;\r
+                       }\r
+               }\r
+       }\r
+\r
+clear()\r
+       {\r
+       int     *otau=clrtau[(clrptr-3)&7], *ntau=clrtau[clrptr];\r
+\r
+       clrptr=(clrptr+1)&7;\r
+\r
+       do_clear(vmem[0],otau,ntau);\r
+       }\r
+\r

diff --git a/u2plz/PLZPART.DSK b/u2plz/PLZPART.DSK
index 193d8de8a94617391cce8c4d8e6b741334b8df4b..1f92fd1a7bed153591bb4975bcd879ac41d03aef 100755 (executable)
Binary files a/u2plz/PLZPART.DSK and b/u2plz/PLZPART.DSK differ

diff --git a/u2plz/PLZPART.PRJ b/u2plz/PLZPART.PRJ
index 6978e8db1509c8d98456eb3b3ef1264f7c258434..105ddb1e853db3bc7ce5a2c4d4e1d30568646461 100755 (executable)
Binary files a/u2plz/PLZPART.PRJ and b/u2plz/PLZPART.PRJ differ