| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192519351945195519651975198519952005201520252035204520552065207520852095210521152125213521452155216521752185219522052215222522352245225522652275228522952305231523252335234523552365237523852395240524152425243524452455246524752485249525052515252525352545255525652575258525952605261526252635264526552665267526852695270527152725273527452755276527752785279528052815282528352845285528652875288528952905291529252935294529552965297529852995300530153025303530453055306530753085309531053115312531353145315531653175318531953205321532253235324532553265327532853295330533153325333533453355336533753385339534053415342534353445345534653475348534953505351535253535354535553565357535853595360536153625363536453655366536753685369537053715372537353745375537653775378537953805381538253835384538553865387538853895390539153925393539453955396539753985399540054015402540354045405540654075408540954105411541254135414541554165417541854195420542154225423542454255426542754285429543054315432543354345435543654375438543954405441544254435444544554465447544854495450545154525453545454555456545754585459546054615462546354645465546654675468546954705471547254735474547554765477547854795480548154825483548454855486548754885489549054915492549354945495549654975498549955005501550255035504550555065507550855095510551155125513551455155516551755185519552055215522552355245525552655275528552955305531553255335534553555365537553855395540554155425543554455455546554755485549555055515552555355545555555655575558555955605561556255635564556555665567556855695570557155725573557455755576557755785579558055815582558355845585558655875588558955905591559255935594559555965597559855995600560156025603560456055606560756085609561056115612561356145615561656175618561956205621562256235624562556265627562856295630563156325633563456355636563756385639564056415642564356445645564656475648564956505651565256535654565556565657565856595660566156625663566456655666566756685669567056715672567356745675567656775678567956805681568256835684568556865687568856895690569156925693569456955696569756985699570057015702570357045705570657075708570957105711571257135714571557165717571857195720572157225723572457255726572757285729573057315732573357345735573657375738573957405741574257435744574557465747574857495750575157525753575457555756575757585759576057615762576357645765576657675768576957705771577257735774577557765777577857795780578157825783578457855786578757885789579057915792579357945795579657975798579958005801580258035804580558065807580858095810581158125813581458155816581758185819582058215822582358245825582658275828582958305831583258335834583558365837583858395840584158425843584458455846584758485849585058515852585358545855585658575858585958605861586258635864586558665867586858695870587158725873587458755876587758785879588058815882588358845885588658875888588958905891589258935894589558965897589858995900590159025903590459055906590759085909591059115912591359145915591659175918591959205921592259235924592559265927592859295930593159325933593459355936593759385939594059415942594359445945594659475948594959505951595259535954595559565957595859595960596159625963596459655966596759685969597059715972597359745975597659775978597959805981598259835984598559865987598859895990599159925993599459955996599759985999600060016002600360046005600660076008600960106011601260136014601560166017601860196020602160226023602460256026602760286029603060316032603360346035603660376038603960406041604260436044604560466047604860496050605160526053605460556056605760586059606060616062606360646065606660676068606960706071607260736074607560766077607860796080608160826083608460856086608760886089609060916092609360946095609660976098609961006101610261036104610561066107610861096110611161126113611461156116611761186119612061216122612361246125612661276128612961306131613261336134613561366137613861396140614161426143614461456146614761486149615061516152615361546155615661576158615961606161616261636164616561666167616861696170617161726173617461756176617761786179618061816182618361846185618661876188618961906191619261936194619561966197619861996200620162026203620462056206620762086209621062116212621362146215621662176218621962206221622262236224622562266227622862296230623162326233623462356236623762386239624062416242624362446245624662476248624962506251625262536254625562566257625862596260626162626263626462656266626762686269627062716272627362746275627662776278627962806281628262836284628562866287628862896290629162926293629462956296629762986299630063016302630363046305630663076308630963106311631263136314631563166317631863196320632163226323632463256326632763286329633063316332633363346335633663376338633963406341634263436344634563466347634863496350635163526353635463556356635763586359636063616362636363646365636663676368636963706371637263736374637563766377637863796380638163826383638463856386638763886389639063916392639363946395639663976398639964006401640264036404640564066407640864096410641164126413641464156416641764186419642064216422642364246425642664276428642964306431643264336434643564366437643864396440644164426443644464456446644764486449645064516452645364546455645664576458645964606461646264636464646564666467646864696470647164726473647464756476647764786479648064816482648364846485648664876488648964906491649264936494649564966497649864996500650165026503650465056506650765086509651065116512651365146515651665176518651965206521652265236524652565266527652865296530653165326533653465356536653765386539654065416542654365446545654665476548654965506551655265536554655565566557655865596560656165626563656465656566656765686569657065716572657365746575657665776578657965806581658265836584658565866587658865896590659165926593659465956596659765986599660066016602660366046605660666076608660966106611661266136614661566166617661866196620662166226623662466256626662766286629663066316632663366346635663666376638663966406641664266436644664566466647664866496650665166526653665466556656665766586659666066616662666366646665666666676668666966706671667266736674667566766677667866796680668166826683668466856686668766886689669066916692669366946695669666976698669967006701670267036704670567066707670867096710671167126713671467156716671767186719672067216722672367246725672667276728672967306731673267336734673567366737673867396740674167426743674467456746674767486749675067516752675367546755675667576758675967606761676267636764676567666767676867696770677167726773677467756776677767786779678067816782678367846785678667876788678967906791679267936794679567966797679867996800680168026803680468056806680768086809681068116812681368146815681668176818681968206821682268236824682568266827682868296830683168326833683468356836683768386839684068416842684368446845684668476848684968506851685268536854685568566857685868596860686168626863686468656866686768686869687068716872687368746875687668776878687968806881688268836884688568866887688868896890689168926893689468956896689768986899690069016902690369046905690669076908690969106911691269136914691569166917691869196920692169226923692469256926692769286929693069316932693369346935693669376938693969406941694269436944694569466947694869496950695169526953695469556956695769586959696069616962696369646965696669676968696969706971697269736974697569766977697869796980698169826983698469856986698769886989699069916992699369946995699669976998699970007001700270037004700570067007700870097010701170127013701470157016701770187019702070217022702370247025702670277028702970307031703270337034703570367037703870397040704170427043704470457046704770487049705070517052705370547055705670577058705970607061706270637064706570667067706870697070707170727073707470757076707770787079708070817082708370847085708670877088708970907091709270937094709570967097709870997100710171027103710471057106710771087109711071117112711371147115711671177118711971207121712271237124712571267127712871297130713171327133713471357136713771387139714071417142714371447145714671477148714971507151715271537154715571567157715871597160716171627163716471657166716771687169717071717172717371747175717671777178717971807181718271837184718571867187718871897190719171927193719471957196719771987199720072017202720372047205720672077208720972107211721272137214721572167217721872197220722172227223722472257226722772287229723072317232723372347235723672377238723972407241724272437244724572467247724872497250725172527253725472557256725772587259726072617262726372647265726672677268726972707271727272737274727572767277727872797280728172827283728472857286728772887289729072917292729372947295729672977298729973007301730273037304730573067307730873097310731173127313731473157316731773187319732073217322732373247325732673277328732973307331733273337334733573367337733873397340734173427343734473457346734773487349735073517352735373547355735673577358735973607361736273637364736573667367736873697370737173727373737473757376737773787379738073817382738373847385738673877388738973907391739273937394739573967397739873997400740174027403740474057406740774087409741074117412741374147415741674177418741974207421742274237424742574267427742874297430743174327433743474357436743774387439744074417442744374447445744674477448744974507451745274537454745574567457745874597460746174627463746474657466746774687469747074717472747374747475747674777478747974807481748274837484748574867487748874897490749174927493749474957496749774987499750075017502750375047505750675077508750975107511751275137514751575167517751875197520752175227523752475257526752775287529753075317532753375347535753675377538753975407541754275437544754575467547754875497550755175527553755475557556755775587559756075617562756375647565756675677568756975707571757275737574757575767577757875797580758175827583758475857586758775887589759075917592759375947595759675977598759976007601760276037604760576067607760876097610761176127613761476157616761776187619762076217622762376247625762676277628762976307631763276337634763576367637763876397640764176427643764476457646764776487649765076517652765376547655765676577658765976607661766276637664766576667667766876697670767176727673767476757676767776787679768076817682768376847685768676877688768976907691769276937694769576967697769876997700770177027703770477057706770777087709771077117712771377147715771677177718771977207721772277237724772577267727772877297730773177327733773477357736773777387739774077417742774377447745774677477748774977507751775277537754775577567757775877597760776177627763776477657766776777687769777077717772777377747775777677777778777977807781778277837784778577867787778877897790779177927793779477957796779777987799780078017802780378047805780678077808780978107811781278137814781578167817781878197820782178227823782478257826782778287829783078317832783378347835783678377838783978407841784278437844784578467847784878497850785178527853785478557856785778587859786078617862786378647865786678677868786978707871787278737874787578767877787878797880788178827883788478857886788778887889789078917892789378947895789678977898789979007901790279037904790579067907790879097910791179127913791479157916791779187919792079217922792379247925792679277928792979307931793279337934793579367937793879397940794179427943794479457946794779487949795079517952795379547955795679577958795979607961796279637964796579667967796879697970797179727973797479757976797779787979798079817982798379847985798679877988798979907991799279937994799579967997799879998000800180028003800480058006800780088009801080118012801380148015801680178018801980208021802280238024802580268027802880298030803180328033803480358036803780388039804080418042804380448045804680478048804980508051805280538054805580568057805880598060806180628063806480658066806780688069807080718072807380748075807680778078807980808081808280838084808580868087808880898090809180928093809480958096809780988099810081018102810381048105810681078108810981108111811281138114811581168117811881198120812181228123812481258126812781288129813081318132813381348135813681378138813981408141814281438144814581468147814881498150815181528153815481558156815781588159816081618162816381648165816681678168816981708171817281738174817581768177817881798180818181828183818481858186818781888189819081918192819381948195819681978198819982008201820282038204820582068207820882098210821182128213821482158216821782188219822082218222822382248225822682278228822982308231823282338234823582368237823882398240824182428243824482458246824782488249825082518252825382548255825682578258825982608261826282638264826582668267826882698270827182728273827482758276827782788279828082818282828382848285828682878288828982908291829282938294829582968297829882998300830183028303830483058306830783088309831083118312831383148315831683178318831983208321832283238324832583268327832883298330833183328333833483358336833783388339834083418342834383448345834683478348834983508351835283538354835583568357835883598360836183628363836483658366836783688369837083718372837383748375837683778378837983808381838283838384838583868387838883898390839183928393839483958396839783988399840084018402840384048405840684078408840984108411841284138414841584168417841884198420842184228423842484258426842784288429843084318432843384348435843684378438843984408441844284438444844584468447844884498450845184528453845484558456845784588459846084618462846384648465846684678468846984708471847284738474847584768477847884798480848184828483848484858486848784888489849084918492849384948495849684978498849985008501850285038504850585068507850885098510851185128513851485158516851785188519852085218522852385248525852685278528852985308531853285338534853585368537853885398540854185428543854485458546854785488549855085518552855385548555855685578558855985608561856285638564856585668567856885698570857185728573857485758576857785788579858085818582858385848585858685878588858985908591859285938594859585968597859885998600860186028603860486058606860786088609861086118612861386148615861686178618861986208621862286238624862586268627862886298630863186328633863486358636863786388639864086418642864386448645864686478648864986508651865286538654865586568657865886598660866186628663866486658666866786688669867086718672867386748675867686778678867986808681868286838684868586868687868886898690869186928693869486958696869786988699870087018702870387048705870687078708870987108711871287138714871587168717871887198720872187228723872487258726872787288729873087318732873387348735873687378738873987408741874287438744874587468747874887498750875187528753875487558756875787588759876087618762876387648765876687678768876987708771877287738774877587768777877887798780878187828783878487858786878787888789879087918792879387948795879687978798879988008801880288038804880588068807880888098810881188128813881488158816881788188819882088218822882388248825882688278828882988308831883288338834883588368837883888398840884188428843884488458846884788488849885088518852885388548855885688578858885988608861886288638864886588668867886888698870887188728873887488758876887788788879888088818882888388848885888688878888888988908891889288938894889588968897889888998900890189028903890489058906890789088909891089118912891389148915891689178918891989208921892289238924892589268927892889298930893189328933893489358936893789388939894089418942894389448945894689478948894989508951895289538954895589568957895889598960896189628963896489658966896789688969897089718972897389748975897689778978897989808981898289838984898589868987898889898990899189928993899489958996899789988999900090019002900390049005900690079008900990109011901290139014901590169017901890199020902190229023902490259026902790289029903090319032903390349035903690379038903990409041904290439044904590469047904890499050905190529053905490559056905790589059906090619062906390649065906690679068906990709071907290739074907590769077907890799080908190829083908490859086908790889089909090919092909390949095909690979098909991009101910291039104910591069107910891099110911191129113911491159116911791189119912091219122912391249125912691279128912991309131913291339134913591369137913891399140914191429143914491459146914791489149915091519152915391549155915691579158915991609161916291639164916591669167916891699170917191729173917491759176917791789179918091819182918391849185918691879188918991909191919291939194919591969197919891999200920192029203920492059206920792089209921092119212921392149215921692179218921992209221922292239224922592269227922892299230923192329233923492359236923792389239924092419242924392449245924692479248924992509251925292539254925592569257925892599260926192629263926492659266926792689269927092719272927392749275927692779278927992809281928292839284928592869287928892899290929192929293929492959296929792989299930093019302930393049305930693079308930993109311931293139314931593169317931893199320932193229323932493259326932793289329933093319332933393349335933693379338933993409341934293439344934593469347934893499350935193529353935493559356935793589359936093619362936393649365936693679368936993709371937293739374937593769377937893799380938193829383938493859386938793889389939093919392939393949395939693979398939994009401940294039404940594069407940894099410941194129413941494159416941794189419942094219422942394249425942694279428942994309431943294339434943594369437943894399440944194429443944494459446944794489449945094519452945394549455945694579458945994609461946294639464946594669467946894699470947194729473947494759476947794789479948094819482948394849485948694879488948994909491949294939494949594969497949894999500950195029503950495059506950795089509951095119512951395149515951695179518951995209521952295239524952595269527952895299530953195329533953495359536953795389539954095419542954395449545954695479548954995509551955295539554955595569557955895599560956195629563956495659566956795689569957095719572957395749575957695779578957995809581958295839584958595869587958895899590959195929593959495959596959795989599960096019602960396049605960696079608960996109611961296139614961596169617961896199620962196229623962496259626962796289629963096319632963396349635963696379638963996409641964296439644964596469647964896499650965196529653965496559656965796589659966096619662966396649665966696679668966996709671967296739674967596769677967896799680968196829683968496859686968796889689969096919692969396949695969696979698969997009701970297039704970597069707970897099710971197129713971497159716971797189719972097219722972397249725972697279728972997309731973297339734973597369737973897399740974197429743974497459746974797489749975097519752975397549755975697579758975997609761976297639764976597669767976897699770977197729773977497759776977797789779978097819782978397849785978697879788978997909791979297939794979597969797979897999800980198029803980498059806980798089809981098119812981398149815981698179818981998209821982298239824982598269827982898299830983198329833983498359836983798389839984098419842984398449845984698479848984998509851985298539854985598569857985898599860986198629863986498659866986798689869987098719872987398749875987698779878987998809881988298839884988598869887988898899890989198929893989498959896989798989899990099019902990399049905990699079908990999109911991299139914991599169917991899199920992199229923992499259926992799289929993099319932993399349935993699379938993999409941994299439944994599469947994899499950995199529953995499559956995799589959996099619962996399649965996699679968996999709971997299739974997599769977997899799980998199829983998499859986998799889989999099919992999399949995999699979998999910000100011000210003100041000510006100071000810009100101001110012100131001410015100161001710018100191002010021100221002310024100251002610027100281002910030100311003210033100341003510036100371003810039100401004110042100431004410045100461004710048100491005010051100521005310054100551005610057100581005910060100611006210063100641006510066100671006810069100701007110072100731007410075100761007710078100791008010081100821008310084100851008610087100881008910090100911009210093100941009510096100971009810099101001010110102101031010410105101061010710108101091011010111101121011310114101151011610117101181011910120101211012210123101241012510126101271012810129101301013110132101331013410135101361013710138101391014010141101421014310144101451014610147101481014910150101511015210153101541015510156101571015810159101601016110162101631016410165101661016710168101691017010171101721017310174101751017610177101781017910180101811018210183101841018510186101871018810189101901019110192101931019410195101961019710198101991020010201102021020310204102051020610207102081020910210102111021210213102141021510216102171021810219102201022110222102231022410225102261022710228102291023010231102321023310234102351023610237102381023910240102411024210243102441024510246102471024810249102501025110252102531025410255102561025710258102591026010261102621026310264102651026610267102681026910270102711027210273102741027510276102771027810279102801028110282102831028410285102861028710288102891029010291102921029310294102951029610297102981029910300103011030210303103041030510306103071030810309103101031110312103131031410315103161031710318103191032010321103221032310324103251032610327103281032910330103311033210333103341033510336103371033810339103401034110342103431034410345103461034710348103491035010351103521035310354103551035610357103581035910360103611036210363103641036510366103671036810369103701037110372103731037410375103761037710378103791038010381103821038310384103851038610387103881038910390103911039210393103941039510396103971039810399104001040110402104031040410405104061040710408104091041010411104121041310414104151041610417104181041910420104211042210423104241042510426104271042810429104301043110432104331043410435104361043710438104391044010441104421044310444104451044610447104481044910450104511045210453104541045510456104571045810459104601046110462104631046410465104661046710468104691047010471104721047310474104751047610477104781047910480104811048210483104841048510486104871048810489104901049110492104931049410495104961049710498104991050010501105021050310504105051050610507105081050910510105111051210513105141051510516105171051810519105201052110522105231052410525105261052710528105291053010531105321053310534105351053610537105381053910540105411054210543105441054510546105471054810549105501055110552105531055410555105561055710558105591056010561105621056310564105651056610567105681056910570105711057210573105741057510576105771057810579105801058110582105831058410585105861058710588105891059010591105921059310594105951059610597105981059910600106011060210603106041060510606106071060810609106101061110612106131061410615106161061710618106191062010621106221062310624106251062610627106281062910630106311063210633106341063510636106371063810639106401064110642106431064410645106461064710648106491065010651106521065310654106551065610657106581065910660106611066210663106641066510666106671066810669106701067110672106731067410675106761067710678106791068010681106821068310684106851068610687106881068910690106911069210693106941069510696106971069810699107001070110702107031070410705107061070710708107091071010711107121071310714107151071610717107181071910720107211072210723107241072510726107271072810729107301073110732107331073410735107361073710738107391074010741107421074310744107451074610747107481074910750107511075210753107541075510756107571075810759107601076110762107631076410765107661076710768107691077010771107721077310774107751077610777107781077910780107811078210783107841078510786107871078810789107901079110792107931079410795107961079710798107991080010801108021080310804108051080610807108081080910810108111081210813108141081510816108171081810819108201082110822108231082410825108261082710828108291083010831108321083310834108351083610837108381083910840108411084210843108441084510846108471084810849108501085110852108531085410855108561085710858108591086010861108621086310864108651086610867108681086910870108711087210873108741087510876108771087810879108801088110882108831088410885108861088710888108891089010891108921089310894108951089610897108981089910900109011090210903109041090510906109071090810909109101091110912109131091410915109161091710918109191092010921109221092310924109251092610927109281092910930109311093210933109341093510936109371093810939109401094110942109431094410945109461094710948109491095010951109521095310954109551095610957109581095910960109611096210963109641096510966109671096810969109701097110972109731097410975109761097710978109791098010981109821098310984109851098610987109881098910990109911099210993109941099510996109971099810999110001100111002110031100411005110061100711008110091101011011110121101311014110151101611017110181101911020110211102211023110241102511026110271102811029110301103111032110331103411035110361103711038110391104011041110421104311044110451104611047110481104911050110511105211053110541105511056110571105811059110601106111062110631106411065110661106711068110691107011071110721107311074110751107611077110781107911080110811108211083110841108511086110871108811089110901109111092110931109411095110961109711098110991110011101111021110311104111051110611107111081110911110111111111211113111141111511116111171111811119111201112111122111231112411125111261112711128111291113011131111321113311134111351113611137111381113911140111411114211143111441114511146111471114811149111501115111152111531115411155111561115711158111591116011161111621116311164111651116611167111681116911170111711117211173111741117511176111771117811179111801118111182111831118411185111861118711188111891119011191111921119311194111951119611197111981119911200112011120211203112041120511206112071120811209112101121111212112131121411215112161121711218112191122011221112221122311224112251122611227112281122911230112311123211233112341123511236112371123811239112401124111242112431124411245112461124711248112491125011251112521125311254112551125611257112581125911260112611126211263112641126511266112671126811269112701127111272112731127411275112761127711278112791128011281112821128311284112851128611287112881128911290112911129211293112941129511296112971129811299113001130111302113031130411305113061130711308113091131011311113121131311314113151131611317113181131911320113211132211323113241132511326113271132811329113301133111332113331133411335113361133711338113391134011341113421134311344113451134611347113481134911350113511135211353113541135511356113571135811359113601136111362113631136411365113661136711368113691137011371113721137311374113751137611377113781137911380113811138211383113841138511386113871138811389113901139111392113931139411395113961139711398113991140011401114021140311404114051140611407114081140911410114111141211413114141141511416114171141811419114201142111422114231142411425114261142711428114291143011431114321143311434114351143611437114381143911440114411144211443114441144511446114471144811449114501145111452114531145411455114561145711458114591146011461114621146311464114651146611467114681146911470114711147211473114741147511476114771147811479114801148111482114831148411485114861148711488114891149011491114921149311494114951149611497114981149911500115011150211503115041150511506115071150811509115101151111512115131151411515115161151711518115191152011521115221152311524115251152611527115281152911530115311153211533115341153511536115371153811539115401154111542115431154411545115461154711548115491155011551115521155311554115551155611557115581155911560115611156211563115641156511566115671156811569115701157111572115731157411575115761157711578115791158011581115821158311584115851158611587115881158911590115911159211593115941159511596115971159811599116001160111602116031160411605116061160711608116091161011611116121161311614116151161611617116181161911620116211162211623116241162511626116271162811629116301163111632116331163411635116361163711638116391164011641116421164311644116451164611647116481164911650116511165211653116541165511656116571165811659116601166111662116631166411665116661166711668116691167011671116721167311674116751167611677116781167911680116811168211683116841168511686116871168811689116901169111692116931169411695116961169711698116991170011701117021170311704117051170611707117081170911710117111171211713117141171511716117171171811719117201172111722117231172411725117261172711728117291173011731117321173311734117351173611737117381173911740117411174211743117441174511746117471174811749117501175111752117531175411755117561175711758117591176011761117621176311764117651176611767117681176911770117711177211773117741177511776117771177811779117801178111782117831178411785117861178711788117891179011791117921179311794117951179611797117981179911800118011180211803118041180511806118071180811809118101181111812118131181411815118161181711818118191182011821118221182311824118251182611827118281182911830118311183211833118341183511836118371183811839118401184111842118431184411845118461184711848118491185011851118521185311854118551185611857118581185911860118611186211863118641186511866118671186811869118701187111872118731187411875118761187711878118791188011881118821188311884118851188611887118881188911890118911189211893118941189511896118971189811899119001190111902119031190411905119061190711908119091191011911119121191311914119151191611917119181191911920119211192211923119241192511926119271192811929119301193111932119331193411935119361193711938119391194011941119421194311944119451194611947119481194911950119511195211953119541195511956119571195811959119601196111962119631196411965119661196711968119691197011971119721197311974119751197611977119781197911980119811198211983119841198511986119871198811989119901199111992119931199411995119961199711998119991200012001120021200312004120051200612007120081200912010120111201212013120141201512016120171201812019120201202112022120231202412025120261202712028120291203012031120321203312034120351203612037120381203912040120411204212043120441204512046120471204812049120501205112052120531205412055120561205712058120591206012061120621206312064120651206612067120681206912070120711207212073120741207512076120771207812079120801208112082120831208412085120861208712088120891209012091120921209312094120951209612097120981209912100121011210212103121041210512106121071210812109121101211112112121131211412115121161211712118121191212012121121221212312124121251212612127121281212912130121311213212133121341213512136121371213812139121401214112142121431214412145121461214712148121491215012151121521215312154121551215612157121581215912160121611216212163121641216512166121671216812169121701217112172121731217412175121761217712178121791218012181121821218312184121851218612187121881218912190121911219212193121941219512196121971219812199122001220112202122031220412205122061220712208122091221012211122121221312214122151221612217122181221912220122211222212223122241222512226122271222812229122301223112232122331223412235122361223712238122391224012241122421224312244122451224612247122481224912250122511225212253122541225512256122571225812259122601226112262122631226412265122661226712268122691227012271122721227312274122751227612277122781227912280122811228212283122841228512286122871228812289122901229112292122931229412295122961229712298122991230012301123021230312304123051230612307123081230912310123111231212313123141231512316123171231812319123201232112322123231232412325123261232712328123291233012331123321233312334123351233612337123381233912340123411234212343123441234512346123471234812349123501235112352123531235412355123561235712358123591236012361123621236312364123651236612367123681236912370123711237212373123741237512376123771237812379123801238112382123831238412385123861238712388123891239012391123921239312394123951239612397123981239912400124011240212403124041240512406124071240812409124101241112412124131241412415124161241712418124191242012421124221242312424124251242612427124281242912430124311243212433124341243512436124371243812439124401244112442124431244412445124461244712448124491245012451124521245312454124551245612457124581245912460124611246212463124641246512466124671246812469124701247112472124731247412475124761247712478124791248012481124821248312484124851248612487124881248912490124911249212493124941249512496124971249812499125001250112502125031250412505125061250712508125091251012511125121251312514125151251612517125181251912520125211252212523125241252512526125271252812529125301253112532125331253412535125361253712538125391254012541125421254312544125451254612547125481254912550125511255212553125541255512556125571255812559125601256112562125631256412565125661256712568125691257012571125721257312574125751257612577125781257912580125811258212583125841258512586125871258812589125901259112592125931259412595125961259712598125991260012601126021260312604126051260612607126081260912610126111261212613126141261512616126171261812619126201262112622126231262412625126261262712628126291263012631126321263312634126351263612637126381263912640126411264212643126441264512646126471264812649126501265112652126531265412655126561265712658126591266012661126621266312664126651266612667126681266912670126711267212673126741267512676126771267812679126801268112682126831268412685126861268712688126891269012691126921269312694126951269612697126981269912700127011270212703127041270512706127071270812709127101271112712127131271412715127161271712718127191272012721127221272312724127251272612727127281272912730127311273212733127341273512736127371273812739127401274112742127431274412745127461274712748127491275012751127521275312754127551275612757127581275912760127611276212763127641276512766127671276812769127701277112772127731277412775127761277712778127791278012781127821278312784127851278612787127881278912790127911279212793127941279512796127971279812799128001280112802128031280412805128061280712808128091281012811128121281312814128151281612817128181281912820128211282212823128241282512826128271282812829128301283112832128331283412835128361283712838128391284012841128421284312844128451284612847128481284912850128511285212853128541285512856128571285812859128601286112862128631286412865128661286712868128691287012871128721287312874128751287612877128781287912880128811288212883128841288512886128871288812889128901289112892128931289412895128961289712898128991290012901129021290312904129051290612907129081290912910129111291212913129141291512916129171291812919129201292112922129231292412925129261292712928129291293012931129321293312934129351293612937129381293912940129411294212943129441294512946129471294812949129501295112952129531295412955129561295712958129591296012961129621296312964129651296612967129681296912970129711297212973129741297512976129771297812979129801298112982129831298412985129861298712988129891299012991129921299312994129951299612997129981299913000130011300213003130041300513006130071300813009130101301113012130131301413015130161301713018130191302013021130221302313024130251302613027130281302913030130311303213033130341303513036130371303813039130401304113042130431304413045130461304713048130491305013051130521305313054130551305613057130581305913060130611306213063130641306513066130671306813069130701307113072130731307413075130761307713078130791308013081130821308313084130851308613087130881308913090130911309213093130941309513096130971309813099131001310113102131031310413105131061310713108131091311013111131121311313114131151311613117131181311913120131211312213123131241312513126131271312813129131301313113132131331313413135131361313713138131391314013141131421314313144131451314613147131481314913150131511315213153131541315513156131571315813159131601316113162131631316413165131661316713168131691317013171131721317313174131751317613177131781317913180131811318213183131841318513186131871318813189131901319113192131931319413195131961319713198131991320013201132021320313204132051320613207132081320913210132111321213213132141321513216132171321813219132201322113222132231322413225132261322713228132291323013231132321323313234132351323613237132381323913240132411324213243132441324513246132471324813249132501325113252132531325413255132561325713258132591326013261132621326313264132651326613267132681326913270132711327213273132741327513276132771327813279132801328113282132831328413285132861328713288132891329013291132921329313294132951329613297132981329913300133011330213303133041330513306133071330813309133101331113312133131331413315133161331713318133191332013321133221332313324133251332613327133281332913330133311333213333133341333513336133371333813339133401334113342133431334413345133461334713348133491335013351133521335313354133551335613357133581335913360133611336213363133641336513366133671336813369133701337113372133731337413375133761337713378133791338013381133821338313384133851338613387133881338913390133911339213393133941339513396133971339813399134001340113402134031340413405134061340713408134091341013411134121341313414134151341613417134181341913420134211342213423134241342513426134271342813429134301343113432134331343413435134361343713438134391344013441134421344313444134451344613447134481344913450134511345213453134541345513456134571345813459134601346113462134631346413465134661346713468134691347013471134721347313474134751347613477134781347913480134811348213483134841348513486134871348813489134901349113492134931349413495134961349713498134991350013501135021350313504135051350613507135081350913510135111351213513135141351513516135171351813519135201352113522135231352413525135261352713528135291353013531135321353313534135351353613537135381353913540135411354213543135441354513546135471354813549135501355113552135531355413555135561355713558135591356013561135621356313564135651356613567135681356913570135711357213573135741357513576135771357813579135801358113582135831358413585135861358713588135891359013591135921359313594135951359613597135981359913600136011360213603136041360513606136071360813609136101361113612136131361413615136161361713618136191362013621136221362313624136251362613627136281362913630136311363213633136341363513636136371363813639136401364113642136431364413645136461364713648136491365013651136521365313654136551365613657136581365913660136611366213663136641366513666136671366813669136701367113672136731367413675136761367713678136791368013681136821368313684136851368613687136881368913690136911369213693136941369513696136971369813699137001370113702137031370413705137061370713708137091371013711137121371313714137151371613717137181371913720137211372213723137241372513726137271372813729137301373113732137331373413735137361373713738137391374013741137421374313744137451374613747137481374913750137511375213753137541375513756137571375813759137601376113762137631376413765137661376713768137691377013771137721377313774137751377613777137781377913780137811378213783137841378513786137871378813789137901379113792137931379413795137961379713798137991380013801138021380313804138051380613807138081380913810138111381213813138141381513816138171381813819138201382113822138231382413825138261382713828138291383013831138321383313834138351383613837138381383913840138411384213843138441384513846138471384813849138501385113852138531385413855138561385713858138591386013861138621386313864138651386613867138681386913870138711387213873138741387513876138771387813879138801388113882138831388413885138861388713888138891389013891138921389313894138951389613897138981389913900139011390213903139041390513906139071390813909139101391113912139131391413915139161391713918139191392013921139221392313924139251392613927139281392913930139311393213933139341393513936139371393813939139401394113942139431394413945139461394713948139491395013951139521395313954139551395613957139581395913960139611396213963139641396513966139671396813969139701397113972139731397413975139761397713978139791398013981139821398313984139851398613987139881398913990139911399213993139941399513996139971399813999140001400114002140031400414005140061400714008140091401014011140121401314014140151401614017140181401914020140211402214023140241402514026140271402814029140301403114032140331403414035140361403714038140391404014041140421404314044140451404614047140481404914050140511405214053140541405514056140571405814059140601406114062140631406414065140661406714068140691407014071140721407314074140751407614077140781407914080140811408214083140841408514086140871408814089140901409114092140931409414095140961409714098140991410014101141021410314104141051410614107141081410914110141111411214113141141411514116141171411814119141201412114122141231412414125141261412714128141291413014131141321413314134141351413614137141381413914140141411414214143141441414514146141471414814149141501415114152141531415414155141561415714158141591416014161141621416314164141651416614167141681416914170141711417214173141741417514176141771417814179141801418114182141831418414185141861418714188141891419014191141921419314194141951419614197141981419914200142011420214203142041420514206142071420814209142101421114212142131421414215142161421714218142191422014221142221422314224142251422614227142281422914230142311423214233142341423514236142371423814239142401424114242142431424414245142461424714248142491425014251142521425314254142551425614257142581425914260142611426214263142641426514266142671426814269142701427114272142731427414275142761427714278142791428014281142821428314284142851428614287142881428914290142911429214293142941429514296142971429814299143001430114302143031430414305143061430714308143091431014311143121431314314143151431614317143181431914320143211432214323143241432514326143271432814329143301433114332143331433414335143361433714338143391434014341143421434314344143451434614347143481434914350143511435214353143541435514356143571435814359143601436114362143631436414365143661436714368143691437014371143721437314374143751437614377143781437914380143811438214383143841438514386143871438814389143901439114392143931439414395143961439714398143991440014401144021440314404144051440614407144081440914410144111441214413144141441514416144171441814419144201442114422144231442414425144261442714428144291443014431144321443314434144351443614437144381443914440144411444214443144441444514446144471444814449144501445114452144531445414455144561445714458144591446014461144621446314464144651446614467144681446914470144711447214473144741447514476144771447814479144801448114482144831448414485144861448714488144891449014491144921449314494144951449614497144981449914500145011450214503145041450514506145071450814509145101451114512145131451414515145161451714518145191452014521145221452314524145251452614527145281452914530145311453214533145341453514536145371453814539145401454114542145431454414545145461454714548145491455014551145521455314554145551455614557145581455914560145611456214563145641456514566145671456814569145701457114572145731457414575145761457714578145791458014581145821458314584145851458614587145881458914590145911459214593145941459514596145971459814599146001460114602146031460414605146061460714608146091461014611146121461314614146151461614617146181461914620146211462214623146241462514626146271462814629146301463114632146331463414635146361463714638146391464014641146421464314644146451464614647146481464914650146511465214653146541465514656146571465814659146601466114662146631466414665146661466714668146691467014671146721467314674146751467614677146781467914680146811468214683146841468514686146871468814689146901469114692146931469414695146961469714698146991470014701147021470314704147051470614707147081470914710147111471214713147141471514716147171471814719147201472114722147231472414725147261472714728147291473014731147321473314734147351473614737147381473914740147411474214743147441474514746147471474814749147501475114752147531475414755147561475714758147591476014761147621476314764147651476614767147681476914770147711477214773147741477514776147771477814779147801478114782147831478414785147861478714788147891479014791147921479314794147951479614797147981479914800148011480214803148041480514806148071480814809148101481114812148131481414815148161481714818148191482014821148221482314824148251482614827148281482914830148311483214833148341483514836148371483814839148401484114842148431484414845148461484714848148491485014851148521485314854148551485614857148581485914860148611486214863148641486514866148671486814869148701487114872148731487414875148761487714878148791488014881148821488314884148851488614887148881488914890148911489214893148941489514896148971489814899149001490114902149031490414905149061490714908149091491014911149121491314914149151491614917149181491914920149211492214923149241492514926149271492814929149301493114932149331493414935149361493714938149391494014941149421494314944149451494614947149481494914950149511495214953149541495514956149571495814959149601496114962149631496414965149661496714968149691497014971149721497314974149751497614977149781497914980149811498214983149841498514986149871498814989149901499114992149931499414995149961499714998149991500015001150021500315004150051500615007150081500915010150111501215013150141501515016150171501815019150201502115022150231502415025150261502715028150291503015031150321503315034150351503615037150381503915040150411504215043150441504515046150471504815049150501505115052150531505415055150561505715058150591506015061150621506315064150651506615067150681506915070150711507215073150741507515076150771507815079150801508115082150831508415085150861508715088150891509015091150921509315094150951509615097150981509915100151011510215103151041510515106151071510815109151101511115112151131511415115151161511715118151191512015121151221512315124151251512615127151281512915130151311513215133151341513515136151371513815139151401514115142151431514415145151461514715148151491515015151151521515315154151551515615157151581515915160151611516215163151641516515166151671516815169151701517115172151731517415175151761517715178151791518015181151821518315184151851518615187151881518915190151911519215193151941519515196151971519815199152001520115202152031520415205152061520715208152091521015211152121521315214152151521615217152181521915220152211522215223152241522515226152271522815229152301523115232152331523415235152361523715238152391524015241152421524315244152451524615247152481524915250152511525215253152541525515256152571525815259152601526115262152631526415265152661526715268152691527015271152721527315274152751527615277152781527915280152811528215283152841528515286152871528815289152901529115292152931529415295152961529715298152991530015301153021530315304153051530615307153081530915310153111531215313153141531515316153171531815319153201532115322153231532415325153261532715328153291533015331153321533315334153351533615337153381533915340153411534215343153441534515346153471534815349153501535115352153531535415355153561535715358153591536015361153621536315364153651536615367153681536915370153711537215373153741537515376153771537815379153801538115382153831538415385153861538715388153891539015391153921539315394153951539615397153981539915400154011540215403154041540515406154071540815409154101541115412154131541415415154161541715418154191542015421154221542315424154251542615427154281542915430154311543215433154341543515436154371543815439154401544115442154431544415445154461544715448154491545015451154521545315454154551545615457154581545915460154611546215463154641546515466154671546815469154701547115472154731547415475154761547715478154791548015481154821548315484154851548615487154881548915490154911549215493154941549515496154971549815499155001550115502155031550415505155061550715508155091551015511155121551315514155151551615517155181551915520155211552215523155241552515526155271552815529155301553115532155331553415535155361553715538155391554015541155421554315544155451554615547155481554915550155511555215553155541555515556155571555815559155601556115562155631556415565155661556715568155691557015571155721557315574155751557615577155781557915580155811558215583155841558515586155871558815589155901559115592155931559415595155961559715598155991560015601156021560315604156051560615607156081560915610156111561215613156141561515616156171561815619156201562115622156231562415625156261562715628156291563015631156321563315634156351563615637156381563915640156411564215643156441564515646156471564815649156501565115652156531565415655156561565715658156591566015661156621566315664156651566615667156681566915670156711567215673156741567515676156771567815679156801568115682156831568415685156861568715688156891569015691156921569315694156951569615697156981569915700157011570215703157041570515706157071570815709157101571115712157131571415715157161571715718157191572015721157221572315724157251572615727157281572915730157311573215733157341573515736157371573815739157401574115742157431574415745157461574715748157491575015751157521575315754157551575615757157581575915760157611576215763157641576515766157671576815769157701577115772157731577415775157761577715778157791578015781157821578315784157851578615787157881578915790157911579215793157941579515796157971579815799158001580115802158031580415805158061580715808158091581015811158121581315814158151581615817158181581915820158211582215823158241582515826158271582815829158301583115832158331583415835158361583715838158391584015841158421584315844158451584615847158481584915850158511585215853158541585515856158571585815859158601586115862158631586415865158661586715868158691587015871158721587315874158751587615877158781587915880158811588215883158841588515886158871588815889158901589115892158931589415895158961589715898158991590015901159021590315904159051590615907159081590915910159111591215913159141591515916159171591815919159201592115922159231592415925159261592715928159291593015931159321593315934159351593615937159381593915940159411594215943159441594515946159471594815949159501595115952159531595415955159561595715958159591596015961159621596315964159651596615967159681596915970159711597215973159741597515976159771597815979159801598115982159831598415985159861598715988159891599015991159921599315994159951599615997159981599916000160011600216003160041600516006160071600816009160101601116012160131601416015160161601716018160191602016021160221602316024160251602616027160281602916030160311603216033160341603516036160371603816039160401604116042160431604416045160461604716048160491605016051160521605316054160551605616057160581605916060160611606216063160641606516066160671606816069160701607116072160731607416075160761607716078160791608016081160821608316084160851608616087160881608916090160911609216093160941609516096160971609816099161001610116102161031610416105161061610716108161091611016111161121611316114161151611616117161181611916120161211612216123161241612516126161271612816129161301613116132161331613416135161361613716138161391614016141161421614316144161451614616147161481614916150161511615216153161541615516156161571615816159161601616116162161631616416165161661616716168161691617016171161721617316174161751617616177161781617916180161811618216183161841618516186161871618816189161901619116192161931619416195161961619716198161991620016201162021620316204162051620616207162081620916210162111621216213162141621516216162171621816219162201622116222162231622416225162261622716228162291623016231162321623316234162351623616237162381623916240162411624216243162441624516246162471624816249162501625116252162531625416255162561625716258162591626016261162621626316264162651626616267162681626916270162711627216273162741627516276162771627816279162801628116282162831628416285162861628716288162891629016291162921629316294162951629616297162981629916300163011630216303163041630516306163071630816309163101631116312163131631416315163161631716318163191632016321163221632316324163251632616327163281632916330163311633216333163341633516336163371633816339163401634116342163431634416345163461634716348163491635016351163521635316354163551635616357163581635916360163611636216363163641636516366163671636816369163701637116372163731637416375163761637716378163791638016381163821638316384163851638616387163881638916390163911639216393163941639516396163971639816399164001640116402164031640416405164061640716408164091641016411164121641316414164151641616417164181641916420164211642216423164241642516426164271642816429164301643116432164331643416435164361643716438164391644016441164421644316444164451644616447164481644916450164511645216453164541645516456164571645816459164601646116462164631646416465164661646716468164691647016471164721647316474164751647616477164781647916480164811648216483164841648516486164871648816489164901649116492164931649416495164961649716498164991650016501165021650316504165051650616507165081650916510165111651216513165141651516516165171651816519165201652116522165231652416525165261652716528165291653016531165321653316534165351653616537165381653916540165411654216543165441654516546165471654816549165501655116552165531655416555165561655716558165591656016561165621656316564165651656616567165681656916570165711657216573165741657516576165771657816579165801658116582165831658416585165861658716588165891659016591165921659316594165951659616597165981659916600166011660216603166041660516606166071660816609166101661116612166131661416615166161661716618166191662016621166221662316624166251662616627166281662916630166311663216633166341663516636166371663816639166401664116642166431664416645166461664716648166491665016651166521665316654166551665616657166581665916660166611666216663166641666516666166671666816669166701667116672166731667416675166761667716678166791668016681166821668316684166851668616687166881668916690166911669216693166941669516696166971669816699167001670116702167031670416705167061670716708167091671016711167121671316714167151671616717167181671916720167211672216723167241672516726167271672816729167301673116732167331673416735167361673716738167391674016741167421674316744167451674616747167481674916750167511675216753167541675516756167571675816759167601676116762167631676416765167661676716768167691677016771167721677316774167751677616777167781677916780167811678216783167841678516786167871678816789167901679116792167931679416795167961679716798167991680016801168021680316804168051680616807168081680916810168111681216813168141681516816168171681816819168201682116822168231682416825168261682716828168291683016831168321683316834168351683616837168381683916840168411684216843168441684516846168471684816849168501685116852168531685416855168561685716858168591686016861168621686316864168651686616867168681686916870168711687216873168741687516876168771687816879168801688116882168831688416885168861688716888168891689016891168921689316894168951689616897168981689916900169011690216903169041690516906169071690816909169101691116912169131691416915169161691716918169191692016921169221692316924169251692616927169281692916930169311693216933169341693516936169371693816939169401694116942169431694416945169461694716948169491695016951169521695316954169551695616957169581695916960169611696216963169641696516966169671696816969169701697116972169731697416975169761697716978169791698016981169821698316984169851698616987169881698916990169911699216993169941699516996169971699816999170001700117002170031700417005170061700717008170091701017011170121701317014170151701617017170181701917020170211702217023170241702517026170271702817029170301703117032170331703417035170361703717038170391704017041170421704317044170451704617047170481704917050170511705217053170541705517056170571705817059170601706117062170631706417065170661706717068170691707017071170721707317074170751707617077170781707917080170811708217083170841708517086170871708817089170901709117092170931709417095170961709717098170991710017101171021710317104171051710617107171081710917110171111711217113171141711517116171171711817119171201712117122171231712417125171261712717128171291713017131171321713317134171351713617137171381713917140171411714217143171441714517146171471714817149171501715117152171531715417155171561715717158171591716017161171621716317164171651716617167171681716917170171711717217173171741717517176171771717817179171801718117182171831718417185171861718717188171891719017191171921719317194171951719617197171981719917200172011720217203172041720517206172071720817209172101721117212172131721417215172161721717218172191722017221172221722317224172251722617227172281722917230172311723217233172341723517236172371723817239172401724117242172431724417245172461724717248172491725017251172521725317254172551725617257172581725917260172611726217263172641726517266172671726817269172701727117272172731727417275172761727717278172791728017281172821728317284172851728617287172881728917290172911729217293172941729517296172971729817299173001730117302173031730417305173061730717308173091731017311173121731317314173151731617317173181731917320173211732217323173241732517326173271732817329173301733117332173331733417335173361733717338173391734017341173421734317344173451734617347173481734917350173511735217353173541735517356173571735817359173601736117362173631736417365173661736717368173691737017371173721737317374173751737617377173781737917380173811738217383173841738517386173871738817389173901739117392173931739417395173961739717398173991740017401174021740317404174051740617407174081740917410174111741217413174141741517416174171741817419174201742117422174231742417425174261742717428174291743017431174321743317434174351743617437174381743917440174411744217443174441744517446174471744817449174501745117452174531745417455174561745717458174591746017461174621746317464174651746617467174681746917470174711747217473174741747517476174771747817479174801748117482174831748417485174861748717488174891749017491174921749317494174951749617497174981749917500175011750217503175041750517506175071750817509175101751117512175131751417515175161751717518175191752017521175221752317524175251752617527175281752917530175311753217533175341753517536175371753817539175401754117542175431754417545175461754717548175491755017551175521755317554175551755617557175581755917560175611756217563175641756517566175671756817569175701757117572175731757417575175761757717578175791758017581175821758317584175851758617587175881758917590175911759217593175941759517596175971759817599176001760117602176031760417605176061760717608176091761017611176121761317614176151761617617176181761917620176211762217623176241762517626176271762817629176301763117632176331763417635176361763717638176391764017641176421764317644176451764617647176481764917650176511765217653176541765517656176571765817659176601766117662176631766417665176661766717668176691767017671176721767317674176751767617677176781767917680176811768217683176841768517686176871768817689176901769117692176931769417695176961769717698176991770017701177021770317704177051770617707177081770917710177111771217713177141771517716177171771817719177201772117722177231772417725177261772717728177291773017731177321773317734177351773617737177381773917740177411774217743177441774517746177471774817749177501775117752177531775417755177561775717758177591776017761177621776317764177651776617767177681776917770177711777217773177741777517776177771777817779177801778117782177831778417785177861778717788177891779017791177921779317794177951779617797177981779917800178011780217803178041780517806178071780817809178101781117812178131781417815178161781717818178191782017821178221782317824178251782617827178281782917830178311783217833178341783517836178371783817839178401784117842178431784417845178461784717848178491785017851178521785317854178551785617857178581785917860178611786217863178641786517866178671786817869178701787117872178731787417875178761787717878178791788017881178821788317884178851788617887178881788917890178911789217893178941789517896178971789817899179001790117902179031790417905179061790717908179091791017911179121791317914179151791617917179181791917920179211792217923179241792517926179271792817929179301793117932179331793417935179361793717938179391794017941179421794317944179451794617947179481794917950179511795217953179541795517956179571795817959179601796117962179631796417965179661796717968179691797017971179721797317974179751797617977179781797917980179811798217983179841798517986179871798817989179901799117992179931799417995179961799717998179991800018001180021800318004180051800618007180081800918010180111801218013180141801518016180171801818019180201802118022180231802418025180261802718028180291803018031180321803318034180351803618037180381803918040180411804218043180441804518046180471804818049180501805118052180531805418055180561805718058180591806018061180621806318064180651806618067180681806918070180711807218073180741807518076180771807818079180801808118082180831808418085180861808718088180891809018091180921809318094180951809618097180981809918100181011810218103181041810518106181071810818109181101811118112181131811418115181161811718118181191812018121181221812318124181251812618127181281812918130181311813218133181341813518136181371813818139181401814118142181431814418145181461814718148181491815018151181521815318154181551815618157181581815918160181611816218163181641816518166181671816818169181701817118172181731817418175181761817718178181791818018181181821818318184181851818618187181881818918190181911819218193181941819518196181971819818199182001820118202182031820418205182061820718208182091821018211182121821318214182151821618217182181821918220182211822218223182241822518226182271822818229182301823118232182331823418235182361823718238182391824018241182421824318244182451824618247182481824918250182511825218253182541825518256182571825818259182601826118262182631826418265182661826718268182691827018271182721827318274182751827618277182781827918280182811828218283182841828518286182871828818289182901829118292182931829418295182961829718298182991830018301183021830318304183051830618307183081830918310183111831218313183141831518316183171831818319183201832118322183231832418325183261832718328183291833018331183321833318334183351833618337183381833918340183411834218343183441834518346183471834818349183501835118352183531835418355183561835718358183591836018361183621836318364183651836618367183681836918370183711837218373183741837518376183771837818379183801838118382183831838418385183861838718388183891839018391183921839318394183951839618397183981839918400184011840218403184041840518406184071840818409184101841118412184131841418415184161841718418184191842018421184221842318424184251842618427184281842918430184311843218433184341843518436184371843818439184401844118442184431844418445184461844718448184491845018451184521845318454184551845618457184581845918460184611846218463184641846518466184671846818469184701847118472184731847418475184761847718478184791848018481184821848318484184851848618487184881848918490184911849218493184941849518496184971849818499185001850118502185031850418505185061850718508185091851018511185121851318514185151851618517185181851918520185211852218523185241852518526185271852818529185301853118532185331853418535185361853718538185391854018541185421854318544185451854618547185481854918550185511855218553185541855518556185571855818559185601856118562185631856418565185661856718568185691857018571185721857318574185751857618577185781857918580185811858218583185841858518586185871858818589185901859118592185931859418595185961859718598185991860018601186021860318604186051860618607186081860918610186111861218613186141861518616186171861818619186201862118622186231862418625186261862718628186291863018631186321863318634186351863618637186381863918640186411864218643186441864518646186471864818649186501865118652186531865418655186561865718658186591866018661186621866318664186651866618667186681866918670186711867218673186741867518676186771867818679186801868118682186831868418685186861868718688186891869018691186921869318694186951869618697186981869918700187011870218703187041870518706187071870818709187101871118712187131871418715187161871718718187191872018721187221872318724187251872618727187281872918730187311873218733187341873518736187371873818739187401874118742187431874418745187461874718748187491875018751187521875318754187551875618757187581875918760187611876218763187641876518766187671876818769187701877118772187731877418775187761877718778187791878018781187821878318784187851878618787187881878918790187911879218793187941879518796187971879818799188001880118802188031880418805188061880718808188091881018811188121881318814188151881618817188181881918820188211882218823188241882518826188271882818829188301883118832188331883418835188361883718838188391884018841188421884318844188451884618847188481884918850188511885218853188541885518856188571885818859188601886118862188631886418865188661886718868188691887018871188721887318874188751887618877188781887918880188811888218883188841888518886188871888818889188901889118892188931889418895188961889718898188991890018901189021890318904189051890618907189081890918910189111891218913189141891518916189171891818919189201892118922189231892418925189261892718928189291893018931189321893318934189351893618937189381893918940189411894218943189441894518946189471894818949189501895118952189531895418955189561895718958189591896018961189621896318964189651896618967189681896918970189711897218973189741897518976189771897818979189801898118982189831898418985189861898718988189891899018991189921899318994189951899618997189981899919000190011900219003190041900519006190071900819009190101901119012190131901419015190161901719018190191902019021190221902319024190251902619027190281902919030190311903219033190341903519036190371903819039190401904119042190431904419045190461904719048190491905019051190521905319054190551905619057190581905919060190611906219063190641906519066190671906819069190701907119072190731907419075190761907719078190791908019081190821908319084190851908619087190881908919090190911909219093190941909519096190971909819099191001910119102191031910419105191061910719108191091911019111191121911319114191151911619117191181911919120191211912219123191241912519126191271912819129191301913119132191331913419135191361913719138191391914019141191421914319144191451914619147191481914919150191511915219153191541915519156191571915819159191601916119162191631916419165191661916719168191691917019171191721917319174191751917619177191781917919180191811918219183191841918519186191871918819189191901919119192191931919419195191961919719198191991920019201192021920319204192051920619207192081920919210192111921219213192141921519216192171921819219192201922119222192231922419225192261922719228192291923019231192321923319234192351923619237192381923919240192411924219243192441924519246192471924819249192501925119252192531925419255192561925719258192591926019261192621926319264192651926619267192681926919270192711927219273192741927519276192771927819279192801928119282192831928419285192861928719288192891929019291192921929319294192951929619297192981929919300193011930219303193041930519306193071930819309193101931119312193131931419315193161931719318193191932019321193221932319324193251932619327193281932919330193311933219333193341933519336193371933819339193401934119342193431934419345193461934719348193491935019351193521935319354193551935619357193581935919360193611936219363193641936519366193671936819369193701937119372193731937419375193761937719378193791938019381193821938319384193851938619387193881938919390193911939219393193941939519396193971939819399194001940119402194031940419405194061940719408194091941019411194121941319414194151941619417194181941919420194211942219423194241942519426194271942819429194301943119432194331943419435194361943719438194391944019441194421944319444194451944619447194481944919450194511945219453194541945519456194571945819459194601946119462194631946419465194661946719468194691947019471194721947319474194751947619477194781947919480194811948219483194841948519486194871948819489194901949119492194931949419495194961949719498194991950019501195021950319504195051950619507195081950919510195111951219513195141951519516195171951819519195201952119522195231952419525195261952719528195291953019531195321953319534195351953619537195381953919540195411954219543195441954519546195471954819549195501955119552195531955419555195561955719558195591956019561195621956319564195651956619567195681956919570195711957219573195741957519576195771957819579195801958119582195831958419585195861958719588195891959019591195921959319594195951959619597195981959919600196011960219603196041960519606196071960819609196101961119612196131961419615196161961719618196191962019621196221962319624196251962619627196281962919630196311963219633196341963519636196371963819639196401964119642196431964419645196461964719648196491965019651196521965319654196551965619657196581965919660196611966219663196641966519666196671966819669196701967119672196731967419675196761967719678196791968019681196821968319684196851968619687196881968919690196911969219693196941969519696196971969819699197001970119702197031970419705197061970719708197091971019711197121971319714197151971619717197181971919720197211972219723197241972519726197271972819729197301973119732197331973419735197361973719738197391974019741197421974319744197451974619747197481974919750197511975219753197541975519756197571975819759197601976119762197631976419765197661976719768197691977019771197721977319774197751977619777197781977919780197811978219783197841978519786197871978819789197901979119792197931979419795197961979719798197991980019801198021980319804198051980619807198081980919810198111981219813198141981519816198171981819819198201982119822198231982419825198261982719828198291983019831198321983319834198351983619837198381983919840198411984219843198441984519846198471984819849198501985119852198531985419855198561985719858198591986019861198621986319864198651986619867198681986919870198711987219873198741987519876198771987819879198801988119882198831988419885198861988719888198891989019891198921989319894198951989619897198981989919900199011990219903199041990519906199071990819909199101991119912199131991419915199161991719918199191992019921199221992319924199251992619927199281992919930199311993219933199341993519936199371993819939199401994119942199431994419945199461994719948199491995019951199521995319954199551995619957199581995919960199611996219963199641996519966199671996819969199701997119972199731997419975199761997719978199791998019981199821998319984199851998619987199881998919990199911999219993199941999519996199971999819999200002000120002200032000420005200062000720008200092001020011200122001320014200152001620017200182001920020200212002220023200242002520026200272002820029200302003120032200332003420035200362003720038200392004020041200422004320044200452004620047200482004920050200512005220053200542005520056200572005820059200602006120062200632006420065200662006720068200692007020071200722007320074200752007620077200782007920080200812008220083200842008520086200872008820089200902009120092200932009420095200962009720098200992010020101201022010320104201052010620107201082010920110201112011220113201142011520116201172011820119201202012120122201232012420125201262012720128201292013020131201322013320134201352013620137201382013920140201412014220143201442014520146201472014820149201502015120152201532015420155201562015720158201592016020161201622016320164201652016620167201682016920170201712017220173201742017520176201772017820179201802018120182201832018420185201862018720188201892019020191201922019320194201952019620197201982019920200202012020220203202042020520206202072020820209202102021120212202132021420215202162021720218202192022020221202222022320224202252022620227202282022920230202312023220233202342023520236202372023820239202402024120242202432024420245202462024720248202492025020251202522025320254202552025620257202582025920260202612026220263202642026520266202672026820269202702027120272202732027420275202762027720278202792028020281202822028320284202852028620287202882028920290202912029220293202942029520296202972029820299203002030120302203032030420305203062030720308203092031020311203122031320314203152031620317203182031920320203212032220323203242032520326203272032820329203302033120332203332033420335203362033720338203392034020341203422034320344203452034620347203482034920350203512035220353203542035520356203572035820359203602036120362203632036420365203662036720368203692037020371203722037320374203752037620377203782037920380203812038220383203842038520386203872038820389203902039120392203932039420395203962039720398203992040020401204022040320404204052040620407204082040920410204112041220413204142041520416204172041820419204202042120422204232042420425204262042720428204292043020431204322043320434204352043620437204382043920440204412044220443204442044520446204472044820449204502045120452204532045420455204562045720458204592046020461204622046320464204652046620467204682046920470204712047220473204742047520476204772047820479204802048120482204832048420485204862048720488204892049020491204922049320494204952049620497204982049920500205012050220503205042050520506205072050820509205102051120512205132051420515205162051720518205192052020521205222052320524205252052620527205282052920530205312053220533205342053520536205372053820539205402054120542205432054420545205462054720548205492055020551205522055320554205552055620557205582055920560205612056220563205642056520566205672056820569205702057120572205732057420575205762057720578205792058020581205822058320584205852058620587205882058920590205912059220593205942059520596205972059820599206002060120602206032060420605206062060720608206092061020611206122061320614206152061620617206182061920620206212062220623206242062520626206272062820629206302063120632206332063420635206362063720638206392064020641206422064320644206452064620647206482064920650206512065220653206542065520656206572065820659206602066120662206632066420665206662066720668206692067020671206722067320674206752067620677206782067920680206812068220683206842068520686206872068820689206902069120692206932069420695206962069720698206992070020701207022070320704207052070620707207082070920710207112071220713207142071520716207172071820719207202072120722207232072420725207262072720728207292073020731207322073320734207352073620737207382073920740207412074220743207442074520746207472074820749207502075120752207532075420755207562075720758207592076020761207622076320764207652076620767207682076920770207712077220773207742077520776207772077820779207802078120782207832078420785207862078720788207892079020791207922079320794207952079620797207982079920800208012080220803208042080520806208072080820809208102081120812208132081420815208162081720818208192082020821208222082320824208252082620827208282082920830208312083220833208342083520836208372083820839208402084120842208432084420845208462084720848208492085020851208522085320854208552085620857208582085920860208612086220863208642086520866208672086820869208702087120872208732087420875208762087720878208792088020881208822088320884208852088620887208882088920890208912089220893208942089520896208972089820899209002090120902209032090420905209062090720908209092091020911209122091320914209152091620917209182091920920209212092220923209242092520926209272092820929209302093120932209332093420935209362093720938209392094020941209422094320944209452094620947209482094920950209512095220953209542095520956209572095820959209602096120962209632096420965209662096720968209692097020971209722097320974209752097620977209782097920980209812098220983209842098520986209872098820989209902099120992209932099420995209962099720998209992100021001210022100321004210052100621007210082100921010210112101221013210142101521016210172101821019210202102121022210232102421025210262102721028210292103021031210322103321034210352103621037210382103921040210412104221043210442104521046210472104821049210502105121052210532105421055210562105721058210592106021061210622106321064210652106621067210682106921070210712107221073210742107521076210772107821079210802108121082210832108421085210862108721088210892109021091210922109321094210952109621097210982109921100211012110221103211042110521106211072110821109211102111121112211132111421115211162111721118211192112021121211222112321124211252112621127211282112921130211312113221133211342113521136211372113821139211402114121142211432114421145211462114721148211492115021151211522115321154211552115621157211582115921160211612116221163211642116521166211672116821169211702117121172211732117421175211762117721178211792118021181211822118321184211852118621187211882118921190211912119221193211942119521196211972119821199212002120121202212032120421205212062120721208212092121021211212122121321214212152121621217212182121921220212212122221223212242122521226212272122821229212302123121232212332123421235212362123721238212392124021241212422124321244212452124621247212482124921250212512125221253212542125521256212572125821259212602126121262212632126421265212662126721268212692127021271212722127321274212752127621277212782127921280212812128221283212842128521286212872128821289212902129121292212932129421295212962129721298212992130021301213022130321304213052130621307213082130921310213112131221313213142131521316213172131821319213202132121322213232132421325213262132721328213292133021331213322133321334213352133621337213382133921340213412134221343213442134521346213472134821349213502135121352213532135421355213562135721358213592136021361213622136321364213652136621367213682136921370213712137221373213742137521376213772137821379213802138121382213832138421385213862138721388213892139021391213922139321394213952139621397213982139921400214012140221403214042140521406214072140821409214102141121412214132141421415214162141721418214192142021421214222142321424214252142621427214282142921430214312143221433214342143521436214372143821439214402144121442214432144421445214462144721448214492145021451214522145321454214552145621457214582145921460214612146221463214642146521466214672146821469214702147121472214732147421475214762147721478214792148021481214822148321484214852148621487214882148921490214912149221493214942149521496214972149821499215002150121502215032150421505215062150721508215092151021511215122151321514215152151621517215182151921520215212152221523215242152521526215272152821529215302153121532215332153421535215362153721538215392154021541215422154321544215452154621547215482154921550215512155221553215542155521556215572155821559215602156121562215632156421565215662156721568215692157021571215722157321574215752157621577215782157921580215812158221583215842158521586215872158821589215902159121592215932159421595215962159721598215992160021601216022160321604216052160621607216082160921610216112161221613216142161521616216172161821619216202162121622216232162421625216262162721628216292163021631216322163321634216352163621637216382163921640216412164221643216442164521646216472164821649216502165121652216532165421655216562165721658216592166021661216622166321664216652166621667216682166921670216712167221673216742167521676216772167821679216802168121682216832168421685216862168721688216892169021691216922169321694216952169621697216982169921700217012170221703217042170521706217072170821709217102171121712217132171421715217162171721718217192172021721217222172321724217252172621727217282172921730217312173221733217342173521736217372173821739217402174121742217432174421745217462174721748217492175021751217522175321754217552175621757217582175921760217612176221763217642176521766217672176821769217702177121772217732177421775217762177721778217792178021781217822178321784217852178621787217882178921790217912179221793217942179521796217972179821799218002180121802218032180421805218062180721808218092181021811218122181321814218152181621817218182181921820218212182221823218242182521826218272182821829218302183121832218332183421835218362183721838218392184021841218422184321844218452184621847218482184921850218512185221853218542185521856218572185821859218602186121862218632186421865218662186721868218692187021871218722187321874218752187621877218782187921880218812188221883218842188521886218872188821889218902189121892218932189421895218962189721898218992190021901219022190321904219052190621907219082190921910219112191221913219142191521916219172191821919219202192121922219232192421925219262192721928219292193021931219322193321934219352193621937219382193921940219412194221943219442194521946219472194821949219502195121952219532195421955219562195721958219592196021961219622196321964219652196621967219682196921970219712197221973219742197521976219772197821979219802198121982219832198421985219862198721988219892199021991219922199321994219952199621997219982199922000220012200222003220042200522006220072200822009220102201122012220132201422015220162201722018220192202022021220222202322024220252202622027220282202922030220312203222033220342203522036220372203822039220402204122042220432204422045220462204722048220492205022051220522205322054220552205622057220582205922060220612206222063220642206522066220672206822069220702207122072220732207422075220762207722078220792208022081220822208322084220852208622087220882208922090220912209222093220942209522096220972209822099221002210122102221032210422105221062210722108221092211022111221122211322114221152211622117221182211922120221212212222123221242212522126221272212822129221302213122132221332213422135221362213722138221392214022141221422214322144221452214622147221482214922150221512215222153221542215522156221572215822159221602216122162221632216422165221662216722168221692217022171221722217322174221752217622177221782217922180221812218222183221842218522186221872218822189221902219122192221932219422195221962219722198221992220022201222022220322204222052220622207222082220922210222112221222213222142221522216222172221822219222202222122222222232222422225222262222722228222292223022231222322223322234222352223622237222382223922240222412224222243222442224522246222472224822249222502225122252222532225422255222562225722258222592226022261222622226322264222652226622267222682226922270222712227222273222742227522276222772227822279222802228122282222832228422285222862228722288222892229022291222922229322294222952229622297222982229922300223012230222303223042230522306223072230822309223102231122312223132231422315223162231722318223192232022321223222232322324223252232622327223282232922330223312233222333223342233522336223372233822339223402234122342223432234422345223462234722348223492235022351223522235322354223552235622357223582235922360223612236222363223642236522366223672236822369223702237122372223732237422375223762237722378223792238022381223822238322384223852238622387223882238922390223912239222393223942239522396223972239822399224002240122402224032240422405224062240722408224092241022411224122241322414224152241622417224182241922420224212242222423224242242522426224272242822429224302243122432224332243422435224362243722438224392244022441224422244322444224452244622447224482244922450224512245222453224542245522456224572245822459224602246122462224632246422465224662246722468224692247022471224722247322474224752247622477224782247922480224812248222483224842248522486224872248822489224902249122492224932249422495224962249722498224992250022501225022250322504225052250622507225082250922510225112251222513225142251522516225172251822519225202252122522225232252422525225262252722528225292253022531225322253322534225352253622537225382253922540225412254222543225442254522546225472254822549225502255122552225532255422555225562255722558225592256022561225622256322564225652256622567225682256922570225712257222573225742257522576225772257822579225802258122582225832258422585225862258722588225892259022591225922259322594225952259622597225982259922600226012260222603226042260522606226072260822609226102261122612226132261422615226162261722618226192262022621226222262322624226252262622627226282262922630226312263222633226342263522636226372263822639226402264122642226432264422645226462264722648226492265022651226522265322654226552265622657226582265922660226612266222663226642266522666226672266822669226702267122672226732267422675226762267722678226792268022681226822268322684226852268622687226882268922690226912269222693226942269522696226972269822699227002270122702227032270422705227062270722708227092271022711227122271322714227152271622717227182271922720227212272222723227242272522726227272272822729227302273122732227332273422735227362273722738227392274022741227422274322744227452274622747227482274922750227512275222753227542275522756227572275822759227602276122762227632276422765227662276722768227692277022771227722277322774227752277622777227782277922780227812278222783227842278522786227872278822789227902279122792227932279422795227962279722798227992280022801228022280322804228052280622807228082280922810228112281222813228142281522816228172281822819228202282122822228232282422825228262282722828228292283022831228322283322834228352283622837228382283922840228412284222843228442284522846228472284822849228502285122852228532285422855228562285722858228592286022861228622286322864228652286622867228682286922870228712287222873228742287522876228772287822879228802288122882228832288422885228862288722888228892289022891228922289322894228952289622897228982289922900229012290222903229042290522906229072290822909229102291122912229132291422915229162291722918229192292022921229222292322924229252292622927229282292922930229312293222933229342293522936229372293822939229402294122942229432294422945229462294722948229492295022951229522295322954229552295622957229582295922960229612296222963229642296522966229672296822969229702297122972229732297422975229762297722978229792298022981229822298322984229852298622987229882298922990229912299222993229942299522996229972299822999230002300123002230032300423005230062300723008230092301023011230122301323014230152301623017230182301923020230212302223023230242302523026230272302823029230302303123032230332303423035230362303723038230392304023041230422304323044230452304623047230482304923050230512305223053230542305523056230572305823059230602306123062230632306423065230662306723068230692307023071230722307323074230752307623077230782307923080230812308223083230842308523086230872308823089230902309123092230932309423095230962309723098230992310023101231022310323104231052310623107231082310923110231112311223113231142311523116231172311823119231202312123122231232312423125231262312723128231292313023131231322313323134231352313623137231382313923140231412314223143231442314523146231472314823149231502315123152231532315423155231562315723158231592316023161231622316323164231652316623167231682316923170231712317223173231742317523176231772317823179231802318123182231832318423185231862318723188231892319023191231922319323194231952319623197231982319923200232012320223203232042320523206232072320823209232102321123212232132321423215232162321723218232192322023221232222322323224232252322623227232282322923230232312323223233232342323523236232372323823239232402324123242232432324423245232462324723248232492325023251232522325323254232552325623257232582325923260232612326223263232642326523266232672326823269232702327123272232732327423275232762327723278232792328023281232822328323284232852328623287232882328923290232912329223293232942329523296232972329823299233002330123302233032330423305233062330723308233092331023311233122331323314233152331623317233182331923320233212332223323233242332523326233272332823329233302333123332233332333423335233362333723338233392334023341233422334323344233452334623347233482334923350233512335223353233542335523356233572335823359233602336123362233632336423365233662336723368233692337023371233722337323374233752337623377233782337923380233812338223383233842338523386233872338823389233902339123392233932339423395233962339723398233992340023401234022340323404234052340623407234082340923410234112341223413234142341523416234172341823419234202342123422234232342423425234262342723428234292343023431234322343323434234352343623437234382343923440234412344223443234442344523446234472344823449234502345123452234532345423455234562345723458234592346023461234622346323464234652346623467234682346923470234712347223473234742347523476234772347823479234802348123482234832348423485234862348723488234892349023491234922349323494234952349623497234982349923500235012350223503235042350523506235072350823509235102351123512235132351423515235162351723518235192352023521235222352323524235252352623527235282352923530235312353223533235342353523536235372353823539235402354123542235432354423545235462354723548235492355023551235522355323554235552355623557235582355923560235612356223563235642356523566235672356823569235702357123572235732357423575235762357723578235792358023581235822358323584235852358623587235882358923590235912359223593235942359523596235972359823599236002360123602236032360423605236062360723608236092361023611236122361323614236152361623617236182361923620236212362223623236242362523626236272362823629236302363123632236332363423635236362363723638236392364023641236422364323644236452364623647236482364923650236512365223653236542365523656236572365823659236602366123662236632366423665236662366723668236692367023671236722367323674236752367623677236782367923680236812368223683236842368523686236872368823689236902369123692236932369423695236962369723698236992370023701237022370323704237052370623707237082370923710237112371223713237142371523716237172371823719237202372123722237232372423725237262372723728237292373023731237322373323734237352373623737237382373923740237412374223743237442374523746237472374823749237502375123752237532375423755237562375723758237592376023761237622376323764237652376623767237682376923770237712377223773237742377523776237772377823779237802378123782237832378423785237862378723788237892379023791237922379323794237952379623797237982379923800238012380223803238042380523806238072380823809238102381123812238132381423815238162381723818238192382023821238222382323824238252382623827238282382923830238312383223833238342383523836238372383823839238402384123842238432384423845238462384723848238492385023851238522385323854238552385623857238582385923860238612386223863238642386523866238672386823869238702387123872238732387423875238762387723878238792388023881238822388323884238852388623887238882388923890238912389223893238942389523896238972389823899239002390123902239032390423905239062390723908239092391023911239122391323914239152391623917239182391923920239212392223923239242392523926239272392823929239302393123932239332393423935239362393723938239392394023941239422394323944239452394623947239482394923950239512395223953239542395523956239572395823959239602396123962239632396423965239662396723968239692397023971239722397323974239752397623977239782397923980239812398223983239842398523986239872398823989239902399123992239932399423995239962399723998239992400024001240022400324004240052400624007240082400924010240112401224013240142401524016240172401824019240202402124022240232402424025240262402724028240292403024031240322403324034240352403624037240382403924040240412404224043240442404524046240472404824049240502405124052240532405424055240562405724058240592406024061240622406324064240652406624067240682406924070240712407224073240742407524076240772407824079240802408124082240832408424085240862408724088240892409024091240922409324094240952409624097240982409924100241012410224103241042410524106241072410824109241102411124112241132411424115241162411724118241192412024121241222412324124241252412624127241282412924130241312413224133241342413524136241372413824139241402414124142241432414424145241462414724148241492415024151241522415324154241552415624157241582415924160241612416224163241642416524166241672416824169241702417124172241732417424175241762417724178241792418024181241822418324184241852418624187241882418924190241912419224193241942419524196241972419824199242002420124202242032420424205242062420724208242092421024211242122421324214242152421624217242182421924220242212422224223242242422524226242272422824229242302423124232242332423424235242362423724238242392424024241242422424324244242452424624247242482424924250242512425224253242542425524256242572425824259242602426124262242632426424265242662426724268242692427024271242722427324274242752427624277242782427924280242812428224283242842428524286242872428824289242902429124292242932429424295242962429724298242992430024301243022430324304243052430624307243082430924310243112431224313243142431524316243172431824319243202432124322243232432424325243262432724328243292433024331243322433324334243352433624337243382433924340243412434224343243442434524346243472434824349243502435124352243532435424355243562435724358243592436024361243622436324364243652436624367243682436924370243712437224373243742437524376243772437824379243802438124382243832438424385243862438724388243892439024391243922439324394243952439624397243982439924400244012440224403244042440524406244072440824409244102441124412244132441424415244162441724418244192442024421244222442324424244252442624427244282442924430244312443224433244342443524436244372443824439244402444124442244432444424445244462444724448244492445024451244522445324454244552445624457244582445924460244612446224463244642446524466244672446824469244702447124472244732447424475244762447724478244792448024481244822448324484244852448624487244882448924490244912449224493244942449524496244972449824499245002450124502245032450424505245062450724508245092451024511245122451324514245152451624517245182451924520245212452224523245242452524526245272452824529245302453124532245332453424535245362453724538245392454024541245422454324544245452454624547245482454924550245512455224553245542455524556245572455824559245602456124562245632456424565245662456724568245692457024571245722457324574245752457624577245782457924580245812458224583245842458524586245872458824589245902459124592245932459424595245962459724598245992460024601246022460324604246052460624607246082460924610246112461224613246142461524616246172461824619246202462124622246232462424625246262462724628246292463024631246322463324634246352463624637246382463924640246412464224643246442464524646246472464824649246502465124652246532465424655246562465724658246592466024661246622466324664246652466624667246682466924670246712467224673246742467524676246772467824679246802468124682246832468424685246862468724688246892469024691246922469324694246952469624697246982469924700247012470224703247042470524706247072470824709247102471124712247132471424715247162471724718247192472024721247222472324724247252472624727247282472924730247312473224733247342473524736247372473824739247402474124742247432474424745247462474724748247492475024751247522475324754247552475624757247582475924760247612476224763247642476524766247672476824769247702477124772247732477424775247762477724778247792478024781247822478324784247852478624787247882478924790247912479224793247942479524796247972479824799248002480124802248032480424805248062480724808248092481024811248122481324814248152481624817248182481924820248212482224823248242482524826248272482824829248302483124832248332483424835248362483724838248392484024841248422484324844248452484624847248482484924850248512485224853248542485524856248572485824859248602486124862248632486424865248662486724868248692487024871248722487324874248752487624877248782487924880248812488224883248842488524886248872488824889248902489124892248932489424895248962489724898248992490024901249022490324904249052490624907249082490924910249112491224913249142491524916249172491824919249202492124922249232492424925249262492724928249292493024931249322493324934249352493624937249382493924940249412494224943249442494524946249472494824949249502495124952249532495424955249562495724958249592496024961249622496324964249652496624967249682496924970249712497224973249742497524976249772497824979249802498124982249832498424985249862498724988249892499024991249922499324994249952499624997249982499925000250012500225003250042500525006250072500825009250102501125012250132501425015250162501725018250192502025021250222502325024250252502625027250282502925030250312503225033250342503525036250372503825039250402504125042250432504425045250462504725048250492505025051250522505325054250552505625057250582505925060250612506225063250642506525066250672506825069250702507125072250732507425075250762507725078250792508025081250822508325084250852508625087250882508925090250912509225093250942509525096250972509825099251002510125102251032510425105251062510725108251092511025111251122511325114251152511625117251182511925120251212512225123251242512525126251272512825129251302513125132251332513425135251362513725138251392514025141251422514325144251452514625147251482514925150251512515225153251542515525156251572515825159251602516125162251632516425165251662516725168251692517025171251722517325174251752517625177251782517925180251812518225183251842518525186251872518825189251902519125192251932519425195251962519725198251992520025201252022520325204252052520625207252082520925210252112521225213252142521525216252172521825219252202522125222252232522425225252262522725228252292523025231252322523325234252352523625237252382523925240252412524225243252442524525246252472524825249252502525125252252532525425255252562525725258252592526025261252622526325264252652526625267252682526925270252712527225273252742527525276252772527825279252802528125282252832528425285252862528725288252892529025291252922529325294252952529625297252982529925300253012530225303253042530525306253072530825309253102531125312253132531425315253162531725318253192532025321253222532325324253252532625327253282532925330253312533225333253342533525336253372533825339253402534125342253432534425345253462534725348253492535025351253522535325354253552535625357253582535925360253612536225363253642536525366253672536825369253702537125372253732537425375253762537725378253792538025381253822538325384253852538625387253882538925390253912539225393253942539525396253972539825399254002540125402254032540425405254062540725408254092541025411254122541325414254152541625417254182541925420254212542225423254242542525426254272542825429254302543125432254332543425435254362543725438254392544025441254422544325444254452544625447254482544925450254512545225453254542545525456254572545825459254602546125462254632546425465254662546725468254692547025471254722547325474254752547625477254782547925480254812548225483254842548525486254872548825489254902549125492254932549425495254962549725498254992550025501255022550325504255052550625507255082550925510255112551225513255142551525516255172551825519255202552125522255232552425525255262552725528255292553025531255322553325534255352553625537255382553925540255412554225543255442554525546255472554825549255502555125552255532555425555255562555725558255592556025561255622556325564255652556625567255682556925570255712557225573255742557525576255772557825579255802558125582255832558425585255862558725588255892559025591255922559325594255952559625597255982559925600256012560225603256042560525606256072560825609256102561125612256132561425615256162561725618256192562025621256222562325624256252562625627256282562925630256312563225633256342563525636256372563825639256402564125642256432564425645256462564725648256492565025651256522565325654256552565625657256582565925660256612566225663256642566525666256672566825669256702567125672256732567425675256762567725678256792568025681256822568325684256852568625687256882568925690256912569225693256942569525696256972569825699257002570125702257032570425705257062570725708257092571025711257122571325714257152571625717257182571925720257212572225723257242572525726257272572825729257302573125732257332573425735257362573725738257392574025741257422574325744257452574625747257482574925750257512575225753257542575525756257572575825759257602576125762257632576425765257662576725768257692577025771257722577325774257752577625777257782577925780257812578225783257842578525786257872578825789257902579125792257932579425795257962579725798257992580025801258022580325804258052580625807258082580925810258112581225813258142581525816258172581825819258202582125822258232582425825258262582725828258292583025831258322583325834258352583625837258382583925840258412584225843258442584525846258472584825849258502585125852258532585425855258562585725858258592586025861258622586325864258652586625867258682586925870258712587225873258742587525876258772587825879258802588125882258832588425885258862588725888258892589025891258922589325894258952589625897258982589925900259012590225903259042590525906259072590825909259102591125912259132591425915259162591725918259192592025921259222592325924259252592625927259282592925930259312593225933259342593525936259372593825939259402594125942259432594425945259462594725948259492595025951259522595325954259552595625957259582595925960259612596225963259642596525966259672596825969259702597125972259732597425975259762597725978259792598025981259822598325984259852598625987259882598925990259912599225993259942599525996259972599825999260002600126002260032600426005260062600726008260092601026011260122601326014260152601626017260182601926020260212602226023260242602526026260272602826029260302603126032260332603426035260362603726038260392604026041260422604326044260452604626047260482604926050260512605226053260542605526056260572605826059260602606126062260632606426065260662606726068260692607026071260722607326074260752607626077260782607926080260812608226083260842608526086260872608826089260902609126092260932609426095260962609726098260992610026101261022610326104261052610626107261082610926110261112611226113261142611526116261172611826119261202612126122261232612426125261262612726128261292613026131261322613326134261352613626137261382613926140261412614226143261442614526146261472614826149261502615126152261532615426155261562615726158261592616026161261622616326164261652616626167261682616926170261712617226173261742617526176261772617826179261802618126182261832618426185261862618726188261892619026191261922619326194261952619626197261982619926200262012620226203262042620526206262072620826209262102621126212262132621426215262162621726218262192622026221262222622326224262252622626227262282622926230262312623226233262342623526236262372623826239262402624126242262432624426245262462624726248262492625026251262522625326254262552625626257262582625926260262612626226263262642626526266262672626826269262702627126272262732627426275262762627726278262792628026281262822628326284262852628626287262882628926290262912629226293262942629526296262972629826299263002630126302263032630426305263062630726308263092631026311263122631326314263152631626317263182631926320263212632226323263242632526326263272632826329263302633126332263332633426335263362633726338263392634026341263422634326344263452634626347263482634926350263512635226353263542635526356263572635826359263602636126362263632636426365263662636726368263692637026371263722637326374263752637626377263782637926380263812638226383263842638526386263872638826389263902639126392263932639426395263962639726398263992640026401264022640326404264052640626407264082640926410264112641226413264142641526416264172641826419264202642126422264232642426425264262642726428264292643026431264322643326434264352643626437264382643926440264412644226443264442644526446264472644826449264502645126452264532645426455264562645726458264592646026461264622646326464264652646626467264682646926470264712647226473264742647526476264772647826479264802648126482264832648426485264862648726488264892649026491264922649326494264952649626497264982649926500265012650226503265042650526506265072650826509265102651126512265132651426515265162651726518265192652026521265222652326524265252652626527265282652926530265312653226533265342653526536265372653826539265402654126542265432654426545265462654726548265492655026551265522655326554265552655626557265582655926560265612656226563265642656526566265672656826569265702657126572265732657426575265762657726578265792658026581265822658326584265852658626587265882658926590265912659226593265942659526596265972659826599266002660126602266032660426605266062660726608266092661026611266122661326614266152661626617266182661926620266212662226623266242662526626266272662826629266302663126632266332663426635266362663726638266392664026641266422664326644266452664626647266482664926650266512665226653266542665526656266572665826659266602666126662266632666426665266662666726668266692667026671266722667326674266752667626677266782667926680266812668226683266842668526686266872668826689266902669126692266932669426695266962669726698266992670026701267022670326704267052670626707267082670926710267112671226713267142671526716267172671826719267202672126722267232672426725267262672726728267292673026731267322673326734267352673626737267382673926740267412674226743267442674526746267472674826749267502675126752267532675426755267562675726758267592676026761267622676326764267652676626767267682676926770267712677226773267742677526776267772677826779267802678126782267832678426785267862678726788267892679026791267922679326794267952679626797267982679926800268012680226803268042680526806268072680826809268102681126812268132681426815268162681726818268192682026821268222682326824268252682626827268282682926830268312683226833268342683526836268372683826839268402684126842268432684426845268462684726848268492685026851268522685326854268552685626857268582685926860268612686226863268642686526866268672686826869268702687126872268732687426875268762687726878268792688026881268822688326884268852688626887268882688926890268912689226893268942689526896268972689826899269002690126902269032690426905269062690726908269092691026911269122691326914269152691626917269182691926920269212692226923269242692526926269272692826929269302693126932269332693426935269362693726938269392694026941269422694326944269452694626947269482694926950269512695226953269542695526956269572695826959269602696126962269632696426965269662696726968269692697026971269722697326974269752697626977269782697926980269812698226983269842698526986269872698826989269902699126992269932699426995269962699726998269992700027001270022700327004270052700627007270082700927010270112701227013270142701527016270172701827019270202702127022270232702427025270262702727028270292703027031270322703327034270352703627037270382703927040270412704227043270442704527046270472704827049270502705127052270532705427055270562705727058270592706027061270622706327064270652706627067270682706927070270712707227073270742707527076270772707827079270802708127082270832708427085270862708727088270892709027091270922709327094270952709627097270982709927100271012710227103271042710527106271072710827109271102711127112271132711427115271162711727118271192712027121271222712327124271252712627127271282712927130271312713227133271342713527136271372713827139271402714127142271432714427145271462714727148271492715027151271522715327154271552715627157271582715927160271612716227163271642716527166271672716827169271702717127172271732717427175271762717727178271792718027181271822718327184271852718627187271882718927190271912719227193271942719527196271972719827199272002720127202272032720427205272062720727208272092721027211272122721327214272152721627217272182721927220272212722227223272242722527226272272722827229272302723127232272332723427235272362723727238272392724027241272422724327244272452724627247272482724927250272512725227253272542725527256272572725827259272602726127262272632726427265272662726727268272692727027271272722727327274272752727627277272782727927280272812728227283272842728527286272872728827289272902729127292272932729427295272962729727298272992730027301273022730327304273052730627307273082730927310273112731227313273142731527316273172731827319273202732127322273232732427325273262732727328273292733027331273322733327334273352733627337273382733927340273412734227343273442734527346273472734827349273502735127352273532735427355273562735727358273592736027361273622736327364273652736627367273682736927370273712737227373273742737527376273772737827379273802738127382273832738427385273862738727388273892739027391273922739327394273952739627397273982739927400274012740227403274042740527406274072740827409274102741127412274132741427415274162741727418274192742027421274222742327424274252742627427274282742927430274312743227433274342743527436274372743827439274402744127442274432744427445274462744727448274492745027451274522745327454274552745627457274582745927460274612746227463274642746527466274672746827469274702747127472274732747427475274762747727478274792748027481274822748327484274852748627487274882748927490274912749227493274942749527496274972749827499275002750127502275032750427505275062750727508275092751027511275122751327514275152751627517275182751927520275212752227523275242752527526275272752827529275302753127532275332753427535275362753727538275392754027541275422754327544275452754627547275482754927550275512755227553275542755527556275572755827559275602756127562275632756427565275662756727568275692757027571275722757327574275752757627577275782757927580275812758227583275842758527586275872758827589275902759127592275932759427595275962759727598275992760027601276022760327604276052760627607276082760927610276112761227613276142761527616276172761827619276202762127622276232762427625276262762727628276292763027631276322763327634276352763627637276382763927640276412764227643276442764527646276472764827649276502765127652276532765427655276562765727658276592766027661276622766327664276652766627667276682766927670276712767227673276742767527676276772767827679276802768127682276832768427685276862768727688276892769027691276922769327694276952769627697276982769927700277012770227703277042770527706277072770827709277102771127712277132771427715277162771727718277192772027721277222772327724277252772627727277282772927730277312773227733277342773527736277372773827739277402774127742277432774427745277462774727748277492775027751277522775327754277552775627757277582775927760277612776227763277642776527766277672776827769277702777127772277732777427775277762777727778277792778027781277822778327784277852778627787277882778927790277912779227793277942779527796277972779827799278002780127802278032780427805278062780727808278092781027811278122781327814278152781627817278182781927820278212782227823278242782527826278272782827829278302783127832278332783427835278362783727838278392784027841278422784327844278452784627847278482784927850278512785227853278542785527856278572785827859278602786127862278632786427865278662786727868278692787027871278722787327874278752787627877278782787927880278812788227883278842788527886278872788827889278902789127892278932789427895278962789727898278992790027901279022790327904279052790627907279082790927910279112791227913279142791527916279172791827919279202792127922279232792427925279262792727928279292793027931279322793327934279352793627937279382793927940279412794227943279442794527946279472794827949279502795127952279532795427955279562795727958279592796027961279622796327964279652796627967279682796927970279712797227973279742797527976279772797827979279802798127982279832798427985279862798727988279892799027991279922799327994279952799627997279982799928000280012800228003280042800528006280072800828009280102801128012280132801428015280162801728018280192802028021280222802328024280252802628027280282802928030280312803228033280342803528036280372803828039280402804128042280432804428045280462804728048280492805028051280522805328054280552805628057280582805928060280612806228063280642806528066280672806828069280702807128072280732807428075280762807728078280792808028081280822808328084280852808628087280882808928090280912809228093280942809528096280972809828099281002810128102281032810428105281062810728108281092811028111281122811328114281152811628117281182811928120281212812228123281242812528126281272812828129281302813128132281332813428135281362813728138281392814028141281422814328144281452814628147281482814928150281512815228153281542815528156281572815828159281602816128162281632816428165281662816728168281692817028171281722817328174281752817628177281782817928180281812818228183281842818528186281872818828189281902819128192281932819428195281962819728198281992820028201282022820328204282052820628207282082820928210282112821228213282142821528216282172821828219282202822128222282232822428225282262822728228282292823028231282322823328234282352823628237282382823928240282412824228243282442824528246282472824828249282502825128252282532825428255282562825728258282592826028261282622826328264282652826628267282682826928270282712827228273282742827528276282772827828279282802828128282282832828428285282862828728288282892829028291282922829328294282952829628297282982829928300283012830228303283042830528306283072830828309283102831128312283132831428315283162831728318283192832028321283222832328324283252832628327283282832928330283312833228333283342833528336283372833828339283402834128342283432834428345283462834728348283492835028351283522835328354283552835628357283582835928360283612836228363283642836528366283672836828369283702837128372283732837428375283762837728378283792838028381283822838328384283852838628387283882838928390283912839228393283942839528396283972839828399284002840128402284032840428405284062840728408284092841028411284122841328414284152841628417284182841928420284212842228423284242842528426284272842828429284302843128432284332843428435284362843728438284392844028441284422844328444284452844628447284482844928450284512845228453284542845528456284572845828459284602846128462284632846428465284662846728468284692847028471284722847328474284752847628477284782847928480284812848228483284842848528486284872848828489284902849128492284932849428495284962849728498284992850028501285022850328504285052850628507285082850928510285112851228513285142851528516285172851828519285202852128522285232852428525285262852728528285292853028531285322853328534285352853628537285382853928540285412854228543285442854528546285472854828549285502855128552285532855428555285562855728558285592856028561285622856328564285652856628567285682856928570285712857228573285742857528576285772857828579285802858128582285832858428585285862858728588285892859028591285922859328594285952859628597285982859928600286012860228603286042860528606286072860828609286102861128612286132861428615286162861728618286192862028621286222862328624286252862628627286282862928630286312863228633286342863528636286372863828639286402864128642286432864428645286462864728648286492865028651286522865328654286552865628657286582865928660286612866228663286642866528666286672866828669286702867128672286732867428675286762867728678286792868028681286822868328684286852868628687286882868928690286912869228693286942869528696286972869828699287002870128702287032870428705287062870728708287092871028711287122871328714287152871628717287182871928720287212872228723287242872528726287272872828729287302873128732287332873428735287362873728738287392874028741287422874328744287452874628747287482874928750287512875228753287542875528756287572875828759287602876128762287632876428765287662876728768287692877028771287722877328774287752877628777287782877928780287812878228783287842878528786287872878828789287902879128792287932879428795287962879728798287992880028801288022880328804288052880628807288082880928810288112881228813288142881528816288172881828819288202882128822288232882428825288262882728828288292883028831288322883328834288352883628837288382883928840288412884228843288442884528846288472884828849288502885128852288532885428855288562885728858288592886028861288622886328864288652886628867288682886928870288712887228873288742887528876288772887828879288802888128882288832888428885288862888728888288892889028891288922889328894288952889628897288982889928900289012890228903289042890528906289072890828909289102891128912289132891428915289162891728918289192892028921289222892328924289252892628927289282892928930289312893228933289342893528936289372893828939289402894128942289432894428945289462894728948289492895028951289522895328954289552895628957289582895928960289612896228963289642896528966289672896828969289702897128972289732897428975289762897728978289792898028981289822898328984289852898628987289882898928990289912899228993289942899528996289972899828999290002900129002290032900429005290062900729008290092901029011290122901329014290152901629017290182901929020290212902229023290242902529026290272902829029290302903129032290332903429035290362903729038290392904029041290422904329044290452904629047290482904929050290512905229053290542905529056290572905829059290602906129062290632906429065290662906729068290692907029071290722907329074290752907629077290782907929080290812908229083290842908529086290872908829089290902909129092290932909429095290962909729098290992910029101291022910329104291052910629107291082910929110291112911229113291142911529116291172911829119291202912129122291232912429125291262912729128291292913029131291322913329134291352913629137291382913929140291412914229143291442914529146291472914829149291502915129152291532915429155291562915729158291592916029161291622916329164291652916629167291682916929170291712917229173291742917529176291772917829179291802918129182291832918429185291862918729188291892919029191291922919329194291952919629197291982919929200292012920229203292042920529206292072920829209292102921129212292132921429215292162921729218292192922029221292222922329224292252922629227292282922929230292312923229233292342923529236292372923829239292402924129242292432924429245292462924729248292492925029251292522925329254292552925629257292582925929260292612926229263292642926529266292672926829269292702927129272292732927429275292762927729278292792928029281292822928329284292852928629287292882928929290292912929229293292942929529296292972929829299293002930129302293032930429305293062930729308293092931029311293122931329314293152931629317293182931929320293212932229323293242932529326293272932829329293302933129332293332933429335293362933729338293392934029341293422934329344293452934629347293482934929350293512935229353293542935529356293572935829359293602936129362293632936429365293662936729368293692937029371293722937329374293752937629377293782937929380293812938229383293842938529386293872938829389293902939129392293932939429395293962939729398293992940029401294022940329404294052940629407294082940929410294112941229413294142941529416294172941829419294202942129422294232942429425294262942729428294292943029431294322943329434294352943629437294382943929440294412944229443294442944529446294472944829449294502945129452294532945429455294562945729458294592946029461294622946329464294652946629467294682946929470294712947229473294742947529476294772947829479294802948129482294832948429485294862948729488294892949029491294922949329494294952949629497294982949929500295012950229503295042950529506295072950829509295102951129512295132951429515295162951729518295192952029521295222952329524295252952629527295282952929530295312953229533295342953529536295372953829539295402954129542295432954429545295462954729548295492955029551295522955329554295552955629557295582955929560295612956229563295642956529566295672956829569295702957129572295732957429575295762957729578295792958029581295822958329584295852958629587295882958929590295912959229593295942959529596295972959829599296002960129602296032960429605296062960729608296092961029611296122961329614296152961629617296182961929620296212962229623296242962529626296272962829629296302963129632296332963429635296362963729638296392964029641296422964329644296452964629647296482964929650296512965229653296542965529656296572965829659296602966129662296632966429665296662966729668296692967029671296722967329674296752967629677296782967929680296812968229683296842968529686296872968829689296902969129692296932969429695296962969729698296992970029701297022970329704297052970629707297082970929710297112971229713297142971529716297172971829719297202972129722297232972429725297262972729728297292973029731297322973329734297352973629737297382973929740297412974229743297442974529746297472974829749297502975129752297532975429755297562975729758297592976029761297622976329764297652976629767297682976929770297712977229773297742977529776297772977829779297802978129782297832978429785297862978729788297892979029791297922979329794297952979629797297982979929800298012980229803298042980529806298072980829809298102981129812298132981429815298162981729818298192982029821298222982329824298252982629827298282982929830298312983229833298342983529836298372983829839298402984129842298432984429845298462984729848298492985029851298522985329854298552985629857298582985929860298612986229863298642986529866298672986829869298702987129872298732987429875298762987729878298792988029881298822988329884298852988629887298882988929890298912989229893298942989529896298972989829899299002990129902299032990429905299062990729908299092991029911299122991329914299152991629917299182991929920299212992229923299242992529926299272992829929299302993129932299332993429935299362993729938299392994029941299422994329944299452994629947299482994929950299512995229953299542995529956299572995829959299602996129962299632996429965299662996729968299692997029971299722997329974299752997629977299782997929980299812998229983299842998529986299872998829989299902999129992299932999429995299962999729998299993000030001300023000330004300053000630007300083000930010300113001230013300143001530016300173001830019300203002130022300233002430025300263002730028300293003030031300323003330034300353003630037300383003930040300413004230043300443004530046300473004830049300503005130052300533005430055300563005730058300593006030061300623006330064300653006630067300683006930070300713007230073300743007530076300773007830079300803008130082300833008430085300863008730088300893009030091300923009330094300953009630097300983009930100301013010230103301043010530106301073010830109301103011130112301133011430115301163011730118301193012030121301223012330124301253012630127301283012930130301313013230133301343013530136301373013830139301403014130142301433014430145301463014730148301493015030151301523015330154301553015630157301583015930160301613016230163301643016530166301673016830169301703017130172301733017430175301763017730178301793018030181301823018330184301853018630187301883018930190301913019230193301943019530196301973019830199302003020130202302033020430205302063020730208302093021030211302123021330214302153021630217302183021930220302213022230223302243022530226302273022830229302303023130232302333023430235302363023730238302393024030241302423024330244302453024630247302483024930250302513025230253302543025530256302573025830259302603026130262302633026430265302663026730268302693027030271302723027330274302753027630277302783027930280302813028230283302843028530286302873028830289302903029130292302933029430295302963029730298302993030030301303023030330304303053030630307303083030930310303113031230313303143031530316303173031830319303203032130322303233032430325303263032730328303293033030331303323033330334303353033630337303383033930340303413034230343303443034530346303473034830349303503035130352303533035430355303563035730358303593036030361303623036330364303653036630367303683036930370303713037230373303743037530376303773037830379303803038130382303833038430385303863038730388303893039030391303923039330394303953039630397303983039930400304013040230403304043040530406304073040830409304103041130412304133041430415304163041730418304193042030421304223042330424304253042630427304283042930430304313043230433304343043530436304373043830439304403044130442304433044430445304463044730448304493045030451304523045330454304553045630457304583045930460304613046230463304643046530466304673046830469304703047130472304733047430475304763047730478304793048030481304823048330484304853048630487304883048930490304913049230493304943049530496304973049830499305003050130502305033050430505305063050730508305093051030511305123051330514305153051630517305183051930520305213052230523305243052530526305273052830529305303053130532305333053430535305363053730538305393054030541305423054330544305453054630547305483054930550305513055230553305543055530556305573055830559305603056130562305633056430565305663056730568305693057030571305723057330574305753057630577305783057930580305813058230583305843058530586305873058830589305903059130592305933059430595305963059730598305993060030601306023060330604306053060630607306083060930610306113061230613306143061530616306173061830619306203062130622306233062430625306263062730628306293063030631306323063330634306353063630637306383063930640306413064230643306443064530646306473064830649306503065130652306533065430655306563065730658306593066030661306623066330664306653066630667306683066930670306713067230673306743067530676306773067830679306803068130682306833068430685306863068730688306893069030691306923069330694306953069630697306983069930700307013070230703307043070530706307073070830709307103071130712307133071430715307163071730718307193072030721307223072330724307253072630727307283072930730307313073230733307343073530736307373073830739307403074130742307433074430745307463074730748307493075030751307523075330754307553075630757307583075930760307613076230763307643076530766307673076830769307703077130772307733077430775307763077730778307793078030781307823078330784307853078630787307883078930790307913079230793307943079530796307973079830799308003080130802308033080430805308063080730808308093081030811308123081330814308153081630817308183081930820308213082230823308243082530826308273082830829308303083130832308333083430835308363083730838308393084030841308423084330844308453084630847308483084930850308513085230853308543085530856308573085830859308603086130862308633086430865308663086730868308693087030871308723087330874308753087630877308783087930880308813088230883308843088530886308873088830889308903089130892308933089430895308963089730898308993090030901309023090330904309053090630907309083090930910309113091230913309143091530916309173091830919309203092130922309233092430925309263092730928309293093030931309323093330934309353093630937309383093930940309413094230943309443094530946309473094830949309503095130952309533095430955309563095730958309593096030961309623096330964309653096630967309683096930970309713097230973309743097530976309773097830979309803098130982309833098430985309863098730988309893099030991309923099330994309953099630997309983099931000310013100231003310043100531006310073100831009310103101131012310133101431015310163101731018310193102031021310223102331024310253102631027310283102931030310313103231033310343103531036310373103831039310403104131042310433104431045310463104731048310493105031051310523105331054310553105631057310583105931060310613106231063310643106531066310673106831069310703107131072310733107431075310763107731078310793108031081310823108331084310853108631087310883108931090310913109231093310943109531096310973109831099311003110131102311033110431105311063110731108311093111031111311123111331114311153111631117311183111931120311213112231123311243112531126311273112831129311303113131132311333113431135311363113731138311393114031141311423114331144311453114631147311483114931150311513115231153311543115531156311573115831159311603116131162311633116431165311663116731168311693117031171311723117331174311753117631177311783117931180311813118231183311843118531186311873118831189311903119131192311933119431195311963119731198311993120031201312023120331204312053120631207312083120931210312113121231213312143121531216312173121831219312203122131222312233122431225312263122731228312293123031231312323123331234312353123631237312383123931240312413124231243312443124531246312473124831249312503125131252312533125431255312563125731258312593126031261312623126331264312653126631267312683126931270312713127231273312743127531276312773127831279312803128131282312833128431285312863128731288312893129031291312923129331294312953129631297312983129931300313013130231303313043130531306313073130831309313103131131312313133131431315313163131731318313193132031321313223132331324313253132631327313283132931330313313133231333313343133531336313373133831339313403134131342313433134431345313463134731348313493135031351313523135331354313553135631357313583135931360313613136231363313643136531366313673136831369313703137131372313733137431375313763137731378313793138031381313823138331384313853138631387313883138931390313913139231393313943139531396313973139831399314003140131402314033140431405314063140731408314093141031411314123141331414314153141631417314183141931420314213142231423314243142531426314273142831429314303143131432314333143431435314363143731438314393144031441314423144331444314453144631447314483144931450314513145231453314543145531456314573145831459314603146131462314633146431465314663146731468314693147031471314723147331474314753147631477314783147931480314813148231483314843148531486314873148831489314903149131492314933149431495314963149731498314993150031501315023150331504315053150631507315083150931510315113151231513315143151531516315173151831519315203152131522315233152431525315263152731528315293153031531315323153331534315353153631537315383153931540315413154231543315443154531546315473154831549315503155131552315533155431555315563155731558315593156031561315623156331564315653156631567315683156931570315713157231573315743157531576315773157831579315803158131582315833158431585315863158731588315893159031591315923159331594315953159631597315983159931600316013160231603316043160531606316073160831609316103161131612316133161431615316163161731618316193162031621316223162331624316253162631627316283162931630316313163231633316343163531636316373163831639316403164131642316433164431645316463164731648316493165031651316523165331654316553165631657316583165931660316613166231663316643166531666316673166831669316703167131672316733167431675316763167731678316793168031681316823168331684316853168631687316883168931690316913169231693316943169531696316973169831699317003170131702317033170431705317063170731708317093171031711317123171331714317153171631717317183171931720317213172231723317243172531726317273172831729317303173131732317333173431735317363173731738317393174031741317423174331744317453174631747317483174931750317513175231753317543175531756317573175831759317603176131762317633176431765317663176731768317693177031771317723177331774317753177631777317783177931780317813178231783317843178531786317873178831789317903179131792317933179431795317963179731798317993180031801318023180331804318053180631807318083180931810318113181231813318143181531816318173181831819318203182131822318233182431825318263182731828318293183031831318323183331834318353183631837318383183931840318413184231843318443184531846318473184831849318503185131852318533185431855318563185731858318593186031861318623186331864318653186631867318683186931870318713187231873318743187531876318773187831879318803188131882318833188431885318863188731888318893189031891318923189331894318953189631897318983189931900319013190231903319043190531906319073190831909319103191131912319133191431915319163191731918319193192031921319223192331924319253192631927319283192931930319313193231933319343193531936319373193831939319403194131942319433194431945319463194731948319493195031951319523195331954319553195631957319583195931960319613196231963319643196531966319673196831969319703197131972319733197431975319763197731978319793198031981319823198331984319853198631987319883198931990319913199231993319943199531996319973199831999320003200132002320033200432005320063200732008320093201032011320123201332014320153201632017320183201932020320213202232023320243202532026320273202832029320303203132032320333203432035320363203732038320393204032041320423204332044320453204632047320483204932050320513205232053320543205532056320573205832059320603206132062320633206432065320663206732068320693207032071320723207332074320753207632077320783207932080320813208232083320843208532086320873208832089320903209132092320933209432095320963209732098320993210032101321023210332104321053210632107321083210932110321113211232113321143211532116321173211832119321203212132122321233212432125321263212732128321293213032131321323213332134321353213632137321383213932140321413214232143321443214532146321473214832149321503215132152321533215432155321563215732158321593216032161321623216332164321653216632167321683216932170321713217232173321743217532176321773217832179321803218132182321833218432185321863218732188321893219032191321923219332194321953219632197321983219932200322013220232203322043220532206322073220832209322103221132212322133221432215322163221732218322193222032221322223222332224322253222632227322283222932230322313223232233322343223532236322373223832239322403224132242322433224432245322463224732248322493225032251322523225332254322553225632257322583225932260322613226232263322643226532266322673226832269322703227132272322733227432275322763227732278322793228032281322823228332284322853228632287322883228932290322913229232293322943229532296322973229832299323003230132302323033230432305323063230732308323093231032311323123231332314323153231632317323183231932320323213232232323323243232532326323273232832329323303233132332323333233432335323363233732338323393234032341323423234332344323453234632347323483234932350323513235232353323543235532356323573235832359323603236132362323633236432365323663236732368323693237032371323723237332374323753237632377323783237932380323813238232383323843238532386323873238832389323903239132392323933239432395323963239732398323993240032401324023240332404324053240632407324083240932410324113241232413324143241532416324173241832419324203242132422324233242432425324263242732428324293243032431324323243332434324353243632437324383243932440324413244232443324443244532446324473244832449324503245132452324533245432455324563245732458324593246032461324623246332464324653246632467324683246932470324713247232473324743247532476324773247832479324803248132482324833248432485324863248732488324893249032491324923249332494324953249632497324983249932500325013250232503325043250532506325073250832509325103251132512325133251432515325163251732518325193252032521325223252332524325253252632527325283252932530325313253232533325343253532536325373253832539325403254132542325433254432545325463254732548325493255032551325523255332554325553255632557325583255932560325613256232563325643256532566325673256832569325703257132572325733257432575325763257732578325793258032581325823258332584325853258632587325883258932590325913259232593325943259532596325973259832599326003260132602326033260432605326063260732608326093261032611326123261332614326153261632617326183261932620326213262232623326243262532626326273262832629326303263132632326333263432635326363263732638326393264032641326423264332644326453264632647326483264932650326513265232653326543265532656326573265832659326603266132662326633266432665326663266732668326693267032671326723267332674326753267632677326783267932680326813268232683326843268532686326873268832689326903269132692326933269432695326963269732698326993270032701327023270332704327053270632707327083270932710327113271232713327143271532716327173271832719327203272132722327233272432725327263272732728327293273032731327323273332734327353273632737327383273932740327413274232743327443274532746327473274832749327503275132752327533275432755327563275732758327593276032761327623276332764327653276632767327683276932770327713277232773327743277532776327773277832779327803278132782327833278432785327863278732788327893279032791327923279332794327953279632797327983279932800328013280232803328043280532806328073280832809328103281132812328133281432815328163281732818328193282032821328223282332824328253282632827328283282932830328313283232833328343283532836328373283832839328403284132842328433284432845328463284732848328493285032851328523285332854328553285632857328583285932860328613286232863328643286532866328673286832869328703287132872328733287432875328763287732878328793288032881328823288332884328853288632887328883288932890328913289232893328943289532896328973289832899329003290132902329033290432905329063290732908329093291032911329123291332914329153291632917329183291932920329213292232923329243292532926329273292832929329303293132932329333293432935329363293732938329393294032941329423294332944329453294632947329483294932950329513295232953329543295532956329573295832959329603296132962329633296432965329663296732968329693297032971329723297332974329753297632977329783297932980329813298232983329843298532986329873298832989329903299132992329933299432995329963299732998329993300033001330023300333004330053300633007330083300933010330113301233013330143301533016330173301833019330203302133022330233302433025330263302733028330293303033031330323303333034330353303633037330383303933040330413304233043330443304533046330473304833049330503305133052330533305433055330563305733058330593306033061330623306333064330653306633067330683306933070330713307233073330743307533076330773307833079330803308133082330833308433085330863308733088330893309033091330923309333094330953309633097330983309933100331013310233103331043310533106331073310833109331103311133112331133311433115331163311733118331193312033121331223312333124331253312633127331283312933130331313313233133331343313533136331373313833139331403314133142331433314433145331463314733148331493315033151331523315333154331553315633157331583315933160331613316233163331643316533166331673316833169331703317133172331733317433175331763317733178331793318033181331823318333184331853318633187331883318933190331913319233193331943319533196331973319833199332003320133202332033320433205332063320733208332093321033211332123321333214332153321633217332183321933220332213322233223332243322533226332273322833229332303323133232332333323433235332363323733238332393324033241332423324333244332453324633247332483324933250332513325233253332543325533256332573325833259332603326133262332633326433265332663326733268332693327033271332723327333274332753327633277332783327933280332813328233283332843328533286332873328833289332903329133292332933329433295332963329733298332993330033301333023330333304333053330633307333083330933310333113331233313333143331533316333173331833319333203332133322333233332433325333263332733328333293333033331333323333333334333353333633337333383333933340333413334233343333443334533346333473334833349333503335133352333533335433355333563335733358333593336033361333623336333364333653336633367333683336933370333713337233373333743337533376333773337833379333803338133382333833338433385333863338733388333893339033391333923339333394333953339633397333983339933400334013340233403334043340533406334073340833409334103341133412334133341433415334163341733418334193342033421334223342333424334253342633427334283342933430334313343233433334343343533436334373343833439334403344133442334433344433445334463344733448334493345033451334523345333454334553345633457334583345933460334613346233463334643346533466334673346833469334703347133472334733347433475334763347733478334793348033481334823348333484334853348633487334883348933490334913349233493334943349533496334973349833499335003350133502335033350433505335063350733508335093351033511335123351333514335153351633517335183351933520335213352233523335243352533526335273352833529335303353133532335333353433535335363353733538335393354033541335423354333544335453354633547335483354933550335513355233553335543355533556335573355833559335603356133562335633356433565335663356733568335693357033571335723357333574335753357633577335783357933580335813358233583335843358533586335873358833589335903359133592335933359433595335963359733598335993360033601336023360333604336053360633607336083360933610336113361233613336143361533616336173361833619336203362133622336233362433625336263362733628336293363033631336323363333634336353363633637336383363933640336413364233643336443364533646336473364833649336503365133652336533365433655336563365733658336593366033661336623366333664336653366633667336683366933670336713367233673336743367533676336773367833679336803368133682336833368433685336863368733688336893369033691336923369333694336953369633697336983369933700337013370233703337043370533706337073370833709337103371133712337133371433715337163371733718337193372033721337223372333724337253372633727337283372933730337313373233733337343373533736337373373833739337403374133742337433374433745337463374733748337493375033751337523375333754337553375633757337583375933760337613376233763337643376533766337673376833769337703377133772337733377433775337763377733778337793378033781337823378333784337853378633787337883378933790337913379233793337943379533796337973379833799338003380133802338033380433805338063380733808338093381033811338123381333814338153381633817338183381933820338213382233823338243382533826338273382833829338303383133832338333383433835338363383733838338393384033841338423384333844338453384633847338483384933850338513385233853338543385533856338573385833859338603386133862338633386433865338663386733868338693387033871338723387333874338753387633877338783387933880338813388233883338843388533886338873388833889338903389133892338933389433895338963389733898338993390033901339023390333904339053390633907339083390933910339113391233913339143391533916339173391833919339203392133922339233392433925339263392733928339293393033931339323393333934339353393633937339383393933940339413394233943339443394533946339473394833949339503395133952339533395433955339563395733958339593396033961339623396333964339653396633967339683396933970339713397233973339743397533976339773397833979339803398133982339833398433985339863398733988339893399033991339923399333994339953399633997339983399934000340013400234003340043400534006340073400834009340103401134012340133401434015340163401734018340193402034021340223402334024340253402634027340283402934030340313403234033340343403534036340373403834039340403404134042340433404434045340463404734048340493405034051340523405334054340553405634057340583405934060340613406234063340643406534066340673406834069340703407134072340733407434075340763407734078340793408034081340823408334084340853408634087340883408934090340913409234093340943409534096340973409834099341003410134102341033410434105341063410734108341093411034111341123411334114341153411634117341183411934120341213412234123341243412534126341273412834129341303413134132341333413434135341363413734138341393414034141341423414334144341453414634147341483414934150341513415234153341543415534156341573415834159341603416134162341633416434165341663416734168341693417034171341723417334174341753417634177341783417934180341813418234183341843418534186341873418834189341903419134192341933419434195341963419734198341993420034201342023420334204342053420634207342083420934210342113421234213342143421534216342173421834219342203422134222342233422434225342263422734228342293423034231342323423334234342353423634237342383423934240342413424234243342443424534246342473424834249342503425134252342533425434255342563425734258342593426034261342623426334264342653426634267342683426934270342713427234273342743427534276342773427834279342803428134282342833428434285342863428734288342893429034291342923429334294342953429634297342983429934300343013430234303343043430534306343073430834309343103431134312343133431434315343163431734318343193432034321343223432334324343253432634327343283432934330343313433234333343343433534336343373433834339343403434134342343433434434345343463434734348343493435034351343523435334354343553435634357343583435934360343613436234363343643436534366343673436834369343703437134372343733437434375343763437734378343793438034381343823438334384343853438634387343883438934390343913439234393343943439534396343973439834399344003440134402344033440434405344063440734408344093441034411344123441334414344153441634417344183441934420344213442234423344243442534426344273442834429344303443134432344333443434435344363443734438344393444034441344423444334444344453444634447344483444934450344513445234453344543445534456344573445834459344603446134462344633446434465344663446734468344693447034471344723447334474344753447634477344783447934480344813448234483344843448534486344873448834489344903449134492344933449434495344963449734498344993450034501345023450334504345053450634507345083450934510345113451234513345143451534516345173451834519345203452134522345233452434525345263452734528345293453034531345323453334534345353453634537345383453934540345413454234543345443454534546345473454834549345503455134552345533455434555345563455734558345593456034561345623456334564345653456634567345683456934570345713457234573345743457534576345773457834579345803458134582345833458434585345863458734588345893459034591345923459334594345953459634597345983459934600346013460234603346043460534606346073460834609346103461134612346133461434615346163461734618346193462034621346223462334624346253462634627346283462934630346313463234633346343463534636346373463834639346403464134642346433464434645346463464734648346493465034651346523465334654346553465634657346583465934660346613466234663346643466534666346673466834669346703467134672346733467434675346763467734678346793468034681346823468334684346853468634687346883468934690346913469234693346943469534696346973469834699347003470134702347033470434705347063470734708347093471034711347123471334714347153471634717347183471934720347213472234723347243472534726347273472834729347303473134732347333473434735347363473734738347393474034741347423474334744347453474634747347483474934750347513475234753347543475534756347573475834759347603476134762347633476434765347663476734768347693477034771347723477334774347753477634777347783477934780347813478234783347843478534786347873478834789347903479134792347933479434795347963479734798347993480034801348023480334804348053480634807348083480934810348113481234813348143481534816348173481834819348203482134822348233482434825348263482734828348293483034831348323483334834348353483634837348383483934840348413484234843348443484534846348473484834849348503485134852348533485434855348563485734858348593486034861348623486334864348653486634867348683486934870348713487234873348743487534876348773487834879348803488134882348833488434885348863488734888348893489034891348923489334894348953489634897348983489934900349013490234903349043490534906349073490834909349103491134912349133491434915349163491734918349193492034921349223492334924349253492634927349283492934930349313493234933349343493534936349373493834939349403494134942349433494434945349463494734948349493495034951349523495334954349553495634957349583495934960349613496234963349643496534966349673496834969349703497134972349733497434975349763497734978349793498034981349823498334984349853498634987349883498934990349913499234993349943499534996349973499834999350003500135002350033500435005350063500735008350093501035011350123501335014350153501635017350183501935020350213502235023350243502535026350273502835029350303503135032350333503435035350363503735038350393504035041350423504335044350453504635047350483504935050350513505235053350543505535056350573505835059350603506135062350633506435065350663506735068350693507035071350723507335074350753507635077350783507935080350813508235083350843508535086350873508835089350903509135092350933509435095350963509735098350993510035101351023510335104351053510635107351083510935110351113511235113351143511535116351173511835119351203512135122351233512435125351263512735128351293513035131351323513335134351353513635137351383513935140351413514235143351443514535146351473514835149351503515135152351533515435155351563515735158351593516035161351623516335164351653516635167351683516935170351713517235173351743517535176351773517835179351803518135182351833518435185351863518735188351893519035191351923519335194351953519635197351983519935200352013520235203352043520535206352073520835209352103521135212352133521435215352163521735218352193522035221352223522335224352253522635227352283522935230352313523235233352343523535236352373523835239352403524135242352433524435245352463524735248352493525035251352523525335254352553525635257352583525935260352613526235263352643526535266352673526835269352703527135272352733527435275352763527735278352793528035281352823528335284352853528635287352883528935290352913529235293352943529535296352973529835299353003530135302353033530435305353063530735308353093531035311353123531335314353153531635317353183531935320353213532235323353243532535326353273532835329353303533135332353333533435335353363533735338353393534035341353423534335344353453534635347353483534935350353513535235353353543535535356353573535835359353603536135362353633536435365353663536735368353693537035371353723537335374353753537635377353783537935380353813538235383353843538535386353873538835389353903539135392353933539435395353963539735398353993540035401354023540335404354053540635407354083540935410354113541235413354143541535416354173541835419354203542135422354233542435425354263542735428354293543035431354323543335434354353543635437354383543935440354413544235443354443544535446354473544835449354503545135452354533545435455354563545735458354593546035461354623546335464354653546635467354683546935470354713547235473354743547535476354773547835479354803548135482354833548435485354863548735488354893549035491354923549335494354953549635497354983549935500355013550235503355043550535506355073550835509355103551135512355133551435515355163551735518355193552035521355223552335524355253552635527355283552935530355313553235533355343553535536355373553835539355403554135542355433554435545355463554735548355493555035551355523555335554355553555635557355583555935560355613556235563355643556535566355673556835569355703557135572355733557435575355763557735578355793558035581355823558335584355853558635587355883558935590355913559235593355943559535596355973559835599356003560135602356033560435605356063560735608356093561035611356123561335614356153561635617356183561935620356213562235623356243562535626356273562835629356303563135632356333563435635356363563735638356393564035641356423564335644356453564635647356483564935650356513565235653356543565535656356573565835659356603566135662356633566435665356663566735668356693567035671356723567335674356753567635677356783567935680356813568235683356843568535686356873568835689356903569135692356933569435695356963569735698356993570035701357023570335704357053570635707357083570935710357113571235713357143571535716357173571835719357203572135722357233572435725357263572735728357293573035731357323573335734357353573635737357383573935740357413574235743357443574535746357473574835749357503575135752357533575435755357563575735758357593576035761357623576335764357653576635767357683576935770357713577235773357743577535776357773577835779357803578135782357833578435785357863578735788357893579035791357923579335794357953579635797357983579935800358013580235803358043580535806358073580835809358103581135812358133581435815358163581735818358193582035821358223582335824358253582635827358283582935830358313583235833358343583535836358373583835839358403584135842358433584435845358463584735848358493585035851358523585335854358553585635857358583585935860358613586235863358643586535866358673586835869358703587135872358733587435875358763587735878358793588035881358823588335884358853588635887358883588935890358913589235893358943589535896358973589835899359003590135902359033590435905359063590735908359093591035911359123591335914359153591635917359183591935920359213592235923359243592535926359273592835929359303593135932359333593435935359363593735938359393594035941359423594335944359453594635947359483594935950359513595235953359543595535956359573595835959359603596135962359633596435965359663596735968359693597035971359723597335974359753597635977359783597935980359813598235983359843598535986359873598835989359903599135992359933599435995359963599735998359993600036001360023600336004360053600636007360083600936010360113601236013360143601536016360173601836019360203602136022360233602436025360263602736028360293603036031360323603336034360353603636037360383603936040360413604236043360443604536046360473604836049360503605136052360533605436055360563605736058360593606036061360623606336064360653606636067360683606936070360713607236073360743607536076360773607836079360803608136082360833608436085360863608736088360893609036091360923609336094360953609636097360983609936100361013610236103361043610536106361073610836109361103611136112361133611436115361163611736118361193612036121361223612336124361253612636127361283612936130361313613236133361343613536136361373613836139361403614136142361433614436145361463614736148361493615036151361523615336154361553615636157361583615936160361613616236163361643616536166361673616836169361703617136172361733617436175361763617736178361793618036181361823618336184361853618636187361883618936190361913619236193361943619536196361973619836199362003620136202362033620436205362063620736208362093621036211362123621336214362153621636217362183621936220362213622236223362243622536226362273622836229362303623136232362333623436235362363623736238362393624036241362423624336244362453624636247362483624936250362513625236253362543625536256362573625836259362603626136262362633626436265362663626736268362693627036271362723627336274362753627636277362783627936280362813628236283362843628536286362873628836289362903629136292362933629436295362963629736298362993630036301363023630336304363053630636307363083630936310363113631236313363143631536316363173631836319363203632136322363233632436325363263632736328363293633036331363323633336334363353633636337363383633936340363413634236343363443634536346363473634836349363503635136352363533635436355363563635736358363593636036361363623636336364363653636636367363683636936370363713637236373363743637536376363773637836379363803638136382363833638436385363863638736388363893639036391363923639336394363953639636397363983639936400364013640236403364043640536406364073640836409364103641136412364133641436415364163641736418364193642036421364223642336424364253642636427364283642936430364313643236433364343643536436364373643836439364403644136442364433644436445364463644736448364493645036451364523645336454364553645636457364583645936460364613646236463364643646536466364673646836469364703647136472364733647436475364763647736478364793648036481364823648336484364853648636487364883648936490364913649236493364943649536496364973649836499365003650136502365033650436505365063650736508365093651036511365123651336514365153651636517365183651936520365213652236523365243652536526365273652836529365303653136532365333653436535365363653736538365393654036541365423654336544365453654636547365483654936550365513655236553365543655536556365573655836559365603656136562365633656436565365663656736568365693657036571365723657336574365753657636577365783657936580365813658236583365843658536586365873658836589365903659136592365933659436595365963659736598365993660036601366023660336604366053660636607366083660936610366113661236613366143661536616366173661836619366203662136622366233662436625366263662736628366293663036631366323663336634366353663636637366383663936640366413664236643366443664536646366473664836649366503665136652366533665436655366563665736658366593666036661366623666336664366653666636667366683666936670366713667236673366743667536676366773667836679366803668136682366833668436685366863668736688366893669036691366923669336694366953669636697366983669936700367013670236703367043670536706367073670836709367103671136712367133671436715367163671736718367193672036721367223672336724367253672636727367283672936730367313673236733367343673536736367373673836739367403674136742367433674436745367463674736748367493675036751367523675336754367553675636757367583675936760367613676236763367643676536766367673676836769367703677136772367733677436775367763677736778367793678036781367823678336784367853678636787367883678936790367913679236793367943679536796367973679836799368003680136802368033680436805368063680736808368093681036811368123681336814368153681636817368183681936820368213682236823368243682536826368273682836829368303683136832368333683436835368363683736838368393684036841368423684336844368453684636847368483684936850368513685236853368543685536856368573685836859368603686136862368633686436865368663686736868368693687036871368723687336874368753687636877368783687936880368813688236883368843688536886368873688836889368903689136892368933689436895368963689736898368993690036901369023690336904369053690636907369083690936910369113691236913369143691536916369173691836919369203692136922369233692436925369263692736928369293693036931369323693336934369353693636937369383693936940369413694236943369443694536946369473694836949369503695136952369533695436955369563695736958369593696036961369623696336964369653696636967369683696936970369713697236973369743697536976369773697836979369803698136982369833698436985369863698736988369893699036991369923699336994369953699636997369983699937000370013700237003370043700537006370073700837009370103701137012370133701437015370163701737018370193702037021370223702337024370253702637027370283702937030370313703237033370343703537036370373703837039370403704137042370433704437045370463704737048370493705037051370523705337054370553705637057370583705937060370613706237063370643706537066370673706837069370703707137072370733707437075370763707737078370793708037081370823708337084370853708637087370883708937090370913709237093370943709537096370973709837099371003710137102371033710437105371063710737108371093711037111371123711337114371153711637117371183711937120371213712237123371243712537126371273712837129371303713137132371333713437135371363713737138371393714037141371423714337144371453714637147371483714937150371513715237153371543715537156371573715837159371603716137162371633716437165371663716737168371693717037171371723717337174371753717637177371783717937180371813718237183371843718537186371873718837189371903719137192371933719437195371963719737198371993720037201372023720337204372053720637207372083720937210372113721237213372143721537216372173721837219372203722137222372233722437225372263722737228372293723037231372323723337234372353723637237372383723937240372413724237243372443724537246372473724837249372503725137252372533725437255372563725737258372593726037261372623726337264372653726637267372683726937270372713727237273372743727537276372773727837279372803728137282372833728437285372863728737288372893729037291372923729337294372953729637297372983729937300373013730237303373043730537306373073730837309373103731137312373133731437315373163731737318373193732037321373223732337324373253732637327373283732937330373313733237333373343733537336373373733837339373403734137342373433734437345373463734737348373493735037351373523735337354373553735637357373583735937360373613736237363373643736537366373673736837369373703737137372373733737437375373763737737378373793738037381373823738337384373853738637387373883738937390373913739237393373943739537396373973739837399374003740137402374033740437405374063740737408374093741037411374123741337414374153741637417374183741937420374213742237423374243742537426374273742837429374303743137432374333743437435374363743737438374393744037441374423744337444374453744637447374483744937450374513745237453374543745537456374573745837459374603746137462374633746437465374663746737468374693747037471374723747337474374753747637477374783747937480374813748237483374843748537486374873748837489374903749137492374933749437495374963749737498374993750037501375023750337504375053750637507375083750937510375113751237513375143751537516375173751837519375203752137522375233752437525375263752737528375293753037531375323753337534375353753637537375383753937540375413754237543375443754537546375473754837549375503755137552375533755437555375563755737558375593756037561375623756337564375653756637567375683756937570375713757237573375743757537576375773757837579375803758137582375833758437585375863758737588375893759037591375923759337594375953759637597375983759937600376013760237603376043760537606376073760837609376103761137612376133761437615376163761737618376193762037621376223762337624376253762637627376283762937630376313763237633376343763537636376373763837639376403764137642376433764437645376463764737648376493765037651376523765337654376553765637657376583765937660376613766237663376643766537666376673766837669376703767137672376733767437675376763767737678376793768037681376823768337684376853768637687376883768937690376913769237693376943769537696376973769837699377003770137702377033770437705377063770737708377093771037711377123771337714377153771637717377183771937720377213772237723377243772537726377273772837729377303773137732377333773437735377363773737738377393774037741377423774337744377453774637747377483774937750377513775237753377543775537756377573775837759377603776137762377633776437765377663776737768377693777037771377723777337774377753777637777377783777937780377813778237783377843778537786377873778837789377903779137792377933779437795377963779737798377993780037801378023780337804378053780637807378083780937810378113781237813378143781537816378173781837819378203782137822378233782437825378263782737828378293783037831378323783337834378353783637837378383783937840378413784237843378443784537846378473784837849378503785137852378533785437855378563785737858378593786037861378623786337864378653786637867378683786937870378713787237873378743787537876378773787837879378803788137882378833788437885378863788737888378893789037891378923789337894378953789637897378983789937900379013790237903379043790537906379073790837909379103791137912379133791437915379163791737918379193792037921379223792337924379253792637927379283792937930379313793237933379343793537936379373793837939379403794137942379433794437945379463794737948379493795037951379523795337954379553795637957379583795937960379613796237963379643796537966379673796837969379703797137972379733797437975379763797737978379793798037981379823798337984379853798637987379883798937990379913799237993379943799537996379973799837999380003800138002380033800438005380063800738008380093801038011380123801338014380153801638017380183801938020380213802238023380243802538026380273802838029380303803138032380333803438035380363803738038380393804038041380423804338044380453804638047380483804938050380513805238053380543805538056380573805838059380603806138062380633806438065380663806738068380693807038071380723807338074380753807638077380783807938080380813808238083380843808538086380873808838089380903809138092380933809438095380963809738098380993810038101381023810338104381053810638107381083810938110381113811238113381143811538116381173811838119381203812138122381233812438125381263812738128381293813038131381323813338134381353813638137381383813938140381413814238143381443814538146381473814838149381503815138152381533815438155381563815738158381593816038161381623816338164381653816638167381683816938170381713817238173381743817538176381773817838179381803818138182381833818438185381863818738188381893819038191381923819338194381953819638197381983819938200382013820238203382043820538206382073820838209382103821138212382133821438215382163821738218382193822038221382223822338224382253822638227382283822938230382313823238233382343823538236382373823838239382403824138242382433824438245382463824738248382493825038251382523825338254382553825638257382583825938260382613826238263382643826538266382673826838269382703827138272382733827438275382763827738278382793828038281382823828338284382853828638287382883828938290382913829238293382943829538296382973829838299383003830138302383033830438305383063830738308383093831038311383123831338314383153831638317383183831938320383213832238323383243832538326383273832838329383303833138332383333833438335383363833738338383393834038341383423834338344383453834638347383483834938350383513835238353383543835538356383573835838359383603836138362383633836438365383663836738368383693837038371383723837338374383753837638377383783837938380383813838238383383843838538386383873838838389383903839138392383933839438395383963839738398383993840038401384023840338404384053840638407384083840938410384113841238413384143841538416384173841838419384203842138422384233842438425384263842738428384293843038431384323843338434384353843638437384383843938440384413844238443384443844538446384473844838449384503845138452384533845438455384563845738458384593846038461384623846338464384653846638467384683846938470384713847238473384743847538476384773847838479384803848138482384833848438485384863848738488384893849038491384923849338494384953849638497384983849938500385013850238503385043850538506385073850838509385103851138512385133851438515385163851738518385193852038521385223852338524385253852638527385283852938530385313853238533385343853538536385373853838539385403854138542385433854438545385463854738548385493855038551385523855338554385553855638557385583855938560385613856238563385643856538566385673856838569385703857138572385733857438575385763857738578385793858038581385823858338584385853858638587385883858938590385913859238593385943859538596385973859838599386003860138602386033860438605386063860738608386093861038611386123861338614386153861638617386183861938620386213862238623386243862538626386273862838629386303863138632386333863438635386363863738638386393864038641386423864338644386453864638647386483864938650386513865238653386543865538656386573865838659386603866138662386633866438665386663866738668386693867038671386723867338674386753867638677386783867938680386813868238683386843868538686386873868838689386903869138692386933869438695386963869738698386993870038701387023870338704387053870638707387083870938710387113871238713387143871538716387173871838719387203872138722387233872438725387263872738728387293873038731387323873338734387353873638737387383873938740387413874238743387443874538746387473874838749387503875138752387533875438755387563875738758387593876038761387623876338764387653876638767387683876938770387713877238773387743877538776387773877838779387803878138782387833878438785387863878738788387893879038791387923879338794387953879638797387983879938800388013880238803388043880538806388073880838809388103881138812388133881438815388163881738818388193882038821388223882338824388253882638827388283882938830388313883238833388343883538836388373883838839388403884138842388433884438845388463884738848388493885038851388523885338854388553885638857388583885938860388613886238863388643886538866388673886838869388703887138872388733887438875388763887738878388793888038881388823888338884388853888638887388883888938890388913889238893388943889538896388973889838899389003890138902389033890438905389063890738908389093891038911389123891338914389153891638917389183891938920389213892238923389243892538926389273892838929389303893138932389333893438935389363893738938389393894038941389423894338944389453894638947389483894938950389513895238953389543895538956389573895838959389603896138962389633896438965389663896738968389693897038971389723897338974389753897638977389783897938980389813898238983389843898538986389873898838989389903899138992389933899438995389963899738998389993900039001390023900339004390053900639007390083900939010390113901239013390143901539016390173901839019390203902139022390233902439025390263902739028390293903039031390323903339034390353903639037390383903939040390413904239043390443904539046390473904839049390503905139052390533905439055390563905739058390593906039061390623906339064390653906639067390683906939070390713907239073390743907539076390773907839079390803908139082390833908439085390863908739088390893909039091390923909339094390953909639097390983909939100391013910239103391043910539106391073910839109391103911139112391133911439115391163911739118391193912039121391223912339124391253912639127391283912939130391313913239133391343913539136391373913839139391403914139142391433914439145391463914739148391493915039151391523915339154391553915639157391583915939160391613916239163391643916539166391673916839169391703917139172391733917439175391763917739178391793918039181391823918339184391853918639187391883918939190391913919239193391943919539196391973919839199392003920139202392033920439205392063920739208392093921039211392123921339214392153921639217392183921939220392213922239223392243922539226392273922839229392303923139232392333923439235392363923739238392393924039241392423924339244392453924639247392483924939250392513925239253392543925539256392573925839259392603926139262392633926439265392663926739268392693927039271392723927339274392753927639277392783927939280392813928239283392843928539286392873928839289392903929139292392933929439295392963929739298392993930039301393023930339304393053930639307393083930939310393113931239313393143931539316393173931839319393203932139322393233932439325393263932739328393293933039331393323933339334393353933639337393383933939340393413934239343393443934539346393473934839349393503935139352393533935439355393563935739358393593936039361393623936339364393653936639367393683936939370393713937239373393743937539376393773937839379393803938139382393833938439385393863938739388393893939039391393923939339394393953939639397393983939939400394013940239403394043940539406394073940839409394103941139412394133941439415394163941739418394193942039421394223942339424394253942639427394283942939430394313943239433394343943539436394373943839439394403944139442394433944439445394463944739448394493945039451394523945339454394553945639457394583945939460394613946239463394643946539466394673946839469394703947139472394733947439475394763947739478394793948039481394823948339484394853948639487394883948939490394913949239493394943949539496394973949839499395003950139502395033950439505395063950739508395093951039511395123951339514395153951639517395183951939520395213952239523395243952539526395273952839529395303953139532395333953439535395363953739538395393954039541395423954339544395453954639547395483954939550395513955239553395543955539556395573955839559395603956139562395633956439565395663956739568395693957039571395723957339574395753957639577395783957939580395813958239583395843958539586395873958839589395903959139592395933959439595395963959739598395993960039601396023960339604396053960639607396083960939610396113961239613396143961539616396173961839619396203962139622396233962439625396263962739628396293963039631396323963339634396353963639637396383963939640396413964239643396443964539646396473964839649396503965139652396533965439655396563965739658396593966039661396623966339664396653966639667396683966939670396713967239673396743967539676396773967839679396803968139682396833968439685396863968739688396893969039691396923969339694396953969639697396983969939700397013970239703397043970539706397073970839709397103971139712397133971439715397163971739718397193972039721397223972339724397253972639727397283972939730397313973239733397343973539736397373973839739397403974139742397433974439745397463974739748397493975039751397523975339754397553975639757397583975939760397613976239763397643976539766397673976839769397703977139772397733977439775397763977739778397793978039781397823978339784397853978639787397883978939790397913979239793397943979539796397973979839799398003980139802398033980439805398063980739808398093981039811398123981339814398153981639817398183981939820398213982239823398243982539826398273982839829398303983139832398333983439835398363983739838398393984039841398423984339844398453984639847398483984939850398513985239853398543985539856398573985839859398603986139862398633986439865398663986739868398693987039871398723987339874398753987639877398783987939880398813988239883398843988539886398873988839889398903989139892398933989439895398963989739898398993990039901399023990339904399053990639907399083990939910399113991239913399143991539916399173991839919399203992139922399233992439925399263992739928399293993039931399323993339934399353993639937399383993939940399413994239943399443994539946399473994839949399503995139952399533995439955399563995739958399593996039961399623996339964399653996639967399683996939970399713997239973399743997539976399773997839979399803998139982399833998439985399863998739988399893999039991399923999339994399953999639997399983999940000400014000240003400044000540006400074000840009400104001140012400134001440015400164001740018400194002040021400224002340024400254002640027400284002940030400314003240033400344003540036400374003840039400404004140042400434004440045400464004740048400494005040051400524005340054400554005640057400584005940060400614006240063400644006540066400674006840069400704007140072400734007440075400764007740078400794008040081400824008340084400854008640087400884008940090400914009240093400944009540096400974009840099401004010140102401034010440105401064010740108401094011040111401124011340114401154011640117401184011940120401214012240123401244012540126401274012840129401304013140132401334013440135401364013740138401394014040141401424014340144401454014640147401484014940150401514015240153401544015540156401574015840159401604016140162401634016440165401664016740168401694017040171401724017340174401754017640177401784017940180401814018240183401844018540186401874018840189401904019140192401934019440195401964019740198401994020040201402024020340204402054020640207402084020940210402114021240213402144021540216402174021840219402204022140222402234022440225402264022740228402294023040231402324023340234402354023640237402384023940240402414024240243402444024540246402474024840249402504025140252402534025440255402564025740258402594026040261402624026340264402654026640267402684026940270402714027240273402744027540276402774027840279402804028140282402834028440285402864028740288402894029040291402924029340294402954029640297402984029940300403014030240303403044030540306403074030840309403104031140312403134031440315403164031740318403194032040321403224032340324403254032640327403284032940330403314033240333403344033540336403374033840339403404034140342403434034440345403464034740348403494035040351403524035340354403554035640357403584035940360403614036240363403644036540366403674036840369403704037140372403734037440375403764037740378403794038040381403824038340384403854038640387403884038940390403914039240393403944039540396403974039840399404004040140402404034040440405404064040740408404094041040411404124041340414404154041640417404184041940420404214042240423404244042540426404274042840429404304043140432404334043440435404364043740438404394044040441404424044340444404454044640447404484044940450404514045240453404544045540456404574045840459404604046140462404634046440465404664046740468404694047040471404724047340474404754047640477404784047940480404814048240483404844048540486404874048840489404904049140492404934049440495404964049740498404994050040501405024050340504405054050640507405084050940510405114051240513405144051540516405174051840519405204052140522405234052440525405264052740528405294053040531405324053340534405354053640537405384053940540405414054240543405444054540546405474054840549405504055140552405534055440555405564055740558405594056040561405624056340564405654056640567405684056940570405714057240573405744057540576405774057840579405804058140582405834058440585405864058740588405894059040591405924059340594405954059640597405984059940600406014060240603406044060540606406074060840609406104061140612406134061440615406164061740618406194062040621406224062340624406254062640627406284062940630406314063240633406344063540636406374063840639406404064140642406434064440645406464064740648406494065040651406524065340654406554065640657406584065940660406614066240663406644066540666406674066840669406704067140672406734067440675406764067740678406794068040681406824068340684406854068640687406884068940690406914069240693406944069540696406974069840699407004070140702407034070440705407064070740708407094071040711407124071340714407154071640717407184071940720407214072240723407244072540726407274072840729407304073140732407334073440735407364073740738407394074040741407424074340744407454074640747407484074940750407514075240753407544075540756407574075840759407604076140762407634076440765407664076740768407694077040771407724077340774407754077640777407784077940780407814078240783407844078540786407874078840789407904079140792407934079440795407964079740798407994080040801408024080340804408054080640807408084080940810408114081240813408144081540816408174081840819408204082140822408234082440825408264082740828408294083040831408324083340834408354083640837408384083940840408414084240843408444084540846408474084840849408504085140852408534085440855408564085740858408594086040861408624086340864408654086640867408684086940870408714087240873408744087540876408774087840879408804088140882408834088440885408864088740888408894089040891408924089340894408954089640897408984089940900409014090240903409044090540906409074090840909409104091140912409134091440915409164091740918409194092040921409224092340924409254092640927409284092940930409314093240933409344093540936409374093840939409404094140942409434094440945409464094740948409494095040951409524095340954409554095640957409584095940960409614096240963409644096540966409674096840969409704097140972409734097440975409764097740978409794098040981409824098340984409854098640987409884098940990409914099240993409944099540996409974099840999410004100141002410034100441005410064100741008410094101041011410124101341014410154101641017410184101941020410214102241023410244102541026410274102841029410304103141032410334103441035410364103741038410394104041041410424104341044410454104641047410484104941050410514105241053410544105541056410574105841059410604106141062410634106441065410664106741068410694107041071410724107341074410754107641077410784107941080410814108241083410844108541086410874108841089410904109141092410934109441095410964109741098410994110041101411024110341104411054110641107411084110941110411114111241113411144111541116411174111841119411204112141122411234112441125411264112741128411294113041131411324113341134411354113641137411384113941140411414114241143411444114541146411474114841149411504115141152411534115441155411564115741158411594116041161411624116341164411654116641167411684116941170411714117241173411744117541176411774117841179411804118141182411834118441185411864118741188411894119041191411924119341194411954119641197411984119941200412014120241203412044120541206412074120841209412104121141212412134121441215412164121741218412194122041221412224122341224412254122641227412284122941230412314123241233412344123541236412374123841239412404124141242412434124441245412464124741248412494125041251412524125341254412554125641257412584125941260412614126241263412644126541266412674126841269412704127141272412734127441275412764127741278412794128041281412824128341284412854128641287412884128941290412914129241293412944129541296412974129841299413004130141302413034130441305413064130741308413094131041311413124131341314413154131641317413184131941320413214132241323413244132541326413274132841329413304133141332413334133441335413364133741338413394134041341413424134341344413454134641347413484134941350413514135241353413544135541356413574135841359413604136141362413634136441365413664136741368413694137041371413724137341374413754137641377413784137941380413814138241383413844138541386413874138841389413904139141392413934139441395413964139741398413994140041401414024140341404414054140641407414084140941410414114141241413414144141541416414174141841419414204142141422414234142441425414264142741428414294143041431414324143341434414354143641437414384143941440414414144241443414444144541446414474144841449414504145141452414534145441455414564145741458414594146041461414624146341464414654146641467414684146941470414714147241473414744147541476414774147841479414804148141482414834148441485414864148741488414894149041491414924149341494414954149641497414984149941500415014150241503415044150541506415074150841509415104151141512415134151441515415164151741518415194152041521415224152341524415254152641527415284152941530415314153241533415344153541536415374153841539415404154141542415434154441545415464154741548415494155041551415524155341554415554155641557415584155941560415614156241563415644156541566415674156841569415704157141572415734157441575415764157741578415794158041581415824158341584415854158641587415884158941590415914159241593415944159541596415974159841599416004160141602416034160441605416064160741608416094161041611416124161341614416154161641617416184161941620416214162241623416244162541626416274162841629416304163141632416334163441635416364163741638416394164041641416424164341644416454164641647416484164941650416514165241653416544165541656416574165841659416604166141662416634166441665416664166741668416694167041671416724167341674416754167641677416784167941680416814168241683416844168541686416874168841689416904169141692416934169441695416964169741698416994170041701417024170341704417054170641707417084170941710417114171241713417144171541716417174171841719417204172141722417234172441725417264172741728417294173041731417324173341734417354173641737417384173941740417414174241743417444174541746417474174841749417504175141752417534175441755417564175741758417594176041761417624176341764417654176641767417684176941770417714177241773417744177541776417774177841779417804178141782417834178441785417864178741788417894179041791417924179341794417954179641797417984179941800418014180241803418044180541806418074180841809418104181141812418134181441815418164181741818418194182041821418224182341824418254182641827418284182941830418314183241833418344183541836418374183841839418404184141842418434184441845418464184741848418494185041851418524185341854418554185641857418584185941860418614186241863418644186541866418674186841869418704187141872418734187441875418764187741878418794188041881418824188341884418854188641887418884188941890418914189241893418944189541896418974189841899419004190141902419034190441905419064190741908419094191041911419124191341914419154191641917419184191941920419214192241923419244192541926419274192841929419304193141932419334193441935419364193741938419394194041941419424194341944419454194641947419484194941950419514195241953419544195541956419574195841959419604196141962419634196441965419664196741968419694197041971419724197341974419754197641977419784197941980419814198241983419844198541986419874198841989419904199141992419934199441995419964199741998419994200042001420024200342004420054200642007420084200942010420114201242013420144201542016420174201842019420204202142022420234202442025420264202742028420294203042031420324203342034420354203642037420384203942040420414204242043420444204542046420474204842049420504205142052420534205442055420564205742058420594206042061420624206342064420654206642067420684206942070420714207242073420744207542076420774207842079420804208142082420834208442085420864208742088420894209042091420924209342094420954209642097420984209942100421014210242103421044210542106421074210842109421104211142112421134211442115421164211742118421194212042121421224212342124421254212642127421284212942130421314213242133421344213542136421374213842139421404214142142421434214442145421464214742148421494215042151421524215342154421554215642157421584215942160421614216242163421644216542166421674216842169421704217142172421734217442175421764217742178421794218042181421824218342184421854218642187421884218942190421914219242193421944219542196421974219842199422004220142202422034220442205422064220742208422094221042211422124221342214422154221642217422184221942220422214222242223422244222542226422274222842229422304223142232422334223442235422364223742238422394224042241422424224342244422454224642247422484224942250422514225242253422544225542256422574225842259422604226142262422634226442265422664226742268422694227042271422724227342274422754227642277422784227942280422814228242283422844228542286422874228842289422904229142292422934229442295422964229742298422994230042301423024230342304423054230642307423084230942310423114231242313423144231542316423174231842319423204232142322423234232442325423264232742328423294233042331423324233342334423354233642337423384233942340423414234242343423444234542346423474234842349423504235142352423534235442355423564235742358423594236042361423624236342364423654236642367423684236942370423714237242373423744237542376423774237842379423804238142382423834238442385423864238742388423894239042391423924239342394423954239642397423984239942400424014240242403424044240542406424074240842409424104241142412424134241442415424164241742418424194242042421424224242342424424254242642427424284242942430424314243242433424344243542436424374243842439424404244142442424434244442445424464244742448424494245042451424524245342454424554245642457424584245942460424614246242463424644246542466424674246842469424704247142472424734247442475424764247742478424794248042481424824248342484424854248642487424884248942490424914249242493424944249542496424974249842499425004250142502425034250442505425064250742508425094251042511425124251342514425154251642517425184251942520425214252242523425244252542526425274252842529425304253142532425334253442535425364253742538425394254042541425424254342544425454254642547425484254942550425514255242553425544255542556425574255842559425604256142562425634256442565425664256742568425694257042571425724257342574425754257642577425784257942580425814258242583425844258542586425874258842589425904259142592425934259442595425964259742598425994260042601426024260342604426054260642607426084260942610426114261242613426144261542616426174261842619426204262142622426234262442625426264262742628426294263042631426324263342634426354263642637426384263942640426414264242643426444264542646426474264842649426504265142652426534265442655426564265742658426594266042661426624266342664426654266642667426684266942670426714267242673426744267542676426774267842679426804268142682426834268442685426864268742688426894269042691426924269342694426954269642697426984269942700427014270242703427044270542706427074270842709427104271142712427134271442715427164271742718427194272042721427224272342724427254272642727427284272942730427314273242733427344273542736427374273842739427404274142742427434274442745427464274742748427494275042751427524275342754427554275642757427584275942760427614276242763427644276542766427674276842769427704277142772427734277442775427764277742778427794278042781427824278342784427854278642787427884278942790427914279242793427944279542796427974279842799428004280142802428034280442805428064280742808428094281042811428124281342814428154281642817428184281942820428214282242823428244282542826428274282842829428304283142832428334283442835428364283742838428394284042841428424284342844428454284642847428484284942850428514285242853428544285542856428574285842859428604286142862428634286442865428664286742868428694287042871428724287342874428754287642877428784287942880428814288242883428844288542886428874288842889428904289142892428934289442895428964289742898428994290042901429024290342904429054290642907429084290942910429114291242913429144291542916429174291842919429204292142922429234292442925429264292742928429294293042931429324293342934429354293642937429384293942940429414294242943429444294542946429474294842949429504295142952429534295442955429564295742958429594296042961429624296342964429654296642967429684296942970429714297242973429744297542976429774297842979429804298142982429834298442985429864298742988429894299042991429924299342994429954299642997429984299943000430014300243003430044300543006430074300843009430104301143012430134301443015430164301743018430194302043021430224302343024430254302643027430284302943030430314303243033430344303543036430374303843039430404304143042430434304443045430464304743048430494305043051430524305343054430554305643057430584305943060430614306243063430644306543066430674306843069430704307143072430734307443075430764307743078430794308043081430824308343084430854308643087430884308943090430914309243093430944309543096430974309843099431004310143102431034310443105431064310743108431094311043111431124311343114431154311643117431184311943120431214312243123431244312543126431274312843129431304313143132431334313443135431364313743138431394314043141431424314343144431454314643147431484314943150431514315243153431544315543156431574315843159431604316143162431634316443165431664316743168431694317043171431724317343174431754317643177431784317943180431814318243183431844318543186431874318843189431904319143192431934319443195431964319743198431994320043201432024320343204432054320643207432084320943210432114321243213432144321543216432174321843219432204322143222432234322443225432264322743228432294323043231432324323343234432354323643237432384323943240432414324243243432444324543246432474324843249432504325143252432534325443255432564325743258432594326043261432624326343264432654326643267432684326943270432714327243273432744327543276432774327843279432804328143282432834328443285432864328743288432894329043291432924329343294432954329643297432984329943300433014330243303433044330543306433074330843309433104331143312433134331443315433164331743318433194332043321433224332343324433254332643327433284332943330433314333243333433344333543336433374333843339433404334143342433434334443345433464334743348433494335043351433524335343354433554335643357433584335943360433614336243363433644336543366433674336843369433704337143372433734337443375433764337743378433794338043381433824338343384433854338643387433884338943390433914339243393433944339543396433974339843399434004340143402434034340443405434064340743408434094341043411434124341343414434154341643417434184341943420434214342243423434244342543426434274342843429434304343143432434334343443435434364343743438434394344043441434424344343444434454344643447434484344943450434514345243453434544345543456434574345843459434604346143462434634346443465434664346743468434694347043471434724347343474434754347643477434784347943480434814348243483434844348543486434874348843489434904349143492434934349443495434964349743498434994350043501435024350343504435054350643507435084350943510435114351243513435144351543516435174351843519435204352143522435234352443525435264352743528435294353043531435324353343534435354353643537435384353943540435414354243543435444354543546435474354843549435504355143552435534355443555435564355743558435594356043561435624356343564435654356643567435684356943570435714357243573435744357543576435774357843579435804358143582435834358443585435864358743588435894359043591435924359343594435954359643597435984359943600436014360243603436044360543606436074360843609436104361143612436134361443615436164361743618436194362043621436224362343624436254362643627436284362943630436314363243633436344363543636436374363843639436404364143642436434364443645436464364743648436494365043651436524365343654436554365643657436584365943660436614366243663436644366543666436674366843669436704367143672436734367443675436764367743678436794368043681436824368343684436854368643687436884368943690436914369243693436944369543696436974369843699437004370143702437034370443705437064370743708437094371043711437124371343714437154371643717437184371943720437214372243723437244372543726437274372843729437304373143732437334373443735437364373743738437394374043741437424374343744437454374643747437484374943750437514375243753437544375543756437574375843759437604376143762437634376443765437664376743768437694377043771437724377343774437754377643777437784377943780437814378243783437844378543786437874378843789437904379143792437934379443795437964379743798437994380043801438024380343804438054380643807438084380943810438114381243813438144381543816438174381843819438204382143822438234382443825438264382743828438294383043831438324383343834438354383643837438384383943840438414384243843438444384543846438474384843849438504385143852438534385443855438564385743858438594386043861438624386343864438654386643867438684386943870438714387243873438744387543876438774387843879438804388143882438834388443885438864388743888438894389043891438924389343894438954389643897438984389943900439014390243903439044390543906439074390843909439104391143912439134391443915439164391743918439194392043921439224392343924439254392643927439284392943930439314393243933439344393543936439374393843939439404394143942439434394443945439464394743948439494395043951439524395343954439554395643957439584395943960439614396243963439644396543966439674396843969439704397143972439734397443975439764397743978439794398043981439824398343984439854398643987439884398943990439914399243993439944399543996439974399843999440004400144002440034400444005440064400744008440094401044011440124401344014440154401644017440184401944020440214402244023440244402544026440274402844029440304403144032440334403444035440364403744038440394404044041440424404344044440454404644047440484404944050440514405244053440544405544056440574405844059440604406144062440634406444065440664406744068440694407044071440724407344074440754407644077440784407944080440814408244083440844408544086440874408844089440904409144092440934409444095440964409744098440994410044101441024410344104441054410644107441084410944110441114411244113441144411544116441174411844119441204412144122441234412444125441264412744128441294413044131441324413344134441354413644137441384413944140441414414244143441444414544146441474414844149441504415144152441534415444155441564415744158441594416044161441624416344164441654416644167441684416944170441714417244173441744417544176441774417844179441804418144182441834418444185441864418744188441894419044191441924419344194441954419644197441984419944200442014420244203442044420544206442074420844209442104421144212442134421444215442164421744218442194422044221442224422344224442254422644227442284422944230442314423244233442344423544236442374423844239442404424144242442434424444245442464424744248442494425044251442524425344254442554425644257442584425944260442614426244263442644426544266442674426844269442704427144272442734427444275442764427744278442794428044281442824428344284442854428644287442884428944290442914429244293442944429544296442974429844299443004430144302443034430444305443064430744308443094431044311443124431344314443154431644317443184431944320443214432244323443244432544326443274432844329443304433144332443334433444335443364433744338443394434044341443424434344344443454434644347443484434944350443514435244353443544435544356443574435844359443604436144362443634436444365443664436744368443694437044371443724437344374443754437644377443784437944380443814438244383443844438544386443874438844389443904439144392443934439444395443964439744398443994440044401444024440344404444054440644407444084440944410444114441244413444144441544416444174441844419444204442144422444234442444425444264442744428444294443044431444324443344434444354443644437444384443944440444414444244443444444444544446444474444844449444504445144452444534445444455444564445744458444594446044461444624446344464444654446644467444684446944470444714447244473444744447544476444774447844479444804448144482444834448444485444864448744488444894449044491444924449344494444954449644497444984449944500445014450244503445044450544506445074450844509445104451144512445134451444515445164451744518445194452044521445224452344524445254452644527445284452944530445314453244533445344453544536445374453844539445404454144542445434454444545445464454744548445494455044551445524455344554445554455644557445584455944560445614456244563445644456544566445674456844569445704457144572445734457444575445764457744578445794458044581445824458344584445854458644587445884458944590445914459244593445944459544596445974459844599446004460144602446034460444605446064460744608446094461044611446124461344614446154461644617446184461944620446214462244623446244462544626446274462844629446304463144632446334463444635446364463744638446394464044641446424464344644446454464644647446484464944650446514465244653446544465544656446574465844659446604466144662446634466444665446664466744668446694467044671446724467344674446754467644677446784467944680446814468244683446844468544686446874468844689446904469144692446934469444695446964469744698446994470044701447024470344704447054470644707447084470944710447114471244713447144471544716447174471844719447204472144722447234472444725447264472744728447294473044731447324473344734447354473644737447384473944740447414474244743447444474544746447474474844749447504475144752447534475444755447564475744758447594476044761447624476344764447654476644767447684476944770447714477244773447744477544776447774477844779447804478144782447834478444785447864478744788447894479044791447924479344794447954479644797447984479944800448014480244803448044480544806448074480844809448104481144812448134481444815448164481744818448194482044821448224482344824448254482644827448284482944830448314483244833448344483544836448374483844839448404484144842448434484444845448464484744848448494485044851448524485344854448554485644857448584485944860448614486244863448644486544866448674486844869448704487144872448734487444875448764487744878448794488044881448824488344884448854488644887448884488944890448914489244893448944489544896448974489844899449004490144902449034490444905449064490744908449094491044911449124491344914449154491644917449184491944920449214492244923449244492544926449274492844929449304493144932449334493444935449364493744938449394494044941449424494344944449454494644947449484494944950449514495244953449544495544956449574495844959449604496144962449634496444965449664496744968449694497044971449724497344974449754497644977449784497944980449814498244983449844498544986449874498844989449904499144992449934499444995449964499744998449994500045001450024500345004450054500645007450084500945010450114501245013450144501545016450174501845019450204502145022450234502445025450264502745028450294503045031450324503345034450354503645037450384503945040450414504245043450444504545046450474504845049450504505145052450534505445055450564505745058450594506045061450624506345064450654506645067450684506945070450714507245073450744507545076450774507845079450804508145082450834508445085450864508745088450894509045091450924509345094450954509645097450984509945100451014510245103451044510545106451074510845109451104511145112451134511445115451164511745118451194512045121451224512345124451254512645127451284512945130451314513245133451344513545136451374513845139451404514145142451434514445145451464514745148451494515045151451524515345154451554515645157451584515945160451614516245163451644516545166451674516845169451704517145172451734517445175451764517745178451794518045181451824518345184451854518645187451884518945190451914519245193451944519545196451974519845199452004520145202452034520445205452064520745208452094521045211452124521345214452154521645217452184521945220452214522245223452244522545226452274522845229452304523145232452334523445235452364523745238452394524045241452424524345244452454524645247452484524945250452514525245253452544525545256452574525845259452604526145262452634526445265452664526745268452694527045271452724527345274452754527645277452784527945280452814528245283452844528545286452874528845289452904529145292452934529445295452964529745298452994530045301453024530345304453054530645307453084530945310453114531245313453144531545316453174531845319453204532145322453234532445325453264532745328453294533045331453324533345334453354533645337453384533945340453414534245343453444534545346453474534845349453504535145352453534535445355453564535745358453594536045361453624536345364453654536645367453684536945370453714537245373453744537545376453774537845379453804538145382453834538445385453864538745388453894539045391453924539345394453954539645397453984539945400454014540245403454044540545406454074540845409454104541145412454134541445415454164541745418454194542045421454224542345424454254542645427454284542945430454314543245433454344543545436454374543845439454404544145442454434544445445454464544745448454494545045451454524545345454454554545645457454584545945460454614546245463454644546545466454674546845469454704547145472454734547445475454764547745478454794548045481454824548345484454854548645487454884548945490454914549245493454944549545496454974549845499455004550145502455034550445505455064550745508455094551045511455124551345514455154551645517455184551945520455214552245523455244552545526455274552845529455304553145532455334553445535455364553745538455394554045541455424554345544455454554645547455484554945550455514555245553455544555545556455574555845559455604556145562455634556445565455664556745568455694557045571455724557345574455754557645577455784557945580455814558245583455844558545586455874558845589455904559145592455934559445595455964559745598455994560045601456024560345604456054560645607456084560945610456114561245613456144561545616456174561845619456204562145622456234562445625456264562745628456294563045631456324563345634456354563645637456384563945640456414564245643456444564545646456474564845649456504565145652456534565445655456564565745658456594566045661456624566345664456654566645667456684566945670456714567245673456744567545676456774567845679456804568145682456834568445685456864568745688456894569045691456924569345694456954569645697456984569945700457014570245703457044570545706457074570845709457104571145712457134571445715457164571745718457194572045721457224572345724457254572645727457284572945730457314573245733457344573545736457374573845739457404574145742457434574445745457464574745748457494575045751457524575345754457554575645757457584575945760457614576245763457644576545766457674576845769457704577145772457734577445775457764577745778457794578045781457824578345784457854578645787457884578945790457914579245793457944579545796457974579845799458004580145802458034580445805458064580745808458094581045811458124581345814458154581645817458184581945820458214582245823458244582545826458274582845829458304583145832458334583445835458364583745838458394584045841458424584345844458454584645847458484584945850458514585245853458544585545856458574585845859458604586145862458634586445865458664586745868458694587045871458724587345874458754587645877458784587945880458814588245883458844588545886458874588845889458904589145892458934589445895458964589745898458994590045901459024590345904459054590645907459084590945910459114591245913459144591545916459174591845919459204592145922459234592445925459264592745928459294593045931459324593345934459354593645937459384593945940459414594245943459444594545946459474594845949459504595145952459534595445955459564595745958459594596045961459624596345964459654596645967459684596945970459714597245973459744597545976459774597845979459804598145982459834598445985459864598745988459894599045991459924599345994459954599645997459984599946000460014600246003460044600546006460074600846009460104601146012460134601446015460164601746018460194602046021460224602346024460254602646027460284602946030460314603246033460344603546036460374603846039460404604146042460434604446045460464604746048460494605046051460524605346054460554605646057460584605946060460614606246063460644606546066460674606846069460704607146072460734607446075460764607746078460794608046081460824608346084460854608646087460884608946090460914609246093460944609546096460974609846099461004610146102461034610446105461064610746108461094611046111461124611346114461154611646117461184611946120461214612246123461244612546126461274612846129461304613146132461334613446135461364613746138461394614046141461424614346144461454614646147461484614946150461514615246153461544615546156461574615846159461604616146162461634616446165461664616746168461694617046171461724617346174461754617646177461784617946180461814618246183461844618546186461874618846189461904619146192461934619446195461964619746198461994620046201462024620346204462054620646207462084620946210462114621246213462144621546216462174621846219462204622146222462234622446225462264622746228462294623046231462324623346234462354623646237462384623946240462414624246243462444624546246462474624846249462504625146252462534625446255462564625746258462594626046261462624626346264462654626646267462684626946270462714627246273462744627546276462774627846279462804628146282462834628446285462864628746288462894629046291462924629346294462954629646297462984629946300463014630246303463044630546306463074630846309463104631146312463134631446315463164631746318463194632046321463224632346324463254632646327463284632946330463314633246333463344633546336463374633846339463404634146342463434634446345463464634746348463494635046351463524635346354463554635646357463584635946360463614636246363463644636546366463674636846369463704637146372463734637446375463764637746378463794638046381463824638346384463854638646387463884638946390463914639246393463944639546396463974639846399464004640146402464034640446405464064640746408464094641046411464124641346414464154641646417464184641946420464214642246423464244642546426464274642846429464304643146432464334643446435464364643746438464394644046441464424644346444464454644646447464484644946450464514645246453464544645546456464574645846459464604646146462464634646446465464664646746468464694647046471464724647346474464754647646477464784647946480464814648246483464844648546486464874648846489464904649146492464934649446495464964649746498464994650046501465024650346504465054650646507465084650946510465114651246513465144651546516465174651846519465204652146522465234652446525465264652746528465294653046531465324653346534465354653646537465384653946540465414654246543465444654546546465474654846549465504655146552465534655446555465564655746558465594656046561465624656346564465654656646567465684656946570465714657246573465744657546576465774657846579465804658146582465834658446585465864658746588465894659046591465924659346594465954659646597465984659946600466014660246603466044660546606466074660846609466104661146612466134661446615466164661746618466194662046621466224662346624466254662646627466284662946630466314663246633466344663546636466374663846639466404664146642466434664446645466464664746648466494665046651466524665346654466554665646657466584665946660466614666246663466644666546666466674666846669466704667146672466734667446675466764667746678466794668046681466824668346684466854668646687466884668946690466914669246693466944669546696466974669846699467004670146702467034670446705467064670746708467094671046711467124671346714467154671646717467184671946720467214672246723467244672546726467274672846729467304673146732467334673446735467364673746738467394674046741467424674346744467454674646747467484674946750467514675246753467544675546756467574675846759467604676146762467634676446765467664676746768467694677046771467724677346774467754677646777467784677946780467814678246783467844678546786467874678846789467904679146792467934679446795467964679746798467994680046801468024680346804468054680646807468084680946810468114681246813468144681546816468174681846819468204682146822468234682446825468264682746828468294683046831468324683346834468354683646837468384683946840468414684246843468444684546846468474684846849468504685146852468534685446855468564685746858468594686046861468624686346864468654686646867468684686946870468714687246873468744687546876468774687846879468804688146882468834688446885468864688746888468894689046891468924689346894468954689646897468984689946900469014690246903469044690546906469074690846909469104691146912469134691446915469164691746918469194692046921469224692346924469254692646927469284692946930469314693246933469344693546936469374693846939469404694146942469434694446945469464694746948469494695046951469524695346954469554695646957469584695946960469614696246963469644696546966469674696846969469704697146972469734697446975469764697746978469794698046981469824698346984469854698646987469884698946990469914699246993469944699546996469974699846999470004700147002470034700447005470064700747008470094701047011470124701347014470154701647017470184701947020470214702247023470244702547026470274702847029470304703147032470334703447035470364703747038470394704047041470424704347044470454704647047470484704947050470514705247053470544705547056470574705847059470604706147062470634706447065470664706747068470694707047071470724707347074470754707647077470784707947080470814708247083470844708547086470874708847089470904709147092470934709447095470964709747098470994710047101471024710347104471054710647107471084710947110471114711247113471144711547116471174711847119471204712147122471234712447125471264712747128471294713047131471324713347134471354713647137471384713947140471414714247143471444714547146471474714847149471504715147152471534715447155471564715747158471594716047161471624716347164471654716647167471684716947170471714717247173471744717547176471774717847179471804718147182471834718447185471864718747188471894719047191471924719347194471954719647197471984719947200472014720247203472044720547206472074720847209472104721147212472134721447215472164721747218472194722047221472224722347224472254722647227472284722947230472314723247233472344723547236472374723847239472404724147242472434724447245472464724747248472494725047251472524725347254472554725647257472584725947260472614726247263472644726547266472674726847269472704727147272472734727447275472764727747278472794728047281472824728347284472854728647287472884728947290472914729247293472944729547296472974729847299473004730147302473034730447305473064730747308473094731047311473124731347314473154731647317473184731947320473214732247323473244732547326473274732847329473304733147332473334733447335473364733747338473394734047341473424734347344473454734647347473484734947350473514735247353473544735547356473574735847359473604736147362473634736447365473664736747368473694737047371473724737347374473754737647377473784737947380473814738247383473844738547386473874738847389473904739147392473934739447395473964739747398473994740047401474024740347404474054740647407474084740947410474114741247413474144741547416474174741847419474204742147422474234742447425474264742747428474294743047431474324743347434474354743647437474384743947440474414744247443474444744547446474474744847449474504745147452474534745447455474564745747458474594746047461474624746347464474654746647467474684746947470474714747247473474744747547476474774747847479474804748147482474834748447485474864748747488474894749047491474924749347494474954749647497474984749947500475014750247503475044750547506475074750847509475104751147512475134751447515475164751747518475194752047521475224752347524475254752647527475284752947530475314753247533475344753547536475374753847539475404754147542475434754447545475464754747548475494755047551475524755347554475554755647557475584755947560475614756247563475644756547566475674756847569475704757147572475734757447575475764757747578475794758047581475824758347584475854758647587475884758947590475914759247593475944759547596475974759847599476004760147602476034760447605476064760747608476094761047611476124761347614476154761647617476184761947620476214762247623476244762547626476274762847629476304763147632476334763447635476364763747638476394764047641476424764347644476454764647647476484764947650476514765247653476544765547656476574765847659476604766147662476634766447665476664766747668476694767047671476724767347674476754767647677476784767947680476814768247683476844768547686476874768847689476904769147692476934769447695476964769747698476994770047701477024770347704477054770647707477084770947710477114771247713477144771547716477174771847719477204772147722477234772447725477264772747728477294773047731477324773347734477354773647737477384773947740477414774247743477444774547746477474774847749477504775147752477534775447755477564775747758477594776047761477624776347764477654776647767477684776947770477714777247773477744777547776477774777847779477804778147782477834778447785477864778747788477894779047791477924779347794477954779647797477984779947800478014780247803478044780547806478074780847809478104781147812478134781447815478164781747818478194782047821478224782347824478254782647827478284782947830478314783247833478344783547836478374783847839478404784147842478434784447845478464784747848478494785047851478524785347854478554785647857478584785947860478614786247863478644786547866478674786847869478704787147872478734787447875478764787747878478794788047881478824788347884478854788647887478884788947890478914789247893478944789547896478974789847899479004790147902479034790447905479064790747908479094791047911479124791347914479154791647917479184791947920479214792247923479244792547926479274792847929479304793147932479334793447935479364793747938479394794047941479424794347944479454794647947479484794947950479514795247953479544795547956479574795847959479604796147962479634796447965479664796747968479694797047971479724797347974479754797647977479784797947980479814798247983479844798547986479874798847989479904799147992479934799447995479964799747998479994800048001480024800348004480054800648007480084800948010480114801248013480144801548016480174801848019480204802148022480234802448025480264802748028480294803048031480324803348034480354803648037480384803948040480414804248043480444804548046480474804848049480504805148052480534805448055480564805748058480594806048061480624806348064480654806648067480684806948070480714807248073480744807548076480774807848079480804808148082480834808448085480864808748088480894809048091480924809348094480954809648097480984809948100481014810248103481044810548106481074810848109481104811148112481134811448115481164811748118481194812048121481224812348124481254812648127481284812948130481314813248133481344813548136481374813848139481404814148142481434814448145481464814748148481494815048151481524815348154481554815648157481584815948160481614816248163481644816548166481674816848169481704817148172481734817448175481764817748178481794818048181481824818348184481854818648187481884818948190481914819248193481944819548196481974819848199482004820148202482034820448205482064820748208482094821048211482124821348214482154821648217482184821948220482214822248223482244822548226482274822848229482304823148232482334823448235482364823748238482394824048241482424824348244482454824648247482484824948250482514825248253482544825548256482574825848259482604826148262482634826448265482664826748268482694827048271482724827348274482754827648277482784827948280482814828248283482844828548286482874828848289482904829148292482934829448295482964829748298482994830048301483024830348304483054830648307483084830948310483114831248313483144831548316483174831848319483204832148322483234832448325483264832748328483294833048331483324833348334483354833648337483384833948340483414834248343483444834548346483474834848349483504835148352483534835448355483564835748358483594836048361483624836348364483654836648367483684836948370483714837248373483744837548376483774837848379483804838148382483834838448385483864838748388483894839048391483924839348394483954839648397483984839948400484014840248403484044840548406484074840848409484104841148412484134841448415484164841748418484194842048421484224842348424484254842648427484284842948430484314843248433484344843548436484374843848439484404844148442484434844448445484464844748448484494845048451484524845348454484554845648457484584845948460484614846248463484644846548466484674846848469484704847148472484734847448475484764847748478484794848048481484824848348484484854848648487484884848948490484914849248493484944849548496484974849848499485004850148502485034850448505485064850748508485094851048511485124851348514485154851648517485184851948520485214852248523485244852548526485274852848529485304853148532485334853448535485364853748538485394854048541485424854348544485454854648547485484854948550485514855248553485544855548556485574855848559485604856148562485634856448565485664856748568485694857048571485724857348574485754857648577485784857948580485814858248583485844858548586485874858848589485904859148592485934859448595485964859748598485994860048601486024860348604486054860648607486084860948610486114861248613486144861548616486174861848619486204862148622486234862448625486264862748628486294863048631486324863348634486354863648637486384863948640486414864248643486444864548646486474864848649486504865148652486534865448655486564865748658486594866048661486624866348664486654866648667486684866948670486714867248673486744867548676486774867848679486804868148682486834868448685486864868748688486894869048691486924869348694486954869648697486984869948700487014870248703487044870548706487074870848709487104871148712487134871448715487164871748718487194872048721487224872348724487254872648727487284872948730487314873248733487344873548736487374873848739487404874148742487434874448745487464874748748487494875048751487524875348754487554875648757487584875948760487614876248763487644876548766487674876848769487704877148772487734877448775487764877748778487794878048781487824878348784487854878648787487884878948790487914879248793487944879548796487974879848799488004880148802488034880448805488064880748808488094881048811488124881348814488154881648817488184881948820488214882248823488244882548826488274882848829488304883148832488334883448835488364883748838488394884048841488424884348844488454884648847488484884948850488514885248853488544885548856488574885848859488604886148862488634886448865488664886748868488694887048871488724887348874488754887648877488784887948880488814888248883488844888548886488874888848889488904889148892488934889448895488964889748898488994890048901489024890348904489054890648907489084890948910489114891248913489144891548916489174891848919489204892148922489234892448925489264892748928489294893048931489324893348934489354893648937489384893948940489414894248943489444894548946489474894848949489504895148952489534895448955489564895748958489594896048961489624896348964489654896648967489684896948970489714897248973489744897548976489774897848979489804898148982489834898448985489864898748988489894899048991489924899348994489954899648997489984899949000490014900249003490044900549006490074900849009490104901149012490134901449015490164901749018490194902049021490224902349024490254902649027490284902949030490314903249033490344903549036490374903849039490404904149042490434904449045490464904749048490494905049051490524905349054490554905649057490584905949060490614906249063490644906549066490674906849069490704907149072490734907449075490764907749078490794908049081490824908349084490854908649087490884908949090490914909249093490944909549096490974909849099491004910149102491034910449105491064910749108491094911049111491124911349114491154911649117491184911949120491214912249123491244912549126491274912849129491304913149132491334913449135491364913749138491394914049141491424914349144491454914649147491484914949150491514915249153491544915549156491574915849159491604916149162491634916449165491664916749168491694917049171491724917349174491754917649177491784917949180491814918249183491844918549186491874918849189491904919149192491934919449195491964919749198491994920049201492024920349204492054920649207492084920949210492114921249213492144921549216492174921849219492204922149222492234922449225492264922749228492294923049231492324923349234492354923649237492384923949240492414924249243492444924549246492474924849249492504925149252492534925449255492564925749258492594926049261492624926349264492654926649267492684926949270492714927249273492744927549276492774927849279492804928149282492834928449285492864928749288492894929049291492924929349294492954929649297492984929949300493014930249303493044930549306493074930849309493104931149312493134931449315493164931749318493194932049321493224932349324493254932649327493284932949330493314933249333493344933549336493374933849339493404934149342493434934449345493464934749348493494935049351493524935349354493554935649357493584935949360493614936249363493644936549366493674936849369493704937149372493734937449375493764937749378493794938049381493824938349384493854938649387493884938949390493914939249393493944939549396493974939849399494004940149402494034940449405494064940749408494094941049411494124941349414494154941649417494184941949420494214942249423494244942549426494274942849429494304943149432494334943449435494364943749438494394944049441494424944349444494454944649447494484944949450494514945249453494544945549456494574945849459494604946149462494634946449465494664946749468494694947049471494724947349474494754947649477494784947949480494814948249483494844948549486494874948849489494904949149492494934949449495494964949749498494994950049501495024950349504495054950649507495084950949510495114951249513495144951549516495174951849519495204952149522495234952449525495264952749528495294953049531495324953349534495354953649537495384953949540495414954249543495444954549546495474954849549495504955149552495534955449555495564955749558495594956049561495624956349564495654956649567495684956949570495714957249573495744957549576495774957849579495804958149582495834958449585495864958749588495894959049591495924959349594495954959649597495984959949600496014960249603496044960549606496074960849609496104961149612496134961449615496164961749618496194962049621496224962349624496254962649627496284962949630496314963249633496344963549636496374963849639496404964149642496434964449645496464964749648496494965049651496524965349654496554965649657496584965949660496614966249663496644966549666496674966849669496704967149672496734967449675496764967749678496794968049681496824968349684496854968649687496884968949690496914969249693496944969549696496974969849699497004970149702497034970449705497064970749708497094971049711497124971349714497154971649717497184971949720497214972249723497244972549726497274972849729497304973149732497334973449735497364973749738497394974049741497424974349744497454974649747497484974949750497514975249753497544975549756497574975849759497604976149762497634976449765497664976749768497694977049771497724977349774497754977649777497784977949780497814978249783497844978549786497874978849789497904979149792497934979449795497964979749798497994980049801498024980349804498054980649807498084980949810498114981249813498144981549816498174981849819498204982149822498234982449825498264982749828498294983049831498324983349834498354983649837498384983949840498414984249843498444984549846498474984849849498504985149852498534985449855498564985749858498594986049861498624986349864498654986649867498684986949870498714987249873498744987549876498774987849879498804988149882498834988449885498864988749888498894989049891498924989349894498954989649897498984989949900499014990249903499044990549906499074990849909499104991149912499134991449915499164991749918499194992049921499224992349924499254992649927499284992949930499314993249933499344993549936499374993849939499404994149942499434994449945499464994749948499494995049951499524995349954499554995649957499584995949960499614996249963499644996549966499674996849969499704997149972499734997449975499764997749978499794998049981499824998349984499854998649987499884998949990499914999249993499944999549996499974999849999500005000150002500035000450005500065000750008500095001050011500125001350014500155001650017500185001950020500215002250023500245002550026500275002850029500305003150032500335003450035500365003750038500395004050041500425004350044500455004650047500485004950050500515005250053500545005550056500575005850059500605006150062500635006450065500665006750068500695007050071500725007350074500755007650077500785007950080500815008250083500845008550086500875008850089500905009150092500935009450095500965009750098500995010050101501025010350104501055010650107501085010950110501115011250113501145011550116501175011850119501205012150122501235012450125501265012750128501295013050131501325013350134501355013650137501385013950140501415014250143501445014550146501475014850149501505015150152501535015450155501565015750158501595016050161501625016350164501655016650167501685016950170501715017250173501745017550176501775017850179501805018150182501835018450185501865018750188501895019050191501925019350194501955019650197501985019950200502015020250203502045020550206502075020850209502105021150212502135021450215502165021750218502195022050221502225022350224502255022650227502285022950230502315023250233502345023550236502375023850239502405024150242502435024450245502465024750248502495025050251502525025350254502555025650257502585025950260502615026250263502645026550266502675026850269502705027150272502735027450275502765027750278502795028050281502825028350284502855028650287502885028950290502915029250293502945029550296502975029850299503005030150302503035030450305503065030750308503095031050311503125031350314503155031650317503185031950320503215032250323503245032550326503275032850329503305033150332503335033450335503365033750338503395034050341503425034350344503455034650347503485034950350503515035250353503545035550356503575035850359503605036150362503635036450365503665036750368503695037050371503725037350374503755037650377503785037950380503815038250383503845038550386503875038850389503905039150392503935039450395503965039750398503995040050401504025040350404504055040650407504085040950410504115041250413504145041550416504175041850419504205042150422504235042450425504265042750428504295043050431504325043350434504355043650437504385043950440504415044250443504445044550446504475044850449504505045150452504535045450455504565045750458504595046050461504625046350464504655046650467504685046950470504715047250473504745047550476504775047850479504805048150482504835048450485504865048750488504895049050491504925049350494504955049650497504985049950500505015050250503505045050550506505075050850509505105051150512505135051450515505165051750518505195052050521505225052350524505255052650527505285052950530505315053250533505345053550536505375053850539505405054150542505435054450545505465054750548505495055050551505525055350554505555055650557505585055950560505615056250563505645056550566505675056850569505705057150572505735057450575505765057750578505795058050581505825058350584505855058650587505885058950590505915059250593505945059550596505975059850599506005060150602506035060450605506065060750608506095061050611506125061350614506155061650617506185061950620506215062250623506245062550626506275062850629506305063150632506335063450635506365063750638506395064050641506425064350644506455064650647506485064950650506515065250653506545065550656506575065850659506605066150662506635066450665506665066750668506695067050671506725067350674506755067650677506785067950680506815068250683506845068550686506875068850689506905069150692506935069450695506965069750698506995070050701507025070350704507055070650707507085070950710507115071250713507145071550716507175071850719507205072150722507235072450725507265072750728507295073050731507325073350734507355073650737507385073950740507415074250743507445074550746507475074850749507505075150752507535075450755507565075750758507595076050761507625076350764507655076650767507685076950770507715077250773507745077550776507775077850779507805078150782507835078450785507865078750788507895079050791507925079350794507955079650797507985079950800508015080250803508045080550806508075080850809508105081150812508135081450815508165081750818508195082050821508225082350824508255082650827508285082950830508315083250833508345083550836508375083850839508405084150842508435084450845508465084750848508495085050851508525085350854508555085650857508585085950860508615086250863508645086550866508675086850869508705087150872508735087450875508765087750878508795088050881508825088350884508855088650887508885088950890508915089250893508945089550896508975089850899509005090150902509035090450905509065090750908509095091050911509125091350914509155091650917509185091950920509215092250923509245092550926509275092850929509305093150932509335093450935509365093750938509395094050941509425094350944509455094650947509485094950950509515095250953509545095550956509575095850959509605096150962509635096450965509665096750968509695097050971509725097350974509755097650977509785097950980509815098250983509845098550986509875098850989509905099150992509935099450995509965099750998509995100051001510025100351004510055100651007510085100951010510115101251013510145101551016510175101851019510205102151022510235102451025510265102751028510295103051031510325103351034510355103651037510385103951040510415104251043510445104551046510475104851049510505105151052510535105451055510565105751058510595106051061510625106351064510655106651067510685106951070510715107251073510745107551076510775107851079510805108151082510835108451085510865108751088510895109051091510925109351094510955109651097510985109951100511015110251103511045110551106511075110851109511105111151112511135111451115511165111751118511195112051121511225112351124511255112651127511285112951130511315113251133511345113551136511375113851139511405114151142511435114451145511465114751148511495115051151511525115351154511555115651157511585115951160511615116251163511645116551166511675116851169511705117151172511735117451175511765117751178511795118051181511825118351184511855118651187511885118951190511915119251193511945119551196511975119851199512005120151202512035120451205512065120751208512095121051211512125121351214512155121651217512185121951220512215122251223512245122551226512275122851229512305123151232512335123451235512365123751238512395124051241512425124351244512455124651247512485124951250512515125251253512545125551256512575125851259512605126151262512635126451265512665126751268512695127051271512725127351274512755127651277512785127951280512815128251283512845128551286512875128851289512905129151292512935129451295512965129751298512995130051301513025130351304513055130651307513085130951310513115131251313513145131551316513175131851319513205132151322513235132451325513265132751328513295133051331513325133351334513355133651337513385133951340513415134251343513445134551346513475134851349513505135151352513535135451355513565135751358513595136051361513625136351364513655136651367513685136951370513715137251373513745137551376513775137851379513805138151382513835138451385513865138751388513895139051391513925139351394513955139651397513985139951400514015140251403514045140551406514075140851409514105141151412514135141451415514165141751418514195142051421514225142351424514255142651427514285142951430514315143251433514345143551436514375143851439514405144151442514435144451445514465144751448514495145051451514525145351454514555145651457514585145951460514615146251463514645146551466514675146851469514705147151472514735147451475514765147751478514795148051481514825148351484514855148651487514885148951490514915149251493514945149551496514975149851499515005150151502515035150451505515065150751508515095151051511515125151351514515155151651517515185151951520515215152251523515245152551526515275152851529515305153151532515335153451535515365153751538515395154051541515425154351544515455154651547515485154951550515515155251553515545155551556515575155851559515605156151562515635156451565515665156751568515695157051571515725157351574515755157651577515785157951580515815158251583515845158551586515875158851589515905159151592515935159451595515965159751598515995160051601516025160351604516055160651607516085160951610516115161251613516145161551616516175161851619516205162151622516235162451625516265162751628516295163051631516325163351634516355163651637516385163951640516415164251643516445164551646516475164851649516505165151652516535165451655516565165751658516595166051661516625166351664516655166651667516685166951670516715167251673516745167551676516775167851679516805168151682516835168451685516865168751688516895169051691516925169351694516955169651697516985169951700517015170251703517045170551706517075170851709517105171151712517135171451715517165171751718517195172051721517225172351724517255172651727517285172951730517315173251733517345173551736517375173851739517405174151742517435174451745517465174751748517495175051751517525175351754517555175651757517585175951760517615176251763517645176551766517675176851769517705177151772517735177451775517765177751778517795178051781517825178351784517855178651787517885178951790517915179251793517945179551796517975179851799518005180151802518035180451805518065180751808518095181051811518125181351814518155181651817518185181951820518215182251823518245182551826518275182851829518305183151832518335183451835518365183751838518395184051841518425184351844518455184651847518485184951850518515185251853518545185551856518575185851859518605186151862518635186451865518665186751868518695187051871518725187351874518755187651877518785187951880518815188251883518845188551886518875188851889518905189151892518935189451895518965189751898518995190051901519025190351904519055190651907519085190951910519115191251913519145191551916519175191851919519205192151922519235192451925519265192751928519295193051931519325193351934519355193651937519385193951940519415194251943519445194551946519475194851949519505195151952519535195451955519565195751958519595196051961519625196351964519655196651967519685196951970519715197251973519745197551976519775197851979519805198151982519835198451985519865198751988519895199051991519925199351994519955199651997519985199952000520015200252003520045200552006520075200852009520105201152012520135201452015520165201752018520195202052021520225202352024520255202652027520285202952030520315203252033520345203552036520375203852039520405204152042520435204452045520465204752048520495205052051520525205352054520555205652057520585205952060520615206252063520645206552066520675206852069520705207152072520735207452075520765207752078520795208052081520825208352084520855208652087520885208952090520915209252093520945209552096520975209852099521005210152102521035210452105521065210752108521095211052111521125211352114521155211652117521185211952120521215212252123521245212552126521275212852129521305213152132521335213452135521365213752138521395214052141521425214352144521455214652147521485214952150521515215252153521545215552156521575215852159521605216152162521635216452165521665216752168521695217052171521725217352174521755217652177521785217952180521815218252183521845218552186521875218852189521905219152192521935219452195521965219752198521995220052201522025220352204522055220652207522085220952210522115221252213522145221552216522175221852219522205222152222522235222452225522265222752228522295223052231522325223352234522355223652237522385223952240522415224252243522445224552246522475224852249522505225152252522535225452255522565225752258522595226052261522625226352264522655226652267522685226952270522715227252273522745227552276522775227852279522805228152282522835228452285522865228752288522895229052291522925229352294522955229652297522985229952300523015230252303523045230552306523075230852309523105231152312523135231452315523165231752318523195232052321523225232352324523255232652327523285232952330523315233252333523345233552336523375233852339523405234152342523435234452345523465234752348523495235052351523525235352354523555235652357523585235952360523615236252363523645236552366523675236852369523705237152372523735237452375523765237752378523795238052381523825238352384523855238652387523885238952390523915239252393523945239552396523975239852399524005240152402524035240452405524065240752408524095241052411524125241352414524155241652417524185241952420524215242252423524245242552426524275242852429524305243152432524335243452435524365243752438524395244052441524425244352444524455244652447524485244952450524515245252453524545245552456524575245852459524605246152462524635246452465524665246752468524695247052471524725247352474524755247652477524785247952480524815248252483524845248552486524875248852489524905249152492524935249452495524965249752498524995250052501525025250352504525055250652507525085250952510525115251252513525145251552516525175251852519525205252152522525235252452525525265252752528525295253052531525325253352534525355253652537525385253952540525415254252543525445254552546525475254852549525505255152552525535255452555525565255752558525595256052561525625256352564525655256652567525685256952570525715257252573525745257552576525775257852579525805258152582525835258452585525865258752588525895259052591525925259352594525955259652597525985259952600526015260252603526045260552606526075260852609526105261152612526135261452615526165261752618526195262052621526225262352624526255262652627526285262952630526315263252633526345263552636526375263852639526405264152642526435264452645526465264752648526495265052651526525265352654526555265652657526585265952660526615266252663526645266552666526675266852669526705267152672526735267452675526765267752678526795268052681526825268352684526855268652687526885268952690526915269252693526945269552696526975269852699527005270152702527035270452705527065270752708527095271052711527125271352714527155271652717527185271952720527215272252723527245272552726527275272852729527305273152732527335273452735527365273752738527395274052741527425274352744527455274652747527485274952750527515275252753527545275552756527575275852759527605276152762527635276452765527665276752768527695277052771527725277352774527755277652777527785277952780527815278252783527845278552786527875278852789527905279152792527935279452795527965279752798527995280052801528025280352804528055280652807528085280952810528115281252813528145281552816528175281852819528205282152822528235282452825528265282752828528295283052831528325283352834528355283652837528385283952840528415284252843528445284552846528475284852849528505285152852528535285452855528565285752858528595286052861528625286352864528655286652867528685286952870528715287252873528745287552876528775287852879528805288152882528835288452885528865288752888528895289052891528925289352894528955289652897528985289952900529015290252903529045290552906529075290852909529105291152912529135291452915529165291752918529195292052921529225292352924529255292652927529285292952930529315293252933529345293552936529375293852939529405294152942529435294452945529465294752948529495295052951529525295352954529555295652957529585295952960529615296252963529645296552966529675296852969529705297152972529735297452975529765297752978529795298052981529825298352984529855298652987529885298952990529915299252993529945299552996529975299852999530005300153002530035300453005530065300753008530095301053011530125301353014530155301653017530185301953020530215302253023530245302553026530275302853029530305303153032530335303453035530365303753038530395304053041530425304353044530455304653047530485304953050530515305253053530545305553056530575305853059530605306153062530635306453065530665306753068530695307053071530725307353074530755307653077530785307953080530815308253083530845308553086530875308853089530905309153092530935309453095530965309753098530995310053101531025310353104531055310653107531085310953110531115311253113531145311553116531175311853119531205312153122531235312453125531265312753128531295313053131531325313353134531355313653137531385313953140531415314253143531445314553146531475314853149531505315153152531535315453155531565315753158531595316053161531625316353164531655316653167531685316953170531715317253173531745317553176531775317853179531805318153182531835318453185531865318753188531895319053191531925319353194531955319653197531985319953200532015320253203532045320553206532075320853209532105321153212532135321453215532165321753218532195322053221532225322353224532255322653227532285322953230532315323253233532345323553236532375323853239532405324153242532435324453245532465324753248532495325053251532525325353254532555325653257532585325953260532615326253263532645326553266532675326853269532705327153272532735327453275532765327753278532795328053281532825328353284532855328653287532885328953290532915329253293532945329553296532975329853299533005330153302533035330453305533065330753308533095331053311533125331353314533155331653317533185331953320533215332253323533245332553326533275332853329533305333153332533335333453335533365333753338533395334053341533425334353344533455334653347533485334953350533515335253353533545335553356533575335853359533605336153362533635336453365533665336753368533695337053371533725337353374533755337653377533785337953380533815338253383533845338553386533875338853389533905339153392533935339453395533965339753398533995340053401534025340353404534055340653407534085340953410534115341253413534145341553416534175341853419534205342153422534235342453425534265342753428534295343053431534325343353434534355343653437534385343953440534415344253443534445344553446534475344853449534505345153452534535345453455534565345753458534595346053461534625346353464534655346653467534685346953470534715347253473534745347553476534775347853479534805348153482534835348453485534865348753488534895349053491534925349353494534955349653497534985349953500535015350253503535045350553506535075350853509535105351153512535135351453515535165351753518535195352053521535225352353524535255352653527535285352953530535315353253533535345353553536535375353853539535405354153542535435354453545535465354753548535495355053551535525355353554535555355653557535585355953560535615356253563535645356553566535675356853569535705357153572535735357453575535765357753578535795358053581535825358353584535855358653587535885358953590535915359253593535945359553596535975359853599536005360153602536035360453605536065360753608536095361053611536125361353614536155361653617536185361953620536215362253623536245362553626536275362853629536305363153632536335363453635536365363753638536395364053641536425364353644536455364653647536485364953650536515365253653536545365553656536575365853659536605366153662536635366453665536665366753668536695367053671536725367353674536755367653677536785367953680536815368253683536845368553686536875368853689536905369153692536935369453695536965369753698536995370053701537025370353704537055370653707537085370953710537115371253713537145371553716537175371853719537205372153722537235372453725537265372753728537295373053731537325373353734537355373653737537385373953740537415374253743537445374553746537475374853749537505375153752537535375453755537565375753758537595376053761537625376353764537655376653767537685376953770537715377253773537745377553776537775377853779537805378153782537835378453785537865378753788537895379053791537925379353794537955379653797537985379953800538015380253803538045380553806538075380853809538105381153812538135381453815538165381753818538195382053821538225382353824538255382653827538285382953830538315383253833538345383553836538375383853839538405384153842538435384453845538465384753848538495385053851538525385353854538555385653857538585385953860538615386253863538645386553866538675386853869538705387153872538735387453875538765387753878538795388053881538825388353884538855388653887538885388953890538915389253893538945389553896538975389853899539005390153902539035390453905539065390753908539095391053911539125391353914539155391653917539185391953920539215392253923539245392553926539275392853929539305393153932539335393453935539365393753938539395394053941539425394353944539455394653947539485394953950539515395253953539545395553956539575395853959539605396153962539635396453965539665396753968539695397053971539725397353974539755397653977539785397953980539815398253983539845398553986539875398853989539905399153992539935399453995539965399753998539995400054001540025400354004540055400654007540085400954010540115401254013540145401554016540175401854019540205402154022540235402454025540265402754028540295403054031540325403354034540355403654037540385403954040540415404254043540445404554046540475404854049540505405154052540535405454055540565405754058540595406054061540625406354064540655406654067540685406954070540715407254073540745407554076540775407854079540805408154082540835408454085540865408754088540895409054091540925409354094540955409654097540985409954100541015410254103541045410554106541075410854109541105411154112541135411454115541165411754118541195412054121541225412354124541255412654127541285412954130541315413254133541345413554136541375413854139541405414154142541435414454145541465414754148541495415054151541525415354154541555415654157541585415954160541615416254163541645416554166541675416854169541705417154172541735417454175541765417754178541795418054181541825418354184541855418654187541885418954190541915419254193541945419554196541975419854199542005420154202542035420454205542065420754208542095421054211542125421354214542155421654217542185421954220542215422254223542245422554226542275422854229542305423154232542335423454235542365423754238542395424054241542425424354244542455424654247542485424954250542515425254253542545425554256542575425854259542605426154262542635426454265542665426754268542695427054271542725427354274542755427654277542785427954280542815428254283542845428554286542875428854289542905429154292542935429454295542965429754298542995430054301543025430354304543055430654307543085430954310543115431254313543145431554316543175431854319543205432154322543235432454325543265432754328543295433054331543325433354334543355433654337543385433954340543415434254343543445434554346543475434854349543505435154352543535435454355543565435754358543595436054361543625436354364543655436654367543685436954370543715437254373543745437554376543775437854379543805438154382543835438454385543865438754388543895439054391543925439354394543955439654397543985439954400544015440254403544045440554406544075440854409544105441154412544135441454415544165441754418544195442054421544225442354424544255442654427544285442954430544315443254433544345443554436544375443854439544405444154442544435444454445544465444754448544495445054451544525445354454544555445654457544585445954460544615446254463544645446554466544675446854469544705447154472544735447454475544765447754478544795448054481544825448354484544855448654487544885448954490544915449254493544945449554496544975449854499545005450154502545035450454505545065450754508545095451054511545125451354514545155451654517545185451954520545215452254523545245452554526545275452854529545305453154532545335453454535545365453754538545395454054541545425454354544545455454654547545485454954550545515455254553545545455554556545575455854559545605456154562545635456454565545665456754568545695457054571545725457354574545755457654577545785457954580545815458254583545845458554586545875458854589545905459154592545935459454595545965459754598545995460054601546025460354604546055460654607546085460954610546115461254613546145461554616546175461854619546205462154622546235462454625546265462754628546295463054631546325463354634546355463654637546385463954640546415464254643546445464554646546475464854649546505465154652546535465454655546565465754658546595466054661546625466354664546655466654667546685466954670546715467254673546745467554676546775467854679546805468154682546835468454685546865468754688546895469054691546925469354694546955469654697546985469954700547015470254703547045470554706547075470854709547105471154712547135471454715547165471754718547195472054721547225472354724547255472654727547285472954730547315473254733547345473554736547375473854739547405474154742547435474454745547465474754748547495475054751547525475354754547555475654757547585475954760547615476254763547645476554766547675476854769547705477154772547735477454775547765477754778547795478054781547825478354784547855478654787547885478954790547915479254793547945479554796547975479854799548005480154802548035480454805548065480754808548095481054811548125481354814548155481654817548185481954820548215482254823548245482554826548275482854829548305483154832548335483454835548365483754838548395484054841548425484354844548455484654847548485484954850548515485254853548545485554856548575485854859548605486154862548635486454865548665486754868548695487054871548725487354874548755487654877548785487954880548815488254883548845488554886548875488854889548905489154892548935489454895548965489754898548995490054901549025490354904549055490654907549085490954910549115491254913549145491554916549175491854919549205492154922549235492454925549265492754928549295493054931549325493354934549355493654937549385493954940549415494254943549445494554946549475494854949549505495154952549535495454955549565495754958549595496054961549625496354964549655496654967549685496954970549715497254973549745497554976549775497854979549805498154982549835498454985549865498754988549895499054991549925499354994549955499654997549985499955000550015500255003550045500555006550075500855009550105501155012550135501455015550165501755018550195502055021550225502355024550255502655027550285502955030550315503255033550345503555036550375503855039550405504155042550435504455045550465504755048550495505055051550525505355054550555505655057550585505955060550615506255063550645506555066550675506855069550705507155072550735507455075550765507755078550795508055081550825508355084550855508655087550885508955090550915509255093550945509555096550975509855099551005510155102551035510455105551065510755108551095511055111551125511355114551155511655117551185511955120551215512255123551245512555126551275512855129551305513155132551335513455135551365513755138551395514055141551425514355144551455514655147551485514955150551515515255153551545515555156551575515855159551605516155162551635516455165551665516755168551695517055171551725517355174551755517655177551785517955180551815518255183551845518555186551875518855189551905519155192551935519455195551965519755198551995520055201552025520355204552055520655207552085520955210552115521255213552145521555216552175521855219552205522155222552235522455225552265522755228552295523055231552325523355234552355523655237552385523955240552415524255243552445524555246552475524855249552505525155252552535525455255552565525755258552595526055261552625526355264552655526655267552685526955270552715527255273552745527555276552775527855279552805528155282552835528455285552865528755288552895529055291552925529355294552955529655297552985529955300553015530255303553045530555306553075530855309553105531155312553135531455315553165531755318553195532055321553225532355324553255532655327553285532955330553315533255333553345533555336553375533855339553405534155342553435534455345553465534755348553495535055351553525535355354553555535655357553585535955360553615536255363553645536555366553675536855369553705537155372553735537455375553765537755378553795538055381553825538355384553855538655387553885538955390553915539255393553945539555396553975539855399554005540155402554035540455405554065540755408554095541055411554125541355414554155541655417554185541955420554215542255423554245542555426554275542855429554305543155432554335543455435554365543755438554395544055441554425544355444554455544655447554485544955450554515545255453554545545555456554575545855459554605546155462554635546455465554665546755468554695547055471554725547355474554755547655477554785547955480554815548255483554845548555486554875548855489554905549155492554935549455495554965549755498554995550055501555025550355504555055550655507555085550955510555115551255513555145551555516555175551855519555205552155522555235552455525555265552755528555295553055531555325553355534555355553655537555385553955540555415554255543555445554555546555475554855549555505555155552555535555455555555565555755558555595556055561555625556355564555655556655567555685556955570555715557255573555745557555576555775557855579555805558155582555835558455585555865558755588555895559055591555925559355594555955559655597555985559955600556015560255603556045560555606556075560855609556105561155612556135561455615556165561755618556195562055621556225562355624556255562655627556285562955630556315563255633556345563555636556375563855639556405564155642556435564455645556465564755648556495565055651556525565355654556555565655657556585565955660556615566255663556645566555666556675566855669556705567155672556735567455675556765567755678556795568055681556825568355684556855568655687556885568955690556915569255693556945569555696556975569855699557005570155702557035570455705557065570755708557095571055711557125571355714557155571655717557185571955720557215572255723557245572555726557275572855729557305573155732557335573455735557365573755738557395574055741557425574355744557455574655747557485574955750557515575255753557545575555756557575575855759557605576155762557635576455765557665576755768557695577055771557725577355774557755577655777557785577955780557815578255783557845578555786557875578855789557905579155792557935579455795557965579755798557995580055801558025580355804558055580655807558085580955810558115581255813558145581555816558175581855819558205582155822558235582455825558265582755828558295583055831558325583355834558355583655837558385583955840558415584255843558445584555846558475584855849558505585155852558535585455855558565585755858558595586055861558625586355864558655586655867558685586955870558715587255873558745587555876558775587855879558805588155882558835588455885558865588755888558895589055891558925589355894558955589655897558985589955900559015590255903559045590555906559075590855909559105591155912559135591455915559165591755918559195592055921559225592355924559255592655927559285592955930559315593255933559345593555936559375593855939559405594155942559435594455945559465594755948559495595055951559525595355954559555595655957559585595955960559615596255963559645596555966559675596855969559705597155972559735597455975559765597755978559795598055981559825598355984559855598655987559885598955990559915599255993559945599555996559975599855999560005600156002560035600456005560065600756008560095601056011560125601356014560155601656017560185601956020560215602256023560245602556026560275602856029560305603156032560335603456035560365603756038560395604056041560425604356044560455604656047560485604956050560515605256053560545605556056560575605856059560605606156062560635606456065560665606756068560695607056071560725607356074560755607656077560785607956080560815608256083560845608556086560875608856089560905609156092560935609456095560965609756098560995610056101561025610356104561055610656107561085610956110561115611256113561145611556116561175611856119561205612156122561235612456125561265612756128561295613056131561325613356134561355613656137561385613956140561415614256143561445614556146561475614856149561505615156152561535615456155561565615756158561595616056161561625616356164561655616656167561685616956170561715617256173561745617556176561775617856179561805618156182561835618456185561865618756188561895619056191561925619356194561955619656197561985619956200562015620256203562045620556206562075620856209562105621156212562135621456215562165621756218562195622056221562225622356224562255622656227562285622956230562315623256233562345623556236562375623856239562405624156242562435624456245562465624756248562495625056251562525625356254562555625656257562585625956260562615626256263562645626556266562675626856269562705627156272562735627456275562765627756278562795628056281562825628356284562855628656287562885628956290562915629256293562945629556296562975629856299563005630156302563035630456305563065630756308563095631056311563125631356314563155631656317563185631956320563215632256323563245632556326563275632856329563305633156332563335633456335563365633756338563395634056341563425634356344563455634656347563485634956350563515635256353563545635556356563575635856359563605636156362563635636456365563665636756368563695637056371563725637356374563755637656377563785637956380563815638256383563845638556386563875638856389563905639156392563935639456395563965639756398563995640056401564025640356404564055640656407564085640956410564115641256413564145641556416564175641856419564205642156422564235642456425564265642756428564295643056431564325643356434564355643656437564385643956440564415644256443564445644556446564475644856449564505645156452564535645456455564565645756458564595646056461564625646356464564655646656467564685646956470564715647256473564745647556476564775647856479564805648156482564835648456485564865648756488564895649056491564925649356494564955649656497564985649956500565015650256503565045650556506565075650856509565105651156512565135651456515565165651756518565195652056521565225652356524565255652656527565285652956530565315653256533565345653556536565375653856539565405654156542565435654456545565465654756548565495655056551565525655356554565555655656557565585655956560565615656256563565645656556566565675656856569565705657156572565735657456575565765657756578565795658056581565825658356584565855658656587565885658956590565915659256593565945659556596565975659856599566005660156602566035660456605566065660756608566095661056611566125661356614566155661656617566185661956620566215662256623566245662556626566275662856629566305663156632566335663456635566365663756638566395664056641566425664356644566455664656647566485664956650566515665256653566545665556656566575665856659566605666156662566635666456665566665666756668566695667056671566725667356674566755667656677566785667956680566815668256683566845668556686566875668856689566905669156692566935669456695566965669756698566995670056701567025670356704567055670656707567085670956710567115671256713567145671556716567175671856719567205672156722567235672456725567265672756728567295673056731567325673356734567355673656737567385673956740567415674256743567445674556746567475674856749567505675156752567535675456755567565675756758567595676056761567625676356764567655676656767567685676956770567715677256773567745677556776567775677856779567805678156782567835678456785567865678756788567895679056791567925679356794567955679656797567985679956800568015680256803568045680556806568075680856809568105681156812568135681456815568165681756818568195682056821568225682356824568255682656827568285682956830568315683256833568345683556836568375683856839568405684156842568435684456845568465684756848568495685056851568525685356854568555685656857568585685956860568615686256863568645686556866568675686856869568705687156872568735687456875568765687756878568795688056881568825688356884568855688656887568885688956890568915689256893568945689556896568975689856899569005690156902569035690456905569065690756908569095691056911569125691356914569155691656917569185691956920569215692256923569245692556926569275692856929569305693156932569335693456935569365693756938569395694056941569425694356944569455694656947569485694956950569515695256953569545695556956569575695856959569605696156962569635696456965569665696756968569695697056971569725697356974569755697656977569785697956980569815698256983569845698556986569875698856989569905699156992569935699456995569965699756998569995700057001570025700357004570055700657007570085700957010570115701257013570145701557016570175701857019570205702157022570235702457025570265702757028570295703057031570325703357034570355703657037570385703957040570415704257043570445704557046570475704857049570505705157052570535705457055570565705757058570595706057061570625706357064570655706657067570685706957070570715707257073570745707557076570775707857079570805708157082570835708457085570865708757088570895709057091570925709357094570955709657097570985709957100571015710257103571045710557106571075710857109571105711157112571135711457115571165711757118571195712057121571225712357124571255712657127571285712957130571315713257133571345713557136571375713857139571405714157142571435714457145571465714757148571495715057151571525715357154571555715657157571585715957160571615716257163571645716557166571675716857169571705717157172571735717457175571765717757178571795718057181571825718357184571855718657187571885718957190571915719257193571945719557196571975719857199572005720157202572035720457205572065720757208572095721057211572125721357214572155721657217572185721957220572215722257223572245722557226572275722857229572305723157232572335723457235572365723757238572395724057241572425724357244572455724657247572485724957250572515725257253572545725557256572575725857259572605726157262572635726457265572665726757268572695727057271572725727357274572755727657277572785727957280572815728257283572845728557286572875728857289572905729157292572935729457295572965729757298572995730057301573025730357304573055730657307573085730957310573115731257313573145731557316573175731857319573205732157322573235732457325573265732757328573295733057331573325733357334573355733657337573385733957340573415734257343573445734557346573475734857349573505735157352573535735457355573565735757358573595736057361573625736357364573655736657367573685736957370573715737257373573745737557376573775737857379573805738157382573835738457385573865738757388573895739057391573925739357394573955739657397573985739957400574015740257403574045740557406574075740857409574105741157412574135741457415574165741757418574195742057421574225742357424574255742657427574285742957430574315743257433574345743557436574375743857439574405744157442574435744457445574465744757448574495745057451574525745357454574555745657457574585745957460574615746257463574645746557466574675746857469574705747157472574735747457475574765747757478574795748057481574825748357484574855748657487574885748957490574915749257493574945749557496574975749857499575005750157502575035750457505575065750757508575095751057511575125751357514575155751657517575185751957520575215752257523575245752557526575275752857529575305753157532575335753457535575365753757538575395754057541575425754357544575455754657547575485754957550575515755257553575545755557556575575755857559575605756157562575635756457565575665756757568575695757057571575725757357574575755757657577575785757957580575815758257583575845758557586575875758857589575905759157592575935759457595575965759757598575995760057601576025760357604576055760657607576085760957610576115761257613576145761557616576175761857619576205762157622576235762457625576265762757628576295763057631576325763357634576355763657637576385763957640576415764257643576445764557646576475764857649576505765157652576535765457655576565765757658576595766057661576625766357664576655766657667576685766957670576715767257673576745767557676576775767857679576805768157682576835768457685576865768757688 |
- unit pic32mx450f256l;
- interface
- {$goto on}
- {$modeswitch advancedrecords}
- {$INLINE ON}
- {$OPTIMIZATION STACKFRAME}
- {$L startup.o}
- {$PACKRECORDS 2}
- type
- TBits_1 = 0..1;
- TBits_2 = 0..3;
- TBits_3 = 0..7;
- TBits_4 = 0..15;
- TBits_5 = 0..31;
- TBits_6 = 0..63;
- TBits_7 = 0..127;
- TBits_8 = 0..255;
- TBits_9 = 0..511;
- TBits_10 = 0..1023;
- TBits_11 = 0..2047;
- TBits_12 = 0..4095;
- TBits_13 = 0..8191;
- TBits_14 = 0..16383;
- TBits_15 = 0..32767;
- TBits_16 = 0..65535;
- TBits_17 = 0..131071;
- TBits_18 = 0..262143;
- TBits_19 = 0..524287;
- TBits_20 = 0..1048575;
- TBits_21 = 0..2097151;
- TBits_22 = 0..4194303;
- TBits_23 = 0..8388607;
- TBits_24 = 0..16777215;
- TBits_25 = 0..33554431;
- TBits_26 = 0..67108863;
- TBits_27 = 0..134217727;
- TBits_28 = 0..268435455;
- TBits_29 = 0..536870911;
- TBits_30 = 0..1073741823;
- TBits_31 = 0..2147483647;
- TBits_32 = 0..4294967295;
- TWDT_WDTCON = record
- private
- function getON : TBits_1; inline;
- function getSWDTPS : TBits_5; inline;
- function getSWDTPS0 : TBits_1; inline;
- function getSWDTPS1 : TBits_1; inline;
- function getSWDTPS2 : TBits_1; inline;
- function getSWDTPS3 : TBits_1; inline;
- function getSWDTPS4 : TBits_1; inline;
- function getWDTCLR : TBits_1; inline;
- function getWDTPS : TBits_5; inline;
- function getWDTPSTA : TBits_5; inline;
- function getWDTWINEN : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSWDTPS(thebits : TBits_5); inline;
- procedure setSWDTPS0(thebits : TBits_1); inline;
- procedure setSWDTPS1(thebits : TBits_1); inline;
- procedure setSWDTPS2(thebits : TBits_1); inline;
- procedure setSWDTPS3(thebits : TBits_1); inline;
- procedure setSWDTPS4(thebits : TBits_1); inline;
- procedure setWDTCLR(thebits : TBits_1); inline;
- procedure setWDTPS(thebits : TBits_5); inline;
- procedure setWDTPSTA(thebits : TBits_5); inline;
- procedure setWDTWINEN(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearON; inline;
- procedure clearSWDTPS0; inline;
- procedure clearSWDTPS1; inline;
- procedure clearSWDTPS2; inline;
- procedure clearSWDTPS3; inline;
- procedure clearSWDTPS4; inline;
- procedure clearWDTCLR; inline;
- procedure clearWDTWINEN; inline;
- procedure setON; inline;
- procedure setSWDTPS0; inline;
- procedure setSWDTPS1; inline;
- procedure setSWDTPS2; inline;
- procedure setSWDTPS3; inline;
- procedure setSWDTPS4; inline;
- procedure setWDTCLR; inline;
- procedure setWDTWINEN; inline;
- property ON : TBits_1 read getON write setON;
- property SWDTPS : TBits_5 read getSWDTPS write setSWDTPS;
- property SWDTPS0 : TBits_1 read getSWDTPS0 write setSWDTPS0;
- property SWDTPS1 : TBits_1 read getSWDTPS1 write setSWDTPS1;
- property SWDTPS2 : TBits_1 read getSWDTPS2 write setSWDTPS2;
- property SWDTPS3 : TBits_1 read getSWDTPS3 write setSWDTPS3;
- property SWDTPS4 : TBits_1 read getSWDTPS4 write setSWDTPS4;
- property WDTCLR : TBits_1 read getWDTCLR write setWDTCLR;
- property WDTPS : TBits_5 read getWDTPS write setWDTPS;
- property WDTPSTA : TBits_5 read getWDTPSTA write setWDTPSTA;
- property WDTWINEN : TBits_1 read getWDTWINEN write setWDTWINEN;
- property w : TBits_32 read getw write setw;
- end;
- type
- TWDTRegisters = record
- WDTCONbits : TWDT_WDTCON;
- WDTCON : longWord;
- WDTCONCLR : longWord;
- WDTCONSET : longWord;
- WDTCONINV : longWord;
- end;
- TRTCC_RTCCON = record
- private
- function getCAL : TBits_10; inline;
- function getHALFSEC : TBits_1; inline;
- function getON : TBits_1; inline;
- function getRTCCLKON : TBits_1; inline;
- function getRTCOE : TBits_1; inline;
- function getRTCSYNC : TBits_1; inline;
- function getRTCWREN : TBits_1; inline;
- function getRTSECSEL : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCAL(thebits : TBits_10); inline;
- procedure setHALFSEC(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setRTCCLKON(thebits : TBits_1); inline;
- procedure setRTCOE(thebits : TBits_1); inline;
- procedure setRTCSYNC(thebits : TBits_1); inline;
- procedure setRTCWREN(thebits : TBits_1); inline;
- procedure setRTSECSEL(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearHALFSEC; inline;
- procedure clearON; inline;
- procedure clearRTCCLKON; inline;
- procedure clearRTCOE; inline;
- procedure clearRTCSYNC; inline;
- procedure clearRTCWREN; inline;
- procedure clearRTSECSEL; inline;
- procedure clearSIDL; inline;
- procedure setHALFSEC; inline;
- procedure setON; inline;
- procedure setRTCCLKON; inline;
- procedure setRTCOE; inline;
- procedure setRTCSYNC; inline;
- procedure setRTCWREN; inline;
- procedure setRTSECSEL; inline;
- procedure setSIDL; inline;
- property CAL : TBits_10 read getCAL write setCAL;
- property HALFSEC : TBits_1 read getHALFSEC write setHALFSEC;
- property ON : TBits_1 read getON write setON;
- property RTCCLKON : TBits_1 read getRTCCLKON write setRTCCLKON;
- property RTCOE : TBits_1 read getRTCOE write setRTCOE;
- property RTCSYNC : TBits_1 read getRTCSYNC write setRTCSYNC;
- property RTCWREN : TBits_1 read getRTCWREN write setRTCWREN;
- property RTSECSEL : TBits_1 read getRTSECSEL write setRTSECSEL;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- TRTCC_RTCALRM = record
- private
- function getALRMEN : TBits_1; inline;
- function getALRMSYNC : TBits_1; inline;
- function getAMASK : TBits_4; inline;
- function getARPT : TBits_8; inline;
- function getCHIME : TBits_1; inline;
- function getPIV : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setALRMEN(thebits : TBits_1); inline;
- procedure setALRMSYNC(thebits : TBits_1); inline;
- procedure setAMASK(thebits : TBits_4); inline;
- procedure setARPT(thebits : TBits_8); inline;
- procedure setCHIME(thebits : TBits_1); inline;
- procedure setPIV(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearALRMEN; inline;
- procedure clearALRMSYNC; inline;
- procedure clearCHIME; inline;
- procedure clearPIV; inline;
- procedure setALRMEN; inline;
- procedure setALRMSYNC; inline;
- procedure setCHIME; inline;
- procedure setPIV; inline;
- property ALRMEN : TBits_1 read getALRMEN write setALRMEN;
- property ALRMSYNC : TBits_1 read getALRMSYNC write setALRMSYNC;
- property AMASK : TBits_4 read getAMASK write setAMASK;
- property ARPT : TBits_8 read getARPT write setARPT;
- property CHIME : TBits_1 read getCHIME write setCHIME;
- property PIV : TBits_1 read getPIV write setPIV;
- property w : TBits_32 read getw write setw;
- end;
- TRTCC_RTCTIME = record
- private
- function getHR01 : TBits_4; inline;
- function getHR10 : TBits_4; inline;
- function getMIN01 : TBits_4; inline;
- function getMIN10 : TBits_4; inline;
- function getSEC01 : TBits_4; inline;
- function getSEC10 : TBits_4; inline;
- function getw : TBits_32; inline;
- procedure setHR01(thebits : TBits_4); inline;
- procedure setHR10(thebits : TBits_4); inline;
- procedure setMIN01(thebits : TBits_4); inline;
- procedure setMIN10(thebits : TBits_4); inline;
- procedure setSEC01(thebits : TBits_4); inline;
- procedure setSEC10(thebits : TBits_4); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property HR01 : TBits_4 read getHR01 write setHR01;
- property HR10 : TBits_4 read getHR10 write setHR10;
- property MIN01 : TBits_4 read getMIN01 write setMIN01;
- property MIN10 : TBits_4 read getMIN10 write setMIN10;
- property SEC01 : TBits_4 read getSEC01 write setSEC01;
- property SEC10 : TBits_4 read getSEC10 write setSEC10;
- property w : TBits_32 read getw write setw;
- end;
- TRTCC_RTCDATE = record
- private
- function getDAY01 : TBits_4; inline;
- function getDAY10 : TBits_4; inline;
- function getMONTH01 : TBits_4; inline;
- function getMONTH10 : TBits_4; inline;
- function getWDAY01 : TBits_4; inline;
- function getYEAR01 : TBits_4; inline;
- function getYEAR10 : TBits_4; inline;
- function getw : TBits_32; inline;
- procedure setDAY01(thebits : TBits_4); inline;
- procedure setDAY10(thebits : TBits_4); inline;
- procedure setMONTH01(thebits : TBits_4); inline;
- procedure setMONTH10(thebits : TBits_4); inline;
- procedure setWDAY01(thebits : TBits_4); inline;
- procedure setYEAR01(thebits : TBits_4); inline;
- procedure setYEAR10(thebits : TBits_4); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property DAY01 : TBits_4 read getDAY01 write setDAY01;
- property DAY10 : TBits_4 read getDAY10 write setDAY10;
- property MONTH01 : TBits_4 read getMONTH01 write setMONTH01;
- property MONTH10 : TBits_4 read getMONTH10 write setMONTH10;
- property WDAY01 : TBits_4 read getWDAY01 write setWDAY01;
- property YEAR01 : TBits_4 read getYEAR01 write setYEAR01;
- property YEAR10 : TBits_4 read getYEAR10 write setYEAR10;
- property w : TBits_32 read getw write setw;
- end;
- TRTCC_ALRMTIME = record
- private
- function getHR01 : TBits_4; inline;
- function getHR10 : TBits_4; inline;
- function getMIN01 : TBits_4; inline;
- function getMIN10 : TBits_4; inline;
- function getSEC01 : TBits_4; inline;
- function getSEC10 : TBits_4; inline;
- function getw : TBits_32; inline;
- procedure setHR01(thebits : TBits_4); inline;
- procedure setHR10(thebits : TBits_4); inline;
- procedure setMIN01(thebits : TBits_4); inline;
- procedure setMIN10(thebits : TBits_4); inline;
- procedure setSEC01(thebits : TBits_4); inline;
- procedure setSEC10(thebits : TBits_4); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property HR01 : TBits_4 read getHR01 write setHR01;
- property HR10 : TBits_4 read getHR10 write setHR10;
- property MIN01 : TBits_4 read getMIN01 write setMIN01;
- property MIN10 : TBits_4 read getMIN10 write setMIN10;
- property SEC01 : TBits_4 read getSEC01 write setSEC01;
- property SEC10 : TBits_4 read getSEC10 write setSEC10;
- property w : TBits_32 read getw write setw;
- end;
- TRTCC_ALRMDATE = record
- private
- function getDAY01 : TBits_4; inline;
- function getDAY10 : TBits_4; inline;
- function getMONTH01 : TBits_4; inline;
- function getMONTH10 : TBits_4; inline;
- function getWDAY01 : TBits_4; inline;
- function getw : TBits_32; inline;
- procedure setDAY01(thebits : TBits_4); inline;
- procedure setDAY10(thebits : TBits_4); inline;
- procedure setMONTH01(thebits : TBits_4); inline;
- procedure setMONTH10(thebits : TBits_4); inline;
- procedure setWDAY01(thebits : TBits_4); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property DAY01 : TBits_4 read getDAY01 write setDAY01;
- property DAY10 : TBits_4 read getDAY10 write setDAY10;
- property MONTH01 : TBits_4 read getMONTH01 write setMONTH01;
- property MONTH10 : TBits_4 read getMONTH10 write setMONTH10;
- property WDAY01 : TBits_4 read getWDAY01 write setWDAY01;
- property w : TBits_32 read getw write setw;
- end;
- type
- TRTCCRegisters = record
- RTCCONbits : TRTCC_RTCCON;
- RTCCON : longWord;
- RTCCONCLR : longWord;
- RTCCONSET : longWord;
- RTCCONINV : longWord;
- RTCALRMbits : TRTCC_RTCALRM;
- RTCALRM : longWord;
- RTCALRMCLR : longWord;
- RTCALRMSET : longWord;
- RTCALRMINV : longWord;
- RTCTIMEbits : TRTCC_RTCTIME;
- RTCTIME : longWord;
- RTCTIMECLR : longWord;
- RTCTIMESET : longWord;
- RTCTIMEINV : longWord;
- RTCDATEbits : TRTCC_RTCDATE;
- RTCDATE : longWord;
- RTCDATECLR : longWord;
- RTCDATESET : longWord;
- RTCDATEINV : longWord;
- ALRMTIMEbits : TRTCC_ALRMTIME;
- ALRMTIME : longWord;
- ALRMTIMECLR : longWord;
- ALRMTIMESET : longWord;
- ALRMTIMEINV : longWord;
- ALRMDATEbits : TRTCC_ALRMDATE;
- ALRMDATE : longWord;
- ALRMDATECLR : longWord;
- ALRMDATESET : longWord;
- ALRMDATEINV : longWord;
- end;
- TTMR1_T1CON = record
- private
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getTCKPS : TBits_2; inline;
- function getTCKPS0 : TBits_1; inline;
- function getTCKPS1 : TBits_1; inline;
- function getTCS : TBits_1; inline;
- function getTGATE : TBits_1; inline;
- function getTON : TBits_1; inline;
- function getTSIDL : TBits_1; inline;
- function getTSYNC : TBits_1; inline;
- function getTWDIS : TBits_1; inline;
- function getTWIP : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setTCKPS(thebits : TBits_2); inline;
- procedure setTCKPS0(thebits : TBits_1); inline;
- procedure setTCKPS1(thebits : TBits_1); inline;
- procedure setTCS(thebits : TBits_1); inline;
- procedure setTGATE(thebits : TBits_1); inline;
- procedure setTON(thebits : TBits_1); inline;
- procedure setTSIDL(thebits : TBits_1); inline;
- procedure setTSYNC(thebits : TBits_1); inline;
- procedure setTWDIS(thebits : TBits_1); inline;
- procedure setTWIP(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure clearTCKPS0; inline;
- procedure clearTCKPS1; inline;
- procedure clearTCS; inline;
- procedure clearTGATE; inline;
- procedure clearTON; inline;
- procedure clearTSIDL; inline;
- procedure clearTSYNC; inline;
- procedure clearTWDIS; inline;
- procedure clearTWIP; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- procedure setTCKPS0; inline;
- procedure setTCKPS1; inline;
- procedure setTCS; inline;
- procedure setTGATE; inline;
- procedure setTON; inline;
- procedure setTSIDL; inline;
- procedure setTSYNC; inline;
- procedure setTWDIS; inline;
- procedure setTWIP; inline;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property TCKPS : TBits_2 read getTCKPS write setTCKPS;
- property TCKPS0 : TBits_1 read getTCKPS0 write setTCKPS0;
- property TCKPS1 : TBits_1 read getTCKPS1 write setTCKPS1;
- property TCS : TBits_1 read getTCS write setTCS;
- property TGATE : TBits_1 read getTGATE write setTGATE;
- property TON : TBits_1 read getTON write setTON;
- property TSIDL : TBits_1 read getTSIDL write setTSIDL;
- property TSYNC : TBits_1 read getTSYNC write setTSYNC;
- property TWDIS : TBits_1 read getTWDIS write setTWDIS;
- property TWIP : TBits_1 read getTWIP write setTWIP;
- property w : TBits_32 read getw write setw;
- end;
- type
- TTMR1Registers = record
- T1CONbits : TTMR1_T1CON;
- T1CON : longWord;
- T1CONCLR : longWord;
- T1CONSET : longWord;
- T1CONINV : longWord;
- TMR1 : longWord;
- TMR1CLR : longWord;
- TMR1SET : longWord;
- TMR1INV : longWord;
- PR1 : longWord;
- PR1CLR : longWord;
- PR1SET : longWord;
- PR1INV : longWord;
- end;
- TTMR2_T2CON = record
- private
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getT32 : TBits_1; inline;
- function getTCKPS : TBits_3; inline;
- function getTCKPS0 : TBits_1; inline;
- function getTCKPS1 : TBits_1; inline;
- function getTCKPS2 : TBits_1; inline;
- function getTCS : TBits_1; inline;
- function getTGATE : TBits_1; inline;
- function getTON : TBits_1; inline;
- function getTSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setT32(thebits : TBits_1); inline;
- procedure setTCKPS(thebits : TBits_3); inline;
- procedure setTCKPS0(thebits : TBits_1); inline;
- procedure setTCKPS1(thebits : TBits_1); inline;
- procedure setTCKPS2(thebits : TBits_1); inline;
- procedure setTCS(thebits : TBits_1); inline;
- procedure setTGATE(thebits : TBits_1); inline;
- procedure setTON(thebits : TBits_1); inline;
- procedure setTSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure clearT32; inline;
- procedure clearTCKPS0; inline;
- procedure clearTCKPS1; inline;
- procedure clearTCKPS2; inline;
- procedure clearTCS; inline;
- procedure clearTGATE; inline;
- procedure clearTON; inline;
- procedure clearTSIDL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- procedure setT32; inline;
- procedure setTCKPS0; inline;
- procedure setTCKPS1; inline;
- procedure setTCKPS2; inline;
- procedure setTCS; inline;
- procedure setTGATE; inline;
- procedure setTON; inline;
- procedure setTSIDL; inline;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property T32 : TBits_1 read getT32 write setT32;
- property TCKPS : TBits_3 read getTCKPS write setTCKPS;
- property TCKPS0 : TBits_1 read getTCKPS0 write setTCKPS0;
- property TCKPS1 : TBits_1 read getTCKPS1 write setTCKPS1;
- property TCKPS2 : TBits_1 read getTCKPS2 write setTCKPS2;
- property TCS : TBits_1 read getTCS write setTCS;
- property TGATE : TBits_1 read getTGATE write setTGATE;
- property TON : TBits_1 read getTON write setTON;
- property TSIDL : TBits_1 read getTSIDL write setTSIDL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TTMR2Registers = record
- T2CONbits : TTMR2_T2CON;
- T2CON : longWord;
- T2CONCLR : longWord;
- T2CONSET : longWord;
- T2CONINV : longWord;
- TMR2 : longWord;
- TMR2CLR : longWord;
- TMR2SET : longWord;
- TMR2INV : longWord;
- PR2 : longWord;
- PR2CLR : longWord;
- PR2SET : longWord;
- PR2INV : longWord;
- end;
- TTMR3_T3CON = record
- private
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getT32 : TBits_1; inline;
- function getTCKPS : TBits_3; inline;
- function getTCKPS0 : TBits_1; inline;
- function getTCKPS1 : TBits_1; inline;
- function getTCKPS2 : TBits_1; inline;
- function getTCS : TBits_1; inline;
- function getTGATE : TBits_1; inline;
- function getTON : TBits_1; inline;
- function getTSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setT32(thebits : TBits_1); inline;
- procedure setTCKPS(thebits : TBits_3); inline;
- procedure setTCKPS0(thebits : TBits_1); inline;
- procedure setTCKPS1(thebits : TBits_1); inline;
- procedure setTCKPS2(thebits : TBits_1); inline;
- procedure setTCS(thebits : TBits_1); inline;
- procedure setTGATE(thebits : TBits_1); inline;
- procedure setTON(thebits : TBits_1); inline;
- procedure setTSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure clearT32; inline;
- procedure clearTCKPS0; inline;
- procedure clearTCKPS1; inline;
- procedure clearTCKPS2; inline;
- procedure clearTCS; inline;
- procedure clearTGATE; inline;
- procedure clearTON; inline;
- procedure clearTSIDL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- procedure setT32; inline;
- procedure setTCKPS0; inline;
- procedure setTCKPS1; inline;
- procedure setTCKPS2; inline;
- procedure setTCS; inline;
- procedure setTGATE; inline;
- procedure setTON; inline;
- procedure setTSIDL; inline;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property T32 : TBits_1 read getT32 write setT32;
- property TCKPS : TBits_3 read getTCKPS write setTCKPS;
- property TCKPS0 : TBits_1 read getTCKPS0 write setTCKPS0;
- property TCKPS1 : TBits_1 read getTCKPS1 write setTCKPS1;
- property TCKPS2 : TBits_1 read getTCKPS2 write setTCKPS2;
- property TCS : TBits_1 read getTCS write setTCS;
- property TGATE : TBits_1 read getTGATE write setTGATE;
- property TON : TBits_1 read getTON write setTON;
- property TSIDL : TBits_1 read getTSIDL write setTSIDL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TTMR3Registers = record
- T3CONbits : TTMR3_T3CON;
- T3CON : longWord;
- T3CONCLR : longWord;
- T3CONSET : longWord;
- T3CONINV : longWord;
- TMR3 : longWord;
- TMR3CLR : longWord;
- TMR3SET : longWord;
- TMR3INV : longWord;
- PR3 : longWord;
- PR3CLR : longWord;
- PR3SET : longWord;
- PR3INV : longWord;
- end;
- TTMR4_T4CON = record
- private
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getT32 : TBits_1; inline;
- function getTCKPS : TBits_3; inline;
- function getTCKPS0 : TBits_1; inline;
- function getTCKPS1 : TBits_1; inline;
- function getTCKPS2 : TBits_1; inline;
- function getTCS : TBits_1; inline;
- function getTGATE : TBits_1; inline;
- function getTON : TBits_1; inline;
- function getTSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setT32(thebits : TBits_1); inline;
- procedure setTCKPS(thebits : TBits_3); inline;
- procedure setTCKPS0(thebits : TBits_1); inline;
- procedure setTCKPS1(thebits : TBits_1); inline;
- procedure setTCKPS2(thebits : TBits_1); inline;
- procedure setTCS(thebits : TBits_1); inline;
- procedure setTGATE(thebits : TBits_1); inline;
- procedure setTON(thebits : TBits_1); inline;
- procedure setTSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure clearT32; inline;
- procedure clearTCKPS0; inline;
- procedure clearTCKPS1; inline;
- procedure clearTCKPS2; inline;
- procedure clearTCS; inline;
- procedure clearTGATE; inline;
- procedure clearTON; inline;
- procedure clearTSIDL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- procedure setT32; inline;
- procedure setTCKPS0; inline;
- procedure setTCKPS1; inline;
- procedure setTCKPS2; inline;
- procedure setTCS; inline;
- procedure setTGATE; inline;
- procedure setTON; inline;
- procedure setTSIDL; inline;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property T32 : TBits_1 read getT32 write setT32;
- property TCKPS : TBits_3 read getTCKPS write setTCKPS;
- property TCKPS0 : TBits_1 read getTCKPS0 write setTCKPS0;
- property TCKPS1 : TBits_1 read getTCKPS1 write setTCKPS1;
- property TCKPS2 : TBits_1 read getTCKPS2 write setTCKPS2;
- property TCS : TBits_1 read getTCS write setTCS;
- property TGATE : TBits_1 read getTGATE write setTGATE;
- property TON : TBits_1 read getTON write setTON;
- property TSIDL : TBits_1 read getTSIDL write setTSIDL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TTMR4Registers = record
- T4CONbits : TTMR4_T4CON;
- T4CON : longWord;
- T4CONCLR : longWord;
- T4CONSET : longWord;
- T4CONINV : longWord;
- TMR4 : longWord;
- TMR4CLR : longWord;
- TMR4SET : longWord;
- TMR4INV : longWord;
- PR4 : longWord;
- PR4CLR : longWord;
- PR4SET : longWord;
- PR4INV : longWord;
- end;
- TTMR5_T5CON = record
- private
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getT32 : TBits_1; inline;
- function getTCKPS : TBits_3; inline;
- function getTCKPS0 : TBits_1; inline;
- function getTCKPS1 : TBits_1; inline;
- function getTCKPS2 : TBits_1; inline;
- function getTCS : TBits_1; inline;
- function getTGATE : TBits_1; inline;
- function getTON : TBits_1; inline;
- function getTSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setT32(thebits : TBits_1); inline;
- procedure setTCKPS(thebits : TBits_3); inline;
- procedure setTCKPS0(thebits : TBits_1); inline;
- procedure setTCKPS1(thebits : TBits_1); inline;
- procedure setTCKPS2(thebits : TBits_1); inline;
- procedure setTCS(thebits : TBits_1); inline;
- procedure setTGATE(thebits : TBits_1); inline;
- procedure setTON(thebits : TBits_1); inline;
- procedure setTSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure clearT32; inline;
- procedure clearTCKPS0; inline;
- procedure clearTCKPS1; inline;
- procedure clearTCKPS2; inline;
- procedure clearTCS; inline;
- procedure clearTGATE; inline;
- procedure clearTON; inline;
- procedure clearTSIDL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- procedure setT32; inline;
- procedure setTCKPS0; inline;
- procedure setTCKPS1; inline;
- procedure setTCKPS2; inline;
- procedure setTCS; inline;
- procedure setTGATE; inline;
- procedure setTON; inline;
- procedure setTSIDL; inline;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property T32 : TBits_1 read getT32 write setT32;
- property TCKPS : TBits_3 read getTCKPS write setTCKPS;
- property TCKPS0 : TBits_1 read getTCKPS0 write setTCKPS0;
- property TCKPS1 : TBits_1 read getTCKPS1 write setTCKPS1;
- property TCKPS2 : TBits_1 read getTCKPS2 write setTCKPS2;
- property TCS : TBits_1 read getTCS write setTCS;
- property TGATE : TBits_1 read getTGATE write setTGATE;
- property TON : TBits_1 read getTON write setTON;
- property TSIDL : TBits_1 read getTSIDL write setTSIDL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TTMR5Registers = record
- T5CONbits : TTMR5_T5CON;
- T5CON : longWord;
- T5CONCLR : longWord;
- T5CONSET : longWord;
- T5CONINV : longWord;
- TMR5 : longWord;
- TMR5CLR : longWord;
- TMR5SET : longWord;
- TMR5INV : longWord;
- PR5 : longWord;
- PR5CLR : longWord;
- PR5SET : longWord;
- PR5INV : longWord;
- end;
- TICAP1_IC1CON = record
- private
- function getC32 : TBits_1; inline;
- function getFEDGE : TBits_1; inline;
- function getICBNE : TBits_1; inline;
- function getICI : TBits_2; inline;
- function getICI0 : TBits_1; inline;
- function getICI1 : TBits_1; inline;
- function getICM : TBits_3; inline;
- function getICM0 : TBits_1; inline;
- function getICM1 : TBits_1; inline;
- function getICM2 : TBits_1; inline;
- function getICOV : TBits_1; inline;
- function getICSIDL : TBits_1; inline;
- function getICTMR : TBits_1; inline;
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setC32(thebits : TBits_1); inline;
- procedure setFEDGE(thebits : TBits_1); inline;
- procedure setICBNE(thebits : TBits_1); inline;
- procedure setICI(thebits : TBits_2); inline;
- procedure setICI0(thebits : TBits_1); inline;
- procedure setICI1(thebits : TBits_1); inline;
- procedure setICM(thebits : TBits_3); inline;
- procedure setICM0(thebits : TBits_1); inline;
- procedure setICM1(thebits : TBits_1); inline;
- procedure setICM2(thebits : TBits_1); inline;
- procedure setICOV(thebits : TBits_1); inline;
- procedure setICSIDL(thebits : TBits_1); inline;
- procedure setICTMR(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearC32; inline;
- procedure clearFEDGE; inline;
- procedure clearICBNE; inline;
- procedure clearICI0; inline;
- procedure clearICI1; inline;
- procedure clearICM0; inline;
- procedure clearICM1; inline;
- procedure clearICM2; inline;
- procedure clearICOV; inline;
- procedure clearICSIDL; inline;
- procedure clearICTMR; inline;
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setC32; inline;
- procedure setFEDGE; inline;
- procedure setICBNE; inline;
- procedure setICI0; inline;
- procedure setICI1; inline;
- procedure setICM0; inline;
- procedure setICM1; inline;
- procedure setICM2; inline;
- procedure setICOV; inline;
- procedure setICSIDL; inline;
- procedure setICTMR; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property C32 : TBits_1 read getC32 write setC32;
- property FEDGE : TBits_1 read getFEDGE write setFEDGE;
- property ICBNE : TBits_1 read getICBNE write setICBNE;
- property ICI : TBits_2 read getICI write setICI;
- property ICI0 : TBits_1 read getICI0 write setICI0;
- property ICI1 : TBits_1 read getICI1 write setICI1;
- property ICM : TBits_3 read getICM write setICM;
- property ICM0 : TBits_1 read getICM0 write setICM0;
- property ICM1 : TBits_1 read getICM1 write setICM1;
- property ICM2 : TBits_1 read getICM2 write setICM2;
- property ICOV : TBits_1 read getICOV write setICOV;
- property ICSIDL : TBits_1 read getICSIDL write setICSIDL;
- property ICTMR : TBits_1 read getICTMR write setICTMR;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TICAP1Registers = record
- IC1CONbits : TICAP1_IC1CON;
- IC1CON : longWord;
- IC1CONCLR : longWord;
- IC1CONSET : longWord;
- IC1CONINV : longWord;
- IC1BUF : longWord;
- end;
- TICAP2_IC2CON = record
- private
- function getC32 : TBits_1; inline;
- function getFEDGE : TBits_1; inline;
- function getICBNE : TBits_1; inline;
- function getICI : TBits_2; inline;
- function getICI0 : TBits_1; inline;
- function getICI1 : TBits_1; inline;
- function getICM : TBits_3; inline;
- function getICM0 : TBits_1; inline;
- function getICM1 : TBits_1; inline;
- function getICM2 : TBits_1; inline;
- function getICOV : TBits_1; inline;
- function getICSIDL : TBits_1; inline;
- function getICTMR : TBits_1; inline;
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setC32(thebits : TBits_1); inline;
- procedure setFEDGE(thebits : TBits_1); inline;
- procedure setICBNE(thebits : TBits_1); inline;
- procedure setICI(thebits : TBits_2); inline;
- procedure setICI0(thebits : TBits_1); inline;
- procedure setICI1(thebits : TBits_1); inline;
- procedure setICM(thebits : TBits_3); inline;
- procedure setICM0(thebits : TBits_1); inline;
- procedure setICM1(thebits : TBits_1); inline;
- procedure setICM2(thebits : TBits_1); inline;
- procedure setICOV(thebits : TBits_1); inline;
- procedure setICSIDL(thebits : TBits_1); inline;
- procedure setICTMR(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearC32; inline;
- procedure clearFEDGE; inline;
- procedure clearICBNE; inline;
- procedure clearICI0; inline;
- procedure clearICI1; inline;
- procedure clearICM0; inline;
- procedure clearICM1; inline;
- procedure clearICM2; inline;
- procedure clearICOV; inline;
- procedure clearICSIDL; inline;
- procedure clearICTMR; inline;
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setC32; inline;
- procedure setFEDGE; inline;
- procedure setICBNE; inline;
- procedure setICI0; inline;
- procedure setICI1; inline;
- procedure setICM0; inline;
- procedure setICM1; inline;
- procedure setICM2; inline;
- procedure setICOV; inline;
- procedure setICSIDL; inline;
- procedure setICTMR; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property C32 : TBits_1 read getC32 write setC32;
- property FEDGE : TBits_1 read getFEDGE write setFEDGE;
- property ICBNE : TBits_1 read getICBNE write setICBNE;
- property ICI : TBits_2 read getICI write setICI;
- property ICI0 : TBits_1 read getICI0 write setICI0;
- property ICI1 : TBits_1 read getICI1 write setICI1;
- property ICM : TBits_3 read getICM write setICM;
- property ICM0 : TBits_1 read getICM0 write setICM0;
- property ICM1 : TBits_1 read getICM1 write setICM1;
- property ICM2 : TBits_1 read getICM2 write setICM2;
- property ICOV : TBits_1 read getICOV write setICOV;
- property ICSIDL : TBits_1 read getICSIDL write setICSIDL;
- property ICTMR : TBits_1 read getICTMR write setICTMR;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TICAP2Registers = record
- IC2CONbits : TICAP2_IC2CON;
- IC2CON : longWord;
- IC2CONCLR : longWord;
- IC2CONSET : longWord;
- IC2CONINV : longWord;
- IC2BUF : longWord;
- end;
- TICAP3_IC3CON = record
- private
- function getC32 : TBits_1; inline;
- function getFEDGE : TBits_1; inline;
- function getICBNE : TBits_1; inline;
- function getICI : TBits_2; inline;
- function getICI0 : TBits_1; inline;
- function getICI1 : TBits_1; inline;
- function getICM : TBits_3; inline;
- function getICM0 : TBits_1; inline;
- function getICM1 : TBits_1; inline;
- function getICM2 : TBits_1; inline;
- function getICOV : TBits_1; inline;
- function getICSIDL : TBits_1; inline;
- function getICTMR : TBits_1; inline;
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setC32(thebits : TBits_1); inline;
- procedure setFEDGE(thebits : TBits_1); inline;
- procedure setICBNE(thebits : TBits_1); inline;
- procedure setICI(thebits : TBits_2); inline;
- procedure setICI0(thebits : TBits_1); inline;
- procedure setICI1(thebits : TBits_1); inline;
- procedure setICM(thebits : TBits_3); inline;
- procedure setICM0(thebits : TBits_1); inline;
- procedure setICM1(thebits : TBits_1); inline;
- procedure setICM2(thebits : TBits_1); inline;
- procedure setICOV(thebits : TBits_1); inline;
- procedure setICSIDL(thebits : TBits_1); inline;
- procedure setICTMR(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearC32; inline;
- procedure clearFEDGE; inline;
- procedure clearICBNE; inline;
- procedure clearICI0; inline;
- procedure clearICI1; inline;
- procedure clearICM0; inline;
- procedure clearICM1; inline;
- procedure clearICM2; inline;
- procedure clearICOV; inline;
- procedure clearICSIDL; inline;
- procedure clearICTMR; inline;
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setC32; inline;
- procedure setFEDGE; inline;
- procedure setICBNE; inline;
- procedure setICI0; inline;
- procedure setICI1; inline;
- procedure setICM0; inline;
- procedure setICM1; inline;
- procedure setICM2; inline;
- procedure setICOV; inline;
- procedure setICSIDL; inline;
- procedure setICTMR; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property C32 : TBits_1 read getC32 write setC32;
- property FEDGE : TBits_1 read getFEDGE write setFEDGE;
- property ICBNE : TBits_1 read getICBNE write setICBNE;
- property ICI : TBits_2 read getICI write setICI;
- property ICI0 : TBits_1 read getICI0 write setICI0;
- property ICI1 : TBits_1 read getICI1 write setICI1;
- property ICM : TBits_3 read getICM write setICM;
- property ICM0 : TBits_1 read getICM0 write setICM0;
- property ICM1 : TBits_1 read getICM1 write setICM1;
- property ICM2 : TBits_1 read getICM2 write setICM2;
- property ICOV : TBits_1 read getICOV write setICOV;
- property ICSIDL : TBits_1 read getICSIDL write setICSIDL;
- property ICTMR : TBits_1 read getICTMR write setICTMR;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TICAP3Registers = record
- IC3CONbits : TICAP3_IC3CON;
- IC3CON : longWord;
- IC3CONCLR : longWord;
- IC3CONSET : longWord;
- IC3CONINV : longWord;
- IC3BUF : longWord;
- end;
- TICAP4_IC4CON = record
- private
- function getC32 : TBits_1; inline;
- function getFEDGE : TBits_1; inline;
- function getICBNE : TBits_1; inline;
- function getICI : TBits_2; inline;
- function getICI0 : TBits_1; inline;
- function getICI1 : TBits_1; inline;
- function getICM : TBits_3; inline;
- function getICM0 : TBits_1; inline;
- function getICM1 : TBits_1; inline;
- function getICM2 : TBits_1; inline;
- function getICOV : TBits_1; inline;
- function getICSIDL : TBits_1; inline;
- function getICTMR : TBits_1; inline;
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setC32(thebits : TBits_1); inline;
- procedure setFEDGE(thebits : TBits_1); inline;
- procedure setICBNE(thebits : TBits_1); inline;
- procedure setICI(thebits : TBits_2); inline;
- procedure setICI0(thebits : TBits_1); inline;
- procedure setICI1(thebits : TBits_1); inline;
- procedure setICM(thebits : TBits_3); inline;
- procedure setICM0(thebits : TBits_1); inline;
- procedure setICM1(thebits : TBits_1); inline;
- procedure setICM2(thebits : TBits_1); inline;
- procedure setICOV(thebits : TBits_1); inline;
- procedure setICSIDL(thebits : TBits_1); inline;
- procedure setICTMR(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearC32; inline;
- procedure clearFEDGE; inline;
- procedure clearICBNE; inline;
- procedure clearICI0; inline;
- procedure clearICI1; inline;
- procedure clearICM0; inline;
- procedure clearICM1; inline;
- procedure clearICM2; inline;
- procedure clearICOV; inline;
- procedure clearICSIDL; inline;
- procedure clearICTMR; inline;
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setC32; inline;
- procedure setFEDGE; inline;
- procedure setICBNE; inline;
- procedure setICI0; inline;
- procedure setICI1; inline;
- procedure setICM0; inline;
- procedure setICM1; inline;
- procedure setICM2; inline;
- procedure setICOV; inline;
- procedure setICSIDL; inline;
- procedure setICTMR; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property C32 : TBits_1 read getC32 write setC32;
- property FEDGE : TBits_1 read getFEDGE write setFEDGE;
- property ICBNE : TBits_1 read getICBNE write setICBNE;
- property ICI : TBits_2 read getICI write setICI;
- property ICI0 : TBits_1 read getICI0 write setICI0;
- property ICI1 : TBits_1 read getICI1 write setICI1;
- property ICM : TBits_3 read getICM write setICM;
- property ICM0 : TBits_1 read getICM0 write setICM0;
- property ICM1 : TBits_1 read getICM1 write setICM1;
- property ICM2 : TBits_1 read getICM2 write setICM2;
- property ICOV : TBits_1 read getICOV write setICOV;
- property ICSIDL : TBits_1 read getICSIDL write setICSIDL;
- property ICTMR : TBits_1 read getICTMR write setICTMR;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TICAP4Registers = record
- IC4CONbits : TICAP4_IC4CON;
- IC4CON : longWord;
- IC4CONCLR : longWord;
- IC4CONSET : longWord;
- IC4CONINV : longWord;
- IC4BUF : longWord;
- end;
- TICAP5_IC5CON = record
- private
- function getC32 : TBits_1; inline;
- function getFEDGE : TBits_1; inline;
- function getICBNE : TBits_1; inline;
- function getICI : TBits_2; inline;
- function getICI0 : TBits_1; inline;
- function getICI1 : TBits_1; inline;
- function getICM : TBits_3; inline;
- function getICM0 : TBits_1; inline;
- function getICM1 : TBits_1; inline;
- function getICM2 : TBits_1; inline;
- function getICOV : TBits_1; inline;
- function getICSIDL : TBits_1; inline;
- function getICTMR : TBits_1; inline;
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setC32(thebits : TBits_1); inline;
- procedure setFEDGE(thebits : TBits_1); inline;
- procedure setICBNE(thebits : TBits_1); inline;
- procedure setICI(thebits : TBits_2); inline;
- procedure setICI0(thebits : TBits_1); inline;
- procedure setICI1(thebits : TBits_1); inline;
- procedure setICM(thebits : TBits_3); inline;
- procedure setICM0(thebits : TBits_1); inline;
- procedure setICM1(thebits : TBits_1); inline;
- procedure setICM2(thebits : TBits_1); inline;
- procedure setICOV(thebits : TBits_1); inline;
- procedure setICSIDL(thebits : TBits_1); inline;
- procedure setICTMR(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearC32; inline;
- procedure clearFEDGE; inline;
- procedure clearICBNE; inline;
- procedure clearICI0; inline;
- procedure clearICI1; inline;
- procedure clearICM0; inline;
- procedure clearICM1; inline;
- procedure clearICM2; inline;
- procedure clearICOV; inline;
- procedure clearICSIDL; inline;
- procedure clearICTMR; inline;
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setC32; inline;
- procedure setFEDGE; inline;
- procedure setICBNE; inline;
- procedure setICI0; inline;
- procedure setICI1; inline;
- procedure setICM0; inline;
- procedure setICM1; inline;
- procedure setICM2; inline;
- procedure setICOV; inline;
- procedure setICSIDL; inline;
- procedure setICTMR; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property C32 : TBits_1 read getC32 write setC32;
- property FEDGE : TBits_1 read getFEDGE write setFEDGE;
- property ICBNE : TBits_1 read getICBNE write setICBNE;
- property ICI : TBits_2 read getICI write setICI;
- property ICI0 : TBits_1 read getICI0 write setICI0;
- property ICI1 : TBits_1 read getICI1 write setICI1;
- property ICM : TBits_3 read getICM write setICM;
- property ICM0 : TBits_1 read getICM0 write setICM0;
- property ICM1 : TBits_1 read getICM1 write setICM1;
- property ICM2 : TBits_1 read getICM2 write setICM2;
- property ICOV : TBits_1 read getICOV write setICOV;
- property ICSIDL : TBits_1 read getICSIDL write setICSIDL;
- property ICTMR : TBits_1 read getICTMR write setICTMR;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TICAP5Registers = record
- IC5CONbits : TICAP5_IC5CON;
- IC5CON : longWord;
- IC5CONCLR : longWord;
- IC5CONSET : longWord;
- IC5CONINV : longWord;
- IC5BUF : longWord;
- end;
- TOCMP1_OC1CON = record
- private
- function getOC32 : TBits_1; inline;
- function getOCFLT : TBits_1; inline;
- function getOCM : TBits_3; inline;
- function getOCM0 : TBits_1; inline;
- function getOCM1 : TBits_1; inline;
- function getOCM2 : TBits_1; inline;
- function getOCSIDL : TBits_1; inline;
- function getOCTSEL : TBits_1; inline;
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setOC32(thebits : TBits_1); inline;
- procedure setOCFLT(thebits : TBits_1); inline;
- procedure setOCM(thebits : TBits_3); inline;
- procedure setOCM0(thebits : TBits_1); inline;
- procedure setOCM1(thebits : TBits_1); inline;
- procedure setOCM2(thebits : TBits_1); inline;
- procedure setOCSIDL(thebits : TBits_1); inline;
- procedure setOCTSEL(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearOC32; inline;
- procedure clearOCFLT; inline;
- procedure clearOCM0; inline;
- procedure clearOCM1; inline;
- procedure clearOCM2; inline;
- procedure clearOCSIDL; inline;
- procedure clearOCTSEL; inline;
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setOC32; inline;
- procedure setOCFLT; inline;
- procedure setOCM0; inline;
- procedure setOCM1; inline;
- procedure setOCM2; inline;
- procedure setOCSIDL; inline;
- procedure setOCTSEL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property OC32 : TBits_1 read getOC32 write setOC32;
- property OCFLT : TBits_1 read getOCFLT write setOCFLT;
- property OCM : TBits_3 read getOCM write setOCM;
- property OCM0 : TBits_1 read getOCM0 write setOCM0;
- property OCM1 : TBits_1 read getOCM1 write setOCM1;
- property OCM2 : TBits_1 read getOCM2 write setOCM2;
- property OCSIDL : TBits_1 read getOCSIDL write setOCSIDL;
- property OCTSEL : TBits_1 read getOCTSEL write setOCTSEL;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TOCMP1Registers = record
- OC1CONbits : TOCMP1_OC1CON;
- OC1CON : longWord;
- OC1CONCLR : longWord;
- OC1CONSET : longWord;
- OC1CONINV : longWord;
- OC1R : longWord;
- OC1RCLR : longWord;
- OC1RSET : longWord;
- OC1RINV : longWord;
- OC1RS : longWord;
- OC1RSCLR : longWord;
- OC1RSSET : longWord;
- OC1RSINV : longWord;
- end;
- TOCMP2_OC2CON = record
- private
- function getOC32 : TBits_1; inline;
- function getOCFLT : TBits_1; inline;
- function getOCM : TBits_3; inline;
- function getOCM0 : TBits_1; inline;
- function getOCM1 : TBits_1; inline;
- function getOCM2 : TBits_1; inline;
- function getOCSIDL : TBits_1; inline;
- function getOCTSEL : TBits_1; inline;
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setOC32(thebits : TBits_1); inline;
- procedure setOCFLT(thebits : TBits_1); inline;
- procedure setOCM(thebits : TBits_3); inline;
- procedure setOCM0(thebits : TBits_1); inline;
- procedure setOCM1(thebits : TBits_1); inline;
- procedure setOCM2(thebits : TBits_1); inline;
- procedure setOCSIDL(thebits : TBits_1); inline;
- procedure setOCTSEL(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearOC32; inline;
- procedure clearOCFLT; inline;
- procedure clearOCM0; inline;
- procedure clearOCM1; inline;
- procedure clearOCM2; inline;
- procedure clearOCSIDL; inline;
- procedure clearOCTSEL; inline;
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setOC32; inline;
- procedure setOCFLT; inline;
- procedure setOCM0; inline;
- procedure setOCM1; inline;
- procedure setOCM2; inline;
- procedure setOCSIDL; inline;
- procedure setOCTSEL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property OC32 : TBits_1 read getOC32 write setOC32;
- property OCFLT : TBits_1 read getOCFLT write setOCFLT;
- property OCM : TBits_3 read getOCM write setOCM;
- property OCM0 : TBits_1 read getOCM0 write setOCM0;
- property OCM1 : TBits_1 read getOCM1 write setOCM1;
- property OCM2 : TBits_1 read getOCM2 write setOCM2;
- property OCSIDL : TBits_1 read getOCSIDL write setOCSIDL;
- property OCTSEL : TBits_1 read getOCTSEL write setOCTSEL;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TOCMP2Registers = record
- OC2CONbits : TOCMP2_OC2CON;
- OC2CON : longWord;
- OC2CONCLR : longWord;
- OC2CONSET : longWord;
- OC2CONINV : longWord;
- OC2R : longWord;
- OC2RCLR : longWord;
- OC2RSET : longWord;
- OC2RINV : longWord;
- OC2RS : longWord;
- OC2RSCLR : longWord;
- OC2RSSET : longWord;
- OC2RSINV : longWord;
- end;
- TOCMP3_OC3CON = record
- private
- function getOC32 : TBits_1; inline;
- function getOCFLT : TBits_1; inline;
- function getOCM : TBits_3; inline;
- function getOCM0 : TBits_1; inline;
- function getOCM1 : TBits_1; inline;
- function getOCM2 : TBits_1; inline;
- function getOCSIDL : TBits_1; inline;
- function getOCTSEL : TBits_1; inline;
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setOC32(thebits : TBits_1); inline;
- procedure setOCFLT(thebits : TBits_1); inline;
- procedure setOCM(thebits : TBits_3); inline;
- procedure setOCM0(thebits : TBits_1); inline;
- procedure setOCM1(thebits : TBits_1); inline;
- procedure setOCM2(thebits : TBits_1); inline;
- procedure setOCSIDL(thebits : TBits_1); inline;
- procedure setOCTSEL(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearOC32; inline;
- procedure clearOCFLT; inline;
- procedure clearOCM0; inline;
- procedure clearOCM1; inline;
- procedure clearOCM2; inline;
- procedure clearOCSIDL; inline;
- procedure clearOCTSEL; inline;
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setOC32; inline;
- procedure setOCFLT; inline;
- procedure setOCM0; inline;
- procedure setOCM1; inline;
- procedure setOCM2; inline;
- procedure setOCSIDL; inline;
- procedure setOCTSEL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property OC32 : TBits_1 read getOC32 write setOC32;
- property OCFLT : TBits_1 read getOCFLT write setOCFLT;
- property OCM : TBits_3 read getOCM write setOCM;
- property OCM0 : TBits_1 read getOCM0 write setOCM0;
- property OCM1 : TBits_1 read getOCM1 write setOCM1;
- property OCM2 : TBits_1 read getOCM2 write setOCM2;
- property OCSIDL : TBits_1 read getOCSIDL write setOCSIDL;
- property OCTSEL : TBits_1 read getOCTSEL write setOCTSEL;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TOCMP3Registers = record
- OC3CONbits : TOCMP3_OC3CON;
- OC3CON : longWord;
- OC3CONCLR : longWord;
- OC3CONSET : longWord;
- OC3CONINV : longWord;
- OC3R : longWord;
- OC3RCLR : longWord;
- OC3RSET : longWord;
- OC3RINV : longWord;
- OC3RS : longWord;
- OC3RSCLR : longWord;
- OC3RSSET : longWord;
- OC3RSINV : longWord;
- end;
- TOCMP4_OC4CON = record
- private
- function getOC32 : TBits_1; inline;
- function getOCFLT : TBits_1; inline;
- function getOCM : TBits_3; inline;
- function getOCM0 : TBits_1; inline;
- function getOCM1 : TBits_1; inline;
- function getOCM2 : TBits_1; inline;
- function getOCSIDL : TBits_1; inline;
- function getOCTSEL : TBits_1; inline;
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setOC32(thebits : TBits_1); inline;
- procedure setOCFLT(thebits : TBits_1); inline;
- procedure setOCM(thebits : TBits_3); inline;
- procedure setOCM0(thebits : TBits_1); inline;
- procedure setOCM1(thebits : TBits_1); inline;
- procedure setOCM2(thebits : TBits_1); inline;
- procedure setOCSIDL(thebits : TBits_1); inline;
- procedure setOCTSEL(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearOC32; inline;
- procedure clearOCFLT; inline;
- procedure clearOCM0; inline;
- procedure clearOCM1; inline;
- procedure clearOCM2; inline;
- procedure clearOCSIDL; inline;
- procedure clearOCTSEL; inline;
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setOC32; inline;
- procedure setOCFLT; inline;
- procedure setOCM0; inline;
- procedure setOCM1; inline;
- procedure setOCM2; inline;
- procedure setOCSIDL; inline;
- procedure setOCTSEL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property OC32 : TBits_1 read getOC32 write setOC32;
- property OCFLT : TBits_1 read getOCFLT write setOCFLT;
- property OCM : TBits_3 read getOCM write setOCM;
- property OCM0 : TBits_1 read getOCM0 write setOCM0;
- property OCM1 : TBits_1 read getOCM1 write setOCM1;
- property OCM2 : TBits_1 read getOCM2 write setOCM2;
- property OCSIDL : TBits_1 read getOCSIDL write setOCSIDL;
- property OCTSEL : TBits_1 read getOCTSEL write setOCTSEL;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TOCMP4Registers = record
- OC4CONbits : TOCMP4_OC4CON;
- OC4CON : longWord;
- OC4CONCLR : longWord;
- OC4CONSET : longWord;
- OC4CONINV : longWord;
- OC4R : longWord;
- OC4RCLR : longWord;
- OC4RSET : longWord;
- OC4RINV : longWord;
- OC4RS : longWord;
- OC4RSCLR : longWord;
- OC4RSSET : longWord;
- OC4RSINV : longWord;
- end;
- TOCMP5_OC5CON = record
- private
- function getOC32 : TBits_1; inline;
- function getOCFLT : TBits_1; inline;
- function getOCM : TBits_3; inline;
- function getOCM0 : TBits_1; inline;
- function getOCM1 : TBits_1; inline;
- function getOCM2 : TBits_1; inline;
- function getOCSIDL : TBits_1; inline;
- function getOCTSEL : TBits_1; inline;
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setOC32(thebits : TBits_1); inline;
- procedure setOCFLT(thebits : TBits_1); inline;
- procedure setOCM(thebits : TBits_3); inline;
- procedure setOCM0(thebits : TBits_1); inline;
- procedure setOCM1(thebits : TBits_1); inline;
- procedure setOCM2(thebits : TBits_1); inline;
- procedure setOCSIDL(thebits : TBits_1); inline;
- procedure setOCTSEL(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearOC32; inline;
- procedure clearOCFLT; inline;
- procedure clearOCM0; inline;
- procedure clearOCM1; inline;
- procedure clearOCM2; inline;
- procedure clearOCSIDL; inline;
- procedure clearOCTSEL; inline;
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setOC32; inline;
- procedure setOCFLT; inline;
- procedure setOCM0; inline;
- procedure setOCM1; inline;
- procedure setOCM2; inline;
- procedure setOCSIDL; inline;
- procedure setOCTSEL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property OC32 : TBits_1 read getOC32 write setOC32;
- property OCFLT : TBits_1 read getOCFLT write setOCFLT;
- property OCM : TBits_3 read getOCM write setOCM;
- property OCM0 : TBits_1 read getOCM0 write setOCM0;
- property OCM1 : TBits_1 read getOCM1 write setOCM1;
- property OCM2 : TBits_1 read getOCM2 write setOCM2;
- property OCSIDL : TBits_1 read getOCSIDL write setOCSIDL;
- property OCTSEL : TBits_1 read getOCTSEL write setOCTSEL;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TOCMP5Registers = record
- OC5CONbits : TOCMP5_OC5CON;
- OC5CON : longWord;
- OC5CONCLR : longWord;
- OC5CONSET : longWord;
- OC5CONINV : longWord;
- OC5R : longWord;
- OC5RCLR : longWord;
- OC5RSET : longWord;
- OC5RINV : longWord;
- OC5RS : longWord;
- OC5RSCLR : longWord;
- OC5RSSET : longWord;
- OC5RSINV : longWord;
- end;
- TI2C1_I2C1111CON = record
- private
- function getA10M : TBits_1; inline;
- function getACKDT : TBits_1; inline;
- function getACKEN : TBits_1; inline;
- function getDISSLW : TBits_1; inline;
- function getGCEN : TBits_1; inline;
- function getI2CEN : TBits_1; inline;
- function getI2CSIDL : TBits_1; inline;
- function getIPMIEN : TBits_1; inline;
- function getON : TBits_1; inline;
- function getPEN : TBits_1; inline;
- function getRCEN : TBits_1; inline;
- function getRSEN : TBits_1; inline;
- function getSCLREL : TBits_1; inline;
- function getSEN : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSMEN : TBits_1; inline;
- function getSTREN : TBits_1; inline;
- function getSTRICT : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setA10M(thebits : TBits_1); inline;
- procedure setACKDT(thebits : TBits_1); inline;
- procedure setACKEN(thebits : TBits_1); inline;
- procedure setDISSLW(thebits : TBits_1); inline;
- procedure setGCEN(thebits : TBits_1); inline;
- procedure setI2CEN(thebits : TBits_1); inline;
- procedure setI2CSIDL(thebits : TBits_1); inline;
- procedure setIPMIEN(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setPEN(thebits : TBits_1); inline;
- procedure setRCEN(thebits : TBits_1); inline;
- procedure setRSEN(thebits : TBits_1); inline;
- procedure setSCLREL(thebits : TBits_1); inline;
- procedure setSEN(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSMEN(thebits : TBits_1); inline;
- procedure setSTREN(thebits : TBits_1); inline;
- procedure setSTRICT(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearA10M; inline;
- procedure clearACKDT; inline;
- procedure clearACKEN; inline;
- procedure clearDISSLW; inline;
- procedure clearGCEN; inline;
- procedure clearI2CEN; inline;
- procedure clearI2CSIDL; inline;
- procedure clearIPMIEN; inline;
- procedure clearON; inline;
- procedure clearPEN; inline;
- procedure clearRCEN; inline;
- procedure clearRSEN; inline;
- procedure clearSCLREL; inline;
- procedure clearSEN; inline;
- procedure clearSIDL; inline;
- procedure clearSMEN; inline;
- procedure clearSTREN; inline;
- procedure clearSTRICT; inline;
- procedure setA10M; inline;
- procedure setACKDT; inline;
- procedure setACKEN; inline;
- procedure setDISSLW; inline;
- procedure setGCEN; inline;
- procedure setI2CEN; inline;
- procedure setI2CSIDL; inline;
- procedure setIPMIEN; inline;
- procedure setON; inline;
- procedure setPEN; inline;
- procedure setRCEN; inline;
- procedure setRSEN; inline;
- procedure setSCLREL; inline;
- procedure setSEN; inline;
- procedure setSIDL; inline;
- procedure setSMEN; inline;
- procedure setSTREN; inline;
- procedure setSTRICT; inline;
- property A10M : TBits_1 read getA10M write setA10M;
- property ACKDT : TBits_1 read getACKDT write setACKDT;
- property ACKEN : TBits_1 read getACKEN write setACKEN;
- property DISSLW : TBits_1 read getDISSLW write setDISSLW;
- property GCEN : TBits_1 read getGCEN write setGCEN;
- property I2CEN : TBits_1 read getI2CEN write setI2CEN;
- property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
- property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
- property ON : TBits_1 read getON write setON;
- property PEN : TBits_1 read getPEN write setPEN;
- property RCEN : TBits_1 read getRCEN write setRCEN;
- property RSEN : TBits_1 read getRSEN write setRSEN;
- property SCLREL : TBits_1 read getSCLREL write setSCLREL;
- property SEN : TBits_1 read getSEN write setSEN;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property SMEN : TBits_1 read getSMEN write setSMEN;
- property STREN : TBits_1 read getSTREN write setSTREN;
- property STRICT : TBits_1 read getSTRICT write setSTRICT;
- property w : TBits_32 read getw write setw;
- end;
- TI2C1_I2C1CON = record
- private
- function getA10M : TBits_1; inline;
- function getACKDT : TBits_1; inline;
- function getACKEN : TBits_1; inline;
- function getDISSLW : TBits_1; inline;
- function getGCEN : TBits_1; inline;
- function getI2CEN : TBits_1; inline;
- function getI2CSIDL : TBits_1; inline;
- function getIPMIEN : TBits_1; inline;
- function getON : TBits_1; inline;
- function getPEN : TBits_1; inline;
- function getRCEN : TBits_1; inline;
- function getRSEN : TBits_1; inline;
- function getSCLREL : TBits_1; inline;
- function getSEN : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSMEN : TBits_1; inline;
- function getSTREN : TBits_1; inline;
- function getSTRICT : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setA10M(thebits : TBits_1); inline;
- procedure setACKDT(thebits : TBits_1); inline;
- procedure setACKEN(thebits : TBits_1); inline;
- procedure setDISSLW(thebits : TBits_1); inline;
- procedure setGCEN(thebits : TBits_1); inline;
- procedure setI2CEN(thebits : TBits_1); inline;
- procedure setI2CSIDL(thebits : TBits_1); inline;
- procedure setIPMIEN(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setPEN(thebits : TBits_1); inline;
- procedure setRCEN(thebits : TBits_1); inline;
- procedure setRSEN(thebits : TBits_1); inline;
- procedure setSCLREL(thebits : TBits_1); inline;
- procedure setSEN(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSMEN(thebits : TBits_1); inline;
- procedure setSTREN(thebits : TBits_1); inline;
- procedure setSTRICT(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearA10M; inline;
- procedure clearACKDT; inline;
- procedure clearACKEN; inline;
- procedure clearDISSLW; inline;
- procedure clearGCEN; inline;
- procedure clearI2CEN; inline;
- procedure clearI2CSIDL; inline;
- procedure clearIPMIEN; inline;
- procedure clearON; inline;
- procedure clearPEN; inline;
- procedure clearRCEN; inline;
- procedure clearRSEN; inline;
- procedure clearSCLREL; inline;
- procedure clearSEN; inline;
- procedure clearSIDL; inline;
- procedure clearSMEN; inline;
- procedure clearSTREN; inline;
- procedure clearSTRICT; inline;
- procedure setA10M; inline;
- procedure setACKDT; inline;
- procedure setACKEN; inline;
- procedure setDISSLW; inline;
- procedure setGCEN; inline;
- procedure setI2CEN; inline;
- procedure setI2CSIDL; inline;
- procedure setIPMIEN; inline;
- procedure setON; inline;
- procedure setPEN; inline;
- procedure setRCEN; inline;
- procedure setRSEN; inline;
- procedure setSCLREL; inline;
- procedure setSEN; inline;
- procedure setSIDL; inline;
- procedure setSMEN; inline;
- procedure setSTREN; inline;
- procedure setSTRICT; inline;
- property A10M : TBits_1 read getA10M write setA10M;
- property ACKDT : TBits_1 read getACKDT write setACKDT;
- property ACKEN : TBits_1 read getACKEN write setACKEN;
- property DISSLW : TBits_1 read getDISSLW write setDISSLW;
- property GCEN : TBits_1 read getGCEN write setGCEN;
- property I2CEN : TBits_1 read getI2CEN write setI2CEN;
- property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
- property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
- property ON : TBits_1 read getON write setON;
- property PEN : TBits_1 read getPEN write setPEN;
- property RCEN : TBits_1 read getRCEN write setRCEN;
- property RSEN : TBits_1 read getRSEN write setRSEN;
- property SCLREL : TBits_1 read getSCLREL write setSCLREL;
- property SEN : TBits_1 read getSEN write setSEN;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property SMEN : TBits_1 read getSMEN write setSMEN;
- property STREN : TBits_1 read getSTREN write setSTREN;
- property STRICT : TBits_1 read getSTRICT write setSTRICT;
- property w : TBits_32 read getw write setw;
- end;
- TI2C1_I2C1111STAT = record
- private
- function getACKSTAT : TBits_1; inline;
- function getADD10 : TBits_1; inline;
- function getBCL : TBits_1; inline;
- function getD_A : TBits_1; inline;
- function getGCSTAT : TBits_1; inline;
- function getI2COV : TBits_1; inline;
- function getI2CPOV : TBits_1; inline;
- function getIWCOL : TBits_1; inline;
- function getP : TBits_1; inline;
- function getRBF : TBits_1; inline;
- function getR_W : TBits_1; inline;
- function getS : TBits_1; inline;
- function getTBF : TBits_1; inline;
- function getTRSTAT : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setACKSTAT(thebits : TBits_1); inline;
- procedure setADD10(thebits : TBits_1); inline;
- procedure setBCL(thebits : TBits_1); inline;
- procedure setD_A(thebits : TBits_1); inline;
- procedure setGCSTAT(thebits : TBits_1); inline;
- procedure setI2COV(thebits : TBits_1); inline;
- procedure setI2CPOV(thebits : TBits_1); inline;
- procedure setIWCOL(thebits : TBits_1); inline;
- procedure setP(thebits : TBits_1); inline;
- procedure setRBF(thebits : TBits_1); inline;
- procedure setR_W(thebits : TBits_1); inline;
- procedure setS(thebits : TBits_1); inline;
- procedure setTBF(thebits : TBits_1); inline;
- procedure setTRSTAT(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearACKSTAT; inline;
- procedure clearADD10; inline;
- procedure clearBCL; inline;
- procedure clearD_A; inline;
- procedure clearGCSTAT; inline;
- procedure clearI2COV; inline;
- procedure clearI2CPOV; inline;
- procedure clearIWCOL; inline;
- procedure clearP; inline;
- procedure clearRBF; inline;
- procedure clearR_W; inline;
- procedure clearS; inline;
- procedure clearTBF; inline;
- procedure clearTRSTAT; inline;
- procedure setACKSTAT; inline;
- procedure setADD10; inline;
- procedure setBCL; inline;
- procedure setD_A; inline;
- procedure setGCSTAT; inline;
- procedure setI2COV; inline;
- procedure setI2CPOV; inline;
- procedure setIWCOL; inline;
- procedure setP; inline;
- procedure setRBF; inline;
- procedure setR_W; inline;
- procedure setS; inline;
- procedure setTBF; inline;
- procedure setTRSTAT; inline;
- property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
- property ADD10 : TBits_1 read getADD10 write setADD10;
- property BCL : TBits_1 read getBCL write setBCL;
- property D_A : TBits_1 read getD_A write setD_A;
- property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
- property I2COV : TBits_1 read getI2COV write setI2COV;
- property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
- property IWCOL : TBits_1 read getIWCOL write setIWCOL;
- property P : TBits_1 read getP write setP;
- property RBF : TBits_1 read getRBF write setRBF;
- property R_W : TBits_1 read getR_W write setR_W;
- property S : TBits_1 read getS write setS;
- property TBF : TBits_1 read getTBF write setTBF;
- property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
- property w : TBits_32 read getw write setw;
- end;
- TI2C1_I2C1STAT = record
- private
- function getACKSTAT : TBits_1; inline;
- function getADD10 : TBits_1; inline;
- function getBCL : TBits_1; inline;
- function getD_A : TBits_1; inline;
- function getGCSTAT : TBits_1; inline;
- function getI2COV : TBits_1; inline;
- function getI2CPOV : TBits_1; inline;
- function getIWCOL : TBits_1; inline;
- function getP : TBits_1; inline;
- function getRBF : TBits_1; inline;
- function getR_W : TBits_1; inline;
- function getS : TBits_1; inline;
- function getTBF : TBits_1; inline;
- function getTRSTAT : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setACKSTAT(thebits : TBits_1); inline;
- procedure setADD10(thebits : TBits_1); inline;
- procedure setBCL(thebits : TBits_1); inline;
- procedure setD_A(thebits : TBits_1); inline;
- procedure setGCSTAT(thebits : TBits_1); inline;
- procedure setI2COV(thebits : TBits_1); inline;
- procedure setI2CPOV(thebits : TBits_1); inline;
- procedure setIWCOL(thebits : TBits_1); inline;
- procedure setP(thebits : TBits_1); inline;
- procedure setRBF(thebits : TBits_1); inline;
- procedure setR_W(thebits : TBits_1); inline;
- procedure setS(thebits : TBits_1); inline;
- procedure setTBF(thebits : TBits_1); inline;
- procedure setTRSTAT(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearACKSTAT; inline;
- procedure clearADD10; inline;
- procedure clearBCL; inline;
- procedure clearD_A; inline;
- procedure clearGCSTAT; inline;
- procedure clearI2COV; inline;
- procedure clearI2CPOV; inline;
- procedure clearIWCOL; inline;
- procedure clearP; inline;
- procedure clearRBF; inline;
- procedure clearR_W; inline;
- procedure clearS; inline;
- procedure clearTBF; inline;
- procedure clearTRSTAT; inline;
- procedure setACKSTAT; inline;
- procedure setADD10; inline;
- procedure setBCL; inline;
- procedure setD_A; inline;
- procedure setGCSTAT; inline;
- procedure setI2COV; inline;
- procedure setI2CPOV; inline;
- procedure setIWCOL; inline;
- procedure setP; inline;
- procedure setRBF; inline;
- procedure setR_W; inline;
- procedure setS; inline;
- procedure setTBF; inline;
- procedure setTRSTAT; inline;
- property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
- property ADD10 : TBits_1 read getADD10 write setADD10;
- property BCL : TBits_1 read getBCL write setBCL;
- property D_A : TBits_1 read getD_A write setD_A;
- property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
- property I2COV : TBits_1 read getI2COV write setI2COV;
- property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
- property IWCOL : TBits_1 read getIWCOL write setIWCOL;
- property P : TBits_1 read getP write setP;
- property RBF : TBits_1 read getRBF write setRBF;
- property R_W : TBits_1 read getR_W write setR_W;
- property S : TBits_1 read getS write setS;
- property TBF : TBits_1 read getTBF write setTBF;
- property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
- property w : TBits_32 read getw write setw;
- end;
- type
- TI2C1Registers = record
- I2C1111CONbits : TI2C1_I2C1111CON;
- I2C1111CON : longWord;
- I2C1CONbits : TI2C1_I2C1CON;
- I2C1CON : longWord;
- I2C1111CONCLR : longWord;
- I2C1CONCLR : longWord;
- I2C1111CONSET : longWord;
- I2C1CONSET : longWord;
- I2C1111CONINV : longWord;
- I2C1CONINV : longWord;
- I2C1111STATbits : TI2C1_I2C1111STAT;
- I2C1111STAT : longWord;
- I2C1STATbits : TI2C1_I2C1STAT;
- I2C1STAT : longWord;
- I2C1111STATCLR : longWord;
- I2C1STATCLR : longWord;
- I2C1111STATSET : longWord;
- I2C1STATSET : longWord;
- I2C1111STATINV : longWord;
- I2C1STATINV : longWord;
- I2C1111ADD : longWord;
- I2C1ADD : longWord;
- I2C1111ADDCLR : longWord;
- I2C1ADDCLR : longWord;
- I2C1111ADDSET : longWord;
- I2C1ADDSET : longWord;
- I2C1111ADDINV : longWord;
- I2C1ADDINV : longWord;
- I2C1111MSK : longWord;
- I2C1MSK : longWord;
- I2C1111MSKCLR : longWord;
- I2C1MSKCLR : longWord;
- I2C1111MSKSET : longWord;
- I2C1MSKSET : longWord;
- I2C1111MSKINV : longWord;
- I2C1MSKINV : longWord;
- I2C1111BRG : longWord;
- I2C1BRG : longWord;
- I2C1111BRGCLR : longWord;
- I2C1BRGCLR : longWord;
- I2C1111BRGSET : longWord;
- I2C1BRGSET : longWord;
- I2C1111BRGINV : longWord;
- I2C1BRGINV : longWord;
- I2C1111TRN : longWord;
- I2C1TRN : longWord;
- I2C1111TRNCLR : longWord;
- I2C1TRNCLR : longWord;
- I2C1111TRNSET : longWord;
- I2C1TRNSET : longWord;
- I2C1111TRNINV : longWord;
- I2C1TRNINV : longWord;
- I2C1111RCV : longWord;
- I2C1RCV : longWord;
- end;
- TI2C2_I2C2CON = record
- private
- function getA10M : TBits_1; inline;
- function getACKDT : TBits_1; inline;
- function getACKEN : TBits_1; inline;
- function getDISSLW : TBits_1; inline;
- function getGCEN : TBits_1; inline;
- function getI2CEN : TBits_1; inline;
- function getI2CSIDL : TBits_1; inline;
- function getIPMIEN : TBits_1; inline;
- function getON : TBits_1; inline;
- function getPEN : TBits_1; inline;
- function getRCEN : TBits_1; inline;
- function getRSEN : TBits_1; inline;
- function getSCLREL : TBits_1; inline;
- function getSEN : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSMEN : TBits_1; inline;
- function getSTREN : TBits_1; inline;
- function getSTRICT : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setA10M(thebits : TBits_1); inline;
- procedure setACKDT(thebits : TBits_1); inline;
- procedure setACKEN(thebits : TBits_1); inline;
- procedure setDISSLW(thebits : TBits_1); inline;
- procedure setGCEN(thebits : TBits_1); inline;
- procedure setI2CEN(thebits : TBits_1); inline;
- procedure setI2CSIDL(thebits : TBits_1); inline;
- procedure setIPMIEN(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setPEN(thebits : TBits_1); inline;
- procedure setRCEN(thebits : TBits_1); inline;
- procedure setRSEN(thebits : TBits_1); inline;
- procedure setSCLREL(thebits : TBits_1); inline;
- procedure setSEN(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSMEN(thebits : TBits_1); inline;
- procedure setSTREN(thebits : TBits_1); inline;
- procedure setSTRICT(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearA10M; inline;
- procedure clearACKDT; inline;
- procedure clearACKEN; inline;
- procedure clearDISSLW; inline;
- procedure clearGCEN; inline;
- procedure clearI2CEN; inline;
- procedure clearI2CSIDL; inline;
- procedure clearIPMIEN; inline;
- procedure clearON; inline;
- procedure clearPEN; inline;
- procedure clearRCEN; inline;
- procedure clearRSEN; inline;
- procedure clearSCLREL; inline;
- procedure clearSEN; inline;
- procedure clearSIDL; inline;
- procedure clearSMEN; inline;
- procedure clearSTREN; inline;
- procedure clearSTRICT; inline;
- procedure setA10M; inline;
- procedure setACKDT; inline;
- procedure setACKEN; inline;
- procedure setDISSLW; inline;
- procedure setGCEN; inline;
- procedure setI2CEN; inline;
- procedure setI2CSIDL; inline;
- procedure setIPMIEN; inline;
- procedure setON; inline;
- procedure setPEN; inline;
- procedure setRCEN; inline;
- procedure setRSEN; inline;
- procedure setSCLREL; inline;
- procedure setSEN; inline;
- procedure setSIDL; inline;
- procedure setSMEN; inline;
- procedure setSTREN; inline;
- procedure setSTRICT; inline;
- property A10M : TBits_1 read getA10M write setA10M;
- property ACKDT : TBits_1 read getACKDT write setACKDT;
- property ACKEN : TBits_1 read getACKEN write setACKEN;
- property DISSLW : TBits_1 read getDISSLW write setDISSLW;
- property GCEN : TBits_1 read getGCEN write setGCEN;
- property I2CEN : TBits_1 read getI2CEN write setI2CEN;
- property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
- property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
- property ON : TBits_1 read getON write setON;
- property PEN : TBits_1 read getPEN write setPEN;
- property RCEN : TBits_1 read getRCEN write setRCEN;
- property RSEN : TBits_1 read getRSEN write setRSEN;
- property SCLREL : TBits_1 read getSCLREL write setSCLREL;
- property SEN : TBits_1 read getSEN write setSEN;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property SMEN : TBits_1 read getSMEN write setSMEN;
- property STREN : TBits_1 read getSTREN write setSTREN;
- property STRICT : TBits_1 read getSTRICT write setSTRICT;
- property w : TBits_32 read getw write setw;
- end;
- TI2C2_I2CABCON = record
- private
- function getA10M : TBits_1; inline;
- function getACKDT : TBits_1; inline;
- function getACKEN : TBits_1; inline;
- function getDISSLW : TBits_1; inline;
- function getGCEN : TBits_1; inline;
- function getI2CEN : TBits_1; inline;
- function getI2CSIDL : TBits_1; inline;
- function getIPMIEN : TBits_1; inline;
- function getON : TBits_1; inline;
- function getPEN : TBits_1; inline;
- function getRCEN : TBits_1; inline;
- function getRSEN : TBits_1; inline;
- function getSCLREL : TBits_1; inline;
- function getSEN : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSMEN : TBits_1; inline;
- function getSTREN : TBits_1; inline;
- function getSTRICT : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setA10M(thebits : TBits_1); inline;
- procedure setACKDT(thebits : TBits_1); inline;
- procedure setACKEN(thebits : TBits_1); inline;
- procedure setDISSLW(thebits : TBits_1); inline;
- procedure setGCEN(thebits : TBits_1); inline;
- procedure setI2CEN(thebits : TBits_1); inline;
- procedure setI2CSIDL(thebits : TBits_1); inline;
- procedure setIPMIEN(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setPEN(thebits : TBits_1); inline;
- procedure setRCEN(thebits : TBits_1); inline;
- procedure setRSEN(thebits : TBits_1); inline;
- procedure setSCLREL(thebits : TBits_1); inline;
- procedure setSEN(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSMEN(thebits : TBits_1); inline;
- procedure setSTREN(thebits : TBits_1); inline;
- procedure setSTRICT(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearA10M; inline;
- procedure clearACKDT; inline;
- procedure clearACKEN; inline;
- procedure clearDISSLW; inline;
- procedure clearGCEN; inline;
- procedure clearI2CEN; inline;
- procedure clearI2CSIDL; inline;
- procedure clearIPMIEN; inline;
- procedure clearON; inline;
- procedure clearPEN; inline;
- procedure clearRCEN; inline;
- procedure clearRSEN; inline;
- procedure clearSCLREL; inline;
- procedure clearSEN; inline;
- procedure clearSIDL; inline;
- procedure clearSMEN; inline;
- procedure clearSTREN; inline;
- procedure clearSTRICT; inline;
- procedure setA10M; inline;
- procedure setACKDT; inline;
- procedure setACKEN; inline;
- procedure setDISSLW; inline;
- procedure setGCEN; inline;
- procedure setI2CEN; inline;
- procedure setI2CSIDL; inline;
- procedure setIPMIEN; inline;
- procedure setON; inline;
- procedure setPEN; inline;
- procedure setRCEN; inline;
- procedure setRSEN; inline;
- procedure setSCLREL; inline;
- procedure setSEN; inline;
- procedure setSIDL; inline;
- procedure setSMEN; inline;
- procedure setSTREN; inline;
- procedure setSTRICT; inline;
- property A10M : TBits_1 read getA10M write setA10M;
- property ACKDT : TBits_1 read getACKDT write setACKDT;
- property ACKEN : TBits_1 read getACKEN write setACKEN;
- property DISSLW : TBits_1 read getDISSLW write setDISSLW;
- property GCEN : TBits_1 read getGCEN write setGCEN;
- property I2CEN : TBits_1 read getI2CEN write setI2CEN;
- property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
- property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
- property ON : TBits_1 read getON write setON;
- property PEN : TBits_1 read getPEN write setPEN;
- property RCEN : TBits_1 read getRCEN write setRCEN;
- property RSEN : TBits_1 read getRSEN write setRSEN;
- property SCLREL : TBits_1 read getSCLREL write setSCLREL;
- property SEN : TBits_1 read getSEN write setSEN;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property SMEN : TBits_1 read getSMEN write setSMEN;
- property STREN : TBits_1 read getSTREN write setSTREN;
- property STRICT : TBits_1 read getSTRICT write setSTRICT;
- property w : TBits_32 read getw write setw;
- end;
- TI2C2_I2C2STAT = record
- private
- function getACKSTAT : TBits_1; inline;
- function getADD10 : TBits_1; inline;
- function getBCL : TBits_1; inline;
- function getD_A : TBits_1; inline;
- function getGCSTAT : TBits_1; inline;
- function getI2COV : TBits_1; inline;
- function getI2CPOV : TBits_1; inline;
- function getIWCOL : TBits_1; inline;
- function getP : TBits_1; inline;
- function getRBF : TBits_1; inline;
- function getR_W : TBits_1; inline;
- function getS : TBits_1; inline;
- function getTBF : TBits_1; inline;
- function getTRSTAT : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setACKSTAT(thebits : TBits_1); inline;
- procedure setADD10(thebits : TBits_1); inline;
- procedure setBCL(thebits : TBits_1); inline;
- procedure setD_A(thebits : TBits_1); inline;
- procedure setGCSTAT(thebits : TBits_1); inline;
- procedure setI2COV(thebits : TBits_1); inline;
- procedure setI2CPOV(thebits : TBits_1); inline;
- procedure setIWCOL(thebits : TBits_1); inline;
- procedure setP(thebits : TBits_1); inline;
- procedure setRBF(thebits : TBits_1); inline;
- procedure setR_W(thebits : TBits_1); inline;
- procedure setS(thebits : TBits_1); inline;
- procedure setTBF(thebits : TBits_1); inline;
- procedure setTRSTAT(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearACKSTAT; inline;
- procedure clearADD10; inline;
- procedure clearBCL; inline;
- procedure clearD_A; inline;
- procedure clearGCSTAT; inline;
- procedure clearI2COV; inline;
- procedure clearI2CPOV; inline;
- procedure clearIWCOL; inline;
- procedure clearP; inline;
- procedure clearRBF; inline;
- procedure clearR_W; inline;
- procedure clearS; inline;
- procedure clearTBF; inline;
- procedure clearTRSTAT; inline;
- procedure setACKSTAT; inline;
- procedure setADD10; inline;
- procedure setBCL; inline;
- procedure setD_A; inline;
- procedure setGCSTAT; inline;
- procedure setI2COV; inline;
- procedure setI2CPOV; inline;
- procedure setIWCOL; inline;
- procedure setP; inline;
- procedure setRBF; inline;
- procedure setR_W; inline;
- procedure setS; inline;
- procedure setTBF; inline;
- procedure setTRSTAT; inline;
- property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
- property ADD10 : TBits_1 read getADD10 write setADD10;
- property BCL : TBits_1 read getBCL write setBCL;
- property D_A : TBits_1 read getD_A write setD_A;
- property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
- property I2COV : TBits_1 read getI2COV write setI2COV;
- property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
- property IWCOL : TBits_1 read getIWCOL write setIWCOL;
- property P : TBits_1 read getP write setP;
- property RBF : TBits_1 read getRBF write setRBF;
- property R_W : TBits_1 read getR_W write setR_W;
- property S : TBits_1 read getS write setS;
- property TBF : TBits_1 read getTBF write setTBF;
- property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
- property w : TBits_32 read getw write setw;
- end;
- TI2C2_I2CABSTAT = record
- private
- function getACKSTAT : TBits_1; inline;
- function getADD10 : TBits_1; inline;
- function getBCL : TBits_1; inline;
- function getD_A : TBits_1; inline;
- function getGCSTAT : TBits_1; inline;
- function getI2COV : TBits_1; inline;
- function getI2CPOV : TBits_1; inline;
- function getIWCOL : TBits_1; inline;
- function getP : TBits_1; inline;
- function getRBF : TBits_1; inline;
- function getR_W : TBits_1; inline;
- function getS : TBits_1; inline;
- function getTBF : TBits_1; inline;
- function getTRSTAT : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setACKSTAT(thebits : TBits_1); inline;
- procedure setADD10(thebits : TBits_1); inline;
- procedure setBCL(thebits : TBits_1); inline;
- procedure setD_A(thebits : TBits_1); inline;
- procedure setGCSTAT(thebits : TBits_1); inline;
- procedure setI2COV(thebits : TBits_1); inline;
- procedure setI2CPOV(thebits : TBits_1); inline;
- procedure setIWCOL(thebits : TBits_1); inline;
- procedure setP(thebits : TBits_1); inline;
- procedure setRBF(thebits : TBits_1); inline;
- procedure setR_W(thebits : TBits_1); inline;
- procedure setS(thebits : TBits_1); inline;
- procedure setTBF(thebits : TBits_1); inline;
- procedure setTRSTAT(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearACKSTAT; inline;
- procedure clearADD10; inline;
- procedure clearBCL; inline;
- procedure clearD_A; inline;
- procedure clearGCSTAT; inline;
- procedure clearI2COV; inline;
- procedure clearI2CPOV; inline;
- procedure clearIWCOL; inline;
- procedure clearP; inline;
- procedure clearRBF; inline;
- procedure clearR_W; inline;
- procedure clearS; inline;
- procedure clearTBF; inline;
- procedure clearTRSTAT; inline;
- procedure setACKSTAT; inline;
- procedure setADD10; inline;
- procedure setBCL; inline;
- procedure setD_A; inline;
- procedure setGCSTAT; inline;
- procedure setI2COV; inline;
- procedure setI2CPOV; inline;
- procedure setIWCOL; inline;
- procedure setP; inline;
- procedure setRBF; inline;
- procedure setR_W; inline;
- procedure setS; inline;
- procedure setTBF; inline;
- procedure setTRSTAT; inline;
- property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
- property ADD10 : TBits_1 read getADD10 write setADD10;
- property BCL : TBits_1 read getBCL write setBCL;
- property D_A : TBits_1 read getD_A write setD_A;
- property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
- property I2COV : TBits_1 read getI2COV write setI2COV;
- property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
- property IWCOL : TBits_1 read getIWCOL write setIWCOL;
- property P : TBits_1 read getP write setP;
- property RBF : TBits_1 read getRBF write setRBF;
- property R_W : TBits_1 read getR_W write setR_W;
- property S : TBits_1 read getS write setS;
- property TBF : TBits_1 read getTBF write setTBF;
- property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
- property w : TBits_32 read getw write setw;
- end;
- type
- TI2C2Registers = record
- I2C2CONbits : TI2C2_I2C2CON;
- I2C2CON : longWord;
- I2CABCONbits : TI2C2_I2CABCON;
- I2CABCON : longWord;
- I2C2CONCLR : longWord;
- I2CABCONCLR : longWord;
- I2C2CONSET : longWord;
- I2CABCONSET : longWord;
- I2C2CONINV : longWord;
- I2CABCONINV : longWord;
- I2C2STATbits : TI2C2_I2C2STAT;
- I2C2STAT : longWord;
- I2CABSTATbits : TI2C2_I2CABSTAT;
- I2CABSTAT : longWord;
- I2C2STATCLR : longWord;
- I2CABSTATCLR : longWord;
- I2C2STATSET : longWord;
- I2CABSTATSET : longWord;
- I2C2STATINV : longWord;
- I2CABSTATINV : longWord;
- I2C2ADD : longWord;
- I2CABADD : longWord;
- I2C2ADDCLR : longWord;
- I2CABADDCLR : longWord;
- I2C2ADDSET : longWord;
- I2CABADDSET : longWord;
- I2C2ADDINV : longWord;
- I2CABADDINV : longWord;
- I2C2MSK : longWord;
- I2CABMSK : longWord;
- I2C2MSKCLR : longWord;
- I2CABMSKCLR : longWord;
- I2C2MSKSET : longWord;
- I2CABMSKSET : longWord;
- I2C2MSKINV : longWord;
- I2CABMSKINV : longWord;
- I2C2BRG : longWord;
- I2CABBRG : longWord;
- I2C2BRGCLR : longWord;
- I2CABBRGCLR : longWord;
- I2C2BRGSET : longWord;
- I2CABBRGSET : longWord;
- I2C2BRGINV : longWord;
- I2CABBRGINV : longWord;
- I2C2TRN : longWord;
- I2CABTRN : longWord;
- I2C2TRNCLR : longWord;
- I2CABTRNCLR : longWord;
- I2C2TRNSET : longWord;
- I2CABTRNSET : longWord;
- I2C2TRNINV : longWord;
- I2CABTRNINV : longWord;
- I2C2RCV : longWord;
- I2CABRCV : longWord;
- end;
- TSPI1_SPI1CON = record
- private
- function getCKE : TBits_1; inline;
- function getCKP : TBits_1; inline;
- function getDISSDI : TBits_1; inline;
- function getDISSDO : TBits_1; inline;
- function getENHBUF : TBits_1; inline;
- function getFRMCNT : TBits_3; inline;
- function getFRMEN : TBits_1; inline;
- function getFRMPOL : TBits_1; inline;
- function getFRMSYNC : TBits_1; inline;
- function getFRMSYPW : TBits_1; inline;
- function getMCLKSEL : TBits_1; inline;
- function getMODE16 : TBits_1; inline;
- function getMODE32 : TBits_1; inline;
- function getMSSEN : TBits_1; inline;
- function getMSTEN : TBits_1; inline;
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSMP : TBits_1; inline;
- function getSPIFE : TBits_1; inline;
- function getSRXISEL : TBits_2; inline;
- function getSSEN : TBits_1; inline;
- function getSTXISEL : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setCKE(thebits : TBits_1); inline;
- procedure setCKP(thebits : TBits_1); inline;
- procedure setDISSDI(thebits : TBits_1); inline;
- procedure setDISSDO(thebits : TBits_1); inline;
- procedure setENHBUF(thebits : TBits_1); inline;
- procedure setFRMCNT(thebits : TBits_3); inline;
- procedure setFRMEN(thebits : TBits_1); inline;
- procedure setFRMPOL(thebits : TBits_1); inline;
- procedure setFRMSYNC(thebits : TBits_1); inline;
- procedure setFRMSYPW(thebits : TBits_1); inline;
- procedure setMCLKSEL(thebits : TBits_1); inline;
- procedure setMODE16(thebits : TBits_1); inline;
- procedure setMODE32(thebits : TBits_1); inline;
- procedure setMSSEN(thebits : TBits_1); inline;
- procedure setMSTEN(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSMP(thebits : TBits_1); inline;
- procedure setSPIFE(thebits : TBits_1); inline;
- procedure setSRXISEL(thebits : TBits_2); inline;
- procedure setSSEN(thebits : TBits_1); inline;
- procedure setSTXISEL(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCKE; inline;
- procedure clearCKP; inline;
- procedure clearDISSDI; inline;
- procedure clearDISSDO; inline;
- procedure clearENHBUF; inline;
- procedure clearFRMEN; inline;
- procedure clearFRMPOL; inline;
- procedure clearFRMSYNC; inline;
- procedure clearFRMSYPW; inline;
- procedure clearMCLKSEL; inline;
- procedure clearMODE16; inline;
- procedure clearMODE32; inline;
- procedure clearMSSEN; inline;
- procedure clearMSTEN; inline;
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure clearSMP; inline;
- procedure clearSPIFE; inline;
- procedure clearSSEN; inline;
- procedure setCKE; inline;
- procedure setCKP; inline;
- procedure setDISSDI; inline;
- procedure setDISSDO; inline;
- procedure setENHBUF; inline;
- procedure setFRMEN; inline;
- procedure setFRMPOL; inline;
- procedure setFRMSYNC; inline;
- procedure setFRMSYPW; inline;
- procedure setMCLKSEL; inline;
- procedure setMODE16; inline;
- procedure setMODE32; inline;
- procedure setMSSEN; inline;
- procedure setMSTEN; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- procedure setSMP; inline;
- procedure setSPIFE; inline;
- procedure setSSEN; inline;
- property CKE : TBits_1 read getCKE write setCKE;
- property CKP : TBits_1 read getCKP write setCKP;
- property DISSDI : TBits_1 read getDISSDI write setDISSDI;
- property DISSDO : TBits_1 read getDISSDO write setDISSDO;
- property ENHBUF : TBits_1 read getENHBUF write setENHBUF;
- property FRMCNT : TBits_3 read getFRMCNT write setFRMCNT;
- property FRMEN : TBits_1 read getFRMEN write setFRMEN;
- property FRMPOL : TBits_1 read getFRMPOL write setFRMPOL;
- property FRMSYNC : TBits_1 read getFRMSYNC write setFRMSYNC;
- property FRMSYPW : TBits_1 read getFRMSYPW write setFRMSYPW;
- property MCLKSEL : TBits_1 read getMCLKSEL write setMCLKSEL;
- property MODE16 : TBits_1 read getMODE16 write setMODE16;
- property MODE32 : TBits_1 read getMODE32 write setMODE32;
- property MSSEN : TBits_1 read getMSSEN write setMSSEN;
- property MSTEN : TBits_1 read getMSTEN write setMSTEN;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property SMP : TBits_1 read getSMP write setSMP;
- property SPIFE : TBits_1 read getSPIFE write setSPIFE;
- property SRXISEL : TBits_2 read getSRXISEL write setSRXISEL;
- property SSEN : TBits_1 read getSSEN write setSSEN;
- property STXISEL : TBits_2 read getSTXISEL write setSTXISEL;
- property w : TBits_32 read getw write setw;
- end;
- TSPI1_SPI1STAT = record
- private
- function getFRMERR : TBits_1; inline;
- function getRXBUFELM : TBits_5; inline;
- function getSPIBUSY : TBits_1; inline;
- function getSPIRBE : TBits_1; inline;
- function getSPIRBF : TBits_1; inline;
- function getSPIROV : TBits_1; inline;
- function getSPITBE : TBits_1; inline;
- function getSPITBF : TBits_1; inline;
- function getSPITUR : TBits_1; inline;
- function getSRMT : TBits_1; inline;
- function getTXBUFELM : TBits_5; inline;
- function getw : TBits_32; inline;
- procedure setFRMERR(thebits : TBits_1); inline;
- procedure setRXBUFELM(thebits : TBits_5); inline;
- procedure setSPIBUSY(thebits : TBits_1); inline;
- procedure setSPIRBE(thebits : TBits_1); inline;
- procedure setSPIRBF(thebits : TBits_1); inline;
- procedure setSPIROV(thebits : TBits_1); inline;
- procedure setSPITBE(thebits : TBits_1); inline;
- procedure setSPITBF(thebits : TBits_1); inline;
- procedure setSPITUR(thebits : TBits_1); inline;
- procedure setSRMT(thebits : TBits_1); inline;
- procedure setTXBUFELM(thebits : TBits_5); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearFRMERR; inline;
- procedure clearSPIBUSY; inline;
- procedure clearSPIRBE; inline;
- procedure clearSPIRBF; inline;
- procedure clearSPIROV; inline;
- procedure clearSPITBE; inline;
- procedure clearSPITBF; inline;
- procedure clearSPITUR; inline;
- procedure clearSRMT; inline;
- procedure setFRMERR; inline;
- procedure setSPIBUSY; inline;
- procedure setSPIRBE; inline;
- procedure setSPIRBF; inline;
- procedure setSPIROV; inline;
- procedure setSPITBE; inline;
- procedure setSPITBF; inline;
- procedure setSPITUR; inline;
- procedure setSRMT; inline;
- property FRMERR : TBits_1 read getFRMERR write setFRMERR;
- property RXBUFELM : TBits_5 read getRXBUFELM write setRXBUFELM;
- property SPIBUSY : TBits_1 read getSPIBUSY write setSPIBUSY;
- property SPIRBE : TBits_1 read getSPIRBE write setSPIRBE;
- property SPIRBF : TBits_1 read getSPIRBF write setSPIRBF;
- property SPIROV : TBits_1 read getSPIROV write setSPIROV;
- property SPITBE : TBits_1 read getSPITBE write setSPITBE;
- property SPITBF : TBits_1 read getSPITBF write setSPITBF;
- property SPITUR : TBits_1 read getSPITUR write setSPITUR;
- property SRMT : TBits_1 read getSRMT write setSRMT;
- property TXBUFELM : TBits_5 read getTXBUFELM write setTXBUFELM;
- property w : TBits_32 read getw write setw;
- end;
- TSPI1_SPI1CON2 = record
- private
- function getAUDEN : TBits_1; inline;
- function getAUDMOD : TBits_2; inline;
- function getAUDMOD0 : TBits_1; inline;
- function getAUDMOD1 : TBits_1; inline;
- function getAUDMONO : TBits_1; inline;
- function getFRMERREN : TBits_1; inline;
- function getIGNROV : TBits_1; inline;
- function getIGNTUR : TBits_1; inline;
- function getSPIROVEN : TBits_1; inline;
- function getSPISGNEXT : TBits_1; inline;
- function getSPITUREN : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setAUDEN(thebits : TBits_1); inline;
- procedure setAUDMOD(thebits : TBits_2); inline;
- procedure setAUDMOD0(thebits : TBits_1); inline;
- procedure setAUDMOD1(thebits : TBits_1); inline;
- procedure setAUDMONO(thebits : TBits_1); inline;
- procedure setFRMERREN(thebits : TBits_1); inline;
- procedure setIGNROV(thebits : TBits_1); inline;
- procedure setIGNTUR(thebits : TBits_1); inline;
- procedure setSPIROVEN(thebits : TBits_1); inline;
- procedure setSPISGNEXT(thebits : TBits_1); inline;
- procedure setSPITUREN(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearAUDEN; inline;
- procedure clearAUDMOD0; inline;
- procedure clearAUDMOD1; inline;
- procedure clearAUDMONO; inline;
- procedure clearFRMERREN; inline;
- procedure clearIGNROV; inline;
- procedure clearIGNTUR; inline;
- procedure clearSPIROVEN; inline;
- procedure clearSPISGNEXT; inline;
- procedure clearSPITUREN; inline;
- procedure setAUDEN; inline;
- procedure setAUDMOD0; inline;
- procedure setAUDMOD1; inline;
- procedure setAUDMONO; inline;
- procedure setFRMERREN; inline;
- procedure setIGNROV; inline;
- procedure setIGNTUR; inline;
- procedure setSPIROVEN; inline;
- procedure setSPISGNEXT; inline;
- procedure setSPITUREN; inline;
- property AUDEN : TBits_1 read getAUDEN write setAUDEN;
- property AUDMOD : TBits_2 read getAUDMOD write setAUDMOD;
- property AUDMOD0 : TBits_1 read getAUDMOD0 write setAUDMOD0;
- property AUDMOD1 : TBits_1 read getAUDMOD1 write setAUDMOD1;
- property AUDMONO : TBits_1 read getAUDMONO write setAUDMONO;
- property FRMERREN : TBits_1 read getFRMERREN write setFRMERREN;
- property IGNROV : TBits_1 read getIGNROV write setIGNROV;
- property IGNTUR : TBits_1 read getIGNTUR write setIGNTUR;
- property SPIROVEN : TBits_1 read getSPIROVEN write setSPIROVEN;
- property SPISGNEXT : TBits_1 read getSPISGNEXT write setSPISGNEXT;
- property SPITUREN : TBits_1 read getSPITUREN write setSPITUREN;
- property w : TBits_32 read getw write setw;
- end;
- type
- TSPI1Registers = record
- SPI1CONbits : TSPI1_SPI1CON;
- SPI1CON : longWord;
- SPI1CONCLR : longWord;
- SPI1CONSET : longWord;
- SPI1CONINV : longWord;
- SPI1STATbits : TSPI1_SPI1STAT;
- SPI1STAT : longWord;
- SPI1STATCLR : longWord;
- SPI1STATSET : longWord;
- SPI1STATINV : longWord;
- SPI1BUF : longWord;
- SPI1BRG : longWord;
- SPI1BRGCLR : longWord;
- SPI1BRGSET : longWord;
- SPI1BRGINV : longWord;
- SPI1CON2bits : TSPI1_SPI1CON2;
- SPI1CON2 : longWord;
- SPI1CON2CLR : longWord;
- SPI1CON2SET : longWord;
- SPI1CON2INV : longWord;
- end;
- TSPI2_SPI2CON = record
- private
- function getCKE : TBits_1; inline;
- function getCKP : TBits_1; inline;
- function getDISSDI : TBits_1; inline;
- function getDISSDO : TBits_1; inline;
- function getENHBUF : TBits_1; inline;
- function getFRMCNT : TBits_3; inline;
- function getFRMEN : TBits_1; inline;
- function getFRMPOL : TBits_1; inline;
- function getFRMSYNC : TBits_1; inline;
- function getFRMSYPW : TBits_1; inline;
- function getMCLKSEL : TBits_1; inline;
- function getMODE16 : TBits_1; inline;
- function getMODE32 : TBits_1; inline;
- function getMSSEN : TBits_1; inline;
- function getMSTEN : TBits_1; inline;
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSMP : TBits_1; inline;
- function getSPIFE : TBits_1; inline;
- function getSRXISEL : TBits_2; inline;
- function getSSEN : TBits_1; inline;
- function getSTXISEL : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setCKE(thebits : TBits_1); inline;
- procedure setCKP(thebits : TBits_1); inline;
- procedure setDISSDI(thebits : TBits_1); inline;
- procedure setDISSDO(thebits : TBits_1); inline;
- procedure setENHBUF(thebits : TBits_1); inline;
- procedure setFRMCNT(thebits : TBits_3); inline;
- procedure setFRMEN(thebits : TBits_1); inline;
- procedure setFRMPOL(thebits : TBits_1); inline;
- procedure setFRMSYNC(thebits : TBits_1); inline;
- procedure setFRMSYPW(thebits : TBits_1); inline;
- procedure setMCLKSEL(thebits : TBits_1); inline;
- procedure setMODE16(thebits : TBits_1); inline;
- procedure setMODE32(thebits : TBits_1); inline;
- procedure setMSSEN(thebits : TBits_1); inline;
- procedure setMSTEN(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSMP(thebits : TBits_1); inline;
- procedure setSPIFE(thebits : TBits_1); inline;
- procedure setSRXISEL(thebits : TBits_2); inline;
- procedure setSSEN(thebits : TBits_1); inline;
- procedure setSTXISEL(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCKE; inline;
- procedure clearCKP; inline;
- procedure clearDISSDI; inline;
- procedure clearDISSDO; inline;
- procedure clearENHBUF; inline;
- procedure clearFRMEN; inline;
- procedure clearFRMPOL; inline;
- procedure clearFRMSYNC; inline;
- procedure clearFRMSYPW; inline;
- procedure clearMCLKSEL; inline;
- procedure clearMODE16; inline;
- procedure clearMODE32; inline;
- procedure clearMSSEN; inline;
- procedure clearMSTEN; inline;
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure clearSMP; inline;
- procedure clearSPIFE; inline;
- procedure clearSSEN; inline;
- procedure setCKE; inline;
- procedure setCKP; inline;
- procedure setDISSDI; inline;
- procedure setDISSDO; inline;
- procedure setENHBUF; inline;
- procedure setFRMEN; inline;
- procedure setFRMPOL; inline;
- procedure setFRMSYNC; inline;
- procedure setFRMSYPW; inline;
- procedure setMCLKSEL; inline;
- procedure setMODE16; inline;
- procedure setMODE32; inline;
- procedure setMSSEN; inline;
- procedure setMSTEN; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- procedure setSMP; inline;
- procedure setSPIFE; inline;
- procedure setSSEN; inline;
- property CKE : TBits_1 read getCKE write setCKE;
- property CKP : TBits_1 read getCKP write setCKP;
- property DISSDI : TBits_1 read getDISSDI write setDISSDI;
- property DISSDO : TBits_1 read getDISSDO write setDISSDO;
- property ENHBUF : TBits_1 read getENHBUF write setENHBUF;
- property FRMCNT : TBits_3 read getFRMCNT write setFRMCNT;
- property FRMEN : TBits_1 read getFRMEN write setFRMEN;
- property FRMPOL : TBits_1 read getFRMPOL write setFRMPOL;
- property FRMSYNC : TBits_1 read getFRMSYNC write setFRMSYNC;
- property FRMSYPW : TBits_1 read getFRMSYPW write setFRMSYPW;
- property MCLKSEL : TBits_1 read getMCLKSEL write setMCLKSEL;
- property MODE16 : TBits_1 read getMODE16 write setMODE16;
- property MODE32 : TBits_1 read getMODE32 write setMODE32;
- property MSSEN : TBits_1 read getMSSEN write setMSSEN;
- property MSTEN : TBits_1 read getMSTEN write setMSTEN;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property SMP : TBits_1 read getSMP write setSMP;
- property SPIFE : TBits_1 read getSPIFE write setSPIFE;
- property SRXISEL : TBits_2 read getSRXISEL write setSRXISEL;
- property SSEN : TBits_1 read getSSEN write setSSEN;
- property STXISEL : TBits_2 read getSTXISEL write setSTXISEL;
- property w : TBits_32 read getw write setw;
- end;
- TSPI2_SPI2STAT = record
- private
- function getFRMERR : TBits_1; inline;
- function getRXBUFELM : TBits_5; inline;
- function getSPIBUSY : TBits_1; inline;
- function getSPIRBE : TBits_1; inline;
- function getSPIRBF : TBits_1; inline;
- function getSPIROV : TBits_1; inline;
- function getSPITBE : TBits_1; inline;
- function getSPITBF : TBits_1; inline;
- function getSPITUR : TBits_1; inline;
- function getSRMT : TBits_1; inline;
- function getTXBUFELM : TBits_5; inline;
- function getw : TBits_32; inline;
- procedure setFRMERR(thebits : TBits_1); inline;
- procedure setRXBUFELM(thebits : TBits_5); inline;
- procedure setSPIBUSY(thebits : TBits_1); inline;
- procedure setSPIRBE(thebits : TBits_1); inline;
- procedure setSPIRBF(thebits : TBits_1); inline;
- procedure setSPIROV(thebits : TBits_1); inline;
- procedure setSPITBE(thebits : TBits_1); inline;
- procedure setSPITBF(thebits : TBits_1); inline;
- procedure setSPITUR(thebits : TBits_1); inline;
- procedure setSRMT(thebits : TBits_1); inline;
- procedure setTXBUFELM(thebits : TBits_5); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearFRMERR; inline;
- procedure clearSPIBUSY; inline;
- procedure clearSPIRBE; inline;
- procedure clearSPIRBF; inline;
- procedure clearSPIROV; inline;
- procedure clearSPITBE; inline;
- procedure clearSPITBF; inline;
- procedure clearSPITUR; inline;
- procedure clearSRMT; inline;
- procedure setFRMERR; inline;
- procedure setSPIBUSY; inline;
- procedure setSPIRBE; inline;
- procedure setSPIRBF; inline;
- procedure setSPIROV; inline;
- procedure setSPITBE; inline;
- procedure setSPITBF; inline;
- procedure setSPITUR; inline;
- procedure setSRMT; inline;
- property FRMERR : TBits_1 read getFRMERR write setFRMERR;
- property RXBUFELM : TBits_5 read getRXBUFELM write setRXBUFELM;
- property SPIBUSY : TBits_1 read getSPIBUSY write setSPIBUSY;
- property SPIRBE : TBits_1 read getSPIRBE write setSPIRBE;
- property SPIRBF : TBits_1 read getSPIRBF write setSPIRBF;
- property SPIROV : TBits_1 read getSPIROV write setSPIROV;
- property SPITBE : TBits_1 read getSPITBE write setSPITBE;
- property SPITBF : TBits_1 read getSPITBF write setSPITBF;
- property SPITUR : TBits_1 read getSPITUR write setSPITUR;
- property SRMT : TBits_1 read getSRMT write setSRMT;
- property TXBUFELM : TBits_5 read getTXBUFELM write setTXBUFELM;
- property w : TBits_32 read getw write setw;
- end;
- TSPI2_SPI2CON2 = record
- private
- function getAUDEN : TBits_1; inline;
- function getAUDMOD : TBits_2; inline;
- function getAUDMOD0 : TBits_1; inline;
- function getAUDMOD1 : TBits_1; inline;
- function getAUDMONO : TBits_1; inline;
- function getFRMERREN : TBits_1; inline;
- function getIGNROV : TBits_1; inline;
- function getIGNTUR : TBits_1; inline;
- function getSPIROVEN : TBits_1; inline;
- function getSPISGNEXT : TBits_1; inline;
- function getSPITUREN : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setAUDEN(thebits : TBits_1); inline;
- procedure setAUDMOD(thebits : TBits_2); inline;
- procedure setAUDMOD0(thebits : TBits_1); inline;
- procedure setAUDMOD1(thebits : TBits_1); inline;
- procedure setAUDMONO(thebits : TBits_1); inline;
- procedure setFRMERREN(thebits : TBits_1); inline;
- procedure setIGNROV(thebits : TBits_1); inline;
- procedure setIGNTUR(thebits : TBits_1); inline;
- procedure setSPIROVEN(thebits : TBits_1); inline;
- procedure setSPISGNEXT(thebits : TBits_1); inline;
- procedure setSPITUREN(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearAUDEN; inline;
- procedure clearAUDMOD0; inline;
- procedure clearAUDMOD1; inline;
- procedure clearAUDMONO; inline;
- procedure clearFRMERREN; inline;
- procedure clearIGNROV; inline;
- procedure clearIGNTUR; inline;
- procedure clearSPIROVEN; inline;
- procedure clearSPISGNEXT; inline;
- procedure clearSPITUREN; inline;
- procedure setAUDEN; inline;
- procedure setAUDMOD0; inline;
- procedure setAUDMOD1; inline;
- procedure setAUDMONO; inline;
- procedure setFRMERREN; inline;
- procedure setIGNROV; inline;
- procedure setIGNTUR; inline;
- procedure setSPIROVEN; inline;
- procedure setSPISGNEXT; inline;
- procedure setSPITUREN; inline;
- property AUDEN : TBits_1 read getAUDEN write setAUDEN;
- property AUDMOD : TBits_2 read getAUDMOD write setAUDMOD;
- property AUDMOD0 : TBits_1 read getAUDMOD0 write setAUDMOD0;
- property AUDMOD1 : TBits_1 read getAUDMOD1 write setAUDMOD1;
- property AUDMONO : TBits_1 read getAUDMONO write setAUDMONO;
- property FRMERREN : TBits_1 read getFRMERREN write setFRMERREN;
- property IGNROV : TBits_1 read getIGNROV write setIGNROV;
- property IGNTUR : TBits_1 read getIGNTUR write setIGNTUR;
- property SPIROVEN : TBits_1 read getSPIROVEN write setSPIROVEN;
- property SPISGNEXT : TBits_1 read getSPISGNEXT write setSPISGNEXT;
- property SPITUREN : TBits_1 read getSPITUREN write setSPITUREN;
- property w : TBits_32 read getw write setw;
- end;
- type
- TSPI2Registers = record
- SPI2CONbits : TSPI2_SPI2CON;
- SPI2CON : longWord;
- SPI2CONCLR : longWord;
- SPI2CONSET : longWord;
- SPI2CONINV : longWord;
- SPI2STATbits : TSPI2_SPI2STAT;
- SPI2STAT : longWord;
- SPI2STATCLR : longWord;
- SPI2STATSET : longWord;
- SPI2STATINV : longWord;
- SPI2BUF : longWord;
- SPI2BRG : longWord;
- SPI2BRGCLR : longWord;
- SPI2BRGSET : longWord;
- SPI2BRGINV : longWord;
- SPI2CON2bits : TSPI2_SPI2CON2;
- SPI2CON2 : longWord;
- SPI2CON2CLR : longWord;
- SPI2CON2SET : longWord;
- SPI2CON2INV : longWord;
- end;
- TUART1_U1MODE = record
- private
- function getABAUD : TBits_1; inline;
- function getBRGH : TBits_1; inline;
- function getIREN : TBits_1; inline;
- function getLPBACK : TBits_1; inline;
- function getON : TBits_1; inline;
- function getPDSEL : TBits_2; inline;
- function getPDSEL0 : TBits_1; inline;
- function getPDSEL1 : TBits_1; inline;
- function getRTSMD : TBits_1; inline;
- function getRXINV : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSTSEL : TBits_1; inline;
- function getUARTEN : TBits_1; inline;
- function getUEN : TBits_2; inline;
- function getUEN0 : TBits_1; inline;
- function getUEN1 : TBits_1; inline;
- function getUSIDL : TBits_1; inline;
- function getWAKE : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setABAUD(thebits : TBits_1); inline;
- procedure setBRGH(thebits : TBits_1); inline;
- procedure setIREN(thebits : TBits_1); inline;
- procedure setLPBACK(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setPDSEL(thebits : TBits_2); inline;
- procedure setPDSEL0(thebits : TBits_1); inline;
- procedure setPDSEL1(thebits : TBits_1); inline;
- procedure setRTSMD(thebits : TBits_1); inline;
- procedure setRXINV(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSTSEL(thebits : TBits_1); inline;
- procedure setUARTEN(thebits : TBits_1); inline;
- procedure setUEN(thebits : TBits_2); inline;
- procedure setUEN0(thebits : TBits_1); inline;
- procedure setUEN1(thebits : TBits_1); inline;
- procedure setUSIDL(thebits : TBits_1); inline;
- procedure setWAKE(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearABAUD; inline;
- procedure clearBRGH; inline;
- procedure clearIREN; inline;
- procedure clearLPBACK; inline;
- procedure clearON; inline;
- procedure clearPDSEL0; inline;
- procedure clearPDSEL1; inline;
- procedure clearRTSMD; inline;
- procedure clearRXINV; inline;
- procedure clearSIDL; inline;
- procedure clearSTSEL; inline;
- procedure clearUARTEN; inline;
- procedure clearUEN0; inline;
- procedure clearUEN1; inline;
- procedure clearUSIDL; inline;
- procedure clearWAKE; inline;
- procedure setABAUD; inline;
- procedure setBRGH; inline;
- procedure setIREN; inline;
- procedure setLPBACK; inline;
- procedure setON; inline;
- procedure setPDSEL0; inline;
- procedure setPDSEL1; inline;
- procedure setRTSMD; inline;
- procedure setRXINV; inline;
- procedure setSIDL; inline;
- procedure setSTSEL; inline;
- procedure setUARTEN; inline;
- procedure setUEN0; inline;
- procedure setUEN1; inline;
- procedure setUSIDL; inline;
- procedure setWAKE; inline;
- property ABAUD : TBits_1 read getABAUD write setABAUD;
- property BRGH : TBits_1 read getBRGH write setBRGH;
- property IREN : TBits_1 read getIREN write setIREN;
- property LPBACK : TBits_1 read getLPBACK write setLPBACK;
- property ON : TBits_1 read getON write setON;
- property PDSEL : TBits_2 read getPDSEL write setPDSEL;
- property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
- property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
- property RTSMD : TBits_1 read getRTSMD write setRTSMD;
- property RXINV : TBits_1 read getRXINV write setRXINV;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property STSEL : TBits_1 read getSTSEL write setSTSEL;
- property UARTEN : TBits_1 read getUARTEN write setUARTEN;
- property UEN : TBits_2 read getUEN write setUEN;
- property UEN0 : TBits_1 read getUEN0 write setUEN0;
- property UEN1 : TBits_1 read getUEN1 write setUEN1;
- property USIDL : TBits_1 read getUSIDL write setUSIDL;
- property WAKE : TBits_1 read getWAKE write setWAKE;
- property w : TBits_32 read getw write setw;
- end;
- TUART1_UDCMODE = record
- private
- function getABAUD : TBits_1; inline;
- function getBRGH : TBits_1; inline;
- function getIREN : TBits_1; inline;
- function getLPBACK : TBits_1; inline;
- function getON : TBits_1; inline;
- function getPDSEL : TBits_2; inline;
- function getPDSEL0 : TBits_1; inline;
- function getPDSEL1 : TBits_1; inline;
- function getRTSMD : TBits_1; inline;
- function getRXINV : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSTSEL : TBits_1; inline;
- function getUARTEN : TBits_1; inline;
- function getUEN : TBits_2; inline;
- function getUEN0 : TBits_1; inline;
- function getUEN1 : TBits_1; inline;
- function getUSIDL : TBits_1; inline;
- function getWAKE : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setABAUD(thebits : TBits_1); inline;
- procedure setBRGH(thebits : TBits_1); inline;
- procedure setIREN(thebits : TBits_1); inline;
- procedure setLPBACK(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setPDSEL(thebits : TBits_2); inline;
- procedure setPDSEL0(thebits : TBits_1); inline;
- procedure setPDSEL1(thebits : TBits_1); inline;
- procedure setRTSMD(thebits : TBits_1); inline;
- procedure setRXINV(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSTSEL(thebits : TBits_1); inline;
- procedure setUARTEN(thebits : TBits_1); inline;
- procedure setUEN(thebits : TBits_2); inline;
- procedure setUEN0(thebits : TBits_1); inline;
- procedure setUEN1(thebits : TBits_1); inline;
- procedure setUSIDL(thebits : TBits_1); inline;
- procedure setWAKE(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearABAUD; inline;
- procedure clearBRGH; inline;
- procedure clearIREN; inline;
- procedure clearLPBACK; inline;
- procedure clearON; inline;
- procedure clearPDSEL0; inline;
- procedure clearPDSEL1; inline;
- procedure clearRTSMD; inline;
- procedure clearRXINV; inline;
- procedure clearSIDL; inline;
- procedure clearSTSEL; inline;
- procedure clearUARTEN; inline;
- procedure clearUEN0; inline;
- procedure clearUEN1; inline;
- procedure clearUSIDL; inline;
- procedure clearWAKE; inline;
- procedure setABAUD; inline;
- procedure setBRGH; inline;
- procedure setIREN; inline;
- procedure setLPBACK; inline;
- procedure setON; inline;
- procedure setPDSEL0; inline;
- procedure setPDSEL1; inline;
- procedure setRTSMD; inline;
- procedure setRXINV; inline;
- procedure setSIDL; inline;
- procedure setSTSEL; inline;
- procedure setUARTEN; inline;
- procedure setUEN0; inline;
- procedure setUEN1; inline;
- procedure setUSIDL; inline;
- procedure setWAKE; inline;
- property ABAUD : TBits_1 read getABAUD write setABAUD;
- property BRGH : TBits_1 read getBRGH write setBRGH;
- property IREN : TBits_1 read getIREN write setIREN;
- property LPBACK : TBits_1 read getLPBACK write setLPBACK;
- property ON : TBits_1 read getON write setON;
- property PDSEL : TBits_2 read getPDSEL write setPDSEL;
- property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
- property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
- property RTSMD : TBits_1 read getRTSMD write setRTSMD;
- property RXINV : TBits_1 read getRXINV write setRXINV;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property STSEL : TBits_1 read getSTSEL write setSTSEL;
- property UARTEN : TBits_1 read getUARTEN write setUARTEN;
- property UEN : TBits_2 read getUEN write setUEN;
- property UEN0 : TBits_1 read getUEN0 write setUEN0;
- property UEN1 : TBits_1 read getUEN1 write setUEN1;
- property USIDL : TBits_1 read getUSIDL write setUSIDL;
- property WAKE : TBits_1 read getWAKE write setWAKE;
- property w : TBits_32 read getw write setw;
- end;
- TUART1_U1STA = record
- private
- function getADDEN : TBits_1; inline;
- function getADDR : TBits_8; inline;
- function getADM_EN : TBits_1; inline;
- function getFERR : TBits_1; inline;
- function getOERR : TBits_1; inline;
- function getPERR : TBits_1; inline;
- function getRIDLE : TBits_1; inline;
- function getTRMT : TBits_1; inline;
- function getURXDA : TBits_1; inline;
- function getURXEN : TBits_1; inline;
- function getURXISEL : TBits_2; inline;
- function getURXISEL0 : TBits_1; inline;
- function getURXISEL1 : TBits_1; inline;
- function getUTXBF : TBits_1; inline;
- function getUTXBRK : TBits_1; inline;
- function getUTXEN : TBits_1; inline;
- function getUTXINV : TBits_1; inline;
- function getUTXISEL : TBits_2; inline;
- function getUTXISEL0 : TBits_1; inline;
- function getUTXISEL1 : TBits_1; inline;
- function getUTXSEL : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setADDEN(thebits : TBits_1); inline;
- procedure setADDR(thebits : TBits_8); inline;
- procedure setADM_EN(thebits : TBits_1); inline;
- procedure setFERR(thebits : TBits_1); inline;
- procedure setOERR(thebits : TBits_1); inline;
- procedure setPERR(thebits : TBits_1); inline;
- procedure setRIDLE(thebits : TBits_1); inline;
- procedure setTRMT(thebits : TBits_1); inline;
- procedure setURXDA(thebits : TBits_1); inline;
- procedure setURXEN(thebits : TBits_1); inline;
- procedure setURXISEL(thebits : TBits_2); inline;
- procedure setURXISEL0(thebits : TBits_1); inline;
- procedure setURXISEL1(thebits : TBits_1); inline;
- procedure setUTXBF(thebits : TBits_1); inline;
- procedure setUTXBRK(thebits : TBits_1); inline;
- procedure setUTXEN(thebits : TBits_1); inline;
- procedure setUTXINV(thebits : TBits_1); inline;
- procedure setUTXISEL(thebits : TBits_2); inline;
- procedure setUTXISEL0(thebits : TBits_1); inline;
- procedure setUTXISEL1(thebits : TBits_1); inline;
- procedure setUTXSEL(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearADDEN; inline;
- procedure clearADM_EN; inline;
- procedure clearFERR; inline;
- procedure clearOERR; inline;
- procedure clearPERR; inline;
- procedure clearRIDLE; inline;
- procedure clearTRMT; inline;
- procedure clearURXDA; inline;
- procedure clearURXEN; inline;
- procedure clearURXISEL0; inline;
- procedure clearURXISEL1; inline;
- procedure clearUTXBF; inline;
- procedure clearUTXBRK; inline;
- procedure clearUTXEN; inline;
- procedure clearUTXINV; inline;
- procedure clearUTXISEL0; inline;
- procedure clearUTXISEL1; inline;
- procedure setADDEN; inline;
- procedure setADM_EN; inline;
- procedure setFERR; inline;
- procedure setOERR; inline;
- procedure setPERR; inline;
- procedure setRIDLE; inline;
- procedure setTRMT; inline;
- procedure setURXDA; inline;
- procedure setURXEN; inline;
- procedure setURXISEL0; inline;
- procedure setURXISEL1; inline;
- procedure setUTXBF; inline;
- procedure setUTXBRK; inline;
- procedure setUTXEN; inline;
- procedure setUTXINV; inline;
- procedure setUTXISEL0; inline;
- procedure setUTXISEL1; inline;
- property ADDEN : TBits_1 read getADDEN write setADDEN;
- property ADDR : TBits_8 read getADDR write setADDR;
- property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
- property FERR : TBits_1 read getFERR write setFERR;
- property OERR : TBits_1 read getOERR write setOERR;
- property PERR : TBits_1 read getPERR write setPERR;
- property RIDLE : TBits_1 read getRIDLE write setRIDLE;
- property TRMT : TBits_1 read getTRMT write setTRMT;
- property URXDA : TBits_1 read getURXDA write setURXDA;
- property URXEN : TBits_1 read getURXEN write setURXEN;
- property URXISEL : TBits_2 read getURXISEL write setURXISEL;
- property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
- property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
- property UTXBF : TBits_1 read getUTXBF write setUTXBF;
- property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
- property UTXEN : TBits_1 read getUTXEN write setUTXEN;
- property UTXINV : TBits_1 read getUTXINV write setUTXINV;
- property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
- property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
- property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
- property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
- property w : TBits_32 read getw write setw;
- end;
- TUART1_UDCSTA = record
- private
- function getADDEN : TBits_1; inline;
- function getADDR : TBits_8; inline;
- function getADM_EN : TBits_1; inline;
- function getFERR : TBits_1; inline;
- function getOERR : TBits_1; inline;
- function getPERR : TBits_1; inline;
- function getRIDLE : TBits_1; inline;
- function getTRMT : TBits_1; inline;
- function getURXDA : TBits_1; inline;
- function getURXEN : TBits_1; inline;
- function getURXISEL : TBits_2; inline;
- function getURXISEL0 : TBits_1; inline;
- function getURXISEL1 : TBits_1; inline;
- function getUTXBF : TBits_1; inline;
- function getUTXBRK : TBits_1; inline;
- function getUTXEN : TBits_1; inline;
- function getUTXINV : TBits_1; inline;
- function getUTXISEL : TBits_2; inline;
- function getUTXISEL0 : TBits_1; inline;
- function getUTXISEL1 : TBits_1; inline;
- function getUTXSEL : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setADDEN(thebits : TBits_1); inline;
- procedure setADDR(thebits : TBits_8); inline;
- procedure setADM_EN(thebits : TBits_1); inline;
- procedure setFERR(thebits : TBits_1); inline;
- procedure setOERR(thebits : TBits_1); inline;
- procedure setPERR(thebits : TBits_1); inline;
- procedure setRIDLE(thebits : TBits_1); inline;
- procedure setTRMT(thebits : TBits_1); inline;
- procedure setURXDA(thebits : TBits_1); inline;
- procedure setURXEN(thebits : TBits_1); inline;
- procedure setURXISEL(thebits : TBits_2); inline;
- procedure setURXISEL0(thebits : TBits_1); inline;
- procedure setURXISEL1(thebits : TBits_1); inline;
- procedure setUTXBF(thebits : TBits_1); inline;
- procedure setUTXBRK(thebits : TBits_1); inline;
- procedure setUTXEN(thebits : TBits_1); inline;
- procedure setUTXINV(thebits : TBits_1); inline;
- procedure setUTXISEL(thebits : TBits_2); inline;
- procedure setUTXISEL0(thebits : TBits_1); inline;
- procedure setUTXISEL1(thebits : TBits_1); inline;
- procedure setUTXSEL(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearADDEN; inline;
- procedure clearADM_EN; inline;
- procedure clearFERR; inline;
- procedure clearOERR; inline;
- procedure clearPERR; inline;
- procedure clearRIDLE; inline;
- procedure clearTRMT; inline;
- procedure clearURXDA; inline;
- procedure clearURXEN; inline;
- procedure clearURXISEL0; inline;
- procedure clearURXISEL1; inline;
- procedure clearUTXBF; inline;
- procedure clearUTXBRK; inline;
- procedure clearUTXEN; inline;
- procedure clearUTXINV; inline;
- procedure clearUTXISEL0; inline;
- procedure clearUTXISEL1; inline;
- procedure setADDEN; inline;
- procedure setADM_EN; inline;
- procedure setFERR; inline;
- procedure setOERR; inline;
- procedure setPERR; inline;
- procedure setRIDLE; inline;
- procedure setTRMT; inline;
- procedure setURXDA; inline;
- procedure setURXEN; inline;
- procedure setURXISEL0; inline;
- procedure setURXISEL1; inline;
- procedure setUTXBF; inline;
- procedure setUTXBRK; inline;
- procedure setUTXEN; inline;
- procedure setUTXINV; inline;
- procedure setUTXISEL0; inline;
- procedure setUTXISEL1; inline;
- property ADDEN : TBits_1 read getADDEN write setADDEN;
- property ADDR : TBits_8 read getADDR write setADDR;
- property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
- property FERR : TBits_1 read getFERR write setFERR;
- property OERR : TBits_1 read getOERR write setOERR;
- property PERR : TBits_1 read getPERR write setPERR;
- property RIDLE : TBits_1 read getRIDLE write setRIDLE;
- property TRMT : TBits_1 read getTRMT write setTRMT;
- property URXDA : TBits_1 read getURXDA write setURXDA;
- property URXEN : TBits_1 read getURXEN write setURXEN;
- property URXISEL : TBits_2 read getURXISEL write setURXISEL;
- property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
- property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
- property UTXBF : TBits_1 read getUTXBF write setUTXBF;
- property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
- property UTXEN : TBits_1 read getUTXEN write setUTXEN;
- property UTXINV : TBits_1 read getUTXINV write setUTXINV;
- property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
- property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
- property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
- property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TUART1Registers = record
- U1MODEbits : TUART1_U1MODE;
- U1MODE : longWord;
- UDCMODEbits : TUART1_UDCMODE;
- UDCMODE : longWord;
- U1MODECLR : longWord;
- UDCMODECLR : longWord;
- U1MODESET : longWord;
- UDCMODESET : longWord;
- U1MODEINV : longWord;
- UDCMODEINV : longWord;
- U1STAbits : TUART1_U1STA;
- U1STA : longWord;
- UDCSTAbits : TUART1_UDCSTA;
- UDCSTA : longWord;
- U1STACLR : longWord;
- UDCSTACLR : longWord;
- U1STASET : longWord;
- UDCSTASET : longWord;
- U1STAINV : longWord;
- UDCSTAINV : longWord;
- U1TXREG : longWord;
- UDCTXREG : longWord;
- U1RXREG : longWord;
- UDCRXREG : longWord;
- U1BRG : longWord;
- UDCBRG : longWord;
- U1BRGCLR : longWord;
- UDCBRGCLR : longWord;
- U1BRGSET : longWord;
- UDCBRGSET : longWord;
- U1BRGINV : longWord;
- UDCBRGINV : longWord;
- end;
- TUART2_U2MODE = record
- private
- function getABAUD : TBits_1; inline;
- function getBRGH : TBits_1; inline;
- function getIREN : TBits_1; inline;
- function getLPBACK : TBits_1; inline;
- function getON : TBits_1; inline;
- function getPDSEL : TBits_2; inline;
- function getPDSEL0 : TBits_1; inline;
- function getPDSEL1 : TBits_1; inline;
- function getRTSMD : TBits_1; inline;
- function getRXINV : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSTSEL : TBits_1; inline;
- function getUARTEN : TBits_1; inline;
- function getUEN : TBits_2; inline;
- function getUEN0 : TBits_1; inline;
- function getUEN1 : TBits_1; inline;
- function getUSIDL : TBits_1; inline;
- function getWAKE : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setABAUD(thebits : TBits_1); inline;
- procedure setBRGH(thebits : TBits_1); inline;
- procedure setIREN(thebits : TBits_1); inline;
- procedure setLPBACK(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setPDSEL(thebits : TBits_2); inline;
- procedure setPDSEL0(thebits : TBits_1); inline;
- procedure setPDSEL1(thebits : TBits_1); inline;
- procedure setRTSMD(thebits : TBits_1); inline;
- procedure setRXINV(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSTSEL(thebits : TBits_1); inline;
- procedure setUARTEN(thebits : TBits_1); inline;
- procedure setUEN(thebits : TBits_2); inline;
- procedure setUEN0(thebits : TBits_1); inline;
- procedure setUEN1(thebits : TBits_1); inline;
- procedure setUSIDL(thebits : TBits_1); inline;
- procedure setWAKE(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearABAUD; inline;
- procedure clearBRGH; inline;
- procedure clearIREN; inline;
- procedure clearLPBACK; inline;
- procedure clearON; inline;
- procedure clearPDSEL0; inline;
- procedure clearPDSEL1; inline;
- procedure clearRTSMD; inline;
- procedure clearRXINV; inline;
- procedure clearSIDL; inline;
- procedure clearSTSEL; inline;
- procedure clearUARTEN; inline;
- procedure clearUEN0; inline;
- procedure clearUEN1; inline;
- procedure clearUSIDL; inline;
- procedure clearWAKE; inline;
- procedure setABAUD; inline;
- procedure setBRGH; inline;
- procedure setIREN; inline;
- procedure setLPBACK; inline;
- procedure setON; inline;
- procedure setPDSEL0; inline;
- procedure setPDSEL1; inline;
- procedure setRTSMD; inline;
- procedure setRXINV; inline;
- procedure setSIDL; inline;
- procedure setSTSEL; inline;
- procedure setUARTEN; inline;
- procedure setUEN0; inline;
- procedure setUEN1; inline;
- procedure setUSIDL; inline;
- procedure setWAKE; inline;
- property ABAUD : TBits_1 read getABAUD write setABAUD;
- property BRGH : TBits_1 read getBRGH write setBRGH;
- property IREN : TBits_1 read getIREN write setIREN;
- property LPBACK : TBits_1 read getLPBACK write setLPBACK;
- property ON : TBits_1 read getON write setON;
- property PDSEL : TBits_2 read getPDSEL write setPDSEL;
- property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
- property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
- property RTSMD : TBits_1 read getRTSMD write setRTSMD;
- property RXINV : TBits_1 read getRXINV write setRXINV;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property STSEL : TBits_1 read getSTSEL write setSTSEL;
- property UARTEN : TBits_1 read getUARTEN write setUARTEN;
- property UEN : TBits_2 read getUEN write setUEN;
- property UEN0 : TBits_1 read getUEN0 write setUEN0;
- property UEN1 : TBits_1 read getUEN1 write setUEN1;
- property USIDL : TBits_1 read getUSIDL write setUSIDL;
- property WAKE : TBits_1 read getWAKE write setWAKE;
- property w : TBits_32 read getw write setw;
- end;
- TUART2_U8932MODE = record
- private
- function getABAUD : TBits_1; inline;
- function getBRGH : TBits_1; inline;
- function getIREN : TBits_1; inline;
- function getLPBACK : TBits_1; inline;
- function getON : TBits_1; inline;
- function getPDSEL : TBits_2; inline;
- function getPDSEL0 : TBits_1; inline;
- function getPDSEL1 : TBits_1; inline;
- function getRTSMD : TBits_1; inline;
- function getRXINV : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSTSEL : TBits_1; inline;
- function getUARTEN : TBits_1; inline;
- function getUEN : TBits_2; inline;
- function getUEN0 : TBits_1; inline;
- function getUEN1 : TBits_1; inline;
- function getUSIDL : TBits_1; inline;
- function getWAKE : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setABAUD(thebits : TBits_1); inline;
- procedure setBRGH(thebits : TBits_1); inline;
- procedure setIREN(thebits : TBits_1); inline;
- procedure setLPBACK(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setPDSEL(thebits : TBits_2); inline;
- procedure setPDSEL0(thebits : TBits_1); inline;
- procedure setPDSEL1(thebits : TBits_1); inline;
- procedure setRTSMD(thebits : TBits_1); inline;
- procedure setRXINV(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSTSEL(thebits : TBits_1); inline;
- procedure setUARTEN(thebits : TBits_1); inline;
- procedure setUEN(thebits : TBits_2); inline;
- procedure setUEN0(thebits : TBits_1); inline;
- procedure setUEN1(thebits : TBits_1); inline;
- procedure setUSIDL(thebits : TBits_1); inline;
- procedure setWAKE(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearABAUD; inline;
- procedure clearBRGH; inline;
- procedure clearIREN; inline;
- procedure clearLPBACK; inline;
- procedure clearON; inline;
- procedure clearPDSEL0; inline;
- procedure clearPDSEL1; inline;
- procedure clearRTSMD; inline;
- procedure clearRXINV; inline;
- procedure clearSIDL; inline;
- procedure clearSTSEL; inline;
- procedure clearUARTEN; inline;
- procedure clearUEN0; inline;
- procedure clearUEN1; inline;
- procedure clearUSIDL; inline;
- procedure clearWAKE; inline;
- procedure setABAUD; inline;
- procedure setBRGH; inline;
- procedure setIREN; inline;
- procedure setLPBACK; inline;
- procedure setON; inline;
- procedure setPDSEL0; inline;
- procedure setPDSEL1; inline;
- procedure setRTSMD; inline;
- procedure setRXINV; inline;
- procedure setSIDL; inline;
- procedure setSTSEL; inline;
- procedure setUARTEN; inline;
- procedure setUEN0; inline;
- procedure setUEN1; inline;
- procedure setUSIDL; inline;
- procedure setWAKE; inline;
- property ABAUD : TBits_1 read getABAUD write setABAUD;
- property BRGH : TBits_1 read getBRGH write setBRGH;
- property IREN : TBits_1 read getIREN write setIREN;
- property LPBACK : TBits_1 read getLPBACK write setLPBACK;
- property ON : TBits_1 read getON write setON;
- property PDSEL : TBits_2 read getPDSEL write setPDSEL;
- property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
- property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
- property RTSMD : TBits_1 read getRTSMD write setRTSMD;
- property RXINV : TBits_1 read getRXINV write setRXINV;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property STSEL : TBits_1 read getSTSEL write setSTSEL;
- property UARTEN : TBits_1 read getUARTEN write setUARTEN;
- property UEN : TBits_2 read getUEN write setUEN;
- property UEN0 : TBits_1 read getUEN0 write setUEN0;
- property UEN1 : TBits_1 read getUEN1 write setUEN1;
- property USIDL : TBits_1 read getUSIDL write setUSIDL;
- property WAKE : TBits_1 read getWAKE write setWAKE;
- property w : TBits_32 read getw write setw;
- end;
- TUART2_U2STA = record
- private
- function getADDEN : TBits_1; inline;
- function getADDR : TBits_8; inline;
- function getADM_EN : TBits_1; inline;
- function getFERR : TBits_1; inline;
- function getOERR : TBits_1; inline;
- function getPERR : TBits_1; inline;
- function getRIDLE : TBits_1; inline;
- function getTRMT : TBits_1; inline;
- function getURXDA : TBits_1; inline;
- function getURXEN : TBits_1; inline;
- function getURXISEL : TBits_2; inline;
- function getURXISEL0 : TBits_1; inline;
- function getURXISEL1 : TBits_1; inline;
- function getUTXBF : TBits_1; inline;
- function getUTXBRK : TBits_1; inline;
- function getUTXEN : TBits_1; inline;
- function getUTXINV : TBits_1; inline;
- function getUTXISEL : TBits_2; inline;
- function getUTXISEL0 : TBits_1; inline;
- function getUTXISEL1 : TBits_1; inline;
- function getUTXSEL : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setADDEN(thebits : TBits_1); inline;
- procedure setADDR(thebits : TBits_8); inline;
- procedure setADM_EN(thebits : TBits_1); inline;
- procedure setFERR(thebits : TBits_1); inline;
- procedure setOERR(thebits : TBits_1); inline;
- procedure setPERR(thebits : TBits_1); inline;
- procedure setRIDLE(thebits : TBits_1); inline;
- procedure setTRMT(thebits : TBits_1); inline;
- procedure setURXDA(thebits : TBits_1); inline;
- procedure setURXEN(thebits : TBits_1); inline;
- procedure setURXISEL(thebits : TBits_2); inline;
- procedure setURXISEL0(thebits : TBits_1); inline;
- procedure setURXISEL1(thebits : TBits_1); inline;
- procedure setUTXBF(thebits : TBits_1); inline;
- procedure setUTXBRK(thebits : TBits_1); inline;
- procedure setUTXEN(thebits : TBits_1); inline;
- procedure setUTXINV(thebits : TBits_1); inline;
- procedure setUTXISEL(thebits : TBits_2); inline;
- procedure setUTXISEL0(thebits : TBits_1); inline;
- procedure setUTXISEL1(thebits : TBits_1); inline;
- procedure setUTXSEL(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearADDEN; inline;
- procedure clearADM_EN; inline;
- procedure clearFERR; inline;
- procedure clearOERR; inline;
- procedure clearPERR; inline;
- procedure clearRIDLE; inline;
- procedure clearTRMT; inline;
- procedure clearURXDA; inline;
- procedure clearURXEN; inline;
- procedure clearURXISEL0; inline;
- procedure clearURXISEL1; inline;
- procedure clearUTXBF; inline;
- procedure clearUTXBRK; inline;
- procedure clearUTXEN; inline;
- procedure clearUTXINV; inline;
- procedure clearUTXISEL0; inline;
- procedure clearUTXISEL1; inline;
- procedure setADDEN; inline;
- procedure setADM_EN; inline;
- procedure setFERR; inline;
- procedure setOERR; inline;
- procedure setPERR; inline;
- procedure setRIDLE; inline;
- procedure setTRMT; inline;
- procedure setURXDA; inline;
- procedure setURXEN; inline;
- procedure setURXISEL0; inline;
- procedure setURXISEL1; inline;
- procedure setUTXBF; inline;
- procedure setUTXBRK; inline;
- procedure setUTXEN; inline;
- procedure setUTXINV; inline;
- procedure setUTXISEL0; inline;
- procedure setUTXISEL1; inline;
- property ADDEN : TBits_1 read getADDEN write setADDEN;
- property ADDR : TBits_8 read getADDR write setADDR;
- property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
- property FERR : TBits_1 read getFERR write setFERR;
- property OERR : TBits_1 read getOERR write setOERR;
- property PERR : TBits_1 read getPERR write setPERR;
- property RIDLE : TBits_1 read getRIDLE write setRIDLE;
- property TRMT : TBits_1 read getTRMT write setTRMT;
- property URXDA : TBits_1 read getURXDA write setURXDA;
- property URXEN : TBits_1 read getURXEN write setURXEN;
- property URXISEL : TBits_2 read getURXISEL write setURXISEL;
- property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
- property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
- property UTXBF : TBits_1 read getUTXBF write setUTXBF;
- property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
- property UTXEN : TBits_1 read getUTXEN write setUTXEN;
- property UTXINV : TBits_1 read getUTXINV write setUTXINV;
- property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
- property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
- property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
- property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
- property w : TBits_32 read getw write setw;
- end;
- TUART2_U8932STA = record
- private
- function getADDEN : TBits_1; inline;
- function getADDR : TBits_8; inline;
- function getADM_EN : TBits_1; inline;
- function getFERR : TBits_1; inline;
- function getOERR : TBits_1; inline;
- function getPERR : TBits_1; inline;
- function getRIDLE : TBits_1; inline;
- function getTRMT : TBits_1; inline;
- function getURXDA : TBits_1; inline;
- function getURXEN : TBits_1; inline;
- function getURXISEL : TBits_2; inline;
- function getURXISEL0 : TBits_1; inline;
- function getURXISEL1 : TBits_1; inline;
- function getUTXBF : TBits_1; inline;
- function getUTXBRK : TBits_1; inline;
- function getUTXEN : TBits_1; inline;
- function getUTXINV : TBits_1; inline;
- function getUTXISEL : TBits_2; inline;
- function getUTXISEL0 : TBits_1; inline;
- function getUTXISEL1 : TBits_1; inline;
- function getUTXSEL : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setADDEN(thebits : TBits_1); inline;
- procedure setADDR(thebits : TBits_8); inline;
- procedure setADM_EN(thebits : TBits_1); inline;
- procedure setFERR(thebits : TBits_1); inline;
- procedure setOERR(thebits : TBits_1); inline;
- procedure setPERR(thebits : TBits_1); inline;
- procedure setRIDLE(thebits : TBits_1); inline;
- procedure setTRMT(thebits : TBits_1); inline;
- procedure setURXDA(thebits : TBits_1); inline;
- procedure setURXEN(thebits : TBits_1); inline;
- procedure setURXISEL(thebits : TBits_2); inline;
- procedure setURXISEL0(thebits : TBits_1); inline;
- procedure setURXISEL1(thebits : TBits_1); inline;
- procedure setUTXBF(thebits : TBits_1); inline;
- procedure setUTXBRK(thebits : TBits_1); inline;
- procedure setUTXEN(thebits : TBits_1); inline;
- procedure setUTXINV(thebits : TBits_1); inline;
- procedure setUTXISEL(thebits : TBits_2); inline;
- procedure setUTXISEL0(thebits : TBits_1); inline;
- procedure setUTXISEL1(thebits : TBits_1); inline;
- procedure setUTXSEL(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearADDEN; inline;
- procedure clearADM_EN; inline;
- procedure clearFERR; inline;
- procedure clearOERR; inline;
- procedure clearPERR; inline;
- procedure clearRIDLE; inline;
- procedure clearTRMT; inline;
- procedure clearURXDA; inline;
- procedure clearURXEN; inline;
- procedure clearURXISEL0; inline;
- procedure clearURXISEL1; inline;
- procedure clearUTXBF; inline;
- procedure clearUTXBRK; inline;
- procedure clearUTXEN; inline;
- procedure clearUTXINV; inline;
- procedure clearUTXISEL0; inline;
- procedure clearUTXISEL1; inline;
- procedure setADDEN; inline;
- procedure setADM_EN; inline;
- procedure setFERR; inline;
- procedure setOERR; inline;
- procedure setPERR; inline;
- procedure setRIDLE; inline;
- procedure setTRMT; inline;
- procedure setURXDA; inline;
- procedure setURXEN; inline;
- procedure setURXISEL0; inline;
- procedure setURXISEL1; inline;
- procedure setUTXBF; inline;
- procedure setUTXBRK; inline;
- procedure setUTXEN; inline;
- procedure setUTXINV; inline;
- procedure setUTXISEL0; inline;
- procedure setUTXISEL1; inline;
- property ADDEN : TBits_1 read getADDEN write setADDEN;
- property ADDR : TBits_8 read getADDR write setADDR;
- property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
- property FERR : TBits_1 read getFERR write setFERR;
- property OERR : TBits_1 read getOERR write setOERR;
- property PERR : TBits_1 read getPERR write setPERR;
- property RIDLE : TBits_1 read getRIDLE write setRIDLE;
- property TRMT : TBits_1 read getTRMT write setTRMT;
- property URXDA : TBits_1 read getURXDA write setURXDA;
- property URXEN : TBits_1 read getURXEN write setURXEN;
- property URXISEL : TBits_2 read getURXISEL write setURXISEL;
- property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
- property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
- property UTXBF : TBits_1 read getUTXBF write setUTXBF;
- property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
- property UTXEN : TBits_1 read getUTXEN write setUTXEN;
- property UTXINV : TBits_1 read getUTXINV write setUTXINV;
- property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
- property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
- property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
- property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TUART2Registers = record
- U2MODEbits : TUART2_U2MODE;
- U2MODE : longWord;
- U8932MODEbits : TUART2_U8932MODE;
- U8932MODE : longWord;
- U2MODECLR : longWord;
- U8932MODECLR : longWord;
- U2MODESET : longWord;
- U8932MODESET : longWord;
- U2MODEINV : longWord;
- U8932MODEINV : longWord;
- U2STAbits : TUART2_U2STA;
- U2STA : longWord;
- U8932STAbits : TUART2_U8932STA;
- U8932STA : longWord;
- U2STACLR : longWord;
- U8932STACLR : longWord;
- U2STASET : longWord;
- U8932STASET : longWord;
- U2STAINV : longWord;
- U8932STAINV : longWord;
- U2TXREG : longWord;
- U8932TXREG : longWord;
- U2RXREG : longWord;
- U8932RXREG : longWord;
- U2BRG : longWord;
- U8932BRG : longWord;
- U2BRGCLR : longWord;
- U8932BRGCLR : longWord;
- U2BRGSET : longWord;
- U8932BRGSET : longWord;
- U2BRGINV : longWord;
- U8932BRGINV : longWord;
- end;
- TUART3_U39MODE = record
- private
- function getABAUD : TBits_1; inline;
- function getBRGH : TBits_1; inline;
- function getIREN : TBits_1; inline;
- function getLPBACK : TBits_1; inline;
- function getON : TBits_1; inline;
- function getPDSEL : TBits_2; inline;
- function getPDSEL0 : TBits_1; inline;
- function getPDSEL1 : TBits_1; inline;
- function getRTSMD : TBits_1; inline;
- function getRXINV : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSTSEL : TBits_1; inline;
- function getUARTEN : TBits_1; inline;
- function getUEN : TBits_2; inline;
- function getUEN0 : TBits_1; inline;
- function getUEN1 : TBits_1; inline;
- function getUSIDL : TBits_1; inline;
- function getWAKE : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setABAUD(thebits : TBits_1); inline;
- procedure setBRGH(thebits : TBits_1); inline;
- procedure setIREN(thebits : TBits_1); inline;
- procedure setLPBACK(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setPDSEL(thebits : TBits_2); inline;
- procedure setPDSEL0(thebits : TBits_1); inline;
- procedure setPDSEL1(thebits : TBits_1); inline;
- procedure setRTSMD(thebits : TBits_1); inline;
- procedure setRXINV(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSTSEL(thebits : TBits_1); inline;
- procedure setUARTEN(thebits : TBits_1); inline;
- procedure setUEN(thebits : TBits_2); inline;
- procedure setUEN0(thebits : TBits_1); inline;
- procedure setUEN1(thebits : TBits_1); inline;
- procedure setUSIDL(thebits : TBits_1); inline;
- procedure setWAKE(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearABAUD; inline;
- procedure clearBRGH; inline;
- procedure clearIREN; inline;
- procedure clearLPBACK; inline;
- procedure clearON; inline;
- procedure clearPDSEL0; inline;
- procedure clearPDSEL1; inline;
- procedure clearRTSMD; inline;
- procedure clearRXINV; inline;
- procedure clearSIDL; inline;
- procedure clearSTSEL; inline;
- procedure clearUARTEN; inline;
- procedure clearUEN0; inline;
- procedure clearUEN1; inline;
- procedure clearUSIDL; inline;
- procedure clearWAKE; inline;
- procedure setABAUD; inline;
- procedure setBRGH; inline;
- procedure setIREN; inline;
- procedure setLPBACK; inline;
- procedure setON; inline;
- procedure setPDSEL0; inline;
- procedure setPDSEL1; inline;
- procedure setRTSMD; inline;
- procedure setRXINV; inline;
- procedure setSIDL; inline;
- procedure setSTSEL; inline;
- procedure setUARTEN; inline;
- procedure setUEN0; inline;
- procedure setUEN1; inline;
- procedure setUSIDL; inline;
- procedure setWAKE; inline;
- property ABAUD : TBits_1 read getABAUD write setABAUD;
- property BRGH : TBits_1 read getBRGH write setBRGH;
- property IREN : TBits_1 read getIREN write setIREN;
- property LPBACK : TBits_1 read getLPBACK write setLPBACK;
- property ON : TBits_1 read getON write setON;
- property PDSEL : TBits_2 read getPDSEL write setPDSEL;
- property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
- property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
- property RTSMD : TBits_1 read getRTSMD write setRTSMD;
- property RXINV : TBits_1 read getRXINV write setRXINV;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property STSEL : TBits_1 read getSTSEL write setSTSEL;
- property UARTEN : TBits_1 read getUARTEN write setUARTEN;
- property UEN : TBits_2 read getUEN write setUEN;
- property UEN0 : TBits_1 read getUEN0 write setUEN0;
- property UEN1 : TBits_1 read getUEN1 write setUEN1;
- property USIDL : TBits_1 read getUSIDL write setUSIDL;
- property WAKE : TBits_1 read getWAKE write setWAKE;
- property w : TBits_32 read getw write setw;
- end;
- TUART3_U3MODE = record
- private
- function getABAUD : TBits_1; inline;
- function getBRGH : TBits_1; inline;
- function getIREN : TBits_1; inline;
- function getLPBACK : TBits_1; inline;
- function getON : TBits_1; inline;
- function getPDSEL : TBits_2; inline;
- function getPDSEL0 : TBits_1; inline;
- function getPDSEL1 : TBits_1; inline;
- function getRTSMD : TBits_1; inline;
- function getRXINV : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSTSEL : TBits_1; inline;
- function getUARTEN : TBits_1; inline;
- function getUEN : TBits_2; inline;
- function getUEN0 : TBits_1; inline;
- function getUEN1 : TBits_1; inline;
- function getUSIDL : TBits_1; inline;
- function getWAKE : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setABAUD(thebits : TBits_1); inline;
- procedure setBRGH(thebits : TBits_1); inline;
- procedure setIREN(thebits : TBits_1); inline;
- procedure setLPBACK(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setPDSEL(thebits : TBits_2); inline;
- procedure setPDSEL0(thebits : TBits_1); inline;
- procedure setPDSEL1(thebits : TBits_1); inline;
- procedure setRTSMD(thebits : TBits_1); inline;
- procedure setRXINV(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSTSEL(thebits : TBits_1); inline;
- procedure setUARTEN(thebits : TBits_1); inline;
- procedure setUEN(thebits : TBits_2); inline;
- procedure setUEN0(thebits : TBits_1); inline;
- procedure setUEN1(thebits : TBits_1); inline;
- procedure setUSIDL(thebits : TBits_1); inline;
- procedure setWAKE(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearABAUD; inline;
- procedure clearBRGH; inline;
- procedure clearIREN; inline;
- procedure clearLPBACK; inline;
- procedure clearON; inline;
- procedure clearPDSEL0; inline;
- procedure clearPDSEL1; inline;
- procedure clearRTSMD; inline;
- procedure clearRXINV; inline;
- procedure clearSIDL; inline;
- procedure clearSTSEL; inline;
- procedure clearUARTEN; inline;
- procedure clearUEN0; inline;
- procedure clearUEN1; inline;
- procedure clearUSIDL; inline;
- procedure clearWAKE; inline;
- procedure setABAUD; inline;
- procedure setBRGH; inline;
- procedure setIREN; inline;
- procedure setLPBACK; inline;
- procedure setON; inline;
- procedure setPDSEL0; inline;
- procedure setPDSEL1; inline;
- procedure setRTSMD; inline;
- procedure setRXINV; inline;
- procedure setSIDL; inline;
- procedure setSTSEL; inline;
- procedure setUARTEN; inline;
- procedure setUEN0; inline;
- procedure setUEN1; inline;
- procedure setUSIDL; inline;
- procedure setWAKE; inline;
- property ABAUD : TBits_1 read getABAUD write setABAUD;
- property BRGH : TBits_1 read getBRGH write setBRGH;
- property IREN : TBits_1 read getIREN write setIREN;
- property LPBACK : TBits_1 read getLPBACK write setLPBACK;
- property ON : TBits_1 read getON write setON;
- property PDSEL : TBits_2 read getPDSEL write setPDSEL;
- property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
- property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
- property RTSMD : TBits_1 read getRTSMD write setRTSMD;
- property RXINV : TBits_1 read getRXINV write setRXINV;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property STSEL : TBits_1 read getSTSEL write setSTSEL;
- property UARTEN : TBits_1 read getUARTEN write setUARTEN;
- property UEN : TBits_2 read getUEN write setUEN;
- property UEN0 : TBits_1 read getUEN0 write setUEN0;
- property UEN1 : TBits_1 read getUEN1 write setUEN1;
- property USIDL : TBits_1 read getUSIDL write setUSIDL;
- property WAKE : TBits_1 read getWAKE write setWAKE;
- property w : TBits_32 read getw write setw;
- end;
- TUART3_U39STA = record
- private
- function getADDEN : TBits_1; inline;
- function getADDR : TBits_8; inline;
- function getADM_EN : TBits_1; inline;
- function getFERR : TBits_1; inline;
- function getOERR : TBits_1; inline;
- function getPERR : TBits_1; inline;
- function getRIDLE : TBits_1; inline;
- function getTRMT : TBits_1; inline;
- function getURXDA : TBits_1; inline;
- function getURXEN : TBits_1; inline;
- function getURXISEL : TBits_2; inline;
- function getURXISEL0 : TBits_1; inline;
- function getURXISEL1 : TBits_1; inline;
- function getUTXBF : TBits_1; inline;
- function getUTXBRK : TBits_1; inline;
- function getUTXEN : TBits_1; inline;
- function getUTXINV : TBits_1; inline;
- function getUTXISEL : TBits_2; inline;
- function getUTXISEL0 : TBits_1; inline;
- function getUTXISEL1 : TBits_1; inline;
- function getUTXSEL : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setADDEN(thebits : TBits_1); inline;
- procedure setADDR(thebits : TBits_8); inline;
- procedure setADM_EN(thebits : TBits_1); inline;
- procedure setFERR(thebits : TBits_1); inline;
- procedure setOERR(thebits : TBits_1); inline;
- procedure setPERR(thebits : TBits_1); inline;
- procedure setRIDLE(thebits : TBits_1); inline;
- procedure setTRMT(thebits : TBits_1); inline;
- procedure setURXDA(thebits : TBits_1); inline;
- procedure setURXEN(thebits : TBits_1); inline;
- procedure setURXISEL(thebits : TBits_2); inline;
- procedure setURXISEL0(thebits : TBits_1); inline;
- procedure setURXISEL1(thebits : TBits_1); inline;
- procedure setUTXBF(thebits : TBits_1); inline;
- procedure setUTXBRK(thebits : TBits_1); inline;
- procedure setUTXEN(thebits : TBits_1); inline;
- procedure setUTXINV(thebits : TBits_1); inline;
- procedure setUTXISEL(thebits : TBits_2); inline;
- procedure setUTXISEL0(thebits : TBits_1); inline;
- procedure setUTXISEL1(thebits : TBits_1); inline;
- procedure setUTXSEL(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearADDEN; inline;
- procedure clearADM_EN; inline;
- procedure clearFERR; inline;
- procedure clearOERR; inline;
- procedure clearPERR; inline;
- procedure clearRIDLE; inline;
- procedure clearTRMT; inline;
- procedure clearURXDA; inline;
- procedure clearURXEN; inline;
- procedure clearURXISEL0; inline;
- procedure clearURXISEL1; inline;
- procedure clearUTXBF; inline;
- procedure clearUTXBRK; inline;
- procedure clearUTXEN; inline;
- procedure clearUTXINV; inline;
- procedure clearUTXISEL0; inline;
- procedure clearUTXISEL1; inline;
- procedure setADDEN; inline;
- procedure setADM_EN; inline;
- procedure setFERR; inline;
- procedure setOERR; inline;
- procedure setPERR; inline;
- procedure setRIDLE; inline;
- procedure setTRMT; inline;
- procedure setURXDA; inline;
- procedure setURXEN; inline;
- procedure setURXISEL0; inline;
- procedure setURXISEL1; inline;
- procedure setUTXBF; inline;
- procedure setUTXBRK; inline;
- procedure setUTXEN; inline;
- procedure setUTXINV; inline;
- procedure setUTXISEL0; inline;
- procedure setUTXISEL1; inline;
- property ADDEN : TBits_1 read getADDEN write setADDEN;
- property ADDR : TBits_8 read getADDR write setADDR;
- property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
- property FERR : TBits_1 read getFERR write setFERR;
- property OERR : TBits_1 read getOERR write setOERR;
- property PERR : TBits_1 read getPERR write setPERR;
- property RIDLE : TBits_1 read getRIDLE write setRIDLE;
- property TRMT : TBits_1 read getTRMT write setTRMT;
- property URXDA : TBits_1 read getURXDA write setURXDA;
- property URXEN : TBits_1 read getURXEN write setURXEN;
- property URXISEL : TBits_2 read getURXISEL write setURXISEL;
- property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
- property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
- property UTXBF : TBits_1 read getUTXBF write setUTXBF;
- property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
- property UTXEN : TBits_1 read getUTXEN write setUTXEN;
- property UTXINV : TBits_1 read getUTXINV write setUTXINV;
- property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
- property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
- property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
- property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
- property w : TBits_32 read getw write setw;
- end;
- TUART3_U3STA = record
- private
- function getADDEN : TBits_1; inline;
- function getADDR : TBits_8; inline;
- function getADM_EN : TBits_1; inline;
- function getFERR : TBits_1; inline;
- function getOERR : TBits_1; inline;
- function getPERR : TBits_1; inline;
- function getRIDLE : TBits_1; inline;
- function getTRMT : TBits_1; inline;
- function getURXDA : TBits_1; inline;
- function getURXEN : TBits_1; inline;
- function getURXISEL : TBits_2; inline;
- function getURXISEL0 : TBits_1; inline;
- function getURXISEL1 : TBits_1; inline;
- function getUTXBF : TBits_1; inline;
- function getUTXBRK : TBits_1; inline;
- function getUTXEN : TBits_1; inline;
- function getUTXINV : TBits_1; inline;
- function getUTXISEL : TBits_2; inline;
- function getUTXISEL0 : TBits_1; inline;
- function getUTXISEL1 : TBits_1; inline;
- function getUTXSEL : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setADDEN(thebits : TBits_1); inline;
- procedure setADDR(thebits : TBits_8); inline;
- procedure setADM_EN(thebits : TBits_1); inline;
- procedure setFERR(thebits : TBits_1); inline;
- procedure setOERR(thebits : TBits_1); inline;
- procedure setPERR(thebits : TBits_1); inline;
- procedure setRIDLE(thebits : TBits_1); inline;
- procedure setTRMT(thebits : TBits_1); inline;
- procedure setURXDA(thebits : TBits_1); inline;
- procedure setURXEN(thebits : TBits_1); inline;
- procedure setURXISEL(thebits : TBits_2); inline;
- procedure setURXISEL0(thebits : TBits_1); inline;
- procedure setURXISEL1(thebits : TBits_1); inline;
- procedure setUTXBF(thebits : TBits_1); inline;
- procedure setUTXBRK(thebits : TBits_1); inline;
- procedure setUTXEN(thebits : TBits_1); inline;
- procedure setUTXINV(thebits : TBits_1); inline;
- procedure setUTXISEL(thebits : TBits_2); inline;
- procedure setUTXISEL0(thebits : TBits_1); inline;
- procedure setUTXISEL1(thebits : TBits_1); inline;
- procedure setUTXSEL(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearADDEN; inline;
- procedure clearADM_EN; inline;
- procedure clearFERR; inline;
- procedure clearOERR; inline;
- procedure clearPERR; inline;
- procedure clearRIDLE; inline;
- procedure clearTRMT; inline;
- procedure clearURXDA; inline;
- procedure clearURXEN; inline;
- procedure clearURXISEL0; inline;
- procedure clearURXISEL1; inline;
- procedure clearUTXBF; inline;
- procedure clearUTXBRK; inline;
- procedure clearUTXEN; inline;
- procedure clearUTXINV; inline;
- procedure clearUTXISEL0; inline;
- procedure clearUTXISEL1; inline;
- procedure setADDEN; inline;
- procedure setADM_EN; inline;
- procedure setFERR; inline;
- procedure setOERR; inline;
- procedure setPERR; inline;
- procedure setRIDLE; inline;
- procedure setTRMT; inline;
- procedure setURXDA; inline;
- procedure setURXEN; inline;
- procedure setURXISEL0; inline;
- procedure setURXISEL1; inline;
- procedure setUTXBF; inline;
- procedure setUTXBRK; inline;
- procedure setUTXEN; inline;
- procedure setUTXINV; inline;
- procedure setUTXISEL0; inline;
- procedure setUTXISEL1; inline;
- property ADDEN : TBits_1 read getADDEN write setADDEN;
- property ADDR : TBits_8 read getADDR write setADDR;
- property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
- property FERR : TBits_1 read getFERR write setFERR;
- property OERR : TBits_1 read getOERR write setOERR;
- property PERR : TBits_1 read getPERR write setPERR;
- property RIDLE : TBits_1 read getRIDLE write setRIDLE;
- property TRMT : TBits_1 read getTRMT write setTRMT;
- property URXDA : TBits_1 read getURXDA write setURXDA;
- property URXEN : TBits_1 read getURXEN write setURXEN;
- property URXISEL : TBits_2 read getURXISEL write setURXISEL;
- property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
- property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
- property UTXBF : TBits_1 read getUTXBF write setUTXBF;
- property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
- property UTXEN : TBits_1 read getUTXEN write setUTXEN;
- property UTXINV : TBits_1 read getUTXINV write setUTXINV;
- property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
- property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
- property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
- property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TUART3Registers = record
- U39MODEbits : TUART3_U39MODE;
- U39MODE : longWord;
- U3MODEbits : TUART3_U3MODE;
- U3MODE : longWord;
- U39MODECLR : longWord;
- U3MODECLR : longWord;
- U39MODESET : longWord;
- U3MODESET : longWord;
- U39MODEINV : longWord;
- U3MODEINV : longWord;
- U39STAbits : TUART3_U39STA;
- U39STA : longWord;
- U3STAbits : TUART3_U3STA;
- U3STA : longWord;
- U39STACLR : longWord;
- U3STACLR : longWord;
- U39STASET : longWord;
- U3STASET : longWord;
- U39STAINV : longWord;
- U3STAINV : longWord;
- U39TXREG : longWord;
- U3TXREG : longWord;
- U39RXREG : longWord;
- U3RXREG : longWord;
- U39BRG : longWord;
- U3BRG : longWord;
- U39BRGCLR : longWord;
- U3BRGCLR : longWord;
- U39BRGSET : longWord;
- U3BRGSET : longWord;
- U39BRGINV : longWord;
- U3BRGINV : longWord;
- end;
- TUART4_U4MODE = record
- private
- function getABAUD : TBits_1; inline;
- function getBRGH : TBits_1; inline;
- function getIREN : TBits_1; inline;
- function getLPBACK : TBits_1; inline;
- function getON : TBits_1; inline;
- function getPDSEL : TBits_2; inline;
- function getPDSEL0 : TBits_1; inline;
- function getPDSEL1 : TBits_1; inline;
- function getRTSMD : TBits_1; inline;
- function getRXINV : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSTSEL : TBits_1; inline;
- function getUARTEN : TBits_1; inline;
- function getUEN : TBits_2; inline;
- function getUEN0 : TBits_1; inline;
- function getUEN1 : TBits_1; inline;
- function getUSIDL : TBits_1; inline;
- function getWAKE : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setABAUD(thebits : TBits_1); inline;
- procedure setBRGH(thebits : TBits_1); inline;
- procedure setIREN(thebits : TBits_1); inline;
- procedure setLPBACK(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setPDSEL(thebits : TBits_2); inline;
- procedure setPDSEL0(thebits : TBits_1); inline;
- procedure setPDSEL1(thebits : TBits_1); inline;
- procedure setRTSMD(thebits : TBits_1); inline;
- procedure setRXINV(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSTSEL(thebits : TBits_1); inline;
- procedure setUARTEN(thebits : TBits_1); inline;
- procedure setUEN(thebits : TBits_2); inline;
- procedure setUEN0(thebits : TBits_1); inline;
- procedure setUEN1(thebits : TBits_1); inline;
- procedure setUSIDL(thebits : TBits_1); inline;
- procedure setWAKE(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearABAUD; inline;
- procedure clearBRGH; inline;
- procedure clearIREN; inline;
- procedure clearLPBACK; inline;
- procedure clearON; inline;
- procedure clearPDSEL0; inline;
- procedure clearPDSEL1; inline;
- procedure clearRTSMD; inline;
- procedure clearRXINV; inline;
- procedure clearSIDL; inline;
- procedure clearSTSEL; inline;
- procedure clearUARTEN; inline;
- procedure clearUEN0; inline;
- procedure clearUEN1; inline;
- procedure clearUSIDL; inline;
- procedure clearWAKE; inline;
- procedure setABAUD; inline;
- procedure setBRGH; inline;
- procedure setIREN; inline;
- procedure setLPBACK; inline;
- procedure setON; inline;
- procedure setPDSEL0; inline;
- procedure setPDSEL1; inline;
- procedure setRTSMD; inline;
- procedure setRXINV; inline;
- procedure setSIDL; inline;
- procedure setSTSEL; inline;
- procedure setUARTEN; inline;
- procedure setUEN0; inline;
- procedure setUEN1; inline;
- procedure setUSIDL; inline;
- procedure setWAKE; inline;
- property ABAUD : TBits_1 read getABAUD write setABAUD;
- property BRGH : TBits_1 read getBRGH write setBRGH;
- property IREN : TBits_1 read getIREN write setIREN;
- property LPBACK : TBits_1 read getLPBACK write setLPBACK;
- property ON : TBits_1 read getON write setON;
- property PDSEL : TBits_2 read getPDSEL write setPDSEL;
- property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
- property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
- property RTSMD : TBits_1 read getRTSMD write setRTSMD;
- property RXINV : TBits_1 read getRXINV write setRXINV;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property STSEL : TBits_1 read getSTSEL write setSTSEL;
- property UARTEN : TBits_1 read getUARTEN write setUARTEN;
- property UEN : TBits_2 read getUEN write setUEN;
- property UEN0 : TBits_1 read getUEN0 write setUEN0;
- property UEN1 : TBits_1 read getUEN1 write setUEN1;
- property USIDL : TBits_1 read getUSIDL write setUSIDL;
- property WAKE : TBits_1 read getWAKE write setWAKE;
- property w : TBits_32 read getw write setw;
- end;
- TUART4_UodMODE = record
- private
- function getABAUD : TBits_1; inline;
- function getBRGH : TBits_1; inline;
- function getIREN : TBits_1; inline;
- function getLPBACK : TBits_1; inline;
- function getON : TBits_1; inline;
- function getPDSEL : TBits_2; inline;
- function getPDSEL0 : TBits_1; inline;
- function getPDSEL1 : TBits_1; inline;
- function getRTSMD : TBits_1; inline;
- function getRXINV : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSTSEL : TBits_1; inline;
- function getUARTEN : TBits_1; inline;
- function getUEN : TBits_2; inline;
- function getUEN0 : TBits_1; inline;
- function getUEN1 : TBits_1; inline;
- function getUSIDL : TBits_1; inline;
- function getWAKE : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setABAUD(thebits : TBits_1); inline;
- procedure setBRGH(thebits : TBits_1); inline;
- procedure setIREN(thebits : TBits_1); inline;
- procedure setLPBACK(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setPDSEL(thebits : TBits_2); inline;
- procedure setPDSEL0(thebits : TBits_1); inline;
- procedure setPDSEL1(thebits : TBits_1); inline;
- procedure setRTSMD(thebits : TBits_1); inline;
- procedure setRXINV(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSTSEL(thebits : TBits_1); inline;
- procedure setUARTEN(thebits : TBits_1); inline;
- procedure setUEN(thebits : TBits_2); inline;
- procedure setUEN0(thebits : TBits_1); inline;
- procedure setUEN1(thebits : TBits_1); inline;
- procedure setUSIDL(thebits : TBits_1); inline;
- procedure setWAKE(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearABAUD; inline;
- procedure clearBRGH; inline;
- procedure clearIREN; inline;
- procedure clearLPBACK; inline;
- procedure clearON; inline;
- procedure clearPDSEL0; inline;
- procedure clearPDSEL1; inline;
- procedure clearRTSMD; inline;
- procedure clearRXINV; inline;
- procedure clearSIDL; inline;
- procedure clearSTSEL; inline;
- procedure clearUARTEN; inline;
- procedure clearUEN0; inline;
- procedure clearUEN1; inline;
- procedure clearUSIDL; inline;
- procedure clearWAKE; inline;
- procedure setABAUD; inline;
- procedure setBRGH; inline;
- procedure setIREN; inline;
- procedure setLPBACK; inline;
- procedure setON; inline;
- procedure setPDSEL0; inline;
- procedure setPDSEL1; inline;
- procedure setRTSMD; inline;
- procedure setRXINV; inline;
- procedure setSIDL; inline;
- procedure setSTSEL; inline;
- procedure setUARTEN; inline;
- procedure setUEN0; inline;
- procedure setUEN1; inline;
- procedure setUSIDL; inline;
- procedure setWAKE; inline;
- property ABAUD : TBits_1 read getABAUD write setABAUD;
- property BRGH : TBits_1 read getBRGH write setBRGH;
- property IREN : TBits_1 read getIREN write setIREN;
- property LPBACK : TBits_1 read getLPBACK write setLPBACK;
- property ON : TBits_1 read getON write setON;
- property PDSEL : TBits_2 read getPDSEL write setPDSEL;
- property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
- property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
- property RTSMD : TBits_1 read getRTSMD write setRTSMD;
- property RXINV : TBits_1 read getRXINV write setRXINV;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property STSEL : TBits_1 read getSTSEL write setSTSEL;
- property UARTEN : TBits_1 read getUARTEN write setUARTEN;
- property UEN : TBits_2 read getUEN write setUEN;
- property UEN0 : TBits_1 read getUEN0 write setUEN0;
- property UEN1 : TBits_1 read getUEN1 write setUEN1;
- property USIDL : TBits_1 read getUSIDL write setUSIDL;
- property WAKE : TBits_1 read getWAKE write setWAKE;
- property w : TBits_32 read getw write setw;
- end;
- TUART4_U4STA = record
- private
- function getADDEN : TBits_1; inline;
- function getADDR : TBits_8; inline;
- function getADM_EN : TBits_1; inline;
- function getFERR : TBits_1; inline;
- function getOERR : TBits_1; inline;
- function getPERR : TBits_1; inline;
- function getRIDLE : TBits_1; inline;
- function getTRMT : TBits_1; inline;
- function getURXDA : TBits_1; inline;
- function getURXEN : TBits_1; inline;
- function getURXISEL : TBits_2; inline;
- function getURXISEL0 : TBits_1; inline;
- function getURXISEL1 : TBits_1; inline;
- function getUTXBF : TBits_1; inline;
- function getUTXBRK : TBits_1; inline;
- function getUTXEN : TBits_1; inline;
- function getUTXINV : TBits_1; inline;
- function getUTXISEL : TBits_2; inline;
- function getUTXISEL0 : TBits_1; inline;
- function getUTXISEL1 : TBits_1; inline;
- function getUTXSEL : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setADDEN(thebits : TBits_1); inline;
- procedure setADDR(thebits : TBits_8); inline;
- procedure setADM_EN(thebits : TBits_1); inline;
- procedure setFERR(thebits : TBits_1); inline;
- procedure setOERR(thebits : TBits_1); inline;
- procedure setPERR(thebits : TBits_1); inline;
- procedure setRIDLE(thebits : TBits_1); inline;
- procedure setTRMT(thebits : TBits_1); inline;
- procedure setURXDA(thebits : TBits_1); inline;
- procedure setURXEN(thebits : TBits_1); inline;
- procedure setURXISEL(thebits : TBits_2); inline;
- procedure setURXISEL0(thebits : TBits_1); inline;
- procedure setURXISEL1(thebits : TBits_1); inline;
- procedure setUTXBF(thebits : TBits_1); inline;
- procedure setUTXBRK(thebits : TBits_1); inline;
- procedure setUTXEN(thebits : TBits_1); inline;
- procedure setUTXINV(thebits : TBits_1); inline;
- procedure setUTXISEL(thebits : TBits_2); inline;
- procedure setUTXISEL0(thebits : TBits_1); inline;
- procedure setUTXISEL1(thebits : TBits_1); inline;
- procedure setUTXSEL(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearADDEN; inline;
- procedure clearADM_EN; inline;
- procedure clearFERR; inline;
- procedure clearOERR; inline;
- procedure clearPERR; inline;
- procedure clearRIDLE; inline;
- procedure clearTRMT; inline;
- procedure clearURXDA; inline;
- procedure clearURXEN; inline;
- procedure clearURXISEL0; inline;
- procedure clearURXISEL1; inline;
- procedure clearUTXBF; inline;
- procedure clearUTXBRK; inline;
- procedure clearUTXEN; inline;
- procedure clearUTXINV; inline;
- procedure clearUTXISEL0; inline;
- procedure clearUTXISEL1; inline;
- procedure setADDEN; inline;
- procedure setADM_EN; inline;
- procedure setFERR; inline;
- procedure setOERR; inline;
- procedure setPERR; inline;
- procedure setRIDLE; inline;
- procedure setTRMT; inline;
- procedure setURXDA; inline;
- procedure setURXEN; inline;
- procedure setURXISEL0; inline;
- procedure setURXISEL1; inline;
- procedure setUTXBF; inline;
- procedure setUTXBRK; inline;
- procedure setUTXEN; inline;
- procedure setUTXINV; inline;
- procedure setUTXISEL0; inline;
- procedure setUTXISEL1; inline;
- property ADDEN : TBits_1 read getADDEN write setADDEN;
- property ADDR : TBits_8 read getADDR write setADDR;
- property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
- property FERR : TBits_1 read getFERR write setFERR;
- property OERR : TBits_1 read getOERR write setOERR;
- property PERR : TBits_1 read getPERR write setPERR;
- property RIDLE : TBits_1 read getRIDLE write setRIDLE;
- property TRMT : TBits_1 read getTRMT write setTRMT;
- property URXDA : TBits_1 read getURXDA write setURXDA;
- property URXEN : TBits_1 read getURXEN write setURXEN;
- property URXISEL : TBits_2 read getURXISEL write setURXISEL;
- property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
- property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
- property UTXBF : TBits_1 read getUTXBF write setUTXBF;
- property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
- property UTXEN : TBits_1 read getUTXEN write setUTXEN;
- property UTXINV : TBits_1 read getUTXINV write setUTXINV;
- property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
- property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
- property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
- property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
- property w : TBits_32 read getw write setw;
- end;
- TUART4_UodSTA = record
- private
- function getADDEN : TBits_1; inline;
- function getADDR : TBits_8; inline;
- function getADM_EN : TBits_1; inline;
- function getFERR : TBits_1; inline;
- function getOERR : TBits_1; inline;
- function getPERR : TBits_1; inline;
- function getRIDLE : TBits_1; inline;
- function getTRMT : TBits_1; inline;
- function getURXDA : TBits_1; inline;
- function getURXEN : TBits_1; inline;
- function getURXISEL : TBits_2; inline;
- function getURXISEL0 : TBits_1; inline;
- function getURXISEL1 : TBits_1; inline;
- function getUTXBF : TBits_1; inline;
- function getUTXBRK : TBits_1; inline;
- function getUTXEN : TBits_1; inline;
- function getUTXINV : TBits_1; inline;
- function getUTXISEL : TBits_2; inline;
- function getUTXISEL0 : TBits_1; inline;
- function getUTXISEL1 : TBits_1; inline;
- function getUTXSEL : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setADDEN(thebits : TBits_1); inline;
- procedure setADDR(thebits : TBits_8); inline;
- procedure setADM_EN(thebits : TBits_1); inline;
- procedure setFERR(thebits : TBits_1); inline;
- procedure setOERR(thebits : TBits_1); inline;
- procedure setPERR(thebits : TBits_1); inline;
- procedure setRIDLE(thebits : TBits_1); inline;
- procedure setTRMT(thebits : TBits_1); inline;
- procedure setURXDA(thebits : TBits_1); inline;
- procedure setURXEN(thebits : TBits_1); inline;
- procedure setURXISEL(thebits : TBits_2); inline;
- procedure setURXISEL0(thebits : TBits_1); inline;
- procedure setURXISEL1(thebits : TBits_1); inline;
- procedure setUTXBF(thebits : TBits_1); inline;
- procedure setUTXBRK(thebits : TBits_1); inline;
- procedure setUTXEN(thebits : TBits_1); inline;
- procedure setUTXINV(thebits : TBits_1); inline;
- procedure setUTXISEL(thebits : TBits_2); inline;
- procedure setUTXISEL0(thebits : TBits_1); inline;
- procedure setUTXISEL1(thebits : TBits_1); inline;
- procedure setUTXSEL(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearADDEN; inline;
- procedure clearADM_EN; inline;
- procedure clearFERR; inline;
- procedure clearOERR; inline;
- procedure clearPERR; inline;
- procedure clearRIDLE; inline;
- procedure clearTRMT; inline;
- procedure clearURXDA; inline;
- procedure clearURXEN; inline;
- procedure clearURXISEL0; inline;
- procedure clearURXISEL1; inline;
- procedure clearUTXBF; inline;
- procedure clearUTXBRK; inline;
- procedure clearUTXEN; inline;
- procedure clearUTXINV; inline;
- procedure clearUTXISEL0; inline;
- procedure clearUTXISEL1; inline;
- procedure setADDEN; inline;
- procedure setADM_EN; inline;
- procedure setFERR; inline;
- procedure setOERR; inline;
- procedure setPERR; inline;
- procedure setRIDLE; inline;
- procedure setTRMT; inline;
- procedure setURXDA; inline;
- procedure setURXEN; inline;
- procedure setURXISEL0; inline;
- procedure setURXISEL1; inline;
- procedure setUTXBF; inline;
- procedure setUTXBRK; inline;
- procedure setUTXEN; inline;
- procedure setUTXINV; inline;
- procedure setUTXISEL0; inline;
- procedure setUTXISEL1; inline;
- property ADDEN : TBits_1 read getADDEN write setADDEN;
- property ADDR : TBits_8 read getADDR write setADDR;
- property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
- property FERR : TBits_1 read getFERR write setFERR;
- property OERR : TBits_1 read getOERR write setOERR;
- property PERR : TBits_1 read getPERR write setPERR;
- property RIDLE : TBits_1 read getRIDLE write setRIDLE;
- property TRMT : TBits_1 read getTRMT write setTRMT;
- property URXDA : TBits_1 read getURXDA write setURXDA;
- property URXEN : TBits_1 read getURXEN write setURXEN;
- property URXISEL : TBits_2 read getURXISEL write setURXISEL;
- property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
- property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
- property UTXBF : TBits_1 read getUTXBF write setUTXBF;
- property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
- property UTXEN : TBits_1 read getUTXEN write setUTXEN;
- property UTXINV : TBits_1 read getUTXINV write setUTXINV;
- property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
- property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
- property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
- property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TUART4Registers = record
- U4MODEbits : TUART4_U4MODE;
- U4MODE : longWord;
- UodMODEbits : TUART4_UodMODE;
- UodMODE : longWord;
- U4MODECLR : longWord;
- UodMODECLR : longWord;
- U4MODESET : longWord;
- UodMODESET : longWord;
- U4MODEINV : longWord;
- UodMODEINV : longWord;
- U4STAbits : TUART4_U4STA;
- U4STA : longWord;
- UodSTAbits : TUART4_UodSTA;
- UodSTA : longWord;
- U4STACLR : longWord;
- UodSTACLR : longWord;
- U4STASET : longWord;
- UodSTASET : longWord;
- U4STAINV : longWord;
- UodSTAINV : longWord;
- U4TXREG : longWord;
- UodTXREG : longWord;
- U4RXREG : longWord;
- UodRXREG : longWord;
- U4BRG : longWord;
- UodBRG : longWord;
- U4BRGCLR : longWord;
- UodBRGCLR : longWord;
- U4BRGSET : longWord;
- UodBRGSET : longWord;
- U4BRGINV : longWord;
- UodBRGINV : longWord;
- end;
- TUART5_U5MODE = record
- private
- function getABAUD : TBits_1; inline;
- function getBRGH : TBits_1; inline;
- function getIREN : TBits_1; inline;
- function getLPBACK : TBits_1; inline;
- function getON : TBits_1; inline;
- function getPDSEL : TBits_2; inline;
- function getPDSEL0 : TBits_1; inline;
- function getPDSEL1 : TBits_1; inline;
- function getRTSMD : TBits_1; inline;
- function getRXINV : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSTSEL : TBits_1; inline;
- function getUARTEN : TBits_1; inline;
- function getUEN : TBits_2; inline;
- function getUEN0 : TBits_1; inline;
- function getUEN1 : TBits_1; inline;
- function getUSIDL : TBits_1; inline;
- function getWAKE : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setABAUD(thebits : TBits_1); inline;
- procedure setBRGH(thebits : TBits_1); inline;
- procedure setIREN(thebits : TBits_1); inline;
- procedure setLPBACK(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setPDSEL(thebits : TBits_2); inline;
- procedure setPDSEL0(thebits : TBits_1); inline;
- procedure setPDSEL1(thebits : TBits_1); inline;
- procedure setRTSMD(thebits : TBits_1); inline;
- procedure setRXINV(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSTSEL(thebits : TBits_1); inline;
- procedure setUARTEN(thebits : TBits_1); inline;
- procedure setUEN(thebits : TBits_2); inline;
- procedure setUEN0(thebits : TBits_1); inline;
- procedure setUEN1(thebits : TBits_1); inline;
- procedure setUSIDL(thebits : TBits_1); inline;
- procedure setWAKE(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearABAUD; inline;
- procedure clearBRGH; inline;
- procedure clearIREN; inline;
- procedure clearLPBACK; inline;
- procedure clearON; inline;
- procedure clearPDSEL0; inline;
- procedure clearPDSEL1; inline;
- procedure clearRTSMD; inline;
- procedure clearRXINV; inline;
- procedure clearSIDL; inline;
- procedure clearSTSEL; inline;
- procedure clearUARTEN; inline;
- procedure clearUEN0; inline;
- procedure clearUEN1; inline;
- procedure clearUSIDL; inline;
- procedure clearWAKE; inline;
- procedure setABAUD; inline;
- procedure setBRGH; inline;
- procedure setIREN; inline;
- procedure setLPBACK; inline;
- procedure setON; inline;
- procedure setPDSEL0; inline;
- procedure setPDSEL1; inline;
- procedure setRTSMD; inline;
- procedure setRXINV; inline;
- procedure setSIDL; inline;
- procedure setSTSEL; inline;
- procedure setUARTEN; inline;
- procedure setUEN0; inline;
- procedure setUEN1; inline;
- procedure setUSIDL; inline;
- procedure setWAKE; inline;
- property ABAUD : TBits_1 read getABAUD write setABAUD;
- property BRGH : TBits_1 read getBRGH write setBRGH;
- property IREN : TBits_1 read getIREN write setIREN;
- property LPBACK : TBits_1 read getLPBACK write setLPBACK;
- property ON : TBits_1 read getON write setON;
- property PDSEL : TBits_2 read getPDSEL write setPDSEL;
- property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
- property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
- property RTSMD : TBits_1 read getRTSMD write setRTSMD;
- property RXINV : TBits_1 read getRXINV write setRXINV;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property STSEL : TBits_1 read getSTSEL write setSTSEL;
- property UARTEN : TBits_1 read getUARTEN write setUARTEN;
- property UEN : TBits_2 read getUEN write setUEN;
- property UEN0 : TBits_1 read getUEN0 write setUEN0;
- property UEN1 : TBits_1 read getUEN1 write setUEN1;
- property USIDL : TBits_1 read getUSIDL write setUSIDL;
- property WAKE : TBits_1 read getWAKE write setWAKE;
- property w : TBits_32 read getw write setw;
- end;
- TUART5_UabMODE = record
- private
- function getABAUD : TBits_1; inline;
- function getBRGH : TBits_1; inline;
- function getIREN : TBits_1; inline;
- function getLPBACK : TBits_1; inline;
- function getON : TBits_1; inline;
- function getPDSEL : TBits_2; inline;
- function getPDSEL0 : TBits_1; inline;
- function getPDSEL1 : TBits_1; inline;
- function getRTSMD : TBits_1; inline;
- function getRXINV : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSTSEL : TBits_1; inline;
- function getUARTEN : TBits_1; inline;
- function getUEN : TBits_2; inline;
- function getUEN0 : TBits_1; inline;
- function getUEN1 : TBits_1; inline;
- function getUSIDL : TBits_1; inline;
- function getWAKE : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setABAUD(thebits : TBits_1); inline;
- procedure setBRGH(thebits : TBits_1); inline;
- procedure setIREN(thebits : TBits_1); inline;
- procedure setLPBACK(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setPDSEL(thebits : TBits_2); inline;
- procedure setPDSEL0(thebits : TBits_1); inline;
- procedure setPDSEL1(thebits : TBits_1); inline;
- procedure setRTSMD(thebits : TBits_1); inline;
- procedure setRXINV(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSTSEL(thebits : TBits_1); inline;
- procedure setUARTEN(thebits : TBits_1); inline;
- procedure setUEN(thebits : TBits_2); inline;
- procedure setUEN0(thebits : TBits_1); inline;
- procedure setUEN1(thebits : TBits_1); inline;
- procedure setUSIDL(thebits : TBits_1); inline;
- procedure setWAKE(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearABAUD; inline;
- procedure clearBRGH; inline;
- procedure clearIREN; inline;
- procedure clearLPBACK; inline;
- procedure clearON; inline;
- procedure clearPDSEL0; inline;
- procedure clearPDSEL1; inline;
- procedure clearRTSMD; inline;
- procedure clearRXINV; inline;
- procedure clearSIDL; inline;
- procedure clearSTSEL; inline;
- procedure clearUARTEN; inline;
- procedure clearUEN0; inline;
- procedure clearUEN1; inline;
- procedure clearUSIDL; inline;
- procedure clearWAKE; inline;
- procedure setABAUD; inline;
- procedure setBRGH; inline;
- procedure setIREN; inline;
- procedure setLPBACK; inline;
- procedure setON; inline;
- procedure setPDSEL0; inline;
- procedure setPDSEL1; inline;
- procedure setRTSMD; inline;
- procedure setRXINV; inline;
- procedure setSIDL; inline;
- procedure setSTSEL; inline;
- procedure setUARTEN; inline;
- procedure setUEN0; inline;
- procedure setUEN1; inline;
- procedure setUSIDL; inline;
- procedure setWAKE; inline;
- property ABAUD : TBits_1 read getABAUD write setABAUD;
- property BRGH : TBits_1 read getBRGH write setBRGH;
- property IREN : TBits_1 read getIREN write setIREN;
- property LPBACK : TBits_1 read getLPBACK write setLPBACK;
- property ON : TBits_1 read getON write setON;
- property PDSEL : TBits_2 read getPDSEL write setPDSEL;
- property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
- property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
- property RTSMD : TBits_1 read getRTSMD write setRTSMD;
- property RXINV : TBits_1 read getRXINV write setRXINV;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property STSEL : TBits_1 read getSTSEL write setSTSEL;
- property UARTEN : TBits_1 read getUARTEN write setUARTEN;
- property UEN : TBits_2 read getUEN write setUEN;
- property UEN0 : TBits_1 read getUEN0 write setUEN0;
- property UEN1 : TBits_1 read getUEN1 write setUEN1;
- property USIDL : TBits_1 read getUSIDL write setUSIDL;
- property WAKE : TBits_1 read getWAKE write setWAKE;
- property w : TBits_32 read getw write setw;
- end;
- TUART5_U5STA = record
- private
- function getADDEN : TBits_1; inline;
- function getADDR : TBits_8; inline;
- function getADM_EN : TBits_1; inline;
- function getFERR : TBits_1; inline;
- function getOERR : TBits_1; inline;
- function getPERR : TBits_1; inline;
- function getRIDLE : TBits_1; inline;
- function getTRMT : TBits_1; inline;
- function getURXDA : TBits_1; inline;
- function getURXEN : TBits_1; inline;
- function getURXISEL : TBits_2; inline;
- function getURXISEL0 : TBits_1; inline;
- function getURXISEL1 : TBits_1; inline;
- function getUTXBF : TBits_1; inline;
- function getUTXBRK : TBits_1; inline;
- function getUTXEN : TBits_1; inline;
- function getUTXINV : TBits_1; inline;
- function getUTXISEL : TBits_2; inline;
- function getUTXISEL0 : TBits_1; inline;
- function getUTXISEL1 : TBits_1; inline;
- function getUTXSEL : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setADDEN(thebits : TBits_1); inline;
- procedure setADDR(thebits : TBits_8); inline;
- procedure setADM_EN(thebits : TBits_1); inline;
- procedure setFERR(thebits : TBits_1); inline;
- procedure setOERR(thebits : TBits_1); inline;
- procedure setPERR(thebits : TBits_1); inline;
- procedure setRIDLE(thebits : TBits_1); inline;
- procedure setTRMT(thebits : TBits_1); inline;
- procedure setURXDA(thebits : TBits_1); inline;
- procedure setURXEN(thebits : TBits_1); inline;
- procedure setURXISEL(thebits : TBits_2); inline;
- procedure setURXISEL0(thebits : TBits_1); inline;
- procedure setURXISEL1(thebits : TBits_1); inline;
- procedure setUTXBF(thebits : TBits_1); inline;
- procedure setUTXBRK(thebits : TBits_1); inline;
- procedure setUTXEN(thebits : TBits_1); inline;
- procedure setUTXINV(thebits : TBits_1); inline;
- procedure setUTXISEL(thebits : TBits_2); inline;
- procedure setUTXISEL0(thebits : TBits_1); inline;
- procedure setUTXISEL1(thebits : TBits_1); inline;
- procedure setUTXSEL(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearADDEN; inline;
- procedure clearADM_EN; inline;
- procedure clearFERR; inline;
- procedure clearOERR; inline;
- procedure clearPERR; inline;
- procedure clearRIDLE; inline;
- procedure clearTRMT; inline;
- procedure clearURXDA; inline;
- procedure clearURXEN; inline;
- procedure clearURXISEL0; inline;
- procedure clearURXISEL1; inline;
- procedure clearUTXBF; inline;
- procedure clearUTXBRK; inline;
- procedure clearUTXEN; inline;
- procedure clearUTXINV; inline;
- procedure clearUTXISEL0; inline;
- procedure clearUTXISEL1; inline;
- procedure setADDEN; inline;
- procedure setADM_EN; inline;
- procedure setFERR; inline;
- procedure setOERR; inline;
- procedure setPERR; inline;
- procedure setRIDLE; inline;
- procedure setTRMT; inline;
- procedure setURXDA; inline;
- procedure setURXEN; inline;
- procedure setURXISEL0; inline;
- procedure setURXISEL1; inline;
- procedure setUTXBF; inline;
- procedure setUTXBRK; inline;
- procedure setUTXEN; inline;
- procedure setUTXINV; inline;
- procedure setUTXISEL0; inline;
- procedure setUTXISEL1; inline;
- property ADDEN : TBits_1 read getADDEN write setADDEN;
- property ADDR : TBits_8 read getADDR write setADDR;
- property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
- property FERR : TBits_1 read getFERR write setFERR;
- property OERR : TBits_1 read getOERR write setOERR;
- property PERR : TBits_1 read getPERR write setPERR;
- property RIDLE : TBits_1 read getRIDLE write setRIDLE;
- property TRMT : TBits_1 read getTRMT write setTRMT;
- property URXDA : TBits_1 read getURXDA write setURXDA;
- property URXEN : TBits_1 read getURXEN write setURXEN;
- property URXISEL : TBits_2 read getURXISEL write setURXISEL;
- property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
- property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
- property UTXBF : TBits_1 read getUTXBF write setUTXBF;
- property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
- property UTXEN : TBits_1 read getUTXEN write setUTXEN;
- property UTXINV : TBits_1 read getUTXINV write setUTXINV;
- property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
- property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
- property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
- property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
- property w : TBits_32 read getw write setw;
- end;
- TUART5_UabSTA = record
- private
- function getADDEN : TBits_1; inline;
- function getADDR : TBits_8; inline;
- function getADM_EN : TBits_1; inline;
- function getFERR : TBits_1; inline;
- function getOERR : TBits_1; inline;
- function getPERR : TBits_1; inline;
- function getRIDLE : TBits_1; inline;
- function getTRMT : TBits_1; inline;
- function getURXDA : TBits_1; inline;
- function getURXEN : TBits_1; inline;
- function getURXISEL : TBits_2; inline;
- function getURXISEL0 : TBits_1; inline;
- function getURXISEL1 : TBits_1; inline;
- function getUTXBF : TBits_1; inline;
- function getUTXBRK : TBits_1; inline;
- function getUTXEN : TBits_1; inline;
- function getUTXINV : TBits_1; inline;
- function getUTXISEL : TBits_2; inline;
- function getUTXISEL0 : TBits_1; inline;
- function getUTXISEL1 : TBits_1; inline;
- function getUTXSEL : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setADDEN(thebits : TBits_1); inline;
- procedure setADDR(thebits : TBits_8); inline;
- procedure setADM_EN(thebits : TBits_1); inline;
- procedure setFERR(thebits : TBits_1); inline;
- procedure setOERR(thebits : TBits_1); inline;
- procedure setPERR(thebits : TBits_1); inline;
- procedure setRIDLE(thebits : TBits_1); inline;
- procedure setTRMT(thebits : TBits_1); inline;
- procedure setURXDA(thebits : TBits_1); inline;
- procedure setURXEN(thebits : TBits_1); inline;
- procedure setURXISEL(thebits : TBits_2); inline;
- procedure setURXISEL0(thebits : TBits_1); inline;
- procedure setURXISEL1(thebits : TBits_1); inline;
- procedure setUTXBF(thebits : TBits_1); inline;
- procedure setUTXBRK(thebits : TBits_1); inline;
- procedure setUTXEN(thebits : TBits_1); inline;
- procedure setUTXINV(thebits : TBits_1); inline;
- procedure setUTXISEL(thebits : TBits_2); inline;
- procedure setUTXISEL0(thebits : TBits_1); inline;
- procedure setUTXISEL1(thebits : TBits_1); inline;
- procedure setUTXSEL(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearADDEN; inline;
- procedure clearADM_EN; inline;
- procedure clearFERR; inline;
- procedure clearOERR; inline;
- procedure clearPERR; inline;
- procedure clearRIDLE; inline;
- procedure clearTRMT; inline;
- procedure clearURXDA; inline;
- procedure clearURXEN; inline;
- procedure clearURXISEL0; inline;
- procedure clearURXISEL1; inline;
- procedure clearUTXBF; inline;
- procedure clearUTXBRK; inline;
- procedure clearUTXEN; inline;
- procedure clearUTXINV; inline;
- procedure clearUTXISEL0; inline;
- procedure clearUTXISEL1; inline;
- procedure setADDEN; inline;
- procedure setADM_EN; inline;
- procedure setFERR; inline;
- procedure setOERR; inline;
- procedure setPERR; inline;
- procedure setRIDLE; inline;
- procedure setTRMT; inline;
- procedure setURXDA; inline;
- procedure setURXEN; inline;
- procedure setURXISEL0; inline;
- procedure setURXISEL1; inline;
- procedure setUTXBF; inline;
- procedure setUTXBRK; inline;
- procedure setUTXEN; inline;
- procedure setUTXINV; inline;
- procedure setUTXISEL0; inline;
- procedure setUTXISEL1; inline;
- property ADDEN : TBits_1 read getADDEN write setADDEN;
- property ADDR : TBits_8 read getADDR write setADDR;
- property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
- property FERR : TBits_1 read getFERR write setFERR;
- property OERR : TBits_1 read getOERR write setOERR;
- property PERR : TBits_1 read getPERR write setPERR;
- property RIDLE : TBits_1 read getRIDLE write setRIDLE;
- property TRMT : TBits_1 read getTRMT write setTRMT;
- property URXDA : TBits_1 read getURXDA write setURXDA;
- property URXEN : TBits_1 read getURXEN write setURXEN;
- property URXISEL : TBits_2 read getURXISEL write setURXISEL;
- property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
- property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
- property UTXBF : TBits_1 read getUTXBF write setUTXBF;
- property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
- property UTXEN : TBits_1 read getUTXEN write setUTXEN;
- property UTXINV : TBits_1 read getUTXINV write setUTXINV;
- property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
- property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
- property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
- property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
- property w : TBits_32 read getw write setw;
- end;
- type
- TUART5Registers = record
- U5MODEbits : TUART5_U5MODE;
- U5MODE : longWord;
- UabMODEbits : TUART5_UabMODE;
- UabMODE : longWord;
- U5MODECLR : longWord;
- UabMODECLR : longWord;
- U5MODESET : longWord;
- UabMODESET : longWord;
- U5MODEINV : longWord;
- UabMODEINV : longWord;
- U5STAbits : TUART5_U5STA;
- U5STA : longWord;
- UabSTAbits : TUART5_UabSTA;
- UabSTA : longWord;
- U5STACLR : longWord;
- UabSTACLR : longWord;
- U5STASET : longWord;
- UabSTASET : longWord;
- U5STAINV : longWord;
- UabSTAINV : longWord;
- U5TXREG : longWord;
- UabTXREG : longWord;
- U5RXREG : longWord;
- UabRXREG : longWord;
- U5BRG : longWord;
- UabBRG : longWord;
- U5BRGCLR : longWord;
- UabBRGCLR : longWord;
- U5BRGSET : longWord;
- UabBRGSET : longWord;
- U5BRGINV : longWord;
- UabBRGINV : longWord;
- end;
- TPMP_PMCON = record
- private
- function getADRMUX : TBits_2; inline;
- function getADRMUX0 : TBits_1; inline;
- function getADRMUX1 : TBits_1; inline;
- function getALP : TBits_1; inline;
- function getCS1P : TBits_1; inline;
- function getCS2P : TBits_1; inline;
- function getCSF : TBits_2; inline;
- function getCSF0 : TBits_1; inline;
- function getCSF1 : TBits_1; inline;
- function getON : TBits_1; inline;
- function getPMPEN : TBits_1; inline;
- function getPMPTTL : TBits_1; inline;
- function getPSIDL : TBits_1; inline;
- function getPTRDEN : TBits_1; inline;
- function getPTWREN : TBits_1; inline;
- function getRDSP : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getWRSP : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setADRMUX(thebits : TBits_2); inline;
- procedure setADRMUX0(thebits : TBits_1); inline;
- procedure setADRMUX1(thebits : TBits_1); inline;
- procedure setALP(thebits : TBits_1); inline;
- procedure setCS1P(thebits : TBits_1); inline;
- procedure setCS2P(thebits : TBits_1); inline;
- procedure setCSF(thebits : TBits_2); inline;
- procedure setCSF0(thebits : TBits_1); inline;
- procedure setCSF1(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setPMPEN(thebits : TBits_1); inline;
- procedure setPMPTTL(thebits : TBits_1); inline;
- procedure setPSIDL(thebits : TBits_1); inline;
- procedure setPTRDEN(thebits : TBits_1); inline;
- procedure setPTWREN(thebits : TBits_1); inline;
- procedure setRDSP(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setWRSP(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearADRMUX0; inline;
- procedure clearADRMUX1; inline;
- procedure clearALP; inline;
- procedure clearCS1P; inline;
- procedure clearCS2P; inline;
- procedure clearCSF0; inline;
- procedure clearCSF1; inline;
- procedure clearON; inline;
- procedure clearPMPEN; inline;
- procedure clearPMPTTL; inline;
- procedure clearPSIDL; inline;
- procedure clearPTRDEN; inline;
- procedure clearPTWREN; inline;
- procedure clearRDSP; inline;
- procedure clearSIDL; inline;
- procedure clearWRSP; inline;
- procedure setADRMUX0; inline;
- procedure setADRMUX1; inline;
- procedure setALP; inline;
- procedure setCS1P; inline;
- procedure setCS2P; inline;
- procedure setCSF0; inline;
- procedure setCSF1; inline;
- procedure setON; inline;
- procedure setPMPEN; inline;
- procedure setPMPTTL; inline;
- procedure setPSIDL; inline;
- procedure setPTRDEN; inline;
- procedure setPTWREN; inline;
- procedure setRDSP; inline;
- procedure setSIDL; inline;
- procedure setWRSP; inline;
- property ADRMUX : TBits_2 read getADRMUX write setADRMUX;
- property ADRMUX0 : TBits_1 read getADRMUX0 write setADRMUX0;
- property ADRMUX1 : TBits_1 read getADRMUX1 write setADRMUX1;
- property ALP : TBits_1 read getALP write setALP;
- property CS1P : TBits_1 read getCS1P write setCS1P;
- property CS2P : TBits_1 read getCS2P write setCS2P;
- property CSF : TBits_2 read getCSF write setCSF;
- property CSF0 : TBits_1 read getCSF0 write setCSF0;
- property CSF1 : TBits_1 read getCSF1 write setCSF1;
- property ON : TBits_1 read getON write setON;
- property PMPEN : TBits_1 read getPMPEN write setPMPEN;
- property PMPTTL : TBits_1 read getPMPTTL write setPMPTTL;
- property PSIDL : TBits_1 read getPSIDL write setPSIDL;
- property PTRDEN : TBits_1 read getPTRDEN write setPTRDEN;
- property PTWREN : TBits_1 read getPTWREN write setPTWREN;
- property RDSP : TBits_1 read getRDSP write setRDSP;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property WRSP : TBits_1 read getWRSP write setWRSP;
- property w : TBits_32 read getw write setw;
- end;
- TPMP_PMMODE = record
- private
- function getBUSY : TBits_1; inline;
- function getINCM : TBits_2; inline;
- function getINCM0 : TBits_1; inline;
- function getINCM1 : TBits_1; inline;
- function getIRQM : TBits_2; inline;
- function getIRQM0 : TBits_1; inline;
- function getIRQM1 : TBits_1; inline;
- function getMODE : TBits_2; inline;
- function getMODE0 : TBits_1; inline;
- function getMODE1 : TBits_1; inline;
- function getMODE16 : TBits_1; inline;
- function getWAITB : TBits_2; inline;
- function getWAITB0 : TBits_1; inline;
- function getWAITB1 : TBits_1; inline;
- function getWAITE : TBits_2; inline;
- function getWAITE0 : TBits_1; inline;
- function getWAITE1 : TBits_1; inline;
- function getWAITM : TBits_4; inline;
- function getWAITM0 : TBits_1; inline;
- function getWAITM1 : TBits_1; inline;
- function getWAITM2 : TBits_1; inline;
- function getWAITM3 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setBUSY(thebits : TBits_1); inline;
- procedure setINCM(thebits : TBits_2); inline;
- procedure setINCM0(thebits : TBits_1); inline;
- procedure setINCM1(thebits : TBits_1); inline;
- procedure setIRQM(thebits : TBits_2); inline;
- procedure setIRQM0(thebits : TBits_1); inline;
- procedure setIRQM1(thebits : TBits_1); inline;
- procedure setMODE(thebits : TBits_2); inline;
- procedure setMODE0(thebits : TBits_1); inline;
- procedure setMODE1(thebits : TBits_1); inline;
- procedure setMODE16(thebits : TBits_1); inline;
- procedure setWAITB(thebits : TBits_2); inline;
- procedure setWAITB0(thebits : TBits_1); inline;
- procedure setWAITB1(thebits : TBits_1); inline;
- procedure setWAITE(thebits : TBits_2); inline;
- procedure setWAITE0(thebits : TBits_1); inline;
- procedure setWAITE1(thebits : TBits_1); inline;
- procedure setWAITM(thebits : TBits_4); inline;
- procedure setWAITM0(thebits : TBits_1); inline;
- procedure setWAITM1(thebits : TBits_1); inline;
- procedure setWAITM2(thebits : TBits_1); inline;
- procedure setWAITM3(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearBUSY; inline;
- procedure clearINCM0; inline;
- procedure clearINCM1; inline;
- procedure clearIRQM0; inline;
- procedure clearIRQM1; inline;
- procedure clearMODE0; inline;
- procedure clearMODE16; inline;
- procedure clearMODE1; inline;
- procedure clearWAITB0; inline;
- procedure clearWAITB1; inline;
- procedure clearWAITE0; inline;
- procedure clearWAITE1; inline;
- procedure clearWAITM0; inline;
- procedure clearWAITM1; inline;
- procedure clearWAITM2; inline;
- procedure clearWAITM3; inline;
- procedure setBUSY; inline;
- procedure setINCM0; inline;
- procedure setINCM1; inline;
- procedure setIRQM0; inline;
- procedure setIRQM1; inline;
- procedure setMODE0; inline;
- procedure setMODE16; inline;
- procedure setMODE1; inline;
- procedure setWAITB0; inline;
- procedure setWAITB1; inline;
- procedure setWAITE0; inline;
- procedure setWAITE1; inline;
- procedure setWAITM0; inline;
- procedure setWAITM1; inline;
- procedure setWAITM2; inline;
- procedure setWAITM3; inline;
- property BUSY : TBits_1 read getBUSY write setBUSY;
- property INCM : TBits_2 read getINCM write setINCM;
- property INCM0 : TBits_1 read getINCM0 write setINCM0;
- property INCM1 : TBits_1 read getINCM1 write setINCM1;
- property IRQM : TBits_2 read getIRQM write setIRQM;
- property IRQM0 : TBits_1 read getIRQM0 write setIRQM0;
- property IRQM1 : TBits_1 read getIRQM1 write setIRQM1;
- property MODE : TBits_2 read getMODE write setMODE;
- property MODE0 : TBits_1 read getMODE0 write setMODE0;
- property MODE1 : TBits_1 read getMODE1 write setMODE1;
- property MODE16 : TBits_1 read getMODE16 write setMODE16;
- property WAITB : TBits_2 read getWAITB write setWAITB;
- property WAITB0 : TBits_1 read getWAITB0 write setWAITB0;
- property WAITB1 : TBits_1 read getWAITB1 write setWAITB1;
- property WAITE : TBits_2 read getWAITE write setWAITE;
- property WAITE0 : TBits_1 read getWAITE0 write setWAITE0;
- property WAITE1 : TBits_1 read getWAITE1 write setWAITE1;
- property WAITM : TBits_4 read getWAITM write setWAITM;
- property WAITM0 : TBits_1 read getWAITM0 write setWAITM0;
- property WAITM1 : TBits_1 read getWAITM1 write setWAITM1;
- property WAITM2 : TBits_1 read getWAITM2 write setWAITM2;
- property WAITM3 : TBits_1 read getWAITM3 write setWAITM3;
- property w : TBits_32 read getw write setw;
- end;
- TPMP_PMADDR = record
- private
- function getADDR : TBits_14; inline;
- function getCS : TBits_2; inline;
- function getCS1 : TBits_1; inline;
- function getCS2 : TBits_1; inline;
- function getPADDR : TBits_14; inline;
- function getw : TBits_32; inline;
- procedure setADDR(thebits : TBits_14); inline;
- procedure setCS(thebits : TBits_2); inline;
- procedure setCS1(thebits : TBits_1); inline;
- procedure setCS2(thebits : TBits_1); inline;
- procedure setPADDR(thebits : TBits_14); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCS1; inline;
- procedure clearCS2; inline;
- procedure setCS1; inline;
- procedure setCS2; inline;
- property ADDR : TBits_14 read getADDR write setADDR;
- property CS : TBits_2 read getCS write setCS;
- property CS1 : TBits_1 read getCS1 write setCS1;
- property CS2 : TBits_1 read getCS2 write setCS2;
- property PADDR : TBits_14 read getPADDR write setPADDR;
- property w : TBits_32 read getw write setw;
- end;
- TPMP_PMDOUT = record
- private
- function getDATAOUT : TBits_32; inline;
- function getw : TBits_32; inline;
- procedure setDATAOUT(thebits : TBits_32); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property DATAOUT : TBits_32 read getDATAOUT write setDATAOUT;
- property w : TBits_32 read getw write setw;
- end;
- TPMP_PMDIN = record
- private
- function getDATAIN : TBits_32; inline;
- function getw : TBits_32; inline;
- procedure setDATAIN(thebits : TBits_32); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property DATAIN : TBits_32 read getDATAIN write setDATAIN;
- property w : TBits_32 read getw write setw;
- end;
- TPMP_PMAEN = record
- private
- function getPTEN : TBits_16; inline;
- function getPTEN0 : TBits_1; inline;
- function getPTEN1 : TBits_1; inline;
- function getPTEN10 : TBits_1; inline;
- function getPTEN11 : TBits_1; inline;
- function getPTEN12 : TBits_1; inline;
- function getPTEN13 : TBits_1; inline;
- function getPTEN14 : TBits_1; inline;
- function getPTEN15 : TBits_1; inline;
- function getPTEN2 : TBits_1; inline;
- function getPTEN3 : TBits_1; inline;
- function getPTEN4 : TBits_1; inline;
- function getPTEN5 : TBits_1; inline;
- function getPTEN6 : TBits_1; inline;
- function getPTEN7 : TBits_1; inline;
- function getPTEN8 : TBits_1; inline;
- function getPTEN9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setPTEN(thebits : TBits_16); inline;
- procedure setPTEN0(thebits : TBits_1); inline;
- procedure setPTEN1(thebits : TBits_1); inline;
- procedure setPTEN10(thebits : TBits_1); inline;
- procedure setPTEN11(thebits : TBits_1); inline;
- procedure setPTEN12(thebits : TBits_1); inline;
- procedure setPTEN13(thebits : TBits_1); inline;
- procedure setPTEN14(thebits : TBits_1); inline;
- procedure setPTEN15(thebits : TBits_1); inline;
- procedure setPTEN2(thebits : TBits_1); inline;
- procedure setPTEN3(thebits : TBits_1); inline;
- procedure setPTEN4(thebits : TBits_1); inline;
- procedure setPTEN5(thebits : TBits_1); inline;
- procedure setPTEN6(thebits : TBits_1); inline;
- procedure setPTEN7(thebits : TBits_1); inline;
- procedure setPTEN8(thebits : TBits_1); inline;
- procedure setPTEN9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearPTEN0; inline;
- procedure clearPTEN10; inline;
- procedure clearPTEN11; inline;
- procedure clearPTEN12; inline;
- procedure clearPTEN13; inline;
- procedure clearPTEN14; inline;
- procedure clearPTEN15; inline;
- procedure clearPTEN1; inline;
- procedure clearPTEN2; inline;
- procedure clearPTEN3; inline;
- procedure clearPTEN4; inline;
- procedure clearPTEN5; inline;
- procedure clearPTEN6; inline;
- procedure clearPTEN7; inline;
- procedure clearPTEN8; inline;
- procedure clearPTEN9; inline;
- procedure setPTEN0; inline;
- procedure setPTEN10; inline;
- procedure setPTEN11; inline;
- procedure setPTEN12; inline;
- procedure setPTEN13; inline;
- procedure setPTEN14; inline;
- procedure setPTEN15; inline;
- procedure setPTEN1; inline;
- procedure setPTEN2; inline;
- procedure setPTEN3; inline;
- procedure setPTEN4; inline;
- procedure setPTEN5; inline;
- procedure setPTEN6; inline;
- procedure setPTEN7; inline;
- procedure setPTEN8; inline;
- procedure setPTEN9; inline;
- property PTEN : TBits_16 read getPTEN write setPTEN;
- property PTEN0 : TBits_1 read getPTEN0 write setPTEN0;
- property PTEN1 : TBits_1 read getPTEN1 write setPTEN1;
- property PTEN10 : TBits_1 read getPTEN10 write setPTEN10;
- property PTEN11 : TBits_1 read getPTEN11 write setPTEN11;
- property PTEN12 : TBits_1 read getPTEN12 write setPTEN12;
- property PTEN13 : TBits_1 read getPTEN13 write setPTEN13;
- property PTEN14 : TBits_1 read getPTEN14 write setPTEN14;
- property PTEN15 : TBits_1 read getPTEN15 write setPTEN15;
- property PTEN2 : TBits_1 read getPTEN2 write setPTEN2;
- property PTEN3 : TBits_1 read getPTEN3 write setPTEN3;
- property PTEN4 : TBits_1 read getPTEN4 write setPTEN4;
- property PTEN5 : TBits_1 read getPTEN5 write setPTEN5;
- property PTEN6 : TBits_1 read getPTEN6 write setPTEN6;
- property PTEN7 : TBits_1 read getPTEN7 write setPTEN7;
- property PTEN8 : TBits_1 read getPTEN8 write setPTEN8;
- property PTEN9 : TBits_1 read getPTEN9 write setPTEN9;
- property w : TBits_32 read getw write setw;
- end;
- TPMP_PMSTAT = record
- private
- function getIB0F : TBits_1; inline;
- function getIB1F : TBits_1; inline;
- function getIB2F : TBits_1; inline;
- function getIB3F : TBits_1; inline;
- function getIBF : TBits_1; inline;
- function getIBOV : TBits_1; inline;
- function getOB0E : TBits_1; inline;
- function getOB1E : TBits_1; inline;
- function getOB2E : TBits_1; inline;
- function getOB3E : TBits_1; inline;
- function getOBE : TBits_1; inline;
- function getOBUF : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setIB0F(thebits : TBits_1); inline;
- procedure setIB1F(thebits : TBits_1); inline;
- procedure setIB2F(thebits : TBits_1); inline;
- procedure setIB3F(thebits : TBits_1); inline;
- procedure setIBF(thebits : TBits_1); inline;
- procedure setIBOV(thebits : TBits_1); inline;
- procedure setOB0E(thebits : TBits_1); inline;
- procedure setOB1E(thebits : TBits_1); inline;
- procedure setOB2E(thebits : TBits_1); inline;
- procedure setOB3E(thebits : TBits_1); inline;
- procedure setOBE(thebits : TBits_1); inline;
- procedure setOBUF(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearIB0F; inline;
- procedure clearIB1F; inline;
- procedure clearIB2F; inline;
- procedure clearIB3F; inline;
- procedure clearIBF; inline;
- procedure clearIBOV; inline;
- procedure clearOB0E; inline;
- procedure clearOB1E; inline;
- procedure clearOB2E; inline;
- procedure clearOB3E; inline;
- procedure clearOBE; inline;
- procedure clearOBUF; inline;
- procedure setIB0F; inline;
- procedure setIB1F; inline;
- procedure setIB2F; inline;
- procedure setIB3F; inline;
- procedure setIBF; inline;
- procedure setIBOV; inline;
- procedure setOB0E; inline;
- procedure setOB1E; inline;
- procedure setOB2E; inline;
- procedure setOB3E; inline;
- procedure setOBE; inline;
- procedure setOBUF; inline;
- property IB0F : TBits_1 read getIB0F write setIB0F;
- property IB1F : TBits_1 read getIB1F write setIB1F;
- property IB2F : TBits_1 read getIB2F write setIB2F;
- property IB3F : TBits_1 read getIB3F write setIB3F;
- property IBF : TBits_1 read getIBF write setIBF;
- property IBOV : TBits_1 read getIBOV write setIBOV;
- property OB0E : TBits_1 read getOB0E write setOB0E;
- property OB1E : TBits_1 read getOB1E write setOB1E;
- property OB2E : TBits_1 read getOB2E write setOB2E;
- property OB3E : TBits_1 read getOB3E write setOB3E;
- property OBE : TBits_1 read getOBE write setOBE;
- property OBUF : TBits_1 read getOBUF write setOBUF;
- property w : TBits_32 read getw write setw;
- end;
- type
- TPMPRegisters = record
- PMCONbits : TPMP_PMCON;
- PMCON : longWord;
- PMCONCLR : longWord;
- PMCONSET : longWord;
- PMCONINV : longWord;
- PMMODEbits : TPMP_PMMODE;
- PMMODE : longWord;
- PMMODECLR : longWord;
- PMMODESET : longWord;
- PMMODEINV : longWord;
- PMADDRbits : TPMP_PMADDR;
- PMADDR : longWord;
- PMADDRCLR : longWord;
- PMADDRSET : longWord;
- PMADDRINV : longWord;
- PMDOUTbits : TPMP_PMDOUT;
- PMDOUT : longWord;
- PMDOUTCLR : longWord;
- PMDOUTSET : longWord;
- PMDOUTINV : longWord;
- PMDINbits : TPMP_PMDIN;
- PMDIN : longWord;
- PMDINCLR : longWord;
- PMDINSET : longWord;
- PMDININV : longWord;
- PMAENbits : TPMP_PMAEN;
- PMAEN : longWord;
- PMAENCLR : longWord;
- PMAENSET : longWord;
- PMAENINV : longWord;
- PMSTATbits : TPMP_PMSTAT;
- PMSTAT : longWord;
- PMSTATCLR : longWord;
- PMSTATSET : longWord;
- PMSTATINV : longWord;
- end;
- TADC10_AD1CON1 = record
- private
- function getADON : TBits_1; inline;
- function getADSIDL : TBits_1; inline;
- function getASAM : TBits_1; inline;
- function getCLRASAM : TBits_1; inline;
- function getDONE : TBits_1; inline;
- function getFORM : TBits_3; inline;
- function getFORM0 : TBits_1; inline;
- function getFORM1 : TBits_1; inline;
- function getFORM2 : TBits_1; inline;
- function getON : TBits_1; inline;
- function getSAMP : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getSSRC : TBits_3; inline;
- function getSSRC0 : TBits_1; inline;
- function getSSRC1 : TBits_1; inline;
- function getSSRC2 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setADON(thebits : TBits_1); inline;
- procedure setADSIDL(thebits : TBits_1); inline;
- procedure setASAM(thebits : TBits_1); inline;
- procedure setCLRASAM(thebits : TBits_1); inline;
- procedure setDONE(thebits : TBits_1); inline;
- procedure setFORM(thebits : TBits_3); inline;
- procedure setFORM0(thebits : TBits_1); inline;
- procedure setFORM1(thebits : TBits_1); inline;
- procedure setFORM2(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSAMP(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setSSRC(thebits : TBits_3); inline;
- procedure setSSRC0(thebits : TBits_1); inline;
- procedure setSSRC1(thebits : TBits_1); inline;
- procedure setSSRC2(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearADON; inline;
- procedure clearADSIDL; inline;
- procedure clearASAM; inline;
- procedure clearCLRASAM; inline;
- procedure clearDONE; inline;
- procedure clearFORM0; inline;
- procedure clearFORM1; inline;
- procedure clearFORM2; inline;
- procedure clearON; inline;
- procedure clearSAMP; inline;
- procedure clearSIDL; inline;
- procedure clearSSRC0; inline;
- procedure clearSSRC1; inline;
- procedure clearSSRC2; inline;
- procedure setADON; inline;
- procedure setADSIDL; inline;
- procedure setASAM; inline;
- procedure setCLRASAM; inline;
- procedure setDONE; inline;
- procedure setFORM0; inline;
- procedure setFORM1; inline;
- procedure setFORM2; inline;
- procedure setON; inline;
- procedure setSAMP; inline;
- procedure setSIDL; inline;
- procedure setSSRC0; inline;
- procedure setSSRC1; inline;
- procedure setSSRC2; inline;
- property ADON : TBits_1 read getADON write setADON;
- property ADSIDL : TBits_1 read getADSIDL write setADSIDL;
- property ASAM : TBits_1 read getASAM write setASAM;
- property CLRASAM : TBits_1 read getCLRASAM write setCLRASAM;
- property DONE : TBits_1 read getDONE write setDONE;
- property FORM : TBits_3 read getFORM write setFORM;
- property FORM0 : TBits_1 read getFORM0 write setFORM0;
- property FORM1 : TBits_1 read getFORM1 write setFORM1;
- property FORM2 : TBits_1 read getFORM2 write setFORM2;
- property ON : TBits_1 read getON write setON;
- property SAMP : TBits_1 read getSAMP write setSAMP;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property SSRC : TBits_3 read getSSRC write setSSRC;
- property SSRC0 : TBits_1 read getSSRC0 write setSSRC0;
- property SSRC1 : TBits_1 read getSSRC1 write setSSRC1;
- property SSRC2 : TBits_1 read getSSRC2 write setSSRC2;
- property w : TBits_32 read getw write setw;
- end;
- TADC10_AD1CON2 = record
- private
- function getALTS : TBits_1; inline;
- function getBUFM : TBits_1; inline;
- function getBUFS : TBits_1; inline;
- function getCSCNA : TBits_1; inline;
- function getOFFCAL : TBits_1; inline;
- function getSMPI : TBits_4; inline;
- function getSMPI0 : TBits_1; inline;
- function getSMPI1 : TBits_1; inline;
- function getSMPI2 : TBits_1; inline;
- function getSMPI3 : TBits_1; inline;
- function getVCFG : TBits_3; inline;
- function getVCFG0 : TBits_1; inline;
- function getVCFG1 : TBits_1; inline;
- function getVCFG2 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setALTS(thebits : TBits_1); inline;
- procedure setBUFM(thebits : TBits_1); inline;
- procedure setBUFS(thebits : TBits_1); inline;
- procedure setCSCNA(thebits : TBits_1); inline;
- procedure setOFFCAL(thebits : TBits_1); inline;
- procedure setSMPI(thebits : TBits_4); inline;
- procedure setSMPI0(thebits : TBits_1); inline;
- procedure setSMPI1(thebits : TBits_1); inline;
- procedure setSMPI2(thebits : TBits_1); inline;
- procedure setSMPI3(thebits : TBits_1); inline;
- procedure setVCFG(thebits : TBits_3); inline;
- procedure setVCFG0(thebits : TBits_1); inline;
- procedure setVCFG1(thebits : TBits_1); inline;
- procedure setVCFG2(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearALTS; inline;
- procedure clearBUFM; inline;
- procedure clearBUFS; inline;
- procedure clearCSCNA; inline;
- procedure clearOFFCAL; inline;
- procedure clearSMPI0; inline;
- procedure clearSMPI1; inline;
- procedure clearSMPI2; inline;
- procedure clearSMPI3; inline;
- procedure clearVCFG0; inline;
- procedure clearVCFG1; inline;
- procedure clearVCFG2; inline;
- procedure setALTS; inline;
- procedure setBUFM; inline;
- procedure setBUFS; inline;
- procedure setCSCNA; inline;
- procedure setOFFCAL; inline;
- procedure setSMPI0; inline;
- procedure setSMPI1; inline;
- procedure setSMPI2; inline;
- procedure setSMPI3; inline;
- procedure setVCFG0; inline;
- procedure setVCFG1; inline;
- procedure setVCFG2; inline;
- property ALTS : TBits_1 read getALTS write setALTS;
- property BUFM : TBits_1 read getBUFM write setBUFM;
- property BUFS : TBits_1 read getBUFS write setBUFS;
- property CSCNA : TBits_1 read getCSCNA write setCSCNA;
- property OFFCAL : TBits_1 read getOFFCAL write setOFFCAL;
- property SMPI : TBits_4 read getSMPI write setSMPI;
- property SMPI0 : TBits_1 read getSMPI0 write setSMPI0;
- property SMPI1 : TBits_1 read getSMPI1 write setSMPI1;
- property SMPI2 : TBits_1 read getSMPI2 write setSMPI2;
- property SMPI3 : TBits_1 read getSMPI3 write setSMPI3;
- property VCFG : TBits_3 read getVCFG write setVCFG;
- property VCFG0 : TBits_1 read getVCFG0 write setVCFG0;
- property VCFG1 : TBits_1 read getVCFG1 write setVCFG1;
- property VCFG2 : TBits_1 read getVCFG2 write setVCFG2;
- property w : TBits_32 read getw write setw;
- end;
- TADC10_AD1CON3 = record
- private
- function getADCS : TBits_8; inline;
- function getADCS0 : TBits_1; inline;
- function getADCS1 : TBits_1; inline;
- function getADCS2 : TBits_1; inline;
- function getADCS3 : TBits_1; inline;
- function getADCS4 : TBits_1; inline;
- function getADCS5 : TBits_1; inline;
- function getADCS6 : TBits_1; inline;
- function getADCS7 : TBits_1; inline;
- function getADRC : TBits_1; inline;
- function getSAMC : TBits_5; inline;
- function getSAMC0 : TBits_1; inline;
- function getSAMC1 : TBits_1; inline;
- function getSAMC2 : TBits_1; inline;
- function getSAMC3 : TBits_1; inline;
- function getSAMC4 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setADCS(thebits : TBits_8); inline;
- procedure setADCS0(thebits : TBits_1); inline;
- procedure setADCS1(thebits : TBits_1); inline;
- procedure setADCS2(thebits : TBits_1); inline;
- procedure setADCS3(thebits : TBits_1); inline;
- procedure setADCS4(thebits : TBits_1); inline;
- procedure setADCS5(thebits : TBits_1); inline;
- procedure setADCS6(thebits : TBits_1); inline;
- procedure setADCS7(thebits : TBits_1); inline;
- procedure setADRC(thebits : TBits_1); inline;
- procedure setSAMC(thebits : TBits_5); inline;
- procedure setSAMC0(thebits : TBits_1); inline;
- procedure setSAMC1(thebits : TBits_1); inline;
- procedure setSAMC2(thebits : TBits_1); inline;
- procedure setSAMC3(thebits : TBits_1); inline;
- procedure setSAMC4(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearADCS0; inline;
- procedure clearADCS1; inline;
- procedure clearADCS2; inline;
- procedure clearADCS3; inline;
- procedure clearADCS4; inline;
- procedure clearADCS5; inline;
- procedure clearADCS6; inline;
- procedure clearADCS7; inline;
- procedure clearADRC; inline;
- procedure clearSAMC0; inline;
- procedure clearSAMC1; inline;
- procedure clearSAMC2; inline;
- procedure clearSAMC3; inline;
- procedure clearSAMC4; inline;
- procedure setADCS0; inline;
- procedure setADCS1; inline;
- procedure setADCS2; inline;
- procedure setADCS3; inline;
- procedure setADCS4; inline;
- procedure setADCS5; inline;
- procedure setADCS6; inline;
- procedure setADCS7; inline;
- procedure setADRC; inline;
- procedure setSAMC0; inline;
- procedure setSAMC1; inline;
- procedure setSAMC2; inline;
- procedure setSAMC3; inline;
- procedure setSAMC4; inline;
- property ADCS : TBits_8 read getADCS write setADCS;
- property ADCS0 : TBits_1 read getADCS0 write setADCS0;
- property ADCS1 : TBits_1 read getADCS1 write setADCS1;
- property ADCS2 : TBits_1 read getADCS2 write setADCS2;
- property ADCS3 : TBits_1 read getADCS3 write setADCS3;
- property ADCS4 : TBits_1 read getADCS4 write setADCS4;
- property ADCS5 : TBits_1 read getADCS5 write setADCS5;
- property ADCS6 : TBits_1 read getADCS6 write setADCS6;
- property ADCS7 : TBits_1 read getADCS7 write setADCS7;
- property ADRC : TBits_1 read getADRC write setADRC;
- property SAMC : TBits_5 read getSAMC write setSAMC;
- property SAMC0 : TBits_1 read getSAMC0 write setSAMC0;
- property SAMC1 : TBits_1 read getSAMC1 write setSAMC1;
- property SAMC2 : TBits_1 read getSAMC2 write setSAMC2;
- property SAMC3 : TBits_1 read getSAMC3 write setSAMC3;
- property SAMC4 : TBits_1 read getSAMC4 write setSAMC4;
- property w : TBits_32 read getw write setw;
- end;
- TADC10_AD1CHS = record
- private
- function getCH0NA : TBits_1; inline;
- function getCH0NB : TBits_1; inline;
- function getCH0SA : TBits_5; inline;
- function getCH0SA0 : TBits_1; inline;
- function getCH0SA1 : TBits_1; inline;
- function getCH0SA2 : TBits_1; inline;
- function getCH0SA3 : TBits_1; inline;
- function getCH0SA4 : TBits_1; inline;
- function getCH0SB : TBits_5; inline;
- function getCH0SB0 : TBits_1; inline;
- function getCH0SB1 : TBits_1; inline;
- function getCH0SB2 : TBits_1; inline;
- function getCH0SB3 : TBits_1; inline;
- function getCH0SB4 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCH0NA(thebits : TBits_1); inline;
- procedure setCH0NB(thebits : TBits_1); inline;
- procedure setCH0SA(thebits : TBits_5); inline;
- procedure setCH0SA0(thebits : TBits_1); inline;
- procedure setCH0SA1(thebits : TBits_1); inline;
- procedure setCH0SA2(thebits : TBits_1); inline;
- procedure setCH0SA3(thebits : TBits_1); inline;
- procedure setCH0SA4(thebits : TBits_1); inline;
- procedure setCH0SB(thebits : TBits_5); inline;
- procedure setCH0SB0(thebits : TBits_1); inline;
- procedure setCH0SB1(thebits : TBits_1); inline;
- procedure setCH0SB2(thebits : TBits_1); inline;
- procedure setCH0SB3(thebits : TBits_1); inline;
- procedure setCH0SB4(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCH0NA; inline;
- procedure clearCH0NB; inline;
- procedure clearCH0SA0; inline;
- procedure clearCH0SA1; inline;
- procedure clearCH0SA2; inline;
- procedure clearCH0SA3; inline;
- procedure clearCH0SA4; inline;
- procedure clearCH0SB0; inline;
- procedure clearCH0SB1; inline;
- procedure clearCH0SB2; inline;
- procedure clearCH0SB3; inline;
- procedure clearCH0SB4; inline;
- procedure setCH0NA; inline;
- procedure setCH0NB; inline;
- procedure setCH0SA0; inline;
- procedure setCH0SA1; inline;
- procedure setCH0SA2; inline;
- procedure setCH0SA3; inline;
- procedure setCH0SA4; inline;
- procedure setCH0SB0; inline;
- procedure setCH0SB1; inline;
- procedure setCH0SB2; inline;
- procedure setCH0SB3; inline;
- procedure setCH0SB4; inline;
- property CH0NA : TBits_1 read getCH0NA write setCH0NA;
- property CH0NB : TBits_1 read getCH0NB write setCH0NB;
- property CH0SA : TBits_5 read getCH0SA write setCH0SA;
- property CH0SA0 : TBits_1 read getCH0SA0 write setCH0SA0;
- property CH0SA1 : TBits_1 read getCH0SA1 write setCH0SA1;
- property CH0SA2 : TBits_1 read getCH0SA2 write setCH0SA2;
- property CH0SA3 : TBits_1 read getCH0SA3 write setCH0SA3;
- property CH0SA4 : TBits_1 read getCH0SA4 write setCH0SA4;
- property CH0SB : TBits_5 read getCH0SB write setCH0SB;
- property CH0SB0 : TBits_1 read getCH0SB0 write setCH0SB0;
- property CH0SB1 : TBits_1 read getCH0SB1 write setCH0SB1;
- property CH0SB2 : TBits_1 read getCH0SB2 write setCH0SB2;
- property CH0SB3 : TBits_1 read getCH0SB3 write setCH0SB3;
- property CH0SB4 : TBits_1 read getCH0SB4 write setCH0SB4;
- property w : TBits_32 read getw write setw;
- end;
- TADC10_AD1CSSL = record
- private
- function getCSSL : TBits_31; inline;
- function getCSSL0 : TBits_1; inline;
- function getCSSL1 : TBits_1; inline;
- function getCSSL10 : TBits_1; inline;
- function getCSSL11 : TBits_1; inline;
- function getCSSL12 : TBits_1; inline;
- function getCSSL13 : TBits_1; inline;
- function getCSSL14 : TBits_1; inline;
- function getCSSL15 : TBits_1; inline;
- function getCSSL16 : TBits_1; inline;
- function getCSSL17 : TBits_1; inline;
- function getCSSL18 : TBits_1; inline;
- function getCSSL19 : TBits_1; inline;
- function getCSSL2 : TBits_1; inline;
- function getCSSL20 : TBits_1; inline;
- function getCSSL21 : TBits_1; inline;
- function getCSSL22 : TBits_1; inline;
- function getCSSL23 : TBits_1; inline;
- function getCSSL24 : TBits_1; inline;
- function getCSSL25 : TBits_1; inline;
- function getCSSL26 : TBits_1; inline;
- function getCSSL27 : TBits_1; inline;
- function getCSSL28 : TBits_1; inline;
- function getCSSL29 : TBits_1; inline;
- function getCSSL3 : TBits_1; inline;
- function getCSSL30 : TBits_1; inline;
- function getCSSL4 : TBits_1; inline;
- function getCSSL5 : TBits_1; inline;
- function getCSSL6 : TBits_1; inline;
- function getCSSL7 : TBits_1; inline;
- function getCSSL8 : TBits_1; inline;
- function getCSSL9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCSSL(thebits : TBits_31); inline;
- procedure setCSSL0(thebits : TBits_1); inline;
- procedure setCSSL1(thebits : TBits_1); inline;
- procedure setCSSL10(thebits : TBits_1); inline;
- procedure setCSSL11(thebits : TBits_1); inline;
- procedure setCSSL12(thebits : TBits_1); inline;
- procedure setCSSL13(thebits : TBits_1); inline;
- procedure setCSSL14(thebits : TBits_1); inline;
- procedure setCSSL15(thebits : TBits_1); inline;
- procedure setCSSL16(thebits : TBits_1); inline;
- procedure setCSSL17(thebits : TBits_1); inline;
- procedure setCSSL18(thebits : TBits_1); inline;
- procedure setCSSL19(thebits : TBits_1); inline;
- procedure setCSSL2(thebits : TBits_1); inline;
- procedure setCSSL20(thebits : TBits_1); inline;
- procedure setCSSL21(thebits : TBits_1); inline;
- procedure setCSSL22(thebits : TBits_1); inline;
- procedure setCSSL23(thebits : TBits_1); inline;
- procedure setCSSL24(thebits : TBits_1); inline;
- procedure setCSSL25(thebits : TBits_1); inline;
- procedure setCSSL26(thebits : TBits_1); inline;
- procedure setCSSL27(thebits : TBits_1); inline;
- procedure setCSSL28(thebits : TBits_1); inline;
- procedure setCSSL29(thebits : TBits_1); inline;
- procedure setCSSL3(thebits : TBits_1); inline;
- procedure setCSSL30(thebits : TBits_1); inline;
- procedure setCSSL4(thebits : TBits_1); inline;
- procedure setCSSL5(thebits : TBits_1); inline;
- procedure setCSSL6(thebits : TBits_1); inline;
- procedure setCSSL7(thebits : TBits_1); inline;
- procedure setCSSL8(thebits : TBits_1); inline;
- procedure setCSSL9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCSSL0; inline;
- procedure clearCSSL10; inline;
- procedure clearCSSL11; inline;
- procedure clearCSSL12; inline;
- procedure clearCSSL13; inline;
- procedure clearCSSL14; inline;
- procedure clearCSSL15; inline;
- procedure clearCSSL16; inline;
- procedure clearCSSL17; inline;
- procedure clearCSSL18; inline;
- procedure clearCSSL19; inline;
- procedure clearCSSL1; inline;
- procedure clearCSSL20; inline;
- procedure clearCSSL21; inline;
- procedure clearCSSL22; inline;
- procedure clearCSSL23; inline;
- procedure clearCSSL24; inline;
- procedure clearCSSL25; inline;
- procedure clearCSSL26; inline;
- procedure clearCSSL27; inline;
- procedure clearCSSL28; inline;
- procedure clearCSSL29; inline;
- procedure clearCSSL2; inline;
- procedure clearCSSL30; inline;
- procedure clearCSSL3; inline;
- procedure clearCSSL4; inline;
- procedure clearCSSL5; inline;
- procedure clearCSSL6; inline;
- procedure clearCSSL7; inline;
- procedure clearCSSL8; inline;
- procedure clearCSSL9; inline;
- procedure setCSSL0; inline;
- procedure setCSSL10; inline;
- procedure setCSSL11; inline;
- procedure setCSSL12; inline;
- procedure setCSSL13; inline;
- procedure setCSSL14; inline;
- procedure setCSSL15; inline;
- procedure setCSSL16; inline;
- procedure setCSSL17; inline;
- procedure setCSSL18; inline;
- procedure setCSSL19; inline;
- procedure setCSSL1; inline;
- procedure setCSSL20; inline;
- procedure setCSSL21; inline;
- procedure setCSSL22; inline;
- procedure setCSSL23; inline;
- procedure setCSSL24; inline;
- procedure setCSSL25; inline;
- procedure setCSSL26; inline;
- procedure setCSSL27; inline;
- procedure setCSSL28; inline;
- procedure setCSSL29; inline;
- procedure setCSSL2; inline;
- procedure setCSSL30; inline;
- procedure setCSSL3; inline;
- procedure setCSSL4; inline;
- procedure setCSSL5; inline;
- procedure setCSSL6; inline;
- procedure setCSSL7; inline;
- procedure setCSSL8; inline;
- procedure setCSSL9; inline;
- property CSSL : TBits_31 read getCSSL write setCSSL;
- property CSSL0 : TBits_1 read getCSSL0 write setCSSL0;
- property CSSL1 : TBits_1 read getCSSL1 write setCSSL1;
- property CSSL10 : TBits_1 read getCSSL10 write setCSSL10;
- property CSSL11 : TBits_1 read getCSSL11 write setCSSL11;
- property CSSL12 : TBits_1 read getCSSL12 write setCSSL12;
- property CSSL13 : TBits_1 read getCSSL13 write setCSSL13;
- property CSSL14 : TBits_1 read getCSSL14 write setCSSL14;
- property CSSL15 : TBits_1 read getCSSL15 write setCSSL15;
- property CSSL16 : TBits_1 read getCSSL16 write setCSSL16;
- property CSSL17 : TBits_1 read getCSSL17 write setCSSL17;
- property CSSL18 : TBits_1 read getCSSL18 write setCSSL18;
- property CSSL19 : TBits_1 read getCSSL19 write setCSSL19;
- property CSSL2 : TBits_1 read getCSSL2 write setCSSL2;
- property CSSL20 : TBits_1 read getCSSL20 write setCSSL20;
- property CSSL21 : TBits_1 read getCSSL21 write setCSSL21;
- property CSSL22 : TBits_1 read getCSSL22 write setCSSL22;
- property CSSL23 : TBits_1 read getCSSL23 write setCSSL23;
- property CSSL24 : TBits_1 read getCSSL24 write setCSSL24;
- property CSSL25 : TBits_1 read getCSSL25 write setCSSL25;
- property CSSL26 : TBits_1 read getCSSL26 write setCSSL26;
- property CSSL27 : TBits_1 read getCSSL27 write setCSSL27;
- property CSSL28 : TBits_1 read getCSSL28 write setCSSL28;
- property CSSL29 : TBits_1 read getCSSL29 write setCSSL29;
- property CSSL3 : TBits_1 read getCSSL3 write setCSSL3;
- property CSSL30 : TBits_1 read getCSSL30 write setCSSL30;
- property CSSL4 : TBits_1 read getCSSL4 write setCSSL4;
- property CSSL5 : TBits_1 read getCSSL5 write setCSSL5;
- property CSSL6 : TBits_1 read getCSSL6 write setCSSL6;
- property CSSL7 : TBits_1 read getCSSL7 write setCSSL7;
- property CSSL8 : TBits_1 read getCSSL8 write setCSSL8;
- property CSSL9 : TBits_1 read getCSSL9 write setCSSL9;
- property w : TBits_32 read getw write setw;
- end;
- type
- TADC10Registers = record
- AD1CON1bits : TADC10_AD1CON1;
- AD1CON1 : longWord;
- AD1CON1CLR : longWord;
- AD1CON1SET : longWord;
- AD1CON1INV : longWord;
- AD1CON2bits : TADC10_AD1CON2;
- AD1CON2 : longWord;
- AD1CON2CLR : longWord;
- AD1CON2SET : longWord;
- AD1CON2INV : longWord;
- AD1CON3bits : TADC10_AD1CON3;
- AD1CON3 : longWord;
- AD1CON3CLR : longWord;
- AD1CON3SET : longWord;
- AD1CON3INV : longWord;
- AD1CHSbits : TADC10_AD1CHS;
- AD1CHS : longWord;
- AD1CHSCLR : longWord;
- AD1CHSSET : longWord;
- AD1CHSINV : longWord;
- AD1CSSLbits : TADC10_AD1CSSL;
- AD1CSSL : longWord;
- AD1CSSLCLR : longWord;
- AD1CSSLSET : longWord;
- AD1CSSLINV : longWord;
- ADC1BUF0 : longWord;
- ADC1BUF1 : longWord;
- ADC1BUF2 : longWord;
- ADC1BUF3 : longWord;
- ADC1BUF4 : longWord;
- ADC1BUF5 : longWord;
- ADC1BUF6 : longWord;
- ADC1BUF7 : longWord;
- ADC1BUF8 : longWord;
- ADC1BUF9 : longWord;
- ADC1BUFA : longWord;
- ADC1BUFB : longWord;
- ADC1BUFC : longWord;
- ADC1BUFD : longWord;
- ADC1BUFE : longWord;
- ADC1BUFF : longWord;
- end;
- TCVR_CVRCON = record
- private
- function getCVR : TBits_4; inline;
- function getCVR0 : TBits_1; inline;
- function getCVR1 : TBits_1; inline;
- function getCVR2 : TBits_1; inline;
- function getCVR3 : TBits_1; inline;
- function getCVROE : TBits_1; inline;
- function getCVRR : TBits_1; inline;
- function getCVRSS : TBits_1; inline;
- function getON : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCVR(thebits : TBits_4); inline;
- procedure setCVR0(thebits : TBits_1); inline;
- procedure setCVR1(thebits : TBits_1); inline;
- procedure setCVR2(thebits : TBits_1); inline;
- procedure setCVR3(thebits : TBits_1); inline;
- procedure setCVROE(thebits : TBits_1); inline;
- procedure setCVRR(thebits : TBits_1); inline;
- procedure setCVRSS(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCVR0; inline;
- procedure clearCVR1; inline;
- procedure clearCVR2; inline;
- procedure clearCVR3; inline;
- procedure clearCVROE; inline;
- procedure clearCVRR; inline;
- procedure clearCVRSS; inline;
- procedure clearON; inline;
- procedure setCVR0; inline;
- procedure setCVR1; inline;
- procedure setCVR2; inline;
- procedure setCVR3; inline;
- procedure setCVROE; inline;
- procedure setCVRR; inline;
- procedure setCVRSS; inline;
- procedure setON; inline;
- property CVR : TBits_4 read getCVR write setCVR;
- property CVR0 : TBits_1 read getCVR0 write setCVR0;
- property CVR1 : TBits_1 read getCVR1 write setCVR1;
- property CVR2 : TBits_1 read getCVR2 write setCVR2;
- property CVR3 : TBits_1 read getCVR3 write setCVR3;
- property CVROE : TBits_1 read getCVROE write setCVROE;
- property CVRR : TBits_1 read getCVRR write setCVRR;
- property CVRSS : TBits_1 read getCVRSS write setCVRSS;
- property ON : TBits_1 read getON write setON;
- property w : TBits_32 read getw write setw;
- end;
- type
- TCVRRegisters = record
- CVRCONbits : TCVR_CVRCON;
- CVRCON : longWord;
- CVRCONCLR : longWord;
- CVRCONSET : longWord;
- CVRCONINV : longWord;
- end;
- TCMP_CM1CON = record
- private
- function getCCH : TBits_2; inline;
- function getCCH0 : TBits_1; inline;
- function getCCH1 : TBits_1; inline;
- function getCOE : TBits_1; inline;
- function getCOUT : TBits_1; inline;
- function getCPOL : TBits_1; inline;
- function getCREF : TBits_1; inline;
- function getEVPOL : TBits_2; inline;
- function getEVPOL0 : TBits_1; inline;
- function getEVPOL1 : TBits_1; inline;
- function getON : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCCH(thebits : TBits_2); inline;
- procedure setCCH0(thebits : TBits_1); inline;
- procedure setCCH1(thebits : TBits_1); inline;
- procedure setCOE(thebits : TBits_1); inline;
- procedure setCOUT(thebits : TBits_1); inline;
- procedure setCPOL(thebits : TBits_1); inline;
- procedure setCREF(thebits : TBits_1); inline;
- procedure setEVPOL(thebits : TBits_2); inline;
- procedure setEVPOL0(thebits : TBits_1); inline;
- procedure setEVPOL1(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCCH0; inline;
- procedure clearCCH1; inline;
- procedure clearCOE; inline;
- procedure clearCOUT; inline;
- procedure clearCPOL; inline;
- procedure clearCREF; inline;
- procedure clearEVPOL0; inline;
- procedure clearEVPOL1; inline;
- procedure clearON; inline;
- procedure setCCH0; inline;
- procedure setCCH1; inline;
- procedure setCOE; inline;
- procedure setCOUT; inline;
- procedure setCPOL; inline;
- procedure setCREF; inline;
- procedure setEVPOL0; inline;
- procedure setEVPOL1; inline;
- procedure setON; inline;
- property CCH : TBits_2 read getCCH write setCCH;
- property CCH0 : TBits_1 read getCCH0 write setCCH0;
- property CCH1 : TBits_1 read getCCH1 write setCCH1;
- property COE : TBits_1 read getCOE write setCOE;
- property COUT : TBits_1 read getCOUT write setCOUT;
- property CPOL : TBits_1 read getCPOL write setCPOL;
- property CREF : TBits_1 read getCREF write setCREF;
- property EVPOL : TBits_2 read getEVPOL write setEVPOL;
- property EVPOL0 : TBits_1 read getEVPOL0 write setEVPOL0;
- property EVPOL1 : TBits_1 read getEVPOL1 write setEVPOL1;
- property ON : TBits_1 read getON write setON;
- property w : TBits_32 read getw write setw;
- end;
- TCMP_CM2CON = record
- private
- function getCCH : TBits_2; inline;
- function getCCH0 : TBits_1; inline;
- function getCCH1 : TBits_1; inline;
- function getCOE : TBits_1; inline;
- function getCOUT : TBits_1; inline;
- function getCPOL : TBits_1; inline;
- function getCREF : TBits_1; inline;
- function getEVPOL : TBits_2; inline;
- function getEVPOL0 : TBits_1; inline;
- function getEVPOL1 : TBits_1; inline;
- function getON : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCCH(thebits : TBits_2); inline;
- procedure setCCH0(thebits : TBits_1); inline;
- procedure setCCH1(thebits : TBits_1); inline;
- procedure setCOE(thebits : TBits_1); inline;
- procedure setCOUT(thebits : TBits_1); inline;
- procedure setCPOL(thebits : TBits_1); inline;
- procedure setCREF(thebits : TBits_1); inline;
- procedure setEVPOL(thebits : TBits_2); inline;
- procedure setEVPOL0(thebits : TBits_1); inline;
- procedure setEVPOL1(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCCH0; inline;
- procedure clearCCH1; inline;
- procedure clearCOE; inline;
- procedure clearCOUT; inline;
- procedure clearCPOL; inline;
- procedure clearCREF; inline;
- procedure clearEVPOL0; inline;
- procedure clearEVPOL1; inline;
- procedure clearON; inline;
- procedure setCCH0; inline;
- procedure setCCH1; inline;
- procedure setCOE; inline;
- procedure setCOUT; inline;
- procedure setCPOL; inline;
- procedure setCREF; inline;
- procedure setEVPOL0; inline;
- procedure setEVPOL1; inline;
- procedure setON; inline;
- property CCH : TBits_2 read getCCH write setCCH;
- property CCH0 : TBits_1 read getCCH0 write setCCH0;
- property CCH1 : TBits_1 read getCCH1 write setCCH1;
- property COE : TBits_1 read getCOE write setCOE;
- property COUT : TBits_1 read getCOUT write setCOUT;
- property CPOL : TBits_1 read getCPOL write setCPOL;
- property CREF : TBits_1 read getCREF write setCREF;
- property EVPOL : TBits_2 read getEVPOL write setEVPOL;
- property EVPOL0 : TBits_1 read getEVPOL0 write setEVPOL0;
- property EVPOL1 : TBits_1 read getEVPOL1 write setEVPOL1;
- property ON : TBits_1 read getON write setON;
- property w : TBits_32 read getw write setw;
- end;
- TCMP_CMSTAT = record
- private
- function getC1OUT : TBits_1; inline;
- function getC2OUT : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setC1OUT(thebits : TBits_1); inline;
- procedure setC2OUT(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearC1OUT; inline;
- procedure clearC2OUT; inline;
- procedure clearSIDL; inline;
- procedure setC1OUT; inline;
- procedure setC2OUT; inline;
- procedure setSIDL; inline;
- property C1OUT : TBits_1 read getC1OUT write setC1OUT;
- property C2OUT : TBits_1 read getC2OUT write setC2OUT;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- TCMP_CTMUCON = record
- private
- function getCTMUSIDL : TBits_1; inline;
- function getCTTRIG : TBits_1; inline;
- function getEDG1MOD : TBits_1; inline;
- function getEDG1POL : TBits_1; inline;
- function getEDG1SEL : TBits_4; inline;
- function getEDG1STAT : TBits_1; inline;
- function getEDG2MOD : TBits_1; inline;
- function getEDG2POL : TBits_1; inline;
- function getEDG2SEL : TBits_4; inline;
- function getEDG2STAT : TBits_1; inline;
- function getEDGEN : TBits_1; inline;
- function getEDGSEQEN : TBits_1; inline;
- function getIDISSEN : TBits_1; inline;
- function getIRNG : TBits_2; inline;
- function getITRIM : TBits_6; inline;
- function getON : TBits_1; inline;
- function getTGEN : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCTMUSIDL(thebits : TBits_1); inline;
- procedure setCTTRIG(thebits : TBits_1); inline;
- procedure setEDG1MOD(thebits : TBits_1); inline;
- procedure setEDG1POL(thebits : TBits_1); inline;
- procedure setEDG1SEL(thebits : TBits_4); inline;
- procedure setEDG1STAT(thebits : TBits_1); inline;
- procedure setEDG2MOD(thebits : TBits_1); inline;
- procedure setEDG2POL(thebits : TBits_1); inline;
- procedure setEDG2SEL(thebits : TBits_4); inline;
- procedure setEDG2STAT(thebits : TBits_1); inline;
- procedure setEDGEN(thebits : TBits_1); inline;
- procedure setEDGSEQEN(thebits : TBits_1); inline;
- procedure setIDISSEN(thebits : TBits_1); inline;
- procedure setIRNG(thebits : TBits_2); inline;
- procedure setITRIM(thebits : TBits_6); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setTGEN(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCTMUSIDL; inline;
- procedure clearCTTRIG; inline;
- procedure clearEDG1MOD; inline;
- procedure clearEDG1POL; inline;
- procedure clearEDG1STAT; inline;
- procedure clearEDG2MOD; inline;
- procedure clearEDG2POL; inline;
- procedure clearEDG2STAT; inline;
- procedure clearEDGEN; inline;
- procedure clearEDGSEQEN; inline;
- procedure clearIDISSEN; inline;
- procedure clearON; inline;
- procedure clearTGEN; inline;
- procedure setCTMUSIDL; inline;
- procedure setCTTRIG; inline;
- procedure setEDG1MOD; inline;
- procedure setEDG1POL; inline;
- procedure setEDG1STAT; inline;
- procedure setEDG2MOD; inline;
- procedure setEDG2POL; inline;
- procedure setEDG2STAT; inline;
- procedure setEDGEN; inline;
- procedure setEDGSEQEN; inline;
- procedure setIDISSEN; inline;
- procedure setON; inline;
- procedure setTGEN; inline;
- property CTMUSIDL : TBits_1 read getCTMUSIDL write setCTMUSIDL;
- property CTTRIG : TBits_1 read getCTTRIG write setCTTRIG;
- property EDG1MOD : TBits_1 read getEDG1MOD write setEDG1MOD;
- property EDG1POL : TBits_1 read getEDG1POL write setEDG1POL;
- property EDG1SEL : TBits_4 read getEDG1SEL write setEDG1SEL;
- property EDG1STAT : TBits_1 read getEDG1STAT write setEDG1STAT;
- property EDG2MOD : TBits_1 read getEDG2MOD write setEDG2MOD;
- property EDG2POL : TBits_1 read getEDG2POL write setEDG2POL;
- property EDG2SEL : TBits_4 read getEDG2SEL write setEDG2SEL;
- property EDG2STAT : TBits_1 read getEDG2STAT write setEDG2STAT;
- property EDGEN : TBits_1 read getEDGEN write setEDGEN;
- property EDGSEQEN : TBits_1 read getEDGSEQEN write setEDGSEQEN;
- property IDISSEN : TBits_1 read getIDISSEN write setIDISSEN;
- property IRNG : TBits_2 read getIRNG write setIRNG;
- property ITRIM : TBits_6 read getITRIM write setITRIM;
- property ON : TBits_1 read getON write setON;
- property TGEN : TBits_1 read getTGEN write setTGEN;
- property w : TBits_32 read getw write setw;
- end;
- type
- TCMPRegisters = record
- CM1CONbits : TCMP_CM1CON;
- CM1CON : longWord;
- CM1CONCLR : longWord;
- CM1CONSET : longWord;
- CM1CONINV : longWord;
- CM2CONbits : TCMP_CM2CON;
- CM2CON : longWord;
- CM2CONCLR : longWord;
- CM2CONSET : longWord;
- CM2CONINV : longWord;
- CMSTATbits : TCMP_CMSTAT;
- CMSTAT : longWord;
- CMSTATCLR : longWord;
- CMSTATSET : longWord;
- CMSTATINV : longWord;
- CTMUCONbits : TCMP_CTMUCON;
- CTMUCON : longWord;
- CTMUCONCLR : longWord;
- CTMUCONSET : longWord;
- CTMUCONINV : longWord;
- end;
- TOSC_OSCCON = record
- private
- function getCF : TBits_1; inline;
- function getCLKLOCK : TBits_1; inline;
- function getCOSC : TBits_3; inline;
- function getCOSC0 : TBits_1; inline;
- function getCOSC1 : TBits_1; inline;
- function getCOSC2 : TBits_1; inline;
- function getFRCDIV : TBits_3; inline;
- function getFRCDIV0 : TBits_1; inline;
- function getFRCDIV1 : TBits_1; inline;
- function getFRCDIV2 : TBits_1; inline;
- function getNOSC : TBits_3; inline;
- function getNOSC0 : TBits_1; inline;
- function getNOSC1 : TBits_1; inline;
- function getNOSC2 : TBits_1; inline;
- function getOSWEN : TBits_1; inline;
- function getPBDIV : TBits_2; inline;
- function getPBDIV0 : TBits_1; inline;
- function getPBDIV1 : TBits_1; inline;
- function getPBDIVRDY : TBits_1; inline;
- function getPLLMULT : TBits_3; inline;
- function getPLLMULT0 : TBits_1; inline;
- function getPLLMULT1 : TBits_1; inline;
- function getPLLMULT2 : TBits_1; inline;
- function getPLLODIV : TBits_3; inline;
- function getPLLODIV0 : TBits_1; inline;
- function getPLLODIV1 : TBits_1; inline;
- function getPLLODIV2 : TBits_1; inline;
- function getSLOCK : TBits_1; inline;
- function getSLPEN : TBits_1; inline;
- function getSOSCEN : TBits_1; inline;
- function getSOSCRDY : TBits_1; inline;
- function getUFRCEN : TBits_1; inline;
- function getULOCK : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCF(thebits : TBits_1); inline;
- procedure setCLKLOCK(thebits : TBits_1); inline;
- procedure setCOSC(thebits : TBits_3); inline;
- procedure setCOSC0(thebits : TBits_1); inline;
- procedure setCOSC1(thebits : TBits_1); inline;
- procedure setCOSC2(thebits : TBits_1); inline;
- procedure setFRCDIV(thebits : TBits_3); inline;
- procedure setFRCDIV0(thebits : TBits_1); inline;
- procedure setFRCDIV1(thebits : TBits_1); inline;
- procedure setFRCDIV2(thebits : TBits_1); inline;
- procedure setNOSC(thebits : TBits_3); inline;
- procedure setNOSC0(thebits : TBits_1); inline;
- procedure setNOSC1(thebits : TBits_1); inline;
- procedure setNOSC2(thebits : TBits_1); inline;
- procedure setOSWEN(thebits : TBits_1); inline;
- procedure setPBDIV(thebits : TBits_2); inline;
- procedure setPBDIV0(thebits : TBits_1); inline;
- procedure setPBDIV1(thebits : TBits_1); inline;
- procedure setPBDIVRDY(thebits : TBits_1); inline;
- procedure setPLLMULT(thebits : TBits_3); inline;
- procedure setPLLMULT0(thebits : TBits_1); inline;
- procedure setPLLMULT1(thebits : TBits_1); inline;
- procedure setPLLMULT2(thebits : TBits_1); inline;
- procedure setPLLODIV(thebits : TBits_3); inline;
- procedure setPLLODIV0(thebits : TBits_1); inline;
- procedure setPLLODIV1(thebits : TBits_1); inline;
- procedure setPLLODIV2(thebits : TBits_1); inline;
- procedure setSLOCK(thebits : TBits_1); inline;
- procedure setSLPEN(thebits : TBits_1); inline;
- procedure setSOSCEN(thebits : TBits_1); inline;
- procedure setSOSCRDY(thebits : TBits_1); inline;
- procedure setUFRCEN(thebits : TBits_1); inline;
- procedure setULOCK(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCF; inline;
- procedure clearCLKLOCK; inline;
- procedure clearCOSC0; inline;
- procedure clearCOSC1; inline;
- procedure clearCOSC2; inline;
- procedure clearFRCDIV0; inline;
- procedure clearFRCDIV1; inline;
- procedure clearFRCDIV2; inline;
- procedure clearNOSC0; inline;
- procedure clearNOSC1; inline;
- procedure clearNOSC2; inline;
- procedure clearOSWEN; inline;
- procedure clearPBDIV0; inline;
- procedure clearPBDIV1; inline;
- procedure clearPBDIVRDY; inline;
- procedure clearPLLMULT0; inline;
- procedure clearPLLMULT1; inline;
- procedure clearPLLMULT2; inline;
- procedure clearPLLODIV0; inline;
- procedure clearPLLODIV1; inline;
- procedure clearPLLODIV2; inline;
- procedure clearSLOCK; inline;
- procedure clearSLPEN; inline;
- procedure clearSOSCEN; inline;
- procedure clearSOSCRDY; inline;
- procedure clearUFRCEN; inline;
- procedure clearULOCK; inline;
- procedure setCF; inline;
- procedure setCLKLOCK; inline;
- procedure setCOSC0; inline;
- procedure setCOSC1; inline;
- procedure setCOSC2; inline;
- procedure setFRCDIV0; inline;
- procedure setFRCDIV1; inline;
- procedure setFRCDIV2; inline;
- procedure setNOSC0; inline;
- procedure setNOSC1; inline;
- procedure setNOSC2; inline;
- procedure setOSWEN; inline;
- procedure setPBDIV0; inline;
- procedure setPBDIV1; inline;
- procedure setPBDIVRDY; inline;
- procedure setPLLMULT0; inline;
- procedure setPLLMULT1; inline;
- procedure setPLLMULT2; inline;
- procedure setPLLODIV0; inline;
- procedure setPLLODIV1; inline;
- procedure setPLLODIV2; inline;
- procedure setSLOCK; inline;
- procedure setSLPEN; inline;
- procedure setSOSCEN; inline;
- procedure setSOSCRDY; inline;
- procedure setUFRCEN; inline;
- procedure setULOCK; inline;
- property CF : TBits_1 read getCF write setCF;
- property CLKLOCK : TBits_1 read getCLKLOCK write setCLKLOCK;
- property COSC : TBits_3 read getCOSC write setCOSC;
- property COSC0 : TBits_1 read getCOSC0 write setCOSC0;
- property COSC1 : TBits_1 read getCOSC1 write setCOSC1;
- property COSC2 : TBits_1 read getCOSC2 write setCOSC2;
- property FRCDIV : TBits_3 read getFRCDIV write setFRCDIV;
- property FRCDIV0 : TBits_1 read getFRCDIV0 write setFRCDIV0;
- property FRCDIV1 : TBits_1 read getFRCDIV1 write setFRCDIV1;
- property FRCDIV2 : TBits_1 read getFRCDIV2 write setFRCDIV2;
- property NOSC : TBits_3 read getNOSC write setNOSC;
- property NOSC0 : TBits_1 read getNOSC0 write setNOSC0;
- property NOSC1 : TBits_1 read getNOSC1 write setNOSC1;
- property NOSC2 : TBits_1 read getNOSC2 write setNOSC2;
- property OSWEN : TBits_1 read getOSWEN write setOSWEN;
- property PBDIV : TBits_2 read getPBDIV write setPBDIV;
- property PBDIV0 : TBits_1 read getPBDIV0 write setPBDIV0;
- property PBDIV1 : TBits_1 read getPBDIV1 write setPBDIV1;
- property PBDIVRDY : TBits_1 read getPBDIVRDY write setPBDIVRDY;
- property PLLMULT : TBits_3 read getPLLMULT write setPLLMULT;
- property PLLMULT0 : TBits_1 read getPLLMULT0 write setPLLMULT0;
- property PLLMULT1 : TBits_1 read getPLLMULT1 write setPLLMULT1;
- property PLLMULT2 : TBits_1 read getPLLMULT2 write setPLLMULT2;
- property PLLODIV : TBits_3 read getPLLODIV write setPLLODIV;
- property PLLODIV0 : TBits_1 read getPLLODIV0 write setPLLODIV0;
- property PLLODIV1 : TBits_1 read getPLLODIV1 write setPLLODIV1;
- property PLLODIV2 : TBits_1 read getPLLODIV2 write setPLLODIV2;
- property SLOCK : TBits_1 read getSLOCK write setSLOCK;
- property SLPEN : TBits_1 read getSLPEN write setSLPEN;
- property SOSCEN : TBits_1 read getSOSCEN write setSOSCEN;
- property SOSCRDY : TBits_1 read getSOSCRDY write setSOSCRDY;
- property UFRCEN : TBits_1 read getUFRCEN write setUFRCEN;
- property ULOCK : TBits_1 read getULOCK write setULOCK;
- property w : TBits_32 read getw write setw;
- end;
- TOSC_OSCTUN = record
- private
- function getTUN : TBits_6; inline;
- function getTUN0 : TBits_1; inline;
- function getTUN1 : TBits_1; inline;
- function getTUN2 : TBits_1; inline;
- function getTUN3 : TBits_1; inline;
- function getTUN4 : TBits_1; inline;
- function getTUN5 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setTUN(thebits : TBits_6); inline;
- procedure setTUN0(thebits : TBits_1); inline;
- procedure setTUN1(thebits : TBits_1); inline;
- procedure setTUN2(thebits : TBits_1); inline;
- procedure setTUN3(thebits : TBits_1); inline;
- procedure setTUN4(thebits : TBits_1); inline;
- procedure setTUN5(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearTUN0; inline;
- procedure clearTUN1; inline;
- procedure clearTUN2; inline;
- procedure clearTUN3; inline;
- procedure clearTUN4; inline;
- procedure clearTUN5; inline;
- procedure setTUN0; inline;
- procedure setTUN1; inline;
- procedure setTUN2; inline;
- procedure setTUN3; inline;
- procedure setTUN4; inline;
- procedure setTUN5; inline;
- property TUN : TBits_6 read getTUN write setTUN;
- property TUN0 : TBits_1 read getTUN0 write setTUN0;
- property TUN1 : TBits_1 read getTUN1 write setTUN1;
- property TUN2 : TBits_1 read getTUN2 write setTUN2;
- property TUN3 : TBits_1 read getTUN3 write setTUN3;
- property TUN4 : TBits_1 read getTUN4 write setTUN4;
- property TUN5 : TBits_1 read getTUN5 write setTUN5;
- property w : TBits_32 read getw write setw;
- end;
- TOSC_REFOCON = record
- private
- function getACTIVE : TBits_1; inline;
- function getDIVSWEN : TBits_1; inline;
- function getOE : TBits_1; inline;
- function getON : TBits_1; inline;
- function getRODIV : TBits_15; inline;
- function getROSEL : TBits_4; inline;
- function getRSLP : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setACTIVE(thebits : TBits_1); inline;
- procedure setDIVSWEN(thebits : TBits_1); inline;
- procedure setOE(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setRODIV(thebits : TBits_15); inline;
- procedure setROSEL(thebits : TBits_4); inline;
- procedure setRSLP(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearACTIVE; inline;
- procedure clearDIVSWEN; inline;
- procedure clearOE; inline;
- procedure clearON; inline;
- procedure clearRSLP; inline;
- procedure clearSIDL; inline;
- procedure setACTIVE; inline;
- procedure setDIVSWEN; inline;
- procedure setOE; inline;
- procedure setON; inline;
- procedure setRSLP; inline;
- procedure setSIDL; inline;
- property ACTIVE : TBits_1 read getACTIVE write setACTIVE;
- property DIVSWEN : TBits_1 read getDIVSWEN write setDIVSWEN;
- property OE : TBits_1 read getOE write setOE;
- property ON : TBits_1 read getON write setON;
- property RODIV : TBits_15 read getRODIV write setRODIV;
- property ROSEL : TBits_4 read getROSEL write setROSEL;
- property RSLP : TBits_1 read getRSLP write setRSLP;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- TOSC_REFOTRIM = record
- private
- function getROTRIM : TBits_9; inline;
- function getw : TBits_32; inline;
- procedure setROTRIM(thebits : TBits_9); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property ROTRIM : TBits_9 read getROTRIM write setROTRIM;
- property w : TBits_32 read getw write setw;
- end;
- type
- TOSCRegisters = record
- OSCCONbits : TOSC_OSCCON;
- OSCCON : longWord;
- OSCCONCLR : longWord;
- OSCCONSET : longWord;
- OSCCONINV : longWord;
- OSCTUNbits : TOSC_OSCTUN;
- OSCTUN : longWord;
- OSCTUNCLR : longWord;
- OSCTUNSET : longWord;
- OSCTUNINV : longWord;
- REFOCONbits : TOSC_REFOCON;
- REFOCON : longWord;
- REFOCONCLR : longWord;
- REFOCONSET : longWord;
- REFOCONINV : longWord;
- REFOTRIMbits : TOSC_REFOTRIM;
- REFOTRIM : longWord;
- REFOTRIMCLR : longWord;
- REFOTRIMSET : longWord;
- REFOTRIMINV : longWord;
- end;
- type
- TCFGRegisters = record
- CFGCON : longWord;
- DDPCON : longWord;
- DEVID : longWord;
- SYSKEY : longWord;
- SYSKEYCLR : longWord;
- SYSKEYSET : longWord;
- SYSKEYINV : longWord;
- PMD1 : longWord;
- PMD1CLR : longWord;
- PMD1SET : longWord;
- PMD1INV : longWord;
- PMD2 : longWord;
- PMD2CLR : longWord;
- PMD2SET : longWord;
- PMD2INV : longWord;
- PMD3 : longWord;
- PMD3CLR : longWord;
- PMD3SET : longWord;
- PMD3INV : longWord;
- PMD4 : longWord;
- PMD4CLR : longWord;
- PMD4SET : longWord;
- PMD4INV : longWord;
- PMD5 : longWord;
- PMD5CLR : longWord;
- PMD5SET : longWord;
- PMD5INV : longWord;
- PMD6 : longWord;
- PMD6CLR : longWord;
- PMD6SET : longWord;
- PMD6INV : longWord;
- end;
- TNVM_NVMCON = record
- private
- function getLVDERR : TBits_1; inline;
- function getLVDSTAT : TBits_1; inline;
- function getNVMOP : TBits_4; inline;
- function getNVMOP0 : TBits_1; inline;
- function getNVMOP1 : TBits_1; inline;
- function getNVMOP2 : TBits_1; inline;
- function getNVMOP3 : TBits_1; inline;
- function getPROGOP : TBits_4; inline;
- function getPROGOP0 : TBits_1; inline;
- function getPROGOP1 : TBits_1; inline;
- function getPROGOP2 : TBits_1; inline;
- function getPROGOP3 : TBits_1; inline;
- function getWR : TBits_1; inline;
- function getWREN : TBits_1; inline;
- function getWRERR : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setLVDERR(thebits : TBits_1); inline;
- procedure setLVDSTAT(thebits : TBits_1); inline;
- procedure setNVMOP(thebits : TBits_4); inline;
- procedure setNVMOP0(thebits : TBits_1); inline;
- procedure setNVMOP1(thebits : TBits_1); inline;
- procedure setNVMOP2(thebits : TBits_1); inline;
- procedure setNVMOP3(thebits : TBits_1); inline;
- procedure setPROGOP(thebits : TBits_4); inline;
- procedure setPROGOP0(thebits : TBits_1); inline;
- procedure setPROGOP1(thebits : TBits_1); inline;
- procedure setPROGOP2(thebits : TBits_1); inline;
- procedure setPROGOP3(thebits : TBits_1); inline;
- procedure setWR(thebits : TBits_1); inline;
- procedure setWREN(thebits : TBits_1); inline;
- procedure setWRERR(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearLVDERR; inline;
- procedure clearLVDSTAT; inline;
- procedure clearNVMOP0; inline;
- procedure clearNVMOP1; inline;
- procedure clearNVMOP2; inline;
- procedure clearNVMOP3; inline;
- procedure clearPROGOP0; inline;
- procedure clearPROGOP1; inline;
- procedure clearPROGOP2; inline;
- procedure clearPROGOP3; inline;
- procedure clearWR; inline;
- procedure clearWREN; inline;
- procedure clearWRERR; inline;
- procedure setLVDERR; inline;
- procedure setLVDSTAT; inline;
- procedure setNVMOP0; inline;
- procedure setNVMOP1; inline;
- procedure setNVMOP2; inline;
- procedure setNVMOP3; inline;
- procedure setPROGOP0; inline;
- procedure setPROGOP1; inline;
- procedure setPROGOP2; inline;
- procedure setPROGOP3; inline;
- procedure setWR; inline;
- procedure setWREN; inline;
- procedure setWRERR; inline;
- property LVDERR : TBits_1 read getLVDERR write setLVDERR;
- property LVDSTAT : TBits_1 read getLVDSTAT write setLVDSTAT;
- property NVMOP : TBits_4 read getNVMOP write setNVMOP;
- property NVMOP0 : TBits_1 read getNVMOP0 write setNVMOP0;
- property NVMOP1 : TBits_1 read getNVMOP1 write setNVMOP1;
- property NVMOP2 : TBits_1 read getNVMOP2 write setNVMOP2;
- property NVMOP3 : TBits_1 read getNVMOP3 write setNVMOP3;
- property PROGOP : TBits_4 read getPROGOP write setPROGOP;
- property PROGOP0 : TBits_1 read getPROGOP0 write setPROGOP0;
- property PROGOP1 : TBits_1 read getPROGOP1 write setPROGOP1;
- property PROGOP2 : TBits_1 read getPROGOP2 write setPROGOP2;
- property PROGOP3 : TBits_1 read getPROGOP3 write setPROGOP3;
- property WR : TBits_1 read getWR write setWR;
- property WREN : TBits_1 read getWREN write setWREN;
- property WRERR : TBits_1 read getWRERR write setWRERR;
- property w : TBits_32 read getw write setw;
- end;
- type
- TNVMRegisters = record
- NVMCONbits : TNVM_NVMCON;
- NVMCON : longWord;
- NVMCONCLR : longWord;
- NVMCONSET : longWord;
- NVMCONINV : longWord;
- NVMKEY : longWord;
- NVMADDR : longWord;
- NVMADDRCLR : longWord;
- NVMADDRSET : longWord;
- NVMADDRINV : longWord;
- NVMDATA : longWord;
- NVMSRCADDR : longWord;
- end;
- TRCON_RCON = record
- private
- function getBOR : TBits_1; inline;
- function getCMR : TBits_1; inline;
- function getEXTR : TBits_1; inline;
- function getHVDR : TBits_1; inline;
- function getIDLE : TBits_1; inline;
- function getPOR : TBits_1; inline;
- function getSLEEP : TBits_1; inline;
- function getSWR : TBits_1; inline;
- function getVREGS : TBits_1; inline;
- function getWDTO : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setBOR(thebits : TBits_1); inline;
- procedure setCMR(thebits : TBits_1); inline;
- procedure setEXTR(thebits : TBits_1); inline;
- procedure setHVDR(thebits : TBits_1); inline;
- procedure setIDLE(thebits : TBits_1); inline;
- procedure setPOR(thebits : TBits_1); inline;
- procedure setSLEEP(thebits : TBits_1); inline;
- procedure setSWR(thebits : TBits_1); inline;
- procedure setVREGS(thebits : TBits_1); inline;
- procedure setWDTO(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearBOR; inline;
- procedure clearCMR; inline;
- procedure clearEXTR; inline;
- procedure clearHVDR; inline;
- procedure clearIDLE; inline;
- procedure clearPOR; inline;
- procedure clearSLEEP; inline;
- procedure clearSWR; inline;
- procedure clearVREGS; inline;
- procedure clearWDTO; inline;
- procedure setBOR; inline;
- procedure setCMR; inline;
- procedure setEXTR; inline;
- procedure setHVDR; inline;
- procedure setIDLE; inline;
- procedure setPOR; inline;
- procedure setSLEEP; inline;
- procedure setSWR; inline;
- procedure setVREGS; inline;
- procedure setWDTO; inline;
- property BOR : TBits_1 read getBOR write setBOR;
- property CMR : TBits_1 read getCMR write setCMR;
- property EXTR : TBits_1 read getEXTR write setEXTR;
- property HVDR : TBits_1 read getHVDR write setHVDR;
- property IDLE : TBits_1 read getIDLE write setIDLE;
- property POR : TBits_1 read getPOR write setPOR;
- property SLEEP : TBits_1 read getSLEEP write setSLEEP;
- property SWR : TBits_1 read getSWR write setSWR;
- property VREGS : TBits_1 read getVREGS write setVREGS;
- property WDTO : TBits_1 read getWDTO write setWDTO;
- property w : TBits_32 read getw write setw;
- end;
- TRCON_RSWRST = record
- private
- function getSWRST : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setSWRST(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearSWRST; inline;
- procedure setSWRST; inline;
- property SWRST : TBits_1 read getSWRST write setSWRST;
- property w : TBits_32 read getw write setw;
- end;
- type
- TRCONRegisters = record
- RCONbits : TRCON_RCON;
- RCON : longWord;
- RCONCLR : longWord;
- RCONSET : longWord;
- RCONINV : longWord;
- RSWRSTbits : TRCON_RSWRST;
- RSWRST : longWord;
- RSWRSTCLR : longWord;
- RSWRSTSET : longWord;
- RSWRSTINV : longWord;
- INT1R : longWord;
- INT2R : longWord;
- INT3R : longWord;
- INT4R : longWord;
- T2CKR : longWord;
- T3CKR : longWord;
- T4CKR : longWord;
- T5CKR : longWord;
- IC1R : longWord;
- IC2R : longWord;
- IC3R : longWord;
- IC4R : longWord;
- IC5R : longWord;
- OCFAR : longWord;
- U1RXR : longWord;
- U1CTSR : longWord;
- U2RXR : longWord;
- U2CTSR : longWord;
- U3RXR : longWord;
- U3CTSR : longWord;
- U4RXR : longWord;
- U4CTSR : longWord;
- U5RXR : longWord;
- U5CTSR : longWord;
- SDI1R : longWord;
- SS1R : longWord;
- SDI2R : longWord;
- SS2R : longWord;
- REFCLKIR : longWord;
- RPA14R : longWord;
- RPA15R : longWord;
- RPB0R : longWord;
- RPB1R : longWord;
- RPB2R : longWord;
- RPB3R : longWord;
- RPB5R : longWord;
- RPB6R : longWord;
- RPB7R : longWord;
- RPB8R : longWord;
- RPB9R : longWord;
- RPB10R : longWord;
- RPB14R : longWord;
- RPB15R : longWord;
- RPC1R : longWord;
- RPC2R : longWord;
- RPC3R : longWord;
- RPC4R : longWord;
- RPC13R : longWord;
- RPC14R : longWord;
- RPD0R : longWord;
- RPD1R : longWord;
- RPD2R : longWord;
- RPD3R : longWord;
- RPD4R : longWord;
- RPD5R : longWord;
- RPD8R : longWord;
- RPD9R : longWord;
- RPD10R : longWord;
- RPD11R : longWord;
- RPD12R : longWord;
- RPD14R : longWord;
- RPD15R : longWord;
- RPE3R : longWord;
- RPE5R : longWord;
- RPE8R : longWord;
- RPE9R : longWord;
- RPF0R : longWord;
- RPF1R : longWord;
- RPF2R : longWord;
- RPF4R : longWord;
- RPF5R : longWord;
- RPF8R : longWord;
- RPF12R : longWord;
- RPF13R : longWord;
- RPG0R : longWord;
- RPG1R : longWord;
- RPG6R : longWord;
- RPG7R : longWord;
- RPG8R : longWord;
- RPG9R : longWord;
- end;
- TINT_INTCON = record
- private
- function getINT0EP : TBits_1; inline;
- function getINT1EP : TBits_1; inline;
- function getINT2EP : TBits_1; inline;
- function getINT3EP : TBits_1; inline;
- function getINT4EP : TBits_1; inline;
- function getMVEC : TBits_1; inline;
- function getSS0 : TBits_1; inline;
- function getTPC : TBits_3; inline;
- function getw : TBits_32; inline;
- procedure setINT0EP(thebits : TBits_1); inline;
- procedure setINT1EP(thebits : TBits_1); inline;
- procedure setINT2EP(thebits : TBits_1); inline;
- procedure setINT3EP(thebits : TBits_1); inline;
- procedure setINT4EP(thebits : TBits_1); inline;
- procedure setMVEC(thebits : TBits_1); inline;
- procedure setSS0(thebits : TBits_1); inline;
- procedure setTPC(thebits : TBits_3); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearINT0EP; inline;
- procedure clearINT1EP; inline;
- procedure clearINT2EP; inline;
- procedure clearINT3EP; inline;
- procedure clearINT4EP; inline;
- procedure clearMVEC; inline;
- procedure clearSS0; inline;
- procedure setINT0EP; inline;
- procedure setINT1EP; inline;
- procedure setINT2EP; inline;
- procedure setINT3EP; inline;
- procedure setINT4EP; inline;
- procedure setMVEC; inline;
- procedure setSS0; inline;
- property INT0EP : TBits_1 read getINT0EP write setINT0EP;
- property INT1EP : TBits_1 read getINT1EP write setINT1EP;
- property INT2EP : TBits_1 read getINT2EP write setINT2EP;
- property INT3EP : TBits_1 read getINT3EP write setINT3EP;
- property INT4EP : TBits_1 read getINT4EP write setINT4EP;
- property MVEC : TBits_1 read getMVEC write setMVEC;
- property SS0 : TBits_1 read getSS0 write setSS0;
- property TPC : TBits_3 read getTPC write setTPC;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IFS0 = record
- private
- function getAD1IF : TBits_1; inline;
- function getCS0IF : TBits_1; inline;
- function getCS1IF : TBits_1; inline;
- function getCTIF : TBits_1; inline;
- function getFCEIF : TBits_1; inline;
- function getFSCMIF : TBits_1; inline;
- function getIC1EIF : TBits_1; inline;
- function getIC1IF : TBits_1; inline;
- function getIC2EIF : TBits_1; inline;
- function getIC2IF : TBits_1; inline;
- function getIC3EIF : TBits_1; inline;
- function getIC3IF : TBits_1; inline;
- function getIC4EIF : TBits_1; inline;
- function getIC4IF : TBits_1; inline;
- function getIC5EIF : TBits_1; inline;
- function getIC5IF : TBits_1; inline;
- function getINT0IF : TBits_1; inline;
- function getINT1IF : TBits_1; inline;
- function getINT2IF : TBits_1; inline;
- function getINT3IF : TBits_1; inline;
- function getINT4IF : TBits_1; inline;
- function getOC1IF : TBits_1; inline;
- function getOC2IF : TBits_1; inline;
- function getOC3IF : TBits_1; inline;
- function getOC4IF : TBits_1; inline;
- function getOC5IF : TBits_1; inline;
- function getRTCCIF : TBits_1; inline;
- function getT1IF : TBits_1; inline;
- function getT2IF : TBits_1; inline;
- function getT3IF : TBits_1; inline;
- function getT4IF : TBits_1; inline;
- function getT5IF : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setAD1IF(thebits : TBits_1); inline;
- procedure setCS0IF(thebits : TBits_1); inline;
- procedure setCS1IF(thebits : TBits_1); inline;
- procedure setCTIF(thebits : TBits_1); inline;
- procedure setFCEIF(thebits : TBits_1); inline;
- procedure setFSCMIF(thebits : TBits_1); inline;
- procedure setIC1EIF(thebits : TBits_1); inline;
- procedure setIC1IF(thebits : TBits_1); inline;
- procedure setIC2EIF(thebits : TBits_1); inline;
- procedure setIC2IF(thebits : TBits_1); inline;
- procedure setIC3EIF(thebits : TBits_1); inline;
- procedure setIC3IF(thebits : TBits_1); inline;
- procedure setIC4EIF(thebits : TBits_1); inline;
- procedure setIC4IF(thebits : TBits_1); inline;
- procedure setIC5EIF(thebits : TBits_1); inline;
- procedure setIC5IF(thebits : TBits_1); inline;
- procedure setINT0IF(thebits : TBits_1); inline;
- procedure setINT1IF(thebits : TBits_1); inline;
- procedure setINT2IF(thebits : TBits_1); inline;
- procedure setINT3IF(thebits : TBits_1); inline;
- procedure setINT4IF(thebits : TBits_1); inline;
- procedure setOC1IF(thebits : TBits_1); inline;
- procedure setOC2IF(thebits : TBits_1); inline;
- procedure setOC3IF(thebits : TBits_1); inline;
- procedure setOC4IF(thebits : TBits_1); inline;
- procedure setOC5IF(thebits : TBits_1); inline;
- procedure setRTCCIF(thebits : TBits_1); inline;
- procedure setT1IF(thebits : TBits_1); inline;
- procedure setT2IF(thebits : TBits_1); inline;
- procedure setT3IF(thebits : TBits_1); inline;
- procedure setT4IF(thebits : TBits_1); inline;
- procedure setT5IF(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearAD1IF; inline;
- procedure clearCS0IF; inline;
- procedure clearCS1IF; inline;
- procedure clearCTIF; inline;
- procedure clearFCEIF; inline;
- procedure clearFSCMIF; inline;
- procedure clearIC1EIF; inline;
- procedure clearIC1IF; inline;
- procedure clearIC2EIF; inline;
- procedure clearIC2IF; inline;
- procedure clearIC3EIF; inline;
- procedure clearIC3IF; inline;
- procedure clearIC4EIF; inline;
- procedure clearIC4IF; inline;
- procedure clearIC5EIF; inline;
- procedure clearIC5IF; inline;
- procedure clearINT0IF; inline;
- procedure clearINT1IF; inline;
- procedure clearINT2IF; inline;
- procedure clearINT3IF; inline;
- procedure clearINT4IF; inline;
- procedure clearOC1IF; inline;
- procedure clearOC2IF; inline;
- procedure clearOC3IF; inline;
- procedure clearOC4IF; inline;
- procedure clearOC5IF; inline;
- procedure clearRTCCIF; inline;
- procedure clearT1IF; inline;
- procedure clearT2IF; inline;
- procedure clearT3IF; inline;
- procedure clearT4IF; inline;
- procedure clearT5IF; inline;
- procedure setAD1IF; inline;
- procedure setCS0IF; inline;
- procedure setCS1IF; inline;
- procedure setCTIF; inline;
- procedure setFCEIF; inline;
- procedure setFSCMIF; inline;
- procedure setIC1EIF; inline;
- procedure setIC1IF; inline;
- procedure setIC2EIF; inline;
- procedure setIC2IF; inline;
- procedure setIC3EIF; inline;
- procedure setIC3IF; inline;
- procedure setIC4EIF; inline;
- procedure setIC4IF; inline;
- procedure setIC5EIF; inline;
- procedure setIC5IF; inline;
- procedure setINT0IF; inline;
- procedure setINT1IF; inline;
- procedure setINT2IF; inline;
- procedure setINT3IF; inline;
- procedure setINT4IF; inline;
- procedure setOC1IF; inline;
- procedure setOC2IF; inline;
- procedure setOC3IF; inline;
- procedure setOC4IF; inline;
- procedure setOC5IF; inline;
- procedure setRTCCIF; inline;
- procedure setT1IF; inline;
- procedure setT2IF; inline;
- procedure setT3IF; inline;
- procedure setT4IF; inline;
- procedure setT5IF; inline;
- property AD1IF : TBits_1 read getAD1IF write setAD1IF;
- property CS0IF : TBits_1 read getCS0IF write setCS0IF;
- property CS1IF : TBits_1 read getCS1IF write setCS1IF;
- property CTIF : TBits_1 read getCTIF write setCTIF;
- property FCEIF : TBits_1 read getFCEIF write setFCEIF;
- property FSCMIF : TBits_1 read getFSCMIF write setFSCMIF;
- property IC1EIF : TBits_1 read getIC1EIF write setIC1EIF;
- property IC1IF : TBits_1 read getIC1IF write setIC1IF;
- property IC2EIF : TBits_1 read getIC2EIF write setIC2EIF;
- property IC2IF : TBits_1 read getIC2IF write setIC2IF;
- property IC3EIF : TBits_1 read getIC3EIF write setIC3EIF;
- property IC3IF : TBits_1 read getIC3IF write setIC3IF;
- property IC4EIF : TBits_1 read getIC4EIF write setIC4EIF;
- property IC4IF : TBits_1 read getIC4IF write setIC4IF;
- property IC5EIF : TBits_1 read getIC5EIF write setIC5EIF;
- property IC5IF : TBits_1 read getIC5IF write setIC5IF;
- property INT0IF : TBits_1 read getINT0IF write setINT0IF;
- property INT1IF : TBits_1 read getINT1IF write setINT1IF;
- property INT2IF : TBits_1 read getINT2IF write setINT2IF;
- property INT3IF : TBits_1 read getINT3IF write setINT3IF;
- property INT4IF : TBits_1 read getINT4IF write setINT4IF;
- property OC1IF : TBits_1 read getOC1IF write setOC1IF;
- property OC2IF : TBits_1 read getOC2IF write setOC2IF;
- property OC3IF : TBits_1 read getOC3IF write setOC3IF;
- property OC4IF : TBits_1 read getOC4IF write setOC4IF;
- property OC5IF : TBits_1 read getOC5IF write setOC5IF;
- property RTCCIF : TBits_1 read getRTCCIF write setRTCCIF;
- property T1IF : TBits_1 read getT1IF write setT1IF;
- property T2IF : TBits_1 read getT2IF write setT2IF;
- property T3IF : TBits_1 read getT3IF write setT3IF;
- property T4IF : TBits_1 read getT4IF write setT4IF;
- property T5IF : TBits_1 read getT5IF write setT5IF;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IFS1 = record
- private
- function getCMP1IF : TBits_1; inline;
- function getCMP2IF : TBits_1; inline;
- function getCNAIF : TBits_1; inline;
- function getCNBIF : TBits_1; inline;
- function getCNCIF : TBits_1; inline;
- function getCNDIF : TBits_1; inline;
- function getCNEIF : TBits_1; inline;
- function getCNFIF : TBits_1; inline;
- function getCNGIF : TBits_1; inline;
- function getI2C1BIF : TBits_1; inline;
- function getI2C1MIF : TBits_1; inline;
- function getI2C1SIF : TBits_1; inline;
- function getI2C2BIF : TBits_1; inline;
- function getI2C2MIF : TBits_1; inline;
- function getI2C2SIF : TBits_1; inline;
- function getPMPEIF : TBits_1; inline;
- function getPMPIF : TBits_1; inline;
- function getSPI1EIF : TBits_1; inline;
- function getSPI1RXIF : TBits_1; inline;
- function getSPI1TXIF : TBits_1; inline;
- function getSPI2EIF : TBits_1; inline;
- function getSPI2RXIF : TBits_1; inline;
- function getSPI2TXIF : TBits_1; inline;
- function getU1EIF : TBits_1; inline;
- function getU1RXIF : TBits_1; inline;
- function getU1TXIF : TBits_1; inline;
- function getU2EIF : TBits_1; inline;
- function getU2RXIF : TBits_1; inline;
- function getU2TXIF : TBits_1; inline;
- function getU3EIF : TBits_1; inline;
- function getU3RXIF : TBits_1; inline;
- function getUSBIF : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCMP1IF(thebits : TBits_1); inline;
- procedure setCMP2IF(thebits : TBits_1); inline;
- procedure setCNAIF(thebits : TBits_1); inline;
- procedure setCNBIF(thebits : TBits_1); inline;
- procedure setCNCIF(thebits : TBits_1); inline;
- procedure setCNDIF(thebits : TBits_1); inline;
- procedure setCNEIF(thebits : TBits_1); inline;
- procedure setCNFIF(thebits : TBits_1); inline;
- procedure setCNGIF(thebits : TBits_1); inline;
- procedure setI2C1BIF(thebits : TBits_1); inline;
- procedure setI2C1MIF(thebits : TBits_1); inline;
- procedure setI2C1SIF(thebits : TBits_1); inline;
- procedure setI2C2BIF(thebits : TBits_1); inline;
- procedure setI2C2MIF(thebits : TBits_1); inline;
- procedure setI2C2SIF(thebits : TBits_1); inline;
- procedure setPMPEIF(thebits : TBits_1); inline;
- procedure setPMPIF(thebits : TBits_1); inline;
- procedure setSPI1EIF(thebits : TBits_1); inline;
- procedure setSPI1RXIF(thebits : TBits_1); inline;
- procedure setSPI1TXIF(thebits : TBits_1); inline;
- procedure setSPI2EIF(thebits : TBits_1); inline;
- procedure setSPI2RXIF(thebits : TBits_1); inline;
- procedure setSPI2TXIF(thebits : TBits_1); inline;
- procedure setU1EIF(thebits : TBits_1); inline;
- procedure setU1RXIF(thebits : TBits_1); inline;
- procedure setU1TXIF(thebits : TBits_1); inline;
- procedure setU2EIF(thebits : TBits_1); inline;
- procedure setU2RXIF(thebits : TBits_1); inline;
- procedure setU2TXIF(thebits : TBits_1); inline;
- procedure setU3EIF(thebits : TBits_1); inline;
- procedure setU3RXIF(thebits : TBits_1); inline;
- procedure setUSBIF(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCMP1IF; inline;
- procedure clearCMP2IF; inline;
- procedure clearCNAIF; inline;
- procedure clearCNBIF; inline;
- procedure clearCNCIF; inline;
- procedure clearCNDIF; inline;
- procedure clearCNEIF; inline;
- procedure clearCNFIF; inline;
- procedure clearCNGIF; inline;
- procedure clearI2C1BIF; inline;
- procedure clearI2C1MIF; inline;
- procedure clearI2C1SIF; inline;
- procedure clearI2C2BIF; inline;
- procedure clearI2C2MIF; inline;
- procedure clearI2C2SIF; inline;
- procedure clearPMPEIF; inline;
- procedure clearPMPIF; inline;
- procedure clearSPI1EIF; inline;
- procedure clearSPI1RXIF; inline;
- procedure clearSPI1TXIF; inline;
- procedure clearSPI2EIF; inline;
- procedure clearSPI2RXIF; inline;
- procedure clearSPI2TXIF; inline;
- procedure clearU1EIF; inline;
- procedure clearU1RXIF; inline;
- procedure clearU1TXIF; inline;
- procedure clearU2EIF; inline;
- procedure clearU2RXIF; inline;
- procedure clearU2TXIF; inline;
- procedure clearU3EIF; inline;
- procedure clearU3RXIF; inline;
- procedure clearUSBIF; inline;
- procedure setCMP1IF; inline;
- procedure setCMP2IF; inline;
- procedure setCNAIF; inline;
- procedure setCNBIF; inline;
- procedure setCNCIF; inline;
- procedure setCNDIF; inline;
- procedure setCNEIF; inline;
- procedure setCNFIF; inline;
- procedure setCNGIF; inline;
- procedure setI2C1BIF; inline;
- procedure setI2C1MIF; inline;
- procedure setI2C1SIF; inline;
- procedure setI2C2BIF; inline;
- procedure setI2C2MIF; inline;
- procedure setI2C2SIF; inline;
- procedure setPMPEIF; inline;
- procedure setPMPIF; inline;
- procedure setSPI1EIF; inline;
- procedure setSPI1RXIF; inline;
- procedure setSPI1TXIF; inline;
- procedure setSPI2EIF; inline;
- procedure setSPI2RXIF; inline;
- procedure setSPI2TXIF; inline;
- procedure setU1EIF; inline;
- procedure setU1RXIF; inline;
- procedure setU1TXIF; inline;
- procedure setU2EIF; inline;
- procedure setU2RXIF; inline;
- procedure setU2TXIF; inline;
- procedure setU3EIF; inline;
- procedure setU3RXIF; inline;
- procedure setUSBIF; inline;
- property CMP1IF : TBits_1 read getCMP1IF write setCMP1IF;
- property CMP2IF : TBits_1 read getCMP2IF write setCMP2IF;
- property CNAIF : TBits_1 read getCNAIF write setCNAIF;
- property CNBIF : TBits_1 read getCNBIF write setCNBIF;
- property CNCIF : TBits_1 read getCNCIF write setCNCIF;
- property CNDIF : TBits_1 read getCNDIF write setCNDIF;
- property CNEIF : TBits_1 read getCNEIF write setCNEIF;
- property CNFIF : TBits_1 read getCNFIF write setCNFIF;
- property CNGIF : TBits_1 read getCNGIF write setCNGIF;
- property I2C1BIF : TBits_1 read getI2C1BIF write setI2C1BIF;
- property I2C1MIF : TBits_1 read getI2C1MIF write setI2C1MIF;
- property I2C1SIF : TBits_1 read getI2C1SIF write setI2C1SIF;
- property I2C2BIF : TBits_1 read getI2C2BIF write setI2C2BIF;
- property I2C2MIF : TBits_1 read getI2C2MIF write setI2C2MIF;
- property I2C2SIF : TBits_1 read getI2C2SIF write setI2C2SIF;
- property PMPEIF : TBits_1 read getPMPEIF write setPMPEIF;
- property PMPIF : TBits_1 read getPMPIF write setPMPIF;
- property SPI1EIF : TBits_1 read getSPI1EIF write setSPI1EIF;
- property SPI1RXIF : TBits_1 read getSPI1RXIF write setSPI1RXIF;
- property SPI1TXIF : TBits_1 read getSPI1TXIF write setSPI1TXIF;
- property SPI2EIF : TBits_1 read getSPI2EIF write setSPI2EIF;
- property SPI2RXIF : TBits_1 read getSPI2RXIF write setSPI2RXIF;
- property SPI2TXIF : TBits_1 read getSPI2TXIF write setSPI2TXIF;
- property U1EIF : TBits_1 read getU1EIF write setU1EIF;
- property U1RXIF : TBits_1 read getU1RXIF write setU1RXIF;
- property U1TXIF : TBits_1 read getU1TXIF write setU1TXIF;
- property U2EIF : TBits_1 read getU2EIF write setU2EIF;
- property U2RXIF : TBits_1 read getU2RXIF write setU2RXIF;
- property U2TXIF : TBits_1 read getU2TXIF write setU2TXIF;
- property U3EIF : TBits_1 read getU3EIF write setU3EIF;
- property U3RXIF : TBits_1 read getU3RXIF write setU3RXIF;
- property USBIF : TBits_1 read getUSBIF write setUSBIF;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IEC0 = record
- private
- function getAD1IE : TBits_1; inline;
- function getCS0IE : TBits_1; inline;
- function getCS1IE : TBits_1; inline;
- function getCTIE : TBits_1; inline;
- function getFCEIE : TBits_1; inline;
- function getFSCMIE : TBits_1; inline;
- function getIC1EIE : TBits_1; inline;
- function getIC1IE : TBits_1; inline;
- function getIC2EIE : TBits_1; inline;
- function getIC2IE : TBits_1; inline;
- function getIC3EIE : TBits_1; inline;
- function getIC3IE : TBits_1; inline;
- function getIC4EIE : TBits_1; inline;
- function getIC4IE : TBits_1; inline;
- function getIC5EIE : TBits_1; inline;
- function getIC5IE : TBits_1; inline;
- function getINT0IE : TBits_1; inline;
- function getINT1IE : TBits_1; inline;
- function getINT2IE : TBits_1; inline;
- function getINT3IE : TBits_1; inline;
- function getINT4IE : TBits_1; inline;
- function getOC1IE : TBits_1; inline;
- function getOC2IE : TBits_1; inline;
- function getOC3IE : TBits_1; inline;
- function getOC4IE : TBits_1; inline;
- function getOC5IE : TBits_1; inline;
- function getRTCCIE : TBits_1; inline;
- function getT1IE : TBits_1; inline;
- function getT2IE : TBits_1; inline;
- function getT3IE : TBits_1; inline;
- function getT4IE : TBits_1; inline;
- function getT5IE : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setAD1IE(thebits : TBits_1); inline;
- procedure setCS0IE(thebits : TBits_1); inline;
- procedure setCS1IE(thebits : TBits_1); inline;
- procedure setCTIE(thebits : TBits_1); inline;
- procedure setFCEIE(thebits : TBits_1); inline;
- procedure setFSCMIE(thebits : TBits_1); inline;
- procedure setIC1EIE(thebits : TBits_1); inline;
- procedure setIC1IE(thebits : TBits_1); inline;
- procedure setIC2EIE(thebits : TBits_1); inline;
- procedure setIC2IE(thebits : TBits_1); inline;
- procedure setIC3EIE(thebits : TBits_1); inline;
- procedure setIC3IE(thebits : TBits_1); inline;
- procedure setIC4EIE(thebits : TBits_1); inline;
- procedure setIC4IE(thebits : TBits_1); inline;
- procedure setIC5EIE(thebits : TBits_1); inline;
- procedure setIC5IE(thebits : TBits_1); inline;
- procedure setINT0IE(thebits : TBits_1); inline;
- procedure setINT1IE(thebits : TBits_1); inline;
- procedure setINT2IE(thebits : TBits_1); inline;
- procedure setINT3IE(thebits : TBits_1); inline;
- procedure setINT4IE(thebits : TBits_1); inline;
- procedure setOC1IE(thebits : TBits_1); inline;
- procedure setOC2IE(thebits : TBits_1); inline;
- procedure setOC3IE(thebits : TBits_1); inline;
- procedure setOC4IE(thebits : TBits_1); inline;
- procedure setOC5IE(thebits : TBits_1); inline;
- procedure setRTCCIE(thebits : TBits_1); inline;
- procedure setT1IE(thebits : TBits_1); inline;
- procedure setT2IE(thebits : TBits_1); inline;
- procedure setT3IE(thebits : TBits_1); inline;
- procedure setT4IE(thebits : TBits_1); inline;
- procedure setT5IE(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearAD1IE; inline;
- procedure clearCS0IE; inline;
- procedure clearCS1IE; inline;
- procedure clearCTIE; inline;
- procedure clearFCEIE; inline;
- procedure clearFSCMIE; inline;
- procedure clearIC1EIE; inline;
- procedure clearIC1IE; inline;
- procedure clearIC2EIE; inline;
- procedure clearIC2IE; inline;
- procedure clearIC3EIE; inline;
- procedure clearIC3IE; inline;
- procedure clearIC4EIE; inline;
- procedure clearIC4IE; inline;
- procedure clearIC5EIE; inline;
- procedure clearIC5IE; inline;
- procedure clearINT0IE; inline;
- procedure clearINT1IE; inline;
- procedure clearINT2IE; inline;
- procedure clearINT3IE; inline;
- procedure clearINT4IE; inline;
- procedure clearOC1IE; inline;
- procedure clearOC2IE; inline;
- procedure clearOC3IE; inline;
- procedure clearOC4IE; inline;
- procedure clearOC5IE; inline;
- procedure clearRTCCIE; inline;
- procedure clearT1IE; inline;
- procedure clearT2IE; inline;
- procedure clearT3IE; inline;
- procedure clearT4IE; inline;
- procedure clearT5IE; inline;
- procedure setAD1IE; inline;
- procedure setCS0IE; inline;
- procedure setCS1IE; inline;
- procedure setCTIE; inline;
- procedure setFCEIE; inline;
- procedure setFSCMIE; inline;
- procedure setIC1EIE; inline;
- procedure setIC1IE; inline;
- procedure setIC2EIE; inline;
- procedure setIC2IE; inline;
- procedure setIC3EIE; inline;
- procedure setIC3IE; inline;
- procedure setIC4EIE; inline;
- procedure setIC4IE; inline;
- procedure setIC5EIE; inline;
- procedure setIC5IE; inline;
- procedure setINT0IE; inline;
- procedure setINT1IE; inline;
- procedure setINT2IE; inline;
- procedure setINT3IE; inline;
- procedure setINT4IE; inline;
- procedure setOC1IE; inline;
- procedure setOC2IE; inline;
- procedure setOC3IE; inline;
- procedure setOC4IE; inline;
- procedure setOC5IE; inline;
- procedure setRTCCIE; inline;
- procedure setT1IE; inline;
- procedure setT2IE; inline;
- procedure setT3IE; inline;
- procedure setT4IE; inline;
- procedure setT5IE; inline;
- property AD1IE : TBits_1 read getAD1IE write setAD1IE;
- property CS0IE : TBits_1 read getCS0IE write setCS0IE;
- property CS1IE : TBits_1 read getCS1IE write setCS1IE;
- property CTIE : TBits_1 read getCTIE write setCTIE;
- property FCEIE : TBits_1 read getFCEIE write setFCEIE;
- property FSCMIE : TBits_1 read getFSCMIE write setFSCMIE;
- property IC1EIE : TBits_1 read getIC1EIE write setIC1EIE;
- property IC1IE : TBits_1 read getIC1IE write setIC1IE;
- property IC2EIE : TBits_1 read getIC2EIE write setIC2EIE;
- property IC2IE : TBits_1 read getIC2IE write setIC2IE;
- property IC3EIE : TBits_1 read getIC3EIE write setIC3EIE;
- property IC3IE : TBits_1 read getIC3IE write setIC3IE;
- property IC4EIE : TBits_1 read getIC4EIE write setIC4EIE;
- property IC4IE : TBits_1 read getIC4IE write setIC4IE;
- property IC5EIE : TBits_1 read getIC5EIE write setIC5EIE;
- property IC5IE : TBits_1 read getIC5IE write setIC5IE;
- property INT0IE : TBits_1 read getINT0IE write setINT0IE;
- property INT1IE : TBits_1 read getINT1IE write setINT1IE;
- property INT2IE : TBits_1 read getINT2IE write setINT2IE;
- property INT3IE : TBits_1 read getINT3IE write setINT3IE;
- property INT4IE : TBits_1 read getINT4IE write setINT4IE;
- property OC1IE : TBits_1 read getOC1IE write setOC1IE;
- property OC2IE : TBits_1 read getOC2IE write setOC2IE;
- property OC3IE : TBits_1 read getOC3IE write setOC3IE;
- property OC4IE : TBits_1 read getOC4IE write setOC4IE;
- property OC5IE : TBits_1 read getOC5IE write setOC5IE;
- property RTCCIE : TBits_1 read getRTCCIE write setRTCCIE;
- property T1IE : TBits_1 read getT1IE write setT1IE;
- property T2IE : TBits_1 read getT2IE write setT2IE;
- property T3IE : TBits_1 read getT3IE write setT3IE;
- property T4IE : TBits_1 read getT4IE write setT4IE;
- property T5IE : TBits_1 read getT5IE write setT5IE;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IEC1 = record
- private
- function getCMP1IE : TBits_1; inline;
- function getCMP2IE : TBits_1; inline;
- function getCNAIE : TBits_1; inline;
- function getCNBIE : TBits_1; inline;
- function getCNCIE : TBits_1; inline;
- function getCNDIE : TBits_1; inline;
- function getCNEIE : TBits_1; inline;
- function getCNFIE : TBits_1; inline;
- function getCNGIE : TBits_1; inline;
- function getI2C1BIE : TBits_1; inline;
- function getI2C1MIE : TBits_1; inline;
- function getI2C1SIE : TBits_1; inline;
- function getI2C2BIE : TBits_1; inline;
- function getI2C2MIE : TBits_1; inline;
- function getI2C2SIE : TBits_1; inline;
- function getPMPEIE : TBits_1; inline;
- function getPMPIE : TBits_1; inline;
- function getSPI1EIE : TBits_1; inline;
- function getSPI1RXIE : TBits_1; inline;
- function getSPI1TXIE : TBits_1; inline;
- function getSPI2EIE : TBits_1; inline;
- function getSPI2RXIE : TBits_1; inline;
- function getSPI2TXIE : TBits_1; inline;
- function getU1EIE : TBits_1; inline;
- function getU1RXIE : TBits_1; inline;
- function getU1TXIE : TBits_1; inline;
- function getU2EIE : TBits_1; inline;
- function getU2RXIE : TBits_1; inline;
- function getU2TXIE : TBits_1; inline;
- function getU3EIE : TBits_1; inline;
- function getU3RXIE : TBits_1; inline;
- function getUSBIE : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCMP1IE(thebits : TBits_1); inline;
- procedure setCMP2IE(thebits : TBits_1); inline;
- procedure setCNAIE(thebits : TBits_1); inline;
- procedure setCNBIE(thebits : TBits_1); inline;
- procedure setCNCIE(thebits : TBits_1); inline;
- procedure setCNDIE(thebits : TBits_1); inline;
- procedure setCNEIE(thebits : TBits_1); inline;
- procedure setCNFIE(thebits : TBits_1); inline;
- procedure setCNGIE(thebits : TBits_1); inline;
- procedure setI2C1BIE(thebits : TBits_1); inline;
- procedure setI2C1MIE(thebits : TBits_1); inline;
- procedure setI2C1SIE(thebits : TBits_1); inline;
- procedure setI2C2BIE(thebits : TBits_1); inline;
- procedure setI2C2MIE(thebits : TBits_1); inline;
- procedure setI2C2SIE(thebits : TBits_1); inline;
- procedure setPMPEIE(thebits : TBits_1); inline;
- procedure setPMPIE(thebits : TBits_1); inline;
- procedure setSPI1EIE(thebits : TBits_1); inline;
- procedure setSPI1RXIE(thebits : TBits_1); inline;
- procedure setSPI1TXIE(thebits : TBits_1); inline;
- procedure setSPI2EIE(thebits : TBits_1); inline;
- procedure setSPI2RXIE(thebits : TBits_1); inline;
- procedure setSPI2TXIE(thebits : TBits_1); inline;
- procedure setU1EIE(thebits : TBits_1); inline;
- procedure setU1RXIE(thebits : TBits_1); inline;
- procedure setU1TXIE(thebits : TBits_1); inline;
- procedure setU2EIE(thebits : TBits_1); inline;
- procedure setU2RXIE(thebits : TBits_1); inline;
- procedure setU2TXIE(thebits : TBits_1); inline;
- procedure setU3EIE(thebits : TBits_1); inline;
- procedure setU3RXIE(thebits : TBits_1); inline;
- procedure setUSBIE(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCMP1IE; inline;
- procedure clearCMP2IE; inline;
- procedure clearCNAIE; inline;
- procedure clearCNBIE; inline;
- procedure clearCNCIE; inline;
- procedure clearCNDIE; inline;
- procedure clearCNEIE; inline;
- procedure clearCNFIE; inline;
- procedure clearCNGIE; inline;
- procedure clearI2C1BIE; inline;
- procedure clearI2C1MIE; inline;
- procedure clearI2C1SIE; inline;
- procedure clearI2C2BIE; inline;
- procedure clearI2C2MIE; inline;
- procedure clearI2C2SIE; inline;
- procedure clearPMPEIE; inline;
- procedure clearPMPIE; inline;
- procedure clearSPI1EIE; inline;
- procedure clearSPI1RXIE; inline;
- procedure clearSPI1TXIE; inline;
- procedure clearSPI2EIE; inline;
- procedure clearSPI2RXIE; inline;
- procedure clearSPI2TXIE; inline;
- procedure clearU1EIE; inline;
- procedure clearU1RXIE; inline;
- procedure clearU1TXIE; inline;
- procedure clearU2EIE; inline;
- procedure clearU2RXIE; inline;
- procedure clearU2TXIE; inline;
- procedure clearU3EIE; inline;
- procedure clearU3RXIE; inline;
- procedure clearUSBIE; inline;
- procedure setCMP1IE; inline;
- procedure setCMP2IE; inline;
- procedure setCNAIE; inline;
- procedure setCNBIE; inline;
- procedure setCNCIE; inline;
- procedure setCNDIE; inline;
- procedure setCNEIE; inline;
- procedure setCNFIE; inline;
- procedure setCNGIE; inline;
- procedure setI2C1BIE; inline;
- procedure setI2C1MIE; inline;
- procedure setI2C1SIE; inline;
- procedure setI2C2BIE; inline;
- procedure setI2C2MIE; inline;
- procedure setI2C2SIE; inline;
- procedure setPMPEIE; inline;
- procedure setPMPIE; inline;
- procedure setSPI1EIE; inline;
- procedure setSPI1RXIE; inline;
- procedure setSPI1TXIE; inline;
- procedure setSPI2EIE; inline;
- procedure setSPI2RXIE; inline;
- procedure setSPI2TXIE; inline;
- procedure setU1EIE; inline;
- procedure setU1RXIE; inline;
- procedure setU1TXIE; inline;
- procedure setU2EIE; inline;
- procedure setU2RXIE; inline;
- procedure setU2TXIE; inline;
- procedure setU3EIE; inline;
- procedure setU3RXIE; inline;
- procedure setUSBIE; inline;
- property CMP1IE : TBits_1 read getCMP1IE write setCMP1IE;
- property CMP2IE : TBits_1 read getCMP2IE write setCMP2IE;
- property CNAIE : TBits_1 read getCNAIE write setCNAIE;
- property CNBIE : TBits_1 read getCNBIE write setCNBIE;
- property CNCIE : TBits_1 read getCNCIE write setCNCIE;
- property CNDIE : TBits_1 read getCNDIE write setCNDIE;
- property CNEIE : TBits_1 read getCNEIE write setCNEIE;
- property CNFIE : TBits_1 read getCNFIE write setCNFIE;
- property CNGIE : TBits_1 read getCNGIE write setCNGIE;
- property I2C1BIE : TBits_1 read getI2C1BIE write setI2C1BIE;
- property I2C1MIE : TBits_1 read getI2C1MIE write setI2C1MIE;
- property I2C1SIE : TBits_1 read getI2C1SIE write setI2C1SIE;
- property I2C2BIE : TBits_1 read getI2C2BIE write setI2C2BIE;
- property I2C2MIE : TBits_1 read getI2C2MIE write setI2C2MIE;
- property I2C2SIE : TBits_1 read getI2C2SIE write setI2C2SIE;
- property PMPEIE : TBits_1 read getPMPEIE write setPMPEIE;
- property PMPIE : TBits_1 read getPMPIE write setPMPIE;
- property SPI1EIE : TBits_1 read getSPI1EIE write setSPI1EIE;
- property SPI1RXIE : TBits_1 read getSPI1RXIE write setSPI1RXIE;
- property SPI1TXIE : TBits_1 read getSPI1TXIE write setSPI1TXIE;
- property SPI2EIE : TBits_1 read getSPI2EIE write setSPI2EIE;
- property SPI2RXIE : TBits_1 read getSPI2RXIE write setSPI2RXIE;
- property SPI2TXIE : TBits_1 read getSPI2TXIE write setSPI2TXIE;
- property U1EIE : TBits_1 read getU1EIE write setU1EIE;
- property U1RXIE : TBits_1 read getU1RXIE write setU1RXIE;
- property U1TXIE : TBits_1 read getU1TXIE write setU1TXIE;
- property U2EIE : TBits_1 read getU2EIE write setU2EIE;
- property U2RXIE : TBits_1 read getU2RXIE write setU2RXIE;
- property U2TXIE : TBits_1 read getU2TXIE write setU2TXIE;
- property U3EIE : TBits_1 read getU3EIE write setU3EIE;
- property U3RXIE : TBits_1 read getU3RXIE write setU3RXIE;
- property USBIE : TBits_1 read getUSBIE write setUSBIE;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IPC0 = record
- private
- function getCS0IP : TBits_3; inline;
- function getCS0IS : TBits_2; inline;
- function getCS1IP : TBits_3; inline;
- function getCS1IS : TBits_2; inline;
- function getCTIP : TBits_3; inline;
- function getCTIS : TBits_2; inline;
- function getINT0IP : TBits_3; inline;
- function getINT0IS : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setCS0IP(thebits : TBits_3); inline;
- procedure setCS0IS(thebits : TBits_2); inline;
- procedure setCS1IP(thebits : TBits_3); inline;
- procedure setCS1IS(thebits : TBits_2); inline;
- procedure setCTIP(thebits : TBits_3); inline;
- procedure setCTIS(thebits : TBits_2); inline;
- procedure setINT0IP(thebits : TBits_3); inline;
- procedure setINT0IS(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property CS0IP : TBits_3 read getCS0IP write setCS0IP;
- property CS0IS : TBits_2 read getCS0IS write setCS0IS;
- property CS1IP : TBits_3 read getCS1IP write setCS1IP;
- property CS1IS : TBits_2 read getCS1IS write setCS1IS;
- property CTIP : TBits_3 read getCTIP write setCTIP;
- property CTIS : TBits_2 read getCTIS write setCTIS;
- property INT0IP : TBits_3 read getINT0IP write setINT0IP;
- property INT0IS : TBits_2 read getINT0IS write setINT0IS;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IPC1 = record
- private
- function getIC1IP : TBits_3; inline;
- function getIC1IS : TBits_2; inline;
- function getINT1IP : TBits_3; inline;
- function getINT1IS : TBits_2; inline;
- function getOC1IP : TBits_3; inline;
- function getOC1IS : TBits_2; inline;
- function getT1IP : TBits_3; inline;
- function getT1IS : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setIC1IP(thebits : TBits_3); inline;
- procedure setIC1IS(thebits : TBits_2); inline;
- procedure setINT1IP(thebits : TBits_3); inline;
- procedure setINT1IS(thebits : TBits_2); inline;
- procedure setOC1IP(thebits : TBits_3); inline;
- procedure setOC1IS(thebits : TBits_2); inline;
- procedure setT1IP(thebits : TBits_3); inline;
- procedure setT1IS(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property IC1IP : TBits_3 read getIC1IP write setIC1IP;
- property IC1IS : TBits_2 read getIC1IS write setIC1IS;
- property INT1IP : TBits_3 read getINT1IP write setINT1IP;
- property INT1IS : TBits_2 read getINT1IS write setINT1IS;
- property OC1IP : TBits_3 read getOC1IP write setOC1IP;
- property OC1IS : TBits_2 read getOC1IS write setOC1IS;
- property T1IP : TBits_3 read getT1IP write setT1IP;
- property T1IS : TBits_2 read getT1IS write setT1IS;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IPC2 = record
- private
- function getIC2IP : TBits_3; inline;
- function getIC2IS : TBits_2; inline;
- function getINT2IP : TBits_3; inline;
- function getINT2IS : TBits_2; inline;
- function getOC2IP : TBits_3; inline;
- function getOC2IS : TBits_2; inline;
- function getT2IP : TBits_3; inline;
- function getT2IS : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setIC2IP(thebits : TBits_3); inline;
- procedure setIC2IS(thebits : TBits_2); inline;
- procedure setINT2IP(thebits : TBits_3); inline;
- procedure setINT2IS(thebits : TBits_2); inline;
- procedure setOC2IP(thebits : TBits_3); inline;
- procedure setOC2IS(thebits : TBits_2); inline;
- procedure setT2IP(thebits : TBits_3); inline;
- procedure setT2IS(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property IC2IP : TBits_3 read getIC2IP write setIC2IP;
- property IC2IS : TBits_2 read getIC2IS write setIC2IS;
- property INT2IP : TBits_3 read getINT2IP write setINT2IP;
- property INT2IS : TBits_2 read getINT2IS write setINT2IS;
- property OC2IP : TBits_3 read getOC2IP write setOC2IP;
- property OC2IS : TBits_2 read getOC2IS write setOC2IS;
- property T2IP : TBits_3 read getT2IP write setT2IP;
- property T2IS : TBits_2 read getT2IS write setT2IS;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IPC3 = record
- private
- function getIC3IP : TBits_3; inline;
- function getIC3IS : TBits_2; inline;
- function getINT3IP : TBits_3; inline;
- function getINT3IS : TBits_2; inline;
- function getOC3IP : TBits_3; inline;
- function getOC3IS : TBits_2; inline;
- function getT3IP : TBits_3; inline;
- function getT3IS : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setIC3IP(thebits : TBits_3); inline;
- procedure setIC3IS(thebits : TBits_2); inline;
- procedure setINT3IP(thebits : TBits_3); inline;
- procedure setINT3IS(thebits : TBits_2); inline;
- procedure setOC3IP(thebits : TBits_3); inline;
- procedure setOC3IS(thebits : TBits_2); inline;
- procedure setT3IP(thebits : TBits_3); inline;
- procedure setT3IS(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property IC3IP : TBits_3 read getIC3IP write setIC3IP;
- property IC3IS : TBits_2 read getIC3IS write setIC3IS;
- property INT3IP : TBits_3 read getINT3IP write setINT3IP;
- property INT3IS : TBits_2 read getINT3IS write setINT3IS;
- property OC3IP : TBits_3 read getOC3IP write setOC3IP;
- property OC3IS : TBits_2 read getOC3IS write setOC3IS;
- property T3IP : TBits_3 read getT3IP write setT3IP;
- property T3IS : TBits_2 read getT3IS write setT3IS;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IPC4 = record
- private
- function getIC4IP : TBits_3; inline;
- function getIC4IS : TBits_2; inline;
- function getINT4IP : TBits_3; inline;
- function getINT4IS : TBits_2; inline;
- function getOC4IP : TBits_3; inline;
- function getOC4IS : TBits_2; inline;
- function getT4IP : TBits_3; inline;
- function getT4IS : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setIC4IP(thebits : TBits_3); inline;
- procedure setIC4IS(thebits : TBits_2); inline;
- procedure setINT4IP(thebits : TBits_3); inline;
- procedure setINT4IS(thebits : TBits_2); inline;
- procedure setOC4IP(thebits : TBits_3); inline;
- procedure setOC4IS(thebits : TBits_2); inline;
- procedure setT4IP(thebits : TBits_3); inline;
- procedure setT4IS(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property IC4IP : TBits_3 read getIC4IP write setIC4IP;
- property IC4IS : TBits_2 read getIC4IS write setIC4IS;
- property INT4IP : TBits_3 read getINT4IP write setINT4IP;
- property INT4IS : TBits_2 read getINT4IS write setINT4IS;
- property OC4IP : TBits_3 read getOC4IP write setOC4IP;
- property OC4IS : TBits_2 read getOC4IS write setOC4IS;
- property T4IP : TBits_3 read getT4IP write setT4IP;
- property T4IS : TBits_2 read getT4IS write setT4IS;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IPC5 = record
- private
- function getAD1IP : TBits_3; inline;
- function getAD1IS : TBits_2; inline;
- function getIC5IP : TBits_3; inline;
- function getIC5IS : TBits_2; inline;
- function getOC5IP : TBits_3; inline;
- function getOC5IS : TBits_2; inline;
- function getT5IP : TBits_3; inline;
- function getT5IS : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setAD1IP(thebits : TBits_3); inline;
- procedure setAD1IS(thebits : TBits_2); inline;
- procedure setIC5IP(thebits : TBits_3); inline;
- procedure setIC5IS(thebits : TBits_2); inline;
- procedure setOC5IP(thebits : TBits_3); inline;
- procedure setOC5IS(thebits : TBits_2); inline;
- procedure setT5IP(thebits : TBits_3); inline;
- procedure setT5IS(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property AD1IP : TBits_3 read getAD1IP write setAD1IP;
- property AD1IS : TBits_2 read getAD1IS write setAD1IS;
- property IC5IP : TBits_3 read getIC5IP write setIC5IP;
- property IC5IS : TBits_2 read getIC5IS write setIC5IS;
- property OC5IP : TBits_3 read getOC5IP write setOC5IP;
- property OC5IS : TBits_2 read getOC5IS write setOC5IS;
- property T5IP : TBits_3 read getT5IP write setT5IP;
- property T5IS : TBits_2 read getT5IS write setT5IS;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IPC6 = record
- private
- function getCMP1IP : TBits_3; inline;
- function getCMP1IS : TBits_2; inline;
- function getFCEIP : TBits_3; inline;
- function getFCEIS : TBits_2; inline;
- function getFSCMIP : TBits_3; inline;
- function getFSCMIS : TBits_2; inline;
- function getRTCCIP : TBits_3; inline;
- function getRTCCIS : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setCMP1IP(thebits : TBits_3); inline;
- procedure setCMP1IS(thebits : TBits_2); inline;
- procedure setFCEIP(thebits : TBits_3); inline;
- procedure setFCEIS(thebits : TBits_2); inline;
- procedure setFSCMIP(thebits : TBits_3); inline;
- procedure setFSCMIS(thebits : TBits_2); inline;
- procedure setRTCCIP(thebits : TBits_3); inline;
- procedure setRTCCIS(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property CMP1IP : TBits_3 read getCMP1IP write setCMP1IP;
- property CMP1IS : TBits_2 read getCMP1IS write setCMP1IS;
- property FCEIP : TBits_3 read getFCEIP write setFCEIP;
- property FCEIS : TBits_2 read getFCEIS write setFCEIS;
- property FSCMIP : TBits_3 read getFSCMIP write setFSCMIP;
- property FSCMIS : TBits_2 read getFSCMIS write setFSCMIS;
- property RTCCIP : TBits_3 read getRTCCIP write setRTCCIP;
- property RTCCIS : TBits_2 read getRTCCIS write setRTCCIS;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IPC7 = record
- private
- function getCMP2IP : TBits_3; inline;
- function getCMP2IS : TBits_2; inline;
- function getSPI1IP : TBits_3; inline;
- function getSPI1IS : TBits_2; inline;
- function getU1IP : TBits_3; inline;
- function getU1IS : TBits_2; inline;
- function getUSBIP : TBits_3; inline;
- function getUSBIS : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setCMP2IP(thebits : TBits_3); inline;
- procedure setCMP2IS(thebits : TBits_2); inline;
- procedure setSPI1IP(thebits : TBits_3); inline;
- procedure setSPI1IS(thebits : TBits_2); inline;
- procedure setU1IP(thebits : TBits_3); inline;
- procedure setU1IS(thebits : TBits_2); inline;
- procedure setUSBIP(thebits : TBits_3); inline;
- procedure setUSBIS(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property CMP2IP : TBits_3 read getCMP2IP write setCMP2IP;
- property CMP2IS : TBits_2 read getCMP2IS write setCMP2IS;
- property SPI1IP : TBits_3 read getSPI1IP write setSPI1IP;
- property SPI1IS : TBits_2 read getSPI1IS write setSPI1IS;
- property U1IP : TBits_3 read getU1IP write setU1IP;
- property U1IS : TBits_2 read getU1IS write setU1IS;
- property USBIP : TBits_3 read getUSBIP write setUSBIP;
- property USBIS : TBits_2 read getUSBIS write setUSBIS;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IPC8 = record
- private
- function getCNIP : TBits_3; inline;
- function getCNIS : TBits_2; inline;
- function getI2C1IP : TBits_3; inline;
- function getI2C1IS : TBits_2; inline;
- function getPMPIP : TBits_3; inline;
- function getPMPIS : TBits_2; inline;
- function getSPI2IP : TBits_3; inline;
- function getSPI2IS : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setCNIP(thebits : TBits_3); inline;
- procedure setCNIS(thebits : TBits_2); inline;
- procedure setI2C1IP(thebits : TBits_3); inline;
- procedure setI2C1IS(thebits : TBits_2); inline;
- procedure setPMPIP(thebits : TBits_3); inline;
- procedure setPMPIS(thebits : TBits_2); inline;
- procedure setSPI2IP(thebits : TBits_3); inline;
- procedure setSPI2IS(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property CNIP : TBits_3 read getCNIP write setCNIP;
- property CNIS : TBits_2 read getCNIS write setCNIS;
- property I2C1IP : TBits_3 read getI2C1IP write setI2C1IP;
- property I2C1IS : TBits_2 read getI2C1IS write setI2C1IS;
- property PMPIP : TBits_3 read getPMPIP write setPMPIP;
- property PMPIS : TBits_2 read getPMPIS write setPMPIS;
- property SPI2IP : TBits_3 read getSPI2IP write setSPI2IP;
- property SPI2IS : TBits_2 read getSPI2IS write setSPI2IS;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IPC9 = record
- private
- function getI2C2IP : TBits_3; inline;
- function getI2C2IS : TBits_2; inline;
- function getU2IP : TBits_3; inline;
- function getU2IS : TBits_2; inline;
- function getU3IP : TBits_3; inline;
- function getU3IS : TBits_2; inline;
- function getU4IP : TBits_3; inline;
- function getU4IS : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setI2C2IP(thebits : TBits_3); inline;
- procedure setI2C2IS(thebits : TBits_2); inline;
- procedure setU2IP(thebits : TBits_3); inline;
- procedure setU2IS(thebits : TBits_2); inline;
- procedure setU3IP(thebits : TBits_3); inline;
- procedure setU3IS(thebits : TBits_2); inline;
- procedure setU4IP(thebits : TBits_3); inline;
- procedure setU4IS(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property I2C2IP : TBits_3 read getI2C2IP write setI2C2IP;
- property I2C2IS : TBits_2 read getI2C2IS write setI2C2IS;
- property U2IP : TBits_3 read getU2IP write setU2IP;
- property U2IS : TBits_2 read getU2IS write setU2IS;
- property U3IP : TBits_3 read getU3IP write setU3IP;
- property U3IS : TBits_2 read getU3IS write setU3IS;
- property U4IP : TBits_3 read getU4IP write setU4IP;
- property U4IS : TBits_2 read getU4IS write setU4IS;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IPC10 = record
- private
- function getCTMUIP : TBits_2; inline;
- function getCTMUIS : TBits_3; inline;
- function getDMA0IP : TBits_3; inline;
- function getDMA0IS : TBits_2; inline;
- function getDMA1IP : TBits_3; inline;
- function getDMA1IS : TBits_2; inline;
- function getU5IP : TBits_3; inline;
- function getU5IS : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setCTMUIP(thebits : TBits_2); inline;
- procedure setCTMUIS(thebits : TBits_3); inline;
- procedure setDMA0IP(thebits : TBits_3); inline;
- procedure setDMA0IS(thebits : TBits_2); inline;
- procedure setDMA1IP(thebits : TBits_3); inline;
- procedure setDMA1IS(thebits : TBits_2); inline;
- procedure setU5IP(thebits : TBits_3); inline;
- procedure setU5IS(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property CTMUIP : TBits_2 read getCTMUIP write setCTMUIP;
- property CTMUIS : TBits_3 read getCTMUIS write setCTMUIS;
- property DMA0IP : TBits_3 read getDMA0IP write setDMA0IP;
- property DMA0IS : TBits_2 read getDMA0IS write setDMA0IS;
- property DMA1IP : TBits_3 read getDMA1IP write setDMA1IP;
- property DMA1IS : TBits_2 read getDMA1IS write setDMA1IS;
- property U5IP : TBits_3 read getU5IP write setU5IP;
- property U5IS : TBits_2 read getU5IS write setU5IS;
- property w : TBits_32 read getw write setw;
- end;
- TINT_IPC11 = record
- private
- function getDMA2IP : TBits_3; inline;
- function getDMA2IS : TBits_2; inline;
- function getDMA3IP : TBits_3; inline;
- function getDMA3IS : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setDMA2IP(thebits : TBits_3); inline;
- procedure setDMA2IS(thebits : TBits_2); inline;
- procedure setDMA3IP(thebits : TBits_3); inline;
- procedure setDMA3IS(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- property DMA2IP : TBits_3 read getDMA2IP write setDMA2IP;
- property DMA2IS : TBits_2 read getDMA2IS write setDMA2IS;
- property DMA3IP : TBits_3 read getDMA3IP write setDMA3IP;
- property DMA3IS : TBits_2 read getDMA3IS write setDMA3IS;
- property w : TBits_32 read getw write setw;
- end;
- type
- TINTRegisters = record
- INTCONbits : TINT_INTCON;
- INTCON : longWord;
- INTCONCLR : longWord;
- INTCONSET : longWord;
- INTCONINV : longWord;
- INTSTAT : longWord;
- IPTMR : longWord;
- IPTMRCLR : longWord;
- IPTMRSET : longWord;
- IPTMRINV : longWord;
- IFS0bits : TINT_IFS0;
- IFS0 : longWord;
- IFS0CLR : longWord;
- IFS0SET : longWord;
- IFS0INV : longWord;
- IFS1bits : TINT_IFS1;
- IFS1 : longWord;
- IFS1CLR : longWord;
- IFS1SET : longWord;
- IFS1INV : longWord;
- IFS2 : longWord;
- IFS2CLR : longWord;
- IFS2SET : longWord;
- IFS2INV : longWord;
- IEC0bits : TINT_IEC0;
- IEC0 : longWord;
- IEC0CLR : longWord;
- IEC0SET : longWord;
- IEC0INV : longWord;
- IEC1bits : TINT_IEC1;
- IEC1 : longWord;
- IEC1CLR : longWord;
- IEC1SET : longWord;
- IEC1INV : longWord;
- IEC2 : longWord;
- IEC2CLR : longWord;
- IEC2SET : longWord;
- IEC2INV : longWord;
- IPC0bits : TINT_IPC0;
- IPC0 : longWord;
- IPC0CLR : longWord;
- IPC0SET : longWord;
- IPC0INV : longWord;
- IPC1bits : TINT_IPC1;
- IPC1 : longWord;
- IPC1CLR : longWord;
- IPC1SET : longWord;
- IPC1INV : longWord;
- IPC2bits : TINT_IPC2;
- IPC2 : longWord;
- IPC2CLR : longWord;
- IPC2SET : longWord;
- IPC2INV : longWord;
- IPC3bits : TINT_IPC3;
- IPC3 : longWord;
- IPC3CLR : longWord;
- IPC3SET : longWord;
- IPC3INV : longWord;
- IPC4bits : TINT_IPC4;
- IPC4 : longWord;
- IPC4CLR : longWord;
- IPC4SET : longWord;
- IPC4INV : longWord;
- IPC5bits : TINT_IPC5;
- IPC5 : longWord;
- IPC5CLR : longWord;
- IPC5SET : longWord;
- IPC5INV : longWord;
- IPC6bits : TINT_IPC6;
- IPC6 : longWord;
- IPC6CLR : longWord;
- IPC6SET : longWord;
- IPC6INV : longWord;
- IPC7bits : TINT_IPC7;
- IPC7 : longWord;
- IPC7CLR : longWord;
- IPC7SET : longWord;
- IPC7INV : longWord;
- IPC8bits : TINT_IPC8;
- IPC8 : longWord;
- IPC8CLR : longWord;
- IPC8SET : longWord;
- IPC8INV : longWord;
- IPC9bits : TINT_IPC9;
- IPC9 : longWord;
- IPC9CLR : longWord;
- IPC9SET : longWord;
- IPC9INV : longWord;
- IPC10bits : TINT_IPC10;
- IPC10 : longWord;
- IPC10CLR : longWord;
- IPC10SET : longWord;
- IPC10INV : longWord;
- IPC11bits : TINT_IPC11;
- IPC11 : longWord;
- IPC11CLR : longWord;
- IPC11SET : longWord;
- IPC11INV : longWord;
- end;
- TBMX_BMXCON = record
- private
- function getBMXARB : TBits_3; inline;
- function getBMXCHEDMA : TBits_1; inline;
- function getBMXERRDMA : TBits_1; inline;
- function getBMXERRDS : TBits_1; inline;
- function getBMXERRICD : TBits_1; inline;
- function getBMXERRIS : TBits_1; inline;
- function getBMXERRIXI : TBits_1; inline;
- function getBMXWSDRM : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setBMXARB(thebits : TBits_3); inline;
- procedure setBMXCHEDMA(thebits : TBits_1); inline;
- procedure setBMXERRDMA(thebits : TBits_1); inline;
- procedure setBMXERRDS(thebits : TBits_1); inline;
- procedure setBMXERRICD(thebits : TBits_1); inline;
- procedure setBMXERRIS(thebits : TBits_1); inline;
- procedure setBMXERRIXI(thebits : TBits_1); inline;
- procedure setBMXWSDRM(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearBMXCHEDMA; inline;
- procedure clearBMXERRDMA; inline;
- procedure clearBMXERRDS; inline;
- procedure clearBMXERRICD; inline;
- procedure clearBMXERRIS; inline;
- procedure clearBMXERRIXI; inline;
- procedure clearBMXWSDRM; inline;
- procedure setBMXCHEDMA; inline;
- procedure setBMXERRDMA; inline;
- procedure setBMXERRDS; inline;
- procedure setBMXERRICD; inline;
- procedure setBMXERRIS; inline;
- procedure setBMXERRIXI; inline;
- procedure setBMXWSDRM; inline;
- property BMXARB : TBits_3 read getBMXARB write setBMXARB;
- property BMXCHEDMA : TBits_1 read getBMXCHEDMA write setBMXCHEDMA;
- property BMXERRDMA : TBits_1 read getBMXERRDMA write setBMXERRDMA;
- property BMXERRDS : TBits_1 read getBMXERRDS write setBMXERRDS;
- property BMXERRICD : TBits_1 read getBMXERRICD write setBMXERRICD;
- property BMXERRIS : TBits_1 read getBMXERRIS write setBMXERRIS;
- property BMXERRIXI : TBits_1 read getBMXERRIXI write setBMXERRIXI;
- property BMXWSDRM : TBits_1 read getBMXWSDRM write setBMXWSDRM;
- property w : TBits_32 read getw write setw;
- end;
- type
- TBMXRegisters = record
- BMXCONbits : TBMX_BMXCON;
- BMXCON : longWord;
- BMXCONCLR : longWord;
- BMXCONSET : longWord;
- BMXCONINV : longWord;
- BMXDKPBA : longWord;
- BMXDKPBACLR : longWord;
- BMXDKPBASET : longWord;
- BMXDKPBAINV : longWord;
- BMXDUDBA : longWord;
- BMXDUDBACLR : longWord;
- BMXDUDBASET : longWord;
- BMXDUDBAINV : longWord;
- BMXDUPBA : longWord;
- BMXDUPBACLR : longWord;
- BMXDUPBASET : longWord;
- BMXDUPBAINV : longWord;
- BMXDRMSZ : longWord;
- BMXPUPBA : longWord;
- BMXPUPBACLR : longWord;
- BMXPUPBASET : longWord;
- BMXPUPBAINV : longWord;
- BMXPFMSZ : longWord;
- BMXBOOTSZ : longWord;
- end;
- TDMAC_DMACON = record
- private
- function getDMABUSY : TBits_1; inline;
- function getON : TBits_1; inline;
- function getSUSPEND : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setDMABUSY(thebits : TBits_1); inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSUSPEND(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearDMABUSY; inline;
- procedure clearON; inline;
- procedure clearSUSPEND; inline;
- procedure setDMABUSY; inline;
- procedure setON; inline;
- procedure setSUSPEND; inline;
- property DMABUSY : TBits_1 read getDMABUSY write setDMABUSY;
- property ON : TBits_1 read getON write setON;
- property SUSPEND : TBits_1 read getSUSPEND write setSUSPEND;
- property w : TBits_32 read getw write setw;
- end;
- TDMAC_DMASTAT = record
- private
- function getDMACH : TBits_3; inline;
- function getRDWR : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setDMACH(thebits : TBits_3); inline;
- procedure setRDWR(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearRDWR; inline;
- procedure setRDWR; inline;
- property DMACH : TBits_3 read getDMACH write setDMACH;
- property RDWR : TBits_1 read getRDWR write setRDWR;
- property w : TBits_32 read getw write setw;
- end;
- TDMAC_DCRCCON = record
- private
- function getBITO : TBits_1; inline;
- function getBYTO : TBits_2; inline;
- function getCRCAPP : TBits_1; inline;
- function getCRCCH : TBits_3; inline;
- function getCRCEN : TBits_1; inline;
- function getCRCTYP : TBits_1; inline;
- function getPLEN : TBits_5; inline;
- function getWBO : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setBITO(thebits : TBits_1); inline;
- procedure setBYTO(thebits : TBits_2); inline;
- procedure setCRCAPP(thebits : TBits_1); inline;
- procedure setCRCCH(thebits : TBits_3); inline;
- procedure setCRCEN(thebits : TBits_1); inline;
- procedure setCRCTYP(thebits : TBits_1); inline;
- procedure setPLEN(thebits : TBits_5); inline;
- procedure setWBO(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearBITO; inline;
- procedure clearCRCAPP; inline;
- procedure clearCRCEN; inline;
- procedure clearCRCTYP; inline;
- procedure clearWBO; inline;
- procedure setBITO; inline;
- procedure setCRCAPP; inline;
- procedure setCRCEN; inline;
- procedure setCRCTYP; inline;
- procedure setWBO; inline;
- property BITO : TBits_1 read getBITO write setBITO;
- property BYTO : TBits_2 read getBYTO write setBYTO;
- property CRCAPP : TBits_1 read getCRCAPP write setCRCAPP;
- property CRCCH : TBits_3 read getCRCCH write setCRCCH;
- property CRCEN : TBits_1 read getCRCEN write setCRCEN;
- property CRCTYP : TBits_1 read getCRCTYP write setCRCTYP;
- property PLEN : TBits_5 read getPLEN write setPLEN;
- property WBO : TBits_1 read getWBO write setWBO;
- property w : TBits_32 read getw write setw;
- end;
- type
- TDMACRegisters = record
- DMACONbits : TDMAC_DMACON;
- DMACON : longWord;
- DMACONCLR : longWord;
- DMACONSET : longWord;
- DMACONINV : longWord;
- DMASTATbits : TDMAC_DMASTAT;
- DMASTAT : longWord;
- DMASTATCLR : longWord;
- DMASTATSET : longWord;
- DMASTATINV : longWord;
- DMAADDR : longWord;
- DMAADDRCLR : longWord;
- DMAADDRSET : longWord;
- DMAADDRINV : longWord;
- DCRCCONbits : TDMAC_DCRCCON;
- DCRCCON : longWord;
- DCRCCONCLR : longWord;
- DCRCCONSET : longWord;
- DCRCCONINV : longWord;
- DCRCDATA : longWord;
- DCRCDATACLR : longWord;
- DCRCDATASET : longWord;
- DCRCDATAINV : longWord;
- DCRCXOR : longWord;
- DCRCXORCLR : longWord;
- DCRCXORSET : longWord;
- DCRCXORINV : longWord;
- end;
- TDMAC0_DCH0CON = record
- private
- function getCHAED : TBits_1; inline;
- function getCHAEN : TBits_1; inline;
- function getCHBUSY : TBits_1; inline;
- function getCHCHN : TBits_1; inline;
- function getCHCHNS : TBits_1; inline;
- function getCHEDET : TBits_1; inline;
- function getCHEN : TBits_1; inline;
- function getCHPRI : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setCHAED(thebits : TBits_1); inline;
- procedure setCHAEN(thebits : TBits_1); inline;
- procedure setCHBUSY(thebits : TBits_1); inline;
- procedure setCHCHN(thebits : TBits_1); inline;
- procedure setCHCHNS(thebits : TBits_1); inline;
- procedure setCHEDET(thebits : TBits_1); inline;
- procedure setCHEN(thebits : TBits_1); inline;
- procedure setCHPRI(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCHAED; inline;
- procedure clearCHAEN; inline;
- procedure clearCHBUSY; inline;
- procedure clearCHCHN; inline;
- procedure clearCHCHNS; inline;
- procedure clearCHEDET; inline;
- procedure clearCHEN; inline;
- procedure setCHAED; inline;
- procedure setCHAEN; inline;
- procedure setCHBUSY; inline;
- procedure setCHCHN; inline;
- procedure setCHCHNS; inline;
- procedure setCHEDET; inline;
- procedure setCHEN; inline;
- property CHAED : TBits_1 read getCHAED write setCHAED;
- property CHAEN : TBits_1 read getCHAEN write setCHAEN;
- property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
- property CHCHN : TBits_1 read getCHCHN write setCHCHN;
- property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
- property CHEDET : TBits_1 read getCHEDET write setCHEDET;
- property CHEN : TBits_1 read getCHEN write setCHEN;
- property CHPRI : TBits_2 read getCHPRI write setCHPRI;
- property w : TBits_32 read getw write setw;
- end;
- TDMAC0_DCH0ECON = record
- private
- function getAIRQEN : TBits_1; inline;
- function getCABORT : TBits_1; inline;
- function getCFORCE : TBits_1; inline;
- function getCHAIRQ : TBits_8; inline;
- function getCHSIRQ : TBits_8; inline;
- function getPATEN : TBits_1; inline;
- function getSIRQEN : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setAIRQEN(thebits : TBits_1); inline;
- procedure setCABORT(thebits : TBits_1); inline;
- procedure setCFORCE(thebits : TBits_1); inline;
- procedure setCHAIRQ(thebits : TBits_8); inline;
- procedure setCHSIRQ(thebits : TBits_8); inline;
- procedure setPATEN(thebits : TBits_1); inline;
- procedure setSIRQEN(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearAIRQEN; inline;
- procedure clearCABORT; inline;
- procedure clearCFORCE; inline;
- procedure clearPATEN; inline;
- procedure clearSIRQEN; inline;
- procedure setAIRQEN; inline;
- procedure setCABORT; inline;
- procedure setCFORCE; inline;
- procedure setPATEN; inline;
- procedure setSIRQEN; inline;
- property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
- property CABORT : TBits_1 read getCABORT write setCABORT;
- property CFORCE : TBits_1 read getCFORCE write setCFORCE;
- property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
- property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
- property PATEN : TBits_1 read getPATEN write setPATEN;
- property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
- property w : TBits_32 read getw write setw;
- end;
- TDMAC0_DCH0INT = record
- private
- function getCHBCIE : TBits_1; inline;
- function getCHBCIF : TBits_1; inline;
- function getCHCCIE : TBits_1; inline;
- function getCHCCIF : TBits_1; inline;
- function getCHDDIE : TBits_1; inline;
- function getCHDDIF : TBits_1; inline;
- function getCHDHIE : TBits_1; inline;
- function getCHDHIF : TBits_1; inline;
- function getCHERIE : TBits_1; inline;
- function getCHERIF : TBits_1; inline;
- function getCHSDIE : TBits_1; inline;
- function getCHSDIF : TBits_1; inline;
- function getCHSHIE : TBits_1; inline;
- function getCHSHIF : TBits_1; inline;
- function getCHTAIE : TBits_1; inline;
- function getCHTAIF : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCHBCIE(thebits : TBits_1); inline;
- procedure setCHBCIF(thebits : TBits_1); inline;
- procedure setCHCCIE(thebits : TBits_1); inline;
- procedure setCHCCIF(thebits : TBits_1); inline;
- procedure setCHDDIE(thebits : TBits_1); inline;
- procedure setCHDDIF(thebits : TBits_1); inline;
- procedure setCHDHIE(thebits : TBits_1); inline;
- procedure setCHDHIF(thebits : TBits_1); inline;
- procedure setCHERIE(thebits : TBits_1); inline;
- procedure setCHERIF(thebits : TBits_1); inline;
- procedure setCHSDIE(thebits : TBits_1); inline;
- procedure setCHSDIF(thebits : TBits_1); inline;
- procedure setCHSHIE(thebits : TBits_1); inline;
- procedure setCHSHIF(thebits : TBits_1); inline;
- procedure setCHTAIE(thebits : TBits_1); inline;
- procedure setCHTAIF(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCHBCIE; inline;
- procedure clearCHBCIF; inline;
- procedure clearCHCCIE; inline;
- procedure clearCHCCIF; inline;
- procedure clearCHDDIE; inline;
- procedure clearCHDDIF; inline;
- procedure clearCHDHIE; inline;
- procedure clearCHDHIF; inline;
- procedure clearCHERIE; inline;
- procedure clearCHERIF; inline;
- procedure clearCHSDIE; inline;
- procedure clearCHSDIF; inline;
- procedure clearCHSHIE; inline;
- procedure clearCHSHIF; inline;
- procedure clearCHTAIE; inline;
- procedure clearCHTAIF; inline;
- procedure setCHBCIE; inline;
- procedure setCHBCIF; inline;
- procedure setCHCCIE; inline;
- procedure setCHCCIF; inline;
- procedure setCHDDIE; inline;
- procedure setCHDDIF; inline;
- procedure setCHDHIE; inline;
- procedure setCHDHIF; inline;
- procedure setCHERIE; inline;
- procedure setCHERIF; inline;
- procedure setCHSDIE; inline;
- procedure setCHSDIF; inline;
- procedure setCHSHIE; inline;
- procedure setCHSHIF; inline;
- procedure setCHTAIE; inline;
- procedure setCHTAIF; inline;
- property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
- property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
- property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
- property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
- property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
- property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
- property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
- property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
- property CHERIE : TBits_1 read getCHERIE write setCHERIE;
- property CHERIF : TBits_1 read getCHERIF write setCHERIF;
- property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
- property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
- property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
- property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
- property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
- property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
- property w : TBits_32 read getw write setw;
- end;
- type
- TDMAC0Registers = record
- DCH0CONbits : TDMAC0_DCH0CON;
- DCH0CON : longWord;
- DCH0CONCLR : longWord;
- DCH0CONSET : longWord;
- DCH0CONINV : longWord;
- DCH0ECONbits : TDMAC0_DCH0ECON;
- DCH0ECON : longWord;
- DCH0ECONCLR : longWord;
- DCH0ECONSET : longWord;
- DCH0ECONINV : longWord;
- DCH0INTbits : TDMAC0_DCH0INT;
- DCH0INT : longWord;
- DCH0INTCLR : longWord;
- DCH0INTSET : longWord;
- DCH0INTINV : longWord;
- DCH0SSA : longWord;
- DCH0SSACLR : longWord;
- DCH0SSASET : longWord;
- DCH0SSAINV : longWord;
- DCH0DSA : longWord;
- DCH0DSACLR : longWord;
- DCH0DSASET : longWord;
- DCH0DSAINV : longWord;
- DCH0SSIZ : longWord;
- DCH0SSIZCLR : longWord;
- DCH0SSIZSET : longWord;
- DCH0SSIZINV : longWord;
- DCH0DSIZ : longWord;
- DCH0DSIZCLR : longWord;
- DCH0DSIZSET : longWord;
- DCH0DSIZINV : longWord;
- DCH0SPTR : longWord;
- DCH0SPTRCLR : longWord;
- DCH0SPTRSET : longWord;
- DCH0SPTRINV : longWord;
- DCH0DPTR : longWord;
- DCH0DPTRCLR : longWord;
- DCH0DPTRSET : longWord;
- DCH0DPTRINV : longWord;
- DCH0CSIZ : longWord;
- DCH0CSIZCLR : longWord;
- DCH0CSIZSET : longWord;
- DCH0CSIZINV : longWord;
- DCH0CPTR : longWord;
- DCH0CPTRCLR : longWord;
- DCH0CPTRSET : longWord;
- DCH0CPTRINV : longWord;
- DCH0DAT : longWord;
- DCH0DATCLR : longWord;
- DCH0DATSET : longWord;
- DCH0DATINV : longWord;
- end;
- TDMAC1_DCH1CON = record
- private
- function getCHAED : TBits_1; inline;
- function getCHAEN : TBits_1; inline;
- function getCHBUSY : TBits_1; inline;
- function getCHCHN : TBits_1; inline;
- function getCHCHNS : TBits_1; inline;
- function getCHEDET : TBits_1; inline;
- function getCHEN : TBits_1; inline;
- function getCHPRI : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setCHAED(thebits : TBits_1); inline;
- procedure setCHAEN(thebits : TBits_1); inline;
- procedure setCHBUSY(thebits : TBits_1); inline;
- procedure setCHCHN(thebits : TBits_1); inline;
- procedure setCHCHNS(thebits : TBits_1); inline;
- procedure setCHEDET(thebits : TBits_1); inline;
- procedure setCHEN(thebits : TBits_1); inline;
- procedure setCHPRI(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCHAED; inline;
- procedure clearCHAEN; inline;
- procedure clearCHBUSY; inline;
- procedure clearCHCHN; inline;
- procedure clearCHCHNS; inline;
- procedure clearCHEDET; inline;
- procedure clearCHEN; inline;
- procedure setCHAED; inline;
- procedure setCHAEN; inline;
- procedure setCHBUSY; inline;
- procedure setCHCHN; inline;
- procedure setCHCHNS; inline;
- procedure setCHEDET; inline;
- procedure setCHEN; inline;
- property CHAED : TBits_1 read getCHAED write setCHAED;
- property CHAEN : TBits_1 read getCHAEN write setCHAEN;
- property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
- property CHCHN : TBits_1 read getCHCHN write setCHCHN;
- property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
- property CHEDET : TBits_1 read getCHEDET write setCHEDET;
- property CHEN : TBits_1 read getCHEN write setCHEN;
- property CHPRI : TBits_2 read getCHPRI write setCHPRI;
- property w : TBits_32 read getw write setw;
- end;
- TDMAC1_DCH1ECON = record
- private
- function getAIRQEN : TBits_1; inline;
- function getCABORT : TBits_1; inline;
- function getCFORCE : TBits_1; inline;
- function getCHAIRQ : TBits_8; inline;
- function getCHSIRQ : TBits_8; inline;
- function getPATEN : TBits_1; inline;
- function getSIRQEN : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setAIRQEN(thebits : TBits_1); inline;
- procedure setCABORT(thebits : TBits_1); inline;
- procedure setCFORCE(thebits : TBits_1); inline;
- procedure setCHAIRQ(thebits : TBits_8); inline;
- procedure setCHSIRQ(thebits : TBits_8); inline;
- procedure setPATEN(thebits : TBits_1); inline;
- procedure setSIRQEN(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearAIRQEN; inline;
- procedure clearCABORT; inline;
- procedure clearCFORCE; inline;
- procedure clearPATEN; inline;
- procedure clearSIRQEN; inline;
- procedure setAIRQEN; inline;
- procedure setCABORT; inline;
- procedure setCFORCE; inline;
- procedure setPATEN; inline;
- procedure setSIRQEN; inline;
- property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
- property CABORT : TBits_1 read getCABORT write setCABORT;
- property CFORCE : TBits_1 read getCFORCE write setCFORCE;
- property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
- property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
- property PATEN : TBits_1 read getPATEN write setPATEN;
- property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
- property w : TBits_32 read getw write setw;
- end;
- TDMAC1_DCH1INT = record
- private
- function getCHBCIE : TBits_1; inline;
- function getCHBCIF : TBits_1; inline;
- function getCHCCIE : TBits_1; inline;
- function getCHCCIF : TBits_1; inline;
- function getCHDDIE : TBits_1; inline;
- function getCHDDIF : TBits_1; inline;
- function getCHDHIE : TBits_1; inline;
- function getCHDHIF : TBits_1; inline;
- function getCHERIE : TBits_1; inline;
- function getCHERIF : TBits_1; inline;
- function getCHSDIE : TBits_1; inline;
- function getCHSDIF : TBits_1; inline;
- function getCHSHIE : TBits_1; inline;
- function getCHSHIF : TBits_1; inline;
- function getCHTAIE : TBits_1; inline;
- function getCHTAIF : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCHBCIE(thebits : TBits_1); inline;
- procedure setCHBCIF(thebits : TBits_1); inline;
- procedure setCHCCIE(thebits : TBits_1); inline;
- procedure setCHCCIF(thebits : TBits_1); inline;
- procedure setCHDDIE(thebits : TBits_1); inline;
- procedure setCHDDIF(thebits : TBits_1); inline;
- procedure setCHDHIE(thebits : TBits_1); inline;
- procedure setCHDHIF(thebits : TBits_1); inline;
- procedure setCHERIE(thebits : TBits_1); inline;
- procedure setCHERIF(thebits : TBits_1); inline;
- procedure setCHSDIE(thebits : TBits_1); inline;
- procedure setCHSDIF(thebits : TBits_1); inline;
- procedure setCHSHIE(thebits : TBits_1); inline;
- procedure setCHSHIF(thebits : TBits_1); inline;
- procedure setCHTAIE(thebits : TBits_1); inline;
- procedure setCHTAIF(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCHBCIE; inline;
- procedure clearCHBCIF; inline;
- procedure clearCHCCIE; inline;
- procedure clearCHCCIF; inline;
- procedure clearCHDDIE; inline;
- procedure clearCHDDIF; inline;
- procedure clearCHDHIE; inline;
- procedure clearCHDHIF; inline;
- procedure clearCHERIE; inline;
- procedure clearCHERIF; inline;
- procedure clearCHSDIE; inline;
- procedure clearCHSDIF; inline;
- procedure clearCHSHIE; inline;
- procedure clearCHSHIF; inline;
- procedure clearCHTAIE; inline;
- procedure clearCHTAIF; inline;
- procedure setCHBCIE; inline;
- procedure setCHBCIF; inline;
- procedure setCHCCIE; inline;
- procedure setCHCCIF; inline;
- procedure setCHDDIE; inline;
- procedure setCHDDIF; inline;
- procedure setCHDHIE; inline;
- procedure setCHDHIF; inline;
- procedure setCHERIE; inline;
- procedure setCHERIF; inline;
- procedure setCHSDIE; inline;
- procedure setCHSDIF; inline;
- procedure setCHSHIE; inline;
- procedure setCHSHIF; inline;
- procedure setCHTAIE; inline;
- procedure setCHTAIF; inline;
- property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
- property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
- property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
- property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
- property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
- property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
- property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
- property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
- property CHERIE : TBits_1 read getCHERIE write setCHERIE;
- property CHERIF : TBits_1 read getCHERIF write setCHERIF;
- property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
- property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
- property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
- property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
- property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
- property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
- property w : TBits_32 read getw write setw;
- end;
- type
- TDMAC1Registers = record
- DCH1CONbits : TDMAC1_DCH1CON;
- DCH1CON : longWord;
- DCH1CONCLR : longWord;
- DCH1CONSET : longWord;
- DCH1CONINV : longWord;
- DCH1ECONbits : TDMAC1_DCH1ECON;
- DCH1ECON : longWord;
- DCH1ECONCLR : longWord;
- DCH1ECONSET : longWord;
- DCH1ECONINV : longWord;
- DCH1INTbits : TDMAC1_DCH1INT;
- DCH1INT : longWord;
- DCH1INTCLR : longWord;
- DCH1INTSET : longWord;
- DCH1INTINV : longWord;
- DCH1SSA : longWord;
- DCH1SSACLR : longWord;
- DCH1SSASET : longWord;
- DCH1SSAINV : longWord;
- DCH1DSA : longWord;
- DCH1DSACLR : longWord;
- DCH1DSASET : longWord;
- DCH1DSAINV : longWord;
- DCH1SSIZ : longWord;
- DCH1SSIZCLR : longWord;
- DCH1SSIZSET : longWord;
- DCH1SSIZINV : longWord;
- DCH1DSIZ : longWord;
- DCH1DSIZCLR : longWord;
- DCH1DSIZSET : longWord;
- DCH1DSIZINV : longWord;
- DCH1SPTR : longWord;
- DCH1SPTRCLR : longWord;
- DCH1SPTRSET : longWord;
- DCH1SPTRINV : longWord;
- DCH1DPTR : longWord;
- DCH1DPTRCLR : longWord;
- DCH1DPTRSET : longWord;
- DCH1DPTRINV : longWord;
- DCH1CSIZ : longWord;
- DCH1CSIZCLR : longWord;
- DCH1CSIZSET : longWord;
- DCH1CSIZINV : longWord;
- DCH1CPTR : longWord;
- DCH1CPTRCLR : longWord;
- DCH1CPTRSET : longWord;
- DCH1CPTRINV : longWord;
- DCH1DAT : longWord;
- DCH1DATCLR : longWord;
- DCH1DATSET : longWord;
- DCH1DATINV : longWord;
- end;
- TDMAC2_DCH2CON = record
- private
- function getCHAED : TBits_1; inline;
- function getCHAEN : TBits_1; inline;
- function getCHBUSY : TBits_1; inline;
- function getCHCHN : TBits_1; inline;
- function getCHCHNS : TBits_1; inline;
- function getCHEDET : TBits_1; inline;
- function getCHEN : TBits_1; inline;
- function getCHPRI : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setCHAED(thebits : TBits_1); inline;
- procedure setCHAEN(thebits : TBits_1); inline;
- procedure setCHBUSY(thebits : TBits_1); inline;
- procedure setCHCHN(thebits : TBits_1); inline;
- procedure setCHCHNS(thebits : TBits_1); inline;
- procedure setCHEDET(thebits : TBits_1); inline;
- procedure setCHEN(thebits : TBits_1); inline;
- procedure setCHPRI(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCHAED; inline;
- procedure clearCHAEN; inline;
- procedure clearCHBUSY; inline;
- procedure clearCHCHN; inline;
- procedure clearCHCHNS; inline;
- procedure clearCHEDET; inline;
- procedure clearCHEN; inline;
- procedure setCHAED; inline;
- procedure setCHAEN; inline;
- procedure setCHBUSY; inline;
- procedure setCHCHN; inline;
- procedure setCHCHNS; inline;
- procedure setCHEDET; inline;
- procedure setCHEN; inline;
- property CHAED : TBits_1 read getCHAED write setCHAED;
- property CHAEN : TBits_1 read getCHAEN write setCHAEN;
- property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
- property CHCHN : TBits_1 read getCHCHN write setCHCHN;
- property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
- property CHEDET : TBits_1 read getCHEDET write setCHEDET;
- property CHEN : TBits_1 read getCHEN write setCHEN;
- property CHPRI : TBits_2 read getCHPRI write setCHPRI;
- property w : TBits_32 read getw write setw;
- end;
- TDMAC2_DCH2ECON = record
- private
- function getAIRQEN : TBits_1; inline;
- function getCABORT : TBits_1; inline;
- function getCFORCE : TBits_1; inline;
- function getCHAIRQ : TBits_8; inline;
- function getCHSIRQ : TBits_8; inline;
- function getPATEN : TBits_1; inline;
- function getSIRQEN : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setAIRQEN(thebits : TBits_1); inline;
- procedure setCABORT(thebits : TBits_1); inline;
- procedure setCFORCE(thebits : TBits_1); inline;
- procedure setCHAIRQ(thebits : TBits_8); inline;
- procedure setCHSIRQ(thebits : TBits_8); inline;
- procedure setPATEN(thebits : TBits_1); inline;
- procedure setSIRQEN(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearAIRQEN; inline;
- procedure clearCABORT; inline;
- procedure clearCFORCE; inline;
- procedure clearPATEN; inline;
- procedure clearSIRQEN; inline;
- procedure setAIRQEN; inline;
- procedure setCABORT; inline;
- procedure setCFORCE; inline;
- procedure setPATEN; inline;
- procedure setSIRQEN; inline;
- property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
- property CABORT : TBits_1 read getCABORT write setCABORT;
- property CFORCE : TBits_1 read getCFORCE write setCFORCE;
- property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
- property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
- property PATEN : TBits_1 read getPATEN write setPATEN;
- property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
- property w : TBits_32 read getw write setw;
- end;
- TDMAC2_DCH2INT = record
- private
- function getCHBCIE : TBits_1; inline;
- function getCHBCIF : TBits_1; inline;
- function getCHCCIE : TBits_1; inline;
- function getCHCCIF : TBits_1; inline;
- function getCHDDIE : TBits_1; inline;
- function getCHDDIF : TBits_1; inline;
- function getCHDHIE : TBits_1; inline;
- function getCHDHIF : TBits_1; inline;
- function getCHERIE : TBits_1; inline;
- function getCHERIF : TBits_1; inline;
- function getCHSDIE : TBits_1; inline;
- function getCHSDIF : TBits_1; inline;
- function getCHSHIE : TBits_1; inline;
- function getCHSHIF : TBits_1; inline;
- function getCHTAIE : TBits_1; inline;
- function getCHTAIF : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCHBCIE(thebits : TBits_1); inline;
- procedure setCHBCIF(thebits : TBits_1); inline;
- procedure setCHCCIE(thebits : TBits_1); inline;
- procedure setCHCCIF(thebits : TBits_1); inline;
- procedure setCHDDIE(thebits : TBits_1); inline;
- procedure setCHDDIF(thebits : TBits_1); inline;
- procedure setCHDHIE(thebits : TBits_1); inline;
- procedure setCHDHIF(thebits : TBits_1); inline;
- procedure setCHERIE(thebits : TBits_1); inline;
- procedure setCHERIF(thebits : TBits_1); inline;
- procedure setCHSDIE(thebits : TBits_1); inline;
- procedure setCHSDIF(thebits : TBits_1); inline;
- procedure setCHSHIE(thebits : TBits_1); inline;
- procedure setCHSHIF(thebits : TBits_1); inline;
- procedure setCHTAIE(thebits : TBits_1); inline;
- procedure setCHTAIF(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCHBCIE; inline;
- procedure clearCHBCIF; inline;
- procedure clearCHCCIE; inline;
- procedure clearCHCCIF; inline;
- procedure clearCHDDIE; inline;
- procedure clearCHDDIF; inline;
- procedure clearCHDHIE; inline;
- procedure clearCHDHIF; inline;
- procedure clearCHERIE; inline;
- procedure clearCHERIF; inline;
- procedure clearCHSDIE; inline;
- procedure clearCHSDIF; inline;
- procedure clearCHSHIE; inline;
- procedure clearCHSHIF; inline;
- procedure clearCHTAIE; inline;
- procedure clearCHTAIF; inline;
- procedure setCHBCIE; inline;
- procedure setCHBCIF; inline;
- procedure setCHCCIE; inline;
- procedure setCHCCIF; inline;
- procedure setCHDDIE; inline;
- procedure setCHDDIF; inline;
- procedure setCHDHIE; inline;
- procedure setCHDHIF; inline;
- procedure setCHERIE; inline;
- procedure setCHERIF; inline;
- procedure setCHSDIE; inline;
- procedure setCHSDIF; inline;
- procedure setCHSHIE; inline;
- procedure setCHSHIF; inline;
- procedure setCHTAIE; inline;
- procedure setCHTAIF; inline;
- property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
- property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
- property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
- property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
- property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
- property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
- property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
- property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
- property CHERIE : TBits_1 read getCHERIE write setCHERIE;
- property CHERIF : TBits_1 read getCHERIF write setCHERIF;
- property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
- property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
- property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
- property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
- property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
- property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
- property w : TBits_32 read getw write setw;
- end;
- type
- TDMAC2Registers = record
- DCH2CONbits : TDMAC2_DCH2CON;
- DCH2CON : longWord;
- DCH2CONCLR : longWord;
- DCH2CONSET : longWord;
- DCH2CONINV : longWord;
- DCH2ECONbits : TDMAC2_DCH2ECON;
- DCH2ECON : longWord;
- DCH2ECONCLR : longWord;
- DCH2ECONSET : longWord;
- DCH2ECONINV : longWord;
- DCH2INTbits : TDMAC2_DCH2INT;
- DCH2INT : longWord;
- DCH2INTCLR : longWord;
- DCH2INTSET : longWord;
- DCH2INTINV : longWord;
- DCH2SSA : longWord;
- DCH2SSACLR : longWord;
- DCH2SSASET : longWord;
- DCH2SSAINV : longWord;
- DCH2DSA : longWord;
- DCH2DSACLR : longWord;
- DCH2DSASET : longWord;
- DCH2DSAINV : longWord;
- DCH2SSIZ : longWord;
- DCH2SSIZCLR : longWord;
- DCH2SSIZSET : longWord;
- DCH2SSIZINV : longWord;
- DCH2DSIZ : longWord;
- DCH2DSIZCLR : longWord;
- DCH2DSIZSET : longWord;
- DCH2DSIZINV : longWord;
- DCH2SPTR : longWord;
- DCH2SPTRCLR : longWord;
- DCH2SPTRSET : longWord;
- DCH2SPTRINV : longWord;
- DCH2DPTR : longWord;
- DCH2DPTRCLR : longWord;
- DCH2DPTRSET : longWord;
- DCH2DPTRINV : longWord;
- DCH2CSIZ : longWord;
- DCH2CSIZCLR : longWord;
- DCH2CSIZSET : longWord;
- DCH2CSIZINV : longWord;
- DCH2CPTR : longWord;
- DCH2CPTRCLR : longWord;
- DCH2CPTRSET : longWord;
- DCH2CPTRINV : longWord;
- DCH2DAT : longWord;
- DCH2DATCLR : longWord;
- DCH2DATSET : longWord;
- DCH2DATINV : longWord;
- end;
- TDMAC3_DCH3CON = record
- private
- function getCHAED : TBits_1; inline;
- function getCHAEN : TBits_1; inline;
- function getCHBUSY : TBits_1; inline;
- function getCHCHN : TBits_1; inline;
- function getCHCHNS : TBits_1; inline;
- function getCHEDET : TBits_1; inline;
- function getCHEN : TBits_1; inline;
- function getCHPRI : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setCHAED(thebits : TBits_1); inline;
- procedure setCHAEN(thebits : TBits_1); inline;
- procedure setCHBUSY(thebits : TBits_1); inline;
- procedure setCHCHN(thebits : TBits_1); inline;
- procedure setCHCHNS(thebits : TBits_1); inline;
- procedure setCHEDET(thebits : TBits_1); inline;
- procedure setCHEN(thebits : TBits_1); inline;
- procedure setCHPRI(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCHAED; inline;
- procedure clearCHAEN; inline;
- procedure clearCHBUSY; inline;
- procedure clearCHCHN; inline;
- procedure clearCHCHNS; inline;
- procedure clearCHEDET; inline;
- procedure clearCHEN; inline;
- procedure setCHAED; inline;
- procedure setCHAEN; inline;
- procedure setCHBUSY; inline;
- procedure setCHCHN; inline;
- procedure setCHCHNS; inline;
- procedure setCHEDET; inline;
- procedure setCHEN; inline;
- property CHAED : TBits_1 read getCHAED write setCHAED;
- property CHAEN : TBits_1 read getCHAEN write setCHAEN;
- property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
- property CHCHN : TBits_1 read getCHCHN write setCHCHN;
- property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
- property CHEDET : TBits_1 read getCHEDET write setCHEDET;
- property CHEN : TBits_1 read getCHEN write setCHEN;
- property CHPRI : TBits_2 read getCHPRI write setCHPRI;
- property w : TBits_32 read getw write setw;
- end;
- TDMAC3_DCH3ECON = record
- private
- function getAIRQEN : TBits_1; inline;
- function getCABORT : TBits_1; inline;
- function getCFORCE : TBits_1; inline;
- function getCHAIRQ : TBits_8; inline;
- function getCHSIRQ : TBits_8; inline;
- function getPATEN : TBits_1; inline;
- function getSIRQEN : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setAIRQEN(thebits : TBits_1); inline;
- procedure setCABORT(thebits : TBits_1); inline;
- procedure setCFORCE(thebits : TBits_1); inline;
- procedure setCHAIRQ(thebits : TBits_8); inline;
- procedure setCHSIRQ(thebits : TBits_8); inline;
- procedure setPATEN(thebits : TBits_1); inline;
- procedure setSIRQEN(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearAIRQEN; inline;
- procedure clearCABORT; inline;
- procedure clearCFORCE; inline;
- procedure clearPATEN; inline;
- procedure clearSIRQEN; inline;
- procedure setAIRQEN; inline;
- procedure setCABORT; inline;
- procedure setCFORCE; inline;
- procedure setPATEN; inline;
- procedure setSIRQEN; inline;
- property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
- property CABORT : TBits_1 read getCABORT write setCABORT;
- property CFORCE : TBits_1 read getCFORCE write setCFORCE;
- property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
- property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
- property PATEN : TBits_1 read getPATEN write setPATEN;
- property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
- property w : TBits_32 read getw write setw;
- end;
- TDMAC3_DCH3INT = record
- private
- function getCHBCIE : TBits_1; inline;
- function getCHBCIF : TBits_1; inline;
- function getCHCCIE : TBits_1; inline;
- function getCHCCIF : TBits_1; inline;
- function getCHDDIE : TBits_1; inline;
- function getCHDDIF : TBits_1; inline;
- function getCHDHIE : TBits_1; inline;
- function getCHDHIF : TBits_1; inline;
- function getCHERIE : TBits_1; inline;
- function getCHERIF : TBits_1; inline;
- function getCHSDIE : TBits_1; inline;
- function getCHSDIF : TBits_1; inline;
- function getCHSHIE : TBits_1; inline;
- function getCHSHIF : TBits_1; inline;
- function getCHTAIE : TBits_1; inline;
- function getCHTAIF : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCHBCIE(thebits : TBits_1); inline;
- procedure setCHBCIF(thebits : TBits_1); inline;
- procedure setCHCCIE(thebits : TBits_1); inline;
- procedure setCHCCIF(thebits : TBits_1); inline;
- procedure setCHDDIE(thebits : TBits_1); inline;
- procedure setCHDDIF(thebits : TBits_1); inline;
- procedure setCHDHIE(thebits : TBits_1); inline;
- procedure setCHDHIF(thebits : TBits_1); inline;
- procedure setCHERIE(thebits : TBits_1); inline;
- procedure setCHERIF(thebits : TBits_1); inline;
- procedure setCHSDIE(thebits : TBits_1); inline;
- procedure setCHSDIF(thebits : TBits_1); inline;
- procedure setCHSHIE(thebits : TBits_1); inline;
- procedure setCHSHIF(thebits : TBits_1); inline;
- procedure setCHTAIE(thebits : TBits_1); inline;
- procedure setCHTAIF(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCHBCIE; inline;
- procedure clearCHBCIF; inline;
- procedure clearCHCCIE; inline;
- procedure clearCHCCIF; inline;
- procedure clearCHDDIE; inline;
- procedure clearCHDDIF; inline;
- procedure clearCHDHIE; inline;
- procedure clearCHDHIF; inline;
- procedure clearCHERIE; inline;
- procedure clearCHERIF; inline;
- procedure clearCHSDIE; inline;
- procedure clearCHSDIF; inline;
- procedure clearCHSHIE; inline;
- procedure clearCHSHIF; inline;
- procedure clearCHTAIE; inline;
- procedure clearCHTAIF; inline;
- procedure setCHBCIE; inline;
- procedure setCHBCIF; inline;
- procedure setCHCCIE; inline;
- procedure setCHCCIF; inline;
- procedure setCHDDIE; inline;
- procedure setCHDDIF; inline;
- procedure setCHDHIE; inline;
- procedure setCHDHIF; inline;
- procedure setCHERIE; inline;
- procedure setCHERIF; inline;
- procedure setCHSDIE; inline;
- procedure setCHSDIF; inline;
- procedure setCHSHIE; inline;
- procedure setCHSHIF; inline;
- procedure setCHTAIE; inline;
- procedure setCHTAIF; inline;
- property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
- property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
- property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
- property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
- property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
- property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
- property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
- property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
- property CHERIE : TBits_1 read getCHERIE write setCHERIE;
- property CHERIF : TBits_1 read getCHERIF write setCHERIF;
- property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
- property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
- property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
- property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
- property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
- property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
- property w : TBits_32 read getw write setw;
- end;
- type
- TDMAC3Registers = record
- DCH3CONbits : TDMAC3_DCH3CON;
- DCH3CON : longWord;
- DCH3CONCLR : longWord;
- DCH3CONSET : longWord;
- DCH3CONINV : longWord;
- DCH3ECONbits : TDMAC3_DCH3ECON;
- DCH3ECON : longWord;
- DCH3ECONCLR : longWord;
- DCH3ECONSET : longWord;
- DCH3ECONINV : longWord;
- DCH3INTbits : TDMAC3_DCH3INT;
- DCH3INT : longWord;
- DCH3INTCLR : longWord;
- DCH3INTSET : longWord;
- DCH3INTINV : longWord;
- DCH3SSA : longWord;
- DCH3SSACLR : longWord;
- DCH3SSASET : longWord;
- DCH3SSAINV : longWord;
- DCH3DSA : longWord;
- DCH3DSACLR : longWord;
- DCH3DSASET : longWord;
- DCH3DSAINV : longWord;
- DCH3SSIZ : longWord;
- DCH3SSIZCLR : longWord;
- DCH3SSIZSET : longWord;
- DCH3SSIZINV : longWord;
- DCH3DSIZ : longWord;
- DCH3DSIZCLR : longWord;
- DCH3DSIZSET : longWord;
- DCH3DSIZINV : longWord;
- DCH3SPTR : longWord;
- DCH3SPTRCLR : longWord;
- DCH3SPTRSET : longWord;
- DCH3SPTRINV : longWord;
- DCH3DPTR : longWord;
- DCH3DPTRCLR : longWord;
- DCH3DPTRSET : longWord;
- DCH3DPTRINV : longWord;
- DCH3CSIZ : longWord;
- DCH3CSIZCLR : longWord;
- DCH3CSIZSET : longWord;
- DCH3CSIZINV : longWord;
- DCH3CPTR : longWord;
- DCH3CPTRCLR : longWord;
- DCH3CPTRSET : longWord;
- DCH3CPTRINV : longWord;
- DCH3DAT : longWord;
- DCH3DATCLR : longWord;
- DCH3DATSET : longWord;
- DCH3DATINV : longWord;
- end;
- TPCACHE_CHECON = record
- private
- function getCHECOH : TBits_1; inline;
- function getDCSZ : TBits_2; inline;
- function getPFMWS : TBits_3; inline;
- function getPREFEN : TBits_2; inline;
- function getw : TBits_32; inline;
- procedure setCHECOH(thebits : TBits_1); inline;
- procedure setDCSZ(thebits : TBits_2); inline;
- procedure setPFMWS(thebits : TBits_3); inline;
- procedure setPREFEN(thebits : TBits_2); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCHECOH; inline;
- procedure setCHECOH; inline;
- property CHECOH : TBits_1 read getCHECOH write setCHECOH;
- property DCSZ : TBits_2 read getDCSZ write setDCSZ;
- property PFMWS : TBits_3 read getPFMWS write setPFMWS;
- property PREFEN : TBits_2 read getPREFEN write setPREFEN;
- property w : TBits_32 read getw write setw;
- end;
- TPCACHE_CHETAG = record
- private
- function getLLOCK : TBits_1; inline;
- function getLTAG : TBits_20; inline;
- function getLTAGBOOT : TBits_1; inline;
- function getLTYPE : TBits_1; inline;
- function getLVALID : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setLLOCK(thebits : TBits_1); inline;
- procedure setLTAG(thebits : TBits_20); inline;
- procedure setLTAGBOOT(thebits : TBits_1); inline;
- procedure setLTYPE(thebits : TBits_1); inline;
- procedure setLVALID(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearLLOCK; inline;
- procedure clearLTAGBOOT; inline;
- procedure clearLTYPE; inline;
- procedure clearLVALID; inline;
- procedure setLLOCK; inline;
- procedure setLTAGBOOT; inline;
- procedure setLTYPE; inline;
- procedure setLVALID; inline;
- property LLOCK : TBits_1 read getLLOCK write setLLOCK;
- property LTAG : TBits_20 read getLTAG write setLTAG;
- property LTAGBOOT : TBits_1 read getLTAGBOOT write setLTAGBOOT;
- property LTYPE : TBits_1 read getLTYPE write setLTYPE;
- property LVALID : TBits_1 read getLVALID write setLVALID;
- property w : TBits_32 read getw write setw;
- end;
- type
- TPCACHERegisters = record
- CHECONbits : TPCACHE_CHECON;
- CHECON : longWord;
- CHECONCLR : longWord;
- CHECONSET : longWord;
- CHECONINV : longWord;
- CHEACC : longWord;
- CHEACCCLR : longWord;
- CHEACCSET : longWord;
- CHEACCINV : longWord;
- CHETAGbits : TPCACHE_CHETAG;
- CHETAG : longWord;
- CHETAGCLR : longWord;
- CHETAGSET : longWord;
- CHETAGINV : longWord;
- CHEMSK : longWord;
- CHEMSKCLR : longWord;
- CHEMSKSET : longWord;
- CHEMSKINV : longWord;
- CHEW0 : longWord;
- CHEW1 : longWord;
- CHEW2 : longWord;
- CHEW3 : longWord;
- CHELRU : longWord;
- CHEHIT : longWord;
- CHEMIS : longWord;
- RESERVED1 : longWord;
- CHEPFABT : longWord;
- end;
- TUSB_U1IR = record
- private
- function getATTACHIF : TBits_1; inline;
- function getDETACHIF : TBits_1; inline;
- function getIDLEIF : TBits_1; inline;
- function getRESUMEIF : TBits_1; inline;
- function getSOFIF : TBits_1; inline;
- function getSTALLIF : TBits_1; inline;
- function getTRNIF : TBits_1; inline;
- function getUERRIF : TBits_1; inline;
- function getURSTIF : TBits_1; inline;
- function getURSTIF_DETACHIF : TBits_1; inline;
- procedure setATTACHIF(thebits : TBits_1); inline;
- procedure setDETACHIF(thebits : TBits_1); inline;
- procedure setIDLEIF(thebits : TBits_1); inline;
- procedure setRESUMEIF(thebits : TBits_1); inline;
- procedure setSOFIF(thebits : TBits_1); inline;
- procedure setSTALLIF(thebits : TBits_1); inline;
- procedure setTRNIF(thebits : TBits_1); inline;
- procedure setUERRIF(thebits : TBits_1); inline;
- procedure setURSTIF(thebits : TBits_1); inline;
- procedure setURSTIF_DETACHIF(thebits : TBits_1); inline;
- public
- procedure clearATTACHIF; inline;
- procedure clearDETACHIF; inline;
- procedure clearIDLEIF; inline;
- procedure clearRESUMEIF; inline;
- procedure clearSOFIF; inline;
- procedure clearSTALLIF; inline;
- procedure clearTRNIF; inline;
- procedure clearUERRIF; inline;
- procedure clearURSTIF; inline;
- procedure clearURSTIF_DETACHIF; inline;
- procedure setATTACHIF; inline;
- procedure setDETACHIF; inline;
- procedure setIDLEIF; inline;
- procedure setRESUMEIF; inline;
- procedure setSOFIF; inline;
- procedure setSTALLIF; inline;
- procedure setTRNIF; inline;
- procedure setUERRIF; inline;
- procedure setURSTIF; inline;
- procedure setURSTIF_DETACHIF; inline;
- property ATTACHIF : TBits_1 read getATTACHIF write setATTACHIF;
- property DETACHIF : TBits_1 read getDETACHIF write setDETACHIF;
- property IDLEIF : TBits_1 read getIDLEIF write setIDLEIF;
- property RESUMEIF : TBits_1 read getRESUMEIF write setRESUMEIF;
- property SOFIF : TBits_1 read getSOFIF write setSOFIF;
- property STALLIF : TBits_1 read getSTALLIF write setSTALLIF;
- property TRNIF : TBits_1 read getTRNIF write setTRNIF;
- property UERRIF : TBits_1 read getUERRIF write setUERRIF;
- property URSTIF : TBits_1 read getURSTIF write setURSTIF;
- property URSTIF_DETACHIF : TBits_1 read getURSTIF_DETACHIF write setURSTIF_DETACHIF;
- end;
- TUSB_U1IE = record
- private
- function getATTACHIE : TBits_1; inline;
- function getDETACHIE : TBits_1; inline;
- function getIDLEIE : TBits_1; inline;
- function getRESUMEIE : TBits_1; inline;
- function getSOFIE : TBits_1; inline;
- function getSTALLIE : TBits_1; inline;
- function getTRNIE : TBits_1; inline;
- function getUERRIE : TBits_1; inline;
- function getURSTIE : TBits_1; inline;
- function getURSTIE_DETACHIE : TBits_1; inline;
- procedure setATTACHIE(thebits : TBits_1); inline;
- procedure setDETACHIE(thebits : TBits_1); inline;
- procedure setIDLEIE(thebits : TBits_1); inline;
- procedure setRESUMEIE(thebits : TBits_1); inline;
- procedure setSOFIE(thebits : TBits_1); inline;
- procedure setSTALLIE(thebits : TBits_1); inline;
- procedure setTRNIE(thebits : TBits_1); inline;
- procedure setUERRIE(thebits : TBits_1); inline;
- procedure setURSTIE(thebits : TBits_1); inline;
- procedure setURSTIE_DETACHIE(thebits : TBits_1); inline;
- public
- procedure clearATTACHIE; inline;
- procedure clearDETACHIE; inline;
- procedure clearIDLEIE; inline;
- procedure clearRESUMEIE; inline;
- procedure clearSOFIE; inline;
- procedure clearSTALLIE; inline;
- procedure clearTRNIE; inline;
- procedure clearUERRIE; inline;
- procedure clearURSTIE; inline;
- procedure clearURSTIE_DETACHIE; inline;
- procedure setATTACHIE; inline;
- procedure setDETACHIE; inline;
- procedure setIDLEIE; inline;
- procedure setRESUMEIE; inline;
- procedure setSOFIE; inline;
- procedure setSTALLIE; inline;
- procedure setTRNIE; inline;
- procedure setUERRIE; inline;
- procedure setURSTIE; inline;
- procedure setURSTIE_DETACHIE; inline;
- property ATTACHIE : TBits_1 read getATTACHIE write setATTACHIE;
- property DETACHIE : TBits_1 read getDETACHIE write setDETACHIE;
- property IDLEIE : TBits_1 read getIDLEIE write setIDLEIE;
- property RESUMEIE : TBits_1 read getRESUMEIE write setRESUMEIE;
- property SOFIE : TBits_1 read getSOFIE write setSOFIE;
- property STALLIE : TBits_1 read getSTALLIE write setSTALLIE;
- property TRNIE : TBits_1 read getTRNIE write setTRNIE;
- property UERRIE : TBits_1 read getUERRIE write setUERRIE;
- property URSTIE : TBits_1 read getURSTIE write setURSTIE;
- property URSTIE_DETACHIE : TBits_1 read getURSTIE_DETACHIE write setURSTIE_DETACHIE;
- end;
- TUSB_U1EIR = record
- private
- function getBMXEF : TBits_1; inline;
- function getBTOEF : TBits_1; inline;
- function getBTSEF : TBits_1; inline;
- function getCRC16EF : TBits_1; inline;
- function getCRC5EF : TBits_1; inline;
- function getCRC5EF_EOFEF : TBits_1; inline;
- function getDFN8EF : TBits_1; inline;
- function getDMAEF : TBits_1; inline;
- function getEOFEF : TBits_1; inline;
- function getPIDEF : TBits_1; inline;
- procedure setBMXEF(thebits : TBits_1); inline;
- procedure setBTOEF(thebits : TBits_1); inline;
- procedure setBTSEF(thebits : TBits_1); inline;
- procedure setCRC16EF(thebits : TBits_1); inline;
- procedure setCRC5EF(thebits : TBits_1); inline;
- procedure setCRC5EF_EOFEF(thebits : TBits_1); inline;
- procedure setDFN8EF(thebits : TBits_1); inline;
- procedure setDMAEF(thebits : TBits_1); inline;
- procedure setEOFEF(thebits : TBits_1); inline;
- procedure setPIDEF(thebits : TBits_1); inline;
- public
- procedure clearBMXEF; inline;
- procedure clearBTOEF; inline;
- procedure clearBTSEF; inline;
- procedure clearCRC16EF; inline;
- procedure clearCRC5EF; inline;
- procedure clearCRC5EF_EOFEF; inline;
- procedure clearDFN8EF; inline;
- procedure clearDMAEF; inline;
- procedure clearEOFEF; inline;
- procedure clearPIDEF; inline;
- procedure setBMXEF; inline;
- procedure setBTOEF; inline;
- procedure setBTSEF; inline;
- procedure setCRC16EF; inline;
- procedure setCRC5EF; inline;
- procedure setCRC5EF_EOFEF; inline;
- procedure setDFN8EF; inline;
- procedure setDMAEF; inline;
- procedure setEOFEF; inline;
- procedure setPIDEF; inline;
- property BMXEF : TBits_1 read getBMXEF write setBMXEF;
- property BTOEF : TBits_1 read getBTOEF write setBTOEF;
- property BTSEF : TBits_1 read getBTSEF write setBTSEF;
- property CRC16EF : TBits_1 read getCRC16EF write setCRC16EF;
- property CRC5EF : TBits_1 read getCRC5EF write setCRC5EF;
- property CRC5EF_EOFEF : TBits_1 read getCRC5EF_EOFEF write setCRC5EF_EOFEF;
- property DFN8EF : TBits_1 read getDFN8EF write setDFN8EF;
- property DMAEF : TBits_1 read getDMAEF write setDMAEF;
- property EOFEF : TBits_1 read getEOFEF write setEOFEF;
- property PIDEF : TBits_1 read getPIDEF write setPIDEF;
- end;
- TUSB_U1EIE = record
- private
- function getBMXEE : TBits_1; inline;
- function getBTOEE : TBits_1; inline;
- function getBTSEE : TBits_1; inline;
- function getCRC16EE : TBits_1; inline;
- function getCRC5EE : TBits_1; inline;
- function getCRC5EE_EOFEE : TBits_1; inline;
- function getDFN8EE : TBits_1; inline;
- function getDMAEE : TBits_1; inline;
- function getEOFEE : TBits_1; inline;
- function getPIDEE : TBits_1; inline;
- procedure setBMXEE(thebits : TBits_1); inline;
- procedure setBTOEE(thebits : TBits_1); inline;
- procedure setBTSEE(thebits : TBits_1); inline;
- procedure setCRC16EE(thebits : TBits_1); inline;
- procedure setCRC5EE(thebits : TBits_1); inline;
- procedure setCRC5EE_EOFEE(thebits : TBits_1); inline;
- procedure setDFN8EE(thebits : TBits_1); inline;
- procedure setDMAEE(thebits : TBits_1); inline;
- procedure setEOFEE(thebits : TBits_1); inline;
- procedure setPIDEE(thebits : TBits_1); inline;
- public
- procedure clearBMXEE; inline;
- procedure clearBTOEE; inline;
- procedure clearBTSEE; inline;
- procedure clearCRC16EE; inline;
- procedure clearCRC5EE; inline;
- procedure clearCRC5EE_EOFEE; inline;
- procedure clearDFN8EE; inline;
- procedure clearDMAEE; inline;
- procedure clearEOFEE; inline;
- procedure clearPIDEE; inline;
- procedure setBMXEE; inline;
- procedure setBTOEE; inline;
- procedure setBTSEE; inline;
- procedure setCRC16EE; inline;
- procedure setCRC5EE; inline;
- procedure setCRC5EE_EOFEE; inline;
- procedure setDFN8EE; inline;
- procedure setDMAEE; inline;
- procedure setEOFEE; inline;
- procedure setPIDEE; inline;
- property BMXEE : TBits_1 read getBMXEE write setBMXEE;
- property BTOEE : TBits_1 read getBTOEE write setBTOEE;
- property BTSEE : TBits_1 read getBTSEE write setBTSEE;
- property CRC16EE : TBits_1 read getCRC16EE write setCRC16EE;
- property CRC5EE : TBits_1 read getCRC5EE write setCRC5EE;
- property CRC5EE_EOFEE : TBits_1 read getCRC5EE_EOFEE write setCRC5EE_EOFEE;
- property DFN8EE : TBits_1 read getDFN8EE write setDFN8EE;
- property DMAEE : TBits_1 read getDMAEE write setDMAEE;
- property EOFEE : TBits_1 read getEOFEE write setEOFEE;
- property PIDEE : TBits_1 read getPIDEE write setPIDEE;
- end;
- TUSB_U1STAT = record
- private
- function getDIR : TBits_1; inline;
- function getENDPT : TBits_4; inline;
- function getENDPT0 : TBits_1; inline;
- function getENDPT1 : TBits_1; inline;
- function getENDPT2 : TBits_1; inline;
- function getENDPT3 : TBits_1; inline;
- function getPPBI : TBits_1; inline;
- procedure setDIR(thebits : TBits_1); inline;
- procedure setENDPT(thebits : TBits_4); inline;
- procedure setENDPT0(thebits : TBits_1); inline;
- procedure setENDPT1(thebits : TBits_1); inline;
- procedure setENDPT2(thebits : TBits_1); inline;
- procedure setENDPT3(thebits : TBits_1); inline;
- procedure setPPBI(thebits : TBits_1); inline;
- public
- procedure clearDIR; inline;
- procedure clearENDPT0; inline;
- procedure clearENDPT1; inline;
- procedure clearENDPT2; inline;
- procedure clearENDPT3; inline;
- procedure clearPPBI; inline;
- procedure setDIR; inline;
- procedure setENDPT0; inline;
- procedure setENDPT1; inline;
- procedure setENDPT2; inline;
- procedure setENDPT3; inline;
- procedure setPPBI; inline;
- property DIR : TBits_1 read getDIR write setDIR;
- property ENDPT : TBits_4 read getENDPT write setENDPT;
- property ENDPT0 : TBits_1 read getENDPT0 write setENDPT0;
- property ENDPT1 : TBits_1 read getENDPT1 write setENDPT1;
- property ENDPT2 : TBits_1 read getENDPT2 write setENDPT2;
- property ENDPT3 : TBits_1 read getENDPT3 write setENDPT3;
- property PPBI : TBits_1 read getPPBI write setPPBI;
- end;
- TUSB_U1CON = record
- private
- function getHOSTEN : TBits_1; inline;
- function getJSTATE : TBits_1; inline;
- function getPKTDIS : TBits_1; inline;
- function getPKTDIS_TOKBUSY : TBits_1; inline;
- function getPPBRST : TBits_1; inline;
- function getRESUME : TBits_1; inline;
- function getSE0 : TBits_1; inline;
- function getSOFEN : TBits_1; inline;
- function getTOKBUSY : TBits_1; inline;
- function getUSBEN : TBits_1; inline;
- function getUSBEN_SOFEN : TBits_1; inline;
- function getUSBRST : TBits_1; inline;
- procedure setHOSTEN(thebits : TBits_1); inline;
- procedure setJSTATE(thebits : TBits_1); inline;
- procedure setPKTDIS(thebits : TBits_1); inline;
- procedure setPKTDIS_TOKBUSY(thebits : TBits_1); inline;
- procedure setPPBRST(thebits : TBits_1); inline;
- procedure setRESUME(thebits : TBits_1); inline;
- procedure setSE0(thebits : TBits_1); inline;
- procedure setSOFEN(thebits : TBits_1); inline;
- procedure setTOKBUSY(thebits : TBits_1); inline;
- procedure setUSBEN(thebits : TBits_1); inline;
- procedure setUSBEN_SOFEN(thebits : TBits_1); inline;
- procedure setUSBRST(thebits : TBits_1); inline;
- public
- procedure clearHOSTEN; inline;
- procedure clearJSTATE; inline;
- procedure clearPKTDIS; inline;
- procedure clearPKTDIS_TOKBUSY; inline;
- procedure clearPPBRST; inline;
- procedure clearRESUME; inline;
- procedure clearSE0; inline;
- procedure clearSOFEN; inline;
- procedure clearTOKBUSY; inline;
- procedure clearUSBEN; inline;
- procedure clearUSBEN_SOFEN; inline;
- procedure clearUSBRST; inline;
- procedure setHOSTEN; inline;
- procedure setJSTATE; inline;
- procedure setPKTDIS; inline;
- procedure setPKTDIS_TOKBUSY; inline;
- procedure setPPBRST; inline;
- procedure setRESUME; inline;
- procedure setSE0; inline;
- procedure setSOFEN; inline;
- procedure setTOKBUSY; inline;
- procedure setUSBEN; inline;
- procedure setUSBEN_SOFEN; inline;
- procedure setUSBRST; inline;
- property HOSTEN : TBits_1 read getHOSTEN write setHOSTEN;
- property JSTATE : TBits_1 read getJSTATE write setJSTATE;
- property PKTDIS : TBits_1 read getPKTDIS write setPKTDIS;
- property PKTDIS_TOKBUSY : TBits_1 read getPKTDIS_TOKBUSY write setPKTDIS_TOKBUSY;
- property PPBRST : TBits_1 read getPPBRST write setPPBRST;
- property RESUME : TBits_1 read getRESUME write setRESUME;
- property SE0 : TBits_1 read getSE0 write setSE0;
- property SOFEN : TBits_1 read getSOFEN write setSOFEN;
- property TOKBUSY : TBits_1 read getTOKBUSY write setTOKBUSY;
- property USBEN : TBits_1 read getUSBEN write setUSBEN;
- property USBEN_SOFEN : TBits_1 read getUSBEN_SOFEN write setUSBEN_SOFEN;
- property USBRST : TBits_1 read getUSBRST write setUSBRST;
- end;
- TUSB_U1ADDR = record
- private
- function getDEVADDR : TBits_7; inline;
- function getDEVADDR0 : TBits_1; inline;
- function getDEVADDR1 : TBits_1; inline;
- function getDEVADDR2 : TBits_1; inline;
- function getDEVADDR3 : TBits_1; inline;
- function getDEVADDR4 : TBits_1; inline;
- function getDEVADDR5 : TBits_1; inline;
- function getDEVADDR6 : TBits_1; inline;
- function getLSPDEN : TBits_1; inline;
- procedure setDEVADDR(thebits : TBits_7); inline;
- procedure setDEVADDR0(thebits : TBits_1); inline;
- procedure setDEVADDR1(thebits : TBits_1); inline;
- procedure setDEVADDR2(thebits : TBits_1); inline;
- procedure setDEVADDR3(thebits : TBits_1); inline;
- procedure setDEVADDR4(thebits : TBits_1); inline;
- procedure setDEVADDR5(thebits : TBits_1); inline;
- procedure setDEVADDR6(thebits : TBits_1); inline;
- procedure setLSPDEN(thebits : TBits_1); inline;
- public
- procedure clearDEVADDR0; inline;
- procedure clearDEVADDR1; inline;
- procedure clearDEVADDR2; inline;
- procedure clearDEVADDR3; inline;
- procedure clearDEVADDR4; inline;
- procedure clearDEVADDR5; inline;
- procedure clearDEVADDR6; inline;
- procedure clearLSPDEN; inline;
- procedure setDEVADDR0; inline;
- procedure setDEVADDR1; inline;
- procedure setDEVADDR2; inline;
- procedure setDEVADDR3; inline;
- procedure setDEVADDR4; inline;
- procedure setDEVADDR5; inline;
- procedure setDEVADDR6; inline;
- procedure setLSPDEN; inline;
- property DEVADDR : TBits_7 read getDEVADDR write setDEVADDR;
- property DEVADDR0 : TBits_1 read getDEVADDR0 write setDEVADDR0;
- property DEVADDR1 : TBits_1 read getDEVADDR1 write setDEVADDR1;
- property DEVADDR2 : TBits_1 read getDEVADDR2 write setDEVADDR2;
- property DEVADDR3 : TBits_1 read getDEVADDR3 write setDEVADDR3;
- property DEVADDR4 : TBits_1 read getDEVADDR4 write setDEVADDR4;
- property DEVADDR5 : TBits_1 read getDEVADDR5 write setDEVADDR5;
- property DEVADDR6 : TBits_1 read getDEVADDR6 write setDEVADDR6;
- property LSPDEN : TBits_1 read getLSPDEN write setLSPDEN;
- end;
- TUSB_U1FRML = record
- private
- function getFRM0 : TBits_1; inline;
- function getFRM1 : TBits_1; inline;
- function getFRM2 : TBits_1; inline;
- function getFRM3 : TBits_1; inline;
- function getFRM4 : TBits_1; inline;
- function getFRM5 : TBits_1; inline;
- function getFRM6 : TBits_1; inline;
- function getFRM7 : TBits_1; inline;
- function getFRML : TBits_8; inline;
- procedure setFRM0(thebits : TBits_1); inline;
- procedure setFRM1(thebits : TBits_1); inline;
- procedure setFRM2(thebits : TBits_1); inline;
- procedure setFRM3(thebits : TBits_1); inline;
- procedure setFRM4(thebits : TBits_1); inline;
- procedure setFRM5(thebits : TBits_1); inline;
- procedure setFRM6(thebits : TBits_1); inline;
- procedure setFRM7(thebits : TBits_1); inline;
- procedure setFRML(thebits : TBits_8); inline;
- public
- procedure clearFRM0; inline;
- procedure clearFRM1; inline;
- procedure clearFRM2; inline;
- procedure clearFRM3; inline;
- procedure clearFRM4; inline;
- procedure clearFRM5; inline;
- procedure clearFRM6; inline;
- procedure clearFRM7; inline;
- procedure setFRM0; inline;
- procedure setFRM1; inline;
- procedure setFRM2; inline;
- procedure setFRM3; inline;
- procedure setFRM4; inline;
- procedure setFRM5; inline;
- procedure setFRM6; inline;
- procedure setFRM7; inline;
- property FRM0 : TBits_1 read getFRM0 write setFRM0;
- property FRM1 : TBits_1 read getFRM1 write setFRM1;
- property FRM2 : TBits_1 read getFRM2 write setFRM2;
- property FRM3 : TBits_1 read getFRM3 write setFRM3;
- property FRM4 : TBits_1 read getFRM4 write setFRM4;
- property FRM5 : TBits_1 read getFRM5 write setFRM5;
- property FRM6 : TBits_1 read getFRM6 write setFRM6;
- property FRM7 : TBits_1 read getFRM7 write setFRM7;
- property FRML : TBits_8 read getFRML write setFRML;
- end;
- TUSB_U1FRMH = record
- private
- function getFRM10 : TBits_1; inline;
- function getFRM8 : TBits_1; inline;
- function getFRM9 : TBits_1; inline;
- function getFRMH : TBits_3; inline;
- procedure setFRM10(thebits : TBits_1); inline;
- procedure setFRM8(thebits : TBits_1); inline;
- procedure setFRM9(thebits : TBits_1); inline;
- procedure setFRMH(thebits : TBits_3); inline;
- public
- procedure clearFRM10; inline;
- procedure clearFRM8; inline;
- procedure clearFRM9; inline;
- procedure setFRM10; inline;
- procedure setFRM8; inline;
- procedure setFRM9; inline;
- property FRM10 : TBits_1 read getFRM10 write setFRM10;
- property FRM8 : TBits_1 read getFRM8 write setFRM8;
- property FRM9 : TBits_1 read getFRM9 write setFRM9;
- property FRMH : TBits_3 read getFRMH write setFRMH;
- end;
- TUSB_U1TOK = record
- private
- function getEP : TBits_4; inline;
- function getEP0 : TBits_1; inline;
- function getEP1 : TBits_1; inline;
- function getEP2 : TBits_1; inline;
- function getEP3 : TBits_1; inline;
- function getPID : TBits_4; inline;
- function getPID0 : TBits_1; inline;
- function getPID1 : TBits_1; inline;
- function getPID2 : TBits_1; inline;
- function getPID3 : TBits_1; inline;
- procedure setEP(thebits : TBits_4); inline;
- procedure setEP0(thebits : TBits_1); inline;
- procedure setEP1(thebits : TBits_1); inline;
- procedure setEP2(thebits : TBits_1); inline;
- procedure setEP3(thebits : TBits_1); inline;
- procedure setPID(thebits : TBits_4); inline;
- procedure setPID0(thebits : TBits_1); inline;
- procedure setPID1(thebits : TBits_1); inline;
- procedure setPID2(thebits : TBits_1); inline;
- procedure setPID3(thebits : TBits_1); inline;
- public
- procedure clearEP0; inline;
- procedure clearEP1; inline;
- procedure clearEP2; inline;
- procedure clearEP3; inline;
- procedure clearPID0; inline;
- procedure clearPID1; inline;
- procedure clearPID2; inline;
- procedure clearPID3; inline;
- procedure setEP0; inline;
- procedure setEP1; inline;
- procedure setEP2; inline;
- procedure setEP3; inline;
- procedure setPID0; inline;
- procedure setPID1; inline;
- procedure setPID2; inline;
- procedure setPID3; inline;
- property EP : TBits_4 read getEP write setEP;
- property EP0 : TBits_1 read getEP0 write setEP0;
- property EP1 : TBits_1 read getEP1 write setEP1;
- property EP2 : TBits_1 read getEP2 write setEP2;
- property EP3 : TBits_1 read getEP3 write setEP3;
- property PID : TBits_4 read getPID write setPID;
- property PID0 : TBits_1 read getPID0 write setPID0;
- property PID1 : TBits_1 read getPID1 write setPID1;
- property PID2 : TBits_1 read getPID2 write setPID2;
- property PID3 : TBits_1 read getPID3 write setPID3;
- end;
- TUSB_ANSELA = record
- private
- function getANSA10 : TBits_1; inline;
- function getANSA9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setANSA10(thebits : TBits_1); inline;
- procedure setANSA9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearANSA10; inline;
- procedure clearANSA9; inline;
- procedure setANSA10; inline;
- procedure setANSA9; inline;
- property ANSA10 : TBits_1 read getANSA10 write setANSA10;
- property ANSA9 : TBits_1 read getANSA9 write setANSA9;
- property w : TBits_32 read getw write setw;
- end;
- TUSB_TRISA = record
- private
- function getTRISA0 : TBits_1; inline;
- function getTRISA1 : TBits_1; inline;
- function getTRISA10 : TBits_1; inline;
- function getTRISA14 : TBits_1; inline;
- function getTRISA15 : TBits_1; inline;
- function getTRISA2 : TBits_1; inline;
- function getTRISA3 : TBits_1; inline;
- function getTRISA4 : TBits_1; inline;
- function getTRISA5 : TBits_1; inline;
- function getTRISA6 : TBits_1; inline;
- function getTRISA7 : TBits_1; inline;
- function getTRISA9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setTRISA0(thebits : TBits_1); inline;
- procedure setTRISA1(thebits : TBits_1); inline;
- procedure setTRISA10(thebits : TBits_1); inline;
- procedure setTRISA14(thebits : TBits_1); inline;
- procedure setTRISA15(thebits : TBits_1); inline;
- procedure setTRISA2(thebits : TBits_1); inline;
- procedure setTRISA3(thebits : TBits_1); inline;
- procedure setTRISA4(thebits : TBits_1); inline;
- procedure setTRISA5(thebits : TBits_1); inline;
- procedure setTRISA6(thebits : TBits_1); inline;
- procedure setTRISA7(thebits : TBits_1); inline;
- procedure setTRISA9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearTRISA0; inline;
- procedure clearTRISA10; inline;
- procedure clearTRISA14; inline;
- procedure clearTRISA15; inline;
- procedure clearTRISA1; inline;
- procedure clearTRISA2; inline;
- procedure clearTRISA3; inline;
- procedure clearTRISA4; inline;
- procedure clearTRISA5; inline;
- procedure clearTRISA6; inline;
- procedure clearTRISA7; inline;
- procedure clearTRISA9; inline;
- procedure setTRISA0; inline;
- procedure setTRISA10; inline;
- procedure setTRISA14; inline;
- procedure setTRISA15; inline;
- procedure setTRISA1; inline;
- procedure setTRISA2; inline;
- procedure setTRISA3; inline;
- procedure setTRISA4; inline;
- procedure setTRISA5; inline;
- procedure setTRISA6; inline;
- procedure setTRISA7; inline;
- procedure setTRISA9; inline;
- property TRISA0 : TBits_1 read getTRISA0 write setTRISA0;
- property TRISA1 : TBits_1 read getTRISA1 write setTRISA1;
- property TRISA10 : TBits_1 read getTRISA10 write setTRISA10;
- property TRISA14 : TBits_1 read getTRISA14 write setTRISA14;
- property TRISA15 : TBits_1 read getTRISA15 write setTRISA15;
- property TRISA2 : TBits_1 read getTRISA2 write setTRISA2;
- property TRISA3 : TBits_1 read getTRISA3 write setTRISA3;
- property TRISA4 : TBits_1 read getTRISA4 write setTRISA4;
- property TRISA5 : TBits_1 read getTRISA5 write setTRISA5;
- property TRISA6 : TBits_1 read getTRISA6 write setTRISA6;
- property TRISA7 : TBits_1 read getTRISA7 write setTRISA7;
- property TRISA9 : TBits_1 read getTRISA9 write setTRISA9;
- property w : TBits_32 read getw write setw;
- end;
- type
- TUSBRegisters = record
- U1OTGIR : longWord;
- U1OTGIRCLR : longWord;
- U1OTGIE : longWord;
- U1OTGIECLR : longWord;
- U1OTGIESET : longWord;
- U1OTGIEINV : longWord;
- U1OTGSTAT : longWord;
- U1OTGCON : longWord;
- U1OTGCONCLR : longWord;
- U1OTGCONSET : longWord;
- U1OTGCONINV : longWord;
- U1PWRC : longWord;
- U1PWRCCLR : longWord;
- U1PWRCSET : longWord;
- U1PWRCINV : longWord;
- U1IRbits : TUSB_U1IR;
- U1IR : longWord;
- U1IRCLR : longWord;
- U1IEbits : TUSB_U1IE;
- U1IE : longWord;
- U1IECLR : longWord;
- U1IESET : longWord;
- U1IEINV : longWord;
- U1EIRbits : TUSB_U1EIR;
- U1EIR : longWord;
- U1EIRCLR : longWord;
- U1EIEbits : TUSB_U1EIE;
- U1EIE : longWord;
- U1EIECLR : longWord;
- U1EIESET : longWord;
- U1EIEINV : longWord;
- U1STATbits : TUSB_U1STAT;
- U1STAT : longWord;
- U1CONbits : TUSB_U1CON;
- U1CON : longWord;
- U1CONCLR : longWord;
- U1CONSET : longWord;
- U1CONINV : longWord;
- U1ADDRbits : TUSB_U1ADDR;
- U1ADDR : longWord;
- U1ADDRCLR : longWord;
- U1ADDRSET : longWord;
- U1ADDRINV : longWord;
- U1BDTP1 : longWord;
- U1BDTP1CLR : longWord;
- U1BDTP1SET : longWord;
- U1BDTP1INV : longWord;
- U1FRMLbits : TUSB_U1FRML;
- U1FRML : longWord;
- U1FRMHbits : TUSB_U1FRMH;
- U1FRMH : longWord;
- U1TOKbits : TUSB_U1TOK;
- U1TOK : longWord;
- U1TOKCLR : longWord;
- U1TOKSET : longWord;
- U1TOKINV : longWord;
- U1SOF : longWord;
- U1SOFCLR : longWord;
- U1SOFSET : longWord;
- U1SOFINV : longWord;
- U1BDTP2 : longWord;
- U1BDTP2CLR : longWord;
- U1BDTP2SET : longWord;
- U1BDTP2INV : longWord;
- U1BDTP3 : longWord;
- U1BDTP3CLR : longWord;
- U1BDTP3SET : longWord;
- U1BDTP3INV : longWord;
- U1CNFG1 : longWord;
- U1CNFG1CLR : longWord;
- U1CNFG1SET : longWord;
- U1CNFG1INV : longWord;
- U1EP0 : longWord;
- U1EP0CLR : longWord;
- U1EP0SET : longWord;
- U1EP0INV : longWord;
- U1EP1 : longWord;
- U1EP1CLR : longWord;
- U1EP1SET : longWord;
- U1EP1INV : longWord;
- U1EP2 : longWord;
- U1EP2CLR : longWord;
- U1EP2SET : longWord;
- U1EP2INV : longWord;
- U1EP3 : longWord;
- U1EP3CLR : longWord;
- U1EP3SET : longWord;
- U1EP3INV : longWord;
- U1EP4 : longWord;
- U1EP4CLR : longWord;
- U1EP4SET : longWord;
- U1EP4INV : longWord;
- U1EP5 : longWord;
- U1EP5CLR : longWord;
- U1EP5SET : longWord;
- U1EP5INV : longWord;
- U1EP6 : longWord;
- U1EP6CLR : longWord;
- U1EP6SET : longWord;
- U1EP6INV : longWord;
- U1EP7 : longWord;
- U1EP7CLR : longWord;
- U1EP7SET : longWord;
- U1EP7INV : longWord;
- U1EP8 : longWord;
- U1EP8CLR : longWord;
- U1EP8SET : longWord;
- U1EP8INV : longWord;
- U1EP9 : longWord;
- U1EP9CLR : longWord;
- U1EP9SET : longWord;
- U1EP9INV : longWord;
- U1EP10 : longWord;
- U1EP10CLR : longWord;
- U1EP10SET : longWord;
- U1EP10INV : longWord;
- U1EP11 : longWord;
- U1EP11CLR : longWord;
- U1EP11SET : longWord;
- U1EP11INV : longWord;
- U1EP12 : longWord;
- U1EP12CLR : longWord;
- U1EP12SET : longWord;
- U1EP12INV : longWord;
- U1EP13 : longWord;
- U1EP13CLR : longWord;
- U1EP13SET : longWord;
- U1EP13INV : longWord;
- U1EP14 : longWord;
- U1EP14CLR : longWord;
- U1EP14SET : longWord;
- U1EP14INV : longWord;
- U1EP15 : longWord;
- U1EP15CLR : longWord;
- U1EP15SET : longWord;
- U1EP15INV : longWord;
- ANSELAbits : TUSB_ANSELA;
- ANSELA : longWord;
- ANSELACLR : longWord;
- ANSELASET : longWord;
- ANSELAINV : longWord;
- TRISAbits : TUSB_TRISA;
- TRISA : longWord;
- TRISACLR : longWord;
- TRISASET : longWord;
- TRISAINV : longWord;
- end;
- TPORTA_PORTA = record
- private
- function getRA0 : TBits_1; inline;
- function getRA1 : TBits_1; inline;
- function getRA10 : TBits_1; inline;
- function getRA14 : TBits_1; inline;
- function getRA15 : TBits_1; inline;
- function getRA2 : TBits_1; inline;
- function getRA3 : TBits_1; inline;
- function getRA4 : TBits_1; inline;
- function getRA5 : TBits_1; inline;
- function getRA6 : TBits_1; inline;
- function getRA7 : TBits_1; inline;
- function getRA9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setRA0(thebits : TBits_1); inline;
- procedure setRA1(thebits : TBits_1); inline;
- procedure setRA10(thebits : TBits_1); inline;
- procedure setRA14(thebits : TBits_1); inline;
- procedure setRA15(thebits : TBits_1); inline;
- procedure setRA2(thebits : TBits_1); inline;
- procedure setRA3(thebits : TBits_1); inline;
- procedure setRA4(thebits : TBits_1); inline;
- procedure setRA5(thebits : TBits_1); inline;
- procedure setRA6(thebits : TBits_1); inline;
- procedure setRA7(thebits : TBits_1); inline;
- procedure setRA9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearRA0; inline;
- procedure clearRA10; inline;
- procedure clearRA14; inline;
- procedure clearRA15; inline;
- procedure clearRA1; inline;
- procedure clearRA2; inline;
- procedure clearRA3; inline;
- procedure clearRA4; inline;
- procedure clearRA5; inline;
- procedure clearRA6; inline;
- procedure clearRA7; inline;
- procedure clearRA9; inline;
- procedure setRA0; inline;
- procedure setRA10; inline;
- procedure setRA14; inline;
- procedure setRA15; inline;
- procedure setRA1; inline;
- procedure setRA2; inline;
- procedure setRA3; inline;
- procedure setRA4; inline;
- procedure setRA5; inline;
- procedure setRA6; inline;
- procedure setRA7; inline;
- procedure setRA9; inline;
- property RA0 : TBits_1 read getRA0 write setRA0;
- property RA1 : TBits_1 read getRA1 write setRA1;
- property RA10 : TBits_1 read getRA10 write setRA10;
- property RA14 : TBits_1 read getRA14 write setRA14;
- property RA15 : TBits_1 read getRA15 write setRA15;
- property RA2 : TBits_1 read getRA2 write setRA2;
- property RA3 : TBits_1 read getRA3 write setRA3;
- property RA4 : TBits_1 read getRA4 write setRA4;
- property RA5 : TBits_1 read getRA5 write setRA5;
- property RA6 : TBits_1 read getRA6 write setRA6;
- property RA7 : TBits_1 read getRA7 write setRA7;
- property RA9 : TBits_1 read getRA9 write setRA9;
- property w : TBits_32 read getw write setw;
- end;
- TPortA_bits=(RA0=0,RA1=1,RA2=2,RA3=3,RA4=4,RA5=5,RA6=6,RA7=7,RA9=9,RA10=10,RA14=14,RA15=15);
- TPortA_bitset = set of TPortA_bits;
- TPORTA_LATA = record
- private
- function getLATA0 : TBits_1; inline;
- function getLATA1 : TBits_1; inline;
- function getLATA10 : TBits_1; inline;
- function getLATA14 : TBits_1; inline;
- function getLATA15 : TBits_1; inline;
- function getLATA2 : TBits_1; inline;
- function getLATA3 : TBits_1; inline;
- function getLATA4 : TBits_1; inline;
- function getLATA5 : TBits_1; inline;
- function getLATA6 : TBits_1; inline;
- function getLATA7 : TBits_1; inline;
- function getLATA9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setLATA0(thebits : TBits_1); inline;
- procedure setLATA1(thebits : TBits_1); inline;
- procedure setLATA10(thebits : TBits_1); inline;
- procedure setLATA14(thebits : TBits_1); inline;
- procedure setLATA15(thebits : TBits_1); inline;
- procedure setLATA2(thebits : TBits_1); inline;
- procedure setLATA3(thebits : TBits_1); inline;
- procedure setLATA4(thebits : TBits_1); inline;
- procedure setLATA5(thebits : TBits_1); inline;
- procedure setLATA6(thebits : TBits_1); inline;
- procedure setLATA7(thebits : TBits_1); inline;
- procedure setLATA9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearLATA0; inline;
- procedure clearLATA10; inline;
- procedure clearLATA14; inline;
- procedure clearLATA15; inline;
- procedure clearLATA1; inline;
- procedure clearLATA2; inline;
- procedure clearLATA3; inline;
- procedure clearLATA4; inline;
- procedure clearLATA5; inline;
- procedure clearLATA6; inline;
- procedure clearLATA7; inline;
- procedure clearLATA9; inline;
- procedure setLATA0; inline;
- procedure setLATA10; inline;
- procedure setLATA14; inline;
- procedure setLATA15; inline;
- procedure setLATA1; inline;
- procedure setLATA2; inline;
- procedure setLATA3; inline;
- procedure setLATA4; inline;
- procedure setLATA5; inline;
- procedure setLATA6; inline;
- procedure setLATA7; inline;
- procedure setLATA9; inline;
- property LATA0 : TBits_1 read getLATA0 write setLATA0;
- property LATA1 : TBits_1 read getLATA1 write setLATA1;
- property LATA10 : TBits_1 read getLATA10 write setLATA10;
- property LATA14 : TBits_1 read getLATA14 write setLATA14;
- property LATA15 : TBits_1 read getLATA15 write setLATA15;
- property LATA2 : TBits_1 read getLATA2 write setLATA2;
- property LATA3 : TBits_1 read getLATA3 write setLATA3;
- property LATA4 : TBits_1 read getLATA4 write setLATA4;
- property LATA5 : TBits_1 read getLATA5 write setLATA5;
- property LATA6 : TBits_1 read getLATA6 write setLATA6;
- property LATA7 : TBits_1 read getLATA7 write setLATA7;
- property LATA9 : TBits_1 read getLATA9 write setLATA9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTA_ODCA = record
- private
- function getODCA0 : TBits_1; inline;
- function getODCA1 : TBits_1; inline;
- function getODCA10 : TBits_1; inline;
- function getODCA14 : TBits_1; inline;
- function getODCA15 : TBits_1; inline;
- function getODCA2 : TBits_1; inline;
- function getODCA3 : TBits_1; inline;
- function getODCA4 : TBits_1; inline;
- function getODCA5 : TBits_1; inline;
- function getODCA6 : TBits_1; inline;
- function getODCA7 : TBits_1; inline;
- function getODCA9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setODCA0(thebits : TBits_1); inline;
- procedure setODCA1(thebits : TBits_1); inline;
- procedure setODCA10(thebits : TBits_1); inline;
- procedure setODCA14(thebits : TBits_1); inline;
- procedure setODCA15(thebits : TBits_1); inline;
- procedure setODCA2(thebits : TBits_1); inline;
- procedure setODCA3(thebits : TBits_1); inline;
- procedure setODCA4(thebits : TBits_1); inline;
- procedure setODCA5(thebits : TBits_1); inline;
- procedure setODCA6(thebits : TBits_1); inline;
- procedure setODCA7(thebits : TBits_1); inline;
- procedure setODCA9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearODCA0; inline;
- procedure clearODCA10; inline;
- procedure clearODCA14; inline;
- procedure clearODCA15; inline;
- procedure clearODCA1; inline;
- procedure clearODCA2; inline;
- procedure clearODCA3; inline;
- procedure clearODCA4; inline;
- procedure clearODCA5; inline;
- procedure clearODCA6; inline;
- procedure clearODCA7; inline;
- procedure clearODCA9; inline;
- procedure setODCA0; inline;
- procedure setODCA10; inline;
- procedure setODCA14; inline;
- procedure setODCA15; inline;
- procedure setODCA1; inline;
- procedure setODCA2; inline;
- procedure setODCA3; inline;
- procedure setODCA4; inline;
- procedure setODCA5; inline;
- procedure setODCA6; inline;
- procedure setODCA7; inline;
- procedure setODCA9; inline;
- property ODCA0 : TBits_1 read getODCA0 write setODCA0;
- property ODCA1 : TBits_1 read getODCA1 write setODCA1;
- property ODCA10 : TBits_1 read getODCA10 write setODCA10;
- property ODCA14 : TBits_1 read getODCA14 write setODCA14;
- property ODCA15 : TBits_1 read getODCA15 write setODCA15;
- property ODCA2 : TBits_1 read getODCA2 write setODCA2;
- property ODCA3 : TBits_1 read getODCA3 write setODCA3;
- property ODCA4 : TBits_1 read getODCA4 write setODCA4;
- property ODCA5 : TBits_1 read getODCA5 write setODCA5;
- property ODCA6 : TBits_1 read getODCA6 write setODCA6;
- property ODCA7 : TBits_1 read getODCA7 write setODCA7;
- property ODCA9 : TBits_1 read getODCA9 write setODCA9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTA_CNPUA = record
- private
- function getCNPUA0 : TBits_1; inline;
- function getCNPUA1 : TBits_1; inline;
- function getCNPUA10 : TBits_1; inline;
- function getCNPUA14 : TBits_1; inline;
- function getCNPUA15 : TBits_1; inline;
- function getCNPUA2 : TBits_1; inline;
- function getCNPUA3 : TBits_1; inline;
- function getCNPUA4 : TBits_1; inline;
- function getCNPUA5 : TBits_1; inline;
- function getCNPUA6 : TBits_1; inline;
- function getCNPUA7 : TBits_1; inline;
- function getCNPUA9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNPUA0(thebits : TBits_1); inline;
- procedure setCNPUA1(thebits : TBits_1); inline;
- procedure setCNPUA10(thebits : TBits_1); inline;
- procedure setCNPUA14(thebits : TBits_1); inline;
- procedure setCNPUA15(thebits : TBits_1); inline;
- procedure setCNPUA2(thebits : TBits_1); inline;
- procedure setCNPUA3(thebits : TBits_1); inline;
- procedure setCNPUA4(thebits : TBits_1); inline;
- procedure setCNPUA5(thebits : TBits_1); inline;
- procedure setCNPUA6(thebits : TBits_1); inline;
- procedure setCNPUA7(thebits : TBits_1); inline;
- procedure setCNPUA9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNPUA0; inline;
- procedure clearCNPUA10; inline;
- procedure clearCNPUA14; inline;
- procedure clearCNPUA15; inline;
- procedure clearCNPUA1; inline;
- procedure clearCNPUA2; inline;
- procedure clearCNPUA3; inline;
- procedure clearCNPUA4; inline;
- procedure clearCNPUA5; inline;
- procedure clearCNPUA6; inline;
- procedure clearCNPUA7; inline;
- procedure clearCNPUA9; inline;
- procedure setCNPUA0; inline;
- procedure setCNPUA10; inline;
- procedure setCNPUA14; inline;
- procedure setCNPUA15; inline;
- procedure setCNPUA1; inline;
- procedure setCNPUA2; inline;
- procedure setCNPUA3; inline;
- procedure setCNPUA4; inline;
- procedure setCNPUA5; inline;
- procedure setCNPUA6; inline;
- procedure setCNPUA7; inline;
- procedure setCNPUA9; inline;
- property CNPUA0 : TBits_1 read getCNPUA0 write setCNPUA0;
- property CNPUA1 : TBits_1 read getCNPUA1 write setCNPUA1;
- property CNPUA10 : TBits_1 read getCNPUA10 write setCNPUA10;
- property CNPUA14 : TBits_1 read getCNPUA14 write setCNPUA14;
- property CNPUA15 : TBits_1 read getCNPUA15 write setCNPUA15;
- property CNPUA2 : TBits_1 read getCNPUA2 write setCNPUA2;
- property CNPUA3 : TBits_1 read getCNPUA3 write setCNPUA3;
- property CNPUA4 : TBits_1 read getCNPUA4 write setCNPUA4;
- property CNPUA5 : TBits_1 read getCNPUA5 write setCNPUA5;
- property CNPUA6 : TBits_1 read getCNPUA6 write setCNPUA6;
- property CNPUA7 : TBits_1 read getCNPUA7 write setCNPUA7;
- property CNPUA9 : TBits_1 read getCNPUA9 write setCNPUA9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTA_CNPDA = record
- private
- function getCNPDA0 : TBits_1; inline;
- function getCNPDA1 : TBits_1; inline;
- function getCNPDA10 : TBits_1; inline;
- function getCNPDA14 : TBits_1; inline;
- function getCNPDA15 : TBits_1; inline;
- function getCNPDA2 : TBits_1; inline;
- function getCNPDA3 : TBits_1; inline;
- function getCNPDA4 : TBits_1; inline;
- function getCNPDA5 : TBits_1; inline;
- function getCNPDA6 : TBits_1; inline;
- function getCNPDA7 : TBits_1; inline;
- function getCNPDA9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNPDA0(thebits : TBits_1); inline;
- procedure setCNPDA1(thebits : TBits_1); inline;
- procedure setCNPDA10(thebits : TBits_1); inline;
- procedure setCNPDA14(thebits : TBits_1); inline;
- procedure setCNPDA15(thebits : TBits_1); inline;
- procedure setCNPDA2(thebits : TBits_1); inline;
- procedure setCNPDA3(thebits : TBits_1); inline;
- procedure setCNPDA4(thebits : TBits_1); inline;
- procedure setCNPDA5(thebits : TBits_1); inline;
- procedure setCNPDA6(thebits : TBits_1); inline;
- procedure setCNPDA7(thebits : TBits_1); inline;
- procedure setCNPDA9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNPDA0; inline;
- procedure clearCNPDA10; inline;
- procedure clearCNPDA14; inline;
- procedure clearCNPDA15; inline;
- procedure clearCNPDA1; inline;
- procedure clearCNPDA2; inline;
- procedure clearCNPDA3; inline;
- procedure clearCNPDA4; inline;
- procedure clearCNPDA5; inline;
- procedure clearCNPDA6; inline;
- procedure clearCNPDA7; inline;
- procedure clearCNPDA9; inline;
- procedure setCNPDA0; inline;
- procedure setCNPDA10; inline;
- procedure setCNPDA14; inline;
- procedure setCNPDA15; inline;
- procedure setCNPDA1; inline;
- procedure setCNPDA2; inline;
- procedure setCNPDA3; inline;
- procedure setCNPDA4; inline;
- procedure setCNPDA5; inline;
- procedure setCNPDA6; inline;
- procedure setCNPDA7; inline;
- procedure setCNPDA9; inline;
- property CNPDA0 : TBits_1 read getCNPDA0 write setCNPDA0;
- property CNPDA1 : TBits_1 read getCNPDA1 write setCNPDA1;
- property CNPDA10 : TBits_1 read getCNPDA10 write setCNPDA10;
- property CNPDA14 : TBits_1 read getCNPDA14 write setCNPDA14;
- property CNPDA15 : TBits_1 read getCNPDA15 write setCNPDA15;
- property CNPDA2 : TBits_1 read getCNPDA2 write setCNPDA2;
- property CNPDA3 : TBits_1 read getCNPDA3 write setCNPDA3;
- property CNPDA4 : TBits_1 read getCNPDA4 write setCNPDA4;
- property CNPDA5 : TBits_1 read getCNPDA5 write setCNPDA5;
- property CNPDA6 : TBits_1 read getCNPDA6 write setCNPDA6;
- property CNPDA7 : TBits_1 read getCNPDA7 write setCNPDA7;
- property CNPDA9 : TBits_1 read getCNPDA9 write setCNPDA9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTA_CNCONA = record
- private
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- TPORTA_CNENA = record
- private
- function getCNIEA0 : TBits_1; inline;
- function getCNIEA1 : TBits_1; inline;
- function getCNIEA10 : TBits_1; inline;
- function getCNIEA14 : TBits_1; inline;
- function getCNIEA15 : TBits_1; inline;
- function getCNIEA2 : TBits_1; inline;
- function getCNIEA3 : TBits_1; inline;
- function getCNIEA4 : TBits_1; inline;
- function getCNIEA5 : TBits_1; inline;
- function getCNIEA6 : TBits_1; inline;
- function getCNIEA7 : TBits_1; inline;
- function getCNIEA9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNIEA0(thebits : TBits_1); inline;
- procedure setCNIEA1(thebits : TBits_1); inline;
- procedure setCNIEA10(thebits : TBits_1); inline;
- procedure setCNIEA14(thebits : TBits_1); inline;
- procedure setCNIEA15(thebits : TBits_1); inline;
- procedure setCNIEA2(thebits : TBits_1); inline;
- procedure setCNIEA3(thebits : TBits_1); inline;
- procedure setCNIEA4(thebits : TBits_1); inline;
- procedure setCNIEA5(thebits : TBits_1); inline;
- procedure setCNIEA6(thebits : TBits_1); inline;
- procedure setCNIEA7(thebits : TBits_1); inline;
- procedure setCNIEA9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNIEA0; inline;
- procedure clearCNIEA10; inline;
- procedure clearCNIEA14; inline;
- procedure clearCNIEA15; inline;
- procedure clearCNIEA1; inline;
- procedure clearCNIEA2; inline;
- procedure clearCNIEA3; inline;
- procedure clearCNIEA4; inline;
- procedure clearCNIEA5; inline;
- procedure clearCNIEA6; inline;
- procedure clearCNIEA7; inline;
- procedure clearCNIEA9; inline;
- procedure setCNIEA0; inline;
- procedure setCNIEA10; inline;
- procedure setCNIEA14; inline;
- procedure setCNIEA15; inline;
- procedure setCNIEA1; inline;
- procedure setCNIEA2; inline;
- procedure setCNIEA3; inline;
- procedure setCNIEA4; inline;
- procedure setCNIEA5; inline;
- procedure setCNIEA6; inline;
- procedure setCNIEA7; inline;
- procedure setCNIEA9; inline;
- property CNIEA0 : TBits_1 read getCNIEA0 write setCNIEA0;
- property CNIEA1 : TBits_1 read getCNIEA1 write setCNIEA1;
- property CNIEA10 : TBits_1 read getCNIEA10 write setCNIEA10;
- property CNIEA14 : TBits_1 read getCNIEA14 write setCNIEA14;
- property CNIEA15 : TBits_1 read getCNIEA15 write setCNIEA15;
- property CNIEA2 : TBits_1 read getCNIEA2 write setCNIEA2;
- property CNIEA3 : TBits_1 read getCNIEA3 write setCNIEA3;
- property CNIEA4 : TBits_1 read getCNIEA4 write setCNIEA4;
- property CNIEA5 : TBits_1 read getCNIEA5 write setCNIEA5;
- property CNIEA6 : TBits_1 read getCNIEA6 write setCNIEA6;
- property CNIEA7 : TBits_1 read getCNIEA7 write setCNIEA7;
- property CNIEA9 : TBits_1 read getCNIEA9 write setCNIEA9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTA_CNSTATA = record
- private
- function getCNSTATA0 : TBits_1; inline;
- function getCNSTATA1 : TBits_1; inline;
- function getCNSTATA10 : TBits_1; inline;
- function getCNSTATA14 : TBits_1; inline;
- function getCNSTATA15 : TBits_1; inline;
- function getCNSTATA2 : TBits_1; inline;
- function getCNSTATA3 : TBits_1; inline;
- function getCNSTATA4 : TBits_1; inline;
- function getCNSTATA5 : TBits_1; inline;
- function getCNSTATA6 : TBits_1; inline;
- function getCNSTATA7 : TBits_1; inline;
- function getCNSTATA9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNSTATA0(thebits : TBits_1); inline;
- procedure setCNSTATA1(thebits : TBits_1); inline;
- procedure setCNSTATA10(thebits : TBits_1); inline;
- procedure setCNSTATA14(thebits : TBits_1); inline;
- procedure setCNSTATA15(thebits : TBits_1); inline;
- procedure setCNSTATA2(thebits : TBits_1); inline;
- procedure setCNSTATA3(thebits : TBits_1); inline;
- procedure setCNSTATA4(thebits : TBits_1); inline;
- procedure setCNSTATA5(thebits : TBits_1); inline;
- procedure setCNSTATA6(thebits : TBits_1); inline;
- procedure setCNSTATA7(thebits : TBits_1); inline;
- procedure setCNSTATA9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNSTATA0; inline;
- procedure clearCNSTATA10; inline;
- procedure clearCNSTATA14; inline;
- procedure clearCNSTATA15; inline;
- procedure clearCNSTATA1; inline;
- procedure clearCNSTATA2; inline;
- procedure clearCNSTATA3; inline;
- procedure clearCNSTATA4; inline;
- procedure clearCNSTATA5; inline;
- procedure clearCNSTATA6; inline;
- procedure clearCNSTATA7; inline;
- procedure clearCNSTATA9; inline;
- procedure setCNSTATA0; inline;
- procedure setCNSTATA10; inline;
- procedure setCNSTATA14; inline;
- procedure setCNSTATA15; inline;
- procedure setCNSTATA1; inline;
- procedure setCNSTATA2; inline;
- procedure setCNSTATA3; inline;
- procedure setCNSTATA4; inline;
- procedure setCNSTATA5; inline;
- procedure setCNSTATA6; inline;
- procedure setCNSTATA7; inline;
- procedure setCNSTATA9; inline;
- property CNSTATA0 : TBits_1 read getCNSTATA0 write setCNSTATA0;
- property CNSTATA1 : TBits_1 read getCNSTATA1 write setCNSTATA1;
- property CNSTATA10 : TBits_1 read getCNSTATA10 write setCNSTATA10;
- property CNSTATA14 : TBits_1 read getCNSTATA14 write setCNSTATA14;
- property CNSTATA15 : TBits_1 read getCNSTATA15 write setCNSTATA15;
- property CNSTATA2 : TBits_1 read getCNSTATA2 write setCNSTATA2;
- property CNSTATA3 : TBits_1 read getCNSTATA3 write setCNSTATA3;
- property CNSTATA4 : TBits_1 read getCNSTATA4 write setCNSTATA4;
- property CNSTATA5 : TBits_1 read getCNSTATA5 write setCNSTATA5;
- property CNSTATA6 : TBits_1 read getCNSTATA6 write setCNSTATA6;
- property CNSTATA7 : TBits_1 read getCNSTATA7 write setCNSTATA7;
- property CNSTATA9 : TBits_1 read getCNSTATA9 write setCNSTATA9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTA_ANSELB = record
- private
- function getANSB0 : TBits_1; inline;
- function getANSB1 : TBits_1; inline;
- function getANSB10 : TBits_1; inline;
- function getANSB11 : TBits_1; inline;
- function getANSB12 : TBits_1; inline;
- function getANSB13 : TBits_1; inline;
- function getANSB14 : TBits_1; inline;
- function getANSB15 : TBits_1; inline;
- function getANSB2 : TBits_1; inline;
- function getANSB3 : TBits_1; inline;
- function getANSB4 : TBits_1; inline;
- function getANSB5 : TBits_1; inline;
- function getANSB6 : TBits_1; inline;
- function getANSB7 : TBits_1; inline;
- function getANSB8 : TBits_1; inline;
- function getANSB9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setANSB0(thebits : TBits_1); inline;
- procedure setANSB1(thebits : TBits_1); inline;
- procedure setANSB10(thebits : TBits_1); inline;
- procedure setANSB11(thebits : TBits_1); inline;
- procedure setANSB12(thebits : TBits_1); inline;
- procedure setANSB13(thebits : TBits_1); inline;
- procedure setANSB14(thebits : TBits_1); inline;
- procedure setANSB15(thebits : TBits_1); inline;
- procedure setANSB2(thebits : TBits_1); inline;
- procedure setANSB3(thebits : TBits_1); inline;
- procedure setANSB4(thebits : TBits_1); inline;
- procedure setANSB5(thebits : TBits_1); inline;
- procedure setANSB6(thebits : TBits_1); inline;
- procedure setANSB7(thebits : TBits_1); inline;
- procedure setANSB8(thebits : TBits_1); inline;
- procedure setANSB9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearANSB0; inline;
- procedure clearANSB10; inline;
- procedure clearANSB11; inline;
- procedure clearANSB12; inline;
- procedure clearANSB13; inline;
- procedure clearANSB14; inline;
- procedure clearANSB15; inline;
- procedure clearANSB1; inline;
- procedure clearANSB2; inline;
- procedure clearANSB3; inline;
- procedure clearANSB4; inline;
- procedure clearANSB5; inline;
- procedure clearANSB6; inline;
- procedure clearANSB7; inline;
- procedure clearANSB8; inline;
- procedure clearANSB9; inline;
- procedure setANSB0; inline;
- procedure setANSB10; inline;
- procedure setANSB11; inline;
- procedure setANSB12; inline;
- procedure setANSB13; inline;
- procedure setANSB14; inline;
- procedure setANSB15; inline;
- procedure setANSB1; inline;
- procedure setANSB2; inline;
- procedure setANSB3; inline;
- procedure setANSB4; inline;
- procedure setANSB5; inline;
- procedure setANSB6; inline;
- procedure setANSB7; inline;
- procedure setANSB8; inline;
- procedure setANSB9; inline;
- property ANSB0 : TBits_1 read getANSB0 write setANSB0;
- property ANSB1 : TBits_1 read getANSB1 write setANSB1;
- property ANSB10 : TBits_1 read getANSB10 write setANSB10;
- property ANSB11 : TBits_1 read getANSB11 write setANSB11;
- property ANSB12 : TBits_1 read getANSB12 write setANSB12;
- property ANSB13 : TBits_1 read getANSB13 write setANSB13;
- property ANSB14 : TBits_1 read getANSB14 write setANSB14;
- property ANSB15 : TBits_1 read getANSB15 write setANSB15;
- property ANSB2 : TBits_1 read getANSB2 write setANSB2;
- property ANSB3 : TBits_1 read getANSB3 write setANSB3;
- property ANSB4 : TBits_1 read getANSB4 write setANSB4;
- property ANSB5 : TBits_1 read getANSB5 write setANSB5;
- property ANSB6 : TBits_1 read getANSB6 write setANSB6;
- property ANSB7 : TBits_1 read getANSB7 write setANSB7;
- property ANSB8 : TBits_1 read getANSB8 write setANSB8;
- property ANSB9 : TBits_1 read getANSB9 write setANSB9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTA_TRISB = record
- private
- function getTRISB0 : TBits_1; inline;
- function getTRISB1 : TBits_1; inline;
- function getTRISB10 : TBits_1; inline;
- function getTRISB11 : TBits_1; inline;
- function getTRISB12 : TBits_1; inline;
- function getTRISB13 : TBits_1; inline;
- function getTRISB14 : TBits_1; inline;
- function getTRISB15 : TBits_1; inline;
- function getTRISB2 : TBits_1; inline;
- function getTRISB3 : TBits_1; inline;
- function getTRISB4 : TBits_1; inline;
- function getTRISB5 : TBits_1; inline;
- function getTRISB6 : TBits_1; inline;
- function getTRISB7 : TBits_1; inline;
- function getTRISB8 : TBits_1; inline;
- function getTRISB9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setTRISB0(thebits : TBits_1); inline;
- procedure setTRISB1(thebits : TBits_1); inline;
- procedure setTRISB10(thebits : TBits_1); inline;
- procedure setTRISB11(thebits : TBits_1); inline;
- procedure setTRISB12(thebits : TBits_1); inline;
- procedure setTRISB13(thebits : TBits_1); inline;
- procedure setTRISB14(thebits : TBits_1); inline;
- procedure setTRISB15(thebits : TBits_1); inline;
- procedure setTRISB2(thebits : TBits_1); inline;
- procedure setTRISB3(thebits : TBits_1); inline;
- procedure setTRISB4(thebits : TBits_1); inline;
- procedure setTRISB5(thebits : TBits_1); inline;
- procedure setTRISB6(thebits : TBits_1); inline;
- procedure setTRISB7(thebits : TBits_1); inline;
- procedure setTRISB8(thebits : TBits_1); inline;
- procedure setTRISB9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearTRISB0; inline;
- procedure clearTRISB10; inline;
- procedure clearTRISB11; inline;
- procedure clearTRISB12; inline;
- procedure clearTRISB13; inline;
- procedure clearTRISB14; inline;
- procedure clearTRISB15; inline;
- procedure clearTRISB1; inline;
- procedure clearTRISB2; inline;
- procedure clearTRISB3; inline;
- procedure clearTRISB4; inline;
- procedure clearTRISB5; inline;
- procedure clearTRISB6; inline;
- procedure clearTRISB7; inline;
- procedure clearTRISB8; inline;
- procedure clearTRISB9; inline;
- procedure setTRISB0; inline;
- procedure setTRISB10; inline;
- procedure setTRISB11; inline;
- procedure setTRISB12; inline;
- procedure setTRISB13; inline;
- procedure setTRISB14; inline;
- procedure setTRISB15; inline;
- procedure setTRISB1; inline;
- procedure setTRISB2; inline;
- procedure setTRISB3; inline;
- procedure setTRISB4; inline;
- procedure setTRISB5; inline;
- procedure setTRISB6; inline;
- procedure setTRISB7; inline;
- procedure setTRISB8; inline;
- procedure setTRISB9; inline;
- property TRISB0 : TBits_1 read getTRISB0 write setTRISB0;
- property TRISB1 : TBits_1 read getTRISB1 write setTRISB1;
- property TRISB10 : TBits_1 read getTRISB10 write setTRISB10;
- property TRISB11 : TBits_1 read getTRISB11 write setTRISB11;
- property TRISB12 : TBits_1 read getTRISB12 write setTRISB12;
- property TRISB13 : TBits_1 read getTRISB13 write setTRISB13;
- property TRISB14 : TBits_1 read getTRISB14 write setTRISB14;
- property TRISB15 : TBits_1 read getTRISB15 write setTRISB15;
- property TRISB2 : TBits_1 read getTRISB2 write setTRISB2;
- property TRISB3 : TBits_1 read getTRISB3 write setTRISB3;
- property TRISB4 : TBits_1 read getTRISB4 write setTRISB4;
- property TRISB5 : TBits_1 read getTRISB5 write setTRISB5;
- property TRISB6 : TBits_1 read getTRISB6 write setTRISB6;
- property TRISB7 : TBits_1 read getTRISB7 write setTRISB7;
- property TRISB8 : TBits_1 read getTRISB8 write setTRISB8;
- property TRISB9 : TBits_1 read getTRISB9 write setTRISB9;
- property w : TBits_32 read getw write setw;
- end;
- type
- TPORTARegisters = record
- PORTAbits : TPORTA_PORTA;
- PORTA : longWord;
- PORTACLR : longWord;
- PORTASET : longWord;
- PORTAINV : longWord;
- LATAbits : TPORTA_LATA;
- LATA : longWord;
- LATACLR : longWord;
- LATASET : longWord;
- LATAINV : longWord;
- ODCAbits : TPORTA_ODCA;
- ODCA : longWord;
- ODCACLR : longWord;
- ODCASET : longWord;
- ODCAINV : longWord;
- CNPUAbits : TPORTA_CNPUA;
- CNPUA : longWord;
- CNPUACLR : longWord;
- CNPUASET : longWord;
- CNPUAINV : longWord;
- CNPDAbits : TPORTA_CNPDA;
- CNPDA : longWord;
- CNPDACLR : longWord;
- CNPDASET : longWord;
- CNPDAINV : longWord;
- CNCONAbits : TPORTA_CNCONA;
- CNCONA : longWord;
- CNCONACLR : longWord;
- CNCONASET : longWord;
- CNCONAINV : longWord;
- CNENAbits : TPORTA_CNENA;
- CNENA : longWord;
- CNENACLR : longWord;
- CNENASET : longWord;
- CNENAINV : longWord;
- CNSTATAbits : TPORTA_CNSTATA;
- CNSTATA : longWord;
- CNSTATACLR : longWord;
- CNSTATASET : longWord;
- CNSTATAINV : longWord;
- ANSELBbits : TPORTA_ANSELB;
- ANSELB : longWord;
- ANSELBCLR : longWord;
- ANSELBSET : longWord;
- ANSELBINV : longWord;
- TRISBbits : TPORTA_TRISB;
- TRISB : longWord;
- TRISBCLR : longWord;
- TRISBSET : longWord;
- TRISBINV : longWord;
- end;
- TPORTB_PORTB = record
- private
- function getRB0 : TBits_1; inline;
- function getRB1 : TBits_1; inline;
- function getRB10 : TBits_1; inline;
- function getRB11 : TBits_1; inline;
- function getRB12 : TBits_1; inline;
- function getRB13 : TBits_1; inline;
- function getRB14 : TBits_1; inline;
- function getRB15 : TBits_1; inline;
- function getRB2 : TBits_1; inline;
- function getRB3 : TBits_1; inline;
- function getRB4 : TBits_1; inline;
- function getRB5 : TBits_1; inline;
- function getRB6 : TBits_1; inline;
- function getRB7 : TBits_1; inline;
- function getRB8 : TBits_1; inline;
- function getRB9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setRB0(thebits : TBits_1); inline;
- procedure setRB1(thebits : TBits_1); inline;
- procedure setRB10(thebits : TBits_1); inline;
- procedure setRB11(thebits : TBits_1); inline;
- procedure setRB12(thebits : TBits_1); inline;
- procedure setRB13(thebits : TBits_1); inline;
- procedure setRB14(thebits : TBits_1); inline;
- procedure setRB15(thebits : TBits_1); inline;
- procedure setRB2(thebits : TBits_1); inline;
- procedure setRB3(thebits : TBits_1); inline;
- procedure setRB4(thebits : TBits_1); inline;
- procedure setRB5(thebits : TBits_1); inline;
- procedure setRB6(thebits : TBits_1); inline;
- procedure setRB7(thebits : TBits_1); inline;
- procedure setRB8(thebits : TBits_1); inline;
- procedure setRB9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearRB0; inline;
- procedure clearRB10; inline;
- procedure clearRB11; inline;
- procedure clearRB12; inline;
- procedure clearRB13; inline;
- procedure clearRB14; inline;
- procedure clearRB15; inline;
- procedure clearRB1; inline;
- procedure clearRB2; inline;
- procedure clearRB3; inline;
- procedure clearRB4; inline;
- procedure clearRB5; inline;
- procedure clearRB6; inline;
- procedure clearRB7; inline;
- procedure clearRB8; inline;
- procedure clearRB9; inline;
- procedure setRB0; inline;
- procedure setRB10; inline;
- procedure setRB11; inline;
- procedure setRB12; inline;
- procedure setRB13; inline;
- procedure setRB14; inline;
- procedure setRB15; inline;
- procedure setRB1; inline;
- procedure setRB2; inline;
- procedure setRB3; inline;
- procedure setRB4; inline;
- procedure setRB5; inline;
- procedure setRB6; inline;
- procedure setRB7; inline;
- procedure setRB8; inline;
- procedure setRB9; inline;
- property RB0 : TBits_1 read getRB0 write setRB0;
- property RB1 : TBits_1 read getRB1 write setRB1;
- property RB10 : TBits_1 read getRB10 write setRB10;
- property RB11 : TBits_1 read getRB11 write setRB11;
- property RB12 : TBits_1 read getRB12 write setRB12;
- property RB13 : TBits_1 read getRB13 write setRB13;
- property RB14 : TBits_1 read getRB14 write setRB14;
- property RB15 : TBits_1 read getRB15 write setRB15;
- property RB2 : TBits_1 read getRB2 write setRB2;
- property RB3 : TBits_1 read getRB3 write setRB3;
- property RB4 : TBits_1 read getRB4 write setRB4;
- property RB5 : TBits_1 read getRB5 write setRB5;
- property RB6 : TBits_1 read getRB6 write setRB6;
- property RB7 : TBits_1 read getRB7 write setRB7;
- property RB8 : TBits_1 read getRB8 write setRB8;
- property RB9 : TBits_1 read getRB9 write setRB9;
- property w : TBits_32 read getw write setw;
- end;
- TPortB_bits=(RB0=0,RB1=1,RB2=2,RB3=3,RB4=4,RB5=5,RB6=6,RB7=7,RB8=8,RB9=9,RB10=10,RB11=11,RB12=12,RB13=13,RB14=14,RB15=15);
- TPortB_bitset = set of TPortB_bits;
- TPORTB_LATB = record
- private
- function getLATB0 : TBits_1; inline;
- function getLATB1 : TBits_1; inline;
- function getLATB10 : TBits_1; inline;
- function getLATB11 : TBits_1; inline;
- function getLATB12 : TBits_1; inline;
- function getLATB13 : TBits_1; inline;
- function getLATB14 : TBits_1; inline;
- function getLATB15 : TBits_1; inline;
- function getLATB2 : TBits_1; inline;
- function getLATB3 : TBits_1; inline;
- function getLATB4 : TBits_1; inline;
- function getLATB5 : TBits_1; inline;
- function getLATB6 : TBits_1; inline;
- function getLATB7 : TBits_1; inline;
- function getLATB8 : TBits_1; inline;
- function getLATB9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setLATB0(thebits : TBits_1); inline;
- procedure setLATB1(thebits : TBits_1); inline;
- procedure setLATB10(thebits : TBits_1); inline;
- procedure setLATB11(thebits : TBits_1); inline;
- procedure setLATB12(thebits : TBits_1); inline;
- procedure setLATB13(thebits : TBits_1); inline;
- procedure setLATB14(thebits : TBits_1); inline;
- procedure setLATB15(thebits : TBits_1); inline;
- procedure setLATB2(thebits : TBits_1); inline;
- procedure setLATB3(thebits : TBits_1); inline;
- procedure setLATB4(thebits : TBits_1); inline;
- procedure setLATB5(thebits : TBits_1); inline;
- procedure setLATB6(thebits : TBits_1); inline;
- procedure setLATB7(thebits : TBits_1); inline;
- procedure setLATB8(thebits : TBits_1); inline;
- procedure setLATB9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearLATB0; inline;
- procedure clearLATB10; inline;
- procedure clearLATB11; inline;
- procedure clearLATB12; inline;
- procedure clearLATB13; inline;
- procedure clearLATB14; inline;
- procedure clearLATB15; inline;
- procedure clearLATB1; inline;
- procedure clearLATB2; inline;
- procedure clearLATB3; inline;
- procedure clearLATB4; inline;
- procedure clearLATB5; inline;
- procedure clearLATB6; inline;
- procedure clearLATB7; inline;
- procedure clearLATB8; inline;
- procedure clearLATB9; inline;
- procedure setLATB0; inline;
- procedure setLATB10; inline;
- procedure setLATB11; inline;
- procedure setLATB12; inline;
- procedure setLATB13; inline;
- procedure setLATB14; inline;
- procedure setLATB15; inline;
- procedure setLATB1; inline;
- procedure setLATB2; inline;
- procedure setLATB3; inline;
- procedure setLATB4; inline;
- procedure setLATB5; inline;
- procedure setLATB6; inline;
- procedure setLATB7; inline;
- procedure setLATB8; inline;
- procedure setLATB9; inline;
- property LATB0 : TBits_1 read getLATB0 write setLATB0;
- property LATB1 : TBits_1 read getLATB1 write setLATB1;
- property LATB10 : TBits_1 read getLATB10 write setLATB10;
- property LATB11 : TBits_1 read getLATB11 write setLATB11;
- property LATB12 : TBits_1 read getLATB12 write setLATB12;
- property LATB13 : TBits_1 read getLATB13 write setLATB13;
- property LATB14 : TBits_1 read getLATB14 write setLATB14;
- property LATB15 : TBits_1 read getLATB15 write setLATB15;
- property LATB2 : TBits_1 read getLATB2 write setLATB2;
- property LATB3 : TBits_1 read getLATB3 write setLATB3;
- property LATB4 : TBits_1 read getLATB4 write setLATB4;
- property LATB5 : TBits_1 read getLATB5 write setLATB5;
- property LATB6 : TBits_1 read getLATB6 write setLATB6;
- property LATB7 : TBits_1 read getLATB7 write setLATB7;
- property LATB8 : TBits_1 read getLATB8 write setLATB8;
- property LATB9 : TBits_1 read getLATB9 write setLATB9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTB_ODCB = record
- private
- function getODCB0 : TBits_1; inline;
- function getODCB1 : TBits_1; inline;
- function getODCB10 : TBits_1; inline;
- function getODCB11 : TBits_1; inline;
- function getODCB12 : TBits_1; inline;
- function getODCB13 : TBits_1; inline;
- function getODCB14 : TBits_1; inline;
- function getODCB15 : TBits_1; inline;
- function getODCB2 : TBits_1; inline;
- function getODCB3 : TBits_1; inline;
- function getODCB4 : TBits_1; inline;
- function getODCB5 : TBits_1; inline;
- function getODCB6 : TBits_1; inline;
- function getODCB7 : TBits_1; inline;
- function getODCB8 : TBits_1; inline;
- function getODCB9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setODCB0(thebits : TBits_1); inline;
- procedure setODCB1(thebits : TBits_1); inline;
- procedure setODCB10(thebits : TBits_1); inline;
- procedure setODCB11(thebits : TBits_1); inline;
- procedure setODCB12(thebits : TBits_1); inline;
- procedure setODCB13(thebits : TBits_1); inline;
- procedure setODCB14(thebits : TBits_1); inline;
- procedure setODCB15(thebits : TBits_1); inline;
- procedure setODCB2(thebits : TBits_1); inline;
- procedure setODCB3(thebits : TBits_1); inline;
- procedure setODCB4(thebits : TBits_1); inline;
- procedure setODCB5(thebits : TBits_1); inline;
- procedure setODCB6(thebits : TBits_1); inline;
- procedure setODCB7(thebits : TBits_1); inline;
- procedure setODCB8(thebits : TBits_1); inline;
- procedure setODCB9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearODCB0; inline;
- procedure clearODCB10; inline;
- procedure clearODCB11; inline;
- procedure clearODCB12; inline;
- procedure clearODCB13; inline;
- procedure clearODCB14; inline;
- procedure clearODCB15; inline;
- procedure clearODCB1; inline;
- procedure clearODCB2; inline;
- procedure clearODCB3; inline;
- procedure clearODCB4; inline;
- procedure clearODCB5; inline;
- procedure clearODCB6; inline;
- procedure clearODCB7; inline;
- procedure clearODCB8; inline;
- procedure clearODCB9; inline;
- procedure setODCB0; inline;
- procedure setODCB10; inline;
- procedure setODCB11; inline;
- procedure setODCB12; inline;
- procedure setODCB13; inline;
- procedure setODCB14; inline;
- procedure setODCB15; inline;
- procedure setODCB1; inline;
- procedure setODCB2; inline;
- procedure setODCB3; inline;
- procedure setODCB4; inline;
- procedure setODCB5; inline;
- procedure setODCB6; inline;
- procedure setODCB7; inline;
- procedure setODCB8; inline;
- procedure setODCB9; inline;
- property ODCB0 : TBits_1 read getODCB0 write setODCB0;
- property ODCB1 : TBits_1 read getODCB1 write setODCB1;
- property ODCB10 : TBits_1 read getODCB10 write setODCB10;
- property ODCB11 : TBits_1 read getODCB11 write setODCB11;
- property ODCB12 : TBits_1 read getODCB12 write setODCB12;
- property ODCB13 : TBits_1 read getODCB13 write setODCB13;
- property ODCB14 : TBits_1 read getODCB14 write setODCB14;
- property ODCB15 : TBits_1 read getODCB15 write setODCB15;
- property ODCB2 : TBits_1 read getODCB2 write setODCB2;
- property ODCB3 : TBits_1 read getODCB3 write setODCB3;
- property ODCB4 : TBits_1 read getODCB4 write setODCB4;
- property ODCB5 : TBits_1 read getODCB5 write setODCB5;
- property ODCB6 : TBits_1 read getODCB6 write setODCB6;
- property ODCB7 : TBits_1 read getODCB7 write setODCB7;
- property ODCB8 : TBits_1 read getODCB8 write setODCB8;
- property ODCB9 : TBits_1 read getODCB9 write setODCB9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTB_CNPUB = record
- private
- function getCNPUB0 : TBits_1; inline;
- function getCNPUB1 : TBits_1; inline;
- function getCNPUB10 : TBits_1; inline;
- function getCNPUB11 : TBits_1; inline;
- function getCNPUB12 : TBits_1; inline;
- function getCNPUB13 : TBits_1; inline;
- function getCNPUB14 : TBits_1; inline;
- function getCNPUB15 : TBits_1; inline;
- function getCNPUB2 : TBits_1; inline;
- function getCNPUB3 : TBits_1; inline;
- function getCNPUB4 : TBits_1; inline;
- function getCNPUB5 : TBits_1; inline;
- function getCNPUB6 : TBits_1; inline;
- function getCNPUB7 : TBits_1; inline;
- function getCNPUB8 : TBits_1; inline;
- function getCNPUB9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNPUB0(thebits : TBits_1); inline;
- procedure setCNPUB1(thebits : TBits_1); inline;
- procedure setCNPUB10(thebits : TBits_1); inline;
- procedure setCNPUB11(thebits : TBits_1); inline;
- procedure setCNPUB12(thebits : TBits_1); inline;
- procedure setCNPUB13(thebits : TBits_1); inline;
- procedure setCNPUB14(thebits : TBits_1); inline;
- procedure setCNPUB15(thebits : TBits_1); inline;
- procedure setCNPUB2(thebits : TBits_1); inline;
- procedure setCNPUB3(thebits : TBits_1); inline;
- procedure setCNPUB4(thebits : TBits_1); inline;
- procedure setCNPUB5(thebits : TBits_1); inline;
- procedure setCNPUB6(thebits : TBits_1); inline;
- procedure setCNPUB7(thebits : TBits_1); inline;
- procedure setCNPUB8(thebits : TBits_1); inline;
- procedure setCNPUB9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNPUB0; inline;
- procedure clearCNPUB10; inline;
- procedure clearCNPUB11; inline;
- procedure clearCNPUB12; inline;
- procedure clearCNPUB13; inline;
- procedure clearCNPUB14; inline;
- procedure clearCNPUB15; inline;
- procedure clearCNPUB1; inline;
- procedure clearCNPUB2; inline;
- procedure clearCNPUB3; inline;
- procedure clearCNPUB4; inline;
- procedure clearCNPUB5; inline;
- procedure clearCNPUB6; inline;
- procedure clearCNPUB7; inline;
- procedure clearCNPUB8; inline;
- procedure clearCNPUB9; inline;
- procedure setCNPUB0; inline;
- procedure setCNPUB10; inline;
- procedure setCNPUB11; inline;
- procedure setCNPUB12; inline;
- procedure setCNPUB13; inline;
- procedure setCNPUB14; inline;
- procedure setCNPUB15; inline;
- procedure setCNPUB1; inline;
- procedure setCNPUB2; inline;
- procedure setCNPUB3; inline;
- procedure setCNPUB4; inline;
- procedure setCNPUB5; inline;
- procedure setCNPUB6; inline;
- procedure setCNPUB7; inline;
- procedure setCNPUB8; inline;
- procedure setCNPUB9; inline;
- property CNPUB0 : TBits_1 read getCNPUB0 write setCNPUB0;
- property CNPUB1 : TBits_1 read getCNPUB1 write setCNPUB1;
- property CNPUB10 : TBits_1 read getCNPUB10 write setCNPUB10;
- property CNPUB11 : TBits_1 read getCNPUB11 write setCNPUB11;
- property CNPUB12 : TBits_1 read getCNPUB12 write setCNPUB12;
- property CNPUB13 : TBits_1 read getCNPUB13 write setCNPUB13;
- property CNPUB14 : TBits_1 read getCNPUB14 write setCNPUB14;
- property CNPUB15 : TBits_1 read getCNPUB15 write setCNPUB15;
- property CNPUB2 : TBits_1 read getCNPUB2 write setCNPUB2;
- property CNPUB3 : TBits_1 read getCNPUB3 write setCNPUB3;
- property CNPUB4 : TBits_1 read getCNPUB4 write setCNPUB4;
- property CNPUB5 : TBits_1 read getCNPUB5 write setCNPUB5;
- property CNPUB6 : TBits_1 read getCNPUB6 write setCNPUB6;
- property CNPUB7 : TBits_1 read getCNPUB7 write setCNPUB7;
- property CNPUB8 : TBits_1 read getCNPUB8 write setCNPUB8;
- property CNPUB9 : TBits_1 read getCNPUB9 write setCNPUB9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTB_CNPDB = record
- private
- function getCNPDB0 : TBits_1; inline;
- function getCNPDB1 : TBits_1; inline;
- function getCNPDB10 : TBits_1; inline;
- function getCNPDB11 : TBits_1; inline;
- function getCNPDB12 : TBits_1; inline;
- function getCNPDB13 : TBits_1; inline;
- function getCNPDB14 : TBits_1; inline;
- function getCNPDB15 : TBits_1; inline;
- function getCNPDB2 : TBits_1; inline;
- function getCNPDB3 : TBits_1; inline;
- function getCNPDB4 : TBits_1; inline;
- function getCNPDB5 : TBits_1; inline;
- function getCNPDB6 : TBits_1; inline;
- function getCNPDB7 : TBits_1; inline;
- function getCNPDB8 : TBits_1; inline;
- function getCNPDB9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNPDB0(thebits : TBits_1); inline;
- procedure setCNPDB1(thebits : TBits_1); inline;
- procedure setCNPDB10(thebits : TBits_1); inline;
- procedure setCNPDB11(thebits : TBits_1); inline;
- procedure setCNPDB12(thebits : TBits_1); inline;
- procedure setCNPDB13(thebits : TBits_1); inline;
- procedure setCNPDB14(thebits : TBits_1); inline;
- procedure setCNPDB15(thebits : TBits_1); inline;
- procedure setCNPDB2(thebits : TBits_1); inline;
- procedure setCNPDB3(thebits : TBits_1); inline;
- procedure setCNPDB4(thebits : TBits_1); inline;
- procedure setCNPDB5(thebits : TBits_1); inline;
- procedure setCNPDB6(thebits : TBits_1); inline;
- procedure setCNPDB7(thebits : TBits_1); inline;
- procedure setCNPDB8(thebits : TBits_1); inline;
- procedure setCNPDB9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNPDB0; inline;
- procedure clearCNPDB10; inline;
- procedure clearCNPDB11; inline;
- procedure clearCNPDB12; inline;
- procedure clearCNPDB13; inline;
- procedure clearCNPDB14; inline;
- procedure clearCNPDB15; inline;
- procedure clearCNPDB1; inline;
- procedure clearCNPDB2; inline;
- procedure clearCNPDB3; inline;
- procedure clearCNPDB4; inline;
- procedure clearCNPDB5; inline;
- procedure clearCNPDB6; inline;
- procedure clearCNPDB7; inline;
- procedure clearCNPDB8; inline;
- procedure clearCNPDB9; inline;
- procedure setCNPDB0; inline;
- procedure setCNPDB10; inline;
- procedure setCNPDB11; inline;
- procedure setCNPDB12; inline;
- procedure setCNPDB13; inline;
- procedure setCNPDB14; inline;
- procedure setCNPDB15; inline;
- procedure setCNPDB1; inline;
- procedure setCNPDB2; inline;
- procedure setCNPDB3; inline;
- procedure setCNPDB4; inline;
- procedure setCNPDB5; inline;
- procedure setCNPDB6; inline;
- procedure setCNPDB7; inline;
- procedure setCNPDB8; inline;
- procedure setCNPDB9; inline;
- property CNPDB0 : TBits_1 read getCNPDB0 write setCNPDB0;
- property CNPDB1 : TBits_1 read getCNPDB1 write setCNPDB1;
- property CNPDB10 : TBits_1 read getCNPDB10 write setCNPDB10;
- property CNPDB11 : TBits_1 read getCNPDB11 write setCNPDB11;
- property CNPDB12 : TBits_1 read getCNPDB12 write setCNPDB12;
- property CNPDB13 : TBits_1 read getCNPDB13 write setCNPDB13;
- property CNPDB14 : TBits_1 read getCNPDB14 write setCNPDB14;
- property CNPDB15 : TBits_1 read getCNPDB15 write setCNPDB15;
- property CNPDB2 : TBits_1 read getCNPDB2 write setCNPDB2;
- property CNPDB3 : TBits_1 read getCNPDB3 write setCNPDB3;
- property CNPDB4 : TBits_1 read getCNPDB4 write setCNPDB4;
- property CNPDB5 : TBits_1 read getCNPDB5 write setCNPDB5;
- property CNPDB6 : TBits_1 read getCNPDB6 write setCNPDB6;
- property CNPDB7 : TBits_1 read getCNPDB7 write setCNPDB7;
- property CNPDB8 : TBits_1 read getCNPDB8 write setCNPDB8;
- property CNPDB9 : TBits_1 read getCNPDB9 write setCNPDB9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTB_CNCONB = record
- private
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- TPORTB_CNENB = record
- private
- function getCNIEB0 : TBits_1; inline;
- function getCNIEB1 : TBits_1; inline;
- function getCNIEB10 : TBits_1; inline;
- function getCNIEB11 : TBits_1; inline;
- function getCNIEB12 : TBits_1; inline;
- function getCNIEB13 : TBits_1; inline;
- function getCNIEB14 : TBits_1; inline;
- function getCNIEB15 : TBits_1; inline;
- function getCNIEB2 : TBits_1; inline;
- function getCNIEB3 : TBits_1; inline;
- function getCNIEB4 : TBits_1; inline;
- function getCNIEB5 : TBits_1; inline;
- function getCNIEB6 : TBits_1; inline;
- function getCNIEB7 : TBits_1; inline;
- function getCNIEB8 : TBits_1; inline;
- function getCNIEB9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNIEB0(thebits : TBits_1); inline;
- procedure setCNIEB1(thebits : TBits_1); inline;
- procedure setCNIEB10(thebits : TBits_1); inline;
- procedure setCNIEB11(thebits : TBits_1); inline;
- procedure setCNIEB12(thebits : TBits_1); inline;
- procedure setCNIEB13(thebits : TBits_1); inline;
- procedure setCNIEB14(thebits : TBits_1); inline;
- procedure setCNIEB15(thebits : TBits_1); inline;
- procedure setCNIEB2(thebits : TBits_1); inline;
- procedure setCNIEB3(thebits : TBits_1); inline;
- procedure setCNIEB4(thebits : TBits_1); inline;
- procedure setCNIEB5(thebits : TBits_1); inline;
- procedure setCNIEB6(thebits : TBits_1); inline;
- procedure setCNIEB7(thebits : TBits_1); inline;
- procedure setCNIEB8(thebits : TBits_1); inline;
- procedure setCNIEB9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNIEB0; inline;
- procedure clearCNIEB10; inline;
- procedure clearCNIEB11; inline;
- procedure clearCNIEB12; inline;
- procedure clearCNIEB13; inline;
- procedure clearCNIEB14; inline;
- procedure clearCNIEB15; inline;
- procedure clearCNIEB1; inline;
- procedure clearCNIEB2; inline;
- procedure clearCNIEB3; inline;
- procedure clearCNIEB4; inline;
- procedure clearCNIEB5; inline;
- procedure clearCNIEB6; inline;
- procedure clearCNIEB7; inline;
- procedure clearCNIEB8; inline;
- procedure clearCNIEB9; inline;
- procedure setCNIEB0; inline;
- procedure setCNIEB10; inline;
- procedure setCNIEB11; inline;
- procedure setCNIEB12; inline;
- procedure setCNIEB13; inline;
- procedure setCNIEB14; inline;
- procedure setCNIEB15; inline;
- procedure setCNIEB1; inline;
- procedure setCNIEB2; inline;
- procedure setCNIEB3; inline;
- procedure setCNIEB4; inline;
- procedure setCNIEB5; inline;
- procedure setCNIEB6; inline;
- procedure setCNIEB7; inline;
- procedure setCNIEB8; inline;
- procedure setCNIEB9; inline;
- property CNIEB0 : TBits_1 read getCNIEB0 write setCNIEB0;
- property CNIEB1 : TBits_1 read getCNIEB1 write setCNIEB1;
- property CNIEB10 : TBits_1 read getCNIEB10 write setCNIEB10;
- property CNIEB11 : TBits_1 read getCNIEB11 write setCNIEB11;
- property CNIEB12 : TBits_1 read getCNIEB12 write setCNIEB12;
- property CNIEB13 : TBits_1 read getCNIEB13 write setCNIEB13;
- property CNIEB14 : TBits_1 read getCNIEB14 write setCNIEB14;
- property CNIEB15 : TBits_1 read getCNIEB15 write setCNIEB15;
- property CNIEB2 : TBits_1 read getCNIEB2 write setCNIEB2;
- property CNIEB3 : TBits_1 read getCNIEB3 write setCNIEB3;
- property CNIEB4 : TBits_1 read getCNIEB4 write setCNIEB4;
- property CNIEB5 : TBits_1 read getCNIEB5 write setCNIEB5;
- property CNIEB6 : TBits_1 read getCNIEB6 write setCNIEB6;
- property CNIEB7 : TBits_1 read getCNIEB7 write setCNIEB7;
- property CNIEB8 : TBits_1 read getCNIEB8 write setCNIEB8;
- property CNIEB9 : TBits_1 read getCNIEB9 write setCNIEB9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTB_CNSTATB = record
- private
- function getCNSTATB0 : TBits_1; inline;
- function getCNSTATB1 : TBits_1; inline;
- function getCNSTATB10 : TBits_1; inline;
- function getCNSTATB11 : TBits_1; inline;
- function getCNSTATB12 : TBits_1; inline;
- function getCNSTATB13 : TBits_1; inline;
- function getCNSTATB14 : TBits_1; inline;
- function getCNSTATB15 : TBits_1; inline;
- function getCNSTATB2 : TBits_1; inline;
- function getCNSTATB3 : TBits_1; inline;
- function getCNSTATB4 : TBits_1; inline;
- function getCNSTATB5 : TBits_1; inline;
- function getCNSTATB6 : TBits_1; inline;
- function getCNSTATB7 : TBits_1; inline;
- function getCNSTATB8 : TBits_1; inline;
- function getCNSTATB9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNSTATB0(thebits : TBits_1); inline;
- procedure setCNSTATB1(thebits : TBits_1); inline;
- procedure setCNSTATB10(thebits : TBits_1); inline;
- procedure setCNSTATB11(thebits : TBits_1); inline;
- procedure setCNSTATB12(thebits : TBits_1); inline;
- procedure setCNSTATB13(thebits : TBits_1); inline;
- procedure setCNSTATB14(thebits : TBits_1); inline;
- procedure setCNSTATB15(thebits : TBits_1); inline;
- procedure setCNSTATB2(thebits : TBits_1); inline;
- procedure setCNSTATB3(thebits : TBits_1); inline;
- procedure setCNSTATB4(thebits : TBits_1); inline;
- procedure setCNSTATB5(thebits : TBits_1); inline;
- procedure setCNSTATB6(thebits : TBits_1); inline;
- procedure setCNSTATB7(thebits : TBits_1); inline;
- procedure setCNSTATB8(thebits : TBits_1); inline;
- procedure setCNSTATB9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNSTATB0; inline;
- procedure clearCNSTATB10; inline;
- procedure clearCNSTATB11; inline;
- procedure clearCNSTATB12; inline;
- procedure clearCNSTATB13; inline;
- procedure clearCNSTATB14; inline;
- procedure clearCNSTATB15; inline;
- procedure clearCNSTATB1; inline;
- procedure clearCNSTATB2; inline;
- procedure clearCNSTATB3; inline;
- procedure clearCNSTATB4; inline;
- procedure clearCNSTATB5; inline;
- procedure clearCNSTATB6; inline;
- procedure clearCNSTATB7; inline;
- procedure clearCNSTATB8; inline;
- procedure clearCNSTATB9; inline;
- procedure setCNSTATB0; inline;
- procedure setCNSTATB10; inline;
- procedure setCNSTATB11; inline;
- procedure setCNSTATB12; inline;
- procedure setCNSTATB13; inline;
- procedure setCNSTATB14; inline;
- procedure setCNSTATB15; inline;
- procedure setCNSTATB1; inline;
- procedure setCNSTATB2; inline;
- procedure setCNSTATB3; inline;
- procedure setCNSTATB4; inline;
- procedure setCNSTATB5; inline;
- procedure setCNSTATB6; inline;
- procedure setCNSTATB7; inline;
- procedure setCNSTATB8; inline;
- procedure setCNSTATB9; inline;
- property CNSTATB0 : TBits_1 read getCNSTATB0 write setCNSTATB0;
- property CNSTATB1 : TBits_1 read getCNSTATB1 write setCNSTATB1;
- property CNSTATB10 : TBits_1 read getCNSTATB10 write setCNSTATB10;
- property CNSTATB11 : TBits_1 read getCNSTATB11 write setCNSTATB11;
- property CNSTATB12 : TBits_1 read getCNSTATB12 write setCNSTATB12;
- property CNSTATB13 : TBits_1 read getCNSTATB13 write setCNSTATB13;
- property CNSTATB14 : TBits_1 read getCNSTATB14 write setCNSTATB14;
- property CNSTATB15 : TBits_1 read getCNSTATB15 write setCNSTATB15;
- property CNSTATB2 : TBits_1 read getCNSTATB2 write setCNSTATB2;
- property CNSTATB3 : TBits_1 read getCNSTATB3 write setCNSTATB3;
- property CNSTATB4 : TBits_1 read getCNSTATB4 write setCNSTATB4;
- property CNSTATB5 : TBits_1 read getCNSTATB5 write setCNSTATB5;
- property CNSTATB6 : TBits_1 read getCNSTATB6 write setCNSTATB6;
- property CNSTATB7 : TBits_1 read getCNSTATB7 write setCNSTATB7;
- property CNSTATB8 : TBits_1 read getCNSTATB8 write setCNSTATB8;
- property CNSTATB9 : TBits_1 read getCNSTATB9 write setCNSTATB9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTB_TRISC = record
- private
- function getTRISC1 : TBits_1; inline;
- function getTRISC12 : TBits_1; inline;
- function getTRISC13 : TBits_1; inline;
- function getTRISC14 : TBits_1; inline;
- function getTRISC15 : TBits_1; inline;
- function getTRISC2 : TBits_1; inline;
- function getTRISC3 : TBits_1; inline;
- function getTRISC4 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setTRISC1(thebits : TBits_1); inline;
- procedure setTRISC12(thebits : TBits_1); inline;
- procedure setTRISC13(thebits : TBits_1); inline;
- procedure setTRISC14(thebits : TBits_1); inline;
- procedure setTRISC15(thebits : TBits_1); inline;
- procedure setTRISC2(thebits : TBits_1); inline;
- procedure setTRISC3(thebits : TBits_1); inline;
- procedure setTRISC4(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearTRISC12; inline;
- procedure clearTRISC13; inline;
- procedure clearTRISC14; inline;
- procedure clearTRISC15; inline;
- procedure clearTRISC1; inline;
- procedure clearTRISC2; inline;
- procedure clearTRISC3; inline;
- procedure clearTRISC4; inline;
- procedure setTRISC12; inline;
- procedure setTRISC13; inline;
- procedure setTRISC14; inline;
- procedure setTRISC15; inline;
- procedure setTRISC1; inline;
- procedure setTRISC2; inline;
- procedure setTRISC3; inline;
- procedure setTRISC4; inline;
- property TRISC1 : TBits_1 read getTRISC1 write setTRISC1;
- property TRISC12 : TBits_1 read getTRISC12 write setTRISC12;
- property TRISC13 : TBits_1 read getTRISC13 write setTRISC13;
- property TRISC14 : TBits_1 read getTRISC14 write setTRISC14;
- property TRISC15 : TBits_1 read getTRISC15 write setTRISC15;
- property TRISC2 : TBits_1 read getTRISC2 write setTRISC2;
- property TRISC3 : TBits_1 read getTRISC3 write setTRISC3;
- property TRISC4 : TBits_1 read getTRISC4 write setTRISC4;
- property w : TBits_32 read getw write setw;
- end;
- type
- TPORTBRegisters = record
- PORTBbits : TPORTB_PORTB;
- PORTB : longWord;
- PORTBCLR : longWord;
- PORTBSET : longWord;
- PORTBINV : longWord;
- LATBbits : TPORTB_LATB;
- LATB : longWord;
- LATBCLR : longWord;
- LATBSET : longWord;
- LATBINV : longWord;
- ODCBbits : TPORTB_ODCB;
- ODCB : longWord;
- ODCBCLR : longWord;
- ODCBSET : longWord;
- ODCBINV : longWord;
- CNPUBbits : TPORTB_CNPUB;
- CNPUB : longWord;
- CNPUBCLR : longWord;
- CNPUBSET : longWord;
- CNPUBINV : longWord;
- CNPDBbits : TPORTB_CNPDB;
- CNPDB : longWord;
- CNPDBCLR : longWord;
- CNPDBSET : longWord;
- CNPDBINV : longWord;
- CNCONBbits : TPORTB_CNCONB;
- CNCONB : longWord;
- CNCONBCLR : longWord;
- CNCONBSET : longWord;
- CNCONBINV : longWord;
- CNENBbits : TPORTB_CNENB;
- CNENB : longWord;
- CNENBCLR : longWord;
- CNENBSET : longWord;
- CNENBINV : longWord;
- CNSTATBbits : TPORTB_CNSTATB;
- CNSTATB : longWord;
- CNSTATBCLR : longWord;
- CNSTATBSET : longWord;
- CNSTATBINV : longWord;
- ANSELC : longWord;
- ANSELCCLR : longWord;
- ANSELCSET : longWord;
- ANSELCINV : longWord;
- TRISCbits : TPORTB_TRISC;
- TRISC : longWord;
- TRISCCLR : longWord;
- TRISCSET : longWord;
- TRISCINV : longWord;
- end;
- TPORTC_PORTC = record
- private
- function getRC1 : TBits_1; inline;
- function getRC12 : TBits_1; inline;
- function getRC13 : TBits_1; inline;
- function getRC14 : TBits_1; inline;
- function getRC15 : TBits_1; inline;
- function getRC2 : TBits_1; inline;
- function getRC3 : TBits_1; inline;
- function getRC4 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setRC1(thebits : TBits_1); inline;
- procedure setRC12(thebits : TBits_1); inline;
- procedure setRC13(thebits : TBits_1); inline;
- procedure setRC14(thebits : TBits_1); inline;
- procedure setRC15(thebits : TBits_1); inline;
- procedure setRC2(thebits : TBits_1); inline;
- procedure setRC3(thebits : TBits_1); inline;
- procedure setRC4(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearRC12; inline;
- procedure clearRC13; inline;
- procedure clearRC14; inline;
- procedure clearRC15; inline;
- procedure clearRC1; inline;
- procedure clearRC2; inline;
- procedure clearRC3; inline;
- procedure clearRC4; inline;
- procedure setRC12; inline;
- procedure setRC13; inline;
- procedure setRC14; inline;
- procedure setRC15; inline;
- procedure setRC1; inline;
- procedure setRC2; inline;
- procedure setRC3; inline;
- procedure setRC4; inline;
- property RC1 : TBits_1 read getRC1 write setRC1;
- property RC12 : TBits_1 read getRC12 write setRC12;
- property RC13 : TBits_1 read getRC13 write setRC13;
- property RC14 : TBits_1 read getRC14 write setRC14;
- property RC15 : TBits_1 read getRC15 write setRC15;
- property RC2 : TBits_1 read getRC2 write setRC2;
- property RC3 : TBits_1 read getRC3 write setRC3;
- property RC4 : TBits_1 read getRC4 write setRC4;
- property w : TBits_32 read getw write setw;
- end;
- TPortC_bits=(RC1=1,RC2=2,RC3=3,RC4=4,RC12=12,RC13=13,RC14=14,RC15=15);
- TPortC_bitset = set of TPortC_bits;
- TPORTC_LATC = record
- private
- function getLATC1 : TBits_1; inline;
- function getLATC12 : TBits_1; inline;
- function getLATC13 : TBits_1; inline;
- function getLATC14 : TBits_1; inline;
- function getLATC15 : TBits_1; inline;
- function getLATC2 : TBits_1; inline;
- function getLATC3 : TBits_1; inline;
- function getLATC4 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setLATC1(thebits : TBits_1); inline;
- procedure setLATC12(thebits : TBits_1); inline;
- procedure setLATC13(thebits : TBits_1); inline;
- procedure setLATC14(thebits : TBits_1); inline;
- procedure setLATC15(thebits : TBits_1); inline;
- procedure setLATC2(thebits : TBits_1); inline;
- procedure setLATC3(thebits : TBits_1); inline;
- procedure setLATC4(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearLATC12; inline;
- procedure clearLATC13; inline;
- procedure clearLATC14; inline;
- procedure clearLATC15; inline;
- procedure clearLATC1; inline;
- procedure clearLATC2; inline;
- procedure clearLATC3; inline;
- procedure clearLATC4; inline;
- procedure setLATC12; inline;
- procedure setLATC13; inline;
- procedure setLATC14; inline;
- procedure setLATC15; inline;
- procedure setLATC1; inline;
- procedure setLATC2; inline;
- procedure setLATC3; inline;
- procedure setLATC4; inline;
- property LATC1 : TBits_1 read getLATC1 write setLATC1;
- property LATC12 : TBits_1 read getLATC12 write setLATC12;
- property LATC13 : TBits_1 read getLATC13 write setLATC13;
- property LATC14 : TBits_1 read getLATC14 write setLATC14;
- property LATC15 : TBits_1 read getLATC15 write setLATC15;
- property LATC2 : TBits_1 read getLATC2 write setLATC2;
- property LATC3 : TBits_1 read getLATC3 write setLATC3;
- property LATC4 : TBits_1 read getLATC4 write setLATC4;
- property w : TBits_32 read getw write setw;
- end;
- TPORTC_ODCC = record
- private
- function getODCC1 : TBits_1; inline;
- function getODCC12 : TBits_1; inline;
- function getODCC13 : TBits_1; inline;
- function getODCC14 : TBits_1; inline;
- function getODCC15 : TBits_1; inline;
- function getODCC2 : TBits_1; inline;
- function getODCC3 : TBits_1; inline;
- function getODCC4 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setODCC1(thebits : TBits_1); inline;
- procedure setODCC12(thebits : TBits_1); inline;
- procedure setODCC13(thebits : TBits_1); inline;
- procedure setODCC14(thebits : TBits_1); inline;
- procedure setODCC15(thebits : TBits_1); inline;
- procedure setODCC2(thebits : TBits_1); inline;
- procedure setODCC3(thebits : TBits_1); inline;
- procedure setODCC4(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearODCC12; inline;
- procedure clearODCC13; inline;
- procedure clearODCC14; inline;
- procedure clearODCC15; inline;
- procedure clearODCC1; inline;
- procedure clearODCC2; inline;
- procedure clearODCC3; inline;
- procedure clearODCC4; inline;
- procedure setODCC12; inline;
- procedure setODCC13; inline;
- procedure setODCC14; inline;
- procedure setODCC15; inline;
- procedure setODCC1; inline;
- procedure setODCC2; inline;
- procedure setODCC3; inline;
- procedure setODCC4; inline;
- property ODCC1 : TBits_1 read getODCC1 write setODCC1;
- property ODCC12 : TBits_1 read getODCC12 write setODCC12;
- property ODCC13 : TBits_1 read getODCC13 write setODCC13;
- property ODCC14 : TBits_1 read getODCC14 write setODCC14;
- property ODCC15 : TBits_1 read getODCC15 write setODCC15;
- property ODCC2 : TBits_1 read getODCC2 write setODCC2;
- property ODCC3 : TBits_1 read getODCC3 write setODCC3;
- property ODCC4 : TBits_1 read getODCC4 write setODCC4;
- property w : TBits_32 read getw write setw;
- end;
- TPORTC_CNPUC = record
- private
- function getCNPUC1 : TBits_1; inline;
- function getCNPUC12 : TBits_1; inline;
- function getCNPUC13 : TBits_1; inline;
- function getCNPUC14 : TBits_1; inline;
- function getCNPUC15 : TBits_1; inline;
- function getCNPUC2 : TBits_1; inline;
- function getCNPUC3 : TBits_1; inline;
- function getCNPUC4 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNPUC1(thebits : TBits_1); inline;
- procedure setCNPUC12(thebits : TBits_1); inline;
- procedure setCNPUC13(thebits : TBits_1); inline;
- procedure setCNPUC14(thebits : TBits_1); inline;
- procedure setCNPUC15(thebits : TBits_1); inline;
- procedure setCNPUC2(thebits : TBits_1); inline;
- procedure setCNPUC3(thebits : TBits_1); inline;
- procedure setCNPUC4(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNPUC12; inline;
- procedure clearCNPUC13; inline;
- procedure clearCNPUC14; inline;
- procedure clearCNPUC15; inline;
- procedure clearCNPUC1; inline;
- procedure clearCNPUC2; inline;
- procedure clearCNPUC3; inline;
- procedure clearCNPUC4; inline;
- procedure setCNPUC12; inline;
- procedure setCNPUC13; inline;
- procedure setCNPUC14; inline;
- procedure setCNPUC15; inline;
- procedure setCNPUC1; inline;
- procedure setCNPUC2; inline;
- procedure setCNPUC3; inline;
- procedure setCNPUC4; inline;
- property CNPUC1 : TBits_1 read getCNPUC1 write setCNPUC1;
- property CNPUC12 : TBits_1 read getCNPUC12 write setCNPUC12;
- property CNPUC13 : TBits_1 read getCNPUC13 write setCNPUC13;
- property CNPUC14 : TBits_1 read getCNPUC14 write setCNPUC14;
- property CNPUC15 : TBits_1 read getCNPUC15 write setCNPUC15;
- property CNPUC2 : TBits_1 read getCNPUC2 write setCNPUC2;
- property CNPUC3 : TBits_1 read getCNPUC3 write setCNPUC3;
- property CNPUC4 : TBits_1 read getCNPUC4 write setCNPUC4;
- property w : TBits_32 read getw write setw;
- end;
- TPORTC_CNPDC = record
- private
- function getCNPDC1 : TBits_1; inline;
- function getCNPDC12 : TBits_1; inline;
- function getCNPDC13 : TBits_1; inline;
- function getCNPDC14 : TBits_1; inline;
- function getCNPDC15 : TBits_1; inline;
- function getCNPDC2 : TBits_1; inline;
- function getCNPDC3 : TBits_1; inline;
- function getCNPDC4 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNPDC1(thebits : TBits_1); inline;
- procedure setCNPDC12(thebits : TBits_1); inline;
- procedure setCNPDC13(thebits : TBits_1); inline;
- procedure setCNPDC14(thebits : TBits_1); inline;
- procedure setCNPDC15(thebits : TBits_1); inline;
- procedure setCNPDC2(thebits : TBits_1); inline;
- procedure setCNPDC3(thebits : TBits_1); inline;
- procedure setCNPDC4(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNPDC12; inline;
- procedure clearCNPDC13; inline;
- procedure clearCNPDC14; inline;
- procedure clearCNPDC15; inline;
- procedure clearCNPDC1; inline;
- procedure clearCNPDC2; inline;
- procedure clearCNPDC3; inline;
- procedure clearCNPDC4; inline;
- procedure setCNPDC12; inline;
- procedure setCNPDC13; inline;
- procedure setCNPDC14; inline;
- procedure setCNPDC15; inline;
- procedure setCNPDC1; inline;
- procedure setCNPDC2; inline;
- procedure setCNPDC3; inline;
- procedure setCNPDC4; inline;
- property CNPDC1 : TBits_1 read getCNPDC1 write setCNPDC1;
- property CNPDC12 : TBits_1 read getCNPDC12 write setCNPDC12;
- property CNPDC13 : TBits_1 read getCNPDC13 write setCNPDC13;
- property CNPDC14 : TBits_1 read getCNPDC14 write setCNPDC14;
- property CNPDC15 : TBits_1 read getCNPDC15 write setCNPDC15;
- property CNPDC2 : TBits_1 read getCNPDC2 write setCNPDC2;
- property CNPDC3 : TBits_1 read getCNPDC3 write setCNPDC3;
- property CNPDC4 : TBits_1 read getCNPDC4 write setCNPDC4;
- property w : TBits_32 read getw write setw;
- end;
- TPORTC_CNCONC = record
- private
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- TPORTC_CNENC = record
- private
- function getCNIEC1 : TBits_1; inline;
- function getCNIEC12 : TBits_1; inline;
- function getCNIEC13 : TBits_1; inline;
- function getCNIEC14 : TBits_1; inline;
- function getCNIEC15 : TBits_1; inline;
- function getCNIEC2 : TBits_1; inline;
- function getCNIEC3 : TBits_1; inline;
- function getCNIEC4 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNIEC1(thebits : TBits_1); inline;
- procedure setCNIEC12(thebits : TBits_1); inline;
- procedure setCNIEC13(thebits : TBits_1); inline;
- procedure setCNIEC14(thebits : TBits_1); inline;
- procedure setCNIEC15(thebits : TBits_1); inline;
- procedure setCNIEC2(thebits : TBits_1); inline;
- procedure setCNIEC3(thebits : TBits_1); inline;
- procedure setCNIEC4(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNIEC12; inline;
- procedure clearCNIEC13; inline;
- procedure clearCNIEC14; inline;
- procedure clearCNIEC15; inline;
- procedure clearCNIEC1; inline;
- procedure clearCNIEC2; inline;
- procedure clearCNIEC3; inline;
- procedure clearCNIEC4; inline;
- procedure setCNIEC12; inline;
- procedure setCNIEC13; inline;
- procedure setCNIEC14; inline;
- procedure setCNIEC15; inline;
- procedure setCNIEC1; inline;
- procedure setCNIEC2; inline;
- procedure setCNIEC3; inline;
- procedure setCNIEC4; inline;
- property CNIEC1 : TBits_1 read getCNIEC1 write setCNIEC1;
- property CNIEC12 : TBits_1 read getCNIEC12 write setCNIEC12;
- property CNIEC13 : TBits_1 read getCNIEC13 write setCNIEC13;
- property CNIEC14 : TBits_1 read getCNIEC14 write setCNIEC14;
- property CNIEC15 : TBits_1 read getCNIEC15 write setCNIEC15;
- property CNIEC2 : TBits_1 read getCNIEC2 write setCNIEC2;
- property CNIEC3 : TBits_1 read getCNIEC3 write setCNIEC3;
- property CNIEC4 : TBits_1 read getCNIEC4 write setCNIEC4;
- property w : TBits_32 read getw write setw;
- end;
- TPORTC_CNSTATC = record
- private
- function getCNSTATC1 : TBits_1; inline;
- function getCNSTATC12 : TBits_1; inline;
- function getCNSTATC13 : TBits_1; inline;
- function getCNSTATC14 : TBits_1; inline;
- function getCNSTATC15 : TBits_1; inline;
- function getCNSTATC2 : TBits_1; inline;
- function getCNSTATC3 : TBits_1; inline;
- function getCNSTATC4 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNSTATC1(thebits : TBits_1); inline;
- procedure setCNSTATC12(thebits : TBits_1); inline;
- procedure setCNSTATC13(thebits : TBits_1); inline;
- procedure setCNSTATC14(thebits : TBits_1); inline;
- procedure setCNSTATC15(thebits : TBits_1); inline;
- procedure setCNSTATC2(thebits : TBits_1); inline;
- procedure setCNSTATC3(thebits : TBits_1); inline;
- procedure setCNSTATC4(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNSTATC12; inline;
- procedure clearCNSTATC13; inline;
- procedure clearCNSTATC14; inline;
- procedure clearCNSTATC15; inline;
- procedure clearCNSTATC1; inline;
- procedure clearCNSTATC2; inline;
- procedure clearCNSTATC3; inline;
- procedure clearCNSTATC4; inline;
- procedure setCNSTATC12; inline;
- procedure setCNSTATC13; inline;
- procedure setCNSTATC14; inline;
- procedure setCNSTATC15; inline;
- procedure setCNSTATC1; inline;
- procedure setCNSTATC2; inline;
- procedure setCNSTATC3; inline;
- procedure setCNSTATC4; inline;
- property CNSTATC1 : TBits_1 read getCNSTATC1 write setCNSTATC1;
- property CNSTATC12 : TBits_1 read getCNSTATC12 write setCNSTATC12;
- property CNSTATC13 : TBits_1 read getCNSTATC13 write setCNSTATC13;
- property CNSTATC14 : TBits_1 read getCNSTATC14 write setCNSTATC14;
- property CNSTATC15 : TBits_1 read getCNSTATC15 write setCNSTATC15;
- property CNSTATC2 : TBits_1 read getCNSTATC2 write setCNSTATC2;
- property CNSTATC3 : TBits_1 read getCNSTATC3 write setCNSTATC3;
- property CNSTATC4 : TBits_1 read getCNSTATC4 write setCNSTATC4;
- property w : TBits_32 read getw write setw;
- end;
- TPORTC_ANSELD = record
- private
- function getANSD1 : TBits_1; inline;
- function getANSD2 : TBits_1; inline;
- function getANSD3 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setANSD1(thebits : TBits_1); inline;
- procedure setANSD2(thebits : TBits_1); inline;
- procedure setANSD3(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearANSD1; inline;
- procedure clearANSD2; inline;
- procedure clearANSD3; inline;
- procedure setANSD1; inline;
- procedure setANSD2; inline;
- procedure setANSD3; inline;
- property ANSD1 : TBits_1 read getANSD1 write setANSD1;
- property ANSD2 : TBits_1 read getANSD2 write setANSD2;
- property ANSD3 : TBits_1 read getANSD3 write setANSD3;
- property w : TBits_32 read getw write setw;
- end;
- TPORTC_TRISD = record
- private
- function getTRISD0 : TBits_1; inline;
- function getTRISD1 : TBits_1; inline;
- function getTRISD10 : TBits_1; inline;
- function getTRISD11 : TBits_1; inline;
- function getTRISD12 : TBits_1; inline;
- function getTRISD13 : TBits_1; inline;
- function getTRISD14 : TBits_1; inline;
- function getTRISD15 : TBits_1; inline;
- function getTRISD2 : TBits_1; inline;
- function getTRISD3 : TBits_1; inline;
- function getTRISD4 : TBits_1; inline;
- function getTRISD5 : TBits_1; inline;
- function getTRISD6 : TBits_1; inline;
- function getTRISD7 : TBits_1; inline;
- function getTRISD8 : TBits_1; inline;
- function getTRISD9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setTRISD0(thebits : TBits_1); inline;
- procedure setTRISD1(thebits : TBits_1); inline;
- procedure setTRISD10(thebits : TBits_1); inline;
- procedure setTRISD11(thebits : TBits_1); inline;
- procedure setTRISD12(thebits : TBits_1); inline;
- procedure setTRISD13(thebits : TBits_1); inline;
- procedure setTRISD14(thebits : TBits_1); inline;
- procedure setTRISD15(thebits : TBits_1); inline;
- procedure setTRISD2(thebits : TBits_1); inline;
- procedure setTRISD3(thebits : TBits_1); inline;
- procedure setTRISD4(thebits : TBits_1); inline;
- procedure setTRISD5(thebits : TBits_1); inline;
- procedure setTRISD6(thebits : TBits_1); inline;
- procedure setTRISD7(thebits : TBits_1); inline;
- procedure setTRISD8(thebits : TBits_1); inline;
- procedure setTRISD9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearTRISD0; inline;
- procedure clearTRISD10; inline;
- procedure clearTRISD11; inline;
- procedure clearTRISD12; inline;
- procedure clearTRISD13; inline;
- procedure clearTRISD14; inline;
- procedure clearTRISD15; inline;
- procedure clearTRISD1; inline;
- procedure clearTRISD2; inline;
- procedure clearTRISD3; inline;
- procedure clearTRISD4; inline;
- procedure clearTRISD5; inline;
- procedure clearTRISD6; inline;
- procedure clearTRISD7; inline;
- procedure clearTRISD8; inline;
- procedure clearTRISD9; inline;
- procedure setTRISD0; inline;
- procedure setTRISD10; inline;
- procedure setTRISD11; inline;
- procedure setTRISD12; inline;
- procedure setTRISD13; inline;
- procedure setTRISD14; inline;
- procedure setTRISD15; inline;
- procedure setTRISD1; inline;
- procedure setTRISD2; inline;
- procedure setTRISD3; inline;
- procedure setTRISD4; inline;
- procedure setTRISD5; inline;
- procedure setTRISD6; inline;
- procedure setTRISD7; inline;
- procedure setTRISD8; inline;
- procedure setTRISD9; inline;
- property TRISD0 : TBits_1 read getTRISD0 write setTRISD0;
- property TRISD1 : TBits_1 read getTRISD1 write setTRISD1;
- property TRISD10 : TBits_1 read getTRISD10 write setTRISD10;
- property TRISD11 : TBits_1 read getTRISD11 write setTRISD11;
- property TRISD12 : TBits_1 read getTRISD12 write setTRISD12;
- property TRISD13 : TBits_1 read getTRISD13 write setTRISD13;
- property TRISD14 : TBits_1 read getTRISD14 write setTRISD14;
- property TRISD15 : TBits_1 read getTRISD15 write setTRISD15;
- property TRISD2 : TBits_1 read getTRISD2 write setTRISD2;
- property TRISD3 : TBits_1 read getTRISD3 write setTRISD3;
- property TRISD4 : TBits_1 read getTRISD4 write setTRISD4;
- property TRISD5 : TBits_1 read getTRISD5 write setTRISD5;
- property TRISD6 : TBits_1 read getTRISD6 write setTRISD6;
- property TRISD7 : TBits_1 read getTRISD7 write setTRISD7;
- property TRISD8 : TBits_1 read getTRISD8 write setTRISD8;
- property TRISD9 : TBits_1 read getTRISD9 write setTRISD9;
- property w : TBits_32 read getw write setw;
- end;
- type
- TPORTCRegisters = record
- PORTCbits : TPORTC_PORTC;
- PORTC : longWord;
- PORTCCLR : longWord;
- PORTCSET : longWord;
- PORTCINV : longWord;
- LATCbits : TPORTC_LATC;
- LATC : longWord;
- LATCCLR : longWord;
- LATCSET : longWord;
- LATCINV : longWord;
- ODCCbits : TPORTC_ODCC;
- ODCC : longWord;
- ODCCCLR : longWord;
- ODCCSET : longWord;
- ODCCINV : longWord;
- CNPUCbits : TPORTC_CNPUC;
- CNPUC : longWord;
- CNPUCCLR : longWord;
- CNPUCSET : longWord;
- CNPUCINV : longWord;
- CNPDCbits : TPORTC_CNPDC;
- CNPDC : longWord;
- CNPDCCLR : longWord;
- CNPDCSET : longWord;
- CNPDCINV : longWord;
- CNCONCbits : TPORTC_CNCONC;
- CNCONC : longWord;
- CNCONCCLR : longWord;
- CNCONCSET : longWord;
- CNCONCINV : longWord;
- CNENCbits : TPORTC_CNENC;
- CNENC : longWord;
- CNENCCLR : longWord;
- CNENCSET : longWord;
- CNENCINV : longWord;
- CNSTATCbits : TPORTC_CNSTATC;
- CNSTATC : longWord;
- CNSTATCCLR : longWord;
- CNSTATCSET : longWord;
- CNSTATCINV : longWord;
- ANSELDbits : TPORTC_ANSELD;
- ANSELD : longWord;
- ANSELDCLR : longWord;
- ANSELDSET : longWord;
- ANSELDINV : longWord;
- TRISDbits : TPORTC_TRISD;
- TRISD : longWord;
- TRISDCLR : longWord;
- TRISDSET : longWord;
- TRISDINV : longWord;
- end;
- TPORTD_PORTD = record
- private
- function getRD0 : TBits_1; inline;
- function getRD1 : TBits_1; inline;
- function getRD10 : TBits_1; inline;
- function getRD11 : TBits_1; inline;
- function getRD12 : TBits_1; inline;
- function getRD13 : TBits_1; inline;
- function getRD14 : TBits_1; inline;
- function getRD15 : TBits_1; inline;
- function getRD2 : TBits_1; inline;
- function getRD3 : TBits_1; inline;
- function getRD4 : TBits_1; inline;
- function getRD5 : TBits_1; inline;
- function getRD6 : TBits_1; inline;
- function getRD7 : TBits_1; inline;
- function getRD8 : TBits_1; inline;
- function getRD9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setRD0(thebits : TBits_1); inline;
- procedure setRD1(thebits : TBits_1); inline;
- procedure setRD10(thebits : TBits_1); inline;
- procedure setRD11(thebits : TBits_1); inline;
- procedure setRD12(thebits : TBits_1); inline;
- procedure setRD13(thebits : TBits_1); inline;
- procedure setRD14(thebits : TBits_1); inline;
- procedure setRD15(thebits : TBits_1); inline;
- procedure setRD2(thebits : TBits_1); inline;
- procedure setRD3(thebits : TBits_1); inline;
- procedure setRD4(thebits : TBits_1); inline;
- procedure setRD5(thebits : TBits_1); inline;
- procedure setRD6(thebits : TBits_1); inline;
- procedure setRD7(thebits : TBits_1); inline;
- procedure setRD8(thebits : TBits_1); inline;
- procedure setRD9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearRD0; inline;
- procedure clearRD10; inline;
- procedure clearRD11; inline;
- procedure clearRD12; inline;
- procedure clearRD13; inline;
- procedure clearRD14; inline;
- procedure clearRD15; inline;
- procedure clearRD1; inline;
- procedure clearRD2; inline;
- procedure clearRD3; inline;
- procedure clearRD4; inline;
- procedure clearRD5; inline;
- procedure clearRD6; inline;
- procedure clearRD7; inline;
- procedure clearRD8; inline;
- procedure clearRD9; inline;
- procedure setRD0; inline;
- procedure setRD10; inline;
- procedure setRD11; inline;
- procedure setRD12; inline;
- procedure setRD13; inline;
- procedure setRD14; inline;
- procedure setRD15; inline;
- procedure setRD1; inline;
- procedure setRD2; inline;
- procedure setRD3; inline;
- procedure setRD4; inline;
- procedure setRD5; inline;
- procedure setRD6; inline;
- procedure setRD7; inline;
- procedure setRD8; inline;
- procedure setRD9; inline;
- property RD0 : TBits_1 read getRD0 write setRD0;
- property RD1 : TBits_1 read getRD1 write setRD1;
- property RD10 : TBits_1 read getRD10 write setRD10;
- property RD11 : TBits_1 read getRD11 write setRD11;
- property RD12 : TBits_1 read getRD12 write setRD12;
- property RD13 : TBits_1 read getRD13 write setRD13;
- property RD14 : TBits_1 read getRD14 write setRD14;
- property RD15 : TBits_1 read getRD15 write setRD15;
- property RD2 : TBits_1 read getRD2 write setRD2;
- property RD3 : TBits_1 read getRD3 write setRD3;
- property RD4 : TBits_1 read getRD4 write setRD4;
- property RD5 : TBits_1 read getRD5 write setRD5;
- property RD6 : TBits_1 read getRD6 write setRD6;
- property RD7 : TBits_1 read getRD7 write setRD7;
- property RD8 : TBits_1 read getRD8 write setRD8;
- property RD9 : TBits_1 read getRD9 write setRD9;
- property w : TBits_32 read getw write setw;
- end;
- TPortD_bits=(RD0=0,RD1=1,RD2=2,RD3=3,RD4=4,RD5=5,RD6=6,RD7=7,RD8=8,RD9=9,RD10=10,RD11=11,RD12=12,RD13=13,RD14=14,RD15=15);
- TPortD_bitset = set of TPortD_bits;
- TPORTD_LATD = record
- private
- function getLATD0 : TBits_1; inline;
- function getLATD1 : TBits_1; inline;
- function getLATD10 : TBits_1; inline;
- function getLATD11 : TBits_1; inline;
- function getLATD12 : TBits_1; inline;
- function getLATD13 : TBits_1; inline;
- function getLATD14 : TBits_1; inline;
- function getLATD15 : TBits_1; inline;
- function getLATD2 : TBits_1; inline;
- function getLATD3 : TBits_1; inline;
- function getLATD4 : TBits_1; inline;
- function getLATD5 : TBits_1; inline;
- function getLATD6 : TBits_1; inline;
- function getLATD7 : TBits_1; inline;
- function getLATD8 : TBits_1; inline;
- function getLATD9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setLATD0(thebits : TBits_1); inline;
- procedure setLATD1(thebits : TBits_1); inline;
- procedure setLATD10(thebits : TBits_1); inline;
- procedure setLATD11(thebits : TBits_1); inline;
- procedure setLATD12(thebits : TBits_1); inline;
- procedure setLATD13(thebits : TBits_1); inline;
- procedure setLATD14(thebits : TBits_1); inline;
- procedure setLATD15(thebits : TBits_1); inline;
- procedure setLATD2(thebits : TBits_1); inline;
- procedure setLATD3(thebits : TBits_1); inline;
- procedure setLATD4(thebits : TBits_1); inline;
- procedure setLATD5(thebits : TBits_1); inline;
- procedure setLATD6(thebits : TBits_1); inline;
- procedure setLATD7(thebits : TBits_1); inline;
- procedure setLATD8(thebits : TBits_1); inline;
- procedure setLATD9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearLATD0; inline;
- procedure clearLATD10; inline;
- procedure clearLATD11; inline;
- procedure clearLATD12; inline;
- procedure clearLATD13; inline;
- procedure clearLATD14; inline;
- procedure clearLATD15; inline;
- procedure clearLATD1; inline;
- procedure clearLATD2; inline;
- procedure clearLATD3; inline;
- procedure clearLATD4; inline;
- procedure clearLATD5; inline;
- procedure clearLATD6; inline;
- procedure clearLATD7; inline;
- procedure clearLATD8; inline;
- procedure clearLATD9; inline;
- procedure setLATD0; inline;
- procedure setLATD10; inline;
- procedure setLATD11; inline;
- procedure setLATD12; inline;
- procedure setLATD13; inline;
- procedure setLATD14; inline;
- procedure setLATD15; inline;
- procedure setLATD1; inline;
- procedure setLATD2; inline;
- procedure setLATD3; inline;
- procedure setLATD4; inline;
- procedure setLATD5; inline;
- procedure setLATD6; inline;
- procedure setLATD7; inline;
- procedure setLATD8; inline;
- procedure setLATD9; inline;
- property LATD0 : TBits_1 read getLATD0 write setLATD0;
- property LATD1 : TBits_1 read getLATD1 write setLATD1;
- property LATD10 : TBits_1 read getLATD10 write setLATD10;
- property LATD11 : TBits_1 read getLATD11 write setLATD11;
- property LATD12 : TBits_1 read getLATD12 write setLATD12;
- property LATD13 : TBits_1 read getLATD13 write setLATD13;
- property LATD14 : TBits_1 read getLATD14 write setLATD14;
- property LATD15 : TBits_1 read getLATD15 write setLATD15;
- property LATD2 : TBits_1 read getLATD2 write setLATD2;
- property LATD3 : TBits_1 read getLATD3 write setLATD3;
- property LATD4 : TBits_1 read getLATD4 write setLATD4;
- property LATD5 : TBits_1 read getLATD5 write setLATD5;
- property LATD6 : TBits_1 read getLATD6 write setLATD6;
- property LATD7 : TBits_1 read getLATD7 write setLATD7;
- property LATD8 : TBits_1 read getLATD8 write setLATD8;
- property LATD9 : TBits_1 read getLATD9 write setLATD9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTD_ODCD = record
- private
- function getODCD0 : TBits_1; inline;
- function getODCD1 : TBits_1; inline;
- function getODCD10 : TBits_1; inline;
- function getODCD11 : TBits_1; inline;
- function getODCD12 : TBits_1; inline;
- function getODCD13 : TBits_1; inline;
- function getODCD14 : TBits_1; inline;
- function getODCD15 : TBits_1; inline;
- function getODCD2 : TBits_1; inline;
- function getODCD3 : TBits_1; inline;
- function getODCD4 : TBits_1; inline;
- function getODCD5 : TBits_1; inline;
- function getODCD6 : TBits_1; inline;
- function getODCD7 : TBits_1; inline;
- function getODCD8 : TBits_1; inline;
- function getODCD9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setODCD0(thebits : TBits_1); inline;
- procedure setODCD1(thebits : TBits_1); inline;
- procedure setODCD10(thebits : TBits_1); inline;
- procedure setODCD11(thebits : TBits_1); inline;
- procedure setODCD12(thebits : TBits_1); inline;
- procedure setODCD13(thebits : TBits_1); inline;
- procedure setODCD14(thebits : TBits_1); inline;
- procedure setODCD15(thebits : TBits_1); inline;
- procedure setODCD2(thebits : TBits_1); inline;
- procedure setODCD3(thebits : TBits_1); inline;
- procedure setODCD4(thebits : TBits_1); inline;
- procedure setODCD5(thebits : TBits_1); inline;
- procedure setODCD6(thebits : TBits_1); inline;
- procedure setODCD7(thebits : TBits_1); inline;
- procedure setODCD8(thebits : TBits_1); inline;
- procedure setODCD9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearODCD0; inline;
- procedure clearODCD10; inline;
- procedure clearODCD11; inline;
- procedure clearODCD12; inline;
- procedure clearODCD13; inline;
- procedure clearODCD14; inline;
- procedure clearODCD15; inline;
- procedure clearODCD1; inline;
- procedure clearODCD2; inline;
- procedure clearODCD3; inline;
- procedure clearODCD4; inline;
- procedure clearODCD5; inline;
- procedure clearODCD6; inline;
- procedure clearODCD7; inline;
- procedure clearODCD8; inline;
- procedure clearODCD9; inline;
- procedure setODCD0; inline;
- procedure setODCD10; inline;
- procedure setODCD11; inline;
- procedure setODCD12; inline;
- procedure setODCD13; inline;
- procedure setODCD14; inline;
- procedure setODCD15; inline;
- procedure setODCD1; inline;
- procedure setODCD2; inline;
- procedure setODCD3; inline;
- procedure setODCD4; inline;
- procedure setODCD5; inline;
- procedure setODCD6; inline;
- procedure setODCD7; inline;
- procedure setODCD8; inline;
- procedure setODCD9; inline;
- property ODCD0 : TBits_1 read getODCD0 write setODCD0;
- property ODCD1 : TBits_1 read getODCD1 write setODCD1;
- property ODCD10 : TBits_1 read getODCD10 write setODCD10;
- property ODCD11 : TBits_1 read getODCD11 write setODCD11;
- property ODCD12 : TBits_1 read getODCD12 write setODCD12;
- property ODCD13 : TBits_1 read getODCD13 write setODCD13;
- property ODCD14 : TBits_1 read getODCD14 write setODCD14;
- property ODCD15 : TBits_1 read getODCD15 write setODCD15;
- property ODCD2 : TBits_1 read getODCD2 write setODCD2;
- property ODCD3 : TBits_1 read getODCD3 write setODCD3;
- property ODCD4 : TBits_1 read getODCD4 write setODCD4;
- property ODCD5 : TBits_1 read getODCD5 write setODCD5;
- property ODCD6 : TBits_1 read getODCD6 write setODCD6;
- property ODCD7 : TBits_1 read getODCD7 write setODCD7;
- property ODCD8 : TBits_1 read getODCD8 write setODCD8;
- property ODCD9 : TBits_1 read getODCD9 write setODCD9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTD_CNPUD = record
- private
- function getCNPUD0 : TBits_1; inline;
- function getCNPUD1 : TBits_1; inline;
- function getCNPUD10 : TBits_1; inline;
- function getCNPUD11 : TBits_1; inline;
- function getCNPUD12 : TBits_1; inline;
- function getCNPUD13 : TBits_1; inline;
- function getCNPUD14 : TBits_1; inline;
- function getCNPUD15 : TBits_1; inline;
- function getCNPUD2 : TBits_1; inline;
- function getCNPUD3 : TBits_1; inline;
- function getCNPUD4 : TBits_1; inline;
- function getCNPUD5 : TBits_1; inline;
- function getCNPUD6 : TBits_1; inline;
- function getCNPUD7 : TBits_1; inline;
- function getCNPUD8 : TBits_1; inline;
- function getCNPUD9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNPUD0(thebits : TBits_1); inline;
- procedure setCNPUD1(thebits : TBits_1); inline;
- procedure setCNPUD10(thebits : TBits_1); inline;
- procedure setCNPUD11(thebits : TBits_1); inline;
- procedure setCNPUD12(thebits : TBits_1); inline;
- procedure setCNPUD13(thebits : TBits_1); inline;
- procedure setCNPUD14(thebits : TBits_1); inline;
- procedure setCNPUD15(thebits : TBits_1); inline;
- procedure setCNPUD2(thebits : TBits_1); inline;
- procedure setCNPUD3(thebits : TBits_1); inline;
- procedure setCNPUD4(thebits : TBits_1); inline;
- procedure setCNPUD5(thebits : TBits_1); inline;
- procedure setCNPUD6(thebits : TBits_1); inline;
- procedure setCNPUD7(thebits : TBits_1); inline;
- procedure setCNPUD8(thebits : TBits_1); inline;
- procedure setCNPUD9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNPUD0; inline;
- procedure clearCNPUD10; inline;
- procedure clearCNPUD11; inline;
- procedure clearCNPUD12; inline;
- procedure clearCNPUD13; inline;
- procedure clearCNPUD14; inline;
- procedure clearCNPUD15; inline;
- procedure clearCNPUD1; inline;
- procedure clearCNPUD2; inline;
- procedure clearCNPUD3; inline;
- procedure clearCNPUD4; inline;
- procedure clearCNPUD5; inline;
- procedure clearCNPUD6; inline;
- procedure clearCNPUD7; inline;
- procedure clearCNPUD8; inline;
- procedure clearCNPUD9; inline;
- procedure setCNPUD0; inline;
- procedure setCNPUD10; inline;
- procedure setCNPUD11; inline;
- procedure setCNPUD12; inline;
- procedure setCNPUD13; inline;
- procedure setCNPUD14; inline;
- procedure setCNPUD15; inline;
- procedure setCNPUD1; inline;
- procedure setCNPUD2; inline;
- procedure setCNPUD3; inline;
- procedure setCNPUD4; inline;
- procedure setCNPUD5; inline;
- procedure setCNPUD6; inline;
- procedure setCNPUD7; inline;
- procedure setCNPUD8; inline;
- procedure setCNPUD9; inline;
- property CNPUD0 : TBits_1 read getCNPUD0 write setCNPUD0;
- property CNPUD1 : TBits_1 read getCNPUD1 write setCNPUD1;
- property CNPUD10 : TBits_1 read getCNPUD10 write setCNPUD10;
- property CNPUD11 : TBits_1 read getCNPUD11 write setCNPUD11;
- property CNPUD12 : TBits_1 read getCNPUD12 write setCNPUD12;
- property CNPUD13 : TBits_1 read getCNPUD13 write setCNPUD13;
- property CNPUD14 : TBits_1 read getCNPUD14 write setCNPUD14;
- property CNPUD15 : TBits_1 read getCNPUD15 write setCNPUD15;
- property CNPUD2 : TBits_1 read getCNPUD2 write setCNPUD2;
- property CNPUD3 : TBits_1 read getCNPUD3 write setCNPUD3;
- property CNPUD4 : TBits_1 read getCNPUD4 write setCNPUD4;
- property CNPUD5 : TBits_1 read getCNPUD5 write setCNPUD5;
- property CNPUD6 : TBits_1 read getCNPUD6 write setCNPUD6;
- property CNPUD7 : TBits_1 read getCNPUD7 write setCNPUD7;
- property CNPUD8 : TBits_1 read getCNPUD8 write setCNPUD8;
- property CNPUD9 : TBits_1 read getCNPUD9 write setCNPUD9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTD_CNPDD = record
- private
- function getCNPDD0 : TBits_1; inline;
- function getCNPDD1 : TBits_1; inline;
- function getCNPDD10 : TBits_1; inline;
- function getCNPDD11 : TBits_1; inline;
- function getCNPDD12 : TBits_1; inline;
- function getCNPDD13 : TBits_1; inline;
- function getCNPDD14 : TBits_1; inline;
- function getCNPDD15 : TBits_1; inline;
- function getCNPDD2 : TBits_1; inline;
- function getCNPDD3 : TBits_1; inline;
- function getCNPDD4 : TBits_1; inline;
- function getCNPDD5 : TBits_1; inline;
- function getCNPDD6 : TBits_1; inline;
- function getCNPDD7 : TBits_1; inline;
- function getCNPDD8 : TBits_1; inline;
- function getCNPDD9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNPDD0(thebits : TBits_1); inline;
- procedure setCNPDD1(thebits : TBits_1); inline;
- procedure setCNPDD10(thebits : TBits_1); inline;
- procedure setCNPDD11(thebits : TBits_1); inline;
- procedure setCNPDD12(thebits : TBits_1); inline;
- procedure setCNPDD13(thebits : TBits_1); inline;
- procedure setCNPDD14(thebits : TBits_1); inline;
- procedure setCNPDD15(thebits : TBits_1); inline;
- procedure setCNPDD2(thebits : TBits_1); inline;
- procedure setCNPDD3(thebits : TBits_1); inline;
- procedure setCNPDD4(thebits : TBits_1); inline;
- procedure setCNPDD5(thebits : TBits_1); inline;
- procedure setCNPDD6(thebits : TBits_1); inline;
- procedure setCNPDD7(thebits : TBits_1); inline;
- procedure setCNPDD8(thebits : TBits_1); inline;
- procedure setCNPDD9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNPDD0; inline;
- procedure clearCNPDD10; inline;
- procedure clearCNPDD11; inline;
- procedure clearCNPDD12; inline;
- procedure clearCNPDD13; inline;
- procedure clearCNPDD14; inline;
- procedure clearCNPDD15; inline;
- procedure clearCNPDD1; inline;
- procedure clearCNPDD2; inline;
- procedure clearCNPDD3; inline;
- procedure clearCNPDD4; inline;
- procedure clearCNPDD5; inline;
- procedure clearCNPDD6; inline;
- procedure clearCNPDD7; inline;
- procedure clearCNPDD8; inline;
- procedure clearCNPDD9; inline;
- procedure setCNPDD0; inline;
- procedure setCNPDD10; inline;
- procedure setCNPDD11; inline;
- procedure setCNPDD12; inline;
- procedure setCNPDD13; inline;
- procedure setCNPDD14; inline;
- procedure setCNPDD15; inline;
- procedure setCNPDD1; inline;
- procedure setCNPDD2; inline;
- procedure setCNPDD3; inline;
- procedure setCNPDD4; inline;
- procedure setCNPDD5; inline;
- procedure setCNPDD6; inline;
- procedure setCNPDD7; inline;
- procedure setCNPDD8; inline;
- procedure setCNPDD9; inline;
- property CNPDD0 : TBits_1 read getCNPDD0 write setCNPDD0;
- property CNPDD1 : TBits_1 read getCNPDD1 write setCNPDD1;
- property CNPDD10 : TBits_1 read getCNPDD10 write setCNPDD10;
- property CNPDD11 : TBits_1 read getCNPDD11 write setCNPDD11;
- property CNPDD12 : TBits_1 read getCNPDD12 write setCNPDD12;
- property CNPDD13 : TBits_1 read getCNPDD13 write setCNPDD13;
- property CNPDD14 : TBits_1 read getCNPDD14 write setCNPDD14;
- property CNPDD15 : TBits_1 read getCNPDD15 write setCNPDD15;
- property CNPDD2 : TBits_1 read getCNPDD2 write setCNPDD2;
- property CNPDD3 : TBits_1 read getCNPDD3 write setCNPDD3;
- property CNPDD4 : TBits_1 read getCNPDD4 write setCNPDD4;
- property CNPDD5 : TBits_1 read getCNPDD5 write setCNPDD5;
- property CNPDD6 : TBits_1 read getCNPDD6 write setCNPDD6;
- property CNPDD7 : TBits_1 read getCNPDD7 write setCNPDD7;
- property CNPDD8 : TBits_1 read getCNPDD8 write setCNPDD8;
- property CNPDD9 : TBits_1 read getCNPDD9 write setCNPDD9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTD_CNCOND = record
- private
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- TPORTD_CNEND = record
- private
- function getCNIED0 : TBits_1; inline;
- function getCNIED1 : TBits_1; inline;
- function getCNIED10 : TBits_1; inline;
- function getCNIED11 : TBits_1; inline;
- function getCNIED12 : TBits_1; inline;
- function getCNIED13 : TBits_1; inline;
- function getCNIED14 : TBits_1; inline;
- function getCNIED15 : TBits_1; inline;
- function getCNIED2 : TBits_1; inline;
- function getCNIED3 : TBits_1; inline;
- function getCNIED4 : TBits_1; inline;
- function getCNIED5 : TBits_1; inline;
- function getCNIED6 : TBits_1; inline;
- function getCNIED7 : TBits_1; inline;
- function getCNIED8 : TBits_1; inline;
- function getCNIED9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNIED0(thebits : TBits_1); inline;
- procedure setCNIED1(thebits : TBits_1); inline;
- procedure setCNIED10(thebits : TBits_1); inline;
- procedure setCNIED11(thebits : TBits_1); inline;
- procedure setCNIED12(thebits : TBits_1); inline;
- procedure setCNIED13(thebits : TBits_1); inline;
- procedure setCNIED14(thebits : TBits_1); inline;
- procedure setCNIED15(thebits : TBits_1); inline;
- procedure setCNIED2(thebits : TBits_1); inline;
- procedure setCNIED3(thebits : TBits_1); inline;
- procedure setCNIED4(thebits : TBits_1); inline;
- procedure setCNIED5(thebits : TBits_1); inline;
- procedure setCNIED6(thebits : TBits_1); inline;
- procedure setCNIED7(thebits : TBits_1); inline;
- procedure setCNIED8(thebits : TBits_1); inline;
- procedure setCNIED9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNIED0; inline;
- procedure clearCNIED10; inline;
- procedure clearCNIED11; inline;
- procedure clearCNIED12; inline;
- procedure clearCNIED13; inline;
- procedure clearCNIED14; inline;
- procedure clearCNIED15; inline;
- procedure clearCNIED1; inline;
- procedure clearCNIED2; inline;
- procedure clearCNIED3; inline;
- procedure clearCNIED4; inline;
- procedure clearCNIED5; inline;
- procedure clearCNIED6; inline;
- procedure clearCNIED7; inline;
- procedure clearCNIED8; inline;
- procedure clearCNIED9; inline;
- procedure setCNIED0; inline;
- procedure setCNIED10; inline;
- procedure setCNIED11; inline;
- procedure setCNIED12; inline;
- procedure setCNIED13; inline;
- procedure setCNIED14; inline;
- procedure setCNIED15; inline;
- procedure setCNIED1; inline;
- procedure setCNIED2; inline;
- procedure setCNIED3; inline;
- procedure setCNIED4; inline;
- procedure setCNIED5; inline;
- procedure setCNIED6; inline;
- procedure setCNIED7; inline;
- procedure setCNIED8; inline;
- procedure setCNIED9; inline;
- property CNIED0 : TBits_1 read getCNIED0 write setCNIED0;
- property CNIED1 : TBits_1 read getCNIED1 write setCNIED1;
- property CNIED10 : TBits_1 read getCNIED10 write setCNIED10;
- property CNIED11 : TBits_1 read getCNIED11 write setCNIED11;
- property CNIED12 : TBits_1 read getCNIED12 write setCNIED12;
- property CNIED13 : TBits_1 read getCNIED13 write setCNIED13;
- property CNIED14 : TBits_1 read getCNIED14 write setCNIED14;
- property CNIED15 : TBits_1 read getCNIED15 write setCNIED15;
- property CNIED2 : TBits_1 read getCNIED2 write setCNIED2;
- property CNIED3 : TBits_1 read getCNIED3 write setCNIED3;
- property CNIED4 : TBits_1 read getCNIED4 write setCNIED4;
- property CNIED5 : TBits_1 read getCNIED5 write setCNIED5;
- property CNIED6 : TBits_1 read getCNIED6 write setCNIED6;
- property CNIED7 : TBits_1 read getCNIED7 write setCNIED7;
- property CNIED8 : TBits_1 read getCNIED8 write setCNIED8;
- property CNIED9 : TBits_1 read getCNIED9 write setCNIED9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTD_CNSTATD = record
- private
- function getCNSTATD0 : TBits_1; inline;
- function getCNSTATD1 : TBits_1; inline;
- function getCNSTATD10 : TBits_1; inline;
- function getCNSTATD11 : TBits_1; inline;
- function getCNSTATD12 : TBits_1; inline;
- function getCNSTATD13 : TBits_1; inline;
- function getCNSTATD14 : TBits_1; inline;
- function getCNSTATD15 : TBits_1; inline;
- function getCNSTATD2 : TBits_1; inline;
- function getCNSTATD3 : TBits_1; inline;
- function getCNSTATD4 : TBits_1; inline;
- function getCNSTATD5 : TBits_1; inline;
- function getCNSTATD6 : TBits_1; inline;
- function getCNSTATD7 : TBits_1; inline;
- function getCNSTATD8 : TBits_1; inline;
- function getCNSTATD9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNSTATD0(thebits : TBits_1); inline;
- procedure setCNSTATD1(thebits : TBits_1); inline;
- procedure setCNSTATD10(thebits : TBits_1); inline;
- procedure setCNSTATD11(thebits : TBits_1); inline;
- procedure setCNSTATD12(thebits : TBits_1); inline;
- procedure setCNSTATD13(thebits : TBits_1); inline;
- procedure setCNSTATD14(thebits : TBits_1); inline;
- procedure setCNSTATD15(thebits : TBits_1); inline;
- procedure setCNSTATD2(thebits : TBits_1); inline;
- procedure setCNSTATD3(thebits : TBits_1); inline;
- procedure setCNSTATD4(thebits : TBits_1); inline;
- procedure setCNSTATD5(thebits : TBits_1); inline;
- procedure setCNSTATD6(thebits : TBits_1); inline;
- procedure setCNSTATD7(thebits : TBits_1); inline;
- procedure setCNSTATD8(thebits : TBits_1); inline;
- procedure setCNSTATD9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNSTATD0; inline;
- procedure clearCNSTATD10; inline;
- procedure clearCNSTATD11; inline;
- procedure clearCNSTATD12; inline;
- procedure clearCNSTATD13; inline;
- procedure clearCNSTATD14; inline;
- procedure clearCNSTATD15; inline;
- procedure clearCNSTATD1; inline;
- procedure clearCNSTATD2; inline;
- procedure clearCNSTATD3; inline;
- procedure clearCNSTATD4; inline;
- procedure clearCNSTATD5; inline;
- procedure clearCNSTATD6; inline;
- procedure clearCNSTATD7; inline;
- procedure clearCNSTATD8; inline;
- procedure clearCNSTATD9; inline;
- procedure setCNSTATD0; inline;
- procedure setCNSTATD10; inline;
- procedure setCNSTATD11; inline;
- procedure setCNSTATD12; inline;
- procedure setCNSTATD13; inline;
- procedure setCNSTATD14; inline;
- procedure setCNSTATD15; inline;
- procedure setCNSTATD1; inline;
- procedure setCNSTATD2; inline;
- procedure setCNSTATD3; inline;
- procedure setCNSTATD4; inline;
- procedure setCNSTATD5; inline;
- procedure setCNSTATD6; inline;
- procedure setCNSTATD7; inline;
- procedure setCNSTATD8; inline;
- procedure setCNSTATD9; inline;
- property CNSTATD0 : TBits_1 read getCNSTATD0 write setCNSTATD0;
- property CNSTATD1 : TBits_1 read getCNSTATD1 write setCNSTATD1;
- property CNSTATD10 : TBits_1 read getCNSTATD10 write setCNSTATD10;
- property CNSTATD11 : TBits_1 read getCNSTATD11 write setCNSTATD11;
- property CNSTATD12 : TBits_1 read getCNSTATD12 write setCNSTATD12;
- property CNSTATD13 : TBits_1 read getCNSTATD13 write setCNSTATD13;
- property CNSTATD14 : TBits_1 read getCNSTATD14 write setCNSTATD14;
- property CNSTATD15 : TBits_1 read getCNSTATD15 write setCNSTATD15;
- property CNSTATD2 : TBits_1 read getCNSTATD2 write setCNSTATD2;
- property CNSTATD3 : TBits_1 read getCNSTATD3 write setCNSTATD3;
- property CNSTATD4 : TBits_1 read getCNSTATD4 write setCNSTATD4;
- property CNSTATD5 : TBits_1 read getCNSTATD5 write setCNSTATD5;
- property CNSTATD6 : TBits_1 read getCNSTATD6 write setCNSTATD6;
- property CNSTATD7 : TBits_1 read getCNSTATD7 write setCNSTATD7;
- property CNSTATD8 : TBits_1 read getCNSTATD8 write setCNSTATD8;
- property CNSTATD9 : TBits_1 read getCNSTATD9 write setCNSTATD9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTD_ANSELE = record
- private
- function getANSE2 : TBits_1; inline;
- function getANSE4 : TBits_1; inline;
- function getANSE5 : TBits_1; inline;
- function getANSE6 : TBits_1; inline;
- function getANSE7 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setANSE2(thebits : TBits_1); inline;
- procedure setANSE4(thebits : TBits_1); inline;
- procedure setANSE5(thebits : TBits_1); inline;
- procedure setANSE6(thebits : TBits_1); inline;
- procedure setANSE7(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearANSE2; inline;
- procedure clearANSE4; inline;
- procedure clearANSE5; inline;
- procedure clearANSE6; inline;
- procedure clearANSE7; inline;
- procedure setANSE2; inline;
- procedure setANSE4; inline;
- procedure setANSE5; inline;
- procedure setANSE6; inline;
- procedure setANSE7; inline;
- property ANSE2 : TBits_1 read getANSE2 write setANSE2;
- property ANSE4 : TBits_1 read getANSE4 write setANSE4;
- property ANSE5 : TBits_1 read getANSE5 write setANSE5;
- property ANSE6 : TBits_1 read getANSE6 write setANSE6;
- property ANSE7 : TBits_1 read getANSE7 write setANSE7;
- property w : TBits_32 read getw write setw;
- end;
- TPORTD_TRISE = record
- private
- function getTRISE0 : TBits_1; inline;
- function getTRISE1 : TBits_1; inline;
- function getTRISE2 : TBits_1; inline;
- function getTRISE3 : TBits_1; inline;
- function getTRISE4 : TBits_1; inline;
- function getTRISE5 : TBits_1; inline;
- function getTRISE6 : TBits_1; inline;
- function getTRISE7 : TBits_1; inline;
- function getTRISE8 : TBits_1; inline;
- function getTRISE9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setTRISE0(thebits : TBits_1); inline;
- procedure setTRISE1(thebits : TBits_1); inline;
- procedure setTRISE2(thebits : TBits_1); inline;
- procedure setTRISE3(thebits : TBits_1); inline;
- procedure setTRISE4(thebits : TBits_1); inline;
- procedure setTRISE5(thebits : TBits_1); inline;
- procedure setTRISE6(thebits : TBits_1); inline;
- procedure setTRISE7(thebits : TBits_1); inline;
- procedure setTRISE8(thebits : TBits_1); inline;
- procedure setTRISE9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearTRISE0; inline;
- procedure clearTRISE1; inline;
- procedure clearTRISE2; inline;
- procedure clearTRISE3; inline;
- procedure clearTRISE4; inline;
- procedure clearTRISE5; inline;
- procedure clearTRISE6; inline;
- procedure clearTRISE7; inline;
- procedure clearTRISE8; inline;
- procedure clearTRISE9; inline;
- procedure setTRISE0; inline;
- procedure setTRISE1; inline;
- procedure setTRISE2; inline;
- procedure setTRISE3; inline;
- procedure setTRISE4; inline;
- procedure setTRISE5; inline;
- procedure setTRISE6; inline;
- procedure setTRISE7; inline;
- procedure setTRISE8; inline;
- procedure setTRISE9; inline;
- property TRISE0 : TBits_1 read getTRISE0 write setTRISE0;
- property TRISE1 : TBits_1 read getTRISE1 write setTRISE1;
- property TRISE2 : TBits_1 read getTRISE2 write setTRISE2;
- property TRISE3 : TBits_1 read getTRISE3 write setTRISE3;
- property TRISE4 : TBits_1 read getTRISE4 write setTRISE4;
- property TRISE5 : TBits_1 read getTRISE5 write setTRISE5;
- property TRISE6 : TBits_1 read getTRISE6 write setTRISE6;
- property TRISE7 : TBits_1 read getTRISE7 write setTRISE7;
- property TRISE8 : TBits_1 read getTRISE8 write setTRISE8;
- property TRISE9 : TBits_1 read getTRISE9 write setTRISE9;
- property w : TBits_32 read getw write setw;
- end;
- type
- TPORTDRegisters = record
- PORTDbits : TPORTD_PORTD;
- PORTD : longWord;
- PORTDCLR : longWord;
- PORTDSET : longWord;
- PORTDINV : longWord;
- LATDbits : TPORTD_LATD;
- LATD : longWord;
- LATDCLR : longWord;
- LATDSET : longWord;
- LATDINV : longWord;
- ODCDbits : TPORTD_ODCD;
- ODCD : longWord;
- ODCDCLR : longWord;
- ODCDSET : longWord;
- ODCDINV : longWord;
- CNPUDbits : TPORTD_CNPUD;
- CNPUD : longWord;
- CNPUDCLR : longWord;
- CNPUDSET : longWord;
- CNPUDINV : longWord;
- CNPDDbits : TPORTD_CNPDD;
- CNPDD : longWord;
- CNPDDCLR : longWord;
- CNPDDSET : longWord;
- CNPDDINV : longWord;
- CNCONDbits : TPORTD_CNCOND;
- CNCOND : longWord;
- CNCONDCLR : longWord;
- CNCONDSET : longWord;
- CNCONDINV : longWord;
- CNENDbits : TPORTD_CNEND;
- CNEND : longWord;
- CNENDCLR : longWord;
- CNENDSET : longWord;
- CNENDINV : longWord;
- CNSTATDbits : TPORTD_CNSTATD;
- CNSTATD : longWord;
- CNSTATDCLR : longWord;
- CNSTATDSET : longWord;
- CNSTATDINV : longWord;
- ANSELEbits : TPORTD_ANSELE;
- ANSELE : longWord;
- ANSELECLR : longWord;
- ANSELESET : longWord;
- ANSELEINV : longWord;
- TRISEbits : TPORTD_TRISE;
- TRISE : longWord;
- TRISECLR : longWord;
- TRISESET : longWord;
- TRISEINV : longWord;
- end;
- TPORTE_PORTE = record
- private
- function getRE0 : TBits_1; inline;
- function getRE1 : TBits_1; inline;
- function getRE2 : TBits_1; inline;
- function getRE3 : TBits_1; inline;
- function getRE4 : TBits_1; inline;
- function getRE5 : TBits_1; inline;
- function getRE6 : TBits_1; inline;
- function getRE7 : TBits_1; inline;
- function getRE8 : TBits_1; inline;
- function getRE9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setRE0(thebits : TBits_1); inline;
- procedure setRE1(thebits : TBits_1); inline;
- procedure setRE2(thebits : TBits_1); inline;
- procedure setRE3(thebits : TBits_1); inline;
- procedure setRE4(thebits : TBits_1); inline;
- procedure setRE5(thebits : TBits_1); inline;
- procedure setRE6(thebits : TBits_1); inline;
- procedure setRE7(thebits : TBits_1); inline;
- procedure setRE8(thebits : TBits_1); inline;
- procedure setRE9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearRE0; inline;
- procedure clearRE1; inline;
- procedure clearRE2; inline;
- procedure clearRE3; inline;
- procedure clearRE4; inline;
- procedure clearRE5; inline;
- procedure clearRE6; inline;
- procedure clearRE7; inline;
- procedure clearRE8; inline;
- procedure clearRE9; inline;
- procedure setRE0; inline;
- procedure setRE1; inline;
- procedure setRE2; inline;
- procedure setRE3; inline;
- procedure setRE4; inline;
- procedure setRE5; inline;
- procedure setRE6; inline;
- procedure setRE7; inline;
- procedure setRE8; inline;
- procedure setRE9; inline;
- property RE0 : TBits_1 read getRE0 write setRE0;
- property RE1 : TBits_1 read getRE1 write setRE1;
- property RE2 : TBits_1 read getRE2 write setRE2;
- property RE3 : TBits_1 read getRE3 write setRE3;
- property RE4 : TBits_1 read getRE4 write setRE4;
- property RE5 : TBits_1 read getRE5 write setRE5;
- property RE6 : TBits_1 read getRE6 write setRE6;
- property RE7 : TBits_1 read getRE7 write setRE7;
- property RE8 : TBits_1 read getRE8 write setRE8;
- property RE9 : TBits_1 read getRE9 write setRE9;
- property w : TBits_32 read getw write setw;
- end;
- TPortE_bits=(RE0=0,RE1=1,RE2=2,RE3=3,RE4=4,RE5=5,RE6=6,RE7=7,RE8=8,RE9=9);
- TPortE_bitset = set of TPortE_bits;
- TPORTE_LATE = record
- private
- function getLATE0 : TBits_1; inline;
- function getLATE1 : TBits_1; inline;
- function getLATE2 : TBits_1; inline;
- function getLATE3 : TBits_1; inline;
- function getLATE4 : TBits_1; inline;
- function getLATE5 : TBits_1; inline;
- function getLATE6 : TBits_1; inline;
- function getLATE7 : TBits_1; inline;
- function getLATE8 : TBits_1; inline;
- function getLATE9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setLATE0(thebits : TBits_1); inline;
- procedure setLATE1(thebits : TBits_1); inline;
- procedure setLATE2(thebits : TBits_1); inline;
- procedure setLATE3(thebits : TBits_1); inline;
- procedure setLATE4(thebits : TBits_1); inline;
- procedure setLATE5(thebits : TBits_1); inline;
- procedure setLATE6(thebits : TBits_1); inline;
- procedure setLATE7(thebits : TBits_1); inline;
- procedure setLATE8(thebits : TBits_1); inline;
- procedure setLATE9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearLATE0; inline;
- procedure clearLATE1; inline;
- procedure clearLATE2; inline;
- procedure clearLATE3; inline;
- procedure clearLATE4; inline;
- procedure clearLATE5; inline;
- procedure clearLATE6; inline;
- procedure clearLATE7; inline;
- procedure clearLATE8; inline;
- procedure clearLATE9; inline;
- procedure setLATE0; inline;
- procedure setLATE1; inline;
- procedure setLATE2; inline;
- procedure setLATE3; inline;
- procedure setLATE4; inline;
- procedure setLATE5; inline;
- procedure setLATE6; inline;
- procedure setLATE7; inline;
- procedure setLATE8; inline;
- procedure setLATE9; inline;
- property LATE0 : TBits_1 read getLATE0 write setLATE0;
- property LATE1 : TBits_1 read getLATE1 write setLATE1;
- property LATE2 : TBits_1 read getLATE2 write setLATE2;
- property LATE3 : TBits_1 read getLATE3 write setLATE3;
- property LATE4 : TBits_1 read getLATE4 write setLATE4;
- property LATE5 : TBits_1 read getLATE5 write setLATE5;
- property LATE6 : TBits_1 read getLATE6 write setLATE6;
- property LATE7 : TBits_1 read getLATE7 write setLATE7;
- property LATE8 : TBits_1 read getLATE8 write setLATE8;
- property LATE9 : TBits_1 read getLATE9 write setLATE9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTE_ODCE = record
- private
- function getODCE0 : TBits_1; inline;
- function getODCE1 : TBits_1; inline;
- function getODCE2 : TBits_1; inline;
- function getODCE3 : TBits_1; inline;
- function getODCE4 : TBits_1; inline;
- function getODCE5 : TBits_1; inline;
- function getODCE6 : TBits_1; inline;
- function getODCE7 : TBits_1; inline;
- function getODCE8 : TBits_1; inline;
- function getODCE9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setODCE0(thebits : TBits_1); inline;
- procedure setODCE1(thebits : TBits_1); inline;
- procedure setODCE2(thebits : TBits_1); inline;
- procedure setODCE3(thebits : TBits_1); inline;
- procedure setODCE4(thebits : TBits_1); inline;
- procedure setODCE5(thebits : TBits_1); inline;
- procedure setODCE6(thebits : TBits_1); inline;
- procedure setODCE7(thebits : TBits_1); inline;
- procedure setODCE8(thebits : TBits_1); inline;
- procedure setODCE9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearODCE0; inline;
- procedure clearODCE1; inline;
- procedure clearODCE2; inline;
- procedure clearODCE3; inline;
- procedure clearODCE4; inline;
- procedure clearODCE5; inline;
- procedure clearODCE6; inline;
- procedure clearODCE7; inline;
- procedure clearODCE8; inline;
- procedure clearODCE9; inline;
- procedure setODCE0; inline;
- procedure setODCE1; inline;
- procedure setODCE2; inline;
- procedure setODCE3; inline;
- procedure setODCE4; inline;
- procedure setODCE5; inline;
- procedure setODCE6; inline;
- procedure setODCE7; inline;
- procedure setODCE8; inline;
- procedure setODCE9; inline;
- property ODCE0 : TBits_1 read getODCE0 write setODCE0;
- property ODCE1 : TBits_1 read getODCE1 write setODCE1;
- property ODCE2 : TBits_1 read getODCE2 write setODCE2;
- property ODCE3 : TBits_1 read getODCE3 write setODCE3;
- property ODCE4 : TBits_1 read getODCE4 write setODCE4;
- property ODCE5 : TBits_1 read getODCE5 write setODCE5;
- property ODCE6 : TBits_1 read getODCE6 write setODCE6;
- property ODCE7 : TBits_1 read getODCE7 write setODCE7;
- property ODCE8 : TBits_1 read getODCE8 write setODCE8;
- property ODCE9 : TBits_1 read getODCE9 write setODCE9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTE_CNPUE = record
- private
- function getCNPUE0 : TBits_1; inline;
- function getCNPUE1 : TBits_1; inline;
- function getCNPUE2 : TBits_1; inline;
- function getCNPUE3 : TBits_1; inline;
- function getCNPUE4 : TBits_1; inline;
- function getCNPUE5 : TBits_1; inline;
- function getCNPUE6 : TBits_1; inline;
- function getCNPUE7 : TBits_1; inline;
- function getCNPUE8 : TBits_1; inline;
- function getCNPUE9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNPUE0(thebits : TBits_1); inline;
- procedure setCNPUE1(thebits : TBits_1); inline;
- procedure setCNPUE2(thebits : TBits_1); inline;
- procedure setCNPUE3(thebits : TBits_1); inline;
- procedure setCNPUE4(thebits : TBits_1); inline;
- procedure setCNPUE5(thebits : TBits_1); inline;
- procedure setCNPUE6(thebits : TBits_1); inline;
- procedure setCNPUE7(thebits : TBits_1); inline;
- procedure setCNPUE8(thebits : TBits_1); inline;
- procedure setCNPUE9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNPUE0; inline;
- procedure clearCNPUE1; inline;
- procedure clearCNPUE2; inline;
- procedure clearCNPUE3; inline;
- procedure clearCNPUE4; inline;
- procedure clearCNPUE5; inline;
- procedure clearCNPUE6; inline;
- procedure clearCNPUE7; inline;
- procedure clearCNPUE8; inline;
- procedure clearCNPUE9; inline;
- procedure setCNPUE0; inline;
- procedure setCNPUE1; inline;
- procedure setCNPUE2; inline;
- procedure setCNPUE3; inline;
- procedure setCNPUE4; inline;
- procedure setCNPUE5; inline;
- procedure setCNPUE6; inline;
- procedure setCNPUE7; inline;
- procedure setCNPUE8; inline;
- procedure setCNPUE9; inline;
- property CNPUE0 : TBits_1 read getCNPUE0 write setCNPUE0;
- property CNPUE1 : TBits_1 read getCNPUE1 write setCNPUE1;
- property CNPUE2 : TBits_1 read getCNPUE2 write setCNPUE2;
- property CNPUE3 : TBits_1 read getCNPUE3 write setCNPUE3;
- property CNPUE4 : TBits_1 read getCNPUE4 write setCNPUE4;
- property CNPUE5 : TBits_1 read getCNPUE5 write setCNPUE5;
- property CNPUE6 : TBits_1 read getCNPUE6 write setCNPUE6;
- property CNPUE7 : TBits_1 read getCNPUE7 write setCNPUE7;
- property CNPUE8 : TBits_1 read getCNPUE8 write setCNPUE8;
- property CNPUE9 : TBits_1 read getCNPUE9 write setCNPUE9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTE_CNPDE = record
- private
- function getCNPDE0 : TBits_1; inline;
- function getCNPDE1 : TBits_1; inline;
- function getCNPDE2 : TBits_1; inline;
- function getCNPDE3 : TBits_1; inline;
- function getCNPDE4 : TBits_1; inline;
- function getCNPDE5 : TBits_1; inline;
- function getCNPDE6 : TBits_1; inline;
- function getCNPDE7 : TBits_1; inline;
- function getCNPDE8 : TBits_1; inline;
- function getCNPDE9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNPDE0(thebits : TBits_1); inline;
- procedure setCNPDE1(thebits : TBits_1); inline;
- procedure setCNPDE2(thebits : TBits_1); inline;
- procedure setCNPDE3(thebits : TBits_1); inline;
- procedure setCNPDE4(thebits : TBits_1); inline;
- procedure setCNPDE5(thebits : TBits_1); inline;
- procedure setCNPDE6(thebits : TBits_1); inline;
- procedure setCNPDE7(thebits : TBits_1); inline;
- procedure setCNPDE8(thebits : TBits_1); inline;
- procedure setCNPDE9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNPDE0; inline;
- procedure clearCNPDE1; inline;
- procedure clearCNPDE2; inline;
- procedure clearCNPDE3; inline;
- procedure clearCNPDE4; inline;
- procedure clearCNPDE5; inline;
- procedure clearCNPDE6; inline;
- procedure clearCNPDE7; inline;
- procedure clearCNPDE8; inline;
- procedure clearCNPDE9; inline;
- procedure setCNPDE0; inline;
- procedure setCNPDE1; inline;
- procedure setCNPDE2; inline;
- procedure setCNPDE3; inline;
- procedure setCNPDE4; inline;
- procedure setCNPDE5; inline;
- procedure setCNPDE6; inline;
- procedure setCNPDE7; inline;
- procedure setCNPDE8; inline;
- procedure setCNPDE9; inline;
- property CNPDE0 : TBits_1 read getCNPDE0 write setCNPDE0;
- property CNPDE1 : TBits_1 read getCNPDE1 write setCNPDE1;
- property CNPDE2 : TBits_1 read getCNPDE2 write setCNPDE2;
- property CNPDE3 : TBits_1 read getCNPDE3 write setCNPDE3;
- property CNPDE4 : TBits_1 read getCNPDE4 write setCNPDE4;
- property CNPDE5 : TBits_1 read getCNPDE5 write setCNPDE5;
- property CNPDE6 : TBits_1 read getCNPDE6 write setCNPDE6;
- property CNPDE7 : TBits_1 read getCNPDE7 write setCNPDE7;
- property CNPDE8 : TBits_1 read getCNPDE8 write setCNPDE8;
- property CNPDE9 : TBits_1 read getCNPDE9 write setCNPDE9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTE_CNCONE = record
- private
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- TPORTE_CNENE = record
- private
- function getCNIEE0 : TBits_1; inline;
- function getCNIEE1 : TBits_1; inline;
- function getCNIEE2 : TBits_1; inline;
- function getCNIEE3 : TBits_1; inline;
- function getCNIEE4 : TBits_1; inline;
- function getCNIEE5 : TBits_1; inline;
- function getCNIEE6 : TBits_1; inline;
- function getCNIEE7 : TBits_1; inline;
- function getCNIEE8 : TBits_1; inline;
- function getCNIEE9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNIEE0(thebits : TBits_1); inline;
- procedure setCNIEE1(thebits : TBits_1); inline;
- procedure setCNIEE2(thebits : TBits_1); inline;
- procedure setCNIEE3(thebits : TBits_1); inline;
- procedure setCNIEE4(thebits : TBits_1); inline;
- procedure setCNIEE5(thebits : TBits_1); inline;
- procedure setCNIEE6(thebits : TBits_1); inline;
- procedure setCNIEE7(thebits : TBits_1); inline;
- procedure setCNIEE8(thebits : TBits_1); inline;
- procedure setCNIEE9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNIEE0; inline;
- procedure clearCNIEE1; inline;
- procedure clearCNIEE2; inline;
- procedure clearCNIEE3; inline;
- procedure clearCNIEE4; inline;
- procedure clearCNIEE5; inline;
- procedure clearCNIEE6; inline;
- procedure clearCNIEE7; inline;
- procedure clearCNIEE8; inline;
- procedure clearCNIEE9; inline;
- procedure setCNIEE0; inline;
- procedure setCNIEE1; inline;
- procedure setCNIEE2; inline;
- procedure setCNIEE3; inline;
- procedure setCNIEE4; inline;
- procedure setCNIEE5; inline;
- procedure setCNIEE6; inline;
- procedure setCNIEE7; inline;
- procedure setCNIEE8; inline;
- procedure setCNIEE9; inline;
- property CNIEE0 : TBits_1 read getCNIEE0 write setCNIEE0;
- property CNIEE1 : TBits_1 read getCNIEE1 write setCNIEE1;
- property CNIEE2 : TBits_1 read getCNIEE2 write setCNIEE2;
- property CNIEE3 : TBits_1 read getCNIEE3 write setCNIEE3;
- property CNIEE4 : TBits_1 read getCNIEE4 write setCNIEE4;
- property CNIEE5 : TBits_1 read getCNIEE5 write setCNIEE5;
- property CNIEE6 : TBits_1 read getCNIEE6 write setCNIEE6;
- property CNIEE7 : TBits_1 read getCNIEE7 write setCNIEE7;
- property CNIEE8 : TBits_1 read getCNIEE8 write setCNIEE8;
- property CNIEE9 : TBits_1 read getCNIEE9 write setCNIEE9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTE_CNSTATE = record
- private
- function getCNSTATE0 : TBits_1; inline;
- function getCNSTATE1 : TBits_1; inline;
- function getCNSTATE2 : TBits_1; inline;
- function getCNSTATE3 : TBits_1; inline;
- function getCNSTATE4 : TBits_1; inline;
- function getCNSTATE5 : TBits_1; inline;
- function getCNSTATE6 : TBits_1; inline;
- function getCNSTATE7 : TBits_1; inline;
- function getCNSTATE8 : TBits_1; inline;
- function getCNSTATE9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNSTATE0(thebits : TBits_1); inline;
- procedure setCNSTATE1(thebits : TBits_1); inline;
- procedure setCNSTATE2(thebits : TBits_1); inline;
- procedure setCNSTATE3(thebits : TBits_1); inline;
- procedure setCNSTATE4(thebits : TBits_1); inline;
- procedure setCNSTATE5(thebits : TBits_1); inline;
- procedure setCNSTATE6(thebits : TBits_1); inline;
- procedure setCNSTATE7(thebits : TBits_1); inline;
- procedure setCNSTATE8(thebits : TBits_1); inline;
- procedure setCNSTATE9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNSTATE0; inline;
- procedure clearCNSTATE1; inline;
- procedure clearCNSTATE2; inline;
- procedure clearCNSTATE3; inline;
- procedure clearCNSTATE4; inline;
- procedure clearCNSTATE5; inline;
- procedure clearCNSTATE6; inline;
- procedure clearCNSTATE7; inline;
- procedure clearCNSTATE8; inline;
- procedure clearCNSTATE9; inline;
- procedure setCNSTATE0; inline;
- procedure setCNSTATE1; inline;
- procedure setCNSTATE2; inline;
- procedure setCNSTATE3; inline;
- procedure setCNSTATE4; inline;
- procedure setCNSTATE5; inline;
- procedure setCNSTATE6; inline;
- procedure setCNSTATE7; inline;
- procedure setCNSTATE8; inline;
- procedure setCNSTATE9; inline;
- property CNSTATE0 : TBits_1 read getCNSTATE0 write setCNSTATE0;
- property CNSTATE1 : TBits_1 read getCNSTATE1 write setCNSTATE1;
- property CNSTATE2 : TBits_1 read getCNSTATE2 write setCNSTATE2;
- property CNSTATE3 : TBits_1 read getCNSTATE3 write setCNSTATE3;
- property CNSTATE4 : TBits_1 read getCNSTATE4 write setCNSTATE4;
- property CNSTATE5 : TBits_1 read getCNSTATE5 write setCNSTATE5;
- property CNSTATE6 : TBits_1 read getCNSTATE6 write setCNSTATE6;
- property CNSTATE7 : TBits_1 read getCNSTATE7 write setCNSTATE7;
- property CNSTATE8 : TBits_1 read getCNSTATE8 write setCNSTATE8;
- property CNSTATE9 : TBits_1 read getCNSTATE9 write setCNSTATE9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTE_TRISF = record
- private
- function getTRISF0 : TBits_1; inline;
- function getTRISF1 : TBits_1; inline;
- function getTRISF12 : TBits_1; inline;
- function getTRISF13 : TBits_1; inline;
- function getTRISF2 : TBits_1; inline;
- function getTRISF3 : TBits_1; inline;
- function getTRISF4 : TBits_1; inline;
- function getTRISF5 : TBits_1; inline;
- function getTRISF8 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setTRISF0(thebits : TBits_1); inline;
- procedure setTRISF1(thebits : TBits_1); inline;
- procedure setTRISF12(thebits : TBits_1); inline;
- procedure setTRISF13(thebits : TBits_1); inline;
- procedure setTRISF2(thebits : TBits_1); inline;
- procedure setTRISF3(thebits : TBits_1); inline;
- procedure setTRISF4(thebits : TBits_1); inline;
- procedure setTRISF5(thebits : TBits_1); inline;
- procedure setTRISF8(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearTRISF0; inline;
- procedure clearTRISF12; inline;
- procedure clearTRISF13; inline;
- procedure clearTRISF1; inline;
- procedure clearTRISF2; inline;
- procedure clearTRISF3; inline;
- procedure clearTRISF4; inline;
- procedure clearTRISF5; inline;
- procedure clearTRISF8; inline;
- procedure setTRISF0; inline;
- procedure setTRISF12; inline;
- procedure setTRISF13; inline;
- procedure setTRISF1; inline;
- procedure setTRISF2; inline;
- procedure setTRISF3; inline;
- procedure setTRISF4; inline;
- procedure setTRISF5; inline;
- procedure setTRISF8; inline;
- property TRISF0 : TBits_1 read getTRISF0 write setTRISF0;
- property TRISF1 : TBits_1 read getTRISF1 write setTRISF1;
- property TRISF12 : TBits_1 read getTRISF12 write setTRISF12;
- property TRISF13 : TBits_1 read getTRISF13 write setTRISF13;
- property TRISF2 : TBits_1 read getTRISF2 write setTRISF2;
- property TRISF3 : TBits_1 read getTRISF3 write setTRISF3;
- property TRISF4 : TBits_1 read getTRISF4 write setTRISF4;
- property TRISF5 : TBits_1 read getTRISF5 write setTRISF5;
- property TRISF8 : TBits_1 read getTRISF8 write setTRISF8;
- property w : TBits_32 read getw write setw;
- end;
- type
- TPORTERegisters = record
- PORTEbits : TPORTE_PORTE;
- PORTE : longWord;
- PORTECLR : longWord;
- PORTESET : longWord;
- PORTEINV : longWord;
- LATEbits : TPORTE_LATE;
- LATE : longWord;
- LATECLR : longWord;
- LATESET : longWord;
- LATEINV : longWord;
- ODCEbits : TPORTE_ODCE;
- ODCE : longWord;
- ODCECLR : longWord;
- ODCESET : longWord;
- ODCEINV : longWord;
- CNPUEbits : TPORTE_CNPUE;
- CNPUE : longWord;
- CNPUECLR : longWord;
- CNPUESET : longWord;
- CNPUEINV : longWord;
- CNPDEbits : TPORTE_CNPDE;
- CNPDE : longWord;
- CNPDECLR : longWord;
- CNPDESET : longWord;
- CNPDEINV : longWord;
- CNCONEbits : TPORTE_CNCONE;
- CNCONE : longWord;
- CNCONECLR : longWord;
- CNCONESET : longWord;
- CNCONEINV : longWord;
- CNENEbits : TPORTE_CNENE;
- CNENE : longWord;
- CNENECLR : longWord;
- CNENESET : longWord;
- CNENEINV : longWord;
- CNSTATEbits : TPORTE_CNSTATE;
- CNSTATE : longWord;
- CNSTATECLR : longWord;
- CNSTATESET : longWord;
- CNSTATEINV : longWord;
- ANSELF : longWord;
- ANSELFCLR : longWord;
- ANSELFSET : longWord;
- ANSELFINV : longWord;
- TRISFbits : TPORTE_TRISF;
- TRISF : longWord;
- TRISFCLR : longWord;
- TRISFSET : longWord;
- TRISFINV : longWord;
- end;
- TPORTF_PORTF = record
- private
- function getRF0 : TBits_1; inline;
- function getRF1 : TBits_1; inline;
- function getRF12 : TBits_1; inline;
- function getRF13 : TBits_1; inline;
- function getRF2 : TBits_1; inline;
- function getRF3 : TBits_1; inline;
- function getRF4 : TBits_1; inline;
- function getRF5 : TBits_1; inline;
- function getRF8 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setRF0(thebits : TBits_1); inline;
- procedure setRF1(thebits : TBits_1); inline;
- procedure setRF12(thebits : TBits_1); inline;
- procedure setRF13(thebits : TBits_1); inline;
- procedure setRF2(thebits : TBits_1); inline;
- procedure setRF3(thebits : TBits_1); inline;
- procedure setRF4(thebits : TBits_1); inline;
- procedure setRF5(thebits : TBits_1); inline;
- procedure setRF8(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearRF0; inline;
- procedure clearRF12; inline;
- procedure clearRF13; inline;
- procedure clearRF1; inline;
- procedure clearRF2; inline;
- procedure clearRF3; inline;
- procedure clearRF4; inline;
- procedure clearRF5; inline;
- procedure clearRF8; inline;
- procedure setRF0; inline;
- procedure setRF12; inline;
- procedure setRF13; inline;
- procedure setRF1; inline;
- procedure setRF2; inline;
- procedure setRF3; inline;
- procedure setRF4; inline;
- procedure setRF5; inline;
- procedure setRF8; inline;
- property RF0 : TBits_1 read getRF0 write setRF0;
- property RF1 : TBits_1 read getRF1 write setRF1;
- property RF12 : TBits_1 read getRF12 write setRF12;
- property RF13 : TBits_1 read getRF13 write setRF13;
- property RF2 : TBits_1 read getRF2 write setRF2;
- property RF3 : TBits_1 read getRF3 write setRF3;
- property RF4 : TBits_1 read getRF4 write setRF4;
- property RF5 : TBits_1 read getRF5 write setRF5;
- property RF8 : TBits_1 read getRF8 write setRF8;
- property w : TBits_32 read getw write setw;
- end;
- TPortF_bits=(RF0=0,RF1=1,RF2=2,RF3=3,RF4=4,RF5=5,RF8=8,RF12=12,RF13=13);
- TPortF_bitset = set of TPortF_bits;
- TPORTF_LATF = record
- private
- function getLATF0 : TBits_1; inline;
- function getLATF1 : TBits_1; inline;
- function getLATF12 : TBits_1; inline;
- function getLATF13 : TBits_1; inline;
- function getLATF2 : TBits_1; inline;
- function getLATF3 : TBits_1; inline;
- function getLATF4 : TBits_1; inline;
- function getLATF5 : TBits_1; inline;
- function getLATF8 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setLATF0(thebits : TBits_1); inline;
- procedure setLATF1(thebits : TBits_1); inline;
- procedure setLATF12(thebits : TBits_1); inline;
- procedure setLATF13(thebits : TBits_1); inline;
- procedure setLATF2(thebits : TBits_1); inline;
- procedure setLATF3(thebits : TBits_1); inline;
- procedure setLATF4(thebits : TBits_1); inline;
- procedure setLATF5(thebits : TBits_1); inline;
- procedure setLATF8(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearLATF0; inline;
- procedure clearLATF12; inline;
- procedure clearLATF13; inline;
- procedure clearLATF1; inline;
- procedure clearLATF2; inline;
- procedure clearLATF3; inline;
- procedure clearLATF4; inline;
- procedure clearLATF5; inline;
- procedure clearLATF8; inline;
- procedure setLATF0; inline;
- procedure setLATF12; inline;
- procedure setLATF13; inline;
- procedure setLATF1; inline;
- procedure setLATF2; inline;
- procedure setLATF3; inline;
- procedure setLATF4; inline;
- procedure setLATF5; inline;
- procedure setLATF8; inline;
- property LATF0 : TBits_1 read getLATF0 write setLATF0;
- property LATF1 : TBits_1 read getLATF1 write setLATF1;
- property LATF12 : TBits_1 read getLATF12 write setLATF12;
- property LATF13 : TBits_1 read getLATF13 write setLATF13;
- property LATF2 : TBits_1 read getLATF2 write setLATF2;
- property LATF3 : TBits_1 read getLATF3 write setLATF3;
- property LATF4 : TBits_1 read getLATF4 write setLATF4;
- property LATF5 : TBits_1 read getLATF5 write setLATF5;
- property LATF8 : TBits_1 read getLATF8 write setLATF8;
- property w : TBits_32 read getw write setw;
- end;
- TPORTF_ODCF = record
- private
- function getODCF0 : TBits_1; inline;
- function getODCF1 : TBits_1; inline;
- function getODCF12 : TBits_1; inline;
- function getODCF13 : TBits_1; inline;
- function getODCF2 : TBits_1; inline;
- function getODCF3 : TBits_1; inline;
- function getODCF4 : TBits_1; inline;
- function getODCF5 : TBits_1; inline;
- function getODCF8 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setODCF0(thebits : TBits_1); inline;
- procedure setODCF1(thebits : TBits_1); inline;
- procedure setODCF12(thebits : TBits_1); inline;
- procedure setODCF13(thebits : TBits_1); inline;
- procedure setODCF2(thebits : TBits_1); inline;
- procedure setODCF3(thebits : TBits_1); inline;
- procedure setODCF4(thebits : TBits_1); inline;
- procedure setODCF5(thebits : TBits_1); inline;
- procedure setODCF8(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearODCF0; inline;
- procedure clearODCF12; inline;
- procedure clearODCF13; inline;
- procedure clearODCF1; inline;
- procedure clearODCF2; inline;
- procedure clearODCF3; inline;
- procedure clearODCF4; inline;
- procedure clearODCF5; inline;
- procedure clearODCF8; inline;
- procedure setODCF0; inline;
- procedure setODCF12; inline;
- procedure setODCF13; inline;
- procedure setODCF1; inline;
- procedure setODCF2; inline;
- procedure setODCF3; inline;
- procedure setODCF4; inline;
- procedure setODCF5; inline;
- procedure setODCF8; inline;
- property ODCF0 : TBits_1 read getODCF0 write setODCF0;
- property ODCF1 : TBits_1 read getODCF1 write setODCF1;
- property ODCF12 : TBits_1 read getODCF12 write setODCF12;
- property ODCF13 : TBits_1 read getODCF13 write setODCF13;
- property ODCF2 : TBits_1 read getODCF2 write setODCF2;
- property ODCF3 : TBits_1 read getODCF3 write setODCF3;
- property ODCF4 : TBits_1 read getODCF4 write setODCF4;
- property ODCF5 : TBits_1 read getODCF5 write setODCF5;
- property ODCF8 : TBits_1 read getODCF8 write setODCF8;
- property w : TBits_32 read getw write setw;
- end;
- TPORTF_CNPUF = record
- private
- function getCNPUF0 : TBits_1; inline;
- function getCNPUF1 : TBits_1; inline;
- function getCNPUF12 : TBits_1; inline;
- function getCNPUF13 : TBits_1; inline;
- function getCNPUF2 : TBits_1; inline;
- function getCNPUF3 : TBits_1; inline;
- function getCNPUF4 : TBits_1; inline;
- function getCNPUF5 : TBits_1; inline;
- function getCNPUF8 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNPUF0(thebits : TBits_1); inline;
- procedure setCNPUF1(thebits : TBits_1); inline;
- procedure setCNPUF12(thebits : TBits_1); inline;
- procedure setCNPUF13(thebits : TBits_1); inline;
- procedure setCNPUF2(thebits : TBits_1); inline;
- procedure setCNPUF3(thebits : TBits_1); inline;
- procedure setCNPUF4(thebits : TBits_1); inline;
- procedure setCNPUF5(thebits : TBits_1); inline;
- procedure setCNPUF8(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNPUF0; inline;
- procedure clearCNPUF12; inline;
- procedure clearCNPUF13; inline;
- procedure clearCNPUF1; inline;
- procedure clearCNPUF2; inline;
- procedure clearCNPUF3; inline;
- procedure clearCNPUF4; inline;
- procedure clearCNPUF5; inline;
- procedure clearCNPUF8; inline;
- procedure setCNPUF0; inline;
- procedure setCNPUF12; inline;
- procedure setCNPUF13; inline;
- procedure setCNPUF1; inline;
- procedure setCNPUF2; inline;
- procedure setCNPUF3; inline;
- procedure setCNPUF4; inline;
- procedure setCNPUF5; inline;
- procedure setCNPUF8; inline;
- property CNPUF0 : TBits_1 read getCNPUF0 write setCNPUF0;
- property CNPUF1 : TBits_1 read getCNPUF1 write setCNPUF1;
- property CNPUF12 : TBits_1 read getCNPUF12 write setCNPUF12;
- property CNPUF13 : TBits_1 read getCNPUF13 write setCNPUF13;
- property CNPUF2 : TBits_1 read getCNPUF2 write setCNPUF2;
- property CNPUF3 : TBits_1 read getCNPUF3 write setCNPUF3;
- property CNPUF4 : TBits_1 read getCNPUF4 write setCNPUF4;
- property CNPUF5 : TBits_1 read getCNPUF5 write setCNPUF5;
- property CNPUF8 : TBits_1 read getCNPUF8 write setCNPUF8;
- property w : TBits_32 read getw write setw;
- end;
- TPORTF_CNPDF = record
- private
- function getCNPDF0 : TBits_1; inline;
- function getCNPDF1 : TBits_1; inline;
- function getCNPDF12 : TBits_1; inline;
- function getCNPDF13 : TBits_1; inline;
- function getCNPDF2 : TBits_1; inline;
- function getCNPDF3 : TBits_1; inline;
- function getCNPDF4 : TBits_1; inline;
- function getCNPDF5 : TBits_1; inline;
- function getCNPDF8 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNPDF0(thebits : TBits_1); inline;
- procedure setCNPDF1(thebits : TBits_1); inline;
- procedure setCNPDF12(thebits : TBits_1); inline;
- procedure setCNPDF13(thebits : TBits_1); inline;
- procedure setCNPDF2(thebits : TBits_1); inline;
- procedure setCNPDF3(thebits : TBits_1); inline;
- procedure setCNPDF4(thebits : TBits_1); inline;
- procedure setCNPDF5(thebits : TBits_1); inline;
- procedure setCNPDF8(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNPDF0; inline;
- procedure clearCNPDF12; inline;
- procedure clearCNPDF13; inline;
- procedure clearCNPDF1; inline;
- procedure clearCNPDF2; inline;
- procedure clearCNPDF3; inline;
- procedure clearCNPDF4; inline;
- procedure clearCNPDF5; inline;
- procedure clearCNPDF8; inline;
- procedure setCNPDF0; inline;
- procedure setCNPDF12; inline;
- procedure setCNPDF13; inline;
- procedure setCNPDF1; inline;
- procedure setCNPDF2; inline;
- procedure setCNPDF3; inline;
- procedure setCNPDF4; inline;
- procedure setCNPDF5; inline;
- procedure setCNPDF8; inline;
- property CNPDF0 : TBits_1 read getCNPDF0 write setCNPDF0;
- property CNPDF1 : TBits_1 read getCNPDF1 write setCNPDF1;
- property CNPDF12 : TBits_1 read getCNPDF12 write setCNPDF12;
- property CNPDF13 : TBits_1 read getCNPDF13 write setCNPDF13;
- property CNPDF2 : TBits_1 read getCNPDF2 write setCNPDF2;
- property CNPDF3 : TBits_1 read getCNPDF3 write setCNPDF3;
- property CNPDF4 : TBits_1 read getCNPDF4 write setCNPDF4;
- property CNPDF5 : TBits_1 read getCNPDF5 write setCNPDF5;
- property CNPDF8 : TBits_1 read getCNPDF8 write setCNPDF8;
- property w : TBits_32 read getw write setw;
- end;
- TPORTF_CNCONF = record
- private
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- TPORTF_CNENF = record
- private
- function getCNIEF0 : TBits_1; inline;
- function getCNIEF1 : TBits_1; inline;
- function getCNIEF12 : TBits_1; inline;
- function getCNIEF13 : TBits_1; inline;
- function getCNIEF2 : TBits_1; inline;
- function getCNIEF3 : TBits_1; inline;
- function getCNIEF4 : TBits_1; inline;
- function getCNIEF5 : TBits_1; inline;
- function getCNIEF8 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNIEF0(thebits : TBits_1); inline;
- procedure setCNIEF1(thebits : TBits_1); inline;
- procedure setCNIEF12(thebits : TBits_1); inline;
- procedure setCNIEF13(thebits : TBits_1); inline;
- procedure setCNIEF2(thebits : TBits_1); inline;
- procedure setCNIEF3(thebits : TBits_1); inline;
- procedure setCNIEF4(thebits : TBits_1); inline;
- procedure setCNIEF5(thebits : TBits_1); inline;
- procedure setCNIEF8(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNIEF0; inline;
- procedure clearCNIEF12; inline;
- procedure clearCNIEF13; inline;
- procedure clearCNIEF1; inline;
- procedure clearCNIEF2; inline;
- procedure clearCNIEF3; inline;
- procedure clearCNIEF4; inline;
- procedure clearCNIEF5; inline;
- procedure clearCNIEF8; inline;
- procedure setCNIEF0; inline;
- procedure setCNIEF12; inline;
- procedure setCNIEF13; inline;
- procedure setCNIEF1; inline;
- procedure setCNIEF2; inline;
- procedure setCNIEF3; inline;
- procedure setCNIEF4; inline;
- procedure setCNIEF5; inline;
- procedure setCNIEF8; inline;
- property CNIEF0 : TBits_1 read getCNIEF0 write setCNIEF0;
- property CNIEF1 : TBits_1 read getCNIEF1 write setCNIEF1;
- property CNIEF12 : TBits_1 read getCNIEF12 write setCNIEF12;
- property CNIEF13 : TBits_1 read getCNIEF13 write setCNIEF13;
- property CNIEF2 : TBits_1 read getCNIEF2 write setCNIEF2;
- property CNIEF3 : TBits_1 read getCNIEF3 write setCNIEF3;
- property CNIEF4 : TBits_1 read getCNIEF4 write setCNIEF4;
- property CNIEF5 : TBits_1 read getCNIEF5 write setCNIEF5;
- property CNIEF8 : TBits_1 read getCNIEF8 write setCNIEF8;
- property w : TBits_32 read getw write setw;
- end;
- TPORTF_CNSTATF = record
- private
- function getCNSTATF0 : TBits_1; inline;
- function getCNSTATF1 : TBits_1; inline;
- function getCNSTATF12 : TBits_1; inline;
- function getCNSTATF13 : TBits_1; inline;
- function getCNSTATF2 : TBits_1; inline;
- function getCNSTATF3 : TBits_1; inline;
- function getCNSTATF4 : TBits_1; inline;
- function getCNSTATF5 : TBits_1; inline;
- function getCNSTATF8 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNSTATF0(thebits : TBits_1); inline;
- procedure setCNSTATF1(thebits : TBits_1); inline;
- procedure setCNSTATF12(thebits : TBits_1); inline;
- procedure setCNSTATF13(thebits : TBits_1); inline;
- procedure setCNSTATF2(thebits : TBits_1); inline;
- procedure setCNSTATF3(thebits : TBits_1); inline;
- procedure setCNSTATF4(thebits : TBits_1); inline;
- procedure setCNSTATF5(thebits : TBits_1); inline;
- procedure setCNSTATF8(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNSTATF0; inline;
- procedure clearCNSTATF12; inline;
- procedure clearCNSTATF13; inline;
- procedure clearCNSTATF1; inline;
- procedure clearCNSTATF2; inline;
- procedure clearCNSTATF3; inline;
- procedure clearCNSTATF4; inline;
- procedure clearCNSTATF5; inline;
- procedure clearCNSTATF8; inline;
- procedure setCNSTATF0; inline;
- procedure setCNSTATF12; inline;
- procedure setCNSTATF13; inline;
- procedure setCNSTATF1; inline;
- procedure setCNSTATF2; inline;
- procedure setCNSTATF3; inline;
- procedure setCNSTATF4; inline;
- procedure setCNSTATF5; inline;
- procedure setCNSTATF8; inline;
- property CNSTATF0 : TBits_1 read getCNSTATF0 write setCNSTATF0;
- property CNSTATF1 : TBits_1 read getCNSTATF1 write setCNSTATF1;
- property CNSTATF12 : TBits_1 read getCNSTATF12 write setCNSTATF12;
- property CNSTATF13 : TBits_1 read getCNSTATF13 write setCNSTATF13;
- property CNSTATF2 : TBits_1 read getCNSTATF2 write setCNSTATF2;
- property CNSTATF3 : TBits_1 read getCNSTATF3 write setCNSTATF3;
- property CNSTATF4 : TBits_1 read getCNSTATF4 write setCNSTATF4;
- property CNSTATF5 : TBits_1 read getCNSTATF5 write setCNSTATF5;
- property CNSTATF8 : TBits_1 read getCNSTATF8 write setCNSTATF8;
- property w : TBits_32 read getw write setw;
- end;
- TPORTF_ANSELG = record
- private
- function getANSG6 : TBits_1; inline;
- function getANSG7 : TBits_1; inline;
- function getANSG8 : TBits_1; inline;
- function getANSG9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setANSG6(thebits : TBits_1); inline;
- procedure setANSG7(thebits : TBits_1); inline;
- procedure setANSG8(thebits : TBits_1); inline;
- procedure setANSG9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearANSG6; inline;
- procedure clearANSG7; inline;
- procedure clearANSG8; inline;
- procedure clearANSG9; inline;
- procedure setANSG6; inline;
- procedure setANSG7; inline;
- procedure setANSG8; inline;
- procedure setANSG9; inline;
- property ANSG6 : TBits_1 read getANSG6 write setANSG6;
- property ANSG7 : TBits_1 read getANSG7 write setANSG7;
- property ANSG8 : TBits_1 read getANSG8 write setANSG8;
- property ANSG9 : TBits_1 read getANSG9 write setANSG9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTF_TRISG = record
- private
- function getTRISG0 : TBits_1; inline;
- function getTRISG1 : TBits_1; inline;
- function getTRISG12 : TBits_1; inline;
- function getTRISG13 : TBits_1; inline;
- function getTRISG14 : TBits_1; inline;
- function getTRISG15 : TBits_1; inline;
- function getTRISG2 : TBits_1; inline;
- function getTRISG3 : TBits_1; inline;
- function getTRISG6 : TBits_1; inline;
- function getTRISG7 : TBits_1; inline;
- function getTRISG8 : TBits_1; inline;
- function getTRISG9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setTRISG0(thebits : TBits_1); inline;
- procedure setTRISG1(thebits : TBits_1); inline;
- procedure setTRISG12(thebits : TBits_1); inline;
- procedure setTRISG13(thebits : TBits_1); inline;
- procedure setTRISG14(thebits : TBits_1); inline;
- procedure setTRISG15(thebits : TBits_1); inline;
- procedure setTRISG2(thebits : TBits_1); inline;
- procedure setTRISG3(thebits : TBits_1); inline;
- procedure setTRISG6(thebits : TBits_1); inline;
- procedure setTRISG7(thebits : TBits_1); inline;
- procedure setTRISG8(thebits : TBits_1); inline;
- procedure setTRISG9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearTRISG0; inline;
- procedure clearTRISG12; inline;
- procedure clearTRISG13; inline;
- procedure clearTRISG14; inline;
- procedure clearTRISG15; inline;
- procedure clearTRISG1; inline;
- procedure clearTRISG2; inline;
- procedure clearTRISG3; inline;
- procedure clearTRISG6; inline;
- procedure clearTRISG7; inline;
- procedure clearTRISG8; inline;
- procedure clearTRISG9; inline;
- procedure setTRISG0; inline;
- procedure setTRISG12; inline;
- procedure setTRISG13; inline;
- procedure setTRISG14; inline;
- procedure setTRISG15; inline;
- procedure setTRISG1; inline;
- procedure setTRISG2; inline;
- procedure setTRISG3; inline;
- procedure setTRISG6; inline;
- procedure setTRISG7; inline;
- procedure setTRISG8; inline;
- procedure setTRISG9; inline;
- property TRISG0 : TBits_1 read getTRISG0 write setTRISG0;
- property TRISG1 : TBits_1 read getTRISG1 write setTRISG1;
- property TRISG12 : TBits_1 read getTRISG12 write setTRISG12;
- property TRISG13 : TBits_1 read getTRISG13 write setTRISG13;
- property TRISG14 : TBits_1 read getTRISG14 write setTRISG14;
- property TRISG15 : TBits_1 read getTRISG15 write setTRISG15;
- property TRISG2 : TBits_1 read getTRISG2 write setTRISG2;
- property TRISG3 : TBits_1 read getTRISG3 write setTRISG3;
- property TRISG6 : TBits_1 read getTRISG6 write setTRISG6;
- property TRISG7 : TBits_1 read getTRISG7 write setTRISG7;
- property TRISG8 : TBits_1 read getTRISG8 write setTRISG8;
- property TRISG9 : TBits_1 read getTRISG9 write setTRISG9;
- property w : TBits_32 read getw write setw;
- end;
- type
- TPORTFRegisters = record
- PORTFbits : TPORTF_PORTF;
- PORTF : longWord;
- PORTFCLR : longWord;
- PORTFSET : longWord;
- PORTFINV : longWord;
- LATFbits : TPORTF_LATF;
- LATF : longWord;
- LATFCLR : longWord;
- LATFSET : longWord;
- LATFINV : longWord;
- ODCFbits : TPORTF_ODCF;
- ODCF : longWord;
- ODCFCLR : longWord;
- ODCFSET : longWord;
- ODCFINV : longWord;
- CNPUFbits : TPORTF_CNPUF;
- CNPUF : longWord;
- CNPUFCLR : longWord;
- CNPUFSET : longWord;
- CNPUFINV : longWord;
- CNPDFbits : TPORTF_CNPDF;
- CNPDF : longWord;
- CNPDFCLR : longWord;
- CNPDFSET : longWord;
- CNPDFINV : longWord;
- CNCONFbits : TPORTF_CNCONF;
- CNCONF : longWord;
- CNCONFCLR : longWord;
- CNCONFSET : longWord;
- CNCONFINV : longWord;
- CNENFbits : TPORTF_CNENF;
- CNENF : longWord;
- CNENFCLR : longWord;
- CNENFSET : longWord;
- CNENFINV : longWord;
- CNSTATFbits : TPORTF_CNSTATF;
- CNSTATF : longWord;
- CNSTATFCLR : longWord;
- CNSTATFSET : longWord;
- CNSTATFINV : longWord;
- ANSELGbits : TPORTF_ANSELG;
- ANSELG : longWord;
- ANSELGCLR : longWord;
- ANSELGSET : longWord;
- ANSELGINV : longWord;
- TRISGbits : TPORTF_TRISG;
- TRISG : longWord;
- TRISGCLR : longWord;
- TRISGSET : longWord;
- TRISGINV : longWord;
- end;
- TPORTG_PORTG = record
- private
- function getRG0 : TBits_1; inline;
- function getRG1 : TBits_1; inline;
- function getRG12 : TBits_1; inline;
- function getRG13 : TBits_1; inline;
- function getRG14 : TBits_1; inline;
- function getRG15 : TBits_1; inline;
- function getRG2 : TBits_1; inline;
- function getRG3 : TBits_1; inline;
- function getRG6 : TBits_1; inline;
- function getRG7 : TBits_1; inline;
- function getRG8 : TBits_1; inline;
- function getRG9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setRG0(thebits : TBits_1); inline;
- procedure setRG1(thebits : TBits_1); inline;
- procedure setRG12(thebits : TBits_1); inline;
- procedure setRG13(thebits : TBits_1); inline;
- procedure setRG14(thebits : TBits_1); inline;
- procedure setRG15(thebits : TBits_1); inline;
- procedure setRG2(thebits : TBits_1); inline;
- procedure setRG3(thebits : TBits_1); inline;
- procedure setRG6(thebits : TBits_1); inline;
- procedure setRG7(thebits : TBits_1); inline;
- procedure setRG8(thebits : TBits_1); inline;
- procedure setRG9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearRG0; inline;
- procedure clearRG12; inline;
- procedure clearRG13; inline;
- procedure clearRG14; inline;
- procedure clearRG15; inline;
- procedure clearRG1; inline;
- procedure clearRG2; inline;
- procedure clearRG3; inline;
- procedure clearRG6; inline;
- procedure clearRG7; inline;
- procedure clearRG8; inline;
- procedure clearRG9; inline;
- procedure setRG0; inline;
- procedure setRG12; inline;
- procedure setRG13; inline;
- procedure setRG14; inline;
- procedure setRG15; inline;
- procedure setRG1; inline;
- procedure setRG2; inline;
- procedure setRG3; inline;
- procedure setRG6; inline;
- procedure setRG7; inline;
- procedure setRG8; inline;
- procedure setRG9; inline;
- property RG0 : TBits_1 read getRG0 write setRG0;
- property RG1 : TBits_1 read getRG1 write setRG1;
- property RG12 : TBits_1 read getRG12 write setRG12;
- property RG13 : TBits_1 read getRG13 write setRG13;
- property RG14 : TBits_1 read getRG14 write setRG14;
- property RG15 : TBits_1 read getRG15 write setRG15;
- property RG2 : TBits_1 read getRG2 write setRG2;
- property RG3 : TBits_1 read getRG3 write setRG3;
- property RG6 : TBits_1 read getRG6 write setRG6;
- property RG7 : TBits_1 read getRG7 write setRG7;
- property RG8 : TBits_1 read getRG8 write setRG8;
- property RG9 : TBits_1 read getRG9 write setRG9;
- property w : TBits_32 read getw write setw;
- end;
- TPortG_bits=(RG0=0,RG1=1,RG2=2,RG3=3,RG6=6,RG7=7,RG8=8,RG9=9,RG12=12,RG13=13,RG14=14,RG15=15);
- TPortG_bitset = set of TPortG_bits;
- TPORTG_LATG = record
- private
- function getLATG0 : TBits_1; inline;
- function getLATG1 : TBits_1; inline;
- function getLATG12 : TBits_1; inline;
- function getLATG13 : TBits_1; inline;
- function getLATG14 : TBits_1; inline;
- function getLATG15 : TBits_1; inline;
- function getLATG2 : TBits_1; inline;
- function getLATG3 : TBits_1; inline;
- function getLATG6 : TBits_1; inline;
- function getLATG7 : TBits_1; inline;
- function getLATG8 : TBits_1; inline;
- function getLATG9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setLATG0(thebits : TBits_1); inline;
- procedure setLATG1(thebits : TBits_1); inline;
- procedure setLATG12(thebits : TBits_1); inline;
- procedure setLATG13(thebits : TBits_1); inline;
- procedure setLATG14(thebits : TBits_1); inline;
- procedure setLATG15(thebits : TBits_1); inline;
- procedure setLATG2(thebits : TBits_1); inline;
- procedure setLATG3(thebits : TBits_1); inline;
- procedure setLATG6(thebits : TBits_1); inline;
- procedure setLATG7(thebits : TBits_1); inline;
- procedure setLATG8(thebits : TBits_1); inline;
- procedure setLATG9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearLATG0; inline;
- procedure clearLATG12; inline;
- procedure clearLATG13; inline;
- procedure clearLATG14; inline;
- procedure clearLATG15; inline;
- procedure clearLATG1; inline;
- procedure clearLATG2; inline;
- procedure clearLATG3; inline;
- procedure clearLATG6; inline;
- procedure clearLATG7; inline;
- procedure clearLATG8; inline;
- procedure clearLATG9; inline;
- procedure setLATG0; inline;
- procedure setLATG12; inline;
- procedure setLATG13; inline;
- procedure setLATG14; inline;
- procedure setLATG15; inline;
- procedure setLATG1; inline;
- procedure setLATG2; inline;
- procedure setLATG3; inline;
- procedure setLATG6; inline;
- procedure setLATG7; inline;
- procedure setLATG8; inline;
- procedure setLATG9; inline;
- property LATG0 : TBits_1 read getLATG0 write setLATG0;
- property LATG1 : TBits_1 read getLATG1 write setLATG1;
- property LATG12 : TBits_1 read getLATG12 write setLATG12;
- property LATG13 : TBits_1 read getLATG13 write setLATG13;
- property LATG14 : TBits_1 read getLATG14 write setLATG14;
- property LATG15 : TBits_1 read getLATG15 write setLATG15;
- property LATG2 : TBits_1 read getLATG2 write setLATG2;
- property LATG3 : TBits_1 read getLATG3 write setLATG3;
- property LATG6 : TBits_1 read getLATG6 write setLATG6;
- property LATG7 : TBits_1 read getLATG7 write setLATG7;
- property LATG8 : TBits_1 read getLATG8 write setLATG8;
- property LATG9 : TBits_1 read getLATG9 write setLATG9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTG_ODCG = record
- private
- function getODCG0 : TBits_1; inline;
- function getODCG1 : TBits_1; inline;
- function getODCG12 : TBits_1; inline;
- function getODCG13 : TBits_1; inline;
- function getODCG14 : TBits_1; inline;
- function getODCG15 : TBits_1; inline;
- function getODCG2 : TBits_1; inline;
- function getODCG3 : TBits_1; inline;
- function getODCG6 : TBits_1; inline;
- function getODCG7 : TBits_1; inline;
- function getODCG8 : TBits_1; inline;
- function getODCG9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setODCG0(thebits : TBits_1); inline;
- procedure setODCG1(thebits : TBits_1); inline;
- procedure setODCG12(thebits : TBits_1); inline;
- procedure setODCG13(thebits : TBits_1); inline;
- procedure setODCG14(thebits : TBits_1); inline;
- procedure setODCG15(thebits : TBits_1); inline;
- procedure setODCG2(thebits : TBits_1); inline;
- procedure setODCG3(thebits : TBits_1); inline;
- procedure setODCG6(thebits : TBits_1); inline;
- procedure setODCG7(thebits : TBits_1); inline;
- procedure setODCG8(thebits : TBits_1); inline;
- procedure setODCG9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearODCG0; inline;
- procedure clearODCG12; inline;
- procedure clearODCG13; inline;
- procedure clearODCG14; inline;
- procedure clearODCG15; inline;
- procedure clearODCG1; inline;
- procedure clearODCG2; inline;
- procedure clearODCG3; inline;
- procedure clearODCG6; inline;
- procedure clearODCG7; inline;
- procedure clearODCG8; inline;
- procedure clearODCG9; inline;
- procedure setODCG0; inline;
- procedure setODCG12; inline;
- procedure setODCG13; inline;
- procedure setODCG14; inline;
- procedure setODCG15; inline;
- procedure setODCG1; inline;
- procedure setODCG2; inline;
- procedure setODCG3; inline;
- procedure setODCG6; inline;
- procedure setODCG7; inline;
- procedure setODCG8; inline;
- procedure setODCG9; inline;
- property ODCG0 : TBits_1 read getODCG0 write setODCG0;
- property ODCG1 : TBits_1 read getODCG1 write setODCG1;
- property ODCG12 : TBits_1 read getODCG12 write setODCG12;
- property ODCG13 : TBits_1 read getODCG13 write setODCG13;
- property ODCG14 : TBits_1 read getODCG14 write setODCG14;
- property ODCG15 : TBits_1 read getODCG15 write setODCG15;
- property ODCG2 : TBits_1 read getODCG2 write setODCG2;
- property ODCG3 : TBits_1 read getODCG3 write setODCG3;
- property ODCG6 : TBits_1 read getODCG6 write setODCG6;
- property ODCG7 : TBits_1 read getODCG7 write setODCG7;
- property ODCG8 : TBits_1 read getODCG8 write setODCG8;
- property ODCG9 : TBits_1 read getODCG9 write setODCG9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTG_CNPUG = record
- private
- function getCNPUG0 : TBits_1; inline;
- function getCNPUG1 : TBits_1; inline;
- function getCNPUG12 : TBits_1; inline;
- function getCNPUG13 : TBits_1; inline;
- function getCNPUG14 : TBits_1; inline;
- function getCNPUG15 : TBits_1; inline;
- function getCNPUG2 : TBits_1; inline;
- function getCNPUG3 : TBits_1; inline;
- function getCNPUG6 : TBits_1; inline;
- function getCNPUG7 : TBits_1; inline;
- function getCNPUG8 : TBits_1; inline;
- function getCNPUG9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNPUG0(thebits : TBits_1); inline;
- procedure setCNPUG1(thebits : TBits_1); inline;
- procedure setCNPUG12(thebits : TBits_1); inline;
- procedure setCNPUG13(thebits : TBits_1); inline;
- procedure setCNPUG14(thebits : TBits_1); inline;
- procedure setCNPUG15(thebits : TBits_1); inline;
- procedure setCNPUG2(thebits : TBits_1); inline;
- procedure setCNPUG3(thebits : TBits_1); inline;
- procedure setCNPUG6(thebits : TBits_1); inline;
- procedure setCNPUG7(thebits : TBits_1); inline;
- procedure setCNPUG8(thebits : TBits_1); inline;
- procedure setCNPUG9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNPUG0; inline;
- procedure clearCNPUG12; inline;
- procedure clearCNPUG13; inline;
- procedure clearCNPUG14; inline;
- procedure clearCNPUG15; inline;
- procedure clearCNPUG1; inline;
- procedure clearCNPUG2; inline;
- procedure clearCNPUG3; inline;
- procedure clearCNPUG6; inline;
- procedure clearCNPUG7; inline;
- procedure clearCNPUG8; inline;
- procedure clearCNPUG9; inline;
- procedure setCNPUG0; inline;
- procedure setCNPUG12; inline;
- procedure setCNPUG13; inline;
- procedure setCNPUG14; inline;
- procedure setCNPUG15; inline;
- procedure setCNPUG1; inline;
- procedure setCNPUG2; inline;
- procedure setCNPUG3; inline;
- procedure setCNPUG6; inline;
- procedure setCNPUG7; inline;
- procedure setCNPUG8; inline;
- procedure setCNPUG9; inline;
- property CNPUG0 : TBits_1 read getCNPUG0 write setCNPUG0;
- property CNPUG1 : TBits_1 read getCNPUG1 write setCNPUG1;
- property CNPUG12 : TBits_1 read getCNPUG12 write setCNPUG12;
- property CNPUG13 : TBits_1 read getCNPUG13 write setCNPUG13;
- property CNPUG14 : TBits_1 read getCNPUG14 write setCNPUG14;
- property CNPUG15 : TBits_1 read getCNPUG15 write setCNPUG15;
- property CNPUG2 : TBits_1 read getCNPUG2 write setCNPUG2;
- property CNPUG3 : TBits_1 read getCNPUG3 write setCNPUG3;
- property CNPUG6 : TBits_1 read getCNPUG6 write setCNPUG6;
- property CNPUG7 : TBits_1 read getCNPUG7 write setCNPUG7;
- property CNPUG8 : TBits_1 read getCNPUG8 write setCNPUG8;
- property CNPUG9 : TBits_1 read getCNPUG9 write setCNPUG9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTG_CNPDG = record
- private
- function getCNPDG0 : TBits_1; inline;
- function getCNPDG1 : TBits_1; inline;
- function getCNPDG12 : TBits_1; inline;
- function getCNPDG13 : TBits_1; inline;
- function getCNPDG14 : TBits_1; inline;
- function getCNPDG15 : TBits_1; inline;
- function getCNPDG2 : TBits_1; inline;
- function getCNPDG3 : TBits_1; inline;
- function getCNPDG6 : TBits_1; inline;
- function getCNPDG7 : TBits_1; inline;
- function getCNPDG8 : TBits_1; inline;
- function getCNPDG9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNPDG0(thebits : TBits_1); inline;
- procedure setCNPDG1(thebits : TBits_1); inline;
- procedure setCNPDG12(thebits : TBits_1); inline;
- procedure setCNPDG13(thebits : TBits_1); inline;
- procedure setCNPDG14(thebits : TBits_1); inline;
- procedure setCNPDG15(thebits : TBits_1); inline;
- procedure setCNPDG2(thebits : TBits_1); inline;
- procedure setCNPDG3(thebits : TBits_1); inline;
- procedure setCNPDG6(thebits : TBits_1); inline;
- procedure setCNPDG7(thebits : TBits_1); inline;
- procedure setCNPDG8(thebits : TBits_1); inline;
- procedure setCNPDG9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNPDG0; inline;
- procedure clearCNPDG12; inline;
- procedure clearCNPDG13; inline;
- procedure clearCNPDG14; inline;
- procedure clearCNPDG15; inline;
- procedure clearCNPDG1; inline;
- procedure clearCNPDG2; inline;
- procedure clearCNPDG3; inline;
- procedure clearCNPDG6; inline;
- procedure clearCNPDG7; inline;
- procedure clearCNPDG8; inline;
- procedure clearCNPDG9; inline;
- procedure setCNPDG0; inline;
- procedure setCNPDG12; inline;
- procedure setCNPDG13; inline;
- procedure setCNPDG14; inline;
- procedure setCNPDG15; inline;
- procedure setCNPDG1; inline;
- procedure setCNPDG2; inline;
- procedure setCNPDG3; inline;
- procedure setCNPDG6; inline;
- procedure setCNPDG7; inline;
- procedure setCNPDG8; inline;
- procedure setCNPDG9; inline;
- property CNPDG0 : TBits_1 read getCNPDG0 write setCNPDG0;
- property CNPDG1 : TBits_1 read getCNPDG1 write setCNPDG1;
- property CNPDG12 : TBits_1 read getCNPDG12 write setCNPDG12;
- property CNPDG13 : TBits_1 read getCNPDG13 write setCNPDG13;
- property CNPDG14 : TBits_1 read getCNPDG14 write setCNPDG14;
- property CNPDG15 : TBits_1 read getCNPDG15 write setCNPDG15;
- property CNPDG2 : TBits_1 read getCNPDG2 write setCNPDG2;
- property CNPDG3 : TBits_1 read getCNPDG3 write setCNPDG3;
- property CNPDG6 : TBits_1 read getCNPDG6 write setCNPDG6;
- property CNPDG7 : TBits_1 read getCNPDG7 write setCNPDG7;
- property CNPDG8 : TBits_1 read getCNPDG8 write setCNPDG8;
- property CNPDG9 : TBits_1 read getCNPDG9 write setCNPDG9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTG_CNCONG = record
- private
- function getON : TBits_1; inline;
- function getSIDL : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setON(thebits : TBits_1); inline;
- procedure setSIDL(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearON; inline;
- procedure clearSIDL; inline;
- procedure setON; inline;
- procedure setSIDL; inline;
- property ON : TBits_1 read getON write setON;
- property SIDL : TBits_1 read getSIDL write setSIDL;
- property w : TBits_32 read getw write setw;
- end;
- TPORTG_CNENG = record
- private
- function getCNIEG0 : TBits_1; inline;
- function getCNIEG1 : TBits_1; inline;
- function getCNIEG12 : TBits_1; inline;
- function getCNIEG13 : TBits_1; inline;
- function getCNIEG14 : TBits_1; inline;
- function getCNIEG15 : TBits_1; inline;
- function getCNIEG2 : TBits_1; inline;
- function getCNIEG3 : TBits_1; inline;
- function getCNIEG6 : TBits_1; inline;
- function getCNIEG7 : TBits_1; inline;
- function getCNIEG8 : TBits_1; inline;
- function getCNIEG9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNIEG0(thebits : TBits_1); inline;
- procedure setCNIEG1(thebits : TBits_1); inline;
- procedure setCNIEG12(thebits : TBits_1); inline;
- procedure setCNIEG13(thebits : TBits_1); inline;
- procedure setCNIEG14(thebits : TBits_1); inline;
- procedure setCNIEG15(thebits : TBits_1); inline;
- procedure setCNIEG2(thebits : TBits_1); inline;
- procedure setCNIEG3(thebits : TBits_1); inline;
- procedure setCNIEG6(thebits : TBits_1); inline;
- procedure setCNIEG7(thebits : TBits_1); inline;
- procedure setCNIEG8(thebits : TBits_1); inline;
- procedure setCNIEG9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNIEG0; inline;
- procedure clearCNIEG12; inline;
- procedure clearCNIEG13; inline;
- procedure clearCNIEG14; inline;
- procedure clearCNIEG15; inline;
- procedure clearCNIEG1; inline;
- procedure clearCNIEG2; inline;
- procedure clearCNIEG3; inline;
- procedure clearCNIEG6; inline;
- procedure clearCNIEG7; inline;
- procedure clearCNIEG8; inline;
- procedure clearCNIEG9; inline;
- procedure setCNIEG0; inline;
- procedure setCNIEG12; inline;
- procedure setCNIEG13; inline;
- procedure setCNIEG14; inline;
- procedure setCNIEG15; inline;
- procedure setCNIEG1; inline;
- procedure setCNIEG2; inline;
- procedure setCNIEG3; inline;
- procedure setCNIEG6; inline;
- procedure setCNIEG7; inline;
- procedure setCNIEG8; inline;
- procedure setCNIEG9; inline;
- property CNIEG0 : TBits_1 read getCNIEG0 write setCNIEG0;
- property CNIEG1 : TBits_1 read getCNIEG1 write setCNIEG1;
- property CNIEG12 : TBits_1 read getCNIEG12 write setCNIEG12;
- property CNIEG13 : TBits_1 read getCNIEG13 write setCNIEG13;
- property CNIEG14 : TBits_1 read getCNIEG14 write setCNIEG14;
- property CNIEG15 : TBits_1 read getCNIEG15 write setCNIEG15;
- property CNIEG2 : TBits_1 read getCNIEG2 write setCNIEG2;
- property CNIEG3 : TBits_1 read getCNIEG3 write setCNIEG3;
- property CNIEG6 : TBits_1 read getCNIEG6 write setCNIEG6;
- property CNIEG7 : TBits_1 read getCNIEG7 write setCNIEG7;
- property CNIEG8 : TBits_1 read getCNIEG8 write setCNIEG8;
- property CNIEG9 : TBits_1 read getCNIEG9 write setCNIEG9;
- property w : TBits_32 read getw write setw;
- end;
- TPORTG_CNSTATG = record
- private
- function getCNSTATG0 : TBits_1; inline;
- function getCNSTATG1 : TBits_1; inline;
- function getCNSTATG12 : TBits_1; inline;
- function getCNSTATG13 : TBits_1; inline;
- function getCNSTATG14 : TBits_1; inline;
- function getCNSTATG15 : TBits_1; inline;
- function getCNSTATG2 : TBits_1; inline;
- function getCNSTATG3 : TBits_1; inline;
- function getCNSTATG6 : TBits_1; inline;
- function getCNSTATG7 : TBits_1; inline;
- function getCNSTATG8 : TBits_1; inline;
- function getCNSTATG9 : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setCNSTATG0(thebits : TBits_1); inline;
- procedure setCNSTATG1(thebits : TBits_1); inline;
- procedure setCNSTATG12(thebits : TBits_1); inline;
- procedure setCNSTATG13(thebits : TBits_1); inline;
- procedure setCNSTATG14(thebits : TBits_1); inline;
- procedure setCNSTATG15(thebits : TBits_1); inline;
- procedure setCNSTATG2(thebits : TBits_1); inline;
- procedure setCNSTATG3(thebits : TBits_1); inline;
- procedure setCNSTATG6(thebits : TBits_1); inline;
- procedure setCNSTATG7(thebits : TBits_1); inline;
- procedure setCNSTATG8(thebits : TBits_1); inline;
- procedure setCNSTATG9(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearCNSTATG0; inline;
- procedure clearCNSTATG12; inline;
- procedure clearCNSTATG13; inline;
- procedure clearCNSTATG14; inline;
- procedure clearCNSTATG15; inline;
- procedure clearCNSTATG1; inline;
- procedure clearCNSTATG2; inline;
- procedure clearCNSTATG3; inline;
- procedure clearCNSTATG6; inline;
- procedure clearCNSTATG7; inline;
- procedure clearCNSTATG8; inline;
- procedure clearCNSTATG9; inline;
- procedure setCNSTATG0; inline;
- procedure setCNSTATG12; inline;
- procedure setCNSTATG13; inline;
- procedure setCNSTATG14; inline;
- procedure setCNSTATG15; inline;
- procedure setCNSTATG1; inline;
- procedure setCNSTATG2; inline;
- procedure setCNSTATG3; inline;
- procedure setCNSTATG6; inline;
- procedure setCNSTATG7; inline;
- procedure setCNSTATG8; inline;
- procedure setCNSTATG9; inline;
- property CNSTATG0 : TBits_1 read getCNSTATG0 write setCNSTATG0;
- property CNSTATG1 : TBits_1 read getCNSTATG1 write setCNSTATG1;
- property CNSTATG12 : TBits_1 read getCNSTATG12 write setCNSTATG12;
- property CNSTATG13 : TBits_1 read getCNSTATG13 write setCNSTATG13;
- property CNSTATG14 : TBits_1 read getCNSTATG14 write setCNSTATG14;
- property CNSTATG15 : TBits_1 read getCNSTATG15 write setCNSTATG15;
- property CNSTATG2 : TBits_1 read getCNSTATG2 write setCNSTATG2;
- property CNSTATG3 : TBits_1 read getCNSTATG3 write setCNSTATG3;
- property CNSTATG6 : TBits_1 read getCNSTATG6 write setCNSTATG6;
- property CNSTATG7 : TBits_1 read getCNSTATG7 write setCNSTATG7;
- property CNSTATG8 : TBits_1 read getCNSTATG8 write setCNSTATG8;
- property CNSTATG9 : TBits_1 read getCNSTATG9 write setCNSTATG9;
- property w : TBits_32 read getw write setw;
- end;
- type
- TPORTGRegisters = record
- PORTGbits : TPORTG_PORTG;
- PORTG : longWord;
- PORTGCLR : longWord;
- PORTGSET : longWord;
- PORTGINV : longWord;
- LATGbits : TPORTG_LATG;
- LATG : longWord;
- LATGCLR : longWord;
- LATGSET : longWord;
- LATGINV : longWord;
- ODCGbits : TPORTG_ODCG;
- ODCG : longWord;
- ODCGCLR : longWord;
- ODCGSET : longWord;
- ODCGINV : longWord;
- CNPUGbits : TPORTG_CNPUG;
- CNPUG : longWord;
- CNPUGCLR : longWord;
- CNPUGSET : longWord;
- CNPUGINV : longWord;
- CNPDGbits : TPORTG_CNPDG;
- CNPDG : longWord;
- CNPDGCLR : longWord;
- CNPDGSET : longWord;
- CNPDGINV : longWord;
- CNCONGbits : TPORTG_CNCONG;
- CNCONG : longWord;
- CNCONGCLR : longWord;
- CNCONGSET : longWord;
- CNCONGINV : longWord;
- CNENGbits : TPORTG_CNENG;
- CNENG : longWord;
- CNENGCLR : longWord;
- CNENGSET : longWord;
- CNENGINV : longWord;
- CNSTATGbits : TPORTG_CNSTATG;
- CNSTATG : longWord;
- CNSTATGCLR : longWord;
- CNSTATGSET : longWord;
- CNSTATGINV : longWord;
- end;
- TDEVCFG_DEVCFG3 = record
- private
- function getFSRSSEL : TBits_3; inline;
- function getFUSBIDIO : TBits_1; inline;
- function getFVBUSONIO : TBits_1; inline;
- function getIOL1WAY : TBits_1; inline;
- function getPMDL1WAY : TBits_1; inline;
- function getUSERID : TBits_16; inline;
- function getw : TBits_32; inline;
- procedure setFSRSSEL(thebits : TBits_3); inline;
- procedure setFUSBIDIO(thebits : TBits_1); inline;
- procedure setFVBUSONIO(thebits : TBits_1); inline;
- procedure setIOL1WAY(thebits : TBits_1); inline;
- procedure setPMDL1WAY(thebits : TBits_1); inline;
- procedure setUSERID(thebits : TBits_16); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearFUSBIDIO; inline;
- procedure clearFVBUSONIO; inline;
- procedure clearIOL1WAY; inline;
- procedure clearPMDL1WAY; inline;
- procedure setFUSBIDIO; inline;
- procedure setFVBUSONIO; inline;
- procedure setIOL1WAY; inline;
- procedure setPMDL1WAY; inline;
- property FSRSSEL : TBits_3 read getFSRSSEL write setFSRSSEL;
- property FUSBIDIO : TBits_1 read getFUSBIDIO write setFUSBIDIO;
- property FVBUSONIO : TBits_1 read getFVBUSONIO write setFVBUSONIO;
- property IOL1WAY : TBits_1 read getIOL1WAY write setIOL1WAY;
- property PMDL1WAY : TBits_1 read getPMDL1WAY write setPMDL1WAY;
- property USERID : TBits_16 read getUSERID write setUSERID;
- property w : TBits_32 read getw write setw;
- end;
- TDEVCFG_DEVCFG2 = record
- private
- function getFPLLIDIV : TBits_3; inline;
- function getFPLLMUL : TBits_3; inline;
- function getFPLLODIV : TBits_3; inline;
- function getUPLLEN : TBits_1; inline;
- function getUPLLIDIV : TBits_3; inline;
- function getw : TBits_32; inline;
- procedure setFPLLIDIV(thebits : TBits_3); inline;
- procedure setFPLLMUL(thebits : TBits_3); inline;
- procedure setFPLLODIV(thebits : TBits_3); inline;
- procedure setUPLLEN(thebits : TBits_1); inline;
- procedure setUPLLIDIV(thebits : TBits_3); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearUPLLEN; inline;
- procedure setUPLLEN; inline;
- property FPLLIDIV : TBits_3 read getFPLLIDIV write setFPLLIDIV;
- property FPLLMUL : TBits_3 read getFPLLMUL write setFPLLMUL;
- property FPLLODIV : TBits_3 read getFPLLODIV write setFPLLODIV;
- property UPLLEN : TBits_1 read getUPLLEN write setUPLLEN;
- property UPLLIDIV : TBits_3 read getUPLLIDIV write setUPLLIDIV;
- property w : TBits_32 read getw write setw;
- end;
- TDEVCFG_DEVCFG1 = record
- private
- function getFCKSM : TBits_2; inline;
- function getFNOSC : TBits_3; inline;
- function getFPBDIV : TBits_2; inline;
- function getFSOSCEN : TBits_1; inline;
- function getFWDTEN : TBits_1; inline;
- function getFWDTWINSZ : TBits_2; inline;
- function getIESO : TBits_1; inline;
- function getOSCIOFNC : TBits_1; inline;
- function getPOSCMOD : TBits_2; inline;
- function getWDTPS : TBits_5; inline;
- function getWINDIS : TBits_1; inline;
- function getw : TBits_32; inline;
- procedure setFCKSM(thebits : TBits_2); inline;
- procedure setFNOSC(thebits : TBits_3); inline;
- procedure setFPBDIV(thebits : TBits_2); inline;
- procedure setFSOSCEN(thebits : TBits_1); inline;
- procedure setFWDTEN(thebits : TBits_1); inline;
- procedure setFWDTWINSZ(thebits : TBits_2); inline;
- procedure setIESO(thebits : TBits_1); inline;
- procedure setOSCIOFNC(thebits : TBits_1); inline;
- procedure setPOSCMOD(thebits : TBits_2); inline;
- procedure setWDTPS(thebits : TBits_5); inline;
- procedure setWINDIS(thebits : TBits_1); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearFSOSCEN; inline;
- procedure clearFWDTEN; inline;
- procedure clearIESO; inline;
- procedure clearOSCIOFNC; inline;
- procedure clearWINDIS; inline;
- procedure setFSOSCEN; inline;
- procedure setFWDTEN; inline;
- procedure setIESO; inline;
- procedure setOSCIOFNC; inline;
- procedure setWINDIS; inline;
- property FCKSM : TBits_2 read getFCKSM write setFCKSM;
- property FNOSC : TBits_3 read getFNOSC write setFNOSC;
- property FPBDIV : TBits_2 read getFPBDIV write setFPBDIV;
- property FSOSCEN : TBits_1 read getFSOSCEN write setFSOSCEN;
- property FWDTEN : TBits_1 read getFWDTEN write setFWDTEN;
- property FWDTWINSZ : TBits_2 read getFWDTWINSZ write setFWDTWINSZ;
- property IESO : TBits_1 read getIESO write setIESO;
- property OSCIOFNC : TBits_1 read getOSCIOFNC write setOSCIOFNC;
- property POSCMOD : TBits_2 read getPOSCMOD write setPOSCMOD;
- property WDTPS : TBits_5 read getWDTPS write setWDTPS;
- property WINDIS : TBits_1 read getWINDIS write setWINDIS;
- property w : TBits_32 read getw write setw;
- end;
- TDEVCFG_DEVCFG0 = record
- private
- function getBWP : TBits_1; inline;
- function getCP : TBits_1; inline;
- function getDEBUG : TBits_2; inline;
- function getFDEBUG : TBits_2; inline;
- function getICESEL : TBits_2; inline;
- function getJTAGEN : TBits_1; inline;
- function getPWP : TBits_8; inline;
- function getw : TBits_32; inline;
- procedure setBWP(thebits : TBits_1); inline;
- procedure setCP(thebits : TBits_1); inline;
- procedure setDEBUG(thebits : TBits_2); inline;
- procedure setFDEBUG(thebits : TBits_2); inline;
- procedure setICESEL(thebits : TBits_2); inline;
- procedure setJTAGEN(thebits : TBits_1); inline;
- procedure setPWP(thebits : TBits_8); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- procedure clearBWP; inline;
- procedure clearCP; inline;
- procedure clearJTAGEN; inline;
- procedure setBWP; inline;
- procedure setCP; inline;
- procedure setJTAGEN; inline;
- property BWP : TBits_1 read getBWP write setBWP;
- property CP : TBits_1 read getCP write setCP;
- property DEBUG : TBits_2 read getDEBUG write setDEBUG;
- property FDEBUG : TBits_2 read getFDEBUG write setFDEBUG;
- property ICESEL : TBits_2 read getICESEL write setICESEL;
- property JTAGEN : TBits_1 read getJTAGEN write setJTAGEN;
- property PWP : TBits_8 read getPWP write setPWP;
- property w : TBits_32 read getw write setw;
- end;
- const
- _CORE_TIMER_IRQ = 0;
- _CORE_SOFTWARE_0_IRQ = 1;
- _CORE_SOFTWARE_1_IRQ = 2;
- _EXTERNAL_0_IRQ = 3;
- _TIMER_1_IRQ = 4;
- _INPUT_CAPTURE_ERROR_1_IRQ = 5;
- _INPUT_CAPTURE_1_IRQ = 6;
- _OUTPUT_COMPARE_1_IRQ = 7;
- _EXTERNAL_1_IRQ = 8;
- _TIMER_2_IRQ = 9;
- _INPUT_CAPTURE_ERROR_2_IRQ = 10;
- _INPUT_CAPTURE_2_IRQ = 11;
- _OUTPUT_COMPARE_2_IRQ = 12;
- _EXTERNAL_2_IRQ = 13;
- _TIMER_3_IRQ = 14;
- _INPUT_CAPTURE_ERROR_3_IRQ = 15;
- _INPUT_CAPTURE_3_IRQ = 16;
- _OUTPUT_COMPARE_3_IRQ = 17;
- _EXTERNAL_3_IRQ = 18;
- _TIMER_4_IRQ = 19;
- _INPUT_CAPTURE_ERROR_4_IRQ = 20;
- _INPUT_CAPTURE_4_IRQ = 21;
- _OUTPUT_COMPARE_4_IRQ = 22;
- _EXTERNAL_4_IRQ = 23;
- _TIMER_5_IRQ = 24;
- _INPUT_CAPTURE_ERROR_5_IRQ = 25;
- _INPUT_CAPTURE_5_IRQ = 26;
- _OUTPUT_COMPARE_5_IRQ = 27;
- _ADC_IRQ = 28;
- _FAIL_SAFE_MONITOR_IRQ = 29;
- _RTCC_IRQ = 30;
- _FLASH_CONTROL_IRQ = 31;
- _COMPARATOR_1_IRQ = 32;
- _COMPARATOR_2_IRQ = 33;
- _USB_IRQ = 34;
- _SPI1_ERR_IRQ = 35;
- _SPI1_RX_IRQ = 36;
- _SPI1_TX_IRQ = 37;
- _UART1_ERR_IRQ = 38;
- _UART1_RX_IRQ = 39;
- _UART1_TX_IRQ = 40;
- _I2C1_BUS_IRQ = 41;
- _I2C1_SLAVE_IRQ = 42;
- _I2C1_MASTER_IRQ = 43;
- _CHANGE_NOTICE_A_IRQ = 44;
- _CHANGE_NOTICE_B_IRQ = 45;
- _CHANGE_NOTICE_C_IRQ = 46;
- _CHANGE_NOTICE_D_IRQ = 47;
- _CHANGE_NOTICE_E_IRQ = 48;
- _CHANGE_NOTICE_F_IRQ = 49;
- _CHANGE_NOTICE_G_IRQ = 50;
- _PMP_IRQ = 51;
- _PMP_ERROR_IRQ = 52;
- _SPI2_ERR_IRQ = 53;
- _SPI2_RX_IRQ = 54;
- _SPI2_TX_IRQ = 55;
- _UART2_ERR_IRQ = 56;
- _UART2_RX_IRQ = 57;
- _UART2_TX_IRQ = 58;
- _I2C2_BUS_IRQ = 59;
- _I2C2_SLAVE_IRQ = 60;
- _I2C2_MASTER_IRQ = 61;
- _UART3_ERR_IRQ = 62;
- _UART3_RX_IRQ = 63;
- _UART3_TX_IRQ = 64;
- _UART4_ERR_IRQ = 65;
- _UART4_RX_IRQ = 66;
- _UART4_TX_IRQ = 67;
- _UART5_ERR_IRQ = 68;
- _UART5_RX_IRQ = 69;
- _UART5_TX_IRQ = 70;
- _CTMU_IRQ = 71;
- _DMA0_IRQ = 72;
- _DMA1_IRQ = 73;
- _DMA2_IRQ = 74;
- _DMA3_IRQ = 75;
- const
- ADC10_BASE_ADDRESS = $BF809000;
- var
- ADC10 : TADC10Registers absolute ADC10_BASE_ADDRESS;
- const
- BMX_BASE_ADDRESS = $BF882000;
- var
- BMX : TBMXRegisters absolute BMX_BASE_ADDRESS;
- const
- CFG_BASE_ADDRESS = $BF80F200;
- var
- CFG : TCFGRegisters absolute CFG_BASE_ADDRESS;
- const
- CMP_BASE_ADDRESS = $BF80A000;
- var
- CMP : TCMPRegisters absolute CMP_BASE_ADDRESS;
- const
- CVR_BASE_ADDRESS = $BF809800;
- var
- CVR : TCVRRegisters absolute CVR_BASE_ADDRESS;
- const
- DMAC_BASE_ADDRESS = $BF883000;
- var
- DMAC : TDMACRegisters absolute DMAC_BASE_ADDRESS;
- const
- DMAC0_BASE_ADDRESS = $BF883060;
- var
- DMAC0 : TDMAC0Registers absolute DMAC0_BASE_ADDRESS;
- const
- DMAC1_BASE_ADDRESS = $BF883120;
- var
- DMAC1 : TDMAC1Registers absolute DMAC1_BASE_ADDRESS;
- const
- DMAC2_BASE_ADDRESS = $BF8831E0;
- var
- DMAC2 : TDMAC2Registers absolute DMAC2_BASE_ADDRESS;
- const
- DMAC3_BASE_ADDRESS = $BF8832A0;
- var
- DMAC3 : TDMAC3Registers absolute DMAC3_BASE_ADDRESS;
- const
- I2C1_BASE_ADDRESS = $BF805000;
- var
- I2C1 : TI2C1Registers absolute I2C1_BASE_ADDRESS;
- const
- I2C2_BASE_ADDRESS = $BF805100;
- var
- I2C2 : TI2C2Registers absolute I2C2_BASE_ADDRESS;
- const
- ICAP1_BASE_ADDRESS = $BF802000;
- var
- ICAP1 : TICAP1Registers absolute ICAP1_BASE_ADDRESS;
- const
- ICAP2_BASE_ADDRESS = $BF802200;
- var
- ICAP2 : TICAP2Registers absolute ICAP2_BASE_ADDRESS;
- const
- ICAP3_BASE_ADDRESS = $BF802400;
- var
- ICAP3 : TICAP3Registers absolute ICAP3_BASE_ADDRESS;
- const
- ICAP4_BASE_ADDRESS = $BF802600;
- var
- ICAP4 : TICAP4Registers absolute ICAP4_BASE_ADDRESS;
- const
- ICAP5_BASE_ADDRESS = $BF802800;
- var
- ICAP5 : TICAP5Registers absolute ICAP5_BASE_ADDRESS;
- const
- INT_BASE_ADDRESS = $BF881000;
- var
- INT : TINTRegisters absolute INT_BASE_ADDRESS;
- const
- NVM_BASE_ADDRESS = $BF80F400;
- var
- NVM : TNVMRegisters absolute NVM_BASE_ADDRESS;
- const
- OCMP1_BASE_ADDRESS = $BF803000;
- var
- OCMP1 : TOCMP1Registers absolute OCMP1_BASE_ADDRESS;
- const
- OCMP2_BASE_ADDRESS = $BF803200;
- var
- OCMP2 : TOCMP2Registers absolute OCMP2_BASE_ADDRESS;
- const
- OCMP3_BASE_ADDRESS = $BF803400;
- var
- OCMP3 : TOCMP3Registers absolute OCMP3_BASE_ADDRESS;
- const
- OCMP4_BASE_ADDRESS = $BF803600;
- var
- OCMP4 : TOCMP4Registers absolute OCMP4_BASE_ADDRESS;
- const
- OCMP5_BASE_ADDRESS = $BF803800;
- var
- OCMP5 : TOCMP5Registers absolute OCMP5_BASE_ADDRESS;
- const
- OSC_BASE_ADDRESS = $BF80F000;
- var
- OSC : TOSCRegisters absolute OSC_BASE_ADDRESS;
- const
- PCACHE_BASE_ADDRESS = $BF884000;
- var
- PCACHE : TPCACHERegisters absolute PCACHE_BASE_ADDRESS;
- const
- PMP_BASE_ADDRESS = $BF807000;
- var
- PMP : TPMPRegisters absolute PMP_BASE_ADDRESS;
- const
- PORTA_BASE_ADDRESS = $BF886020;
- var
- PORTA : TPORTARegisters absolute PORTA_BASE_ADDRESS;
- const
- PORTB_BASE_ADDRESS = $BF886120;
- var
- PORTB : TPORTBRegisters absolute PORTB_BASE_ADDRESS;
- const
- PORTC_BASE_ADDRESS = $BF886220;
- var
- PORTC : TPORTCRegisters absolute PORTC_BASE_ADDRESS;
- const
- PORTD_BASE_ADDRESS = $BF886320;
- var
- PORTD : TPORTDRegisters absolute PORTD_BASE_ADDRESS;
- const
- PORTE_BASE_ADDRESS = $BF886420;
- var
- PORTE : TPORTERegisters absolute PORTE_BASE_ADDRESS;
- const
- PORTF_BASE_ADDRESS = $BF886520;
- var
- PORTF : TPORTFRegisters absolute PORTF_BASE_ADDRESS;
- const
- PORTG_BASE_ADDRESS = $BF886620;
- var
- PORTG : TPORTGRegisters absolute PORTG_BASE_ADDRESS;
- const
- RCON_BASE_ADDRESS = $BF80F600;
- var
- RCON : TRCONRegisters absolute RCON_BASE_ADDRESS;
- const
- RTCC_BASE_ADDRESS = $BF800200;
- var
- RTCC : TRTCCRegisters absolute RTCC_BASE_ADDRESS;
- const
- SPI1_BASE_ADDRESS = $BF805800;
- var
- SPI1 : TSPI1Registers absolute SPI1_BASE_ADDRESS;
- const
- SPI2_BASE_ADDRESS = $BF805A00;
- var
- SPI2 : TSPI2Registers absolute SPI2_BASE_ADDRESS;
- const
- TMR1_BASE_ADDRESS = $BF800600;
- var
- TMR1 : TTMR1Registers absolute TMR1_BASE_ADDRESS;
- const
- TMR2_BASE_ADDRESS = $BF800800;
- var
- TMR2 : TTMR2Registers absolute TMR2_BASE_ADDRESS;
- const
- TMR3_BASE_ADDRESS = $BF800A00;
- var
- TMR3 : TTMR3Registers absolute TMR3_BASE_ADDRESS;
- const
- TMR4_BASE_ADDRESS = $BF800C00;
- var
- TMR4 : TTMR4Registers absolute TMR4_BASE_ADDRESS;
- const
- TMR5_BASE_ADDRESS = $BF800E00;
- var
- TMR5 : TTMR5Registers absolute TMR5_BASE_ADDRESS;
- const
- UART1_BASE_ADDRESS = $BF806000;
- var
- UART1 : TUART1Registers absolute UART1_BASE_ADDRESS;
- const
- UART2_BASE_ADDRESS = $BF806200;
- var
- UART2 : TUART2Registers absolute UART2_BASE_ADDRESS;
- const
- UART3_BASE_ADDRESS = $BF806400;
- var
- UART3 : TUART3Registers absolute UART3_BASE_ADDRESS;
- const
- UART4_BASE_ADDRESS = $BF806600;
- var
- UART4 : TUART4Registers absolute UART4_BASE_ADDRESS;
- const
- UART5_BASE_ADDRESS = $BF806800;
- var
- UART5 : TUART5Registers absolute UART5_BASE_ADDRESS;
- const
- USB_BASE_ADDRESS = $BF885040;
- var
- USB : TUSBRegisters absolute USB_BASE_ADDRESS;
- const
- WDT_BASE_ADDRESS = $BF800000;
- var
- WDT : TWDTRegisters absolute WDT_BASE_ADDRESS;
- implementation
- type
- TDefRegMap = record
- val : longWord;
- clr : longWord;
- &set : longWord;
- inv : longWord;
- end;
- pTDefRegMap = ^TDefRegMap;
- procedure TWDT_WDTCON.setWDTCLR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TWDT_WDTCON.clearWDTCLR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TWDT_WDTCON.setWDTCLR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TWDT_WDTCON.getWDTCLR : TBits_1; inline;
- begin
- getWDTCLR := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TWDT_WDTCON.setWDTWINEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TWDT_WDTCON.clearWDTWINEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TWDT_WDTCON.setWDTWINEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TWDT_WDTCON.getWDTWINEN : TBits_1; inline;
- begin
- getWDTWINEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TWDT_WDTCON.setSWDTPS(thebits : TBits_5); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF83 or ( thebits shl 2 );
- end;
- function TWDT_WDTCON.getSWDTPS : TBits_5; inline;
- begin
- getSWDTPS := (pTDefRegMap(@Self)^.val and $0000007C) shr 2;
- end;
- procedure TWDT_WDTCON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TWDT_WDTCON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TWDT_WDTCON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TWDT_WDTCON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TWDT_WDTCON.setSWDTPS0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TWDT_WDTCON.clearSWDTPS0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TWDT_WDTCON.setSWDTPS0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TWDT_WDTCON.getSWDTPS0 : TBits_1; inline;
- begin
- getSWDTPS0 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TWDT_WDTCON.setSWDTPS1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TWDT_WDTCON.clearSWDTPS1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TWDT_WDTCON.setSWDTPS1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TWDT_WDTCON.getSWDTPS1 : TBits_1; inline;
- begin
- getSWDTPS1 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TWDT_WDTCON.setSWDTPS2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TWDT_WDTCON.clearSWDTPS2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TWDT_WDTCON.setSWDTPS2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TWDT_WDTCON.getSWDTPS2 : TBits_1; inline;
- begin
- getSWDTPS2 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TWDT_WDTCON.setSWDTPS3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TWDT_WDTCON.clearSWDTPS3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TWDT_WDTCON.setSWDTPS3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TWDT_WDTCON.getSWDTPS3 : TBits_1; inline;
- begin
- getSWDTPS3 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TWDT_WDTCON.setSWDTPS4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TWDT_WDTCON.clearSWDTPS4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TWDT_WDTCON.setSWDTPS4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TWDT_WDTCON.getSWDTPS4 : TBits_1; inline;
- begin
- getSWDTPS4 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TWDT_WDTCON.setWDTPSTA(thebits : TBits_5); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF83 or ( thebits shl 2 );
- end;
- function TWDT_WDTCON.getWDTPSTA : TBits_5; inline;
- begin
- getWDTPSTA := (pTDefRegMap(@Self)^.val and $0000007C) shr 2;
- end;
- procedure TWDT_WDTCON.setWDTPS(thebits : TBits_5); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF83 or ( thebits shl 2 );
- end;
- function TWDT_WDTCON.getWDTPS : TBits_5; inline;
- begin
- getWDTPS := (pTDefRegMap(@Self)^.val and $0000007C) shr 2;
- end;
- procedure TWDT_WDTCON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TWDT_WDTCON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TRTCC_RTCCON.setRTCOE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TRTCC_RTCCON.clearRTCOE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TRTCC_RTCCON.setRTCOE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TRTCC_RTCCON.getRTCOE : TBits_1; inline;
- begin
- getRTCOE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TRTCC_RTCCON.setHALFSEC; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TRTCC_RTCCON.clearHALFSEC; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TRTCC_RTCCON.setHALFSEC(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TRTCC_RTCCON.getHALFSEC : TBits_1; inline;
- begin
- getHALFSEC := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TRTCC_RTCCON.setRTCSYNC; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TRTCC_RTCCON.clearRTCSYNC; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TRTCC_RTCCON.setRTCSYNC(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TRTCC_RTCCON.getRTCSYNC : TBits_1; inline;
- begin
- getRTCSYNC := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TRTCC_RTCCON.setRTCWREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TRTCC_RTCCON.clearRTCWREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TRTCC_RTCCON.setRTCWREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TRTCC_RTCCON.getRTCWREN : TBits_1; inline;
- begin
- getRTCWREN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TRTCC_RTCCON.setRTCCLKON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TRTCC_RTCCON.clearRTCCLKON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TRTCC_RTCCON.setRTCCLKON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TRTCC_RTCCON.getRTCCLKON : TBits_1; inline;
- begin
- getRTCCLKON := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TRTCC_RTCCON.setRTSECSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TRTCC_RTCCON.clearRTSECSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TRTCC_RTCCON.setRTSECSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TRTCC_RTCCON.getRTSECSEL : TBits_1; inline;
- begin
- getRTSECSEL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TRTCC_RTCCON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TRTCC_RTCCON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TRTCC_RTCCON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TRTCC_RTCCON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TRTCC_RTCCON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TRTCC_RTCCON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TRTCC_RTCCON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TRTCC_RTCCON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TRTCC_RTCCON.setCAL(thebits : TBits_10); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FC00FFFF or ( thebits shl 16 );
- end;
- function TRTCC_RTCCON.getCAL : TBits_10; inline;
- begin
- getCAL := (pTDefRegMap(@Self)^.val and $03FF0000) shr 16;
- end;
- procedure TRTCC_RTCCON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TRTCC_RTCCON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TRTCC_RTCALRM.setARPT(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
- end;
- function TRTCC_RTCALRM.getARPT : TBits_8; inline;
- begin
- getARPT := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
- end;
- procedure TRTCC_RTCALRM.setAMASK(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
- end;
- function TRTCC_RTCALRM.getAMASK : TBits_4; inline;
- begin
- getAMASK := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
- end;
- procedure TRTCC_RTCALRM.setALRMSYNC; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TRTCC_RTCALRM.clearALRMSYNC; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TRTCC_RTCALRM.setALRMSYNC(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TRTCC_RTCALRM.getALRMSYNC : TBits_1; inline;
- begin
- getALRMSYNC := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TRTCC_RTCALRM.setPIV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TRTCC_RTCALRM.clearPIV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TRTCC_RTCALRM.setPIV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TRTCC_RTCALRM.getPIV : TBits_1; inline;
- begin
- getPIV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TRTCC_RTCALRM.setCHIME; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TRTCC_RTCALRM.clearCHIME; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TRTCC_RTCALRM.setCHIME(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TRTCC_RTCALRM.getCHIME : TBits_1; inline;
- begin
- getCHIME := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TRTCC_RTCALRM.setALRMEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TRTCC_RTCALRM.clearALRMEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TRTCC_RTCALRM.setALRMEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TRTCC_RTCALRM.getALRMEN : TBits_1; inline;
- begin
- getALRMEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TRTCC_RTCALRM.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TRTCC_RTCALRM.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TRTCC_RTCTIME.setSEC01(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
- end;
- function TRTCC_RTCTIME.getSEC01 : TBits_4; inline;
- begin
- getSEC01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
- end;
- procedure TRTCC_RTCTIME.setSEC10(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
- end;
- function TRTCC_RTCTIME.getSEC10 : TBits_4; inline;
- begin
- getSEC10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
- end;
- procedure TRTCC_RTCTIME.setMIN01(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
- end;
- function TRTCC_RTCTIME.getMIN01 : TBits_4; inline;
- begin
- getMIN01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
- end;
- procedure TRTCC_RTCTIME.setMIN10(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
- end;
- function TRTCC_RTCTIME.getMIN10 : TBits_4; inline;
- begin
- getMIN10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
- end;
- procedure TRTCC_RTCTIME.setHR01(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
- end;
- function TRTCC_RTCTIME.getHR01 : TBits_4; inline;
- begin
- getHR01 := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
- end;
- procedure TRTCC_RTCTIME.setHR10(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0FFFFFFF or ( thebits shl 28 );
- end;
- function TRTCC_RTCTIME.getHR10 : TBits_4; inline;
- begin
- getHR10 := (pTDefRegMap(@Self)^.val and $F0000000) shr 28;
- end;
- procedure TRTCC_RTCTIME.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TRTCC_RTCTIME.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TRTCC_RTCDATE.setWDAY01(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
- end;
- function TRTCC_RTCDATE.getWDAY01 : TBits_4; inline;
- begin
- getWDAY01 := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
- end;
- procedure TRTCC_RTCDATE.setDAY01(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
- end;
- function TRTCC_RTCDATE.getDAY01 : TBits_4; inline;
- begin
- getDAY01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
- end;
- procedure TRTCC_RTCDATE.setDAY10(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
- end;
- function TRTCC_RTCDATE.getDAY10 : TBits_4; inline;
- begin
- getDAY10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
- end;
- procedure TRTCC_RTCDATE.setMONTH01(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
- end;
- function TRTCC_RTCDATE.getMONTH01 : TBits_4; inline;
- begin
- getMONTH01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
- end;
- procedure TRTCC_RTCDATE.setMONTH10(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
- end;
- function TRTCC_RTCDATE.getMONTH10 : TBits_4; inline;
- begin
- getMONTH10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
- end;
- procedure TRTCC_RTCDATE.setYEAR01(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
- end;
- function TRTCC_RTCDATE.getYEAR01 : TBits_4; inline;
- begin
- getYEAR01 := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
- end;
- procedure TRTCC_RTCDATE.setYEAR10(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0FFFFFFF or ( thebits shl 28 );
- end;
- function TRTCC_RTCDATE.getYEAR10 : TBits_4; inline;
- begin
- getYEAR10 := (pTDefRegMap(@Self)^.val and $F0000000) shr 28;
- end;
- procedure TRTCC_RTCDATE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TRTCC_RTCDATE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TRTCC_ALRMTIME.setSEC01(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
- end;
- function TRTCC_ALRMTIME.getSEC01 : TBits_4; inline;
- begin
- getSEC01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
- end;
- procedure TRTCC_ALRMTIME.setSEC10(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
- end;
- function TRTCC_ALRMTIME.getSEC10 : TBits_4; inline;
- begin
- getSEC10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
- end;
- procedure TRTCC_ALRMTIME.setMIN01(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
- end;
- function TRTCC_ALRMTIME.getMIN01 : TBits_4; inline;
- begin
- getMIN01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
- end;
- procedure TRTCC_ALRMTIME.setMIN10(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
- end;
- function TRTCC_ALRMTIME.getMIN10 : TBits_4; inline;
- begin
- getMIN10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
- end;
- procedure TRTCC_ALRMTIME.setHR01(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
- end;
- function TRTCC_ALRMTIME.getHR01 : TBits_4; inline;
- begin
- getHR01 := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
- end;
- procedure TRTCC_ALRMTIME.setHR10(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0FFFFFFF or ( thebits shl 28 );
- end;
- function TRTCC_ALRMTIME.getHR10 : TBits_4; inline;
- begin
- getHR10 := (pTDefRegMap(@Self)^.val and $F0000000) shr 28;
- end;
- procedure TRTCC_ALRMTIME.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TRTCC_ALRMTIME.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TRTCC_ALRMDATE.setWDAY01(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
- end;
- function TRTCC_ALRMDATE.getWDAY01 : TBits_4; inline;
- begin
- getWDAY01 := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
- end;
- procedure TRTCC_ALRMDATE.setDAY01(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
- end;
- function TRTCC_ALRMDATE.getDAY01 : TBits_4; inline;
- begin
- getDAY01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
- end;
- procedure TRTCC_ALRMDATE.setDAY10(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
- end;
- function TRTCC_ALRMDATE.getDAY10 : TBits_4; inline;
- begin
- getDAY10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
- end;
- procedure TRTCC_ALRMDATE.setMONTH01(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
- end;
- function TRTCC_ALRMDATE.getMONTH01 : TBits_4; inline;
- begin
- getMONTH01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
- end;
- procedure TRTCC_ALRMDATE.setMONTH10(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
- end;
- function TRTCC_ALRMDATE.getMONTH10 : TBits_4; inline;
- begin
- getMONTH10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
- end;
- procedure TRTCC_ALRMDATE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TRTCC_ALRMDATE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TTMR1_T1CON.setTCS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TTMR1_T1CON.clearTCS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TTMR1_T1CON.setTCS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TTMR1_T1CON.getTCS : TBits_1; inline;
- begin
- getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TTMR1_T1CON.setTSYNC; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TTMR1_T1CON.clearTSYNC; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TTMR1_T1CON.setTSYNC(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TTMR1_T1CON.getTSYNC : TBits_1; inline;
- begin
- getTSYNC := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TTMR1_T1CON.setTCKPS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFCF or ( thebits shl 4 );
- end;
- function TTMR1_T1CON.getTCKPS : TBits_2; inline;
- begin
- getTCKPS := (pTDefRegMap(@Self)^.val and $00000030) shr 4;
- end;
- procedure TTMR1_T1CON.setTGATE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TTMR1_T1CON.clearTGATE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TTMR1_T1CON.setTGATE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TTMR1_T1CON.getTGATE : TBits_1; inline;
- begin
- getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TTMR1_T1CON.setTWIP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TTMR1_T1CON.clearTWIP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TTMR1_T1CON.setTWIP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TTMR1_T1CON.getTWIP : TBits_1; inline;
- begin
- getTWIP := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TTMR1_T1CON.setTWDIS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TTMR1_T1CON.clearTWDIS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TTMR1_T1CON.setTWDIS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TTMR1_T1CON.getTWDIS : TBits_1; inline;
- begin
- getTWDIS := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TTMR1_T1CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TTMR1_T1CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TTMR1_T1CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TTMR1_T1CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TTMR1_T1CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TTMR1_T1CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TTMR1_T1CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TTMR1_T1CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TTMR1_T1CON.setTCKPS0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TTMR1_T1CON.clearTCKPS0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TTMR1_T1CON.setTCKPS0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TTMR1_T1CON.getTCKPS0 : TBits_1; inline;
- begin
- getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TTMR1_T1CON.setTCKPS1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TTMR1_T1CON.clearTCKPS1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TTMR1_T1CON.setTCKPS1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TTMR1_T1CON.getTCKPS1 : TBits_1; inline;
- begin
- getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TTMR1_T1CON.setTSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TTMR1_T1CON.clearTSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TTMR1_T1CON.setTSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TTMR1_T1CON.getTSIDL : TBits_1; inline;
- begin
- getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TTMR1_T1CON.setTON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TTMR1_T1CON.clearTON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TTMR1_T1CON.setTON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TTMR1_T1CON.getTON : TBits_1; inline;
- begin
- getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TTMR1_T1CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TTMR1_T1CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TTMR2_T2CON.setTCS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TTMR2_T2CON.clearTCS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TTMR2_T2CON.setTCS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TTMR2_T2CON.getTCS : TBits_1; inline;
- begin
- getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TTMR2_T2CON.setT32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TTMR2_T2CON.clearT32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TTMR2_T2CON.setT32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TTMR2_T2CON.getT32 : TBits_1; inline;
- begin
- getT32 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TTMR2_T2CON.setTCKPS(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
- end;
- function TTMR2_T2CON.getTCKPS : TBits_3; inline;
- begin
- getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
- end;
- procedure TTMR2_T2CON.setTGATE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TTMR2_T2CON.clearTGATE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TTMR2_T2CON.setTGATE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TTMR2_T2CON.getTGATE : TBits_1; inline;
- begin
- getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TTMR2_T2CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TTMR2_T2CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TTMR2_T2CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TTMR2_T2CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TTMR2_T2CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TTMR2_T2CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TTMR2_T2CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TTMR2_T2CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TTMR2_T2CON.setTCKPS0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TTMR2_T2CON.clearTCKPS0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TTMR2_T2CON.setTCKPS0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TTMR2_T2CON.getTCKPS0 : TBits_1; inline;
- begin
- getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TTMR2_T2CON.setTCKPS1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TTMR2_T2CON.clearTCKPS1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TTMR2_T2CON.setTCKPS1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TTMR2_T2CON.getTCKPS1 : TBits_1; inline;
- begin
- getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TTMR2_T2CON.setTCKPS2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TTMR2_T2CON.clearTCKPS2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TTMR2_T2CON.setTCKPS2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TTMR2_T2CON.getTCKPS2 : TBits_1; inline;
- begin
- getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TTMR2_T2CON.setTSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TTMR2_T2CON.clearTSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TTMR2_T2CON.setTSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TTMR2_T2CON.getTSIDL : TBits_1; inline;
- begin
- getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TTMR2_T2CON.setTON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TTMR2_T2CON.clearTON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TTMR2_T2CON.setTON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TTMR2_T2CON.getTON : TBits_1; inline;
- begin
- getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TTMR2_T2CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TTMR2_T2CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TTMR3_T3CON.setTCS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TTMR3_T3CON.clearTCS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TTMR3_T3CON.setTCS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TTMR3_T3CON.getTCS : TBits_1; inline;
- begin
- getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TTMR3_T3CON.setT32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TTMR3_T3CON.clearT32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TTMR3_T3CON.setT32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TTMR3_T3CON.getT32 : TBits_1; inline;
- begin
- getT32 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TTMR3_T3CON.setTCKPS(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
- end;
- function TTMR3_T3CON.getTCKPS : TBits_3; inline;
- begin
- getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
- end;
- procedure TTMR3_T3CON.setTGATE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TTMR3_T3CON.clearTGATE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TTMR3_T3CON.setTGATE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TTMR3_T3CON.getTGATE : TBits_1; inline;
- begin
- getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TTMR3_T3CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TTMR3_T3CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TTMR3_T3CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TTMR3_T3CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TTMR3_T3CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TTMR3_T3CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TTMR3_T3CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TTMR3_T3CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TTMR3_T3CON.setTCKPS0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TTMR3_T3CON.clearTCKPS0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TTMR3_T3CON.setTCKPS0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TTMR3_T3CON.getTCKPS0 : TBits_1; inline;
- begin
- getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TTMR3_T3CON.setTCKPS1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TTMR3_T3CON.clearTCKPS1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TTMR3_T3CON.setTCKPS1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TTMR3_T3CON.getTCKPS1 : TBits_1; inline;
- begin
- getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TTMR3_T3CON.setTCKPS2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TTMR3_T3CON.clearTCKPS2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TTMR3_T3CON.setTCKPS2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TTMR3_T3CON.getTCKPS2 : TBits_1; inline;
- begin
- getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TTMR3_T3CON.setTSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TTMR3_T3CON.clearTSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TTMR3_T3CON.setTSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TTMR3_T3CON.getTSIDL : TBits_1; inline;
- begin
- getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TTMR3_T3CON.setTON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TTMR3_T3CON.clearTON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TTMR3_T3CON.setTON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TTMR3_T3CON.getTON : TBits_1; inline;
- begin
- getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TTMR3_T3CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TTMR3_T3CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TTMR4_T4CON.setTCS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TTMR4_T4CON.clearTCS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TTMR4_T4CON.setTCS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TTMR4_T4CON.getTCS : TBits_1; inline;
- begin
- getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TTMR4_T4CON.setT32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TTMR4_T4CON.clearT32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TTMR4_T4CON.setT32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TTMR4_T4CON.getT32 : TBits_1; inline;
- begin
- getT32 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TTMR4_T4CON.setTCKPS(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
- end;
- function TTMR4_T4CON.getTCKPS : TBits_3; inline;
- begin
- getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
- end;
- procedure TTMR4_T4CON.setTGATE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TTMR4_T4CON.clearTGATE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TTMR4_T4CON.setTGATE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TTMR4_T4CON.getTGATE : TBits_1; inline;
- begin
- getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TTMR4_T4CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TTMR4_T4CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TTMR4_T4CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TTMR4_T4CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TTMR4_T4CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TTMR4_T4CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TTMR4_T4CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TTMR4_T4CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TTMR4_T4CON.setTCKPS0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TTMR4_T4CON.clearTCKPS0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TTMR4_T4CON.setTCKPS0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TTMR4_T4CON.getTCKPS0 : TBits_1; inline;
- begin
- getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TTMR4_T4CON.setTCKPS1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TTMR4_T4CON.clearTCKPS1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TTMR4_T4CON.setTCKPS1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TTMR4_T4CON.getTCKPS1 : TBits_1; inline;
- begin
- getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TTMR4_T4CON.setTCKPS2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TTMR4_T4CON.clearTCKPS2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TTMR4_T4CON.setTCKPS2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TTMR4_T4CON.getTCKPS2 : TBits_1; inline;
- begin
- getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TTMR4_T4CON.setTSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TTMR4_T4CON.clearTSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TTMR4_T4CON.setTSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TTMR4_T4CON.getTSIDL : TBits_1; inline;
- begin
- getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TTMR4_T4CON.setTON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TTMR4_T4CON.clearTON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TTMR4_T4CON.setTON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TTMR4_T4CON.getTON : TBits_1; inline;
- begin
- getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TTMR4_T4CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TTMR4_T4CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TTMR5_T5CON.setTCS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TTMR5_T5CON.clearTCS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TTMR5_T5CON.setTCS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TTMR5_T5CON.getTCS : TBits_1; inline;
- begin
- getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TTMR5_T5CON.setT32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TTMR5_T5CON.clearT32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TTMR5_T5CON.setT32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TTMR5_T5CON.getT32 : TBits_1; inline;
- begin
- getT32 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TTMR5_T5CON.setTCKPS(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
- end;
- function TTMR5_T5CON.getTCKPS : TBits_3; inline;
- begin
- getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
- end;
- procedure TTMR5_T5CON.setTGATE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TTMR5_T5CON.clearTGATE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TTMR5_T5CON.setTGATE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TTMR5_T5CON.getTGATE : TBits_1; inline;
- begin
- getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TTMR5_T5CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TTMR5_T5CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TTMR5_T5CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TTMR5_T5CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TTMR5_T5CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TTMR5_T5CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TTMR5_T5CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TTMR5_T5CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TTMR5_T5CON.setTCKPS0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TTMR5_T5CON.clearTCKPS0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TTMR5_T5CON.setTCKPS0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TTMR5_T5CON.getTCKPS0 : TBits_1; inline;
- begin
- getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TTMR5_T5CON.setTCKPS1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TTMR5_T5CON.clearTCKPS1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TTMR5_T5CON.setTCKPS1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TTMR5_T5CON.getTCKPS1 : TBits_1; inline;
- begin
- getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TTMR5_T5CON.setTCKPS2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TTMR5_T5CON.clearTCKPS2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TTMR5_T5CON.setTCKPS2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TTMR5_T5CON.getTCKPS2 : TBits_1; inline;
- begin
- getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TTMR5_T5CON.setTSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TTMR5_T5CON.clearTSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TTMR5_T5CON.setTSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TTMR5_T5CON.getTSIDL : TBits_1; inline;
- begin
- getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TTMR5_T5CON.setTON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TTMR5_T5CON.clearTON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TTMR5_T5CON.setTON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TTMR5_T5CON.getTON : TBits_1; inline;
- begin
- getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TTMR5_T5CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TTMR5_T5CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TICAP1_IC1CON.setICM(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TICAP1_IC1CON.getICM : TBits_3; inline;
- begin
- getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TICAP1_IC1CON.setICBNE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TICAP1_IC1CON.clearICBNE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TICAP1_IC1CON.setICBNE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TICAP1_IC1CON.getICBNE : TBits_1; inline;
- begin
- getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TICAP1_IC1CON.setICOV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TICAP1_IC1CON.clearICOV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TICAP1_IC1CON.setICOV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TICAP1_IC1CON.getICOV : TBits_1; inline;
- begin
- getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TICAP1_IC1CON.setICI(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
- end;
- function TICAP1_IC1CON.getICI : TBits_2; inline;
- begin
- getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
- end;
- procedure TICAP1_IC1CON.setICTMR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TICAP1_IC1CON.clearICTMR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TICAP1_IC1CON.setICTMR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TICAP1_IC1CON.getICTMR : TBits_1; inline;
- begin
- getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TICAP1_IC1CON.setC32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TICAP1_IC1CON.clearC32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TICAP1_IC1CON.setC32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TICAP1_IC1CON.getC32 : TBits_1; inline;
- begin
- getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TICAP1_IC1CON.setFEDGE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TICAP1_IC1CON.clearFEDGE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TICAP1_IC1CON.setFEDGE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TICAP1_IC1CON.getFEDGE : TBits_1; inline;
- begin
- getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TICAP1_IC1CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TICAP1_IC1CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TICAP1_IC1CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TICAP1_IC1CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TICAP1_IC1CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TICAP1_IC1CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TICAP1_IC1CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TICAP1_IC1CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TICAP1_IC1CON.setICM0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TICAP1_IC1CON.clearICM0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TICAP1_IC1CON.setICM0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TICAP1_IC1CON.getICM0 : TBits_1; inline;
- begin
- getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TICAP1_IC1CON.setICM1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TICAP1_IC1CON.clearICM1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TICAP1_IC1CON.setICM1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TICAP1_IC1CON.getICM1 : TBits_1; inline;
- begin
- getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TICAP1_IC1CON.setICM2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TICAP1_IC1CON.clearICM2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TICAP1_IC1CON.setICM2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TICAP1_IC1CON.getICM2 : TBits_1; inline;
- begin
- getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TICAP1_IC1CON.setICI0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TICAP1_IC1CON.clearICI0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TICAP1_IC1CON.setICI0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TICAP1_IC1CON.getICI0 : TBits_1; inline;
- begin
- getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TICAP1_IC1CON.setICI1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TICAP1_IC1CON.clearICI1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TICAP1_IC1CON.setICI1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TICAP1_IC1CON.getICI1 : TBits_1; inline;
- begin
- getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TICAP1_IC1CON.setICSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TICAP1_IC1CON.clearICSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TICAP1_IC1CON.setICSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TICAP1_IC1CON.getICSIDL : TBits_1; inline;
- begin
- getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TICAP1_IC1CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TICAP1_IC1CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TICAP2_IC2CON.setICM(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TICAP2_IC2CON.getICM : TBits_3; inline;
- begin
- getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TICAP2_IC2CON.setICBNE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TICAP2_IC2CON.clearICBNE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TICAP2_IC2CON.setICBNE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TICAP2_IC2CON.getICBNE : TBits_1; inline;
- begin
- getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TICAP2_IC2CON.setICOV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TICAP2_IC2CON.clearICOV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TICAP2_IC2CON.setICOV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TICAP2_IC2CON.getICOV : TBits_1; inline;
- begin
- getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TICAP2_IC2CON.setICI(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
- end;
- function TICAP2_IC2CON.getICI : TBits_2; inline;
- begin
- getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
- end;
- procedure TICAP2_IC2CON.setICTMR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TICAP2_IC2CON.clearICTMR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TICAP2_IC2CON.setICTMR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TICAP2_IC2CON.getICTMR : TBits_1; inline;
- begin
- getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TICAP2_IC2CON.setC32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TICAP2_IC2CON.clearC32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TICAP2_IC2CON.setC32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TICAP2_IC2CON.getC32 : TBits_1; inline;
- begin
- getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TICAP2_IC2CON.setFEDGE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TICAP2_IC2CON.clearFEDGE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TICAP2_IC2CON.setFEDGE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TICAP2_IC2CON.getFEDGE : TBits_1; inline;
- begin
- getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TICAP2_IC2CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TICAP2_IC2CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TICAP2_IC2CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TICAP2_IC2CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TICAP2_IC2CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TICAP2_IC2CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TICAP2_IC2CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TICAP2_IC2CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TICAP2_IC2CON.setICM0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TICAP2_IC2CON.clearICM0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TICAP2_IC2CON.setICM0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TICAP2_IC2CON.getICM0 : TBits_1; inline;
- begin
- getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TICAP2_IC2CON.setICM1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TICAP2_IC2CON.clearICM1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TICAP2_IC2CON.setICM1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TICAP2_IC2CON.getICM1 : TBits_1; inline;
- begin
- getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TICAP2_IC2CON.setICM2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TICAP2_IC2CON.clearICM2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TICAP2_IC2CON.setICM2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TICAP2_IC2CON.getICM2 : TBits_1; inline;
- begin
- getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TICAP2_IC2CON.setICI0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TICAP2_IC2CON.clearICI0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TICAP2_IC2CON.setICI0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TICAP2_IC2CON.getICI0 : TBits_1; inline;
- begin
- getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TICAP2_IC2CON.setICI1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TICAP2_IC2CON.clearICI1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TICAP2_IC2CON.setICI1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TICAP2_IC2CON.getICI1 : TBits_1; inline;
- begin
- getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TICAP2_IC2CON.setICSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TICAP2_IC2CON.clearICSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TICAP2_IC2CON.setICSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TICAP2_IC2CON.getICSIDL : TBits_1; inline;
- begin
- getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TICAP2_IC2CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TICAP2_IC2CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TICAP3_IC3CON.setICM(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TICAP3_IC3CON.getICM : TBits_3; inline;
- begin
- getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TICAP3_IC3CON.setICBNE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TICAP3_IC3CON.clearICBNE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TICAP3_IC3CON.setICBNE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TICAP3_IC3CON.getICBNE : TBits_1; inline;
- begin
- getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TICAP3_IC3CON.setICOV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TICAP3_IC3CON.clearICOV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TICAP3_IC3CON.setICOV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TICAP3_IC3CON.getICOV : TBits_1; inline;
- begin
- getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TICAP3_IC3CON.setICI(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
- end;
- function TICAP3_IC3CON.getICI : TBits_2; inline;
- begin
- getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
- end;
- procedure TICAP3_IC3CON.setICTMR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TICAP3_IC3CON.clearICTMR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TICAP3_IC3CON.setICTMR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TICAP3_IC3CON.getICTMR : TBits_1; inline;
- begin
- getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TICAP3_IC3CON.setC32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TICAP3_IC3CON.clearC32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TICAP3_IC3CON.setC32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TICAP3_IC3CON.getC32 : TBits_1; inline;
- begin
- getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TICAP3_IC3CON.setFEDGE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TICAP3_IC3CON.clearFEDGE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TICAP3_IC3CON.setFEDGE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TICAP3_IC3CON.getFEDGE : TBits_1; inline;
- begin
- getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TICAP3_IC3CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TICAP3_IC3CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TICAP3_IC3CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TICAP3_IC3CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TICAP3_IC3CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TICAP3_IC3CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TICAP3_IC3CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TICAP3_IC3CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TICAP3_IC3CON.setICM0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TICAP3_IC3CON.clearICM0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TICAP3_IC3CON.setICM0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TICAP3_IC3CON.getICM0 : TBits_1; inline;
- begin
- getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TICAP3_IC3CON.setICM1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TICAP3_IC3CON.clearICM1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TICAP3_IC3CON.setICM1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TICAP3_IC3CON.getICM1 : TBits_1; inline;
- begin
- getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TICAP3_IC3CON.setICM2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TICAP3_IC3CON.clearICM2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TICAP3_IC3CON.setICM2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TICAP3_IC3CON.getICM2 : TBits_1; inline;
- begin
- getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TICAP3_IC3CON.setICI0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TICAP3_IC3CON.clearICI0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TICAP3_IC3CON.setICI0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TICAP3_IC3CON.getICI0 : TBits_1; inline;
- begin
- getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TICAP3_IC3CON.setICI1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TICAP3_IC3CON.clearICI1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TICAP3_IC3CON.setICI1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TICAP3_IC3CON.getICI1 : TBits_1; inline;
- begin
- getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TICAP3_IC3CON.setICSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TICAP3_IC3CON.clearICSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TICAP3_IC3CON.setICSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TICAP3_IC3CON.getICSIDL : TBits_1; inline;
- begin
- getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TICAP3_IC3CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TICAP3_IC3CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TICAP4_IC4CON.setICM(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TICAP4_IC4CON.getICM : TBits_3; inline;
- begin
- getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TICAP4_IC4CON.setICBNE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TICAP4_IC4CON.clearICBNE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TICAP4_IC4CON.setICBNE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TICAP4_IC4CON.getICBNE : TBits_1; inline;
- begin
- getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TICAP4_IC4CON.setICOV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TICAP4_IC4CON.clearICOV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TICAP4_IC4CON.setICOV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TICAP4_IC4CON.getICOV : TBits_1; inline;
- begin
- getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TICAP4_IC4CON.setICI(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
- end;
- function TICAP4_IC4CON.getICI : TBits_2; inline;
- begin
- getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
- end;
- procedure TICAP4_IC4CON.setICTMR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TICAP4_IC4CON.clearICTMR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TICAP4_IC4CON.setICTMR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TICAP4_IC4CON.getICTMR : TBits_1; inline;
- begin
- getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TICAP4_IC4CON.setC32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TICAP4_IC4CON.clearC32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TICAP4_IC4CON.setC32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TICAP4_IC4CON.getC32 : TBits_1; inline;
- begin
- getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TICAP4_IC4CON.setFEDGE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TICAP4_IC4CON.clearFEDGE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TICAP4_IC4CON.setFEDGE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TICAP4_IC4CON.getFEDGE : TBits_1; inline;
- begin
- getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TICAP4_IC4CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TICAP4_IC4CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TICAP4_IC4CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TICAP4_IC4CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TICAP4_IC4CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TICAP4_IC4CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TICAP4_IC4CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TICAP4_IC4CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TICAP4_IC4CON.setICM0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TICAP4_IC4CON.clearICM0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TICAP4_IC4CON.setICM0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TICAP4_IC4CON.getICM0 : TBits_1; inline;
- begin
- getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TICAP4_IC4CON.setICM1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TICAP4_IC4CON.clearICM1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TICAP4_IC4CON.setICM1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TICAP4_IC4CON.getICM1 : TBits_1; inline;
- begin
- getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TICAP4_IC4CON.setICM2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TICAP4_IC4CON.clearICM2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TICAP4_IC4CON.setICM2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TICAP4_IC4CON.getICM2 : TBits_1; inline;
- begin
- getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TICAP4_IC4CON.setICI0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TICAP4_IC4CON.clearICI0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TICAP4_IC4CON.setICI0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TICAP4_IC4CON.getICI0 : TBits_1; inline;
- begin
- getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TICAP4_IC4CON.setICI1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TICAP4_IC4CON.clearICI1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TICAP4_IC4CON.setICI1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TICAP4_IC4CON.getICI1 : TBits_1; inline;
- begin
- getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TICAP4_IC4CON.setICSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TICAP4_IC4CON.clearICSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TICAP4_IC4CON.setICSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TICAP4_IC4CON.getICSIDL : TBits_1; inline;
- begin
- getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TICAP4_IC4CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TICAP4_IC4CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TICAP5_IC5CON.setICM(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TICAP5_IC5CON.getICM : TBits_3; inline;
- begin
- getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TICAP5_IC5CON.setICBNE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TICAP5_IC5CON.clearICBNE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TICAP5_IC5CON.setICBNE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TICAP5_IC5CON.getICBNE : TBits_1; inline;
- begin
- getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TICAP5_IC5CON.setICOV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TICAP5_IC5CON.clearICOV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TICAP5_IC5CON.setICOV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TICAP5_IC5CON.getICOV : TBits_1; inline;
- begin
- getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TICAP5_IC5CON.setICI(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
- end;
- function TICAP5_IC5CON.getICI : TBits_2; inline;
- begin
- getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
- end;
- procedure TICAP5_IC5CON.setICTMR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TICAP5_IC5CON.clearICTMR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TICAP5_IC5CON.setICTMR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TICAP5_IC5CON.getICTMR : TBits_1; inline;
- begin
- getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TICAP5_IC5CON.setC32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TICAP5_IC5CON.clearC32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TICAP5_IC5CON.setC32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TICAP5_IC5CON.getC32 : TBits_1; inline;
- begin
- getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TICAP5_IC5CON.setFEDGE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TICAP5_IC5CON.clearFEDGE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TICAP5_IC5CON.setFEDGE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TICAP5_IC5CON.getFEDGE : TBits_1; inline;
- begin
- getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TICAP5_IC5CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TICAP5_IC5CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TICAP5_IC5CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TICAP5_IC5CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TICAP5_IC5CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TICAP5_IC5CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TICAP5_IC5CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TICAP5_IC5CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TICAP5_IC5CON.setICM0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TICAP5_IC5CON.clearICM0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TICAP5_IC5CON.setICM0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TICAP5_IC5CON.getICM0 : TBits_1; inline;
- begin
- getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TICAP5_IC5CON.setICM1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TICAP5_IC5CON.clearICM1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TICAP5_IC5CON.setICM1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TICAP5_IC5CON.getICM1 : TBits_1; inline;
- begin
- getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TICAP5_IC5CON.setICM2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TICAP5_IC5CON.clearICM2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TICAP5_IC5CON.setICM2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TICAP5_IC5CON.getICM2 : TBits_1; inline;
- begin
- getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TICAP5_IC5CON.setICI0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TICAP5_IC5CON.clearICI0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TICAP5_IC5CON.setICI0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TICAP5_IC5CON.getICI0 : TBits_1; inline;
- begin
- getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TICAP5_IC5CON.setICI1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TICAP5_IC5CON.clearICI1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TICAP5_IC5CON.setICI1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TICAP5_IC5CON.getICI1 : TBits_1; inline;
- begin
- getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TICAP5_IC5CON.setICSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TICAP5_IC5CON.clearICSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TICAP5_IC5CON.setICSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TICAP5_IC5CON.getICSIDL : TBits_1; inline;
- begin
- getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TICAP5_IC5CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TICAP5_IC5CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TOCMP1_OC1CON.setOCM(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TOCMP1_OC1CON.getOCM : TBits_3; inline;
- begin
- getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TOCMP1_OC1CON.setOCTSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TOCMP1_OC1CON.clearOCTSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TOCMP1_OC1CON.setOCTSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TOCMP1_OC1CON.getOCTSEL : TBits_1; inline;
- begin
- getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TOCMP1_OC1CON.setOCFLT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TOCMP1_OC1CON.clearOCFLT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TOCMP1_OC1CON.setOCFLT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TOCMP1_OC1CON.getOCFLT : TBits_1; inline;
- begin
- getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TOCMP1_OC1CON.setOC32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TOCMP1_OC1CON.clearOC32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TOCMP1_OC1CON.setOC32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TOCMP1_OC1CON.getOC32 : TBits_1; inline;
- begin
- getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TOCMP1_OC1CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TOCMP1_OC1CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TOCMP1_OC1CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TOCMP1_OC1CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TOCMP1_OC1CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TOCMP1_OC1CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TOCMP1_OC1CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TOCMP1_OC1CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TOCMP1_OC1CON.setOCM0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TOCMP1_OC1CON.clearOCM0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TOCMP1_OC1CON.setOCM0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TOCMP1_OC1CON.getOCM0 : TBits_1; inline;
- begin
- getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TOCMP1_OC1CON.setOCM1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TOCMP1_OC1CON.clearOCM1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TOCMP1_OC1CON.setOCM1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TOCMP1_OC1CON.getOCM1 : TBits_1; inline;
- begin
- getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TOCMP1_OC1CON.setOCM2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TOCMP1_OC1CON.clearOCM2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TOCMP1_OC1CON.setOCM2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TOCMP1_OC1CON.getOCM2 : TBits_1; inline;
- begin
- getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TOCMP1_OC1CON.setOCSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TOCMP1_OC1CON.clearOCSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TOCMP1_OC1CON.setOCSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TOCMP1_OC1CON.getOCSIDL : TBits_1; inline;
- begin
- getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TOCMP1_OC1CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TOCMP1_OC1CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TOCMP2_OC2CON.setOCM(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TOCMP2_OC2CON.getOCM : TBits_3; inline;
- begin
- getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TOCMP2_OC2CON.setOCTSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TOCMP2_OC2CON.clearOCTSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TOCMP2_OC2CON.setOCTSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TOCMP2_OC2CON.getOCTSEL : TBits_1; inline;
- begin
- getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TOCMP2_OC2CON.setOCFLT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TOCMP2_OC2CON.clearOCFLT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TOCMP2_OC2CON.setOCFLT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TOCMP2_OC2CON.getOCFLT : TBits_1; inline;
- begin
- getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TOCMP2_OC2CON.setOC32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TOCMP2_OC2CON.clearOC32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TOCMP2_OC2CON.setOC32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TOCMP2_OC2CON.getOC32 : TBits_1; inline;
- begin
- getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TOCMP2_OC2CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TOCMP2_OC2CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TOCMP2_OC2CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TOCMP2_OC2CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TOCMP2_OC2CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TOCMP2_OC2CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TOCMP2_OC2CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TOCMP2_OC2CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TOCMP2_OC2CON.setOCM0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TOCMP2_OC2CON.clearOCM0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TOCMP2_OC2CON.setOCM0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TOCMP2_OC2CON.getOCM0 : TBits_1; inline;
- begin
- getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TOCMP2_OC2CON.setOCM1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TOCMP2_OC2CON.clearOCM1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TOCMP2_OC2CON.setOCM1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TOCMP2_OC2CON.getOCM1 : TBits_1; inline;
- begin
- getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TOCMP2_OC2CON.setOCM2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TOCMP2_OC2CON.clearOCM2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TOCMP2_OC2CON.setOCM2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TOCMP2_OC2CON.getOCM2 : TBits_1; inline;
- begin
- getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TOCMP2_OC2CON.setOCSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TOCMP2_OC2CON.clearOCSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TOCMP2_OC2CON.setOCSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TOCMP2_OC2CON.getOCSIDL : TBits_1; inline;
- begin
- getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TOCMP2_OC2CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TOCMP2_OC2CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TOCMP3_OC3CON.setOCM(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TOCMP3_OC3CON.getOCM : TBits_3; inline;
- begin
- getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TOCMP3_OC3CON.setOCTSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TOCMP3_OC3CON.clearOCTSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TOCMP3_OC3CON.setOCTSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TOCMP3_OC3CON.getOCTSEL : TBits_1; inline;
- begin
- getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TOCMP3_OC3CON.setOCFLT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TOCMP3_OC3CON.clearOCFLT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TOCMP3_OC3CON.setOCFLT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TOCMP3_OC3CON.getOCFLT : TBits_1; inline;
- begin
- getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TOCMP3_OC3CON.setOC32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TOCMP3_OC3CON.clearOC32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TOCMP3_OC3CON.setOC32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TOCMP3_OC3CON.getOC32 : TBits_1; inline;
- begin
- getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TOCMP3_OC3CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TOCMP3_OC3CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TOCMP3_OC3CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TOCMP3_OC3CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TOCMP3_OC3CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TOCMP3_OC3CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TOCMP3_OC3CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TOCMP3_OC3CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TOCMP3_OC3CON.setOCM0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TOCMP3_OC3CON.clearOCM0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TOCMP3_OC3CON.setOCM0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TOCMP3_OC3CON.getOCM0 : TBits_1; inline;
- begin
- getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TOCMP3_OC3CON.setOCM1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TOCMP3_OC3CON.clearOCM1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TOCMP3_OC3CON.setOCM1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TOCMP3_OC3CON.getOCM1 : TBits_1; inline;
- begin
- getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TOCMP3_OC3CON.setOCM2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TOCMP3_OC3CON.clearOCM2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TOCMP3_OC3CON.setOCM2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TOCMP3_OC3CON.getOCM2 : TBits_1; inline;
- begin
- getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TOCMP3_OC3CON.setOCSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TOCMP3_OC3CON.clearOCSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TOCMP3_OC3CON.setOCSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TOCMP3_OC3CON.getOCSIDL : TBits_1; inline;
- begin
- getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TOCMP3_OC3CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TOCMP3_OC3CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TOCMP4_OC4CON.setOCM(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TOCMP4_OC4CON.getOCM : TBits_3; inline;
- begin
- getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TOCMP4_OC4CON.setOCTSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TOCMP4_OC4CON.clearOCTSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TOCMP4_OC4CON.setOCTSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TOCMP4_OC4CON.getOCTSEL : TBits_1; inline;
- begin
- getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TOCMP4_OC4CON.setOCFLT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TOCMP4_OC4CON.clearOCFLT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TOCMP4_OC4CON.setOCFLT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TOCMP4_OC4CON.getOCFLT : TBits_1; inline;
- begin
- getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TOCMP4_OC4CON.setOC32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TOCMP4_OC4CON.clearOC32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TOCMP4_OC4CON.setOC32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TOCMP4_OC4CON.getOC32 : TBits_1; inline;
- begin
- getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TOCMP4_OC4CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TOCMP4_OC4CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TOCMP4_OC4CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TOCMP4_OC4CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TOCMP4_OC4CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TOCMP4_OC4CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TOCMP4_OC4CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TOCMP4_OC4CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TOCMP4_OC4CON.setOCM0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TOCMP4_OC4CON.clearOCM0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TOCMP4_OC4CON.setOCM0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TOCMP4_OC4CON.getOCM0 : TBits_1; inline;
- begin
- getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TOCMP4_OC4CON.setOCM1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TOCMP4_OC4CON.clearOCM1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TOCMP4_OC4CON.setOCM1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TOCMP4_OC4CON.getOCM1 : TBits_1; inline;
- begin
- getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TOCMP4_OC4CON.setOCM2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TOCMP4_OC4CON.clearOCM2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TOCMP4_OC4CON.setOCM2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TOCMP4_OC4CON.getOCM2 : TBits_1; inline;
- begin
- getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TOCMP4_OC4CON.setOCSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TOCMP4_OC4CON.clearOCSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TOCMP4_OC4CON.setOCSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TOCMP4_OC4CON.getOCSIDL : TBits_1; inline;
- begin
- getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TOCMP4_OC4CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TOCMP4_OC4CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TOCMP5_OC5CON.setOCM(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TOCMP5_OC5CON.getOCM : TBits_3; inline;
- begin
- getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TOCMP5_OC5CON.setOCTSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TOCMP5_OC5CON.clearOCTSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TOCMP5_OC5CON.setOCTSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TOCMP5_OC5CON.getOCTSEL : TBits_1; inline;
- begin
- getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TOCMP5_OC5CON.setOCFLT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TOCMP5_OC5CON.clearOCFLT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TOCMP5_OC5CON.setOCFLT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TOCMP5_OC5CON.getOCFLT : TBits_1; inline;
- begin
- getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TOCMP5_OC5CON.setOC32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TOCMP5_OC5CON.clearOC32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TOCMP5_OC5CON.setOC32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TOCMP5_OC5CON.getOC32 : TBits_1; inline;
- begin
- getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TOCMP5_OC5CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TOCMP5_OC5CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TOCMP5_OC5CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TOCMP5_OC5CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TOCMP5_OC5CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TOCMP5_OC5CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TOCMP5_OC5CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TOCMP5_OC5CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TOCMP5_OC5CON.setOCM0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TOCMP5_OC5CON.clearOCM0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TOCMP5_OC5CON.setOCM0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TOCMP5_OC5CON.getOCM0 : TBits_1; inline;
- begin
- getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TOCMP5_OC5CON.setOCM1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TOCMP5_OC5CON.clearOCM1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TOCMP5_OC5CON.setOCM1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TOCMP5_OC5CON.getOCM1 : TBits_1; inline;
- begin
- getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TOCMP5_OC5CON.setOCM2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TOCMP5_OC5CON.clearOCM2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TOCMP5_OC5CON.setOCM2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TOCMP5_OC5CON.getOCM2 : TBits_1; inline;
- begin
- getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TOCMP5_OC5CON.setOCSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TOCMP5_OC5CON.clearOCSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TOCMP5_OC5CON.setOCSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TOCMP5_OC5CON.getOCSIDL : TBits_1; inline;
- begin
- getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TOCMP5_OC5CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TOCMP5_OC5CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TI2C1_I2C1111CON.setSEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TI2C1_I2C1111CON.clearSEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TI2C1_I2C1111CON.setSEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TI2C1_I2C1111CON.getSEN : TBits_1; inline;
- begin
- getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TI2C1_I2C1111CON.setRSEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TI2C1_I2C1111CON.clearRSEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TI2C1_I2C1111CON.setRSEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TI2C1_I2C1111CON.getRSEN : TBits_1; inline;
- begin
- getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TI2C1_I2C1111CON.setPEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TI2C1_I2C1111CON.clearPEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TI2C1_I2C1111CON.setPEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TI2C1_I2C1111CON.getPEN : TBits_1; inline;
- begin
- getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TI2C1_I2C1111CON.setRCEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TI2C1_I2C1111CON.clearRCEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TI2C1_I2C1111CON.setRCEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TI2C1_I2C1111CON.getRCEN : TBits_1; inline;
- begin
- getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TI2C1_I2C1111CON.setACKEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TI2C1_I2C1111CON.clearACKEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TI2C1_I2C1111CON.setACKEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TI2C1_I2C1111CON.getACKEN : TBits_1; inline;
- begin
- getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TI2C1_I2C1111CON.setACKDT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TI2C1_I2C1111CON.clearACKDT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TI2C1_I2C1111CON.setACKDT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TI2C1_I2C1111CON.getACKDT : TBits_1; inline;
- begin
- getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TI2C1_I2C1111CON.setSTREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TI2C1_I2C1111CON.clearSTREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TI2C1_I2C1111CON.setSTREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TI2C1_I2C1111CON.getSTREN : TBits_1; inline;
- begin
- getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TI2C1_I2C1111CON.setGCEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TI2C1_I2C1111CON.clearGCEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TI2C1_I2C1111CON.setGCEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TI2C1_I2C1111CON.getGCEN : TBits_1; inline;
- begin
- getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TI2C1_I2C1111CON.setSMEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TI2C1_I2C1111CON.clearSMEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TI2C1_I2C1111CON.setSMEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TI2C1_I2C1111CON.getSMEN : TBits_1; inline;
- begin
- getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TI2C1_I2C1111CON.setDISSLW; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TI2C1_I2C1111CON.clearDISSLW; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TI2C1_I2C1111CON.setDISSLW(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TI2C1_I2C1111CON.getDISSLW : TBits_1; inline;
- begin
- getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TI2C1_I2C1111CON.setA10M; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TI2C1_I2C1111CON.clearA10M; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TI2C1_I2C1111CON.setA10M(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TI2C1_I2C1111CON.getA10M : TBits_1; inline;
- begin
- getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TI2C1_I2C1111CON.setSTRICT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TI2C1_I2C1111CON.clearSTRICT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TI2C1_I2C1111CON.setSTRICT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TI2C1_I2C1111CON.getSTRICT : TBits_1; inline;
- begin
- getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TI2C1_I2C1111CON.setSCLREL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TI2C1_I2C1111CON.clearSCLREL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TI2C1_I2C1111CON.setSCLREL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TI2C1_I2C1111CON.getSCLREL : TBits_1; inline;
- begin
- getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TI2C1_I2C1111CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TI2C1_I2C1111CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TI2C1_I2C1111CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TI2C1_I2C1111CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TI2C1_I2C1111CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TI2C1_I2C1111CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TI2C1_I2C1111CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TI2C1_I2C1111CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TI2C1_I2C1111CON.setIPMIEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TI2C1_I2C1111CON.clearIPMIEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TI2C1_I2C1111CON.setIPMIEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TI2C1_I2C1111CON.getIPMIEN : TBits_1; inline;
- begin
- getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TI2C1_I2C1111CON.setI2CSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TI2C1_I2C1111CON.clearI2CSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TI2C1_I2C1111CON.setI2CSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TI2C1_I2C1111CON.getI2CSIDL : TBits_1; inline;
- begin
- getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TI2C1_I2C1111CON.setI2CEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TI2C1_I2C1111CON.clearI2CEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TI2C1_I2C1111CON.setI2CEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TI2C1_I2C1111CON.getI2CEN : TBits_1; inline;
- begin
- getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TI2C1_I2C1111CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TI2C1_I2C1111CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TI2C1_I2C1CON.setSEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TI2C1_I2C1CON.clearSEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TI2C1_I2C1CON.setSEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TI2C1_I2C1CON.getSEN : TBits_1; inline;
- begin
- getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TI2C1_I2C1CON.setRSEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TI2C1_I2C1CON.clearRSEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TI2C1_I2C1CON.setRSEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TI2C1_I2C1CON.getRSEN : TBits_1; inline;
- begin
- getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TI2C1_I2C1CON.setPEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TI2C1_I2C1CON.clearPEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TI2C1_I2C1CON.setPEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TI2C1_I2C1CON.getPEN : TBits_1; inline;
- begin
- getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TI2C1_I2C1CON.setRCEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TI2C1_I2C1CON.clearRCEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TI2C1_I2C1CON.setRCEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TI2C1_I2C1CON.getRCEN : TBits_1; inline;
- begin
- getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TI2C1_I2C1CON.setACKEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TI2C1_I2C1CON.clearACKEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TI2C1_I2C1CON.setACKEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TI2C1_I2C1CON.getACKEN : TBits_1; inline;
- begin
- getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TI2C1_I2C1CON.setACKDT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TI2C1_I2C1CON.clearACKDT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TI2C1_I2C1CON.setACKDT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TI2C1_I2C1CON.getACKDT : TBits_1; inline;
- begin
- getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TI2C1_I2C1CON.setSTREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TI2C1_I2C1CON.clearSTREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TI2C1_I2C1CON.setSTREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TI2C1_I2C1CON.getSTREN : TBits_1; inline;
- begin
- getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TI2C1_I2C1CON.setGCEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TI2C1_I2C1CON.clearGCEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TI2C1_I2C1CON.setGCEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TI2C1_I2C1CON.getGCEN : TBits_1; inline;
- begin
- getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TI2C1_I2C1CON.setSMEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TI2C1_I2C1CON.clearSMEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TI2C1_I2C1CON.setSMEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TI2C1_I2C1CON.getSMEN : TBits_1; inline;
- begin
- getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TI2C1_I2C1CON.setDISSLW; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TI2C1_I2C1CON.clearDISSLW; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TI2C1_I2C1CON.setDISSLW(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TI2C1_I2C1CON.getDISSLW : TBits_1; inline;
- begin
- getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TI2C1_I2C1CON.setA10M; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TI2C1_I2C1CON.clearA10M; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TI2C1_I2C1CON.setA10M(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TI2C1_I2C1CON.getA10M : TBits_1; inline;
- begin
- getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TI2C1_I2C1CON.setSTRICT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TI2C1_I2C1CON.clearSTRICT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TI2C1_I2C1CON.setSTRICT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TI2C1_I2C1CON.getSTRICT : TBits_1; inline;
- begin
- getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TI2C1_I2C1CON.setSCLREL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TI2C1_I2C1CON.clearSCLREL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TI2C1_I2C1CON.setSCLREL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TI2C1_I2C1CON.getSCLREL : TBits_1; inline;
- begin
- getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TI2C1_I2C1CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TI2C1_I2C1CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TI2C1_I2C1CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TI2C1_I2C1CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TI2C1_I2C1CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TI2C1_I2C1CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TI2C1_I2C1CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TI2C1_I2C1CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TI2C1_I2C1CON.setIPMIEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TI2C1_I2C1CON.clearIPMIEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TI2C1_I2C1CON.setIPMIEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TI2C1_I2C1CON.getIPMIEN : TBits_1; inline;
- begin
- getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TI2C1_I2C1CON.setI2CSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TI2C1_I2C1CON.clearI2CSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TI2C1_I2C1CON.setI2CSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TI2C1_I2C1CON.getI2CSIDL : TBits_1; inline;
- begin
- getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TI2C1_I2C1CON.setI2CEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TI2C1_I2C1CON.clearI2CEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TI2C1_I2C1CON.setI2CEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TI2C1_I2C1CON.getI2CEN : TBits_1; inline;
- begin
- getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TI2C1_I2C1CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TI2C1_I2C1CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TI2C1_I2C1111STAT.setTBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TI2C1_I2C1111STAT.clearTBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TI2C1_I2C1111STAT.setTBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TI2C1_I2C1111STAT.getTBF : TBits_1; inline;
- begin
- getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TI2C1_I2C1111STAT.setRBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TI2C1_I2C1111STAT.clearRBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TI2C1_I2C1111STAT.setRBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TI2C1_I2C1111STAT.getRBF : TBits_1; inline;
- begin
- getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TI2C1_I2C1111STAT.setR_W; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TI2C1_I2C1111STAT.clearR_W; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TI2C1_I2C1111STAT.setR_W(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TI2C1_I2C1111STAT.getR_W : TBits_1; inline;
- begin
- getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TI2C1_I2C1111STAT.setS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TI2C1_I2C1111STAT.clearS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TI2C1_I2C1111STAT.setS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TI2C1_I2C1111STAT.getS : TBits_1; inline;
- begin
- getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TI2C1_I2C1111STAT.setP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TI2C1_I2C1111STAT.clearP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TI2C1_I2C1111STAT.setP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TI2C1_I2C1111STAT.getP : TBits_1; inline;
- begin
- getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TI2C1_I2C1111STAT.setD_A; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TI2C1_I2C1111STAT.clearD_A; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TI2C1_I2C1111STAT.setD_A(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TI2C1_I2C1111STAT.getD_A : TBits_1; inline;
- begin
- getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TI2C1_I2C1111STAT.setI2COV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TI2C1_I2C1111STAT.clearI2COV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TI2C1_I2C1111STAT.setI2COV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TI2C1_I2C1111STAT.getI2COV : TBits_1; inline;
- begin
- getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TI2C1_I2C1111STAT.setIWCOL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TI2C1_I2C1111STAT.clearIWCOL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TI2C1_I2C1111STAT.setIWCOL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TI2C1_I2C1111STAT.getIWCOL : TBits_1; inline;
- begin
- getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TI2C1_I2C1111STAT.setADD10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TI2C1_I2C1111STAT.clearADD10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TI2C1_I2C1111STAT.setADD10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TI2C1_I2C1111STAT.getADD10 : TBits_1; inline;
- begin
- getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TI2C1_I2C1111STAT.setGCSTAT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TI2C1_I2C1111STAT.clearGCSTAT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TI2C1_I2C1111STAT.setGCSTAT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TI2C1_I2C1111STAT.getGCSTAT : TBits_1; inline;
- begin
- getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TI2C1_I2C1111STAT.setBCL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TI2C1_I2C1111STAT.clearBCL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TI2C1_I2C1111STAT.setBCL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TI2C1_I2C1111STAT.getBCL : TBits_1; inline;
- begin
- getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TI2C1_I2C1111STAT.setTRSTAT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TI2C1_I2C1111STAT.clearTRSTAT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TI2C1_I2C1111STAT.setTRSTAT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TI2C1_I2C1111STAT.getTRSTAT : TBits_1; inline;
- begin
- getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TI2C1_I2C1111STAT.setACKSTAT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TI2C1_I2C1111STAT.clearACKSTAT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TI2C1_I2C1111STAT.setACKSTAT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TI2C1_I2C1111STAT.getACKSTAT : TBits_1; inline;
- begin
- getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TI2C1_I2C1111STAT.setI2CPOV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TI2C1_I2C1111STAT.clearI2CPOV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TI2C1_I2C1111STAT.setI2CPOV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TI2C1_I2C1111STAT.getI2CPOV : TBits_1; inline;
- begin
- getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TI2C1_I2C1111STAT.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TI2C1_I2C1111STAT.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TI2C1_I2C1STAT.setTBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TI2C1_I2C1STAT.clearTBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TI2C1_I2C1STAT.setTBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TI2C1_I2C1STAT.getTBF : TBits_1; inline;
- begin
- getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TI2C1_I2C1STAT.setRBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TI2C1_I2C1STAT.clearRBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TI2C1_I2C1STAT.setRBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TI2C1_I2C1STAT.getRBF : TBits_1; inline;
- begin
- getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TI2C1_I2C1STAT.setR_W; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TI2C1_I2C1STAT.clearR_W; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TI2C1_I2C1STAT.setR_W(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TI2C1_I2C1STAT.getR_W : TBits_1; inline;
- begin
- getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TI2C1_I2C1STAT.setS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TI2C1_I2C1STAT.clearS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TI2C1_I2C1STAT.setS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TI2C1_I2C1STAT.getS : TBits_1; inline;
- begin
- getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TI2C1_I2C1STAT.setP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TI2C1_I2C1STAT.clearP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TI2C1_I2C1STAT.setP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TI2C1_I2C1STAT.getP : TBits_1; inline;
- begin
- getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TI2C1_I2C1STAT.setD_A; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TI2C1_I2C1STAT.clearD_A; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TI2C1_I2C1STAT.setD_A(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TI2C1_I2C1STAT.getD_A : TBits_1; inline;
- begin
- getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TI2C1_I2C1STAT.setI2COV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TI2C1_I2C1STAT.clearI2COV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TI2C1_I2C1STAT.setI2COV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TI2C1_I2C1STAT.getI2COV : TBits_1; inline;
- begin
- getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TI2C1_I2C1STAT.setIWCOL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TI2C1_I2C1STAT.clearIWCOL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TI2C1_I2C1STAT.setIWCOL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TI2C1_I2C1STAT.getIWCOL : TBits_1; inline;
- begin
- getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TI2C1_I2C1STAT.setADD10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TI2C1_I2C1STAT.clearADD10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TI2C1_I2C1STAT.setADD10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TI2C1_I2C1STAT.getADD10 : TBits_1; inline;
- begin
- getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TI2C1_I2C1STAT.setGCSTAT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TI2C1_I2C1STAT.clearGCSTAT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TI2C1_I2C1STAT.setGCSTAT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TI2C1_I2C1STAT.getGCSTAT : TBits_1; inline;
- begin
- getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TI2C1_I2C1STAT.setBCL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TI2C1_I2C1STAT.clearBCL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TI2C1_I2C1STAT.setBCL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TI2C1_I2C1STAT.getBCL : TBits_1; inline;
- begin
- getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TI2C1_I2C1STAT.setTRSTAT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TI2C1_I2C1STAT.clearTRSTAT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TI2C1_I2C1STAT.setTRSTAT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TI2C1_I2C1STAT.getTRSTAT : TBits_1; inline;
- begin
- getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TI2C1_I2C1STAT.setACKSTAT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TI2C1_I2C1STAT.clearACKSTAT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TI2C1_I2C1STAT.setACKSTAT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TI2C1_I2C1STAT.getACKSTAT : TBits_1; inline;
- begin
- getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TI2C1_I2C1STAT.setI2CPOV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TI2C1_I2C1STAT.clearI2CPOV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TI2C1_I2C1STAT.setI2CPOV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TI2C1_I2C1STAT.getI2CPOV : TBits_1; inline;
- begin
- getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TI2C1_I2C1STAT.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TI2C1_I2C1STAT.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TI2C2_I2C2CON.setSEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TI2C2_I2C2CON.clearSEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TI2C2_I2C2CON.setSEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TI2C2_I2C2CON.getSEN : TBits_1; inline;
- begin
- getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TI2C2_I2C2CON.setRSEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TI2C2_I2C2CON.clearRSEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TI2C2_I2C2CON.setRSEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TI2C2_I2C2CON.getRSEN : TBits_1; inline;
- begin
- getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TI2C2_I2C2CON.setPEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TI2C2_I2C2CON.clearPEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TI2C2_I2C2CON.setPEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TI2C2_I2C2CON.getPEN : TBits_1; inline;
- begin
- getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TI2C2_I2C2CON.setRCEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TI2C2_I2C2CON.clearRCEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TI2C2_I2C2CON.setRCEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TI2C2_I2C2CON.getRCEN : TBits_1; inline;
- begin
- getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TI2C2_I2C2CON.setACKEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TI2C2_I2C2CON.clearACKEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TI2C2_I2C2CON.setACKEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TI2C2_I2C2CON.getACKEN : TBits_1; inline;
- begin
- getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TI2C2_I2C2CON.setACKDT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TI2C2_I2C2CON.clearACKDT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TI2C2_I2C2CON.setACKDT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TI2C2_I2C2CON.getACKDT : TBits_1; inline;
- begin
- getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TI2C2_I2C2CON.setSTREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TI2C2_I2C2CON.clearSTREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TI2C2_I2C2CON.setSTREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TI2C2_I2C2CON.getSTREN : TBits_1; inline;
- begin
- getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TI2C2_I2C2CON.setGCEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TI2C2_I2C2CON.clearGCEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TI2C2_I2C2CON.setGCEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TI2C2_I2C2CON.getGCEN : TBits_1; inline;
- begin
- getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TI2C2_I2C2CON.setSMEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TI2C2_I2C2CON.clearSMEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TI2C2_I2C2CON.setSMEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TI2C2_I2C2CON.getSMEN : TBits_1; inline;
- begin
- getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TI2C2_I2C2CON.setDISSLW; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TI2C2_I2C2CON.clearDISSLW; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TI2C2_I2C2CON.setDISSLW(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TI2C2_I2C2CON.getDISSLW : TBits_1; inline;
- begin
- getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TI2C2_I2C2CON.setA10M; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TI2C2_I2C2CON.clearA10M; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TI2C2_I2C2CON.setA10M(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TI2C2_I2C2CON.getA10M : TBits_1; inline;
- begin
- getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TI2C2_I2C2CON.setSTRICT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TI2C2_I2C2CON.clearSTRICT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TI2C2_I2C2CON.setSTRICT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TI2C2_I2C2CON.getSTRICT : TBits_1; inline;
- begin
- getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TI2C2_I2C2CON.setSCLREL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TI2C2_I2C2CON.clearSCLREL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TI2C2_I2C2CON.setSCLREL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TI2C2_I2C2CON.getSCLREL : TBits_1; inline;
- begin
- getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TI2C2_I2C2CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TI2C2_I2C2CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TI2C2_I2C2CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TI2C2_I2C2CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TI2C2_I2C2CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TI2C2_I2C2CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TI2C2_I2C2CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TI2C2_I2C2CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TI2C2_I2C2CON.setIPMIEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TI2C2_I2C2CON.clearIPMIEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TI2C2_I2C2CON.setIPMIEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TI2C2_I2C2CON.getIPMIEN : TBits_1; inline;
- begin
- getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TI2C2_I2C2CON.setI2CSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TI2C2_I2C2CON.clearI2CSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TI2C2_I2C2CON.setI2CSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TI2C2_I2C2CON.getI2CSIDL : TBits_1; inline;
- begin
- getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TI2C2_I2C2CON.setI2CEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TI2C2_I2C2CON.clearI2CEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TI2C2_I2C2CON.setI2CEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TI2C2_I2C2CON.getI2CEN : TBits_1; inline;
- begin
- getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TI2C2_I2C2CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TI2C2_I2C2CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TI2C2_I2CABCON.setSEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TI2C2_I2CABCON.clearSEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TI2C2_I2CABCON.setSEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TI2C2_I2CABCON.getSEN : TBits_1; inline;
- begin
- getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TI2C2_I2CABCON.setRSEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TI2C2_I2CABCON.clearRSEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TI2C2_I2CABCON.setRSEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TI2C2_I2CABCON.getRSEN : TBits_1; inline;
- begin
- getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TI2C2_I2CABCON.setPEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TI2C2_I2CABCON.clearPEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TI2C2_I2CABCON.setPEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TI2C2_I2CABCON.getPEN : TBits_1; inline;
- begin
- getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TI2C2_I2CABCON.setRCEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TI2C2_I2CABCON.clearRCEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TI2C2_I2CABCON.setRCEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TI2C2_I2CABCON.getRCEN : TBits_1; inline;
- begin
- getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TI2C2_I2CABCON.setACKEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TI2C2_I2CABCON.clearACKEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TI2C2_I2CABCON.setACKEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TI2C2_I2CABCON.getACKEN : TBits_1; inline;
- begin
- getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TI2C2_I2CABCON.setACKDT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TI2C2_I2CABCON.clearACKDT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TI2C2_I2CABCON.setACKDT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TI2C2_I2CABCON.getACKDT : TBits_1; inline;
- begin
- getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TI2C2_I2CABCON.setSTREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TI2C2_I2CABCON.clearSTREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TI2C2_I2CABCON.setSTREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TI2C2_I2CABCON.getSTREN : TBits_1; inline;
- begin
- getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TI2C2_I2CABCON.setGCEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TI2C2_I2CABCON.clearGCEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TI2C2_I2CABCON.setGCEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TI2C2_I2CABCON.getGCEN : TBits_1; inline;
- begin
- getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TI2C2_I2CABCON.setSMEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TI2C2_I2CABCON.clearSMEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TI2C2_I2CABCON.setSMEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TI2C2_I2CABCON.getSMEN : TBits_1; inline;
- begin
- getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TI2C2_I2CABCON.setDISSLW; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TI2C2_I2CABCON.clearDISSLW; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TI2C2_I2CABCON.setDISSLW(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TI2C2_I2CABCON.getDISSLW : TBits_1; inline;
- begin
- getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TI2C2_I2CABCON.setA10M; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TI2C2_I2CABCON.clearA10M; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TI2C2_I2CABCON.setA10M(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TI2C2_I2CABCON.getA10M : TBits_1; inline;
- begin
- getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TI2C2_I2CABCON.setSTRICT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TI2C2_I2CABCON.clearSTRICT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TI2C2_I2CABCON.setSTRICT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TI2C2_I2CABCON.getSTRICT : TBits_1; inline;
- begin
- getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TI2C2_I2CABCON.setSCLREL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TI2C2_I2CABCON.clearSCLREL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TI2C2_I2CABCON.setSCLREL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TI2C2_I2CABCON.getSCLREL : TBits_1; inline;
- begin
- getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TI2C2_I2CABCON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TI2C2_I2CABCON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TI2C2_I2CABCON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TI2C2_I2CABCON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TI2C2_I2CABCON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TI2C2_I2CABCON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TI2C2_I2CABCON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TI2C2_I2CABCON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TI2C2_I2CABCON.setIPMIEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TI2C2_I2CABCON.clearIPMIEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TI2C2_I2CABCON.setIPMIEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TI2C2_I2CABCON.getIPMIEN : TBits_1; inline;
- begin
- getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TI2C2_I2CABCON.setI2CSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TI2C2_I2CABCON.clearI2CSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TI2C2_I2CABCON.setI2CSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TI2C2_I2CABCON.getI2CSIDL : TBits_1; inline;
- begin
- getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TI2C2_I2CABCON.setI2CEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TI2C2_I2CABCON.clearI2CEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TI2C2_I2CABCON.setI2CEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TI2C2_I2CABCON.getI2CEN : TBits_1; inline;
- begin
- getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TI2C2_I2CABCON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TI2C2_I2CABCON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TI2C2_I2C2STAT.setTBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TI2C2_I2C2STAT.clearTBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TI2C2_I2C2STAT.setTBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TI2C2_I2C2STAT.getTBF : TBits_1; inline;
- begin
- getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TI2C2_I2C2STAT.setRBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TI2C2_I2C2STAT.clearRBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TI2C2_I2C2STAT.setRBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TI2C2_I2C2STAT.getRBF : TBits_1; inline;
- begin
- getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TI2C2_I2C2STAT.setR_W; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TI2C2_I2C2STAT.clearR_W; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TI2C2_I2C2STAT.setR_W(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TI2C2_I2C2STAT.getR_W : TBits_1; inline;
- begin
- getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TI2C2_I2C2STAT.setS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TI2C2_I2C2STAT.clearS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TI2C2_I2C2STAT.setS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TI2C2_I2C2STAT.getS : TBits_1; inline;
- begin
- getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TI2C2_I2C2STAT.setP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TI2C2_I2C2STAT.clearP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TI2C2_I2C2STAT.setP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TI2C2_I2C2STAT.getP : TBits_1; inline;
- begin
- getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TI2C2_I2C2STAT.setD_A; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TI2C2_I2C2STAT.clearD_A; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TI2C2_I2C2STAT.setD_A(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TI2C2_I2C2STAT.getD_A : TBits_1; inline;
- begin
- getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TI2C2_I2C2STAT.setI2COV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TI2C2_I2C2STAT.clearI2COV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TI2C2_I2C2STAT.setI2COV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TI2C2_I2C2STAT.getI2COV : TBits_1; inline;
- begin
- getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TI2C2_I2C2STAT.setIWCOL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TI2C2_I2C2STAT.clearIWCOL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TI2C2_I2C2STAT.setIWCOL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TI2C2_I2C2STAT.getIWCOL : TBits_1; inline;
- begin
- getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TI2C2_I2C2STAT.setADD10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TI2C2_I2C2STAT.clearADD10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TI2C2_I2C2STAT.setADD10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TI2C2_I2C2STAT.getADD10 : TBits_1; inline;
- begin
- getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TI2C2_I2C2STAT.setGCSTAT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TI2C2_I2C2STAT.clearGCSTAT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TI2C2_I2C2STAT.setGCSTAT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TI2C2_I2C2STAT.getGCSTAT : TBits_1; inline;
- begin
- getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TI2C2_I2C2STAT.setBCL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TI2C2_I2C2STAT.clearBCL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TI2C2_I2C2STAT.setBCL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TI2C2_I2C2STAT.getBCL : TBits_1; inline;
- begin
- getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TI2C2_I2C2STAT.setTRSTAT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TI2C2_I2C2STAT.clearTRSTAT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TI2C2_I2C2STAT.setTRSTAT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TI2C2_I2C2STAT.getTRSTAT : TBits_1; inline;
- begin
- getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TI2C2_I2C2STAT.setACKSTAT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TI2C2_I2C2STAT.clearACKSTAT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TI2C2_I2C2STAT.setACKSTAT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TI2C2_I2C2STAT.getACKSTAT : TBits_1; inline;
- begin
- getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TI2C2_I2C2STAT.setI2CPOV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TI2C2_I2C2STAT.clearI2CPOV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TI2C2_I2C2STAT.setI2CPOV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TI2C2_I2C2STAT.getI2CPOV : TBits_1; inline;
- begin
- getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TI2C2_I2C2STAT.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TI2C2_I2C2STAT.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TI2C2_I2CABSTAT.setTBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TI2C2_I2CABSTAT.clearTBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TI2C2_I2CABSTAT.setTBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TI2C2_I2CABSTAT.getTBF : TBits_1; inline;
- begin
- getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TI2C2_I2CABSTAT.setRBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TI2C2_I2CABSTAT.clearRBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TI2C2_I2CABSTAT.setRBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TI2C2_I2CABSTAT.getRBF : TBits_1; inline;
- begin
- getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TI2C2_I2CABSTAT.setR_W; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TI2C2_I2CABSTAT.clearR_W; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TI2C2_I2CABSTAT.setR_W(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TI2C2_I2CABSTAT.getR_W : TBits_1; inline;
- begin
- getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TI2C2_I2CABSTAT.setS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TI2C2_I2CABSTAT.clearS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TI2C2_I2CABSTAT.setS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TI2C2_I2CABSTAT.getS : TBits_1; inline;
- begin
- getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TI2C2_I2CABSTAT.setP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TI2C2_I2CABSTAT.clearP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TI2C2_I2CABSTAT.setP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TI2C2_I2CABSTAT.getP : TBits_1; inline;
- begin
- getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TI2C2_I2CABSTAT.setD_A; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TI2C2_I2CABSTAT.clearD_A; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TI2C2_I2CABSTAT.setD_A(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TI2C2_I2CABSTAT.getD_A : TBits_1; inline;
- begin
- getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TI2C2_I2CABSTAT.setI2COV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TI2C2_I2CABSTAT.clearI2COV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TI2C2_I2CABSTAT.setI2COV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TI2C2_I2CABSTAT.getI2COV : TBits_1; inline;
- begin
- getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TI2C2_I2CABSTAT.setIWCOL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TI2C2_I2CABSTAT.clearIWCOL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TI2C2_I2CABSTAT.setIWCOL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TI2C2_I2CABSTAT.getIWCOL : TBits_1; inline;
- begin
- getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TI2C2_I2CABSTAT.setADD10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TI2C2_I2CABSTAT.clearADD10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TI2C2_I2CABSTAT.setADD10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TI2C2_I2CABSTAT.getADD10 : TBits_1; inline;
- begin
- getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TI2C2_I2CABSTAT.setGCSTAT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TI2C2_I2CABSTAT.clearGCSTAT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TI2C2_I2CABSTAT.setGCSTAT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TI2C2_I2CABSTAT.getGCSTAT : TBits_1; inline;
- begin
- getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TI2C2_I2CABSTAT.setBCL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TI2C2_I2CABSTAT.clearBCL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TI2C2_I2CABSTAT.setBCL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TI2C2_I2CABSTAT.getBCL : TBits_1; inline;
- begin
- getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TI2C2_I2CABSTAT.setTRSTAT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TI2C2_I2CABSTAT.clearTRSTAT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TI2C2_I2CABSTAT.setTRSTAT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TI2C2_I2CABSTAT.getTRSTAT : TBits_1; inline;
- begin
- getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TI2C2_I2CABSTAT.setACKSTAT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TI2C2_I2CABSTAT.clearACKSTAT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TI2C2_I2CABSTAT.setACKSTAT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TI2C2_I2CABSTAT.getACKSTAT : TBits_1; inline;
- begin
- getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TI2C2_I2CABSTAT.setI2CPOV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TI2C2_I2CABSTAT.clearI2CPOV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TI2C2_I2CABSTAT.setI2CPOV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TI2C2_I2CABSTAT.getI2CPOV : TBits_1; inline;
- begin
- getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TI2C2_I2CABSTAT.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TI2C2_I2CABSTAT.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TSPI1_SPI1CON.setSRXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TSPI1_SPI1CON.getSRXISEL : TBits_2; inline;
- begin
- getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TSPI1_SPI1CON.setSTXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
- end;
- function TSPI1_SPI1CON.getSTXISEL : TBits_2; inline;
- begin
- getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
- end;
- procedure TSPI1_SPI1CON.setDISSDI; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TSPI1_SPI1CON.clearDISSDI; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TSPI1_SPI1CON.setDISSDI(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TSPI1_SPI1CON.getDISSDI : TBits_1; inline;
- begin
- getDISSDI := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TSPI1_SPI1CON.setMSTEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TSPI1_SPI1CON.clearMSTEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TSPI1_SPI1CON.setMSTEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TSPI1_SPI1CON.getMSTEN : TBits_1; inline;
- begin
- getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TSPI1_SPI1CON.setCKP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TSPI1_SPI1CON.clearCKP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TSPI1_SPI1CON.setCKP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TSPI1_SPI1CON.getCKP : TBits_1; inline;
- begin
- getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TSPI1_SPI1CON.setSSEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TSPI1_SPI1CON.clearSSEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TSPI1_SPI1CON.setSSEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TSPI1_SPI1CON.getSSEN : TBits_1; inline;
- begin
- getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TSPI1_SPI1CON.setCKE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TSPI1_SPI1CON.clearCKE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TSPI1_SPI1CON.setCKE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TSPI1_SPI1CON.getCKE : TBits_1; inline;
- begin
- getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TSPI1_SPI1CON.setSMP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TSPI1_SPI1CON.clearSMP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TSPI1_SPI1CON.setSMP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TSPI1_SPI1CON.getSMP : TBits_1; inline;
- begin
- getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TSPI1_SPI1CON.setMODE16; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TSPI1_SPI1CON.clearMODE16; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TSPI1_SPI1CON.setMODE16(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TSPI1_SPI1CON.getMODE16 : TBits_1; inline;
- begin
- getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TSPI1_SPI1CON.setMODE32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TSPI1_SPI1CON.clearMODE32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TSPI1_SPI1CON.setMODE32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TSPI1_SPI1CON.getMODE32 : TBits_1; inline;
- begin
- getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TSPI1_SPI1CON.setDISSDO; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TSPI1_SPI1CON.clearDISSDO; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TSPI1_SPI1CON.setDISSDO(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TSPI1_SPI1CON.getDISSDO : TBits_1; inline;
- begin
- getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TSPI1_SPI1CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TSPI1_SPI1CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TSPI1_SPI1CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TSPI1_SPI1CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TSPI1_SPI1CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TSPI1_SPI1CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TSPI1_SPI1CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TSPI1_SPI1CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TSPI1_SPI1CON.setENHBUF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TSPI1_SPI1CON.clearENHBUF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TSPI1_SPI1CON.setENHBUF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TSPI1_SPI1CON.getENHBUF : TBits_1; inline;
- begin
- getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TSPI1_SPI1CON.setSPIFE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- procedure TSPI1_SPI1CON.clearSPIFE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00020000;
- end;
- procedure TSPI1_SPI1CON.setSPIFE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00020000
- else
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- function TSPI1_SPI1CON.getSPIFE : TBits_1; inline;
- begin
- getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
- end;
- procedure TSPI1_SPI1CON.setMCLKSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- procedure TSPI1_SPI1CON.clearMCLKSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00800000;
- end;
- procedure TSPI1_SPI1CON.setMCLKSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00800000
- else
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- function TSPI1_SPI1CON.getMCLKSEL : TBits_1; inline;
- begin
- getMCLKSEL := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
- end;
- procedure TSPI1_SPI1CON.setFRMCNT(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
- end;
- function TSPI1_SPI1CON.getFRMCNT : TBits_3; inline;
- begin
- getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
- end;
- procedure TSPI1_SPI1CON.setFRMSYPW; inline;
- begin
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- procedure TSPI1_SPI1CON.clearFRMSYPW; inline;
- begin
- pTDefRegMap(@Self)^.clr := $08000000;
- end;
- procedure TSPI1_SPI1CON.setFRMSYPW(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $08000000
- else
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- function TSPI1_SPI1CON.getFRMSYPW : TBits_1; inline;
- begin
- getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
- end;
- procedure TSPI1_SPI1CON.setMSSEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- procedure TSPI1_SPI1CON.clearMSSEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $10000000;
- end;
- procedure TSPI1_SPI1CON.setMSSEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $10000000
- else
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- function TSPI1_SPI1CON.getMSSEN : TBits_1; inline;
- begin
- getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
- end;
- procedure TSPI1_SPI1CON.setFRMPOL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- procedure TSPI1_SPI1CON.clearFRMPOL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $20000000;
- end;
- procedure TSPI1_SPI1CON.setFRMPOL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $20000000
- else
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- function TSPI1_SPI1CON.getFRMPOL : TBits_1; inline;
- begin
- getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
- end;
- procedure TSPI1_SPI1CON.setFRMSYNC; inline;
- begin
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- procedure TSPI1_SPI1CON.clearFRMSYNC; inline;
- begin
- pTDefRegMap(@Self)^.clr := $40000000;
- end;
- procedure TSPI1_SPI1CON.setFRMSYNC(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $40000000
- else
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- function TSPI1_SPI1CON.getFRMSYNC : TBits_1; inline;
- begin
- getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
- end;
- procedure TSPI1_SPI1CON.setFRMEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- procedure TSPI1_SPI1CON.clearFRMEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $80000000;
- end;
- procedure TSPI1_SPI1CON.setFRMEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $80000000
- else
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- function TSPI1_SPI1CON.getFRMEN : TBits_1; inline;
- begin
- getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
- end;
- procedure TSPI1_SPI1CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TSPI1_SPI1CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TSPI1_SPI1STAT.setSPIRBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TSPI1_SPI1STAT.clearSPIRBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TSPI1_SPI1STAT.setSPIRBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TSPI1_SPI1STAT.getSPIRBF : TBits_1; inline;
- begin
- getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TSPI1_SPI1STAT.setSPITBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TSPI1_SPI1STAT.clearSPITBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TSPI1_SPI1STAT.setSPITBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TSPI1_SPI1STAT.getSPITBF : TBits_1; inline;
- begin
- getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TSPI1_SPI1STAT.setSPITBE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TSPI1_SPI1STAT.clearSPITBE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TSPI1_SPI1STAT.setSPITBE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TSPI1_SPI1STAT.getSPITBE : TBits_1; inline;
- begin
- getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TSPI1_SPI1STAT.setSPIRBE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TSPI1_SPI1STAT.clearSPIRBE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TSPI1_SPI1STAT.setSPIRBE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TSPI1_SPI1STAT.getSPIRBE : TBits_1; inline;
- begin
- getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TSPI1_SPI1STAT.setSPIROV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TSPI1_SPI1STAT.clearSPIROV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TSPI1_SPI1STAT.setSPIROV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TSPI1_SPI1STAT.getSPIROV : TBits_1; inline;
- begin
- getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TSPI1_SPI1STAT.setSRMT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TSPI1_SPI1STAT.clearSRMT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TSPI1_SPI1STAT.setSRMT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TSPI1_SPI1STAT.getSRMT : TBits_1; inline;
- begin
- getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TSPI1_SPI1STAT.setSPITUR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TSPI1_SPI1STAT.clearSPITUR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TSPI1_SPI1STAT.setSPITUR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TSPI1_SPI1STAT.getSPITUR : TBits_1; inline;
- begin
- getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TSPI1_SPI1STAT.setSPIBUSY; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TSPI1_SPI1STAT.clearSPIBUSY; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TSPI1_SPI1STAT.setSPIBUSY(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TSPI1_SPI1STAT.getSPIBUSY : TBits_1; inline;
- begin
- getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TSPI1_SPI1STAT.setFRMERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TSPI1_SPI1STAT.clearFRMERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TSPI1_SPI1STAT.setFRMERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TSPI1_SPI1STAT.getFRMERR : TBits_1; inline;
- begin
- getFRMERR := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TSPI1_SPI1STAT.setTXBUFELM(thebits : TBits_5); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
- end;
- function TSPI1_SPI1STAT.getTXBUFELM : TBits_5; inline;
- begin
- getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
- end;
- procedure TSPI1_SPI1STAT.setRXBUFELM(thebits : TBits_5); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
- end;
- function TSPI1_SPI1STAT.getRXBUFELM : TBits_5; inline;
- begin
- getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
- end;
- procedure TSPI1_SPI1STAT.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TSPI1_SPI1STAT.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TSPI1_SPI1CON2.setAUDMOD(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TSPI1_SPI1CON2.getAUDMOD : TBits_2; inline;
- begin
- getAUDMOD := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TSPI1_SPI1CON2.setAUDMONO; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TSPI1_SPI1CON2.clearAUDMONO; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TSPI1_SPI1CON2.setAUDMONO(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TSPI1_SPI1CON2.getAUDMONO : TBits_1; inline;
- begin
- getAUDMONO := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TSPI1_SPI1CON2.setAUDEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TSPI1_SPI1CON2.clearAUDEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TSPI1_SPI1CON2.setAUDEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TSPI1_SPI1CON2.getAUDEN : TBits_1; inline;
- begin
- getAUDEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TSPI1_SPI1CON2.setIGNTUR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TSPI1_SPI1CON2.clearIGNTUR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TSPI1_SPI1CON2.setIGNTUR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TSPI1_SPI1CON2.getIGNTUR : TBits_1; inline;
- begin
- getIGNTUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TSPI1_SPI1CON2.setIGNROV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TSPI1_SPI1CON2.clearIGNROV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TSPI1_SPI1CON2.setIGNROV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TSPI1_SPI1CON2.getIGNROV : TBits_1; inline;
- begin
- getIGNROV := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TSPI1_SPI1CON2.setSPITUREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TSPI1_SPI1CON2.clearSPITUREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TSPI1_SPI1CON2.setSPITUREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TSPI1_SPI1CON2.getSPITUREN : TBits_1; inline;
- begin
- getSPITUREN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TSPI1_SPI1CON2.setSPIROVEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TSPI1_SPI1CON2.clearSPIROVEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TSPI1_SPI1CON2.setSPIROVEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TSPI1_SPI1CON2.getSPIROVEN : TBits_1; inline;
- begin
- getSPIROVEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TSPI1_SPI1CON2.setFRMERREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TSPI1_SPI1CON2.clearFRMERREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TSPI1_SPI1CON2.setFRMERREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TSPI1_SPI1CON2.getFRMERREN : TBits_1; inline;
- begin
- getFRMERREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TSPI1_SPI1CON2.setSPISGNEXT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TSPI1_SPI1CON2.clearSPISGNEXT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TSPI1_SPI1CON2.setSPISGNEXT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TSPI1_SPI1CON2.getSPISGNEXT : TBits_1; inline;
- begin
- getSPISGNEXT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TSPI1_SPI1CON2.setAUDMOD0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TSPI1_SPI1CON2.clearAUDMOD0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TSPI1_SPI1CON2.setAUDMOD0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TSPI1_SPI1CON2.getAUDMOD0 : TBits_1; inline;
- begin
- getAUDMOD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TSPI1_SPI1CON2.setAUDMOD1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TSPI1_SPI1CON2.clearAUDMOD1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TSPI1_SPI1CON2.setAUDMOD1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TSPI1_SPI1CON2.getAUDMOD1 : TBits_1; inline;
- begin
- getAUDMOD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TSPI1_SPI1CON2.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TSPI1_SPI1CON2.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TSPI2_SPI2CON.setSRXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TSPI2_SPI2CON.getSRXISEL : TBits_2; inline;
- begin
- getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TSPI2_SPI2CON.setSTXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
- end;
- function TSPI2_SPI2CON.getSTXISEL : TBits_2; inline;
- begin
- getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
- end;
- procedure TSPI2_SPI2CON.setDISSDI; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TSPI2_SPI2CON.clearDISSDI; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TSPI2_SPI2CON.setDISSDI(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TSPI2_SPI2CON.getDISSDI : TBits_1; inline;
- begin
- getDISSDI := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TSPI2_SPI2CON.setMSTEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TSPI2_SPI2CON.clearMSTEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TSPI2_SPI2CON.setMSTEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TSPI2_SPI2CON.getMSTEN : TBits_1; inline;
- begin
- getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TSPI2_SPI2CON.setCKP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TSPI2_SPI2CON.clearCKP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TSPI2_SPI2CON.setCKP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TSPI2_SPI2CON.getCKP : TBits_1; inline;
- begin
- getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TSPI2_SPI2CON.setSSEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TSPI2_SPI2CON.clearSSEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TSPI2_SPI2CON.setSSEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TSPI2_SPI2CON.getSSEN : TBits_1; inline;
- begin
- getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TSPI2_SPI2CON.setCKE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TSPI2_SPI2CON.clearCKE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TSPI2_SPI2CON.setCKE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TSPI2_SPI2CON.getCKE : TBits_1; inline;
- begin
- getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TSPI2_SPI2CON.setSMP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TSPI2_SPI2CON.clearSMP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TSPI2_SPI2CON.setSMP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TSPI2_SPI2CON.getSMP : TBits_1; inline;
- begin
- getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TSPI2_SPI2CON.setMODE16; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TSPI2_SPI2CON.clearMODE16; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TSPI2_SPI2CON.setMODE16(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TSPI2_SPI2CON.getMODE16 : TBits_1; inline;
- begin
- getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TSPI2_SPI2CON.setMODE32; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TSPI2_SPI2CON.clearMODE32; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TSPI2_SPI2CON.setMODE32(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TSPI2_SPI2CON.getMODE32 : TBits_1; inline;
- begin
- getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TSPI2_SPI2CON.setDISSDO; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TSPI2_SPI2CON.clearDISSDO; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TSPI2_SPI2CON.setDISSDO(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TSPI2_SPI2CON.getDISSDO : TBits_1; inline;
- begin
- getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TSPI2_SPI2CON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TSPI2_SPI2CON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TSPI2_SPI2CON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TSPI2_SPI2CON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TSPI2_SPI2CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TSPI2_SPI2CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TSPI2_SPI2CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TSPI2_SPI2CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TSPI2_SPI2CON.setENHBUF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TSPI2_SPI2CON.clearENHBUF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TSPI2_SPI2CON.setENHBUF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TSPI2_SPI2CON.getENHBUF : TBits_1; inline;
- begin
- getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TSPI2_SPI2CON.setSPIFE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- procedure TSPI2_SPI2CON.clearSPIFE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00020000;
- end;
- procedure TSPI2_SPI2CON.setSPIFE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00020000
- else
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- function TSPI2_SPI2CON.getSPIFE : TBits_1; inline;
- begin
- getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
- end;
- procedure TSPI2_SPI2CON.setMCLKSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- procedure TSPI2_SPI2CON.clearMCLKSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00800000;
- end;
- procedure TSPI2_SPI2CON.setMCLKSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00800000
- else
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- function TSPI2_SPI2CON.getMCLKSEL : TBits_1; inline;
- begin
- getMCLKSEL := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
- end;
- procedure TSPI2_SPI2CON.setFRMCNT(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
- end;
- function TSPI2_SPI2CON.getFRMCNT : TBits_3; inline;
- begin
- getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
- end;
- procedure TSPI2_SPI2CON.setFRMSYPW; inline;
- begin
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- procedure TSPI2_SPI2CON.clearFRMSYPW; inline;
- begin
- pTDefRegMap(@Self)^.clr := $08000000;
- end;
- procedure TSPI2_SPI2CON.setFRMSYPW(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $08000000
- else
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- function TSPI2_SPI2CON.getFRMSYPW : TBits_1; inline;
- begin
- getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
- end;
- procedure TSPI2_SPI2CON.setMSSEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- procedure TSPI2_SPI2CON.clearMSSEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $10000000;
- end;
- procedure TSPI2_SPI2CON.setMSSEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $10000000
- else
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- function TSPI2_SPI2CON.getMSSEN : TBits_1; inline;
- begin
- getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
- end;
- procedure TSPI2_SPI2CON.setFRMPOL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- procedure TSPI2_SPI2CON.clearFRMPOL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $20000000;
- end;
- procedure TSPI2_SPI2CON.setFRMPOL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $20000000
- else
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- function TSPI2_SPI2CON.getFRMPOL : TBits_1; inline;
- begin
- getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
- end;
- procedure TSPI2_SPI2CON.setFRMSYNC; inline;
- begin
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- procedure TSPI2_SPI2CON.clearFRMSYNC; inline;
- begin
- pTDefRegMap(@Self)^.clr := $40000000;
- end;
- procedure TSPI2_SPI2CON.setFRMSYNC(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $40000000
- else
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- function TSPI2_SPI2CON.getFRMSYNC : TBits_1; inline;
- begin
- getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
- end;
- procedure TSPI2_SPI2CON.setFRMEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- procedure TSPI2_SPI2CON.clearFRMEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $80000000;
- end;
- procedure TSPI2_SPI2CON.setFRMEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $80000000
- else
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- function TSPI2_SPI2CON.getFRMEN : TBits_1; inline;
- begin
- getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
- end;
- procedure TSPI2_SPI2CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TSPI2_SPI2CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TSPI2_SPI2STAT.setSPIRBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TSPI2_SPI2STAT.clearSPIRBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TSPI2_SPI2STAT.setSPIRBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TSPI2_SPI2STAT.getSPIRBF : TBits_1; inline;
- begin
- getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TSPI2_SPI2STAT.setSPITBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TSPI2_SPI2STAT.clearSPITBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TSPI2_SPI2STAT.setSPITBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TSPI2_SPI2STAT.getSPITBF : TBits_1; inline;
- begin
- getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TSPI2_SPI2STAT.setSPITBE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TSPI2_SPI2STAT.clearSPITBE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TSPI2_SPI2STAT.setSPITBE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TSPI2_SPI2STAT.getSPITBE : TBits_1; inline;
- begin
- getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TSPI2_SPI2STAT.setSPIRBE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TSPI2_SPI2STAT.clearSPIRBE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TSPI2_SPI2STAT.setSPIRBE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TSPI2_SPI2STAT.getSPIRBE : TBits_1; inline;
- begin
- getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TSPI2_SPI2STAT.setSPIROV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TSPI2_SPI2STAT.clearSPIROV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TSPI2_SPI2STAT.setSPIROV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TSPI2_SPI2STAT.getSPIROV : TBits_1; inline;
- begin
- getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TSPI2_SPI2STAT.setSRMT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TSPI2_SPI2STAT.clearSRMT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TSPI2_SPI2STAT.setSRMT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TSPI2_SPI2STAT.getSRMT : TBits_1; inline;
- begin
- getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TSPI2_SPI2STAT.setSPITUR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TSPI2_SPI2STAT.clearSPITUR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TSPI2_SPI2STAT.setSPITUR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TSPI2_SPI2STAT.getSPITUR : TBits_1; inline;
- begin
- getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TSPI2_SPI2STAT.setSPIBUSY; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TSPI2_SPI2STAT.clearSPIBUSY; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TSPI2_SPI2STAT.setSPIBUSY(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TSPI2_SPI2STAT.getSPIBUSY : TBits_1; inline;
- begin
- getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TSPI2_SPI2STAT.setFRMERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TSPI2_SPI2STAT.clearFRMERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TSPI2_SPI2STAT.setFRMERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TSPI2_SPI2STAT.getFRMERR : TBits_1; inline;
- begin
- getFRMERR := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TSPI2_SPI2STAT.setTXBUFELM(thebits : TBits_5); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
- end;
- function TSPI2_SPI2STAT.getTXBUFELM : TBits_5; inline;
- begin
- getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
- end;
- procedure TSPI2_SPI2STAT.setRXBUFELM(thebits : TBits_5); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
- end;
- function TSPI2_SPI2STAT.getRXBUFELM : TBits_5; inline;
- begin
- getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
- end;
- procedure TSPI2_SPI2STAT.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TSPI2_SPI2STAT.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TSPI2_SPI2CON2.setAUDMOD(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TSPI2_SPI2CON2.getAUDMOD : TBits_2; inline;
- begin
- getAUDMOD := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TSPI2_SPI2CON2.setAUDMONO; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TSPI2_SPI2CON2.clearAUDMONO; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TSPI2_SPI2CON2.setAUDMONO(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TSPI2_SPI2CON2.getAUDMONO : TBits_1; inline;
- begin
- getAUDMONO := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TSPI2_SPI2CON2.setAUDEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TSPI2_SPI2CON2.clearAUDEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TSPI2_SPI2CON2.setAUDEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TSPI2_SPI2CON2.getAUDEN : TBits_1; inline;
- begin
- getAUDEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TSPI2_SPI2CON2.setIGNTUR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TSPI2_SPI2CON2.clearIGNTUR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TSPI2_SPI2CON2.setIGNTUR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TSPI2_SPI2CON2.getIGNTUR : TBits_1; inline;
- begin
- getIGNTUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TSPI2_SPI2CON2.setIGNROV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TSPI2_SPI2CON2.clearIGNROV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TSPI2_SPI2CON2.setIGNROV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TSPI2_SPI2CON2.getIGNROV : TBits_1; inline;
- begin
- getIGNROV := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TSPI2_SPI2CON2.setSPITUREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TSPI2_SPI2CON2.clearSPITUREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TSPI2_SPI2CON2.setSPITUREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TSPI2_SPI2CON2.getSPITUREN : TBits_1; inline;
- begin
- getSPITUREN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TSPI2_SPI2CON2.setSPIROVEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TSPI2_SPI2CON2.clearSPIROVEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TSPI2_SPI2CON2.setSPIROVEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TSPI2_SPI2CON2.getSPIROVEN : TBits_1; inline;
- begin
- getSPIROVEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TSPI2_SPI2CON2.setFRMERREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TSPI2_SPI2CON2.clearFRMERREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TSPI2_SPI2CON2.setFRMERREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TSPI2_SPI2CON2.getFRMERREN : TBits_1; inline;
- begin
- getFRMERREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TSPI2_SPI2CON2.setSPISGNEXT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TSPI2_SPI2CON2.clearSPISGNEXT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TSPI2_SPI2CON2.setSPISGNEXT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TSPI2_SPI2CON2.getSPISGNEXT : TBits_1; inline;
- begin
- getSPISGNEXT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TSPI2_SPI2CON2.setAUDMOD0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TSPI2_SPI2CON2.clearAUDMOD0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TSPI2_SPI2CON2.setAUDMOD0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TSPI2_SPI2CON2.getAUDMOD0 : TBits_1; inline;
- begin
- getAUDMOD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TSPI2_SPI2CON2.setAUDMOD1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TSPI2_SPI2CON2.clearAUDMOD1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TSPI2_SPI2CON2.setAUDMOD1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TSPI2_SPI2CON2.getAUDMOD1 : TBits_1; inline;
- begin
- getAUDMOD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TSPI2_SPI2CON2.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TSPI2_SPI2CON2.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART1_U1MODE.setSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART1_U1MODE.clearSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART1_U1MODE.setSTSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART1_U1MODE.getSTSEL : TBits_1; inline;
- begin
- getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART1_U1MODE.setPDSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
- end;
- function TUART1_U1MODE.getPDSEL : TBits_2; inline;
- begin
- getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
- end;
- procedure TUART1_U1MODE.setBRGH; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART1_U1MODE.clearBRGH; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART1_U1MODE.setBRGH(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART1_U1MODE.getBRGH : TBits_1; inline;
- begin
- getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART1_U1MODE.setRXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART1_U1MODE.clearRXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART1_U1MODE.setRXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART1_U1MODE.getRXINV : TBits_1; inline;
- begin
- getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART1_U1MODE.setABAUD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART1_U1MODE.clearABAUD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART1_U1MODE.setABAUD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART1_U1MODE.getABAUD : TBits_1; inline;
- begin
- getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART1_U1MODE.setLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART1_U1MODE.clearLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART1_U1MODE.setLPBACK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART1_U1MODE.getLPBACK : TBits_1; inline;
- begin
- getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART1_U1MODE.setWAKE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART1_U1MODE.clearWAKE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART1_U1MODE.setWAKE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART1_U1MODE.getWAKE : TBits_1; inline;
- begin
- getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART1_U1MODE.setUEN(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TUART1_U1MODE.getUEN : TBits_2; inline;
- begin
- getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TUART1_U1MODE.setRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART1_U1MODE.clearRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART1_U1MODE.setRTSMD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART1_U1MODE.getRTSMD : TBits_1; inline;
- begin
- getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART1_U1MODE.setIREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART1_U1MODE.clearIREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART1_U1MODE.setIREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART1_U1MODE.getIREN : TBits_1; inline;
- begin
- getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART1_U1MODE.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART1_U1MODE.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART1_U1MODE.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART1_U1MODE.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART1_U1MODE.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART1_U1MODE.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART1_U1MODE.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART1_U1MODE.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART1_U1MODE.setPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART1_U1MODE.clearPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART1_U1MODE.setPDSEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART1_U1MODE.getPDSEL0 : TBits_1; inline;
- begin
- getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART1_U1MODE.setPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART1_U1MODE.clearPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART1_U1MODE.setPDSEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART1_U1MODE.getPDSEL1 : TBits_1; inline;
- begin
- getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART1_U1MODE.setUEN0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART1_U1MODE.clearUEN0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART1_U1MODE.setUEN0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART1_U1MODE.getUEN0 : TBits_1; inline;
- begin
- getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART1_U1MODE.setUEN1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART1_U1MODE.clearUEN1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART1_U1MODE.setUEN1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART1_U1MODE.getUEN1 : TBits_1; inline;
- begin
- getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART1_U1MODE.setUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART1_U1MODE.clearUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART1_U1MODE.setUSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART1_U1MODE.getUSIDL : TBits_1; inline;
- begin
- getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART1_U1MODE.setUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART1_U1MODE.clearUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART1_U1MODE.setUARTEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART1_U1MODE.getUARTEN : TBits_1; inline;
- begin
- getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART1_U1MODE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART1_U1MODE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART1_UDCMODE.setSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART1_UDCMODE.clearSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART1_UDCMODE.setSTSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART1_UDCMODE.getSTSEL : TBits_1; inline;
- begin
- getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART1_UDCMODE.setPDSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
- end;
- function TUART1_UDCMODE.getPDSEL : TBits_2; inline;
- begin
- getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
- end;
- procedure TUART1_UDCMODE.setBRGH; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART1_UDCMODE.clearBRGH; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART1_UDCMODE.setBRGH(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART1_UDCMODE.getBRGH : TBits_1; inline;
- begin
- getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART1_UDCMODE.setRXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART1_UDCMODE.clearRXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART1_UDCMODE.setRXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART1_UDCMODE.getRXINV : TBits_1; inline;
- begin
- getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART1_UDCMODE.setABAUD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART1_UDCMODE.clearABAUD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART1_UDCMODE.setABAUD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART1_UDCMODE.getABAUD : TBits_1; inline;
- begin
- getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART1_UDCMODE.setLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART1_UDCMODE.clearLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART1_UDCMODE.setLPBACK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART1_UDCMODE.getLPBACK : TBits_1; inline;
- begin
- getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART1_UDCMODE.setWAKE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART1_UDCMODE.clearWAKE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART1_UDCMODE.setWAKE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART1_UDCMODE.getWAKE : TBits_1; inline;
- begin
- getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART1_UDCMODE.setUEN(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TUART1_UDCMODE.getUEN : TBits_2; inline;
- begin
- getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TUART1_UDCMODE.setRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART1_UDCMODE.clearRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART1_UDCMODE.setRTSMD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART1_UDCMODE.getRTSMD : TBits_1; inline;
- begin
- getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART1_UDCMODE.setIREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART1_UDCMODE.clearIREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART1_UDCMODE.setIREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART1_UDCMODE.getIREN : TBits_1; inline;
- begin
- getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART1_UDCMODE.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART1_UDCMODE.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART1_UDCMODE.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART1_UDCMODE.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART1_UDCMODE.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART1_UDCMODE.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART1_UDCMODE.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART1_UDCMODE.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART1_UDCMODE.setPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART1_UDCMODE.clearPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART1_UDCMODE.setPDSEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART1_UDCMODE.getPDSEL0 : TBits_1; inline;
- begin
- getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART1_UDCMODE.setPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART1_UDCMODE.clearPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART1_UDCMODE.setPDSEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART1_UDCMODE.getPDSEL1 : TBits_1; inline;
- begin
- getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART1_UDCMODE.setUEN0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART1_UDCMODE.clearUEN0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART1_UDCMODE.setUEN0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART1_UDCMODE.getUEN0 : TBits_1; inline;
- begin
- getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART1_UDCMODE.setUEN1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART1_UDCMODE.clearUEN1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART1_UDCMODE.setUEN1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART1_UDCMODE.getUEN1 : TBits_1; inline;
- begin
- getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART1_UDCMODE.setUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART1_UDCMODE.clearUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART1_UDCMODE.setUSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART1_UDCMODE.getUSIDL : TBits_1; inline;
- begin
- getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART1_UDCMODE.setUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART1_UDCMODE.clearUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART1_UDCMODE.setUARTEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART1_UDCMODE.getUARTEN : TBits_1; inline;
- begin
- getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART1_UDCMODE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART1_UDCMODE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART1_U1STA.setURXDA; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART1_U1STA.clearURXDA; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART1_U1STA.setURXDA(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART1_U1STA.getURXDA : TBits_1; inline;
- begin
- getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART1_U1STA.setOERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART1_U1STA.clearOERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART1_U1STA.setOERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART1_U1STA.getOERR : TBits_1; inline;
- begin
- getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART1_U1STA.setFERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART1_U1STA.clearFERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART1_U1STA.setFERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART1_U1STA.getFERR : TBits_1; inline;
- begin
- getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART1_U1STA.setPERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART1_U1STA.clearPERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART1_U1STA.setPERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART1_U1STA.getPERR : TBits_1; inline;
- begin
- getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART1_U1STA.setRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART1_U1STA.clearRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART1_U1STA.setRIDLE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART1_U1STA.getRIDLE : TBits_1; inline;
- begin
- getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART1_U1STA.setADDEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART1_U1STA.clearADDEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART1_U1STA.setADDEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART1_U1STA.getADDEN : TBits_1; inline;
- begin
- getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART1_U1STA.setURXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
- end;
- function TUART1_U1STA.getURXISEL : TBits_2; inline;
- begin
- getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
- end;
- procedure TUART1_U1STA.setTRMT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART1_U1STA.clearTRMT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART1_U1STA.setTRMT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART1_U1STA.getTRMT : TBits_1; inline;
- begin
- getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART1_U1STA.setUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART1_U1STA.clearUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART1_U1STA.setUTXBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART1_U1STA.getUTXBF : TBits_1; inline;
- begin
- getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART1_U1STA.setUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TUART1_U1STA.clearUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TUART1_U1STA.setUTXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TUART1_U1STA.getUTXEN : TBits_1; inline;
- begin
- getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TUART1_U1STA.setUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART1_U1STA.clearUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART1_U1STA.setUTXBRK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART1_U1STA.getUTXBRK : TBits_1; inline;
- begin
- getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART1_U1STA.setURXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART1_U1STA.clearURXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART1_U1STA.setURXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART1_U1STA.getURXEN : TBits_1; inline;
- begin
- getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART1_U1STA.setUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART1_U1STA.clearUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART1_U1STA.setUTXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART1_U1STA.getUTXINV : TBits_1; inline;
- begin
- getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART1_U1STA.setUTXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART1_U1STA.getUTXISEL : TBits_2; inline;
- begin
- getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART1_U1STA.setADDR(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
- end;
- function TUART1_U1STA.getADDR : TBits_8; inline;
- begin
- getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
- end;
- procedure TUART1_U1STA.setADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TUART1_U1STA.clearADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TUART1_U1STA.setADM_EN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TUART1_U1STA.getADM_EN : TBits_1; inline;
- begin
- getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TUART1_U1STA.setURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART1_U1STA.clearURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART1_U1STA.setURXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART1_U1STA.getURXISEL0 : TBits_1; inline;
- begin
- getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART1_U1STA.setURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART1_U1STA.clearURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART1_U1STA.setURXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART1_U1STA.getURXISEL1 : TBits_1; inline;
- begin
- getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART1_U1STA.setUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TUART1_U1STA.clearUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TUART1_U1STA.setUTXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TUART1_U1STA.getUTXISEL0 : TBits_1; inline;
- begin
- getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TUART1_U1STA.setUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART1_U1STA.clearUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART1_U1STA.setUTXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART1_U1STA.getUTXISEL1 : TBits_1; inline;
- begin
- getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART1_U1STA.setUTXSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART1_U1STA.getUTXSEL : TBits_2; inline;
- begin
- getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART1_U1STA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART1_U1STA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART1_UDCSTA.setURXDA; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART1_UDCSTA.clearURXDA; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART1_UDCSTA.setURXDA(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART1_UDCSTA.getURXDA : TBits_1; inline;
- begin
- getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART1_UDCSTA.setOERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART1_UDCSTA.clearOERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART1_UDCSTA.setOERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART1_UDCSTA.getOERR : TBits_1; inline;
- begin
- getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART1_UDCSTA.setFERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART1_UDCSTA.clearFERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART1_UDCSTA.setFERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART1_UDCSTA.getFERR : TBits_1; inline;
- begin
- getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART1_UDCSTA.setPERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART1_UDCSTA.clearPERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART1_UDCSTA.setPERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART1_UDCSTA.getPERR : TBits_1; inline;
- begin
- getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART1_UDCSTA.setRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART1_UDCSTA.clearRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART1_UDCSTA.setRIDLE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART1_UDCSTA.getRIDLE : TBits_1; inline;
- begin
- getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART1_UDCSTA.setADDEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART1_UDCSTA.clearADDEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART1_UDCSTA.setADDEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART1_UDCSTA.getADDEN : TBits_1; inline;
- begin
- getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART1_UDCSTA.setURXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
- end;
- function TUART1_UDCSTA.getURXISEL : TBits_2; inline;
- begin
- getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
- end;
- procedure TUART1_UDCSTA.setTRMT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART1_UDCSTA.clearTRMT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART1_UDCSTA.setTRMT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART1_UDCSTA.getTRMT : TBits_1; inline;
- begin
- getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART1_UDCSTA.setUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART1_UDCSTA.clearUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART1_UDCSTA.setUTXBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART1_UDCSTA.getUTXBF : TBits_1; inline;
- begin
- getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART1_UDCSTA.setUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TUART1_UDCSTA.clearUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TUART1_UDCSTA.setUTXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TUART1_UDCSTA.getUTXEN : TBits_1; inline;
- begin
- getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TUART1_UDCSTA.setUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART1_UDCSTA.clearUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART1_UDCSTA.setUTXBRK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART1_UDCSTA.getUTXBRK : TBits_1; inline;
- begin
- getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART1_UDCSTA.setURXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART1_UDCSTA.clearURXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART1_UDCSTA.setURXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART1_UDCSTA.getURXEN : TBits_1; inline;
- begin
- getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART1_UDCSTA.setUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART1_UDCSTA.clearUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART1_UDCSTA.setUTXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART1_UDCSTA.getUTXINV : TBits_1; inline;
- begin
- getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART1_UDCSTA.setUTXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART1_UDCSTA.getUTXISEL : TBits_2; inline;
- begin
- getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART1_UDCSTA.setADDR(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
- end;
- function TUART1_UDCSTA.getADDR : TBits_8; inline;
- begin
- getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
- end;
- procedure TUART1_UDCSTA.setADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TUART1_UDCSTA.clearADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TUART1_UDCSTA.setADM_EN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TUART1_UDCSTA.getADM_EN : TBits_1; inline;
- begin
- getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TUART1_UDCSTA.setURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART1_UDCSTA.clearURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART1_UDCSTA.setURXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART1_UDCSTA.getURXISEL0 : TBits_1; inline;
- begin
- getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART1_UDCSTA.setURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART1_UDCSTA.clearURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART1_UDCSTA.setURXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART1_UDCSTA.getURXISEL1 : TBits_1; inline;
- begin
- getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART1_UDCSTA.setUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TUART1_UDCSTA.clearUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TUART1_UDCSTA.setUTXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TUART1_UDCSTA.getUTXISEL0 : TBits_1; inline;
- begin
- getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TUART1_UDCSTA.setUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART1_UDCSTA.clearUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART1_UDCSTA.setUTXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART1_UDCSTA.getUTXISEL1 : TBits_1; inline;
- begin
- getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART1_UDCSTA.setUTXSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART1_UDCSTA.getUTXSEL : TBits_2; inline;
- begin
- getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART1_UDCSTA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART1_UDCSTA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART2_U2MODE.setSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART2_U2MODE.clearSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART2_U2MODE.setSTSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART2_U2MODE.getSTSEL : TBits_1; inline;
- begin
- getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART2_U2MODE.setPDSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
- end;
- function TUART2_U2MODE.getPDSEL : TBits_2; inline;
- begin
- getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
- end;
- procedure TUART2_U2MODE.setBRGH; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART2_U2MODE.clearBRGH; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART2_U2MODE.setBRGH(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART2_U2MODE.getBRGH : TBits_1; inline;
- begin
- getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART2_U2MODE.setRXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART2_U2MODE.clearRXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART2_U2MODE.setRXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART2_U2MODE.getRXINV : TBits_1; inline;
- begin
- getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART2_U2MODE.setABAUD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART2_U2MODE.clearABAUD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART2_U2MODE.setABAUD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART2_U2MODE.getABAUD : TBits_1; inline;
- begin
- getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART2_U2MODE.setLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART2_U2MODE.clearLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART2_U2MODE.setLPBACK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART2_U2MODE.getLPBACK : TBits_1; inline;
- begin
- getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART2_U2MODE.setWAKE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART2_U2MODE.clearWAKE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART2_U2MODE.setWAKE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART2_U2MODE.getWAKE : TBits_1; inline;
- begin
- getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART2_U2MODE.setUEN(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TUART2_U2MODE.getUEN : TBits_2; inline;
- begin
- getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TUART2_U2MODE.setRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART2_U2MODE.clearRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART2_U2MODE.setRTSMD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART2_U2MODE.getRTSMD : TBits_1; inline;
- begin
- getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART2_U2MODE.setIREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART2_U2MODE.clearIREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART2_U2MODE.setIREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART2_U2MODE.getIREN : TBits_1; inline;
- begin
- getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART2_U2MODE.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART2_U2MODE.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART2_U2MODE.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART2_U2MODE.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART2_U2MODE.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART2_U2MODE.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART2_U2MODE.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART2_U2MODE.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART2_U2MODE.setPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART2_U2MODE.clearPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART2_U2MODE.setPDSEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART2_U2MODE.getPDSEL0 : TBits_1; inline;
- begin
- getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART2_U2MODE.setPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART2_U2MODE.clearPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART2_U2MODE.setPDSEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART2_U2MODE.getPDSEL1 : TBits_1; inline;
- begin
- getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART2_U2MODE.setUEN0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART2_U2MODE.clearUEN0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART2_U2MODE.setUEN0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART2_U2MODE.getUEN0 : TBits_1; inline;
- begin
- getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART2_U2MODE.setUEN1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART2_U2MODE.clearUEN1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART2_U2MODE.setUEN1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART2_U2MODE.getUEN1 : TBits_1; inline;
- begin
- getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART2_U2MODE.setUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART2_U2MODE.clearUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART2_U2MODE.setUSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART2_U2MODE.getUSIDL : TBits_1; inline;
- begin
- getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART2_U2MODE.setUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART2_U2MODE.clearUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART2_U2MODE.setUARTEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART2_U2MODE.getUARTEN : TBits_1; inline;
- begin
- getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART2_U2MODE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART2_U2MODE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART2_U8932MODE.setSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART2_U8932MODE.clearSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART2_U8932MODE.setSTSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART2_U8932MODE.getSTSEL : TBits_1; inline;
- begin
- getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART2_U8932MODE.setPDSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
- end;
- function TUART2_U8932MODE.getPDSEL : TBits_2; inline;
- begin
- getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
- end;
- procedure TUART2_U8932MODE.setBRGH; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART2_U8932MODE.clearBRGH; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART2_U8932MODE.setBRGH(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART2_U8932MODE.getBRGH : TBits_1; inline;
- begin
- getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART2_U8932MODE.setRXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART2_U8932MODE.clearRXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART2_U8932MODE.setRXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART2_U8932MODE.getRXINV : TBits_1; inline;
- begin
- getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART2_U8932MODE.setABAUD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART2_U8932MODE.clearABAUD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART2_U8932MODE.setABAUD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART2_U8932MODE.getABAUD : TBits_1; inline;
- begin
- getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART2_U8932MODE.setLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART2_U8932MODE.clearLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART2_U8932MODE.setLPBACK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART2_U8932MODE.getLPBACK : TBits_1; inline;
- begin
- getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART2_U8932MODE.setWAKE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART2_U8932MODE.clearWAKE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART2_U8932MODE.setWAKE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART2_U8932MODE.getWAKE : TBits_1; inline;
- begin
- getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART2_U8932MODE.setUEN(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TUART2_U8932MODE.getUEN : TBits_2; inline;
- begin
- getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TUART2_U8932MODE.setRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART2_U8932MODE.clearRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART2_U8932MODE.setRTSMD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART2_U8932MODE.getRTSMD : TBits_1; inline;
- begin
- getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART2_U8932MODE.setIREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART2_U8932MODE.clearIREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART2_U8932MODE.setIREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART2_U8932MODE.getIREN : TBits_1; inline;
- begin
- getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART2_U8932MODE.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART2_U8932MODE.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART2_U8932MODE.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART2_U8932MODE.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART2_U8932MODE.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART2_U8932MODE.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART2_U8932MODE.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART2_U8932MODE.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART2_U8932MODE.setPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART2_U8932MODE.clearPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART2_U8932MODE.setPDSEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART2_U8932MODE.getPDSEL0 : TBits_1; inline;
- begin
- getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART2_U8932MODE.setPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART2_U8932MODE.clearPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART2_U8932MODE.setPDSEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART2_U8932MODE.getPDSEL1 : TBits_1; inline;
- begin
- getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART2_U8932MODE.setUEN0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART2_U8932MODE.clearUEN0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART2_U8932MODE.setUEN0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART2_U8932MODE.getUEN0 : TBits_1; inline;
- begin
- getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART2_U8932MODE.setUEN1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART2_U8932MODE.clearUEN1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART2_U8932MODE.setUEN1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART2_U8932MODE.getUEN1 : TBits_1; inline;
- begin
- getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART2_U8932MODE.setUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART2_U8932MODE.clearUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART2_U8932MODE.setUSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART2_U8932MODE.getUSIDL : TBits_1; inline;
- begin
- getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART2_U8932MODE.setUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART2_U8932MODE.clearUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART2_U8932MODE.setUARTEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART2_U8932MODE.getUARTEN : TBits_1; inline;
- begin
- getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART2_U8932MODE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART2_U8932MODE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART2_U2STA.setURXDA; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART2_U2STA.clearURXDA; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART2_U2STA.setURXDA(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART2_U2STA.getURXDA : TBits_1; inline;
- begin
- getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART2_U2STA.setOERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART2_U2STA.clearOERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART2_U2STA.setOERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART2_U2STA.getOERR : TBits_1; inline;
- begin
- getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART2_U2STA.setFERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART2_U2STA.clearFERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART2_U2STA.setFERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART2_U2STA.getFERR : TBits_1; inline;
- begin
- getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART2_U2STA.setPERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART2_U2STA.clearPERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART2_U2STA.setPERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART2_U2STA.getPERR : TBits_1; inline;
- begin
- getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART2_U2STA.setRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART2_U2STA.clearRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART2_U2STA.setRIDLE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART2_U2STA.getRIDLE : TBits_1; inline;
- begin
- getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART2_U2STA.setADDEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART2_U2STA.clearADDEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART2_U2STA.setADDEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART2_U2STA.getADDEN : TBits_1; inline;
- begin
- getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART2_U2STA.setURXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
- end;
- function TUART2_U2STA.getURXISEL : TBits_2; inline;
- begin
- getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
- end;
- procedure TUART2_U2STA.setTRMT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART2_U2STA.clearTRMT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART2_U2STA.setTRMT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART2_U2STA.getTRMT : TBits_1; inline;
- begin
- getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART2_U2STA.setUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART2_U2STA.clearUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART2_U2STA.setUTXBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART2_U2STA.getUTXBF : TBits_1; inline;
- begin
- getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART2_U2STA.setUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TUART2_U2STA.clearUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TUART2_U2STA.setUTXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TUART2_U2STA.getUTXEN : TBits_1; inline;
- begin
- getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TUART2_U2STA.setUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART2_U2STA.clearUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART2_U2STA.setUTXBRK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART2_U2STA.getUTXBRK : TBits_1; inline;
- begin
- getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART2_U2STA.setURXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART2_U2STA.clearURXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART2_U2STA.setURXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART2_U2STA.getURXEN : TBits_1; inline;
- begin
- getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART2_U2STA.setUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART2_U2STA.clearUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART2_U2STA.setUTXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART2_U2STA.getUTXINV : TBits_1; inline;
- begin
- getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART2_U2STA.setUTXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART2_U2STA.getUTXISEL : TBits_2; inline;
- begin
- getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART2_U2STA.setADDR(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
- end;
- function TUART2_U2STA.getADDR : TBits_8; inline;
- begin
- getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
- end;
- procedure TUART2_U2STA.setADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TUART2_U2STA.clearADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TUART2_U2STA.setADM_EN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TUART2_U2STA.getADM_EN : TBits_1; inline;
- begin
- getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TUART2_U2STA.setURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART2_U2STA.clearURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART2_U2STA.setURXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART2_U2STA.getURXISEL0 : TBits_1; inline;
- begin
- getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART2_U2STA.setURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART2_U2STA.clearURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART2_U2STA.setURXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART2_U2STA.getURXISEL1 : TBits_1; inline;
- begin
- getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART2_U2STA.setUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TUART2_U2STA.clearUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TUART2_U2STA.setUTXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TUART2_U2STA.getUTXISEL0 : TBits_1; inline;
- begin
- getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TUART2_U2STA.setUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART2_U2STA.clearUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART2_U2STA.setUTXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART2_U2STA.getUTXISEL1 : TBits_1; inline;
- begin
- getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART2_U2STA.setUTXSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART2_U2STA.getUTXSEL : TBits_2; inline;
- begin
- getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART2_U2STA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART2_U2STA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART2_U8932STA.setURXDA; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART2_U8932STA.clearURXDA; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART2_U8932STA.setURXDA(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART2_U8932STA.getURXDA : TBits_1; inline;
- begin
- getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART2_U8932STA.setOERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART2_U8932STA.clearOERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART2_U8932STA.setOERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART2_U8932STA.getOERR : TBits_1; inline;
- begin
- getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART2_U8932STA.setFERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART2_U8932STA.clearFERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART2_U8932STA.setFERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART2_U8932STA.getFERR : TBits_1; inline;
- begin
- getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART2_U8932STA.setPERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART2_U8932STA.clearPERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART2_U8932STA.setPERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART2_U8932STA.getPERR : TBits_1; inline;
- begin
- getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART2_U8932STA.setRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART2_U8932STA.clearRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART2_U8932STA.setRIDLE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART2_U8932STA.getRIDLE : TBits_1; inline;
- begin
- getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART2_U8932STA.setADDEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART2_U8932STA.clearADDEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART2_U8932STA.setADDEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART2_U8932STA.getADDEN : TBits_1; inline;
- begin
- getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART2_U8932STA.setURXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
- end;
- function TUART2_U8932STA.getURXISEL : TBits_2; inline;
- begin
- getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
- end;
- procedure TUART2_U8932STA.setTRMT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART2_U8932STA.clearTRMT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART2_U8932STA.setTRMT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART2_U8932STA.getTRMT : TBits_1; inline;
- begin
- getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART2_U8932STA.setUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART2_U8932STA.clearUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART2_U8932STA.setUTXBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART2_U8932STA.getUTXBF : TBits_1; inline;
- begin
- getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART2_U8932STA.setUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TUART2_U8932STA.clearUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TUART2_U8932STA.setUTXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TUART2_U8932STA.getUTXEN : TBits_1; inline;
- begin
- getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TUART2_U8932STA.setUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART2_U8932STA.clearUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART2_U8932STA.setUTXBRK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART2_U8932STA.getUTXBRK : TBits_1; inline;
- begin
- getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART2_U8932STA.setURXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART2_U8932STA.clearURXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART2_U8932STA.setURXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART2_U8932STA.getURXEN : TBits_1; inline;
- begin
- getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART2_U8932STA.setUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART2_U8932STA.clearUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART2_U8932STA.setUTXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART2_U8932STA.getUTXINV : TBits_1; inline;
- begin
- getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART2_U8932STA.setUTXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART2_U8932STA.getUTXISEL : TBits_2; inline;
- begin
- getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART2_U8932STA.setADDR(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
- end;
- function TUART2_U8932STA.getADDR : TBits_8; inline;
- begin
- getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
- end;
- procedure TUART2_U8932STA.setADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TUART2_U8932STA.clearADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TUART2_U8932STA.setADM_EN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TUART2_U8932STA.getADM_EN : TBits_1; inline;
- begin
- getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TUART2_U8932STA.setURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART2_U8932STA.clearURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART2_U8932STA.setURXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART2_U8932STA.getURXISEL0 : TBits_1; inline;
- begin
- getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART2_U8932STA.setURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART2_U8932STA.clearURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART2_U8932STA.setURXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART2_U8932STA.getURXISEL1 : TBits_1; inline;
- begin
- getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART2_U8932STA.setUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TUART2_U8932STA.clearUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TUART2_U8932STA.setUTXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TUART2_U8932STA.getUTXISEL0 : TBits_1; inline;
- begin
- getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TUART2_U8932STA.setUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART2_U8932STA.clearUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART2_U8932STA.setUTXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART2_U8932STA.getUTXISEL1 : TBits_1; inline;
- begin
- getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART2_U8932STA.setUTXSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART2_U8932STA.getUTXSEL : TBits_2; inline;
- begin
- getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART2_U8932STA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART2_U8932STA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART3_U39MODE.setSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART3_U39MODE.clearSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART3_U39MODE.setSTSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART3_U39MODE.getSTSEL : TBits_1; inline;
- begin
- getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART3_U39MODE.setPDSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
- end;
- function TUART3_U39MODE.getPDSEL : TBits_2; inline;
- begin
- getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
- end;
- procedure TUART3_U39MODE.setBRGH; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART3_U39MODE.clearBRGH; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART3_U39MODE.setBRGH(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART3_U39MODE.getBRGH : TBits_1; inline;
- begin
- getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART3_U39MODE.setRXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART3_U39MODE.clearRXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART3_U39MODE.setRXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART3_U39MODE.getRXINV : TBits_1; inline;
- begin
- getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART3_U39MODE.setABAUD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART3_U39MODE.clearABAUD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART3_U39MODE.setABAUD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART3_U39MODE.getABAUD : TBits_1; inline;
- begin
- getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART3_U39MODE.setLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART3_U39MODE.clearLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART3_U39MODE.setLPBACK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART3_U39MODE.getLPBACK : TBits_1; inline;
- begin
- getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART3_U39MODE.setWAKE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART3_U39MODE.clearWAKE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART3_U39MODE.setWAKE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART3_U39MODE.getWAKE : TBits_1; inline;
- begin
- getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART3_U39MODE.setUEN(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TUART3_U39MODE.getUEN : TBits_2; inline;
- begin
- getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TUART3_U39MODE.setRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART3_U39MODE.clearRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART3_U39MODE.setRTSMD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART3_U39MODE.getRTSMD : TBits_1; inline;
- begin
- getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART3_U39MODE.setIREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART3_U39MODE.clearIREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART3_U39MODE.setIREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART3_U39MODE.getIREN : TBits_1; inline;
- begin
- getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART3_U39MODE.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART3_U39MODE.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART3_U39MODE.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART3_U39MODE.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART3_U39MODE.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART3_U39MODE.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART3_U39MODE.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART3_U39MODE.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART3_U39MODE.setPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART3_U39MODE.clearPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART3_U39MODE.setPDSEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART3_U39MODE.getPDSEL0 : TBits_1; inline;
- begin
- getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART3_U39MODE.setPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART3_U39MODE.clearPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART3_U39MODE.setPDSEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART3_U39MODE.getPDSEL1 : TBits_1; inline;
- begin
- getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART3_U39MODE.setUEN0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART3_U39MODE.clearUEN0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART3_U39MODE.setUEN0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART3_U39MODE.getUEN0 : TBits_1; inline;
- begin
- getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART3_U39MODE.setUEN1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART3_U39MODE.clearUEN1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART3_U39MODE.setUEN1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART3_U39MODE.getUEN1 : TBits_1; inline;
- begin
- getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART3_U39MODE.setUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART3_U39MODE.clearUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART3_U39MODE.setUSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART3_U39MODE.getUSIDL : TBits_1; inline;
- begin
- getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART3_U39MODE.setUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART3_U39MODE.clearUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART3_U39MODE.setUARTEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART3_U39MODE.getUARTEN : TBits_1; inline;
- begin
- getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART3_U39MODE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART3_U39MODE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART3_U3MODE.setSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART3_U3MODE.clearSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART3_U3MODE.setSTSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART3_U3MODE.getSTSEL : TBits_1; inline;
- begin
- getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART3_U3MODE.setPDSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
- end;
- function TUART3_U3MODE.getPDSEL : TBits_2; inline;
- begin
- getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
- end;
- procedure TUART3_U3MODE.setBRGH; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART3_U3MODE.clearBRGH; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART3_U3MODE.setBRGH(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART3_U3MODE.getBRGH : TBits_1; inline;
- begin
- getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART3_U3MODE.setRXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART3_U3MODE.clearRXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART3_U3MODE.setRXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART3_U3MODE.getRXINV : TBits_1; inline;
- begin
- getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART3_U3MODE.setABAUD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART3_U3MODE.clearABAUD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART3_U3MODE.setABAUD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART3_U3MODE.getABAUD : TBits_1; inline;
- begin
- getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART3_U3MODE.setLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART3_U3MODE.clearLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART3_U3MODE.setLPBACK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART3_U3MODE.getLPBACK : TBits_1; inline;
- begin
- getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART3_U3MODE.setWAKE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART3_U3MODE.clearWAKE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART3_U3MODE.setWAKE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART3_U3MODE.getWAKE : TBits_1; inline;
- begin
- getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART3_U3MODE.setUEN(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TUART3_U3MODE.getUEN : TBits_2; inline;
- begin
- getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TUART3_U3MODE.setRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART3_U3MODE.clearRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART3_U3MODE.setRTSMD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART3_U3MODE.getRTSMD : TBits_1; inline;
- begin
- getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART3_U3MODE.setIREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART3_U3MODE.clearIREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART3_U3MODE.setIREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART3_U3MODE.getIREN : TBits_1; inline;
- begin
- getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART3_U3MODE.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART3_U3MODE.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART3_U3MODE.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART3_U3MODE.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART3_U3MODE.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART3_U3MODE.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART3_U3MODE.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART3_U3MODE.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART3_U3MODE.setPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART3_U3MODE.clearPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART3_U3MODE.setPDSEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART3_U3MODE.getPDSEL0 : TBits_1; inline;
- begin
- getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART3_U3MODE.setPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART3_U3MODE.clearPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART3_U3MODE.setPDSEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART3_U3MODE.getPDSEL1 : TBits_1; inline;
- begin
- getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART3_U3MODE.setUEN0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART3_U3MODE.clearUEN0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART3_U3MODE.setUEN0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART3_U3MODE.getUEN0 : TBits_1; inline;
- begin
- getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART3_U3MODE.setUEN1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART3_U3MODE.clearUEN1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART3_U3MODE.setUEN1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART3_U3MODE.getUEN1 : TBits_1; inline;
- begin
- getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART3_U3MODE.setUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART3_U3MODE.clearUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART3_U3MODE.setUSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART3_U3MODE.getUSIDL : TBits_1; inline;
- begin
- getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART3_U3MODE.setUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART3_U3MODE.clearUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART3_U3MODE.setUARTEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART3_U3MODE.getUARTEN : TBits_1; inline;
- begin
- getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART3_U3MODE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART3_U3MODE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART3_U39STA.setURXDA; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART3_U39STA.clearURXDA; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART3_U39STA.setURXDA(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART3_U39STA.getURXDA : TBits_1; inline;
- begin
- getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART3_U39STA.setOERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART3_U39STA.clearOERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART3_U39STA.setOERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART3_U39STA.getOERR : TBits_1; inline;
- begin
- getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART3_U39STA.setFERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART3_U39STA.clearFERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART3_U39STA.setFERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART3_U39STA.getFERR : TBits_1; inline;
- begin
- getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART3_U39STA.setPERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART3_U39STA.clearPERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART3_U39STA.setPERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART3_U39STA.getPERR : TBits_1; inline;
- begin
- getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART3_U39STA.setRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART3_U39STA.clearRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART3_U39STA.setRIDLE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART3_U39STA.getRIDLE : TBits_1; inline;
- begin
- getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART3_U39STA.setADDEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART3_U39STA.clearADDEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART3_U39STA.setADDEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART3_U39STA.getADDEN : TBits_1; inline;
- begin
- getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART3_U39STA.setURXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
- end;
- function TUART3_U39STA.getURXISEL : TBits_2; inline;
- begin
- getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
- end;
- procedure TUART3_U39STA.setTRMT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART3_U39STA.clearTRMT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART3_U39STA.setTRMT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART3_U39STA.getTRMT : TBits_1; inline;
- begin
- getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART3_U39STA.setUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART3_U39STA.clearUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART3_U39STA.setUTXBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART3_U39STA.getUTXBF : TBits_1; inline;
- begin
- getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART3_U39STA.setUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TUART3_U39STA.clearUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TUART3_U39STA.setUTXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TUART3_U39STA.getUTXEN : TBits_1; inline;
- begin
- getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TUART3_U39STA.setUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART3_U39STA.clearUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART3_U39STA.setUTXBRK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART3_U39STA.getUTXBRK : TBits_1; inline;
- begin
- getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART3_U39STA.setURXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART3_U39STA.clearURXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART3_U39STA.setURXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART3_U39STA.getURXEN : TBits_1; inline;
- begin
- getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART3_U39STA.setUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART3_U39STA.clearUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART3_U39STA.setUTXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART3_U39STA.getUTXINV : TBits_1; inline;
- begin
- getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART3_U39STA.setUTXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART3_U39STA.getUTXISEL : TBits_2; inline;
- begin
- getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART3_U39STA.setADDR(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
- end;
- function TUART3_U39STA.getADDR : TBits_8; inline;
- begin
- getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
- end;
- procedure TUART3_U39STA.setADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TUART3_U39STA.clearADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TUART3_U39STA.setADM_EN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TUART3_U39STA.getADM_EN : TBits_1; inline;
- begin
- getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TUART3_U39STA.setURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART3_U39STA.clearURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART3_U39STA.setURXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART3_U39STA.getURXISEL0 : TBits_1; inline;
- begin
- getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART3_U39STA.setURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART3_U39STA.clearURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART3_U39STA.setURXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART3_U39STA.getURXISEL1 : TBits_1; inline;
- begin
- getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART3_U39STA.setUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TUART3_U39STA.clearUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TUART3_U39STA.setUTXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TUART3_U39STA.getUTXISEL0 : TBits_1; inline;
- begin
- getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TUART3_U39STA.setUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART3_U39STA.clearUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART3_U39STA.setUTXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART3_U39STA.getUTXISEL1 : TBits_1; inline;
- begin
- getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART3_U39STA.setUTXSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART3_U39STA.getUTXSEL : TBits_2; inline;
- begin
- getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART3_U39STA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART3_U39STA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART3_U3STA.setURXDA; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART3_U3STA.clearURXDA; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART3_U3STA.setURXDA(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART3_U3STA.getURXDA : TBits_1; inline;
- begin
- getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART3_U3STA.setOERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART3_U3STA.clearOERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART3_U3STA.setOERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART3_U3STA.getOERR : TBits_1; inline;
- begin
- getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART3_U3STA.setFERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART3_U3STA.clearFERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART3_U3STA.setFERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART3_U3STA.getFERR : TBits_1; inline;
- begin
- getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART3_U3STA.setPERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART3_U3STA.clearPERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART3_U3STA.setPERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART3_U3STA.getPERR : TBits_1; inline;
- begin
- getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART3_U3STA.setRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART3_U3STA.clearRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART3_U3STA.setRIDLE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART3_U3STA.getRIDLE : TBits_1; inline;
- begin
- getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART3_U3STA.setADDEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART3_U3STA.clearADDEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART3_U3STA.setADDEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART3_U3STA.getADDEN : TBits_1; inline;
- begin
- getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART3_U3STA.setURXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
- end;
- function TUART3_U3STA.getURXISEL : TBits_2; inline;
- begin
- getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
- end;
- procedure TUART3_U3STA.setTRMT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART3_U3STA.clearTRMT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART3_U3STA.setTRMT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART3_U3STA.getTRMT : TBits_1; inline;
- begin
- getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART3_U3STA.setUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART3_U3STA.clearUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART3_U3STA.setUTXBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART3_U3STA.getUTXBF : TBits_1; inline;
- begin
- getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART3_U3STA.setUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TUART3_U3STA.clearUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TUART3_U3STA.setUTXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TUART3_U3STA.getUTXEN : TBits_1; inline;
- begin
- getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TUART3_U3STA.setUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART3_U3STA.clearUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART3_U3STA.setUTXBRK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART3_U3STA.getUTXBRK : TBits_1; inline;
- begin
- getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART3_U3STA.setURXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART3_U3STA.clearURXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART3_U3STA.setURXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART3_U3STA.getURXEN : TBits_1; inline;
- begin
- getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART3_U3STA.setUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART3_U3STA.clearUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART3_U3STA.setUTXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART3_U3STA.getUTXINV : TBits_1; inline;
- begin
- getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART3_U3STA.setUTXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART3_U3STA.getUTXISEL : TBits_2; inline;
- begin
- getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART3_U3STA.setADDR(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
- end;
- function TUART3_U3STA.getADDR : TBits_8; inline;
- begin
- getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
- end;
- procedure TUART3_U3STA.setADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TUART3_U3STA.clearADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TUART3_U3STA.setADM_EN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TUART3_U3STA.getADM_EN : TBits_1; inline;
- begin
- getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TUART3_U3STA.setURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART3_U3STA.clearURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART3_U3STA.setURXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART3_U3STA.getURXISEL0 : TBits_1; inline;
- begin
- getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART3_U3STA.setURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART3_U3STA.clearURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART3_U3STA.setURXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART3_U3STA.getURXISEL1 : TBits_1; inline;
- begin
- getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART3_U3STA.setUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TUART3_U3STA.clearUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TUART3_U3STA.setUTXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TUART3_U3STA.getUTXISEL0 : TBits_1; inline;
- begin
- getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TUART3_U3STA.setUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART3_U3STA.clearUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART3_U3STA.setUTXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART3_U3STA.getUTXISEL1 : TBits_1; inline;
- begin
- getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART3_U3STA.setUTXSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART3_U3STA.getUTXSEL : TBits_2; inline;
- begin
- getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART3_U3STA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART3_U3STA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART4_U4MODE.setSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART4_U4MODE.clearSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART4_U4MODE.setSTSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART4_U4MODE.getSTSEL : TBits_1; inline;
- begin
- getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART4_U4MODE.setPDSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
- end;
- function TUART4_U4MODE.getPDSEL : TBits_2; inline;
- begin
- getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
- end;
- procedure TUART4_U4MODE.setBRGH; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART4_U4MODE.clearBRGH; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART4_U4MODE.setBRGH(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART4_U4MODE.getBRGH : TBits_1; inline;
- begin
- getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART4_U4MODE.setRXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART4_U4MODE.clearRXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART4_U4MODE.setRXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART4_U4MODE.getRXINV : TBits_1; inline;
- begin
- getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART4_U4MODE.setABAUD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART4_U4MODE.clearABAUD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART4_U4MODE.setABAUD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART4_U4MODE.getABAUD : TBits_1; inline;
- begin
- getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART4_U4MODE.setLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART4_U4MODE.clearLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART4_U4MODE.setLPBACK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART4_U4MODE.getLPBACK : TBits_1; inline;
- begin
- getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART4_U4MODE.setWAKE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART4_U4MODE.clearWAKE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART4_U4MODE.setWAKE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART4_U4MODE.getWAKE : TBits_1; inline;
- begin
- getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART4_U4MODE.setUEN(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TUART4_U4MODE.getUEN : TBits_2; inline;
- begin
- getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TUART4_U4MODE.setRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART4_U4MODE.clearRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART4_U4MODE.setRTSMD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART4_U4MODE.getRTSMD : TBits_1; inline;
- begin
- getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART4_U4MODE.setIREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART4_U4MODE.clearIREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART4_U4MODE.setIREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART4_U4MODE.getIREN : TBits_1; inline;
- begin
- getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART4_U4MODE.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART4_U4MODE.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART4_U4MODE.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART4_U4MODE.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART4_U4MODE.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART4_U4MODE.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART4_U4MODE.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART4_U4MODE.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART4_U4MODE.setPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART4_U4MODE.clearPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART4_U4MODE.setPDSEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART4_U4MODE.getPDSEL0 : TBits_1; inline;
- begin
- getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART4_U4MODE.setPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART4_U4MODE.clearPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART4_U4MODE.setPDSEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART4_U4MODE.getPDSEL1 : TBits_1; inline;
- begin
- getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART4_U4MODE.setUEN0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART4_U4MODE.clearUEN0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART4_U4MODE.setUEN0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART4_U4MODE.getUEN0 : TBits_1; inline;
- begin
- getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART4_U4MODE.setUEN1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART4_U4MODE.clearUEN1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART4_U4MODE.setUEN1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART4_U4MODE.getUEN1 : TBits_1; inline;
- begin
- getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART4_U4MODE.setUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART4_U4MODE.clearUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART4_U4MODE.setUSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART4_U4MODE.getUSIDL : TBits_1; inline;
- begin
- getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART4_U4MODE.setUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART4_U4MODE.clearUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART4_U4MODE.setUARTEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART4_U4MODE.getUARTEN : TBits_1; inline;
- begin
- getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART4_U4MODE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART4_U4MODE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART4_UodMODE.setSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART4_UodMODE.clearSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART4_UodMODE.setSTSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART4_UodMODE.getSTSEL : TBits_1; inline;
- begin
- getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART4_UodMODE.setPDSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
- end;
- function TUART4_UodMODE.getPDSEL : TBits_2; inline;
- begin
- getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
- end;
- procedure TUART4_UodMODE.setBRGH; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART4_UodMODE.clearBRGH; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART4_UodMODE.setBRGH(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART4_UodMODE.getBRGH : TBits_1; inline;
- begin
- getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART4_UodMODE.setRXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART4_UodMODE.clearRXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART4_UodMODE.setRXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART4_UodMODE.getRXINV : TBits_1; inline;
- begin
- getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART4_UodMODE.setABAUD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART4_UodMODE.clearABAUD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART4_UodMODE.setABAUD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART4_UodMODE.getABAUD : TBits_1; inline;
- begin
- getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART4_UodMODE.setLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART4_UodMODE.clearLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART4_UodMODE.setLPBACK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART4_UodMODE.getLPBACK : TBits_1; inline;
- begin
- getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART4_UodMODE.setWAKE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART4_UodMODE.clearWAKE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART4_UodMODE.setWAKE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART4_UodMODE.getWAKE : TBits_1; inline;
- begin
- getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART4_UodMODE.setUEN(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TUART4_UodMODE.getUEN : TBits_2; inline;
- begin
- getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TUART4_UodMODE.setRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART4_UodMODE.clearRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART4_UodMODE.setRTSMD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART4_UodMODE.getRTSMD : TBits_1; inline;
- begin
- getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART4_UodMODE.setIREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART4_UodMODE.clearIREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART4_UodMODE.setIREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART4_UodMODE.getIREN : TBits_1; inline;
- begin
- getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART4_UodMODE.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART4_UodMODE.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART4_UodMODE.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART4_UodMODE.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART4_UodMODE.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART4_UodMODE.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART4_UodMODE.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART4_UodMODE.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART4_UodMODE.setPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART4_UodMODE.clearPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART4_UodMODE.setPDSEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART4_UodMODE.getPDSEL0 : TBits_1; inline;
- begin
- getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART4_UodMODE.setPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART4_UodMODE.clearPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART4_UodMODE.setPDSEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART4_UodMODE.getPDSEL1 : TBits_1; inline;
- begin
- getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART4_UodMODE.setUEN0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART4_UodMODE.clearUEN0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART4_UodMODE.setUEN0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART4_UodMODE.getUEN0 : TBits_1; inline;
- begin
- getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART4_UodMODE.setUEN1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART4_UodMODE.clearUEN1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART4_UodMODE.setUEN1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART4_UodMODE.getUEN1 : TBits_1; inline;
- begin
- getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART4_UodMODE.setUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART4_UodMODE.clearUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART4_UodMODE.setUSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART4_UodMODE.getUSIDL : TBits_1; inline;
- begin
- getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART4_UodMODE.setUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART4_UodMODE.clearUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART4_UodMODE.setUARTEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART4_UodMODE.getUARTEN : TBits_1; inline;
- begin
- getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART4_UodMODE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART4_UodMODE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART4_U4STA.setURXDA; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART4_U4STA.clearURXDA; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART4_U4STA.setURXDA(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART4_U4STA.getURXDA : TBits_1; inline;
- begin
- getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART4_U4STA.setOERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART4_U4STA.clearOERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART4_U4STA.setOERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART4_U4STA.getOERR : TBits_1; inline;
- begin
- getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART4_U4STA.setFERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART4_U4STA.clearFERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART4_U4STA.setFERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART4_U4STA.getFERR : TBits_1; inline;
- begin
- getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART4_U4STA.setPERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART4_U4STA.clearPERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART4_U4STA.setPERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART4_U4STA.getPERR : TBits_1; inline;
- begin
- getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART4_U4STA.setRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART4_U4STA.clearRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART4_U4STA.setRIDLE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART4_U4STA.getRIDLE : TBits_1; inline;
- begin
- getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART4_U4STA.setADDEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART4_U4STA.clearADDEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART4_U4STA.setADDEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART4_U4STA.getADDEN : TBits_1; inline;
- begin
- getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART4_U4STA.setURXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
- end;
- function TUART4_U4STA.getURXISEL : TBits_2; inline;
- begin
- getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
- end;
- procedure TUART4_U4STA.setTRMT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART4_U4STA.clearTRMT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART4_U4STA.setTRMT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART4_U4STA.getTRMT : TBits_1; inline;
- begin
- getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART4_U4STA.setUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART4_U4STA.clearUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART4_U4STA.setUTXBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART4_U4STA.getUTXBF : TBits_1; inline;
- begin
- getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART4_U4STA.setUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TUART4_U4STA.clearUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TUART4_U4STA.setUTXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TUART4_U4STA.getUTXEN : TBits_1; inline;
- begin
- getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TUART4_U4STA.setUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART4_U4STA.clearUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART4_U4STA.setUTXBRK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART4_U4STA.getUTXBRK : TBits_1; inline;
- begin
- getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART4_U4STA.setURXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART4_U4STA.clearURXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART4_U4STA.setURXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART4_U4STA.getURXEN : TBits_1; inline;
- begin
- getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART4_U4STA.setUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART4_U4STA.clearUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART4_U4STA.setUTXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART4_U4STA.getUTXINV : TBits_1; inline;
- begin
- getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART4_U4STA.setUTXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART4_U4STA.getUTXISEL : TBits_2; inline;
- begin
- getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART4_U4STA.setADDR(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
- end;
- function TUART4_U4STA.getADDR : TBits_8; inline;
- begin
- getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
- end;
- procedure TUART4_U4STA.setADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TUART4_U4STA.clearADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TUART4_U4STA.setADM_EN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TUART4_U4STA.getADM_EN : TBits_1; inline;
- begin
- getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TUART4_U4STA.setURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART4_U4STA.clearURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART4_U4STA.setURXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART4_U4STA.getURXISEL0 : TBits_1; inline;
- begin
- getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART4_U4STA.setURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART4_U4STA.clearURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART4_U4STA.setURXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART4_U4STA.getURXISEL1 : TBits_1; inline;
- begin
- getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART4_U4STA.setUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TUART4_U4STA.clearUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TUART4_U4STA.setUTXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TUART4_U4STA.getUTXISEL0 : TBits_1; inline;
- begin
- getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TUART4_U4STA.setUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART4_U4STA.clearUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART4_U4STA.setUTXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART4_U4STA.getUTXISEL1 : TBits_1; inline;
- begin
- getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART4_U4STA.setUTXSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART4_U4STA.getUTXSEL : TBits_2; inline;
- begin
- getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART4_U4STA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART4_U4STA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART4_UodSTA.setURXDA; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART4_UodSTA.clearURXDA; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART4_UodSTA.setURXDA(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART4_UodSTA.getURXDA : TBits_1; inline;
- begin
- getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART4_UodSTA.setOERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART4_UodSTA.clearOERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART4_UodSTA.setOERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART4_UodSTA.getOERR : TBits_1; inline;
- begin
- getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART4_UodSTA.setFERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART4_UodSTA.clearFERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART4_UodSTA.setFERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART4_UodSTA.getFERR : TBits_1; inline;
- begin
- getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART4_UodSTA.setPERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART4_UodSTA.clearPERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART4_UodSTA.setPERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART4_UodSTA.getPERR : TBits_1; inline;
- begin
- getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART4_UodSTA.setRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART4_UodSTA.clearRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART4_UodSTA.setRIDLE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART4_UodSTA.getRIDLE : TBits_1; inline;
- begin
- getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART4_UodSTA.setADDEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART4_UodSTA.clearADDEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART4_UodSTA.setADDEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART4_UodSTA.getADDEN : TBits_1; inline;
- begin
- getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART4_UodSTA.setURXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
- end;
- function TUART4_UodSTA.getURXISEL : TBits_2; inline;
- begin
- getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
- end;
- procedure TUART4_UodSTA.setTRMT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART4_UodSTA.clearTRMT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART4_UodSTA.setTRMT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART4_UodSTA.getTRMT : TBits_1; inline;
- begin
- getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART4_UodSTA.setUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART4_UodSTA.clearUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART4_UodSTA.setUTXBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART4_UodSTA.getUTXBF : TBits_1; inline;
- begin
- getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART4_UodSTA.setUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TUART4_UodSTA.clearUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TUART4_UodSTA.setUTXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TUART4_UodSTA.getUTXEN : TBits_1; inline;
- begin
- getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TUART4_UodSTA.setUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART4_UodSTA.clearUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART4_UodSTA.setUTXBRK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART4_UodSTA.getUTXBRK : TBits_1; inline;
- begin
- getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART4_UodSTA.setURXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART4_UodSTA.clearURXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART4_UodSTA.setURXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART4_UodSTA.getURXEN : TBits_1; inline;
- begin
- getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART4_UodSTA.setUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART4_UodSTA.clearUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART4_UodSTA.setUTXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART4_UodSTA.getUTXINV : TBits_1; inline;
- begin
- getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART4_UodSTA.setUTXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART4_UodSTA.getUTXISEL : TBits_2; inline;
- begin
- getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART4_UodSTA.setADDR(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
- end;
- function TUART4_UodSTA.getADDR : TBits_8; inline;
- begin
- getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
- end;
- procedure TUART4_UodSTA.setADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TUART4_UodSTA.clearADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TUART4_UodSTA.setADM_EN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TUART4_UodSTA.getADM_EN : TBits_1; inline;
- begin
- getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TUART4_UodSTA.setURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART4_UodSTA.clearURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART4_UodSTA.setURXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART4_UodSTA.getURXISEL0 : TBits_1; inline;
- begin
- getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART4_UodSTA.setURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART4_UodSTA.clearURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART4_UodSTA.setURXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART4_UodSTA.getURXISEL1 : TBits_1; inline;
- begin
- getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART4_UodSTA.setUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TUART4_UodSTA.clearUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TUART4_UodSTA.setUTXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TUART4_UodSTA.getUTXISEL0 : TBits_1; inline;
- begin
- getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TUART4_UodSTA.setUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART4_UodSTA.clearUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART4_UodSTA.setUTXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART4_UodSTA.getUTXISEL1 : TBits_1; inline;
- begin
- getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART4_UodSTA.setUTXSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART4_UodSTA.getUTXSEL : TBits_2; inline;
- begin
- getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART4_UodSTA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART4_UodSTA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART5_U5MODE.setSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART5_U5MODE.clearSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART5_U5MODE.setSTSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART5_U5MODE.getSTSEL : TBits_1; inline;
- begin
- getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART5_U5MODE.setPDSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
- end;
- function TUART5_U5MODE.getPDSEL : TBits_2; inline;
- begin
- getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
- end;
- procedure TUART5_U5MODE.setBRGH; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART5_U5MODE.clearBRGH; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART5_U5MODE.setBRGH(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART5_U5MODE.getBRGH : TBits_1; inline;
- begin
- getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART5_U5MODE.setRXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART5_U5MODE.clearRXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART5_U5MODE.setRXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART5_U5MODE.getRXINV : TBits_1; inline;
- begin
- getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART5_U5MODE.setABAUD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART5_U5MODE.clearABAUD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART5_U5MODE.setABAUD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART5_U5MODE.getABAUD : TBits_1; inline;
- begin
- getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART5_U5MODE.setLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART5_U5MODE.clearLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART5_U5MODE.setLPBACK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART5_U5MODE.getLPBACK : TBits_1; inline;
- begin
- getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART5_U5MODE.setWAKE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART5_U5MODE.clearWAKE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART5_U5MODE.setWAKE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART5_U5MODE.getWAKE : TBits_1; inline;
- begin
- getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART5_U5MODE.setUEN(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TUART5_U5MODE.getUEN : TBits_2; inline;
- begin
- getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TUART5_U5MODE.setRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART5_U5MODE.clearRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART5_U5MODE.setRTSMD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART5_U5MODE.getRTSMD : TBits_1; inline;
- begin
- getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART5_U5MODE.setIREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART5_U5MODE.clearIREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART5_U5MODE.setIREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART5_U5MODE.getIREN : TBits_1; inline;
- begin
- getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART5_U5MODE.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART5_U5MODE.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART5_U5MODE.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART5_U5MODE.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART5_U5MODE.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART5_U5MODE.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART5_U5MODE.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART5_U5MODE.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART5_U5MODE.setPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART5_U5MODE.clearPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART5_U5MODE.setPDSEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART5_U5MODE.getPDSEL0 : TBits_1; inline;
- begin
- getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART5_U5MODE.setPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART5_U5MODE.clearPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART5_U5MODE.setPDSEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART5_U5MODE.getPDSEL1 : TBits_1; inline;
- begin
- getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART5_U5MODE.setUEN0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART5_U5MODE.clearUEN0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART5_U5MODE.setUEN0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART5_U5MODE.getUEN0 : TBits_1; inline;
- begin
- getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART5_U5MODE.setUEN1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART5_U5MODE.clearUEN1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART5_U5MODE.setUEN1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART5_U5MODE.getUEN1 : TBits_1; inline;
- begin
- getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART5_U5MODE.setUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART5_U5MODE.clearUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART5_U5MODE.setUSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART5_U5MODE.getUSIDL : TBits_1; inline;
- begin
- getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART5_U5MODE.setUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART5_U5MODE.clearUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART5_U5MODE.setUARTEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART5_U5MODE.getUARTEN : TBits_1; inline;
- begin
- getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART5_U5MODE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART5_U5MODE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART5_UabMODE.setSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART5_UabMODE.clearSTSEL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART5_UabMODE.setSTSEL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART5_UabMODE.getSTSEL : TBits_1; inline;
- begin
- getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART5_UabMODE.setPDSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
- end;
- function TUART5_UabMODE.getPDSEL : TBits_2; inline;
- begin
- getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
- end;
- procedure TUART5_UabMODE.setBRGH; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART5_UabMODE.clearBRGH; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART5_UabMODE.setBRGH(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART5_UabMODE.getBRGH : TBits_1; inline;
- begin
- getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART5_UabMODE.setRXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART5_UabMODE.clearRXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART5_UabMODE.setRXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART5_UabMODE.getRXINV : TBits_1; inline;
- begin
- getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART5_UabMODE.setABAUD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART5_UabMODE.clearABAUD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART5_UabMODE.setABAUD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART5_UabMODE.getABAUD : TBits_1; inline;
- begin
- getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART5_UabMODE.setLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART5_UabMODE.clearLPBACK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART5_UabMODE.setLPBACK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART5_UabMODE.getLPBACK : TBits_1; inline;
- begin
- getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART5_UabMODE.setWAKE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART5_UabMODE.clearWAKE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART5_UabMODE.setWAKE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART5_UabMODE.getWAKE : TBits_1; inline;
- begin
- getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART5_UabMODE.setUEN(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TUART5_UabMODE.getUEN : TBits_2; inline;
- begin
- getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TUART5_UabMODE.setRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART5_UabMODE.clearRTSMD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART5_UabMODE.setRTSMD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART5_UabMODE.getRTSMD : TBits_1; inline;
- begin
- getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART5_UabMODE.setIREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART5_UabMODE.clearIREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART5_UabMODE.setIREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART5_UabMODE.getIREN : TBits_1; inline;
- begin
- getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART5_UabMODE.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART5_UabMODE.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART5_UabMODE.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART5_UabMODE.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART5_UabMODE.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART5_UabMODE.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART5_UabMODE.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART5_UabMODE.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART5_UabMODE.setPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART5_UabMODE.clearPDSEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART5_UabMODE.setPDSEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART5_UabMODE.getPDSEL0 : TBits_1; inline;
- begin
- getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART5_UabMODE.setPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART5_UabMODE.clearPDSEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART5_UabMODE.setPDSEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART5_UabMODE.getPDSEL1 : TBits_1; inline;
- begin
- getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART5_UabMODE.setUEN0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART5_UabMODE.clearUEN0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART5_UabMODE.setUEN0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART5_UabMODE.getUEN0 : TBits_1; inline;
- begin
- getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART5_UabMODE.setUEN1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART5_UabMODE.clearUEN1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART5_UabMODE.setUEN1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART5_UabMODE.getUEN1 : TBits_1; inline;
- begin
- getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART5_UabMODE.setUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART5_UabMODE.clearUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART5_UabMODE.setUSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART5_UabMODE.getUSIDL : TBits_1; inline;
- begin
- getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART5_UabMODE.setUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART5_UabMODE.clearUARTEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART5_UabMODE.setUARTEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART5_UabMODE.getUARTEN : TBits_1; inline;
- begin
- getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART5_UabMODE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART5_UabMODE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART5_U5STA.setURXDA; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART5_U5STA.clearURXDA; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART5_U5STA.setURXDA(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART5_U5STA.getURXDA : TBits_1; inline;
- begin
- getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART5_U5STA.setOERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART5_U5STA.clearOERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART5_U5STA.setOERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART5_U5STA.getOERR : TBits_1; inline;
- begin
- getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART5_U5STA.setFERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART5_U5STA.clearFERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART5_U5STA.setFERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART5_U5STA.getFERR : TBits_1; inline;
- begin
- getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART5_U5STA.setPERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART5_U5STA.clearPERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART5_U5STA.setPERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART5_U5STA.getPERR : TBits_1; inline;
- begin
- getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART5_U5STA.setRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART5_U5STA.clearRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART5_U5STA.setRIDLE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART5_U5STA.getRIDLE : TBits_1; inline;
- begin
- getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART5_U5STA.setADDEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART5_U5STA.clearADDEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART5_U5STA.setADDEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART5_U5STA.getADDEN : TBits_1; inline;
- begin
- getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART5_U5STA.setURXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
- end;
- function TUART5_U5STA.getURXISEL : TBits_2; inline;
- begin
- getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
- end;
- procedure TUART5_U5STA.setTRMT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART5_U5STA.clearTRMT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART5_U5STA.setTRMT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART5_U5STA.getTRMT : TBits_1; inline;
- begin
- getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART5_U5STA.setUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART5_U5STA.clearUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART5_U5STA.setUTXBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART5_U5STA.getUTXBF : TBits_1; inline;
- begin
- getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART5_U5STA.setUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TUART5_U5STA.clearUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TUART5_U5STA.setUTXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TUART5_U5STA.getUTXEN : TBits_1; inline;
- begin
- getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TUART5_U5STA.setUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART5_U5STA.clearUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART5_U5STA.setUTXBRK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART5_U5STA.getUTXBRK : TBits_1; inline;
- begin
- getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART5_U5STA.setURXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART5_U5STA.clearURXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART5_U5STA.setURXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART5_U5STA.getURXEN : TBits_1; inline;
- begin
- getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART5_U5STA.setUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART5_U5STA.clearUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART5_U5STA.setUTXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART5_U5STA.getUTXINV : TBits_1; inline;
- begin
- getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART5_U5STA.setUTXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART5_U5STA.getUTXISEL : TBits_2; inline;
- begin
- getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART5_U5STA.setADDR(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
- end;
- function TUART5_U5STA.getADDR : TBits_8; inline;
- begin
- getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
- end;
- procedure TUART5_U5STA.setADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TUART5_U5STA.clearADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TUART5_U5STA.setADM_EN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TUART5_U5STA.getADM_EN : TBits_1; inline;
- begin
- getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TUART5_U5STA.setURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART5_U5STA.clearURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART5_U5STA.setURXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART5_U5STA.getURXISEL0 : TBits_1; inline;
- begin
- getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART5_U5STA.setURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART5_U5STA.clearURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART5_U5STA.setURXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART5_U5STA.getURXISEL1 : TBits_1; inline;
- begin
- getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART5_U5STA.setUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TUART5_U5STA.clearUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TUART5_U5STA.setUTXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TUART5_U5STA.getUTXISEL0 : TBits_1; inline;
- begin
- getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TUART5_U5STA.setUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART5_U5STA.clearUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART5_U5STA.setUTXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART5_U5STA.getUTXISEL1 : TBits_1; inline;
- begin
- getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART5_U5STA.setUTXSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART5_U5STA.getUTXSEL : TBits_2; inline;
- begin
- getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART5_U5STA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART5_U5STA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUART5_UabSTA.setURXDA; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUART5_UabSTA.clearURXDA; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUART5_UabSTA.setURXDA(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUART5_UabSTA.getURXDA : TBits_1; inline;
- begin
- getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUART5_UabSTA.setOERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUART5_UabSTA.clearOERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUART5_UabSTA.setOERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUART5_UabSTA.getOERR : TBits_1; inline;
- begin
- getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUART5_UabSTA.setFERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUART5_UabSTA.clearFERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUART5_UabSTA.setFERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUART5_UabSTA.getFERR : TBits_1; inline;
- begin
- getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUART5_UabSTA.setPERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUART5_UabSTA.clearPERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUART5_UabSTA.setPERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUART5_UabSTA.getPERR : TBits_1; inline;
- begin
- getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUART5_UabSTA.setRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUART5_UabSTA.clearRIDLE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUART5_UabSTA.setRIDLE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUART5_UabSTA.getRIDLE : TBits_1; inline;
- begin
- getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUART5_UabSTA.setADDEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUART5_UabSTA.clearADDEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUART5_UabSTA.setADDEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUART5_UabSTA.getADDEN : TBits_1; inline;
- begin
- getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUART5_UabSTA.setURXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
- end;
- function TUART5_UabSTA.getURXISEL : TBits_2; inline;
- begin
- getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
- end;
- procedure TUART5_UabSTA.setTRMT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TUART5_UabSTA.clearTRMT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TUART5_UabSTA.setTRMT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TUART5_UabSTA.getTRMT : TBits_1; inline;
- begin
- getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TUART5_UabSTA.setUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUART5_UabSTA.clearUTXBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUART5_UabSTA.setUTXBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUART5_UabSTA.getUTXBF : TBits_1; inline;
- begin
- getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUART5_UabSTA.setUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TUART5_UabSTA.clearUTXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TUART5_UabSTA.setUTXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TUART5_UabSTA.getUTXEN : TBits_1; inline;
- begin
- getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TUART5_UabSTA.setUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TUART5_UabSTA.clearUTXBRK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TUART5_UabSTA.setUTXBRK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TUART5_UabSTA.getUTXBRK : TBits_1; inline;
- begin
- getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TUART5_UabSTA.setURXEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TUART5_UabSTA.clearURXEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TUART5_UabSTA.setURXEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TUART5_UabSTA.getURXEN : TBits_1; inline;
- begin
- getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TUART5_UabSTA.setUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TUART5_UabSTA.clearUTXINV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TUART5_UabSTA.setUTXINV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TUART5_UabSTA.getUTXINV : TBits_1; inline;
- begin
- getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TUART5_UabSTA.setUTXISEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART5_UabSTA.getUTXISEL : TBits_2; inline;
- begin
- getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART5_UabSTA.setADDR(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
- end;
- function TUART5_UabSTA.getADDR : TBits_8; inline;
- begin
- getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
- end;
- procedure TUART5_UabSTA.setADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TUART5_UabSTA.clearADM_EN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TUART5_UabSTA.setADM_EN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TUART5_UabSTA.getADM_EN : TBits_1; inline;
- begin
- getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TUART5_UabSTA.setURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUART5_UabSTA.clearURXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUART5_UabSTA.setURXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUART5_UabSTA.getURXISEL0 : TBits_1; inline;
- begin
- getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUART5_UabSTA.setURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUART5_UabSTA.clearURXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUART5_UabSTA.setURXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUART5_UabSTA.getURXISEL1 : TBits_1; inline;
- begin
- getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUART5_UabSTA.setUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TUART5_UabSTA.clearUTXISEL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TUART5_UabSTA.setUTXISEL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TUART5_UabSTA.getUTXISEL0 : TBits_1; inline;
- begin
- getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TUART5_UabSTA.setUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUART5_UabSTA.clearUTXISEL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUART5_UabSTA.setUTXISEL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUART5_UabSTA.getUTXISEL1 : TBits_1; inline;
- begin
- getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUART5_UabSTA.setUTXSEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TUART5_UabSTA.getUTXSEL : TBits_2; inline;
- begin
- getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TUART5_UabSTA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUART5_UabSTA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPMP_PMCON.setRDSP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPMP_PMCON.clearRDSP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPMP_PMCON.setRDSP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPMP_PMCON.getRDSP : TBits_1; inline;
- begin
- getRDSP := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPMP_PMCON.setWRSP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPMP_PMCON.clearWRSP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPMP_PMCON.setWRSP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPMP_PMCON.getWRSP : TBits_1; inline;
- begin
- getWRSP := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPMP_PMCON.setCS1P; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPMP_PMCON.clearCS1P; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPMP_PMCON.setCS1P(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPMP_PMCON.getCS1P : TBits_1; inline;
- begin
- getCS1P := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPMP_PMCON.setCS2P; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPMP_PMCON.clearCS2P; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPMP_PMCON.setCS2P(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPMP_PMCON.getCS2P : TBits_1; inline;
- begin
- getCS2P := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPMP_PMCON.setALP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPMP_PMCON.clearALP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPMP_PMCON.setALP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPMP_PMCON.getALP : TBits_1; inline;
- begin
- getALP := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPMP_PMCON.setCSF(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
- end;
- function TPMP_PMCON.getCSF : TBits_2; inline;
- begin
- getCSF := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
- end;
- procedure TPMP_PMCON.setPTRDEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPMP_PMCON.clearPTRDEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPMP_PMCON.setPTRDEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPMP_PMCON.getPTRDEN : TBits_1; inline;
- begin
- getPTRDEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPMP_PMCON.setPTWREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPMP_PMCON.clearPTWREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPMP_PMCON.setPTWREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPMP_PMCON.getPTWREN : TBits_1; inline;
- begin
- getPTWREN := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPMP_PMCON.setPMPTTL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPMP_PMCON.clearPMPTTL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPMP_PMCON.setPMPTTL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPMP_PMCON.getPMPTTL : TBits_1; inline;
- begin
- getPMPTTL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPMP_PMCON.setADRMUX(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE7FF or ( thebits shl 11 );
- end;
- function TPMP_PMCON.getADRMUX : TBits_2; inline;
- begin
- getADRMUX := (pTDefRegMap(@Self)^.val and $00001800) shr 11;
- end;
- procedure TPMP_PMCON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPMP_PMCON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPMP_PMCON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPMP_PMCON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPMP_PMCON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPMP_PMCON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPMP_PMCON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPMP_PMCON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPMP_PMCON.setCSF0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPMP_PMCON.clearCSF0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPMP_PMCON.setCSF0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPMP_PMCON.getCSF0 : TBits_1; inline;
- begin
- getCSF0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPMP_PMCON.setCSF1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPMP_PMCON.clearCSF1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPMP_PMCON.setCSF1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPMP_PMCON.getCSF1 : TBits_1; inline;
- begin
- getCSF1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPMP_PMCON.setADRMUX0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPMP_PMCON.clearADRMUX0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPMP_PMCON.setADRMUX0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPMP_PMCON.getADRMUX0 : TBits_1; inline;
- begin
- getADRMUX0 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPMP_PMCON.setADRMUX1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPMP_PMCON.clearADRMUX1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPMP_PMCON.setADRMUX1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPMP_PMCON.getADRMUX1 : TBits_1; inline;
- begin
- getADRMUX1 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPMP_PMCON.setPSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPMP_PMCON.clearPSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPMP_PMCON.setPSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPMP_PMCON.getPSIDL : TBits_1; inline;
- begin
- getPSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPMP_PMCON.setPMPEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPMP_PMCON.clearPMPEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPMP_PMCON.setPMPEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPMP_PMCON.getPMPEN : TBits_1; inline;
- begin
- getPMPEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPMP_PMCON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPMP_PMCON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPMP_PMMODE.setWAITE(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TPMP_PMMODE.getWAITE : TBits_2; inline;
- begin
- getWAITE := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TPMP_PMMODE.setWAITM(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC3 or ( thebits shl 2 );
- end;
- function TPMP_PMMODE.getWAITM : TBits_4; inline;
- begin
- getWAITM := (pTDefRegMap(@Self)^.val and $0000003C) shr 2;
- end;
- procedure TPMP_PMMODE.setWAITB(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
- end;
- function TPMP_PMMODE.getWAITB : TBits_2; inline;
- begin
- getWAITB := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
- end;
- procedure TPMP_PMMODE.setMODE(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TPMP_PMMODE.getMODE : TBits_2; inline;
- begin
- getMODE := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TPMP_PMMODE.setMODE16; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPMP_PMMODE.clearMODE16; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPMP_PMMODE.setMODE16(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPMP_PMMODE.getMODE16 : TBits_1; inline;
- begin
- getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPMP_PMMODE.setINCM(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE7FF or ( thebits shl 11 );
- end;
- function TPMP_PMMODE.getINCM : TBits_2; inline;
- begin
- getINCM := (pTDefRegMap(@Self)^.val and $00001800) shr 11;
- end;
- procedure TPMP_PMMODE.setIRQM(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
- end;
- function TPMP_PMMODE.getIRQM : TBits_2; inline;
- begin
- getIRQM := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
- end;
- procedure TPMP_PMMODE.setBUSY; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPMP_PMMODE.clearBUSY; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPMP_PMMODE.setBUSY(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPMP_PMMODE.getBUSY : TBits_1; inline;
- begin
- getBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPMP_PMMODE.setWAITE0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPMP_PMMODE.clearWAITE0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPMP_PMMODE.setWAITE0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPMP_PMMODE.getWAITE0 : TBits_1; inline;
- begin
- getWAITE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPMP_PMMODE.setWAITE1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPMP_PMMODE.clearWAITE1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPMP_PMMODE.setWAITE1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPMP_PMMODE.getWAITE1 : TBits_1; inline;
- begin
- getWAITE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPMP_PMMODE.setWAITM0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPMP_PMMODE.clearWAITM0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPMP_PMMODE.setWAITM0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPMP_PMMODE.getWAITM0 : TBits_1; inline;
- begin
- getWAITM0 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPMP_PMMODE.setWAITM1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPMP_PMMODE.clearWAITM1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPMP_PMMODE.setWAITM1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPMP_PMMODE.getWAITM1 : TBits_1; inline;
- begin
- getWAITM1 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPMP_PMMODE.setWAITM2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPMP_PMMODE.clearWAITM2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPMP_PMMODE.setWAITM2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPMP_PMMODE.getWAITM2 : TBits_1; inline;
- begin
- getWAITM2 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPMP_PMMODE.setWAITM3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPMP_PMMODE.clearWAITM3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPMP_PMMODE.setWAITM3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPMP_PMMODE.getWAITM3 : TBits_1; inline;
- begin
- getWAITM3 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPMP_PMMODE.setWAITB0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPMP_PMMODE.clearWAITB0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPMP_PMMODE.setWAITB0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPMP_PMMODE.getWAITB0 : TBits_1; inline;
- begin
- getWAITB0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPMP_PMMODE.setWAITB1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPMP_PMMODE.clearWAITB1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPMP_PMMODE.setWAITB1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPMP_PMMODE.getWAITB1 : TBits_1; inline;
- begin
- getWAITB1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPMP_PMMODE.setMODE0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPMP_PMMODE.clearMODE0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPMP_PMMODE.setMODE0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPMP_PMMODE.getMODE0 : TBits_1; inline;
- begin
- getMODE0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPMP_PMMODE.setMODE1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPMP_PMMODE.clearMODE1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPMP_PMMODE.setMODE1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPMP_PMMODE.getMODE1 : TBits_1; inline;
- begin
- getMODE1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPMP_PMMODE.setINCM0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPMP_PMMODE.clearINCM0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPMP_PMMODE.setINCM0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPMP_PMMODE.getINCM0 : TBits_1; inline;
- begin
- getINCM0 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPMP_PMMODE.setINCM1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPMP_PMMODE.clearINCM1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPMP_PMMODE.setINCM1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPMP_PMMODE.getINCM1 : TBits_1; inline;
- begin
- getINCM1 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPMP_PMMODE.setIRQM0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPMP_PMMODE.clearIRQM0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPMP_PMMODE.setIRQM0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPMP_PMMODE.getIRQM0 : TBits_1; inline;
- begin
- getIRQM0 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPMP_PMMODE.setIRQM1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPMP_PMMODE.clearIRQM1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPMP_PMMODE.setIRQM1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPMP_PMMODE.getIRQM1 : TBits_1; inline;
- begin
- getIRQM1 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPMP_PMMODE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPMP_PMMODE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPMP_PMADDR.setADDR(thebits : TBits_14); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFC000 or ( thebits shl 0 );
- end;
- function TPMP_PMADDR.getADDR : TBits_14; inline;
- begin
- getADDR := (pTDefRegMap(@Self)^.val and $00003FFF) shr 0;
- end;
- procedure TPMP_PMADDR.setCS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TPMP_PMADDR.getCS : TBits_2; inline;
- begin
- getCS := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TPMP_PMADDR.setPADDR(thebits : TBits_14); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFC000 or ( thebits shl 0 );
- end;
- function TPMP_PMADDR.getPADDR : TBits_14; inline;
- begin
- getPADDR := (pTDefRegMap(@Self)^.val and $00003FFF) shr 0;
- end;
- procedure TPMP_PMADDR.setCS1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPMP_PMADDR.clearCS1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPMP_PMADDR.setCS1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPMP_PMADDR.getCS1 : TBits_1; inline;
- begin
- getCS1 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPMP_PMADDR.setCS2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPMP_PMADDR.clearCS2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPMP_PMADDR.setCS2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPMP_PMADDR.getCS2 : TBits_1; inline;
- begin
- getCS2 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPMP_PMADDR.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPMP_PMADDR.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPMP_PMDOUT.setDATAOUT(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPMP_PMDOUT.getDATAOUT : TBits_32; inline;
- begin
- getDATAOUT := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPMP_PMDOUT.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPMP_PMDOUT.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPMP_PMDIN.setDATAIN(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPMP_PMDIN.getDATAIN : TBits_32; inline;
- begin
- getDATAIN := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPMP_PMDIN.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPMP_PMDIN.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPMP_PMAEN.setPTEN(thebits : TBits_16); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
- end;
- function TPMP_PMAEN.getPTEN : TBits_16; inline;
- begin
- getPTEN := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
- end;
- procedure TPMP_PMAEN.setPTEN0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPMP_PMAEN.clearPTEN0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPMP_PMAEN.setPTEN0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPMP_PMAEN.getPTEN0 : TBits_1; inline;
- begin
- getPTEN0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPMP_PMAEN.setPTEN1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPMP_PMAEN.clearPTEN1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPMP_PMAEN.setPTEN1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPMP_PMAEN.getPTEN1 : TBits_1; inline;
- begin
- getPTEN1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPMP_PMAEN.setPTEN2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPMP_PMAEN.clearPTEN2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPMP_PMAEN.setPTEN2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPMP_PMAEN.getPTEN2 : TBits_1; inline;
- begin
- getPTEN2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPMP_PMAEN.setPTEN3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPMP_PMAEN.clearPTEN3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPMP_PMAEN.setPTEN3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPMP_PMAEN.getPTEN3 : TBits_1; inline;
- begin
- getPTEN3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPMP_PMAEN.setPTEN4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPMP_PMAEN.clearPTEN4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPMP_PMAEN.setPTEN4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPMP_PMAEN.getPTEN4 : TBits_1; inline;
- begin
- getPTEN4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPMP_PMAEN.setPTEN5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPMP_PMAEN.clearPTEN5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPMP_PMAEN.setPTEN5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPMP_PMAEN.getPTEN5 : TBits_1; inline;
- begin
- getPTEN5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPMP_PMAEN.setPTEN6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPMP_PMAEN.clearPTEN6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPMP_PMAEN.setPTEN6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPMP_PMAEN.getPTEN6 : TBits_1; inline;
- begin
- getPTEN6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPMP_PMAEN.setPTEN7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPMP_PMAEN.clearPTEN7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPMP_PMAEN.setPTEN7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPMP_PMAEN.getPTEN7 : TBits_1; inline;
- begin
- getPTEN7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPMP_PMAEN.setPTEN8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPMP_PMAEN.clearPTEN8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPMP_PMAEN.setPTEN8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPMP_PMAEN.getPTEN8 : TBits_1; inline;
- begin
- getPTEN8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPMP_PMAEN.setPTEN9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPMP_PMAEN.clearPTEN9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPMP_PMAEN.setPTEN9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPMP_PMAEN.getPTEN9 : TBits_1; inline;
- begin
- getPTEN9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPMP_PMAEN.setPTEN10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPMP_PMAEN.clearPTEN10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPMP_PMAEN.setPTEN10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPMP_PMAEN.getPTEN10 : TBits_1; inline;
- begin
- getPTEN10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPMP_PMAEN.setPTEN11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPMP_PMAEN.clearPTEN11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPMP_PMAEN.setPTEN11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPMP_PMAEN.getPTEN11 : TBits_1; inline;
- begin
- getPTEN11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPMP_PMAEN.setPTEN12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPMP_PMAEN.clearPTEN12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPMP_PMAEN.setPTEN12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPMP_PMAEN.getPTEN12 : TBits_1; inline;
- begin
- getPTEN12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPMP_PMAEN.setPTEN13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPMP_PMAEN.clearPTEN13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPMP_PMAEN.setPTEN13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPMP_PMAEN.getPTEN13 : TBits_1; inline;
- begin
- getPTEN13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPMP_PMAEN.setPTEN14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPMP_PMAEN.clearPTEN14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPMP_PMAEN.setPTEN14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPMP_PMAEN.getPTEN14 : TBits_1; inline;
- begin
- getPTEN14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPMP_PMAEN.setPTEN15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPMP_PMAEN.clearPTEN15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPMP_PMAEN.setPTEN15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPMP_PMAEN.getPTEN15 : TBits_1; inline;
- begin
- getPTEN15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPMP_PMAEN.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPMP_PMAEN.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPMP_PMSTAT.setOB0E; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPMP_PMSTAT.clearOB0E; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPMP_PMSTAT.setOB0E(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPMP_PMSTAT.getOB0E : TBits_1; inline;
- begin
- getOB0E := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPMP_PMSTAT.setOB1E; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPMP_PMSTAT.clearOB1E; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPMP_PMSTAT.setOB1E(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPMP_PMSTAT.getOB1E : TBits_1; inline;
- begin
- getOB1E := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPMP_PMSTAT.setOB2E; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPMP_PMSTAT.clearOB2E; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPMP_PMSTAT.setOB2E(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPMP_PMSTAT.getOB2E : TBits_1; inline;
- begin
- getOB2E := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPMP_PMSTAT.setOB3E; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPMP_PMSTAT.clearOB3E; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPMP_PMSTAT.setOB3E(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPMP_PMSTAT.getOB3E : TBits_1; inline;
- begin
- getOB3E := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPMP_PMSTAT.setOBUF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPMP_PMSTAT.clearOBUF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPMP_PMSTAT.setOBUF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPMP_PMSTAT.getOBUF : TBits_1; inline;
- begin
- getOBUF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPMP_PMSTAT.setOBE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPMP_PMSTAT.clearOBE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPMP_PMSTAT.setOBE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPMP_PMSTAT.getOBE : TBits_1; inline;
- begin
- getOBE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPMP_PMSTAT.setIB0F; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPMP_PMSTAT.clearIB0F; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPMP_PMSTAT.setIB0F(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPMP_PMSTAT.getIB0F : TBits_1; inline;
- begin
- getIB0F := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPMP_PMSTAT.setIB1F; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPMP_PMSTAT.clearIB1F; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPMP_PMSTAT.setIB1F(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPMP_PMSTAT.getIB1F : TBits_1; inline;
- begin
- getIB1F := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPMP_PMSTAT.setIB2F; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPMP_PMSTAT.clearIB2F; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPMP_PMSTAT.setIB2F(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPMP_PMSTAT.getIB2F : TBits_1; inline;
- begin
- getIB2F := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPMP_PMSTAT.setIB3F; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPMP_PMSTAT.clearIB3F; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPMP_PMSTAT.setIB3F(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPMP_PMSTAT.getIB3F : TBits_1; inline;
- begin
- getIB3F := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPMP_PMSTAT.setIBOV; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPMP_PMSTAT.clearIBOV; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPMP_PMSTAT.setIBOV(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPMP_PMSTAT.getIBOV : TBits_1; inline;
- begin
- getIBOV := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPMP_PMSTAT.setIBF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPMP_PMSTAT.clearIBF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPMP_PMSTAT.setIBF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPMP_PMSTAT.getIBF : TBits_1; inline;
- begin
- getIBF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPMP_PMSTAT.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPMP_PMSTAT.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TADC10_AD1CON1.setDONE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TADC10_AD1CON1.clearDONE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TADC10_AD1CON1.setDONE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TADC10_AD1CON1.getDONE : TBits_1; inline;
- begin
- getDONE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TADC10_AD1CON1.setSAMP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TADC10_AD1CON1.clearSAMP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TADC10_AD1CON1.setSAMP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TADC10_AD1CON1.getSAMP : TBits_1; inline;
- begin
- getSAMP := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TADC10_AD1CON1.setASAM; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TADC10_AD1CON1.clearASAM; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TADC10_AD1CON1.setASAM(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TADC10_AD1CON1.getASAM : TBits_1; inline;
- begin
- getASAM := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TADC10_AD1CON1.setCLRASAM; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TADC10_AD1CON1.clearCLRASAM; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TADC10_AD1CON1.setCLRASAM(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TADC10_AD1CON1.getCLRASAM : TBits_1; inline;
- begin
- getCLRASAM := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TADC10_AD1CON1.setSSRC(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF1F or ( thebits shl 5 );
- end;
- function TADC10_AD1CON1.getSSRC : TBits_3; inline;
- begin
- getSSRC := (pTDefRegMap(@Self)^.val and $000000E0) shr 5;
- end;
- procedure TADC10_AD1CON1.setFORM(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
- end;
- function TADC10_AD1CON1.getFORM : TBits_3; inline;
- begin
- getFORM := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
- end;
- procedure TADC10_AD1CON1.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TADC10_AD1CON1.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TADC10_AD1CON1.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TADC10_AD1CON1.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TADC10_AD1CON1.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TADC10_AD1CON1.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TADC10_AD1CON1.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TADC10_AD1CON1.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TADC10_AD1CON1.setSSRC0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TADC10_AD1CON1.clearSSRC0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TADC10_AD1CON1.setSSRC0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TADC10_AD1CON1.getSSRC0 : TBits_1; inline;
- begin
- getSSRC0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TADC10_AD1CON1.setSSRC1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TADC10_AD1CON1.clearSSRC1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TADC10_AD1CON1.setSSRC1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TADC10_AD1CON1.getSSRC1 : TBits_1; inline;
- begin
- getSSRC1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TADC10_AD1CON1.setSSRC2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TADC10_AD1CON1.clearSSRC2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TADC10_AD1CON1.setSSRC2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TADC10_AD1CON1.getSSRC2 : TBits_1; inline;
- begin
- getSSRC2 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TADC10_AD1CON1.setFORM0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TADC10_AD1CON1.clearFORM0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TADC10_AD1CON1.setFORM0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TADC10_AD1CON1.getFORM0 : TBits_1; inline;
- begin
- getFORM0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TADC10_AD1CON1.setFORM1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TADC10_AD1CON1.clearFORM1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TADC10_AD1CON1.setFORM1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TADC10_AD1CON1.getFORM1 : TBits_1; inline;
- begin
- getFORM1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TADC10_AD1CON1.setFORM2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TADC10_AD1CON1.clearFORM2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TADC10_AD1CON1.setFORM2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TADC10_AD1CON1.getFORM2 : TBits_1; inline;
- begin
- getFORM2 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TADC10_AD1CON1.setADSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TADC10_AD1CON1.clearADSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TADC10_AD1CON1.setADSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TADC10_AD1CON1.getADSIDL : TBits_1; inline;
- begin
- getADSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TADC10_AD1CON1.setADON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TADC10_AD1CON1.clearADON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TADC10_AD1CON1.setADON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TADC10_AD1CON1.getADON : TBits_1; inline;
- begin
- getADON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TADC10_AD1CON1.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TADC10_AD1CON1.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TADC10_AD1CON2.setALTS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TADC10_AD1CON2.clearALTS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TADC10_AD1CON2.setALTS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TADC10_AD1CON2.getALTS : TBits_1; inline;
- begin
- getALTS := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TADC10_AD1CON2.setBUFM; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TADC10_AD1CON2.clearBUFM; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TADC10_AD1CON2.setBUFM(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TADC10_AD1CON2.getBUFM : TBits_1; inline;
- begin
- getBUFM := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TADC10_AD1CON2.setSMPI(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC3 or ( thebits shl 2 );
- end;
- function TADC10_AD1CON2.getSMPI : TBits_4; inline;
- begin
- getSMPI := (pTDefRegMap(@Self)^.val and $0000003C) shr 2;
- end;
- procedure TADC10_AD1CON2.setBUFS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TADC10_AD1CON2.clearBUFS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TADC10_AD1CON2.setBUFS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TADC10_AD1CON2.getBUFS : TBits_1; inline;
- begin
- getBUFS := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TADC10_AD1CON2.setCSCNA; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TADC10_AD1CON2.clearCSCNA; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TADC10_AD1CON2.setCSCNA(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TADC10_AD1CON2.getCSCNA : TBits_1; inline;
- begin
- getCSCNA := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TADC10_AD1CON2.setOFFCAL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TADC10_AD1CON2.clearOFFCAL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TADC10_AD1CON2.setOFFCAL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TADC10_AD1CON2.getOFFCAL : TBits_1; inline;
- begin
- getOFFCAL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TADC10_AD1CON2.setVCFG(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF1FFF or ( thebits shl 13 );
- end;
- function TADC10_AD1CON2.getVCFG : TBits_3; inline;
- begin
- getVCFG := (pTDefRegMap(@Self)^.val and $0000E000) shr 13;
- end;
- procedure TADC10_AD1CON2.setSMPI0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TADC10_AD1CON2.clearSMPI0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TADC10_AD1CON2.setSMPI0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TADC10_AD1CON2.getSMPI0 : TBits_1; inline;
- begin
- getSMPI0 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TADC10_AD1CON2.setSMPI1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TADC10_AD1CON2.clearSMPI1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TADC10_AD1CON2.setSMPI1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TADC10_AD1CON2.getSMPI1 : TBits_1; inline;
- begin
- getSMPI1 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TADC10_AD1CON2.setSMPI2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TADC10_AD1CON2.clearSMPI2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TADC10_AD1CON2.setSMPI2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TADC10_AD1CON2.getSMPI2 : TBits_1; inline;
- begin
- getSMPI2 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TADC10_AD1CON2.setSMPI3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TADC10_AD1CON2.clearSMPI3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TADC10_AD1CON2.setSMPI3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TADC10_AD1CON2.getSMPI3 : TBits_1; inline;
- begin
- getSMPI3 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TADC10_AD1CON2.setVCFG0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TADC10_AD1CON2.clearVCFG0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TADC10_AD1CON2.setVCFG0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TADC10_AD1CON2.getVCFG0 : TBits_1; inline;
- begin
- getVCFG0 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TADC10_AD1CON2.setVCFG1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TADC10_AD1CON2.clearVCFG1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TADC10_AD1CON2.setVCFG1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TADC10_AD1CON2.getVCFG1 : TBits_1; inline;
- begin
- getVCFG1 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TADC10_AD1CON2.setVCFG2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TADC10_AD1CON2.clearVCFG2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TADC10_AD1CON2.setVCFG2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TADC10_AD1CON2.getVCFG2 : TBits_1; inline;
- begin
- getVCFG2 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TADC10_AD1CON2.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TADC10_AD1CON2.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TADC10_AD1CON3.setADCS(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
- end;
- function TADC10_AD1CON3.getADCS : TBits_8; inline;
- begin
- getADCS := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
- end;
- procedure TADC10_AD1CON3.setSAMC(thebits : TBits_5); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
- end;
- function TADC10_AD1CON3.getSAMC : TBits_5; inline;
- begin
- getSAMC := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
- end;
- procedure TADC10_AD1CON3.setADRC; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TADC10_AD1CON3.clearADRC; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TADC10_AD1CON3.setADRC(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TADC10_AD1CON3.getADRC : TBits_1; inline;
- begin
- getADRC := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TADC10_AD1CON3.setADCS0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TADC10_AD1CON3.clearADCS0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TADC10_AD1CON3.setADCS0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TADC10_AD1CON3.getADCS0 : TBits_1; inline;
- begin
- getADCS0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TADC10_AD1CON3.setADCS1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TADC10_AD1CON3.clearADCS1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TADC10_AD1CON3.setADCS1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TADC10_AD1CON3.getADCS1 : TBits_1; inline;
- begin
- getADCS1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TADC10_AD1CON3.setADCS2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TADC10_AD1CON3.clearADCS2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TADC10_AD1CON3.setADCS2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TADC10_AD1CON3.getADCS2 : TBits_1; inline;
- begin
- getADCS2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TADC10_AD1CON3.setADCS3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TADC10_AD1CON3.clearADCS3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TADC10_AD1CON3.setADCS3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TADC10_AD1CON3.getADCS3 : TBits_1; inline;
- begin
- getADCS3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TADC10_AD1CON3.setADCS4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TADC10_AD1CON3.clearADCS4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TADC10_AD1CON3.setADCS4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TADC10_AD1CON3.getADCS4 : TBits_1; inline;
- begin
- getADCS4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TADC10_AD1CON3.setADCS5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TADC10_AD1CON3.clearADCS5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TADC10_AD1CON3.setADCS5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TADC10_AD1CON3.getADCS5 : TBits_1; inline;
- begin
- getADCS5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TADC10_AD1CON3.setADCS6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TADC10_AD1CON3.clearADCS6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TADC10_AD1CON3.setADCS6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TADC10_AD1CON3.getADCS6 : TBits_1; inline;
- begin
- getADCS6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TADC10_AD1CON3.setADCS7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TADC10_AD1CON3.clearADCS7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TADC10_AD1CON3.setADCS7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TADC10_AD1CON3.getADCS7 : TBits_1; inline;
- begin
- getADCS7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TADC10_AD1CON3.setSAMC0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TADC10_AD1CON3.clearSAMC0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TADC10_AD1CON3.setSAMC0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TADC10_AD1CON3.getSAMC0 : TBits_1; inline;
- begin
- getSAMC0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TADC10_AD1CON3.setSAMC1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TADC10_AD1CON3.clearSAMC1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TADC10_AD1CON3.setSAMC1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TADC10_AD1CON3.getSAMC1 : TBits_1; inline;
- begin
- getSAMC1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TADC10_AD1CON3.setSAMC2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TADC10_AD1CON3.clearSAMC2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TADC10_AD1CON3.setSAMC2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TADC10_AD1CON3.getSAMC2 : TBits_1; inline;
- begin
- getSAMC2 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TADC10_AD1CON3.setSAMC3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TADC10_AD1CON3.clearSAMC3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TADC10_AD1CON3.setSAMC3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TADC10_AD1CON3.getSAMC3 : TBits_1; inline;
- begin
- getSAMC3 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TADC10_AD1CON3.setSAMC4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TADC10_AD1CON3.clearSAMC4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TADC10_AD1CON3.setSAMC4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TADC10_AD1CON3.getSAMC4 : TBits_1; inline;
- begin
- getSAMC4 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TADC10_AD1CON3.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TADC10_AD1CON3.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TADC10_AD1CHS.setCH0SA(thebits : TBits_5); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
- end;
- function TADC10_AD1CHS.getCH0SA : TBits_5; inline;
- begin
- getCH0SA := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
- end;
- procedure TADC10_AD1CHS.setCH0NA; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- procedure TADC10_AD1CHS.clearCH0NA; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00800000;
- end;
- procedure TADC10_AD1CHS.setCH0NA(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00800000
- else
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- function TADC10_AD1CHS.getCH0NA : TBits_1; inline;
- begin
- getCH0NA := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
- end;
- procedure TADC10_AD1CHS.setCH0SB(thebits : TBits_5); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
- end;
- function TADC10_AD1CHS.getCH0SB : TBits_5; inline;
- begin
- getCH0SB := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
- end;
- procedure TADC10_AD1CHS.setCH0NB; inline;
- begin
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- procedure TADC10_AD1CHS.clearCH0NB; inline;
- begin
- pTDefRegMap(@Self)^.clr := $80000000;
- end;
- procedure TADC10_AD1CHS.setCH0NB(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $80000000
- else
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- function TADC10_AD1CHS.getCH0NB : TBits_1; inline;
- begin
- getCH0NB := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
- end;
- procedure TADC10_AD1CHS.setCH0SA0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TADC10_AD1CHS.clearCH0SA0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TADC10_AD1CHS.setCH0SA0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TADC10_AD1CHS.getCH0SA0 : TBits_1; inline;
- begin
- getCH0SA0 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TADC10_AD1CHS.setCH0SA1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- procedure TADC10_AD1CHS.clearCH0SA1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00020000;
- end;
- procedure TADC10_AD1CHS.setCH0SA1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00020000
- else
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- function TADC10_AD1CHS.getCH0SA1 : TBits_1; inline;
- begin
- getCH0SA1 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
- end;
- procedure TADC10_AD1CHS.setCH0SA2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- procedure TADC10_AD1CHS.clearCH0SA2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00040000;
- end;
- procedure TADC10_AD1CHS.setCH0SA2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00040000
- else
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- function TADC10_AD1CHS.getCH0SA2 : TBits_1; inline;
- begin
- getCH0SA2 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
- end;
- procedure TADC10_AD1CHS.setCH0SA3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- procedure TADC10_AD1CHS.clearCH0SA3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00080000;
- end;
- procedure TADC10_AD1CHS.setCH0SA3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00080000
- else
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- function TADC10_AD1CHS.getCH0SA3 : TBits_1; inline;
- begin
- getCH0SA3 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
- end;
- procedure TADC10_AD1CHS.setCH0SA4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- procedure TADC10_AD1CHS.clearCH0SA4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00100000;
- end;
- procedure TADC10_AD1CHS.setCH0SA4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00100000
- else
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- function TADC10_AD1CHS.getCH0SA4 : TBits_1; inline;
- begin
- getCH0SA4 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
- end;
- procedure TADC10_AD1CHS.setCH0SB0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TADC10_AD1CHS.clearCH0SB0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TADC10_AD1CHS.setCH0SB0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TADC10_AD1CHS.getCH0SB0 : TBits_1; inline;
- begin
- getCH0SB0 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TADC10_AD1CHS.setCH0SB1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- procedure TADC10_AD1CHS.clearCH0SB1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $02000000;
- end;
- procedure TADC10_AD1CHS.setCH0SB1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $02000000
- else
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- function TADC10_AD1CHS.getCH0SB1 : TBits_1; inline;
- begin
- getCH0SB1 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
- end;
- procedure TADC10_AD1CHS.setCH0SB2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- procedure TADC10_AD1CHS.clearCH0SB2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $04000000;
- end;
- procedure TADC10_AD1CHS.setCH0SB2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $04000000
- else
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- function TADC10_AD1CHS.getCH0SB2 : TBits_1; inline;
- begin
- getCH0SB2 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
- end;
- procedure TADC10_AD1CHS.setCH0SB3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- procedure TADC10_AD1CHS.clearCH0SB3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $08000000;
- end;
- procedure TADC10_AD1CHS.setCH0SB3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $08000000
- else
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- function TADC10_AD1CHS.getCH0SB3 : TBits_1; inline;
- begin
- getCH0SB3 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
- end;
- procedure TADC10_AD1CHS.setCH0SB4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- procedure TADC10_AD1CHS.clearCH0SB4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $10000000;
- end;
- procedure TADC10_AD1CHS.setCH0SB4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $10000000
- else
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- function TADC10_AD1CHS.getCH0SB4 : TBits_1; inline;
- begin
- getCH0SB4 := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
- end;
- procedure TADC10_AD1CHS.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TADC10_AD1CHS.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TADC10_AD1CSSL.setCSSL(thebits : TBits_31); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $80000000 or ( thebits shl 0 );
- end;
- function TADC10_AD1CSSL.getCSSL : TBits_31; inline;
- begin
- getCSSL := (pTDefRegMap(@Self)^.val and $7FFFFFFF) shr 0;
- end;
- procedure TADC10_AD1CSSL.setCSSL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TADC10_AD1CSSL.clearCSSL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TADC10_AD1CSSL.setCSSL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TADC10_AD1CSSL.getCSSL0 : TBits_1; inline;
- begin
- getCSSL0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TADC10_AD1CSSL.setCSSL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TADC10_AD1CSSL.clearCSSL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TADC10_AD1CSSL.setCSSL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TADC10_AD1CSSL.getCSSL1 : TBits_1; inline;
- begin
- getCSSL1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TADC10_AD1CSSL.setCSSL2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TADC10_AD1CSSL.clearCSSL2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TADC10_AD1CSSL.setCSSL2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TADC10_AD1CSSL.getCSSL2 : TBits_1; inline;
- begin
- getCSSL2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TADC10_AD1CSSL.setCSSL3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TADC10_AD1CSSL.clearCSSL3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TADC10_AD1CSSL.setCSSL3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TADC10_AD1CSSL.getCSSL3 : TBits_1; inline;
- begin
- getCSSL3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TADC10_AD1CSSL.setCSSL4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TADC10_AD1CSSL.clearCSSL4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TADC10_AD1CSSL.setCSSL4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TADC10_AD1CSSL.getCSSL4 : TBits_1; inline;
- begin
- getCSSL4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TADC10_AD1CSSL.setCSSL5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TADC10_AD1CSSL.clearCSSL5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TADC10_AD1CSSL.setCSSL5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TADC10_AD1CSSL.getCSSL5 : TBits_1; inline;
- begin
- getCSSL5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TADC10_AD1CSSL.setCSSL6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TADC10_AD1CSSL.clearCSSL6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TADC10_AD1CSSL.setCSSL6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TADC10_AD1CSSL.getCSSL6 : TBits_1; inline;
- begin
- getCSSL6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TADC10_AD1CSSL.setCSSL7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TADC10_AD1CSSL.clearCSSL7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TADC10_AD1CSSL.setCSSL7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TADC10_AD1CSSL.getCSSL7 : TBits_1; inline;
- begin
- getCSSL7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TADC10_AD1CSSL.setCSSL8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TADC10_AD1CSSL.clearCSSL8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TADC10_AD1CSSL.setCSSL8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TADC10_AD1CSSL.getCSSL8 : TBits_1; inline;
- begin
- getCSSL8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TADC10_AD1CSSL.setCSSL9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TADC10_AD1CSSL.clearCSSL9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TADC10_AD1CSSL.setCSSL9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TADC10_AD1CSSL.getCSSL9 : TBits_1; inline;
- begin
- getCSSL9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TADC10_AD1CSSL.setCSSL10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TADC10_AD1CSSL.clearCSSL10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TADC10_AD1CSSL.setCSSL10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TADC10_AD1CSSL.getCSSL10 : TBits_1; inline;
- begin
- getCSSL10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TADC10_AD1CSSL.setCSSL11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TADC10_AD1CSSL.clearCSSL11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TADC10_AD1CSSL.setCSSL11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TADC10_AD1CSSL.getCSSL11 : TBits_1; inline;
- begin
- getCSSL11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TADC10_AD1CSSL.setCSSL12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TADC10_AD1CSSL.setCSSL12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TADC10_AD1CSSL.getCSSL12 : TBits_1; inline;
- begin
- getCSSL12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TADC10_AD1CSSL.setCSSL13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TADC10_AD1CSSL.setCSSL13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TADC10_AD1CSSL.getCSSL13 : TBits_1; inline;
- begin
- getCSSL13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TADC10_AD1CSSL.setCSSL14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TADC10_AD1CSSL.setCSSL14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TADC10_AD1CSSL.getCSSL14 : TBits_1; inline;
- begin
- getCSSL14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TADC10_AD1CSSL.setCSSL15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TADC10_AD1CSSL.setCSSL15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TADC10_AD1CSSL.getCSSL15 : TBits_1; inline;
- begin
- getCSSL15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TADC10_AD1CSSL.setCSSL16; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL16; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TADC10_AD1CSSL.setCSSL16(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TADC10_AD1CSSL.getCSSL16 : TBits_1; inline;
- begin
- getCSSL16 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TADC10_AD1CSSL.setCSSL17; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL17; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00020000;
- end;
- procedure TADC10_AD1CSSL.setCSSL17(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00020000
- else
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- function TADC10_AD1CSSL.getCSSL17 : TBits_1; inline;
- begin
- getCSSL17 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
- end;
- procedure TADC10_AD1CSSL.setCSSL18; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL18; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00040000;
- end;
- procedure TADC10_AD1CSSL.setCSSL18(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00040000
- else
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- function TADC10_AD1CSSL.getCSSL18 : TBits_1; inline;
- begin
- getCSSL18 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
- end;
- procedure TADC10_AD1CSSL.setCSSL19; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL19; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00080000;
- end;
- procedure TADC10_AD1CSSL.setCSSL19(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00080000
- else
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- function TADC10_AD1CSSL.getCSSL19 : TBits_1; inline;
- begin
- getCSSL19 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
- end;
- procedure TADC10_AD1CSSL.setCSSL20; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL20; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00100000;
- end;
- procedure TADC10_AD1CSSL.setCSSL20(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00100000
- else
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- function TADC10_AD1CSSL.getCSSL20 : TBits_1; inline;
- begin
- getCSSL20 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
- end;
- procedure TADC10_AD1CSSL.setCSSL21; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL21; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00200000;
- end;
- procedure TADC10_AD1CSSL.setCSSL21(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00200000
- else
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- function TADC10_AD1CSSL.getCSSL21 : TBits_1; inline;
- begin
- getCSSL21 := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
- end;
- procedure TADC10_AD1CSSL.setCSSL22; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL22; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00400000;
- end;
- procedure TADC10_AD1CSSL.setCSSL22(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00400000
- else
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- function TADC10_AD1CSSL.getCSSL22 : TBits_1; inline;
- begin
- getCSSL22 := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
- end;
- procedure TADC10_AD1CSSL.setCSSL23; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL23; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00800000;
- end;
- procedure TADC10_AD1CSSL.setCSSL23(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00800000
- else
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- function TADC10_AD1CSSL.getCSSL23 : TBits_1; inline;
- begin
- getCSSL23 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
- end;
- procedure TADC10_AD1CSSL.setCSSL24; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL24; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TADC10_AD1CSSL.setCSSL24(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TADC10_AD1CSSL.getCSSL24 : TBits_1; inline;
- begin
- getCSSL24 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TADC10_AD1CSSL.setCSSL25; inline;
- begin
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL25; inline;
- begin
- pTDefRegMap(@Self)^.clr := $02000000;
- end;
- procedure TADC10_AD1CSSL.setCSSL25(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $02000000
- else
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- function TADC10_AD1CSSL.getCSSL25 : TBits_1; inline;
- begin
- getCSSL25 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
- end;
- procedure TADC10_AD1CSSL.setCSSL26; inline;
- begin
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL26; inline;
- begin
- pTDefRegMap(@Self)^.clr := $04000000;
- end;
- procedure TADC10_AD1CSSL.setCSSL26(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $04000000
- else
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- function TADC10_AD1CSSL.getCSSL26 : TBits_1; inline;
- begin
- getCSSL26 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
- end;
- procedure TADC10_AD1CSSL.setCSSL27; inline;
- begin
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL27; inline;
- begin
- pTDefRegMap(@Self)^.clr := $08000000;
- end;
- procedure TADC10_AD1CSSL.setCSSL27(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $08000000
- else
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- function TADC10_AD1CSSL.getCSSL27 : TBits_1; inline;
- begin
- getCSSL27 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
- end;
- procedure TADC10_AD1CSSL.setCSSL28; inline;
- begin
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL28; inline;
- begin
- pTDefRegMap(@Self)^.clr := $10000000;
- end;
- procedure TADC10_AD1CSSL.setCSSL28(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $10000000
- else
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- function TADC10_AD1CSSL.getCSSL28 : TBits_1; inline;
- begin
- getCSSL28 := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
- end;
- procedure TADC10_AD1CSSL.setCSSL29; inline;
- begin
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL29; inline;
- begin
- pTDefRegMap(@Self)^.clr := $20000000;
- end;
- procedure TADC10_AD1CSSL.setCSSL29(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $20000000
- else
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- function TADC10_AD1CSSL.getCSSL29 : TBits_1; inline;
- begin
- getCSSL29 := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
- end;
- procedure TADC10_AD1CSSL.setCSSL30; inline;
- begin
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- procedure TADC10_AD1CSSL.clearCSSL30; inline;
- begin
- pTDefRegMap(@Self)^.clr := $40000000;
- end;
- procedure TADC10_AD1CSSL.setCSSL30(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $40000000
- else
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- function TADC10_AD1CSSL.getCSSL30 : TBits_1; inline;
- begin
- getCSSL30 := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
- end;
- procedure TADC10_AD1CSSL.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TADC10_AD1CSSL.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TCVR_CVRCON.setCVR(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
- end;
- function TCVR_CVRCON.getCVR : TBits_4; inline;
- begin
- getCVR := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
- end;
- procedure TCVR_CVRCON.setCVRSS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TCVR_CVRCON.clearCVRSS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TCVR_CVRCON.setCVRSS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TCVR_CVRCON.getCVRSS : TBits_1; inline;
- begin
- getCVRSS := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TCVR_CVRCON.setCVRR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TCVR_CVRCON.clearCVRR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TCVR_CVRCON.setCVRR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TCVR_CVRCON.getCVRR : TBits_1; inline;
- begin
- getCVRR := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TCVR_CVRCON.setCVROE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TCVR_CVRCON.clearCVROE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TCVR_CVRCON.setCVROE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TCVR_CVRCON.getCVROE : TBits_1; inline;
- begin
- getCVROE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TCVR_CVRCON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TCVR_CVRCON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TCVR_CVRCON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TCVR_CVRCON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TCVR_CVRCON.setCVR0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TCVR_CVRCON.clearCVR0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TCVR_CVRCON.setCVR0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TCVR_CVRCON.getCVR0 : TBits_1; inline;
- begin
- getCVR0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TCVR_CVRCON.setCVR1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TCVR_CVRCON.clearCVR1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TCVR_CVRCON.setCVR1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TCVR_CVRCON.getCVR1 : TBits_1; inline;
- begin
- getCVR1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TCVR_CVRCON.setCVR2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TCVR_CVRCON.clearCVR2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TCVR_CVRCON.setCVR2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TCVR_CVRCON.getCVR2 : TBits_1; inline;
- begin
- getCVR2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TCVR_CVRCON.setCVR3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TCVR_CVRCON.clearCVR3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TCVR_CVRCON.setCVR3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TCVR_CVRCON.getCVR3 : TBits_1; inline;
- begin
- getCVR3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TCVR_CVRCON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TCVR_CVRCON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TCMP_CM1CON.setCCH(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TCMP_CM1CON.getCCH : TBits_2; inline;
- begin
- getCCH := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TCMP_CM1CON.setCREF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TCMP_CM1CON.clearCREF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TCMP_CM1CON.setCREF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TCMP_CM1CON.getCREF : TBits_1; inline;
- begin
- getCREF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TCMP_CM1CON.setEVPOL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
- end;
- function TCMP_CM1CON.getEVPOL : TBits_2; inline;
- begin
- getEVPOL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
- end;
- procedure TCMP_CM1CON.setCOUT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TCMP_CM1CON.clearCOUT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TCMP_CM1CON.setCOUT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TCMP_CM1CON.getCOUT : TBits_1; inline;
- begin
- getCOUT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TCMP_CM1CON.setCPOL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TCMP_CM1CON.clearCPOL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TCMP_CM1CON.setCPOL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TCMP_CM1CON.getCPOL : TBits_1; inline;
- begin
- getCPOL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TCMP_CM1CON.setCOE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TCMP_CM1CON.clearCOE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TCMP_CM1CON.setCOE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TCMP_CM1CON.getCOE : TBits_1; inline;
- begin
- getCOE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TCMP_CM1CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TCMP_CM1CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TCMP_CM1CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TCMP_CM1CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TCMP_CM1CON.setCCH0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TCMP_CM1CON.clearCCH0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TCMP_CM1CON.setCCH0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TCMP_CM1CON.getCCH0 : TBits_1; inline;
- begin
- getCCH0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TCMP_CM1CON.setCCH1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TCMP_CM1CON.clearCCH1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TCMP_CM1CON.setCCH1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TCMP_CM1CON.getCCH1 : TBits_1; inline;
- begin
- getCCH1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TCMP_CM1CON.setEVPOL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TCMP_CM1CON.clearEVPOL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TCMP_CM1CON.setEVPOL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TCMP_CM1CON.getEVPOL0 : TBits_1; inline;
- begin
- getEVPOL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TCMP_CM1CON.setEVPOL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TCMP_CM1CON.clearEVPOL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TCMP_CM1CON.setEVPOL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TCMP_CM1CON.getEVPOL1 : TBits_1; inline;
- begin
- getEVPOL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TCMP_CM1CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TCMP_CM1CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TCMP_CM2CON.setCCH(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TCMP_CM2CON.getCCH : TBits_2; inline;
- begin
- getCCH := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TCMP_CM2CON.setCREF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TCMP_CM2CON.clearCREF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TCMP_CM2CON.setCREF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TCMP_CM2CON.getCREF : TBits_1; inline;
- begin
- getCREF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TCMP_CM2CON.setEVPOL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
- end;
- function TCMP_CM2CON.getEVPOL : TBits_2; inline;
- begin
- getEVPOL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
- end;
- procedure TCMP_CM2CON.setCOUT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TCMP_CM2CON.clearCOUT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TCMP_CM2CON.setCOUT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TCMP_CM2CON.getCOUT : TBits_1; inline;
- begin
- getCOUT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TCMP_CM2CON.setCPOL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TCMP_CM2CON.clearCPOL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TCMP_CM2CON.setCPOL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TCMP_CM2CON.getCPOL : TBits_1; inline;
- begin
- getCPOL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TCMP_CM2CON.setCOE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TCMP_CM2CON.clearCOE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TCMP_CM2CON.setCOE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TCMP_CM2CON.getCOE : TBits_1; inline;
- begin
- getCOE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TCMP_CM2CON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TCMP_CM2CON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TCMP_CM2CON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TCMP_CM2CON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TCMP_CM2CON.setCCH0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TCMP_CM2CON.clearCCH0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TCMP_CM2CON.setCCH0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TCMP_CM2CON.getCCH0 : TBits_1; inline;
- begin
- getCCH0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TCMP_CM2CON.setCCH1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TCMP_CM2CON.clearCCH1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TCMP_CM2CON.setCCH1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TCMP_CM2CON.getCCH1 : TBits_1; inline;
- begin
- getCCH1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TCMP_CM2CON.setEVPOL0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TCMP_CM2CON.clearEVPOL0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TCMP_CM2CON.setEVPOL0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TCMP_CM2CON.getEVPOL0 : TBits_1; inline;
- begin
- getEVPOL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TCMP_CM2CON.setEVPOL1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TCMP_CM2CON.clearEVPOL1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TCMP_CM2CON.setEVPOL1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TCMP_CM2CON.getEVPOL1 : TBits_1; inline;
- begin
- getEVPOL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TCMP_CM2CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TCMP_CM2CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TCMP_CMSTAT.setC1OUT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TCMP_CMSTAT.clearC1OUT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TCMP_CMSTAT.setC1OUT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TCMP_CMSTAT.getC1OUT : TBits_1; inline;
- begin
- getC1OUT := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TCMP_CMSTAT.setC2OUT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TCMP_CMSTAT.clearC2OUT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TCMP_CMSTAT.setC2OUT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TCMP_CMSTAT.getC2OUT : TBits_1; inline;
- begin
- getC2OUT := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TCMP_CMSTAT.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TCMP_CMSTAT.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TCMP_CMSTAT.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TCMP_CMSTAT.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TCMP_CMSTAT.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TCMP_CMSTAT.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TCMP_CTMUCON.setIRNG(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TCMP_CTMUCON.getIRNG : TBits_2; inline;
- begin
- getIRNG := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TCMP_CTMUCON.setITRIM(thebits : TBits_6); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF03 or ( thebits shl 2 );
- end;
- function TCMP_CTMUCON.getITRIM : TBits_6; inline;
- begin
- getITRIM := (pTDefRegMap(@Self)^.val and $000000FC) shr 2;
- end;
- procedure TCMP_CTMUCON.setCTTRIG; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TCMP_CTMUCON.clearCTTRIG; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TCMP_CTMUCON.setCTTRIG(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TCMP_CTMUCON.getCTTRIG : TBits_1; inline;
- begin
- getCTTRIG := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TCMP_CTMUCON.setIDISSEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TCMP_CTMUCON.clearIDISSEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TCMP_CTMUCON.setIDISSEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TCMP_CTMUCON.getIDISSEN : TBits_1; inline;
- begin
- getIDISSEN := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TCMP_CTMUCON.setEDGSEQEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TCMP_CTMUCON.clearEDGSEQEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TCMP_CTMUCON.setEDGSEQEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TCMP_CTMUCON.getEDGSEQEN : TBits_1; inline;
- begin
- getEDGSEQEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TCMP_CTMUCON.setEDGEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TCMP_CTMUCON.clearEDGEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TCMP_CTMUCON.setEDGEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TCMP_CTMUCON.getEDGEN : TBits_1; inline;
- begin
- getEDGEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TCMP_CTMUCON.setTGEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TCMP_CTMUCON.clearTGEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TCMP_CTMUCON.setTGEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TCMP_CTMUCON.getTGEN : TBits_1; inline;
- begin
- getTGEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TCMP_CTMUCON.setCTMUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TCMP_CTMUCON.clearCTMUSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TCMP_CTMUCON.setCTMUSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TCMP_CTMUCON.getCTMUSIDL : TBits_1; inline;
- begin
- getCTMUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TCMP_CTMUCON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TCMP_CTMUCON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TCMP_CTMUCON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TCMP_CTMUCON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TCMP_CTMUCON.setEDG2SEL(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFC3FFFF or ( thebits shl 18 );
- end;
- function TCMP_CTMUCON.getEDG2SEL : TBits_4; inline;
- begin
- getEDG2SEL := (pTDefRegMap(@Self)^.val and $003C0000) shr 18;
- end;
- procedure TCMP_CTMUCON.setEDG2POL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- procedure TCMP_CTMUCON.clearEDG2POL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00400000;
- end;
- procedure TCMP_CTMUCON.setEDG2POL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00400000
- else
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- function TCMP_CTMUCON.getEDG2POL : TBits_1; inline;
- begin
- getEDG2POL := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
- end;
- procedure TCMP_CTMUCON.setEDG2MOD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- procedure TCMP_CTMUCON.clearEDG2MOD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00800000;
- end;
- procedure TCMP_CTMUCON.setEDG2MOD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00800000
- else
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- function TCMP_CTMUCON.getEDG2MOD : TBits_1; inline;
- begin
- getEDG2MOD := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
- end;
- procedure TCMP_CTMUCON.setEDG1STAT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TCMP_CTMUCON.clearEDG1STAT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TCMP_CTMUCON.setEDG1STAT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TCMP_CTMUCON.getEDG1STAT : TBits_1; inline;
- begin
- getEDG1STAT := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TCMP_CTMUCON.setEDG2STAT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- procedure TCMP_CTMUCON.clearEDG2STAT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $02000000;
- end;
- procedure TCMP_CTMUCON.setEDG2STAT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $02000000
- else
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- function TCMP_CTMUCON.getEDG2STAT : TBits_1; inline;
- begin
- getEDG2STAT := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
- end;
- procedure TCMP_CTMUCON.setEDG1SEL(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $C3FFFFFF or ( thebits shl 26 );
- end;
- function TCMP_CTMUCON.getEDG1SEL : TBits_4; inline;
- begin
- getEDG1SEL := (pTDefRegMap(@Self)^.val and $3C000000) shr 26;
- end;
- procedure TCMP_CTMUCON.setEDG1POL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- procedure TCMP_CTMUCON.clearEDG1POL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $40000000;
- end;
- procedure TCMP_CTMUCON.setEDG1POL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $40000000
- else
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- function TCMP_CTMUCON.getEDG1POL : TBits_1; inline;
- begin
- getEDG1POL := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
- end;
- procedure TCMP_CTMUCON.setEDG1MOD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- procedure TCMP_CTMUCON.clearEDG1MOD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $80000000;
- end;
- procedure TCMP_CTMUCON.setEDG1MOD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $80000000
- else
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- function TCMP_CTMUCON.getEDG1MOD : TBits_1; inline;
- begin
- getEDG1MOD := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
- end;
- procedure TCMP_CTMUCON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TCMP_CTMUCON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TOSC_OSCCON.setOSWEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TOSC_OSCCON.clearOSWEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TOSC_OSCCON.setOSWEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TOSC_OSCCON.getOSWEN : TBits_1; inline;
- begin
- getOSWEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TOSC_OSCCON.setSOSCEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TOSC_OSCCON.clearSOSCEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TOSC_OSCCON.setSOSCEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TOSC_OSCCON.getSOSCEN : TBits_1; inline;
- begin
- getSOSCEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TOSC_OSCCON.setUFRCEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TOSC_OSCCON.clearUFRCEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TOSC_OSCCON.setUFRCEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TOSC_OSCCON.getUFRCEN : TBits_1; inline;
- begin
- getUFRCEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TOSC_OSCCON.setCF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TOSC_OSCCON.clearCF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TOSC_OSCCON.setCF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TOSC_OSCCON.getCF : TBits_1; inline;
- begin
- getCF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TOSC_OSCCON.setSLPEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TOSC_OSCCON.clearSLPEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TOSC_OSCCON.setSLPEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TOSC_OSCCON.getSLPEN : TBits_1; inline;
- begin
- getSLPEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TOSC_OSCCON.setSLOCK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TOSC_OSCCON.clearSLOCK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TOSC_OSCCON.setSLOCK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TOSC_OSCCON.getSLOCK : TBits_1; inline;
- begin
- getSLOCK := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TOSC_OSCCON.setULOCK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TOSC_OSCCON.clearULOCK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TOSC_OSCCON.setULOCK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TOSC_OSCCON.getULOCK : TBits_1; inline;
- begin
- getULOCK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TOSC_OSCCON.setCLKLOCK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TOSC_OSCCON.clearCLKLOCK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TOSC_OSCCON.setCLKLOCK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TOSC_OSCCON.getCLKLOCK : TBits_1; inline;
- begin
- getCLKLOCK := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TOSC_OSCCON.setNOSC(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
- end;
- function TOSC_OSCCON.getNOSC : TBits_3; inline;
- begin
- getNOSC := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
- end;
- procedure TOSC_OSCCON.setCOSC(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF8FFF or ( thebits shl 12 );
- end;
- function TOSC_OSCCON.getCOSC : TBits_3; inline;
- begin
- getCOSC := (pTDefRegMap(@Self)^.val and $00007000) shr 12;
- end;
- procedure TOSC_OSCCON.setPLLMULT(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
- end;
- function TOSC_OSCCON.getPLLMULT : TBits_3; inline;
- begin
- getPLLMULT := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
- end;
- procedure TOSC_OSCCON.setPBDIV(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE7FFFF or ( thebits shl 19 );
- end;
- function TOSC_OSCCON.getPBDIV : TBits_2; inline;
- begin
- getPBDIV := (pTDefRegMap(@Self)^.val and $00180000) shr 19;
- end;
- procedure TOSC_OSCCON.setPBDIVRDY; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- procedure TOSC_OSCCON.clearPBDIVRDY; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00200000;
- end;
- procedure TOSC_OSCCON.setPBDIVRDY(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00200000
- else
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- function TOSC_OSCCON.getPBDIVRDY : TBits_1; inline;
- begin
- getPBDIVRDY := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
- end;
- procedure TOSC_OSCCON.setSOSCRDY; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- procedure TOSC_OSCCON.clearSOSCRDY; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00400000;
- end;
- procedure TOSC_OSCCON.setSOSCRDY(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00400000
- else
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- function TOSC_OSCCON.getSOSCRDY : TBits_1; inline;
- begin
- getSOSCRDY := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
- end;
- procedure TOSC_OSCCON.setFRCDIV(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
- end;
- function TOSC_OSCCON.getFRCDIV : TBits_3; inline;
- begin
- getFRCDIV := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
- end;
- procedure TOSC_OSCCON.setPLLODIV(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $C7FFFFFF or ( thebits shl 27 );
- end;
- function TOSC_OSCCON.getPLLODIV : TBits_3; inline;
- begin
- getPLLODIV := (pTDefRegMap(@Self)^.val and $38000000) shr 27;
- end;
- procedure TOSC_OSCCON.setNOSC0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TOSC_OSCCON.clearNOSC0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TOSC_OSCCON.setNOSC0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TOSC_OSCCON.getNOSC0 : TBits_1; inline;
- begin
- getNOSC0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TOSC_OSCCON.setNOSC1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TOSC_OSCCON.clearNOSC1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TOSC_OSCCON.setNOSC1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TOSC_OSCCON.getNOSC1 : TBits_1; inline;
- begin
- getNOSC1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TOSC_OSCCON.setNOSC2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TOSC_OSCCON.clearNOSC2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TOSC_OSCCON.setNOSC2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TOSC_OSCCON.getNOSC2 : TBits_1; inline;
- begin
- getNOSC2 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TOSC_OSCCON.setCOSC0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TOSC_OSCCON.clearCOSC0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TOSC_OSCCON.setCOSC0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TOSC_OSCCON.getCOSC0 : TBits_1; inline;
- begin
- getCOSC0 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TOSC_OSCCON.setCOSC1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TOSC_OSCCON.clearCOSC1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TOSC_OSCCON.setCOSC1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TOSC_OSCCON.getCOSC1 : TBits_1; inline;
- begin
- getCOSC1 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TOSC_OSCCON.setCOSC2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TOSC_OSCCON.clearCOSC2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TOSC_OSCCON.setCOSC2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TOSC_OSCCON.getCOSC2 : TBits_1; inline;
- begin
- getCOSC2 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TOSC_OSCCON.setPLLMULT0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TOSC_OSCCON.clearPLLMULT0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TOSC_OSCCON.setPLLMULT0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TOSC_OSCCON.getPLLMULT0 : TBits_1; inline;
- begin
- getPLLMULT0 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TOSC_OSCCON.setPLLMULT1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- procedure TOSC_OSCCON.clearPLLMULT1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00020000;
- end;
- procedure TOSC_OSCCON.setPLLMULT1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00020000
- else
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- function TOSC_OSCCON.getPLLMULT1 : TBits_1; inline;
- begin
- getPLLMULT1 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
- end;
- procedure TOSC_OSCCON.setPLLMULT2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- procedure TOSC_OSCCON.clearPLLMULT2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00040000;
- end;
- procedure TOSC_OSCCON.setPLLMULT2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00040000
- else
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- function TOSC_OSCCON.getPLLMULT2 : TBits_1; inline;
- begin
- getPLLMULT2 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
- end;
- procedure TOSC_OSCCON.setPBDIV0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- procedure TOSC_OSCCON.clearPBDIV0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00080000;
- end;
- procedure TOSC_OSCCON.setPBDIV0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00080000
- else
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- function TOSC_OSCCON.getPBDIV0 : TBits_1; inline;
- begin
- getPBDIV0 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
- end;
- procedure TOSC_OSCCON.setPBDIV1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- procedure TOSC_OSCCON.clearPBDIV1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00100000;
- end;
- procedure TOSC_OSCCON.setPBDIV1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00100000
- else
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- function TOSC_OSCCON.getPBDIV1 : TBits_1; inline;
- begin
- getPBDIV1 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
- end;
- procedure TOSC_OSCCON.setFRCDIV0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TOSC_OSCCON.clearFRCDIV0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TOSC_OSCCON.setFRCDIV0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TOSC_OSCCON.getFRCDIV0 : TBits_1; inline;
- begin
- getFRCDIV0 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TOSC_OSCCON.setFRCDIV1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- procedure TOSC_OSCCON.clearFRCDIV1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $02000000;
- end;
- procedure TOSC_OSCCON.setFRCDIV1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $02000000
- else
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- function TOSC_OSCCON.getFRCDIV1 : TBits_1; inline;
- begin
- getFRCDIV1 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
- end;
- procedure TOSC_OSCCON.setFRCDIV2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- procedure TOSC_OSCCON.clearFRCDIV2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $04000000;
- end;
- procedure TOSC_OSCCON.setFRCDIV2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $04000000
- else
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- function TOSC_OSCCON.getFRCDIV2 : TBits_1; inline;
- begin
- getFRCDIV2 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
- end;
- procedure TOSC_OSCCON.setPLLODIV0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- procedure TOSC_OSCCON.clearPLLODIV0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $08000000;
- end;
- procedure TOSC_OSCCON.setPLLODIV0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $08000000
- else
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- function TOSC_OSCCON.getPLLODIV0 : TBits_1; inline;
- begin
- getPLLODIV0 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
- end;
- procedure TOSC_OSCCON.setPLLODIV1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- procedure TOSC_OSCCON.clearPLLODIV1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $10000000;
- end;
- procedure TOSC_OSCCON.setPLLODIV1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $10000000
- else
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- function TOSC_OSCCON.getPLLODIV1 : TBits_1; inline;
- begin
- getPLLODIV1 := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
- end;
- procedure TOSC_OSCCON.setPLLODIV2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- procedure TOSC_OSCCON.clearPLLODIV2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $20000000;
- end;
- procedure TOSC_OSCCON.setPLLODIV2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $20000000
- else
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- function TOSC_OSCCON.getPLLODIV2 : TBits_1; inline;
- begin
- getPLLODIV2 := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
- end;
- procedure TOSC_OSCCON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TOSC_OSCCON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TOSC_OSCTUN.setTUN(thebits : TBits_6); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC0 or ( thebits shl 0 );
- end;
- function TOSC_OSCTUN.getTUN : TBits_6; inline;
- begin
- getTUN := (pTDefRegMap(@Self)^.val and $0000003F) shr 0;
- end;
- procedure TOSC_OSCTUN.setTUN0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TOSC_OSCTUN.clearTUN0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TOSC_OSCTUN.setTUN0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TOSC_OSCTUN.getTUN0 : TBits_1; inline;
- begin
- getTUN0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TOSC_OSCTUN.setTUN1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TOSC_OSCTUN.clearTUN1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TOSC_OSCTUN.setTUN1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TOSC_OSCTUN.getTUN1 : TBits_1; inline;
- begin
- getTUN1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TOSC_OSCTUN.setTUN2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TOSC_OSCTUN.clearTUN2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TOSC_OSCTUN.setTUN2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TOSC_OSCTUN.getTUN2 : TBits_1; inline;
- begin
- getTUN2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TOSC_OSCTUN.setTUN3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TOSC_OSCTUN.clearTUN3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TOSC_OSCTUN.setTUN3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TOSC_OSCTUN.getTUN3 : TBits_1; inline;
- begin
- getTUN3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TOSC_OSCTUN.setTUN4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TOSC_OSCTUN.clearTUN4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TOSC_OSCTUN.setTUN4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TOSC_OSCTUN.getTUN4 : TBits_1; inline;
- begin
- getTUN4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TOSC_OSCTUN.setTUN5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TOSC_OSCTUN.clearTUN5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TOSC_OSCTUN.setTUN5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TOSC_OSCTUN.getTUN5 : TBits_1; inline;
- begin
- getTUN5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TOSC_OSCTUN.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TOSC_OSCTUN.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TOSC_REFOCON.setROSEL(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
- end;
- function TOSC_REFOCON.getROSEL : TBits_4; inline;
- begin
- getROSEL := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
- end;
- procedure TOSC_REFOCON.setACTIVE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TOSC_REFOCON.clearACTIVE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TOSC_REFOCON.setACTIVE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TOSC_REFOCON.getACTIVE : TBits_1; inline;
- begin
- getACTIVE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TOSC_REFOCON.setDIVSWEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TOSC_REFOCON.clearDIVSWEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TOSC_REFOCON.setDIVSWEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TOSC_REFOCON.getDIVSWEN : TBits_1; inline;
- begin
- getDIVSWEN := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TOSC_REFOCON.setRSLP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TOSC_REFOCON.clearRSLP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TOSC_REFOCON.setRSLP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TOSC_REFOCON.getRSLP : TBits_1; inline;
- begin
- getRSLP := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TOSC_REFOCON.setOE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TOSC_REFOCON.clearOE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TOSC_REFOCON.setOE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TOSC_REFOCON.getOE : TBits_1; inline;
- begin
- getOE := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TOSC_REFOCON.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TOSC_REFOCON.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TOSC_REFOCON.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TOSC_REFOCON.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TOSC_REFOCON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TOSC_REFOCON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TOSC_REFOCON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TOSC_REFOCON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TOSC_REFOCON.setRODIV(thebits : TBits_15); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $8000FFFF or ( thebits shl 16 );
- end;
- function TOSC_REFOCON.getRODIV : TBits_15; inline;
- begin
- getRODIV := (pTDefRegMap(@Self)^.val and $7FFF0000) shr 16;
- end;
- procedure TOSC_REFOCON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TOSC_REFOCON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TOSC_REFOTRIM.setROTRIM(thebits : TBits_9); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $007FFFFF or ( thebits shl 23 );
- end;
- function TOSC_REFOTRIM.getROTRIM : TBits_9; inline;
- begin
- getROTRIM := (pTDefRegMap(@Self)^.val and $FF800000) shr 23;
- end;
- procedure TOSC_REFOTRIM.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TOSC_REFOTRIM.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TNVM_NVMCON.setNVMOP(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
- end;
- function TNVM_NVMCON.getNVMOP : TBits_4; inline;
- begin
- getNVMOP := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
- end;
- procedure TNVM_NVMCON.setLVDSTAT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TNVM_NVMCON.clearLVDSTAT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TNVM_NVMCON.setLVDSTAT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TNVM_NVMCON.getLVDSTAT : TBits_1; inline;
- begin
- getLVDSTAT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TNVM_NVMCON.setLVDERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TNVM_NVMCON.clearLVDERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TNVM_NVMCON.setLVDERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TNVM_NVMCON.getLVDERR : TBits_1; inline;
- begin
- getLVDERR := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TNVM_NVMCON.setWRERR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TNVM_NVMCON.clearWRERR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TNVM_NVMCON.setWRERR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TNVM_NVMCON.getWRERR : TBits_1; inline;
- begin
- getWRERR := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TNVM_NVMCON.setWREN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TNVM_NVMCON.clearWREN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TNVM_NVMCON.setWREN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TNVM_NVMCON.getWREN : TBits_1; inline;
- begin
- getWREN := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TNVM_NVMCON.setWR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TNVM_NVMCON.clearWR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TNVM_NVMCON.setWR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TNVM_NVMCON.getWR : TBits_1; inline;
- begin
- getWR := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TNVM_NVMCON.setNVMOP0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TNVM_NVMCON.clearNVMOP0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TNVM_NVMCON.setNVMOP0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TNVM_NVMCON.getNVMOP0 : TBits_1; inline;
- begin
- getNVMOP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TNVM_NVMCON.setNVMOP1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TNVM_NVMCON.clearNVMOP1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TNVM_NVMCON.setNVMOP1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TNVM_NVMCON.getNVMOP1 : TBits_1; inline;
- begin
- getNVMOP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TNVM_NVMCON.setNVMOP2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TNVM_NVMCON.clearNVMOP2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TNVM_NVMCON.setNVMOP2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TNVM_NVMCON.getNVMOP2 : TBits_1; inline;
- begin
- getNVMOP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TNVM_NVMCON.setNVMOP3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TNVM_NVMCON.clearNVMOP3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TNVM_NVMCON.setNVMOP3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TNVM_NVMCON.getNVMOP3 : TBits_1; inline;
- begin
- getNVMOP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TNVM_NVMCON.setPROGOP(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
- end;
- function TNVM_NVMCON.getPROGOP : TBits_4; inline;
- begin
- getPROGOP := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
- end;
- procedure TNVM_NVMCON.setPROGOP0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TNVM_NVMCON.clearPROGOP0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TNVM_NVMCON.setPROGOP0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TNVM_NVMCON.getPROGOP0 : TBits_1; inline;
- begin
- getPROGOP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TNVM_NVMCON.setPROGOP1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TNVM_NVMCON.clearPROGOP1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TNVM_NVMCON.setPROGOP1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TNVM_NVMCON.getPROGOP1 : TBits_1; inline;
- begin
- getPROGOP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TNVM_NVMCON.setPROGOP2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TNVM_NVMCON.clearPROGOP2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TNVM_NVMCON.setPROGOP2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TNVM_NVMCON.getPROGOP2 : TBits_1; inline;
- begin
- getPROGOP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TNVM_NVMCON.setPROGOP3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TNVM_NVMCON.clearPROGOP3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TNVM_NVMCON.setPROGOP3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TNVM_NVMCON.getPROGOP3 : TBits_1; inline;
- begin
- getPROGOP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TNVM_NVMCON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TNVM_NVMCON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TRCON_RCON.setPOR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TRCON_RCON.clearPOR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TRCON_RCON.setPOR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TRCON_RCON.getPOR : TBits_1; inline;
- begin
- getPOR := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TRCON_RCON.setBOR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TRCON_RCON.clearBOR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TRCON_RCON.setBOR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TRCON_RCON.getBOR : TBits_1; inline;
- begin
- getBOR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TRCON_RCON.setIDLE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TRCON_RCON.clearIDLE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TRCON_RCON.setIDLE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TRCON_RCON.getIDLE : TBits_1; inline;
- begin
- getIDLE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TRCON_RCON.setSLEEP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TRCON_RCON.clearSLEEP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TRCON_RCON.setSLEEP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TRCON_RCON.getSLEEP : TBits_1; inline;
- begin
- getSLEEP := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TRCON_RCON.setWDTO; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TRCON_RCON.clearWDTO; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TRCON_RCON.setWDTO(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TRCON_RCON.getWDTO : TBits_1; inline;
- begin
- getWDTO := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TRCON_RCON.setSWR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TRCON_RCON.clearSWR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TRCON_RCON.setSWR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TRCON_RCON.getSWR : TBits_1; inline;
- begin
- getSWR := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TRCON_RCON.setEXTR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TRCON_RCON.clearEXTR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TRCON_RCON.setEXTR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TRCON_RCON.getEXTR : TBits_1; inline;
- begin
- getEXTR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TRCON_RCON.setVREGS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TRCON_RCON.clearVREGS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TRCON_RCON.setVREGS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TRCON_RCON.getVREGS : TBits_1; inline;
- begin
- getVREGS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TRCON_RCON.setCMR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TRCON_RCON.clearCMR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TRCON_RCON.setCMR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TRCON_RCON.getCMR : TBits_1; inline;
- begin
- getCMR := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TRCON_RCON.setHVDR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- procedure TRCON_RCON.clearHVDR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $20000000;
- end;
- procedure TRCON_RCON.setHVDR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $20000000
- else
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- function TRCON_RCON.getHVDR : TBits_1; inline;
- begin
- getHVDR := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
- end;
- procedure TRCON_RCON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TRCON_RCON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TRCON_RSWRST.setSWRST; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TRCON_RSWRST.clearSWRST; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TRCON_RSWRST.setSWRST(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TRCON_RSWRST.getSWRST : TBits_1; inline;
- begin
- getSWRST := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TRCON_RSWRST.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TRCON_RSWRST.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_INTCON.setINT0EP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TINT_INTCON.clearINT0EP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TINT_INTCON.setINT0EP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TINT_INTCON.getINT0EP : TBits_1; inline;
- begin
- getINT0EP := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TINT_INTCON.setINT1EP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TINT_INTCON.clearINT1EP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TINT_INTCON.setINT1EP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TINT_INTCON.getINT1EP : TBits_1; inline;
- begin
- getINT1EP := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TINT_INTCON.setINT2EP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TINT_INTCON.clearINT2EP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TINT_INTCON.setINT2EP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TINT_INTCON.getINT2EP : TBits_1; inline;
- begin
- getINT2EP := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TINT_INTCON.setINT3EP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TINT_INTCON.clearINT3EP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TINT_INTCON.setINT3EP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TINT_INTCON.getINT3EP : TBits_1; inline;
- begin
- getINT3EP := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TINT_INTCON.setINT4EP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TINT_INTCON.clearINT4EP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TINT_INTCON.setINT4EP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TINT_INTCON.getINT4EP : TBits_1; inline;
- begin
- getINT4EP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TINT_INTCON.setTPC(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
- end;
- function TINT_INTCON.getTPC : TBits_3; inline;
- begin
- getTPC := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
- end;
- procedure TINT_INTCON.setMVEC; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TINT_INTCON.clearMVEC; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TINT_INTCON.setMVEC(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TINT_INTCON.getMVEC : TBits_1; inline;
- begin
- getMVEC := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TINT_INTCON.setSS0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TINT_INTCON.clearSS0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TINT_INTCON.setSS0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TINT_INTCON.getSS0 : TBits_1; inline;
- begin
- getSS0 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TINT_INTCON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_INTCON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IFS0.setCTIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TINT_IFS0.clearCTIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TINT_IFS0.setCTIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TINT_IFS0.getCTIF : TBits_1; inline;
- begin
- getCTIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TINT_IFS0.setCS0IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TINT_IFS0.clearCS0IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TINT_IFS0.setCS0IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TINT_IFS0.getCS0IF : TBits_1; inline;
- begin
- getCS0IF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TINT_IFS0.setCS1IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TINT_IFS0.clearCS1IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TINT_IFS0.setCS1IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TINT_IFS0.getCS1IF : TBits_1; inline;
- begin
- getCS1IF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TINT_IFS0.setINT0IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TINT_IFS0.clearINT0IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TINT_IFS0.setINT0IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TINT_IFS0.getINT0IF : TBits_1; inline;
- begin
- getINT0IF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TINT_IFS0.setT1IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TINT_IFS0.clearT1IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TINT_IFS0.setT1IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TINT_IFS0.getT1IF : TBits_1; inline;
- begin
- getT1IF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TINT_IFS0.setIC1EIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TINT_IFS0.clearIC1EIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TINT_IFS0.setIC1EIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TINT_IFS0.getIC1EIF : TBits_1; inline;
- begin
- getIC1EIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TINT_IFS0.setIC1IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TINT_IFS0.clearIC1IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TINT_IFS0.setIC1IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TINT_IFS0.getIC1IF : TBits_1; inline;
- begin
- getIC1IF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TINT_IFS0.setOC1IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TINT_IFS0.clearOC1IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TINT_IFS0.setOC1IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TINT_IFS0.getOC1IF : TBits_1; inline;
- begin
- getOC1IF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TINT_IFS0.setINT1IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TINT_IFS0.clearINT1IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TINT_IFS0.setINT1IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TINT_IFS0.getINT1IF : TBits_1; inline;
- begin
- getINT1IF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TINT_IFS0.setT2IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TINT_IFS0.clearT2IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TINT_IFS0.setT2IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TINT_IFS0.getT2IF : TBits_1; inline;
- begin
- getT2IF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TINT_IFS0.setIC2EIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TINT_IFS0.clearIC2EIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TINT_IFS0.setIC2EIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TINT_IFS0.getIC2EIF : TBits_1; inline;
- begin
- getIC2EIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TINT_IFS0.setIC2IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TINT_IFS0.clearIC2IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TINT_IFS0.setIC2IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TINT_IFS0.getIC2IF : TBits_1; inline;
- begin
- getIC2IF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TINT_IFS0.setOC2IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TINT_IFS0.clearOC2IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TINT_IFS0.setOC2IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TINT_IFS0.getOC2IF : TBits_1; inline;
- begin
- getOC2IF := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TINT_IFS0.setINT2IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TINT_IFS0.clearINT2IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TINT_IFS0.setINT2IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TINT_IFS0.getINT2IF : TBits_1; inline;
- begin
- getINT2IF := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TINT_IFS0.setT3IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TINT_IFS0.clearT3IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TINT_IFS0.setT3IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TINT_IFS0.getT3IF : TBits_1; inline;
- begin
- getT3IF := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TINT_IFS0.setIC3EIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TINT_IFS0.clearIC3EIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TINT_IFS0.setIC3EIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TINT_IFS0.getIC3EIF : TBits_1; inline;
- begin
- getIC3EIF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TINT_IFS0.setIC3IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TINT_IFS0.clearIC3IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TINT_IFS0.setIC3IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TINT_IFS0.getIC3IF : TBits_1; inline;
- begin
- getIC3IF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TINT_IFS0.setOC3IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- procedure TINT_IFS0.clearOC3IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00020000;
- end;
- procedure TINT_IFS0.setOC3IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00020000
- else
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- function TINT_IFS0.getOC3IF : TBits_1; inline;
- begin
- getOC3IF := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
- end;
- procedure TINT_IFS0.setINT3IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- procedure TINT_IFS0.clearINT3IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00040000;
- end;
- procedure TINT_IFS0.setINT3IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00040000
- else
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- function TINT_IFS0.getINT3IF : TBits_1; inline;
- begin
- getINT3IF := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
- end;
- procedure TINT_IFS0.setT4IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- procedure TINT_IFS0.clearT4IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00080000;
- end;
- procedure TINT_IFS0.setT4IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00080000
- else
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- function TINT_IFS0.getT4IF : TBits_1; inline;
- begin
- getT4IF := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
- end;
- procedure TINT_IFS0.setIC4EIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- procedure TINT_IFS0.clearIC4EIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00100000;
- end;
- procedure TINT_IFS0.setIC4EIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00100000
- else
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- function TINT_IFS0.getIC4EIF : TBits_1; inline;
- begin
- getIC4EIF := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
- end;
- procedure TINT_IFS0.setIC4IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- procedure TINT_IFS0.clearIC4IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00200000;
- end;
- procedure TINT_IFS0.setIC4IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00200000
- else
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- function TINT_IFS0.getIC4IF : TBits_1; inline;
- begin
- getIC4IF := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
- end;
- procedure TINT_IFS0.setOC4IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- procedure TINT_IFS0.clearOC4IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00400000;
- end;
- procedure TINT_IFS0.setOC4IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00400000
- else
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- function TINT_IFS0.getOC4IF : TBits_1; inline;
- begin
- getOC4IF := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
- end;
- procedure TINT_IFS0.setINT4IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- procedure TINT_IFS0.clearINT4IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00800000;
- end;
- procedure TINT_IFS0.setINT4IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00800000
- else
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- function TINT_IFS0.getINT4IF : TBits_1; inline;
- begin
- getINT4IF := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
- end;
- procedure TINT_IFS0.setT5IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TINT_IFS0.clearT5IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TINT_IFS0.setT5IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TINT_IFS0.getT5IF : TBits_1; inline;
- begin
- getT5IF := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TINT_IFS0.setIC5EIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- procedure TINT_IFS0.clearIC5EIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $02000000;
- end;
- procedure TINT_IFS0.setIC5EIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $02000000
- else
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- function TINT_IFS0.getIC5EIF : TBits_1; inline;
- begin
- getIC5EIF := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
- end;
- procedure TINT_IFS0.setIC5IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- procedure TINT_IFS0.clearIC5IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $04000000;
- end;
- procedure TINT_IFS0.setIC5IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $04000000
- else
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- function TINT_IFS0.getIC5IF : TBits_1; inline;
- begin
- getIC5IF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
- end;
- procedure TINT_IFS0.setOC5IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- procedure TINT_IFS0.clearOC5IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $08000000;
- end;
- procedure TINT_IFS0.setOC5IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $08000000
- else
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- function TINT_IFS0.getOC5IF : TBits_1; inline;
- begin
- getOC5IF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
- end;
- procedure TINT_IFS0.setAD1IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- procedure TINT_IFS0.clearAD1IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $10000000;
- end;
- procedure TINT_IFS0.setAD1IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $10000000
- else
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- function TINT_IFS0.getAD1IF : TBits_1; inline;
- begin
- getAD1IF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
- end;
- procedure TINT_IFS0.setFSCMIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- procedure TINT_IFS0.clearFSCMIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $20000000;
- end;
- procedure TINT_IFS0.setFSCMIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $20000000
- else
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- function TINT_IFS0.getFSCMIF : TBits_1; inline;
- begin
- getFSCMIF := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
- end;
- procedure TINT_IFS0.setRTCCIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- procedure TINT_IFS0.clearRTCCIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $40000000;
- end;
- procedure TINT_IFS0.setRTCCIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $40000000
- else
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- function TINT_IFS0.getRTCCIF : TBits_1; inline;
- begin
- getRTCCIF := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
- end;
- procedure TINT_IFS0.setFCEIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- procedure TINT_IFS0.clearFCEIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $80000000;
- end;
- procedure TINT_IFS0.setFCEIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $80000000
- else
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- function TINT_IFS0.getFCEIF : TBits_1; inline;
- begin
- getFCEIF := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
- end;
- procedure TINT_IFS0.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IFS0.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IFS1.setCMP1IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TINT_IFS1.clearCMP1IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TINT_IFS1.setCMP1IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TINT_IFS1.getCMP1IF : TBits_1; inline;
- begin
- getCMP1IF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TINT_IFS1.setCMP2IF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TINT_IFS1.clearCMP2IF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TINT_IFS1.setCMP2IF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TINT_IFS1.getCMP2IF : TBits_1; inline;
- begin
- getCMP2IF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TINT_IFS1.setUSBIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TINT_IFS1.clearUSBIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TINT_IFS1.setUSBIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TINT_IFS1.getUSBIF : TBits_1; inline;
- begin
- getUSBIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TINT_IFS1.setSPI1EIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TINT_IFS1.clearSPI1EIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TINT_IFS1.setSPI1EIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TINT_IFS1.getSPI1EIF : TBits_1; inline;
- begin
- getSPI1EIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TINT_IFS1.setSPI1RXIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TINT_IFS1.clearSPI1RXIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TINT_IFS1.setSPI1RXIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TINT_IFS1.getSPI1RXIF : TBits_1; inline;
- begin
- getSPI1RXIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TINT_IFS1.setSPI1TXIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TINT_IFS1.clearSPI1TXIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TINT_IFS1.setSPI1TXIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TINT_IFS1.getSPI1TXIF : TBits_1; inline;
- begin
- getSPI1TXIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TINT_IFS1.setU1EIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TINT_IFS1.clearU1EIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TINT_IFS1.setU1EIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TINT_IFS1.getU1EIF : TBits_1; inline;
- begin
- getU1EIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TINT_IFS1.setU1RXIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TINT_IFS1.clearU1RXIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TINT_IFS1.setU1RXIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TINT_IFS1.getU1RXIF : TBits_1; inline;
- begin
- getU1RXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TINT_IFS1.setU1TXIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TINT_IFS1.clearU1TXIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TINT_IFS1.setU1TXIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TINT_IFS1.getU1TXIF : TBits_1; inline;
- begin
- getU1TXIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TINT_IFS1.setI2C1BIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TINT_IFS1.clearI2C1BIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TINT_IFS1.setI2C1BIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TINT_IFS1.getI2C1BIF : TBits_1; inline;
- begin
- getI2C1BIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TINT_IFS1.setI2C1SIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TINT_IFS1.clearI2C1SIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TINT_IFS1.setI2C1SIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TINT_IFS1.getI2C1SIF : TBits_1; inline;
- begin
- getI2C1SIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TINT_IFS1.setI2C1MIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TINT_IFS1.clearI2C1MIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TINT_IFS1.setI2C1MIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TINT_IFS1.getI2C1MIF : TBits_1; inline;
- begin
- getI2C1MIF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TINT_IFS1.setCNAIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TINT_IFS1.clearCNAIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TINT_IFS1.setCNAIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TINT_IFS1.getCNAIF : TBits_1; inline;
- begin
- getCNAIF := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TINT_IFS1.setCNBIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TINT_IFS1.clearCNBIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TINT_IFS1.setCNBIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TINT_IFS1.getCNBIF : TBits_1; inline;
- begin
- getCNBIF := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TINT_IFS1.setCNCIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TINT_IFS1.clearCNCIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TINT_IFS1.setCNCIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TINT_IFS1.getCNCIF : TBits_1; inline;
- begin
- getCNCIF := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TINT_IFS1.setCNDIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TINT_IFS1.clearCNDIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TINT_IFS1.setCNDIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TINT_IFS1.getCNDIF : TBits_1; inline;
- begin
- getCNDIF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TINT_IFS1.setCNEIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TINT_IFS1.clearCNEIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TINT_IFS1.setCNEIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TINT_IFS1.getCNEIF : TBits_1; inline;
- begin
- getCNEIF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TINT_IFS1.setCNFIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- procedure TINT_IFS1.clearCNFIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00020000;
- end;
- procedure TINT_IFS1.setCNFIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00020000
- else
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- function TINT_IFS1.getCNFIF : TBits_1; inline;
- begin
- getCNFIF := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
- end;
- procedure TINT_IFS1.setCNGIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- procedure TINT_IFS1.clearCNGIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00040000;
- end;
- procedure TINT_IFS1.setCNGIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00040000
- else
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- function TINT_IFS1.getCNGIF : TBits_1; inline;
- begin
- getCNGIF := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
- end;
- procedure TINT_IFS1.setPMPIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- procedure TINT_IFS1.clearPMPIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00080000;
- end;
- procedure TINT_IFS1.setPMPIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00080000
- else
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- function TINT_IFS1.getPMPIF : TBits_1; inline;
- begin
- getPMPIF := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
- end;
- procedure TINT_IFS1.setPMPEIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- procedure TINT_IFS1.clearPMPEIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00100000;
- end;
- procedure TINT_IFS1.setPMPEIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00100000
- else
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- function TINT_IFS1.getPMPEIF : TBits_1; inline;
- begin
- getPMPEIF := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
- end;
- procedure TINT_IFS1.setSPI2EIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- procedure TINT_IFS1.clearSPI2EIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00200000;
- end;
- procedure TINT_IFS1.setSPI2EIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00200000
- else
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- function TINT_IFS1.getSPI2EIF : TBits_1; inline;
- begin
- getSPI2EIF := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
- end;
- procedure TINT_IFS1.setSPI2RXIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- procedure TINT_IFS1.clearSPI2RXIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00400000;
- end;
- procedure TINT_IFS1.setSPI2RXIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00400000
- else
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- function TINT_IFS1.getSPI2RXIF : TBits_1; inline;
- begin
- getSPI2RXIF := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
- end;
- procedure TINT_IFS1.setSPI2TXIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- procedure TINT_IFS1.clearSPI2TXIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00800000;
- end;
- procedure TINT_IFS1.setSPI2TXIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00800000
- else
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- function TINT_IFS1.getSPI2TXIF : TBits_1; inline;
- begin
- getSPI2TXIF := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
- end;
- procedure TINT_IFS1.setU2EIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TINT_IFS1.clearU2EIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TINT_IFS1.setU2EIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TINT_IFS1.getU2EIF : TBits_1; inline;
- begin
- getU2EIF := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TINT_IFS1.setU2RXIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- procedure TINT_IFS1.clearU2RXIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $02000000;
- end;
- procedure TINT_IFS1.setU2RXIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $02000000
- else
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- function TINT_IFS1.getU2RXIF : TBits_1; inline;
- begin
- getU2RXIF := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
- end;
- procedure TINT_IFS1.setU2TXIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- procedure TINT_IFS1.clearU2TXIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $04000000;
- end;
- procedure TINT_IFS1.setU2TXIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $04000000
- else
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- function TINT_IFS1.getU2TXIF : TBits_1; inline;
- begin
- getU2TXIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
- end;
- procedure TINT_IFS1.setI2C2BIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- procedure TINT_IFS1.clearI2C2BIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $08000000;
- end;
- procedure TINT_IFS1.setI2C2BIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $08000000
- else
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- function TINT_IFS1.getI2C2BIF : TBits_1; inline;
- begin
- getI2C2BIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
- end;
- procedure TINT_IFS1.setI2C2SIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- procedure TINT_IFS1.clearI2C2SIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $10000000;
- end;
- procedure TINT_IFS1.setI2C2SIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $10000000
- else
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- function TINT_IFS1.getI2C2SIF : TBits_1; inline;
- begin
- getI2C2SIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
- end;
- procedure TINT_IFS1.setI2C2MIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- procedure TINT_IFS1.clearI2C2MIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $20000000;
- end;
- procedure TINT_IFS1.setI2C2MIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $20000000
- else
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- function TINT_IFS1.getI2C2MIF : TBits_1; inline;
- begin
- getI2C2MIF := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
- end;
- procedure TINT_IFS1.setU3EIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- procedure TINT_IFS1.clearU3EIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $40000000;
- end;
- procedure TINT_IFS1.setU3EIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $40000000
- else
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- function TINT_IFS1.getU3EIF : TBits_1; inline;
- begin
- getU3EIF := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
- end;
- procedure TINT_IFS1.setU3RXIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- procedure TINT_IFS1.clearU3RXIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $80000000;
- end;
- procedure TINT_IFS1.setU3RXIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $80000000
- else
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- function TINT_IFS1.getU3RXIF : TBits_1; inline;
- begin
- getU3RXIF := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
- end;
- procedure TINT_IFS1.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IFS1.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IEC0.setCTIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TINT_IEC0.clearCTIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TINT_IEC0.setCTIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TINT_IEC0.getCTIE : TBits_1; inline;
- begin
- getCTIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TINT_IEC0.setCS0IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TINT_IEC0.clearCS0IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TINT_IEC0.setCS0IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TINT_IEC0.getCS0IE : TBits_1; inline;
- begin
- getCS0IE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TINT_IEC0.setCS1IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TINT_IEC0.clearCS1IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TINT_IEC0.setCS1IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TINT_IEC0.getCS1IE : TBits_1; inline;
- begin
- getCS1IE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TINT_IEC0.setINT0IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TINT_IEC0.clearINT0IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TINT_IEC0.setINT0IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TINT_IEC0.getINT0IE : TBits_1; inline;
- begin
- getINT0IE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TINT_IEC0.setT1IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TINT_IEC0.clearT1IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TINT_IEC0.setT1IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TINT_IEC0.getT1IE : TBits_1; inline;
- begin
- getT1IE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TINT_IEC0.setIC1EIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TINT_IEC0.clearIC1EIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TINT_IEC0.setIC1EIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TINT_IEC0.getIC1EIE : TBits_1; inline;
- begin
- getIC1EIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TINT_IEC0.setIC1IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TINT_IEC0.clearIC1IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TINT_IEC0.setIC1IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TINT_IEC0.getIC1IE : TBits_1; inline;
- begin
- getIC1IE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TINT_IEC0.setOC1IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TINT_IEC0.clearOC1IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TINT_IEC0.setOC1IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TINT_IEC0.getOC1IE : TBits_1; inline;
- begin
- getOC1IE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TINT_IEC0.setINT1IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TINT_IEC0.clearINT1IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TINT_IEC0.setINT1IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TINT_IEC0.getINT1IE : TBits_1; inline;
- begin
- getINT1IE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TINT_IEC0.setT2IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TINT_IEC0.clearT2IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TINT_IEC0.setT2IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TINT_IEC0.getT2IE : TBits_1; inline;
- begin
- getT2IE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TINT_IEC0.setIC2EIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TINT_IEC0.clearIC2EIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TINT_IEC0.setIC2EIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TINT_IEC0.getIC2EIE : TBits_1; inline;
- begin
- getIC2EIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TINT_IEC0.setIC2IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TINT_IEC0.clearIC2IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TINT_IEC0.setIC2IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TINT_IEC0.getIC2IE : TBits_1; inline;
- begin
- getIC2IE := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TINT_IEC0.setOC2IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TINT_IEC0.clearOC2IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TINT_IEC0.setOC2IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TINT_IEC0.getOC2IE : TBits_1; inline;
- begin
- getOC2IE := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TINT_IEC0.setINT2IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TINT_IEC0.clearINT2IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TINT_IEC0.setINT2IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TINT_IEC0.getINT2IE : TBits_1; inline;
- begin
- getINT2IE := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TINT_IEC0.setT3IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TINT_IEC0.clearT3IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TINT_IEC0.setT3IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TINT_IEC0.getT3IE : TBits_1; inline;
- begin
- getT3IE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TINT_IEC0.setIC3EIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TINT_IEC0.clearIC3EIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TINT_IEC0.setIC3EIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TINT_IEC0.getIC3EIE : TBits_1; inline;
- begin
- getIC3EIE := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TINT_IEC0.setIC3IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TINT_IEC0.clearIC3IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TINT_IEC0.setIC3IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TINT_IEC0.getIC3IE : TBits_1; inline;
- begin
- getIC3IE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TINT_IEC0.setOC3IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- procedure TINT_IEC0.clearOC3IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00020000;
- end;
- procedure TINT_IEC0.setOC3IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00020000
- else
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- function TINT_IEC0.getOC3IE : TBits_1; inline;
- begin
- getOC3IE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
- end;
- procedure TINT_IEC0.setINT3IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- procedure TINT_IEC0.clearINT3IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00040000;
- end;
- procedure TINT_IEC0.setINT3IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00040000
- else
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- function TINT_IEC0.getINT3IE : TBits_1; inline;
- begin
- getINT3IE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
- end;
- procedure TINT_IEC0.setT4IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- procedure TINT_IEC0.clearT4IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00080000;
- end;
- procedure TINT_IEC0.setT4IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00080000
- else
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- function TINT_IEC0.getT4IE : TBits_1; inline;
- begin
- getT4IE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
- end;
- procedure TINT_IEC0.setIC4EIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- procedure TINT_IEC0.clearIC4EIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00100000;
- end;
- procedure TINT_IEC0.setIC4EIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00100000
- else
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- function TINT_IEC0.getIC4EIE : TBits_1; inline;
- begin
- getIC4EIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
- end;
- procedure TINT_IEC0.setIC4IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- procedure TINT_IEC0.clearIC4IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00200000;
- end;
- procedure TINT_IEC0.setIC4IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00200000
- else
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- function TINT_IEC0.getIC4IE : TBits_1; inline;
- begin
- getIC4IE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
- end;
- procedure TINT_IEC0.setOC4IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- procedure TINT_IEC0.clearOC4IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00400000;
- end;
- procedure TINT_IEC0.setOC4IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00400000
- else
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- function TINT_IEC0.getOC4IE : TBits_1; inline;
- begin
- getOC4IE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
- end;
- procedure TINT_IEC0.setINT4IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- procedure TINT_IEC0.clearINT4IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00800000;
- end;
- procedure TINT_IEC0.setINT4IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00800000
- else
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- function TINT_IEC0.getINT4IE : TBits_1; inline;
- begin
- getINT4IE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
- end;
- procedure TINT_IEC0.setT5IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TINT_IEC0.clearT5IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TINT_IEC0.setT5IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TINT_IEC0.getT5IE : TBits_1; inline;
- begin
- getT5IE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TINT_IEC0.setIC5EIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- procedure TINT_IEC0.clearIC5EIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $02000000;
- end;
- procedure TINT_IEC0.setIC5EIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $02000000
- else
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- function TINT_IEC0.getIC5EIE : TBits_1; inline;
- begin
- getIC5EIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
- end;
- procedure TINT_IEC0.setIC5IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- procedure TINT_IEC0.clearIC5IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $04000000;
- end;
- procedure TINT_IEC0.setIC5IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $04000000
- else
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- function TINT_IEC0.getIC5IE : TBits_1; inline;
- begin
- getIC5IE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
- end;
- procedure TINT_IEC0.setOC5IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- procedure TINT_IEC0.clearOC5IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $08000000;
- end;
- procedure TINT_IEC0.setOC5IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $08000000
- else
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- function TINT_IEC0.getOC5IE : TBits_1; inline;
- begin
- getOC5IE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
- end;
- procedure TINT_IEC0.setAD1IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- procedure TINT_IEC0.clearAD1IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $10000000;
- end;
- procedure TINT_IEC0.setAD1IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $10000000
- else
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- function TINT_IEC0.getAD1IE : TBits_1; inline;
- begin
- getAD1IE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
- end;
- procedure TINT_IEC0.setFSCMIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- procedure TINT_IEC0.clearFSCMIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $20000000;
- end;
- procedure TINT_IEC0.setFSCMIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $20000000
- else
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- function TINT_IEC0.getFSCMIE : TBits_1; inline;
- begin
- getFSCMIE := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
- end;
- procedure TINT_IEC0.setRTCCIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- procedure TINT_IEC0.clearRTCCIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $40000000;
- end;
- procedure TINT_IEC0.setRTCCIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $40000000
- else
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- function TINT_IEC0.getRTCCIE : TBits_1; inline;
- begin
- getRTCCIE := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
- end;
- procedure TINT_IEC0.setFCEIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- procedure TINT_IEC0.clearFCEIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $80000000;
- end;
- procedure TINT_IEC0.setFCEIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $80000000
- else
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- function TINT_IEC0.getFCEIE : TBits_1; inline;
- begin
- getFCEIE := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
- end;
- procedure TINT_IEC0.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IEC0.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IEC1.setCMP1IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TINT_IEC1.clearCMP1IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TINT_IEC1.setCMP1IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TINT_IEC1.getCMP1IE : TBits_1; inline;
- begin
- getCMP1IE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TINT_IEC1.setCMP2IE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TINT_IEC1.clearCMP2IE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TINT_IEC1.setCMP2IE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TINT_IEC1.getCMP2IE : TBits_1; inline;
- begin
- getCMP2IE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TINT_IEC1.setUSBIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TINT_IEC1.clearUSBIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TINT_IEC1.setUSBIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TINT_IEC1.getUSBIE : TBits_1; inline;
- begin
- getUSBIE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TINT_IEC1.setSPI1EIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TINT_IEC1.clearSPI1EIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TINT_IEC1.setSPI1EIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TINT_IEC1.getSPI1EIE : TBits_1; inline;
- begin
- getSPI1EIE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TINT_IEC1.setSPI1RXIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TINT_IEC1.clearSPI1RXIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TINT_IEC1.setSPI1RXIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TINT_IEC1.getSPI1RXIE : TBits_1; inline;
- begin
- getSPI1RXIE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TINT_IEC1.setSPI1TXIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TINT_IEC1.clearSPI1TXIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TINT_IEC1.setSPI1TXIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TINT_IEC1.getSPI1TXIE : TBits_1; inline;
- begin
- getSPI1TXIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TINT_IEC1.setU1EIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TINT_IEC1.clearU1EIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TINT_IEC1.setU1EIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TINT_IEC1.getU1EIE : TBits_1; inline;
- begin
- getU1EIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TINT_IEC1.setU1RXIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TINT_IEC1.clearU1RXIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TINT_IEC1.setU1RXIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TINT_IEC1.getU1RXIE : TBits_1; inline;
- begin
- getU1RXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TINT_IEC1.setU1TXIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TINT_IEC1.clearU1TXIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TINT_IEC1.setU1TXIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TINT_IEC1.getU1TXIE : TBits_1; inline;
- begin
- getU1TXIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TINT_IEC1.setI2C1BIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TINT_IEC1.clearI2C1BIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TINT_IEC1.setI2C1BIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TINT_IEC1.getI2C1BIE : TBits_1; inline;
- begin
- getI2C1BIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TINT_IEC1.setI2C1SIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TINT_IEC1.clearI2C1SIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TINT_IEC1.setI2C1SIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TINT_IEC1.getI2C1SIE : TBits_1; inline;
- begin
- getI2C1SIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TINT_IEC1.setI2C1MIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TINT_IEC1.clearI2C1MIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TINT_IEC1.setI2C1MIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TINT_IEC1.getI2C1MIE : TBits_1; inline;
- begin
- getI2C1MIE := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TINT_IEC1.setCNAIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TINT_IEC1.clearCNAIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TINT_IEC1.setCNAIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TINT_IEC1.getCNAIE : TBits_1; inline;
- begin
- getCNAIE := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TINT_IEC1.setCNBIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TINT_IEC1.clearCNBIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TINT_IEC1.setCNBIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TINT_IEC1.getCNBIE : TBits_1; inline;
- begin
- getCNBIE := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TINT_IEC1.setCNCIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TINT_IEC1.clearCNCIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TINT_IEC1.setCNCIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TINT_IEC1.getCNCIE : TBits_1; inline;
- begin
- getCNCIE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TINT_IEC1.setCNDIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TINT_IEC1.clearCNDIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TINT_IEC1.setCNDIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TINT_IEC1.getCNDIE : TBits_1; inline;
- begin
- getCNDIE := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TINT_IEC1.setCNEIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TINT_IEC1.clearCNEIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TINT_IEC1.setCNEIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TINT_IEC1.getCNEIE : TBits_1; inline;
- begin
- getCNEIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TINT_IEC1.setCNFIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- procedure TINT_IEC1.clearCNFIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00020000;
- end;
- procedure TINT_IEC1.setCNFIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00020000
- else
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- function TINT_IEC1.getCNFIE : TBits_1; inline;
- begin
- getCNFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
- end;
- procedure TINT_IEC1.setCNGIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- procedure TINT_IEC1.clearCNGIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00040000;
- end;
- procedure TINT_IEC1.setCNGIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00040000
- else
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- function TINT_IEC1.getCNGIE : TBits_1; inline;
- begin
- getCNGIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
- end;
- procedure TINT_IEC1.setPMPIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- procedure TINT_IEC1.clearPMPIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00080000;
- end;
- procedure TINT_IEC1.setPMPIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00080000
- else
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- function TINT_IEC1.getPMPIE : TBits_1; inline;
- begin
- getPMPIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
- end;
- procedure TINT_IEC1.setPMPEIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- procedure TINT_IEC1.clearPMPEIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00100000;
- end;
- procedure TINT_IEC1.setPMPEIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00100000
- else
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- function TINT_IEC1.getPMPEIE : TBits_1; inline;
- begin
- getPMPEIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
- end;
- procedure TINT_IEC1.setSPI2EIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- procedure TINT_IEC1.clearSPI2EIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00200000;
- end;
- procedure TINT_IEC1.setSPI2EIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00200000
- else
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- function TINT_IEC1.getSPI2EIE : TBits_1; inline;
- begin
- getSPI2EIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
- end;
- procedure TINT_IEC1.setSPI2RXIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- procedure TINT_IEC1.clearSPI2RXIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00400000;
- end;
- procedure TINT_IEC1.setSPI2RXIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00400000
- else
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- function TINT_IEC1.getSPI2RXIE : TBits_1; inline;
- begin
- getSPI2RXIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
- end;
- procedure TINT_IEC1.setSPI2TXIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- procedure TINT_IEC1.clearSPI2TXIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00800000;
- end;
- procedure TINT_IEC1.setSPI2TXIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00800000
- else
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- function TINT_IEC1.getSPI2TXIE : TBits_1; inline;
- begin
- getSPI2TXIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
- end;
- procedure TINT_IEC1.setU2EIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TINT_IEC1.clearU2EIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TINT_IEC1.setU2EIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TINT_IEC1.getU2EIE : TBits_1; inline;
- begin
- getU2EIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TINT_IEC1.setU2RXIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- procedure TINT_IEC1.clearU2RXIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $02000000;
- end;
- procedure TINT_IEC1.setU2RXIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $02000000
- else
- pTDefRegMap(@Self)^.&set := $02000000;
- end;
- function TINT_IEC1.getU2RXIE : TBits_1; inline;
- begin
- getU2RXIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
- end;
- procedure TINT_IEC1.setU2TXIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- procedure TINT_IEC1.clearU2TXIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $04000000;
- end;
- procedure TINT_IEC1.setU2TXIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $04000000
- else
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- function TINT_IEC1.getU2TXIE : TBits_1; inline;
- begin
- getU2TXIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
- end;
- procedure TINT_IEC1.setI2C2BIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- procedure TINT_IEC1.clearI2C2BIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $08000000;
- end;
- procedure TINT_IEC1.setI2C2BIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $08000000
- else
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- function TINT_IEC1.getI2C2BIE : TBits_1; inline;
- begin
- getI2C2BIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
- end;
- procedure TINT_IEC1.setI2C2SIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- procedure TINT_IEC1.clearI2C2SIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $10000000;
- end;
- procedure TINT_IEC1.setI2C2SIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $10000000
- else
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- function TINT_IEC1.getI2C2SIE : TBits_1; inline;
- begin
- getI2C2SIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
- end;
- procedure TINT_IEC1.setI2C2MIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- procedure TINT_IEC1.clearI2C2MIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $20000000;
- end;
- procedure TINT_IEC1.setI2C2MIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $20000000
- else
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- function TINT_IEC1.getI2C2MIE : TBits_1; inline;
- begin
- getI2C2MIE := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
- end;
- procedure TINT_IEC1.setU3EIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- procedure TINT_IEC1.clearU3EIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $40000000;
- end;
- procedure TINT_IEC1.setU3EIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $40000000
- else
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- function TINT_IEC1.getU3EIE : TBits_1; inline;
- begin
- getU3EIE := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
- end;
- procedure TINT_IEC1.setU3RXIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- procedure TINT_IEC1.clearU3RXIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $80000000;
- end;
- procedure TINT_IEC1.setU3RXIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $80000000
- else
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- function TINT_IEC1.getU3RXIE : TBits_1; inline;
- begin
- getU3RXIE := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
- end;
- procedure TINT_IEC1.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IEC1.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IPC0.setCTIS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TINT_IPC0.getCTIS : TBits_2; inline;
- begin
- getCTIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TINT_IPC0.setCTIP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
- end;
- function TINT_IPC0.getCTIP : TBits_3; inline;
- begin
- getCTIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
- end;
- procedure TINT_IPC0.setCS0IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TINT_IPC0.getCS0IS : TBits_2; inline;
- begin
- getCS0IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TINT_IPC0.setCS0IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
- end;
- function TINT_IPC0.getCS0IP : TBits_3; inline;
- begin
- getCS0IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
- end;
- procedure TINT_IPC0.setCS1IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
- end;
- function TINT_IPC0.getCS1IS : TBits_2; inline;
- begin
- getCS1IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
- end;
- procedure TINT_IPC0.setCS1IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
- end;
- function TINT_IPC0.getCS1IP : TBits_3; inline;
- begin
- getCS1IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
- end;
- procedure TINT_IPC0.setINT0IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
- end;
- function TINT_IPC0.getINT0IS : TBits_2; inline;
- begin
- getINT0IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
- end;
- procedure TINT_IPC0.setINT0IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
- end;
- function TINT_IPC0.getINT0IP : TBits_3; inline;
- begin
- getINT0IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
- end;
- procedure TINT_IPC0.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IPC0.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IPC1.setT1IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TINT_IPC1.getT1IS : TBits_2; inline;
- begin
- getT1IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TINT_IPC1.setT1IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
- end;
- function TINT_IPC1.getT1IP : TBits_3; inline;
- begin
- getT1IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
- end;
- procedure TINT_IPC1.setIC1IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TINT_IPC1.getIC1IS : TBits_2; inline;
- begin
- getIC1IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TINT_IPC1.setIC1IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
- end;
- function TINT_IPC1.getIC1IP : TBits_3; inline;
- begin
- getIC1IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
- end;
- procedure TINT_IPC1.setOC1IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
- end;
- function TINT_IPC1.getOC1IS : TBits_2; inline;
- begin
- getOC1IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
- end;
- procedure TINT_IPC1.setOC1IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
- end;
- function TINT_IPC1.getOC1IP : TBits_3; inline;
- begin
- getOC1IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
- end;
- procedure TINT_IPC1.setINT1IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
- end;
- function TINT_IPC1.getINT1IS : TBits_2; inline;
- begin
- getINT1IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
- end;
- procedure TINT_IPC1.setINT1IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
- end;
- function TINT_IPC1.getINT1IP : TBits_3; inline;
- begin
- getINT1IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
- end;
- procedure TINT_IPC1.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IPC1.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IPC2.setT2IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TINT_IPC2.getT2IS : TBits_2; inline;
- begin
- getT2IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TINT_IPC2.setT2IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
- end;
- function TINT_IPC2.getT2IP : TBits_3; inline;
- begin
- getT2IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
- end;
- procedure TINT_IPC2.setIC2IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TINT_IPC2.getIC2IS : TBits_2; inline;
- begin
- getIC2IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TINT_IPC2.setIC2IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
- end;
- function TINT_IPC2.getIC2IP : TBits_3; inline;
- begin
- getIC2IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
- end;
- procedure TINT_IPC2.setOC2IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
- end;
- function TINT_IPC2.getOC2IS : TBits_2; inline;
- begin
- getOC2IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
- end;
- procedure TINT_IPC2.setOC2IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
- end;
- function TINT_IPC2.getOC2IP : TBits_3; inline;
- begin
- getOC2IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
- end;
- procedure TINT_IPC2.setINT2IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
- end;
- function TINT_IPC2.getINT2IS : TBits_2; inline;
- begin
- getINT2IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
- end;
- procedure TINT_IPC2.setINT2IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
- end;
- function TINT_IPC2.getINT2IP : TBits_3; inline;
- begin
- getINT2IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
- end;
- procedure TINT_IPC2.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IPC2.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IPC3.setT3IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TINT_IPC3.getT3IS : TBits_2; inline;
- begin
- getT3IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TINT_IPC3.setT3IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
- end;
- function TINT_IPC3.getT3IP : TBits_3; inline;
- begin
- getT3IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
- end;
- procedure TINT_IPC3.setIC3IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TINT_IPC3.getIC3IS : TBits_2; inline;
- begin
- getIC3IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TINT_IPC3.setIC3IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
- end;
- function TINT_IPC3.getIC3IP : TBits_3; inline;
- begin
- getIC3IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
- end;
- procedure TINT_IPC3.setOC3IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
- end;
- function TINT_IPC3.getOC3IS : TBits_2; inline;
- begin
- getOC3IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
- end;
- procedure TINT_IPC3.setOC3IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
- end;
- function TINT_IPC3.getOC3IP : TBits_3; inline;
- begin
- getOC3IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
- end;
- procedure TINT_IPC3.setINT3IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
- end;
- function TINT_IPC3.getINT3IS : TBits_2; inline;
- begin
- getINT3IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
- end;
- procedure TINT_IPC3.setINT3IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
- end;
- function TINT_IPC3.getINT3IP : TBits_3; inline;
- begin
- getINT3IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
- end;
- procedure TINT_IPC3.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IPC3.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IPC4.setT4IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TINT_IPC4.getT4IS : TBits_2; inline;
- begin
- getT4IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TINT_IPC4.setT4IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
- end;
- function TINT_IPC4.getT4IP : TBits_3; inline;
- begin
- getT4IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
- end;
- procedure TINT_IPC4.setIC4IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TINT_IPC4.getIC4IS : TBits_2; inline;
- begin
- getIC4IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TINT_IPC4.setIC4IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
- end;
- function TINT_IPC4.getIC4IP : TBits_3; inline;
- begin
- getIC4IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
- end;
- procedure TINT_IPC4.setOC4IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
- end;
- function TINT_IPC4.getOC4IS : TBits_2; inline;
- begin
- getOC4IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
- end;
- procedure TINT_IPC4.setOC4IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
- end;
- function TINT_IPC4.getOC4IP : TBits_3; inline;
- begin
- getOC4IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
- end;
- procedure TINT_IPC4.setINT4IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
- end;
- function TINT_IPC4.getINT4IS : TBits_2; inline;
- begin
- getINT4IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
- end;
- procedure TINT_IPC4.setINT4IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
- end;
- function TINT_IPC4.getINT4IP : TBits_3; inline;
- begin
- getINT4IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
- end;
- procedure TINT_IPC4.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IPC4.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IPC5.setT5IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TINT_IPC5.getT5IS : TBits_2; inline;
- begin
- getT5IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TINT_IPC5.setT5IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
- end;
- function TINT_IPC5.getT5IP : TBits_3; inline;
- begin
- getT5IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
- end;
- procedure TINT_IPC5.setIC5IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TINT_IPC5.getIC5IS : TBits_2; inline;
- begin
- getIC5IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TINT_IPC5.setIC5IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
- end;
- function TINT_IPC5.getIC5IP : TBits_3; inline;
- begin
- getIC5IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
- end;
- procedure TINT_IPC5.setOC5IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
- end;
- function TINT_IPC5.getOC5IS : TBits_2; inline;
- begin
- getOC5IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
- end;
- procedure TINT_IPC5.setOC5IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
- end;
- function TINT_IPC5.getOC5IP : TBits_3; inline;
- begin
- getOC5IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
- end;
- procedure TINT_IPC5.setAD1IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
- end;
- function TINT_IPC5.getAD1IS : TBits_2; inline;
- begin
- getAD1IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
- end;
- procedure TINT_IPC5.setAD1IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
- end;
- function TINT_IPC5.getAD1IP : TBits_3; inline;
- begin
- getAD1IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
- end;
- procedure TINT_IPC5.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IPC5.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IPC6.setFSCMIS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TINT_IPC6.getFSCMIS : TBits_2; inline;
- begin
- getFSCMIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TINT_IPC6.setFSCMIP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
- end;
- function TINT_IPC6.getFSCMIP : TBits_3; inline;
- begin
- getFSCMIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
- end;
- procedure TINT_IPC6.setRTCCIS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TINT_IPC6.getRTCCIS : TBits_2; inline;
- begin
- getRTCCIS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TINT_IPC6.setRTCCIP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
- end;
- function TINT_IPC6.getRTCCIP : TBits_3; inline;
- begin
- getRTCCIP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
- end;
- procedure TINT_IPC6.setFCEIS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
- end;
- function TINT_IPC6.getFCEIS : TBits_2; inline;
- begin
- getFCEIS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
- end;
- procedure TINT_IPC6.setFCEIP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
- end;
- function TINT_IPC6.getFCEIP : TBits_3; inline;
- begin
- getFCEIP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
- end;
- procedure TINT_IPC6.setCMP1IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
- end;
- function TINT_IPC6.getCMP1IS : TBits_2; inline;
- begin
- getCMP1IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
- end;
- procedure TINT_IPC6.setCMP1IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
- end;
- function TINT_IPC6.getCMP1IP : TBits_3; inline;
- begin
- getCMP1IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
- end;
- procedure TINT_IPC6.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IPC6.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IPC7.setCMP2IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TINT_IPC7.getCMP2IS : TBits_2; inline;
- begin
- getCMP2IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TINT_IPC7.setCMP2IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
- end;
- function TINT_IPC7.getCMP2IP : TBits_3; inline;
- begin
- getCMP2IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
- end;
- procedure TINT_IPC7.setUSBIS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TINT_IPC7.getUSBIS : TBits_2; inline;
- begin
- getUSBIS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TINT_IPC7.setUSBIP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
- end;
- function TINT_IPC7.getUSBIP : TBits_3; inline;
- begin
- getUSBIP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
- end;
- procedure TINT_IPC7.setSPI1IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
- end;
- function TINT_IPC7.getSPI1IS : TBits_2; inline;
- begin
- getSPI1IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
- end;
- procedure TINT_IPC7.setSPI1IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
- end;
- function TINT_IPC7.getSPI1IP : TBits_3; inline;
- begin
- getSPI1IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
- end;
- procedure TINT_IPC7.setU1IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
- end;
- function TINT_IPC7.getU1IS : TBits_2; inline;
- begin
- getU1IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
- end;
- procedure TINT_IPC7.setU1IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
- end;
- function TINT_IPC7.getU1IP : TBits_3; inline;
- begin
- getU1IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
- end;
- procedure TINT_IPC7.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IPC7.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IPC8.setI2C1IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TINT_IPC8.getI2C1IS : TBits_2; inline;
- begin
- getI2C1IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TINT_IPC8.setI2C1IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
- end;
- function TINT_IPC8.getI2C1IP : TBits_3; inline;
- begin
- getI2C1IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
- end;
- procedure TINT_IPC8.setCNIS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TINT_IPC8.getCNIS : TBits_2; inline;
- begin
- getCNIS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TINT_IPC8.setCNIP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
- end;
- function TINT_IPC8.getCNIP : TBits_3; inline;
- begin
- getCNIP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
- end;
- procedure TINT_IPC8.setPMPIS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
- end;
- function TINT_IPC8.getPMPIS : TBits_2; inline;
- begin
- getPMPIS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
- end;
- procedure TINT_IPC8.setPMPIP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
- end;
- function TINT_IPC8.getPMPIP : TBits_3; inline;
- begin
- getPMPIP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
- end;
- procedure TINT_IPC8.setSPI2IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
- end;
- function TINT_IPC8.getSPI2IS : TBits_2; inline;
- begin
- getSPI2IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
- end;
- procedure TINT_IPC8.setSPI2IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
- end;
- function TINT_IPC8.getSPI2IP : TBits_3; inline;
- begin
- getSPI2IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
- end;
- procedure TINT_IPC8.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IPC8.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IPC9.setU2IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TINT_IPC9.getU2IS : TBits_2; inline;
- begin
- getU2IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TINT_IPC9.setU2IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
- end;
- function TINT_IPC9.getU2IP : TBits_3; inline;
- begin
- getU2IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
- end;
- procedure TINT_IPC9.setI2C2IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TINT_IPC9.getI2C2IS : TBits_2; inline;
- begin
- getI2C2IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TINT_IPC9.setI2C2IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
- end;
- function TINT_IPC9.getI2C2IP : TBits_3; inline;
- begin
- getI2C2IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
- end;
- procedure TINT_IPC9.setU3IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
- end;
- function TINT_IPC9.getU3IS : TBits_2; inline;
- begin
- getU3IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
- end;
- procedure TINT_IPC9.setU3IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
- end;
- function TINT_IPC9.getU3IP : TBits_3; inline;
- begin
- getU3IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
- end;
- procedure TINT_IPC9.setU4IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
- end;
- function TINT_IPC9.getU4IS : TBits_2; inline;
- begin
- getU4IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
- end;
- procedure TINT_IPC9.setU4IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
- end;
- function TINT_IPC9.getU4IP : TBits_3; inline;
- begin
- getU4IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
- end;
- procedure TINT_IPC9.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IPC9.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IPC10.setU5IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TINT_IPC10.getU5IS : TBits_2; inline;
- begin
- getU5IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TINT_IPC10.setU5IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
- end;
- function TINT_IPC10.getU5IP : TBits_3; inline;
- begin
- getU5IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
- end;
- procedure TINT_IPC10.setCTMUIP(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TINT_IPC10.getCTMUIP : TBits_2; inline;
- begin
- getCTMUIP := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TINT_IPC10.setCTMUIS(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
- end;
- function TINT_IPC10.getCTMUIS : TBits_3; inline;
- begin
- getCTMUIS := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
- end;
- procedure TINT_IPC10.setDMA0IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
- end;
- function TINT_IPC10.getDMA0IS : TBits_2; inline;
- begin
- getDMA0IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
- end;
- procedure TINT_IPC10.setDMA0IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
- end;
- function TINT_IPC10.getDMA0IP : TBits_3; inline;
- begin
- getDMA0IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
- end;
- procedure TINT_IPC10.setDMA1IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
- end;
- function TINT_IPC10.getDMA1IS : TBits_2; inline;
- begin
- getDMA1IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
- end;
- procedure TINT_IPC10.setDMA1IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
- end;
- function TINT_IPC10.getDMA1IP : TBits_3; inline;
- begin
- getDMA1IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
- end;
- procedure TINT_IPC10.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IPC10.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TINT_IPC11.setDMA2IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TINT_IPC11.getDMA2IS : TBits_2; inline;
- begin
- getDMA2IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TINT_IPC11.setDMA2IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
- end;
- function TINT_IPC11.getDMA2IP : TBits_3; inline;
- begin
- getDMA2IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
- end;
- procedure TINT_IPC11.setDMA3IS(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TINT_IPC11.getDMA3IS : TBits_2; inline;
- begin
- getDMA3IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TINT_IPC11.setDMA3IP(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
- end;
- function TINT_IPC11.getDMA3IP : TBits_3; inline;
- begin
- getDMA3IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
- end;
- procedure TINT_IPC11.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TINT_IPC11.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TBMX_BMXCON.setBMXARB(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TBMX_BMXCON.getBMXARB : TBits_3; inline;
- begin
- getBMXARB := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TBMX_BMXCON.setBMXWSDRM; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TBMX_BMXCON.clearBMXWSDRM; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TBMX_BMXCON.setBMXWSDRM(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TBMX_BMXCON.getBMXWSDRM : TBits_1; inline;
- begin
- getBMXWSDRM := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TBMX_BMXCON.setBMXERRIS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TBMX_BMXCON.clearBMXERRIS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TBMX_BMXCON.setBMXERRIS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TBMX_BMXCON.getBMXERRIS : TBits_1; inline;
- begin
- getBMXERRIS := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TBMX_BMXCON.setBMXERRDS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- procedure TBMX_BMXCON.clearBMXERRDS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00020000;
- end;
- procedure TBMX_BMXCON.setBMXERRDS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00020000
- else
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- function TBMX_BMXCON.getBMXERRDS : TBits_1; inline;
- begin
- getBMXERRDS := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
- end;
- procedure TBMX_BMXCON.setBMXERRDMA; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- procedure TBMX_BMXCON.clearBMXERRDMA; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00040000;
- end;
- procedure TBMX_BMXCON.setBMXERRDMA(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00040000
- else
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- function TBMX_BMXCON.getBMXERRDMA : TBits_1; inline;
- begin
- getBMXERRDMA := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
- end;
- procedure TBMX_BMXCON.setBMXERRICD; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- procedure TBMX_BMXCON.clearBMXERRICD; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00080000;
- end;
- procedure TBMX_BMXCON.setBMXERRICD(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00080000
- else
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- function TBMX_BMXCON.getBMXERRICD : TBits_1; inline;
- begin
- getBMXERRICD := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
- end;
- procedure TBMX_BMXCON.setBMXERRIXI; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- procedure TBMX_BMXCON.clearBMXERRIXI; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00100000;
- end;
- procedure TBMX_BMXCON.setBMXERRIXI(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00100000
- else
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- function TBMX_BMXCON.getBMXERRIXI : TBits_1; inline;
- begin
- getBMXERRIXI := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
- end;
- procedure TBMX_BMXCON.setBMXCHEDMA; inline;
- begin
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- procedure TBMX_BMXCON.clearBMXCHEDMA; inline;
- begin
- pTDefRegMap(@Self)^.clr := $04000000;
- end;
- procedure TBMX_BMXCON.setBMXCHEDMA(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $04000000
- else
- pTDefRegMap(@Self)^.&set := $04000000;
- end;
- function TBMX_BMXCON.getBMXCHEDMA : TBits_1; inline;
- begin
- getBMXCHEDMA := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
- end;
- procedure TBMX_BMXCON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TBMX_BMXCON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDMAC_DMACON.setDMABUSY; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TDMAC_DMACON.clearDMABUSY; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TDMAC_DMACON.setDMABUSY(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TDMAC_DMACON.getDMABUSY : TBits_1; inline;
- begin
- getDMABUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TDMAC_DMACON.setSUSPEND; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TDMAC_DMACON.clearSUSPEND; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TDMAC_DMACON.setSUSPEND(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TDMAC_DMACON.getSUSPEND : TBits_1; inline;
- begin
- getSUSPEND := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TDMAC_DMACON.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TDMAC_DMACON.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TDMAC_DMACON.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TDMAC_DMACON.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TDMAC_DMACON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDMAC_DMACON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDMAC_DMASTAT.setDMACH(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TDMAC_DMASTAT.getDMACH : TBits_3; inline;
- begin
- getDMACH := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TDMAC_DMASTAT.setRDWR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TDMAC_DMASTAT.clearRDWR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TDMAC_DMASTAT.setRDWR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TDMAC_DMASTAT.getRDWR : TBits_1; inline;
- begin
- getRDWR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TDMAC_DMASTAT.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDMAC_DMASTAT.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDMAC_DCRCCON.setCRCCH(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TDMAC_DCRCCON.getCRCCH : TBits_3; inline;
- begin
- getCRCCH := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TDMAC_DCRCCON.setCRCTYP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TDMAC_DCRCCON.clearCRCTYP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TDMAC_DCRCCON.setCRCTYP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TDMAC_DCRCCON.getCRCTYP : TBits_1; inline;
- begin
- getCRCTYP := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TDMAC_DCRCCON.setCRCAPP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TDMAC_DCRCCON.clearCRCAPP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TDMAC_DCRCCON.setCRCAPP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TDMAC_DCRCCON.getCRCAPP : TBits_1; inline;
- begin
- getCRCAPP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TDMAC_DCRCCON.setCRCEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TDMAC_DCRCCON.clearCRCEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TDMAC_DCRCCON.setCRCEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TDMAC_DCRCCON.getCRCEN : TBits_1; inline;
- begin
- getCRCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TDMAC_DCRCCON.setPLEN(thebits : TBits_5); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
- end;
- function TDMAC_DCRCCON.getPLEN : TBits_5; inline;
- begin
- getPLEN := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
- end;
- procedure TDMAC_DCRCCON.setBITO; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TDMAC_DCRCCON.clearBITO; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TDMAC_DCRCCON.setBITO(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TDMAC_DCRCCON.getBITO : TBits_1; inline;
- begin
- getBITO := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TDMAC_DCRCCON.setWBO; inline;
- begin
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- procedure TDMAC_DCRCCON.clearWBO; inline;
- begin
- pTDefRegMap(@Self)^.clr := $08000000;
- end;
- procedure TDMAC_DCRCCON.setWBO(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $08000000
- else
- pTDefRegMap(@Self)^.&set := $08000000;
- end;
- function TDMAC_DCRCCON.getWBO : TBits_1; inline;
- begin
- getWBO := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
- end;
- procedure TDMAC_DCRCCON.setBYTO(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $CFFFFFFF or ( thebits shl 28 );
- end;
- function TDMAC_DCRCCON.getBYTO : TBits_2; inline;
- begin
- getBYTO := (pTDefRegMap(@Self)^.val and $30000000) shr 28;
- end;
- procedure TDMAC_DCRCCON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDMAC_DCRCCON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDMAC0_DCH0CON.setCHPRI(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TDMAC0_DCH0CON.getCHPRI : TBits_2; inline;
- begin
- getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TDMAC0_DCH0CON.setCHEDET; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TDMAC0_DCH0CON.clearCHEDET; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TDMAC0_DCH0CON.setCHEDET(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TDMAC0_DCH0CON.getCHEDET : TBits_1; inline;
- begin
- getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TDMAC0_DCH0CON.setCHAEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TDMAC0_DCH0CON.clearCHAEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TDMAC0_DCH0CON.setCHAEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TDMAC0_DCH0CON.getCHAEN : TBits_1; inline;
- begin
- getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TDMAC0_DCH0CON.setCHCHN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TDMAC0_DCH0CON.clearCHCHN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TDMAC0_DCH0CON.setCHCHN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TDMAC0_DCH0CON.getCHCHN : TBits_1; inline;
- begin
- getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TDMAC0_DCH0CON.setCHAED; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TDMAC0_DCH0CON.clearCHAED; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TDMAC0_DCH0CON.setCHAED(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TDMAC0_DCH0CON.getCHAED : TBits_1; inline;
- begin
- getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TDMAC0_DCH0CON.setCHEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TDMAC0_DCH0CON.clearCHEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TDMAC0_DCH0CON.setCHEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TDMAC0_DCH0CON.getCHEN : TBits_1; inline;
- begin
- getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TDMAC0_DCH0CON.setCHCHNS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TDMAC0_DCH0CON.clearCHCHNS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TDMAC0_DCH0CON.setCHCHNS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TDMAC0_DCH0CON.getCHCHNS : TBits_1; inline;
- begin
- getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TDMAC0_DCH0CON.setCHBUSY; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TDMAC0_DCH0CON.clearCHBUSY; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TDMAC0_DCH0CON.setCHBUSY(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TDMAC0_DCH0CON.getCHBUSY : TBits_1; inline;
- begin
- getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TDMAC0_DCH0CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDMAC0_DCH0CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDMAC0_DCH0ECON.setAIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TDMAC0_DCH0ECON.clearAIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TDMAC0_DCH0ECON.setAIRQEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TDMAC0_DCH0ECON.getAIRQEN : TBits_1; inline;
- begin
- getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TDMAC0_DCH0ECON.setSIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TDMAC0_DCH0ECON.clearSIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TDMAC0_DCH0ECON.setSIRQEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TDMAC0_DCH0ECON.getSIRQEN : TBits_1; inline;
- begin
- getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TDMAC0_DCH0ECON.setPATEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TDMAC0_DCH0ECON.clearPATEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TDMAC0_DCH0ECON.setPATEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TDMAC0_DCH0ECON.getPATEN : TBits_1; inline;
- begin
- getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TDMAC0_DCH0ECON.setCABORT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TDMAC0_DCH0ECON.clearCABORT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TDMAC0_DCH0ECON.setCABORT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TDMAC0_DCH0ECON.getCABORT : TBits_1; inline;
- begin
- getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TDMAC0_DCH0ECON.setCFORCE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TDMAC0_DCH0ECON.clearCFORCE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TDMAC0_DCH0ECON.setCFORCE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TDMAC0_DCH0ECON.getCFORCE : TBits_1; inline;
- begin
- getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TDMAC0_DCH0ECON.setCHSIRQ(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
- end;
- function TDMAC0_DCH0ECON.getCHSIRQ : TBits_8; inline;
- begin
- getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
- end;
- procedure TDMAC0_DCH0ECON.setCHAIRQ(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
- end;
- function TDMAC0_DCH0ECON.getCHAIRQ : TBits_8; inline;
- begin
- getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
- end;
- procedure TDMAC0_DCH0ECON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDMAC0_DCH0ECON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDMAC0_DCH0INT.setCHERIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TDMAC0_DCH0INT.clearCHERIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TDMAC0_DCH0INT.setCHERIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TDMAC0_DCH0INT.getCHERIF : TBits_1; inline;
- begin
- getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TDMAC0_DCH0INT.setCHTAIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TDMAC0_DCH0INT.clearCHTAIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TDMAC0_DCH0INT.setCHTAIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TDMAC0_DCH0INT.getCHTAIF : TBits_1; inline;
- begin
- getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TDMAC0_DCH0INT.setCHCCIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TDMAC0_DCH0INT.clearCHCCIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TDMAC0_DCH0INT.setCHCCIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TDMAC0_DCH0INT.getCHCCIF : TBits_1; inline;
- begin
- getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TDMAC0_DCH0INT.setCHBCIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TDMAC0_DCH0INT.clearCHBCIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TDMAC0_DCH0INT.setCHBCIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TDMAC0_DCH0INT.getCHBCIF : TBits_1; inline;
- begin
- getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TDMAC0_DCH0INT.setCHDHIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TDMAC0_DCH0INT.clearCHDHIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TDMAC0_DCH0INT.setCHDHIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TDMAC0_DCH0INT.getCHDHIF : TBits_1; inline;
- begin
- getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TDMAC0_DCH0INT.setCHDDIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TDMAC0_DCH0INT.clearCHDDIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TDMAC0_DCH0INT.setCHDDIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TDMAC0_DCH0INT.getCHDDIF : TBits_1; inline;
- begin
- getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TDMAC0_DCH0INT.setCHSHIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TDMAC0_DCH0INT.clearCHSHIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TDMAC0_DCH0INT.setCHSHIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TDMAC0_DCH0INT.getCHSHIF : TBits_1; inline;
- begin
- getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TDMAC0_DCH0INT.setCHSDIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TDMAC0_DCH0INT.clearCHSDIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TDMAC0_DCH0INT.setCHSDIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TDMAC0_DCH0INT.getCHSDIF : TBits_1; inline;
- begin
- getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TDMAC0_DCH0INT.setCHERIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TDMAC0_DCH0INT.clearCHERIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TDMAC0_DCH0INT.setCHERIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TDMAC0_DCH0INT.getCHERIE : TBits_1; inline;
- begin
- getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TDMAC0_DCH0INT.setCHTAIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- procedure TDMAC0_DCH0INT.clearCHTAIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00020000;
- end;
- procedure TDMAC0_DCH0INT.setCHTAIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00020000
- else
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- function TDMAC0_DCH0INT.getCHTAIE : TBits_1; inline;
- begin
- getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
- end;
- procedure TDMAC0_DCH0INT.setCHCCIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- procedure TDMAC0_DCH0INT.clearCHCCIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00040000;
- end;
- procedure TDMAC0_DCH0INT.setCHCCIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00040000
- else
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- function TDMAC0_DCH0INT.getCHCCIE : TBits_1; inline;
- begin
- getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
- end;
- procedure TDMAC0_DCH0INT.setCHBCIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- procedure TDMAC0_DCH0INT.clearCHBCIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00080000;
- end;
- procedure TDMAC0_DCH0INT.setCHBCIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00080000
- else
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- function TDMAC0_DCH0INT.getCHBCIE : TBits_1; inline;
- begin
- getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
- end;
- procedure TDMAC0_DCH0INT.setCHDHIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- procedure TDMAC0_DCH0INT.clearCHDHIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00100000;
- end;
- procedure TDMAC0_DCH0INT.setCHDHIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00100000
- else
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- function TDMAC0_DCH0INT.getCHDHIE : TBits_1; inline;
- begin
- getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
- end;
- procedure TDMAC0_DCH0INT.setCHDDIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- procedure TDMAC0_DCH0INT.clearCHDDIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00200000;
- end;
- procedure TDMAC0_DCH0INT.setCHDDIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00200000
- else
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- function TDMAC0_DCH0INT.getCHDDIE : TBits_1; inline;
- begin
- getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
- end;
- procedure TDMAC0_DCH0INT.setCHSHIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- procedure TDMAC0_DCH0INT.clearCHSHIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00400000;
- end;
- procedure TDMAC0_DCH0INT.setCHSHIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00400000
- else
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- function TDMAC0_DCH0INT.getCHSHIE : TBits_1; inline;
- begin
- getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
- end;
- procedure TDMAC0_DCH0INT.setCHSDIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- procedure TDMAC0_DCH0INT.clearCHSDIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00800000;
- end;
- procedure TDMAC0_DCH0INT.setCHSDIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00800000
- else
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- function TDMAC0_DCH0INT.getCHSDIE : TBits_1; inline;
- begin
- getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
- end;
- procedure TDMAC0_DCH0INT.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDMAC0_DCH0INT.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDMAC1_DCH1CON.setCHPRI(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TDMAC1_DCH1CON.getCHPRI : TBits_2; inline;
- begin
- getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TDMAC1_DCH1CON.setCHEDET; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TDMAC1_DCH1CON.clearCHEDET; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TDMAC1_DCH1CON.setCHEDET(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TDMAC1_DCH1CON.getCHEDET : TBits_1; inline;
- begin
- getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TDMAC1_DCH1CON.setCHAEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TDMAC1_DCH1CON.clearCHAEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TDMAC1_DCH1CON.setCHAEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TDMAC1_DCH1CON.getCHAEN : TBits_1; inline;
- begin
- getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TDMAC1_DCH1CON.setCHCHN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TDMAC1_DCH1CON.clearCHCHN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TDMAC1_DCH1CON.setCHCHN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TDMAC1_DCH1CON.getCHCHN : TBits_1; inline;
- begin
- getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TDMAC1_DCH1CON.setCHAED; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TDMAC1_DCH1CON.clearCHAED; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TDMAC1_DCH1CON.setCHAED(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TDMAC1_DCH1CON.getCHAED : TBits_1; inline;
- begin
- getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TDMAC1_DCH1CON.setCHEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TDMAC1_DCH1CON.clearCHEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TDMAC1_DCH1CON.setCHEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TDMAC1_DCH1CON.getCHEN : TBits_1; inline;
- begin
- getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TDMAC1_DCH1CON.setCHCHNS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TDMAC1_DCH1CON.clearCHCHNS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TDMAC1_DCH1CON.setCHCHNS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TDMAC1_DCH1CON.getCHCHNS : TBits_1; inline;
- begin
- getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TDMAC1_DCH1CON.setCHBUSY; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TDMAC1_DCH1CON.clearCHBUSY; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TDMAC1_DCH1CON.setCHBUSY(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TDMAC1_DCH1CON.getCHBUSY : TBits_1; inline;
- begin
- getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TDMAC1_DCH1CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDMAC1_DCH1CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDMAC1_DCH1ECON.setAIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TDMAC1_DCH1ECON.clearAIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TDMAC1_DCH1ECON.setAIRQEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TDMAC1_DCH1ECON.getAIRQEN : TBits_1; inline;
- begin
- getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TDMAC1_DCH1ECON.setSIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TDMAC1_DCH1ECON.clearSIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TDMAC1_DCH1ECON.setSIRQEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TDMAC1_DCH1ECON.getSIRQEN : TBits_1; inline;
- begin
- getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TDMAC1_DCH1ECON.setPATEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TDMAC1_DCH1ECON.clearPATEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TDMAC1_DCH1ECON.setPATEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TDMAC1_DCH1ECON.getPATEN : TBits_1; inline;
- begin
- getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TDMAC1_DCH1ECON.setCABORT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TDMAC1_DCH1ECON.clearCABORT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TDMAC1_DCH1ECON.setCABORT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TDMAC1_DCH1ECON.getCABORT : TBits_1; inline;
- begin
- getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TDMAC1_DCH1ECON.setCFORCE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TDMAC1_DCH1ECON.clearCFORCE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TDMAC1_DCH1ECON.setCFORCE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TDMAC1_DCH1ECON.getCFORCE : TBits_1; inline;
- begin
- getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TDMAC1_DCH1ECON.setCHSIRQ(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
- end;
- function TDMAC1_DCH1ECON.getCHSIRQ : TBits_8; inline;
- begin
- getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
- end;
- procedure TDMAC1_DCH1ECON.setCHAIRQ(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
- end;
- function TDMAC1_DCH1ECON.getCHAIRQ : TBits_8; inline;
- begin
- getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
- end;
- procedure TDMAC1_DCH1ECON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDMAC1_DCH1ECON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDMAC1_DCH1INT.setCHERIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TDMAC1_DCH1INT.clearCHERIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TDMAC1_DCH1INT.setCHERIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TDMAC1_DCH1INT.getCHERIF : TBits_1; inline;
- begin
- getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TDMAC1_DCH1INT.setCHTAIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TDMAC1_DCH1INT.clearCHTAIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TDMAC1_DCH1INT.setCHTAIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TDMAC1_DCH1INT.getCHTAIF : TBits_1; inline;
- begin
- getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TDMAC1_DCH1INT.setCHCCIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TDMAC1_DCH1INT.clearCHCCIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TDMAC1_DCH1INT.setCHCCIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TDMAC1_DCH1INT.getCHCCIF : TBits_1; inline;
- begin
- getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TDMAC1_DCH1INT.setCHBCIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TDMAC1_DCH1INT.clearCHBCIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TDMAC1_DCH1INT.setCHBCIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TDMAC1_DCH1INT.getCHBCIF : TBits_1; inline;
- begin
- getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TDMAC1_DCH1INT.setCHDHIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TDMAC1_DCH1INT.clearCHDHIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TDMAC1_DCH1INT.setCHDHIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TDMAC1_DCH1INT.getCHDHIF : TBits_1; inline;
- begin
- getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TDMAC1_DCH1INT.setCHDDIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TDMAC1_DCH1INT.clearCHDDIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TDMAC1_DCH1INT.setCHDDIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TDMAC1_DCH1INT.getCHDDIF : TBits_1; inline;
- begin
- getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TDMAC1_DCH1INT.setCHSHIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TDMAC1_DCH1INT.clearCHSHIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TDMAC1_DCH1INT.setCHSHIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TDMAC1_DCH1INT.getCHSHIF : TBits_1; inline;
- begin
- getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TDMAC1_DCH1INT.setCHSDIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TDMAC1_DCH1INT.clearCHSDIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TDMAC1_DCH1INT.setCHSDIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TDMAC1_DCH1INT.getCHSDIF : TBits_1; inline;
- begin
- getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TDMAC1_DCH1INT.setCHERIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TDMAC1_DCH1INT.clearCHERIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TDMAC1_DCH1INT.setCHERIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TDMAC1_DCH1INT.getCHERIE : TBits_1; inline;
- begin
- getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TDMAC1_DCH1INT.setCHTAIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- procedure TDMAC1_DCH1INT.clearCHTAIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00020000;
- end;
- procedure TDMAC1_DCH1INT.setCHTAIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00020000
- else
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- function TDMAC1_DCH1INT.getCHTAIE : TBits_1; inline;
- begin
- getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
- end;
- procedure TDMAC1_DCH1INT.setCHCCIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- procedure TDMAC1_DCH1INT.clearCHCCIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00040000;
- end;
- procedure TDMAC1_DCH1INT.setCHCCIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00040000
- else
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- function TDMAC1_DCH1INT.getCHCCIE : TBits_1; inline;
- begin
- getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
- end;
- procedure TDMAC1_DCH1INT.setCHBCIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- procedure TDMAC1_DCH1INT.clearCHBCIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00080000;
- end;
- procedure TDMAC1_DCH1INT.setCHBCIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00080000
- else
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- function TDMAC1_DCH1INT.getCHBCIE : TBits_1; inline;
- begin
- getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
- end;
- procedure TDMAC1_DCH1INT.setCHDHIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- procedure TDMAC1_DCH1INT.clearCHDHIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00100000;
- end;
- procedure TDMAC1_DCH1INT.setCHDHIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00100000
- else
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- function TDMAC1_DCH1INT.getCHDHIE : TBits_1; inline;
- begin
- getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
- end;
- procedure TDMAC1_DCH1INT.setCHDDIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- procedure TDMAC1_DCH1INT.clearCHDDIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00200000;
- end;
- procedure TDMAC1_DCH1INT.setCHDDIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00200000
- else
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- function TDMAC1_DCH1INT.getCHDDIE : TBits_1; inline;
- begin
- getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
- end;
- procedure TDMAC1_DCH1INT.setCHSHIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- procedure TDMAC1_DCH1INT.clearCHSHIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00400000;
- end;
- procedure TDMAC1_DCH1INT.setCHSHIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00400000
- else
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- function TDMAC1_DCH1INT.getCHSHIE : TBits_1; inline;
- begin
- getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
- end;
- procedure TDMAC1_DCH1INT.setCHSDIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- procedure TDMAC1_DCH1INT.clearCHSDIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00800000;
- end;
- procedure TDMAC1_DCH1INT.setCHSDIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00800000
- else
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- function TDMAC1_DCH1INT.getCHSDIE : TBits_1; inline;
- begin
- getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
- end;
- procedure TDMAC1_DCH1INT.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDMAC1_DCH1INT.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDMAC2_DCH2CON.setCHPRI(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TDMAC2_DCH2CON.getCHPRI : TBits_2; inline;
- begin
- getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TDMAC2_DCH2CON.setCHEDET; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TDMAC2_DCH2CON.clearCHEDET; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TDMAC2_DCH2CON.setCHEDET(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TDMAC2_DCH2CON.getCHEDET : TBits_1; inline;
- begin
- getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TDMAC2_DCH2CON.setCHAEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TDMAC2_DCH2CON.clearCHAEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TDMAC2_DCH2CON.setCHAEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TDMAC2_DCH2CON.getCHAEN : TBits_1; inline;
- begin
- getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TDMAC2_DCH2CON.setCHCHN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TDMAC2_DCH2CON.clearCHCHN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TDMAC2_DCH2CON.setCHCHN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TDMAC2_DCH2CON.getCHCHN : TBits_1; inline;
- begin
- getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TDMAC2_DCH2CON.setCHAED; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TDMAC2_DCH2CON.clearCHAED; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TDMAC2_DCH2CON.setCHAED(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TDMAC2_DCH2CON.getCHAED : TBits_1; inline;
- begin
- getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TDMAC2_DCH2CON.setCHEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TDMAC2_DCH2CON.clearCHEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TDMAC2_DCH2CON.setCHEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TDMAC2_DCH2CON.getCHEN : TBits_1; inline;
- begin
- getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TDMAC2_DCH2CON.setCHCHNS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TDMAC2_DCH2CON.clearCHCHNS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TDMAC2_DCH2CON.setCHCHNS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TDMAC2_DCH2CON.getCHCHNS : TBits_1; inline;
- begin
- getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TDMAC2_DCH2CON.setCHBUSY; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TDMAC2_DCH2CON.clearCHBUSY; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TDMAC2_DCH2CON.setCHBUSY(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TDMAC2_DCH2CON.getCHBUSY : TBits_1; inline;
- begin
- getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TDMAC2_DCH2CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDMAC2_DCH2CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDMAC2_DCH2ECON.setAIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TDMAC2_DCH2ECON.clearAIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TDMAC2_DCH2ECON.setAIRQEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TDMAC2_DCH2ECON.getAIRQEN : TBits_1; inline;
- begin
- getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TDMAC2_DCH2ECON.setSIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TDMAC2_DCH2ECON.clearSIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TDMAC2_DCH2ECON.setSIRQEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TDMAC2_DCH2ECON.getSIRQEN : TBits_1; inline;
- begin
- getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TDMAC2_DCH2ECON.setPATEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TDMAC2_DCH2ECON.clearPATEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TDMAC2_DCH2ECON.setPATEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TDMAC2_DCH2ECON.getPATEN : TBits_1; inline;
- begin
- getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TDMAC2_DCH2ECON.setCABORT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TDMAC2_DCH2ECON.clearCABORT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TDMAC2_DCH2ECON.setCABORT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TDMAC2_DCH2ECON.getCABORT : TBits_1; inline;
- begin
- getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TDMAC2_DCH2ECON.setCFORCE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TDMAC2_DCH2ECON.clearCFORCE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TDMAC2_DCH2ECON.setCFORCE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TDMAC2_DCH2ECON.getCFORCE : TBits_1; inline;
- begin
- getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TDMAC2_DCH2ECON.setCHSIRQ(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
- end;
- function TDMAC2_DCH2ECON.getCHSIRQ : TBits_8; inline;
- begin
- getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
- end;
- procedure TDMAC2_DCH2ECON.setCHAIRQ(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
- end;
- function TDMAC2_DCH2ECON.getCHAIRQ : TBits_8; inline;
- begin
- getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
- end;
- procedure TDMAC2_DCH2ECON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDMAC2_DCH2ECON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDMAC2_DCH2INT.setCHERIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TDMAC2_DCH2INT.clearCHERIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TDMAC2_DCH2INT.setCHERIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TDMAC2_DCH2INT.getCHERIF : TBits_1; inline;
- begin
- getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TDMAC2_DCH2INT.setCHTAIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TDMAC2_DCH2INT.clearCHTAIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TDMAC2_DCH2INT.setCHTAIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TDMAC2_DCH2INT.getCHTAIF : TBits_1; inline;
- begin
- getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TDMAC2_DCH2INT.setCHCCIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TDMAC2_DCH2INT.clearCHCCIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TDMAC2_DCH2INT.setCHCCIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TDMAC2_DCH2INT.getCHCCIF : TBits_1; inline;
- begin
- getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TDMAC2_DCH2INT.setCHBCIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TDMAC2_DCH2INT.clearCHBCIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TDMAC2_DCH2INT.setCHBCIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TDMAC2_DCH2INT.getCHBCIF : TBits_1; inline;
- begin
- getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TDMAC2_DCH2INT.setCHDHIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TDMAC2_DCH2INT.clearCHDHIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TDMAC2_DCH2INT.setCHDHIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TDMAC2_DCH2INT.getCHDHIF : TBits_1; inline;
- begin
- getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TDMAC2_DCH2INT.setCHDDIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TDMAC2_DCH2INT.clearCHDDIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TDMAC2_DCH2INT.setCHDDIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TDMAC2_DCH2INT.getCHDDIF : TBits_1; inline;
- begin
- getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TDMAC2_DCH2INT.setCHSHIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TDMAC2_DCH2INT.clearCHSHIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TDMAC2_DCH2INT.setCHSHIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TDMAC2_DCH2INT.getCHSHIF : TBits_1; inline;
- begin
- getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TDMAC2_DCH2INT.setCHSDIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TDMAC2_DCH2INT.clearCHSDIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TDMAC2_DCH2INT.setCHSDIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TDMAC2_DCH2INT.getCHSDIF : TBits_1; inline;
- begin
- getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TDMAC2_DCH2INT.setCHERIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TDMAC2_DCH2INT.clearCHERIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TDMAC2_DCH2INT.setCHERIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TDMAC2_DCH2INT.getCHERIE : TBits_1; inline;
- begin
- getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TDMAC2_DCH2INT.setCHTAIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- procedure TDMAC2_DCH2INT.clearCHTAIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00020000;
- end;
- procedure TDMAC2_DCH2INT.setCHTAIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00020000
- else
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- function TDMAC2_DCH2INT.getCHTAIE : TBits_1; inline;
- begin
- getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
- end;
- procedure TDMAC2_DCH2INT.setCHCCIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- procedure TDMAC2_DCH2INT.clearCHCCIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00040000;
- end;
- procedure TDMAC2_DCH2INT.setCHCCIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00040000
- else
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- function TDMAC2_DCH2INT.getCHCCIE : TBits_1; inline;
- begin
- getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
- end;
- procedure TDMAC2_DCH2INT.setCHBCIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- procedure TDMAC2_DCH2INT.clearCHBCIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00080000;
- end;
- procedure TDMAC2_DCH2INT.setCHBCIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00080000
- else
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- function TDMAC2_DCH2INT.getCHBCIE : TBits_1; inline;
- begin
- getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
- end;
- procedure TDMAC2_DCH2INT.setCHDHIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- procedure TDMAC2_DCH2INT.clearCHDHIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00100000;
- end;
- procedure TDMAC2_DCH2INT.setCHDHIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00100000
- else
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- function TDMAC2_DCH2INT.getCHDHIE : TBits_1; inline;
- begin
- getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
- end;
- procedure TDMAC2_DCH2INT.setCHDDIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- procedure TDMAC2_DCH2INT.clearCHDDIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00200000;
- end;
- procedure TDMAC2_DCH2INT.setCHDDIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00200000
- else
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- function TDMAC2_DCH2INT.getCHDDIE : TBits_1; inline;
- begin
- getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
- end;
- procedure TDMAC2_DCH2INT.setCHSHIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- procedure TDMAC2_DCH2INT.clearCHSHIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00400000;
- end;
- procedure TDMAC2_DCH2INT.setCHSHIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00400000
- else
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- function TDMAC2_DCH2INT.getCHSHIE : TBits_1; inline;
- begin
- getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
- end;
- procedure TDMAC2_DCH2INT.setCHSDIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- procedure TDMAC2_DCH2INT.clearCHSDIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00800000;
- end;
- procedure TDMAC2_DCH2INT.setCHSDIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00800000
- else
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- function TDMAC2_DCH2INT.getCHSDIE : TBits_1; inline;
- begin
- getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
- end;
- procedure TDMAC2_DCH2INT.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDMAC2_DCH2INT.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDMAC3_DCH3CON.setCHPRI(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TDMAC3_DCH3CON.getCHPRI : TBits_2; inline;
- begin
- getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TDMAC3_DCH3CON.setCHEDET; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TDMAC3_DCH3CON.clearCHEDET; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TDMAC3_DCH3CON.setCHEDET(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TDMAC3_DCH3CON.getCHEDET : TBits_1; inline;
- begin
- getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TDMAC3_DCH3CON.setCHAEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TDMAC3_DCH3CON.clearCHAEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TDMAC3_DCH3CON.setCHAEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TDMAC3_DCH3CON.getCHAEN : TBits_1; inline;
- begin
- getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TDMAC3_DCH3CON.setCHCHN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TDMAC3_DCH3CON.clearCHCHN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TDMAC3_DCH3CON.setCHCHN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TDMAC3_DCH3CON.getCHCHN : TBits_1; inline;
- begin
- getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TDMAC3_DCH3CON.setCHAED; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TDMAC3_DCH3CON.clearCHAED; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TDMAC3_DCH3CON.setCHAED(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TDMAC3_DCH3CON.getCHAED : TBits_1; inline;
- begin
- getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TDMAC3_DCH3CON.setCHEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TDMAC3_DCH3CON.clearCHEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TDMAC3_DCH3CON.setCHEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TDMAC3_DCH3CON.getCHEN : TBits_1; inline;
- begin
- getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TDMAC3_DCH3CON.setCHCHNS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TDMAC3_DCH3CON.clearCHCHNS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TDMAC3_DCH3CON.setCHCHNS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TDMAC3_DCH3CON.getCHCHNS : TBits_1; inline;
- begin
- getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TDMAC3_DCH3CON.setCHBUSY; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TDMAC3_DCH3CON.clearCHBUSY; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TDMAC3_DCH3CON.setCHBUSY(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TDMAC3_DCH3CON.getCHBUSY : TBits_1; inline;
- begin
- getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TDMAC3_DCH3CON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDMAC3_DCH3CON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDMAC3_DCH3ECON.setAIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TDMAC3_DCH3ECON.clearAIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TDMAC3_DCH3ECON.setAIRQEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TDMAC3_DCH3ECON.getAIRQEN : TBits_1; inline;
- begin
- getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TDMAC3_DCH3ECON.setSIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TDMAC3_DCH3ECON.clearSIRQEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TDMAC3_DCH3ECON.setSIRQEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TDMAC3_DCH3ECON.getSIRQEN : TBits_1; inline;
- begin
- getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TDMAC3_DCH3ECON.setPATEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TDMAC3_DCH3ECON.clearPATEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TDMAC3_DCH3ECON.setPATEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TDMAC3_DCH3ECON.getPATEN : TBits_1; inline;
- begin
- getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TDMAC3_DCH3ECON.setCABORT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TDMAC3_DCH3ECON.clearCABORT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TDMAC3_DCH3ECON.setCABORT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TDMAC3_DCH3ECON.getCABORT : TBits_1; inline;
- begin
- getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TDMAC3_DCH3ECON.setCFORCE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TDMAC3_DCH3ECON.clearCFORCE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TDMAC3_DCH3ECON.setCFORCE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TDMAC3_DCH3ECON.getCFORCE : TBits_1; inline;
- begin
- getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TDMAC3_DCH3ECON.setCHSIRQ(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
- end;
- function TDMAC3_DCH3ECON.getCHSIRQ : TBits_8; inline;
- begin
- getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
- end;
- procedure TDMAC3_DCH3ECON.setCHAIRQ(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
- end;
- function TDMAC3_DCH3ECON.getCHAIRQ : TBits_8; inline;
- begin
- getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
- end;
- procedure TDMAC3_DCH3ECON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDMAC3_DCH3ECON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDMAC3_DCH3INT.setCHERIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TDMAC3_DCH3INT.clearCHERIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TDMAC3_DCH3INT.setCHERIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TDMAC3_DCH3INT.getCHERIF : TBits_1; inline;
- begin
- getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TDMAC3_DCH3INT.setCHTAIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TDMAC3_DCH3INT.clearCHTAIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TDMAC3_DCH3INT.setCHTAIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TDMAC3_DCH3INT.getCHTAIF : TBits_1; inline;
- begin
- getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TDMAC3_DCH3INT.setCHCCIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TDMAC3_DCH3INT.clearCHCCIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TDMAC3_DCH3INT.setCHCCIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TDMAC3_DCH3INT.getCHCCIF : TBits_1; inline;
- begin
- getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TDMAC3_DCH3INT.setCHBCIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TDMAC3_DCH3INT.clearCHBCIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TDMAC3_DCH3INT.setCHBCIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TDMAC3_DCH3INT.getCHBCIF : TBits_1; inline;
- begin
- getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TDMAC3_DCH3INT.setCHDHIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TDMAC3_DCH3INT.clearCHDHIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TDMAC3_DCH3INT.setCHDHIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TDMAC3_DCH3INT.getCHDHIF : TBits_1; inline;
- begin
- getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TDMAC3_DCH3INT.setCHDDIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TDMAC3_DCH3INT.clearCHDDIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TDMAC3_DCH3INT.setCHDDIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TDMAC3_DCH3INT.getCHDDIF : TBits_1; inline;
- begin
- getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TDMAC3_DCH3INT.setCHSHIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TDMAC3_DCH3INT.clearCHSHIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TDMAC3_DCH3INT.setCHSHIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TDMAC3_DCH3INT.getCHSHIF : TBits_1; inline;
- begin
- getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TDMAC3_DCH3INT.setCHSDIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TDMAC3_DCH3INT.clearCHSDIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TDMAC3_DCH3INT.setCHSDIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TDMAC3_DCH3INT.getCHSDIF : TBits_1; inline;
- begin
- getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TDMAC3_DCH3INT.setCHERIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TDMAC3_DCH3INT.clearCHERIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TDMAC3_DCH3INT.setCHERIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TDMAC3_DCH3INT.getCHERIE : TBits_1; inline;
- begin
- getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TDMAC3_DCH3INT.setCHTAIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- procedure TDMAC3_DCH3INT.clearCHTAIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00020000;
- end;
- procedure TDMAC3_DCH3INT.setCHTAIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00020000
- else
- pTDefRegMap(@Self)^.&set := $00020000;
- end;
- function TDMAC3_DCH3INT.getCHTAIE : TBits_1; inline;
- begin
- getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
- end;
- procedure TDMAC3_DCH3INT.setCHCCIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- procedure TDMAC3_DCH3INT.clearCHCCIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00040000;
- end;
- procedure TDMAC3_DCH3INT.setCHCCIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00040000
- else
- pTDefRegMap(@Self)^.&set := $00040000;
- end;
- function TDMAC3_DCH3INT.getCHCCIE : TBits_1; inline;
- begin
- getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
- end;
- procedure TDMAC3_DCH3INT.setCHBCIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- procedure TDMAC3_DCH3INT.clearCHBCIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00080000;
- end;
- procedure TDMAC3_DCH3INT.setCHBCIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00080000
- else
- pTDefRegMap(@Self)^.&set := $00080000;
- end;
- function TDMAC3_DCH3INT.getCHBCIE : TBits_1; inline;
- begin
- getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
- end;
- procedure TDMAC3_DCH3INT.setCHDHIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- procedure TDMAC3_DCH3INT.clearCHDHIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00100000;
- end;
- procedure TDMAC3_DCH3INT.setCHDHIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00100000
- else
- pTDefRegMap(@Self)^.&set := $00100000;
- end;
- function TDMAC3_DCH3INT.getCHDHIE : TBits_1; inline;
- begin
- getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
- end;
- procedure TDMAC3_DCH3INT.setCHDDIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- procedure TDMAC3_DCH3INT.clearCHDDIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00200000;
- end;
- procedure TDMAC3_DCH3INT.setCHDDIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00200000
- else
- pTDefRegMap(@Self)^.&set := $00200000;
- end;
- function TDMAC3_DCH3INT.getCHDDIE : TBits_1; inline;
- begin
- getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
- end;
- procedure TDMAC3_DCH3INT.setCHSHIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- procedure TDMAC3_DCH3INT.clearCHSHIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00400000;
- end;
- procedure TDMAC3_DCH3INT.setCHSHIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00400000
- else
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- function TDMAC3_DCH3INT.getCHSHIE : TBits_1; inline;
- begin
- getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
- end;
- procedure TDMAC3_DCH3INT.setCHSDIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- procedure TDMAC3_DCH3INT.clearCHSDIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00800000;
- end;
- procedure TDMAC3_DCH3INT.setCHSDIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00800000
- else
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- function TDMAC3_DCH3INT.getCHSDIE : TBits_1; inline;
- begin
- getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
- end;
- procedure TDMAC3_DCH3INT.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDMAC3_DCH3INT.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPCACHE_CHECON.setPFMWS(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TPCACHE_CHECON.getPFMWS : TBits_3; inline;
- begin
- getPFMWS := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TPCACHE_CHECON.setPREFEN(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFCF or ( thebits shl 4 );
- end;
- function TPCACHE_CHECON.getPREFEN : TBits_2; inline;
- begin
- getPREFEN := (pTDefRegMap(@Self)^.val and $00000030) shr 4;
- end;
- procedure TPCACHE_CHECON.setDCSZ(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TPCACHE_CHECON.getDCSZ : TBits_2; inline;
- begin
- getDCSZ := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TPCACHE_CHECON.setCHECOH; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- procedure TPCACHE_CHECON.clearCHECOH; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00010000;
- end;
- procedure TPCACHE_CHECON.setCHECOH(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00010000
- else
- pTDefRegMap(@Self)^.&set := $00010000;
- end;
- function TPCACHE_CHECON.getCHECOH : TBits_1; inline;
- begin
- getCHECOH := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
- end;
- procedure TPCACHE_CHECON.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPCACHE_CHECON.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPCACHE_CHETAG.setLTYPE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPCACHE_CHETAG.clearLTYPE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPCACHE_CHETAG.setLTYPE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPCACHE_CHETAG.getLTYPE : TBits_1; inline;
- begin
- getLTYPE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPCACHE_CHETAG.setLLOCK; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPCACHE_CHETAG.clearLLOCK; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPCACHE_CHETAG.setLLOCK(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPCACHE_CHETAG.getLLOCK : TBits_1; inline;
- begin
- getLLOCK := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPCACHE_CHETAG.setLVALID; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPCACHE_CHETAG.clearLVALID; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPCACHE_CHETAG.setLVALID(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPCACHE_CHETAG.getLVALID : TBits_1; inline;
- begin
- getLVALID := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPCACHE_CHETAG.setLTAG(thebits : TBits_20); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00000F or ( thebits shl 4 );
- end;
- function TPCACHE_CHETAG.getLTAG : TBits_20; inline;
- begin
- getLTAG := (pTDefRegMap(@Self)^.val and $00FFFFF0) shr 4;
- end;
- procedure TPCACHE_CHETAG.setLTAGBOOT; inline;
- begin
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- procedure TPCACHE_CHETAG.clearLTAGBOOT; inline;
- begin
- pTDefRegMap(@Self)^.clr := $80000000;
- end;
- procedure TPCACHE_CHETAG.setLTAGBOOT(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $80000000
- else
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- function TPCACHE_CHETAG.getLTAGBOOT : TBits_1; inline;
- begin
- getLTAGBOOT := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
- end;
- procedure TPCACHE_CHETAG.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPCACHE_CHETAG.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUSB_U1IR.setURSTIF_DETACHIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_U1IR.clearURSTIF_DETACHIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_U1IR.setURSTIF_DETACHIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_U1IR.getURSTIF_DETACHIF : TBits_1; inline;
- begin
- getURSTIF_DETACHIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_U1IR.setUERRIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUSB_U1IR.clearUERRIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUSB_U1IR.setUERRIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUSB_U1IR.getUERRIF : TBits_1; inline;
- begin
- getUERRIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUSB_U1IR.setSOFIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUSB_U1IR.clearSOFIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUSB_U1IR.setSOFIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUSB_U1IR.getSOFIF : TBits_1; inline;
- begin
- getSOFIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUSB_U1IR.setTRNIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUSB_U1IR.clearTRNIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUSB_U1IR.setTRNIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUSB_U1IR.getTRNIF : TBits_1; inline;
- begin
- getTRNIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUSB_U1IR.setIDLEIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUSB_U1IR.clearIDLEIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUSB_U1IR.setIDLEIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUSB_U1IR.getIDLEIF : TBits_1; inline;
- begin
- getIDLEIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUSB_U1IR.setRESUMEIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUSB_U1IR.clearRESUMEIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUSB_U1IR.setRESUMEIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUSB_U1IR.getRESUMEIF : TBits_1; inline;
- begin
- getRESUMEIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUSB_U1IR.setATTACHIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUSB_U1IR.clearATTACHIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUSB_U1IR.setATTACHIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUSB_U1IR.getATTACHIF : TBits_1; inline;
- begin
- getATTACHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUSB_U1IR.setSTALLIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUSB_U1IR.clearSTALLIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUSB_U1IR.setSTALLIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUSB_U1IR.getSTALLIF : TBits_1; inline;
- begin
- getSTALLIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUSB_U1IR.setDETACHIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_U1IR.clearDETACHIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_U1IR.setDETACHIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_U1IR.getDETACHIF : TBits_1; inline;
- begin
- getDETACHIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_U1IR.setURSTIF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_U1IR.clearURSTIF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_U1IR.setURSTIF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_U1IR.getURSTIF : TBits_1; inline;
- begin
- getURSTIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_U1IE.setURSTIE_DETACHIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_U1IE.clearURSTIE_DETACHIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_U1IE.setURSTIE_DETACHIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_U1IE.getURSTIE_DETACHIE : TBits_1; inline;
- begin
- getURSTIE_DETACHIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_U1IE.setUERRIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUSB_U1IE.clearUERRIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUSB_U1IE.setUERRIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUSB_U1IE.getUERRIE : TBits_1; inline;
- begin
- getUERRIE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUSB_U1IE.setSOFIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUSB_U1IE.clearSOFIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUSB_U1IE.setSOFIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUSB_U1IE.getSOFIE : TBits_1; inline;
- begin
- getSOFIE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUSB_U1IE.setTRNIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUSB_U1IE.clearTRNIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUSB_U1IE.setTRNIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUSB_U1IE.getTRNIE : TBits_1; inline;
- begin
- getTRNIE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUSB_U1IE.setIDLEIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUSB_U1IE.clearIDLEIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUSB_U1IE.setIDLEIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUSB_U1IE.getIDLEIE : TBits_1; inline;
- begin
- getIDLEIE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUSB_U1IE.setRESUMEIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUSB_U1IE.clearRESUMEIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUSB_U1IE.setRESUMEIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUSB_U1IE.getRESUMEIE : TBits_1; inline;
- begin
- getRESUMEIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUSB_U1IE.setATTACHIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUSB_U1IE.clearATTACHIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUSB_U1IE.setATTACHIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUSB_U1IE.getATTACHIE : TBits_1; inline;
- begin
- getATTACHIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUSB_U1IE.setSTALLIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUSB_U1IE.clearSTALLIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUSB_U1IE.setSTALLIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUSB_U1IE.getSTALLIE : TBits_1; inline;
- begin
- getSTALLIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUSB_U1IE.setDETACHIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_U1IE.clearDETACHIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_U1IE.setDETACHIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_U1IE.getDETACHIE : TBits_1; inline;
- begin
- getDETACHIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_U1IE.setURSTIE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_U1IE.clearURSTIE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_U1IE.setURSTIE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_U1IE.getURSTIE : TBits_1; inline;
- begin
- getURSTIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_U1EIR.setPIDEF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_U1EIR.clearPIDEF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_U1EIR.setPIDEF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_U1EIR.getPIDEF : TBits_1; inline;
- begin
- getPIDEF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_U1EIR.setCRC5EF_EOFEF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUSB_U1EIR.clearCRC5EF_EOFEF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUSB_U1EIR.setCRC5EF_EOFEF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUSB_U1EIR.getCRC5EF_EOFEF : TBits_1; inline;
- begin
- getCRC5EF_EOFEF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUSB_U1EIR.setCRC16EF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUSB_U1EIR.clearCRC16EF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUSB_U1EIR.setCRC16EF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUSB_U1EIR.getCRC16EF : TBits_1; inline;
- begin
- getCRC16EF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUSB_U1EIR.setDFN8EF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUSB_U1EIR.clearDFN8EF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUSB_U1EIR.setDFN8EF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUSB_U1EIR.getDFN8EF : TBits_1; inline;
- begin
- getDFN8EF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUSB_U1EIR.setBTOEF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUSB_U1EIR.clearBTOEF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUSB_U1EIR.setBTOEF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUSB_U1EIR.getBTOEF : TBits_1; inline;
- begin
- getBTOEF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUSB_U1EIR.setDMAEF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUSB_U1EIR.clearDMAEF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUSB_U1EIR.setDMAEF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUSB_U1EIR.getDMAEF : TBits_1; inline;
- begin
- getDMAEF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUSB_U1EIR.setBMXEF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUSB_U1EIR.clearBMXEF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUSB_U1EIR.setBMXEF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUSB_U1EIR.getBMXEF : TBits_1; inline;
- begin
- getBMXEF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUSB_U1EIR.setBTSEF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUSB_U1EIR.clearBTSEF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUSB_U1EIR.setBTSEF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUSB_U1EIR.getBTSEF : TBits_1; inline;
- begin
- getBTSEF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUSB_U1EIR.setCRC5EF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUSB_U1EIR.clearCRC5EF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUSB_U1EIR.setCRC5EF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUSB_U1EIR.getCRC5EF : TBits_1; inline;
- begin
- getCRC5EF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUSB_U1EIR.setEOFEF; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUSB_U1EIR.clearEOFEF; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUSB_U1EIR.setEOFEF(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUSB_U1EIR.getEOFEF : TBits_1; inline;
- begin
- getEOFEF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUSB_U1EIE.setPIDEE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_U1EIE.clearPIDEE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_U1EIE.setPIDEE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_U1EIE.getPIDEE : TBits_1; inline;
- begin
- getPIDEE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_U1EIE.setCRC5EE_EOFEE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUSB_U1EIE.clearCRC5EE_EOFEE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUSB_U1EIE.setCRC5EE_EOFEE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUSB_U1EIE.getCRC5EE_EOFEE : TBits_1; inline;
- begin
- getCRC5EE_EOFEE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUSB_U1EIE.setCRC16EE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUSB_U1EIE.clearCRC16EE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUSB_U1EIE.setCRC16EE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUSB_U1EIE.getCRC16EE : TBits_1; inline;
- begin
- getCRC16EE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUSB_U1EIE.setDFN8EE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUSB_U1EIE.clearDFN8EE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUSB_U1EIE.setDFN8EE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUSB_U1EIE.getDFN8EE : TBits_1; inline;
- begin
- getDFN8EE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUSB_U1EIE.setBTOEE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUSB_U1EIE.clearBTOEE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUSB_U1EIE.setBTOEE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUSB_U1EIE.getBTOEE : TBits_1; inline;
- begin
- getBTOEE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUSB_U1EIE.setDMAEE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUSB_U1EIE.clearDMAEE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUSB_U1EIE.setDMAEE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUSB_U1EIE.getDMAEE : TBits_1; inline;
- begin
- getDMAEE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUSB_U1EIE.setBMXEE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUSB_U1EIE.clearBMXEE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUSB_U1EIE.setBMXEE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUSB_U1EIE.getBMXEE : TBits_1; inline;
- begin
- getBMXEE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUSB_U1EIE.setBTSEE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUSB_U1EIE.clearBTSEE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUSB_U1EIE.setBTSEE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUSB_U1EIE.getBTSEE : TBits_1; inline;
- begin
- getBTSEE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUSB_U1EIE.setCRC5EE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUSB_U1EIE.clearCRC5EE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUSB_U1EIE.setCRC5EE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUSB_U1EIE.getCRC5EE : TBits_1; inline;
- begin
- getCRC5EE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUSB_U1EIE.setEOFEE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUSB_U1EIE.clearEOFEE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUSB_U1EIE.setEOFEE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUSB_U1EIE.getEOFEE : TBits_1; inline;
- begin
- getEOFEE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUSB_U1STAT.setPPBI; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUSB_U1STAT.clearPPBI; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUSB_U1STAT.setPPBI(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUSB_U1STAT.getPPBI : TBits_1; inline;
- begin
- getPPBI := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUSB_U1STAT.setDIR; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUSB_U1STAT.clearDIR; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUSB_U1STAT.setDIR(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUSB_U1STAT.getDIR : TBits_1; inline;
- begin
- getDIR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUSB_U1STAT.setENDPT(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF0F or ( thebits shl 4 );
- end;
- function TUSB_U1STAT.getENDPT : TBits_4; inline;
- begin
- getENDPT := (pTDefRegMap(@Self)^.val and $000000F0) shr 4;
- end;
- procedure TUSB_U1STAT.setENDPT0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUSB_U1STAT.clearENDPT0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUSB_U1STAT.setENDPT0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUSB_U1STAT.getENDPT0 : TBits_1; inline;
- begin
- getENDPT0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUSB_U1STAT.setENDPT1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUSB_U1STAT.clearENDPT1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUSB_U1STAT.setENDPT1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUSB_U1STAT.getENDPT1 : TBits_1; inline;
- begin
- getENDPT1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUSB_U1STAT.setENDPT2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUSB_U1STAT.clearENDPT2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUSB_U1STAT.setENDPT2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUSB_U1STAT.getENDPT2 : TBits_1; inline;
- begin
- getENDPT2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUSB_U1STAT.setENDPT3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUSB_U1STAT.clearENDPT3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUSB_U1STAT.setENDPT3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUSB_U1STAT.getENDPT3 : TBits_1; inline;
- begin
- getENDPT3 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUSB_U1CON.setUSBEN_SOFEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_U1CON.clearUSBEN_SOFEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_U1CON.setUSBEN_SOFEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_U1CON.getUSBEN_SOFEN : TBits_1; inline;
- begin
- getUSBEN_SOFEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_U1CON.setPPBRST; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUSB_U1CON.clearPPBRST; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUSB_U1CON.setPPBRST(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUSB_U1CON.getPPBRST : TBits_1; inline;
- begin
- getPPBRST := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUSB_U1CON.setRESUME; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUSB_U1CON.clearRESUME; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUSB_U1CON.setRESUME(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUSB_U1CON.getRESUME : TBits_1; inline;
- begin
- getRESUME := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUSB_U1CON.setHOSTEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUSB_U1CON.clearHOSTEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUSB_U1CON.setHOSTEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUSB_U1CON.getHOSTEN : TBits_1; inline;
- begin
- getHOSTEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUSB_U1CON.setUSBRST; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUSB_U1CON.clearUSBRST; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUSB_U1CON.setUSBRST(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUSB_U1CON.getUSBRST : TBits_1; inline;
- begin
- getUSBRST := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUSB_U1CON.setPKTDIS_TOKBUSY; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUSB_U1CON.clearPKTDIS_TOKBUSY; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUSB_U1CON.setPKTDIS_TOKBUSY(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUSB_U1CON.getPKTDIS_TOKBUSY : TBits_1; inline;
- begin
- getPKTDIS_TOKBUSY := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUSB_U1CON.setSE0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUSB_U1CON.clearSE0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUSB_U1CON.setSE0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUSB_U1CON.getSE0 : TBits_1; inline;
- begin
- getSE0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUSB_U1CON.setJSTATE; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUSB_U1CON.clearJSTATE; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUSB_U1CON.setJSTATE(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUSB_U1CON.getJSTATE : TBits_1; inline;
- begin
- getJSTATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUSB_U1CON.setUSBEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_U1CON.clearUSBEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_U1CON.setUSBEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_U1CON.getUSBEN : TBits_1; inline;
- begin
- getUSBEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_U1CON.setSOFEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_U1CON.clearSOFEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_U1CON.setSOFEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_U1CON.getSOFEN : TBits_1; inline;
- begin
- getSOFEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_U1CON.setPKTDIS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUSB_U1CON.clearPKTDIS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUSB_U1CON.setPKTDIS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUSB_U1CON.getPKTDIS : TBits_1; inline;
- begin
- getPKTDIS := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUSB_U1CON.setTOKBUSY; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUSB_U1CON.clearTOKBUSY; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUSB_U1CON.setTOKBUSY(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUSB_U1CON.getTOKBUSY : TBits_1; inline;
- begin
- getTOKBUSY := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUSB_U1ADDR.setDEVADDR(thebits : TBits_7); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF80 or ( thebits shl 0 );
- end;
- function TUSB_U1ADDR.getDEVADDR : TBits_7; inline;
- begin
- getDEVADDR := (pTDefRegMap(@Self)^.val and $0000007F) shr 0;
- end;
- procedure TUSB_U1ADDR.setLSPDEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUSB_U1ADDR.clearLSPDEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUSB_U1ADDR.setLSPDEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUSB_U1ADDR.getLSPDEN : TBits_1; inline;
- begin
- getLSPDEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUSB_U1ADDR.setDEVADDR0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_U1ADDR.clearDEVADDR0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_U1ADDR.setDEVADDR0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_U1ADDR.getDEVADDR0 : TBits_1; inline;
- begin
- getDEVADDR0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_U1ADDR.setDEVADDR1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUSB_U1ADDR.clearDEVADDR1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUSB_U1ADDR.setDEVADDR1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUSB_U1ADDR.getDEVADDR1 : TBits_1; inline;
- begin
- getDEVADDR1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUSB_U1ADDR.setDEVADDR2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUSB_U1ADDR.clearDEVADDR2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUSB_U1ADDR.setDEVADDR2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUSB_U1ADDR.getDEVADDR2 : TBits_1; inline;
- begin
- getDEVADDR2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUSB_U1ADDR.setDEVADDR3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUSB_U1ADDR.clearDEVADDR3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUSB_U1ADDR.setDEVADDR3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUSB_U1ADDR.getDEVADDR3 : TBits_1; inline;
- begin
- getDEVADDR3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUSB_U1ADDR.setDEVADDR4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUSB_U1ADDR.clearDEVADDR4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUSB_U1ADDR.setDEVADDR4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUSB_U1ADDR.getDEVADDR4 : TBits_1; inline;
- begin
- getDEVADDR4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUSB_U1ADDR.setDEVADDR5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUSB_U1ADDR.clearDEVADDR5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUSB_U1ADDR.setDEVADDR5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUSB_U1ADDR.getDEVADDR5 : TBits_1; inline;
- begin
- getDEVADDR5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUSB_U1ADDR.setDEVADDR6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUSB_U1ADDR.clearDEVADDR6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUSB_U1ADDR.setDEVADDR6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUSB_U1ADDR.getDEVADDR6 : TBits_1; inline;
- begin
- getDEVADDR6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUSB_U1FRML.setFRML(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
- end;
- function TUSB_U1FRML.getFRML : TBits_8; inline;
- begin
- getFRML := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
- end;
- procedure TUSB_U1FRML.setFRM0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_U1FRML.clearFRM0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_U1FRML.setFRM0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_U1FRML.getFRM0 : TBits_1; inline;
- begin
- getFRM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_U1FRML.setFRM1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUSB_U1FRML.clearFRM1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUSB_U1FRML.setFRM1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUSB_U1FRML.getFRM1 : TBits_1; inline;
- begin
- getFRM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUSB_U1FRML.setFRM2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUSB_U1FRML.clearFRM2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUSB_U1FRML.setFRM2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUSB_U1FRML.getFRM2 : TBits_1; inline;
- begin
- getFRM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUSB_U1FRML.setFRM3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUSB_U1FRML.clearFRM3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUSB_U1FRML.setFRM3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUSB_U1FRML.getFRM3 : TBits_1; inline;
- begin
- getFRM3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUSB_U1FRML.setFRM4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUSB_U1FRML.clearFRM4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUSB_U1FRML.setFRM4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUSB_U1FRML.getFRM4 : TBits_1; inline;
- begin
- getFRM4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUSB_U1FRML.setFRM5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUSB_U1FRML.clearFRM5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUSB_U1FRML.setFRM5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUSB_U1FRML.getFRM5 : TBits_1; inline;
- begin
- getFRM5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUSB_U1FRML.setFRM6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUSB_U1FRML.clearFRM6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUSB_U1FRML.setFRM6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUSB_U1FRML.getFRM6 : TBits_1; inline;
- begin
- getFRM6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUSB_U1FRML.setFRM7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUSB_U1FRML.clearFRM7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUSB_U1FRML.setFRM7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUSB_U1FRML.getFRM7 : TBits_1; inline;
- begin
- getFRM7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUSB_U1FRMH.setFRMH(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TUSB_U1FRMH.getFRMH : TBits_3; inline;
- begin
- getFRMH := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TUSB_U1FRMH.setFRM8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_U1FRMH.clearFRM8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_U1FRMH.setFRM8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_U1FRMH.getFRM8 : TBits_1; inline;
- begin
- getFRM8 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_U1FRMH.setFRM9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUSB_U1FRMH.clearFRM9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUSB_U1FRMH.setFRM9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUSB_U1FRMH.getFRM9 : TBits_1; inline;
- begin
- getFRM9 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUSB_U1FRMH.setFRM10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUSB_U1FRMH.clearFRM10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUSB_U1FRMH.setFRM10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUSB_U1FRMH.getFRM10 : TBits_1; inline;
- begin
- getFRM10 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUSB_U1TOK.setEP(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
- end;
- function TUSB_U1TOK.getEP : TBits_4; inline;
- begin
- getEP := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
- end;
- procedure TUSB_U1TOK.setPID(thebits : TBits_4); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF0F or ( thebits shl 4 );
- end;
- function TUSB_U1TOK.getPID : TBits_4; inline;
- begin
- getPID := (pTDefRegMap(@Self)^.val and $000000F0) shr 4;
- end;
- procedure TUSB_U1TOK.setEP0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_U1TOK.clearEP0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_U1TOK.setEP0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_U1TOK.getEP0 : TBits_1; inline;
- begin
- getEP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_U1TOK.setEP1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUSB_U1TOK.clearEP1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUSB_U1TOK.setEP1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUSB_U1TOK.getEP1 : TBits_1; inline;
- begin
- getEP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUSB_U1TOK.setEP2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUSB_U1TOK.clearEP2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUSB_U1TOK.setEP2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUSB_U1TOK.getEP2 : TBits_1; inline;
- begin
- getEP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUSB_U1TOK.setEP3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUSB_U1TOK.clearEP3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUSB_U1TOK.setEP3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUSB_U1TOK.getEP3 : TBits_1; inline;
- begin
- getEP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUSB_U1TOK.setPID0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUSB_U1TOK.clearPID0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUSB_U1TOK.setPID0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUSB_U1TOK.getPID0 : TBits_1; inline;
- begin
- getPID0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUSB_U1TOK.setPID1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUSB_U1TOK.clearPID1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUSB_U1TOK.setPID1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUSB_U1TOK.getPID1 : TBits_1; inline;
- begin
- getPID1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUSB_U1TOK.setPID2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUSB_U1TOK.clearPID2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUSB_U1TOK.setPID2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUSB_U1TOK.getPID2 : TBits_1; inline;
- begin
- getPID2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUSB_U1TOK.setPID3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUSB_U1TOK.clearPID3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUSB_U1TOK.setPID3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUSB_U1TOK.getPID3 : TBits_1; inline;
- begin
- getPID3 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUSB_ANSELA.setANSA9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUSB_ANSELA.clearANSA9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUSB_ANSELA.setANSA9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUSB_ANSELA.getANSA9 : TBits_1; inline;
- begin
- getANSA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUSB_ANSELA.setANSA10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TUSB_ANSELA.clearANSA10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TUSB_ANSELA.setANSA10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TUSB_ANSELA.getANSA10 : TBits_1; inline;
- begin
- getANSA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TUSB_ANSELA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUSB_ANSELA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TUSB_TRISA.setTRISA0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TUSB_TRISA.clearTRISA0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TUSB_TRISA.setTRISA0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TUSB_TRISA.getTRISA0 : TBits_1; inline;
- begin
- getTRISA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TUSB_TRISA.setTRISA1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TUSB_TRISA.clearTRISA1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TUSB_TRISA.setTRISA1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TUSB_TRISA.getTRISA1 : TBits_1; inline;
- begin
- getTRISA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TUSB_TRISA.setTRISA2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TUSB_TRISA.clearTRISA2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TUSB_TRISA.setTRISA2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TUSB_TRISA.getTRISA2 : TBits_1; inline;
- begin
- getTRISA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TUSB_TRISA.setTRISA3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TUSB_TRISA.clearTRISA3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TUSB_TRISA.setTRISA3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TUSB_TRISA.getTRISA3 : TBits_1; inline;
- begin
- getTRISA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TUSB_TRISA.setTRISA4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TUSB_TRISA.clearTRISA4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TUSB_TRISA.setTRISA4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TUSB_TRISA.getTRISA4 : TBits_1; inline;
- begin
- getTRISA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TUSB_TRISA.setTRISA5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TUSB_TRISA.clearTRISA5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TUSB_TRISA.setTRISA5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TUSB_TRISA.getTRISA5 : TBits_1; inline;
- begin
- getTRISA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TUSB_TRISA.setTRISA6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TUSB_TRISA.clearTRISA6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TUSB_TRISA.setTRISA6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TUSB_TRISA.getTRISA6 : TBits_1; inline;
- begin
- getTRISA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TUSB_TRISA.setTRISA7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TUSB_TRISA.clearTRISA7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TUSB_TRISA.setTRISA7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TUSB_TRISA.getTRISA7 : TBits_1; inline;
- begin
- getTRISA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TUSB_TRISA.setTRISA9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TUSB_TRISA.clearTRISA9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TUSB_TRISA.setTRISA9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TUSB_TRISA.getTRISA9 : TBits_1; inline;
- begin
- getTRISA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TUSB_TRISA.setTRISA10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TUSB_TRISA.clearTRISA10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TUSB_TRISA.setTRISA10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TUSB_TRISA.getTRISA10 : TBits_1; inline;
- begin
- getTRISA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TUSB_TRISA.setTRISA14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TUSB_TRISA.clearTRISA14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TUSB_TRISA.setTRISA14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TUSB_TRISA.getTRISA14 : TBits_1; inline;
- begin
- getTRISA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TUSB_TRISA.setTRISA15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TUSB_TRISA.clearTRISA15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TUSB_TRISA.setTRISA15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TUSB_TRISA.getTRISA15 : TBits_1; inline;
- begin
- getTRISA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TUSB_TRISA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TUSB_TRISA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTA_PORTA.setRA0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTA_PORTA.clearRA0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTA_PORTA.setRA0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTA_PORTA.getRA0 : TBits_1; inline;
- begin
- getRA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTA_PORTA.setRA1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTA_PORTA.clearRA1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTA_PORTA.setRA1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTA_PORTA.getRA1 : TBits_1; inline;
- begin
- getRA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTA_PORTA.setRA2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTA_PORTA.clearRA2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTA_PORTA.setRA2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTA_PORTA.getRA2 : TBits_1; inline;
- begin
- getRA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTA_PORTA.setRA3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTA_PORTA.clearRA3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTA_PORTA.setRA3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTA_PORTA.getRA3 : TBits_1; inline;
- begin
- getRA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTA_PORTA.setRA4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTA_PORTA.clearRA4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTA_PORTA.setRA4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTA_PORTA.getRA4 : TBits_1; inline;
- begin
- getRA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTA_PORTA.setRA5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTA_PORTA.clearRA5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTA_PORTA.setRA5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTA_PORTA.getRA5 : TBits_1; inline;
- begin
- getRA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTA_PORTA.setRA6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTA_PORTA.clearRA6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTA_PORTA.setRA6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTA_PORTA.getRA6 : TBits_1; inline;
- begin
- getRA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTA_PORTA.setRA7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTA_PORTA.clearRA7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTA_PORTA.setRA7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTA_PORTA.getRA7 : TBits_1; inline;
- begin
- getRA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTA_PORTA.setRA9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTA_PORTA.clearRA9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTA_PORTA.setRA9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTA_PORTA.getRA9 : TBits_1; inline;
- begin
- getRA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTA_PORTA.setRA10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTA_PORTA.clearRA10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTA_PORTA.setRA10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTA_PORTA.getRA10 : TBits_1; inline;
- begin
- getRA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTA_PORTA.setRA14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTA_PORTA.clearRA14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTA_PORTA.setRA14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTA_PORTA.getRA14 : TBits_1; inline;
- begin
- getRA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTA_PORTA.setRA15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTA_PORTA.clearRA15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTA_PORTA.setRA15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTA_PORTA.getRA15 : TBits_1; inline;
- begin
- getRA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTA_PORTA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTA_PORTA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTA_LATA.setLATA0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTA_LATA.clearLATA0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTA_LATA.setLATA0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTA_LATA.getLATA0 : TBits_1; inline;
- begin
- getLATA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTA_LATA.setLATA1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTA_LATA.clearLATA1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTA_LATA.setLATA1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTA_LATA.getLATA1 : TBits_1; inline;
- begin
- getLATA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTA_LATA.setLATA2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTA_LATA.clearLATA2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTA_LATA.setLATA2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTA_LATA.getLATA2 : TBits_1; inline;
- begin
- getLATA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTA_LATA.setLATA3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTA_LATA.clearLATA3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTA_LATA.setLATA3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTA_LATA.getLATA3 : TBits_1; inline;
- begin
- getLATA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTA_LATA.setLATA4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTA_LATA.clearLATA4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTA_LATA.setLATA4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTA_LATA.getLATA4 : TBits_1; inline;
- begin
- getLATA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTA_LATA.setLATA5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTA_LATA.clearLATA5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTA_LATA.setLATA5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTA_LATA.getLATA5 : TBits_1; inline;
- begin
- getLATA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTA_LATA.setLATA6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTA_LATA.clearLATA6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTA_LATA.setLATA6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTA_LATA.getLATA6 : TBits_1; inline;
- begin
- getLATA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTA_LATA.setLATA7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTA_LATA.clearLATA7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTA_LATA.setLATA7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTA_LATA.getLATA7 : TBits_1; inline;
- begin
- getLATA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTA_LATA.setLATA9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTA_LATA.clearLATA9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTA_LATA.setLATA9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTA_LATA.getLATA9 : TBits_1; inline;
- begin
- getLATA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTA_LATA.setLATA10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTA_LATA.clearLATA10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTA_LATA.setLATA10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTA_LATA.getLATA10 : TBits_1; inline;
- begin
- getLATA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTA_LATA.setLATA14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTA_LATA.clearLATA14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTA_LATA.setLATA14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTA_LATA.getLATA14 : TBits_1; inline;
- begin
- getLATA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTA_LATA.setLATA15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTA_LATA.clearLATA15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTA_LATA.setLATA15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTA_LATA.getLATA15 : TBits_1; inline;
- begin
- getLATA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTA_LATA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTA_LATA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTA_ODCA.setODCA0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTA_ODCA.clearODCA0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTA_ODCA.setODCA0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTA_ODCA.getODCA0 : TBits_1; inline;
- begin
- getODCA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTA_ODCA.setODCA1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTA_ODCA.clearODCA1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTA_ODCA.setODCA1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTA_ODCA.getODCA1 : TBits_1; inline;
- begin
- getODCA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTA_ODCA.setODCA2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTA_ODCA.clearODCA2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTA_ODCA.setODCA2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTA_ODCA.getODCA2 : TBits_1; inline;
- begin
- getODCA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTA_ODCA.setODCA3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTA_ODCA.clearODCA3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTA_ODCA.setODCA3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTA_ODCA.getODCA3 : TBits_1; inline;
- begin
- getODCA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTA_ODCA.setODCA4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTA_ODCA.clearODCA4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTA_ODCA.setODCA4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTA_ODCA.getODCA4 : TBits_1; inline;
- begin
- getODCA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTA_ODCA.setODCA5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTA_ODCA.clearODCA5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTA_ODCA.setODCA5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTA_ODCA.getODCA5 : TBits_1; inline;
- begin
- getODCA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTA_ODCA.setODCA6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTA_ODCA.clearODCA6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTA_ODCA.setODCA6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTA_ODCA.getODCA6 : TBits_1; inline;
- begin
- getODCA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTA_ODCA.setODCA7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTA_ODCA.clearODCA7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTA_ODCA.setODCA7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTA_ODCA.getODCA7 : TBits_1; inline;
- begin
- getODCA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTA_ODCA.setODCA9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTA_ODCA.clearODCA9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTA_ODCA.setODCA9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTA_ODCA.getODCA9 : TBits_1; inline;
- begin
- getODCA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTA_ODCA.setODCA10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTA_ODCA.clearODCA10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTA_ODCA.setODCA10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTA_ODCA.getODCA10 : TBits_1; inline;
- begin
- getODCA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTA_ODCA.setODCA14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTA_ODCA.clearODCA14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTA_ODCA.setODCA14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTA_ODCA.getODCA14 : TBits_1; inline;
- begin
- getODCA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTA_ODCA.setODCA15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTA_ODCA.clearODCA15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTA_ODCA.setODCA15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTA_ODCA.getODCA15 : TBits_1; inline;
- begin
- getODCA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTA_ODCA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTA_ODCA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTA_CNPUA.setCNPUA0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTA_CNPUA.clearCNPUA0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTA_CNPUA.setCNPUA0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTA_CNPUA.getCNPUA0 : TBits_1; inline;
- begin
- getCNPUA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTA_CNPUA.setCNPUA1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTA_CNPUA.clearCNPUA1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTA_CNPUA.setCNPUA1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTA_CNPUA.getCNPUA1 : TBits_1; inline;
- begin
- getCNPUA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTA_CNPUA.setCNPUA2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTA_CNPUA.clearCNPUA2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTA_CNPUA.setCNPUA2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTA_CNPUA.getCNPUA2 : TBits_1; inline;
- begin
- getCNPUA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTA_CNPUA.setCNPUA3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTA_CNPUA.clearCNPUA3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTA_CNPUA.setCNPUA3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTA_CNPUA.getCNPUA3 : TBits_1; inline;
- begin
- getCNPUA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTA_CNPUA.setCNPUA4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTA_CNPUA.clearCNPUA4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTA_CNPUA.setCNPUA4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTA_CNPUA.getCNPUA4 : TBits_1; inline;
- begin
- getCNPUA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTA_CNPUA.setCNPUA5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTA_CNPUA.clearCNPUA5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTA_CNPUA.setCNPUA5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTA_CNPUA.getCNPUA5 : TBits_1; inline;
- begin
- getCNPUA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTA_CNPUA.setCNPUA6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTA_CNPUA.clearCNPUA6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTA_CNPUA.setCNPUA6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTA_CNPUA.getCNPUA6 : TBits_1; inline;
- begin
- getCNPUA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTA_CNPUA.setCNPUA7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTA_CNPUA.clearCNPUA7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTA_CNPUA.setCNPUA7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTA_CNPUA.getCNPUA7 : TBits_1; inline;
- begin
- getCNPUA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTA_CNPUA.setCNPUA9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTA_CNPUA.clearCNPUA9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTA_CNPUA.setCNPUA9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTA_CNPUA.getCNPUA9 : TBits_1; inline;
- begin
- getCNPUA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTA_CNPUA.setCNPUA10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTA_CNPUA.clearCNPUA10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTA_CNPUA.setCNPUA10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTA_CNPUA.getCNPUA10 : TBits_1; inline;
- begin
- getCNPUA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTA_CNPUA.setCNPUA14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTA_CNPUA.clearCNPUA14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTA_CNPUA.setCNPUA14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTA_CNPUA.getCNPUA14 : TBits_1; inline;
- begin
- getCNPUA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTA_CNPUA.setCNPUA15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTA_CNPUA.clearCNPUA15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTA_CNPUA.setCNPUA15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTA_CNPUA.getCNPUA15 : TBits_1; inline;
- begin
- getCNPUA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTA_CNPUA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTA_CNPUA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTA_CNPDA.setCNPDA0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTA_CNPDA.clearCNPDA0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTA_CNPDA.setCNPDA0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTA_CNPDA.getCNPDA0 : TBits_1; inline;
- begin
- getCNPDA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTA_CNPDA.setCNPDA1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTA_CNPDA.clearCNPDA1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTA_CNPDA.setCNPDA1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTA_CNPDA.getCNPDA1 : TBits_1; inline;
- begin
- getCNPDA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTA_CNPDA.setCNPDA2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTA_CNPDA.clearCNPDA2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTA_CNPDA.setCNPDA2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTA_CNPDA.getCNPDA2 : TBits_1; inline;
- begin
- getCNPDA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTA_CNPDA.setCNPDA3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTA_CNPDA.clearCNPDA3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTA_CNPDA.setCNPDA3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTA_CNPDA.getCNPDA3 : TBits_1; inline;
- begin
- getCNPDA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTA_CNPDA.setCNPDA4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTA_CNPDA.clearCNPDA4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTA_CNPDA.setCNPDA4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTA_CNPDA.getCNPDA4 : TBits_1; inline;
- begin
- getCNPDA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTA_CNPDA.setCNPDA5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTA_CNPDA.clearCNPDA5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTA_CNPDA.setCNPDA5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTA_CNPDA.getCNPDA5 : TBits_1; inline;
- begin
- getCNPDA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTA_CNPDA.setCNPDA6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTA_CNPDA.clearCNPDA6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTA_CNPDA.setCNPDA6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTA_CNPDA.getCNPDA6 : TBits_1; inline;
- begin
- getCNPDA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTA_CNPDA.setCNPDA7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTA_CNPDA.clearCNPDA7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTA_CNPDA.setCNPDA7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTA_CNPDA.getCNPDA7 : TBits_1; inline;
- begin
- getCNPDA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTA_CNPDA.setCNPDA9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTA_CNPDA.clearCNPDA9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTA_CNPDA.setCNPDA9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTA_CNPDA.getCNPDA9 : TBits_1; inline;
- begin
- getCNPDA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTA_CNPDA.setCNPDA10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTA_CNPDA.clearCNPDA10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTA_CNPDA.setCNPDA10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTA_CNPDA.getCNPDA10 : TBits_1; inline;
- begin
- getCNPDA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTA_CNPDA.setCNPDA14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTA_CNPDA.clearCNPDA14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTA_CNPDA.setCNPDA14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTA_CNPDA.getCNPDA14 : TBits_1; inline;
- begin
- getCNPDA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTA_CNPDA.setCNPDA15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTA_CNPDA.clearCNPDA15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTA_CNPDA.setCNPDA15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTA_CNPDA.getCNPDA15 : TBits_1; inline;
- begin
- getCNPDA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTA_CNPDA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTA_CNPDA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTA_CNCONA.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTA_CNCONA.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTA_CNCONA.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTA_CNCONA.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTA_CNCONA.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTA_CNCONA.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTA_CNCONA.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTA_CNCONA.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTA_CNCONA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTA_CNCONA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTA_CNENA.setCNIEA0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTA_CNENA.clearCNIEA0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTA_CNENA.setCNIEA0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTA_CNENA.getCNIEA0 : TBits_1; inline;
- begin
- getCNIEA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTA_CNENA.setCNIEA1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTA_CNENA.clearCNIEA1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTA_CNENA.setCNIEA1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTA_CNENA.getCNIEA1 : TBits_1; inline;
- begin
- getCNIEA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTA_CNENA.setCNIEA2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTA_CNENA.clearCNIEA2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTA_CNENA.setCNIEA2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTA_CNENA.getCNIEA2 : TBits_1; inline;
- begin
- getCNIEA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTA_CNENA.setCNIEA3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTA_CNENA.clearCNIEA3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTA_CNENA.setCNIEA3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTA_CNENA.getCNIEA3 : TBits_1; inline;
- begin
- getCNIEA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTA_CNENA.setCNIEA4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTA_CNENA.clearCNIEA4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTA_CNENA.setCNIEA4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTA_CNENA.getCNIEA4 : TBits_1; inline;
- begin
- getCNIEA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTA_CNENA.setCNIEA5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTA_CNENA.clearCNIEA5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTA_CNENA.setCNIEA5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTA_CNENA.getCNIEA5 : TBits_1; inline;
- begin
- getCNIEA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTA_CNENA.setCNIEA6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTA_CNENA.clearCNIEA6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTA_CNENA.setCNIEA6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTA_CNENA.getCNIEA6 : TBits_1; inline;
- begin
- getCNIEA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTA_CNENA.setCNIEA7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTA_CNENA.clearCNIEA7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTA_CNENA.setCNIEA7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTA_CNENA.getCNIEA7 : TBits_1; inline;
- begin
- getCNIEA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTA_CNENA.setCNIEA9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTA_CNENA.clearCNIEA9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTA_CNENA.setCNIEA9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTA_CNENA.getCNIEA9 : TBits_1; inline;
- begin
- getCNIEA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTA_CNENA.setCNIEA10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTA_CNENA.clearCNIEA10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTA_CNENA.setCNIEA10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTA_CNENA.getCNIEA10 : TBits_1; inline;
- begin
- getCNIEA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTA_CNENA.setCNIEA14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTA_CNENA.clearCNIEA14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTA_CNENA.setCNIEA14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTA_CNENA.getCNIEA14 : TBits_1; inline;
- begin
- getCNIEA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTA_CNENA.setCNIEA15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTA_CNENA.clearCNIEA15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTA_CNENA.setCNIEA15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTA_CNENA.getCNIEA15 : TBits_1; inline;
- begin
- getCNIEA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTA_CNENA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTA_CNENA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTA_CNSTATA.clearCNSTATA0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTA_CNSTATA.getCNSTATA0 : TBits_1; inline;
- begin
- getCNSTATA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTA_CNSTATA.clearCNSTATA1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTA_CNSTATA.getCNSTATA1 : TBits_1; inline;
- begin
- getCNSTATA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTA_CNSTATA.clearCNSTATA2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTA_CNSTATA.getCNSTATA2 : TBits_1; inline;
- begin
- getCNSTATA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTA_CNSTATA.clearCNSTATA3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTA_CNSTATA.getCNSTATA3 : TBits_1; inline;
- begin
- getCNSTATA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTA_CNSTATA.clearCNSTATA4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTA_CNSTATA.getCNSTATA4 : TBits_1; inline;
- begin
- getCNSTATA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTA_CNSTATA.clearCNSTATA5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTA_CNSTATA.getCNSTATA5 : TBits_1; inline;
- begin
- getCNSTATA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTA_CNSTATA.clearCNSTATA6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTA_CNSTATA.getCNSTATA6 : TBits_1; inline;
- begin
- getCNSTATA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTA_CNSTATA.clearCNSTATA7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTA_CNSTATA.getCNSTATA7 : TBits_1; inline;
- begin
- getCNSTATA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTA_CNSTATA.clearCNSTATA9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTA_CNSTATA.getCNSTATA9 : TBits_1; inline;
- begin
- getCNSTATA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTA_CNSTATA.clearCNSTATA10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTA_CNSTATA.getCNSTATA10 : TBits_1; inline;
- begin
- getCNSTATA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTA_CNSTATA.clearCNSTATA14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTA_CNSTATA.getCNSTATA14 : TBits_1; inline;
- begin
- getCNSTATA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTA_CNSTATA.clearCNSTATA15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTA_CNSTATA.setCNSTATA15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTA_CNSTATA.getCNSTATA15 : TBits_1; inline;
- begin
- getCNSTATA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTA_CNSTATA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTA_CNSTATA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTA_ANSELB.setANSB0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTA_ANSELB.clearANSB0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTA_ANSELB.setANSB0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTA_ANSELB.getANSB0 : TBits_1; inline;
- begin
- getANSB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTA_ANSELB.setANSB1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTA_ANSELB.clearANSB1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTA_ANSELB.setANSB1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTA_ANSELB.getANSB1 : TBits_1; inline;
- begin
- getANSB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTA_ANSELB.setANSB2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTA_ANSELB.clearANSB2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTA_ANSELB.setANSB2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTA_ANSELB.getANSB2 : TBits_1; inline;
- begin
- getANSB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTA_ANSELB.setANSB3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTA_ANSELB.clearANSB3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTA_ANSELB.setANSB3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTA_ANSELB.getANSB3 : TBits_1; inline;
- begin
- getANSB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTA_ANSELB.setANSB4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTA_ANSELB.clearANSB4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTA_ANSELB.setANSB4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTA_ANSELB.getANSB4 : TBits_1; inline;
- begin
- getANSB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTA_ANSELB.setANSB5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTA_ANSELB.clearANSB5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTA_ANSELB.setANSB5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTA_ANSELB.getANSB5 : TBits_1; inline;
- begin
- getANSB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTA_ANSELB.setANSB6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTA_ANSELB.clearANSB6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTA_ANSELB.setANSB6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTA_ANSELB.getANSB6 : TBits_1; inline;
- begin
- getANSB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTA_ANSELB.setANSB7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTA_ANSELB.clearANSB7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTA_ANSELB.setANSB7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTA_ANSELB.getANSB7 : TBits_1; inline;
- begin
- getANSB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTA_ANSELB.setANSB8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTA_ANSELB.clearANSB8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTA_ANSELB.setANSB8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTA_ANSELB.getANSB8 : TBits_1; inline;
- begin
- getANSB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTA_ANSELB.setANSB9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTA_ANSELB.clearANSB9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTA_ANSELB.setANSB9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTA_ANSELB.getANSB9 : TBits_1; inline;
- begin
- getANSB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTA_ANSELB.setANSB10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTA_ANSELB.clearANSB10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTA_ANSELB.setANSB10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTA_ANSELB.getANSB10 : TBits_1; inline;
- begin
- getANSB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTA_ANSELB.setANSB11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTA_ANSELB.clearANSB11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTA_ANSELB.setANSB11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTA_ANSELB.getANSB11 : TBits_1; inline;
- begin
- getANSB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTA_ANSELB.setANSB12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTA_ANSELB.clearANSB12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTA_ANSELB.setANSB12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTA_ANSELB.getANSB12 : TBits_1; inline;
- begin
- getANSB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTA_ANSELB.setANSB13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTA_ANSELB.clearANSB13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTA_ANSELB.setANSB13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTA_ANSELB.getANSB13 : TBits_1; inline;
- begin
- getANSB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTA_ANSELB.setANSB14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTA_ANSELB.clearANSB14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTA_ANSELB.setANSB14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTA_ANSELB.getANSB14 : TBits_1; inline;
- begin
- getANSB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTA_ANSELB.setANSB15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTA_ANSELB.clearANSB15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTA_ANSELB.setANSB15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTA_ANSELB.getANSB15 : TBits_1; inline;
- begin
- getANSB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTA_ANSELB.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTA_ANSELB.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTA_TRISB.setTRISB0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTA_TRISB.clearTRISB0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTA_TRISB.setTRISB0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTA_TRISB.getTRISB0 : TBits_1; inline;
- begin
- getTRISB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTA_TRISB.setTRISB1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTA_TRISB.clearTRISB1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTA_TRISB.setTRISB1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTA_TRISB.getTRISB1 : TBits_1; inline;
- begin
- getTRISB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTA_TRISB.setTRISB2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTA_TRISB.clearTRISB2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTA_TRISB.setTRISB2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTA_TRISB.getTRISB2 : TBits_1; inline;
- begin
- getTRISB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTA_TRISB.setTRISB3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTA_TRISB.clearTRISB3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTA_TRISB.setTRISB3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTA_TRISB.getTRISB3 : TBits_1; inline;
- begin
- getTRISB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTA_TRISB.setTRISB4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTA_TRISB.clearTRISB4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTA_TRISB.setTRISB4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTA_TRISB.getTRISB4 : TBits_1; inline;
- begin
- getTRISB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTA_TRISB.setTRISB5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTA_TRISB.clearTRISB5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTA_TRISB.setTRISB5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTA_TRISB.getTRISB5 : TBits_1; inline;
- begin
- getTRISB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTA_TRISB.setTRISB6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTA_TRISB.clearTRISB6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTA_TRISB.setTRISB6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTA_TRISB.getTRISB6 : TBits_1; inline;
- begin
- getTRISB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTA_TRISB.setTRISB7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTA_TRISB.clearTRISB7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTA_TRISB.setTRISB7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTA_TRISB.getTRISB7 : TBits_1; inline;
- begin
- getTRISB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTA_TRISB.setTRISB8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTA_TRISB.clearTRISB8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTA_TRISB.setTRISB8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTA_TRISB.getTRISB8 : TBits_1; inline;
- begin
- getTRISB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTA_TRISB.setTRISB9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTA_TRISB.clearTRISB9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTA_TRISB.setTRISB9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTA_TRISB.getTRISB9 : TBits_1; inline;
- begin
- getTRISB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTA_TRISB.setTRISB10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTA_TRISB.clearTRISB10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTA_TRISB.setTRISB10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTA_TRISB.getTRISB10 : TBits_1; inline;
- begin
- getTRISB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTA_TRISB.setTRISB11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTA_TRISB.clearTRISB11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTA_TRISB.setTRISB11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTA_TRISB.getTRISB11 : TBits_1; inline;
- begin
- getTRISB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTA_TRISB.setTRISB12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTA_TRISB.clearTRISB12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTA_TRISB.setTRISB12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTA_TRISB.getTRISB12 : TBits_1; inline;
- begin
- getTRISB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTA_TRISB.setTRISB13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTA_TRISB.clearTRISB13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTA_TRISB.setTRISB13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTA_TRISB.getTRISB13 : TBits_1; inline;
- begin
- getTRISB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTA_TRISB.setTRISB14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTA_TRISB.clearTRISB14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTA_TRISB.setTRISB14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTA_TRISB.getTRISB14 : TBits_1; inline;
- begin
- getTRISB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTA_TRISB.setTRISB15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTA_TRISB.clearTRISB15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTA_TRISB.setTRISB15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTA_TRISB.getTRISB15 : TBits_1; inline;
- begin
- getTRISB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTA_TRISB.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTA_TRISB.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTB_PORTB.setRB0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTB_PORTB.clearRB0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTB_PORTB.setRB0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTB_PORTB.getRB0 : TBits_1; inline;
- begin
- getRB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTB_PORTB.setRB1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTB_PORTB.clearRB1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTB_PORTB.setRB1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTB_PORTB.getRB1 : TBits_1; inline;
- begin
- getRB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTB_PORTB.setRB2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTB_PORTB.clearRB2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTB_PORTB.setRB2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTB_PORTB.getRB2 : TBits_1; inline;
- begin
- getRB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTB_PORTB.setRB3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTB_PORTB.clearRB3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTB_PORTB.setRB3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTB_PORTB.getRB3 : TBits_1; inline;
- begin
- getRB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTB_PORTB.setRB4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTB_PORTB.clearRB4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTB_PORTB.setRB4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTB_PORTB.getRB4 : TBits_1; inline;
- begin
- getRB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTB_PORTB.setRB5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTB_PORTB.clearRB5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTB_PORTB.setRB5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTB_PORTB.getRB5 : TBits_1; inline;
- begin
- getRB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTB_PORTB.setRB6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTB_PORTB.clearRB6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTB_PORTB.setRB6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTB_PORTB.getRB6 : TBits_1; inline;
- begin
- getRB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTB_PORTB.setRB7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTB_PORTB.clearRB7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTB_PORTB.setRB7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTB_PORTB.getRB7 : TBits_1; inline;
- begin
- getRB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTB_PORTB.setRB8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTB_PORTB.clearRB8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTB_PORTB.setRB8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTB_PORTB.getRB8 : TBits_1; inline;
- begin
- getRB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTB_PORTB.setRB9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTB_PORTB.clearRB9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTB_PORTB.setRB9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTB_PORTB.getRB9 : TBits_1; inline;
- begin
- getRB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTB_PORTB.setRB10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTB_PORTB.clearRB10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTB_PORTB.setRB10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTB_PORTB.getRB10 : TBits_1; inline;
- begin
- getRB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTB_PORTB.setRB11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTB_PORTB.clearRB11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTB_PORTB.setRB11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTB_PORTB.getRB11 : TBits_1; inline;
- begin
- getRB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTB_PORTB.setRB12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTB_PORTB.clearRB12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTB_PORTB.setRB12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTB_PORTB.getRB12 : TBits_1; inline;
- begin
- getRB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTB_PORTB.setRB13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTB_PORTB.clearRB13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTB_PORTB.setRB13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTB_PORTB.getRB13 : TBits_1; inline;
- begin
- getRB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTB_PORTB.setRB14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTB_PORTB.clearRB14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTB_PORTB.setRB14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTB_PORTB.getRB14 : TBits_1; inline;
- begin
- getRB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTB_PORTB.setRB15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTB_PORTB.clearRB15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTB_PORTB.setRB15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTB_PORTB.getRB15 : TBits_1; inline;
- begin
- getRB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTB_PORTB.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTB_PORTB.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTB_LATB.setLATB0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTB_LATB.clearLATB0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTB_LATB.setLATB0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTB_LATB.getLATB0 : TBits_1; inline;
- begin
- getLATB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTB_LATB.setLATB1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTB_LATB.clearLATB1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTB_LATB.setLATB1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTB_LATB.getLATB1 : TBits_1; inline;
- begin
- getLATB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTB_LATB.setLATB2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTB_LATB.clearLATB2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTB_LATB.setLATB2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTB_LATB.getLATB2 : TBits_1; inline;
- begin
- getLATB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTB_LATB.setLATB3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTB_LATB.clearLATB3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTB_LATB.setLATB3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTB_LATB.getLATB3 : TBits_1; inline;
- begin
- getLATB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTB_LATB.setLATB4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTB_LATB.clearLATB4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTB_LATB.setLATB4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTB_LATB.getLATB4 : TBits_1; inline;
- begin
- getLATB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTB_LATB.setLATB5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTB_LATB.clearLATB5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTB_LATB.setLATB5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTB_LATB.getLATB5 : TBits_1; inline;
- begin
- getLATB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTB_LATB.setLATB6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTB_LATB.clearLATB6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTB_LATB.setLATB6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTB_LATB.getLATB6 : TBits_1; inline;
- begin
- getLATB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTB_LATB.setLATB7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTB_LATB.clearLATB7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTB_LATB.setLATB7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTB_LATB.getLATB7 : TBits_1; inline;
- begin
- getLATB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTB_LATB.setLATB8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTB_LATB.clearLATB8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTB_LATB.setLATB8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTB_LATB.getLATB8 : TBits_1; inline;
- begin
- getLATB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTB_LATB.setLATB9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTB_LATB.clearLATB9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTB_LATB.setLATB9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTB_LATB.getLATB9 : TBits_1; inline;
- begin
- getLATB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTB_LATB.setLATB10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTB_LATB.clearLATB10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTB_LATB.setLATB10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTB_LATB.getLATB10 : TBits_1; inline;
- begin
- getLATB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTB_LATB.setLATB11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTB_LATB.clearLATB11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTB_LATB.setLATB11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTB_LATB.getLATB11 : TBits_1; inline;
- begin
- getLATB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTB_LATB.setLATB12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTB_LATB.clearLATB12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTB_LATB.setLATB12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTB_LATB.getLATB12 : TBits_1; inline;
- begin
- getLATB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTB_LATB.setLATB13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTB_LATB.clearLATB13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTB_LATB.setLATB13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTB_LATB.getLATB13 : TBits_1; inline;
- begin
- getLATB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTB_LATB.setLATB14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTB_LATB.clearLATB14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTB_LATB.setLATB14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTB_LATB.getLATB14 : TBits_1; inline;
- begin
- getLATB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTB_LATB.setLATB15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTB_LATB.clearLATB15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTB_LATB.setLATB15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTB_LATB.getLATB15 : TBits_1; inline;
- begin
- getLATB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTB_LATB.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTB_LATB.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTB_ODCB.setODCB0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTB_ODCB.clearODCB0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTB_ODCB.setODCB0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTB_ODCB.getODCB0 : TBits_1; inline;
- begin
- getODCB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTB_ODCB.setODCB1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTB_ODCB.clearODCB1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTB_ODCB.setODCB1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTB_ODCB.getODCB1 : TBits_1; inline;
- begin
- getODCB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTB_ODCB.setODCB2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTB_ODCB.clearODCB2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTB_ODCB.setODCB2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTB_ODCB.getODCB2 : TBits_1; inline;
- begin
- getODCB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTB_ODCB.setODCB3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTB_ODCB.clearODCB3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTB_ODCB.setODCB3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTB_ODCB.getODCB3 : TBits_1; inline;
- begin
- getODCB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTB_ODCB.setODCB4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTB_ODCB.clearODCB4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTB_ODCB.setODCB4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTB_ODCB.getODCB4 : TBits_1; inline;
- begin
- getODCB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTB_ODCB.setODCB5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTB_ODCB.clearODCB5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTB_ODCB.setODCB5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTB_ODCB.getODCB5 : TBits_1; inline;
- begin
- getODCB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTB_ODCB.setODCB6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTB_ODCB.clearODCB6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTB_ODCB.setODCB6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTB_ODCB.getODCB6 : TBits_1; inline;
- begin
- getODCB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTB_ODCB.setODCB7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTB_ODCB.clearODCB7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTB_ODCB.setODCB7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTB_ODCB.getODCB7 : TBits_1; inline;
- begin
- getODCB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTB_ODCB.setODCB8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTB_ODCB.clearODCB8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTB_ODCB.setODCB8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTB_ODCB.getODCB8 : TBits_1; inline;
- begin
- getODCB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTB_ODCB.setODCB9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTB_ODCB.clearODCB9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTB_ODCB.setODCB9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTB_ODCB.getODCB9 : TBits_1; inline;
- begin
- getODCB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTB_ODCB.setODCB10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTB_ODCB.clearODCB10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTB_ODCB.setODCB10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTB_ODCB.getODCB10 : TBits_1; inline;
- begin
- getODCB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTB_ODCB.setODCB11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTB_ODCB.clearODCB11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTB_ODCB.setODCB11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTB_ODCB.getODCB11 : TBits_1; inline;
- begin
- getODCB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTB_ODCB.setODCB12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTB_ODCB.clearODCB12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTB_ODCB.setODCB12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTB_ODCB.getODCB12 : TBits_1; inline;
- begin
- getODCB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTB_ODCB.setODCB13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTB_ODCB.clearODCB13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTB_ODCB.setODCB13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTB_ODCB.getODCB13 : TBits_1; inline;
- begin
- getODCB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTB_ODCB.setODCB14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTB_ODCB.clearODCB14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTB_ODCB.setODCB14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTB_ODCB.getODCB14 : TBits_1; inline;
- begin
- getODCB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTB_ODCB.setODCB15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTB_ODCB.clearODCB15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTB_ODCB.setODCB15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTB_ODCB.getODCB15 : TBits_1; inline;
- begin
- getODCB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTB_ODCB.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTB_ODCB.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTB_CNPUB.setCNPUB0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTB_CNPUB.clearCNPUB0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTB_CNPUB.setCNPUB0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTB_CNPUB.getCNPUB0 : TBits_1; inline;
- begin
- getCNPUB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTB_CNPUB.setCNPUB1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTB_CNPUB.clearCNPUB1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTB_CNPUB.setCNPUB1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTB_CNPUB.getCNPUB1 : TBits_1; inline;
- begin
- getCNPUB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTB_CNPUB.setCNPUB2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTB_CNPUB.clearCNPUB2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTB_CNPUB.setCNPUB2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTB_CNPUB.getCNPUB2 : TBits_1; inline;
- begin
- getCNPUB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTB_CNPUB.setCNPUB3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTB_CNPUB.clearCNPUB3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTB_CNPUB.setCNPUB3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTB_CNPUB.getCNPUB3 : TBits_1; inline;
- begin
- getCNPUB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTB_CNPUB.setCNPUB4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTB_CNPUB.clearCNPUB4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTB_CNPUB.setCNPUB4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTB_CNPUB.getCNPUB4 : TBits_1; inline;
- begin
- getCNPUB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTB_CNPUB.setCNPUB5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTB_CNPUB.clearCNPUB5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTB_CNPUB.setCNPUB5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTB_CNPUB.getCNPUB5 : TBits_1; inline;
- begin
- getCNPUB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTB_CNPUB.setCNPUB6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTB_CNPUB.clearCNPUB6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTB_CNPUB.setCNPUB6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTB_CNPUB.getCNPUB6 : TBits_1; inline;
- begin
- getCNPUB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTB_CNPUB.setCNPUB7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTB_CNPUB.clearCNPUB7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTB_CNPUB.setCNPUB7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTB_CNPUB.getCNPUB7 : TBits_1; inline;
- begin
- getCNPUB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTB_CNPUB.setCNPUB8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTB_CNPUB.clearCNPUB8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTB_CNPUB.setCNPUB8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTB_CNPUB.getCNPUB8 : TBits_1; inline;
- begin
- getCNPUB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTB_CNPUB.setCNPUB9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTB_CNPUB.clearCNPUB9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTB_CNPUB.setCNPUB9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTB_CNPUB.getCNPUB9 : TBits_1; inline;
- begin
- getCNPUB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTB_CNPUB.setCNPUB10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTB_CNPUB.clearCNPUB10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTB_CNPUB.setCNPUB10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTB_CNPUB.getCNPUB10 : TBits_1; inline;
- begin
- getCNPUB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTB_CNPUB.setCNPUB11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTB_CNPUB.clearCNPUB11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTB_CNPUB.setCNPUB11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTB_CNPUB.getCNPUB11 : TBits_1; inline;
- begin
- getCNPUB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTB_CNPUB.setCNPUB12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTB_CNPUB.clearCNPUB12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTB_CNPUB.setCNPUB12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTB_CNPUB.getCNPUB12 : TBits_1; inline;
- begin
- getCNPUB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTB_CNPUB.setCNPUB13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTB_CNPUB.clearCNPUB13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTB_CNPUB.setCNPUB13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTB_CNPUB.getCNPUB13 : TBits_1; inline;
- begin
- getCNPUB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTB_CNPUB.setCNPUB14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTB_CNPUB.clearCNPUB14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTB_CNPUB.setCNPUB14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTB_CNPUB.getCNPUB14 : TBits_1; inline;
- begin
- getCNPUB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTB_CNPUB.setCNPUB15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTB_CNPUB.clearCNPUB15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTB_CNPUB.setCNPUB15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTB_CNPUB.getCNPUB15 : TBits_1; inline;
- begin
- getCNPUB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTB_CNPUB.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTB_CNPUB.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTB_CNPDB.setCNPDB0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTB_CNPDB.clearCNPDB0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTB_CNPDB.setCNPDB0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTB_CNPDB.getCNPDB0 : TBits_1; inline;
- begin
- getCNPDB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTB_CNPDB.setCNPDB1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTB_CNPDB.clearCNPDB1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTB_CNPDB.setCNPDB1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTB_CNPDB.getCNPDB1 : TBits_1; inline;
- begin
- getCNPDB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTB_CNPDB.setCNPDB2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTB_CNPDB.clearCNPDB2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTB_CNPDB.setCNPDB2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTB_CNPDB.getCNPDB2 : TBits_1; inline;
- begin
- getCNPDB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTB_CNPDB.setCNPDB3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTB_CNPDB.clearCNPDB3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTB_CNPDB.setCNPDB3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTB_CNPDB.getCNPDB3 : TBits_1; inline;
- begin
- getCNPDB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTB_CNPDB.setCNPDB4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTB_CNPDB.clearCNPDB4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTB_CNPDB.setCNPDB4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTB_CNPDB.getCNPDB4 : TBits_1; inline;
- begin
- getCNPDB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTB_CNPDB.setCNPDB5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTB_CNPDB.clearCNPDB5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTB_CNPDB.setCNPDB5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTB_CNPDB.getCNPDB5 : TBits_1; inline;
- begin
- getCNPDB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTB_CNPDB.setCNPDB6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTB_CNPDB.clearCNPDB6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTB_CNPDB.setCNPDB6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTB_CNPDB.getCNPDB6 : TBits_1; inline;
- begin
- getCNPDB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTB_CNPDB.setCNPDB7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTB_CNPDB.clearCNPDB7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTB_CNPDB.setCNPDB7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTB_CNPDB.getCNPDB7 : TBits_1; inline;
- begin
- getCNPDB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTB_CNPDB.setCNPDB8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTB_CNPDB.clearCNPDB8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTB_CNPDB.setCNPDB8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTB_CNPDB.getCNPDB8 : TBits_1; inline;
- begin
- getCNPDB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTB_CNPDB.setCNPDB9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTB_CNPDB.clearCNPDB9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTB_CNPDB.setCNPDB9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTB_CNPDB.getCNPDB9 : TBits_1; inline;
- begin
- getCNPDB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTB_CNPDB.setCNPDB10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTB_CNPDB.clearCNPDB10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTB_CNPDB.setCNPDB10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTB_CNPDB.getCNPDB10 : TBits_1; inline;
- begin
- getCNPDB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTB_CNPDB.setCNPDB11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTB_CNPDB.clearCNPDB11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTB_CNPDB.setCNPDB11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTB_CNPDB.getCNPDB11 : TBits_1; inline;
- begin
- getCNPDB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTB_CNPDB.setCNPDB12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTB_CNPDB.clearCNPDB12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTB_CNPDB.setCNPDB12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTB_CNPDB.getCNPDB12 : TBits_1; inline;
- begin
- getCNPDB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTB_CNPDB.setCNPDB13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTB_CNPDB.clearCNPDB13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTB_CNPDB.setCNPDB13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTB_CNPDB.getCNPDB13 : TBits_1; inline;
- begin
- getCNPDB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTB_CNPDB.setCNPDB14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTB_CNPDB.clearCNPDB14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTB_CNPDB.setCNPDB14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTB_CNPDB.getCNPDB14 : TBits_1; inline;
- begin
- getCNPDB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTB_CNPDB.setCNPDB15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTB_CNPDB.clearCNPDB15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTB_CNPDB.setCNPDB15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTB_CNPDB.getCNPDB15 : TBits_1; inline;
- begin
- getCNPDB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTB_CNPDB.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTB_CNPDB.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTB_CNCONB.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTB_CNCONB.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTB_CNCONB.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTB_CNCONB.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTB_CNCONB.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTB_CNCONB.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTB_CNCONB.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTB_CNCONB.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTB_CNCONB.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTB_CNCONB.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTB_CNENB.setCNIEB0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTB_CNENB.clearCNIEB0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTB_CNENB.setCNIEB0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTB_CNENB.getCNIEB0 : TBits_1; inline;
- begin
- getCNIEB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTB_CNENB.setCNIEB1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTB_CNENB.clearCNIEB1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTB_CNENB.setCNIEB1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTB_CNENB.getCNIEB1 : TBits_1; inline;
- begin
- getCNIEB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTB_CNENB.setCNIEB2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTB_CNENB.clearCNIEB2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTB_CNENB.setCNIEB2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTB_CNENB.getCNIEB2 : TBits_1; inline;
- begin
- getCNIEB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTB_CNENB.setCNIEB3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTB_CNENB.clearCNIEB3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTB_CNENB.setCNIEB3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTB_CNENB.getCNIEB3 : TBits_1; inline;
- begin
- getCNIEB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTB_CNENB.setCNIEB4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTB_CNENB.clearCNIEB4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTB_CNENB.setCNIEB4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTB_CNENB.getCNIEB4 : TBits_1; inline;
- begin
- getCNIEB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTB_CNENB.setCNIEB5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTB_CNENB.clearCNIEB5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTB_CNENB.setCNIEB5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTB_CNENB.getCNIEB5 : TBits_1; inline;
- begin
- getCNIEB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTB_CNENB.setCNIEB6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTB_CNENB.clearCNIEB6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTB_CNENB.setCNIEB6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTB_CNENB.getCNIEB6 : TBits_1; inline;
- begin
- getCNIEB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTB_CNENB.setCNIEB7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTB_CNENB.clearCNIEB7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTB_CNENB.setCNIEB7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTB_CNENB.getCNIEB7 : TBits_1; inline;
- begin
- getCNIEB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTB_CNENB.setCNIEB8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTB_CNENB.clearCNIEB8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTB_CNENB.setCNIEB8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTB_CNENB.getCNIEB8 : TBits_1; inline;
- begin
- getCNIEB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTB_CNENB.setCNIEB9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTB_CNENB.clearCNIEB9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTB_CNENB.setCNIEB9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTB_CNENB.getCNIEB9 : TBits_1; inline;
- begin
- getCNIEB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTB_CNENB.setCNIEB10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTB_CNENB.clearCNIEB10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTB_CNENB.setCNIEB10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTB_CNENB.getCNIEB10 : TBits_1; inline;
- begin
- getCNIEB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTB_CNENB.setCNIEB11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTB_CNENB.clearCNIEB11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTB_CNENB.setCNIEB11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTB_CNENB.getCNIEB11 : TBits_1; inline;
- begin
- getCNIEB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTB_CNENB.setCNIEB12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTB_CNENB.clearCNIEB12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTB_CNENB.setCNIEB12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTB_CNENB.getCNIEB12 : TBits_1; inline;
- begin
- getCNIEB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTB_CNENB.setCNIEB13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTB_CNENB.clearCNIEB13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTB_CNENB.setCNIEB13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTB_CNENB.getCNIEB13 : TBits_1; inline;
- begin
- getCNIEB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTB_CNENB.setCNIEB14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTB_CNENB.clearCNIEB14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTB_CNENB.setCNIEB14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTB_CNENB.getCNIEB14 : TBits_1; inline;
- begin
- getCNIEB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTB_CNENB.setCNIEB15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTB_CNENB.clearCNIEB15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTB_CNENB.setCNIEB15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTB_CNENB.getCNIEB15 : TBits_1; inline;
- begin
- getCNIEB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTB_CNENB.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTB_CNENB.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTB_CNSTATB.getCNSTATB0 : TBits_1; inline;
- begin
- getCNSTATB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTB_CNSTATB.getCNSTATB1 : TBits_1; inline;
- begin
- getCNSTATB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTB_CNSTATB.getCNSTATB2 : TBits_1; inline;
- begin
- getCNSTATB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTB_CNSTATB.getCNSTATB3 : TBits_1; inline;
- begin
- getCNSTATB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTB_CNSTATB.getCNSTATB4 : TBits_1; inline;
- begin
- getCNSTATB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTB_CNSTATB.getCNSTATB5 : TBits_1; inline;
- begin
- getCNSTATB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTB_CNSTATB.getCNSTATB6 : TBits_1; inline;
- begin
- getCNSTATB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTB_CNSTATB.getCNSTATB7 : TBits_1; inline;
- begin
- getCNSTATB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTB_CNSTATB.getCNSTATB8 : TBits_1; inline;
- begin
- getCNSTATB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTB_CNSTATB.getCNSTATB9 : TBits_1; inline;
- begin
- getCNSTATB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTB_CNSTATB.getCNSTATB10 : TBits_1; inline;
- begin
- getCNSTATB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTB_CNSTATB.getCNSTATB11 : TBits_1; inline;
- begin
- getCNSTATB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTB_CNSTATB.getCNSTATB12 : TBits_1; inline;
- begin
- getCNSTATB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTB_CNSTATB.getCNSTATB13 : TBits_1; inline;
- begin
- getCNSTATB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTB_CNSTATB.getCNSTATB14 : TBits_1; inline;
- begin
- getCNSTATB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTB_CNSTATB.clearCNSTATB15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTB_CNSTATB.setCNSTATB15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTB_CNSTATB.getCNSTATB15 : TBits_1; inline;
- begin
- getCNSTATB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTB_CNSTATB.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTB_CNSTATB.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTB_TRISC.setTRISC1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTB_TRISC.clearTRISC1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTB_TRISC.setTRISC1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTB_TRISC.getTRISC1 : TBits_1; inline;
- begin
- getTRISC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTB_TRISC.setTRISC2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTB_TRISC.clearTRISC2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTB_TRISC.setTRISC2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTB_TRISC.getTRISC2 : TBits_1; inline;
- begin
- getTRISC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTB_TRISC.setTRISC3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTB_TRISC.clearTRISC3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTB_TRISC.setTRISC3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTB_TRISC.getTRISC3 : TBits_1; inline;
- begin
- getTRISC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTB_TRISC.setTRISC4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTB_TRISC.clearTRISC4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTB_TRISC.setTRISC4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTB_TRISC.getTRISC4 : TBits_1; inline;
- begin
- getTRISC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTB_TRISC.setTRISC12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTB_TRISC.clearTRISC12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTB_TRISC.setTRISC12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTB_TRISC.getTRISC12 : TBits_1; inline;
- begin
- getTRISC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTB_TRISC.setTRISC13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTB_TRISC.clearTRISC13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTB_TRISC.setTRISC13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTB_TRISC.getTRISC13 : TBits_1; inline;
- begin
- getTRISC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTB_TRISC.setTRISC14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTB_TRISC.clearTRISC14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTB_TRISC.setTRISC14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTB_TRISC.getTRISC14 : TBits_1; inline;
- begin
- getTRISC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTB_TRISC.setTRISC15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTB_TRISC.clearTRISC15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTB_TRISC.setTRISC15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTB_TRISC.getTRISC15 : TBits_1; inline;
- begin
- getTRISC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTB_TRISC.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTB_TRISC.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTC_PORTC.setRC1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTC_PORTC.clearRC1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTC_PORTC.setRC1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTC_PORTC.getRC1 : TBits_1; inline;
- begin
- getRC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTC_PORTC.setRC2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTC_PORTC.clearRC2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTC_PORTC.setRC2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTC_PORTC.getRC2 : TBits_1; inline;
- begin
- getRC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTC_PORTC.setRC3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTC_PORTC.clearRC3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTC_PORTC.setRC3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTC_PORTC.getRC3 : TBits_1; inline;
- begin
- getRC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTC_PORTC.setRC4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTC_PORTC.clearRC4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTC_PORTC.setRC4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTC_PORTC.getRC4 : TBits_1; inline;
- begin
- getRC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTC_PORTC.setRC12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTC_PORTC.clearRC12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTC_PORTC.setRC12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTC_PORTC.getRC12 : TBits_1; inline;
- begin
- getRC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTC_PORTC.setRC13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTC_PORTC.clearRC13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTC_PORTC.setRC13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTC_PORTC.getRC13 : TBits_1; inline;
- begin
- getRC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTC_PORTC.setRC14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTC_PORTC.clearRC14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTC_PORTC.setRC14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTC_PORTC.getRC14 : TBits_1; inline;
- begin
- getRC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTC_PORTC.setRC15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTC_PORTC.clearRC15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTC_PORTC.setRC15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTC_PORTC.getRC15 : TBits_1; inline;
- begin
- getRC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTC_PORTC.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTC_PORTC.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTC_LATC.setLATC1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTC_LATC.clearLATC1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTC_LATC.setLATC1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTC_LATC.getLATC1 : TBits_1; inline;
- begin
- getLATC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTC_LATC.setLATC2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTC_LATC.clearLATC2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTC_LATC.setLATC2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTC_LATC.getLATC2 : TBits_1; inline;
- begin
- getLATC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTC_LATC.setLATC3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTC_LATC.clearLATC3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTC_LATC.setLATC3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTC_LATC.getLATC3 : TBits_1; inline;
- begin
- getLATC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTC_LATC.setLATC4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTC_LATC.clearLATC4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTC_LATC.setLATC4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTC_LATC.getLATC4 : TBits_1; inline;
- begin
- getLATC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTC_LATC.setLATC12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTC_LATC.clearLATC12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTC_LATC.setLATC12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTC_LATC.getLATC12 : TBits_1; inline;
- begin
- getLATC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTC_LATC.setLATC13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTC_LATC.clearLATC13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTC_LATC.setLATC13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTC_LATC.getLATC13 : TBits_1; inline;
- begin
- getLATC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTC_LATC.setLATC14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTC_LATC.clearLATC14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTC_LATC.setLATC14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTC_LATC.getLATC14 : TBits_1; inline;
- begin
- getLATC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTC_LATC.setLATC15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTC_LATC.clearLATC15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTC_LATC.setLATC15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTC_LATC.getLATC15 : TBits_1; inline;
- begin
- getLATC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTC_LATC.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTC_LATC.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTC_ODCC.setODCC1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTC_ODCC.clearODCC1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTC_ODCC.setODCC1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTC_ODCC.getODCC1 : TBits_1; inline;
- begin
- getODCC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTC_ODCC.setODCC2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTC_ODCC.clearODCC2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTC_ODCC.setODCC2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTC_ODCC.getODCC2 : TBits_1; inline;
- begin
- getODCC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTC_ODCC.setODCC3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTC_ODCC.clearODCC3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTC_ODCC.setODCC3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTC_ODCC.getODCC3 : TBits_1; inline;
- begin
- getODCC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTC_ODCC.setODCC4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTC_ODCC.clearODCC4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTC_ODCC.setODCC4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTC_ODCC.getODCC4 : TBits_1; inline;
- begin
- getODCC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTC_ODCC.setODCC12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTC_ODCC.clearODCC12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTC_ODCC.setODCC12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTC_ODCC.getODCC12 : TBits_1; inline;
- begin
- getODCC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTC_ODCC.setODCC13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTC_ODCC.clearODCC13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTC_ODCC.setODCC13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTC_ODCC.getODCC13 : TBits_1; inline;
- begin
- getODCC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTC_ODCC.setODCC14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTC_ODCC.clearODCC14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTC_ODCC.setODCC14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTC_ODCC.getODCC14 : TBits_1; inline;
- begin
- getODCC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTC_ODCC.setODCC15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTC_ODCC.clearODCC15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTC_ODCC.setODCC15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTC_ODCC.getODCC15 : TBits_1; inline;
- begin
- getODCC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTC_ODCC.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTC_ODCC.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTC_CNPUC.setCNPUC1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTC_CNPUC.clearCNPUC1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTC_CNPUC.setCNPUC1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTC_CNPUC.getCNPUC1 : TBits_1; inline;
- begin
- getCNPUC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTC_CNPUC.setCNPUC2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTC_CNPUC.clearCNPUC2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTC_CNPUC.setCNPUC2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTC_CNPUC.getCNPUC2 : TBits_1; inline;
- begin
- getCNPUC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTC_CNPUC.setCNPUC3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTC_CNPUC.clearCNPUC3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTC_CNPUC.setCNPUC3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTC_CNPUC.getCNPUC3 : TBits_1; inline;
- begin
- getCNPUC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTC_CNPUC.setCNPUC4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTC_CNPUC.clearCNPUC4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTC_CNPUC.setCNPUC4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTC_CNPUC.getCNPUC4 : TBits_1; inline;
- begin
- getCNPUC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTC_CNPUC.setCNPUC12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTC_CNPUC.clearCNPUC12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTC_CNPUC.setCNPUC12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTC_CNPUC.getCNPUC12 : TBits_1; inline;
- begin
- getCNPUC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTC_CNPUC.setCNPUC13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTC_CNPUC.clearCNPUC13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTC_CNPUC.setCNPUC13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTC_CNPUC.getCNPUC13 : TBits_1; inline;
- begin
- getCNPUC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTC_CNPUC.setCNPUC14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTC_CNPUC.clearCNPUC14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTC_CNPUC.setCNPUC14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTC_CNPUC.getCNPUC14 : TBits_1; inline;
- begin
- getCNPUC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTC_CNPUC.setCNPUC15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTC_CNPUC.clearCNPUC15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTC_CNPUC.setCNPUC15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTC_CNPUC.getCNPUC15 : TBits_1; inline;
- begin
- getCNPUC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTC_CNPUC.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTC_CNPUC.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTC_CNPDC.setCNPDC1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTC_CNPDC.clearCNPDC1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTC_CNPDC.setCNPDC1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTC_CNPDC.getCNPDC1 : TBits_1; inline;
- begin
- getCNPDC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTC_CNPDC.setCNPDC2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTC_CNPDC.clearCNPDC2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTC_CNPDC.setCNPDC2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTC_CNPDC.getCNPDC2 : TBits_1; inline;
- begin
- getCNPDC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTC_CNPDC.setCNPDC3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTC_CNPDC.clearCNPDC3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTC_CNPDC.setCNPDC3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTC_CNPDC.getCNPDC3 : TBits_1; inline;
- begin
- getCNPDC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTC_CNPDC.setCNPDC4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTC_CNPDC.clearCNPDC4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTC_CNPDC.setCNPDC4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTC_CNPDC.getCNPDC4 : TBits_1; inline;
- begin
- getCNPDC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTC_CNPDC.setCNPDC12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTC_CNPDC.clearCNPDC12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTC_CNPDC.setCNPDC12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTC_CNPDC.getCNPDC12 : TBits_1; inline;
- begin
- getCNPDC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTC_CNPDC.setCNPDC13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTC_CNPDC.clearCNPDC13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTC_CNPDC.setCNPDC13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTC_CNPDC.getCNPDC13 : TBits_1; inline;
- begin
- getCNPDC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTC_CNPDC.setCNPDC14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTC_CNPDC.clearCNPDC14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTC_CNPDC.setCNPDC14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTC_CNPDC.getCNPDC14 : TBits_1; inline;
- begin
- getCNPDC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTC_CNPDC.setCNPDC15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTC_CNPDC.clearCNPDC15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTC_CNPDC.setCNPDC15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTC_CNPDC.getCNPDC15 : TBits_1; inline;
- begin
- getCNPDC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTC_CNPDC.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTC_CNPDC.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTC_CNCONC.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTC_CNCONC.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTC_CNCONC.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTC_CNCONC.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTC_CNCONC.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTC_CNCONC.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTC_CNCONC.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTC_CNCONC.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTC_CNCONC.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTC_CNCONC.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTC_CNENC.setCNIEC1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTC_CNENC.clearCNIEC1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTC_CNENC.setCNIEC1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTC_CNENC.getCNIEC1 : TBits_1; inline;
- begin
- getCNIEC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTC_CNENC.setCNIEC2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTC_CNENC.clearCNIEC2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTC_CNENC.setCNIEC2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTC_CNENC.getCNIEC2 : TBits_1; inline;
- begin
- getCNIEC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTC_CNENC.setCNIEC3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTC_CNENC.clearCNIEC3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTC_CNENC.setCNIEC3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTC_CNENC.getCNIEC3 : TBits_1; inline;
- begin
- getCNIEC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTC_CNENC.setCNIEC4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTC_CNENC.clearCNIEC4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTC_CNENC.setCNIEC4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTC_CNENC.getCNIEC4 : TBits_1; inline;
- begin
- getCNIEC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTC_CNENC.setCNIEC12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTC_CNENC.clearCNIEC12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTC_CNENC.setCNIEC12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTC_CNENC.getCNIEC12 : TBits_1; inline;
- begin
- getCNIEC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTC_CNENC.setCNIEC13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTC_CNENC.clearCNIEC13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTC_CNENC.setCNIEC13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTC_CNENC.getCNIEC13 : TBits_1; inline;
- begin
- getCNIEC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTC_CNENC.setCNIEC14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTC_CNENC.clearCNIEC14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTC_CNENC.setCNIEC14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTC_CNENC.getCNIEC14 : TBits_1; inline;
- begin
- getCNIEC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTC_CNENC.setCNIEC15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTC_CNENC.clearCNIEC15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTC_CNENC.setCNIEC15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTC_CNENC.getCNIEC15 : TBits_1; inline;
- begin
- getCNIEC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTC_CNENC.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTC_CNENC.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTC_CNSTATC.clearCNSTATC1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTC_CNSTATC.getCNSTATC1 : TBits_1; inline;
- begin
- getCNSTATC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTC_CNSTATC.clearCNSTATC2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTC_CNSTATC.getCNSTATC2 : TBits_1; inline;
- begin
- getCNSTATC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTC_CNSTATC.clearCNSTATC3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTC_CNSTATC.getCNSTATC3 : TBits_1; inline;
- begin
- getCNSTATC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTC_CNSTATC.clearCNSTATC4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTC_CNSTATC.getCNSTATC4 : TBits_1; inline;
- begin
- getCNSTATC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTC_CNSTATC.clearCNSTATC12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTC_CNSTATC.getCNSTATC12 : TBits_1; inline;
- begin
- getCNSTATC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTC_CNSTATC.clearCNSTATC13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTC_CNSTATC.getCNSTATC13 : TBits_1; inline;
- begin
- getCNSTATC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTC_CNSTATC.clearCNSTATC14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTC_CNSTATC.getCNSTATC14 : TBits_1; inline;
- begin
- getCNSTATC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTC_CNSTATC.clearCNSTATC15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTC_CNSTATC.setCNSTATC15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTC_CNSTATC.getCNSTATC15 : TBits_1; inline;
- begin
- getCNSTATC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTC_CNSTATC.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTC_CNSTATC.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTC_ANSELD.setANSD1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTC_ANSELD.clearANSD1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTC_ANSELD.setANSD1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTC_ANSELD.getANSD1 : TBits_1; inline;
- begin
- getANSD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTC_ANSELD.setANSD2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTC_ANSELD.clearANSD2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTC_ANSELD.setANSD2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTC_ANSELD.getANSD2 : TBits_1; inline;
- begin
- getANSD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTC_ANSELD.setANSD3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTC_ANSELD.clearANSD3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTC_ANSELD.setANSD3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTC_ANSELD.getANSD3 : TBits_1; inline;
- begin
- getANSD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTC_ANSELD.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTC_ANSELD.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTC_TRISD.setTRISD0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTC_TRISD.clearTRISD0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTC_TRISD.setTRISD0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTC_TRISD.getTRISD0 : TBits_1; inline;
- begin
- getTRISD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTC_TRISD.setTRISD1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTC_TRISD.clearTRISD1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTC_TRISD.setTRISD1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTC_TRISD.getTRISD1 : TBits_1; inline;
- begin
- getTRISD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTC_TRISD.setTRISD2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTC_TRISD.clearTRISD2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTC_TRISD.setTRISD2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTC_TRISD.getTRISD2 : TBits_1; inline;
- begin
- getTRISD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTC_TRISD.setTRISD3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTC_TRISD.clearTRISD3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTC_TRISD.setTRISD3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTC_TRISD.getTRISD3 : TBits_1; inline;
- begin
- getTRISD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTC_TRISD.setTRISD4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTC_TRISD.clearTRISD4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTC_TRISD.setTRISD4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTC_TRISD.getTRISD4 : TBits_1; inline;
- begin
- getTRISD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTC_TRISD.setTRISD5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTC_TRISD.clearTRISD5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTC_TRISD.setTRISD5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTC_TRISD.getTRISD5 : TBits_1; inline;
- begin
- getTRISD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTC_TRISD.setTRISD6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTC_TRISD.clearTRISD6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTC_TRISD.setTRISD6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTC_TRISD.getTRISD6 : TBits_1; inline;
- begin
- getTRISD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTC_TRISD.setTRISD7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTC_TRISD.clearTRISD7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTC_TRISD.setTRISD7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTC_TRISD.getTRISD7 : TBits_1; inline;
- begin
- getTRISD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTC_TRISD.setTRISD8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTC_TRISD.clearTRISD8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTC_TRISD.setTRISD8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTC_TRISD.getTRISD8 : TBits_1; inline;
- begin
- getTRISD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTC_TRISD.setTRISD9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTC_TRISD.clearTRISD9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTC_TRISD.setTRISD9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTC_TRISD.getTRISD9 : TBits_1; inline;
- begin
- getTRISD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTC_TRISD.setTRISD10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTC_TRISD.clearTRISD10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTC_TRISD.setTRISD10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTC_TRISD.getTRISD10 : TBits_1; inline;
- begin
- getTRISD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTC_TRISD.setTRISD11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTC_TRISD.clearTRISD11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTC_TRISD.setTRISD11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTC_TRISD.getTRISD11 : TBits_1; inline;
- begin
- getTRISD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTC_TRISD.setTRISD12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTC_TRISD.clearTRISD12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTC_TRISD.setTRISD12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTC_TRISD.getTRISD12 : TBits_1; inline;
- begin
- getTRISD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTC_TRISD.setTRISD13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTC_TRISD.clearTRISD13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTC_TRISD.setTRISD13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTC_TRISD.getTRISD13 : TBits_1; inline;
- begin
- getTRISD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTC_TRISD.setTRISD14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTC_TRISD.clearTRISD14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTC_TRISD.setTRISD14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTC_TRISD.getTRISD14 : TBits_1; inline;
- begin
- getTRISD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTC_TRISD.setTRISD15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTC_TRISD.clearTRISD15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTC_TRISD.setTRISD15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTC_TRISD.getTRISD15 : TBits_1; inline;
- begin
- getTRISD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTC_TRISD.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTC_TRISD.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTD_PORTD.setRD0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTD_PORTD.clearRD0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTD_PORTD.setRD0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTD_PORTD.getRD0 : TBits_1; inline;
- begin
- getRD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTD_PORTD.setRD1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTD_PORTD.clearRD1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTD_PORTD.setRD1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTD_PORTD.getRD1 : TBits_1; inline;
- begin
- getRD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTD_PORTD.setRD2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTD_PORTD.clearRD2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTD_PORTD.setRD2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTD_PORTD.getRD2 : TBits_1; inline;
- begin
- getRD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTD_PORTD.setRD3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTD_PORTD.clearRD3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTD_PORTD.setRD3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTD_PORTD.getRD3 : TBits_1; inline;
- begin
- getRD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTD_PORTD.setRD4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTD_PORTD.clearRD4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTD_PORTD.setRD4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTD_PORTD.getRD4 : TBits_1; inline;
- begin
- getRD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTD_PORTD.setRD5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTD_PORTD.clearRD5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTD_PORTD.setRD5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTD_PORTD.getRD5 : TBits_1; inline;
- begin
- getRD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTD_PORTD.setRD6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTD_PORTD.clearRD6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTD_PORTD.setRD6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTD_PORTD.getRD6 : TBits_1; inline;
- begin
- getRD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTD_PORTD.setRD7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTD_PORTD.clearRD7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTD_PORTD.setRD7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTD_PORTD.getRD7 : TBits_1; inline;
- begin
- getRD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTD_PORTD.setRD8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTD_PORTD.clearRD8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTD_PORTD.setRD8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTD_PORTD.getRD8 : TBits_1; inline;
- begin
- getRD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTD_PORTD.setRD9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTD_PORTD.clearRD9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTD_PORTD.setRD9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTD_PORTD.getRD9 : TBits_1; inline;
- begin
- getRD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTD_PORTD.setRD10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTD_PORTD.clearRD10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTD_PORTD.setRD10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTD_PORTD.getRD10 : TBits_1; inline;
- begin
- getRD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTD_PORTD.setRD11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTD_PORTD.clearRD11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTD_PORTD.setRD11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTD_PORTD.getRD11 : TBits_1; inline;
- begin
- getRD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTD_PORTD.setRD12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTD_PORTD.clearRD12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTD_PORTD.setRD12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTD_PORTD.getRD12 : TBits_1; inline;
- begin
- getRD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTD_PORTD.setRD13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTD_PORTD.clearRD13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTD_PORTD.setRD13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTD_PORTD.getRD13 : TBits_1; inline;
- begin
- getRD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTD_PORTD.setRD14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTD_PORTD.clearRD14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTD_PORTD.setRD14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTD_PORTD.getRD14 : TBits_1; inline;
- begin
- getRD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTD_PORTD.setRD15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTD_PORTD.clearRD15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTD_PORTD.setRD15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTD_PORTD.getRD15 : TBits_1; inline;
- begin
- getRD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTD_PORTD.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTD_PORTD.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTD_LATD.setLATD0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTD_LATD.clearLATD0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTD_LATD.setLATD0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTD_LATD.getLATD0 : TBits_1; inline;
- begin
- getLATD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTD_LATD.setLATD1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTD_LATD.clearLATD1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTD_LATD.setLATD1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTD_LATD.getLATD1 : TBits_1; inline;
- begin
- getLATD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTD_LATD.setLATD2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTD_LATD.clearLATD2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTD_LATD.setLATD2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTD_LATD.getLATD2 : TBits_1; inline;
- begin
- getLATD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTD_LATD.setLATD3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTD_LATD.clearLATD3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTD_LATD.setLATD3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTD_LATD.getLATD3 : TBits_1; inline;
- begin
- getLATD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTD_LATD.setLATD4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTD_LATD.clearLATD4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTD_LATD.setLATD4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTD_LATD.getLATD4 : TBits_1; inline;
- begin
- getLATD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTD_LATD.setLATD5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTD_LATD.clearLATD5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTD_LATD.setLATD5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTD_LATD.getLATD5 : TBits_1; inline;
- begin
- getLATD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTD_LATD.setLATD6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTD_LATD.clearLATD6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTD_LATD.setLATD6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTD_LATD.getLATD6 : TBits_1; inline;
- begin
- getLATD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTD_LATD.setLATD7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTD_LATD.clearLATD7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTD_LATD.setLATD7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTD_LATD.getLATD7 : TBits_1; inline;
- begin
- getLATD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTD_LATD.setLATD8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTD_LATD.clearLATD8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTD_LATD.setLATD8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTD_LATD.getLATD8 : TBits_1; inline;
- begin
- getLATD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTD_LATD.setLATD9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTD_LATD.clearLATD9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTD_LATD.setLATD9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTD_LATD.getLATD9 : TBits_1; inline;
- begin
- getLATD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTD_LATD.setLATD10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTD_LATD.clearLATD10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTD_LATD.setLATD10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTD_LATD.getLATD10 : TBits_1; inline;
- begin
- getLATD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTD_LATD.setLATD11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTD_LATD.clearLATD11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTD_LATD.setLATD11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTD_LATD.getLATD11 : TBits_1; inline;
- begin
- getLATD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTD_LATD.setLATD12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTD_LATD.clearLATD12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTD_LATD.setLATD12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTD_LATD.getLATD12 : TBits_1; inline;
- begin
- getLATD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTD_LATD.setLATD13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTD_LATD.clearLATD13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTD_LATD.setLATD13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTD_LATD.getLATD13 : TBits_1; inline;
- begin
- getLATD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTD_LATD.setLATD14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTD_LATD.clearLATD14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTD_LATD.setLATD14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTD_LATD.getLATD14 : TBits_1; inline;
- begin
- getLATD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTD_LATD.setLATD15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTD_LATD.clearLATD15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTD_LATD.setLATD15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTD_LATD.getLATD15 : TBits_1; inline;
- begin
- getLATD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTD_LATD.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTD_LATD.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTD_ODCD.setODCD0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTD_ODCD.clearODCD0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTD_ODCD.setODCD0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTD_ODCD.getODCD0 : TBits_1; inline;
- begin
- getODCD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTD_ODCD.setODCD1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTD_ODCD.clearODCD1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTD_ODCD.setODCD1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTD_ODCD.getODCD1 : TBits_1; inline;
- begin
- getODCD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTD_ODCD.setODCD2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTD_ODCD.clearODCD2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTD_ODCD.setODCD2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTD_ODCD.getODCD2 : TBits_1; inline;
- begin
- getODCD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTD_ODCD.setODCD3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTD_ODCD.clearODCD3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTD_ODCD.setODCD3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTD_ODCD.getODCD3 : TBits_1; inline;
- begin
- getODCD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTD_ODCD.setODCD4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTD_ODCD.clearODCD4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTD_ODCD.setODCD4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTD_ODCD.getODCD4 : TBits_1; inline;
- begin
- getODCD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTD_ODCD.setODCD5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTD_ODCD.clearODCD5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTD_ODCD.setODCD5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTD_ODCD.getODCD5 : TBits_1; inline;
- begin
- getODCD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTD_ODCD.setODCD6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTD_ODCD.clearODCD6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTD_ODCD.setODCD6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTD_ODCD.getODCD6 : TBits_1; inline;
- begin
- getODCD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTD_ODCD.setODCD7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTD_ODCD.clearODCD7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTD_ODCD.setODCD7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTD_ODCD.getODCD7 : TBits_1; inline;
- begin
- getODCD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTD_ODCD.setODCD8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTD_ODCD.clearODCD8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTD_ODCD.setODCD8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTD_ODCD.getODCD8 : TBits_1; inline;
- begin
- getODCD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTD_ODCD.setODCD9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTD_ODCD.clearODCD9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTD_ODCD.setODCD9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTD_ODCD.getODCD9 : TBits_1; inline;
- begin
- getODCD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTD_ODCD.setODCD10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTD_ODCD.clearODCD10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTD_ODCD.setODCD10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTD_ODCD.getODCD10 : TBits_1; inline;
- begin
- getODCD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTD_ODCD.setODCD11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTD_ODCD.clearODCD11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTD_ODCD.setODCD11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTD_ODCD.getODCD11 : TBits_1; inline;
- begin
- getODCD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTD_ODCD.setODCD12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTD_ODCD.clearODCD12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTD_ODCD.setODCD12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTD_ODCD.getODCD12 : TBits_1; inline;
- begin
- getODCD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTD_ODCD.setODCD13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTD_ODCD.clearODCD13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTD_ODCD.setODCD13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTD_ODCD.getODCD13 : TBits_1; inline;
- begin
- getODCD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTD_ODCD.setODCD14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTD_ODCD.clearODCD14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTD_ODCD.setODCD14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTD_ODCD.getODCD14 : TBits_1; inline;
- begin
- getODCD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTD_ODCD.setODCD15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTD_ODCD.clearODCD15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTD_ODCD.setODCD15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTD_ODCD.getODCD15 : TBits_1; inline;
- begin
- getODCD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTD_ODCD.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTD_ODCD.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTD_CNPUD.setCNPUD0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTD_CNPUD.clearCNPUD0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTD_CNPUD.setCNPUD0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTD_CNPUD.getCNPUD0 : TBits_1; inline;
- begin
- getCNPUD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTD_CNPUD.setCNPUD1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTD_CNPUD.clearCNPUD1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTD_CNPUD.setCNPUD1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTD_CNPUD.getCNPUD1 : TBits_1; inline;
- begin
- getCNPUD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTD_CNPUD.setCNPUD2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTD_CNPUD.clearCNPUD2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTD_CNPUD.setCNPUD2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTD_CNPUD.getCNPUD2 : TBits_1; inline;
- begin
- getCNPUD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTD_CNPUD.setCNPUD3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTD_CNPUD.clearCNPUD3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTD_CNPUD.setCNPUD3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTD_CNPUD.getCNPUD3 : TBits_1; inline;
- begin
- getCNPUD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTD_CNPUD.setCNPUD4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTD_CNPUD.clearCNPUD4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTD_CNPUD.setCNPUD4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTD_CNPUD.getCNPUD4 : TBits_1; inline;
- begin
- getCNPUD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTD_CNPUD.setCNPUD5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTD_CNPUD.clearCNPUD5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTD_CNPUD.setCNPUD5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTD_CNPUD.getCNPUD5 : TBits_1; inline;
- begin
- getCNPUD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTD_CNPUD.setCNPUD6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTD_CNPUD.clearCNPUD6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTD_CNPUD.setCNPUD6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTD_CNPUD.getCNPUD6 : TBits_1; inline;
- begin
- getCNPUD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTD_CNPUD.setCNPUD7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTD_CNPUD.clearCNPUD7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTD_CNPUD.setCNPUD7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTD_CNPUD.getCNPUD7 : TBits_1; inline;
- begin
- getCNPUD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTD_CNPUD.setCNPUD8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTD_CNPUD.clearCNPUD8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTD_CNPUD.setCNPUD8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTD_CNPUD.getCNPUD8 : TBits_1; inline;
- begin
- getCNPUD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTD_CNPUD.setCNPUD9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTD_CNPUD.clearCNPUD9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTD_CNPUD.setCNPUD9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTD_CNPUD.getCNPUD9 : TBits_1; inline;
- begin
- getCNPUD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTD_CNPUD.setCNPUD10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTD_CNPUD.clearCNPUD10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTD_CNPUD.setCNPUD10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTD_CNPUD.getCNPUD10 : TBits_1; inline;
- begin
- getCNPUD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTD_CNPUD.setCNPUD11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTD_CNPUD.clearCNPUD11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTD_CNPUD.setCNPUD11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTD_CNPUD.getCNPUD11 : TBits_1; inline;
- begin
- getCNPUD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTD_CNPUD.setCNPUD12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTD_CNPUD.clearCNPUD12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTD_CNPUD.setCNPUD12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTD_CNPUD.getCNPUD12 : TBits_1; inline;
- begin
- getCNPUD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTD_CNPUD.setCNPUD13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTD_CNPUD.clearCNPUD13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTD_CNPUD.setCNPUD13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTD_CNPUD.getCNPUD13 : TBits_1; inline;
- begin
- getCNPUD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTD_CNPUD.setCNPUD14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTD_CNPUD.clearCNPUD14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTD_CNPUD.setCNPUD14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTD_CNPUD.getCNPUD14 : TBits_1; inline;
- begin
- getCNPUD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTD_CNPUD.setCNPUD15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTD_CNPUD.clearCNPUD15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTD_CNPUD.setCNPUD15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTD_CNPUD.getCNPUD15 : TBits_1; inline;
- begin
- getCNPUD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTD_CNPUD.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTD_CNPUD.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTD_CNPDD.setCNPDD0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTD_CNPDD.clearCNPDD0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTD_CNPDD.setCNPDD0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTD_CNPDD.getCNPDD0 : TBits_1; inline;
- begin
- getCNPDD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTD_CNPDD.setCNPDD1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTD_CNPDD.clearCNPDD1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTD_CNPDD.setCNPDD1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTD_CNPDD.getCNPDD1 : TBits_1; inline;
- begin
- getCNPDD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTD_CNPDD.setCNPDD2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTD_CNPDD.clearCNPDD2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTD_CNPDD.setCNPDD2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTD_CNPDD.getCNPDD2 : TBits_1; inline;
- begin
- getCNPDD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTD_CNPDD.setCNPDD3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTD_CNPDD.clearCNPDD3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTD_CNPDD.setCNPDD3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTD_CNPDD.getCNPDD3 : TBits_1; inline;
- begin
- getCNPDD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTD_CNPDD.setCNPDD4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTD_CNPDD.clearCNPDD4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTD_CNPDD.setCNPDD4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTD_CNPDD.getCNPDD4 : TBits_1; inline;
- begin
- getCNPDD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTD_CNPDD.setCNPDD5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTD_CNPDD.clearCNPDD5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTD_CNPDD.setCNPDD5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTD_CNPDD.getCNPDD5 : TBits_1; inline;
- begin
- getCNPDD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTD_CNPDD.setCNPDD6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTD_CNPDD.clearCNPDD6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTD_CNPDD.setCNPDD6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTD_CNPDD.getCNPDD6 : TBits_1; inline;
- begin
- getCNPDD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTD_CNPDD.setCNPDD7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTD_CNPDD.clearCNPDD7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTD_CNPDD.setCNPDD7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTD_CNPDD.getCNPDD7 : TBits_1; inline;
- begin
- getCNPDD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTD_CNPDD.setCNPDD8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTD_CNPDD.clearCNPDD8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTD_CNPDD.setCNPDD8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTD_CNPDD.getCNPDD8 : TBits_1; inline;
- begin
- getCNPDD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTD_CNPDD.setCNPDD9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTD_CNPDD.clearCNPDD9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTD_CNPDD.setCNPDD9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTD_CNPDD.getCNPDD9 : TBits_1; inline;
- begin
- getCNPDD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTD_CNPDD.setCNPDD10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTD_CNPDD.clearCNPDD10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTD_CNPDD.setCNPDD10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTD_CNPDD.getCNPDD10 : TBits_1; inline;
- begin
- getCNPDD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTD_CNPDD.setCNPDD11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTD_CNPDD.clearCNPDD11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTD_CNPDD.setCNPDD11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTD_CNPDD.getCNPDD11 : TBits_1; inline;
- begin
- getCNPDD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTD_CNPDD.setCNPDD12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTD_CNPDD.clearCNPDD12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTD_CNPDD.setCNPDD12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTD_CNPDD.getCNPDD12 : TBits_1; inline;
- begin
- getCNPDD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTD_CNPDD.setCNPDD13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTD_CNPDD.clearCNPDD13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTD_CNPDD.setCNPDD13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTD_CNPDD.getCNPDD13 : TBits_1; inline;
- begin
- getCNPDD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTD_CNPDD.setCNPDD14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTD_CNPDD.clearCNPDD14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTD_CNPDD.setCNPDD14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTD_CNPDD.getCNPDD14 : TBits_1; inline;
- begin
- getCNPDD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTD_CNPDD.setCNPDD15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTD_CNPDD.clearCNPDD15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTD_CNPDD.setCNPDD15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTD_CNPDD.getCNPDD15 : TBits_1; inline;
- begin
- getCNPDD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTD_CNPDD.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTD_CNPDD.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTD_CNCOND.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTD_CNCOND.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTD_CNCOND.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTD_CNCOND.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTD_CNCOND.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTD_CNCOND.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTD_CNCOND.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTD_CNCOND.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTD_CNCOND.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTD_CNCOND.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTD_CNEND.setCNIED0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTD_CNEND.clearCNIED0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTD_CNEND.setCNIED0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTD_CNEND.getCNIED0 : TBits_1; inline;
- begin
- getCNIED0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTD_CNEND.setCNIED1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTD_CNEND.clearCNIED1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTD_CNEND.setCNIED1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTD_CNEND.getCNIED1 : TBits_1; inline;
- begin
- getCNIED1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTD_CNEND.setCNIED2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTD_CNEND.clearCNIED2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTD_CNEND.setCNIED2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTD_CNEND.getCNIED2 : TBits_1; inline;
- begin
- getCNIED2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTD_CNEND.setCNIED3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTD_CNEND.clearCNIED3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTD_CNEND.setCNIED3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTD_CNEND.getCNIED3 : TBits_1; inline;
- begin
- getCNIED3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTD_CNEND.setCNIED4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTD_CNEND.clearCNIED4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTD_CNEND.setCNIED4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTD_CNEND.getCNIED4 : TBits_1; inline;
- begin
- getCNIED4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTD_CNEND.setCNIED5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTD_CNEND.clearCNIED5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTD_CNEND.setCNIED5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTD_CNEND.getCNIED5 : TBits_1; inline;
- begin
- getCNIED5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTD_CNEND.setCNIED6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTD_CNEND.clearCNIED6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTD_CNEND.setCNIED6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTD_CNEND.getCNIED6 : TBits_1; inline;
- begin
- getCNIED6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTD_CNEND.setCNIED7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTD_CNEND.clearCNIED7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTD_CNEND.setCNIED7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTD_CNEND.getCNIED7 : TBits_1; inline;
- begin
- getCNIED7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTD_CNEND.setCNIED8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTD_CNEND.clearCNIED8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTD_CNEND.setCNIED8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTD_CNEND.getCNIED8 : TBits_1; inline;
- begin
- getCNIED8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTD_CNEND.setCNIED9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTD_CNEND.clearCNIED9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTD_CNEND.setCNIED9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTD_CNEND.getCNIED9 : TBits_1; inline;
- begin
- getCNIED9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTD_CNEND.setCNIED10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTD_CNEND.clearCNIED10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTD_CNEND.setCNIED10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTD_CNEND.getCNIED10 : TBits_1; inline;
- begin
- getCNIED10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTD_CNEND.setCNIED11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTD_CNEND.clearCNIED11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTD_CNEND.setCNIED11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTD_CNEND.getCNIED11 : TBits_1; inline;
- begin
- getCNIED11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTD_CNEND.setCNIED12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTD_CNEND.clearCNIED12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTD_CNEND.setCNIED12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTD_CNEND.getCNIED12 : TBits_1; inline;
- begin
- getCNIED12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTD_CNEND.setCNIED13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTD_CNEND.clearCNIED13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTD_CNEND.setCNIED13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTD_CNEND.getCNIED13 : TBits_1; inline;
- begin
- getCNIED13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTD_CNEND.setCNIED14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTD_CNEND.clearCNIED14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTD_CNEND.setCNIED14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTD_CNEND.getCNIED14 : TBits_1; inline;
- begin
- getCNIED14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTD_CNEND.setCNIED15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTD_CNEND.clearCNIED15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTD_CNEND.setCNIED15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTD_CNEND.getCNIED15 : TBits_1; inline;
- begin
- getCNIED15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTD_CNEND.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTD_CNEND.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTD_CNSTATD.getCNSTATD0 : TBits_1; inline;
- begin
- getCNSTATD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTD_CNSTATD.getCNSTATD1 : TBits_1; inline;
- begin
- getCNSTATD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTD_CNSTATD.getCNSTATD2 : TBits_1; inline;
- begin
- getCNSTATD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTD_CNSTATD.getCNSTATD3 : TBits_1; inline;
- begin
- getCNSTATD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTD_CNSTATD.getCNSTATD4 : TBits_1; inline;
- begin
- getCNSTATD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTD_CNSTATD.getCNSTATD5 : TBits_1; inline;
- begin
- getCNSTATD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTD_CNSTATD.getCNSTATD6 : TBits_1; inline;
- begin
- getCNSTATD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTD_CNSTATD.getCNSTATD7 : TBits_1; inline;
- begin
- getCNSTATD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTD_CNSTATD.getCNSTATD8 : TBits_1; inline;
- begin
- getCNSTATD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTD_CNSTATD.getCNSTATD9 : TBits_1; inline;
- begin
- getCNSTATD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPORTD_CNSTATD.getCNSTATD10 : TBits_1; inline;
- begin
- getCNSTATD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD11; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD11; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000800;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD11(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000800
- else
- pTDefRegMap(@Self)^.&set := $00000800;
- end;
- function TPORTD_CNSTATD.getCNSTATD11 : TBits_1; inline;
- begin
- getCNSTATD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTD_CNSTATD.getCNSTATD12 : TBits_1; inline;
- begin
- getCNSTATD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTD_CNSTATD.getCNSTATD13 : TBits_1; inline;
- begin
- getCNSTATD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTD_CNSTATD.getCNSTATD14 : TBits_1; inline;
- begin
- getCNSTATD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTD_CNSTATD.clearCNSTATD15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTD_CNSTATD.setCNSTATD15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTD_CNSTATD.getCNSTATD15 : TBits_1; inline;
- begin
- getCNSTATD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTD_CNSTATD.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTD_CNSTATD.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTD_ANSELE.setANSE2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTD_ANSELE.clearANSE2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTD_ANSELE.setANSE2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTD_ANSELE.getANSE2 : TBits_1; inline;
- begin
- getANSE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTD_ANSELE.setANSE4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTD_ANSELE.clearANSE4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTD_ANSELE.setANSE4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTD_ANSELE.getANSE4 : TBits_1; inline;
- begin
- getANSE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTD_ANSELE.setANSE5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTD_ANSELE.clearANSE5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTD_ANSELE.setANSE5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTD_ANSELE.getANSE5 : TBits_1; inline;
- begin
- getANSE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTD_ANSELE.setANSE6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTD_ANSELE.clearANSE6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTD_ANSELE.setANSE6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTD_ANSELE.getANSE6 : TBits_1; inline;
- begin
- getANSE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTD_ANSELE.setANSE7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTD_ANSELE.clearANSE7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTD_ANSELE.setANSE7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTD_ANSELE.getANSE7 : TBits_1; inline;
- begin
- getANSE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTD_ANSELE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTD_ANSELE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTD_TRISE.setTRISE0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTD_TRISE.clearTRISE0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTD_TRISE.setTRISE0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTD_TRISE.getTRISE0 : TBits_1; inline;
- begin
- getTRISE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTD_TRISE.setTRISE1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTD_TRISE.clearTRISE1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTD_TRISE.setTRISE1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTD_TRISE.getTRISE1 : TBits_1; inline;
- begin
- getTRISE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTD_TRISE.setTRISE2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTD_TRISE.clearTRISE2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTD_TRISE.setTRISE2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTD_TRISE.getTRISE2 : TBits_1; inline;
- begin
- getTRISE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTD_TRISE.setTRISE3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTD_TRISE.clearTRISE3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTD_TRISE.setTRISE3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTD_TRISE.getTRISE3 : TBits_1; inline;
- begin
- getTRISE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTD_TRISE.setTRISE4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTD_TRISE.clearTRISE4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTD_TRISE.setTRISE4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTD_TRISE.getTRISE4 : TBits_1; inline;
- begin
- getTRISE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTD_TRISE.setTRISE5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTD_TRISE.clearTRISE5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTD_TRISE.setTRISE5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTD_TRISE.getTRISE5 : TBits_1; inline;
- begin
- getTRISE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTD_TRISE.setTRISE6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTD_TRISE.clearTRISE6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTD_TRISE.setTRISE6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTD_TRISE.getTRISE6 : TBits_1; inline;
- begin
- getTRISE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTD_TRISE.setTRISE7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTD_TRISE.clearTRISE7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTD_TRISE.setTRISE7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTD_TRISE.getTRISE7 : TBits_1; inline;
- begin
- getTRISE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTD_TRISE.setTRISE8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTD_TRISE.clearTRISE8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTD_TRISE.setTRISE8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTD_TRISE.getTRISE8 : TBits_1; inline;
- begin
- getTRISE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTD_TRISE.setTRISE9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTD_TRISE.clearTRISE9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTD_TRISE.setTRISE9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTD_TRISE.getTRISE9 : TBits_1; inline;
- begin
- getTRISE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTD_TRISE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTD_TRISE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTE_PORTE.setRE0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTE_PORTE.clearRE0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTE_PORTE.setRE0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTE_PORTE.getRE0 : TBits_1; inline;
- begin
- getRE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTE_PORTE.setRE1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTE_PORTE.clearRE1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTE_PORTE.setRE1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTE_PORTE.getRE1 : TBits_1; inline;
- begin
- getRE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTE_PORTE.setRE2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTE_PORTE.clearRE2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTE_PORTE.setRE2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTE_PORTE.getRE2 : TBits_1; inline;
- begin
- getRE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTE_PORTE.setRE3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTE_PORTE.clearRE3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTE_PORTE.setRE3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTE_PORTE.getRE3 : TBits_1; inline;
- begin
- getRE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTE_PORTE.setRE4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTE_PORTE.clearRE4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTE_PORTE.setRE4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTE_PORTE.getRE4 : TBits_1; inline;
- begin
- getRE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTE_PORTE.setRE5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTE_PORTE.clearRE5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTE_PORTE.setRE5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTE_PORTE.getRE5 : TBits_1; inline;
- begin
- getRE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTE_PORTE.setRE6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTE_PORTE.clearRE6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTE_PORTE.setRE6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTE_PORTE.getRE6 : TBits_1; inline;
- begin
- getRE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTE_PORTE.setRE7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTE_PORTE.clearRE7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTE_PORTE.setRE7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTE_PORTE.getRE7 : TBits_1; inline;
- begin
- getRE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTE_PORTE.setRE8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTE_PORTE.clearRE8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTE_PORTE.setRE8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTE_PORTE.getRE8 : TBits_1; inline;
- begin
- getRE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTE_PORTE.setRE9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTE_PORTE.clearRE9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTE_PORTE.setRE9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTE_PORTE.getRE9 : TBits_1; inline;
- begin
- getRE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTE_PORTE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTE_PORTE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTE_LATE.setLATE0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTE_LATE.clearLATE0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTE_LATE.setLATE0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTE_LATE.getLATE0 : TBits_1; inline;
- begin
- getLATE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTE_LATE.setLATE1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTE_LATE.clearLATE1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTE_LATE.setLATE1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTE_LATE.getLATE1 : TBits_1; inline;
- begin
- getLATE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTE_LATE.setLATE2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTE_LATE.clearLATE2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTE_LATE.setLATE2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTE_LATE.getLATE2 : TBits_1; inline;
- begin
- getLATE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTE_LATE.setLATE3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTE_LATE.clearLATE3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTE_LATE.setLATE3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTE_LATE.getLATE3 : TBits_1; inline;
- begin
- getLATE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTE_LATE.setLATE4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTE_LATE.clearLATE4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTE_LATE.setLATE4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTE_LATE.getLATE4 : TBits_1; inline;
- begin
- getLATE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTE_LATE.setLATE5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTE_LATE.clearLATE5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTE_LATE.setLATE5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTE_LATE.getLATE5 : TBits_1; inline;
- begin
- getLATE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTE_LATE.setLATE6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTE_LATE.clearLATE6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTE_LATE.setLATE6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTE_LATE.getLATE6 : TBits_1; inline;
- begin
- getLATE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTE_LATE.setLATE7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTE_LATE.clearLATE7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTE_LATE.setLATE7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTE_LATE.getLATE7 : TBits_1; inline;
- begin
- getLATE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTE_LATE.setLATE8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTE_LATE.clearLATE8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTE_LATE.setLATE8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTE_LATE.getLATE8 : TBits_1; inline;
- begin
- getLATE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTE_LATE.setLATE9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTE_LATE.clearLATE9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTE_LATE.setLATE9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTE_LATE.getLATE9 : TBits_1; inline;
- begin
- getLATE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTE_LATE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTE_LATE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTE_ODCE.setODCE0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTE_ODCE.clearODCE0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTE_ODCE.setODCE0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTE_ODCE.getODCE0 : TBits_1; inline;
- begin
- getODCE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTE_ODCE.setODCE1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTE_ODCE.clearODCE1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTE_ODCE.setODCE1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTE_ODCE.getODCE1 : TBits_1; inline;
- begin
- getODCE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTE_ODCE.setODCE2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTE_ODCE.clearODCE2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTE_ODCE.setODCE2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTE_ODCE.getODCE2 : TBits_1; inline;
- begin
- getODCE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTE_ODCE.setODCE3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTE_ODCE.clearODCE3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTE_ODCE.setODCE3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTE_ODCE.getODCE3 : TBits_1; inline;
- begin
- getODCE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTE_ODCE.setODCE4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTE_ODCE.clearODCE4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTE_ODCE.setODCE4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTE_ODCE.getODCE4 : TBits_1; inline;
- begin
- getODCE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTE_ODCE.setODCE5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTE_ODCE.clearODCE5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTE_ODCE.setODCE5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTE_ODCE.getODCE5 : TBits_1; inline;
- begin
- getODCE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTE_ODCE.setODCE6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTE_ODCE.clearODCE6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTE_ODCE.setODCE6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTE_ODCE.getODCE6 : TBits_1; inline;
- begin
- getODCE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTE_ODCE.setODCE7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTE_ODCE.clearODCE7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTE_ODCE.setODCE7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTE_ODCE.getODCE7 : TBits_1; inline;
- begin
- getODCE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTE_ODCE.setODCE8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTE_ODCE.clearODCE8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTE_ODCE.setODCE8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTE_ODCE.getODCE8 : TBits_1; inline;
- begin
- getODCE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTE_ODCE.setODCE9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTE_ODCE.clearODCE9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTE_ODCE.setODCE9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTE_ODCE.getODCE9 : TBits_1; inline;
- begin
- getODCE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTE_ODCE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTE_ODCE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTE_CNPUE.setCNPUE0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTE_CNPUE.clearCNPUE0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTE_CNPUE.setCNPUE0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTE_CNPUE.getCNPUE0 : TBits_1; inline;
- begin
- getCNPUE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTE_CNPUE.setCNPUE1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTE_CNPUE.clearCNPUE1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTE_CNPUE.setCNPUE1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTE_CNPUE.getCNPUE1 : TBits_1; inline;
- begin
- getCNPUE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTE_CNPUE.setCNPUE2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTE_CNPUE.clearCNPUE2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTE_CNPUE.setCNPUE2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTE_CNPUE.getCNPUE2 : TBits_1; inline;
- begin
- getCNPUE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTE_CNPUE.setCNPUE3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTE_CNPUE.clearCNPUE3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTE_CNPUE.setCNPUE3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTE_CNPUE.getCNPUE3 : TBits_1; inline;
- begin
- getCNPUE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTE_CNPUE.setCNPUE4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTE_CNPUE.clearCNPUE4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTE_CNPUE.setCNPUE4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTE_CNPUE.getCNPUE4 : TBits_1; inline;
- begin
- getCNPUE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTE_CNPUE.setCNPUE5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTE_CNPUE.clearCNPUE5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTE_CNPUE.setCNPUE5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTE_CNPUE.getCNPUE5 : TBits_1; inline;
- begin
- getCNPUE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTE_CNPUE.setCNPUE6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTE_CNPUE.clearCNPUE6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTE_CNPUE.setCNPUE6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTE_CNPUE.getCNPUE6 : TBits_1; inline;
- begin
- getCNPUE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTE_CNPUE.setCNPUE7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTE_CNPUE.clearCNPUE7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTE_CNPUE.setCNPUE7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTE_CNPUE.getCNPUE7 : TBits_1; inline;
- begin
- getCNPUE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTE_CNPUE.setCNPUE8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTE_CNPUE.clearCNPUE8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTE_CNPUE.setCNPUE8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTE_CNPUE.getCNPUE8 : TBits_1; inline;
- begin
- getCNPUE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTE_CNPUE.setCNPUE9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTE_CNPUE.clearCNPUE9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTE_CNPUE.setCNPUE9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTE_CNPUE.getCNPUE9 : TBits_1; inline;
- begin
- getCNPUE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTE_CNPUE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTE_CNPUE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTE_CNPDE.setCNPDE0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTE_CNPDE.clearCNPDE0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTE_CNPDE.setCNPDE0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTE_CNPDE.getCNPDE0 : TBits_1; inline;
- begin
- getCNPDE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTE_CNPDE.setCNPDE1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTE_CNPDE.clearCNPDE1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTE_CNPDE.setCNPDE1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTE_CNPDE.getCNPDE1 : TBits_1; inline;
- begin
- getCNPDE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTE_CNPDE.setCNPDE2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTE_CNPDE.clearCNPDE2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTE_CNPDE.setCNPDE2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTE_CNPDE.getCNPDE2 : TBits_1; inline;
- begin
- getCNPDE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTE_CNPDE.setCNPDE3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTE_CNPDE.clearCNPDE3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTE_CNPDE.setCNPDE3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTE_CNPDE.getCNPDE3 : TBits_1; inline;
- begin
- getCNPDE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTE_CNPDE.setCNPDE4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTE_CNPDE.clearCNPDE4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTE_CNPDE.setCNPDE4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTE_CNPDE.getCNPDE4 : TBits_1; inline;
- begin
- getCNPDE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTE_CNPDE.setCNPDE5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTE_CNPDE.clearCNPDE5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTE_CNPDE.setCNPDE5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTE_CNPDE.getCNPDE5 : TBits_1; inline;
- begin
- getCNPDE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTE_CNPDE.setCNPDE6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTE_CNPDE.clearCNPDE6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTE_CNPDE.setCNPDE6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTE_CNPDE.getCNPDE6 : TBits_1; inline;
- begin
- getCNPDE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTE_CNPDE.setCNPDE7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTE_CNPDE.clearCNPDE7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTE_CNPDE.setCNPDE7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTE_CNPDE.getCNPDE7 : TBits_1; inline;
- begin
- getCNPDE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTE_CNPDE.setCNPDE8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTE_CNPDE.clearCNPDE8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTE_CNPDE.setCNPDE8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTE_CNPDE.getCNPDE8 : TBits_1; inline;
- begin
- getCNPDE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTE_CNPDE.setCNPDE9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTE_CNPDE.clearCNPDE9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTE_CNPDE.setCNPDE9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTE_CNPDE.getCNPDE9 : TBits_1; inline;
- begin
- getCNPDE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTE_CNPDE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTE_CNPDE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTE_CNCONE.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTE_CNCONE.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTE_CNCONE.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTE_CNCONE.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTE_CNCONE.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTE_CNCONE.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTE_CNCONE.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTE_CNCONE.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTE_CNCONE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTE_CNCONE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTE_CNENE.setCNIEE0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTE_CNENE.clearCNIEE0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTE_CNENE.setCNIEE0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTE_CNENE.getCNIEE0 : TBits_1; inline;
- begin
- getCNIEE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTE_CNENE.setCNIEE1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTE_CNENE.clearCNIEE1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTE_CNENE.setCNIEE1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTE_CNENE.getCNIEE1 : TBits_1; inline;
- begin
- getCNIEE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTE_CNENE.setCNIEE2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTE_CNENE.clearCNIEE2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTE_CNENE.setCNIEE2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTE_CNENE.getCNIEE2 : TBits_1; inline;
- begin
- getCNIEE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTE_CNENE.setCNIEE3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTE_CNENE.clearCNIEE3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTE_CNENE.setCNIEE3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTE_CNENE.getCNIEE3 : TBits_1; inline;
- begin
- getCNIEE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTE_CNENE.setCNIEE4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTE_CNENE.clearCNIEE4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTE_CNENE.setCNIEE4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTE_CNENE.getCNIEE4 : TBits_1; inline;
- begin
- getCNIEE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTE_CNENE.setCNIEE5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTE_CNENE.clearCNIEE5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTE_CNENE.setCNIEE5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTE_CNENE.getCNIEE5 : TBits_1; inline;
- begin
- getCNIEE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTE_CNENE.setCNIEE6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTE_CNENE.clearCNIEE6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTE_CNENE.setCNIEE6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTE_CNENE.getCNIEE6 : TBits_1; inline;
- begin
- getCNIEE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTE_CNENE.setCNIEE7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTE_CNENE.clearCNIEE7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTE_CNENE.setCNIEE7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTE_CNENE.getCNIEE7 : TBits_1; inline;
- begin
- getCNIEE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTE_CNENE.setCNIEE8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTE_CNENE.clearCNIEE8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTE_CNENE.setCNIEE8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTE_CNENE.getCNIEE8 : TBits_1; inline;
- begin
- getCNIEE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTE_CNENE.setCNIEE9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTE_CNENE.clearCNIEE9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTE_CNENE.setCNIEE9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTE_CNENE.getCNIEE9 : TBits_1; inline;
- begin
- getCNIEE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTE_CNENE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTE_CNENE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTE_CNSTATE.clearCNSTATE0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTE_CNSTATE.getCNSTATE0 : TBits_1; inline;
- begin
- getCNSTATE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTE_CNSTATE.clearCNSTATE1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTE_CNSTATE.getCNSTATE1 : TBits_1; inline;
- begin
- getCNSTATE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTE_CNSTATE.clearCNSTATE2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTE_CNSTATE.getCNSTATE2 : TBits_1; inline;
- begin
- getCNSTATE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTE_CNSTATE.clearCNSTATE3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTE_CNSTATE.getCNSTATE3 : TBits_1; inline;
- begin
- getCNSTATE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTE_CNSTATE.clearCNSTATE4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTE_CNSTATE.getCNSTATE4 : TBits_1; inline;
- begin
- getCNSTATE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTE_CNSTATE.clearCNSTATE5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTE_CNSTATE.getCNSTATE5 : TBits_1; inline;
- begin
- getCNSTATE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTE_CNSTATE.clearCNSTATE6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTE_CNSTATE.getCNSTATE6 : TBits_1; inline;
- begin
- getCNSTATE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTE_CNSTATE.clearCNSTATE7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTE_CNSTATE.getCNSTATE7 : TBits_1; inline;
- begin
- getCNSTATE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTE_CNSTATE.clearCNSTATE8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTE_CNSTATE.getCNSTATE8 : TBits_1; inline;
- begin
- getCNSTATE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTE_CNSTATE.clearCNSTATE9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTE_CNSTATE.setCNSTATE9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTE_CNSTATE.getCNSTATE9 : TBits_1; inline;
- begin
- getCNSTATE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTE_CNSTATE.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTE_CNSTATE.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTE_TRISF.setTRISF0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTE_TRISF.clearTRISF0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTE_TRISF.setTRISF0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTE_TRISF.getTRISF0 : TBits_1; inline;
- begin
- getTRISF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTE_TRISF.setTRISF1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTE_TRISF.clearTRISF1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTE_TRISF.setTRISF1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTE_TRISF.getTRISF1 : TBits_1; inline;
- begin
- getTRISF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTE_TRISF.setTRISF2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTE_TRISF.clearTRISF2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTE_TRISF.setTRISF2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTE_TRISF.getTRISF2 : TBits_1; inline;
- begin
- getTRISF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTE_TRISF.setTRISF3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTE_TRISF.clearTRISF3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTE_TRISF.setTRISF3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTE_TRISF.getTRISF3 : TBits_1; inline;
- begin
- getTRISF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTE_TRISF.setTRISF4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTE_TRISF.clearTRISF4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTE_TRISF.setTRISF4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTE_TRISF.getTRISF4 : TBits_1; inline;
- begin
- getTRISF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTE_TRISF.setTRISF5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTE_TRISF.clearTRISF5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTE_TRISF.setTRISF5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTE_TRISF.getTRISF5 : TBits_1; inline;
- begin
- getTRISF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTE_TRISF.setTRISF8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTE_TRISF.clearTRISF8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTE_TRISF.setTRISF8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTE_TRISF.getTRISF8 : TBits_1; inline;
- begin
- getTRISF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTE_TRISF.setTRISF12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTE_TRISF.clearTRISF12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTE_TRISF.setTRISF12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTE_TRISF.getTRISF12 : TBits_1; inline;
- begin
- getTRISF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTE_TRISF.setTRISF13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTE_TRISF.clearTRISF13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTE_TRISF.setTRISF13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTE_TRISF.getTRISF13 : TBits_1; inline;
- begin
- getTRISF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTE_TRISF.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTE_TRISF.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTF_PORTF.setRF0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTF_PORTF.clearRF0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTF_PORTF.setRF0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTF_PORTF.getRF0 : TBits_1; inline;
- begin
- getRF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTF_PORTF.setRF1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTF_PORTF.clearRF1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTF_PORTF.setRF1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTF_PORTF.getRF1 : TBits_1; inline;
- begin
- getRF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTF_PORTF.setRF2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTF_PORTF.clearRF2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTF_PORTF.setRF2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTF_PORTF.getRF2 : TBits_1; inline;
- begin
- getRF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTF_PORTF.setRF3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTF_PORTF.clearRF3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTF_PORTF.setRF3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTF_PORTF.getRF3 : TBits_1; inline;
- begin
- getRF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTF_PORTF.setRF4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTF_PORTF.clearRF4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTF_PORTF.setRF4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTF_PORTF.getRF4 : TBits_1; inline;
- begin
- getRF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTF_PORTF.setRF5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTF_PORTF.clearRF5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTF_PORTF.setRF5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTF_PORTF.getRF5 : TBits_1; inline;
- begin
- getRF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTF_PORTF.setRF8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTF_PORTF.clearRF8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTF_PORTF.setRF8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTF_PORTF.getRF8 : TBits_1; inline;
- begin
- getRF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTF_PORTF.setRF12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTF_PORTF.clearRF12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTF_PORTF.setRF12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTF_PORTF.getRF12 : TBits_1; inline;
- begin
- getRF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTF_PORTF.setRF13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTF_PORTF.clearRF13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTF_PORTF.setRF13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTF_PORTF.getRF13 : TBits_1; inline;
- begin
- getRF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTF_PORTF.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTF_PORTF.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTF_LATF.setLATF0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTF_LATF.clearLATF0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTF_LATF.setLATF0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTF_LATF.getLATF0 : TBits_1; inline;
- begin
- getLATF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTF_LATF.setLATF1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTF_LATF.clearLATF1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTF_LATF.setLATF1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTF_LATF.getLATF1 : TBits_1; inline;
- begin
- getLATF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTF_LATF.setLATF2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTF_LATF.clearLATF2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTF_LATF.setLATF2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTF_LATF.getLATF2 : TBits_1; inline;
- begin
- getLATF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTF_LATF.setLATF3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTF_LATF.clearLATF3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTF_LATF.setLATF3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTF_LATF.getLATF3 : TBits_1; inline;
- begin
- getLATF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTF_LATF.setLATF4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTF_LATF.clearLATF4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTF_LATF.setLATF4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTF_LATF.getLATF4 : TBits_1; inline;
- begin
- getLATF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTF_LATF.setLATF5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTF_LATF.clearLATF5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTF_LATF.setLATF5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTF_LATF.getLATF5 : TBits_1; inline;
- begin
- getLATF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTF_LATF.setLATF8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTF_LATF.clearLATF8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTF_LATF.setLATF8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTF_LATF.getLATF8 : TBits_1; inline;
- begin
- getLATF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTF_LATF.setLATF12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTF_LATF.clearLATF12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTF_LATF.setLATF12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTF_LATF.getLATF12 : TBits_1; inline;
- begin
- getLATF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTF_LATF.setLATF13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTF_LATF.clearLATF13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTF_LATF.setLATF13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTF_LATF.getLATF13 : TBits_1; inline;
- begin
- getLATF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTF_LATF.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTF_LATF.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTF_ODCF.setODCF0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTF_ODCF.clearODCF0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTF_ODCF.setODCF0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTF_ODCF.getODCF0 : TBits_1; inline;
- begin
- getODCF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTF_ODCF.setODCF1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTF_ODCF.clearODCF1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTF_ODCF.setODCF1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTF_ODCF.getODCF1 : TBits_1; inline;
- begin
- getODCF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTF_ODCF.setODCF2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTF_ODCF.clearODCF2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTF_ODCF.setODCF2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTF_ODCF.getODCF2 : TBits_1; inline;
- begin
- getODCF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTF_ODCF.setODCF3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTF_ODCF.clearODCF3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTF_ODCF.setODCF3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTF_ODCF.getODCF3 : TBits_1; inline;
- begin
- getODCF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTF_ODCF.setODCF4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTF_ODCF.clearODCF4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTF_ODCF.setODCF4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTF_ODCF.getODCF4 : TBits_1; inline;
- begin
- getODCF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTF_ODCF.setODCF5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTF_ODCF.clearODCF5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTF_ODCF.setODCF5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTF_ODCF.getODCF5 : TBits_1; inline;
- begin
- getODCF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTF_ODCF.setODCF8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTF_ODCF.clearODCF8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTF_ODCF.setODCF8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTF_ODCF.getODCF8 : TBits_1; inline;
- begin
- getODCF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTF_ODCF.setODCF12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTF_ODCF.clearODCF12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTF_ODCF.setODCF12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTF_ODCF.getODCF12 : TBits_1; inline;
- begin
- getODCF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTF_ODCF.setODCF13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTF_ODCF.clearODCF13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTF_ODCF.setODCF13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTF_ODCF.getODCF13 : TBits_1; inline;
- begin
- getODCF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTF_ODCF.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTF_ODCF.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTF_CNPUF.setCNPUF0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTF_CNPUF.clearCNPUF0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTF_CNPUF.setCNPUF0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTF_CNPUF.getCNPUF0 : TBits_1; inline;
- begin
- getCNPUF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTF_CNPUF.setCNPUF1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTF_CNPUF.clearCNPUF1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTF_CNPUF.setCNPUF1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTF_CNPUF.getCNPUF1 : TBits_1; inline;
- begin
- getCNPUF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTF_CNPUF.setCNPUF2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTF_CNPUF.clearCNPUF2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTF_CNPUF.setCNPUF2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTF_CNPUF.getCNPUF2 : TBits_1; inline;
- begin
- getCNPUF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTF_CNPUF.setCNPUF3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTF_CNPUF.clearCNPUF3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTF_CNPUF.setCNPUF3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTF_CNPUF.getCNPUF3 : TBits_1; inline;
- begin
- getCNPUF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTF_CNPUF.setCNPUF4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTF_CNPUF.clearCNPUF4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTF_CNPUF.setCNPUF4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTF_CNPUF.getCNPUF4 : TBits_1; inline;
- begin
- getCNPUF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTF_CNPUF.setCNPUF5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTF_CNPUF.clearCNPUF5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTF_CNPUF.setCNPUF5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTF_CNPUF.getCNPUF5 : TBits_1; inline;
- begin
- getCNPUF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTF_CNPUF.setCNPUF8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTF_CNPUF.clearCNPUF8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTF_CNPUF.setCNPUF8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTF_CNPUF.getCNPUF8 : TBits_1; inline;
- begin
- getCNPUF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTF_CNPUF.setCNPUF12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTF_CNPUF.clearCNPUF12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTF_CNPUF.setCNPUF12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTF_CNPUF.getCNPUF12 : TBits_1; inline;
- begin
- getCNPUF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTF_CNPUF.setCNPUF13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTF_CNPUF.clearCNPUF13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTF_CNPUF.setCNPUF13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTF_CNPUF.getCNPUF13 : TBits_1; inline;
- begin
- getCNPUF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTF_CNPUF.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTF_CNPUF.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTF_CNPDF.setCNPDF0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTF_CNPDF.clearCNPDF0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTF_CNPDF.setCNPDF0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTF_CNPDF.getCNPDF0 : TBits_1; inline;
- begin
- getCNPDF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTF_CNPDF.setCNPDF1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTF_CNPDF.clearCNPDF1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTF_CNPDF.setCNPDF1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTF_CNPDF.getCNPDF1 : TBits_1; inline;
- begin
- getCNPDF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTF_CNPDF.setCNPDF2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTF_CNPDF.clearCNPDF2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTF_CNPDF.setCNPDF2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTF_CNPDF.getCNPDF2 : TBits_1; inline;
- begin
- getCNPDF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTF_CNPDF.setCNPDF3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTF_CNPDF.clearCNPDF3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTF_CNPDF.setCNPDF3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTF_CNPDF.getCNPDF3 : TBits_1; inline;
- begin
- getCNPDF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTF_CNPDF.setCNPDF4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTF_CNPDF.clearCNPDF4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTF_CNPDF.setCNPDF4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTF_CNPDF.getCNPDF4 : TBits_1; inline;
- begin
- getCNPDF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTF_CNPDF.setCNPDF5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTF_CNPDF.clearCNPDF5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTF_CNPDF.setCNPDF5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTF_CNPDF.getCNPDF5 : TBits_1; inline;
- begin
- getCNPDF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTF_CNPDF.setCNPDF8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTF_CNPDF.clearCNPDF8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTF_CNPDF.setCNPDF8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTF_CNPDF.getCNPDF8 : TBits_1; inline;
- begin
- getCNPDF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTF_CNPDF.setCNPDF12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTF_CNPDF.clearCNPDF12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTF_CNPDF.setCNPDF12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTF_CNPDF.getCNPDF12 : TBits_1; inline;
- begin
- getCNPDF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTF_CNPDF.setCNPDF13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTF_CNPDF.clearCNPDF13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTF_CNPDF.setCNPDF13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTF_CNPDF.getCNPDF13 : TBits_1; inline;
- begin
- getCNPDF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTF_CNPDF.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTF_CNPDF.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTF_CNCONF.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTF_CNCONF.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTF_CNCONF.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTF_CNCONF.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTF_CNCONF.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTF_CNCONF.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTF_CNCONF.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTF_CNCONF.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTF_CNCONF.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTF_CNCONF.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTF_CNENF.setCNIEF0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTF_CNENF.clearCNIEF0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTF_CNENF.setCNIEF0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTF_CNENF.getCNIEF0 : TBits_1; inline;
- begin
- getCNIEF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTF_CNENF.setCNIEF1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTF_CNENF.clearCNIEF1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTF_CNENF.setCNIEF1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTF_CNENF.getCNIEF1 : TBits_1; inline;
- begin
- getCNIEF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTF_CNENF.setCNIEF2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTF_CNENF.clearCNIEF2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTF_CNENF.setCNIEF2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTF_CNENF.getCNIEF2 : TBits_1; inline;
- begin
- getCNIEF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTF_CNENF.setCNIEF3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTF_CNENF.clearCNIEF3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTF_CNENF.setCNIEF3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTF_CNENF.getCNIEF3 : TBits_1; inline;
- begin
- getCNIEF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTF_CNENF.setCNIEF4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTF_CNENF.clearCNIEF4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTF_CNENF.setCNIEF4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTF_CNENF.getCNIEF4 : TBits_1; inline;
- begin
- getCNIEF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTF_CNENF.setCNIEF5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTF_CNENF.clearCNIEF5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTF_CNENF.setCNIEF5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTF_CNENF.getCNIEF5 : TBits_1; inline;
- begin
- getCNIEF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTF_CNENF.setCNIEF8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTF_CNENF.clearCNIEF8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTF_CNENF.setCNIEF8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTF_CNENF.getCNIEF8 : TBits_1; inline;
- begin
- getCNIEF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTF_CNENF.setCNIEF12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTF_CNENF.clearCNIEF12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTF_CNENF.setCNIEF12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTF_CNENF.getCNIEF12 : TBits_1; inline;
- begin
- getCNIEF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTF_CNENF.setCNIEF13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTF_CNENF.clearCNIEF13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTF_CNENF.setCNIEF13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTF_CNENF.getCNIEF13 : TBits_1; inline;
- begin
- getCNIEF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTF_CNENF.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTF_CNENF.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTF_CNSTATF.clearCNSTATF0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTF_CNSTATF.getCNSTATF0 : TBits_1; inline;
- begin
- getCNSTATF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTF_CNSTATF.clearCNSTATF1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTF_CNSTATF.getCNSTATF1 : TBits_1; inline;
- begin
- getCNSTATF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTF_CNSTATF.clearCNSTATF2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTF_CNSTATF.getCNSTATF2 : TBits_1; inline;
- begin
- getCNSTATF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTF_CNSTATF.clearCNSTATF3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTF_CNSTATF.getCNSTATF3 : TBits_1; inline;
- begin
- getCNSTATF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPORTF_CNSTATF.clearCNSTATF4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPORTF_CNSTATF.getCNSTATF4 : TBits_1; inline;
- begin
- getCNSTATF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPORTF_CNSTATF.clearCNSTATF5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPORTF_CNSTATF.getCNSTATF5 : TBits_1; inline;
- begin
- getCNSTATF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTF_CNSTATF.clearCNSTATF8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTF_CNSTATF.getCNSTATF8 : TBits_1; inline;
- begin
- getCNSTATF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTF_CNSTATF.clearCNSTATF12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTF_CNSTATF.getCNSTATF12 : TBits_1; inline;
- begin
- getCNSTATF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTF_CNSTATF.clearCNSTATF13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTF_CNSTATF.getCNSTATF13 : TBits_1; inline;
- begin
- getCNSTATF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTF_CNSTATF.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTF_CNSTATF.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTF_ANSELG.setANSG6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTF_ANSELG.clearANSG6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTF_ANSELG.setANSG6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTF_ANSELG.getANSG6 : TBits_1; inline;
- begin
- getANSG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTF_ANSELG.setANSG7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTF_ANSELG.clearANSG7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTF_ANSELG.setANSG7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTF_ANSELG.getANSG7 : TBits_1; inline;
- begin
- getANSG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTF_ANSELG.setANSG8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTF_ANSELG.clearANSG8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTF_ANSELG.setANSG8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTF_ANSELG.getANSG8 : TBits_1; inline;
- begin
- getANSG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTF_ANSELG.setANSG9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTF_ANSELG.clearANSG9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTF_ANSELG.setANSG9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTF_ANSELG.getANSG9 : TBits_1; inline;
- begin
- getANSG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTF_ANSELG.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTF_ANSELG.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTF_TRISG.setTRISG0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTF_TRISG.clearTRISG0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTF_TRISG.setTRISG0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTF_TRISG.getTRISG0 : TBits_1; inline;
- begin
- getTRISG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTF_TRISG.setTRISG1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTF_TRISG.clearTRISG1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTF_TRISG.setTRISG1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTF_TRISG.getTRISG1 : TBits_1; inline;
- begin
- getTRISG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTF_TRISG.setTRISG2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTF_TRISG.clearTRISG2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTF_TRISG.setTRISG2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTF_TRISG.getTRISG2 : TBits_1; inline;
- begin
- getTRISG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTF_TRISG.setTRISG3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTF_TRISG.clearTRISG3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTF_TRISG.setTRISG3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTF_TRISG.getTRISG3 : TBits_1; inline;
- begin
- getTRISG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTF_TRISG.setTRISG6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTF_TRISG.clearTRISG6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTF_TRISG.setTRISG6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTF_TRISG.getTRISG6 : TBits_1; inline;
- begin
- getTRISG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTF_TRISG.setTRISG7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTF_TRISG.clearTRISG7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTF_TRISG.setTRISG7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTF_TRISG.getTRISG7 : TBits_1; inline;
- begin
- getTRISG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTF_TRISG.setTRISG8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTF_TRISG.clearTRISG8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTF_TRISG.setTRISG8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTF_TRISG.getTRISG8 : TBits_1; inline;
- begin
- getTRISG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTF_TRISG.setTRISG9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTF_TRISG.clearTRISG9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTF_TRISG.setTRISG9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTF_TRISG.getTRISG9 : TBits_1; inline;
- begin
- getTRISG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTF_TRISG.setTRISG12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTF_TRISG.clearTRISG12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTF_TRISG.setTRISG12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTF_TRISG.getTRISG12 : TBits_1; inline;
- begin
- getTRISG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTF_TRISG.setTRISG13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTF_TRISG.clearTRISG13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTF_TRISG.setTRISG13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTF_TRISG.getTRISG13 : TBits_1; inline;
- begin
- getTRISG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTF_TRISG.setTRISG14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTF_TRISG.clearTRISG14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTF_TRISG.setTRISG14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTF_TRISG.getTRISG14 : TBits_1; inline;
- begin
- getTRISG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTF_TRISG.setTRISG15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTF_TRISG.clearTRISG15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTF_TRISG.setTRISG15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTF_TRISG.getTRISG15 : TBits_1; inline;
- begin
- getTRISG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTF_TRISG.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTF_TRISG.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTG_PORTG.setRG0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTG_PORTG.clearRG0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTG_PORTG.setRG0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTG_PORTG.getRG0 : TBits_1; inline;
- begin
- getRG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTG_PORTG.setRG1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTG_PORTG.clearRG1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTG_PORTG.setRG1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTG_PORTG.getRG1 : TBits_1; inline;
- begin
- getRG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTG_PORTG.setRG2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTG_PORTG.clearRG2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTG_PORTG.setRG2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTG_PORTG.getRG2 : TBits_1; inline;
- begin
- getRG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTG_PORTG.setRG3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTG_PORTG.clearRG3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTG_PORTG.setRG3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTG_PORTG.getRG3 : TBits_1; inline;
- begin
- getRG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTG_PORTG.setRG6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTG_PORTG.clearRG6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTG_PORTG.setRG6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTG_PORTG.getRG6 : TBits_1; inline;
- begin
- getRG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTG_PORTG.setRG7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTG_PORTG.clearRG7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTG_PORTG.setRG7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTG_PORTG.getRG7 : TBits_1; inline;
- begin
- getRG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTG_PORTG.setRG8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTG_PORTG.clearRG8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTG_PORTG.setRG8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTG_PORTG.getRG8 : TBits_1; inline;
- begin
- getRG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTG_PORTG.setRG9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTG_PORTG.clearRG9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTG_PORTG.setRG9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTG_PORTG.getRG9 : TBits_1; inline;
- begin
- getRG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTG_PORTG.setRG12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTG_PORTG.clearRG12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTG_PORTG.setRG12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTG_PORTG.getRG12 : TBits_1; inline;
- begin
- getRG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTG_PORTG.setRG13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTG_PORTG.clearRG13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTG_PORTG.setRG13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTG_PORTG.getRG13 : TBits_1; inline;
- begin
- getRG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTG_PORTG.setRG14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTG_PORTG.clearRG14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTG_PORTG.setRG14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTG_PORTG.getRG14 : TBits_1; inline;
- begin
- getRG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTG_PORTG.setRG15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTG_PORTG.clearRG15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTG_PORTG.setRG15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTG_PORTG.getRG15 : TBits_1; inline;
- begin
- getRG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTG_PORTG.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTG_PORTG.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTG_LATG.setLATG0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTG_LATG.clearLATG0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTG_LATG.setLATG0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTG_LATG.getLATG0 : TBits_1; inline;
- begin
- getLATG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTG_LATG.setLATG1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTG_LATG.clearLATG1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTG_LATG.setLATG1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTG_LATG.getLATG1 : TBits_1; inline;
- begin
- getLATG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTG_LATG.setLATG2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTG_LATG.clearLATG2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTG_LATG.setLATG2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTG_LATG.getLATG2 : TBits_1; inline;
- begin
- getLATG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTG_LATG.setLATG3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTG_LATG.clearLATG3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTG_LATG.setLATG3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTG_LATG.getLATG3 : TBits_1; inline;
- begin
- getLATG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTG_LATG.setLATG6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTG_LATG.clearLATG6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTG_LATG.setLATG6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTG_LATG.getLATG6 : TBits_1; inline;
- begin
- getLATG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTG_LATG.setLATG7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTG_LATG.clearLATG7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTG_LATG.setLATG7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTG_LATG.getLATG7 : TBits_1; inline;
- begin
- getLATG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTG_LATG.setLATG8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTG_LATG.clearLATG8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTG_LATG.setLATG8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTG_LATG.getLATG8 : TBits_1; inline;
- begin
- getLATG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTG_LATG.setLATG9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTG_LATG.clearLATG9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTG_LATG.setLATG9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTG_LATG.getLATG9 : TBits_1; inline;
- begin
- getLATG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTG_LATG.setLATG12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTG_LATG.clearLATG12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTG_LATG.setLATG12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTG_LATG.getLATG12 : TBits_1; inline;
- begin
- getLATG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTG_LATG.setLATG13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTG_LATG.clearLATG13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTG_LATG.setLATG13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTG_LATG.getLATG13 : TBits_1; inline;
- begin
- getLATG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTG_LATG.setLATG14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTG_LATG.clearLATG14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTG_LATG.setLATG14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTG_LATG.getLATG14 : TBits_1; inline;
- begin
- getLATG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTG_LATG.setLATG15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTG_LATG.clearLATG15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTG_LATG.setLATG15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTG_LATG.getLATG15 : TBits_1; inline;
- begin
- getLATG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTG_LATG.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTG_LATG.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTG_ODCG.setODCG0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTG_ODCG.clearODCG0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTG_ODCG.setODCG0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTG_ODCG.getODCG0 : TBits_1; inline;
- begin
- getODCG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTG_ODCG.setODCG1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTG_ODCG.clearODCG1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTG_ODCG.setODCG1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTG_ODCG.getODCG1 : TBits_1; inline;
- begin
- getODCG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTG_ODCG.setODCG2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTG_ODCG.clearODCG2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTG_ODCG.setODCG2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTG_ODCG.getODCG2 : TBits_1; inline;
- begin
- getODCG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTG_ODCG.setODCG3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTG_ODCG.clearODCG3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTG_ODCG.setODCG3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTG_ODCG.getODCG3 : TBits_1; inline;
- begin
- getODCG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTG_ODCG.setODCG6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTG_ODCG.clearODCG6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTG_ODCG.setODCG6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTG_ODCG.getODCG6 : TBits_1; inline;
- begin
- getODCG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTG_ODCG.setODCG7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTG_ODCG.clearODCG7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTG_ODCG.setODCG7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTG_ODCG.getODCG7 : TBits_1; inline;
- begin
- getODCG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTG_ODCG.setODCG8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTG_ODCG.clearODCG8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTG_ODCG.setODCG8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTG_ODCG.getODCG8 : TBits_1; inline;
- begin
- getODCG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTG_ODCG.setODCG9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTG_ODCG.clearODCG9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTG_ODCG.setODCG9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTG_ODCG.getODCG9 : TBits_1; inline;
- begin
- getODCG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTG_ODCG.setODCG12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTG_ODCG.clearODCG12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTG_ODCG.setODCG12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTG_ODCG.getODCG12 : TBits_1; inline;
- begin
- getODCG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTG_ODCG.setODCG13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTG_ODCG.clearODCG13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTG_ODCG.setODCG13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTG_ODCG.getODCG13 : TBits_1; inline;
- begin
- getODCG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTG_ODCG.setODCG14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTG_ODCG.clearODCG14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTG_ODCG.setODCG14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTG_ODCG.getODCG14 : TBits_1; inline;
- begin
- getODCG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTG_ODCG.setODCG15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTG_ODCG.clearODCG15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTG_ODCG.setODCG15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTG_ODCG.getODCG15 : TBits_1; inline;
- begin
- getODCG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTG_ODCG.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTG_ODCG.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTG_CNPUG.setCNPUG0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTG_CNPUG.clearCNPUG0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTG_CNPUG.setCNPUG0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTG_CNPUG.getCNPUG0 : TBits_1; inline;
- begin
- getCNPUG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTG_CNPUG.setCNPUG1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTG_CNPUG.clearCNPUG1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTG_CNPUG.setCNPUG1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTG_CNPUG.getCNPUG1 : TBits_1; inline;
- begin
- getCNPUG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTG_CNPUG.setCNPUG2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTG_CNPUG.clearCNPUG2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTG_CNPUG.setCNPUG2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTG_CNPUG.getCNPUG2 : TBits_1; inline;
- begin
- getCNPUG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTG_CNPUG.setCNPUG3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTG_CNPUG.clearCNPUG3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTG_CNPUG.setCNPUG3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTG_CNPUG.getCNPUG3 : TBits_1; inline;
- begin
- getCNPUG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTG_CNPUG.setCNPUG6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTG_CNPUG.clearCNPUG6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTG_CNPUG.setCNPUG6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTG_CNPUG.getCNPUG6 : TBits_1; inline;
- begin
- getCNPUG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTG_CNPUG.setCNPUG7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTG_CNPUG.clearCNPUG7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTG_CNPUG.setCNPUG7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTG_CNPUG.getCNPUG7 : TBits_1; inline;
- begin
- getCNPUG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTG_CNPUG.setCNPUG8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTG_CNPUG.clearCNPUG8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTG_CNPUG.setCNPUG8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTG_CNPUG.getCNPUG8 : TBits_1; inline;
- begin
- getCNPUG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTG_CNPUG.setCNPUG9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTG_CNPUG.clearCNPUG9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTG_CNPUG.setCNPUG9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTG_CNPUG.getCNPUG9 : TBits_1; inline;
- begin
- getCNPUG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTG_CNPUG.setCNPUG12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTG_CNPUG.clearCNPUG12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTG_CNPUG.setCNPUG12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTG_CNPUG.getCNPUG12 : TBits_1; inline;
- begin
- getCNPUG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTG_CNPUG.setCNPUG13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTG_CNPUG.clearCNPUG13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTG_CNPUG.setCNPUG13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTG_CNPUG.getCNPUG13 : TBits_1; inline;
- begin
- getCNPUG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTG_CNPUG.setCNPUG14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTG_CNPUG.clearCNPUG14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTG_CNPUG.setCNPUG14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTG_CNPUG.getCNPUG14 : TBits_1; inline;
- begin
- getCNPUG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTG_CNPUG.setCNPUG15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTG_CNPUG.clearCNPUG15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTG_CNPUG.setCNPUG15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTG_CNPUG.getCNPUG15 : TBits_1; inline;
- begin
- getCNPUG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTG_CNPUG.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTG_CNPUG.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTG_CNPDG.setCNPDG0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTG_CNPDG.clearCNPDG0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTG_CNPDG.setCNPDG0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTG_CNPDG.getCNPDG0 : TBits_1; inline;
- begin
- getCNPDG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTG_CNPDG.setCNPDG1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTG_CNPDG.clearCNPDG1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTG_CNPDG.setCNPDG1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTG_CNPDG.getCNPDG1 : TBits_1; inline;
- begin
- getCNPDG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTG_CNPDG.setCNPDG2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTG_CNPDG.clearCNPDG2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTG_CNPDG.setCNPDG2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTG_CNPDG.getCNPDG2 : TBits_1; inline;
- begin
- getCNPDG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTG_CNPDG.setCNPDG3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTG_CNPDG.clearCNPDG3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTG_CNPDG.setCNPDG3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTG_CNPDG.getCNPDG3 : TBits_1; inline;
- begin
- getCNPDG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTG_CNPDG.setCNPDG6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTG_CNPDG.clearCNPDG6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTG_CNPDG.setCNPDG6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTG_CNPDG.getCNPDG6 : TBits_1; inline;
- begin
- getCNPDG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTG_CNPDG.setCNPDG7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTG_CNPDG.clearCNPDG7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTG_CNPDG.setCNPDG7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTG_CNPDG.getCNPDG7 : TBits_1; inline;
- begin
- getCNPDG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTG_CNPDG.setCNPDG8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTG_CNPDG.clearCNPDG8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTG_CNPDG.setCNPDG8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTG_CNPDG.getCNPDG8 : TBits_1; inline;
- begin
- getCNPDG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTG_CNPDG.setCNPDG9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTG_CNPDG.clearCNPDG9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTG_CNPDG.setCNPDG9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTG_CNPDG.getCNPDG9 : TBits_1; inline;
- begin
- getCNPDG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTG_CNPDG.setCNPDG12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTG_CNPDG.clearCNPDG12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTG_CNPDG.setCNPDG12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTG_CNPDG.getCNPDG12 : TBits_1; inline;
- begin
- getCNPDG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTG_CNPDG.setCNPDG13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTG_CNPDG.clearCNPDG13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTG_CNPDG.setCNPDG13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTG_CNPDG.getCNPDG13 : TBits_1; inline;
- begin
- getCNPDG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTG_CNPDG.setCNPDG14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTG_CNPDG.clearCNPDG14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTG_CNPDG.setCNPDG14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTG_CNPDG.getCNPDG14 : TBits_1; inline;
- begin
- getCNPDG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTG_CNPDG.setCNPDG15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTG_CNPDG.clearCNPDG15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTG_CNPDG.setCNPDG15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTG_CNPDG.getCNPDG15 : TBits_1; inline;
- begin
- getCNPDG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTG_CNPDG.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTG_CNPDG.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTG_CNCONG.setSIDL; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTG_CNCONG.clearSIDL; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTG_CNCONG.setSIDL(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTG_CNCONG.getSIDL : TBits_1; inline;
- begin
- getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTG_CNCONG.setON; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTG_CNCONG.clearON; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTG_CNCONG.setON(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTG_CNCONG.getON : TBits_1; inline;
- begin
- getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTG_CNCONG.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTG_CNCONG.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTG_CNENG.setCNIEG0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTG_CNENG.clearCNIEG0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTG_CNENG.setCNIEG0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTG_CNENG.getCNIEG0 : TBits_1; inline;
- begin
- getCNIEG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTG_CNENG.setCNIEG1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTG_CNENG.clearCNIEG1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTG_CNENG.setCNIEG1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTG_CNENG.getCNIEG1 : TBits_1; inline;
- begin
- getCNIEG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTG_CNENG.setCNIEG2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTG_CNENG.clearCNIEG2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTG_CNENG.setCNIEG2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTG_CNENG.getCNIEG2 : TBits_1; inline;
- begin
- getCNIEG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTG_CNENG.setCNIEG3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTG_CNENG.clearCNIEG3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTG_CNENG.setCNIEG3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTG_CNENG.getCNIEG3 : TBits_1; inline;
- begin
- getCNIEG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTG_CNENG.setCNIEG6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTG_CNENG.clearCNIEG6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTG_CNENG.setCNIEG6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTG_CNENG.getCNIEG6 : TBits_1; inline;
- begin
- getCNIEG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTG_CNENG.setCNIEG7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTG_CNENG.clearCNIEG7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTG_CNENG.setCNIEG7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTG_CNENG.getCNIEG7 : TBits_1; inline;
- begin
- getCNIEG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTG_CNENG.setCNIEG8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTG_CNENG.clearCNIEG8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTG_CNENG.setCNIEG8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTG_CNENG.getCNIEG8 : TBits_1; inline;
- begin
- getCNIEG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTG_CNENG.setCNIEG9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTG_CNENG.clearCNIEG9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTG_CNENG.setCNIEG9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTG_CNENG.getCNIEG9 : TBits_1; inline;
- begin
- getCNIEG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTG_CNENG.setCNIEG12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTG_CNENG.clearCNIEG12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTG_CNENG.setCNIEG12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTG_CNENG.getCNIEG12 : TBits_1; inline;
- begin
- getCNIEG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTG_CNENG.setCNIEG13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTG_CNENG.clearCNIEG13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTG_CNENG.setCNIEG13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTG_CNENG.getCNIEG13 : TBits_1; inline;
- begin
- getCNIEG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTG_CNENG.setCNIEG14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTG_CNENG.clearCNIEG14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTG_CNENG.setCNIEG14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTG_CNENG.getCNIEG14 : TBits_1; inline;
- begin
- getCNIEG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTG_CNENG.setCNIEG15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTG_CNENG.clearCNIEG15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTG_CNENG.setCNIEG15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTG_CNENG.getCNIEG15 : TBits_1; inline;
- begin
- getCNIEG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTG_CNENG.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTG_CNENG.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPORTG_CNSTATG.clearCNSTATG0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPORTG_CNSTATG.getCNSTATG0 : TBits_1; inline;
- begin
- getCNSTATG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPORTG_CNSTATG.clearCNSTATG1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPORTG_CNSTATG.getCNSTATG1 : TBits_1; inline;
- begin
- getCNSTATG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPORTG_CNSTATG.clearCNSTATG2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPORTG_CNSTATG.getCNSTATG2 : TBits_1; inline;
- begin
- getCNSTATG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPORTG_CNSTATG.clearCNSTATG3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPORTG_CNSTATG.getCNSTATG3 : TBits_1; inline;
- begin
- getCNSTATG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTG_CNSTATG.clearCNSTATG6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTG_CNSTATG.getCNSTATG6 : TBits_1; inline;
- begin
- getCNSTATG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTG_CNSTATG.clearCNSTATG7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTG_CNSTATG.getCNSTATG7 : TBits_1; inline;
- begin
- getCNSTATG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG8; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- procedure TPORTG_CNSTATG.clearCNSTATG8; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000100;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG8(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000100
- else
- pTDefRegMap(@Self)^.&set := $00000100;
- end;
- function TPORTG_CNSTATG.getCNSTATG8 : TBits_1; inline;
- begin
- getCNSTATG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPORTG_CNSTATG.clearCNSTATG9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPORTG_CNSTATG.getCNSTATG9 : TBits_1; inline;
- begin
- getCNSTATG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG12; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- procedure TPORTG_CNSTATG.clearCNSTATG12; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00001000;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG12(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00001000
- else
- pTDefRegMap(@Self)^.&set := $00001000;
- end;
- function TPORTG_CNSTATG.getCNSTATG12 : TBits_1; inline;
- begin
- getCNSTATG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG13; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- procedure TPORTG_CNSTATG.clearCNSTATG13; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00002000;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG13(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00002000
- else
- pTDefRegMap(@Self)^.&set := $00002000;
- end;
- function TPORTG_CNSTATG.getCNSTATG13 : TBits_1; inline;
- begin
- getCNSTATG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPORTG_CNSTATG.clearCNSTATG14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPORTG_CNSTATG.getCNSTATG14 : TBits_1; inline;
- begin
- getCNSTATG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPORTG_CNSTATG.clearCNSTATG15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPORTG_CNSTATG.setCNSTATG15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPORTG_CNSTATG.getCNSTATG15 : TBits_1; inline;
- begin
- getCNSTATG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPORTG_CNSTATG.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPORTG_CNSTATG.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDEVCFG_DEVCFG3.setUSERID(thebits : TBits_16); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
- end;
- function TDEVCFG_DEVCFG3.getUSERID : TBits_16; inline;
- begin
- getUSERID := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
- end;
- procedure TDEVCFG_DEVCFG3.setFSRSSEL(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
- end;
- function TDEVCFG_DEVCFG3.getFSRSSEL : TBits_3; inline;
- begin
- getFSRSSEL := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
- end;
- procedure TDEVCFG_DEVCFG3.setPMDL1WAY; inline;
- begin
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- procedure TDEVCFG_DEVCFG3.clearPMDL1WAY; inline;
- begin
- pTDefRegMap(@Self)^.clr := $10000000;
- end;
- procedure TDEVCFG_DEVCFG3.setPMDL1WAY(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $10000000
- else
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- function TDEVCFG_DEVCFG3.getPMDL1WAY : TBits_1; inline;
- begin
- getPMDL1WAY := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
- end;
- procedure TDEVCFG_DEVCFG3.setIOL1WAY; inline;
- begin
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- procedure TDEVCFG_DEVCFG3.clearIOL1WAY; inline;
- begin
- pTDefRegMap(@Self)^.clr := $20000000;
- end;
- procedure TDEVCFG_DEVCFG3.setIOL1WAY(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $20000000
- else
- pTDefRegMap(@Self)^.&set := $20000000;
- end;
- function TDEVCFG_DEVCFG3.getIOL1WAY : TBits_1; inline;
- begin
- getIOL1WAY := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
- end;
- procedure TDEVCFG_DEVCFG3.setFUSBIDIO; inline;
- begin
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- procedure TDEVCFG_DEVCFG3.clearFUSBIDIO; inline;
- begin
- pTDefRegMap(@Self)^.clr := $40000000;
- end;
- procedure TDEVCFG_DEVCFG3.setFUSBIDIO(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $40000000
- else
- pTDefRegMap(@Self)^.&set := $40000000;
- end;
- function TDEVCFG_DEVCFG3.getFUSBIDIO : TBits_1; inline;
- begin
- getFUSBIDIO := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
- end;
- procedure TDEVCFG_DEVCFG3.setFVBUSONIO; inline;
- begin
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- procedure TDEVCFG_DEVCFG3.clearFVBUSONIO; inline;
- begin
- pTDefRegMap(@Self)^.clr := $80000000;
- end;
- procedure TDEVCFG_DEVCFG3.setFVBUSONIO(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $80000000
- else
- pTDefRegMap(@Self)^.&set := $80000000;
- end;
- function TDEVCFG_DEVCFG3.getFVBUSONIO : TBits_1; inline;
- begin
- getFVBUSONIO := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
- end;
- procedure TDEVCFG_DEVCFG3.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDEVCFG_DEVCFG3.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDEVCFG_DEVCFG2.setFPLLIDIV(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TDEVCFG_DEVCFG2.getFPLLIDIV : TBits_3; inline;
- begin
- getFPLLIDIV := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TDEVCFG_DEVCFG2.setFPLLMUL(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
- end;
- function TDEVCFG_DEVCFG2.getFPLLMUL : TBits_3; inline;
- begin
- getFPLLMUL := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
- end;
- procedure TDEVCFG_DEVCFG2.setUPLLIDIV(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
- end;
- function TDEVCFG_DEVCFG2.getUPLLIDIV : TBits_3; inline;
- begin
- getUPLLIDIV := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
- end;
- procedure TDEVCFG_DEVCFG2.setUPLLEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TDEVCFG_DEVCFG2.clearUPLLEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TDEVCFG_DEVCFG2.setUPLLEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TDEVCFG_DEVCFG2.getUPLLEN : TBits_1; inline;
- begin
- getUPLLEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TDEVCFG_DEVCFG2.setFPLLODIV(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
- end;
- function TDEVCFG_DEVCFG2.getFPLLODIV : TBits_3; inline;
- begin
- getFPLLODIV := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
- end;
- procedure TDEVCFG_DEVCFG2.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDEVCFG_DEVCFG2.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDEVCFG_DEVCFG1.setFNOSC(thebits : TBits_3); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
- end;
- function TDEVCFG_DEVCFG1.getFNOSC : TBits_3; inline;
- begin
- getFNOSC := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
- end;
- procedure TDEVCFG_DEVCFG1.setFSOSCEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TDEVCFG_DEVCFG1.clearFSOSCEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TDEVCFG_DEVCFG1.setFSOSCEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TDEVCFG_DEVCFG1.getFSOSCEN : TBits_1; inline;
- begin
- getFSOSCEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TDEVCFG_DEVCFG1.setIESO; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TDEVCFG_DEVCFG1.clearIESO; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TDEVCFG_DEVCFG1.setIESO(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TDEVCFG_DEVCFG1.getIESO : TBits_1; inline;
- begin
- getIESO := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TDEVCFG_DEVCFG1.setPOSCMOD(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
- end;
- function TDEVCFG_DEVCFG1.getPOSCMOD : TBits_2; inline;
- begin
- getPOSCMOD := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
- end;
- procedure TDEVCFG_DEVCFG1.setOSCIOFNC; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TDEVCFG_DEVCFG1.clearOSCIOFNC; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TDEVCFG_DEVCFG1.setOSCIOFNC(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TDEVCFG_DEVCFG1.getOSCIOFNC : TBits_1; inline;
- begin
- getOSCIOFNC := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TDEVCFG_DEVCFG1.setFPBDIV(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFCFFF or ( thebits shl 12 );
- end;
- function TDEVCFG_DEVCFG1.getFPBDIV : TBits_2; inline;
- begin
- getFPBDIV := (pTDefRegMap(@Self)^.val and $00003000) shr 12;
- end;
- procedure TDEVCFG_DEVCFG1.setFCKSM(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
- end;
- function TDEVCFG_DEVCFG1.getFCKSM : TBits_2; inline;
- begin
- getFCKSM := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
- end;
- procedure TDEVCFG_DEVCFG1.setWDTPS(thebits : TBits_5); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
- end;
- function TDEVCFG_DEVCFG1.getWDTPS : TBits_5; inline;
- begin
- getWDTPS := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
- end;
- procedure TDEVCFG_DEVCFG1.setWINDIS; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- procedure TDEVCFG_DEVCFG1.clearWINDIS; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00400000;
- end;
- procedure TDEVCFG_DEVCFG1.setWINDIS(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00400000
- else
- pTDefRegMap(@Self)^.&set := $00400000;
- end;
- function TDEVCFG_DEVCFG1.getWINDIS : TBits_1; inline;
- begin
- getWINDIS := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
- end;
- procedure TDEVCFG_DEVCFG1.setFWDTEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- procedure TDEVCFG_DEVCFG1.clearFWDTEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00800000;
- end;
- procedure TDEVCFG_DEVCFG1.setFWDTEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00800000
- else
- pTDefRegMap(@Self)^.&set := $00800000;
- end;
- function TDEVCFG_DEVCFG1.getFWDTEN : TBits_1; inline;
- begin
- getFWDTEN := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
- end;
- procedure TDEVCFG_DEVCFG1.setFWDTWINSZ(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
- end;
- function TDEVCFG_DEVCFG1.getFWDTWINSZ : TBits_2; inline;
- begin
- getFWDTWINSZ := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
- end;
- procedure TDEVCFG_DEVCFG1.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDEVCFG_DEVCFG1.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TDEVCFG_DEVCFG0.setDEBUG(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TDEVCFG_DEVCFG0.getDEBUG : TBits_2; inline;
- begin
- getDEBUG := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TDEVCFG_DEVCFG0.setJTAGEN; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TDEVCFG_DEVCFG0.clearJTAGEN; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TDEVCFG_DEVCFG0.setJTAGEN(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TDEVCFG_DEVCFG0.getJTAGEN : TBits_1; inline;
- begin
- getJTAGEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TDEVCFG_DEVCFG0.setICESEL(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE7 or ( thebits shl 3 );
- end;
- function TDEVCFG_DEVCFG0.getICESEL : TBits_2; inline;
- begin
- getICESEL := (pTDefRegMap(@Self)^.val and $00000018) shr 3;
- end;
- procedure TDEVCFG_DEVCFG0.setPWP(thebits : TBits_8); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF00FFF or ( thebits shl 12 );
- end;
- function TDEVCFG_DEVCFG0.getPWP : TBits_8; inline;
- begin
- getPWP := (pTDefRegMap(@Self)^.val and $000FF000) shr 12;
- end;
- procedure TDEVCFG_DEVCFG0.setBWP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- procedure TDEVCFG_DEVCFG0.clearBWP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $01000000;
- end;
- procedure TDEVCFG_DEVCFG0.setBWP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $01000000
- else
- pTDefRegMap(@Self)^.&set := $01000000;
- end;
- function TDEVCFG_DEVCFG0.getBWP : TBits_1; inline;
- begin
- getBWP := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
- end;
- procedure TDEVCFG_DEVCFG0.setCP; inline;
- begin
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- procedure TDEVCFG_DEVCFG0.clearCP; inline;
- begin
- pTDefRegMap(@Self)^.clr := $10000000;
- end;
- procedure TDEVCFG_DEVCFG0.setCP(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $10000000
- else
- pTDefRegMap(@Self)^.&set := $10000000;
- end;
- function TDEVCFG_DEVCFG0.getCP : TBits_1; inline;
- begin
- getCP := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
- end;
- procedure TDEVCFG_DEVCFG0.setFDEBUG(thebits : TBits_2); inline;
- begin
- pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
- end;
- function TDEVCFG_DEVCFG0.getFDEBUG : TBits_2; inline;
- begin
- getFDEBUG := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
- end;
- procedure TDEVCFG_DEVCFG0.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TDEVCFG_DEVCFG0.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure _CORE_TIMER_VECTOR_interrupt; external name '_CORE_TIMER_VECTOR_interrupt';
- procedure _CORE_SOFTWARE_0_VECTOR_interrupt; external name '_CORE_SOFTWARE_0_VECTOR_interrupt';
- procedure _CORE_SOFTWARE_1_VECTOR_interrupt; external name '_CORE_SOFTWARE_1_VECTOR_interrupt';
- procedure _EXTERNAL_0_VECTOR_interrupt; external name '_EXTERNAL_0_VECTOR_interrupt';
- procedure _TIMER_1_VECTOR_interrupt; external name '_TIMER_1_VECTOR_interrupt';
- procedure _INPUT_CAPTURE_1_VECTOR_interrupt; external name '_INPUT_CAPTURE_1_VECTOR_interrupt';
- procedure _OUTPUT_COMPARE_1_VECTOR_interrupt; external name '_OUTPUT_COMPARE_1_VECTOR_interrupt';
- procedure _EXTERNAL_1_VECTOR_interrupt; external name '_EXTERNAL_1_VECTOR_interrupt';
- procedure _TIMER_2_VECTOR_interrupt; external name '_TIMER_2_VECTOR_interrupt';
- procedure _INPUT_CAPTURE_2_VECTOR_interrupt; external name '_INPUT_CAPTURE_2_VECTOR_interrupt';
- procedure _OUTPUT_COMPARE_2_VECTOR_interrupt; external name '_OUTPUT_COMPARE_2_VECTOR_interrupt';
- procedure _EXTERNAL_2_VECTOR_interrupt; external name '_EXTERNAL_2_VECTOR_interrupt';
- procedure _TIMER_3_VECTOR_interrupt; external name '_TIMER_3_VECTOR_interrupt';
- procedure _INPUT_CAPTURE_3_VECTOR_interrupt; external name '_INPUT_CAPTURE_3_VECTOR_interrupt';
- procedure _OUTPUT_COMPARE_3_VECTOR_interrupt; external name '_OUTPUT_COMPARE_3_VECTOR_interrupt';
- procedure _EXTERNAL_3_VECTOR_interrupt; external name '_EXTERNAL_3_VECTOR_interrupt';
- procedure _TIMER_4_VECTOR_interrupt; external name '_TIMER_4_VECTOR_interrupt';
- procedure _INPUT_CAPTURE_4_VECTOR_interrupt; external name '_INPUT_CAPTURE_4_VECTOR_interrupt';
- procedure _OUTPUT_COMPARE_4_VECTOR_interrupt; external name '_OUTPUT_COMPARE_4_VECTOR_interrupt';
- procedure _EXTERNAL_4_VECTOR_interrupt; external name '_EXTERNAL_4_VECTOR_interrupt';
- procedure _TIMER_5_VECTOR_interrupt; external name '_TIMER_5_VECTOR_interrupt';
- procedure _INPUT_CAPTURE_5_VECTOR_interrupt; external name '_INPUT_CAPTURE_5_VECTOR_interrupt';
- procedure _OUTPUT_COMPARE_5_VECTOR_interrupt; external name '_OUTPUT_COMPARE_5_VECTOR_interrupt';
- procedure _ADC_VECTOR_interrupt; external name '_ADC_VECTOR_interrupt';
- procedure _FAIL_SAFE_MONITOR_VECTOR_interrupt; external name '_FAIL_SAFE_MONITOR_VECTOR_interrupt';
- procedure _RTCC_VECTOR_interrupt; external name '_RTCC_VECTOR_interrupt';
- procedure _FCE_VECTOR_interrupt; external name '_FCE_VECTOR_interrupt';
- procedure _COMPARATOR_1_VECTOR_interrupt; external name '_COMPARATOR_1_VECTOR_interrupt';
- procedure _COMPARATOR_2_VECTOR_interrupt; external name '_COMPARATOR_2_VECTOR_interrupt';
- procedure _USB_1_VECTOR_interrupt; external name '_USB_1_VECTOR_interrupt';
- procedure _SPI_1_VECTOR_interrupt; external name '_SPI_1_VECTOR_interrupt';
- procedure _UART_1_VECTOR_interrupt; external name '_UART_1_VECTOR_interrupt';
- procedure _I2C_1_VECTOR_interrupt; external name '_I2C_1_VECTOR_interrupt';
- procedure _CHANGE_NOTICE_VECTOR_interrupt; external name '_CHANGE_NOTICE_VECTOR_interrupt';
- procedure _PMP_VECTOR_interrupt; external name '_PMP_VECTOR_interrupt';
- procedure _SPI_2_VECTOR_interrupt; external name '_SPI_2_VECTOR_interrupt';
- procedure _UART_2_VECTOR_interrupt; external name '_UART_2_VECTOR_interrupt';
- procedure _I2C_2_VECTOR_interrupt; external name '_I2C_2_VECTOR_interrupt';
- procedure _UART_3_VECTOR_interrupt; external name '_UART_3_VECTOR_interrupt';
- procedure _UART_4_VECTOR_interrupt; external name '_UART_4_VECTOR_interrupt';
- procedure _UART_5_VECTOR_interrupt; external name '_UART_5_VECTOR_interrupt';
- procedure _CTMU_VECTOR_interrupt; external name '_CTMU_VECTOR_interrupt';
- procedure _DMA_0_VECTOR_interrupt; external name '_DMA_0_VECTOR_interrupt';
- procedure _DMA_1_VECTOR_interrupt; external name '_DMA_1_VECTOR_interrupt';
- procedure _DMA_2_VECTOR_interrupt; external name '_DMA_2_VECTOR_interrupt';
- procedure _DMA_3_VECTOR_interrupt; external name '_DMA_3_VECTOR_interrupt';
- procedure Vectors; assembler; nostackframe;
- label interrupt_vectors;
- asm
- .section ".init.interrupt_vectors,\"ax\",@progbits"
- interrupt_vectors:
- j _CORE_TIMER_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _CORE_SOFTWARE_0_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _CORE_SOFTWARE_1_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _EXTERNAL_0_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _TIMER_1_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _INPUT_CAPTURE_1_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _OUTPUT_COMPARE_1_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _EXTERNAL_1_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _TIMER_2_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _INPUT_CAPTURE_2_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _OUTPUT_COMPARE_2_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _EXTERNAL_2_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _TIMER_3_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _INPUT_CAPTURE_3_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _OUTPUT_COMPARE_3_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _EXTERNAL_3_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _TIMER_4_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _INPUT_CAPTURE_4_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _OUTPUT_COMPARE_4_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _EXTERNAL_4_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _TIMER_5_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _INPUT_CAPTURE_5_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _OUTPUT_COMPARE_5_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _ADC_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _FAIL_SAFE_MONITOR_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _RTCC_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _FCE_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _COMPARATOR_1_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _COMPARATOR_2_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _USB_1_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _SPI_1_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _UART_1_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _I2C_1_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _CHANGE_NOTICE_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _PMP_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _SPI_2_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _UART_2_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _I2C_2_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _UART_3_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _UART_4_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _UART_5_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _CTMU_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _DMA_0_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _DMA_1_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _DMA_2_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- j _DMA_3_VECTOR_interrupt
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- .weak _CORE_TIMER_VECTOR_interrupt
- .weak _CORE_SOFTWARE_0_VECTOR_interrupt
- .weak _CORE_SOFTWARE_1_VECTOR_interrupt
- .weak _EXTERNAL_0_VECTOR_interrupt
- .weak _TIMER_1_VECTOR_interrupt
- .weak _INPUT_CAPTURE_1_VECTOR_interrupt
- .weak _OUTPUT_COMPARE_1_VECTOR_interrupt
- .weak _EXTERNAL_1_VECTOR_interrupt
- .weak _TIMER_2_VECTOR_interrupt
- .weak _INPUT_CAPTURE_2_VECTOR_interrupt
- .weak _OUTPUT_COMPARE_2_VECTOR_interrupt
- .weak _EXTERNAL_2_VECTOR_interrupt
- .weak _TIMER_3_VECTOR_interrupt
- .weak _INPUT_CAPTURE_3_VECTOR_interrupt
- .weak _OUTPUT_COMPARE_3_VECTOR_interrupt
- .weak _EXTERNAL_3_VECTOR_interrupt
- .weak _TIMER_4_VECTOR_interrupt
- .weak _INPUT_CAPTURE_4_VECTOR_interrupt
- .weak _OUTPUT_COMPARE_4_VECTOR_interrupt
- .weak _EXTERNAL_4_VECTOR_interrupt
- .weak _TIMER_5_VECTOR_interrupt
- .weak _INPUT_CAPTURE_5_VECTOR_interrupt
- .weak _OUTPUT_COMPARE_5_VECTOR_interrupt
- .weak _ADC_VECTOR_interrupt
- .weak _FAIL_SAFE_MONITOR_VECTOR_interrupt
- .weak _RTCC_VECTOR_interrupt
- .weak _FCE_VECTOR_interrupt
- .weak _COMPARATOR_1_VECTOR_interrupt
- .weak _COMPARATOR_2_VECTOR_interrupt
- .weak _USB_1_VECTOR_interrupt
- .weak _SPI_1_VECTOR_interrupt
- .weak _UART_1_VECTOR_interrupt
- .weak _I2C_1_VECTOR_interrupt
- .weak _CHANGE_NOTICE_VECTOR_interrupt
- .weak _PMP_VECTOR_interrupt
- .weak _SPI_2_VECTOR_interrupt
- .weak _UART_2_VECTOR_interrupt
- .weak _I2C_2_VECTOR_interrupt
- .weak _UART_3_VECTOR_interrupt
- .weak _UART_4_VECTOR_interrupt
- .weak _UART_5_VECTOR_interrupt
- .weak _CTMU_VECTOR_interrupt
- .weak _DMA_0_VECTOR_interrupt
- .weak _DMA_1_VECTOR_interrupt
- .weak _DMA_2_VECTOR_interrupt
- .weak _DMA_3_VECTOR_interrupt
- .text
- end;
- end.
|
