80-Bus News |
Summer 1985, Volume 4, Issue 2 |
|
|
|
Page 27 of 31 |
|
|
|
---|
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
This is an OCR’d version of the scanned page and likely contains recognition errors.
|
|
|
Page 27 of 31 |
|
|
|
---|