//Sun-Proms.bcpl--Sun3MBEthernetboardProms//LastmodifiedFebruary10,19844:00PMbyBoggs//Sun-Rev-B&CadLink-Rev-0boardsrequireahardwarechange:(TXMultibus/Fifointerlock)//isolateU308pin4;connectittoU308pin25(P.Read/)//Otherknownhardwarefixes://isolateU511pin4;connectittoU111pin12(T.AbortAck/)//isolateU513pin2;connectittoU317pin9(TX.Jam)external[Ws;OpenFile;Puts;Closes;Allocate;Free;sysZone]static[memory;mbFile]structureString[lengthbyte;char^1,1byte]manifest[high=1;low=0]//-----------------------------------------------------------------------------------------letSunProms()be//-----------------------------------------------------------------------------------------[mbFile=OpenFile("Sun-Proms.mb")DoMemory("TX",256,8,TX)DoMemory("NewTX",256,8,NewTX)DoMemory("Ctrl",32,40,Ctrl)Puts(mbFile,0)//0=endoffileCloses(mbFile)]//-----------------------------------------------------------------------------------------andDoMemory(name,nAddr,nData,Proc)be//-----------------------------------------------------------------------------------------//nAddrisnumberofaddresses//nDataisnumberofoutputbits[Ws("*N");Ws(name)Puts(mbFile,4)//4=definememorymemory=memory+1Puts(mbFile,memory)Puts(mbFile,nData)ifname>>String.lengthgr1thenfori=1toname>>String.length-1by2doPuts(mbFile,name>>String.char^ilshift8+name>>String.char^(i+1))Puts(mbFile,(name>>String.length&1)eq0?0,name>>String.char^(name>>String.length)lshift8)Puts(mbFile,2)//2=setcurrentmemoryPuts(mbFile,memory)Puts(mbFile,0)//locationcounterpО_,НБНг Н╪Н3НН @Н#Н(╗Н,÷О]┘Н╣Н Н·Н{Н xН"╣Н&Н)▌Н,:Н.6О[щН╣Н Н╛НDН$Н(|Н-EН.nН4wН9≥ОZ6Н╣Нм ОX▌Н╣ННbНН▀Н9Н#PН$іН&UН* Н,~Н.cОVГН╣Н Н▒НН ОU@Н╣ННbНН▀Н9Н#PН$іН&UН* Н,~Н.cОS≤Н╣ННbНН▀Н9Н#PН$іН&UН* Н,~Н-ЁОPIН╣НВНчНаНXН"АН'╘Н-┘Н19Н6├ОLЗН╣Н>Н&ННуОI╛Н╣НrН┼НrН╚Н"5Н'ўН*ЎОF]Н╣НDН+НQН6НДН┘Н!jН"·ОCН╣П[ОAfН╣Н╠ Н;О?©Н╣П[О>Н╣ОН"ВО0эН╣ О/5Н╣О+ФН╣П[О*>Н╣Нl НМН"╙Н'&Н*пО(≈Н╣П[О&ПН╣Н НЪНkН≈НPО%HН╣Н НЎН)НVНН"│О#║Н╣О!ЫН╣НЎО╙Н╣НзНН╒Н┤Н"юОН╣Н"ННtО\Н╣НзОЄН╣НзО Н╣ННвН░Н еОeНBННfНLН─Н/Н'Н)Н*JОЎНоНТН'÷Н+Н,RН.7ОН╣НзН%Н&ґН([Н*KН,ОoН9П'Н)╠Н-/О Н╣НзНН╒Н┤Н єН%mОyН╣НзО яН╣НзН Н єяTVm$Э2letdata=Allocate(sysZone,(nData+15)/16)foraddr=0tonAddr-1do[Puts(mbFile,1)//1=memorycontentsPuts(mbFile,0)//sourcelinenumberProc(addr,data)fori=0to(nData+15)/16-1doPuts(mbFile,data!i)]Free(sysZone,data)]//-----------------------------------------------------------------------------------------andTX(addr,data)be//-----------------------------------------------------------------------------------------[structureAddr:[blankbit8statebit2timeoutbitinhibitbitreadybitwrdbitjambitcarrierbit]structureData:[nextStatebit2notIdlebitidlebitblankbitloadbitnotGobitgobitblankbit8]manifest[stateIdle=0stateData=1stateCRC=2]letstate=addr<О6Н╣Н╠Н"НН$Н%СО ▐Н╣Н╠Н{Н`Н"ІН$іОХН╣Н╠Н~Нc Н ╨Н"╚О @Н╣Н╠НgНL Н █Н"~TVm$o3letcarrier=addr<>Data.nextState=nextStatedata>>Data.notIdle=idle?low,highdata>>Data.idle=idle?high,lowdata>>Data.load=load?high,lowdata>>Data.notGo=go?low,highdata>>Data.go=go?high,low]//-----------------------------------------------------------------------------------------andNewTX(addr,data)be//-----------------------------------------------------------------------------------------[structureAddr:[blankbit8statebit2timeoutbitinhibitbitreadybitwrdbitqОg/НEиpО_,Н╣Н╠ННПН#тН%еО[щН╣Н╠Н╞Н∙ОZ6Н╣Н╠НюН'ННЭН└Н#ОX▌Н╣ОVГН╣НqН╒ОU?НBОS≤НBН0 ОQПНоОPIНоН/НєНoНЭН VН#|Н&3Н(ОN║НоН/НЗН▓НН aН#┤Н)├Н+kН1uН7ОLЗНоОKRНоОI╚НBН0 ОHНоОF\НоН©НєНОD╣НоН/НєН[НСНюНXН##Н&IН)XН+=ОC НоН/НЩН■НН ,Н&*Н(ОC Н.ІН2нН4┤ОAfНоН/НЩН■Н НтН!ЗН'ЫН)чОAfН0хН5-О?ЎНоН/НФНsН┴Н ╞Н&ўН(⌠О?ЎН.ІО>НоОНBНwН\ОО5яН╣Н╠Н"НН$Н%СО4*Н╣Н╠Н{Н`Н"ІН$іО2┌Н╣Н╠Н~Нc Н ╨Н"╚О0шН╣Н╠НgНL Н █Н"~О/4Н╣Н╠ННПН#тН%еО+ЕН╣Н╠Н╞Н∙О*=Н╣Н╠НюН'ННЭН└Н#О(√Н╣О&НН╣НqН╒О%GНBО#÷НBН0 О!ЬНоО PНоН/НЗН▓НН aН!ЫН$nН(ъН,Н2Н3ИН9СО╘Н╣ОНоОZНоОЁНBН0 ОНоОdНоН©НєНО╪НоН/НєН[НСНhН!ыН#qН&>Н'жН+║Н.гН1жН3╩ОНоН/НЩН■НН ,Н&*Н(ОН.ІН2нН4┤ОmНоН/НЩН■Н НтН!ЗН'ЫН)чОmН0хН5-ОфНоН/НФНsН┴Н ╞Н&ўН(⌠ОфН.ІОНоОwНоО оНBН0ЫTVm$Ў5[go=notjamifwrdthennextState=stateIdle//endofCRCifjam%timeoutthennextState=stateIdle//catastropheendcase]default:nextState=stateIdle]data>>Data.nextState=nextStatedata>>Data.notIdle=nextStatenestateIdle?low,highdata>>Data.idle=nextStateeqstateIdle?high,lowdata>>Data.done=(nextStateeqstateIdle¬jam)?low,highdata>>Data.load=load?high,lowdata>>Data.abrt=jam?low,highdata>>Data.go=go?high,low]//-----------------------------------------------------------------------------------------andCtrl(addr,data)be//-----------------------------------------------------------------------------------------[structureAddr:[blankbit11Instrbit5]structureData:[BufWEbitRBufCEbit//lowtrueTBufCEbit//lowtrueCReadbit//lowtruePWritebit//lowtruePReadbit//lowtrueTWritebit//lowtrueRReadbit//lowtrueRxOverflowbitTxTimeoutbitRxInterruptbitQEmptybitAckbit//lowtrueResumebitCarryInbitDestHighbitDestLowbit2Functionbit3Sourcebit3BRegbit4ARegbit4Branchbit3qОg/НEиpО_,НоО]┘НоН©НєНО[щНоН/НЩН#Н "Н"О[щН*■Н.╛Н0eОZ6НоН/НФНsН┴Н ╞Н&ўН(⌠ОZ6Н.ІОX▌НоОVГНоОU?НBНcНbНHОS≤НBОPIН╣НфН╚ОN║Н╣Н▐НuН#sН%d Н+xН.qОLЗН╣Н~НcН!bН#R Н)fН,ДОKRН╣Н9Н Н"≈Н$┤Н*Н+єН.Н1ьН4яОI╚Н╣НжН╩НYН"вОHН╣Н╙Н▐НуН!нОF\Н╣НЇН°НН ≥ОD╣Н╣ОC Н╣ОAfН╣П[О?ЎН╣Нl НнНLО>Н╣П[ОНB НеН╙ОНBН'НО(≈НBНKН0О&ОНBНТНыО%HНBН)НО#║НBНшНаО!ЫНBННЩО RНB НжН╩О╙НBНЦНхОНBННЪОЄНBН'Н┼ОНBНЮНфОeНBННФОЎНBН┬НmОНBНRН7ОoНBННЧОгНBНКНяО НBНsНXОxНBН<Н!О яНBН⌠Нx TVm$│7timer=9random=10//BranchConditionCodes(CC)Never=0NonZero=1Zero=2NoCarry8=3Positive=4Negative=5Equal=6Always=7//2901FunctionsRplusS=0SminusR=1RminusS=2RorS=3RandS=4NotRandS=5RxorS=6RxnorS=7//2901SourcesAQ=0AB=1ZQ=2ZB=3ZA=4DA=5DQ=6DZ=7//2901DestinationsQReg=0Nop=1RamA=2RamF=3RamQD=4RamD=5RamQU=6RamU=7]letNext,Branch=0,NeverletCarryIn,Function,Source=nil,nil,nilletAReg,BReg,Destination=nil,nil,nilletResume,Ack,QEmpty=false,false,falseletRxInterrupt,TxTimeout,RxOverflow=false,false,falseletRRead,TWrite,PRead,PWrite,CRead=false,false,false,false,falseletTBufCE,RBufCE,BufWE=false,false,falseqОg/НEиpО_7НBНКНяО]░НBНbНHО[ХН╣ОZAНBН'НЕНgН"∙ОX≥НBНhНMОVРНBН7НОUJНBН⌠НxОSёНBН╠Н√ОQШНBНbНGОPTНBННЯОN╛НBНDН)ОMНBН ННОIІНBН'НmОHНBННПОFgНBН5НОD©НBН5НОCНBНжН╩ОApНBНиНўО?иНBННШО>!НBН├НkОНBНМНсО-≈НBНЫНчО+ОНBНмН╡О(═НBН'НmО&ЫНBН8НО%QНBНkНPО#╙НBНіН▀О"НBН├НkО [НBНяНІОЁНBНҐН╒ОНBНяНІОdНBНҐН╒ОҐНBОnН╣Н╠НtН2ННєОгН╣Н╠Н4НtН"Н#КН&UН(ЎОН╣Н╠НТН Н!vН#[Н%дН(.ОxН╣Н╠НVН▒Н Н"Н%█Н)ОпН╣Н╠Н╚ Н!* Н(КН*пН.XН1ЮО)Н╣Н╠Н╠НяН Н%єН*AН,&Н/ўН37Н6©Н:GО│Н╣Н╠Н│НsН"hН$MН'уН+]О зН╣STVm$╪8switchonaddr<ОKSНоН╨Н÷НЇН ┌Н"gН%з Н-9Н/ОI╚НоН:НОHНоОF]НоОD╣НBН0ОD╣НН цН"PОCНоОAfНоНЗНъНЫН"АН$фН)фН.YН0>О?©НоН╨Н÷НЇН ┌Н"gН&' Н-├Н/kО>НоН:НОО4+НоН╨Н÷НЇН ┌Н"gН%П Н-OН/4О2┐НоН:НО0эНоО/5НоО-█Н╣О+ФНBН0О+ФНН';Н*kН.*О*>Н╣ НоО(≈НоО&ПНоНЗНъНЫН"АН$фН+2Н/дН1╘О%HНоН╨Н÷Н(НСН!ьН%≤ Н,ВН.эО#║Но НХНйН╞Н"КО!ЫНоН█НrО RНоН:НО╙НоОНоО\НBН0О\Н-Н#pН$ЭН)╞Н-ИН/vОЄНоО НоНЗНъНЫН"АН$фН)фН.YН0>ОeНоН╨Н÷НОН ╨Н"÷Н&О Н.NН03ОЎНоН:НОНоОoНоОхНBН0ОхН- Н'ТН)│О НоОyНоНЗНъНЫН"АН$фН(сН-eН/JО яНоН╨Н÷НЇН ┌Н"gН&÷ Н-ЧН/Ц▐TVm$9RBufCE,BufWE,CRead=true,true,trueNext=RxEnd3endcase]caseRxEnd3://rBase_rPut;RxBuf[rPut]_Latch;QEmpty[CarryIn=low;Function=RorS;Source=ZAAReg=rPut;BReg=rBase;Destination=RamFRBufCE,BufWE,CRead=true,true,trueQEmpty=trueNext=RxEnd4endcase]caseRxEnd4://rPut_rPut+1;Return[CarryIn=high;Function=RplusS;Source=ZBAReg=spare;BReg=rPut;Destination=RamFBranch=Alwaysendcase]caseRxReady://Test(rPut-rGet)mod2^11;SetRxOverflow(EQ);Return(EQ);Ack[CarryIn=low;Function=RminusS;Source=ABAReg=rPut;BReg=rGet;Destination=NopRxOverflow,Ack=true,trueBranch=EqualNext=RxReady1endcase]caseRxReady1://count_count+1[CarryIn=high;Function=RplusS;Source=ZBAReg=spare;BReg=count;Destination=RamFNext=RxReady2endcase]caseRxReady2://RxBuf[rPut]_Rx;rPut_rPut+1;Return[CarryIn=high;Function=RplusS;Source=ZAAReg=rPut;BReg=rPut;Destination=RamARBufCE,BufWE,RRead=true,true,trueBranch=Alwaysendcase]casePortReadReq://Port_RxBuf[rGet][CarryIn=low;Function=RorS;Source=ZBAReg=spare;BReg=rGet;Destination=NopRBufCE,PWrite=true,trueqОg/НEиpО_,НоНаН Н"╙Н$▐Н'кН+О]┘НоН:НО[щНоОZ6НоОX▌НBН0ОX▌Н-Н#MН$зН(c Н0Н1їН6ОVГНоОU?НоНЗНъНЫН"АН$фН(сН-eН/JОS≤НоН╨Н÷Н(НСН!ьН& Н-oН/TОQЯНоНаН Н"╙Н$▐Н'кН+ОPIНоН^НCОN╒НоН:НОLЗНоОKSНоОI╚НBН0ОI╚Н-Н"·Н$+Н)еОHНоОF\НоНЗНъН~Н#fН%KН*▌Н/ Н1ОD╣НоН╨Н÷НЇН ┌Н"gН%П Н-OН/4ОCНоН█НrОAfНоО?©НоО>Н╣ОНоО(≈НоНЗНъН~Н#fН%KН*▌Н/ Н1О&ОНоН╨Н÷НЇН ┌Н"gН&Ї Н.Н/ШО%HНоН:НО#═НоО!ЫНоО QНBН0О QНН%4Н&аН)xН,┬Н.Н3╞О╙НоОНоНЗНъН~Н#fН%KН*▌Н/ Н1О[НоН╨Н÷Н(НСН!ьН%a Н,юН.╔ОЄНоНаН Н"╣Н$ Н'жН+ОНоН█НrОeНоОҐНоОoНBН0ОoН-Н"▓Н$ ОгНоО НоНЗНъНЫН"АН$фН(сН-eН/JОxНоН╨Н÷НЇН ┌Н"gН&' Н-├Н/kО яНоНаНsНXН"■ФTVm$&10Next=PortReadReq1endcase]casePortReadReq1://Test(rGet-Rbase)mod2^11;ClearRxInterrupt(EQ);Return(EQ)[CarryIn=low;Function=RminusS;Source=ABAReg=rGet;BReg=rBase;Destination=NopRxInterrupt=trueBranch=EqualNext=PortReadReq2endcase]casePortReadReq2://rGet_rGet+1;Goto(Idle)[CarryIn=high;Function=RplusS;Source=ZBAReg=spare;BReg=rGet;Destination=RamFNext=Idleendcase]casePortWriteReq://Test(tPut);TxBuf[tPut]_Port;Return(Z);Resume(PortStart)[CarryIn=low;Function=RorS;Source=ZBAReg=PortStart;BReg=tPut;Destination=NopTBufCE,BufWE,PRead=true,true,trueResume=trueBranch=ZeroNext=PortWriteReq1endcase]casePortWriteReq1://tPut_tPut-1;Return(NZ);Goto(TxStart);Resume(PortStart3)[CarryIn=low;Function=SminusR;Source=ZBAReg=PortStart3;BReg=tPut;Destination=RamFResume=trueBranch=NonZeroNext=TxStartendcase]casePortStart://tBase_DataBus[CarryIn=low;Function=RorS;Source=DZAReg=spare;BReg=tBase;Destination=RamFNext=PortStart1endcase]casePortStart1://tPut_tBase[qОg/НEpО_,НоН:НО]┘НоО[щНоОZ6НBН0ОZ6Н-Н*_Н-░Н1OОX▌Н╣ ОVГНоОU@НоНЗНъНЫН"АН$фН+2Н/дН1╘ОS≤НоН╨Н÷Н_Н )Н"Н&G Н-іН/▀ОQЯНо НqНVОPIНоН█НrОN╒НоН:НОLЗНоОKSНоОI╛НBН0ОI╛Н-Н"тН$aН*2 ОHНоОF]НоНЗНъН~Н#fН%KН*▌Н/ Н1ОD╣НоН╨Н÷НЇН ┌Н"gН&' Н-├Н/kОCНоН:НОAfНоО?©НоО>Н╣ОН$≥Н&&Н*д Н2М О(≈Н╣О&ПНоО%HНоНЗНъНЫН"АН$фН+2Н/дН1╘О#║НоН╨Н÷ Н⌡Н#fН%KН(Ў Н0Н2О!ЫНоННО RНоН█НrО╚НоН:НОНоО\НоО НBН0 О НН!&Н"ЁОeНоОЎНоНЗНъНЫН"АН$фН(сН-eН/JОНоН╨Н÷НЇН ┌Н"gН&┼ Н-ИН/нОoНоН:Н ОхНоО НоОyНBН0 ОyНН wН"О рНоІTVm$Д11CarryIn=low;Function=RorS;Source=ZAAReg=tBase;BReg=tPut;Destination=RamFNext=PortStart2endcase]casePortStart2://mask_0(maskisinQregister)[CarryIn=low;Function=RandS;Source=ZQAReg=spare;BReg=spare;Destination=QRegNext=PortStart3endcase]casePortStart3://retry_0[CarryIn=low;Function=RandS;Source=ZBAReg=spare;BReg=retry;Destination=RamFNext=PortStart4endcase]casePortStart4://timer_0;Return[CarryIn=low;Function=RandS;Source=ZBAReg=spare;BReg=timer;Destination=RamFBranch=Alwaysendcase]caseTxStart://tGet_tBase;Goto(TxReady)[CarryIn=low;Function=RorS;Source=ZAAReg=tBase;BReg=tGet;Destination=RamFNext=TxReadyendcase]caseTxReady://Tx_TxBuf[tGet];tGet_tGet-1;Ack;Goto(Idle)[CarryIn=low;Function=SminusR;Source=ZAAReg=tGet;BReg=tGet;Destination=RamATBufCE,TWrite=true,trueAck=trueNext=Idleendcase]caseTxAbort://mask_ShiftLeft(mask);Ack[CarryIn=low;Function=RorS;Source=ZQAReg=spare;BReg=spare;Destination=RamQUAck=trueNext=TxAbort1endcaseqОg/НEpО_,НоНЗНъНЫН"АН$фН(сН-eН/JО]┘НоН╨Н÷НбН █Н"rН%Е Н-DН/)О[щНоН:Н ОZ6НоОX▌НоОVГНBН0 ОVГНН!Н"²ОVГН$aН(mН)ыН+┤Н-ОU?НоОS≤НоНЗНъНЫН"АН$фН)фН.YН0>ОQПНоН╨Н÷НЇН ┌Н"gН& Н-чН/цОPIНоН:Н ОN║НоОLЗНоОKRНBН0 ОKRНН нН"[ОI╚НоОHНоНЗНъНЫН"АН$фН)фН.YН0>ОF\НоН╨Н÷НЇН ┌Н"gН&2 Н-▒Н/vОD╣НоН:Н ОC НоОAfНоО?ЎНBН0 О?ЎНН!&Н"ЁН$aО>НоОО:хНоН╨Н÷НЇН ┌Н"gН&┼ Н-ИН/нО9 НоН█НrО7yНоО5яНоО4*Н╣О2┌НBН0О2┌НН²Н )Н$LО0шНоО/4НоНЗНъНЫН"АН$фН(сН-eН/JО-▄НоН╨Н÷НбН █Н"rН& Н-{Н/`О+ЕНоН:НО*=НоО(√НоО%GНBН0О%GНН≥Н!&Н)VН,┤Н.Н2ХН6D О#÷НоО!ЬНоНЗНъНЫН"АН$фН+2Н/дН1╘О PНоН╨Н÷НIН Н!ЫН%ё Н-Н.ГО╘НоН÷НgНMН"┴ОНоН╠Н√ОZНоН:НО╡НоОНоО╪НBН0О╪НН!Н"²Н,ЙОНоОmНоНЗНъНЫН"АН$фН(сН-eН/JОфНоН╨Н÷НЇН ┌Н"gН& Н-чН/цОНоН╠Н√ОwНоН:НО оНо╘TVm$ 12]caseTxAbort1://retry_random&mask;Return(NZ);Goto(TxStart)[CarryIn=low;Function=RandS;Source=AQAReg=random;BReg=retry;Destination=RamFBranch=NonZeroNext=TxStartendcase]caseIdle://random_random+1;Return(NCY8);Goto(TxTimer)[CarryIn=high;Function=RplusS;Source=ZBAReg=spare;BReg=random;Destination=RamFBranch=NoCarry8Next=TxTimerendcase]caseTxTimer://Test(tGet);Return(Neg)[CarryIn=low;Function=RorS;Source=ZBAReg=spare;BReg=tGet;Destination=NopBranch=NegativeNext=TxTimer1endcase]caseTxTimer1://timer_timer-1;Return(Z);SetTxTimeout(Z);Resume(TxTimer4)[CarryIn=low;Function=SminusR;Source=ZBAReg=TxTimer4;BReg=timer;Destination=RamFResume,TxTimeout=true,trueBranch=ZeroNext=TxTimer2endcase]caseTxTimer2://Test(retry);Return(Z)[CarryIn=low;Function=RorS;Source=ZBAReg=spare;BReg=retry;Destination=NopBranch=ZeroNext=TxTimer3endcase]caseTxTimer3://Retry_Retry-1;Return(NZ);Goto(TxStart)[CarryIn=low;Function=SminusR;Source=ZBAReg=spare;BReg=retry;Destination=RamFBranch=NonZeroNext=TxStartendcaseqОg/НEpО_,НоО]┘НBН0О]┘НН нН"[Н'|Н)Н- Н5IО[щНоОZ6НоНЗНъНЫН"АН$фН)фН.YН0>ОX▌НоН╨Н÷Н9Н"Н#ИН'Ё Н/Н0ЬОVГНоН█НrОU?НоН:НОS≤НоОQПНоОN║НBН0ОN║НН ▄Н"Н)дН3ҐОLЗНоОKRНоНЗНъН~Н#fН%KН*▌Н/ Н1ОI╚НоН╨Н÷НЇН ┌Н"gН( Н/`Н1EОHНоН█НrОF\НоН:НОD╣НоОC НоОAfН╣О?ЎНBН0О?ЎНН$ О>НоО>Data.BufWE=BufWE?high,lowdata>>Data.RBufCE=RBufCE?low,highdata>>Data.TBufCE=TBufCE?low,highdata>>Data.CRead=CRead?low,highdata>>Data.PWrite=PWrite?low,highdata>>Data.PRead=PRead?low,highdata>>Data.TWrite=TWrite?low,highdata>>Data.RRead=RRead?low,highdata>>Data.RxOverflow=RxOverflow?high,lowdata>>Data.TxTimeout=TxTimeout?high,lowdata>>Data.RxInterrupt=RxInterrupt?high,lowdata>>Data.QEmpty=QEmpty?high,lowdata>>Data.Ack=Ack?low,highdata>>Data.Resume=Resume?high,lowdata>>Data.CarryIn=CarryIndata>>Data.DestHigh=Destinationrshift2data>>Data.DestLow=Destinationdata>>Data.Function=Functiondata>>Data.Source=Sourcedata>>Data.BReg=BRegdata>>Data.AReg=ARegdata>>Data.Branch=Branchdata>>Data.Next=Nextxor20b]qОg/НEpО_,НоО]┘НBН0О]┘НН ўН";Н$bО[щНоОZ6НоНЗНъНЫН"АН$фН*JН.эН0аОX▐НоН╨Н÷НIН Н!ЫН%ё Н-Н.ГОVГНоН█НrОU@НоОS≥НоОQЯНBОPJН╣ОNёН╣Н╩Н═Н##Н&║ОLШН╣НaНFН$oН'hОKTН╣Н?Н$Н$,Н'%ОIґН╣НcНHН"tН%mОHН╣НyН^Н"÷Н%≤ОF^Н╣Н7НН"Н%ОDЇН╣Н▐НtН"кН%дОCН╣НoНTН"▀Н%└ОAhН╣Н┤Н l Н(╪Н,:О?аН╣НННс Н'┴Н+О>Н╣НiН NН(Н+ЩОО/7Н╣Н▒НvО-░Н╣Н╡Н≈О+ИН╣Н┘НjО*AН╣Н2НН┐Н!ВО( Н╣FTVm$SЪ HELVETICAЧ÷ЪLAURELЧ÷/д│yФ#@' + / 2j/53·t>PЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪ[Ivy]Sun>Sun-Proms.bcpl"Friday, March 29, 1985 9:30 am PST