home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol116 / nzcpr205.dif < prev    next >
Encoding:
Text File  |  1984-04-29  |  4.7 KB  |  177 lines
  1. 1d 0
  2. 3c 17200
  3. *  N Z C P R 205- Z80-Based Command Processor Replacement, Version 2.05    *
  4. .
  5. 16,17c 24427
  6. *                                    *
  7. *  This is DIF file Mod 0.4 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. *         Included in vers 2.05                    *
  25. *  25 FEB 1983   = VERS 2.04 ; BY PETER PINCHIS, TORONTO, ONT.        *
  26. *          Included in vers 2.05                    *
  27. *  28 FEB 1983   = VERS 2.05 ; BY PETER [INCHIS, TORONTO, ONT.        *
  28. *        - Major bug fixed: in the original ZCPR2 mod 0.1 every  *
  29. *          time when a wrong command is issued in the multiple   *
  30. *          command line ( i.e : a file not found or a wild card  *
  31. *          in the save or ren cmd ) ,the ZCPR stops and the rest *
  32. *          of the command line is ignored.            *
  33. *            Example of cmd line before the change:        *
  34. *                  B1>type xxxxx.xxx;pip a:=b:yy.zz;dir      *
  35. *                  ; xxxxx.xxx not found.....        *
  36. *                      B1>XXXXX.XXX;PIP A:=B:YY.ZZ;DIR?            *
  37. *                  B1>                        *
  38. *          The present fix solves this problem : in the above    *
  39. *          example the execution continues with PIP and DIR...    *
  40. *           ERROR routine modified as follows:            *
  41. *          If a file is not found by the load,TYPE,REN,DIR,GET or*
  42. *          ERA command then the file name is printed after     *
  43. *          "No File" prompt.                    *
  44. *          If other commands follow the ofending one, then an    *
  45. *           other prompt "Abort?" is displayed.            *
  46. *          The user could abort or not the execution of the rest *
  47. *          of command line.                        *
  48. *          Example of cmd line after the change:            * 
  49. *                  B1>asmbl myprog a;type yyy;dir b5:xxx.com    *
  50. *                  ;...asmbl and yyy not present         *
  51. *                  ;...b5: empty                *
  52. *                  B1>No File ASMBL MYPROG A            *
  53. *                  B1>Abort?n                *
  54. *                  B1>No file YYY                *
  55. *                  B1>Abort?n                *
  56. *                  B1>No File B5:XXX.COM            *
  57. *                  B1>                    *
  58. *          Other example:                    *
  59. *                  B1>era qqq.com;ren pp.txt=rr.txt        *
  60. *                  ;..qqq.com not present; pp.txt exist'g    *
  61. *                  B1>No File QQQ.COM            *
  62. *                  B1>Abort?n                *
  63. *                  B1>Erase PP      .TXT?y            *
  64. *                  B1>No File RR.TXT                *
  65. *                  B1>                    *
  66. *          Use module NZCPRHDR.LIB ver 2.02 to compile this file.*
  67. *                                                                       *
  68. .
  69. 80,81c 27640
  70. ;  NZCPR205 -- CP/M Z80 Command Processor Replacement (ZCPR) Version 2.05
  71. .
  72. 149c 30426
  73.     MACLIB    NZCPRHDR
  74. .
  75. 153a 43203
  76. ff    equ    0ch            ;form feed
  77. .
  78. 642c 60121
  79.     call    prnnf        ;no file message
  80. .
  81. 647,648c 32816
  82.  
  83.     if    multcmd
  84.     
  85.     cpi    cmdsep        ;is a cmd separator ?
  86.     jrnz    err1a        ;no
  87.     call    printc
  88.     db    'Abort','?'+80H
  89.     call    conin        ;get reply
  90.     cpi    'Y'        ;yes?
  91.     jz    restrt        ;abort and restart ccp
  92.     jr    err2        ;continue with next cmd
  93.  
  94.     endif        ;multcmd
  95. err1a:
  96.      cpi    ' '        ;ret if less than <sp>
  97.      JRC    ERR2
  98. .
  99. 667,668c 32607
  100.     shld    nxtchr
  101. .
  102. 672,674c 21845
  103.     CALL    SUBKIL        ;TERMINATE ACTIVE $$$.SUB IF ANY
  104. .
  105. 675,676c 36387
  106.     if    multcmd
  107.     jr    rcprnl        ;go to next cmd
  108.     else
  109.     JMP    RESTRT        ;RESTART CPR
  110.     endif
  111. .
  112. 685c 12872
  113.     DB    'No File',' '+80H
  114. .
  115. 707a 10001
  116.     cpi    ff    ;is a form feed ?
  117.     jrz    skipff  ;skip char
  118. .
  119. 715a 11629
  120. skipff:
  121. .
  122. 1470,1473d 55606
  123. 1521,1522c 37847
  124.     MVI    E,nrcol-1    ;SET COLUMN COUNTER TO ZERO
  125.     PUSH    D        ;SAVE COLUMN COUNTER (E)
  126.     mvi    a,nlines
  127.     sta    pagcnt
  128. .
  129. 1527,1530c 30709
  130. ;    CALL    PRNNF        ;PRINT NO FILE MSG; REG A NOT CHANGED
  131. ;    XRA    A        ;SET ZERO FLAG
  132.     POP    D        ;RESTORE DE
  133.     jmp    error
  134.  
  135. ;    RET
  136. .
  137. 1541,1543c 56915
  138.     INR    a
  139.     cpi    nrcol
  140.     jrnz    dir3a
  141.     xra    a
  142. dir3a:
  143.     mov    e,a
  144.     PUSH    D        ;SAVE IT
  145. ;    ANI    03H        ;OUTPUT <CRLF> IF all  ENTRIES PRINTED IN LINE
  146. .
  147. 1550a 5198
  148.     push    b
  149.     call    pager
  150.     pop    b
  151. .
  152. 1661,1663c 6685
  153. ;        If ERAV is FALSE, verification is always requested, except when
  154. ;            V flag is present in the command line ,in wich case
  155. ;                the user will not be prompted.
  156. .
  157. 1677c 8202
  158.     IF    ERAOK        ;OK? ENABLED?
  159. .
  160. 1686,1688d 16379
  161. 1688,1692c 5137
  162. ;    RZ            ;ABORT IF NO FILES
  163. .
  164. 1693,1694c 43877
  165.  
  166.     IF    ERAV        ;if ERAV is true then
  167.     JRNZ    ERA2        ;do not skip prompt if ERDFLG prezent 
  168.     else            ;if ERAV is false then
  169.     jrz    era2        ;skip prompt if ERDFLG prezent 
  170. .
  171. 2005,2006c 14007
  172. ;REN3:
  173. ;    CALL    PRNNF        ;PRINT NO FILE MSG
  174. .
  175. $a 63210
  176. .
  177.