home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / editor / vp_demo.zip / VCSD.ZIP / TASM.VCS < prev    next >
Text File  |  1992-03-17  |  881b  |  66 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.     Q96=2[            
  29.     _Z            
  30.     ][            
  31.     _B            
  32.     ]
  33.     ][                
  34.     (.n=0)[            
  35.     0XS(95) RE(g)        
  36.     ]
  37.     (.n=10)[            
  38.     .pXBB            
  39.     .lnXS(97)        
  40.     N"(" (~.er)&(.ln=Q97)[    
  41.         .pXBE .vXS(95)    
  42.         .bb,(.be-1)RC(g)    
  43.         ][
  44.         0XS(95) RE(g) .bbEJ    
  45.         ]
  46.     ]
  47.     $N"|>" -0RC(h)        
  48.     1L -XBB            
  49.     ]
  50. JM
  51.  
  52. !FUNC-3!
  53. (2-.eof)XS(97)            
  54. -Q97_$N"|{|<**Error** ,|<*Warning* }"
  55. (.rv=Q97)[ .nC ]        
  56. JP"F-3-1"            
  57.  
  58. !FUNC-4!
  59. !FUNC-5!
  60. RI(v)"*.ASM"
  61. JM
  62.  
  63. !FUNC-6!
  64. (Q95-.ln)L                !Goto line # Q95
  65. JM
  66.