1/* MAGIXFLY.C  - Tiny MSDOS 3d flying effect demo in 144 bytes.
2   (by orac81)
3	
4Simple demo of ultra-small compilation using TurboC 3.
5
6To compile: tctiny.bat tc3path magixfly
7ie: tctiny \m\tc3\bin magixfly
8
9   (needs MASM and exe2bin, or TASM)
10*/
11
12include "tctiny.c" 
13
14unsigned char far *pVdu;
15
16unsigned int frame;	/* Frame count */
17
18void main() 
19{
20    register unsigned int x;
21    unsigned int y;
22    unsigned int calcy;
23
24    IO_VIDEOMODE (0x13);	/* Set VGA video mode 13h 320x200x256 */
25    
26    do {
27      pVdu = (char far *) ((long) 0xa0000000L);
28      for (y=10; y<210; y++) {
29        calcy = ((2560/y) + frame) ;
30        for (x=320; x; x --) {
31          *pVdu = (BYTE) (((((x<<4)/y) ^ calcy) + (frame >> 8)) & 31) ;
32          pVdu ++;
33        }
34      }
35      frame ++;
36      IO_GETKEY (x);               /* See if ESC key hit */
37    } while (x == 0);
38}
39

1; MAGIXFLY.ASM by orac81, improved by rrrola.
2; 52 byte flying demo.
3; es:di = pixel address, bx=time, bp=y, cx=x
4
5OFFSETY equ 12
6
7  org 100h
8
9  mov al,19
10  int 10h			 	; Screen mode 19 - VGA 320x200x256  (Using default VGA palette)
11  push 0A000h
12  pop es
13
14reloop:
15  mov bp,OFFSETY
16
17loopY:
18  inc bp
19  mov ax,0A00h
20  cwd  ; dx=0 (ax=2560)
21  div bp
22  add ax,bx
23  xchg ax,si
24
25  mov cx,320
26loopX:
27   imul ax,cx,16
28   cwd  ; dx=0 (ax<=5120)
29   div bp
30   xor ax,si
31   add al,bh
32   and al,31
33   stosb		; (es:di) = al
34  test di,di		
35  loopnz loopX		; X--; if (X) goto loopX;
36  jnz loopY		
37; di=0 after the loop
38
39  inc bx
40
41  mov ah,1
42  int 16h
43  je reloop
44
45  ret
46