home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / EDITORES / VEDT.ZIP / TASM.VCS < prev    next >
Encoding:
Text File  |  1990-09-18  |  893 b   |  68 lines
  1. !
  2. !    For: Borland Turbo Assembler 1.0
  3. !
  4.  
  5. (Q96=0)[ JP"FUNC-0" ]        
  6. (Q96=1)[ JP"FUNC-1" ]
  7. (Q96=2)[ JP"FUNC-2" ]
  8. (Q96=3)[ JP"FUNC-3" ]
  9. (Q96=4)[ JP"FUNC-4" ]
  10. (Q96=5)[ JP"FUNC-5" ]
  11. (Q96=6)[ JP"FUNC-6" ]
  12. JM
  13.  
  14. !FUNC-0!
  15. YT"Borland Turbo Assembler 1.0"
  16. JM
  17.  
  18. !FUNC-1!
  19. -@OC"|Ru > VCS.TMP"    
  20. JM
  21.  
  22. !FUNC-2!
  23. 1XS(97)                
  24. _$N"|{|<**Error** ,|<*Warning* }"
  25.  
  26. !F-3-1!
  27. (.rv<>Q97)[            
  28.     0XS(94)            
  29.     Q96=2[            
  30.     _Z            
  31.     ][            
  32.     _B            
  33.     ]
  34.     ][                
  35.     1XS(94)            
  36.     (.n=0)[            
  37.     0XS(95) RE(g)        
  38.     ]
  39.     (.n=10)[            
  40.     .pXBB            
  41.     .lnXS(97)        
  42.     N"(" (~.er)&(.ln=Q97)[    
  43.         .pXBE .vXS(95)    
  44.         .bb,(.be-1)RC(g)    
  45.         ][
  46.         0XS(95) RE(g) .bbEJ    
  47.         ]
  48.     ]
  49.     N"|>" -0RC(h)        
  50.     1L -XBB            
  51.     ]
  52. JM
  53.  
  54. !FUNC-3!
  55. (2-.eof)XS(97)            
  56. -Q97_$N"|{|<**Error** ,|<*Warning* }"
  57. (.rv=Q97)[ .nC ]        
  58. JP"F-3-1"            
  59.  
  60. !FUNC-4!
  61. !FUNC-5!
  62. RI(v)"*.ASM"
  63. JM
  64.  
  65. !FUNC-6!
  66. (Q95-1)L            
  67. JM
  68.