home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / MEX / MXH-VT36.AZM / MXH-VT36.ASM
Assembly Source File  |  2000-06-30  |  21KB  |  638 lines
  1. ; Title - Overlay file for MEXxx
  2. ;
  3. REV     EQU     36    ; V 3.6 
  4. ;
  5. ;
  6. ;This  Overlay  File  supports  the DEC Micro VT180 with CP/M.
  7. ;
  8. ;We  use the COMM-Port of the Micro's.  Baud-rates are "parallel"
  9. ;to the console Baud-rates - no need for  a  "special"  baud-rate
  10. ;routine.   Since  the COMM-port is I/O-wise Reader/Punch, we use
  11. ;the BDOS calls.
  12. ;
  13. ;To  test  for  COMM-status  ,  we  use  I/O  byte redirection in
  14. ;conjunction with direct BIOS-CONSTAT call.
  15. ;
  16. ;This  technique  although  a  little  bit slower than direct I/O
  17. ;using  Interrupt  on  INPUT  is  general  enough  to  be  system
  18. ;independent.
  19. ;
  20. ;       - B. Eiben DEC Large System Marketing Marlboro Mass
  21. ;
  22. ; And more or less bios version independant.--Bill Pechter
  23. ;
  24. ;***********************************************************************
  25. ;
  26. ;  5-Jun-1984   Adapted from M7VT-2.ASM by Bernie Eiben.  
  27. ;   Rev 1.0     
  28. ;  Stu Fuller
  29. ;
  30. ; 17-Mar-86    Version 3.4 removed ZCPR2/3 bit manipulation.  That will
  31. ; Bill Pechter    now be done by poke commands in Mex/Mexplus Ini.Mex.
  32. ; 
  33. ; 22-Aug-86     Version 3.5 test to fix sendout.  Added test for status
  34. ; Bill Pechter    and RETJNK to avoid hanging.
  35. ;
  36. ; 29-Aug-86     Final Version 3.6 supports full Remote operation.
  37. ; Bill Pechter  Support for future versions from me not available
  38. ;        as they will be made specifically for my modified Robin.
  39. ;
  40. ;______________________________________________________________________________
  41. ;
  42. ;            ZCPR2            ZCPR3        ZCPR3 with RCP
  43. ;______________________________________________________________________________
  44. ;
  45. ; change contents     EA3CH            EAFEH        E240H
  46. ; at this address
  47. ; to 64H from 74H to
  48. ; disable wordstar
  49. ; ^x^s cursor key
  50. ; translation.
  51. ;______________________________________________________________________________
  52. ;
  53. ; change contents    EA60H            EB1CH        E31CH
  54. ; at this address to 
  55. ; 01 from 05H to
  56. ; disable the 
  57. ; automatic xoff-xon
  58. ; transmission.
  59. ;
  60. ;------------------------------------------------------------------------------
  61. ;
  62. ;bios code looks like this--example using ZCPR3 without RCP
  63. ;
  64. ;        Port#        Port control       data
  65. ;            block    
  66. ;
  67. ;contents:  41H        74H          00
  68. ;address   eafdH    eafeH          eaff
  69. ;
  70. ; QMRCVFL EQU     01H     ; Mask to allow me to send XON/XOFF
  71. ; QMXOFFD EQU     02H     ; Mask indicating I sent an XOFF
  72. ; QMXMTFL EQU     04H     ; Mask to allow other end to stop me
  73. ; QMSUSP  EQU     08H     ; Mask indicating I got an XOFF
  74. ; QMARROW EQU     10H     ; Mask for arrow xlate bit
  75. ; QMBIT7  EQU     20H     ; Mask for "use only 7 bits"
  76. ; QMCCFLS EQU     40H     ; Mask for "flush buffer if 2 ^C's seen"
  77. ; QM1STCC EQU     80H     ; Mask for "first ^C seen"
  78. ;
  79. ;NOTE:  DO NOT poke any bits with CP/M80 (STANDARD DEC DISTRIBUTION) or
  80. ;    MultiSystem 180 (by Ken Heyda)...poking of random bits would
  81. ;    be disasterous.
  82. ;
  83. ;****************************************************************************
  84. ;
  85. ;
  86. TRUE:           EQU     0FFH
  87. FALSE:          EQU     0
  88. YES:            EQU     0FFH
  89. NO:             EQU     0
  90. ;
  91. BELL    EQU     07H             ;bell
  92. TAB    EQU     9
  93. CR    EQU     13              ;carriage return
  94. LF    EQU     10              ;linefeed
  95. ESC    EQU     1BH             ;escape
  96. ;
  97. ;
  98. ;
  99. I8080    equ    yes
  100. I8086    equ     no
  101. CPM    equ     yes
  102. PCDOS    equ     no
  103. ;
  104. ;
  105. ;
  106. ;    SET ONE (and only one) OF EACH SET OF THE FOLLOWING CONDITIONALS
  107. ;    DEPENDING ON VERSION OF SOFTWARE and CPU TYPE
  108. ;
  109. ;
  110. ;        Mex Type
  111. ;
  112. MEXONE         EQU FALSE    ; version 1.10 through 1.14
  113. MEXTWO         EQU TRUE     ; version 1.24 through 1.63 (MexPlus)
  114. ;
  115. ;
  116.  
  117. ;
  118. DAV     EQU     0FFH            ;bit(s) to test for ready
  119. TBMT    EQU     0FFH            ;
  120. ;*****************************************************************************; =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =
  121. ;
  122. ;
  123. ; The Check for characters at COMM-Port using I/O redirection
  124. ;
  125. IOBYTE  EQU     3               ; some definitions
  126. ;
  127. ;
  128. DEFIO    EQU    95H        ;
  129. BATIO   EQU     56H             ;
  130. ;
  131. ; MEX service processor stuff
  132. ;
  133. MEX     EQU     0D00H           ;address of the service processor
  134. INMDM   EQU     255             ;get char from port to A, CY=none in 100 ms
  135. TIMER   EQU     254             ;delay 100ms * reg B
  136. TMDINP  EQU     253             ;B=# secs to wait for char, cy=no char
  137. CHEKCC  EQU     252             ;check for ^C from KBD, Z=present
  138. SNDRDY  EQU     251             ;test for modem-send ready
  139. RCVRDY  EQU     250             ;test for modem-receive ready
  140. SNDCHR  EQU     249             ;send a character to the modem (after sndrdy)
  141. RCVCHR  EQU     248             ;recv a char from modem (after rcvrdy)
  142. LOOKUP  EQU     247             ;table search: see CMDTBL comments for info
  143. PARSFN  EQU     246             ;parse filename from input stream
  144. BDPARS  EQU     245             ;parse baud-rate from input stream
  145. SBLANK  EQU     244             ;scan input stream to next non-blank
  146. EVALA   EQU     243             ;evaluate numeric from input stream
  147. LKAHED  EQU     242             ;get nxt char w/o removing from input
  148. GNC     EQU     241             ;get char from input, cy=1 if none
  149. ILP     EQU     240             ;inline print
  150. DECOUT  EQU     239             ;decimal output
  151. PRBAUD  EQU     238             ;print baud rate
  152. ;
  153. PUNCH:  EQU     4               ;BDOS/MEX punch function
  154. READER: EQU     3               ;BDOS/MEX reader function
  155. PRINT   EQU     9               ;BDOS/MEX print-string function call
  156. ;
  157. ;
  158. ;
  159. ORG    100H
  160. ;
  161. IF MEXTWO
  162. ;
  163. ;  LINE BELOW ADDED FOR MEX V1.24 TO MAKE LOADABLE OVERLAY
  164. ;
  165. DB    0C3H    
  166. ;
  167. ;
  168. ;
  169. ;
  170.         DS      2               ;(for  "JMP   START" instruction)
  171. ENDIF;MEXTWO
  172. ;
  173. IF MEXONE
  174. ;
  175.     DS    3
  176. ;
  177. ;
  178. ENDIF;MEXONE
  179. ;
  180. ; Change the clock speed to suit your system
  181. ;
  182. PMMIMODEM:  DB  NO              ;yes=PMMI S-100 Modem                   103H
  183. SMARTMODEM: DB  YES        ;yes=HAYES Smartmodem, no=non-PMMI      104H
  184. TONE    DB      'P'             ;T=touch, P=pulse (Smartmodem-only)     105H
  185. CLOCK:  DB      40              ;clock speed in MHz x10, 25.5 MHz max.  106H
  186.                                 ;20=2 MHh, 37=3.68 MHz, 40=4 MHz, etc.
  187. MSPEED: DB      5               ;0=110 1=300 2=450 3=600 4=710 5=1200   107H
  188.                                 ;6=2400 7=4800 8=9600 9=19200 default
  189.                 ;set to 300 baud...
  190. BYTDLY: DB      5               ;0=0 delay  1=10ms  5=50 ms - 9=90 ms   108H
  191.                                 ;default time to send character in ter-
  192.                                 ;minal mode file transfer for slow BBS.
  193. CRDLY:  DB      5               ;0=0 delay 1=100 ms 5=500 ms - 9=900 ms 109H
  194.                                 ;default time for extra wait after CRLF
  195.                                 ;in terminal mode file transfer
  196. COLUMS: DB      5               ;number of DIR columns shown            10AH
  197. SETFLG: DB      YES             ;yes=user-added Setup routine           10BH
  198. SCRTST: DB      YES             ;Cursor control routine                 10CH
  199. ACKNAK: DB      YES             ;yes=resend a record after any non-ACK  10DH
  200.                                 ;no=resend a record after a valid-NAK
  201. BAKFLG: DB      YES             ;yes=change any file same name to .BAK  10EH
  202. CRCDFL: DB      YES             ;yes=default to CRC checking            10FH
  203. TOGCRC: DB      YES             ;yes=allow toggling of CRC to Checksum  110H
  204. CVTBS:  DB      NO              ;yes=convert backspace to rub           111H
  205. TOGLBK: DB      YES             ;yes=allow toggling of bksp to rub      112H
  206. ADDLF:  DB      NO              ;no=no LF after CR to send file in      113H
  207.                                 ;terminal mode (added by remote echo)
  208. TOGLF:  DB      YES             ;yes=allow toggling of LF after CR      114H
  209. TRANLOGON:  DB     YES             ;yes=allow transmission of logon        115H
  210.                                 ;write logon sequence at location LOGON
  211. SAVCCP: DB      YES             ;yes=do not overwrite CCP               116H
  212. LOCONEXTCHR: DB NO              ;yes=local command if EXTCHR precedes   117H
  213.                                 ;no=external command if EXTCHR precedes
  214. TOGGLELOC:      DB      YES             ;yes=allow toggling of LOCONEXTCHR      118H
  215. LSTTST: DB      YES             ;yes=printer available on printer port  119H
  216. XOFTST: DB      NO              ;yes=checks for XOFF from remote while  11AH
  217.                                 ;sending a file in terminal mode
  218. XONWT:  DB      NO              ;yes=wait for XON after CR while        11BH
  219.                                 ;sending a file in terminal mode
  220. TOGXOF: DB      YES             ;yes=allow toggling of XOFF checking    11CH
  221. IGNCTL: DB      NO              ;yes=CTL-chars above ^M not displayed   11DH
  222. EXTRA1: DB      0               ;for future expansion                   11EH
  223. EXITCHR DB      'E'-40H         ;^E = Exit to main menu                 11FH
  224. BRKCHR:    DB    'B'-40H        ;^B = Send 300 ms. break tone        120H
  225. NOCONN:    DB    'N'-40H        ;^N = Disconnect from the phone line    121H
  226. LOGCHR: DB      'L'-40H         ;^L = Send logon                        122H
  227. LSTCHR: DB      'P'-40H         ;^P = Toggle printer                    123H
  228. UNSAVE: DB      'R'-40H         ;^R = Close input text buffer           124H
  229. TRNCHR: DB      'T'-40H         ;^T = Transmit file to remote           125H
  230. SAVCHR: DB      'Y'-40H         ;^Y = Open input text buffer            126H
  231. EXTCHR: DB      '^'-40H         ;^^ = Send next character               127H
  232.         DS      2               ;unused by MEX                          128H
  233. ;
  234. INCTL1: JMP     INSP            ;go input status port                   12AH
  235.         DS      7
  236. ;
  237. OTDATA: JMP     OUTDP           ;go output data port                    134H
  238.         DS      7
  239. ;
  240. INPORT: JMP     INDP            ;go input data port                     13EH
  241.         DS      7
  242. ;
  243. MASKR:  ANI     DAV     ! RET   ;bit to test for receive ready          148H
  244. TESTR:  CPI     DAV     ! RET   ;value of rcv. bit when ready           14BH
  245. ; Note: most overlays will use ANI TBMT at MASKS.
  246. ; However, we don't bother with it here.  TESTS: will always return ready
  247. MASKS:  MVI     A,TBMT  ! RET   ;bit to test for send ready             14EH
  248. TESTS:  CPI     TBMT    ! RET   ;value of send bit when ready           151H
  249. ;
  250. ;
  251. ;
  252. IF MEXTWO
  253. ;
  254. DCDTST:    JMP DCDVEC        ;DATA CARIER DETECT             154H
  255. RNGDET:    JMP RNGVEC        ;RING DETECT VECTOR            157H
  256. DS    5
  257. ENDIF;MEXTWO
  258. ;
  259. ;
  260. IF MEXONE
  261. ;
  262. DS    11
  263. ENDIF;MEXONE
  264. ;
  265. DIALV:  DS      3               ;DIALV not done here (maybe MXO-SM)     162H
  266. SMDISC: DS      3               ; smartmodem overlay DISCV likewise 
  267.                 ; (dumb modem...now we do discon below)
  268. DISCV:  JMP    DISCON        ;here's where we goto on DSC cmd.
  269. GOODBV: JMP     GOODBY          ;                                       168H
  270. INMODV: JMP     NITMOD          ;go to user written routine             16BH
  271.         RET ! NOP ! NOP         ;NEWBDV                                 16EH
  272.         RET ! NOP ! NOP         ;NOPARV                                 171H
  273.         RET ! NOP ! NOP         ;PARITV                                 174H
  274. SETUPV: JMP     SETCMD          ;                                       177H
  275.         DS      3               ;not used by MEX                        17AH
  276. VERSNV: JMP     SYSVER          ;                                       17DH
  277. BREAKV: JMP     SBREAK          ;                                       180H
  278. ;
  279. ; Do not change the following six lines (they provide access to routines
  280. ; in MEX that are present to support MDM7 overlays -- they will likely
  281. ; be gone by MEX v2.0).
  282. ;
  283. ILPRTV: DS      3               ;                                       183H
  284. INBUFV  DS      3               ;                                       186H
  285. ILCMPV: DS      3               ;                                       189H
  286. INMDMV: DS      3               ;                                       18CH
  287.         DS      3               ;                                       18FH
  288. TIMERV  DS      3               ;                                       192H
  289. ;
  290. ;
  291. ;
  292. ; Routine to clear to end of screen.  If using CLREOS and CLRSCRN, set
  293. ; SCRTEST to YES at 010AH (above).
  294. ;
  295. ;
  296. CLREOS:         LXI     D,EOSMSG        ;                               195H
  297.                 MVI     C,PRINT
  298.                 CALL    MEX
  299.                 RET
  300. ;
  301. CLS:            LXI     D,CLSMSG        ;                               19EH
  302.                 MVI     C,PRINT
  303.                 CALL    MEX
  304.                 RET
  305. ;
  306. ;       End of fixed areas
  307. ;
  308. ;.....
  309.  
  310. ;
  311. ; LINE BELOW ADDED FOR MEX V1.24 
  312. ;
  313. IF MEXTWO
  314. ;
  315. ORG 200H    
  316. ;
  317. ;
  318. ENDIF;MEXTWO
  319. ;
  320. ;
  321. TELL:      MVI    C,ILP
  322.       CALL    MEX        ;Print current baud rate
  323.       DB    CR,LF,'Actual baud rate from Set-up B ',0
  324.       MVI    C,ILP
  325.       CALL    MEX
  326.       DB    CR,LF,'Apparent Baud rate is now: ',0
  327.       LDA    MSPEED
  328.       MVI    C,PRBAUD
  329.       CALL    MEX
  330.       RET
  331. ;
  332. ;
  333. ;
  334. ; Modem I/O primitive
  335. ;
  336. ; Subroutine to output a character to the modem.
  337. ; This routine does it's own status checking.
  338. ;
  339. OUTDP:  PUSH    B               ;save...
  340.         PUSH    D               ;...the...
  341.         PUSH    H               ;...registers.
  342.         MOV     E,A             ;move output byte into E
  343.         MVI     C,PUNCH         ;use the BDOS function
  344.         CALL    MEX             ;go
  345.         POP     H               ;restore...  
  346.         POP     D               ;...the...
  347.         POP     B               ;...registers.
  348.         RET
  349. ;.....
  350. ;
  351. ;
  352. ; Subroutine to input a character from the modem.
  353. ; This routine will not wait until one becomes available.
  354. ;
  355. INDP:   CALL INSP
  356.     JZ RETJNK
  357.     PUSH    B               ;save...
  358.         PUSH    D               ;...the...
  359.         PUSH    H               ;...regesters.
  360.         MVI     C,READER        ;use the BDOS function
  361.         CALL    MEX             ;go
  362.         POP     H               ;restore...
  363.         POP     D               ;...the...
  364.         POP     B               ;...registers.
  365.         RET
  366. ;
  367. ;
  368. RETJNK: MVI A,0            ;Return junk if not ready
  369.     RET            ; so we don't hang
  370. ;
  371. ;
  372. ; The Check for characters at COMM Port using I/O redirection
  373. ;
  374. INSP:   PUSH    B
  375.         PUSH    D
  376.         PUSH    H               ; save the environment
  377.         MVI     A,BATIO         ; change I/O byte
  378.         STA     IOBYTE
  379.         CALL    BCONST          ; call BIOS direct - see NITMOD
  380.         PUSH    A
  381.         LDA     SAVEIO          ; change I/O byte back
  382.         STA     IOBYTE
  383.         POP     A
  384.         POP     H               ; restore environment
  385.         POP     D
  386.         POP     B
  387.         RET
  388.  
  389. ;               
  390. NITMOD: LHLD    1               ; Get BIOS Jump-table adress
  391.         LXI     D,3
  392.         DAD     D               ; CONSTAT routine in BIOS
  393.         SHLD    BCONST+1        ; modify our "routine"
  394.         LDA     IOBYTE          ; Save I/O byte
  395.         STA     SAVEIO          ;
  396. ;
  397. ;
  398. SETCMD:      MVI    C,SBLANK    ;Any arguments?
  399.       CALL    MEX
  400.       JC    TELL        ;If not, go display baud
  401.       LXI    D,CMDTBL
  402.       MVI    C,LOOKUP
  403.       CALL    MEX        ;Parse argument
  404.       PUSH    H        ;Save any parsed argument addrs on stack
  405.       RNC            ;If we have one, return to it
  406.       POP    H        ;Oops, input not found in table
  407.       MVI    C,ILP
  408.       CALL    MEX        ;Tell user input not valid
  409.       DB    '++(Only 110,300,600,1200,2400,9600,19200 supported)++',CR,LF,0 
  410.       RET
  411. ;
  412. CMDTBL:      DB    '11','0'+80H
  413.       DW    OK110
  414.       ;
  415.       DB    '30','0'+80H
  416.       DW    OK300
  417.       ;
  418.       DB    '60','0'+80H
  419.       DW    OK600
  420.       ;
  421.       DB    '120','0'+80H
  422.       DW    OK1200
  423.       ;
  424.       DB    '240','0'+80H
  425.       DW    OK2400
  426.       ;                        
  427.       DB    '480','0'+80H
  428.       DW    OK4800
  429.       ;
  430.       DB    '960','0'+80H
  431.       DW    OK9600
  432.       ;
  433.       DB    '1920','0'+80H
  434.       DW    OK19200
  435.       ;
  436.       DB    0
  437. ;
  438. ;
  439. ;
  440. ;
  441. OK110      MVI    A,0
  442.       JMP     LOADBD
  443. ;
  444. OK300:      MVI    A,1
  445.       JMP   LOADBD
  446. ;
  447. OK600      MVI    A,3
  448.       JMP     LOADBD
  449. ;
  450. OK1200:      MVI    A,5
  451.       JMP    LOADBD
  452. ;
  453. OK2400:      MVI    A,6
  454.       JMP    LOADBD
  455. ;
  456. OK4800:      MVI    A,7
  457.       JMP    LOADBD
  458. ;
  459. OK9600:      MVI    A,8
  460.       JMP    LOADBD
  461. ;
  462. OK19200:  MVI    A,9
  463. ;
  464. LOADBD:     STA MSPEED
  465.      RET             ; area for code to set actual baud rate
  466.                 ; if overlay can be hacked to use
  467.                 ; programmable port such as general purpose
  468.                 ; port
  469. ;
  470. NEWBAUD:  CPI    1
  471.       JZ    OK300
  472.       CPI    5
  473.       JZ    OK1200
  474.       CPI    6
  475.       JZ    OK2400
  476.       CPI    7
  477.       JZ    OK4800
  478.       CPI    8
  479.       JZ    OK9600
  480.       CPI    9
  481.       JZ    OK19200
  482.       RET
  483. ;
  484. ;
  485. BCONST: JMP     $-$             ; address "filled in" by above code
  486. ;
  487. ;
  488. IF MEXTWO
  489. ;
  490. ;
  491. DCDVEC:        IN 059H
  492.         ;BIT 7,A     --Z80 only instruction
  493.         DB 0CBH,07FH     
  494.         JNZ RETYES    ; THIS USES DSR TO DETECT CARRIER 
  495.         MVI  A,0
  496.         RET        ; RETURN 0FFH IF CARRIER
  497.                 ; RETURN 0 NO CARRIER
  498.                 ; RETURN 0FFE IF OVERLAY DOESN'T KNOW
  499.  
  500. RNGVEC:        IN 088H
  501.         ;BIT 3,A     --Z80 only instruction
  502.         DB 0CBH,05FH
  503.         JNZ RETYES    ; 
  504.         MVI  A,0
  505.         RET        ; RETURN 0FFH IF RING DETECTED
  506.                 ; RETURN 0 NO RING
  507.                 ; RETURN 0FFE IF OVERLAY DOESN'T KNOW
  508.  
  509. RETYES:        MVI A,0FFH    ; YES YOU HAVE IT... 
  510.         RET
  511. ;
  512. ;
  513. ENDIF;MEXTWO
  514. ;
  515. SBREAK:
  516. ;pbausl EQU     90H     ;The Baud-Rate register.
  517. prntst  EQU     49H     ;Printer
  518. ;prndat EQU     48H
  519. contst  EQU     41H     ;Console
  520. ;condat EQU     40H
  521. gentst  EQU     51H     ;General port.
  522. ;gendat EQU     50H
  523. comtst  EQU     59H     ;COMM-Port
  524. ;comdat EQU     58H
  525. ;output EQU     01H     ;Output ready bit.
  526. ;input  EQU     02H     ;Input ready bit.
  527. comctl  equ     59h             ;VT180 communications port
  528. crtctl  equ     41h             ;VT180 crt port
  529. ;VT180 serial port command bits
  530. txe     equ     1               ;transmit enable
  531. dtr     equ     2               ;dtr on
  532. rxe     equ     4               ;rx enable
  533. sndbrk  equ     0Ah        ;dtr and break...
  534. rerr    equ     10h             ;reset error
  535. rts     equ     20h             ;RTS on
  536. reset   equ     40h             ;port reset
  537. NODTR    EQU    14H
  538. ;
  539. ;send break to comm port
  540. ;
  541.         lxi     h,38500         ;250 ms(?)
  542.         mvi     a,comctl        ;Get address of selected port
  543.         mov     c,a             ;Into C
  544.         mvi     a,sndbrk
  545. ;       OUT     C,A             ;Want to send to port addressed by C
  546.         db      0EDH,079H       ;Op code for above instruction
  547. sndbrk1:dcx     h               ;timing loop...
  548.         mov     a,l
  549.         ora     h
  550.         jnz     sndbrk1          ;...until over
  551.         mvi     a,comctl        ;Get the address for the port
  552.         mov     c,a             ;Into C
  553.         mvi     a,txe+dtr+rxe+rerr+rts  ;enable tr/rc, dtr, reset error
  554. ;       out     c,a             ;Z-80 only instruction
  555.         db      0EDH,079H       ;Op code for above instruction
  556.         out     contst          ;reset ports
  557.         ret
  558.  
  559. ;
  560. ; DISCONNECT ROUTINE
  561. ;
  562. DISCON:    lxi     h,38500         ;250 ms(?)
  563.         mvi     a,comctl        ;Get address of selected port
  564.         mov     c,a             ;Into C
  565.         mvi     a,NODTR
  566. ;       OUT     C,A             ;Want to send to port addressed by C
  567.         db      0EDH,079H       ;Op code for above instruction
  568. DISCON1:dcx     h               ;timing loop...
  569.         mov     a,l
  570.         ora     h
  571.         jnz     DISCON1          ;...until over
  572.         mvi     a,comctl        ;Get the address for the port
  573.         mov     c,a             ;Into C
  574.         mvi     a,txe+dtr+rxe+rerr+rts  ;enable tr/rc, dtr, reset error
  575. ;       out     c,a             ;Z-80 only instruction
  576.         db      0EDH,079H       ;Op code for above instruction
  577.         out     contst          ;reset ports
  578.     RET        
  579. ;
  580. ;
  581. ;
  582. GOODBY:    RET 
  583. ;
  584. ;
  585. SYSVER: PUSH    B
  586.         PUSH    D
  587.         PUSH    H
  588.         LXI     D,DECMSG
  589.         MVI     C,PRINT
  590.         CALL    MEX
  591. SYSVE1: LXI     D,CRLF
  592.         MVI     C,PRINT
  593.         CALL    MEX
  594.         POP     H
  595.         POP     D
  596.         POP     B
  597.         RET
  598. ;
  599. ;       Miscellaneous storage
  600. ;
  601. SAVEIO: DB      0               ; Save the original IObyte here
  602. ;
  603. ;       Various text messages
  604. CLSMSG: DB      ESC,'[2J',ESC,'[H','$'
  605. EOSMSG: DB      ESC,'[0J','$'
  606. ;
  607. XSO     EQU     14                      ;"shift out" character
  608. XSI     EQU     15                      ;"shift in" character
  609. ;
  610. DECMSG: DB      'Version for: ',ESC,'[7m',ESC,')0'
  611.         DB      'd',XSO,'x',XSI
  612.         DB      'i',XSO,'x',XSI
  613.         DB      'g',XSO,'x',XSI
  614.         DB      'i',XSO,'x',XSI
  615.         DB      't',XSO,'x',XSI
  616.         DB      'a',XSO,'x',XSI
  617.         DB      'l',ESC,'[m '
  618.     DB    'Robin--VT180'
  619.     DB      '  Overlay V'
  620.         DB      REV/10+'0'
  621.         DB      '.'
  622.         DB      REV MOD 10+'0'
  623.         DB      '$'
  624. ;
  625. CRLF:   DB      CR,LF,'$'
  626. ;
  627. ;
  628. ;
  629. OVREND: EQU     $               ; See if it'll fit
  630.         IF OVREND / 0B00H
  631.         +++ VT180 OVERLAY TOO LARGE - OVREND >= 0B00H +++
  632.         ENDIF
  633. ;
  634. ;
  635.     END
  636.  
  637.  
  638.