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 / ZCPR33 / A-R / NSWPPAT.LBR / NSWPPAT.ZZ0 / NSWPPAT.Z80
Text File  |  2000-06-30  |  1KB  |  78 lines
  1. ; Patch:    NSWPPAT
  2. ; Version:    1.0
  3. ; Date:     January 8, 1988
  4. ; Author:    Bruce Morgen
  5. ; Assembler:    Echelon's ZAS or any of SLR's Zilog-convention
  6. ;        assemblers.  Z80MR or ASMB (ZASM) will probably
  7. ;        work too, but were not tested.    NiteOwl's MLOAD
  8. ;        (version 2.1 or later) recommended for the
  9. ;        patching operation.
  10. ;
  11. ; Sample
  12. ; Installation:     ZAS NSWPPAT H
  13. ;            MLOAD NSWP.COM,NSWPPAT
  14.  
  15. ; Purpose:    To modify Dave Rand's NSWP version 2.07 for use
  16. ;        in 32-user-area environments like ZCPR 3.3 with
  17. ;        the "HIGHUSER" option.    This patch obviously
  18. ;        does not make NSWP into a true "Z-Tool" - but it
  19. ;        does make it somewhat more useful, at least for
  20. ;        me.  Not tested under TurboDOS, CP/M 3.x or MP/M.
  21. ;        New code resides just before the copyright
  22. ;        notice.  A Z80-compatible CPU is now required.
  23.  
  24.     ORG    112H
  25. PATCH:    XOR    A
  26. LOOP:    ADD    0AH
  27.     DEC    C
  28.     JR    NZ,LOOP
  29.     LD    C,A
  30.     RET
  31.  
  32. PATCH2:    PUSH    AF
  33.     XOR    A
  34. QLOOP:    ADD    0AH
  35.     DJNZ    QLOOP
  36.     LD    B,A
  37.     POP    AF
  38.     ADD    B
  39.     RET
  40.  
  41.     ORG    811H
  42.     SUB    '0'
  43.     LD    B,A
  44.     INC    HL
  45.     LD    A,(HL)
  46.     CP    ':'
  47.     JR    Z,DONE
  48.     OR    A
  49.     JR    Z,DONE
  50.     CP    '0'
  51.     JR    C,DONE
  52.     CP    '@'
  53.     JR    NC,DONE
  54.     SUB    '0'
  55.     INC    B
  56.     DEC    B
  57.     CALL    NZ,PATCH2
  58. DONE:    CP    32
  59.     RET    NC
  60.     LD    (2E3BH),A
  61.     RET
  62.  
  63.     ORG    1A25H
  64.     CP    32
  65.  
  66.     ORG    1BB5H
  67.     CP    32
  68.  
  69.     ORG    1E17H
  70.     INC    C
  71.     DEC    C
  72.     CALL    NZ,PATCH
  73.  
  74.     ORG    1E43H
  75.     CP    32
  76.  
  77.     END
  78.