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
/
BEEHIVE
/
COMMS
/
MODEM9.ARC
/
START.ASM
< prev
next >
Wrap
Assembly Source File
|
1991-02-02
|
6KB
|
168 lines
;
; START.ASM
;
;This file is for making changes to MODEM9.xx which are not UART/MODEM
;specific. UART/MODEM suport is provided by the various SYS files.
;
;The user can make the following changes in this file:
;
; a) Set the TRUE/FALSE statements in the lookup table which
; begins with BAKUPBYTE and ends with EOFSEND
; b) Change the control characters that are used for local commands,
; this sequence starts with EXITCHR and ends with EXTCHR
; c) Set STRGOK to TRUE and enter up to ten strings at location
; STRINGS. These strings can be logon sequences or frequently
; used commands that are sent to a remote computer
;
;
STRGOK EQU TRUE ;change to TRUE if you want to define
;strings, such as logon sequences, for
;transmission. Up to 10 strings may be
;entered at location STRINGS in this file.
;
;*** Don't change the ORG locations in this file or in the files ***
;*** SETUP and MAIN. This ORG statements provide standard locations ***
;*** for modification by overaly files or DDT. ***
;
ORG 0100H
;
JMP START
;
BAKUPBYTE: DB FALSE ;true=make .BAK file
CKSUMDFLT: DB FALSE ;true=default to Checksum checking
;false=default to CRC checking
TOGGLECRC: DB TRUE ;true=allow toggling of Checksum to CRC
CONVBKSP: DB FALSE ;true=convert backspace to rub
TOGGLEBK: DB TRUE ;true=allow toggling of bksp to rub
ADDLF: DB FALSE ;true=add LF after CR
TOGGLELF: DB TRUE ;true=allow toggling of LF after CR
STRLF: DB TRUE ;true=strip LF after CR in terminal file output
TOGSLF: DB TRUE ;true=toggle strip LF after CR in file output
SAVCCP: DB TRUE ;true=do not overwrite CCP
LOCONEXTCHR: DB FALSE ;true=local command if EXTCHR precedes
;false=not local command if EXTCHR precedes
TOGGLELOC: DB TRUE ;true=allow toggling of LOCONEXTCHR
LSTTST: DB TRUE ;true=allow toggling of printer on/off
;in terminal mode. Set to false if your
;printer can't keep up with the modem
XOFFTST: DB FALSE ;true=allow testing of XOFF from remote
;while transmitting a file in terminal mode
XONWAIT: DB FALSE ;true=wait for XON after sending CR while
;transmitting a file in terminal mode
TOGXOFF: DB TRUE ;true=allow toggling of XOFF/XON testing
ECHWAIT: DB FALSE ;true=wait for echo before sending next
;character in terminal mode file output
EOFSEND: DB FALSE ;true=send eof in terminal mode file output
NAKONLY: DB FALSE ;true=resends a record only after a valid NAK
;false=resends a record after any non-ACK
;true is intended only for use with mainframes
;that send, for example, xoff when buffer is
;full
;
SETUPTST: DB SETUP
SCRNTEST: DB SCRNCLR
TRANLOGON: DB STRGOK
DISCFLG: DB DISCON
CARDETFLG: DB CARDET
CLOCK: DB CLKRATE
;
MSPEED: DB 1 ;sets the display time to send a file
;0=110 1=300 2=450 3=600 4=710
;5=1200 6=2400 7=4800 8=9600
BYTDLY: DB 0 ;default time to send character in
;terminal mode file transfer
;0=0 delay, 1=0.02 sec, -- ,9=0.18 sec
CRDLY: DB 0 ;default time for extra wait after CR
;in terminal mode file transfer
;0=0 delay, 1=0.02 sec, -- ,9=0.18 sec
BELRPT: DB 1 ;bell repeat time = value*0.03 sec
NOOFCOL: DB 5 ;number of directory columns, currently
;set for 80 column screen
;
ORG 130H
;
EXITCHR: DB 'E'-40H ; ^E = Exit without disconnect
LOGCHR: DB 'O'-40H ; ^O = Send logon
LSTCHR: DB 'P'-40H ; ^P = Toggle printer
UNSAVECHR: DB 'R'-40H ; ^R = Close input text buffer
TRANCHR: DB 'T'-40H ; ^T = Transmit file to remote
SAVECHR: DB 'Y'-40H ; ^Y = Open input text buffer
EXTCHR: DB '^'-40H ; ^^ = Send next character
;
ORG 1E0H
;
VERNUM: CALL ILPRT
DB CR,LF,'MODEM 9.02 - 19-OCT-83',CR,LF,0
JMP SYSVER
;
ORG 240H
;
;ALL STRINGS MUST BE 31 CHARACTERS OR LESS AND MUST BE TERMINATED WITH 0
;
STRINGS:
DB 'STRING #0 at 240H',0
DS STRINGS-$+32*1
DB 'STRING #1 at 260H',0
DS STRINGS-$+32*2
DB 'STRING #2 at 280H',0
DS STRINGS-$+32*3
DB 'STRING #3 at 2A0H',0
DS STRINGS-$+32*4
DB 'STRING #4 at 2C0H',0
DS STRINGS-$+32*5
DB 'STRING #5 at 2E0H',0
DS STRINGS-$+32*6
DB 'STRING #6 at 300H',0
DS STRINGS-$+32*7
DB 'STRING #7 at 320H',0
DS STRINGS-$+32*8
DB 'STRING #8 at 340H',0
DS STRINGS-$+32*9
DB 'STRING #9 at 360H',0
;
;
ORG 380H
;
;PHONE NUMBER LIBRARY TABLE.
;
;EACH DB MUST BE 32 CHARACTERS LONG FOR PROPER OPERATION.
;LAST DB MUST BE DB 0. UP TO 26 NUMBERS ARE ALLOWED.
;
; Use only "blanks" for table fill chars as TABs will upset the screen
; format. A "blank" after the table '=' sign will prevent that entry
; appearring on the screen. The letter prefix in front of each name
; is for the non-existent Auto dialler.
;
NUMBLIB:
; '----5---10---15---20---25-----32'
DB 'A=GL-RCPM 051-34-1563'
DB 'B=MICOM-CBBS 03-762-5088'
DB 'C=MiCC-BBS 02-662-1686'
DB 'D=MDL-RCPM 02-663-0152'
DB 'E=ST-RCPM 02-997-1836'
DB 'F=SCUA-CBBS 03-836-4616'
DB 'G=SPA-RCPM 02-808-3536'
DB 'H=TARDIS (1800-0800) 03-67-7760'
DB 'I= '
DB 'J= '
DB 'K= '
DB 'L= '
DB 'M= '
DB 'N= '
DB 'O= '
DB 'P= '
DB 'Q= '
DB 'R= '
DB 'S= '
DB 'T= '
DB 'U= '
DB 'V= '
DB 'W= '
DB 'X= '
DB 'Y= '
DB 'Z= '
DB 0 ; end marker
; '----5---10---15---20---25-----32'
;
LINK SYS