cpxsys.asm

   1 IF NOT lasm
   2 .printx * CPXSYS.ASM *
   3 ENDIF   ;NOT lasm
   4 ;       KERMIT - (Celtic for "FREE")
   5 ;
   6 ;       This is the CP/M-80 implementation of the Columbia University
   7 ;       KERMIT file transfer protocol.
   8 ;
   9 ;       Version 4.0
  10 ;
  11 ;       Copyright June 1981,1982,1983,1984,1985
  12 ;       Columbia University
  13 ;
  14 ; Originally written by Bill Catchings of the Columbia University Center for
  15 ; Computing Activities, 612 W. 115th St., New York, NY 10025.
  16 ;
  17 ; Contributions by Frank da Cruz, Daphne Tzoar, Bernie Eiben,
  18 ; Bruce Tanner, Nick Bush, Greg Small, Kimmo Laaksonen, Jeff Damens, and many
  19 ; others.
  20 ;
  21 ;       This file contains the system-dependent code and data for KERMIT.
  22 ;       It will be probably be broken into independent files to generate
  23 ;       overlays for the various systems, one or more overlay possible
  24 ;       from each file.  For now, we will leave it in one piece.
  25 ;
  26 ; revision history:
  27 ;
  28 ;
  29 ; Edit 40, 28-Aug-89 by Mike Freeman of Bonneville Power Administration,
  30 ;       P.O. Box 491, Vancouver WA 98666 USA, Telephone (206)690-2307:
  31 ;       Home address:  301 N.E. 107th Street; Vancouver, WA 98685 USA
  32 ;       Home telephone:  (206)574-8221
  33 ;       added support for Hewlett-Packard HP-125 Business Assistant computer
  34 ;       running a HP-modified CP/M Version 2.2; communications on
  35 ;       DAta Comm 1 or Data Comm 2 (8th-bit quoting must be used on
  36 ;       Data Comm 2 to transfer binary files as Data Comm 2 only supports
  37 ;       a 7-bit data path); printer cannot be used with communications on
  38 ;       Data Comm 2 (the printer port).
  39 ; edit 39, 4 August, 1987b by OBSchou for Charles Lasner re. DECMATE II
  40 ;       fixes to set xon/off control off for the duration of Kermit-80.
  41 ;
  42 ;       His header reads:
  43 ;
  44 ;       IBM mode restore program
  45 ;
  46 ;       This routine must be run after using CP4DMF (and KERMIT-80) to restore
  47 ;       the normal handling of XON/XOFF; the user may also elect to cold-boot
  48 ;       the DECMATE instead.
  49 ;
  50 ;       acknowledgments and limitations.
  51 ;
  52 ;       This program is based on DECMATE specific implementation details
  53 ;       provided by Walt Lamia of DEC. It is of course, specific to DECMATE
  54 ;       implementations of CP/M-80 for DECMATE II, III, III-plus, etc.
  55 ;
  56 ;       usage consists of merely:
  57 ;
  58 ;       CP4DMF                  run xon/xoff disable program
  59 ;       KERMIT80                then run kermit
  60 ;       <KERMIT-80 commands used normally here, including SET IBM ON>
  61 ;       CP4DMU                  run this program to restore normal XON
  62 ;
  63 ;       unless CP4DMU is run following KERMIT-80, the normal handling of
  64 ;       XON/XOFF provided by KERMIT-80 will not work (cold boot is another
  65 ;       alternative).
  66 ;
  67 ;       [Note - These edits now included in the init/de-init code]
  68 ;
  69 ; edit 38, 23 July, 1987 by OBSchou.  Moved out commonly used code
  70 ;       to CPXCOM.ASM, and adjusted this (ond other family) files accordingly.
  71 ;       Also filtered out code now in other family files.
  72 ;
  73 ; edit 37 , 15 July 1987 by OBSchou for David Moore, who has submitted
  74 ;       code for Teletek SYSTEMASTER (teletek) and for an ADM 22 terminal.
  75 ;
  76 ; edit 36 28 Jan 87 by OBSchou.
  77 ;       Removed the printx etc and should only have this file if a system
  78 ;       does not have a family file.
  79 ;
  80 ; edit 35 1st Dec 1986 by OBSchou.  Added test for Amstrad PCW range (PCW)
  81 ;       Links to CPXPCW.ASM, which was submitted by Ian Young, Lattice
  82 ;       Logic Systems.
  83 ;
  84 ; edit 34 20 August by OBSchou for Brian Robertson, Aberdeen University:
  85 ;       I have discovered a bug in my code for the BBC/Z80 version of Kermit.
  86 ;       At startup the transmitter baud rate is read from the serial ULA.
  87 ;       The TX and RX baud rates are then reset to this value and the
  88 ;       value is stored in location 'baud:' for the STATUS (or SHOW)
  89 ;       command.  That is how it is supposed to work !  Unfortunately
  90 ;       my code at present "misreads" the initial TX baud rate  - there
  91 ;       is some bit manipulation that needs to be done to extract the
  92 ;       correct value.
  93 ;
  94 ; edit 33 30-May-86 OBSchou.  Added two new enties to the overly.  One for
  95 ;       printer status and the other for the address of the family of
  96 ;       computer using the overlay.  If it is still in CPXSYS.ASM then it
  97 ;       is a dollar only.
  98 ;
  99 ;edit 32, 27 May, 1986 by OBSchou Loughborough University for
 100 ;       B Robertson, Aberdeen Univ. Computing Centre. Any mistakes my fault.
 101 ;       Add support for APPLE II with serial cards based on the 6850 ACIA.
 102 ;       Mod 380Z support to allow both MDS (5 1/4" discs) and FDS (8" discs)
 103 ;       configurations.
 104 ;
 105 ; edit 31, 22 April, 1986, OBSchou.
 106 ;       Kermit version 4.06 starts here. All previous edits have been
 107 ;       put aside (leave in a BWR file?).  Hived off some definitions
 108 ;       to the CPSDEF.ASM file as that is where they belong.
 109 ;       Start on splitting off individual
 110 ;       systems from this huge file.  It is done using the LINK facility
 111 ;       LASM.  We link to a collection of systems under CPXxxx.ASM.
 112 ;       I have started with the systems I know, the Torch, Cifer and
 113 ;       pci2651.  These will all be held under CPXTOR.ASM
 114 ;
 115 ;
 116 ; Keep module name, edit number, and last revision date in memory.
 117 family: db      'CPXSYS.ASM (40)  28-Aug-89 $'  ; now a family...
 118 ;
 119
 120
 121 ; Processor speed in units of 100KHz
 122 ; for cpt85xx, advance, apple,bbc,px8 & rm380z timing loop [12]
 123 IF rm380z
 124 cpuspd  SET     40              ; 4.0 MHz CPU
 125 ENDIF; rm380z
 126
 127 IF disc OR mmate OR s1008 OR access
 128 cpuspd  SET     40              ; 4.0 MHz CPU
 129 ENDIF   ;disc OR mmate OR s1008 OR access
 130
 131 IF bbc  ;[9]
 132 cpuspd  SET     60              ; BBC with 6Mhz Z80
 133 ENDIF;bbc
 134
 135
 136 ; the basics...
 137
 138 IF gener
 139 batio   EQU     056H    ;I/O byte CON=BAT,LIST=CRT,READER=RDR,PUNCH=PTP
 140 defio   EQU     095H    ;I/O byte CON=CRT,LIST=LPT,READER=RDR,PUNCH=PTP
 141 crtio   equ     01010101B       ; use CRT: device
 142 ptrio   equ     01010110B       ; use PTR: device
 143 ttyio   equ     00000000B       ; use TTY: device
 144 uc1io   equ     01010111B       ; use UC1: device
 145 ur1io   equ     01101010B       ; use UR1: device
 146 ur2io   equ     01111110B       ; use UR2: device
 147 ENDIF;gener
 148
 149 IF robin
 150 batio   EQU     056H    ;I/O byte CON=BAT,LIST=CRT,READER=RDR,PUNCH=PTP
 151 defio   EQU     095H    ;I/O byte CON=CRT,LIST=LPT,READER=RDR,PUNCH=PTP
 152 lptio   EQU     054H    ;I/O byte CON=TTY,LIST=CRT,READER=PTR,PUNCH=PTP
 153 gppio   EQU     057H    ;I/O byte CON=UC1,LIST=CRT,READER=RDR,PUNCH=PTP
 154 ENDIF;robin
 155
 156
 157 IF dmII OR bbc  ;[22]
 158 batio   EQU     042H    ;I/O byte CON=BAT,LIST=CRT,READER=RDR
 159 defio   EQU     081H    ;I/O byte CON=CRT,LIST=LPT,READER=RDR
 160 ENDIF;dmII
 161
 162 IF mikko
 163 batio   EQU     10110010B ; I/O byte console => serial line
 164 defio   EQU     10000001B ; I/O byte console => CRT and Keyboard
 165 ENDIF;mikko
 166 ;\f
 167 IF lobo ;[hh]
 168 mnport  EQU     0F7E4H  ;Modem data port A
 169 mnprts  EQU     0F7E5H  ;Modem status/conrtol port A
 170 baudrt  EQU     0F7D0H  ;Baud rate port A
 171 output  EQU     04H     ;Transmit buffer empty
 172 input   EQU     01H     ;Receive data available
 173 z80     SET     TRUE    ;a good z80, here
 174 ENDIF;lobo
 175
 176 IF osi
 177 mnport  EQU     0CF01H  ;Modem data port
 178 mnprts  EQU     0CF00H  ;Modem status port
 179 output  EQU     02H     ;Transmitter empty
 180 input   EQU     01H     ;Input data available
 181 z80     SET     FALSE   ;I don't know...
 182 ENDIF;osi
 183
 184 IF vector
 185 mnport  EQU     04H     ;Modem data port
 186 mnprts  EQU     05H     ;Modem status port
 187 output  EQU     01H     ;Transmitter empty
 188 input   EQU     02H     ;Input data available
 189 z80     SET     FALSE   ;I don't know...
 190 ENDIF;vector
 191
 192 IF delphi               ;[7]
 193 mnport  EQU     22H     ;[7] Modem data port
 194 mnprts  EQU     23H     ;[7] Modem status port
 195 output  EQU     01H     ;[7] Transmitter empty
 196 input   EQU     02H     ;[7] Input data available
 197 baudrt  equ     29h     ;[7] Baud rate port for channel 2 (default)
 198 z80     SET     true    ;[7] We're using the z80 side of the dual processor
 199 ENDIF;[7] delphi
 200
 201 IF trs80
 202 ;NEEDS display definition (e.g. trs80lb or trs80pt)
 203 mnport  EQU     0F4H    ;Modem data port (0F5H for port B)
 204 mnprts  EQU     0F6H    ;Modem status port (0F7H for port B)
 205 output  EQU     04H     ;Transmitter empty
 206 input   EQU     01H     ;Input data available
 207 z80     SET     TRUE    ;[hh] All TRS-80's but the CoCo
 208 ENDIF;trs80
 209
 210 IF teletek
 211 mnport  EQU     00H     ;Modem data port (02 for port B (console))
 212 mnprts  EQU     01H     ;Modem status port (03 for port B (console))
 213 baudrt  EQU     08H     ;ctc0 control port (09 for port B (console))
 214 output  EQU     04H     ;Transmitter empty
 215 input   EQU     01H     ;Input data available
 216 z80     SET     TRUE    ;All Teleteks
 217 ENDIF;teletek
 218
 219 IF osbrn1
 220 ;Osborne 1 uses 6850 ACIA, but memory mapped.  Derived from Apple.
 221 BAUDRT  EQU     0EFC1H  ;Memory location where baud rates are stored.
 222 OSTOP   EQU     4000H   ;Where we move OSMOVE to at startup
 223 OSPORT  EQU     2A01H   ;Communications Port.
 224 OSPRTS  EQU     2A00H   ;Communications Port Status.
 225 OUTPUT  EQU     02H     ;Output Buffer Empty.
 226 INPUT   EQU     01H     ;Input Register Full.
 227 OSBIN1  EQU     57H     ;First Init Character for 6850 ACIA (Reset)
 228 ;(I would have thought 03, but prom code writes 57 there)
 229 OSBI12  EQU     55H     ;Second Init Character for ACIA (8-bits, 1200)
 230 OSBI03  EQU     56H     ;Second init char. for ACIA (8 bits, 300)
 231 ;(don't ask.. I don't know why SETUP writes 55 and 56 either)
 232 z80     SET     TRUE    ;[hh] a z80 here, also
 233 ENDIF;osbrn1
 234
 235 IF robin
 236 ;Those definitions below that are commented out are just for information
 237 ;***** NOT generally found in distributed documentation ****
 238
 239 ;pbausl EQU     90H     ;The Baud-Rate register.
 240 prntst  EQU     49H     ;Printer
 241 ;prndat EQU     48H
 242 contst  EQU     41H     ;Console
 243 ;condat EQU     40H
 244 gentst  EQU     51H     ;General port.
 245 ;gendat EQU     50H
 246 comtst  EQU     59H     ;COMM-Port
 247 ;comdat EQU     58H
 248 ;output EQU     01H     ;Output ready bit.
 249 ;input  EQU     02H     ;Input ready bit.
 250 z80     SET     TRUE    ; This one's a Z80.
 251 ENDIF;robin
 252
 253 IF s1008        ;[29]
 254 mnport  equ     00              ;printer port data
 255 mnprts  equ     01              ;printer port status
 256 output  equ     4               ;transmitter ready
 257 input   equ     2               ;receiver ready
 258 z80     equ     FALSE           ;not important
 259 ENDIF;s1008 [29]
 260
 261 IF mmate        ;[29]
 262 mnport  EQU     89H             ;MODEM data port
 263 mnprts  EQU     8BH             ;MODEM status/control port
 264 output  EQU     04H             ;Transmit buffer empty, ready to send
 265 input   EQU     01H             ;Receive data available
 266 baudrt  EQU     93H             ;MODEM baud rate port
 267                         ;NOTE - also used for console
 268 z80     SET     TRUE
 269 ENDIF;mmate [29]
 270
 271 IF disc ;[29]
 272 mnport  EQU     05              ;Discovery 83U port B data
 273 mnprts  EQU     04              ;Discovery 83U port B status/command
 274 output  EQU     04              ;Transmit buffer empty
 275 input   EQU     01              ;Receiver ready
 276 z80     SET     TRUE
 277 ENDIF;disc [29]
 278
 279 IF cmemco               ;[25]
 280 tuart   EQU     020H    ;TU-ART address
 281 mnport  EQU     tuart+1 ;Modem data port
 282 mnprts  EQU     tuart   ;Modem status port
 283 output  EQU     080H    ;Transmitter empty
 284 input   EQU     040H    ;Input data available
 285 baudrt  EQU     tuart   ;Baud rate port
 286 ;Note:  Needs terminal definition
 287 z80     SET     TRUE    ;This one's a Z80.
 288 ENDIF;cmemco
 289
 290 IF cpt85xx
 291 baudrt  EQU     4Ch             ; Baud rate generater (National MM5307)
 292 mnport  EQU     4Bh             ; Comm port data register (Intel 8251)
 293 mnprts  EQU     4Ah             ; Comm port command/status register
 294 output  EQU     01h             ; Transmitter buffer empty flag
 295 input   EQU     02h             ; Reciver buffer full flag
 296 TxEmpty EQU     04h             ; Transmitter empty flag
 297 z80     SET     FALSE           ; It's really an 8080 [or 8085 ... same thing]
 298 ENDIF;cpt85xx
 299
 300 IF mmdI ;Morrow MicroDecision - the single-board one
 301 mnport  EQU     0FEH    ;Morrow Printer UART data port
 302 mnprts  EQU     0FFH    ;Morrow Printer UART command/status
 303 output  EQU     01H     ;Output ready bit.
 304 input   EQU     02H     ;Input  ready bit.
 305 ;Note:  Needs terminal definition
 306 z80     SET     FALSE   ;I don't know...
 307 ENDIF;mmdI
 308
 309 IF bbc          ;[22]
 310 osbyte  EQU     0FFF4H  ; OS entry point
 311 osword  EQU     0FFF1H  ; "    "     "
 312 term    EQU     0FFC8H  ;Terminal mode OS entry
 313 z80     SET     TRUE
 314 ENDIF;[22] bbc
 315
 316 ;Two types of 380Z system
 317 IF rm380zm              ;[27] MDS - 5 1/4" discs
 318 mnport  EQU     0C8H    ;Modem data port
 319 mnprts  EQU     0C9H    ;Modem status port
 320 ENDIF;[32] rm380zm
 321
 322 IF rm380zf      ;[32] FDS - 8" discs
 323 mnport  EQU     0E8H    ;Modem data port
 324 mnprts  EQU     0E9H    ;Modem status port
 325 ENDIF;[32] rm380zf
 326
 327 IF rm380z       ;[32] Common to both systems
 328 output  EQU     01H     ;Transmitter buffer empty
 329 input   EQU     02H     ;Input data available
 330 TxEmpty EQU     04h     ;Transmitter empty flag
 331 z80     SET     TRUE
 332 ENDIF;[22] rm380z
 333
 334 IF px8  ; [29]
 335 z80     SET     TRUE
 336 mnprts  EQU     0dh     ; used in sending a break
 337 ENDIF   ;px8 [29]
 338
 339 IF mdI  ;Morrow Decision I - the big sucker
 340 mnport  equ     48H             ; Modem data port.
 341 mnprts  equ     4DH             ; Modem status port.
 342 output  equ     20H             ; Transmitter empty.
 343 input   equ     1               ; Input data available.
 344 mbase   equ     48H             ; Base address of Multi I/O port
 345                                 ;   selector area.
 346 grpsel  equ     4FH             ; Group select port.
 347 rbr     equ     48H             ; Read Data Buffer.
 348 group   equ     1               ; Multi I/O Group byte for serial ports.
 349 congrp  equ     1               ; Serial Port 1 for console
 350 mdmgrp  equ     3               ; Serial Port 3 for modem.
 351
 352 ; Following are needed for baud rate changes...[Toad Hall]
 353
 354 dlm     equ     49H             ; Baud Rate Divisor (Most Sig Bit)
 355 dll     equ     48H             ; Baud Rate Divisor (Least Sig Bit)
 356 ier     equ     49H             ; Interrupt Enable Register
 357 lcr     equ     4BH             ; Line Control Register
 358 lsr     equ     4DH             ; Line Status Register
 359 msr     equ     4EH             ; Modem Status Register
 360 dlab    equ     80H             ; Divisor Latch Access Bit
 361 wls0    equ     1               ; Word Length Select Bit 0
 362 wls1    equ     2               ; Word Length Select Bit 1 for 8 bit word
 363 stb     equ     4               ; Stop bit count - 2 stop bits
 364 imask   equ     0               ; Interrupt mask (all disabled)
 365 z80     SET     TRUE            ; This one's a Z80.
 366 ENDIF   ;mdI   NOTE: needs terminal definition. [Toad Hall]
 367
 368 IF mikko
 369 sioac   EQU     0FF12H          ;SIO channel A register(s) address
 370 sioo3   EQU     01000001B       ;SIO Write Reg. 3 original setup (?)
 371                                 ;RX 7 bits,synch mode bits 0,RX enable
 372 sion3   EQU     11001111B       ;SIO Write Reg. 3 KERMIT setup
 373                                 ;RX 8 bits,synch mode bits 0,RX enable
 374 sioo4   EQU     01001111B       ;SIO Write Reg. 4 original setup (?)
 375                                 ;X16 clock,8 bit synch(ignored),
 376                                 ;2stop bits,par even(on)
 377 sion4   EQU     01000100B       ;SIO Write Reg. 4 KERMIT setup
 378                                 ;X16 clock,8 bit synch(ignored),
 379                                 ;1stop bit,par off
 380 sioo5   EQU     10101010B       ;SIO Write Reg. 5 original setup (?)
 381                                 ;DTR,TX 7 bits,TX enable,RTS
 382 sion5   EQU     11101010B       ;SIO Write Reg. 5 KERMIT setup
 383                                 ;DTR,TX 8 bits,TX enable,RTS
 384 txclk   EQU     0FF30H  ;Baud rate generator (CTC) for transmitter
 385 rxclk   EQU     0FF31H  ;Baud rate generator (CTC) for receiver
 386 chmask  EQU     0F1F2H  ;Mask byte address for SIO ch. A reception
 387 z80     SET     TRUE    ;It's got a SIO and a CTC, it must be a Z80
 388 ENDIF;mikko
 389
 390
 391 IF access       ;[29]
 392 mnport  EQU     40H     ;Modem data port A
 393 mnprts  EQU     42H     ;Modem status/conrtol port A
 394 output  EQU     04H     ;Transmit buffer empty
 395 input   EQU     01H     ;Receive data available
 396 z80     SET     TRUE    ;a good z80, here
 397 ENDIF;access [29]
 398
 399
 400 IF robin OR dmII
 401 z80     SET     TRUE    ; This one's a Z80
 402 ENDIF;robin OR dmII
 403
 404 IF hp125                        ;[MF]
 405 z80     SET     TRUE            ;HP-125 uses a Z80
 406 ENDIF;hp125 [MF]
 407
 408 IF gener OR cpm3        ; To be truly generic, we must assume 8080.
 409 z80     SET     FALSE
 410 ENDIF;gener OR cpm3
 411 ;\f
 412 IF osi
 413 defesc  EQU     ']'-100O        ;The default escape character.
 414 ENDIF; osi
 415
 416 IF vector
 417 defesc  EQU     '~'             ;Vector can't type ']'.
 418 ENDIF;vector
 419
 420 IF mikko OR osbrn1 OR lobo
 421 defesc  EQU     '\'-100O        ;The default is Control \ -- it's easier B.E.
 422 ENDIF;mikko OR osbrn1 OR lobo
 423
 424 IF cpt85xx
 425 defesc  EQU     '\'-100O        ;Still Control-\ (just ran out of room...)
 426 ENDIF;cpt85xx
 427
 428 IF bbc OR rm380z OR px8 OR access OR S1008      ;[22] [29]
 429 defesc  EQU     '\'-100O        ;Still Control-\ (just ran out of room...)
 430 ENDIF   ;bbc OR rm380z OR px8 OR access OR s1008[29]
 431
 432 IF trs80
 433 defesc  EQU     '_'-100O        ;CTRL-_ (Down-arrow on TRS-80 keyboard)
 434 ENDIF;trs80
 435
 436 ; Select initial setting for VT-52 emulation flag.
 437
 438 IF vt52 ; If console looks like (or is) VT52
 439 vtval   EQU     0               ;  we don't need VT52 emulation
 440 ENDIF;vt52
 441
 442 ; If none of the above, default to VT52-EMULATION ON.
 443 IF NOT (crt OR vt52 OR robin OR dmII OR vt100 OR hp125);[MF]
 444 vtval   EQU     1
 445 ENDIF;NOT (crt OR vt52 OR robin OR dmII OR vt100 OR hp125)[MF]
 446
 447
 448 ;       sysxin  - system dependent initialisation code, called from SYSINIT
 449 ;
 450 sysxin:
 451
 452 IF dmII
 453 ; edit added by OBSchou for C. Lasner.  If this dont work, tell me whats
 454 ;       wrong, as I have no DMII or IBM to play with
 455 ;
 456 ;       IBM mode fixup program
 457 ;
 458 ;       This routine must be run before attempting to use KERMIT-80 with half
 459 ;       duplex KERMIT implementations such as CMS-KERMIT, as the 6120 processor
 460 ;       will otherwise "swallow" the XON character.
 461 ;
 462 ;       acknowledgments and limitations.
 463 ;
 464 ;       This program is based on DECMATE specific implementation details
 465 ;       provided by Walt Lamia of DEC. It is of course, specific to DECMATE
 466 ;       implementations of CP/M-80 for DECMATE II, III, III-plus, etc.
 467 ;
 468 ;       usage consists of merely:
 469 ;
 470 ;       CP4DMF                  run this program
 471 ;       KERMIT80                then run kermit
 472 ;       <KERMIT-80 commands used normally here, including SET IBM ON>
 473 ;       CP4DMU                  run companion program to restore normal XON
 474 ;
 475 ;       unless CP4DMU is run following KERMIT-80, the normal handling of
 476 ;       XON/XOFF provided by KERMIT-80 will not work (cold boot is another
 477 ;       alternative).
 478 ;
 479 ;       CP4DMF.ASM
 480 ;
 481 ;       last edit:      12-jun-87       20:00:00        Charles J. Lasner (CJL)
 482
 483 ;oboff  equ     3fh             ; offset of outbyt routine for 6120
 484 ;prtctl equ     02h             ; port control
 485 nocoxon equ     001h            ; turn off comm. output XON
 486
 487         lxi     b,(nocoxon * 100h) + prtctl ; c/prtctl, b/no out. xon
 488         call    outbyt
 489         ret                     ; and return
 490
 491 ;outbyt has been catered for (in break routine)
 492 ENDIF   ;dmII
 493
 494 IF osbrn1       ;(Note now no longer needs code > 4000h as it is already there
 495 ;       lxi     d,ostop         ;where we're moving it to
 496 ;       lxi     h,osmove        ;what we're moving
 497 ;       mvi     b,osmct         ;How many bytes we're moving
 498 ;       call    mover
 499         lda     baudrt          ; Find out what speed is current
 500         ani     1
 501         mvi     a,osbi03        ; assume 300 baud
 502         jz      osstr1
 503         mvi     a,osbi12        ; nope, it's 1200.
 504 osstr1: sta     speed           ; save initial speed
 505         sta     speed+1         ;  as 16 bits, to match speed table entries
 506         mov     d,a
 507         mov     e,a             ; get initial speed in DE
 508         call    sysspd          ;set up parity etc.
 509 ENDIF;osbrn1
 510
 511 IF cpt85xx
 512         mvi     a,80h           ; Send UART reset [force idle] by setting
 513         out     baudrt          ;    bit 7 of baud rate I/O port
 514         lxi     H,0f0fh         ; Clear reset and default to 9600 baud [23]
 515         shld    speed           ; store current speed
 516         xchg
 517         call    sysspd          ; set default baud rate
 518         mvi     a,4Eh           ; Set UART mode to async 16x clock, 8 data
 519         out     mnprts          ;    bits, no parity, and 1 stop bit
 520         mvi     a,37h           ; Set command to Tx enable, DTR on, Rx enable,
 521         out     mnprts          ;    break off, error reset, and RTS on
 522 ENDIF   ; cpt85x
 523
 524 IF bbc          ;[22]
 525         lxi     d,modstr        ; Set MODE 3
 526         call    prtstr
 527         mvi     a,1             ; Set terminal mode on
 528         call    term
 529         mvi     a,0F2H          ; Read current transmit speed
 530         lxi     h,0FF00H        ; .. 3 lsb of ULA register
 531         call    osbyte          ;   FX242,0,255
 532         mov     a,l
 533         ani     7               ; Mask of 3 lsb
 534 ;
 535 ; Edit of July 22, 1986 by B Robertson, Aberdeen Univ. Computing Centre.
 536 ; Correct bug in sysinit for BBC  -  reads the initial baud rate at
 537 ; start up incorrectly.
 538 ;
 539 ;
 540         rar                     ; Reverse order of 3 lsb
 541         rar                     ; Bit2 now in bit0
 542         jnc     binit1          ;
 543         ori     2               ; Restore bit1
 544 binit1: ana     a               ; Set sign bit as appropriate
 545         jp      binit2          ;
 546         ori     4               ; Bit0 now in bit2
 547 binit2: ani     7               ; Mask off unwanted bits
 548 ; End of Edit
 549
 550         xri     7               ; Stored as 2's complement
 551         inr     a
 552         sta     speed           ; Store 16 bit value
 553         sta     speed+1
 554         mov     e,a             ; Ensure RX and TX speeds are the same
 555         call    sysspd
 556 ENDIF;[22] bbc
 557
 558 IF rm380z       ;[22]
 559         mvi     e,11h           ;Output ctrl-Q to clear autopaging
 560         call    outcon
 561 ENDIF;[22] rm380z
 562
 563
 564 IF lobo ;[hh]
 565         lxi     d,siotbl        ;[hh] address of status table
 566         mvi     c,siolen        ;[hh] length of the table
 567 siolup: ;[hh] loop here for each command byte
 568         ldax    d               ;[hh] load first byte into A
 569         inx     d               ;[hh] index pointer to next bute
 570         sta     mnprts          ;[hh] send it to status port A
 571         sta     mnprts+2        ;[hh] and to status port B
 572         dcr     c               ;[hh] decrement the counter
 573         jnz     siolup          ;[hh] loop back for more commands
 574         mvi     a,05H           ;[hh] value for 300 baud
 575         sta     baudrt          ;[hh] starting default for port A
 576         sta     baudrt+4        ;[hh] and for port B
 577         sta     speed           ;[hh] tell program they're set
 578         mvi     a,0E4H          ;[hh] value for port A
 579         sta     port            ;[hh] tell program we've set this, too
 580         mvi     a,0D0H          ;[hh] port A baud rate value
 581         sta     port+1          ;[hh] save this as well, for consistancy
 582 ENDIF   ;lobo
 583
 584 IF mikko
 585         lxi     d,mintbl        ;Address of KERMIT Reg values (what)
 586         mvi     c,minlen        ;Length of table (how many)
 587         lxi     h,sioac         ;Send data to ch. A SIO registers (to where)
 588         call    movmik
 589         mvi     a,0FFH          ;Set ch. A mask to use all bits
 590         sta     chmask
 591 ENDIF;mikko
 592
 593 IF mdI
 594         lxi     h,96            ;Default 1200 baud modem port speed
 595         shld    speed           ;Store as modem port speed
 596         call    sysspd          ;Initialize the port
 597 ENDIF;mdI  [Toad Hall]
 598
 599 IF cmemco                       ;[25]
 600         mvi     a,01h           ; Reset TU-ART
 601         out     tuart+2
 602         mvi     a,90h           ; Set default baud rate (2400), and 1 stop bit
 603         out     tuart
 604         sta     speed           ; save for status display
 605         sta     speed+1
 606 ENDIF;cmemco
 607
 608 IF delphi                       ;[7]
 609 ;
 610 ;       shove the default baud rate (1200) in to the Delphi port address
 611 ;       for the baud rate generator on port 2, the default port; save this
 612 ;       value so we can tell what speed is selected.
 613 ;
 614         mvi     a,07h           ;[7] get value for 1200 baud
 615         out     baudrt          ;[7] set it for port 2
 616         sta     speed           ;[7] save for status display
 617         sta     speed+1
 618 ENDIF;[7] delphi
 619
 620 IF px8 ; [29]
 621         lda     0f6a9h          ; get baud rate value set by CONFIG
 622         sta     px8blk+4        ; put into parameter block
 623         mov     h, a            ; initialise global speed indicator
 624         mov     l, a
 625         shld    speed
 626         lhld    6               ; base of CP/M
 627 ; buffer starts at ovlend+8192, immediately after sector buffer
 628 ; We must also allow (800h) for the CCP as Kermit exits with a RET
 629         lxi     d, ovlend+8192+800h  ; calc buffer length
 630         ora     a               ; clear carry
 631         db      0edh, 52h       ; sbc hl, de
 632         shld    px8blk+2
 633         call    rsopen
 634 ENDIF ; px8 [29]
 635
 636 IF disc ;[29]
 637 ;Initialization sequence for Discovery 83U port B
 638 ;Sets port to 9600 baud, 8 data bits, 1 stop bit, no parity
 639         mvi     a,12            ;Register 12
 640         out     mnprts
 641         mvi     a,11            ;Low byte of time constant for 9600
 642         out     mnprts
 643         mvi     a,13            ;Register 13
 644         out     mnprts
 645         mvi     a,0             ;High byte of time constant for 9600
 646         out     mnprts
 647         mvi     a,14            ;Register 14
 648         out     mnprts
 649         mvi     a,3             ;Enable baud rate generator
 650         out     mnprts
 651         mvi     a,11            ;Register 11
 652         out     mnprts
 653         mvi     a,52h           ;No Xtal, tclk=rclk=/trxc out=br gen
 654         out     mnprts
 655         mvi     a,4             ;Register 4
 656         out     mnprts
 657         mvi     a,44h           ;16x clock, 1 stop, no parity
 658         out     mnprts
 659         mvi     a,3             ;Register 3
 660         out     mnprts
 661         mvi     a,71h           ;rx 8 bit/ch, autoenable, rx enable
 662         out     mnprts
 663         mvi     a,5             ;Register 5
 664         out     mnprts
 665         mvi     a,0eah          ;tx 8 bit/ch, tx enable, rts
 666         out     mnprts
 667 ENDIF;disc [29]
 668 ;
 669 ;\f
 670 IF mikko                        ;currently for MIKROMIKKO only
 671 ; copy command block into memory-mapped SIO.
 672 movmik: di                      ;disable interrupts
 673 movmk1: ldax    d               ;Get a register value
 674         mov     m,a             ;Output it
 675         inx     d               ;Next value
 676         dcr     c               ;Decrement counter
 677         jnz     movmk1          ;Repeat until done
 678         ei
 679         ret
 680 ENDIF;mikko
 681
 682 ;\f
 683 IF osbrn1
 684 osmove:
 685 osflag  equ     0EF08H          ;Osborne 1 Bank-2 flag
 686 ;
 687 ; return modem status in A
 688 ;
 689 OSLDST:
 690         DI
 691         OUT     0
 692         LDA     osprts          ;Read the status port
 693         OUT     1
 694         EI
 695         ret
 696 ;
 697 ; set modem status from A
 698 ;
 699 OSSTST:
 700         DI
 701         OUT     0
 702         STA     osprts  ;Write the control port
 703         jmp     osstex
 704 ;
 705 ; read character from modem into A
 706 ;
 707 OSLDDA:
 708         DI
 709         OUT     0
 710         LDA     osport
 711         OUT     1
 712         EI
 713         ret
 714 ;
 715 ;       output character in A to modem
 716 ;
 717 OSSTDA:
 718         DI
 719         OUT     0
 720         STA     osport
 721 osstex:
 722         OUT     1
 723         mvi     a,1
 724         sta     osflag
 725         EI
 726         ret
 727 ENDIF;osbrn1
 728
 729 IF lobo
 730 ; List of commands to set up SIO channel A for asynchronous operation.
 731 siotbl: DB      18H             ; Channel reset
 732         DB      18H             ; another, in case register 0 wasn't selected
 733         DB      04H             ; Select register 4
 734         DB      44H             ; 1 stop bit, clock*16
 735         DB      01H             ; Select register 1
 736         DB      00H             ; No interrupts enabled
 737         DB      03H             ; Select register 3
 738         DB      0C1H            ; Rx enable, 8 bit Rx character
 739         DB      05H             ; Select register 5
 740         DB      0EAH            ; Tx enable, 8 bit Tx character,
 741                                 ;  raise DTR and RTS
 742 siolen  equ     $-siotbl        ; length of command list
 743 ENDIF;lobo
 744
 745 IF mikko
 746 ; command list to set SIO chip back to normal state
 747 miotbl: db      3               ;reg. 3
 748         db      sioo3
 749         db      5               ;reg. 5
 750         db      sioo5
 751         db      4               ;reg. 4
 752         db      sioo4
 753         db      0               ;reselect reg. 0
 754 miolen  equ     $-miotbl        ;MikroMikko SIO table length (original values)
 755
 756 ; command list to set up SIO chip for operation with Kermit
 757 mintbl: db      3               ;reg. 3
 758         db      sion3
 759         db      5               ;reg. 5
 760         db      sion5
 761         db      4               ;reg. 4
 762         db      sion4
 763         db      0               ;reselect reg. 0
 764 minlen  equ     $-mintbl        ;MikroMikko SIO table length (KERMIT values)
 765 ENDIF;mikko
 766
 767
 768 IF bbc          ;[22]
 769 modstr: db      16h,03h,'$'     ; String to put screen into MODE 3
 770 ENDIF
 771
 772 IF px8 ; [29]
 773 rsget:  mvi     b, 50h
 774         jmp     rsiox
 775 rsinst: mvi     b, 30h
 776         jmp     rsiox
 777 rsput:  mvi     b, 60h
 778         jmp     rsiox
 779 rsoutst:mvi     b, 40h
 780         jmp     rsiox
 781 rserst: mvi     b, 90h
 782         jmp     rsiox
 783 rsopen: lxi     h, px8blk       ; copy px8blk to px8prm
 784         lxi     d, px8prm
 785         lxi     b, 9
 786         call    mover
 787         mvi     b, 10h          ; open code
 788         jmp     rsiox
 789 rsclose:mvi     b, 20h          ; close code
 790 rsiox:  lxi     h, px8prm
 791         lxi     d, 51h          ; offset into BIOS jump table
 792         push    h
 793         lhld    1               ; start of BIOS
 794         dad     d
 795         xthl                    ; entry point on stack, px8prm addr in hl
 796         ret                     ; jump indirect
 797
 798 px8prm: dw      0, 0
 799         db      0, 0, 0, 0, 0   ; the param area is overwritten in rsopen
 800 px8blk: dw      ovlend+8192     ; buffer address
 801         dw      0               ; buffer size - overwritten
 802         db      0               ; baud rate - overwritten
 803         db      3               ; 8 bits/char
 804         db      0               ; no parity, it is done internally
 805         db      1               ; 1 stop bit
 806         db      0cfh            ; special bits - activate xon/xoff
 807 ; The documentation suggests that the xon/xoff bit is bit 4, i.e the pattern
 808 ; should be 0efh, but the top bit is omitted from the diagram. I will try
 809 ; clearing both bit 4 and bit 5.
 810 ENDIF ; px8 [29]
 811
 812 IF hp125                        ;[MF]
 813         lxi     b,73ffh         ;Prepare Data Comm 1 to
 814         call    bdos            ;Transfer eight-bit data
 815         lxi     d,jbuf          ;Point to bios jump-table vector
 816         lxi     b,7effh         ;Set up special subfunction code to
 817         call    bdos            ;Get rdr routine address
 818         lhld    jbuf+3          ;Remember this address
 819         shld    readin+1        ;for our eight-bit rdr routine
 820         mvi     a,1             ;We want to write into the bios jump table
 821         sta     jbuf+1          ;...
 822         lxi     h,readin        ;Point to our rdr routine (all 8 bits)
 823         shld    jbuf+3          ;as new RDR routine
 824         lxi     d,jbuf          ;Point to jump vector argument block
 825         lxi     b,7effh         ;Set subfunction code to
 826         call    bdos            ;Substitute our rdr routine in dispatch table
 827         lxi     h,mapon1        ;Make Data Comm 1 the default port
 828         shld    port            ;at program-start
 829         xchg                    ;Put in DE
 830         call    prtstr          ;Print escape sequences to connect
 831                                 ;DAta Comm 1 to rdr/punch
 832 ENDIF ;hp125 [MF]
 833
 834         ret                     ; end of sysxin
 835
 836 ;\f
 837 ;       system-dependent termination processing
 838 ;       If we've changed anything, this is our last chance to put it back.
 839 sysexit:
 840
 841 IF dmII
 842 ; Edited by OBSchou for Charles Lasner.  His bug fix now in Kermit-80:
 843 ;
 844 ;       IBM mode restore program
 845 ;
 846 ;       This routine must be run after using CP4DMF (and KERMIT-80) to restore
 847 ;       the normal handling of XON/XOFF; the user may also elect to cold-boot
 848 ;       the DECMATE instead.
 849 ;
 850 ;       acknowledgments and limitations.
 851 ;
 852 ;       This program is based on DECMATE specific implementation details
 853 ;       provided by Walt Lamia of DEC. It is of course, specific to DECMATE
 854 ;       implementations of CP/M-80 for DECMATE II, III, III-plus, etc.
 855 ;
 856 ;       usage consists of merely:
 857 ;
 858 ;       CP4DMF                  run xon/xoff disable program
 859 ;       KERMIT80                then run kermit
 860 ;       <KERMIT-80 commands used normally here, including SET IBM ON>
 861 ;       CP4DMU                  run this program to restore normal XON
 862 ;
 863 ;       unless CP4DMU is run following KERMIT-80, the normal handling of
 864 ;       XON/XOFF provided by KERMIT-80 will not work (cold boot is another
 865 ;       alternative).
 866 ;
 867 ;       CP4DMF.ASM
 868 ;
 869 ;       last edit:      12-jun-87       20:00:00        Charles J. Lasner (CJL)
 870 ;
 871 coxon   equ     000h            ; enable comm. output XON
 872 ;oboff  equ     3fh             ; offset of outbyt routine for 6120
 873 ;prtctl equ     02h             ; port control
 874
 875
 876         lxi     b,(coxon * 100h) + prtctl ; c/prtctl, b/with out. xon
 877         call    outbyt          ;[OBS] declared elswhere
 878         ret                     ; and return
 879
 880 ENDIF   ;dmII
 881
 882 IF mikko
 883         lxi     d,miotbl        ;Load the adress of original reg values
 884         mvi     c,miolen        ;Length of table
 885         lxi     h,sioac         ;Send data to ch A SIO registers
 886         call    movmik
 887         mvi     a,07FH          ;Set ch A mask to use just 7 bits
 888         sta     chmask
 889 ENDIF;mikko
 890
 891 IF teletek
 892 ;Note - This code was handwritten onto the lising I was sent, with the
 893 ;       comment that David had just thought of the code, so it was
 894 ;       not on the listing. If you have problems I suggest you
 895 ;       comment out these few lines.
 896 ;Bertil Schou.
 897 ;
 898         di
 899         mvi     a,47h           ; reset baud rate to 9600
 900         out     baudrt
 901         mvi     a,08h
 902         out     baudrt
 903         ei
 904 ENDIF   ;teletek
 905
 906 IF cpt85xx
 907         mvi     a,80h           ; Reset (force idle) the 8251 UART via bit 7
 908         out     baudrt          ;    of the baud rate generater port
 909         mvi     a,00h           ; and turn off the baud rate generater
 910         out     baudrt
 911 ENDIF;cpt85xx
 912
 913 IF bbc  ;[22]
 914         mvi     a,0             ; Turn off terminal mode
 915         call    term
 916 ENDIF;[22] bbc
 917
 918 IF px8  ;[29]
 919         call    rsclose
 920 ENDIF   ;px8 [29]
 921
 922 IF hp125                        ;[MF]
 923         lxi     b,74ffh         ;Set subfunction code to
 924         call    bdos            ;Reset Data Comm 1 for 7-bit data
 925         lhld    readin+1        ;Get original rdr routine address
 926         shld    jbuf+3          ;and store in jump vector
 927         lxi     d,jbuf          ;Point to jump vector
 928         lxi     b,7effh         ;Set subfunction code to
 929         call    bdos            ;Put original rdr routine back in bios
 930                                 ;dispatch table
 931         lxi     d,mapoff        ;Point to escape sequences to
 932         call    prtstr          ;Turn off Data Comm 1/2 mappings
 933 ENDIF ;hp125 [MF]
 934
 935         ret
 936
 937 ;
 938 ;       system-dependent processing for start of CONNECT command
 939 ;
 940 syscon:
 941 IF robin OR trs80 OR cpt85xx    ;For Robin/TRS80/CPT-85xx, add some more info
 942         lxi     d,conmsg        ; about obscure key combinations
 943         call    prtstr
 944 ENDIF;robin OR trs80 OR cpt85xx
 945
 946 IF osbrn1                       ;*** This is Software dependent ***
 947         lhld    1               ;Modify back-arrow code to DELETE
 948         mvi     l,0             ;Get BIOS-start address
 949         lxi     d,85H           ;Adress for key-code = XX85H
 950         dad     d
 951         mov     e,m             ;Get it in DE
 952         inx     h
 953         mov     d,m
 954         xchg                    ;Memory pointer to HL
 955         mvi     m,del           ;modify the code
 956 ENDIF;osbrn1
 957         ret
 958
 959 conmsg:         ; Messages printed when entering transparent (CONNECT) mode:
 960 IF robin        ;  for Robin, control-S key is hidden
 961         db      ' (Type Left Arrow to send CTRL-S)',cr,lf,'$'
 962 ENDIF;robin
 963 IF trs80        ;  for TRS-80, the preferred escape key is hidden
 964         db      ' (Control-_ is the Down-Arrow key on the TRS-80 keyboard)'
 965         db      cr,lf,'$'
 966 ENDIF;trs80
 967 IF cpt85xx      ;  for CPT-85xx, some graphics map "funny" to keyboard in CP/M
 968         db      ' (Use  CODE + SHIFT + 1/2  key to generate a Control-\)'
 969         db      cr,lf,'$'
 970 ENDIF;cpt85xx
 971 ;\f
 972 ;       syscls - system-dependent close routine
 973 ;       called when exiting transparent session.
 974 ;
 975 syscls:
 976 IF osbrn1
 977         lhld    1               ;Modify back-arrow code to BACKSPACE
 978         mvi     l,0             ;Get BIOS address
 979         lxi     d,85H           ;Address for key-code =XX85H
 980         dad     d
 981         mov     e,m             ;Get it in DE
 982         inx     h
 983         mov     d,m
 984         xchg                    ;Address to HL
 985         mvi     m,bs            ;Modify code
 986 ENDIF;osbrn1
 987         ret
 988 ;\f
 989 ;       sysinh - help for system-dependent special functions.
 990 ;       called in response to <escape>?, after listing all the
 991 ;       system-independent escape sequences.
 992 ;
 993 sysinh:
 994 IF robin OR dmII OR cpt85xx OR lobo
 995         lxi     d,inhlps        ; we got options...
 996         call    prtstr          ; print them.
 997 ENDIF;robin OR dmII OR cpt85xx OR lobo
 998
 999 IF bbc OR rm380z ; some more
1000         lxi     d,inhlps        ; we got options...
1001         call    prtstr          ; print them.
1002 ENDIF;[22] bbc OR rm380z
1003
1004 IF px8 OR access OR mmate OR disc ;and more...
1005         lxi     d,inhlps        ; we got options...
1006         call    prtstr          ; print them.
1007 ENDIF   ;px8 OR access OR mmate OR disc
1008
1009         ret
1010
1011
1012 ;additional, system-dependent help for transparent mode
1013 ; (two-character escape sequences)
1014 inhlps:
1015
1016 IF robin OR dmII OR cpt85xx OR lobo
1017         db      cr,lf,'B  Transmit a BREAK'
1018 ENDIF;robin OR dmII OR cpt85xx OR lobo
1019
1020 IF bbc OR rm380z
1021         db      cr,lf,'B  Transmit a BREAK'
1022 ENDIF;bbc OR rm380z
1023
1024 IF px8 OR access OR mmate
1025         db      cr,lf,'B  Transmit a BREAK'
1026 ENDIF   ;px8 OR access OR mmate
1027
1028 IF disc ;[29] [32]
1029         db      cr,lf,'B Transmit a 300ms BREAK'
1030         db      cr,lf,'L Transmit a 5 second BREAK'
1031 ENDIF;disc [29]
1032
1033 IF lobo
1034         db      cr,lf,'D  Drop the line'
1035 ENDIF;lobo
1036
1037         db      '$'                     ;[hh] table terminator
1038
1039 ;
1040 ;       sysint - system dependent special functions
1041 ;       called when transparent escape character has been typed;
1042 ;       the second character of the sequence is in A (and in B).
1043 ;       returns:
1044 ;       non-skip: sequence has been processed
1045 ;       skip:   sequence was not recognized
1046
1047 sysint: ani     137O            ; convert lower case to upper, for testing...
1048
1049 IF robin OR dmII OR cpt85xx OR lobo
1050         cpi     'B'             ; send break?
1051         jz      sendbr          ; yes, go do it.  return nonskip when through.
1052 ENDIF;robin OR dmII OR cpt85xx OR lobo
1053
1054 IF bbc OR rm380z ; [22] [25] ... some more
1055         cpi     'B'             ; send break?
1056         jz      sendbr          ; yes, go do it.  return nonskip when through.
1057 ENDIF; bbc OR rm380z
1058
1059 IF px8 OR access OR     mmate ;[28] [29] and anothers
1060         cpi     'B'             ; send break?
1061         jz      sendbr          ; yes, go do it.  return nonskip when through.
1062 ENDIF   ; px8 OR access OR mmate [28] [29]
1063
1064 IF lobo ;[hh]
1065         cpi     'D'             ;[hh] disconnect?
1066         jz      discon          ;[hh] yes, go do it. nonskip return when done.
1067 ENDIF   ;lobo
1068
1069 IF disc ;[29]
1070         cpi     'B'             ;Send short break?
1071         jz      sendbr
1072         cpi     'L'             ;Send long break?
1073         jz      sendlbr
1074 ENDIF;disc [29]
1075
1076         jmp     rskp            ; take skip return - command not recognized.
1077
1078
1079 ;\f
1080 IF robin ;Definitions & code to send a BREAK (ungenerically, no other way).
1081
1082 comctl  equ     59h             ;VT180 communications port
1083 crtctl  equ     41h             ;VT180 crt port
1084
1085 ;VT180 serial port command bits
1086
1087 txe     equ     1               ;transmit enable
1088 dtr     equ     2               ;dtr on
1089 rxe     equ     4               ;rx enable
1090 sndbrk  equ     8
1091 rerr    equ     10h             ;reset error
1092 rts     equ     20h             ;RTS on
1093 reset   equ     40h             ;port reset
1094
1095 ;Send a break to the communications port.
1096 ;
1097
1098 sendbr: lxi     h,38500         ;250 ms(?)
1099         lda     prtadr          ;Get address of selected port
1100         mov     c,a             ;Into C
1101         mvi     a,sndbrk+dtr
1102 ;       OUT     C,A             ;Want to send to port addressed by C
1103         db      0EDH,079H       ;Op code for above instruction
1104 sndbr1: dcx     h               ;timing loop...
1105         mov     a,l
1106         ora     h
1107         jnz     sndbr1          ;...until over
1108         lda     prtadr          ;Get the address for the port
1109         mov     c,a             ;Into C
1110         mvi     a,txe+dtr+rxe+rerr+rts  ;enable tr/rc, dtr, reset error
1111 ;       out     c,a             ;Z-80 only instruction
1112         db      0EDH,079H       ;Op code for above instruction
1113         out     contst          ;reset ports
1114         ret
1115 ENDIF;robin
1116 ;\f
1117 IF dmII                         ;[jd] this added to send break on DECmate
1118
1119 ; DECmate command codes for 6120 I/O processor
1120 oboff   equ     3fh             ; offset of outbyt routine for 6120
1121 prtctl  equ     02h             ; port control
1122 brdat   equ     06h             ; data to tell 6120 to send a break
1123 brdur   equ     30              ; duration, 30 = 300 ms.
1124
1125 sendbr: lxi     b,(brdat * 100h) + prtctl ; c/prtctl, b/brdat
1126         call    outbyt
1127         lxi     b,brdur*100h            ; b/duration, c/0
1128 ;       fall through into outbyt
1129
1130 outbyt: lhld    1               ; get warm boot address
1131         lxi     d,oboff         ; offset of outbyt routine
1132         dad     d               ; compute address
1133         pchl                    ; branch there (a callret)
1134
1135 ENDIF;dmII
1136 ;\f
1137 IF access OR mmate ;[cjc] send break on Kaypro [29]
1138 ; Officially, a "break" is 300 milliseconds of "space" (idle line is
1139 ; "mark").  (or maybe 200 milliseconds; I forget.)  The timing isn't
1140 ; usually that critical, but we'll make an attempt, at least.  Sending
1141 ; too long a break can cause some modems to hang up.
1142
1143 sendbr:
1144 ;       First, make sure the transmitter is really empty.  (The SIO sets
1145 ;       "transmitter buffer empty" when it can accept another character;
1146 ;       the previous character is still being shifted onto the line.
1147 ;       Another status bit, "all done", is set to indicate that the
1148 ;       transmitter is really idle.
1149 sndbr1: mvi     a,1             ; select Read Register 1
1150         out     mnprts
1151         in      mnprts          ; read the contents
1152         ani     1               ; test "all done" flag
1153         jz      sndbr1          ; loop until it's nonzero.
1154 ;
1155 ;       Next, set the "send break" bit to start the transmitter spacing.
1156         mvi     a,5             ; select Write Register 5
1157         out     mnprts
1158         mvi     a,0FAH          ; Tx enable, 8 bit Tx character, Send Break,
1159         out     mnprts          ;  DTR and RTS on.
1160 ;
1161 ;       Now, delay for 30 hundredths of a second
1162         mvi     a,30            ; delay count
1163         call    delay
1164 ;
1165 ;       Time's up. Put transmitter back in normal state (data byte is the
1166 ;       same as the one in siotbl: for Write Register 5) and return.
1167         mvi     a,5             ; select Write Register 5
1168         out     mnprts
1169         mvi     a,0EAH          ; Tx enable, 8 bit Tx character,
1170         out     mnprts          ;  DTR and RTS on.
1171         ret                     ; done.
1172 ENDIF;access OR mmate [29]
1173
1174 IF lobo ;[hh]   This routine sends a break tone or disconnects a modem
1175 ;               (those that respond to it) by setting the DTR line low
1176 ;               for 300 ms.
1177 ;
1178 sendbr: mvi     a,05H           ;[hh] write register 5
1179         call    outctl          ;[hh] send it to control port
1180         mvi     a,0FAH          ;[hh] value to send break tone
1181         jmp     sndbr1          ;[hh]
1182 ;
1183 discon: mvi     a,05H           ;[hh] write register 5
1184         call    outctl          ;[hh] send it to the control port
1185         mvi     a,06AH          ;[hh] DTR off and break tone on
1186 sndbr1: call    outctl          ;[hh] send to control port
1187         mvi     a,30            ;[hh] delay count for 300 ms.
1188         call    delay           ;[hh] wait a while...
1189         mvi     a,05H           ;[hh] write register 5
1190         call    outctl          ;[hh] get it's attention
1191         mvi     a,0EAH          ;[hh] normal 8 bits, DTR on, RTS on, etc.
1192         call    outctl          ;[hh] restore SIO
1193         ret
1194 ;
1195 outctl: sta     mnprts          ;[hh]
1196         ret
1197 ENDIF   ;lobo
1198 ;\f
1199 IF cpt85xx OR rm380z ;[lmj] [22] [25]
1200 sendbr:
1201 ;
1202 ;       Ensure that the transmitter has finished sending buffered chars
1203 sndbr1: in      mnprts          ; get UART status
1204         ani     TxEmpty         ; everything sent?
1205         jz      sndbr1          ; no, wait a bit more
1206 ;
1207 ;       Begin sending a break by setting bit in UART command register
1208         mvi     a,3Fh           ; Set TxEna, DTR, RxEna, SBreak, ErrRst, RTS
1209         out     mnprts
1210 ;
1211 ;       Wait for 250 milliseconds (using hundredths second delay routine)
1212         mvi     a,25
1213         call    delay
1214 ;
1215 ;       Resume normal operation by clearing the SendBreak command bit
1216         mvi     a,37h           ;Set TxEna, DTR, RxEna, ErrRst, RTS
1217         out     mnprts
1218 ;
1219         ret                     ;done
1220 ENDIF;cpt85xx OR rm380z
1221
1222 IF px8 ; [29]
1223 sendbr: mvi     a, 3fh  ; set break bit
1224         out     mnprts
1225         mvi     a, 25
1226         call    delay   ; wait 250 msec
1227         mvi     a, 37h  ; clear break bit
1228         out     mnprts
1229         ret
1230 ENDIF ; px8 [29]
1231
1232 ;\f
1233 IF bbc          ;[22]
1234 sendbr:
1235 ;
1236 ;       Ensure that the transmitter has finished sending buffered chars
1237 sndbr1: mvi     a,96h           ; get ACIA status
1238         mvi     l,8
1239         call    osbyte          ; *FX150,8
1240         mov     a,h
1241         ani     2               ; everything sent?
1242         jz      sndbr1          ; no, wait a bit more
1243 ;
1244 ;       Disable centisecond clock (system VIA) which interferes with break
1245         lxi     h,0FE4Eh        ; system VIA interrupt enable register
1246         mvi     a,40H           ; disable timer 1
1247         call    wrtiom          ; write to I/O processor memory
1248 ;
1249 ;       Begin sending a break by setting bit in ACIA control register
1250         mvi     a,9Ch
1251         lxi     h,9F60h         ; Set Rxint, Txint, Break, RTS
1252         call    osbyte          ; *FX 156,96,159
1253 ;
1254 ;       Wait for 250 milliseconds (using hundredths second delay routine)
1255         mvi     a,25
1256         call    delay
1257 ;
1258 ;       Resume normal operation by returning old control byte
1259         mvi     a,9Ch
1260         mvi     h,0             ;Set TxEna, DTR, RxEna, ErrRst, RTS
1261         call    osbyte          ; *FX 156,oldvalue,0
1262 ;
1263 ;       Enable centisecond clock (system VIA)
1264         lxi     h,0FE4Eh        ; system VIA interrupt enable register
1265         mvi     a,0C0H          ; enable timer 1
1266         call    wrtiom          ; write to I/O processor memory
1267 ;
1268         ret                     ;done
1269 ;
1270 ;       Routine to write byte in A to I/O processor memory address
1271 ;       given by HL
1272 wrtiom:
1273         shld    parblk          ; store address to parameter block
1274         sta     parblk+4        ; store data
1275         lxi     h,parblk        ; load hl with address of param block
1276         mvi     a,6             ; write I/O processor memory
1277         call    osword          ; go do it
1278         ret
1279 ;
1280 parblk: DS      5               ; reserve space for parameter block
1281 ENDIF;bbc [22]
1282 ;\f
1283 IF disc ;[29]
1284 ; This is almost an exact copy of the bbI sendbr routine.
1285 ; Modifications to include a long break have been made.
1286 ;
1287 ; Officially, a "break" is 300 milliseconds of "space" (idle line is
1288 ; "mark").  (or maybe 200 milliseconds; I forget.)  The timing isn't
1289 ; usually that critical, but we'll make an attempt, at least.  Sending
1290 ; too long a break can cause some modems to hang up.
1291
1292 sendlbr:
1293         push    d       ;save d, this may not be necessary, but safe
1294         mvi     d,17    ;do short break 17 times (approx. 5 sec.)
1295         jmp     sndbr1
1296 sendbr:
1297         push d
1298         mvi     d,1     ;On short break, do only once
1299 ; First, make sure the transmitter is really empty.  (The SIO sets
1300 ; "transmitter buffer empty" when it can accept another character;
1301 ; the previous character is still being shifted onto the line.
1302 ; Another status bit, "all done", is set to indicate that the
1303 ; transmitter is really idle.
1304 sndbr1: mvi     a,1             ; select Read Register 1
1305         out     mnprts
1306         in      mnprts          ; read the contents
1307         ani     1               ; test "all done" flag
1308         jz      sndbr1          ; loop until it's nonzero.
1309 ;
1310 ; Next, set the "send break" bit to start the transmitter spacing.
1311         mvi     a,5             ; select Write Register 5
1312         out     mnprts
1313         mvi     a,0FAH          ; Tx enable, 8 bit Tx character, Send Break,
1314         out     mnprts          ;  DTR and RTS on.
1315 ;
1316 ; Now, delay for 30*d hundredths of a second
1317 sendbr2:
1318         mvi     a,30            ; delay count
1319         call    delay
1320 ; The following has been added to allow doing .03 delay d times
1321         dcr     d               ; decrement # of times to do loop
1322         jnz     sendbr2         ; if not done, do again
1323         pop     d               ; reload d
1324 ;
1325 ; Time's up. Put transmitter back in normal state (data byte is the
1326 ; same as the one in siotbl: for Write Register 5) and return.
1327         mvi     a,5             ; select Write Register 5
1328         out     mnprts
1329         mvi     a,0EAH          ; Tx enable, 8 bit Tx character,
1330         out     mnprts          ;  DTR and RTS on.
1331         ret                     ; done.
1332 ENDIF   ;disc [29]
1333
1334
1335 ;
1336 ;       sysflt - system-dependent filter
1337 ;       called with character in E.
1338 ;       if this character should not be printed, return with A = zero.
1339 ;       preserves bc, de, hl.
1340 ;       note: <xon>,<xoff>,<del>, and <nul> are always discarded.
1341 sysflt:
1342         mov     a,e             ; get character for testing
1343 IF mikko
1344         cpi     'O'-100O        ;Control-O's lock keyboard
1345         rnz                     ; if not control-O, it's ok.
1346         xra     a               ; don't allow control-O out.
1347 ENDIF;mikko
1348
1349         ret
1350
1351 ;       mdmflt - modem filter [30]
1352 ;       called with character to be sent to printer in E
1353 ;       with parity set as appropriate.
1354 ;       return with accumulator = 0 do do nothing,
1355 ;                               <> 0 to send char in E.
1356 mdmflt:
1357         mov     a,e             ;[30] get character to test
1358         ret
1359
1360
1361
1362 ;       prtflt - printer filter [30]
1363 ;       called with character to be sent to printer in E
1364 ;       returns with a = 0 to do nothing
1365 ;                    a <> 0 to print it.
1366 ;
1367 ;       this routine for those printer that automatically insert
1368 ;       a lf on cr, or cr for lf.  Should this be shifted to
1369 ;       the system indep. stuff, in say 4.06?
1370 prtflt:
1371         mov     a,e             ; [30] get character to test
1372         ret
1373
1374
1375 ;\f
1376 ; system-dependent processing for BYE command.
1377 ;  for lobo, hang up the phone.
1378 sysbye:
1379 IF lobo ;[hh]
1380         call    discon          ;[hh] force modem to hang up
1381 ENDIF;lobo
1382         ret
1383
1384 IF lasm
1385         LINK    CPXSY2.ASM      ; If m80 then this ignored
1386 ENDIF   ; lasm