home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_100 / 148_01 / a99bds.lib < prev    next >
Text File  |  1987-09-28  |  2KB  |  49 lines
  1.  
  2. ;
  3. ; A99BDS.LIB        for BDS C v1.50            September 4,1982
  4. ;
  5. ;
  6.  
  7. ;
  8. ; System addresses:
  9. ;
  10. base:    equ 0000h    ;either 0 or 4200h for CP/M systems
  11. fcb:    equ base+5ch    ;default file control block
  12. tbuff:    equ base+80h    ;sector buffer
  13. bdos:    equ base+5    ;bdos entry point
  14. tpa:    equ base+100h    ;transient program area
  15. nfcbs:    equ 9        ;max number of open files allowed at one time
  16. errorv:    equ 255        ;error value returned by BDOS calls
  17. cccorg:    equ tpa        ;where run-time package resides *TESTING*
  18.  
  19.             ;**************************************************
  20. ram:    equ cccorg+52Bh    ;THIS WILL PROBABLY CHANGE IF YOU CUSTOMIZE CCC.ASM
  21.             ;**************************************************
  22. args:    equ ram+37    ;where arghak puts arg values off the stack
  23.  
  24. cr:    equ 0dh        ;ASCII codes:    carriage return
  25. lf:    equ 0ah        ;        linefeed
  26. newlin:    equ lf        ;        newline
  27. tab:    equ 9        ;        tab
  28. bs:    equ 08h        ;        backspace
  29. cntrlc:    equ 3        ;        control-C
  30.  
  31. ma1toh:    equ cccorg+20ah    ;get 1st stack element into HL and A
  32. ma2toh:    equ cccorg+213h    ;    2nd
  33. ma3toh:    equ ma2toh+6    ;    3rd
  34. ma4toh:    equ ma2toh+12    ;    4th
  35. ma5toh:    equ ma2toh+18    ;    5th
  36. ma6toh:    equ ma2toh+24    ;    6th
  37. ma7toh:    equ ma2toh+30    ;    7th
  38.  
  39. arghak:    equ ma2toh+36    ;copy first 6 or so stack elements to argc area
  40.  
  41. arg1:    equ args    ;these are just convenient names for 
  42. arg2:    equ args+2    ;the words in the "args" area
  43. arg3:    equ args+4
  44. arg4:    equ args+6
  45. arg5:    equ args+8
  46. arg6:    equ args+10
  47. arg7:    equ args+12
  48.  
  49.