home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / ZCPR2 / KP10NZ2.LBR / NAMEDIR.CQR / NAMEDIR.CPR
Text File  |  2000-06-30  |  4KB  |  117 lines
  1.                      Named Directory Prompt for ZCPR23
  2.                               by Jay Denebeim
  3.                            SYSOP Ovation Network
  4.                               (606) 276-1957
  5.  
  6.      Onσ oµ thσ mos⌠ powerfu∞ feature≤ oµ ZCP╥ i≤ thσ usσ oµ name≤á insteaΣ ì
  7. oµ drive/use≥ pairs«  Unfortunatly¼ thesσ arσ no⌠ supporteΣ b∙ ZCP╥ itselfí  ì
  8. Wheεá installinτá ZCP╥ oε m∙ systeφ ╔ pu⌠ patche≤ iε t∩ prin⌠ theε namσá in ì
  9. thσá commanΣ prompt«á  Thσ forφ i≤ DU:DIRNAME╛ iµ DUPRMP╘ i≤á enabled¼á anΣ ì
  10. DIRNAME╛ iµ it≤ not.
  11.      Thi≤á patcΦ shoulΣ bσ ablσ t∩ bσ installeΣ oε an∙ versioε oµ ZCPR«á  ╔ ì
  12. aφá unablσá t∩ includσ ß .diµ filσ becausσ m∙ sourcσ t∩á ZCP╥á wa≤á garbleΣ ì
  13. durinτ transmission«á  Iµ anyonσ ha≤ thσ sourcσ t∩ thσ utilit∙ programs¼á ╔ ì
  14. woulΣá appreciatσá i⌠á iµ yo⌡ coulΣ up-loaΣ theφ ont∩ m∙ board¼á s∩á ╔á caε ì
  15. install named directory support to them too.
  16.      If there are any problems please contact me at:
  17.  
  18.                            Ovation Network RCPM
  19.                               140 Moore Drive
  20.                            Lexington, KY  40503
  21.                               (606) 276-1957
  22.  
  23. .paè     The first step is to install switches into the header file:
  24.  
  25.      Thi≤á patcΦ caε bσ installeΣ anywhere¼á bu⌠ Θ thinδ thσ bes⌠ placσá t∩ ì
  26. pu⌠ i⌠ i≤ righ⌠ afte≥ thσ DUPRMP╘ equate«á  Tha⌠ i≤ thσ onl∙ onσ associateΣ ì
  27. with command line prompt.
  28.  
  29. ;   The following equates enable the named directory options.
  30. ; NAMDIR enables the named directory buffer.
  31. ; NAMBUF specifies where in core the Buffer will reside.
  32. ; NAMDIR enables printing of the Dir's name on the command line.
  33. ;    set it to TRUE and the prompt will be dn:name>
  34. ;    set it to FALSE and the prompt will be dn>
  35. ;
  36. NAMDIR    equ    TRUE        ;ENABLE NAMED DIRS
  37. NAMBUF    equ    0F300H        ;LOCATION OF BUFFER
  38. NAMPMT    equ    TRUE        ;PRINT NAME ON COMMAND LINE
  39.  
  40.  
  41.      Thσ othe≥ change≤ arσ madσ t∩ thσ ZCPR.AS═ file¼ pa∙ carefu∞ attentioε ì
  42. to the relative jumps in the file.
  43.  
  44.      Iµ al∞ thσ promp⌠ option≤ arσ enabled¼á thi≤ jum≡ commanΣ iε thσ CONT║ ì
  45. routinσ iε sectioε ▓ oµ ZCP╥ shoulΣ bσ changeΣ t∩ thσ │ bytσ form:
  46.      Change this line:
  47.  
  48.         JRNZ    RS1
  49.  
  50.      To this:
  51.  
  52.         JNZ    RS1
  53.  
  54.      The jump on no print of 0 while in user 0 should be changed.
  55.  
  56.      Changσá thi≤á linσ iε thσ SUPRE╙ conditiona∞ assembl∙ sectioεá oµá thσ ì
  57. RESTRT: routine from:
  58.  
  59.         JRZ     RS000
  60.  
  61.      To this:
  62.         JRZ     RSJ00
  63. .paè     Finall∙á inser⌠ thσ followinτ routinσ betweeε thσ DUPRMP╘á conditiona∞ ì
  64. assembly of the RESTRT routine, and the RS000: routine:
  65.  
  66. ; PRINT DIRECTORY NAME IF THERE
  67. ;
  68. RSJ00:
  69.     IF    NAMPMT AND NAMDIR
  70.     LXI    H,NAMBUF    ;POINT TO NAMED DIR BUFFER
  71.     INX    H        ;POINT TO NUMBER OF ENTRIES
  72.     MOV    B,M        ;GET IT
  73.     XRA    A        ;TEST NUMBER OF ENTRIES
  74.     CMP    B        ;TO SEE IF ZERO
  75.     JRZ    RS000        ;AND SKIP ROUTINE IF SO
  76.     LDA    CURDR        ;GET CURRENT DRIVE NUMBER
  77.     INX    H        ;POINT TO DRIVE OF FIRST ENTRY
  78.     LXI    D,10        ;SET UP ENTRY LENGTH
  79. RSJ01:
  80.     MOV    C,M        ;GET DISK FROM TABLE
  81.     CMP    C        ;IS THIS THE CURRENT ONE
  82.     JRZ    RSJ02        ;TEST USER ROUTINE
  83.     DAD    D        ;POINT TO NEXT ENTRY
  84.     DCR    B        ;REDUCE COUNTER
  85.     JRNZ    RSJ01        ;IF MORE, LOOP
  86.     JR    RS000        ;ELSE NO ENTRY FOR THIS DISK
  87. RSJ02:
  88.     LDA    CURUSR        ;GET CURRENT USER
  89.     INX    H        ;POINT TO USER IN THIS ENTRY
  90. RSJ020:
  91.     MOV    C,M        ;GET USER FROM TABLE
  92.     CMP    C        ;IS THIS THE CURRENT ONE
  93.     JRZ    RSJ03        ;PRINT NAME OUT
  94.     DAD    D        ;POINT TO NEXT ENTRY
  95.     DCR    B        ;REDUCE COUNTER
  96.     JRNZ    RSJ020        ;IF MORE, LOOP
  97.     JR    RS000        ;ELSE NO ENTRY FOR THIS USER
  98. RSJ03:
  99.     IF    DUPRMPT
  100.     MVI    A,':'        ;USE : AS SEPARATER
  101.     CALL    CONOUT
  102.     ENDIF    ;DUPRMPT
  103.     INX    H        ;POINT TO FIRST CHAR OF NAME
  104.     MVI    B,8
  105. RSJ030:
  106.     MOV    A,M        ;GET CHAR
  107.     CPI    ' '        ;END OF NAME?
  108.     JRZ    RS000        ;WE IS DONE
  109.     CALL    CONOUT        ;PUT CHAR ON SCREEN
  110.     INX    H        ;POINT TO NEXT
  111.     DCR    B        ;REDUCE CHAR COUNT
  112.     JRNZ    RSJ030        ;GO FOR MORE
  113.     ENDIF    ;NAMPMT
  114. ;
  115.  
  116.      I hope you enjoy these changes to ZCPR.
  117. è