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
/
BYE5
/
BY96HST.MOD
< prev
next >
Wrap
Text File
|
2000-06-30
|
4KB
|
92 lines
file: BYE96HST.MOD
subject: changes to BYE510 for use of USR Courier HST 9600 baud modem
date: 88/11/24
author: Liv Hinckley, sysop FOG#15/NYOUG (212)489-7370
;
; This file contains the necessary changes to Irv Hoff's BYE510
;to use the USR Courier HST 9600 baud modem. The changes are
;simple for anyone to implement thanks to the very thoroughly
;documented and annotated files provided by Mr. Hoff. Most of the
;work for higher modem speeds was already done in the release
;version of BYE510. Here we fill in the details necessary to the
;use of the HST as submitted to PRACSA RCPM on 87/05/25.
; I hope that others will extend these mods to take fuller
advantage ot the HST. This is only a beginning.
;
; FOG#15 uses an Osborne Executive CP/M+ computer with
;Trantor/Westwind hard drive interfaces. This version of BYE is
;still in use on FOG#15 with no known bugs.
;
;
;^^^^^----------------------------------------------------new 5/25/87 lh
; Two new equates in BYE option section
;
HST EQU YES ;^^^Yes for USR Courier HST result codes
ARQ EQU YES ;^^^ Yes for HST ARQ (15-17) result codes
;---------------------------------------------------------end new
;
;^^^^^-----------------------------------------------------new 5/25/87 lh
; Wasn't in the code but very obvious.. maybe add 19200 also?
;
SET9600:MVI A,BDCMD5 ; Get second byte of command
PUSH PSW ; ..store it
MVI A,B9600 ; Load rate
;--------------------------------------------------------end new
;
;^^^^^----------------------------------------------------NEW 5/25/87 LH
; Add new recognition for the extended codes.
; Most users would use ARQ, but might this not cause trouble
; with the other programs?
;
IF B5IM AND HST ; USR Courier HST result codes ENABLED
CPI '3' ; 9600 (USR uses 13 if ARQ results
ENDIF
;
IF B5IM AND HST AND ARQ
JZ SET96 ; Yes are disabled with &A0)
CPI '5' ; 1200/ARQ? (15,16,17 are default &A1)
JZ SET12 ; Yes
CPI '6' ; 2400/ARQ?
JZ SET24 ; Yes
CPI '7' ; 9600/ARQ?
JZ SET96 ; Yes
ENDIF
; 5/26 just noticed- need to recognize 13 from X1 setting with &A0 in
; case user needs to turn off ARQ codes. Must change. Anchor must be NO
; Should make new displays for result codes 15,16,17.
;perhaps this should also go into KMD.LOG?? haven't checked howto (lh)
;------------------------------------------------------end new
;
;^^^^^--------------------------------------------------new 5/25/87 lh
SET96 CALL DLP ; 1 sec delay
CALL SET9600 ; set port to 9600 bps
MVI A,BP9600
STA MSPEED ; set speed indicator
JMP FINISH
;-----------------------------------------------------end new
;
;^^^^^-------------------------------------------------NEW 5/25/87 lh
; Set HST Extended result codes
IF B5IM AND HST AND (NOT ARQ)
DB '&A0' ; Suppress extended codes in case they
ENDIF ; cause trouble.
IF B5IM AND HST AND ARQ
DB '&A1' ; This is default, but do it just in case
ENDIF ; something changed NRAM settings.
;
;
; IF B5IM AND HST AND PRGRSS
; DB 'ATI6' ; try to show diagnostics screen
; DB 'ATI3' ; show call duration
; ENDIF
; Need display routine for diagnostics- full page of text, ends with 'OK'
; OR-- put it into the SYS.LOG, or both....
;----------------------------------------------------end new
;
;^^^^^------------------------------------------------new 5/27/87 lh
MSG96 DB '9600 baud test',CR,LF,0 ; probably not needed
; ; since B5IM would be YES
;---------------------------------------------------end new
;