graphics/presentations/Stroboscope/playmov.asm

   1 ; Play animation\r
   2 ; made by Svjatoslav Agejenko\r
   3 ; in 2002\r
   4 ; H-Page: svjatoslav.eu\r
   5 ; E-Mail: svjatoslav@svjatoslav.eu\r
   6  \r
   7 [BITS 16]\r
   8 [ORG 0x100]\r
   9 [SECTION .text]\r
  10 \r
  11 l1:\r
  12 ; mov ah, 9\r
  13 ; mov dx, file1\r
  14 ; int 21h\r
  15 \r
  16 mov bx, 100\r
  17 mov ax,03e8h\r
  18 mul bx\r
  19 mov cx,dx\r
  20 mov dx,ax\r
  21 mov ah,86h\r
  22 int 15h\r
  23 \r
  24 mov ah, 3dh\r
  25 xor al, al\r
  26 mov dx, file1\r
  27 int 21h\r
  28 mov bx, ax\r
  29 mov word [hand], ax\r
  30 jc l3\r
  31 \r
  32 mov ah, 3fh             ;first\r
  33 mov cx, 32000\r
  34 mov dx, fbuf\r
  35 int 21h\r
  36 jc l3\r
  37 \r
  38 mov ax, 0A000h\r
  39 mov es, ax\r
  40 mov di, 0\r
  41 mov cx, 32000\r
  42 mov si, fbuf\r
  43 rep movsb\r
  44 \r
  45 mov ah, 3fh             ;Second\r
  46 mov cx, 32000\r
  47 mov dx, fbuf\r
  48 int 21h\r
  49 jc l3\r
  50 \r
  51 mov ax, 0A000h\r
  52 mov es, ax\r
  53 mov di, 32000\r
  54 mov cx, 32000\r
  55 mov si, fbuf\r
  56 rep movsb\r
  57 \r
  58 \r
  59 mov ah, 3eh\r
  60 mov bx, word [hand]\r
  61 int 21h\r
  62 \r
  63 inc byte[n2]\r
  64 cmp byte[n2], 123\r
  65 jnz l2\r
  66 inc byte[n1]\r
  67 mov byte[n2], 97\r
  68 l2:\r
  69 \r
  70 inc byte[fra]\r
  71 cmp byte[fra], 33\r
  72 jl l1\r
  73 ret\r
  74 \r
  75 l3:\r
  76 mov ah, 9\r
  77 mov dx, errmsg\r
  78 int 21h\r
  79 ret\r
  80  \r
  81 [SECTION .data]\r
  82 fra db 1\r
  83 file1 db 'mov'\r
  84 n1 db 'a'\r
  85 n2 db 'a'\r
  86 file1t db '.frm', 0,'$'\r
  87 errmsg db 'error$'\r
  88 \r
  89 [SECTION .bss]\r
  90 fbuf resb 33000\r
  91 hand resw 1\r
  92 \r
  93 \r
  94 \r
  95 \r
  96 \r
  97 \r