home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 May / PCW596.iso / polskie / eduk / genfast / genfast.lzh / DEMO_07.PAK / ARRAY.SY_ next >
Text File  |  1996-02-08  |  1KB  |  59 lines
  1. ; Tablica 5001 elementow typu WORD (2 bajty) dla jezyka EasyGEN
  2. ; czyli w konwencji jezyka Pascal:
  3. ;     Tablica: array[0..5000] of word
  4.  
  5. ; (C) 1995 RangelSoft  Robert Grzegorzewski
  6.  
  7. ; Uwaga ogólna !
  8. ; Rozmiar segmentu danych, na ktory wskazuje rejestr DS, wynosi 10 KB.
  9.  
  10. ; Wywolanie:
  11. ; w %A - indeks tablicy (0..5000)
  12. ; w %B - wartosc do zapisu/odczytu (0..65535)
  13. ; w %C - rodzaj operacji:
  14. ;          1 - zapis
  15. ;          2 - odczyt
  16. ;          3 - zerowanie tablicy
  17.  
  18.         push ax
  19.         push cx
  20.  
  21.         cmp cx,=1
  22.         jne et1
  23.  
  24. ; zapis do tablicy
  25.         shl ax,=1
  26.         mov bp,ax
  27.         mov ds:[bp],bx
  28.         jmp return
  29. et1:
  30.         cmp cx,=2
  31.         jne et2
  32.  
  33. ; odczyt z tablicy
  34.         shl ax,=1
  35.         mov bp,ax
  36.         mov bx,ds:[bp]
  37.         jmp return
  38. et2:
  39.         cmp cx,=3
  40.         jne return
  41.  
  42. ; zerowanie tablicy
  43.         push di
  44.         mov cx,=10002
  45.         push ds
  46.         pop es
  47.         xor di,di
  48.         xor al,al
  49.         pushf
  50.         cld
  51.         rep stos(b)
  52.         popf
  53.         pop di
  54. return:
  55.         pop cx
  56.         pop ax
  57.  
  58.         ret (F)
  59.