home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / bbl / script < prev    next >
Encoding:
Text File  |  1985-11-13  |  512 b   |  47 lines
  1. N STRIP.COM
  2. A
  3. CLD
  4. MOV DX,014C
  5. MOV CX,FC00
  6. XOR BX,BX
  7. MOV AH,3F
  8. INT 21
  9. OR AX,AX
  10. JZ 014A
  11. MOV CX,AX
  12. MOV SI,DX
  13. MOV DI,DX
  14. LODSB
  15. CMP AL,1A
  16. JZ 0134
  17. AND AL,7F
  18. CMP AL,1F
  19. JNZ 0124
  20. MOV AL,2D
  21. CMP AL,20
  22. JNB 0134
  23. CMP AL,09
  24. JZ 0134
  25. CMP AL,0D
  26. JZ 0134
  27. CMP AL,0A
  28. JNZ 0137
  29. STOSB
  30. CMP AL,1A
  31. LOOPNZ 0117
  32. PUSH AX
  33. MOV CX,DI
  34. SUB CX,DX
  35. MOV BX,0001
  36. MOV AH,40
  37. INT 21
  38. POP AX
  39. CMP AL,1A
  40. JNZ 0104
  41. INT 20
  42.  
  43. RCX
  44. 4C
  45. W
  46. Q
  47.