u2orig/MAIN.ASM

   1         .386p\r
   2         ifndef  ??version\r
   3 ?debug  macro\r
   4         endm\r
   5 publicdll macro name\r
   6         public  name\r
   7         endm\r
   8         endif\r
   9         ?debug  V 300h\r
  10         ?debug  S "MAIN.C"\r
  11         ?debug  C E9C789EC1A064D41494E2E43\r
  12         ?debug  C E94019CA1815473A5C42435C494E434C5544455C535444494F2E48\r
  13         ?debug  C E94019CA1815473A5C42435C494E434C5544455C5F444546532E48\r
  14         ?debug  C E94019CA1816473A5C42435C494E434C5544455C5F4E46494C452E+\r
  15         ?debug  C 48\r
  16         ?debug  C E94019CA1815473A5C42435C494E434C5544455C5F4E554C4C2E48\r
  17         ?debug  C E94019CA1814473A5C42435C494E434C5544455C4D4154482E48\r
  18         ?debug  C E94019CA1815473A5C42435C494E434C5544455C434F4E494F2E48\r
  19         ?debug  C E94019CA1813473A5C42435C494E434C5544455C444F532E48\r
  20         ?debug  C E93587EB1A102E2E5C545745414B5C545745414B2E48\r
  21 MAIN_TEXT       segment byte public use16 'CODE'\r
  22 MAIN_TEXT       ends\r
  23 DGROUP  group   _DATA,_BSS\r
  24         assume  cs:MAIN_TEXT,ds:DGROUP\r
  25 _DATA   segment word public use16 'DATA'\r
  26 d@      label   byte\r
  27 d@w     label   word\r
  28 _DATA   ends\r
  29 _BSS    segment word public use16 'BSS'\r
  30 b@      label   byte\r
  31 b@w     label   word\r
  32 _BSS    ends\r
  33 _DATA   segment word public use16 'DATA'\r
  34 _vmem   label   dword\r
  35         db      0\r
  36         db      0\r
  37         db      0\r
  38         db      160\r
  39         ?debug  C E947A5DC1A08505441552E505245\r
  40 _ptau   label   byte\r
  41         db      0\r
  42         db      1\r
  43         db      1\r
  44         db      1\r
  45         db      1\r
  46         db      1\r
  47         db      2\r
  48         db      2\r
  49         db      3\r
  50         db      3\r
  51         db      4\r
  52         db      5\r
  53         db      6\r
  54         db      7\r
  55         db      8\r
  56         db      9\r
  57         db      10\r
  58         db      11\r
  59         db      12\r
  60         db      13\r
  61         db      14\r
  62         db      16\r
  63         db      17\r
  64         db      18\r
  65         db      20\r
  66         db      21\r
  67         db      23\r
  68         db      24\r
  69         db      25\r
  70         db      27\r
  71         db      28\r
  72         db      30\r
  73         db      31\r
  74         db      33\r
  75         db      35\r
  76         db      36\r
  77         db      38\r
  78         db      39\r
  79         db      40\r
  80         db      42\r
  81         db      43\r
  82         db      45\r
  83         db      46\r
  84         db      47\r
  85         db      49\r
  86         db      50\r
  87         db      51\r
  88         db      52\r
  89         db      53\r
  90         db      54\r
  91         db      55\r
  92         db      56\r
  93         db      57\r
  94         db      58\r
  95         db      59\r
  96         db      60\r
  97         db      60\r
  98         db      61\r
  99         db      61\r
 100         db      62\r
 101         db      62\r
 102         db      62\r
 103         db      62\r
 104         db      62\r
 105         db      63\r
 106         db      62\r
 107         db      62\r
 108         db      62\r
 109         db      62\r
 110         db      62\r
 111         db      61\r
 112         db      61\r
 113         db      60\r
 114         db      60\r
 115         db      59\r
 116         db      58\r
 117         db      57\r
 118         db      56\r
 119         db      55\r
 120         db      54\r
 121         db      53\r
 122         db      52\r
 123         db      51\r
 124         db      50\r
 125         db      49\r
 126         db      47\r
 127         db      46\r
 128         db      45\r
 129         db      43\r
 130         db      42\r
 131         db      40\r
 132         db      39\r
 133         db      38\r
 134         db      36\r
 135         db      35\r
 136         db      33\r
 137         db      32\r
 138         db      30\r
 139         db      28\r
 140         db      27\r
 141         db      25\r
 142         db      24\r
 143         db      23\r
 144         db      21\r
 145         db      20\r
 146         db      18\r
 147         db      17\r
 148         db      16\r
 149         db      14\r
 150         db      13\r
 151         db      12\r
 152         db      11\r
 153         db      10\r
 154         db      9\r
 155         db      8\r
 156         db      7\r
 157         db      6\r
 158         db      5\r
 159         db      4\r
 160         db      3\r
 161         db      3\r
 162         db      2\r
 163         db      2\r
 164         db      1\r
 165         db      1\r
 166         db      1\r
 167         db      1\r
 168         db      1\r
 169         db      1\r
 170         db      127 dup (0)\r
 171 _l1     label   word\r
 172         db      144\r
 173         db      1\r
 174 _l2     label   word\r
 175         db      44\r
 176         db      1\r
 177 _l3     label   word\r
 178         db      32\r
 179         db      3\r
 180 _l4     label   word\r
 181         db      100\r
 182         db      0\r
 183 _k1     label   word\r
 184         db      244\r
 185         db      1\r
 186 _k2     label   word\r
 187         db      44\r
 188         db      1\r
 189 _k3     label   word\r
 190         db      132\r
 191         db      3\r
 192 _k4     label   word\r
 193         db      158\r
 194         db      2\r
 195 _m1     label   word\r
 196         db      244\r
 197         db      1\r
 198 _m2     label   word\r
 199         db      200\r
 200         db      0\r
 201 _m3     label   word\r
 202         db      144\r
 203         db      1\r
 204 _m4     label   word\r
 205         db      132\r
 206         db      3\r
 207 _n1     label   word\r
 208         db      188\r
 209         db      2\r
 210 _n2     label   word\r
 211         db      244\r
 212         db      1\r
 213 _n3     label   word\r
 214         db      132\r
 215         db      3\r
 216 _n4     label   word\r
 217         db      214\r
 218         db      1\r
 219 _DATA   ends\r
 220 MAIN_TEXT       segment byte public use16 'CODE'\r
 221         ?debug  C E801064D41494E2E43C789EC1A\r
 222         ?debug  L 42\r
 223         assume  cs:MAIN_TEXT\r
 224 _main   proc    far\r
 225         ?debug  B\r
 226         push    bp\r
 227         mov     bp,sp\r
 228         sub     sp,22\r
 229         push    si\r
 230         push    di\r
 231         ?debug  B\r
 232         ?debug  L 45\r
 233         mov     dword ptr [bp-4],large 0\r
 234         mov     dword ptr [bp-8],large 0\r
 235         ?debug  L 46\r
 236         mov     word ptr [bp-10],0\r
 237         ?debug  L 48\r
 238         call    far ptr _init_plz\r
 239         ?debug  L 50\r
 240         mov     ax,seg _frame_count\r
 241         mov     es,ax\r
 242         mov     word ptr es:_frame_count,0\r
 243         jmp     @1@1066\r
 244 @1@58:\r
 245         ?debug  L 53\r
 246         mov     ax,seg _frame_count\r
 247         mov     es,ax\r
 248         movsx   eax,word ptr es:_frame_count\r
 249         add     dword ptr [bp-4],eax\r
 250         inc     dword ptr [bp-8]\r
 251         ?debug  L 54\r
 252         cmp     word ptr [bp-10],37\r
 253         jne     short @1@114\r
 254         push    large 000140014h\r
 255         push    large 000140000h\r
 256         call    far ptr _tw_setrgbpalette\r
 257         add     sp,8\r
 258 @1@114:\r
 259         ?debug  L 56\r
 260                 mov      dx, 3c4h\r
 261         ?debug  L 57\r
 262                 mov      ax, 0a02h\r
 263         ?debug  L 58\r
 264                 out      dx, ax\r
 265         ?debug  L 60\r
 266         push    word ptr DGROUP:_k4\r
 267         push    word ptr DGROUP:_k3\r
 268         push    word ptr DGROUP:_k2\r
 269         push    word ptr DGROUP:_k1\r
 270         call    far ptr _setplzparas\r
 271         add     sp,8\r
 272         ?debug  L 61\r
 273         xor     si,si\r
 274         mov     word ptr [bp-16],00000A000h\r
 275 @1@254:\r
 276         ?debug  L 62\r
 277         push    word ptr [bp-16]\r
 278         push    si\r
 279         call    far ptr _plzline\r
 280         add     sp,4\r
 281         ?debug  L 61\r
 282         add     word ptr [bp-16],12\r
 283         add     si,2\r
 284         cmp     si,350\r
 285         jl      short @1@254\r
 286         ?debug  L 63\r
 287         push    word ptr DGROUP:_l4\r
 288         push    word ptr DGROUP:_l3\r
 289         push    word ptr DGROUP:_l2\r
 290         push    word ptr DGROUP:_l1\r
 291         call    far ptr _setplzparas\r
 292         add     sp,8\r
 293         ?debug  L 64\r
 294         mov     si,1\r
 295         mov     word ptr [bp-18],00000A006h\r
 296         jmp     short @1@506\r
 297 @1@422:\r
 298         ?debug  L 65\r
 299         push    word ptr [bp-18]\r
 300         push    si\r
 301         call    far ptr _plzline\r
 302         add     sp,4\r
 303         ?debug  L 64\r
 304         add     word ptr [bp-18],12\r
 305         add     si,2\r
 306 @1@506:\r
 307         cmp     si,350\r
 308         jl      short @1@422\r
 309         ?debug  L 68\r
 310                 mov      dx, 3c4h\r
 311         ?debug  L 69\r
 312                 mov      ax, 0502h\r
 313         ?debug  L 70\r
 314                 out      dx, ax\r
 315         ?debug  L 72\r
 316         push    word ptr DGROUP:_k4\r
 317         push    word ptr DGROUP:_k3\r
 318         push    word ptr DGROUP:_k2\r
 319         push    word ptr DGROUP:_k1\r
 320         call    far ptr _setplzparas\r
 321         add     sp,8\r
 322         ?debug  L 73\r
 323         mov     si,1\r
 324         mov     word ptr [bp-20],00000A006h\r
 325         jmp     short @1@758\r
 326 @1@674:\r
 327         ?debug  L 74\r
 328         push    word ptr [bp-20]\r
 329         push    si\r
 330         call    far ptr _plzline\r
 331         add     sp,4\r
 332         ?debug  L 73\r
 333         add     word ptr [bp-20],12\r
 334         add     si,2\r
 335 @1@758:\r
 336         cmp     si,350\r
 337         jl      short @1@674\r
 338         ?debug  L 75\r
 339         push    word ptr DGROUP:_l4\r
 340         push    word ptr DGROUP:_l3\r
 341         push    word ptr DGROUP:_l2\r
 342         push    word ptr DGROUP:_l1\r
 343         call    far ptr _setplzparas\r
 344         add     sp,8\r
 345         ?debug  L 76\r
 346         xor     si,si\r
 347         mov     word ptr [bp-22],00000A000h\r
 348 @1@842:\r
 349         ?debug  L 77\r
 350         push    word ptr [bp-22]\r
 351         push    si\r
 352         call    far ptr _plzline\r
 353         add     sp,4\r
 354         ?debug  L 76\r
 355         add     word ptr [bp-22],12\r
 356         add     si,2\r
 357         cmp     si,350\r
 358         jl      short @1@842\r
 359         ?debug  L 79\r
 360         cmp     word ptr [bp-10],37\r
 361         jne     short @1@1010\r
 362         push    large 0\r
 363         push    large 0\r
 364         call    far ptr _tw_setrgbpalette\r
 365         add     sp,8\r
 366 @1@1010:\r
 367         ?debug  L 83\r
 368         call    far ptr _kbhit\r
 369         or      ax,ax\r
 370         je      short @1@1066\r
 371         call    far ptr _getch\r
 372         mov     word ptr [bp-10],ax\r
 373 @1@1066:\r
 374         ?debug  L 51\r
 375         cmp     word ptr [bp-10],27\r
 376         je short        @@4\r
 377         jmp     @1@58\r
 378 @@4:\r
 379         ?debug  L 85\r
 380         call    far ptr _close_copper\r
 381         ?debug  L 86\r
 382         call    far ptr _tw_closegraph\r
 383         ?debug  L 88\r
 384         mov     eax,dword ptr [bp-4]\r
 385         mov     dword ptr [bp-14],eax\r
 386         fild    dword ptr [bp-14]\r
 387         mov     eax,dword ptr [bp-8]\r
 388         mov     dword ptr [bp-14],eax\r
 389         fild    dword ptr [bp-14]\r
 390         fdiv    \r
 391         sub     sp,8\r
 392         fstp    qword ptr [bp-34]\r
 393         push    ds\r
 394         push    offset DGROUP:s@\r
 395         fwait   \r
 396         call    far ptr _printf\r
 397         add     sp,12\r
 398         ?debug  L 89\r
 399         pop     di\r
 400         pop     si\r
 401         leave   \r
 402         ret     \r
 403         ?debug  C E60263680402F6FF0005636F756E740602F8FF00+\r
 404         ?debug  C 0374696D0602FCFF00017904080192007B010406+\r
 405         ?debug  C 00\r
 406         ?debug  E\r
 407         ?debug  E\r
 408 _main   endp\r
 409         ?debug  L 91\r
 410         assume  cs:MAIN_TEXT\r
 411 _init_plz       proc    far\r
 412         ?debug  B\r
 413         push    bp\r
 414         mov     bp,sp\r
 415         sub     sp,2\r
 416         push    si\r
 417         ?debug  B\r
 418         ?debug  L 141\r
 419         call    far ptr _tw_opengraph\r
 420         ?debug  L 142\r
 421         push    -17536\r
 422         call    far ptr _tw_setstart\r
 423         add     sp,2\r
 424         ?debug  L 144\r
 425         mov             dx, 3d4h\r
 426         ?debug  L 145\r
 427         mov             ax, 4009h\r
 428         ?debug  L 146\r
 429         out             dx, ax\r
 430         ?debug  L 147\r
 431         mov             ax, 3013h\r
 432         ?debug  L 148\r
 433         out             dx, ax\r
 434         ?debug  L 149\r
 435         mov             ax, a018h               \r
 436         ?debug  L 150\r
 437         out             dx, ax\r
 438         ?debug  L 151\r
 439         mov             ax, 0f07h\r
 440         ?debug  L 152\r
 441         out             dx, ax                  \r
 442         ?debug  L 155\r
 443         call    far ptr _init_copper\r
 444         ?debug  L 158\r
 445         mov     word ptr [bp-2],0\r
 446 @2@338:\r
 447         mov     al,byte ptr DGROUP:_ptau\r
 448         cbw     \r
 449         mov     si,ax\r
 450         push    ax\r
 451         push    ax\r
 452         mov     bx,word ptr [bp-2]\r
 453         mov     al,byte ptr DGROUP:_ptau[bx]\r
 454         cbw     \r
 455         push    ax\r
 456         push    bx\r
 457         call    far ptr _tw_setrgbpalette\r
 458         add     sp,8\r
 459         inc     word ptr [bp-2]\r
 460         cmp     word ptr [bp-2],64\r
 461         jl      short @2@338\r
 462         ?debug  L 159\r
 463         mov     word ptr [bp-2],0\r
 464 @2@450:\r
 465         mov     bx,word ptr [bp-2]\r
 466         mov     al,byte ptr DGROUP:_ptau[bx]\r
 467         cbw     \r
 468         push    ax\r
 469         mov     al,byte ptr DGROUP:_ptau\r
 470         cbw     \r
 471         push    ax\r
 472         mov     bx,63\r
 473         sub     bx,word ptr [bp-2]\r
 474         mov     al,byte ptr DGROUP:_ptau[bx]\r
 475         cbw     \r
 476         push    ax\r
 477         mov     ax,word ptr [bp-2]\r
 478         add     ax,64\r
 479         push    ax\r
 480         call    far ptr _tw_setrgbpalette\r
 481         add     sp,8\r
 482         inc     word ptr [bp-2]\r
 483         cmp     word ptr [bp-2],64\r
 484         jl      short @2@450\r
 485         ?debug  L 160\r
 486         mov     word ptr [bp-2],0\r
 487 @2@562:\r
 488         mov     bx,63\r
 489         sub     bx,word ptr [bp-2]\r
 490         mov     al,byte ptr DGROUP:_ptau[bx]\r
 491         cbw     \r
 492         push    ax\r
 493         mov     bx,word ptr [bp-2]\r
 494         mov     al,byte ptr DGROUP:_ptau[bx]\r
 495         cbw     \r
 496         push    ax\r
 497         mov     al,byte ptr DGROUP:_ptau\r
 498         cbw     \r
 499         push    ax\r
 500         mov     ax,word ptr [bp-2]\r
 501         add     ax,128\r
 502         push    ax\r
 503         call    far ptr _tw_setrgbpalette\r
 504         add     sp,8\r
 505         inc     word ptr [bp-2]\r
 506         cmp     word ptr [bp-2],64\r
 507         jl      short @2@562\r
 508         ?debug  L 161\r
 509         mov     word ptr [bp-2],0\r
 510 @2@674:\r
 511         mov     bx,word ptr [bp-2]\r
 512         mov     al,byte ptr DGROUP:_ptau[bx]\r
 513         cbw     \r
 514         push    ax\r
 515         mov     al,byte ptr DGROUP:_ptau+63\r
 516         cbw     \r
 517         push    ax\r
 518         mov     al,byte ptr DGROUP:_ptau[bx]\r
 519         cbw     \r
 520         push    ax\r
 521         mov     ax,word ptr [bp-2]\r
 522         add     ax,192\r
 523         push    ax\r
 524         call    far ptr _tw_setrgbpalette\r
 525         add     sp,8\r
 526         inc     word ptr [bp-2]\r
 527         cmp     word ptr [bp-2],64\r
 528         jl      short @2@674\r
 529         ?debug  L 185\r
 530         pop     si\r
 531         leave   \r
 532         ret     \r
 533         ?debug  C E601610402FEFF00\r
 534         ?debug  E\r
 535         ?debug  E\r
 536 _init_plz       endp\r
 537         ?debug  C E9\r
 538         ?debug  C FA15000000\r
 539 MAIN_TEXT       ends\r
 540 _DATA   segment word public use16 'DATA'\r
 541 s@      label   byte\r
 542         db      '%le'\r
 543         db      10\r
 544         db      0\r
 545 _DATA   ends\r
 546 MAIN_TEXT       segment byte public use16 'CODE'\r
 547 MAIN_TEXT       ends\r
 548         public  _init_plz\r
 549         public  _main\r
 550         public  _n4\r
 551         public  _n3\r
 552         public  _n2\r
 553         public  _n1\r
 554         public  _m4\r
 555         public  _m3\r
 556         public  _m2\r
 557         public  _m1\r
 558         public  _k4\r
 559         public  _k3\r
 560         public  _k2\r
 561         public  _k1\r
 562         public  _l4\r
 563         public  _l3\r
 564         public  _l2\r
 565         public  _l1\r
 566         public  _ptau\r
 567         public  _vmem\r
 568         extrn   _setplzparas:far\r
 569         extrn   _plzline:far\r
 570         extrn   _frame_count:word\r
 571         extrn   _close_copper:far\r
 572         extrn   _init_copper:far\r
 573         extrn   _tw_setstart:far\r
 574         extrn   _tw_setrgbpalette:far\r
 575         extrn   _tw_closegraph:far\r
 576         extrn   _tw_opengraph:far\r
 577         extrn   _kbhit:far\r
 578         extrn   _getch:far\r
 579         extrn   _printf:far\r
 580 _s@     equ     s@\r
 581         ?debug  C EA010C\r
 582         ?debug  C E31800000023040400\r
 583         ?debug  C EC095F696E69745F706C7A181800\r
 584         ?debug  C E31900000023040400\r
 585         ?debug  C EC055F6D61696E191800\r
 586         ?debug  C EC035F6E34040000\r
 587         ?debug  C EC035F6E33040000\r
 588         ?debug  C EC035F6E32040000\r
 589         ?debug  C EC035F6E31040000\r
 590         ?debug  C EC035F6D34040000\r
 591         ?debug  C EC035F6D33040000\r
 592         ?debug  C EC035F6D32040000\r
 593         ?debug  C EC035F6D31040000\r
 594         ?debug  C EC035F6B34040000\r
 595         ?debug  C EC035F6B33040000\r
 596         ?debug  C EC035F6B32040000\r
 597         ?debug  C EC035F6B31040000\r
 598         ?debug  C EC035F6C34040000\r
 599         ?debug  C EC035F6C33040000\r
 600         ?debug  C EC035F6C32040000\r
 601         ?debug  C EC035F6C31040000\r
 602         ?debug  C E31A0000011A02\r
 603         ?debug  C EC055F707461751A0000\r
 604         ?debug  C E31C0052001A04\r
 605         ?debug  C E31B000400161C00\r
 606         ?debug  C EC055F766D656D1B0000\r
 607         ?debug  C E31D00000023040400\r
 608         ?debug  C EB0C5F736574706C7A70617261731D00\r
 609         ?debug  C E31E00000023040400\r
 610         ?debug  C EB085F706C7A6C696E651E00\r
 611         ?debug  C EB0C5F6672616D655F636F756E740400\r
 612         ?debug  C E31F00000023040400\r
 613         ?debug  C EB0D5F636C6F73655F636F707065721F00\r
 614         ?debug  C E32000000023040400\r
 615         ?debug  C EB0C5F696E69745F636F707065722000\r
 616         ?debug  C E32100000023010400\r
 617         ?debug  C EB0C5F74775F73657473746172742100\r
 618         ?debug  C E32200000023010400\r
 619         ?debug  C EB115F74775F73657472676270616C6574746522+\r
 620         ?debug  C 00\r
 621         ?debug  C E32300000023010400\r
 622         ?debug  C EB0E5F74775F636C6F736567726170682300\r
 623         ?debug  C E32400000023010400\r
 624         ?debug  C EB0D5F74775F6F70656E67726170682400\r
 625         ?debug  C E32500000023040400\r
 626         ?debug  C EB065F6B626869742500\r
 627         ?debug  C E32600000023040400\r
 628         ?debug  C EB065F67657463682600\r
 629         ?debug  C E32700000023040401\r
 630         ?debug  C EB075F7072696E74662700\r
 631         ?debug  C E60666706F735F740606000673697A655F740A06+\r
 632         ?debug  C 00\r
 633         end\r
 634 \1a