*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 to exit' fcb $0d,$0a,4 filena fcc 'Flex Filename? ' fcb 4 filenr fcc 'Remote filename? ' fcb 4 query fcc ' ? ' fcb 4