80-Bus News

org 500h .phase 100h

Do oeoididdidg, GEMINI OVERLAY HII AKAD IAAT IAS if GM811

‘

: wee Gemini GM811/813 overlay

?

; THE GEMINI SOURCE AS 15

: kk End of Gemini GM811/813 overlay **e*

,

else

; kx Gemini GM870 Overlay ***

,

: For ready initialised DART using DIAL type program.

‘

80 Bus News

jmp 00h ; Absolute start of program modctlp set 085h ; Modem control port for send noddatp set 084h ; Modem data port for send modcrev set modctlp ; Modem control port for receive noddrev set moddatp ; Modem data port for receive usndb set 4 : Modem send bit (xmit buffer empty) msndr set 4 ; Modem send ready mrevb set 1 ; Modem receive bit (rx buffer ready) mrevr set 1 ; Modem receive ready -It is important not to alter the addresses of labels below fastclk: db true : 4 MHz or greater processor speed bakupbyte: db false ; true=make .BAK file xprflg: db true ; true=menu initially off twidth: db 79 : Max. terminal columns saveflg: db false ; true=terminal filesave initially on echoflg: db false : true=terminal echo initially on initflg: db true : true=modem port already initialised ansbak: db true : true=answerback on “E inmodclp: in modctlp : Get send port status ret increv: in modcrcv : Get receive port status ret outmoddatp: out moddatp ; Send data ret anisnd: ani usndb ; Bit to test for send ready ret cpisnd: cpi msndr : Value of send bit when ready ret -inmoddatp: in moddrev : Get received data ret anirev: ani mrevb : Bit to test for receive ready ret cpircv: opi mrevr ; Value of receive bit when ready ret logmssg: db ‘Dave: Hunt’.cr,1f.0 .dephase org 550h «phase 150h : Do not alter this org initmod: jap geminit olid: db 2 : Overlay identity slo: jmp gusetlo shi: jmp gausethi txwait: jnup gntxw hexprt: jmp 0 ; UKM7 fills in address geminit: ret ; Dynamic split baud sets gmsetlo: ret gmsethi: ret gmtxw: ret

,

endif

wee End of Gemini GM870 overlay ***

Stoning END OF GEMINI OVERLAY toi .dephase

27