mirror of https://git.ia64.cc/perso/cos2000v1.git
Nicolas Hordé
17 years ago
2 changed files with 56 additions and 1 deletions
@ -0,0 +1,55 @@ |
|||||||
|
model tiny,stdcall |
||||||
|
p586N |
||||||
|
locals |
||||||
|
jumps |
||||||
|
codeseg |
||||||
|
option procalign:byte |
||||||
|
|
||||||
|
include "..\include\mem.h" |
||||||
|
include "..\include\fat.h" |
||||||
|
include "..\include\divers.h" |
||||||
|
include "..\include\3d.h" |
||||||
|
|
||||||
|
org 0h |
||||||
|
|
||||||
|
start: |
||||||
|
header exe <"CE",1,0,0,,offset imports,,offset realstart> |
||||||
|
|
||||||
|
realstart: |
||||||
|
call [cs:randomize] |
||||||
|
call [cs:savestate] |
||||||
|
call [cs:setvideomode],10 |
||||||
|
call [cs:clearscreen] |
||||||
|
mov cx,65535 |
||||||
|
show: |
||||||
|
call [cs:random] |
||||||
|
and ax,1111b |
||||||
|
push ax |
||||||
|
call [cs:random] |
||||||
|
push ax |
||||||
|
call [cs:random] |
||||||
|
push ax |
||||||
|
call [cs:random] |
||||||
|
push ax |
||||||
|
call [cs:random] |
||||||
|
push ax |
||||||
|
call [cs:line] |
||||||
|
dec cx |
||||||
|
jnz show |
||||||
|
call [cs:bioswaitkey] |
||||||
|
call [cs:restorestate] |
||||||
|
retf |
||||||
|
|
||||||
|
importing |
||||||
|
use VIDEO.LIB,print |
||||||
|
use VIDEO,savestate |
||||||
|
use VIDEO,clearscreen |
||||||
|
use VIDEO,setvideomode |
||||||
|
use VIDEO,restorestate |
||||||
|
use VIDEO,waitretrace |
||||||
|
use GRAPHIC,line ;@x1:word,@y1:word,@x2:word,@y2:word,@color:word |
||||||
|
use GRAPHIC,polyfill ;@pointer:word,@nbfaces:word,@color:word; |
||||||
|
use SYSTEME,bioswaitkey |
||||||
|
use MATH.LIB,randomize |
||||||
|
use MATH.LIB,random |
||||||
|
endi |
Loading…
Reference in new issue