home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / nubye / nuby-mod.002 < prev    next >
Encoding:
Text File  |  1986-10-08  |  3.8 KB  |  140 lines
  1.  
  2. Note : This modification (or similar) will be in the next NUBYE release [tmb]
  3.  
  4. Date : 09/22/86
  5. From : Joe Earls  PC-FORUM  (404) 324-7391
  6. Re   : NUBYE v1.01 modification
  7.  
  8.    Tom, the modification that I am providing here has been used on my
  9. PC-Forum BBS to solve a problem that I had with my terminal in blanking
  10. the screen between calls.  My terminal requires a particular character
  11. sequence for turning the screen off and another sequence for turning it
  12. back on again.  The problem I had with trying to use the existing CLRSCR
  13. feature is that CLRSCR does not send any sequence to turn the screen back
  14. on again.  It just assumes that the next characters sent to the screen will
  15. just appear.  For many terminals, that would be the case.  For those like
  16. mine and other complex terminals, it is not.
  17.  
  18.    I have been using this modification with NUBYE101 without any problems.
  19. After again reviewing the modification, I believe that it would not adversely
  20. affect or be affected by features associated with any other equates.
  21.  
  22.    Note: Modified/new code is designated by "==>>"
  23.  
  24.  ------
  25.  Mod #1
  26.  
  27.    At the top of NUBYE in the user-definable EQUates, you will place the
  28. the following lines -- just below the CLRSCR and CLRCH1-6 equates.
  29.  
  30. ==>> New code starts here
  31. ;
  32. ; Set CRTON to YES if your terminal requires a special string be sent
  33. ; to turn your CRT on, following the CLRSCR sequence which turned it off.
  34. ;
  35. CRTON   EQU     yes     ; Yes, your terminal requires a special screen-on
  36.                         ;   sequence following the CLRSCR sequence.
  37. ;
  38. CRTON1  EQU     1BH     ; Six bytes allowed to turn your screen back on,
  39. CRTON2  EQU     'n'     ;   following the CLRSCR which turned it off.
  40. CRTON3  EQU     0       ;   All unused bytes must remain 0
  41. CRTON4  EQU     0
  42. CRTON5  EQU     0
  43. CRTON6  EQU     0
  44. ;
  45. ==>> end of new code
  46.  
  47.  ------
  48.  Mod #2
  49.  
  50.   Turn the screen on after receiving data from local console or modem.
  51.  
  52. ;
  53. RINGWT: CALL    CONSTAT
  54.         ORA     A
  55.         JZ      RINGW1
  56. ;
  57. ==>>     IF     CRTON
  58. ==>>    LXI     H,SCRNON        ; revive the console screen
  59. ==>>    CALL    PRINTL
  60. ==>>     ENDIF
  61. ;
  62.         CALL    VCONIN          ; Character typed
  63.         ANI     7FH             ; Strip parity bit
  64.         CPI     'C'-40H         ; CTL-C?
  65.         CZ      USRCHK          ; Check for exit
  66.  
  67.  ------
  68.  Mod #3
  69.  
  70.   Turn the screen on after entering the ANSWer routine.
  71.  
  72. ;
  73. ; answer routine
  74. ;
  75. ANSW:    IF     NOT CPM3
  76.         CALL    BDCHEK
  77.          ENDIF
  78. ;
  79.          IF     MOTOR
  80.         CALL    DSKON           ; Turn on drives
  81.          ENDIF
  82. ;
  83. ==>>     IF     CRTON
  84. ==>>    LXI     H,SCRNON        ; revive the console screen
  85. ==>>    CALL    PRINTL
  86. ==>>     ENDIF
  87. ;
  88.  
  89.  ------
  90.  Mod #3
  91.  
  92.   Turn the screen on when exiting to CP/M, locally.
  93.  
  94. ;
  95. EXCPM:   IF     IMAT
  96.         CALL    IMQUIT          ; Send ATH1 or ATS0=0 depending on OFFHK
  97.          ENDIF
  98. ;
  99. ; This CALL to MDQUIT caused some modems trouble when OFFHK was YES.  While
  100. ; many computer inserts just call IMQUIT from MDQUIT without doing anything,
  101. ; some would drop DTR, then call IMQUIT -- this is what caused those folks'
  102. ; modems to ignore the ATH1 command...  Hence, the above CALL directly to
  103. ; IMQUIT solves everyone's problems.
  104. ;
  105.          IF     NOT IMAT
  106.         CALL    MDQUIT          ; Drop DTR and send ATH1 or ATS0=0 to modem
  107.          ENDIF
  108. ;
  109.          IF     MOTOR
  110.         CALL    DSKON           ; Turn on drives
  111.          ENDIF
  112. ;
  113. ==>>     IF     CRTON
  114. ==>>    LXI     H,SCRNON        ; revive the console screen
  115. ==>>    CALL    PRINTL
  116. ==>>     ENDIF
  117. ;
  118.         LHLD    REALBD+1        ; Get real bdos vector
  119. ;
  120.  
  121.  ------
  122.  Mod #4
  123.  
  124.    Last code addition is at the end of NUBYE.
  125.  
  126. ;
  127.          IF     CLRSCR
  128. CLRSEQ: DB      CLRCH1,CLRCH2,CLRCH3,CLRCH4,CLRCH5,CLRCH6,0
  129.          ENDIF
  130. ;
  131. ==>> NEW code starts here
  132.          IF     CRTON
  133. SCRNON: DB      CRTON1,CRTON2,CRTON3,CRTON4,CRTON5,CRTON6,0
  134.          ENDIF
  135. ==>> end of new code
  136. ;
  137.  
  138. ** end of modification file **
  139.  
  140.