home *** CD-ROM | disk | FTP | other *** search
/ PC Collector 8 - Disc 1 / COLLECT8.bin / DEMOS / IWORLD / IWORLD.ASM < prev    next >
Assembly Source File  |  1996-03-10  |  1KB  |  107 lines
  1. ;                    ILLUSORY WORLD
  2. ;       128-bytes intro by Agent Orange // tRX
  3. ;
  4. ;    Greets: CodeRipper, Dogar&Kazon, ├┼AX, Solar Designer,
  5. ;            Street Raider, Tangerine, X.P.E.h.
  6. ;
  7.  IDEAL
  8.  XSize equ 26
  9.  YSize equ 26
  10.  Diff equ 0
  11. model tiny
  12. p386
  13. CODEseg
  14.  
  15. org 100h
  16.  
  17. Intro128:
  18.  mov al,13h
  19.  int 10h
  20.  push 0a000h
  21.  pop es
  22.  
  23. ;first loop -------------------------------------------------------------------
  24.  mov dx,3c8h
  25.  xor al,al
  26.  out dx,al
  27.  inc dx
  28.  mov cl,128
  29.  push cx
  30. pal:
  31.  mov al,cl
  32.  neg al
  33.  add al,40h
  34.  jc black
  35.  xor al,al
  36. black:
  37.  out dx,al
  38.  mov al,cl
  39.  dec ax
  40.  test al,40h
  41.  je notnot
  42.  not al
  43. notnot:
  44.  out dx,al
  45.  xor al,al
  46.  out dx,al
  47.  loop pal
  48.  
  49. ;second loop ------------------------------------------------------------------
  50.  pop cx
  51. pal2:
  52.  mov al,cl
  53.  sub al,41h
  54.  jnc black2
  55.  xor al,al
  56. black2:
  57.  out dx,al
  58.  xor ax,ax
  59.  out dx,al
  60.  mov al,cl
  61.  dec ax
  62.  test al,40h
  63.  je notnot2
  64.  not al
  65. notnot2:
  66.  out dx,al
  67.  loop pal2
  68.  
  69. main:
  70. ; mov ax,[seed1]
  71.  db 0B8h
  72. Seed1 dw 0A000h
  73. ; mov bx,[seed2]
  74.  db 0BBh
  75. Seed2 dw 00001h
  76.  add bx,ax
  77.  mov [seed1],bx
  78.  mov [seed2],ax
  79.  xchg ah,bl
  80.  
  81.  mov di,bx
  82.  mov cx,YSize
  83. l2:
  84.  push cx
  85.  mov cx,XSize
  86. l1:
  87.  add [byte ptr es:di],1
  88.  inc di
  89.  loop l1
  90.  add di,320-XSize+diff
  91.  pop cx
  92.  loop l2
  93.  
  94.  mov ah,1
  95.  int 16h
  96.  jz Main
  97. ;Exit ------------------------------------------------------------------------
  98.  mov ax,3
  99.  int 10h
  100.  ret
  101.  
  102. ;PROC Random
  103. ;ENDP Random
  104. End Intro128
  105.  
  106.  
  107.