 

Т > IO : 6Т Access absolute memory, checking for I/O devices (6Т ------------------------------------------------ 2щРio_reset:А <: F#щєio_rd(A%):Г ports%=0:=mem%?A% P$Й C%:C%=єio_type:Г C%<0:=mem%?A% Z%Г(A%─&FFFC)<>port%(C%,0):=mem%?A% d'A%=A%─15:=═("FNio_rd"+цport%(C%,1)) n: x*щРio_wr(A%,B%):Г ports%=0:mem%?A%=B%:А ┌(Й C%:C%=єio_type:Г C%<0:mem%?A%=B%:А ▄)Г(A%─&FFFC)<>port%(C%,0):mem%?A%=B%:А √+A%=A%─15:A%=═("FNio_wr"+цport%(C%,1)):А ═: ╙щєio_type:C%=A%─&FFFC Є#Г port%(0,0):Г C%=port%(0,0):=0 Ў#Г port%(1,0):Г C%=port%(1,0):=1 хТ IF C%=port%(2,0):=2 рТ IF C%=port%(3,0):=2 э=-1 Ф: П
Т 6850 ЗJТ base+0 | b7: Enable receive ints    | b7: Interupt Request         |JТ        | b6: RTS low/high           | b6: Receive Parity Error     |JТ        | b5: Enable transmit ints   | b5: Receive Data Overrun     |JТ        | b4: 7bit/8bit data         | b4: Framing Error            |"JТ        | b3: 2/1 stop bits          | b3: Clear To Send not present|,JТ        | b2: even/odd parity        | b2: DCD not present          |6JТ        | b1-0: Clock divide 1/16/64 | b1: Transmit Register Empty  |@JТ        |       or reset             | b0: Receive Register Full    |JJТ base+1 |         Write Data         |         Read Data            |Tщєio_rd0^DГA%=1:=╔                                          :Т 6850 RxDatah8ГA%=0:Г і-256=≈"W":=2+((√(-1)<>&FF)─1) :Т 6850 RxRDYrГA%=0:=2+((√(-1)<>&00)─1)|=&7F├щєio_wr0░ГA%=1:О B%:=0:Т 6580 TxData !ГA%=0:=0       :Т 6580 TxCtrlє=0ў:╦
Т 6551бТ base+0 |  Data  | Dataл,Т base+1 | Reset  | b7: Interupt Requestж%Т        |        | b6: DSR levelЮ%Т        |        | b5: DCD levelЙ.Т        |        | b4: Transmit Reg EmptyТ1Т        |        | b3: Receive Register FullЧ0Т        |        | b2: Receive data overrun)Т        |        | b1: Framing Error0Т        |        | b0: Receive Parity errorТ base+2 | b7-5: parity&Т        | b4:   echo0Т        | b3-2: TxControl:"Т        | b1:   TxIRQ disableD!Т        | b0:   RxIRQ enableNТ base+3 | b7:   stop bitsX Т        | b6-5: word lengthbТ        | b4:   clocklТ        | b3-b0: baud ratevщєio_rd1─@ГA%=0:=╔                                      :Т 6551 RxData┼4ГA%=1:Г і-256=≈"W":=(√(-1)<>&FF)─8 :Т 6551 RxRDY■ГA%=1:=(√(-1)<>&00)─8·=&7F╗щєio_wr1╡ГA%=0:О B%:=0:Т 6551 TxData╪ ГA%=1:=0       :Т 6551 TxRDYф=0Ъ