; IBM mode restore program ; This routine must be run after using CP4DMF (and KERMIT-80) to restore ; the normal handling of XON/XOFF; the user may also elect to cold-boot ; the DECMATE instead. ; 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 xon/xoff disable program ; KERMIT80 then run kermit ; ; CP4DMU run this 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) coxon equ 000h ; enable comm. output XON oboff equ 3fh ; offset of outbyt routine for 6120 prtctl equ 02h ; port control start: org 100H sendbr: lxi b,(coxon * 100h) + prtctl ; c/prtctl, b/with 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