home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 02 / asm / ask.asm next >
Encoding:
Assembly Source File  |  1989-11-17  |  1.7 KB  |  70 lines
  1. A 100
  2. ;* ---------------------------------------------------------
  3. ; File: ASK.AMS
  4. ; Funktion: Programm zur Benutzerabfrage in Batchdateien.
  5. ; Aufruf: ASK <Text>
  6. ; Der Text wird auf dem Screen ausgegeben. Der Tastencode
  7. ; wird an DOS zurückgegeben. Er läßt sich per ERRORLEVEL
  8. ; abfragen.
  9. ;* ---------------------------------------------------------
  10. ; Textausgabe falls vorhanden
  11. CALL 130                     ; CALL Text
  12. ;
  13. ; Abfrage der Tastatur
  14. ;
  15. MOV AH,08                    ; Read Keyboard
  16. INT 21
  17. CMP AL,0                     ; Zeichen = 0?
  18. JNZ  10F                     ; Exit
  19. ;
  20. ; lese zweites Zeichen
  21. ;
  22. MOV AH,08                    ; Read Keyboard
  23. INT 21
  24. PUSH AX                      ; merke Code
  25. ;
  26. ; CR,LF ausgeben
  27. ;
  28. MOV AH, 09                   ; Stringausgabe
  29. MOV DX,148                   ;
  30. INT 21
  31. POP AX                       ; restauriere Code
  32. ;
  33. ; DOS-Exit, Returncode in AL
  34. ;
  35. MOV AH,4C                    ; DOS Exitcode
  36. INT 21
  37.  
  38. a 130
  39. ;
  40. ;* --------------------------------------------------------
  41. ;                  Textausgabe
  42. ;* ---------------------------------------------------------
  43. ;
  44. ; prüfe ob Text vorhanden ist
  45. ;
  46. MOV AL,[80]                  ; lese Pufferlänge
  47. CMP AL,0                     ; Text vorhanden
  48. JZ  147                      ; kein Text vorhanden
  49. MOV BH,0                     ; lade BX mit
  50. MOV BL,AL                    ; Adresse Zeichen
  51. ;
  52. ; schreibe $ an Textende
  53. ;
  54. MOV BYTE PTR [BX+81],24
  55. MOV AH,09                    ; String ausgeben
  56. MOV DX,82                    ; Anfang String
  57. INT 21                       ; Text ausgeben
  58. RET
  59. ;
  60. DB 0D,0A,"$"
  61. ;
  62. ; Speichere das Programm
  63. ;
  64.  
  65. N ASK.COM
  66. RCX
  67. 200
  68. W
  69. Q
  70.