home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / cpm80 / cpxpro.asm < prev    next >
Assembly Source File  |  2020-01-01  |  15KB  |  562 lines
  1. IF NOT lasm
  2. .printx * CPXPRO.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. ; revision history:
  22. ;
  23. ;edit 2, 16-Oct-1990 by MF.  Reformatted speed tables according to
  24. ;    current usage and reworked sysspd routine accordingly.
  25. ;    Also eliminated cursor-positioning routines as we now link to
  26. ;    cpxvdu.asm.  Reworked version message according to current usage.
  27. ;edit 1, 17 November, 1987, by OBSchou.  Extracted Compupro code
  28. ;    from CPMPRO.ASM    and massaged fort CP/M kermit V4.09
  29. ;
  30. ; Modifications to KERMIT-80 for use with Compupro Interfacer 3/4 "[gv]"
  31. ;
  32. ; Guy Valiquette, M.D.
  33. ; Black Bldg. Rm 322
  34. ; Dept. of Neurology
  35. ; College of Physicians & Surgeons
  36. ; Columbia University
  37. ; 630 W. 168th Street
  38. ; New York, NY 10032
  39. ; (212) 694-3965
  40. ;
  41. ; I/O routines for Interfacer 3/4 board
  42. ; Allow sending break with <ESC> B while CONNECTed
  43. ; Terminal control sequences for Wyse Technology WY-100
  44. ; Add calls to "hangup" subroutine in EXIT and BYE to hang-up phone if
  45. ;    using a smart modem by disabling UART (and withdrawing DTR signal)
  46. ;
  47. ;
  48. ; Using KERMIT with Compupro Interfacer 3/4:
  49. ;    - Set compro below to TRUE, all other to FALSE
  50. ;    - Select the ABSOLUTE USER number you want with the user EQUate
  51. ;    - Select the terminal control string set needed (or write your
  52. ;      own if not there)
  53. ;    - Note that I had to use a kludge to get the signon message right.
  54. ;      Code in KERMIT as I found it did not, nor could it, work.  Search
  55. ;      for the section of code under:  IF compro AND wy100  and imitate.
  56. ;    - If you have a smart modem, CONNECT puts you in contact with your
  57. ;      modem.  Use your usual "wake-up" character sequence to dial out.
  58. ;      You can CONNECT and return to KERMIT repeateadly without hanging up
  59. ;      UNLESS you change the baud rate, execute the BYE command or EXIT.
  60. ;    - Baud rate set up in code to use 1200 baud as default. Can easily
  61. ;      be changed to 300 (or whatever). The byte defined at label "baudrt"
  62. ;      is the mode register 2 used to initialize the UART on first CONNECT.
  63. ;      The low order nibble of this byte is the baud rate.  Refer to the
  64. ;      Compupro manual to set whatever default baud rate desired by changing
  65. ;      this low nibble at  baudrt db 0011$xxxxb.
  66. ;
  67. ; Note: "Wrapup" work (outlined below) to clean up code not done since
  68. ;    new version of KERMIT is due out in a few weeks (says fdc)
  69. ; 
  70. ; WRAPUP:
  71. ;    - outchri modification done for IF inout ONLY
  72. ;    - stchr routine implemented for IF inout ONLY
  73. ;      and used by outchr only
  74. ;
  75. ;
  76. ; Keep module name, edit number, and last revision date in memory.
  77. family: db      'CPXPRO.ASM (2)  16-Oct-1990 $'
  78. ;
  79. ; Assembly time message to let me know I'm building the right version.
  80. ; LASM generates an 'S' error along with the message, which is messy, but
  81. ; better than trying to put everything inside a IF m80 OR mac80 conditional,
  82. ; because LASM doesn't like nested IF's, either.
  83.  
  84. IF compro
  85. .printx * Assembling Kermit-80 for Compupro Interfacer 4 (or 3) *
  86. ENDIF
  87.  
  88. iobyte  EQU     03H     ;Location of I/O byte
  89.  
  90. IF compro
  91. if4    EQU    10H        ;standard base address of Interfacer 4/3 board
  92. datap    EQU    if4+0        ;data port (read/write)
  93. stat    EQU    if4+1        ;status port (read/write)
  94. mode    EQU    if4+2        ;mode registers (read/write)
  95. command    EQU    if4+3        ;command register (read/write)
  96. txint    EQU    if4+4        ;transmit interrupts status/mask (read/write)
  97. rxint    EQU    if4+5        ;receive interrupts status/mask (read/write)
  98. ;        if4+6         not used
  99. usersel    EQU    if4+7        ;absolute user number select register
  100. output    EQU    1
  101. input    EQU    2
  102. ; Note: tested with CP/M Ver2.2, and Racal-Vadic Auto Dial VA212 modem
  103. ;    and USRobotics Password modems. [gv]
  104. user    EQU    7        ;ABSOLUTE user number on IF4 or IF3
  105. ; Also remember to select a terminal!!!
  106. ENDIF;compro
  107. ;
  108.  
  109. sysxin:    ;system initialisation not covered by sysinit
  110.         ret                     ; return from system-dependent routine
  111.  
  112. ;
  113. ;
  114. ;       system-dependent termination processing
  115. ;       If we've changed anything, this is our last chance to put it back.
  116. sysexit:
  117.         ret
  118.  
  119. ;
  120. ;       system-dependent processing for start of CONNECT command
  121. ;
  122. syscon:
  123.         ret
  124.  
  125. ;
  126. ;
  127. ;       syscls - system-dependent close routine
  128. ;       called when exiting transparent session.
  129. ;
  130. syscls:
  131.         ret
  132. ;
  133. ;
  134. ;       sysinh - help for system-dependent special functions.
  135. ;       called in response to <escape>?, after listing all the
  136. ;       system-independent escape sequences.
  137. ;
  138. sysinh:    
  139.     lxi    d,inhlps    ; we got options...
  140.     call    prtstr        ; print them.
  141.         ret
  142. inhlps:
  143.  
  144.     db    cr,lf,'D - drop the line'
  145.     db    cr,lf,'B - send a break'
  146.     db    cr,lf
  147.         db      '$'                     ;[hh] table terminator
  148.  
  149. ;
  150. ;       sysint - system dependent special functions
  151. ;       called when transparent escape character has been typed;
  152. ;       the second character of the sequence is in A (and in B).
  153. ;       returns:
  154. ;       non-skip: sequence has been processed
  155. ;       skip:   sequence was not recognized
  156. sysint:
  157.     ani     137O            ; convert lower case to upper, for testing...
  158.  
  159.     cpi    'D'        ;Disconnect modem?
  160.     jnz    intc00        ;no
  161. hangup:    xra    a        ;get a null byte
  162.     out    command        ;disable UART
  163.     sta    ckdialf        ;pull down flag to reinitialize UART
  164.     ret            ;most smart modems will hang up on loosing DTR
  165. intc00:
  166.     cpi    'B'        ; Send a reak?
  167.     jz    sendbr
  168.         ret
  169.  
  170.  
  171. ;send a break
  172. sendbr:    mvi    a,user        ;select our UART
  173.     di            ;quiet
  174.     out    usersel        ;select it
  175.     in    command        ;get current command byte
  176.     ori    00001000b    ;set "send break" bit
  177.     out    command        ;send to UART
  178.     ei
  179.  
  180.         ;now for 300 msec timing loop (at 4 MHz, 0 wait state)
  181.     mvi    a,30        ;[obs] call delay for 300 ms
  182.     call    delay
  183.  
  184.     mvi    a,user        ;now, go back to UART
  185.     di            ;quiet
  186.     out     usersel
  187.     in    command        ;get current command
  188.     ani    11110111b    ;reset "send break" bit
  189.     ori    00010000b    ;and set "reset errors" command bit (in case)
  190.     out    command        ;send back to UART
  191.     ei
  192.     jmp    rskp
  193.  
  194.  
  195. ckdial:
  196.     lda    ckdialf        ;check flag that forces reinitialization
  197.     ora    a        ;test it
  198.     jz    ckdial0        ;must redo it
  199.     mvi    a,user        ;user number
  200.     di
  201.     out    usersel        ;select it
  202.     in    command        ;get current command register
  203.     ei
  204.     ani    00000111b    ;mask for normal operating mode
  205.                 ;(DTR on, RX and TX both enabled)
  206.     cpi    00000111b    ;is it?
  207.     jz    rskp        ;UART is on, start terminal emulation
  208. ; else initialize UART...
  209. ckdial0:di
  210.     mvi    a,user        ;select user
  211.     out    usersel
  212.     mvi    a,0001$0000b    ;reset errors command
  213.     out    command        ;send to command register
  214.     out    command
  215.     out    command        ;...make sure it got it
  216.     in    command        ;confirm
  217.     lda    moderg1        ;get mode register 1
  218.     out    mode        ;send it
  219.     lda    moderg2        ;get mode register 2
  220.     out    mode        ;send it
  221.     mvi    a,0011$0111b    ;command register to start things
  222.     out    command        ;send it
  223.     ei            ;turn interrupts back on
  224.     mvi    a,0ffh        ;get a non-zero byte
  225.     sta    ckdialf        ;pull down flag
  226. ;
  227.     jmp    rskp        ;start terminal emulation
  228.  
  229.  
  230. ;    sysflt - system-dependent filter.
  231. ;    called with the character in E.
  232. ;       preserves bc, de, hl.
  233. ;       note: <xon>,<xoff>,<del>, and <nul> are always discarded.
  234. sysflt:
  235.         mov     a,e             ; get character for testing
  236.         ret
  237.  
  238. ;       mdmflt - modem filter [30]
  239. ;       called with character to be sent to printer in E
  240. ;       with parity set as appropriate.
  241. ;       return with accumulator = 0 do do nothing,
  242. ;                               <> 0 to send char in E.
  243. mdmflt:
  244.         mov     a,e             ;[30] get character to test
  245.         ret
  246.  
  247.  
  248. ;       prtflt - printer filter [30]
  249. ;       called with character to be sent to printer in E
  250. ;       returns with a = 0 to do nothing
  251. ;                    a <> 0 to print it.
  252. ;
  253. ;       this routine for those printer that automatically insert
  254. ;       a lf on cr, or cr for lf.  Should this be shifted to 
  255. ;       the system indep. stuff, in say 4.06?
  256. prtflt:
  257.         mov     a,e             ; [30] get character to test
  258.         ret
  259.  
  260.  
  261. ;
  262. ;
  263. ; system-dependent processing for BYE command.
  264. ;  for apmmdm, heath, and lobo, hang up the phone.
  265. sysbye:
  266.  
  267.     call    hangup
  268.         ret
  269. ;
  270. ;       This is the system-dependent command to change the baud rate.
  271. ;       DE contains the two-byte value from the baud rate table; this
  272. ;       value is also stored in 'speed'.
  273. sysspd:
  274.  
  275.  
  276. IF compro
  277.     lda    speed        ;[MF]Get requested baud-rate
  278.         mov     b,a             ;Save the number.
  279.     lxi    h,baudrt    ;point to current baud rate
  280.     mov    a,m        ;get it
  281.     ani    0f0h        ;keep high nibble
  282.     ora    b        ;merge back baud rate
  283.     mov    m,a        ;store back
  284.     xra    a        ;clear A
  285.     sta    ckdialf        ;put up flag to force reinitialization
  286.     ret            ;...at next connect
  287.  
  288. ENDIF;compro
  289.  
  290.  
  291. ;
  292.  
  293. ;       Speed tables
  294. ; (Note that speed tables MUST be in alphabetical order for later
  295. ; lookup procedures, and must begin with a value showing the total
  296. ; number of entries.  The speed help tables are just for us poor
  297. ; humans.
  298.  
  299. ;       db      string length,string,divisor (2 identical bytes or 1 word)
  300. ; [Toad Hall]
  301.  
  302. spdtbl:    db    8        ;[MF]8 entries in speed table
  303.     db    3,'110$'
  304.     db    02h,02h        ;[MF]110 baud
  305.     db    4,'1200$'
  306.     db    07h,07h        ;[MF]1200 baud
  307.     db    5,'134.5$'
  308.     db    03h,03h        ;[MF]134.5 baud
  309.     db    3,'150$'
  310.     db    04h,04h        ;[MF]150 baud
  311.     db    4,'1800$'
  312.     db    08h,08h        ;[MF]1800 baud
  313.     db    5,'19200$'
  314.     db    0fh,0fh        ;[MF]19200 baud
  315.     db    4,'2000$'
  316.     db    09h,09h        ;[MF]2000 baud
  317.     db    4,'2400$'
  318.     db    0ah,0ah        ;[MF]2400 baud
  319.     db    3,'300$'
  320.     db    05h,05h        ;[MF]300 baud
  321.     db    4,'3600$'
  322.     db    0bh,0bh        ;[MF]3600 baud
  323.     db    4,'4800$'
  324.     db    0ch,0ch        ;[MF]4800 baud
  325.     db    2,'50$'
  326.     db    00h,00h        ;[MF]50 baud
  327.     db    3,'600$'
  328.     db    06h,06h        ;[MF]600 baud
  329.     db    4,'7200$'
  330.     db    0dh,0dh        ;[MF]7200 baud
  331.     db    2,'75$'
  332.     db    01h,01h        ;[MF]75 baud
  333.     db    4,'9600$'
  334.     db    0eh,0eh        ;[MF]9600 baud
  335.  
  336. sphtbl:    db    cr,lf,'50  75  110  134   150  300  600  1200'
  337.     db    cr,lf,'1800  2000  2400  3600  4800  7200  9600  19200$'
  338.  
  339. ckdialf:db    0            ;force UART initialization on entry
  340. baudrt:    db    0011$0111b    ;default baud rate: 1200 baud
  341. moderg1:db    0100$1110b    ;default mode register 1:
  342.                 ; -asynch, 8 data bits, 1 stop bit,
  343.                 ; -parity odd, disabled
  344. moderg2    EQU    baudrt
  345. ENDIF;compro
  346. ;
  347.  
  348. ;
  349. ; The following conditionals were once a huge if not statement.  There
  350. ; wasn't enough room to add the lobo to the list, so it had to be broken
  351. ; into 2, which you can't do with an if not.  I redid it as two ifs and
  352. ; applied them to those that wouldn't set baud. [Hal Hostetler]
  353. ;       This is the system-dependent SET PORT command.
  354. ;       HL contains the argument from the command table.
  355. sysprt:
  356.         ret
  357. ;
  358. ;
  359. ;    Port table not applicable
  360. prttbl   EQU     0
  361. prhtbl   EQU     0               ;
  362.  
  363. ;
  364. ;
  365. ;       selmdm - select modem port
  366. ;       selcon - select console port
  367. ;       selmdm is called before using inpmdm or outmdm;
  368. ;       selcon is called before using inpcon or outcon.
  369. ;       For iobyt systems, diddle the I/O byte to select console or comm port;
  370. ;       For Decision I, switches Multi I/O board to console or modem serial
  371. ;       port.  [Toad Hall]
  372. ;       For the rest, does nothing.
  373. ;       preserves bc, de, hl.
  374. selmdm:
  375.         ret
  376.  
  377. selcon:
  378.         ret
  379. ;
  380. ;       Get character from console, or return zero.
  381. ;       result is returned in A.  destroys bc, de, hl.
  382. ;
  383. inpcon:
  384.         mvi     c,dconio        ;Direct console I/O BDOS call.
  385.         mvi     e,0FFH          ;Input.
  386.         call    BDOS
  387.         ret
  388. ;
  389. ;
  390. ;       Output character in E to the console.
  391. ;       destroys bc, de, hl
  392. ;
  393. outcon:
  394.         mvi     c,dconio        ;Console output bdos call.
  395.         call    bdos            ;Output the char to the console.
  396.         ret
  397. ;
  398. ;
  399. ;       outmdm - output a char from E to the modem.
  400. ;               the parity bit has been set as necessary.
  401. ;       returns nonskip; bc, de, hl preserved.
  402. outmdm:
  403. ;************************System Dependent****************************
  404. ;
  405. ; Addition by [gv], 16/7/84
  406. ;    Return the status of the modem port:
  407. ;        Z flag set if NO input available
  408. ;        C flag set in NOT output ready
  409. ;    Destroys A and flags, preserves all other registers
  410. ;
  411. stchr:
  412.     di
  413.     mvi    a,user
  414.     out    usersel
  415.     in    stat
  416.     ani    output
  417.     in    stat
  418.     ei
  419.     jz    outmdm        ;not output ready, try again
  420. ; else...
  421.     di            ;no interrupts
  422.     mvi    a,user
  423.     out    usersel
  424.     mov    a,e        ;get back character
  425.     out    datap
  426.     ei
  427.     ret
  428.  
  429. ;
  430.  
  431. ;
  432. ;
  433. ;       get character from modem; return zero if none available.
  434. ;       for IOBYT systems, the modem port has already been selected.
  435. ;       destroys bc, de, hl.
  436. inpmdm:
  437. ;
  438.     di
  439.     mvi    a,user
  440.     out    usersel
  441.     in    stat
  442.     ei
  443.     ani    input        ;test for input status (C flag reset by ANI n)
  444.     rz            ; no input available
  445. ;
  446. ;************************System Dependent****************************
  447. ;
  448. ; Addition by [gv], 16/7/84
  449. ;    get a character "raw" (i.e. just get it in A)
  450. ;
  451. ; Note: MUST have character ready before call, use stchr
  452.     mvi    a,user
  453.     di
  454.     out    usersel
  455.     in    datap
  456.     ei
  457.     ret
  458. ;
  459. ;
  460.  
  461. ;
  462. ;       flsmdm - flush comm line.
  463. ;       Modem is selected.
  464. ;       Currently, just gets characters until none are available.
  465.  
  466. flsmdm: call    inpmdm          ; Try to get a character
  467.         ora     a               ; Got one?
  468.         jnz     flsmdm          ; If so, try for another
  469.         ret                     ; Receiver is drained.  Return.
  470.  
  471.  
  472. ;
  473. ;
  474. ;       lptstat - get the printer status. Return a=0 if ok, or 0ffh if not.
  475. lptstat:
  476.         xra     a               ; assume it is ok.. this may not be necessary
  477.         ret
  478. ;
  479. ;
  480. ;       outlpt - output character in E to printer
  481. ;       console is selected.
  482. ;       preserves de.
  483. outlpt:
  484.         push    d               ; save DE in either case
  485.         call    prtflt          ; go through printer filter [30]
  486.         ana     a               ; if A = 0 do nothing,
  487.         jz      outlp1          ; [30] if a=0 do nothing
  488.         mvi     c,lstout
  489.         call    bdos            ;Char to printer
  490. outlp1: pop     d               ; restore saved register pair
  491.  
  492.  
  493.  
  494. IF inout
  495. prtout:
  496. ENDIF ;inout
  497. IF compro AND inout
  498.     di
  499.     mvi    a,user
  500.     out    usersel
  501.     in    stat
  502.     ei
  503. ENDIF;compro AND inout
  504. IF (NOT compro) AND inout
  505.         in      mnprts          ;Get the output ready flag.
  506. ENDIF;(NOT compro) AND inout
  507. IF inout
  508.         ani     output          ;Is it set?
  509.         jz      prtout          ;If so, loop until it isn't.
  510. ENDIF ;inout
  511. IF compro AND inout
  512.     di
  513.     mvi    a,user
  514.     out    usersel
  515.     mov    a,e
  516.     out    datap
  517.     ei
  518. ENDIF;compro AND inout
  519. IF (NOT compro) AND inout
  520.         mov     a,e             ;Get the char to output.
  521. prtou2: out     mnport          ;Output it.
  522. ENDIF;(NOT compro) AND inout
  523.         ret
  524.  
  525.  
  526. ;
  527.  
  528. ;
  529. ;       Screen manipulation routines
  530. ;
  531. ; delchr - make delete look like a backspace.  Unless delete is a printing
  532. ;       character, we just need to print a backspace. (we'll output clrspc
  533. ;       afterwards)
  534. ;       For Kaypro and Vector General, delete puts a blotch on the screen.
  535. ;       For Apple and Osborne 1, delete moves but doesn't print.
  536. delchr:
  537.     mvi    e,bs
  538.     call    outcon
  539.  
  540. ; erase the character at the current cursor position
  541. clrspc: mvi     e,' '
  542.         call    outcon
  543.         mvi     e,bs            ;get a backspace
  544.         jmp     outcon
  545.  
  546. ; erase the current line
  547. clrlin: lxi     d,eralin
  548.         jmp     prtstr
  549.  
  550. ; erase the whole screen, and go home. preserves b (but not c)
  551. clrtop: lxi     d,erascr
  552.         jmp     prtstr
  553.  
  554.  
  555. IF compro; [gv]
  556. sysver:    db    '[Compupro IF4-',user+'0',']$'
  557. ENDIF;compro
  558.  
  559. IF lasm
  560. LINK    CPXVDU.ASM
  561. ENDIF ;lasm
  562.