home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / modem7 / pat700v2.asm < prev    next >
Encoding:
Assembly Source File  |  1984-12-28  |  2.9 KB  |  129 lines
  1. ;        PAT700V2.ASM
  2.  
  3. ;These patches should be made to MODM700 to obtain the results
  4. ;described.  They were previously described as patches to MDM730
  5. ;in the file PAT730V8.ASM and were not done in the source code
  6. ;for MODM700.  It appears that all of the other patches in PAT730
  7. ;were included properly. The object code addresses may have changed
  8. ;from MDM730 to MODM700 so use those given below only for MODM700.
  9. ;            ....    Bob Plouffe   12/28/84
  10.  
  11. TRUE     EQU    0FFH
  12. FALSE     EQU    0
  13.  
  14. MAXWAIT     EQU    16        ;USE AT LEAST A '5' HERE.
  15. RUB     EQU    7FH
  16. TERM     EQU    1618H
  17. MENU     EQU    32EDH
  18.  
  19. RUBCON     EQU    TRUE        ;want rubout to go to console?
  20. UNDO$J     EQU    TRUE        ;set to TRUE to restore the 'T'
  21.                 ;option so that remote end doesn't
  22.                 ;automatically come up in terminal
  23.                 ;mode at the end of a file transfer
  24. ;*************************************************************
  25. ;
  26. ;This restores the feature that allows the RUBOUT character to
  27. ;go to the console if you desire it.  Code was added in MDM730
  28. ;that prevented rubout being sent to console in terminal mode.
  29. ;
  30. ;In the routine TERML
  31.     ORG    1F0FH
  32.     IF    RUBCON
  33.     DB    0,0,0,0,0    ;deletes rubout filter
  34.     ENDIF
  35.  
  36.     IF    NOT RUBCON
  37.     CPI    RUB
  38.     JZ    TERM
  39.     ENDIF
  40.  
  41. ;***********************************************************
  42. ;THIS ONE CONTRIBUTED ANONYMOUSLY AS undo-j.asm AND INCLUDED
  43. ;HERE AS AN ADDITIONAL OPTION.
  44. ;To undo the 'J' option and restore the 'T' option as it has
  45. ;always been. Set UNDO$J to TRUE to enjoy this option.  Irv
  46. ;never did change the help screens to describe his 'J' option
  47. ;anyhow.  The 'T' option is still the one described there.
  48.  
  49. ;The following code is in the DONETC routine:
  50.     ORG    2AFBH
  51.     IF    UNDO$J
  52.     JNZ    MENU
  53.     ENDIF
  54.     ;
  55.     IF    NOT UNDO$J
  56.     JZ    MENU
  57.     ENDIF
  58.  
  59. ; and at the following storage locations near the end of the file.
  60.     ORG    4952H
  61.     IF    UNDO$J
  62.     DB    'T'
  63.     ENDIF
  64.     ;
  65.     IF    NOT UNDO$J
  66.     DB    'J'
  67.     ENDIF
  68.  
  69.     ORG    495FH
  70.     IF    UNDO$J
  71.     DB    'T'
  72.     ENDIF
  73.     ;
  74.     IF    NOT UNDO$J
  75.     DB    'J'
  76.     ENDIF
  77.  
  78. ;
  79. ;*******************************************************************
  80. ;This patch fixes a bug found by Ron Fowler that causes the wrong
  81. ;file to be erased in the directory when overwriting existing files
  82. ;in batch mode.
  83. ;..in the routine at CKCPM2:
  84.     ORG    2238H
  85.     NOP            ;These 2 bytes replace 'CPI  0FFH'
  86.     INR    A
  87.  
  88. ;*******************************************************************
  89. ;This patch makes the program MUCH more tolerant of network or
  90. ;transmission delays such as found in packet switched nets (ARPANET)
  91. ;as well as on satellite communication links.  Do not use a value for
  92. ;MAXWAIT less than 5 (5 seconds) and even as high as 16 seconds is ok
  93. ;which will then tolerate some of the large throttling delays often
  94. ;encountered.
  95.  
  96.     ORG    1B8FH
  97.     MVI    B,MAXWAIT
  98.  
  99.     ORG    1BF3H
  100.     MVI    B,MAXWAIT
  101.  
  102.     ORG    1C0CH
  103.     MVI    B,MAXWAIT
  104.  
  105.     ORG    1CA0H
  106.     MVI    B,MAXWAIT
  107.  
  108.     ORG    1D03H
  109.     MVI    B,MAXWAIT
  110.  
  111.     ORG    240AH
  112.     MVI    B,MAXWAIT
  113.  
  114.     ORG    2413H
  115.     MVI    B,MAXWAIT
  116.  
  117.     ORG    245EH
  118.     MVI    B,MAXWAIT
  119.  
  120.     ORG    2477H
  121.     MVI    B,MAXWAIT
  122.  
  123.     ORG    2496H
  124.     MVI    B,MAXWAIT
  125.  
  126. ;*******************************************************************
  127.     ;the
  128.     END
  129.