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