home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / mex / mxo-rs.asm < prev    next >
Assembly Source File  |  1994-07-13  |  22KB  |  702 lines
  1. ;   Title    'MEX overlay for the TRS-80 MOD IV version 1.7'    
  2. ;                      Montezuma Micro CP/M 2.2
  3. ; =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =
  4. ; MEX TRS-80 MOD IV OVERLAY VERSION 1.0: Written 09/10/84 by Ed Richter 
  5. ;
  6. ; VERSION 1.8 02/22/86 - Auto answer modified to work with the 
  7. ;                        Model 4p internal modem command structure.
  8. ;                        Ignore all references to Hayes compatability.
  9. ;                                               Bob Kitchen
  10. ;                                               73756,1015
  11. ; VERSION 1.7 01/25/85 - ^C in "auto-answer" now aborts to CPM, not
  12. ;             MEX (sorry bout that one).  Added code to
  13. ;             determine baud rate in "auto-answer".
  14. ;             Changed "NITMOD" to default  to the baud 
  15. ;             rate selected by "MSPEED"     
  16. ;                        Ed Richter
  17. ;                        71455,1133    
  18. ; VERSION 1.6 01/21/85 - A system reset seems a little drastic
  19. ;                        so added code for a ^C abort to auto
  20. ;              answer. Also added "number of rings" 
  21. ;             equate.
  22. ;                         Ed Richter
  23. ; VERSION 1.5 11/17/84 - Added SET ANSWER ON command
  24. ;             (For Hayes-compatible modems
  25. ;              only...see NOTE below.)
  26. ;                        Thom Foulks
  27. ; VERSION 1.3 10/10/84 - Fixed bug in the Printer ready test
  28. ;                                                 Ed Richter
  29. ; VERSION 1.2 09/18/84 - Added the comments to 1.1 and changed the
  30. ;             configuration of the SET message that is
  31. ;             output to the console
  32. ;                           Ed Richter 
  33. ; VERSION 1.1 09/16/84 - Added code to fully control the SIO USART
  34. ;                 via the SET command. This overlay now 
  35. ;             supports-- SET BAUD -- SET PARITY --
  36. ;             SET STOP BITS -- SET WORD LENGTH --
  37. ;                                                   Ed Richter
  38. ; 
  39. ; This file was derived from the MDM7xx overlay M7R4-5.ASM, and the 
  40. ; file MXOPM10.ASM. It is a MEX overlay for use with the TRS-80 MOD
  41. ; IV, and an external modem. It has a SET command that supports 300
  42. ; though 9600 baud.
  43. ;
  44. ; The SMARTMODEM, and compatibles will answer the phone at the
  45. ; incoming caller's baud rate. This makes it necessary to insure
  46. ; that the SIO-USART is configured to the same speed. This progam
  47. ; will answer the phone at the MSPEED baud rate. If it cannot
  48. ; read characters at that speed it will start at 110 baud (BAUD vector 
  49. ; set to 0), check for a CR, LF, or ^C. If it is unable to read a
  50. ; character at that speed it will increment the baud rate to 1200
  51. ; (the - CPI '6' - in the SKPBAUD routine), and retry at each step.
  52. ; To change the upper limit (1200) change the  CPI '6' to the MSPEED
  53. ; value +1. ie., CPI '10' for 19200.
  54. ;
  55. ; NOTE: This overlay must be used in congunction with MXO-4P.ASM
  56. ; for full modem control.  The SET ANSWER command will place MEX
  57. ; into an auto-answer mode which may be exited prior to execution
  58. ; with a ^C - CONTROL C -  it's intended for use with a READ file
  59. ; similar to Bruce Morgen's WELCOME3 or WELCOME4.
  60. ;                                      - Thom Foulks
  61. ;
  62. ; =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =
  63. REV:         EQU    16
  64. ;
  65. CR:        EQU    0DH    ;carriage return
  66. LF:        EQU    0AH    ;linefeed
  67. TPA:        EQU    0100H
  68. TAB:        EQU    09H    
  69. YES:        EQU    0FFH
  70. NO:        EQU    0
  71. RING:        EQU    '2'    ;number of rings for auto-answer
  72. WMBOOT:        EQU    05B39H    ;MEX114.COM cpm stack pointer storage address
  73. ;
  74. ;
  75. ; Change the following information to match your equipment.
  76. ; PORT should be set to the base port address for the RS-232 port.
  77. ;
  78. PORT:        EQU    0E8H    ;master reset port   
  79. MODCT1:        EQU    PORT+2    ;modem control port
  80. MODDAT:        EQU    PORT+3    ;modem data in port
  81. MODCT2:        EQU    PORT+2    ;not used mod iv
  82. BAUDRP:        EQU    PORT+1    ;baud rate port
  83. MDRCVB:        EQU    080H    ;bit to test for receive
  84. MDRCVR:        EQU    080H    ;value when ready
  85. MDSNDB:        EQU    040H    ;bit to test for send
  86. MDSNDR:        EQU    040H    ;value when ready
  87. ;
  88. MODCTB:        EQU    0ECH    ;dtr,rts,8,no,1 for port initialize
  89. CTSMSK:        EQU    020H    ;carrier detect mask
  90. ISOCD:        EQU    0DFH    ;port ready mask
  91. PRPORT:        EQU    0F8H    ;printer port
  92. PRSTAT:        EQU    0C0H    ;printer ready mask
  93. BRKMSK:        EQU    0E3H    ;send break
  94. DTRMSK:        EQU    0EBH    ;drop dtr
  95. ;
  96. ;MEX SERVICE PROCESSOR STUFF
  97. ;
  98. MEX:        EQU    0D00H    ;address of the service processor
  99. INMDM:        EQU    255    ;get char from port,CY=no more in 100ms
  100. TIMER:        EQU    254    ;delay 100 ms * reg b
  101. TMDINP:        EQU    253    ;b=# secs to wait for char,CY=no char
  102. CHEKCC:        EQU    252    ;check for ^C from kbd, Z=present
  103. SNDRDY:        EQU    251    ;test for modem-send ready
  104. RCVRDY:        EQU    250    ;test for modem-receive ready
  105. SNDCHR:        EQU    249    ;send to modem (after SNDRDY)
  106. RCVCHR:        EQU    248    ;recv a char from modem after (RCVRDY)
  107. LOOKUP:        EQU    247    ;table search: see CMDTBL for info 
  108. PARSFN:        EQU    246    ;parse filename from input stream 
  109. BDPARS:        EQU    245    ;parse baud-rate from input stream
  110. SBLANK:        EQU    244    ;scan input stream to next non-blank
  111. EVALA:        EQU    243    ;evaluate numeric from input stream
  112. LKAHED:        EQU    242    ;get nxt char w/o removing from input
  113. GNC:        EQU    241    ;get char from input, CY=1 if none
  114. ILP:        EQU    240    ;inline print
  115. DECOUT:        EQU    239    ;decimal output
  116. PRBAUD:        EQU    238    ;print baud rate
  117. CONOUT:        EQU    2    ;simulated BDOS funct 2:CONSOLE OUT
  118. PRINT:        EQU    9    ;simulated BDOS funct 9: PRINT STRING
  119. INBUF:        EQU    10    ;input buffer, same as BDOS FUNCT 10
  120. ;
  121.         ORG    0D11H    ;install printer ready test
  122.         DW    PRTSTS
  123. ; 
  124.         ORG    TPA
  125. ;
  126. ;
  127.         DS    3    ;(for  "JMP   START" instruction)
  128. PMODEM:        DB    NO    ;Not used by MEX            103H
  129. SMODEM:        DB    NO    ;Not used by MEX
  130. TPULSE:        DB    '*'    ;Not used by MEX            105H
  131. CLOCK:        DB    48    ;clock speed in MHz x10, 25.5 MHz max.    106H
  132.                 ;20=2 MHh, 37=3.68 MHz, 40=4 MHz, etc.
  133. MSPEED:        DB    1    ;0=110 1=300 2=450 3=600 4=710 5=1200    107H
  134.                 ;6=2400 7=4800 8=9600 9=19200 default
  135. BYTDLY:        DB    1    ;0=0 delay  1=10ms  5=50 ms - 9=90 ms    108H
  136.                 ;default time to send character in ter-
  137.                 ;minal mode file transfer for slow BBS.
  138. CRDLY:        DB    1    ;0=0 delay 1=100 ms 5=500 ms - 9=900 ms 109H
  139.                 ;default time for extra wait after CRLF
  140.                 ;in terminal mode file transfer
  141. COLUMS:        DB    5    ;number of DIR columns shown        10AH
  142. SETFL:        DB    YES    ;yes=user-added Setup routine        10BH
  143. SCRTST:        DB    YES    ;Cursor control routine         10CH
  144.         DS    1    ;reserved (old ACKNAK flag)        10DH
  145. BAKFLG:        DB    YES     ;yes=change any file same name to .BAK    10EH
  146. CRCDFL:        DB    YES    ;yes=default to CRC checking        10FH
  147. TOGCRC:        DB    YES    ;yes=allow toggling of CRC to Checksum    110H
  148. CVTBS:        DB    NO    ;yes=convert backspace to rub        111H
  149. TOGLBK:        DB    YES    ;yes=allow toggling of bksp to rub    112H
  150. ADDLF:        DB    NO    ;no=no LF after CR to send file in    113H
  151.                 ;terminal mode (added by remote echo)
  152. TOGLF:        DB    YES    ;yes=allow toggling of LF after CR    114H
  153. TRNLOG:        DB    YES    ;yes=allow transmission of logon    115H
  154.                 ;write logon sequence at location LOGON
  155. SAVCCP:        DB    YES    ;yes=do not overwrite CCP        116H
  156. LOCNXT:        DB    NO    ;yes=local command if EXTCHR precedes    117H
  157.                 ;no=external command if EXTCHR precedes
  158. TOGLOC:        DB    YES    ;yes=allow toggling of LOCONEXTCHR    118H
  159. LSTTST:        DB    YES    ;yes=allow toggling of printer on/off    119H
  160. XOFTST:        DB    YES    ;yes=checks for XOFF from remote while    11AH
  161.                 ;sending a file in terminal mode
  162. XONWT:        DB    NO    ;yes=wait for XON after CR while    11BH
  163.                 ;sending a file in terminal mode
  164. TOGXOF:        DB    YES    ;yes=allow toggling of XOFF checking    11CH
  165. IGNCTL:        DB    YES    ;yes=CTL-chars above ^M not displayed    11DH
  166. EXTRA1:        DB    0    ;for future expansion            11EH
  167. EXTRA2:        DB    0    ;for future expansion            11FH
  168. BRKCHR:        DB    'K'-40H    ;^K = Send 300 ms. break tone        120H
  169. NOCONN:        DB    'N'-40H    ;^N = Disconnect from the phone line    121H
  170. LOGCHR:        DB    'L'-40H    ;^L = Send logon            122H
  171. LSTCHR:        DB    'P'-40H    ;^P = Toggle printer            123H
  172. UNSVCH:        DB    'R'-40H    ;^R = Close input text buffer        124H
  173. TRANCHR:    DB    'T'-40H ;^T = Transmit file to remote        125H
  174. SAVECHR:    DB    'Y'-40H    ;^Y = Open input text buffer        126H
  175. EXTCHR:        DB    '^'-40h    ;^^ = Send next character        127H
  176.         DS    2
  177. INCTL1:        JMP     STATSND    ;go to "get status"             12AH
  178.         DS    7
  179. OTDATA:        OUT    MODDAT  ! RET    ;out modem data port        134H
  180.         DS    7
  181. INPORT:        IN    MODDAT  ! RET    ;in modem data port
  182.         DS    7
  183. MASKR:        ANI    MDRCVB    ! RET    ;bit to test for receive ready    148H
  184. TESTR:        CPI    MDRCVR    ! RET    ;value of rcv. bit when ready    14BH
  185. MASKS:        ANI    MDSNDB    ! RET    ;bit to test for send ready    14EH
  186. TESTS:        CPI    MDSNDR    ! RET    ;value of send bit when ready    151H
  187.         DS    12        ;unused by MEX
  188. LOGON:        DS    2        ;for user message        160H
  189. DIALV:        DS    3        ;autodial rtn jump        162H
  190. DISCV:        JMP    DISCON        ;disconnect rtn
  191. GOODBV:        DS    3        ;not needed            168H
  192. INMODV:        JMP    NITMOD        ;go to user written routine    16BH
  193. NEWBDV:        JMP    PBAUD        ;set new baud-rate           16EH
  194. NOPARV:        DS    3        ;(by-pass PMMI routine)        171H
  195. PARITV:        DS    3        ;(by-pass PMMI routine)        174H
  196. SETUPV:        JMP    SETCMD        ;initialize USART and modem    177H
  197. SPMENV:        DS    3        ;not used with MEX        17AH
  198. VERSNV:        JMP    SYSVER        ;print header msg        17DH
  199. BREAKV:        JMP    PBREAK        ;send header            180H
  200. ; Do not change the following six lines.
  201. ILPRTV:        DS    3        ;                183H
  202. INBUFV:        DS    3        ;                186H
  203. ILCMPV:        DS    3        ;                189H
  204. INMDMV:        DS    3        ;                18CH
  205. NXSCRV:        DS    3        ;                18FH
  206. TIMERV:        DS    3        ;                192H
  207. ;
  208. ; Routine to clear to end of screen.  If using CLREOS and CLRSCRN, set
  209. ; SCRNTEST to YES at 010AH (above).
  210. ;
  211. CLREOS:        LXI    D,EOSMSG    ;clear to end of screen         195H
  212.         MVI    C,PRINT        ;from cursor
  213.         CALL    MEX        ;                198H
  214.         RET            ;                19DH
  215. ;
  216. CLS:        LXI    D,CLSMSG    ;clear sreen            19EH
  217.         MVI    C,PRINT
  218.         CALL    MEX        ;                1A1H
  219.         RET            ;                1A6H
  220.     
  221. ;
  222. SYSVER:        LXI    D,SOMESG    ;print the sys version msg    1A7H
  223.         MVI    C,PRINT
  224.         CALL    MEX        
  225.         CALL    CRLF        
  226. ;
  227. CARRSH        LXI    D,NOMESG    ;no carrier present msg
  228.         CALL    CARRCK
  229.         MVI    C,PRINT
  230.         CNZ    MEX        ;print if no carrier
  231.         LXI    D,CARMSG    ;carrier present
  232.         MVI    C,PRINT
  233.         CALL    MEX        ;say so and continue
  234.         RET
  235. ;
  236. ; Send a break tone to reset some time-share computers.
  237. ;
  238. PBREAK:        MVI    A,BRKMSK    ;send break
  239.         OUT    MODCT1
  240.          RET
  241. ;
  242. ; Routine to return status of the modem port
  243. ;
  244. STATSND:    IN    MODCT1        ;in modem contol port
  245.         PUSH     B        ;just in case
  246.         ANI    ISOCD        ;isolate status and clear CD bit
  247.         MOV    B,A        ;save status
  248.         IN     PORT        ;get CD bit
  249.         ANI    CTSMSK        ;isolate CD bit
  250.         ORA    B        ;merge CD with status
  251.         POP    B        ;restore B
  252.         RET
  253. ;
  254. ; This routine will hang up the phone by dropping DTR.
  255. ;
  256. DISCON:          MVI     A,DTRMSK    ;DTR off, send BRK
  257.               OUT    MODCT1        ;send cmd
  258.           MVI    B,5        
  259.           MVI    C,TIMER
  260.           CALL    MEX        ;delay 500 msec
  261.         MVI    A,MODCTB    ;normal setup DTR on
  262.           OUT    MODCT1
  263.           RET
  264. ;
  265. ; This area sets the SIO-UART to an initial value of 8 bits, no parity,
  266. ; DTR on, and RTS on. 
  267. ;
  268. NITMOD:          MVI    A,1
  269.           OUT    PORT        ;reset the USART to
  270.           MVI    A,MODCTB    ;8,no,1,DTR, and RTS
  271.           OUT    MODCT1
  272.         LXI    H,MSPEED
  273.         MOV    A,M        ;initalize to MSPEED baud rate
  274.         CALL    PBAUD        ;get baud rate
  275.           RET            ;also change the value of MSPEED
  276. ;
  277. ;  Sets the modem speed via the SET COMMAND.
  278. ;
  279. SETCMD:        MVI    C,SBLANK    ;any arguments
  280.         CALL    MEX
  281.         JC    SETSHO        ;if not print out values
  282.         LXI    D,CMDTBL    ;parse commands
  283.         CALL    TSRCH        ;from table
  284.         PUSH    H        ;address on stack
  285.         RNC            ;if yes then execute it
  286.         POP    H        ;no fix stack
  287. SETERR:          LXI    D,SETEMS    ;no then print error
  288.           MVI     C,PRINT
  289.           CALL    MEX
  290.           RET
  291. CMDTBL:        DB    '?'+80H        ;"set ?"
  292.         DW    STHELP
  293.         DB    'BAU','D'+80H    ;"set baud ?'
  294.         DW    STBAUD
  295.         DB    'WOR','D'+80H    ;set word length
  296.         DW    STWORD
  297.         DB    'PARIT','Y'+80H ;set parity
  298.         DW    STPAR
  299.         DB    'STO','P'+80H    ;set stop bits
  300.         DW    STSTOP
  301.                 DB       'ANSWE','R'+80H ;set auto-answer on
  302.         DW    STANS
  303.         DB    0    
  304. SETSHO:        CALL    CLS        ;clear screen
  305.         CALL    CARRSH        ;carrier present
  306.         LXI    H,SHOTBL    ;show subroutines table
  307. SETSLP:     MOV    E,M        ;get table address
  308.         INX    H
  309.         MOV    D,M
  310.         INX    H
  311.         MOV    A,D        ;end of table
  312.         ORA    E
  313.         RZ            ;exit if yes
  314.         PUSH    H        ;save table pointer
  315.         XCHG            ;addrs to HL
  316.         CALL    GOHL        ;do it
  317.         CALL    CRLF        ;print newline
  318.         MVI    C,CHEKCC    ;check for console abort
  319.         CALL    MEX        
  320.         POP    H        ;its done
  321.         JNZ    SETSLP        ;continue if no abort
  322.         RET
  323. GOHL:        PCHL
  324. SHOTBL:        DW    BDSHOW        ;table
  325.         DW    PARSHOW
  326.         DW    WLSHOW
  327.         DW    STSHOW
  328.         DW    0
  329. STHELP:        LXI    D,HLPMSG    ;print help message
  330.         MVI    C,PRINT
  331.         CALL    MEX
  332.         RET
  333. STBAUD:        MVI    C,BDPARS    ;MEX find baud rate        
  334.         CALL    MEX
  335.         JC     SETERR        ;none then exit
  336.         CALL    PBAUD        ;valid baud rate then set it
  337.         JC     SETERR        ;exit if not supported by overlay
  338. BDSHOW:        CALL    ILPRT
  339.         DB    'Baud Rate:',TAB,' ',0
  340.         LDA    MSPEED        ;get MSPEED to determine present
  341.         MVI    C,PRBAUD    ;baud rate
  342.         CALL    MEX
  343.         RET    
  344. STPAR:        LXI    D,PARTBL    ;find parity function requested
  345.         CALL    TSRCH
  346.         PUSH    H
  347.         RNC            ;execute it
  348.         POP    H
  349.         JMP    SETERR        ;not valid then say so         
  350. STWORD:        LXI    D,WLTBL        ;find word length function requested
  351.         CALL    TSRCH
  352.         PUSH    H
  353.         RNC            ;execute it
  354.         POP    H
  355.         JMP    SETERR        ;not valid then say so
  356. STSTOP:        LXI    D,STTBL        ;find how many stop bits 
  357.         CALL    TSRCH
  358.         PUSH    H
  359.         RNC            ;execute it
  360.         POP    H
  361.         JMP    SETERR        ;not valid then say so 
  362. STANS:          CALL    CLS        ;clear the screen
  363.         PUSH    H        ;save H
  364.         LXI    H,ANSON        ;get the set command
  365.         CALL    SMSEND        ;send it
  366.         POP    H
  367.         CALL    CRLF        ;get ready for msg
  368.         CALL    CRLF
  369.         LXI    D,ANSMSG    ;and tell us about it
  370.         MVI    C,PRINT
  371.         CALL    MEX
  372. WAITCD:        CALL    INPORT        ;to  clear garbage
  373.         CALL    CARRCK        ;check for carrier
  374.         JZ    TSTBAUD        ;yes - go check baud rate...
  375.         MVI    C,CHEKCC    ;no check for ^C
  376.         CALL    MEX
  377.         JNZ    WAITCD        ;no carrier, no ^C so try again
  378.         PUSH    H        ;save H
  379.         LXI    H,ANSOFF    ;turn off auto answer at modem
  380.         CALL    SMSEND        ;send it
  381.         POP    H
  382.         LHLD    WMBOOT        ;^C -load CPM return address from
  383.                     ;stack pointer storage 
  384.         SPHL            ;put it in the stack pointer
  385.         RET            ;and go to CPM
  386. TSTBAUD:    CALL    INPORT        ;get byte from modem
  387.         CPI    CR        ;if CR            
  388.         RZ            ;baud rate is good go to MEX
  389.         CPI    LF        ;if LF
  390.         RZ            ;baud rate is good go to MEX
  391.         CPI    'C'-40H     ;if ^C
  392.         RZ            ;baud rate is good go to MEX
  393.         PUSH    H
  394.         PUSH    B
  395.         PUSH    D
  396.         LXI    H,BAUD        ;get baud rate start byte
  397.         MOV    A,M        ;get it out of memory    
  398.         MOV    C,A        ;set it up to operate on it
  399.         INR    C        ;add 1 to it
  400.         MOV    M,C        ;and put it back in start byte
  401.         CALL    PBAUD        ;go set baud rate and MSPEED
  402.         CPI    6        ;have we tried 1200 baud
  403.         JNZ    TSTBAUD        ;no then we're not done
  404.         XRA    A        ;yes then get ready for retry
  405.         STA    BAUD        ;by setting baud back to 110
  406.         POP    D
  407.         POP    B
  408.         POP    H
  409.         JMP    WAITCD        ;we didn't find a good baud rate
  410.                     ;so keep trying until - 1. get a
  411.                     ;good baud rate  2. get a ^C, or
  412.                     ;3. hangup causes carrier loss.
  413. ;
  414. HLPMSG:    DB    CR,LF,1AH,'SET command, TRS MOD 4 version 1.8',CR,LF
  415.     DB    CR,LF,'SET BAUD 300 <or> 1200 <or> 2400 <or> 4800 <or> 9600'
  416.     DB    CR,LF,'SET PARITY ON <or> OFF <or> ODD <or> EVEN'
  417.     DB    CR,LF,'SET WORD 5 <or> 6 <or> 7 <or> 8'
  418.     DB    CR,LF,'SET STOP 1 <or> 2'
  419.         DB    CR,LF,'SET ANSWER <on> '
  420.     DB    CR,LF,LF,'Auto Answer configured for the Model 4p internal'
  421.     DB    ' modem only.',CR,LF
  422.     DB    CR,LF,'$'        
  423. SETEMS:          DB    CR,LF,'SET command error',CR,LF,LF,'$'
  424. TSRCH:        MVI    C,LOOKUP
  425.           JMP    MEX
  426. ;
  427. ILPRT:        MVI    C,ILP        ;MEX print function
  428.         JMP    MEX
  429. ;
  430. CRLF:        MVI    A,CR        ;newline on console
  431.         CALL    TYPE
  432.         MVI    A,LF
  433. TYPE:        PUSH    H        ;save em
  434.         PUSH    D
  435.         PUSH    B
  436.         MOV    E,A
  437.         MVI    C,CONOUT    ;align output char
  438.         CALL    MEX        ;print via mex
  439.         POP    B        ;restore em
  440.         POP    D
  441.         POP    H
  442.         RET        
  443. ;
  444. ; Test for printer ready
  445. ;
  446. PRTSTS:          IN    PRPORT        ;get printer status
  447.           ANI    PRSTAT        ;isolate it
  448.           JNZ    PRTSTS1        ;return if not ready A=00
  449.           MVI    A,0FFH        ;ready A=FF 
  450.         RET
  451. PRTSTS1:    XRA    A
  452.         RET
  453. ; Carrier detect  0=CARRIER
  454. ;
  455. CARRCK:        IN    PORT        ;get carrier bit
  456.         ANI    CTSMSK
  457.         RET
  458. ;    
  459. ; Baud rate set routine 
  460. ;
  461. PBAUD:          PUSH    H        ;save everybody
  462.           PUSH    B
  463.           PUSH    D
  464.         MOV    E,A        ;get speed
  465.         MVI    D,0        ;zero the other half of reg pair
  466.         LXI    H,BAUDTB    ;get baud rate table address
  467.         DAD    D        ;add speed offset
  468.         MOV    A,M        ;get baud rate  
  469.         ORA    A        ;0=not valid baud rate
  470.         JZ    PBEXIT        ;not valid baud rate then exit
  471.         OUT    BAUDRP        ;good baud rate then set it
  472.         MOV    A,E        ;get speed 
  473.         STA    MSPEED        ;set speed
  474.         JMP    PBEXIT1        ;return 
  475. PBEXIT:        STC
  476. PBEXIT1:    POP    B        ;no carrier or incorrect baud rate
  477.           POP    D
  478.           POP       H
  479.           RET
  480. ;
  481. BAUDTB:        DB    0,055H,0,0,0        ;110,300,450,610,710
  482.         DB    077H,0AAH,0CCH,0EEH,0    ;1200,2400,4800,9600,19200
  483. ;
  484. STTBL:        DB    '1'+80H        ;stop bit tabe
  485.         DW    STONE        ;set one bit
  486.         DB    '2'+80H
  487.         DW    STTWO        ;set two bits
  488.         DB    0
  489. ;
  490. PARTBL:        DB    'O','N'+80H    ;parity table
  491.         DW    STON        ;enable parity
  492.         DB    'OF','F'+80H
  493.         DW    STOFF        ;disable parity
  494.         DB    'EVE','N'+80H
  495.         DW    STEVE        ;even parity
  496.         DB    'OD','D'+80H
  497.         DW    STODD        ;odd parity    
  498.         DB    0
  499. ;
  500. WLTBL:        DB    '5'+80H        ;word length table
  501.         DW    STFIVE        ;5 bit length
  502.         DB    '6'+80H
  503.         DW    STSIX        ;6 bit length
  504.         DB    '7'+80H
  505.         DW    STSEV        ;7 bit length
  506.         DB    '8'+80H
  507.         DW    STATE        ;8 bit length
  508.         DB    0
  509. ;
  510. STFIVE:        MVI     A,MODCTB    ;get current port info
  511.         ANI    09FH        ;change to 5 bits
  512.         STA    MODCTB        ;put back new port info
  513.         MVI    A,'5'        ;set 5 bit flag
  514. STFIVE1:    STA    WLTEL        
  515.         CALL    CARRCK        ;carrier present
  516.         RZ            ;yep then continue
  517.         CALL    TYPE        ;position cursor
  518.         CALL    WLSHOW        ;nope show word length
  519.         RET
  520. STSIX:        MVI    A,MODCTB    ;get current port info 
  521.         ORI    040H        ;set six bits    
  522.         ANI    0DFH
  523.         STA    MODCTB        ;put new 
  524.         MVI    A,'6'        ;set six bit flag
  525.         JMP    STFIVE1
  526. STSEV:        MVI    A,MODCTB    ;get current port info
  527.         ORI    020H        ;set seven bits
  528.         ANI    0BFH
  529.         STA    MODCTB        ;put back new port info
  530.         MVI    A,'7'        ;set 7 bit flag            
  531.         JMP    STFIVE1
  532. STATE:        MVI    A,MODCTB    ;get current port info
  533.         ORI    060H        ;set eight bit
  534.         STA    MODCTB        ;put back new port info
  535.         MVI    A,'8'        ;set 8 bit flag
  536.         JMP    STFIVE1
  537. ;
  538. STON:        MVI    A,MODCTB    ;get current port info
  539.         ANI    0F7H        ;set parity on
  540.               STA    MODCTB        ;put back new port info
  541.         MVI    A,YES
  542. STON1:        STA    PARTEL        ;set parity on flag
  543.         CALL    CARRCK        ;carrier present
  544.         RZ            ;yep then continue
  545.         CALL    TYPE        ;position cursor
  546.         CALL    PARSHOW        ;nope then show parity info 
  547.         RET
  548. STOFF:        MVI    A,MODCTB    ;get curent port info
  549.         ORI    008H        ;set parity off
  550.         STA    MODCTB        ;put back new port info
  551.         MVI    A,NO        ;set no parity flag
  552.         JMP    STON1    
  553. STODD:        MVI    A,MODCTB    ;get current port info
  554.         ANI    07FH        ;set parity odd
  555.         STA    MODCTB        ;put back new port info
  556.         MVI    A,YES        ;set parity odd flag
  557. STODD1:        STA    PARTEL1
  558.         CALL    CARRCK        ;carrier present
  559.         RZ            ;yep then return
  560.         CALL    TYPE        ;position cursor
  561.         CALL    PARSHOW        ;nope show parity info
  562.         RET
  563. STEVE:        MVI    A,MODCTB    ;get current port info
  564.         ORI    080H        ;set even parity
  565.         STA    MODCTB        ;put back new port info
  566.         MVI    A,NO        ;set even parity flag
  567.         JMP    STODD1
  568. STONE:        MVI    A,MODCTB    ;get current port info
  569.         ANI    0EFH        ;set one stop bit 
  570.         STA    MODCTB        ;put back new port info
  571.         MVI    A,YES        ;set one stop bit flag
  572. STONE1:        STA    STTEL        
  573.         CALL    CARRCK        ;carrier present
  574.         RZ            ;yep then continue
  575.         CALL    STSHOW        ;nope show stop bit info 
  576.         RET
  577. STTWO:        MVI    A,MODCTB    ;get current port info
  578.         ORI    010H        ;set two stop bits
  579.         STA    MODCTB        ;put back new port info
  580.         MVI    A,NO        ;set two stop bit flag
  581.         JMP    STONE1            
  582. ;
  583. PARSHOW:    LXI    D,PARMSG    ;get parity message
  584.         MVI    C,PRINT        ;print it
  585.         CALL    MEX
  586.         LXI    D,PONMSG    ;get set for parity on
  587.         MVI    C,PRINT
  588.         LDA    PARTEL        ;get flag
  589.         CPI    YES         ;is it on
  590.         JZ    PARSHOW1    ;yes then say so
  591.         LXI    D,POFMSG    ;no then get parity off message
  592.         MVI    C,PRINT        ;print it
  593.         CALL    MEX
  594.         RET
  595. PARSHOW1:    CALL    MEX
  596.         LXI    D,ODDMSG    ;get parity odd message
  597.         MVI    C,PRINT
  598.         LDA    PARTEL1        ;get odd parity flag
  599.         CPI    YES        ;is it odd
  600.         JNZ      PARSHOW2    ;nope get even message
  601.         CALL    MEX        ;yes then say so 
  602.         RET
  603. PARSHOW2:    LXI    D,EVEMSG    ;get even parity message
  604.         MVI    C,PRINT        
  605.         CALL    MEX        ;print it
  606.         RET
  607. ;
  608. WLSHOW:        LXI    D,WLMSG        ;get word length message
  609.         MVI    C,PRINT
  610.         CALL    MEX        ;print it
  611.         LXI    D,FIVEMSG    ;load five bit message
  612.         MVI    C,PRINT    
  613.         LDA    WLTEL        ;get word length flag 
  614.         CPI    '5'        ;is it five
  615.         JNZ     SIX        ;nope try six
  616.         CALL    MEX        ;yes then show it
  617.         RET
  618. SIX:        LXI    D,SIXMSG    ;load six bit message
  619.         MVI    C,PRINT
  620.         CPI    '6'        ;is it six
  621.         JNZ    SEV        ;nope try seven
  622.         CALL    MEX        ;yep then show it
  623.         RET
  624. SEV:        LXI    D,SEVMSG    ;load seven bit message
  625.         MVI    C,PRINT
  626.         CPI    '7'        ;is it seven
  627.         JNZ    ATE        ;nope try eight
  628.         CALL    MEX        ;yep then show it
  629.         RET
  630. ATE:        LXI    D,ATEMSG    ;load eight bit message
  631.         MVI    C,PRINT
  632.         CALL    MEX        ;print it
  633.         RET
  634. ;
  635. STSHOW:        LXI    D,STOPMSG    ;get stop bit message
  636.         MVI    C,PRINT        ;print it
  637.         CALL    MEX
  638.         LXI    D,STOPMSG1    ;get stop bit 1 message
  639.         MVI    C,PRINT
  640.         LDA    STTEL        ;is it 1 bit
  641.         CPI    YES
  642.         JNZ    STSHOW1        ;nope try two
  643.         CALL    MEX        ;yep then show it 
  644.         RET
  645. STSHOW1:    LXI    D,STOPMSG2    ;get stop bit 2 message
  646.         MVI    C,PRINT
  647.         CALL    MEX        ;print it
  648.         RET
  649. ;
  650. ; Message area
  651. ;
  652. BAUD:        DB    0        ;300 baud
  653. PARTEL:        DB    NO        ;yes=parity, no=no parity
  654. PARTEL1:    DB    YES        ;yes=odd parity, no=even
  655. WLTEL:        DB    '8'        ;5=5 bits,6=6 bits, etc.
  656. STTEL:        DB    YES        ;yes=1 stop, no=2 stop 
  657. STOPMSG:    DB    'Number of stop bits is $'
  658. STOPMSG1:    DB    '1$'
  659. STOPMSG2:    DB    '2$'        
  660. WLMSG:        DB    'Word length is $'
  661. FIVEMSG:    DB    '5 bits$'
  662. SIXMSG:        DB    '6 bits$'
  663. SEVMSG:        DB    '7 bits$'
  664. ATEMSG:        DB    '8 bits$'      
  665. PARMSG:        DB    'Parity is: $'
  666. PONMSG:        DB    'on and $'
  667. POFMSG:        DB    'off$'
  668. ODDMSG:        DB    'odd$'
  669. EVEMSG:        DB    'even$'
  670. CLSMSG:          DB    CR,LF,1AH,'$'
  671. EOSMSG:          DB    CR,LF,19H,'$'
  672. SOMESG:          DB    'TRS Mod 4 CP/M 2.2 overlay V'
  673.           DB    REV/10+'0'
  674.           DB    '.'
  675.           DB    REV MOD 10+'2','$'
  676. NOMESG:        DB    'no $'
  677. CARMSG:        DB    'carrier present',CR,LF,'$'
  678. ANSON:        DB    '*C*MAG@',125,'X',CR,0    ;turn on auto answer
  679. ANSOFF:        DB    '*C',CR,0        ;turn off auto answer
  680. ANSMSG:        DB    'Modem answer mode now turned on. '
  681.         DB    '[Use ^C to abort to CP/M]'
  682.         DB    CR,LF,'$'
  683. ;
  684. SMSEND:        MVI    C,SNDRDY
  685.         CALL    MEX
  686.         JNZ    SMSEND
  687.         MOV    A,M
  688.         INX    H
  689.         ORA    A
  690.         RZ
  691.         MOV    B,A
  692.         MVI    C,SNDCHR
  693.         CALL    MEX
  694.         JMP    SMSEND
  695. ;
  696. ;----------------------------------------------------------------------
  697. ; NOTE:  MUST TERMINATE PRIOR TO 0B00H (with Smartmodem or Anchor)
  698. ;----------------------------------------------------------------------
  699. ; End of TRS-80 MOD IV  MEX modem overlay
  700.         END
  701. r)
  702. ;-