; IBM mode fixup program ; This routine must be run before attempting to use KERMIT-80 with half ; duplex KERMIT implementations such as CMS-KERMIT, as the 6120 processor ; will otherwise "swallow" the XON character. ; acknowledgments and limitations. ; This program is based on DECMATE specific implementation details ; provided by Walt Lamia of DEC. It is of course, specific to DECMATE ; implementations of CP/M-80 for DECMATE II, III, III-plus, etc. ; usage consists of merely: ; CP4DMF run this program ; KERMIT80 then run kermit ; ; CP4DMU run companion program to restore normal XON ; unless CP4DMU is run following KERMIT-80, the normal handling of ; XON/XOFF provided by KERMIT-80 will not work (cold boot is another ; alternative). ; CP4DMF.ASM ; last edit: 12-jun-87 20:00:00 Charles J. Lasner (CJL) oboff equ 3fh ; offset of outbyt routine for 6120 prtctl equ 02h ; port control nocoxon equ 001h ; turn off comm. output XON start: org 100H sendbr: lxi b,(nocoxon * 100h) + prtctl ; c/prtctl, b/no out. xon call outbyt ret ; and return outbyt: lhld 1 ; get warm boot address lxi d,oboff ; offset of outbyt routine dad d ; compute address pchl ; branch there (a callret) end