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