home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
flex1.tar.gz
/
flex1.tar
/
flxpt1.txt
< prev
next >
Wrap
Text File
|
1988-08-16
|
2KB
|
123 lines
*kermit for flex 9 system
*
* by D J ROWLAND
*ex-
*Brighton Polytechnic Computer centre
*Watts Building
*Lewes Rd.
*Moulsecoomb
*Brighton
*Sussex BN2 4GJ
*
*Queries now handled by Peter Morgan
*tel. 0273 693655 x2165
*This program is a very basic kermit, the code is based
*on the apple version of kermit and modified to run on the
*6809 cpu.
*
*I dont guarantee its operation! its a bit crude but it does work!
*It has be run with the DEC VAX kermit server and the DEC pro
*kermit server
*It will get a file , send a file , and close down the server
*It operates with text files only and does not have 8 bit quoting
* This software can be copied , modified etc. as required but
* subject to the kermit CUCCA conditions.
*There are no set and show commands
*To change the values modify the source!
*There is a receive data timer (for packet rcv)
*this can be modified or deleted!
*It is a simple timing loop round the rcv data subr.
**
* PGM: A minor bug I have noticed:
* after a transfer (say Flex to Vax), this program reports
* file in use when you try the next transfer. I believe this
* is caused by a missing call to close file (error conditions
* seem to be handled OK with JSR FMSCLS
*sytem equates
cons equ $F7E8 console i/f
line equ $F7EA line i/f
fms equ $d406
fmscls equ $d403
getfil equ $cd2d
setext equ $cd33
rpterr equ $cd3f
eom equ 4
xlev equ 200
xon equ $11
xoff equ $13
ctrlc equ $03
ctrly equ $19
max equ 255
xlo equ 20
suspec equ $04
*ram save locations
org $2000
inp rmb 2
outp rmb 2
startq rmb 256
end rmb 2
count rmb 1
fcs rmb 1
lastf rmb 1
suspend rmb 1 break out character
nolock rmb 1
tmode rmb 1
scount rmb 1
linbuf rmb 4
point rmb 2
rmb 64
stack rmb 1
monito rmb 1 diagnostic mode flag
linlen rmb 1
lfnext rmb 1
ram equ *
org $0000
begin jmp start
mdone fcc 'done'
fcb 4
prompt fcb $0d,$0a,4
menu1 fcc 'Please select option :- '
fcb $0d,$0a
fcc '0. Terminal to line'
fcb $0d,$0a
fcc '1. Return to flex'
fcb $0d,$0a
fcc '2. File send from Flex'
fcb $0d,$0a
fcc '3. File receive to Flex'
fcb $0d,$0a
fcc '4. Close server'
fcb $0d,$0a
fcc '5. Monitor on'
fcb $0d,$0a
fcc '6. Monitor off'
fcb $0d,$0a
fcc ' ? '
fcb 4
escstr fcc 'Type <CTRL D> to exit'
fcb $0d,$0a,4
filena fcc 'Flex Filename? '
fcb 4
filenr fcc 'Remote filename? '
fcb 4
query fcc ' ? '
fcb 4