SHARE
TWEET

Untitled

a guest Jan 14th, 2020 63 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. DATA1 segment
  2. txt1 db "   0000",10,13,'$';deklaracja stałych txt1 nazwa zmiennej, db typ,10 - nowa linia, 13 powrot kursora?, '$' koniec ciagu?
  3. txt2 db "1111", 10,13,'$'
  4. DATA1 ends
  5. CODE1 segment
  6. ASSUME cs:CODE1, ds:DATA1, ss:STOS1
  7. START:
  8. ;inicjalizacja stosu
  9. mov ax,seg STOS1
  10. mov ss,ax
  11. mov sp,offset top
  12. mov cx,5 ;licznik pętli
  13. petla: push cx
  14. call napis ;wywołanie podprogramu
  15. call napis2
  16. pop cx
  17. loop petla ;zmniejsza CX i jeśli CX <> 0 skacze do "petla"
  18. mov ax,4c00h
  19. int 21h ; Przerwanie DOS - koniec programu
  20. ;podprogram napis
  21. napis: mov ax,seg txt1
  22. mov ds,ax
  23. mov dx,offset txt1
  24. mov ah,9
  25. int 21h
  26. ret
  27. ;podprogram napis2
  28. napis2: mov ax, seg txt2
  29. mov ds,ax
  30. mov dx,offset txt2
  31. mov ah,9
  32. int 21h ; powrot do dosa
  33. ret
  34. CODE1 ends
  35. STOS1 segment STACK
  36. dw 256 dup(?)
  37. top dw ? ; wierzchołek stosu
  38. STOS1 ends
  39. END START
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top