home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 02 / asm / dec.asm < prev    next >
Encoding:
Assembly Source File  |  1989-11-17  |  1.3 KB  |  47 lines
  1. A 100
  2. ;* ---------------------------------------------------------
  3. ; Demonstration des DEC-Befehls an Hand einer Schleife
  4. ;* ---------------------------------------------------------
  5. MOV CX,5                     ; setze Index
  6. ;L1:
  7. CALL NEAR 150                ; Anzeige Index
  8. DEC CX                       ; Index - 1
  9. JNZ 103                      ; Until CX = 0 -> L1:
  10. ;
  11. MOV AX,4C00                  ; DOS-Exit
  12. INT 21                       ;
  13.  
  14. A 130
  15. ;* ---------------------------------------------------------
  16. ;            Textkonstante
  17. ;* ---------------------------------------------------------
  18. DB "Schleifenindex = $"
  19. DB 0D,0A,"$"
  20.  
  21. A 150
  22. ;* ---------------------------------------------------------
  23. ;            Ausgaberoutine
  24. ;* ---------------------------------------------------------
  25. PUSH CX                      ; rette Index
  26. MOV  DX,130                  ; Zeiger auf Text
  27. MOV AH,09                    ; Text ausgeben
  28. INT 21
  29. MOV DL,CL                    ; Index lesen,
  30. ADD DL,30                    ; in ASCII wandeln
  31. MOV AH,02                    ; und ausgeben
  32. INT 21
  33. MOV  DX,142                  ; Zeiger auf CR,LF
  34. MOV AH,09                    ; Text ausgeben
  35. INT 21
  36. POP CX                       ; restauriere Index
  37. RET                          ; Ende
  38. ;
  39. ; Speichere das Programm
  40. ;
  41.  
  42. N DEMO2.COM
  43. RCX
  44. 200
  45. W
  46. Q
  47.