Subj : futil.asm redeux
To   : BEN RITCHEY
From : Paul Williams
Date : Thu Sep 12 2002 01:00 am

Hi BEN RITCHEY, hope you are having a nice day

 The code as is sends a predefined string to the receive buffer
via the int14 fossil interface. So if I press <left-shift><ctrl>R
then the program running on this box sees RING<crlf> just like it
would if there were a modem attached and the line rang.

 What I'd like to do is to be able to hit <right-shift><ctrl>R and
have RING<crlf> placed into the xmit buffer which would then be sent
out a comport where a program on another would see it and think it
came from a modem on that box. (well not just ring but any other
strings as well)

 Ie <left-shift> for Local and <right-shift> for Remote. It *shouldn't*
care though if you use right/left <ctrl> since on my laptop there's only
one <ctrl> and <alt> key but still 2 <shift> keys.

 And here's what I changed.... :> (oh btw, it was compiled using tasm5.0)

----------
8<snip>8
8<snip>8
;
; Modem control strings
; Various strings returned by a typical modem, available by 'hotkey'
;

; STATUS
nocarrier    db        'NO CARRIER',13,10,0
ok           db 'OK',13,10,0
error        db 'ERROR',13,10,0
busy         db 'BUSY',13,10,0
ring         db 'RING',13,10,0
rring        db 'RRING',13,10,0
voice        db 'VOICE',13,10,0
cidinfo      db 'DATE=0321',13,10,'TIME=1405',13,10,'NMBR=1234567890'
,13,10,'NAME=A N OTHER',13,10,0

; CONNECTS
connect      db 'CONNECT',13,10,0
connect28k   db 'CONNECT 28800',13,10,0
connect1200  db 'CONNECT 1200',13,10,0
connect2400  db 'CONNECT 2400',13,10,0
connect24rel db 'CONNECT 2400/REL',13,10,0
connect9600  db 'CONNECT 9600',13,10,0
connectfax   db 'CONNECT FAX',13,10,0
connect56k   db 'CONNECT 56000',13,10,0

8<snip>8
8<snip>8

KEYS equ 20                        ; Defines how many structures to scan

;
; Hot keys table
;
even
KeyCodes label word
notkey <29H, LSC, 0000H, not 0000H, 00H, 00H, 00H, 0           >
; cs` Turns all processing off
notkey <0bH, LSC, 0000H, not 0080H, 00H, 00H, 00H, 0           >
; cs0 Force no carrier
notkey <18H, LSC, 0100H, not 0080H, 00H, 01H, 01H, ok          >
; csO 'OK'
notkey <12H, LSC, 0100H, not 0080H, 00H, 01H, 01H, error       >
; csE 'ERROR'
notkey <31H, LSC, 0100H, not 0080H, 00H, 01H, 01H, nocarrier   >
; csN 'NO CARRIER'
notkey <30H, LSC, 0100H, not 0080H, 00H, 01H, 01H, busy        >
; csB 'BUSY'
notkey <21H, LSC, 0180H, not 0000H, 00H, 01H, 01H, connectfax  >
; csF 'CONNECT FAX'
notkey <0aH, LSC, 0180H, not 0000H, 00H, 01H, 01H, connect9600 >
; cs9 'CONNECT 9600'
notkey <04H, LSC, 0180H, not 0000H, 00H, 01H, 01H, connect24rel>
; cs3 'CONNECT 2400/REL'
notkey <03H, LSC, 0180H, not 0000H, 00H, 01H, 01H, connect2400 >
; cs2 'CONNECT 2400'
notkey <02H, LSC, 0180H, not 0000H, 00H, 01H, 01H, connect1200 >
; cs1 'CONNECT 1200'
notkey <13H, LSC, 0100H, not 0080H, 00H, 01H, 01H, ring        >
; csR 'RING'
notkey <2fH, LSC, 0100H, not 0080H, 00H, 01H, 01H, voice       >
; csV 'VOICE'
notkey <17H, LSC, 0100H, not 0080H, 00H, 01H, 01H, rring       >
; csI 'RRING'
notkey <09H, LSC, 0180H, not 0000H, 00H, 01H, 01H, connect28k  >
; cs8 'CONNECT 28800'
notkey <06H, LSC, 0180H, not 0000H, 00H, 01H, 01H, connect56k  >
; cs5 'CONNECT 56000'
notkey <2eH, LSC, 0100H, not 0080H, 00H, 01H, 01H, cidinfo     >
; csC 'Full CID info'
notkey <00H, 00H, 0000H, not 0000H, 00H, 00H, 00H, 0           >
notkey <00H, 00H, 0000H, not 0000H, 00H, 00H, 00H, 0           >
notkey <00H, 00H, 0000H, not 0000H, 00H, 00H, 00H, 0           >

8<snip>8
8<snip>8
8<snip>8

; Installation messages

msg_nofos    db 7,'No FOSSIL driver installed',13,10,'$'
msg_instald  db 7,'FUTIL is already installed',13,10,'$'
msg_instnot  db 7,'FUTIL is not installed',13,10,'$'
msg_instok   db 'FUTIL is now active',13,10,'$'
msg_inval    db 7,'Invalid command line option',13,10,'$'
msg_unloaded db 'FUTIL successfully unloaded',13,10,'$'
msg_start    db 'FUTIL v1.10  FOSSIL Communications Companion Utility',13,10
      db 'Copyright (C) 1992  David Nugent & Unique Computing Pty Ltd',13,10
   db 'V.34, V.90, Fax, and Caller ID mods by Paul Williams 5-29-2002',13,10
             db '$'
-----------------


 -=> Yours sincerely, Paul Williams <=-

.... "Why am I a leprechaun?--Danny You're magically delicious?--Marc
--- Terminate 4.00/Pro
 * Origin: I disclaim nothing. People however, often disclaim me. (1:387/710)

.