home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol116 / nzcpr203.dif < prev    next >
Encoding:
Text File  |  1984-04-29  |  3.2 KB  |  131 lines
  1. 1d 0
  2. 3c 17200
  3. *  N Z C P R 203- Z80-Based Command Processor Replacement, Version 2.03    *
  4. .
  5. 16c 24427
  6. *                                    *
  7. *  This is DIF file Mod 0.3 to be combined with mod 0.1 VERS of ZCPR2.  *
  8. *  To obtain the full file do:                             *
  9. *  SSED ZCPR2.ASM <NZCPR203.DIF >NZCPR203.ASM                    *
  10. *                                    *
  11. *  18 FEB 1983  = VERS 2.02 ; BY PETER PINCHIS, TORONTO, ONT.        *
  12. *         - DIR routine has been changed to provide user select-  *
  13. *          able number of columns for DIR and ERA display.    *
  14. *          DIR and ERA shall now page at each full screen.    *
  15. *        - CONOUT routine modified to ignore Form feeds.        *
  16. *               - ERAV has a new meaning : when FALSE the user is always*
  17. *          prompted except when ERDFLG is present in the command *
  18. *          line.                            *
  19. *        - The module ZCPRHDR.LIB has been changed and renamed   *
  20. *          NZCPRHDR.LIB.                            *
  21. *          Only this module shall be used to compile NZCPR202    *
  22. *                                    *
  23. *  23 FEB 1983  = VERS 2.03 ; BY PETER PINCHIS, TORONTO, ONT.        *
  24. *        - Major bug fixed: in the original ZCPR2 mod 0.1 every  *
  25. *          time when a wrong command is issued in the multiple   *
  26. *          command line ( i.e : a file not found or a wild card  *
  27. *          in the save or ren cmd ) ,the ZCPR stops and the rest *
  28. *          of the command line is ignored.            *
  29. *            Example:  B1>type xxxxx.xxx;pip a:=b:yy.zz;dir      *
  30. *                  B1>; xxxxx.xxx not found.....        *
  31. *                      B1>XXXXX.XXX;PIP A:=B:YY.ZZ;DIR?            *
  32. *                  B1>                        *
  33. *          The present fix solves this problem : in the above    *
  34. *          example the execution continues with PIP and DIR...    *
  35. *          However there is a trade-off : IF THE USER OR THE     *
  36. *          DRIVE IS NOT WITHIN THE RANGE the execution is     *
  37. *          aborted without any prompt.                *  
  38. *          Use module NZCPRHDR.LIB ver 2.02 to compile this file.*
  39. .
  40. 52,53c 41637
  41. ;  NZCPR203 -- CP/M Z80 Command Processor Replacement (ZCPR) Version 2.03
  42. .
  43. 121c 44423
  44.     MACLIB    NZCPRHDR
  45. .
  46. 125a 57200
  47. ff    equ    0ch            ;form feed
  48. .
  49. 636,637c 53815
  50.     if    multcmd
  51.     jr    rcprnl
  52.     else
  53.     JMP    RESTRT        ;RESTART CPR
  54.     endif
  55. .
  56. 668a 64516
  57.     cpi    ff    ;is a form feed ?
  58.     jrz    skipff  ;skip char
  59. .
  60. 676a 608
  61. skipff:
  62. .
  63. 1101c 46919
  64.     JMP    restrt        ;USE ERROR ROUTINE - THIS IS RELATIVE PT
  65. .
  66. 1280c 31474
  67.     JNC    restrt        ;INVALID DISK NUMBER
  68. .
  69. 1297c 9211
  70.     JNC    restrt
  71. .
  72. 1431,1434d 10077
  73. 1482,1483c 57854
  74.     MVI    E,nrcol-1    ;SET COLUMN COUNTER TO ZERO
  75.     PUSH    D        ;SAVE COLUMN COUNTER (E)
  76.     mvi    a,nlines
  77.     sta    pagcnt
  78. .
  79. 1500,1502c 27067
  80.     INR    a
  81.     cpi    nrcol
  82.     jrnz    dir3a
  83.     xra    a
  84. dir3a:
  85.     mov    e,a
  86.     PUSH    D        ;SAVE IT
  87. ;    ANI    03H        ;OUTPUT <CRLF> IF all  ENTRIES PRINTED IN LINE
  88. .
  89. 1509a 40886
  90.     push    b
  91.     call    pager
  92.     pop    b
  93. .
  94. 1620,1622c 42373
  95. ;        If ERAV is FALSE, verification is always requested, except when
  96. ;            V flag is present in the command line ,in wich case
  97. ;                the user will not be prompted.
  98. .
  99. 1636c 43890
  100.     IF    ERAOK        ;OK? ENABLED?
  101. .
  102. 1645,1647d 52067
  103. 1649,1652d 58573
  104. 1652,1653c 31649
  105.  
  106.     IF    ERAV        ;if ERAV is true then
  107.     JRNZ    ERA2        ;do not skip prompt if ERDFLG prezent 
  108.     else            ;if ERAV is false then
  109.     jrz    era2        ;skip prompt if ERDFLG prezent 
  110. .
  111. 2061c 13759
  112.     JNC    restrt        ;RANGE ERROR?
  113. .
  114. 2276c 32390
  115.  
  116.     if    multcmd
  117.     jz    rcprnl
  118.     else
  119.     JZ    ERROR        ;PROCESS AS ERROR IF CMD RUN EXHAUSTED
  120.     endif        ;multcmd
  121. .
  122. 2318c 36736
  123.     if    multcmd
  124.     jz    rcprnl
  125.     else
  126.     JZ    ERROR        ;TRANSIENT LOAD ERROR -- FILE NOT FOUND
  127.     endif        ;multcmd
  128. .
  129. $a 42817
  130. .
  131.