mirror of https://git.ia64.cc/perso/cos2000v1.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
55 lines
1.2 KiB
55 lines
1.2 KiB
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
|
|
|