OpenEuphoria

Re: sprites

• Posted by Architek <architek at GEOCITIES.COM> Mar 31, 1997
• 1560 views

--------------FDF6AC23EBC

David,
This is what i made with the source code you sent.
For some strange reason the program just crash, and i
don't have any idea why. Perhaps Robert Craig can explain
this. I send the code and the CW.ERR file produced by
Causeway. I guess the problem is just of Causeway, because
there's no ex.err file generated (well, causeway didn't let
the asm routine to finish).
Rob, are you sure i can PUSH and POP?

--

            ************************************
            This message sent by Daniel Berstein
            ************************************
     email: architek at geocities.com
 homepages: http://www.geocities.com/SiliconValley/Heights/9316
            http://www.cybercity.hko.net/silicon_valley/architek

--------------FDF6AC23EBC
Content-Disposition: inline; filename="wait.ex"

include machine.e

sequence code
atom code_space

code =  {
    #50,                   --     push    ax
    #52,                   --     push    dx
    #BA,#DA,#03,           --     mov     dx, #3da
                           -- l1:
    #EC,                   --     in      al, dx
    #24,#08,               --     and     al, #8
    #75,#FB,               --     jnz     l1
                           -- l2:
    #EC,                   --     in      al, dx
    #24,#08,               --     and     al, #8
    #74,#FB,               --     jz      l2
    #5A,                   --     pop     dx
    #58,                   --     pop     ax
    #C3}                   --     ret

code_space = allocate_low(length(code))
poke(code_space, code)


puts(1, "\n  calling machine code routine for waiting retrace...\n ")


call(code_space)

free_low(code_space)

puts(1, "All done!\n")


--------------FDF6AC23EBC
Content-Disposition: inline; filename="Cw.err"

CauseWay DOS Extender v3.14 Copyright 1992-96 Michael Devore.
All rights reserved.

Exception: 0E, Error code: 0004

EAX=0000D950 EBX=00000000 ECX=00000000 EDX=24EC03DA ESI=82425038
EDI=8241C5D8 EBP=FFFFFC19 ESP=8241C560 EIP=0000D957 EFL=00010213

CS=018F-7DC15000 DS=0197-7DC15000 ES=0197-7DC15000
FS=0000-xxxxxxxx GS=019F-xxxxxxxx SS=0197-7DC15000

CR0=00000000 CR2=00000000 CR3=00000000 TR=0000

Info flags=00008018

$         07 80 74 1C 2E 8B 47 12 2E A3 75 19 2E 8B 47 10
         2E A3 73 19 5A 5B 58 2E FF 4D 00 00 8B 14 00 00
         2E 80 0F 80 8B DC 36 8B 47 0A 25 D5 0C 83 C8 02
         2E A3 93 1B 5A 5B 58 2E 89 26 73 19 2E 8C 16 75
         19 2E 8E 16 68 0A 66 2E 8B 26 64 0A 66 2E 81 2E
         64 0A 00 02 00 00 66 2E FF 36 73 19 66 50 66 53
         66 51 66 52 66 56 66 57 66 55 1E 06 0F A0 0F A8
         B8 01 0C 8E D8 89 26 73 19 8C 16 75 19 B9 6B 00
         66 33 D2 8B D4 FF 16 9C 04 8B 1E 97 1B 8A 5F 01
         50 66 53 1E B8 63 00 8E D8 66 0F B6 C3 66 8B D8
         66 D1 E3 66 8B C3 66 D1 E3 66 03 D8 66 81 C3 64
         23 00 00 1E B8 D3 00 8E D8 67 66 8B 13 67 8B 4B
         04 1F 1F 66 5B 58 F7 06 A2 05 01 00 74 0A 89 0E
         89 1B 89 16 87 1B EB 09 89 0E 8B 1B 66 89 16 87
         1B B8 73 00 8E E0 66 0F B7 36 75 19 66 C1 E6 04


SS:ESP > 01 00 00 00 50 D9 00 00 27 E1 3E 82 D8 C5 41 82
         01 00 80 00 D0 C5 41 82 44 D6 41 82 F4 37 42 82
         D0 C5 41 82 00 00 00 00 50 D9 00 00 D3 2A 3F 82
         00 00 00 00 00 00 00 00 21 00 00 00 F3 27 3F 82
         D8 C5 41 82 80 00 00 00 19 FC FF FF D8 C5 41 82
         19 00 00 00 00 00 00 00 00 00 00 00 D8 B0 3E 82
         01 00 00 00 D7 A6 3F 82 00 00 00 00 7B A9 3F 82
         19 00 00 00 44 D6 41 82 04 C6 41 82 F2 60 41 82
         15 86 41 82 78 00 00 00 0F 00 00 00 F1 60 41 82
         20 1D 3F 82 80 6F 41 82 00 00 00 00 10 C6 41 82
         8F 41 40 82 00 00 00 00 00 01 41 82 07 DE 3F 82
         00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
         00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
         00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
         00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
         00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00



--------------FDF6AC23EBC--