home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / z3sys / rcpspace.lbr / RCPSPACE.DQC / RCPSPACE.DOC
Encoding:
Text File  |  1993-06-08  |  3.0 KB  |  90 lines
  1. ..Doc. file for SPACE Z-systems RCP implant.
  2. ..3-24-86 by Carson Wilson
  3. .po 8 
  4.  
  5.                      Morσ Banτ fo≥ You≥ Buck
  6.  
  7.       A≤ ß flopp∙ disδ user¼ i⌠ seemeΣ sill∙ t∩ mσ tha⌠ thσ ámos⌠ ì
  8. frequentl∙ áuseΣ áutilit∙ áwa≤ lef⌠ ou⌠ áoµ á┌-systemsº ábuil⌠-iε ì
  9. functions« áTherefore¼ ╔ wrotσ thi≤ routinσ t∩ bσ implanteΣ áint∩ ì
  10. m∙ áRCP« áNow¼ áwheneve≥ á╔ áente≥ á"S<RETURN>"¼ á╔ áreceivσ ááaε ì
  11. instantaneou≤ árepor⌠ áoε thσ freσ spacσ oε whicheve≥ disδ á╔ áaφ ì
  12. currentl∙ áloggeΣ to« Iµ ╔ ente≥ "╙ D:<RETURN>ó (wherσ "Dó ái≤ áß ì
  13. lega∞ ádrivσ áletter)¼ á╔ receivσ ß repor⌠ oε thσ áspacσ áoε áthσ ì
  14. specifieΣ drive« 
  15.  
  16.      Thesσ áreport≤ áarσ ásimila≥ t∩ thosσ ágenerateΣ áb∙ áCP/M'≤ ì
  17. transien⌠ á"STATó command« Iµ thσ drivσ querieΣ ha≤ no⌠ áye⌠ áno⌠ ì
  18. ye⌠ ábeeε used¼ thσ routinσ firs⌠ select≤ tha⌠ drivσ áanΣ ácheck≤ ì
  19. disδ áspacσ physically« Iµ thσ drivσ querieΣ ha≤ ábeeε áselected¼ ì
  20. theε thσ prograφ assume≤ tha⌠ thσ disδ iε tha⌠ drivσ ha≤ NO╘ beeε ì
  21. changeΣ sincσ thσ las⌠ warφ boot« Iµ i⌠ ha≤ beeε changeΣ áwithou⌠ ì
  22. ß áwarφ boot¼ thσ repor⌠ oµ disδ spacσ wil∞ bσ tha⌠ oµ áthσ álas⌠ ì
  23. disδ whicΦ wa≤ warφ booteΣ iε thσ selecteΣ drive.
  24.      
  25.      Sincσ á╔ als∩ implementeΣ ┌-systemsº residen⌠ filσ cop∙ áanΣ ì
  26. filσ áerasσ routine≤ iε m∙ RCP¼ ╔ addeΣ codσ t∩ makσ átheφ á"worδ ì
  27. harderó áb∙ displayinτ thσ remaininτ freσ spacσ oε áthσ áselecteΣ ì
  28. disδ áafte≥ eacΦ filσ cop∙ grou≡ oµ erasure≤ usinτ áthσ ábuil⌠-iε ì
  29. commands« 
  30.      Thσ ácodσ áconsist≤ áoµ 1⌐ ß shor⌠ áprocedurσ árigh⌠ ábeforσ ì
  31. "SPACEó á("crSPACE"⌐ t∩ executσ ß carriagσ returε anΣ álinσ áfeeΣ ì
  32. (thi≤ ácodσ ái≤ includeΣ iε thσ filσ RCPSPACE.AZM)╗ á2⌐ áß áshor⌠ ì
  33. procedurσ á("spaEXIT"⌐ righ⌠ beforσ m∙ RCP'≤ "EXITó procedurσ át∩ ì
  34. cal∞ m∙ SPAC┼ routinσ beforσ returninτ t∩ ZCPR╗ anΣ 3⌐ onσ changσ ì
  35. eacΦ áiε m∙ RCP'≤ "COPYó anΣ "ERASEó routines« Thσ codσ áfo≥ á(2⌐ ì
  36. anΣ (3⌐ appear≤ below.
  37.  
  38.  
  39. Herσ i≤ thσ routinσ ╔ includeΣ beforσ thσ EXI╘ procedure:
  40. ;
  41. spaEXIT║                        ╗ m∙ routine
  42.     call    crSPACE        ; show disk space first,
  43. ;
  44. ╗ origina∞ codσ begin≤ (includeΣ fo≥ clarity):
  45. ; EXIT TO ZCPR│                                 
  46. ;
  47. EXIT:
  48. Z3RET    EQU    $+1        ; POINTER TO IN-THE-CODE MODIFICATION
  49.     LD    HL,0        ; RETURN ADDRESS
  50.     JP    (HL)        ; GOTO ZCPR3
  51. ;
  52.  
  53.  
  54. .pa
  55. èHerσ i≤ thσ modificatioε t∩ thσ COP┘ procedurσ (origina∞ codσ ì
  56. includeΣ fo≥ clarity):
  57. ;
  58. COPY6:
  59.     CALL    LOGOLD        ;GET USER
  60.     LD    DE,OLDFCB    ;PT TO FCB
  61.     LD    C,16        ;CLOSE FILE
  62.     CALL    BDOS
  63.     CALL    LOGNEW        ;GET USER
  64.     LD    DE,FCB1        ;PT TO FCB
  65.     LD    C,16        ;CLOSE FILE
  66.     CALL    BDOS
  67.     CALL    PRINT
  68.     DB    ' Don',('e'+80H)
  69.     JP    spaEXI╘           ╗ wa≤ "J╨ EXITó 
  70. ╗                  |               
  71.                    |
  72. Thi≤ i≤ wherσ ╔ substituteΣ ß jum≡ t∩ spaEXI╘ iε thσ COP┘ ì
  73. procedure.
  74.  
  75.  
  76.  
  77.  
  78. Herσ i≤ thσ modificatioε t∩ thσ ER┴ procedurσ (origina∞ codσ ì
  79. includeΣ fo≥ clarity):
  80. ;
  81. ERA3:
  82.     LD    HL,(NXTFILE)    ;HL PTS TO NEXT FILE
  83.     LD    A,(HL)        ;GET CHAR
  84.     OR    A        ;DONE?
  85.     JP    Z,spaEXI╘       ╗ wa≤ "J╨ EXIT"  
  86.     CALL    CRLF        ;NEW LINE
  87.     BR    ERA1
  88. ;
  89.     ENDIF            ;ERAON
  90. ;
  91.