home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / bye5 / by96hst.mzd / BY96HST.MOD
Encoding:
Text File  |  1988-12-16  |  3.6 KB  |  92 lines
  1. file:    BYE96HST.MOD    
  2. subject: changes to BYE510 for use of USR Courier HST 9600 baud modem
  3. date:    88/11/24   
  4. author:  Liv Hinckley, sysop FOG#15/NYOUG (212)489-7370
  5. ;
  6. ;  This file contains the necessary changes to Irv Hoff's BYE510 
  7. ;to use the USR Courier HST 9600 baud modem.  The changes are 
  8. ;simple for anyone to implement thanks to the very thoroughly  
  9. ;documented and annotated files provided by Mr. Hoff.  Most of the 
  10. ;work for higher modem speeds was already done in the release 
  11. ;version of BYE510. Here we fill in the details necessary to the 
  12. ;use of the HST as submitted to PRACSA RCPM on 87/05/25.
  13. ;  I hope that others will extend these mods to take fuller 
  14. advantage ot the HST.  This is only a beginning. 
  15. ;
  16. ;  FOG#15 uses an Osborne Executive CP/M+ computer with 
  17. ;Trantor/Westwind hard drive interfaces.  This version of BYE is 
  18. ;still in use on FOG#15 with no known bugs.
  19. ;
  20. ;
  21. ;^^^^^----------------------------------------------------new 5/25/87 lh
  22. ; Two new equates in BYE option section
  23. ;
  24. HST    EQU    YES        ;^^^Yes for USR Courier HST result codes
  25. ARQ    EQU    YES        ;^^^ Yes for HST ARQ (15-17) result codes
  26. ;---------------------------------------------------------end new
  27. ;
  28. ;^^^^^-----------------------------------------------------new 5/25/87 lh
  29. ; Wasn't in the code but very obvious.. maybe add 19200 also?
  30. ;
  31. SET9600:MVI    A,BDCMD5    ; Get second byte of command
  32.     PUSH    PSW        ; ..store it
  33.     MVI    A,B9600        ; Load rate
  34. ;--------------------------------------------------------end new
  35. ;
  36. ;^^^^^----------------------------------------------------NEW 5/25/87 LH
  37. ; Add new recognition for the extended codes.
  38. ;  Most users would use ARQ, but might this not cause trouble
  39. ;    with the other programs?
  40. ;
  41.      IF     B5IM AND HST    ; USR Courier HST result codes ENABLED
  42.     CPI    '3'        ; 9600 (USR uses 13 if ARQ results
  43.      ENDIF
  44. ;
  45.      IF    B5IM AND HST AND ARQ
  46.     JZ    SET96        ; Yes        are disabled with &A0)
  47.      CPI    '5'        ; 1200/ARQ?  (15,16,17 are default &A1)
  48.     JZ    SET12        ; Yes
  49.     CPI    '6'        ; 2400/ARQ?
  50.     JZ    SET24        ; Yes
  51.     CPI    '7'        ; 9600/ARQ?
  52.     JZ    SET96        ; Yes
  53.      ENDIF
  54. ; 5/26 just noticed- need to recognize 13 from X1 setting with &A0 in
  55. ; case user needs to turn off ARQ codes. Must change. Anchor must be NO
  56. ; Should make new displays for result codes 15,16,17.
  57. ;perhaps this should also go into KMD.LOG?? haven't checked howto (lh) 
  58. ;------------------------------------------------------end new
  59. ;
  60. ;^^^^^--------------------------------------------------new 5/25/87 lh
  61. SET96    CALL    DLP        ; 1 sec delay
  62.     CALL    SET9600        ; set port to 9600 bps
  63.     MVI    A,BP9600
  64.     STA    MSPEED        ; set speed indicator
  65.     JMP    FINISH
  66. ;-----------------------------------------------------end new
  67. ;
  68. ;^^^^^-------------------------------------------------NEW 5/25/87 lh
  69. ; Set HST Extended result codes
  70.      IF    B5IM AND HST AND (NOT ARQ)
  71.     DB    '&A0'        ; Suppress extended codes in case they
  72.      ENDIF            ;  cause trouble.
  73.  
  74.      IF    B5IM AND HST AND ARQ
  75.     DB    '&A1'        ; This is default, but do it just in case
  76.      ENDIF            ; something changed NRAM settings. 
  77. ;
  78. ;
  79. ;     IF B5IM AND HST AND PRGRSS    
  80. ;    DB    'ATI6'        ; try to show diagnostics screen
  81. ;    DB    'ATI3'        ; show call duration
  82. ;     ENDIF
  83. ;   Need display routine for  diagnostics- full page of text, ends with 'OK'
  84. ; OR-- put it into the SYS.LOG, or both....
  85. ;----------------------------------------------------end new
  86. ;
  87. ;^^^^^------------------------------------------------new 5/27/87 lh
  88. MSG96    DB    '9600 baud test',CR,LF,0      ; probably not needed
  89. ;                          ; since B5IM would be YES
  90. ;---------------------------------------------------end new
  91. ;
  92.