*>b:DignetTERM *«««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««* * Copyright © 1997 by Kenneth C. Nilsen. E-Mail: kennecni@IDGonline.no * * Source viewed in 800x600 with Thin711.font (11) in CED * *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»* * * Name * DignetTERM 1.1 * * Synopsis * Demo program for dignet.library to show one of the capability it has. * * Function * Simple communication with the modem or a console in the other end. Feel free * to modify this program for your own needs. * * This source demostrates the capability of the dignet.library. It will let you * communicate with a device, for example the serial.device. You can use this little * program to enter a BBS or the internet for that matter. * It is slower than for example NComm and Term due to that each read/write is called * as a library function with stack store/restore, reading and init of net structure * and etcetera. To make it as fast as those regular terminal programs you would have * to read the DoIO/SendIO your self, but then the point with this library is gone. * * You can use the new function GetNetport to use a own console window and IDCMP with * Wait() on the signal collection of the ports. This way you can write your own * complete terminal program, but we will not stand for the speed it will give. * * You could easily make modem and/or nullmodem support for your programs. To make them * modem capable you just send ATDT(13)(10) and handle OK/CONNECT/ERROR returns. * Exclude that part and you have a nullmodem capable program. * * If anything is unclear e-mail us at: kenny@bgnett.no * * Inputs * DignetTERM [unit] unit defaults to 0 if not provided * * Notes * * Bugs * * Created : 09.03.97 * Changes : 09.03.97 *««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««* StartSkip = 0 ;DODUMP SET 1 Incdir "" include lvo:exec_lib.i include lvo:dos_lib.i include lvo:dignet_lib.i Incdir inc: ;these two files are included: include digital.macs include startup.asm Incdir "" dc.b "$VER: DignetTERM 1.1 (12.3.97)",10 dc.b "Copyright © 1997 Digital Surface. PUBLIC DOMAIN",0 even *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»* Init TaskName "Dignet TERM" DefLib dignet,2 ;version 2 of dignet.library DefLib dos,37 ;version 37 of dos.library DefEnd Start NextArg ;any args for this program ? beq About ;none, show About/usage move.l d0,a0 cmp.b #'?',(a0) ;info wanted ? show About/Usage beq About lea DevN(pc),a1 ;we asume a device name .copyDevice move.b (a0)+,(a1)+ ;copy name to our own buffer bne.b .copyDevice ;you could easily default this to serial.device NextArg ;unit provided ? beq .noUnit ;if no unit provided, default to 0 move.l d0,a0 ;this is just a demo so we take a simple convert move.b (a0),d0 ext.w d0 ext.l d0 sub.w #48,d0 ;simple convert move.l d0,Unit .noUnit LibBase dignet lea DevN(pc),a0 ;device we want to use move.l Unit(pc),d0 ;unit Call AllocNet ;alloc a net structure move.l d0,Net ;ok, it's ready for use beq ErrorNet ;prepare console for in/out. LibBase dos Call Input ;get def. input handler (CON) move.l d0,In ;store beq Errorin Call Output ;get def. output handler (CON) move.l d0,Out beq ErrorOut move.l In(pc),d1 moveq.l #1,d2 Call SetMode ;set RAW mode so we don't have to wait until ;a CR (return button) is pressed ;from now on call Exit to quit/cleanup ; MAIN LOOP: Here we read char and modem and print from modem to CON Main LibBase exec ;check for ctrl + c: moveq #0,d0 moveq #0,d1 bset #12,d1 Call SetSignal ;check for ctrl + c btst #12,d0 bne Exit ;yes ? then quit LibBase dos move.l In(pc),d1 move.l #10000,d2 ;wait a while (this can be done better with signal ;handling.. use GetNetport() Call WaitForChar ;wait for keypress tst.l d0 beq .noChar ;no key ? then check net only move.l In(pc),d1 ;read from def. Input handler move.l #Buffer,d2 ;to buffer moveq.l #1,d3 ;only one char Call Read ;read char LibBase dignet move.l Net(pc),a0 lea Buffer(pc),a1 ;write from buffer moveq.l #1,d0 ;one char Call WriteNet ;write char to net (modem perhaps) .noChar LibBase dignet move.l Net(pc),a0 Call QueryNet ;how many chars are waiting ? tst.l d0 ;none, then loop back to Main beq Main ;read all chars in buffer move.l Net(pc),a0 lea Buffer(pc),a1 ;read to buffer cmp.l #200,d0 ble.b .sizeOk move.l #200,d0 ;max 100 chars .sizeOk move.l d0,d3 Call ReadNet ;read one char from net ;print char to screen LibBase dos move.l Out(pc),d1 ;write to def. output handler move.l #Buffer,d2 ;from buffer Call Write ;print that char to screen ;by printing the char you typed in CON you can provide echoing as well. bra .noChar Exit LibBase dos move.l In(pc),d1 ;input handler moveq.l #0,d2 ;set CON mode Call Setmode ;set back to CON mode !! *------------------------------------------------------------------------------------------------------------* Close LibBase dignet ;cleanup tst.l Net beq.b .noNet move.l Net(pc),a0 Call FreeNet ;free out net structure tst.l d0 beq .noNet LibBase dos Call Output move.l d0,d1 beq .noNet move.l #FreeError,d2 move.l #FreeErrorL,d3 Call Write .noNet Return 0 ;quit program with 0 in return code *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»* ErrorIn lea NoInTxt(pc),a0 ;if no input handler available bsr Print ;print error message bra Close ErrorOut lea NoOutTxt(pc),a0 bsr Print bra Close ErrorNet LibBase exec ;report error on device/unit lea NoNetTxt(pc),a0 lea Table(pc),a1 move.l #DevN,(a1) move.l Unit(pc),4(a1) lea Proc(pc),a2 lea Buffer(pc),a3 Call RawDoFmt lea Buffer(pc),a0 bsr Print bra Close About lea AboutTxt(pc),a0 ;About/Usage message bsr Print bra Close Print movem.l d0-a6,-(sp) ;our sub routine that prints to def. out LibBase dos move.l a0,d2 ;backup string ptr. Call Output ;get def. outhandler move.l d0,d1 beq .exit ;null ? then exit move.l d2,a0 ;start count of length of string moveq.l #0,d3 ;length .count tst.b (a0)+ ;a null termination ? beq.b .print ;yep, print addq.l #1,d3 ;no, add one more char bra.b .count ;loop .print Call Write ;write string to def Out which is our console .exit movem.l (sp)+,d0-a6 rts Proc move.b d0,(a3)+ rts *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»* In dc.l 0 ;input handler Out dc.l 0 ;output handler Net dc.l 0 ;ptr. to net structure Table dc.l 0,0 ;ptr. table for RawDoFmt() Unit dc.l 0 ;unit number DevN dcb.b 80,0 ;device name, insert "serial.device" in beginning to def. to that Buffer dcb.b 200,0 ;buffer for chars and RawDoFmt() *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»* NoNetTxt dc.b "Couldn't open %s unit %ld!",10,10,0 NoInTxt dc.b "No input handler!",10,10,0 NoOutTxt dc.b "No output handler!",10,10,0 AboutTxt dc.b "DignetTERM 1.1 demo program for dignet.library",10,10 dc.b "USAGE: DignetTERM ",10,10 dc.b "Press CTRL + C to quit",10,10,0 FreeError dc.b "Error freeing net!",10 FreeErrorL =*-FreeError *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»*