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