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