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 / SIMTEL / CPMUG / CPMUG008.ARK / DDTPATCH.ASM < prev    next >
Assembly Source File  |  1984-04-29  |  1KB  |  85 lines
  1. ;PATCHES TO FIX DDT.COM VERSION 1.3 BY JEFF ZURKOW
  2. ;
  3. ;(AS DESCRIBED TO A.R.G. BY TELEPHONE)
  4. ;
  5. ;THIS ONE IS DIFFERENT - IT WORKS.
  6.  
  7. ;
  8. ;TO USE:
  9. ;    1)  "DDT DDT.COM"    LOAD DDT.COM UNDER DDT
  10. ;    2)  "IPATCH.HEX"    INSERT PATCH -
  11. ;    3)  "R0"                 -  WHERE IT IS ORGED
  12. ;    4)  "G1700"        RUN THE PATCH (SUCH ELEGANCE)
  13. ;    5)  "SAVE 19 DDTX.COM"    AND SAVE THE PATCHED COPY
  14. ;
  15. ;TRY OUT DDTX ON THE CONDITIONALS AND OTHER INSTRUCTIONS.
  16. ;IF IT'S OK, REPLACE THE ORIGINAL WITH THIS.
  17. ;COMES UP WITH VER 1.3X MESSAGE TO IDENTIFY PATCHED VERSIONS
  18. ;
  19. ;EQUATES
  20. BOOT    EQU    0
  21. BDOS    EQU    5
  22. DDT    EQU    38H
  23. ;
  24.     ORG    100H
  25.     LXI    B,1004H
  26. ;
  27.     ORG    137H
  28.     DB    ' 1.3X'        ;CHANGE MESSAGE
  29. ;
  30.     ORG    14FH
  31.     NOP
  32.     ORG    13A5H
  33.     DB    4,90H
  34. ;
  35.     ORG    1700H
  36. I
  37.     LXI    SP,STACK
  38.     LXI    H,13A6H
  39.     LXI    D,1404H
  40.     LXI    B,201H
  41. LOOP:    MOV    A,M
  42.     STAX    D
  43.     DCX    H
  44.     DCX    D
  45.     DCX    B
  46.     MOV    A,B
  47.     ORA    C
  48.     JNZ    LOOP
  49.     LXI    H,4CEH
  50.     MVI    M,0C3H
  51.     INX    H
  52.     MVI    M,0FBH
  53.     INX    H
  54.     MVI    M,0FH
  55. ;
  56.     LXI    H,11FBH
  57.     MVI    M,0CDH
  58.     INX    H
  59.     MVI    M,55H
  60.     INX    H
  61.     MVI    M,1
  62.     INX    H
  63.     MVI    M,0CDH
  64.     INX    H
  65.     MVI    M,0CBH
  66.     INX    H
  67.     MVI    M,0
  68.     INX    H
  69.     MVI    M,0C3H
  70.     INX    H
  71.     MVI    M,0D1H
  72.     INX    H
  73.     MVI    M,02H
  74. ;
  75. ;NOW BACK TO CP/M FOR BOOT
  76.     LXI    D,MSG
  77.     MVI    C,9
  78.     CALL    BDOS
  79.     JMP    BOOT
  80. ;
  81. MSG:    DB    'TYPE "SAVE 19 DDTX.COM TO SAVE PATCHES"$'
  82. ;
  83.     ORG    $+20
  84. STACK:
  85.