Oakland CPM Archive

home *** CD-ROM | disk | FTP | other *** search

/ Oakland CPM Archive / oakcpm.iso / sigm / vol218 / mxo-pm22.aqm / MXO-PM22.ASM

Wrap

Assembly Source File | 1986-02-09 | 37.1 KB | 1,361 lines

Title 'MEX overlay for the PMMI version 2.2' ; ; Ignore the Title error message if using ASM. ; REV equ 22 ; overlay revision number LVL equ 'c' ; overlay level ( as in Revision 2.2a ) ; ; MEX PMMI OVERLAY VERSION 1.0: written 04/27/84 by Ron Fowler ; ; " " " " 2.0: generally rewritten 9/18/84 by Fred M. Spinner ; " " " ' 2.1: rewritten 09/27/84 by Bill Norris ; " " " " 2.2: " 10/30/84 by Bill Norris ; ; ; Version 2.2 notes: Added 'SET EXTRA' command. This is a toggle ; that allows you to see on the console when ; certain overlay functions are invoked. ; Corrected a minor bug in the clear screen and ; clear to end of screen functions. ; Added 15 to SET PPS command. ; Added SET ONLINE ( SET OFFHOOK synonym ) ; OFF-HOOK and ON-HOOK have been changed from ; scattered in-line calls to subroutines. ; Renamed SET FIDGET to SET ICD (intercall delay) ; Renamed SET IDG to SET IDD (interdigit delay) ; The default PMMI base port was changed to 80h ; in version 2.1 due to conflicts with several ; disk controller boards. If your PMMI is not ; addressed at this port, just use the SET BASE ; command (and CLONE) if you don't want to edit ; and re-assemble this file. ; Speeded up keyboard abort (^X and ^C). ^S also ; accepted here (during dialing of a number). ; Phone number '#' is replaced at dial time from ; the keyboard. ; ; ; Version 2.1 notes: Unifies scattered PMMI I/O; allows modification ; of the PMMI base port with SET BASE command. ; No PMMI I/O is done in-line. It is all done ; using subroutine calls. This should make all ; modifications simpler (including future ; changes to support MEX 2.x). ; Base port address is printed in signon message. ; SET FIDGET added (delay between calls). ; BASE/FIDGET changes are preserved through CLONEs. ; Uses BDOS 6 to force BUSY instead of using hard ; coded keyboard I/O for the CTRLX function. (See ; description in Version 2.0 notes below). ; ; ; Version 2.0 9/18/84: Numerous bugs repaired. The offhook command ; now actually takes the modem off hook. The DTR bytes were swapped ; in 1.1 so that baud rates over 300 would barf. This has been repaired ; The SET MODE command is no longer available. Use SET ORIG, ORG, or ; ORIGINATE and SET ANS or ANSWER to switch modes. The actual routine ; to switch modes has been re-written from scratch, also. Overlay version ; message more verbose (better looking, also) now. If your know your ; keyboard (terminal)'s Status and Data Port and also know the value ; (bit) to check for for keyboard input, you can also implement the CTRLX ; feature which is handy to have if you know a number is busy and you ; want to call the next, etc. without further delays. The keyboard info ; goes under KSTAT, KPORT, KBIT, and KVAL which mean Keyboard/Terminal status ; port, Keyboard data port, AND bit to status input, and value to check for ; after status is ANDed, respectively. Set CTRLX to YES if you have ; this information and want to use this feature, or set it to NO to use ; the standard MEX keyboard trap. ; ; Fred M. Spinner ; ; ; (V1.1) 05/17/84 (Jim Byram) : Small bugs repaired. Answer-mode ; bit (ANBIT) and originate-mode bit (ORBIT) were reversed; fixed ; SET MODE help message. ; ; This is a MEX overlay file for the PMMI modem. You can use it as ; a model for designing your own modem overlay (or you can use any ; existing MDM7 overlay, if available). ; ; If you use this as a template for writing your own overlay, and ; distribute it to others, please pare down these comments as much ; as possible (to keep the overlays small). I'll maintain this file ; with as many notes and references as possible, but this will hope- ; fully be the only "big" overlay. ; ; There are advantages to recoding your overlay to conform to the ; techniques presented here: MEX 2.0 will likely have a much simpler ; overlay structure; if you stick to the label names and coding ; suggestions used here, you'll easily be able to follow the overlay ; upgrade instructions when MEX 2.0 hits the streets. Also, you can ; make use of the MEX service processor to write a very versatile ; SET command (as done here). ; ; Note that all overlays may freely use memory up to 0CFFH. If your ; overlay must work with the MEX Smartmodem overlay (MXO-SMxx.ASM), ; the physical modem overlay should terminate by 0AFFH. ; ; For purposes of example, this is a "full-featured" MEX overlay. In ; practice, your overlay may be much simpler (all that is really re- ; quired is the modem I/O code; fancy stuff like the SET command, and ; even the disconnect routine, may be left open. You will need DIAL ; code, though, unless your modem doesn't support autodialing). ; ;------------------------------------------------------------ ; ; Misc equates ; NO equ 0 YES equ 0FFh TPA equ 100h CR equ 13 LF equ 10 BS equ 8 TAB equ 9 ESC equ 27 CTRLX equ YES ;YES, if use ^X for fake "BUSY" CONTX equ 'X'-40h ; ; Equates used only by PMMI routines grouped together here. ; ; ; PMMI port definitions ; PORT equ 080h ;PMMI base port (data or status) ; PORT now also used by NITMOD. MODCT1 equ 0 ;modem control port (added to base port). MODDAT equ MODCT1+1 ;modem data port " BAUDRP equ MODCT1+2 ;modem baud rate port " MODCT2 equ MODCT1+3 ;modem status port " ; ; PMMI bit definitions ; MDRCVB equ 02h ;modem receive bit (DAV) MDRCVR equ 02h ;modem receive ready MDSNDB equ 01h ;modem send bit MDSNDR equ 01h ;modem send ready bit ; ; CTSMSK equ 4 ;mask for CTS bit BRKMSK equ 0FBh ;mask to set break PARMSK equ 0CFh ;mask to remove parity bits OPARIT equ 00h ;odd-parity bits EPARIT equ 20h ;even-parity bits NPARIT equ 10h ;no-parity bits MODEMK equ 0FCh ;mode mask ANMODE equ 1Eh ;answer mode ANBIT equ 2 ;answer-mode bit ORIGMD equ 1Dh ;originate mode ORBIT equ 1 ;originate-mode bit WTCTS equ 150 ;number of seconds (x5) to wait for the ;computer to answer after PMMI auto-dial ;100=20 sec, 150=30 sec, 255=51 sec. ;any number 0-255 acceptable ; ; ; Modem control command words ; BRKMASK equ 0 ;tele line on hook (break while dialing) CLEAR equ 3Fh ;idle mode DTMSK equ 1 ;dial tone mask MAKEM equ 1 ;tele line make (off hook) RBLMT equ 35 ;7 seconds to wait til no-ring-heard msg RBWAIT equ 50 ;5 second delay before redialing PMMI SMRWT equ 15 ;1.5 sec delay before redialing HAYES TMPUL equ 80h ;timer pulses mask bit TRATE equ 250 ;value for 0.1 second ; ; ; MEX service processor stuff ... MEX supports an overlay service ; processor, located at 0D00H (and maintained at this address from ; version to version). If your overlay needs to call BDOS for any ; reason, it should call MEX instead; function calls below about ; 240 are simply passed on to the BDOS (console and list I/O calls ; are specially handled to allow modem port queueing, which is why ; you should call MEX instead of BDOS). MEX uses function calls ; above about 244 for special overlay services (described below). ; ; Some sophisticated overlays may need to do file I/O; if so, use ; the PARSFN MEX call with a pointer to the FCB in DE to parse out ; the name. This FCB should support a spare byte immediately pre- ; ceeding the actual FCB (to contain user # information). If you've ; used MEX-10 for input instead of BDOS-10 (or you're parsing part ; of a SET command line that's already been input), then MEX will ; take care of DU specs, and set up the FCB accordingly. There- ; after all file I/O calls done through the MEX service processor ; will handle drive and user with no further effort necessary on ; the part of the programmer. ; MEX equ 0D00h ;address of the service processor INMDM equ 255 ;get char from port to A, CY=no more in 100 ms TIMER equ 254 ;delay 100ms * reg B TMDINP equ 253 ;B=# secs to wait for char, cy=no char CHEKCC equ 252 ;check for ^C from KBD, Z=present SNDRDY equ 251 ;test for modem-send ready RCVRDY equ 250 ;test for modem-receive ready SNDCHR equ 249 ;send a character to the modem (after sndrdy) RCVCHR equ 248 ;recv a char from modem (after rcvrdy) LOOKUP equ 247 ;table search: see CMDTBL comments for info PARSFN equ 246 ;parse filename from input stream BDPARS equ 245 ;parse baud-rate from input stream SBLANK equ 244 ;scan input stream to next non-blank EVALA equ 243 ;evaluate numeric from input stream LKAHED equ 242 ;get nxt char w/o removing from input GNC equ 241 ;get char from input, cy=1 if none ILP equ 240 ;inline print DECOUT equ 239 ;decimal output PRBAUD equ 238 ;print baud rate ; ; CONOUT equ 2 ;simulated BDOS function 2: console char out PRINT equ 9 ;simulated BDOS function 9: print string INBUF equ 10 ;input buffer, same structure as BDOS 10 ; org TPA ;we begin ; ; ds 3 ;MEX has a JMP START here ; ; The following variables are located at the beginning of the program ; to facilitate modification without the need of re-assembly. They will ; be moved in MEX 2.0. ; PMODEM: db YES ;yes=PMMI modem \ / These 2 locations are not SMODEM: db NO ;yes=Smartmodem / \ referenced by MEX TPULSE: db 'T' ;T=touch, P=pulse (not referenced by MEX) CLOCK: db 55 ;clock speed x .1, up to 25.5 mhz. MSPEED: db 1 ;sets display time for sending a file ;0=110 1=300 2=450 3=600 4=710 ;5=1200 6=2400 7=4800 8=9600 9=19200 BYTDLY: db 5 ;default time to send character in ;terminal mode file transfer (0-9) ;0=0 delay, 1=10 ms, 5=50 ms, 9=90 ms CRDLY: db 5 ;end-of-line delay after CRLF in terminal ;mode file transfer for slow BBS systems ;0=0 delay, 1=100 ms, 5=500 ms, 9=900 ms COLUMS: db 5 ;number of directory columns SETFL: db YES ;yes=user-defined SET command SCRTST: db NO ;yes=if home cursor and clear screen ;routine at CLRSCRN db 0 ;was once ACKNAK, now spare BAKFLG: db NO ;yes=make .BAK file CRCDFL: db YES ;yes=default to CRC checking ;no=default to Checksum checking TOGCRC: db YES ;yes=allow toggling of Checksum to CRC CVTBS: db NO ;yes=convert backspace to rub TOGLBK: db YES ;yes=allow toggling of bksp to rub ADDLF: db NO ;no=no LF after CR to send file in ;terminal mode (added by remote echo) TOGLF: db YES ;yes=allow toggling of LF after CR TRNLOG: db YES ;yes=allow transmission of logon ;write logon sequence at location LOGON SAVCCP: db YES ;yes=do not overwrite CCP LOCNXT: db NO ;yes=local cmd if EXTCHR precedes ;no=not local cmd if EXTCHR precedes TOGLOC: db YES ;yes=allow toggling of LOCNXTCHR LSTTST: db YES ;yes=allow toggling of printer on/off ;in terminal mode. Set to no if using ;the printer port for the modem XOFTST: db NO ;yes=allow testing of XOFF from remote ;while sending a file in terminal mode XONWT: db NO ;yes=wait for XON after sending CR while ;transmitting a file in terminal mode TOGXOF: db YES ;yes=allow toggling of XOFF testing IGNCTL: db NO ;yes=do not send control characters ;above CTL-M to CRT in terminal mode ;no=send any incoming CTL-char to CRT EXTRA1: db 0 ;for future expansion EXTRA2: db 0 ;for future expansion BRKCHR: db '@'-40h ;^@ = Send a 300 ms. break tone NOCONN: db 'N'-40h ;^N = Disconnect from phone line LOGCHR: db 'L'-40h ;^L = Send logon LSTCHR: db 'P'-40h ;^P = Toggle printer UNSVCH: db 'R'-40h ;^R = Close input text buffer TRNCHR: db 'T'-40h ;^T = Transmit file to remote SAVCHR: db 'Y'-40h ;^Y = Open input text buffer EXTCHR: db '^'-40h ;^^ = Send next character PRATE: db 167 ;125=20pps dialing, 250=10pps db 0 ;not used ; ; Low-level modem I/O routines: this will be replaced with ; a jump table in MEX 2.0 (you can insert jumps here to longer ; routines if you'd like ... I'd recommend NOT putting part of ; a routine in this area, then jumping to the rest of the routine ; in the non-fixed area; that will complicate the 2.0 conversion) INCTL1: jmp iCTL1 ;in modem control port db 0,0,0,0,0,0,0 OTDATA: jmp oDATA db 0,0,0,0,0,0,0 INPORT: jmp iDATA db 0,0,0,0,0,0,0 ; Bit-test routines. These will be merged with the above ; routines in MEX 2.0 to provide a more reasonable format ; MASKR: ani MDRCVB ;bit to test for receive ready ret TESTR: cpi MDRCVR ;value of receive bit when ready ret MASKS: ani MDSNDB ;bit to test for send ready ret TESTS: cpi MDSNDR ;value of send bit when ready ret ; ; Unused area: was once used for special PMMI functions, ; Now used only to retain compatibility with MDM overlays. ; You may use this area for any miscellaneous storage you'd ; like but the length of the area *must* be 12 bytes. ; ds 12 ; ; Special modem function jump table: if your overlay cannot handle ; some of these, change the jump to "DS 3", so the code present in ; MEX will be retained. Thus, if your modem can't dial, change the ; JMP PDIAL at DIALV to DS 3, and MEX will print a "not-implemented" ; diagnostic for any commands that require dialing. ; ; DIALV dials the digit in A. See the comments at PDIAL for specs. ; ; DISCV disconnects the modem ; ; GOODBV is called just before MEX exits to CP/M. If your overlay ; requires some exit cleanup, do it here. ; ; INMODV is called when MEX starts up; use INMODV to initialize the modem. ; ; NEWBDV is used for phone-number baud rates and is called with a baud-rate ; code in the A register, value as follows: ; ; A=0: 110 baud A=1: 300 baud A=2: 450 baud ; A=3: 600 baud A=4: 710 baud A=5: 1200 baud ; A=6: 2400 baud A=7: 4800 baud A=8: 19200 baud ; ; If your overlay supports the passed baud rate, it should store the ; value passed in A at MSPEED (107H), and set the requested rate. If ; the value passed is not supported, you should simply return (with- ; out modifying MSPEED) -or- optionally request a baud-rate from the ; user interactively. ; ; NOPARV is called at the end of each file transfer; your overlay may simply ; return here, or you may want to restore parity if you set no-parity ; in the following vector (this is the case with the PMMI overlay). ; ; PARITV is called at the start of each file transfer; your overlay may simply ; return here, or you may want to enable parity detection (this is the ; case with the PMMI overlay). ; ; SETUPV is the user-defined command ... to use this routine to build your own ; MEX command, set the variable SETFL (117H) non-zero, and add your SET ; code. You can use the routine presented in the PMMI overlay as a ; guide for parsing, table lookup, etc. ; ; SPMENU is provided only for MDM compatibility, and is not used by MEX 1.0 for ; any purpose (it will be gone in MEX 2). ; ; VERSNV is called immediately after MEX prints its sign-on message at cold ; startup -- use this to identify your overlay in the sign-on message ; (include overlay version number in the line). ; BREAKV is provided for sending a BREAK (<ESC>-B in terminal mode). If your ; modem doesn't support BREAK, or you don't care to code a BREAK rou- ; tine, you may simply execute a RET instruction. ; LOGON: ds 2 ;needed for MDM compat, not ref'd by MEX DIALV: jmp PDIAL ;dial digit in A (see info at PDIAL) DISCV: jmp PDISC ;disconnect the modem GOODBV: jmp DUMMY ;called before exit to CP/M INMODV: jmp NITMOD ;initialization. Called at cold-start NEWBDV: jmp PBAUD ;set baud rate NOPARV: jmp NOPAR ;set modem for no-parity PARITV: jmp PARITY ;set modem parity SETUPV: jmp SETCMD ;SET cmd: jump to a RET if you don't write SET SPMENV: ds 3 ;not used with MEX VERSNV: jmp SYSVER ;Overlay's voice in the sign-on message BREAKV: jmp PBREAK ;send a break ; ; The following jump vector provides the overlay with access to special ; routines in the main program (retained and supported in the main pro- ; gram for MDM overlay compatibility). These should not be modified by ; the overlay. ; ; Note that for MEX 2.0 compatibility, you should not try to use these ; routines, since this table will go away with MEX 2.0 (use the MEX ; service call processor instead). ; ILPRTV: ds 3 ;replace with MEX function 9 INBUFV: ds 3 ;replace with MEX function 10 ILCMPV: ds 3 ;replace with table lookup funct. 247 INMDMV: ds 3 ;replace with MEX function 255 NXSCRV: ds 3 ;not supported by MEX (returns w/no action) TIMERV: ds 3 ;replace with MEX function 254 ; ; ; Clear/screen and clear/end-of-screen. Each routine must use the ; full 9 bytes alloted (may be padded with nulls). ; ; These routines (and other screen routines that MEX 2.0 will sup- ; port) will be accessed through a jump table in 2.0, and will be ; located in an area that won't tie the screen functions to the ; modem overlay (as the MDM format does). ; CLREOS: lxi h,SCRTST lxi d,EOSMSG jmp PRMAYBE CLS: lxi h,SCRTST lxi d,CLSMSG jmp PRMAYBE ; ;------------------------------------------------------------ ; ; *** END OF FIXED FORMAT AREA *** ; ;------------------------------------------------------------ ; ; Data area ERRFLG: db 0 ;connection error code UCTLB: db ORIGMD ;uart-control byte image BAUDSV: db 52 ;current baud rate (dflt 300) MODCTB: db 07FH ;modem control byte INTERD: db 2 ;inter-digit delay in 100's of ms PRXTRA: db YES ; Diagnostic prints upon function usage WTNUM: db WTCTS ; OFFHK: db 0 ; ; BPTAB: db '0123456789ABCDEF', 80h NITBYT: db PORT ; Should be the PMMI base port. Original port ; is C0 hex. Recommended alternate is 80 hex. DIALFLG: db 0 ; ABOBYT: db 0 ; TEMP: dw 0 ; PRMAYBE: mov a,m ora a rz PRMBOK: mvi c,PRINT jmp MEX iCTL1: mvi a,MODCT1 jmp BPIN iCTL2: mvi a,MODCT2 jmp BPIN iDATA: mvi a,MODDAT ;in modem data port jmp BPIN iBDRP: mvi a,BAUDRP jmp BPIN oCTL1: push psw mvi a,MODCT1 jmp BPOUT oCTL2: push psw mvi a,MODCT2 jmp BPOUT oDATA: push psw ;out modem data port mvi a,MODDAT jmp BPOUT oBDRP: push psw mvi a,BAUDRP jmp BPOUT BPIN: push b mov b,a lda NITBYT add b sta BPINX+1 BPINX: in $-$ pop b ret BPOUT: push b mov b,a lda NITBYT add b sta BPOUTX+1 pop b pop psw BPOUTX: out $-$ ret ; Modem initialization. This overlay doesn't do any initialization. ; (if we did, we'd disconnect a call already in progress). NITMOD: lda NITBYT ; Convert hex byte to ascii nibble. rar rar rar rar ani 0Fh mvi d,0 mov e,a lxi h,BPTAB dad d mov a,m sta BPMSG ; Store base port in sign-on message. mvi a,LVL sta LEVEL ret ; PMMI send-break routine PBREAK: lda MODCTB ;get the last modem control byte ani BRKMSK ;set the transmit break bit low call oCTL2 ;send it to the modem mvi b,2 call TIMERV ;send a space tone for 200 ms. lda MODCTB ;get the last modem control byte call oCTL2 ;restore to normal lxi h,PRXTRA lxi d,BRKMSG jmp PRMAYBE BRKMSG: db '.break. $' ; Setup PMMI for odd/even parity. PARITY: lda UCTLB ;send what's in the image byte jmp oCTL1 ; set no-parity NOPAR: lda UCTLB ;get uart/modem control byte ani PARMSK ;reset parity bits ori NPARIT ;add no-parity bits jmp oCTL1 ; disconnect the modem PDISC: call HUKONN ; Hang up call oCTL2 ; clear DAV, ESD, etc push b ; lxi h,PRXTRA ; lxi d,DSC1MSG ; call PRMAYBE ; mvi b,20 ;wait for PMMI to disconnect (2 sec) %%* 1 to 2 mvi c,TIMER ;0.1 second per timer interval call MEX ; lxi h,PRXTRA ; lxi d,DSC2MSG ; call PRMAYBE ; pop b ; ret ; DSC1MSG: db '.di$' DSC2MSG: db 'sc. $' ; exit routine DUMMY: ret ;we don't need one ; ; ;------------------------------------------------------------ ; ; <PMMI DIALING ROUTINES BEGIN> ; ; This is the DIAL routine called by MEX to dial a digit. The digit ; to be dialed is passed in the A register. Note that two special ; codes must be intercepted as non-digits: 254 (start dial sequence) ; and 255 (end-dial sequence). Mex will always call DIAL with 254 ; in the accumulator prior to dialing a number. Mex will also call ; dial with 255 in A as an indication that dialing is complete. Thus, ; the overlay may use these values to "block" the number, holding it ; in a buffer until it is completely assembled (we don't do this with ; the PMMI, however; we just dial the digits as they come in). ; ; After the 254-start-dial sequence, MEX will call the overlay with ; digits, one-at-a-time. MEX will make no assumptions about the dig- ; its, and will send each to the DIAL routine un-inspected (some modems, ; like the Smartmodem, allow special non-numeric characters in the ; phone number, and MEX may make no assumptions about these). This ; dialing routine validates digits, and ignores any except 0-9 and ; comma (uses comma to simulate Smartmodem delay). ; ; After receiving the end-dial sequence (255) the overlay must take ; whatever end-of-dial actions are necessary *including* waiting for ; carrier at the distant end. The overlay should monitor the keyboard ; during this wait (using the MEX keystat service call), and return ; an exit code to MEX in the A register, as follows: ; ; 0 - Carrier detected, connection established ; 1 - Far end busy (only for modems that can detect this condition) ; 2 - No answer (or timed out waiting for modem response) ; 3 - Keyboard abort (^C only: all others should be ignored) ; 4 - Error reported by modem ; ; <No other codes should be returned after an end-dial sequence> ; ; The overlay should not loop forever in the carrier-wait routine, but ; instead use either the overlay timer vector, or the INMDMV (timed 100 ; ms character wait) service call routine. ; ; The DIAL routine is free to use any of the registers, but must return ; the above code after an end-dial sequence ; ; PDIAL: cpi 254 ;start-dial? jz STDIAL ; cpi 255 ;end-dial jz ENDIAL ; ; push psw ; mvi a,7 ; sta DIALFLG ; pop psw ; ; PDIAL1: cpi ',' ;smartmodem pause command jnz PDIAL2 ;if not pause, continue mvi b,10 ;delay 1 second jmp TIMOUT ; PDIAL2: cpi '#' ; jnz CKDIG ; mvi a,BS ; call PUT1C ; PDIAL3: call GET1C ; jz PDIAL3 ; call PUT1C ; jmp PDIAL1 ; CKDIG: cpi '9'+1 ; digits are 0-9 rnc ; too big... sui '0' ; rc ; too small.... jnz DIALIT ; just right... mvi a,10 ; convert zero to 10 pulses ; Send a digit to the modem. DIALIT: mov c,a ; save the digit lda ERRFLG ; before we try to dial... ora a ; ...check dialtone error flag rnz ; ...if no DT, exit now lda PRATE ; value for dial speed call oBDRP ; call WAITLO ; wait for timer lo call WAITHI ; wait for timer hi call GET1C ; DIAL1: cpi 3 ; ^C ? jz DIALX ; cpi 24 ; ^X ? jz DIALX ; cpi 19 ; ^S ? jnz DIGLP ; DIALP: call GET1C ; Wait for a character jz DIALP ; cpi 19 ; jmp DIGLP ; ; DIALX: sta ABOBYT ; DIGLP: lda ABOBYT ; ora a ; jnz DIGLP2 ; ; call HUKOFF ; Go off-hook call WAITLO ; call HUKONN ; call WAITHI ; DIGLP2: dcr c ; jnz DIGLP ; send rest of digit lda ABOBYT ; ora a ; rnz ; ; call HUKOFF ; lda INTERD ; get inter-digit delay mov b,a ; jmp TIMOUT ; ; Wait for negative edge of timer pulse WAITLO: call iBDRP ani TMPUL jnz WAITLO ret ; Wait for positive edge of timer pulse WAITHI: call iBDRP ani TMPUL jz WAITHI ret ; Start-dial sequence: disconnect, wait for dial-tone STDIAL: xra a ; reset error flag sta ERRFLG ; call PDISC ; on-hook call HUKOFF ; call PROFFH ; (possibly) print .off hook. message ; Wait routine will return with carry set if unable to get dialtone. mvi d,DTMSK ;dial tone mask mvi e,50 ;waits up to 10 sec. for dial tone call WAIT ;wait for dial tone rnc ;if dial tone within 10 seconds sta ERRFLG ;(action on error deferred until call PDISC ;no tone, hang up ret ; dialing is completed) ; End-dial sequence ENDIAL: call ENDIT ;close out dialing push psw ; xra a ; sta DIALFLG ; sta ABOBYT ; pop psw ; ora a ;successfully connected? rz ;exit now if so push psw ;nope, save the error code call PDISC ;shut down the modem pop psw ; ret ; ENDIT: lda ERRFLG ;no-dialtone error from STDIAL? ora a rnz ;if so, return the error here call OFF ;go off-hook lda UCTLB ;get uart/modem control byte call oCTL1 ;send it mvi d,4 ;clear-to-send mask ; lda WTNUM ; mov e,a ; call WAIT ; rnc ;return A=0 if good ; cpi 'C'-40h ;keyboard abort? rz ;if so return it ; if CTRLX ; cpi 1 ;Fake busy? rz ;Return if so endif ;CTRLX ; mvi a,2 ;nope, convert error to "no answer" ret ; ; <end of PMMI dialing routines> ;------------------------------------------------------------ ; Go Off-Hook OFF: lda BAUDSV ;set current baud rate call oBDRP ; lda MODCTB ;Load current DTR call oCTL2 ; call HUKOFF ; lda UCTLB ; call oCTL1 ; mvi b,2 ;wait 200 ms %%* changed from 1 to 2. call TIMOUT ; lda DIALFLG ; ora a ; jz PRONLN ; xra a ; sta DIALFLG ; PRWAIT: lxi h,PRXTRA ; lxi d,WAITMSG ; jmp PRMAYBE ; PROFFH: lxi h,PRXTRA ; lxi d,OFFHMSG ; jmp PRMAYBE ; PRONLN: lxi h,PRXTRA ; lxi d,ONLNMSG ; jmp PRMAYBE ; OFFHMSG: db '.off-h. $' ; Force PMMI to on-line status. ONLNMSG: db '.on-line. $' ; Force PMMI to on-line status. WAITMSG: db '.wait. $' ; Force PMMI to " " and wait ; for either a carrier or timeout. HUKOFF: mvi a,255 ; Go Off-Hook sta OFFHK ; mvi a,MAKEM ; jmp oCTL1 ; HUKONN: xra a ; Go On-Hook sta OFFHK ; mvi a,BRKMASK ; jmp oCTL1 ; ; Time-out routine. Must be called with mask in D reg. for input at ; relative port 2 and number of seconds (times 10) in E reg. WAIT: mvi b,2 ; 200 ms call TIMOUT ; wait for timer to go high then low call iBDRP ; pmmiaddr+2 (modem status port) ana d ; (cts or dialtone mask) rz ; active low, so return on 0 if not CTRLX ; mvi c,CHEKCC ;not yet, check for console-abort call MEX ;abort? mvi a,3 ;set error code 3 if abort active stc ; rz ;return if aborted endif ;not CTRLX if CTRLX ; lda ABOBYT ; ora a ; jz WAIT0 ; push psw ; xra a ; sta ABOBYT ; pop psw ; jmp WAIT1 ; WAIT0: call GET1C ; jz WAITOR ; ; WAIT1: cpi CONTX ;'^X?' jnz WAIT2 ;no, check for ^C call GET1C ;Clear out garbage mvi a,1 ;yes, return fake error code stc ; ret ; WAIT2: cpi 3 ;Duplicate MEX ^C trap jnz WAITOR ;Not ^C, continue call GET1C ;Clear out garbage mvi a,3 ;"ABORT" error stc ;Yes, pass error ret ;code and return endif ;CTRLX WAITOR: dcr e ; jnz WAIT ; nope, downcount inr a ; set error=4 (modem error); cy already set ret ; GET1C: push h push d push b mvi c,6 mvi e,0FFh call 5 pop b pop d pop h ani 7Fh ret PUT1C: push h push d push b mvi c,6 mov e,a call 5 pop b pop d pop h ret ; Set baud-rate code in A (if supported by your modem overlay). PMMI ; supports only five rates, which are validated here. NOTE: this routine ; (ie, the one vectored through NEWBDV) should update MSPEED with the ; passed code, but ONLY if that rate is supported by the hardware. PBAUD: push h ;don't alter anybody push d push b mov e,a ;code to DE mvi d,0 lxi h,BAUDTB ;offset into table dad d mov a,m ;fetch code ora a ;0? (means unsupported code) stc ;return error for STBAUD caller jz PBEXIT ;exit if so call oBDRP ;good rate, set it sta BAUDSV ;save it mov a,e ;get speed code back sta MSPEED ;make it current call GETDTR ;get correct DTR based on baud rate sta MODCTB ;save the code call CARRCK ;is a connection in progress? jnz PBEXIT ;skip this if not lda MODCTB ;yep, set up DTR call oCTL2 PBEXIT: lxi h,PRXTRA lxi d,BDSTMSG call PRMAYBE pop b ;all done pop d pop h ret BDSTMSG: db '.bd-rt. $' ; table of baud rate divisors for supported rates BAUDTB: db 142,052,035,026,022 ;110,300,450,610,710 db 0,0,0,0,0 ;1200,2400,4800,9600,19200 ; Sign-on message SYSVER: lxi d,LINMSG mvi c,PRINT call MEX lxi d,SOMESG mvi c,PRINT call MEX lxi d,bpmess mvi c,PRINT call MEX CARRSH: lxi d,NOMESG ;tell about carrier call CARRCK ;check for it mvi c,PRINT cz CMSG cnz MEX lxi d,LINMSG mvi c,PRINT call MEX lxi d,GRBMSG mvi c,PRINT call MEX ret CMSG: push psw mvi c,PRINT lxi d,CARMSG call MEX pop psw ret SOMESG: db '* PMMI overlay version - ' db REV/10+'0' db '.' db REV MOD 10+'0' LEVEL: db ' *',CR,LF,'$' BPMESS: db '* Base port = ' BPMSG: db 'x0 hex. *' NLMSG: db cr,lf,'$' NOMESG: db '* No carrier present. *$' CARMSG: db '* Carrier IS present. *$' LINMSG: db CR,LF,'********************************',CR,LF,'$' GRBMSG: db CR,LF,'$' ; ; ; get DTR port value based on baud rate ; GETDTR: lda BAUDSV cpi 52 ;>300? mvi a,05Fh ;set speed configuration (ARRRRRRGGGGHHHH.) rc ;done if so (Swapped in version 2.0) mvi a,07Fh ;reset speed config bit (ARRRRRRGGGGGHHHH.) ret ; check the PMMI for carrier-present (NZ=no) CARRCK: call iBDRP ;get status byte ani CTSMSK rnz push psw mvi a,255 sta OFFHK pop psw ret ; Newline on console CRLF: mvi a,CR call TYPE mvi a,LF ;fall into TYPE ; type char in A on console TYPE: push h ;save 'em push d push b mov e,a ;align output character mvi c,CONOUT ;print via MEX call MEX pop b pop d pop h ret ; strings to clear-to-end-of-screen, and clear-screen ; Note: these are dummy strings, not intended to be displayed... EOSMSG: db ' -clr eos- $' ;clear to end-of-screen CLSMSG: db ' -clr all- $' ;clear whole screen ; ;------------------------------------------------------------ ; ; The remainder of this overlay implements a very versatile ; SET command -- if you prefer not to write a SET for your ; modem, you may delete the code from here to the END statement. ; ; ; Control is passed here after MEX parses a SET command. ; SETCMD: mvi c,SBLANK ;any arguments? call MEX jc SETSHO ;if not, go print out values lxi d,CMDTBL ;parse command call TSRCH ;from table push h ;any address on stack rnc ;if we have one, execute it pop h ;nope, fix stack SETERR: lxi d,SETEMS ;print error mvi c,PRINT call MEX ret ; SETEMS: db CR,LF,'SET command error',CR,LF,'$' ; ; SET command table ... note that tables are constructed of command- ; name (terminated by high bit=1) followed by word-data-value returned ; in HL by MEX service processor LOOKUP. Table must be terminated by ; a binary zero. ; ; Note that LOOKUP attempts to find the next item in the input stream ; in the table passed to it in HL ... if found, the table data item is ; returned in HL; if not found, LOOKUP returns carry set. ; CMDTBL: db '?'+80h ; "set ?" dw STHELP ; db 'BAU','D'+80h ; "set baud" dw STBAUD ; db 'ID','D'+80h ; "set id" dw SETIDD ; db 'ANSWE','R'+80h ; "set answer" dw STANSW ; db 'AN','S'+80h ; "set ans" (same as above) dw STANSW ; db 'ORIGINAT','E'+80h ; "set originate" dw STORIG ; db 'ORI','G'+80h ; "set orig" (same as above) dw STORIG ; db 'OR','G'+80h ; "set org" (same as above) dw STORIG ; db 'OFFHOO','K'+80h ; "set offhook" dw OFF ; db 'ONLIN','E'+80h ; "set online" (same as offhook) dw OFF ; db 'ONHOO','K'+80h ; "set onhook" dw PDISC ; db 'OFFLIN','E'+80h ; "set offline" (same as onhook) dw PDISC ; db 'PP','S'+80h ; "set pps" dw SETPPS ; db 'BAS','E'+80h ; "set PMMI base port." dw SETBP ; db 'IC','D'+80h ; "set delay between calls" dw SETICD ; db 'EXTR','A'+80h ; "set extra print mode" dw SETXTRA ; db 'XYZZ','Y'+80h ; dw XYZZY ; ; db 0 ; <<=== table terminator ; ; SET <no-args>: print current statistics ; SETSHO: call SYSVER ;show carrier present/not present lxi h,SHOTBL ;get table of SHOW subroutines SETSLP: mov e,m ;get table address inx h mov d,m inx h mov a,d ;end of table? ora e rz ;exit if so push h ;save table pointer xchg ;adrs to HL call GOHL ;do it call CRLF ;print newline mvi c,CHEKCC ;check for console abort call MEX pop h ;it's done jnz SETSLP ;continue if no abort call CRLF ret GOHL: pchl ; table of SHOW subroutines SHOTBL: dw BDSHOW dw MDSHOW dw SHOICD dw SHOIDD dw SHOPPS dw SHOXTRA dw CRLF dw 0 ;<<== table terminator ; ; SET ? processor ; STHELP: lxi d,HLPMSG mvi c,PRINT call MEX ret ; ; The help message ; HLPMSG: db cr,lf,'SET command, for the PMMI S-100 modem (r.i.p.)' db cr,lf db cr,lf,'SET ANSWER <or> SET ANS ... put PMMI in answer mode' db cr,lf,'SET BASE <hex #> ... set new PMMI base port' db cr,lf,'SET BAUD <value> ... set baud rate' db cr,lf,' BAUD values allowed are: 110, 300, 450, 600, and 710' db cr,lf,'SET EXTRA <value> ... OFF if <value> == 0, else ON' db cr,lf,' EXTRA function diagnostics displayed: BAUD RATE, BREAK,' db cr,lf,' DISCONNECT, OFF-HOOK, and WAIT (for answer tone)' db cr,lf,'SET ICD <value>' db ' ... intercall delay; 150 == 30 seconds' db cr,lf,'SET IDD <value> ... interdigit delay in 100''s msec' db cr,lf,'SET OFFHOOK <or> SET ONLINE ... force PMMI online' db cr,lf,'SET ONHOOK <or> SET OFFHOOK ... disconnect without message' db cr,lf,'SET ORIGINATE <or> SET ORIG ... put PMMI in originate mode' db cr,lf,'SET PPS <value> ... may be 10, 15 or 20 pulses/sec.' db cr,lf db cr,lf, '$' ; SET BAUD processor STBAUD: mvi c,BDPARS ;function code call MEX ;let MEX look up code jc SETERR ;invalid code call PBAUD ;no, try to set it jc SETERR ;not-supported code BDSHOW: call ILPRT ;display baud db 'Baud rate: ', tab, ' ', 0 lda MSPEED mvi c,PRBAUD ;use MEX routine call MEX ret ; SET MODE processor MDSHOW: call ILPRT ;show mode db 'Mode:', tab, tab, ' ', 0 lda UCTLB ;get UART B image ani ORBIT ;orig? jz MDORIG call ILPRT db 'Originate', 0 ret MDORIG: call ILPRT db 'Answer', 0 ret STORIG: mvi l,ORBIT jmp CHGAO STANSW: mvi l,ANBIT CHGAO: lda UCTLB ani MODEMK ora l sta UCTLB call OHKBYT jnz MDSHOW call oCTL1 call OFF jmp MDSHOW OHKBYT: lda OFFHK cma ora a ret ; ; SET PPS command processor ; SETPPS: lxi d,PPSTBL ;get value call TSRCH jc SETERR ;not found in table? error out mov a,l ;yep, set it sta PRATE SHOPPS: call ILPRT db 'PPS rate: ', tab, ' ', 0 lda PRATE ;display PPS cpi 250 jnz SHO2 call ILPRT db '10', 0 ret SHO2: cpi 125 jnz SHO3 call ILPRT db '20',0 ret SHO3: call ILPRT db '15',0 ret PPSTBL: db '1','0'+80H ;"set pps 10" dw 250 db '1','5'+80h ;"set pps 15" dw 167 db '2','0'+80H ;"set pps 20" dw 125 db 0 ;<<=== table terminator ; ; SET IDIG command processor ; SETIDD: mvi c,EVALA call MEX ;get numeric mov a,h ;validate ora a jnz SETERR mov a,l sta INTERD ;set new rate SHOIDD: call ILPRT db 'Inter-digit delay: ', 0 lda INTERD ;get value mov l,a ;move delay to HL mvi h,0 mvi c,DECOUT ;print it call MEX call ILPRT db '00 ms',0 ret ; Set BASE PORT command processor. SETBP: mvi c,SBLANK call MEX mvi c,GNC ;get char from input, cy=1 if none call MEX call UPPER mov l,a ; Character to test is in L. shld TEMP lxi b,BPTAB-1 lxi d,10h lxi h,-10h SETLP: inx b ; Advance to next allowable character. dad d ; Add 10 hex to base port address. ldax b ; ora a ; jm SETNG ; Jump if character typed not in allowable set. push h ; lhld TEMP ; cmp l ; Valid port requested? shld TEMP ; pop h ; Restore new base port. jnz SETLP ; No match, try again. sta BPMSG ; Patch sign-on message with Port # (ascii). mov a,l ; sta NITBYT ; Save base port (hex) for I/O and for CLONING. ret BPNOGO: db 7, ' **** Invalid port ****', cr, lf, '$' SETNG: lxi d,BPNOGO mvi c,PRINT jmp MEX SETICD: mvi c,EVALA call MEX ;get numeric mov a,h ;validate ora a jnz SETERR mov a,l sta WTNUM ;set new rate SHOICD: call ILPRT db 'Inter-call delay: ', 0 lda WTNUM ;get value mov l,a ;move delay to HL mvi h,0 mvi c,DECOUT ;print it call MEX call ILPRT db ' ticks. (150 ticks=30 seconds)', 0 ret SETXTRA: mvi c,EVALA call MEX mov a,h ora a jnz SETERR mov a,l sta PRXTRA SHOXTRA: call ILPRT db 'Extra print mode: ',0 lda PRXTRA ora a lxi d,ONNMSG jnz SHOXT2 lxi d,OFFMSG SHOXT2: jmp PRMBOK ONNMSG: db 'ON$' OFFMSG: db 'OFF$' ; Compare next input-stream item in table @DE; CY=1 ; if not found, else HL=matched data item TSRCH: mvi c,LOOKUP ;get function code jmp MEX ;pass to MEX processor XYZZY: call ILPRT db 'Nothing happens...', 0 ret ; Print in-line message ILPRT: mvi c,ILP ;get function code jmp MEX ;go do it TIMOUT: mvi c,TIMER ; jmp MEX ; UPPER: cpi 'a' rc cpi 'z'+1 rnc sui 'a'-'A' ret ;------------------------------------------------------------ ; ; End of PMMI MEX modem overlay ; ;------------------------------------------------------------ end