home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dbdir.lbr / DBDIR.AZM / DBDIR.ASM
Encoding:
Assembly Source File  |  1993-10-26  |  7.0 KB  |  355 lines
  1.      page    58
  2. ;    dbdir.asm      
  3. ;
  4. ;
  5. ;        THIS PROGRAM WILL ...
  6. ;            produce a directory list on the
  7. ;            console and will be called from dBASEII.
  8. ;                        - Mike Kelly
  9. ;
  10. ;    08-20-82  v1.0    written
  11. ;
  12. ;    08-22-82  v1.0     updated
  13. ;    08-30-82  v1.1    Add routine to load the program to upper memory
  14. ;            when it has been assembled in lower memory. To
  15. ;            do this requires adding a base number (offset)
  16. ;            to all labels and variables so that after the
  17. ;            move to upper memory, all addresses will have
  18. ;            been adjusted properly.
  19. ;    09-20-82  v1.2    Changed routine to add function byte to 
  20. ;            select which function of this routine.
  21. ;            Expanded routine to add set user function.
  22. ;
  23. ;                Function:
  24. ;                   00h = alter user number
  25. ;                   01h = show directory
  26. ;    01-20-83   v1.3    Added seperator between filenames in display.
  27. ;
  28. ; 
  29. ;
  30.     global    tcmd,tfcb,bldfcb,loop1,prtit
  31.     global    srchnxt,end
  32.     global    linecnt,diroffset,prtfn
  33.     global    srchfrst,prtspace,prtdot,prtcrlf
  34.     global    nohit,findme,notfound,count
  35.     global    function,setusr,showdir,badfunc
  36.     global    badbyte,user,usrmsg
  37. ;
  38. ;SYSTEM EQUATES
  39. ;
  40. cr    equ    0dh        ;carriage return
  41. lf    equ    0ah        ;line feed
  42. esc    equ    1bh        ;escape
  43. exitcpm    equ    0        ;warmboot exit point
  44. base    equ    0        ;find wboot jmp address at rst0
  45. dumyadr    equ    0
  46. tfcb    equ    5ch        ;default fcb
  47. tcmd     equ    80h        ;default command line and DBA addr       
  48. tbuf    equ    80h        ;default buffer
  49. bdos    equ    5        ;CP/M function calls entry point
  50. entsize equ    13        ;bytes per sorted directory entry
  51. ;                ; includes: 1-2   for user number
  52. ;                ;           3-13  for fn,ft (no period)
  53. pagesize equ    20        ;# of lines to print on a page
  54. dirsect  equ    26        ;# of sectors in directory track
  55. tpa     equ    100h
  56. dbasetop equ    00400h        ;free memory above dBASEII (a400h-a000h)
  57. dbload     equ    00500h        ;load asm. routine here
  58. x     equ    0a000h        ;offset to add to all labels and     
  59.                 ; variables
  60. ;
  61. ;
  62.     aseg
  63.      org    tpa 
  64. ;
  65. ;                ;this routine will move the code at
  66. ;                ; 400h to a400h
  67. ;
  68.     ld    hl,st1        ;from address
  69.     ld    de,x+dbasetop    ;to address
  70.     ld    bc,fini1-st1    ;length
  71.     ldir            ;move it
  72. ;
  73. ;                ;this routine will move the code at
  74. ;                ; 500h to a500h
  75. ;
  76.     ld    hl,start    ;from address
  77.     ld    de,x+dbload    ;to address
  78.     ld    bc,fini-start    ;length
  79.     ldir            ;do the move
  80. ;
  81.      jp    x+start        ;then jump to the newly moved code
  82. ;    jp    exitcpm
  83. ;
  84.      org    dbasetop        ;put variables here
  85. ;
  86. st1:                    ;start of variables
  87. ;
  88. function:
  89.     db    01h            ;function byte
  90. ;                    ; 0 = set user
  91. ;                    ; 1 = show directory
  92. findme:  
  93.     db    '???????????'        ;directory entry to look for
  94. userno:
  95.     db    00h            ;user number
  96. drive:
  97.     db    00h            ;drive to search
  98. junk:
  99.     db    'end of storage used by dbdir'
  100. ;
  101. fini1:                         ;end of variables
  102. ;
  103. ;
  104.      org    dbload
  105. ;
  106. ;
  107. start:
  108.     ld    (x+oldstack),sp        ;save current stack pointer
  109.     ld     sp,x+stack            ;set stack pointer to my stack
  110. ;
  111.     push    psw            ;save the world
  112.     push    bc
  113.     push    de
  114.     push    hl
  115. ;
  116.     ld    a,(x+function)        ;get function
  117.     cp    00h            ;=00h then set user
  118.     jp    z,x+setusr
  119.     cp    01h            ;=01h then show directory
  120.     jp    z,x+showdir
  121.     jp    x+badfunc        ;bad function passed 
  122. ;
  123. setusr:
  124.     call    x+user
  125.     ld     de,x+usrmsg
  126.     call    x+sout
  127.     call    bdos
  128.     jp    x+end
  129. ;
  130. showdir:
  131.     ld    de,x+dirmsg        ;print signon msg
  132.     call    x+sout
  133.     ld    bc,0000h        ;init count
  134.     ld    (x+count),bc
  135. ;
  136.     call    x+setdma        ;set dma to addr of tbuf(80h)
  137.     call    x+bldfcb
  138.     call    x+srchfrst        ;get 1st entry
  139.     jp    z,x+nohit          ;=z,no entry found
  140.           call    x+prtit 
  141. loop1:
  142.     call    x+srchnxt        ;get n+1 entry
  143.     jp    z,x+end          ;=z,all done
  144.     call    x+prtit            ;print the entry
  145.     jp    x+loop1            ;loop til done
  146. ;
  147. bldfcb:
  148.     ld    a,(x+drive)        ;get drive byte
  149.     ld    (tfcb),a             ;put in fcb
  150. ;
  151.     ld    hl,x+findme        ;sending addr (search string)
  152.     ld    de,tfcb+1            ;receiving addr
  153.     ld    bc,000bh        ;count of 11
  154.     ldir                ;do move
  155.     ret
  156. ;
  157. prtit:
  158.     ld    a,(x+count)        ;check how many entries have
  159.     cp      05h            ; printed-only 5 per line
  160.     call    z,x+prtcrlf
  161.     inc    a            ;up count
  162.     ld    (x+count),a
  163. ;
  164.     ld    hl,tbuf+1             ;addr of buffer
  165.     ld    bc,(x+diroffset)    ;offset into directory entry
  166.     ld    b,00h
  167.     add    hl,bc
  168.     ld    bc,000bh        ;count of 11
  169. ;
  170.     call    x+prtspace            ;format print of each entry
  171.     ld    bc,0008h
  172.     call    x+prtfn
  173.     call    x+prtdot
  174.     ld    bc,0003h
  175.     call    x+prtfn
  176.     call    x+prtgate
  177.     ret
  178. ;
  179. prtspace:
  180.     ld    e,' '
  181.     call    x+conout
  182.     ret
  183. ;
  184. prtgate:
  185.     ld    e,'|'
  186.     call    x+conout
  187.     ret
  188. ;
  189. prtdot:
  190.     ld    e,'.'
  191.     call    x+conout
  192.     ret
  193. ;
  194. prtcrlf: 
  195.     ld    de,x+crlf
  196.     call    x+sout
  197.      xor    a            ;put zero in A
  198.      ld    (x+count),a        ;zero out count
  199.     ret
  200. ;
  201. prtfn:  
  202.     ld    e,(hl)            ;get a char
  203.     call    x+conout        ;print it
  204.     inc    hl            ;point to next char
  205.     dec    c            ;dec count
  206.     ret    z            ;return if done
  207.     jp    x+prtfn          ;loop til done
  208. ;
  209. nohit:    
  210.     ld    de,x+notfound
  211.     call    x+sout
  212.     jp    x+end
  213. ;
  214. badfunc:
  215.     ld    de,x+badbyte
  216.     call    x+sout
  217.     jp    x+end
  218. ;
  219. end:
  220.     pop    hl            ;put the world back as you 
  221.     pop    de            ; found it
  222.     pop    bc
  223.     pop    psw
  224.     ld    sp,(x+oldstack)        ;dont forget the stack
  225.      ret                ;ret, not jp to 0
  226. ;
  227. ;
  228. ;
  229. ;
  230. conin:
  231.           ld      c,1     
  232.     call    bdos
  233.     ret
  234. conout:
  235.     push    psw
  236.     push    bc
  237.     push    de
  238.     push    hl
  239.            ld     c,2      
  240.     call    bdos
  241.     pop    hl
  242.     pop    de
  243.     pop    bc
  244.     pop    psw
  245.     ret
  246. dirin:
  247.     ld    c,6
  248.     ld    e,0ffh
  249.     call    bdos
  250.     cp    00h             ;=00h, then char not ready
  251.     jp    z,x+dirin        ; will want to wait for it
  252.     ret
  253. sout:
  254.            ld     c,9                     ;write string to console
  255.     call    bdos
  256.     ret
  257. ;
  258. setdma:
  259.     ld    c,1ah            ;set dma addr to 80h
  260.     ld    de,tbuf
  261.     call    bdos
  262.     ret
  263. user:    
  264.     ld    a,(x+userno)        ;set user number
  265.     ld    e,a
  266.     ld    c,20h
  267.     call    bdos
  268.     ret
  269. ;
  270. srchfrst:                ;do search first
  271.     call    x+user            ;alter user #
  272. ;
  273.     ld    c,11h            ;bdos search 1st
  274.     ld    de,tfcb            ;de with addr of fcb
  275.     call    bdos
  276.     push    psw            ;save A register and z flag
  277.     add    a,a            ;adjust A to get offset to
  278.     add    a,a            ; the found entry
  279.     add    a,a
  280.     add    a,a
  281.     add    a,a
  282.     ld    (x+diroffset),a        ;save the offset
  283.     pop    psw            ;get the original value of A
  284.     inc    a            ;to detect 0ffh
  285.     ret
  286. ;
  287. srchnxt:                ;do search next
  288. ;                    ;  will only set srcheof flag
  289. ;                    ;   when have checked all users
  290.     ld    c,12h
  291.     call    bdos
  292.     push    psw            ;save A register and z flag
  293.     add    a,a            ;adjust A to get offset to
  294.     add    a,a            ; the found entry
  295.     add    a,a
  296.     add    a,a
  297.     add    a,a
  298.     ld    (x+diroffset),a        ;save the offset
  299.     pop    psw            ;get the original value of A
  300.     inc    a            ;to detect 0ffh
  301.     ret    
  302. ;
  303. ;
  304. ;
  305. ;        Variables
  306. ;
  307. count:
  308.     db    00h,00h
  309. linecnt:
  310.     db    00h            ;count of # of lines printed
  311.                     ; init at 2 for heading
  312. diroffset:
  313.     db    00h            ;offset into directory entry
  314. ;                    ; returned by bdos search,
  315. ;                    ; incremented by 32, max.
  316. ;                    ; should be 255
  317. ;
  318. dirmsg:
  319.     db    cr,lf
  320.     db    'dBASEII directory routine'
  321.     db    cr,lf
  322.     db    'Version 1.3     '
  323.     db    '01-20-83'
  324.     db    cr,lf
  325.     db    '$'
  326. notfound:
  327.            db    '++ Entry not found ++'
  328.     db    '$'
  329. usrmsg:
  330.     db    cr,lf
  331.     db    'User number has been altered'
  332.     db    cr,lf
  333.     db    '$'
  334. badbyte:
  335.     db    '++ Invalid function passed ++'
  336.     db    cr,lf
  337.     db    '$'
  338. anykey:
  339.     db    '                         '
  340.     db    'Press any key to continue'
  341.     db    cr
  342.     db    '$'
  343. crlf:  
  344.     db    cr,lf
  345.     db    '$'
  346. stktop: ds    64                    ;top of stack
  347. stack:    ds    1                    ;stack          
  348. oldstack:                ;saves old stack pointer
  349.     dw    0000h
  350. junk2:
  351.     db    'after old stack'
  352. ;
  353. fini:
  354.      end
  355.