| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902490349044905490649074908490949104911491249134914491549164917491849194920492149224923492449254926492749284929493049314932493349344935493649374938493949404941494249434944494549464947494849494950495149524953495449554956495749584959496049614962496349644965496649674968496949704971497249734974497549764977497849794980498149824983498449854986498749884989499049914992499349944995499649974998499950005001500250035004500550065007500850095010501150125013501450155016501750185019502050215022502350245025502650275028502950305031503250335034503550365037503850395040504150425043504450455046504750485049505050515052505350545055505650575058505950605061506250635064506550665067506850695070507150725073507450755076507750785079508050815082508350845085508650875088508950905091509250935094509550965097509850995100510151025103510451055106510751085109511051115112511351145115511651175118511951205121512251235124512551265127512851295130513151325133513451355136513751385139514051415142514351445145514651475148514951505151515251535154515551565157515851595160516151625163516451655166516751685169517051715172517351745175517651775178517951805181518251835184518551865187518851895190519151925193519451955196519751985199520052015202520352045205520652075208520952105211521252135214521552165217521852195220522152225223522452255226522752285229523052315232523352345235523652375238523952405241524252435244524552465247524852495250525152525253525452555256525752585259526052615262526352645265526652675268526952705271527252735274527552765277527852795280528152825283528452855286528752885289529052915292529352945295529652975298529953005301530253035304530553065307530853095310531153125313531453155316531753185319532053215322532353245325532653275328532953305331533253335334533553365337533853395340534153425343534453455346534753485349535053515352535353545355535653575358535953605361536253635364536553665367536853695370537153725373537453755376537753785379538053815382538353845385538653875388538953905391539253935394539553965397539853995400540154025403540454055406540754085409541054115412541354145415541654175418541954205421542254235424542554265427542854295430543154325433543454355436543754385439544054415442544354445445544654475448544954505451545254535454545554565457545854595460546154625463546454655466546754685469547054715472547354745475547654775478547954805481548254835484548554865487548854895490549154925493549454955496549754985499550055015502550355045505550655075508550955105511551255135514551555165517551855195520552155225523552455255526552755285529553055315532553355345535553655375538553955405541554255435544554555465547554855495550555155525553555455555556555755585559556055615562556355645565556655675568556955705571557255735574557555765577557855795580558155825583558455855586558755885589559055915592559355945595559655975598559956005601560256035604560556065607560856095610561156125613561456155616561756185619562056215622562356245625562656275628562956305631563256335634563556365637563856395640564156425643564456455646564756485649565056515652565356545655565656575658565956605661566256635664566556665667566856695670567156725673567456755676567756785679568056815682568356845685568656875688568956905691569256935694569556965697569856995700570157025703570457055706570757085709571057115712571357145715571657175718571957205721572257235724572557265727572857295730573157325733573457355736573757385739574057415742574357445745574657475748574957505751575257535754575557565757575857595760576157625763576457655766576757685769577057715772577357745775577657775778577957805781578257835784578557865787578857895790579157925793579457955796579757985799580058015802580358045805580658075808580958105811581258135814581558165817581858195820582158225823582458255826582758285829583058315832583358345835583658375838583958405841584258435844584558465847584858495850585158525853585458555856585758585859586058615862586358645865586658675868586958705871587258735874587558765877587858795880588158825883588458855886588758885889589058915892589358945895589658975898589959005901590259035904590559065907590859095910591159125913591459155916591759185919592059215922592359245925592659275928592959305931593259335934593559365937593859395940594159425943594459455946594759485949595059515952595359545955595659575958595959605961596259635964596559665967596859695970597159725973597459755976597759785979598059815982598359845985598659875988598959905991599259935994599559965997599859996000600160026003600460056006600760086009601060116012601360146015601660176018601960206021602260236024602560266027602860296030603160326033603460356036603760386039604060416042604360446045604660476048604960506051605260536054605560566057605860596060606160626063606460656066606760686069607060716072607360746075607660776078607960806081608260836084608560866087608860896090609160926093609460956096609760986099610061016102610361046105610661076108610961106111611261136114611561166117611861196120612161226123612461256126612761286129613061316132613361346135613661376138613961406141614261436144614561466147614861496150615161526153615461556156615761586159616061616162616361646165616661676168616961706171617261736174617561766177617861796180618161826183618461856186618761886189619061916192619361946195619661976198619962006201620262036204620562066207620862096210621162126213621462156216621762186219622062216222622362246225622662276228622962306231623262336234623562366237623862396240624162426243624462456246624762486249625062516252625362546255625662576258625962606261626262636264626562666267626862696270627162726273627462756276627762786279628062816282628362846285628662876288628962906291629262936294629562966297629862996300630163026303630463056306630763086309631063116312631363146315631663176318631963206321632263236324632563266327632863296330633163326333633463356336633763386339634063416342634363446345634663476348634963506351635263536354635563566357635863596360636163626363636463656366636763686369637063716372637363746375637663776378637963806381638263836384638563866387638863896390639163926393639463956396639763986399640064016402640364046405640664076408640964106411641264136414641564166417641864196420642164226423642464256426642764286429643064316432643364346435643664376438643964406441644264436444644564466447644864496450645164526453645464556456645764586459646064616462646364646465646664676468646964706471647264736474647564766477647864796480648164826483648464856486648764886489649064916492649364946495649664976498649965006501650265036504650565066507650865096510651165126513651465156516651765186519652065216522652365246525652665276528652965306531653265336534653565366537653865396540654165426543654465456546654765486549655065516552655365546555655665576558655965606561656265636564656565666567656865696570657165726573657465756576657765786579658065816582658365846585658665876588658965906591659265936594659565966597659865996600660166026603660466056606660766086609661066116612661366146615661666176618661966206621662266236624662566266627662866296630663166326633663466356636663766386639664066416642664366446645664666476648664966506651665266536654665566566657665866596660666166626663666466656666666766686669667066716672667366746675667666776678667966806681668266836684668566866687668866896690669166926693669466956696669766986699670067016702670367046705670667076708670967106711671267136714671567166717671867196720672167226723672467256726672767286729673067316732673367346735673667376738673967406741674267436744674567466747674867496750675167526753675467556756675767586759676067616762676367646765676667676768676967706771677267736774677567766777677867796780678167826783678467856786678767886789679067916792679367946795679667976798679968006801680268036804680568066807680868096810681168126813681468156816681768186819682068216822682368246825682668276828682968306831683268336834683568366837683868396840684168426843684468456846684768486849685068516852685368546855685668576858685968606861686268636864686568666867686868696870687168726873687468756876687768786879688068816882688368846885688668876888688968906891689268936894689568966897689868996900690169026903690469056906690769086909691069116912691369146915691669176918691969206921692269236924692569266927692869296930693169326933693469356936693769386939694069416942694369446945694669476948694969506951695269536954695569566957695869596960696169626963696469656966696769686969697069716972697369746975697669776978697969806981698269836984698569866987698869896990699169926993699469956996699769986999700070017002700370047005700670077008700970107011701270137014701570167017701870197020702170227023702470257026702770287029703070317032703370347035703670377038703970407041704270437044704570467047704870497050705170527053705470557056705770587059706070617062706370647065706670677068706970707071707270737074707570767077707870797080708170827083708470857086708770887089709070917092709370947095709670977098709971007101710271037104710571067107710871097110711171127113711471157116711771187119712071217122712371247125712671277128712971307131713271337134713571367137713871397140714171427143714471457146714771487149715071517152715371547155715671577158715971607161716271637164716571667167716871697170717171727173717471757176717771787179718071817182718371847185718671877188718971907191719271937194719571967197719871997200720172027203720472057206720772087209721072117212721372147215721672177218721972207221722272237224722572267227722872297230723172327233723472357236723772387239724072417242724372447245724672477248724972507251725272537254725572567257725872597260726172627263726472657266726772687269727072717272727372747275727672777278727972807281728272837284728572867287728872897290729172927293729472957296729772987299730073017302730373047305730673077308730973107311731273137314731573167317731873197320732173227323732473257326732773287329733073317332733373347335733673377338733973407341734273437344734573467347734873497350735173527353735473557356735773587359736073617362736373647365736673677368736973707371737273737374737573767377737873797380738173827383738473857386738773887389739073917392739373947395739673977398739974007401740274037404740574067407740874097410741174127413741474157416741774187419742074217422742374247425742674277428742974307431743274337434743574367437743874397440744174427443744474457446744774487449745074517452745374547455745674577458745974607461746274637464746574667467746874697470747174727473747474757476747774787479748074817482748374847485748674877488748974907491749274937494749574967497749874997500750175027503750475057506750775087509751075117512751375147515751675177518751975207521752275237524752575267527752875297530753175327533753475357536753775387539754075417542754375447545754675477548754975507551755275537554755575567557755875597560756175627563756475657566756775687569757075717572757375747575757675777578757975807581758275837584758575867587758875897590759175927593759475957596759775987599760076017602760376047605760676077608760976107611761276137614761576167617761876197620762176227623762476257626762776287629763076317632763376347635763676377638763976407641764276437644764576467647764876497650765176527653765476557656765776587659766076617662766376647665766676677668766976707671767276737674767576767677767876797680768176827683768476857686768776887689769076917692769376947695769676977698769977007701770277037704770577067707770877097710771177127713771477157716771777187719772077217722772377247725772677277728772977307731773277337734773577367737773877397740774177427743774477457746774777487749775077517752775377547755775677577758775977607761776277637764776577667767776877697770777177727773777477757776777777787779778077817782778377847785778677877788778977907791779277937794779577967797779877997800780178027803780478057806780778087809781078117812781378147815781678177818781978207821782278237824782578267827782878297830783178327833783478357836783778387839784078417842784378447845784678477848784978507851785278537854785578567857785878597860786178627863786478657866786778687869787078717872787378747875787678777878787978807881788278837884788578867887788878897890789178927893789478957896789778987899790079017902790379047905790679077908790979107911791279137914791579167917791879197920792179227923792479257926792779287929793079317932793379347935793679377938793979407941794279437944794579467947794879497950795179527953795479557956795779587959796079617962796379647965796679677968796979707971797279737974797579767977797879797980798179827983798479857986798779887989799079917992799379947995799679977998799980008001800280038004800580068007800880098010801180128013801480158016801780188019802080218022802380248025802680278028802980308031803280338034803580368037803880398040804180428043804480458046804780488049805080518052805380548055805680578058805980608061806280638064806580668067806880698070807180728073807480758076807780788079808080818082808380848085808680878088808980908091809280938094809580968097809880998100810181028103810481058106810781088109811081118112811381148115811681178118811981208121812281238124812581268127812881298130813181328133813481358136813781388139814081418142814381448145814681478148814981508151815281538154815581568157815881598160816181628163816481658166816781688169817081718172817381748175817681778178817981808181818281838184818581868187818881898190819181928193819481958196819781988199820082018202820382048205820682078208820982108211821282138214821582168217821882198220822182228223822482258226822782288229823082318232823382348235823682378238823982408241824282438244824582468247824882498250825182528253825482558256825782588259826082618262826382648265826682678268826982708271827282738274827582768277827882798280828182828283828482858286828782888289829082918292829382948295829682978298829983008301830283038304830583068307830883098310831183128313831483158316831783188319832083218322832383248325832683278328832983308331833283338334833583368337833883398340834183428343834483458346834783488349835083518352835383548355835683578358835983608361836283638364836583668367836883698370837183728373837483758376837783788379838083818382838383848385838683878388838983908391839283938394839583968397839883998400840184028403840484058406840784088409841084118412841384148415841684178418841984208421842284238424842584268427842884298430843184328433843484358436843784388439844084418442844384448445844684478448844984508451845284538454845584568457845884598460846184628463846484658466846784688469847084718472847384748475847684778478847984808481848284838484848584868487848884898490849184928493849484958496849784988499850085018502850385048505850685078508850985108511851285138514851585168517851885198520852185228523852485258526852785288529853085318532853385348535853685378538853985408541854285438544854585468547854885498550855185528553855485558556855785588559856085618562856385648565856685678568856985708571857285738574857585768577857885798580858185828583858485858586858785888589859085918592859385948595859685978598859986008601860286038604860586068607860886098610861186128613861486158616861786188619862086218622862386248625862686278628862986308631863286338634863586368637863886398640864186428643864486458646864786488649865086518652865386548655865686578658865986608661866286638664866586668667866886698670867186728673867486758676867786788679868086818682868386848685868686878688868986908691869286938694869586968697869886998700870187028703870487058706870787088709871087118712871387148715871687178718871987208721872287238724872587268727872887298730873187328733873487358736873787388739874087418742874387448745874687478748874987508751875287538754875587568757875887598760876187628763876487658766876787688769877087718772877387748775877687778778877987808781878287838784878587868787878887898790879187928793879487958796879787988799880088018802880388048805880688078808880988108811881288138814881588168817881888198820882188228823882488258826882788288829883088318832883388348835883688378838883988408841884288438844884588468847884888498850885188528853885488558856885788588859886088618862886388648865886688678868886988708871887288738874887588768877887888798880888188828883888488858886888788888889889088918892889388948895889688978898889989008901890289038904890589068907890889098910891189128913891489158916891789188919892089218922892389248925892689278928892989308931893289338934893589368937893889398940894189428943894489458946894789488949895089518952895389548955895689578958895989608961896289638964896589668967896889698970897189728973897489758976897789788979898089818982898389848985898689878988898989908991899289938994899589968997899889999000900190029003900490059006900790089009901090119012901390149015901690179018901990209021902290239024902590269027902890299030903190329033903490359036903790389039904090419042904390449045904690479048904990509051905290539054905590569057905890599060906190629063906490659066906790689069907090719072907390749075907690779078907990809081908290839084908590869087908890899090909190929093909490959096909790989099910091019102910391049105910691079108910991109111911291139114911591169117911891199120912191229123912491259126912791289129913091319132913391349135913691379138913991409141914291439144914591469147914891499150915191529153915491559156915791589159916091619162916391649165916691679168916991709171917291739174917591769177917891799180918191829183918491859186918791889189919091919192919391949195919691979198919992009201920292039204920592069207920892099210921192129213921492159216921792189219922092219222922392249225922692279228922992309231923292339234923592369237923892399240924192429243924492459246924792489249925092519252925392549255925692579258925992609261926292639264926592669267926892699270927192729273927492759276927792789279928092819282928392849285928692879288928992909291929292939294929592969297929892999300930193029303930493059306930793089309931093119312931393149315931693179318931993209321932293239324932593269327932893299330933193329333933493359336933793389339934093419342934393449345934693479348934993509351935293539354935593569357935893599360936193629363936493659366936793689369937093719372937393749375937693779378937993809381938293839384938593869387938893899390939193929393939493959396939793989399940094019402940394049405940694079408940994109411941294139414941594169417941894199420942194229423942494259426942794289429943094319432943394349435943694379438943994409441944294439444944594469447944894499450945194529453945494559456945794589459946094619462946394649465946694679468946994709471947294739474947594769477947894799480948194829483948494859486948794889489949094919492949394949495949694979498949995009501950295039504950595069507950895099510951195129513951495159516951795189519952095219522952395249525952695279528952995309531953295339534953595369537953895399540954195429543954495459546954795489549955095519552955395549555955695579558955995609561956295639564956595669567956895699570957195729573957495759576957795789579958095819582958395849585958695879588958995909591959295939594959595969597959895999600960196029603960496059606960796089609961096119612961396149615961696179618961996209621962296239624962596269627962896299630963196329633963496359636963796389639964096419642964396449645964696479648964996509651965296539654965596569657965896599660966196629663966496659666966796689669967096719672967396749675967696779678967996809681968296839684968596869687968896899690969196929693969496959696969796989699970097019702970397049705970697079708970997109711971297139714971597169717971897199720972197229723972497259726972797289729973097319732973397349735973697379738973997409741974297439744974597469747974897499750975197529753975497559756975797589759976097619762976397649765976697679768976997709771977297739774977597769777977897799780978197829783978497859786978797889789979097919792979397949795979697979798979998009801980298039804980598069807980898099810981198129813981498159816981798189819982098219822982398249825982698279828982998309831983298339834983598369837983898399840984198429843984498459846984798489849985098519852985398549855985698579858985998609861986298639864986598669867986898699870987198729873987498759876987798789879988098819882988398849885988698879888988998909891989298939894989598969897989898999900990199029903990499059906990799089909991099119912991399149915991699179918991999209921992299239924992599269927992899299930993199329933993499359936993799389939994099419942994399449945994699479948994999509951995299539954995599569957995899599960996199629963996499659966996799689969997099719972997399749975997699779978997999809981998299839984998599869987998899899990999199929993999499959996999799989999100001000110002100031000410005100061000710008100091001010011100121001310014100151001610017100181001910020100211002210023100241002510026100271002810029100301003110032100331003410035100361003710038100391004010041100421004310044100451004610047100481004910050100511005210053100541005510056100571005810059100601006110062100631006410065100661006710068100691007010071100721007310074100751007610077100781007910080100811008210083100841008510086100871008810089100901009110092100931009410095100961009710098100991010010101101021010310104101051010610107101081010910110101111011210113101141011510116101171011810119101201012110122101231012410125101261012710128101291013010131101321013310134101351013610137101381013910140101411014210143101441014510146101471014810149101501015110152101531015410155101561015710158101591016010161101621016310164101651016610167101681016910170101711017210173101741017510176101771017810179101801018110182101831018410185101861018710188101891019010191101921019310194101951019610197101981019910200102011020210203102041020510206102071020810209102101021110212102131021410215102161021710218102191022010221102221022310224102251022610227102281022910230102311023210233102341023510236102371023810239102401024110242102431024410245102461024710248102491025010251102521025310254102551025610257102581025910260102611026210263102641026510266102671026810269102701027110272102731027410275102761027710278102791028010281102821028310284102851028610287102881028910290102911029210293102941029510296102971029810299103001030110302103031030410305103061030710308103091031010311103121031310314103151031610317103181031910320103211032210323103241032510326103271032810329103301033110332103331033410335103361033710338103391034010341103421034310344103451034610347103481034910350103511035210353103541035510356103571035810359103601036110362103631036410365103661036710368103691037010371103721037310374103751037610377103781037910380103811038210383103841038510386103871038810389103901039110392103931039410395103961039710398103991040010401104021040310404104051040610407104081040910410104111041210413104141041510416104171041810419104201042110422104231042410425104261042710428104291043010431104321043310434104351043610437104381043910440104411044210443104441044510446104471044810449104501045110452104531045410455104561045710458104591046010461104621046310464104651046610467104681046910470104711047210473104741047510476104771047810479104801048110482104831048410485104861048710488104891049010491104921049310494104951049610497104981049910500105011050210503105041050510506105071050810509105101051110512105131051410515105161051710518105191052010521105221052310524105251052610527105281052910530105311053210533105341053510536105371053810539105401054110542105431054410545105461054710548105491055010551105521055310554105551055610557105581055910560105611056210563105641056510566105671056810569105701057110572105731057410575105761057710578105791058010581105821058310584105851058610587105881058910590105911059210593105941059510596105971059810599106001060110602106031060410605106061060710608106091061010611106121061310614106151061610617106181061910620106211062210623106241062510626106271062810629106301063110632106331063410635106361063710638106391064010641106421064310644106451064610647106481064910650106511065210653106541065510656106571065810659106601066110662106631066410665106661066710668106691067010671106721067310674106751067610677106781067910680106811068210683106841068510686106871068810689106901069110692106931069410695106961069710698106991070010701107021070310704107051070610707107081070910710107111071210713107141071510716107171071810719107201072110722107231072410725107261072710728107291073010731107321073310734107351073610737107381073910740107411074210743107441074510746107471074810749107501075110752107531075410755107561075710758107591076010761107621076310764107651076610767107681076910770107711077210773107741077510776107771077810779107801078110782107831078410785107861078710788107891079010791107921079310794107951079610797107981079910800108011080210803108041080510806108071080810809108101081110812108131081410815108161081710818108191082010821108221082310824108251082610827108281082910830108311083210833108341083510836108371083810839108401084110842108431084410845108461084710848108491085010851108521085310854108551085610857108581085910860108611086210863108641086510866108671086810869108701087110872108731087410875108761087710878108791088010881108821088310884108851088610887108881088910890108911089210893108941089510896108971089810899109001090110902109031090410905109061090710908109091091010911109121091310914109151091610917109181091910920109211092210923109241092510926109271092810929109301093110932109331093410935109361093710938109391094010941109421094310944109451094610947109481094910950109511095210953109541095510956109571095810959109601096110962109631096410965109661096710968109691097010971109721097310974109751097610977109781097910980109811098210983109841098510986109871098810989109901099110992109931099410995109961099710998109991100011001110021100311004110051100611007110081100911010110111101211013110141101511016110171101811019110201102111022110231102411025110261102711028110291103011031110321103311034110351103611037110381103911040110411104211043110441104511046110471104811049110501105111052110531105411055110561105711058110591106011061110621106311064110651106611067110681106911070110711107211073110741107511076110771107811079110801108111082110831108411085110861108711088110891109011091110921109311094110951109611097110981109911100111011110211103111041110511106111071110811109111101111111112111131111411115111161111711118111191112011121111221112311124111251112611127111281112911130111311113211133111341113511136111371113811139111401114111142111431114411145111461114711148111491115011151111521115311154111551115611157111581115911160111611116211163111641116511166111671116811169111701117111172111731117411175111761117711178111791118011181111821118311184111851118611187111881118911190111911119211193111941119511196111971119811199112001120111202112031120411205112061120711208112091121011211112121121311214112151121611217112181121911220112211122211223112241122511226112271122811229112301123111232112331123411235112361123711238112391124011241112421124311244112451124611247112481124911250112511125211253112541125511256112571125811259112601126111262112631126411265112661126711268112691127011271112721127311274112751127611277112781127911280112811128211283112841128511286112871128811289112901129111292112931129411295112961129711298112991130011301113021130311304113051130611307113081130911310113111131211313113141131511316113171131811319113201132111322113231132411325113261132711328113291133011331113321133311334113351133611337113381133911340113411134211343113441134511346113471134811349113501135111352113531135411355113561135711358113591136011361113621136311364113651136611367113681136911370113711137211373113741137511376113771137811379113801138111382113831138411385113861138711388113891139011391113921139311394113951139611397113981139911400114011140211403114041140511406114071140811409114101141111412114131141411415114161141711418114191142011421114221142311424114251142611427114281142911430114311143211433114341143511436114371143811439114401144111442114431144411445114461144711448114491145011451114521145311454114551145611457114581145911460114611146211463114641146511466114671146811469114701147111472114731147411475114761147711478114791148011481114821148311484114851148611487114881148911490114911149211493114941149511496114971149811499115001150111502115031150411505115061150711508115091151011511115121151311514115151151611517115181151911520115211152211523115241152511526115271152811529115301153111532115331153411535115361153711538115391154011541115421154311544115451154611547115481154911550115511155211553115541155511556115571155811559115601156111562115631156411565115661156711568115691157011571115721157311574115751157611577115781157911580115811158211583115841158511586115871158811589115901159111592115931159411595115961159711598115991160011601116021160311604116051160611607116081160911610116111161211613116141161511616116171161811619116201162111622116231162411625116261162711628116291163011631116321163311634116351163611637116381163911640116411164211643116441164511646116471164811649116501165111652116531165411655116561165711658116591166011661116621166311664116651166611667116681166911670116711167211673116741167511676116771167811679116801168111682116831168411685116861168711688116891169011691116921169311694116951169611697116981169911700117011170211703117041170511706117071170811709117101171111712117131171411715117161171711718117191172011721117221172311724117251172611727117281172911730117311173211733117341173511736117371173811739117401174111742117431174411745117461174711748117491175011751117521175311754117551175611757117581175911760117611176211763117641176511766117671176811769117701177111772117731177411775117761177711778117791178011781117821178311784117851178611787117881178911790117911179211793117941179511796117971179811799118001180111802118031180411805118061180711808118091181011811118121181311814118151181611817118181181911820118211182211823118241182511826118271182811829118301183111832118331183411835118361183711838118391184011841118421184311844118451184611847118481184911850118511185211853118541185511856118571185811859118601186111862118631186411865118661186711868118691187011871118721187311874118751187611877118781187911880118811188211883118841188511886118871188811889118901189111892118931189411895118961189711898118991190011901119021190311904119051190611907119081190911910119111191211913119141191511916119171191811919119201192111922119231192411925119261192711928119291193011931119321193311934119351193611937119381193911940119411194211943119441194511946119471194811949119501195111952119531195411955119561195711958119591196011961119621196311964119651196611967119681196911970119711197211973119741197511976119771197811979119801198111982119831198411985119861198711988119891199011991119921199311994119951199611997119981199912000120011200212003120041200512006120071200812009120101201112012120131201412015120161201712018120191202012021120221202312024120251202612027120281202912030120311203212033120341203512036120371203812039120401204112042120431204412045120461204712048120491205012051120521205312054120551205612057120581205912060120611206212063120641206512066120671206812069120701207112072120731207412075120761207712078120791208012081120821208312084120851208612087120881208912090120911209212093120941209512096120971209812099121001210112102121031210412105121061210712108121091211012111121121211312114121151211612117121181211912120121211212212123121241212512126121271212812129121301213112132121331213412135121361213712138121391214012141121421214312144121451214612147121481214912150121511215212153121541215512156121571215812159121601216112162121631216412165121661216712168121691217012171121721217312174121751217612177121781217912180121811218212183121841218512186121871218812189121901219112192121931219412195121961219712198121991220012201122021220312204122051220612207122081220912210122111221212213122141221512216122171221812219122201222112222122231222412225122261222712228122291223012231122321223312234122351223612237122381223912240122411224212243122441224512246122471224812249122501225112252122531225412255122561225712258122591226012261122621226312264122651226612267122681226912270122711227212273122741227512276122771227812279122801228112282122831228412285122861228712288122891229012291122921229312294122951229612297122981229912300123011230212303123041230512306123071230812309123101231112312123131231412315123161231712318123191232012321123221232312324123251232612327123281232912330123311233212333123341233512336123371233812339123401234112342123431234412345123461234712348123491235012351123521235312354123551235612357123581235912360123611236212363123641236512366123671236812369123701237112372123731237412375123761237712378123791238012381123821238312384123851238612387123881238912390123911239212393123941239512396123971239812399124001240112402124031240412405124061240712408124091241012411124121241312414124151241612417124181241912420124211242212423124241242512426124271242812429124301243112432124331243412435124361243712438124391244012441124421244312444124451244612447124481244912450124511245212453124541245512456124571245812459124601246112462124631246412465124661246712468124691247012471124721247312474124751247612477124781247912480124811248212483124841248512486124871248812489124901249112492124931249412495124961249712498124991250012501125021250312504125051250612507125081250912510125111251212513125141251512516125171251812519125201252112522125231252412525125261252712528125291253012531125321253312534125351253612537125381253912540125411254212543125441254512546125471254812549125501255112552125531255412555125561255712558125591256012561125621256312564125651256612567125681256912570125711257212573125741257512576125771257812579125801258112582125831258412585125861258712588125891259012591125921259312594125951259612597125981259912600126011260212603126041260512606126071260812609126101261112612126131261412615126161261712618126191262012621126221262312624126251262612627126281262912630126311263212633126341263512636126371263812639126401264112642126431264412645126461264712648126491265012651126521265312654126551265612657126581265912660126611266212663126641266512666126671266812669126701267112672126731267412675126761267712678126791268012681126821268312684126851268612687126881268912690126911269212693126941269512696126971269812699127001270112702127031270412705127061270712708127091271012711127121271312714127151271612717127181271912720127211272212723127241272512726127271272812729127301273112732127331273412735127361273712738127391274012741127421274312744127451274612747127481274912750127511275212753127541275512756127571275812759127601276112762127631276412765127661276712768127691277012771127721277312774127751277612777127781277912780127811278212783127841278512786127871278812789127901279112792127931279412795127961279712798127991280012801128021280312804128051280612807128081280912810128111281212813128141281512816128171281812819128201282112822128231282412825128261282712828128291283012831128321283312834128351283612837128381283912840128411284212843128441284512846128471284812849128501285112852128531285412855128561285712858128591286012861128621286312864128651286612867128681286912870128711287212873128741287512876128771287812879128801288112882128831288412885128861288712888128891289012891128921289312894128951289612897128981289912900129011290212903129041290512906129071290812909129101291112912129131291412915129161291712918129191292012921129221292312924129251292612927129281292912930129311293212933129341293512936129371293812939129401294112942129431294412945129461294712948129491295012951129521295312954129551295612957129581295912960129611296212963129641296512966129671296812969129701297112972129731297412975129761297712978129791298012981129821298312984129851298612987129881298912990129911299212993129941299512996129971299812999130001300113002130031300413005130061300713008130091301013011130121301313014130151301613017130181301913020130211302213023130241302513026130271302813029130301303113032130331303413035130361303713038130391304013041130421304313044130451304613047130481304913050130511305213053130541305513056130571305813059130601306113062130631306413065130661306713068130691307013071130721307313074130751307613077130781307913080130811308213083130841308513086130871308813089130901309113092130931309413095130961309713098130991310013101131021310313104131051310613107131081310913110131111311213113131141311513116131171311813119131201312113122131231312413125131261312713128131291313013131131321313313134131351313613137131381313913140131411314213143131441314513146131471314813149131501315113152131531315413155131561315713158131591316013161131621316313164131651316613167131681316913170131711317213173131741317513176131771317813179131801318113182131831318413185131861318713188131891319013191131921319313194131951319613197131981319913200132011320213203132041320513206132071320813209132101321113212132131321413215132161321713218132191322013221132221322313224132251322613227132281322913230132311323213233132341323513236132371323813239132401324113242132431324413245132461324713248132491325013251132521325313254132551325613257132581325913260132611326213263132641326513266132671326813269132701327113272132731327413275132761327713278132791328013281132821328313284132851328613287132881328913290132911329213293132941329513296132971329813299133001330113302133031330413305133061330713308133091331013311133121331313314133151331613317133181331913320133211332213323133241332513326133271332813329133301333113332133331333413335133361333713338133391334013341133421334313344133451334613347133481334913350133511335213353133541335513356133571335813359133601336113362133631336413365133661336713368133691337013371133721337313374133751337613377133781337913380133811338213383133841338513386133871338813389133901339113392133931339413395133961339713398133991340013401134021340313404134051340613407134081340913410134111341213413134141341513416134171341813419134201342113422134231342413425134261342713428134291343013431134321343313434134351343613437134381343913440134411344213443134441344513446134471344813449134501345113452134531345413455134561345713458134591346013461134621346313464134651346613467134681346913470134711347213473134741347513476134771347813479134801348113482134831348413485134861348713488134891349013491134921349313494134951349613497134981349913500135011350213503135041350513506135071350813509135101351113512135131351413515135161351713518135191352013521135221352313524135251352613527135281352913530135311353213533135341353513536135371353813539135401354113542135431354413545135461354713548135491355013551135521355313554135551355613557135581355913560135611356213563135641356513566135671356813569135701357113572135731357413575135761357713578135791358013581135821358313584135851358613587135881358913590135911359213593135941359513596135971359813599136001360113602136031360413605136061360713608136091361013611136121361313614136151361613617136181361913620136211362213623136241362513626136271362813629136301363113632136331363413635136361363713638136391364013641136421364313644136451364613647136481364913650136511365213653136541365513656136571365813659136601366113662136631366413665136661366713668136691367013671136721367313674136751367613677136781367913680136811368213683136841368513686136871368813689136901369113692136931369413695136961369713698136991370013701137021370313704137051370613707137081370913710137111371213713137141371513716137171371813719137201372113722137231372413725137261372713728137291373013731137321373313734137351373613737137381373913740137411374213743137441374513746137471374813749137501375113752137531375413755137561375713758137591376013761137621376313764137651376613767137681376913770137711377213773137741377513776137771377813779137801378113782137831378413785137861378713788137891379013791137921379313794137951379613797137981379913800138011380213803138041380513806138071380813809138101381113812138131381413815138161381713818138191382013821138221382313824138251382613827138281382913830138311383213833138341383513836138371383813839138401384113842138431384413845138461384713848138491385013851138521385313854138551385613857138581385913860138611386213863138641386513866138671386813869138701387113872138731387413875138761387713878138791388013881138821388313884138851388613887138881388913890138911389213893138941389513896138971389813899139001390113902139031390413905139061390713908139091391013911139121391313914139151391613917139181391913920139211392213923139241392513926139271392813929139301393113932139331393413935139361393713938139391394013941139421394313944139451394613947139481394913950139511395213953139541395513956139571395813959139601396113962139631396413965139661396713968139691397013971139721397313974139751397613977139781397913980139811398213983139841398513986139871398813989139901399113992139931399413995139961399713998139991400014001140021400314004140051400614007140081400914010140111401214013140141401514016140171401814019140201402114022140231402414025140261402714028140291403014031140321403314034140351403614037140381403914040140411404214043140441404514046140471404814049140501405114052140531405414055140561405714058140591406014061140621406314064140651406614067140681406914070140711407214073140741407514076140771407814079140801408114082140831408414085140861408714088140891409014091140921409314094140951409614097140981409914100141011410214103141041410514106141071410814109141101411114112141131411414115141161411714118141191412014121141221412314124141251412614127141281412914130141311413214133141341413514136141371413814139141401414114142141431414414145141461414714148141491415014151141521415314154141551415614157141581415914160141611416214163141641416514166141671416814169141701417114172141731417414175141761417714178141791418014181141821418314184141851418614187141881418914190141911419214193141941419514196141971419814199142001420114202142031420414205142061420714208142091421014211142121421314214142151421614217142181421914220142211422214223142241422514226142271422814229142301423114232142331423414235142361423714238142391424014241142421424314244142451424614247142481424914250142511425214253142541425514256142571425814259142601426114262142631426414265142661426714268142691427014271142721427314274142751427614277142781427914280142811428214283142841428514286142871428814289142901429114292142931429414295142961429714298142991430014301143021430314304143051430614307143081430914310143111431214313143141431514316143171431814319143201432114322143231432414325143261432714328143291433014331143321433314334143351433614337143381433914340143411434214343143441434514346143471434814349143501435114352143531435414355143561435714358143591436014361143621436314364143651436614367143681436914370143711437214373143741437514376143771437814379143801438114382143831438414385143861438714388143891439014391143921439314394143951439614397143981439914400144011440214403144041440514406144071440814409144101441114412144131441414415144161441714418144191442014421144221442314424144251442614427144281442914430144311443214433144341443514436144371443814439144401444114442144431444414445144461444714448144491445014451144521445314454144551445614457144581445914460144611446214463144641446514466144671446814469144701447114472144731447414475144761447714478144791448014481144821448314484144851448614487144881448914490144911449214493144941449514496144971449814499145001450114502145031450414505145061450714508145091451014511145121451314514145151451614517145181451914520145211452214523145241452514526145271452814529145301453114532145331453414535145361453714538145391454014541145421454314544145451454614547145481454914550145511455214553145541455514556145571455814559145601456114562145631456414565145661456714568145691457014571145721457314574145751457614577145781457914580145811458214583145841458514586145871458814589145901459114592145931459414595145961459714598145991460014601146021460314604146051460614607146081460914610146111461214613146141461514616146171461814619146201462114622146231462414625146261462714628146291463014631146321463314634146351463614637146381463914640146411464214643146441464514646146471464814649146501465114652146531465414655146561465714658146591466014661146621466314664146651466614667146681466914670146711467214673146741467514676146771467814679146801468114682146831468414685146861468714688146891469014691146921469314694146951469614697146981469914700147011470214703147041470514706147071470814709147101471114712147131471414715147161471714718147191472014721147221472314724147251472614727147281472914730147311473214733147341473514736147371473814739147401474114742147431474414745147461474714748147491475014751147521475314754147551475614757147581475914760147611476214763147641476514766147671476814769147701477114772147731477414775147761477714778147791478014781147821478314784147851478614787147881478914790147911479214793147941479514796147971479814799148001480114802148031480414805148061480714808148091481014811148121481314814148151481614817148181481914820148211482214823148241482514826148271482814829148301483114832148331483414835148361483714838148391484014841148421484314844148451484614847148481484914850148511485214853148541485514856148571485814859148601486114862148631486414865148661486714868148691487014871148721487314874148751487614877148781487914880148811488214883148841488514886148871488814889148901489114892148931489414895148961489714898148991490014901149021490314904149051490614907149081490914910149111491214913149141491514916149171491814919149201492114922149231492414925149261492714928149291493014931149321493314934149351493614937149381493914940149411494214943149441494514946149471494814949149501495114952149531495414955149561495714958149591496014961149621496314964149651496614967149681496914970149711497214973149741497514976149771497814979149801498114982149831498414985149861498714988149891499014991149921499314994149951499614997149981499915000150011500215003150041500515006150071500815009150101501115012150131501415015150161501715018150191502015021150221502315024150251502615027150281502915030150311503215033150341503515036150371503815039150401504115042150431504415045150461504715048150491505015051150521505315054150551505615057150581505915060150611506215063150641506515066150671506815069150701507115072150731507415075150761507715078150791508015081150821508315084150851508615087150881508915090150911509215093150941509515096150971509815099151001510115102151031510415105151061510715108151091511015111151121511315114151151511615117151181511915120151211512215123151241512515126151271512815129151301513115132151331513415135151361513715138151391514015141151421514315144151451514615147151481514915150151511515215153151541515515156151571515815159151601516115162151631516415165151661516715168151691517015171151721517315174151751517615177151781517915180151811518215183151841518515186151871518815189151901519115192151931519415195151961519715198151991520015201152021520315204152051520615207152081520915210152111521215213152141521515216152171521815219152201522115222152231522415225152261522715228152291523015231152321523315234152351523615237152381523915240152411524215243152441524515246152471524815249152501525115252152531525415255152561525715258152591526015261152621526315264152651526615267152681526915270152711527215273152741527515276152771527815279152801528115282152831528415285152861528715288152891529015291152921529315294152951529615297152981529915300153011530215303153041530515306153071530815309153101531115312153131531415315153161531715318153191532015321153221532315324153251532615327153281532915330153311533215333153341533515336153371533815339153401534115342153431534415345153461534715348153491535015351153521535315354153551535615357153581535915360153611536215363153641536515366153671536815369153701537115372153731537415375153761537715378153791538015381153821538315384153851538615387153881538915390153911539215393153941539515396153971539815399154001540115402154031540415405154061540715408154091541015411154121541315414154151541615417154181541915420154211542215423154241542515426154271542815429154301543115432154331543415435154361543715438154391544015441154421544315444154451544615447154481544915450154511545215453154541545515456154571545815459154601546115462154631546415465154661546715468154691547015471154721547315474154751547615477154781547915480154811548215483154841548515486154871548815489154901549115492154931549415495154961549715498154991550015501155021550315504155051550615507155081550915510155111551215513155141551515516155171551815519155201552115522155231552415525155261552715528155291553015531155321553315534155351553615537155381553915540155411554215543155441554515546155471554815549155501555115552155531555415555155561555715558155591556015561155621556315564155651556615567155681556915570155711557215573155741557515576155771557815579155801558115582155831558415585155861558715588155891559015591155921559315594155951559615597155981559915600156011560215603156041560515606156071560815609156101561115612156131561415615156161561715618156191562015621156221562315624156251562615627156281562915630156311563215633156341563515636156371563815639156401564115642156431564415645156461564715648156491565015651156521565315654156551565615657156581565915660156611566215663156641566515666156671566815669156701567115672156731567415675156761567715678156791568015681156821568315684156851568615687156881568915690156911569215693156941569515696156971569815699157001570115702157031570415705157061570715708157091571015711157121571315714157151571615717157181571915720157211572215723157241572515726157271572815729157301573115732157331573415735157361573715738157391574015741157421574315744157451574615747157481574915750157511575215753157541575515756157571575815759157601576115762157631576415765157661576715768157691577015771157721577315774157751577615777157781577915780157811578215783157841578515786157871578815789157901579115792157931579415795157961579715798157991580015801158021580315804158051580615807158081580915810158111581215813158141581515816158171581815819158201582115822158231582415825158261582715828158291583015831158321583315834158351583615837158381583915840158411584215843158441584515846158471584815849158501585115852158531585415855158561585715858158591586015861158621586315864158651586615867158681586915870158711587215873158741587515876158771587815879158801588115882158831588415885158861588715888158891589015891158921589315894158951589615897158981589915900159011590215903159041590515906159071590815909159101591115912159131591415915159161591715918159191592015921159221592315924159251592615927159281592915930159311593215933159341593515936159371593815939159401594115942159431594415945159461594715948159491595015951159521595315954159551595615957159581595915960159611596215963159641596515966159671596815969159701597115972159731597415975159761597715978159791598015981159821598315984159851598615987159881598915990159911599215993159941599515996159971599815999160001600116002160031600416005160061600716008160091601016011160121601316014160151601616017160181601916020160211602216023160241602516026160271602816029160301603116032160331603416035160361603716038160391604016041160421604316044160451604616047160481604916050160511605216053160541605516056160571605816059160601606116062160631606416065160661606716068160691607016071160721607316074160751607616077160781607916080160811608216083160841608516086160871608816089160901609116092160931609416095160961609716098160991610016101161021610316104161051610616107161081610916110161111611216113161141611516116161171611816119161201612116122161231612416125161261612716128161291613016131161321613316134161351613616137161381613916140161411614216143161441614516146161471614816149161501615116152161531615416155161561615716158161591616016161161621616316164161651616616167161681616916170161711617216173161741617516176161771617816179161801618116182161831618416185161861618716188161891619016191161921619316194161951619616197161981619916200162011620216203162041620516206162071620816209162101621116212162131621416215162161621716218162191622016221162221622316224162251622616227162281622916230162311623216233162341623516236162371623816239162401624116242162431624416245162461624716248162491625016251162521625316254162551625616257162581625916260162611626216263162641626516266162671626816269162701627116272162731627416275162761627716278162791628016281162821628316284162851628616287162881628916290162911629216293162941629516296162971629816299163001630116302163031630416305163061630716308163091631016311163121631316314163151631616317163181631916320163211632216323163241632516326163271632816329163301633116332163331633416335163361633716338163391634016341163421634316344163451634616347163481634916350163511635216353163541635516356163571635816359163601636116362163631636416365163661636716368163691637016371163721637316374163751637616377163781637916380163811638216383163841638516386163871638816389163901639116392163931639416395163961639716398163991640016401164021640316404164051640616407164081640916410164111641216413164141641516416164171641816419164201642116422164231642416425164261642716428164291643016431164321643316434164351643616437164381643916440164411644216443164441644516446164471644816449164501645116452164531645416455164561645716458164591646016461164621646316464164651646616467164681646916470164711647216473164741647516476164771647816479164801648116482164831648416485164861648716488164891649016491164921649316494164951649616497164981649916500165011650216503165041650516506165071650816509165101651116512165131651416515165161651716518165191652016521165221652316524165251652616527165281652916530165311653216533165341653516536165371653816539165401654116542165431654416545165461654716548165491655016551165521655316554165551655616557165581655916560165611656216563165641656516566165671656816569165701657116572165731657416575165761657716578165791658016581165821658316584165851658616587165881658916590165911659216593165941659516596165971659816599166001660116602166031660416605166061660716608166091661016611166121661316614166151661616617166181661916620166211662216623166241662516626166271662816629166301663116632166331663416635166361663716638166391664016641166421664316644166451664616647166481664916650166511665216653166541665516656166571665816659166601666116662166631666416665166661666716668166691667016671166721667316674166751667616677166781667916680166811668216683166841668516686166871668816689166901669116692166931669416695166961669716698166991670016701167021670316704167051670616707167081670916710167111671216713167141671516716167171671816719167201672116722167231672416725167261672716728167291673016731167321673316734167351673616737167381673916740167411674216743167441674516746167471674816749167501675116752167531675416755167561675716758167591676016761167621676316764167651676616767167681676916770167711677216773167741677516776167771677816779167801678116782167831678416785167861678716788167891679016791167921679316794167951679616797167981679916800168011680216803168041680516806168071680816809168101681116812168131681416815168161681716818168191682016821168221682316824168251682616827168281682916830168311683216833168341683516836168371683816839168401684116842168431684416845168461684716848168491685016851168521685316854168551685616857168581685916860168611686216863168641686516866168671686816869168701687116872168731687416875168761687716878168791688016881168821688316884168851688616887168881688916890168911689216893168941689516896168971689816899169001690116902169031690416905169061690716908169091691016911169121691316914169151691616917169181691916920169211692216923169241692516926169271692816929169301693116932169331693416935169361693716938169391694016941169421694316944169451694616947169481694916950169511695216953169541695516956169571695816959169601696116962169631696416965169661696716968169691697016971169721697316974169751697616977169781697916980169811698216983169841698516986169871698816989169901699116992169931699416995169961699716998169991700017001170021700317004170051700617007170081700917010170111701217013170141701517016170171701817019170201702117022170231702417025170261702717028170291703017031170321703317034170351703617037170381703917040170411704217043170441704517046170471704817049170501705117052170531705417055170561705717058170591706017061170621706317064170651706617067170681706917070170711707217073170741707517076170771707817079170801708117082170831708417085170861708717088170891709017091170921709317094170951709617097170981709917100171011710217103171041710517106171071710817109171101711117112171131711417115171161711717118171191712017121171221712317124171251712617127171281712917130171311713217133171341713517136171371713817139171401714117142171431714417145171461714717148171491715017151171521715317154171551715617157171581715917160171611716217163171641716517166171671716817169171701717117172171731717417175171761717717178171791718017181171821718317184171851718617187171881718917190171911719217193171941719517196171971719817199172001720117202172031720417205172061720717208172091721017211172121721317214172151721617217172181721917220172211722217223172241722517226172271722817229172301723117232172331723417235172361723717238172391724017241172421724317244172451724617247172481724917250172511725217253172541725517256172571725817259172601726117262172631726417265172661726717268172691727017271172721727317274172751727617277172781727917280172811728217283172841728517286172871728817289172901729117292172931729417295172961729717298172991730017301173021730317304173051730617307173081730917310173111731217313173141731517316173171731817319173201732117322173231732417325173261732717328173291733017331173321733317334173351733617337173381733917340173411734217343173441734517346173471734817349173501735117352173531735417355173561735717358173591736017361173621736317364173651736617367173681736917370173711737217373173741737517376173771737817379173801738117382173831738417385173861738717388173891739017391173921739317394173951739617397173981739917400174011740217403174041740517406174071740817409174101741117412174131741417415174161741717418174191742017421174221742317424174251742617427174281742917430174311743217433174341743517436174371743817439174401744117442174431744417445174461744717448174491745017451174521745317454174551745617457174581745917460174611746217463174641746517466174671746817469174701747117472174731747417475174761747717478174791748017481174821748317484174851748617487174881748917490174911749217493174941749517496174971749817499175001750117502175031750417505175061750717508175091751017511175121751317514175151751617517175181751917520175211752217523175241752517526175271752817529175301753117532175331753417535175361753717538175391754017541175421754317544175451754617547175481754917550175511755217553175541755517556175571755817559175601756117562175631756417565175661756717568175691757017571175721757317574175751757617577175781757917580175811758217583175841758517586175871758817589175901759117592175931759417595175961759717598175991760017601176021760317604176051760617607176081760917610176111761217613176141761517616176171761817619176201762117622176231762417625176261762717628176291763017631176321763317634176351763617637176381763917640176411764217643176441764517646176471764817649176501765117652176531765417655176561765717658176591766017661176621766317664176651766617667176681766917670176711767217673176741767517676176771767817679176801768117682176831768417685176861768717688176891769017691176921769317694176951769617697176981769917700177011770217703177041770517706177071770817709177101771117712177131771417715177161771717718177191772017721177221772317724177251772617727177281772917730177311773217733177341773517736177371773817739177401774117742177431774417745177461774717748177491775017751177521775317754177551775617757177581775917760177611776217763177641776517766177671776817769177701777117772177731777417775177761777717778177791778017781177821778317784177851778617787177881778917790177911779217793177941779517796177971779817799178001780117802178031780417805178061780717808178091781017811178121781317814178151781617817178181781917820178211782217823178241782517826178271782817829178301783117832178331783417835178361783717838178391784017841178421784317844178451784617847178481784917850178511785217853178541785517856178571785817859178601786117862178631786417865178661786717868178691787017871178721787317874178751787617877178781787917880178811788217883178841788517886178871788817889178901789117892178931789417895178961789717898178991790017901179021790317904179051790617907179081790917910179111791217913179141791517916179171791817919179201792117922179231792417925179261792717928179291793017931179321793317934179351793617937179381793917940179411794217943179441794517946179471794817949179501795117952179531795417955179561795717958179591796017961179621796317964179651796617967179681796917970179711797217973179741797517976179771797817979179801798117982179831798417985179861798717988179891799017991179921799317994179951799617997179981799918000180011800218003180041800518006180071800818009180101801118012180131801418015180161801718018180191802018021180221802318024180251802618027180281802918030180311803218033180341803518036180371803818039180401804118042180431804418045180461804718048180491805018051180521805318054180551805618057180581805918060180611806218063180641806518066180671806818069180701807118072180731807418075180761807718078180791808018081180821808318084180851808618087180881808918090180911809218093180941809518096180971809818099181001810118102181031810418105181061810718108181091811018111181121811318114181151811618117181181811918120181211812218123181241812518126181271812818129181301813118132181331813418135181361813718138181391814018141181421814318144181451814618147181481814918150181511815218153181541815518156181571815818159181601816118162181631816418165181661816718168181691817018171181721817318174181751817618177181781817918180181811818218183181841818518186181871818818189181901819118192181931819418195181961819718198181991820018201182021820318204182051820618207182081820918210182111821218213182141821518216182171821818219182201822118222182231822418225182261822718228182291823018231182321823318234182351823618237182381823918240182411824218243182441824518246182471824818249182501825118252182531825418255182561825718258182591826018261182621826318264182651826618267182681826918270182711827218273182741827518276182771827818279182801828118282182831828418285182861828718288182891829018291182921829318294182951829618297182981829918300183011830218303183041830518306183071830818309183101831118312183131831418315183161831718318183191832018321183221832318324183251832618327183281832918330183311833218333183341833518336183371833818339183401834118342183431834418345183461834718348183491835018351183521835318354183551835618357183581835918360183611836218363183641836518366183671836818369183701837118372183731837418375183761837718378183791838018381183821838318384183851838618387183881838918390183911839218393183941839518396183971839818399184001840118402184031840418405184061840718408184091841018411184121841318414184151841618417184181841918420184211842218423184241842518426184271842818429184301843118432184331843418435184361843718438184391844018441184421844318444184451844618447184481844918450184511845218453184541845518456184571845818459184601846118462184631846418465184661846718468184691847018471184721847318474184751847618477184781847918480184811848218483184841848518486184871848818489184901849118492184931849418495184961849718498184991850018501185021850318504185051850618507185081850918510185111851218513185141851518516185171851818519185201852118522185231852418525185261852718528185291853018531185321853318534185351853618537185381853918540185411854218543185441854518546185471854818549185501855118552185531855418555185561855718558185591856018561185621856318564185651856618567185681856918570185711857218573185741857518576185771857818579185801858118582185831858418585185861858718588185891859018591185921859318594185951859618597185981859918600186011860218603186041860518606186071860818609186101861118612186131861418615186161861718618186191862018621186221862318624186251862618627186281862918630186311863218633186341863518636186371863818639186401864118642186431864418645186461864718648186491865018651186521865318654186551865618657186581865918660186611866218663186641866518666186671866818669186701867118672186731867418675186761867718678186791868018681186821868318684186851868618687186881868918690186911869218693186941869518696186971869818699187001870118702187031870418705187061870718708187091871018711187121871318714187151871618717187181871918720187211872218723187241872518726187271872818729187301873118732187331873418735187361873718738187391874018741187421874318744187451874618747187481874918750187511875218753187541875518756187571875818759187601876118762187631876418765187661876718768187691877018771187721877318774187751877618777187781877918780187811878218783187841878518786187871878818789187901879118792187931879418795187961879718798187991880018801188021880318804188051880618807188081880918810188111881218813188141881518816188171881818819188201882118822188231882418825188261882718828188291883018831188321883318834188351883618837188381883918840188411884218843188441884518846188471884818849188501885118852188531885418855188561885718858188591886018861188621886318864188651886618867188681886918870188711887218873188741887518876188771887818879188801888118882188831888418885188861888718888188891889018891188921889318894188951889618897188981889918900189011890218903189041890518906189071890818909189101891118912189131891418915189161891718918189191892018921189221892318924189251892618927189281892918930189311893218933189341893518936189371893818939189401894118942189431894418945189461894718948189491895018951189521895318954189551895618957189581895918960189611896218963189641896518966189671896818969189701897118972189731897418975189761897718978189791898018981189821898318984189851898618987189881898918990189911899218993189941899518996189971899818999190001900119002190031900419005190061900719008190091901019011190121901319014190151901619017190181901919020190211902219023190241902519026190271902819029190301903119032190331903419035190361903719038190391904019041190421904319044190451904619047190481904919050190511905219053190541905519056190571905819059190601906119062190631906419065190661906719068190691907019071190721907319074190751907619077190781907919080190811908219083190841908519086190871908819089190901909119092190931909419095190961909719098190991910019101191021910319104191051910619107191081910919110191111911219113191141911519116191171911819119191201912119122191231912419125191261912719128191291913019131191321913319134191351913619137191381913919140191411914219143191441914519146191471914819149191501915119152191531915419155191561915719158191591916019161191621916319164191651916619167191681916919170191711917219173191741917519176191771917819179191801918119182191831918419185191861918719188191891919019191191921919319194191951919619197191981919919200192011920219203192041920519206192071920819209192101921119212192131921419215192161921719218192191922019221192221922319224192251922619227192281922919230192311923219233192341923519236192371923819239192401924119242192431924419245192461924719248192491925019251192521925319254192551925619257192581925919260192611926219263192641926519266192671926819269192701927119272192731927419275192761927719278192791928019281192821928319284192851928619287192881928919290192911929219293192941929519296192971929819299193001930119302193031930419305193061930719308193091931019311193121931319314193151931619317193181931919320193211932219323193241932519326193271932819329193301933119332193331933419335193361933719338193391934019341193421934319344193451934619347193481934919350193511935219353193541935519356193571935819359193601936119362193631936419365193661936719368193691937019371193721937319374193751937619377193781937919380193811938219383193841938519386193871938819389193901939119392193931939419395193961939719398193991940019401194021940319404194051940619407194081940919410194111941219413194141941519416194171941819419194201942119422194231942419425194261942719428194291943019431194321943319434194351943619437194381943919440194411944219443194441944519446194471944819449194501945119452194531945419455194561945719458194591946019461194621946319464194651946619467194681946919470194711947219473194741947519476194771947819479194801948119482194831948419485194861948719488194891949019491194921949319494194951949619497194981949919500195011950219503195041950519506195071950819509195101951119512195131951419515195161951719518195191952019521195221952319524195251952619527195281952919530195311953219533195341953519536195371953819539195401954119542195431954419545195461954719548195491955019551195521955319554195551955619557195581955919560195611956219563195641956519566195671956819569195701957119572195731957419575195761957719578195791958019581195821958319584195851958619587195881958919590195911959219593195941959519596195971959819599196001960119602196031960419605196061960719608196091961019611196121961319614196151961619617196181961919620196211962219623196241962519626196271962819629196301963119632196331963419635196361963719638196391964019641196421964319644196451964619647196481964919650196511965219653196541965519656196571965819659196601966119662196631966419665196661966719668196691967019671196721967319674196751967619677196781967919680196811968219683196841968519686196871968819689196901969119692196931969419695196961969719698196991970019701197021970319704197051970619707197081970919710197111971219713197141971519716197171971819719197201972119722197231972419725197261972719728197291973019731197321973319734197351973619737197381973919740197411974219743197441974519746197471974819749197501975119752197531975419755197561975719758197591976019761197621976319764197651976619767197681976919770197711977219773197741977519776197771977819779197801978119782197831978419785197861978719788197891979019791197921979319794197951979619797197981979919800198011980219803198041980519806198071980819809198101981119812198131981419815198161981719818198191982019821198221982319824198251982619827198281982919830198311983219833198341983519836198371983819839198401984119842198431984419845198461984719848198491985019851198521985319854198551985619857198581985919860198611986219863198641986519866198671986819869198701987119872198731987419875198761987719878198791988019881198821988319884198851988619887198881988919890198911989219893198941989519896198971989819899199001990119902199031990419905199061990719908199091991019911199121991319914199151991619917199181991919920199211992219923199241992519926199271992819929199301993119932199331993419935199361993719938199391994019941199421994319944199451994619947199481994919950199511995219953199541995519956199571995819959199601996119962199631996419965199661996719968199691997019971199721997319974199751997619977199781997919980199811998219983199841998519986199871998819989199901999119992199931999419995199961999719998199992000020001200022000320004200052000620007200082000920010200112001220013200142001520016200172001820019200202002120022200232002420025200262002720028200292003020031200322003320034200352003620037200382003920040200412004220043200442004520046200472004820049200502005120052200532005420055200562005720058200592006020061200622006320064200652006620067200682006920070200712007220073200742007520076200772007820079200802008120082200832008420085200862008720088200892009020091200922009320094200952009620097200982009920100201012010220103201042010520106201072010820109201102011120112201132011420115201162011720118201192012020121201222012320124201252012620127201282012920130201312013220133201342013520136201372013820139201402014120142201432014420145201462014720148201492015020151201522015320154201552015620157201582015920160201612016220163201642016520166201672016820169201702017120172201732017420175201762017720178201792018020181201822018320184201852018620187201882018920190201912019220193201942019520196201972019820199202002020120202202032020420205202062020720208202092021020211202122021320214202152021620217202182021920220202212022220223202242022520226202272022820229202302023120232202332023420235202362023720238202392024020241202422024320244202452024620247202482024920250202512025220253202542025520256202572025820259202602026120262202632026420265202662026720268202692027020271202722027320274202752027620277202782027920280202812028220283202842028520286202872028820289202902029120292202932029420295202962029720298202992030020301203022030320304203052030620307203082030920310203112031220313203142031520316203172031820319203202032120322203232032420325203262032720328203292033020331203322033320334203352033620337203382033920340203412034220343203442034520346203472034820349203502035120352203532035420355203562035720358203592036020361203622036320364203652036620367203682036920370203712037220373203742037520376203772037820379203802038120382203832038420385203862038720388203892039020391203922039320394203952039620397203982039920400204012040220403204042040520406204072040820409204102041120412204132041420415204162041720418204192042020421204222042320424204252042620427204282042920430204312043220433204342043520436204372043820439204402044120442204432044420445204462044720448204492045020451204522045320454204552045620457204582045920460204612046220463204642046520466204672046820469204702047120472204732047420475204762047720478204792048020481204822048320484204852048620487204882048920490204912049220493204942049520496204972049820499205002050120502205032050420505205062050720508205092051020511205122051320514205152051620517205182051920520205212052220523205242052520526205272052820529205302053120532205332053420535205362053720538205392054020541205422054320544205452054620547205482054920550205512055220553205542055520556205572055820559205602056120562205632056420565205662056720568205692057020571205722057320574205752057620577205782057920580205812058220583205842058520586205872058820589205902059120592205932059420595205962059720598205992060020601206022060320604206052060620607206082060920610206112061220613206142061520616206172061820619206202062120622206232062420625206262062720628206292063020631206322063320634206352063620637206382063920640206412064220643206442064520646206472064820649206502065120652206532065420655206562065720658206592066020661206622066320664206652066620667206682066920670206712067220673206742067520676206772067820679206802068120682206832068420685206862068720688206892069020691206922069320694206952069620697206982069920700207012070220703207042070520706207072070820709207102071120712207132071420715207162071720718207192072020721207222072320724207252072620727207282072920730207312073220733207342073520736207372073820739207402074120742207432074420745207462074720748207492075020751207522075320754207552075620757207582075920760207612076220763207642076520766207672076820769207702077120772207732077420775207762077720778207792078020781207822078320784207852078620787207882078920790207912079220793207942079520796207972079820799208002080120802208032080420805208062080720808208092081020811208122081320814208152081620817208182081920820208212082220823208242082520826208272082820829208302083120832208332083420835208362083720838208392084020841208422084320844208452084620847208482084920850208512085220853208542085520856208572085820859208602086120862208632086420865208662086720868208692087020871208722087320874208752087620877208782087920880208812088220883208842088520886208872088820889208902089120892208932089420895208962089720898208992090020901209022090320904209052090620907209082090920910209112091220913209142091520916209172091820919209202092120922209232092420925209262092720928209292093020931209322093320934209352093620937209382093920940209412094220943209442094520946209472094820949209502095120952209532095420955209562095720958209592096020961209622096320964209652096620967209682096920970209712097220973209742097520976209772097820979209802098120982209832098420985209862098720988209892099020991209922099320994209952099620997209982099921000210012100221003210042100521006210072100821009210102101121012210132101421015210162101721018210192102021021210222102321024210252102621027210282102921030210312103221033210342103521036210372103821039210402104121042210432104421045210462104721048210492105021051210522105321054210552105621057210582105921060210612106221063210642106521066210672106821069210702107121072210732107421075210762107721078210792108021081210822108321084210852108621087210882108921090210912109221093210942109521096210972109821099211002110121102211032110421105211062110721108211092111021111211122111321114211152111621117211182111921120211212112221123211242112521126211272112821129211302113121132211332113421135211362113721138211392114021141211422114321144211452114621147211482114921150211512115221153211542115521156211572115821159211602116121162211632116421165211662116721168211692117021171211722117321174211752117621177211782117921180211812118221183211842118521186211872118821189211902119121192211932119421195211962119721198211992120021201212022120321204212052120621207212082120921210212112121221213212142121521216212172121821219212202122121222212232122421225212262122721228212292123021231212322123321234212352123621237212382123921240212412124221243212442124521246212472124821249212502125121252212532125421255212562125721258212592126021261212622126321264212652126621267212682126921270212712127221273212742127521276212772127821279212802128121282212832128421285212862128721288212892129021291212922129321294212952129621297212982129921300213012130221303213042130521306213072130821309213102131121312213132131421315213162131721318213192132021321213222132321324213252132621327213282132921330213312133221333213342133521336213372133821339213402134121342213432134421345213462134721348213492135021351213522135321354213552135621357213582135921360213612136221363213642136521366213672136821369213702137121372213732137421375213762137721378213792138021381213822138321384213852138621387213882138921390213912139221393213942139521396213972139821399214002140121402214032140421405214062140721408214092141021411214122141321414214152141621417214182141921420214212142221423214242142521426214272142821429214302143121432214332143421435214362143721438214392144021441214422144321444214452144621447214482144921450214512145221453214542145521456214572145821459214602146121462214632146421465214662146721468214692147021471214722147321474214752147621477214782147921480214812148221483214842148521486214872148821489214902149121492214932149421495214962149721498214992150021501215022150321504215052150621507215082150921510215112151221513215142151521516215172151821519215202152121522215232152421525215262152721528215292153021531215322153321534215352153621537215382153921540215412154221543215442154521546215472154821549215502155121552215532155421555215562155721558215592156021561215622156321564215652156621567215682156921570215712157221573215742157521576215772157821579215802158121582215832158421585215862158721588215892159021591215922159321594215952159621597215982159921600216012160221603216042160521606216072160821609216102161121612216132161421615216162161721618216192162021621216222162321624216252162621627216282162921630216312163221633216342163521636216372163821639216402164121642216432164421645216462164721648216492165021651216522165321654216552165621657216582165921660216612166221663216642166521666216672166821669216702167121672216732167421675216762167721678216792168021681216822168321684216852168621687216882168921690216912169221693216942169521696216972169821699217002170121702217032170421705217062170721708217092171021711217122171321714217152171621717217182171921720217212172221723217242172521726217272172821729217302173121732217332173421735217362173721738217392174021741217422174321744217452174621747217482174921750217512175221753217542175521756217572175821759217602176121762217632176421765217662176721768217692177021771217722177321774217752177621777217782177921780217812178221783217842178521786217872178821789217902179121792217932179421795217962179721798217992180021801218022180321804218052180621807218082180921810218112181221813218142181521816218172181821819218202182121822218232182421825218262182721828218292183021831218322183321834218352183621837218382183921840218412184221843218442184521846218472184821849218502185121852218532185421855218562185721858218592186021861218622186321864218652186621867218682186921870218712187221873218742187521876218772187821879218802188121882218832188421885218862188721888218892189021891218922189321894218952189621897218982189921900219012190221903219042190521906219072190821909219102191121912219132191421915219162191721918219192192021921219222192321924219252192621927219282192921930219312193221933219342193521936219372193821939219402194121942219432194421945219462194721948219492195021951219522195321954219552195621957219582195921960219612196221963219642196521966219672196821969219702197121972219732197421975219762197721978219792198021981219822198321984219852198621987219882198921990219912199221993219942199521996219972199821999220002200122002220032200422005220062200722008220092201022011220122201322014220152201622017220182201922020220212202222023220242202522026220272202822029220302203122032220332203422035220362203722038220392204022041220422204322044220452204622047220482204922050220512205222053220542205522056220572205822059220602206122062220632206422065220662206722068220692207022071220722207322074220752207622077220782207922080220812208222083220842208522086220872208822089220902209122092220932209422095220962209722098220992210022101221022210322104221052210622107221082210922110221112211222113221142211522116221172211822119221202212122122221232212422125221262212722128221292213022131221322213322134221352213622137221382213922140221412214222143221442214522146221472214822149221502215122152221532215422155221562215722158221592216022161221622216322164221652216622167221682216922170221712217222173221742217522176221772217822179221802218122182221832218422185221862218722188221892219022191221922219322194221952219622197221982219922200222012220222203222042220522206222072220822209222102221122212222132221422215222162221722218222192222022221222222222322224222252222622227222282222922230222312223222233222342223522236222372223822239222402224122242222432224422245222462224722248222492225022251222522225322254222552225622257222582225922260222612226222263222642226522266222672226822269222702227122272222732227422275222762227722278222792228022281222822228322284222852228622287222882228922290222912229222293222942229522296222972229822299223002230122302223032230422305223062230722308223092231022311223122231322314223152231622317223182231922320223212232222323223242232522326223272232822329223302233122332223332233422335223362233722338223392234022341223422234322344223452234622347223482234922350223512235222353223542235522356223572235822359223602236122362223632236422365223662236722368223692237022371223722237322374223752237622377223782237922380223812238222383223842238522386223872238822389223902239122392223932239422395223962239722398223992240022401224022240322404224052240622407224082240922410224112241222413224142241522416224172241822419224202242122422224232242422425224262242722428224292243022431224322243322434224352243622437224382243922440224412244222443224442244522446224472244822449224502245122452224532245422455224562245722458224592246022461224622246322464224652246622467224682246922470224712247222473224742247522476224772247822479224802248122482224832248422485224862248722488224892249022491224922249322494224952249622497224982249922500225012250222503225042250522506225072250822509225102251122512225132251422515225162251722518225192252022521225222252322524225252252622527225282252922530225312253222533225342253522536225372253822539225402254122542225432254422545225462254722548225492255022551225522255322554225552255622557225582255922560225612256222563225642256522566225672256822569225702257122572225732257422575225762257722578225792258022581225822258322584225852258622587225882258922590225912259222593225942259522596225972259822599226002260122602226032260422605226062260722608226092261022611226122261322614226152261622617226182261922620226212262222623226242262522626226272262822629226302263122632226332263422635226362263722638226392264022641226422264322644226452264622647226482264922650226512265222653226542265522656226572265822659226602266122662226632266422665226662266722668226692267022671226722267322674226752267622677226782267922680226812268222683226842268522686226872268822689226902269122692226932269422695226962269722698226992270022701227022270322704227052270622707227082270922710227112271222713227142271522716227172271822719227202272122722227232272422725227262272722728227292273022731227322273322734227352273622737227382273922740227412274222743227442274522746227472274822749227502275122752227532275422755227562275722758227592276022761227622276322764227652276622767227682276922770227712277222773227742277522776227772277822779227802278122782227832278422785227862278722788227892279022791227922279322794227952279622797227982279922800228012280222803228042280522806228072280822809228102281122812228132281422815228162281722818228192282022821228222282322824228252282622827228282282922830228312283222833228342283522836228372283822839228402284122842228432284422845228462284722848228492285022851228522285322854228552285622857228582285922860228612286222863228642286522866228672286822869228702287122872228732287422875228762287722878228792288022881228822288322884228852288622887228882288922890228912289222893228942289522896228972289822899229002290122902229032290422905229062290722908229092291022911229122291322914229152291622917229182291922920229212292222923229242292522926229272292822929229302293122932229332293422935229362293722938229392294022941229422294322944229452294622947229482294922950229512295222953229542295522956229572295822959229602296122962229632296422965229662296722968229692297022971229722297322974229752297622977229782297922980229812298222983229842298522986229872298822989229902299122992229932299422995229962299722998229992300023001230022300323004230052300623007230082300923010230112301223013230142301523016230172301823019230202302123022230232302423025230262302723028230292303023031230322303323034230352303623037230382303923040230412304223043230442304523046230472304823049230502305123052230532305423055230562305723058230592306023061230622306323064230652306623067230682306923070230712307223073230742307523076230772307823079230802308123082230832308423085230862308723088230892309023091230922309323094230952309623097230982309923100231012310223103231042310523106231072310823109231102311123112231132311423115231162311723118231192312023121231222312323124231252312623127231282312923130231312313223133231342313523136231372313823139231402314123142231432314423145231462314723148231492315023151231522315323154231552315623157231582315923160231612316223163231642316523166231672316823169231702317123172231732317423175231762317723178231792318023181231822318323184231852318623187231882318923190231912319223193231942319523196231972319823199232002320123202232032320423205232062320723208232092321023211232122321323214232152321623217232182321923220232212322223223232242322523226232272322823229232302323123232232332323423235232362323723238232392324023241232422324323244232452324623247232482324923250232512325223253232542325523256232572325823259232602326123262232632326423265232662326723268232692327023271232722327323274232752327623277232782327923280232812328223283232842328523286232872328823289232902329123292232932329423295232962329723298232992330023301233022330323304233052330623307233082330923310233112331223313233142331523316233172331823319233202332123322233232332423325233262332723328233292333023331233322333323334233352333623337233382333923340233412334223343233442334523346233472334823349233502335123352233532335423355233562335723358233592336023361233622336323364233652336623367233682336923370233712337223373233742337523376233772337823379233802338123382233832338423385233862338723388233892339023391233922339323394233952339623397233982339923400234012340223403234042340523406234072340823409234102341123412234132341423415234162341723418234192342023421234222342323424234252342623427234282342923430234312343223433234342343523436234372343823439234402344123442234432344423445234462344723448234492345023451234522345323454234552345623457234582345923460234612346223463234642346523466234672346823469234702347123472234732347423475234762347723478234792348023481234822348323484234852348623487234882348923490234912349223493234942349523496234972349823499235002350123502235032350423505235062350723508235092351023511235122351323514235152351623517235182351923520235212352223523235242352523526235272352823529235302353123532235332353423535235362353723538235392354023541235422354323544235452354623547235482354923550235512355223553235542355523556235572355823559235602356123562235632356423565235662356723568235692357023571235722357323574235752357623577235782357923580235812358223583235842358523586235872358823589235902359123592235932359423595235962359723598235992360023601236022360323604236052360623607236082360923610236112361223613236142361523616236172361823619236202362123622236232362423625236262362723628236292363023631236322363323634236352363623637236382363923640236412364223643236442364523646236472364823649236502365123652236532365423655236562365723658236592366023661236622366323664236652366623667236682366923670236712367223673236742367523676236772367823679236802368123682236832368423685236862368723688236892369023691236922369323694236952369623697236982369923700237012370223703237042370523706237072370823709237102371123712237132371423715237162371723718237192372023721237222372323724237252372623727237282372923730237312373223733237342373523736237372373823739237402374123742237432374423745237462374723748237492375023751237522375323754237552375623757237582375923760237612376223763237642376523766237672376823769237702377123772237732377423775237762377723778237792378023781237822378323784237852378623787237882378923790237912379223793237942379523796237972379823799238002380123802238032380423805238062380723808238092381023811238122381323814238152381623817238182381923820238212382223823238242382523826238272382823829238302383123832238332383423835238362383723838238392384023841238422384323844238452384623847238482384923850238512385223853238542385523856238572385823859238602386123862238632386423865238662386723868238692387023871238722387323874238752387623877238782387923880238812388223883238842388523886238872388823889238902389123892238932389423895238962389723898238992390023901239022390323904239052390623907239082390923910239112391223913239142391523916239172391823919239202392123922239232392423925239262392723928239292393023931239322393323934239352393623937239382393923940239412394223943239442394523946239472394823949239502395123952239532395423955239562395723958239592396023961239622396323964239652396623967239682396923970239712397223973239742397523976239772397823979239802398123982239832398423985239862398723988239892399023991239922399323994239952399623997239982399924000240012400224003240042400524006240072400824009240102401124012240132401424015240162401724018240192402024021240222402324024240252402624027240282402924030240312403224033240342403524036240372403824039240402404124042240432404424045240462404724048240492405024051240522405324054240552405624057240582405924060240612406224063240642406524066240672406824069240702407124072240732407424075240762407724078240792408024081240822408324084240852408624087240882408924090240912409224093240942409524096240972409824099241002410124102241032410424105241062410724108241092411024111241122411324114241152411624117241182411924120241212412224123241242412524126241272412824129241302413124132241332413424135241362413724138241392414024141241422414324144241452414624147241482414924150241512415224153241542415524156241572415824159241602416124162241632416424165241662416724168241692417024171241722417324174241752417624177241782417924180241812418224183241842418524186241872418824189241902419124192241932419424195241962419724198241992420024201242022420324204242052420624207242082420924210242112421224213242142421524216242172421824219242202422124222242232422424225242262422724228242292423024231242322423324234242352423624237242382423924240242412424224243242442424524246242472424824249242502425124252242532425424255242562425724258242592426024261242622426324264242652426624267242682426924270242712427224273242742427524276242772427824279242802428124282242832428424285242862428724288242892429024291242922429324294242952429624297242982429924300243012430224303243042430524306243072430824309243102431124312243132431424315243162431724318243192432024321243222432324324243252432624327243282432924330243312433224333243342433524336243372433824339243402434124342243432434424345243462434724348243492435024351243522435324354243552435624357243582435924360243612436224363243642436524366243672436824369243702437124372243732437424375243762437724378243792438024381243822438324384243852438624387243882438924390243912439224393243942439524396243972439824399244002440124402244032440424405244062440724408244092441024411244122441324414244152441624417244182441924420244212442224423244242442524426244272442824429244302443124432244332443424435244362443724438244392444024441244422444324444244452444624447244482444924450244512445224453244542445524456244572445824459244602446124462244632446424465244662446724468244692447024471244722447324474244752447624477244782447924480244812448224483244842448524486244872448824489244902449124492244932449424495244962449724498244992450024501245022450324504245052450624507245082450924510245112451224513245142451524516245172451824519245202452124522245232452424525245262452724528245292453024531245322453324534245352453624537245382453924540245412454224543245442454524546245472454824549245502455124552245532455424555245562455724558245592456024561245622456324564245652456624567245682456924570245712457224573245742457524576245772457824579245802458124582245832458424585245862458724588245892459024591245922459324594245952459624597245982459924600246012460224603246042460524606246072460824609246102461124612246132461424615246162461724618246192462024621246222462324624246252462624627246282462924630246312463224633246342463524636246372463824639246402464124642246432464424645246462464724648246492465024651246522465324654246552465624657246582465924660246612466224663246642466524666246672466824669246702467124672246732467424675246762467724678246792468024681246822468324684246852468624687246882468924690246912469224693246942469524696246972469824699247002470124702247032470424705247062470724708247092471024711247122471324714247152471624717247182471924720247212472224723247242472524726247272472824729247302473124732247332473424735247362473724738247392474024741247422474324744247452474624747247482474924750247512475224753247542475524756247572475824759247602476124762247632476424765247662476724768247692477024771247722477324774247752477624777247782477924780247812478224783247842478524786247872478824789247902479124792247932479424795247962479724798247992480024801248022480324804248052480624807248082480924810248112481224813248142481524816248172481824819248202482124822248232482424825248262482724828248292483024831248322483324834248352483624837248382483924840248412484224843248442484524846248472484824849248502485124852248532485424855248562485724858248592486024861248622486324864248652486624867248682486924870248712487224873248742487524876248772487824879248802488124882248832488424885248862488724888248892489024891248922489324894248952489624897248982489924900249012490224903249042490524906249072490824909249102491124912249132491424915249162491724918249192492024921249222492324924249252492624927249282492924930249312493224933249342493524936249372493824939249402494124942249432494424945249462494724948249492495024951249522495324954249552495624957249582495924960249612496224963249642496524966249672496824969249702497124972249732497424975249762497724978249792498024981249822498324984249852498624987249882498924990249912499224993249942499524996249972499824999250002500125002250032500425005250062500725008250092501025011250122501325014250152501625017250182501925020250212502225023250242502525026250272502825029250302503125032250332503425035250362503725038250392504025041250422504325044250452504625047250482504925050250512505225053250542505525056250572505825059250602506125062250632506425065250662506725068250692507025071250722507325074250752507625077250782507925080250812508225083250842508525086250872508825089250902509125092250932509425095250962509725098250992510025101251022510325104251052510625107251082510925110251112511225113251142511525116251172511825119251202512125122251232512425125251262512725128251292513025131251322513325134251352513625137251382513925140251412514225143251442514525146251472514825149251502515125152251532515425155251562515725158251592516025161251622516325164251652516625167251682516925170251712517225173251742517525176251772517825179251802518125182251832518425185251862518725188251892519025191251922519325194251952519625197251982519925200252012520225203252042520525206252072520825209252102521125212252132521425215252162521725218252192522025221252222522325224252252522625227252282522925230252312523225233252342523525236252372523825239252402524125242252432524425245252462524725248252492525025251252522525325254252552525625257252582525925260252612526225263252642526525266252672526825269252702527125272252732527425275252762527725278252792528025281252822528325284252852528625287252882528925290252912529225293252942529525296252972529825299253002530125302253032530425305253062530725308253092531025311253122531325314253152531625317253182531925320253212532225323253242532525326253272532825329253302533125332253332533425335253362533725338253392534025341253422534325344253452534625347253482534925350253512535225353253542535525356253572535825359253602536125362253632536425365253662536725368253692537025371253722537325374253752537625377253782537925380253812538225383253842538525386253872538825389253902539125392253932539425395253962539725398253992540025401254022540325404254052540625407254082540925410254112541225413254142541525416254172541825419254202542125422254232542425425254262542725428254292543025431254322543325434254352543625437254382543925440254412544225443254442544525446254472544825449254502545125452254532545425455254562545725458254592546025461254622546325464254652546625467254682546925470254712547225473254742547525476254772547825479254802548125482254832548425485254862548725488254892549025491254922549325494254952549625497254982549925500255012550225503255042550525506255072550825509255102551125512255132551425515255162551725518255192552025521255222552325524255252552625527255282552925530255312553225533255342553525536255372553825539255402554125542255432554425545255462554725548255492555025551255522555325554255552555625557255582555925560255612556225563255642556525566255672556825569255702557125572255732557425575255762557725578255792558025581255822558325584255852558625587255882558925590255912559225593255942559525596255972559825599256002560125602256032560425605256062560725608256092561025611256122561325614256152561625617256182561925620256212562225623256242562525626256272562825629256302563125632256332563425635256362563725638256392564025641256422564325644256452564625647256482564925650256512565225653256542565525656256572565825659256602566125662256632566425665256662566725668256692567025671256722567325674256752567625677256782567925680256812568225683256842568525686256872568825689256902569125692256932569425695256962569725698256992570025701257022570325704257052570625707257082570925710257112571225713257142571525716257172571825719257202572125722257232572425725257262572725728257292573025731257322573325734257352573625737257382573925740257412574225743257442574525746257472574825749257502575125752257532575425755257562575725758257592576025761257622576325764257652576625767257682576925770257712577225773257742577525776257772577825779257802578125782257832578425785257862578725788257892579025791257922579325794257952579625797257982579925800258012580225803258042580525806258072580825809258102581125812258132581425815258162581725818258192582025821258222582325824258252582625827258282582925830258312583225833258342583525836258372583825839258402584125842258432584425845258462584725848258492585025851258522585325854258552585625857258582585925860258612586225863258642586525866258672586825869258702587125872258732587425875258762587725878258792588025881258822588325884258852588625887258882588925890258912589225893258942589525896258972589825899259002590125902259032590425905259062590725908259092591025911259122591325914259152591625917259182591925920259212592225923259242592525926259272592825929259302593125932259332593425935259362593725938259392594025941259422594325944259452594625947259482594925950259512595225953259542595525956259572595825959259602596125962259632596425965259662596725968259692597025971259722597325974259752597625977259782597925980259812598225983259842598525986259872598825989259902599125992259932599425995259962599725998259992600026001260022600326004260052600626007260082600926010260112601226013260142601526016260172601826019260202602126022260232602426025260262602726028260292603026031260322603326034260352603626037260382603926040260412604226043260442604526046260472604826049260502605126052260532605426055260562605726058260592606026061260622606326064260652606626067260682606926070260712607226073260742607526076260772607826079260802608126082260832608426085260862608726088260892609026091260922609326094260952609626097260982609926100261012610226103261042610526106261072610826109261102611126112261132611426115261162611726118261192612026121261222612326124261252612626127261282612926130261312613226133261342613526136261372613826139261402614126142261432614426145261462614726148261492615026151261522615326154261552615626157261582615926160261612616226163261642616526166261672616826169261702617126172261732617426175261762617726178261792618026181261822618326184261852618626187261882618926190261912619226193261942619526196261972619826199262002620126202262032620426205262062620726208262092621026211262122621326214262152621626217262182621926220262212622226223262242622526226262272622826229262302623126232262332623426235262362623726238262392624026241262422624326244262452624626247262482624926250262512625226253262542625526256262572625826259262602626126262262632626426265262662626726268262692627026271262722627326274262752627626277262782627926280262812628226283262842628526286262872628826289262902629126292262932629426295262962629726298262992630026301263022630326304263052630626307263082630926310263112631226313263142631526316263172631826319263202632126322263232632426325263262632726328263292633026331263322633326334263352633626337263382633926340263412634226343263442634526346263472634826349263502635126352263532635426355263562635726358263592636026361263622636326364263652636626367263682636926370263712637226373263742637526376263772637826379263802638126382263832638426385263862638726388263892639026391263922639326394263952639626397263982639926400264012640226403264042640526406264072640826409264102641126412264132641426415264162641726418264192642026421264222642326424264252642626427264282642926430264312643226433264342643526436264372643826439264402644126442264432644426445264462644726448264492645026451264522645326454264552645626457264582645926460264612646226463264642646526466264672646826469264702647126472264732647426475264762647726478264792648026481264822648326484264852648626487264882648926490264912649226493264942649526496264972649826499265002650126502265032650426505265062650726508265092651026511265122651326514265152651626517265182651926520265212652226523265242652526526265272652826529265302653126532265332653426535265362653726538265392654026541265422654326544265452654626547265482654926550265512655226553265542655526556265572655826559265602656126562265632656426565265662656726568265692657026571265722657326574265752657626577265782657926580265812658226583265842658526586265872658826589265902659126592265932659426595265962659726598265992660026601266022660326604266052660626607266082660926610266112661226613266142661526616266172661826619266202662126622266232662426625266262662726628266292663026631266322663326634266352663626637266382663926640266412664226643266442664526646266472664826649266502665126652266532665426655266562665726658266592666026661266622666326664266652666626667266682666926670266712667226673266742667526676266772667826679266802668126682266832668426685266862668726688266892669026691266922669326694266952669626697266982669926700267012670226703267042670526706267072670826709267102671126712267132671426715267162671726718267192672026721267222672326724267252672626727267282672926730267312673226733267342673526736267372673826739267402674126742267432674426745267462674726748267492675026751267522675326754267552675626757267582675926760267612676226763267642676526766267672676826769267702677126772267732677426775267762677726778267792678026781267822678326784267852678626787267882678926790267912679226793267942679526796267972679826799268002680126802268032680426805268062680726808268092681026811268122681326814268152681626817268182681926820268212682226823268242682526826268272682826829268302683126832268332683426835268362683726838268392684026841268422684326844268452684626847268482684926850268512685226853268542685526856268572685826859268602686126862268632686426865268662686726868268692687026871268722687326874268752687626877268782687926880268812688226883268842688526886268872688826889268902689126892268932689426895268962689726898268992690026901269022690326904269052690626907269082690926910269112691226913269142691526916269172691826919269202692126922269232692426925269262692726928269292693026931269322693326934269352693626937269382693926940269412694226943269442694526946269472694826949269502695126952269532695426955269562695726958269592696026961269622696326964269652696626967269682696926970269712697226973269742697526976269772697826979269802698126982269832698426985269862698726988269892699026991269922699326994269952699626997269982699927000270012700227003270042700527006270072700827009270102701127012270132701427015270162701727018270192702027021270222702327024270252702627027270282702927030270312703227033270342703527036270372703827039270402704127042270432704427045270462704727048270492705027051270522705327054270552705627057270582705927060270612706227063270642706527066270672706827069270702707127072270732707427075270762707727078270792708027081270822708327084270852708627087270882708927090270912709227093270942709527096270972709827099271002710127102271032710427105271062710727108271092711027111271122711327114271152711627117271182711927120271212712227123271242712527126271272712827129271302713127132271332713427135271362713727138271392714027141271422714327144271452714627147271482714927150271512715227153271542715527156271572715827159271602716127162271632716427165271662716727168271692717027171271722717327174271752717627177271782717927180271812718227183271842718527186271872718827189271902719127192271932719427195271962719727198271992720027201272022720327204272052720627207272082720927210272112721227213272142721527216272172721827219272202722127222272232722427225272262722727228272292723027231272322723327234272352723627237272382723927240272412724227243272442724527246272472724827249272502725127252272532725427255272562725727258272592726027261272622726327264272652726627267272682726927270272712727227273272742727527276272772727827279272802728127282272832728427285272862728727288272892729027291272922729327294272952729627297272982729927300273012730227303273042730527306273072730827309273102731127312273132731427315273162731727318273192732027321273222732327324273252732627327273282732927330273312733227333273342733527336273372733827339273402734127342273432734427345273462734727348273492735027351273522735327354273552735627357273582735927360273612736227363273642736527366273672736827369273702737127372273732737427375273762737727378273792738027381273822738327384273852738627387273882738927390273912739227393273942739527396273972739827399274002740127402274032740427405274062740727408274092741027411274122741327414274152741627417274182741927420274212742227423274242742527426274272742827429274302743127432274332743427435274362743727438274392744027441274422744327444274452744627447274482744927450274512745227453274542745527456274572745827459274602746127462274632746427465274662746727468274692747027471274722747327474274752747627477274782747927480274812748227483274842748527486274872748827489274902749127492274932749427495274962749727498274992750027501275022750327504275052750627507275082750927510275112751227513275142751527516275172751827519275202752127522275232752427525275262752727528275292753027531275322753327534275352753627537275382753927540275412754227543275442754527546275472754827549275502755127552275532755427555275562755727558275592756027561275622756327564275652756627567275682756927570275712757227573275742757527576275772757827579275802758127582275832758427585275862758727588275892759027591275922759327594275952759627597275982759927600276012760227603276042760527606276072760827609276102761127612276132761427615276162761727618276192762027621276222762327624276252762627627276282762927630276312763227633276342763527636276372763827639276402764127642276432764427645276462764727648276492765027651276522765327654276552765627657276582765927660276612766227663276642766527666276672766827669276702767127672276732767427675276762767727678276792768027681276822768327684276852768627687276882768927690276912769227693276942769527696276972769827699277002770127702277032770427705277062770727708277092771027711277122771327714277152771627717277182771927720277212772227723277242772527726277272772827729277302773127732277332773427735277362773727738277392774027741277422774327744277452774627747277482774927750277512775227753277542775527756277572775827759277602776127762277632776427765277662776727768277692777027771277722777327774277752777627777277782777927780277812778227783277842778527786277872778827789277902779127792277932779427795277962779727798277992780027801278022780327804278052780627807278082780927810278112781227813278142781527816278172781827819278202782127822278232782427825278262782727828278292783027831278322783327834278352783627837278382783927840278412784227843278442784527846278472784827849278502785127852278532785427855278562785727858278592786027861278622786327864278652786627867278682786927870278712787227873278742787527876278772787827879278802788127882278832788427885278862788727888278892789027891278922789327894278952789627897278982789927900279012790227903279042790527906279072790827909279102791127912279132791427915279162791727918279192792027921279222792327924279252792627927279282792927930279312793227933279342793527936279372793827939279402794127942279432794427945279462794727948279492795027951279522795327954279552795627957279582795927960279612796227963279642796527966279672796827969279702797127972279732797427975279762797727978279792798027981279822798327984279852798627987279882798927990279912799227993279942799527996279972799827999280002800128002280032800428005280062800728008280092801028011280122801328014280152801628017280182801928020280212802228023280242802528026280272802828029280302803128032280332803428035280362803728038280392804028041280422804328044280452804628047280482804928050280512805228053280542805528056280572805828059280602806128062280632806428065280662806728068280692807028071280722807328074280752807628077280782807928080280812808228083280842808528086280872808828089280902809128092280932809428095280962809728098280992810028101281022810328104281052810628107281082810928110281112811228113281142811528116281172811828119281202812128122281232812428125281262812728128281292813028131281322813328134281352813628137281382813928140281412814228143281442814528146281472814828149281502815128152281532815428155281562815728158281592816028161281622816328164281652816628167281682816928170281712817228173281742817528176281772817828179281802818128182281832818428185281862818728188281892819028191281922819328194281952819628197281982819928200282012820228203282042820528206282072820828209282102821128212282132821428215282162821728218282192822028221282222822328224282252822628227282282822928230282312823228233282342823528236282372823828239282402824128242282432824428245282462824728248282492825028251282522825328254282552825628257282582825928260282612826228263282642826528266282672826828269282702827128272282732827428275282762827728278282792828028281282822828328284282852828628287282882828928290282912829228293282942829528296282972829828299283002830128302283032830428305283062830728308283092831028311283122831328314283152831628317283182831928320283212832228323283242832528326283272832828329283302833128332283332833428335283362833728338283392834028341283422834328344283452834628347283482834928350283512835228353283542835528356283572835828359283602836128362283632836428365283662836728368283692837028371283722837328374283752837628377283782837928380283812838228383283842838528386283872838828389283902839128392283932839428395283962839728398283992840028401284022840328404284052840628407284082840928410284112841228413284142841528416284172841828419284202842128422284232842428425284262842728428284292843028431284322843328434284352843628437284382843928440284412844228443284442844528446284472844828449284502845128452284532845428455284562845728458284592846028461284622846328464284652846628467284682846928470284712847228473284742847528476284772847828479284802848128482284832848428485284862848728488284892849028491284922849328494284952849628497284982849928500285012850228503285042850528506285072850828509285102851128512285132851428515285162851728518285192852028521285222852328524285252852628527285282852928530285312853228533285342853528536285372853828539285402854128542285432854428545285462854728548285492855028551285522855328554285552855628557285582855928560285612856228563285642856528566285672856828569285702857128572285732857428575285762857728578285792858028581285822858328584285852858628587285882858928590285912859228593285942859528596285972859828599286002860128602286032860428605286062860728608286092861028611286122861328614286152861628617286182861928620286212862228623286242862528626286272862828629286302863128632286332863428635286362863728638286392864028641286422864328644286452864628647286482864928650286512865228653286542865528656286572865828659286602866128662286632866428665286662866728668286692867028671286722867328674286752867628677286782867928680286812868228683286842868528686286872868828689286902869128692286932869428695286962869728698286992870028701287022870328704287052870628707287082870928710287112871228713287142871528716287172871828719287202872128722287232872428725287262872728728287292873028731287322873328734287352873628737287382873928740287412874228743287442874528746287472874828749287502875128752287532875428755287562875728758287592876028761287622876328764287652876628767287682876928770287712877228773287742877528776287772877828779287802878128782287832878428785287862878728788287892879028791287922879328794287952879628797287982879928800288012880228803288042880528806288072880828809288102881128812288132881428815288162881728818288192882028821288222882328824288252882628827288282882928830288312883228833288342883528836288372883828839288402884128842288432884428845288462884728848288492885028851288522885328854288552885628857288582885928860288612886228863288642886528866288672886828869288702887128872288732887428875288762887728878288792888028881288822888328884288852888628887288882888928890288912889228893288942889528896288972889828899289002890128902289032890428905289062890728908289092891028911289122891328914289152891628917289182891928920289212892228923289242892528926289272892828929289302893128932289332893428935289362893728938289392894028941289422894328944289452894628947289482894928950289512895228953289542895528956289572895828959289602896128962289632896428965289662896728968289692897028971289722897328974289752897628977289782897928980289812898228983289842898528986289872898828989289902899128992289932899428995289962899728998289992900029001290022900329004290052900629007290082900929010290112901229013290142901529016290172901829019290202902129022290232902429025290262902729028290292903029031290322903329034290352903629037290382903929040290412904229043290442904529046290472904829049290502905129052290532905429055290562905729058290592906029061290622906329064290652906629067290682906929070290712907229073290742907529076290772907829079290802908129082290832908429085290862908729088290892909029091290922909329094290952909629097290982909929100291012910229103291042910529106291072910829109291102911129112291132911429115291162911729118291192912029121291222912329124291252912629127291282912929130291312913229133291342913529136291372913829139291402914129142291432914429145291462914729148291492915029151291522915329154291552915629157291582915929160291612916229163291642916529166291672916829169291702917129172291732917429175291762917729178291792918029181291822918329184291852918629187291882918929190291912919229193291942919529196291972919829199292002920129202292032920429205292062920729208292092921029211292122921329214292152921629217292182921929220292212922229223292242922529226292272922829229292302923129232292332923429235292362923729238292392924029241292422924329244292452924629247292482924929250292512925229253292542925529256292572925829259292602926129262292632926429265292662926729268292692927029271292722927329274292752927629277292782927929280292812928229283292842928529286292872928829289292902929129292292932929429295292962929729298292992930029301293022930329304293052930629307293082930929310293112931229313293142931529316293172931829319293202932129322293232932429325293262932729328293292933029331293322933329334293352933629337293382933929340293412934229343293442934529346293472934829349293502935129352293532935429355293562935729358293592936029361293622936329364293652936629367293682936929370293712937229373293742937529376293772937829379293802938129382293832938429385293862938729388293892939029391293922939329394293952939629397293982939929400294012940229403294042940529406294072940829409294102941129412294132941429415294162941729418294192942029421294222942329424294252942629427294282942929430294312943229433294342943529436294372943829439294402944129442294432944429445294462944729448294492945029451294522945329454294552945629457294582945929460294612946229463294642946529466294672946829469294702947129472294732947429475294762947729478294792948029481294822948329484294852948629487294882948929490294912949229493294942949529496294972949829499295002950129502295032950429505295062950729508295092951029511295122951329514295152951629517295182951929520295212952229523295242952529526295272952829529295302953129532295332953429535295362953729538295392954029541295422954329544295452954629547295482954929550295512955229553295542955529556295572955829559295602956129562295632956429565295662956729568295692957029571295722957329574295752957629577295782957929580295812958229583295842958529586295872958829589295902959129592295932959429595295962959729598295992960029601296022960329604296052960629607296082960929610296112961229613296142961529616296172961829619296202962129622296232962429625296262962729628296292963029631296322963329634296352963629637296382963929640296412964229643296442964529646296472964829649296502965129652296532965429655296562965729658296592966029661296622966329664296652966629667296682966929670296712967229673296742967529676296772967829679296802968129682296832968429685296862968729688296892969029691296922969329694296952969629697296982969929700297012970229703297042970529706297072970829709297102971129712297132971429715297162971729718297192972029721297222972329724297252972629727297282972929730297312973229733297342973529736297372973829739297402974129742297432974429745297462974729748297492975029751297522975329754297552975629757297582975929760297612976229763297642976529766297672976829769297702977129772297732977429775297762977729778297792978029781297822978329784297852978629787297882978929790297912979229793297942979529796297972979829799298002980129802298032980429805298062980729808298092981029811298122981329814298152981629817298182981929820298212982229823298242982529826298272982829829298302983129832298332983429835298362983729838298392984029841298422984329844298452984629847298482984929850298512985229853298542985529856298572985829859298602986129862298632986429865298662986729868298692987029871298722987329874298752987629877298782987929880298812988229883298842988529886298872988829889298902989129892298932989429895298962989729898298992990029901299022990329904299052990629907299082990929910299112991229913299142991529916299172991829919299202992129922299232992429925299262992729928299292993029931299322993329934299352993629937299382993929940299412994229943299442994529946299472994829949299502995129952299532995429955299562995729958299592996029961299622996329964299652996629967299682996929970299712997229973299742997529976299772997829979299802998129982299832998429985299862998729988299892999029991299922999329994299952999629997299982999930000300013000230003300043000530006300073000830009300103001130012300133001430015300163001730018300193002030021300223002330024300253002630027300283002930030300313003230033300343003530036300373003830039300403004130042300433004430045300463004730048300493005030051300523005330054300553005630057300583005930060300613006230063300643006530066300673006830069300703007130072300733007430075300763007730078300793008030081300823008330084300853008630087300883008930090300913009230093300943009530096300973009830099301003010130102301033010430105301063010730108301093011030111301123011330114301153011630117301183011930120301213012230123301243012530126301273012830129301303013130132301333013430135301363013730138301393014030141301423014330144301453014630147301483014930150301513015230153301543015530156301573015830159301603016130162301633016430165301663016730168301693017030171301723017330174301753017630177301783017930180301813018230183301843018530186301873018830189301903019130192301933019430195301963019730198301993020030201302023020330204302053020630207302083020930210302113021230213302143021530216302173021830219302203022130222302233022430225302263022730228302293023030231302323023330234302353023630237302383023930240302413024230243302443024530246302473024830249302503025130252302533025430255302563025730258302593026030261302623026330264302653026630267302683026930270302713027230273302743027530276302773027830279302803028130282302833028430285302863028730288302893029030291302923029330294302953029630297302983029930300303013030230303303043030530306303073030830309303103031130312303133031430315303163031730318303193032030321303223032330324303253032630327303283032930330303313033230333303343033530336303373033830339303403034130342303433034430345303463034730348303493035030351303523035330354303553035630357303583035930360303613036230363303643036530366303673036830369303703037130372303733037430375303763037730378303793038030381303823038330384303853038630387303883038930390303913039230393303943039530396303973039830399304003040130402304033040430405304063040730408304093041030411304123041330414304153041630417304183041930420304213042230423304243042530426304273042830429304303043130432304333043430435304363043730438304393044030441304423044330444304453044630447304483044930450304513045230453304543045530456304573045830459304603046130462304633046430465304663046730468304693047030471304723047330474304753047630477304783047930480304813048230483304843048530486304873048830489304903049130492304933049430495304963049730498304993050030501305023050330504305053050630507305083050930510305113051230513305143051530516305173051830519305203052130522305233052430525305263052730528305293053030531305323053330534305353053630537305383053930540305413054230543305443054530546305473054830549305503055130552305533055430555305563055730558305593056030561305623056330564305653056630567305683056930570305713057230573305743057530576305773057830579305803058130582305833058430585305863058730588305893059030591305923059330594305953059630597305983059930600306013060230603306043060530606306073060830609306103061130612306133061430615306163061730618306193062030621306223062330624306253062630627306283062930630306313063230633306343063530636306373063830639306403064130642306433064430645306463064730648306493065030651306523065330654306553065630657306583065930660306613066230663306643066530666306673066830669306703067130672306733067430675306763067730678306793068030681306823068330684306853068630687306883068930690306913069230693306943069530696306973069830699307003070130702307033070430705307063070730708307093071030711307123071330714307153071630717307183071930720307213072230723307243072530726307273072830729307303073130732307333073430735307363073730738307393074030741307423074330744307453074630747307483074930750307513075230753307543075530756307573075830759307603076130762307633076430765307663076730768307693077030771307723077330774307753077630777307783077930780307813078230783307843078530786307873078830789307903079130792307933079430795307963079730798307993080030801308023080330804308053080630807308083080930810308113081230813308143081530816308173081830819308203082130822308233082430825308263082730828308293083030831308323083330834308353083630837308383083930840308413084230843308443084530846308473084830849308503085130852308533085430855308563085730858308593086030861308623086330864308653086630867308683086930870308713087230873308743087530876308773087830879308803088130882308833088430885308863088730888308893089030891308923089330894308953089630897308983089930900309013090230903309043090530906309073090830909309103091130912309133091430915309163091730918309193092030921309223092330924309253092630927309283092930930309313093230933309343093530936309373093830939309403094130942309433094430945309463094730948309493095030951309523095330954309553095630957309583095930960309613096230963309643096530966309673096830969309703097130972309733097430975309763097730978309793098030981309823098330984309853098630987309883098930990309913099230993309943099530996309973099830999310003100131002310033100431005310063100731008310093101031011310123101331014310153101631017310183101931020310213102231023310243102531026310273102831029310303103131032310333103431035310363103731038310393104031041310423104331044310453104631047310483104931050310513105231053310543105531056310573105831059310603106131062310633106431065310663106731068310693107031071310723107331074310753107631077310783107931080310813108231083310843108531086310873108831089310903109131092310933109431095310963109731098310993110031101311023110331104311053110631107311083110931110311113111231113311143111531116311173111831119311203112131122311233112431125311263112731128311293113031131311323113331134311353113631137311383113931140311413114231143311443114531146311473114831149311503115131152311533115431155311563115731158311593116031161311623116331164311653116631167311683116931170311713117231173311743117531176311773117831179311803118131182311833118431185311863118731188311893119031191311923119331194311953119631197311983119931200312013120231203312043120531206312073120831209312103121131212312133121431215312163121731218312193122031221312223122331224312253122631227312283122931230312313123231233312343123531236312373123831239312403124131242312433124431245312463124731248312493125031251312523125331254312553125631257312583125931260312613126231263312643126531266312673126831269312703127131272312733127431275312763127731278312793128031281312823128331284312853128631287312883128931290312913129231293312943129531296312973129831299313003130131302313033130431305313063130731308313093131031311313123131331314313153131631317313183131931320313213132231323313243132531326313273132831329313303133131332313333133431335313363133731338313393134031341313423134331344313453134631347313483134931350313513135231353313543135531356313573135831359313603136131362313633136431365313663136731368313693137031371313723137331374313753137631377313783137931380313813138231383313843138531386313873138831389313903139131392313933139431395313963139731398313993140031401314023140331404314053140631407314083140931410314113141231413314143141531416314173141831419314203142131422314233142431425314263142731428314293143031431314323143331434314353143631437314383143931440314413144231443314443144531446314473144831449314503145131452314533145431455314563145731458314593146031461314623146331464314653146631467314683146931470314713147231473314743147531476314773147831479314803148131482314833148431485314863148731488314893149031491314923149331494314953149631497314983149931500315013150231503315043150531506315073150831509315103151131512315133151431515315163151731518315193152031521315223152331524315253152631527315283152931530315313153231533315343153531536315373153831539315403154131542315433154431545315463154731548315493155031551315523155331554315553155631557315583155931560315613156231563315643156531566315673156831569315703157131572315733157431575315763157731578315793158031581315823158331584315853158631587315883158931590315913159231593315943159531596315973159831599316003160131602316033160431605316063160731608316093161031611316123161331614316153161631617316183161931620316213162231623316243162531626316273162831629316303163131632316333163431635316363163731638316393164031641316423164331644316453164631647316483164931650316513165231653316543165531656316573165831659316603166131662316633166431665316663166731668316693167031671316723167331674316753167631677316783167931680316813168231683316843168531686316873168831689316903169131692316933169431695316963169731698316993170031701317023170331704317053170631707317083170931710317113171231713317143171531716317173171831719317203172131722317233172431725317263172731728317293173031731317323173331734317353173631737317383173931740317413174231743317443174531746317473174831749317503175131752317533175431755317563175731758317593176031761317623176331764317653176631767317683176931770317713177231773317743177531776317773177831779317803178131782317833178431785317863178731788317893179031791317923179331794317953179631797317983179931800318013180231803318043180531806318073180831809318103181131812318133181431815318163181731818318193182031821318223182331824318253182631827318283182931830318313183231833318343183531836318373183831839318403184131842318433184431845318463184731848318493185031851318523185331854318553185631857318583185931860318613186231863318643186531866318673186831869318703187131872318733187431875318763187731878318793188031881318823188331884318853188631887318883188931890318913189231893318943189531896318973189831899319003190131902319033190431905319063190731908319093191031911319123191331914319153191631917319183191931920319213192231923319243192531926319273192831929319303193131932319333193431935319363193731938319393194031941319423194331944319453194631947319483194931950319513195231953319543195531956319573195831959319603196131962319633196431965319663196731968319693197031971319723197331974319753197631977319783197931980319813198231983319843198531986319873198831989319903199131992319933199431995319963199731998319993200032001320023200332004320053200632007320083200932010320113201232013320143201532016320173201832019320203202132022320233202432025320263202732028320293203032031320323203332034320353203632037320383203932040320413204232043320443204532046320473204832049320503205132052320533205432055320563205732058320593206032061320623206332064320653206632067320683206932070320713207232073320743207532076320773207832079320803208132082320833208432085320863208732088320893209032091320923209332094320953209632097320983209932100321013210232103321043210532106321073210832109321103211132112321133211432115321163211732118321193212032121321223212332124321253212632127321283212932130321313213232133321343213532136321373213832139321403214132142321433214432145321463214732148321493215032151321523215332154321553215632157321583215932160321613216232163321643216532166321673216832169321703217132172321733217432175321763217732178321793218032181321823218332184321853218632187321883218932190321913219232193321943219532196321973219832199322003220132202322033220432205322063220732208322093221032211322123221332214322153221632217322183221932220322213222232223322243222532226322273222832229322303223132232322333223432235322363223732238322393224032241322423224332244322453224632247322483224932250322513225232253322543225532256322573225832259322603226132262322633226432265322663226732268322693227032271322723227332274322753227632277322783227932280322813228232283322843228532286322873228832289322903229132292322933229432295322963229732298322993230032301323023230332304323053230632307323083230932310323113231232313323143231532316323173231832319323203232132322323233232432325323263232732328323293233032331323323233332334323353233632337323383233932340323413234232343323443234532346323473234832349323503235132352323533235432355323563235732358323593236032361323623236332364323653236632367323683236932370323713237232373323743237532376323773237832379323803238132382323833238432385323863238732388323893239032391323923239332394323953239632397323983239932400324013240232403324043240532406324073240832409324103241132412324133241432415324163241732418324193242032421324223242332424324253242632427324283242932430324313243232433324343243532436324373243832439324403244132442324433244432445324463244732448324493245032451324523245332454324553245632457324583245932460324613246232463324643246532466324673246832469324703247132472324733247432475324763247732478324793248032481324823248332484324853248632487324883248932490324913249232493324943249532496324973249832499325003250132502325033250432505325063250732508325093251032511325123251332514325153251632517325183251932520325213252232523325243252532526325273252832529325303253132532325333253432535325363253732538325393254032541325423254332544325453254632547325483254932550325513255232553325543255532556325573255832559325603256132562325633256432565325663256732568325693257032571325723257332574325753257632577325783257932580325813258232583325843258532586325873258832589325903259132592325933259432595325963259732598325993260032601326023260332604326053260632607326083260932610326113261232613326143261532616326173261832619326203262132622326233262432625326263262732628326293263032631326323263332634326353263632637326383263932640326413264232643326443264532646326473264832649326503265132652326533265432655326563265732658326593266032661326623266332664326653266632667326683266932670326713267232673326743267532676326773267832679326803268132682326833268432685326863268732688326893269032691326923269332694326953269632697326983269932700327013270232703327043270532706327073270832709327103271132712327133271432715327163271732718327193272032721327223272332724327253272632727327283272932730327313273232733327343273532736327373273832739327403274132742327433274432745327463274732748327493275032751327523275332754327553275632757327583275932760327613276232763327643276532766327673276832769327703277132772327733277432775327763277732778327793278032781327823278332784327853278632787327883278932790327913279232793327943279532796327973279832799328003280132802328033280432805328063280732808328093281032811328123281332814328153281632817328183281932820328213282232823328243282532826328273282832829328303283132832328333283432835328363283732838328393284032841328423284332844328453284632847328483284932850328513285232853328543285532856328573285832859328603286132862328633286432865328663286732868328693287032871328723287332874328753287632877328783287932880328813288232883328843288532886328873288832889328903289132892328933289432895328963289732898328993290032901329023290332904329053290632907329083290932910329113291232913329143291532916329173291832919329203292132922329233292432925329263292732928329293293032931329323293332934329353293632937329383293932940329413294232943329443294532946329473294832949329503295132952329533295432955329563295732958329593296032961329623296332964329653296632967329683296932970329713297232973329743297532976329773297832979329803298132982329833298432985329863298732988329893299032991329923299332994329953299632997329983299933000330013300233003330043300533006330073300833009330103301133012330133301433015330163301733018330193302033021330223302333024330253302633027330283302933030330313303233033330343303533036330373303833039330403304133042330433304433045330463304733048330493305033051330523305333054330553305633057330583305933060330613306233063330643306533066330673306833069330703307133072330733307433075330763307733078330793308033081330823308333084330853308633087330883308933090330913309233093330943309533096330973309833099331003310133102331033310433105331063310733108331093311033111331123311333114331153311633117331183311933120331213312233123331243312533126331273312833129331303313133132331333313433135331363313733138331393314033141331423314333144331453314633147331483314933150331513315233153331543315533156331573315833159331603316133162331633316433165331663316733168331693317033171331723317333174331753317633177331783317933180331813318233183331843318533186331873318833189331903319133192331933319433195331963319733198331993320033201332023320333204332053320633207332083320933210332113321233213332143321533216332173321833219332203322133222332233322433225332263322733228332293323033231332323323333234332353323633237332383323933240332413324233243332443324533246332473324833249332503325133252332533325433255332563325733258332593326033261332623326333264332653326633267332683326933270332713327233273332743327533276332773327833279332803328133282332833328433285332863328733288332893329033291332923329333294332953329633297332983329933300333013330233303333043330533306333073330833309333103331133312333133331433315333163331733318333193332033321333223332333324333253332633327333283332933330333313333233333333343333533336333373333833339333403334133342333433334433345333463334733348333493335033351333523335333354333553335633357333583335933360333613336233363333643336533366333673336833369333703337133372333733337433375333763337733378333793338033381333823338333384333853338633387333883338933390333913339233393333943339533396333973339833399334003340133402334033340433405334063340733408334093341033411334123341333414334153341633417334183341933420334213342233423334243342533426334273342833429334303343133432334333343433435334363343733438334393344033441334423344333444334453344633447334483344933450334513345233453334543345533456334573345833459334603346133462334633346433465334663346733468334693347033471334723347333474334753347633477334783347933480334813348233483334843348533486334873348833489334903349133492334933349433495334963349733498334993350033501335023350333504335053350633507335083350933510335113351233513335143351533516335173351833519335203352133522335233352433525335263352733528335293353033531335323353333534335353353633537335383353933540335413354233543335443354533546335473354833549335503355133552335533355433555335563355733558335593356033561335623356333564335653356633567335683356933570335713357233573335743357533576335773357833579335803358133582335833358433585335863358733588335893359033591335923359333594335953359633597335983359933600336013360233603336043360533606336073360833609336103361133612336133361433615336163361733618336193362033621336223362333624336253362633627336283362933630336313363233633336343363533636336373363833639336403364133642336433364433645336463364733648336493365033651336523365333654336553365633657336583365933660336613366233663336643366533666336673366833669336703367133672336733367433675336763367733678336793368033681336823368333684336853368633687336883368933690336913369233693336943369533696336973369833699337003370133702337033370433705337063370733708337093371033711337123371333714337153371633717337183371933720337213372233723337243372533726337273372833729337303373133732337333373433735337363373733738337393374033741337423374333744337453374633747337483374933750337513375233753337543375533756337573375833759337603376133762337633376433765337663376733768337693377033771337723377333774337753377633777337783377933780337813378233783337843378533786337873378833789337903379133792337933379433795337963379733798337993380033801338023380333804338053380633807338083380933810338113381233813338143381533816338173381833819338203382133822338233382433825338263382733828338293383033831338323383333834338353383633837338383383933840338413384233843338443384533846338473384833849338503385133852338533385433855338563385733858338593386033861338623386333864338653386633867338683386933870338713387233873338743387533876338773387833879338803388133882338833388433885338863388733888338893389033891338923389333894338953389633897338983389933900339013390233903339043390533906339073390833909339103391133912339133391433915339163391733918339193392033921339223392333924339253392633927339283392933930339313393233933339343393533936339373393833939339403394133942339433394433945339463394733948339493395033951339523395333954339553395633957339583395933960339613396233963339643396533966339673396833969339703397133972339733397433975339763397733978339793398033981339823398333984339853398633987339883398933990339913399233993339943399533996339973399833999340003400134002340033400434005340063400734008340093401034011340123401334014340153401634017340183401934020340213402234023340243402534026340273402834029340303403134032340333403434035340363403734038340393404034041340423404334044340453404634047340483404934050340513405234053340543405534056340573405834059340603406134062340633406434065340663406734068340693407034071340723407334074340753407634077340783407934080340813408234083340843408534086340873408834089340903409134092340933409434095340963409734098340993410034101341023410334104341053410634107341083410934110341113411234113341143411534116341173411834119341203412134122341233412434125341263412734128341293413034131341323413334134341353413634137341383413934140341413414234143341443414534146341473414834149341503415134152341533415434155341563415734158341593416034161341623416334164341653416634167341683416934170341713417234173341743417534176341773417834179341803418134182341833418434185341863418734188341893419034191341923419334194341953419634197341983419934200342013420234203342043420534206342073420834209342103421134212342133421434215342163421734218342193422034221342223422334224342253422634227342283422934230342313423234233342343423534236342373423834239342403424134242342433424434245342463424734248342493425034251342523425334254342553425634257342583425934260342613426234263342643426534266342673426834269342703427134272342733427434275342763427734278342793428034281342823428334284342853428634287342883428934290342913429234293342943429534296342973429834299343003430134302343033430434305343063430734308343093431034311343123431334314343153431634317343183431934320343213432234323343243432534326343273432834329343303433134332343333433434335343363433734338343393434034341343423434334344343453434634347343483434934350343513435234353343543435534356343573435834359343603436134362343633436434365343663436734368343693437034371343723437334374343753437634377343783437934380343813438234383343843438534386343873438834389343903439134392343933439434395343963439734398343993440034401344023440334404344053440634407344083440934410344113441234413344143441534416344173441834419344203442134422344233442434425344263442734428344293443034431344323443334434344353443634437344383443934440344413444234443344443444534446344473444834449344503445134452344533445434455344563445734458344593446034461344623446334464344653446634467344683446934470344713447234473344743447534476344773447834479344803448134482344833448434485344863448734488344893449034491344923449334494344953449634497344983449934500345013450234503345043450534506345073450834509345103451134512345133451434515345163451734518345193452034521345223452334524345253452634527345283452934530345313453234533345343453534536345373453834539345403454134542345433454434545345463454734548345493455034551345523455334554345553455634557345583455934560345613456234563345643456534566345673456834569345703457134572345733457434575345763457734578345793458034581345823458334584345853458634587345883458934590345913459234593345943459534596345973459834599346003460134602346033460434605346063460734608346093461034611346123461334614346153461634617346183461934620346213462234623346243462534626346273462834629346303463134632346333463434635346363463734638346393464034641346423464334644346453464634647346483464934650346513465234653346543465534656346573465834659346603466134662346633466434665346663466734668346693467034671346723467334674346753467634677346783467934680346813468234683346843468534686346873468834689346903469134692346933469434695346963469734698346993470034701347023470334704347053470634707347083470934710347113471234713347143471534716347173471834719347203472134722347233472434725347263472734728347293473034731347323473334734347353473634737347383473934740347413474234743347443474534746347473474834749347503475134752347533475434755347563475734758347593476034761347623476334764347653476634767347683476934770347713477234773347743477534776347773477834779347803478134782347833478434785347863478734788347893479034791347923479334794347953479634797347983479934800348013480234803348043480534806348073480834809348103481134812348133481434815348163481734818348193482034821348223482334824348253482634827348283482934830348313483234833348343483534836348373483834839348403484134842348433484434845348463484734848348493485034851348523485334854348553485634857348583485934860348613486234863348643486534866348673486834869348703487134872348733487434875348763487734878348793488034881348823488334884348853488634887348883488934890348913489234893348943489534896348973489834899349003490134902349033490434905349063490734908349093491034911349123491334914349153491634917349183491934920349213492234923349243492534926349273492834929349303493134932349333493434935349363493734938349393494034941349423494334944349453494634947349483494934950349513495234953349543495534956349573495834959349603496134962349633496434965349663496734968349693497034971349723497334974349753497634977349783497934980349813498234983349843498534986349873498834989349903499134992349933499434995349963499734998349993500035001350023500335004350053500635007350083500935010350113501235013350143501535016350173501835019350203502135022350233502435025350263502735028350293503035031350323503335034350353503635037350383503935040350413504235043350443504535046350473504835049350503505135052350533505435055350563505735058350593506035061350623506335064350653506635067350683506935070350713507235073350743507535076350773507835079350803508135082350833508435085350863508735088350893509035091350923509335094350953509635097350983509935100351013510235103351043510535106351073510835109351103511135112351133511435115351163511735118351193512035121351223512335124351253512635127351283512935130351313513235133351343513535136351373513835139351403514135142351433514435145351463514735148351493515035151351523515335154351553515635157351583515935160351613516235163351643516535166351673516835169351703517135172351733517435175351763517735178351793518035181351823518335184351853518635187351883518935190351913519235193351943519535196351973519835199352003520135202352033520435205352063520735208352093521035211352123521335214352153521635217352183521935220352213522235223352243522535226352273522835229352303523135232352333523435235352363523735238352393524035241352423524335244352453524635247352483524935250352513525235253352543525535256352573525835259352603526135262352633526435265352663526735268352693527035271352723527335274352753527635277352783527935280352813528235283352843528535286352873528835289352903529135292352933529435295352963529735298352993530035301353023530335304353053530635307353083530935310353113531235313353143531535316353173531835319353203532135322353233532435325353263532735328353293533035331353323533335334353353533635337353383533935340353413534235343353443534535346353473534835349353503535135352353533535435355353563535735358353593536035361353623536335364353653536635367353683536935370353713537235373353743537535376353773537835379353803538135382353833538435385353863538735388353893539035391353923539335394353953539635397353983539935400354013540235403354043540535406354073540835409354103541135412354133541435415354163541735418354193542035421354223542335424354253542635427354283542935430354313543235433354343543535436354373543835439354403544135442354433544435445354463544735448354493545035451354523545335454354553545635457354583545935460354613546235463354643546535466354673546835469354703547135472354733547435475354763547735478354793548035481354823548335484354853548635487354883548935490354913549235493354943549535496354973549835499355003550135502355033550435505355063550735508355093551035511355123551335514355153551635517355183551935520355213552235523355243552535526355273552835529355303553135532355333553435535355363553735538355393554035541355423554335544355453554635547355483554935550355513555235553355543555535556355573555835559355603556135562355633556435565355663556735568355693557035571355723557335574355753557635577355783557935580355813558235583355843558535586355873558835589355903559135592355933559435595355963559735598355993560035601356023560335604356053560635607356083560935610356113561235613356143561535616356173561835619356203562135622356233562435625356263562735628356293563035631356323563335634356353563635637356383563935640356413564235643356443564535646356473564835649356503565135652356533565435655356563565735658356593566035661356623566335664356653566635667356683566935670356713567235673356743567535676356773567835679356803568135682356833568435685356863568735688356893569035691356923569335694356953569635697356983569935700357013570235703357043570535706357073570835709357103571135712357133571435715357163571735718357193572035721357223572335724357253572635727357283572935730357313573235733357343573535736357373573835739357403574135742357433574435745357463574735748357493575035751357523575335754357553575635757357583575935760357613576235763357643576535766357673576835769357703577135772357733577435775357763577735778357793578035781357823578335784357853578635787357883578935790357913579235793357943579535796357973579835799358003580135802358033580435805358063580735808358093581035811358123581335814358153581635817358183581935820358213582235823358243582535826358273582835829358303583135832358333583435835358363583735838358393584035841358423584335844358453584635847358483584935850358513585235853358543585535856358573585835859358603586135862358633586435865358663586735868358693587035871358723587335874358753587635877358783587935880358813588235883358843588535886358873588835889358903589135892358933589435895358963589735898358993590035901359023590335904359053590635907359083590935910359113591235913359143591535916359173591835919359203592135922359233592435925359263592735928359293593035931359323593335934359353593635937359383593935940359413594235943359443594535946359473594835949359503595135952359533595435955359563595735958359593596035961359623596335964359653596635967359683596935970359713597235973359743597535976359773597835979359803598135982359833598435985359863598735988359893599035991359923599335994359953599635997359983599936000360013600236003360043600536006360073600836009360103601136012360133601436015360163601736018360193602036021360223602336024360253602636027360283602936030360313603236033360343603536036360373603836039360403604136042360433604436045360463604736048360493605036051360523605336054360553605636057360583605936060360613606236063360643606536066360673606836069360703607136072360733607436075360763607736078360793608036081360823608336084360853608636087360883608936090360913609236093360943609536096360973609836099361003610136102361033610436105361063610736108361093611036111361123611336114361153611636117361183611936120361213612236123361243612536126361273612836129361303613136132361333613436135361363613736138361393614036141361423614336144361453614636147361483614936150361513615236153361543615536156361573615836159361603616136162361633616436165361663616736168361693617036171361723617336174361753617636177361783617936180361813618236183361843618536186361873618836189361903619136192361933619436195361963619736198361993620036201362023620336204362053620636207362083620936210362113621236213362143621536216362173621836219362203622136222362233622436225362263622736228362293623036231362323623336234362353623636237362383623936240362413624236243362443624536246362473624836249362503625136252362533625436255362563625736258362593626036261362623626336264362653626636267362683626936270362713627236273362743627536276362773627836279362803628136282362833628436285362863628736288362893629036291362923629336294362953629636297362983629936300363013630236303363043630536306363073630836309363103631136312363133631436315363163631736318363193632036321363223632336324363253632636327363283632936330363313633236333363343633536336363373633836339363403634136342363433634436345363463634736348363493635036351363523635336354363553635636357363583635936360363613636236363363643636536366363673636836369363703637136372363733637436375363763637736378363793638036381363823638336384363853638636387363883638936390363913639236393363943639536396363973639836399364003640136402364033640436405364063640736408364093641036411364123641336414364153641636417364183641936420364213642236423364243642536426364273642836429364303643136432364333643436435364363643736438364393644036441364423644336444364453644636447364483644936450364513645236453364543645536456364573645836459364603646136462364633646436465364663646736468364693647036471364723647336474364753647636477364783647936480364813648236483364843648536486364873648836489364903649136492364933649436495364963649736498364993650036501365023650336504365053650636507365083650936510365113651236513365143651536516365173651836519365203652136522365233652436525365263652736528365293653036531365323653336534365353653636537365383653936540365413654236543365443654536546365473654836549365503655136552365533655436555365563655736558365593656036561365623656336564365653656636567365683656936570365713657236573365743657536576365773657836579365803658136582365833658436585365863658736588365893659036591365923659336594365953659636597365983659936600366013660236603366043660536606366073660836609366103661136612366133661436615366163661736618366193662036621366223662336624366253662636627366283662936630366313663236633366343663536636366373663836639366403664136642366433664436645366463664736648366493665036651366523665336654366553665636657366583665936660366613666236663366643666536666366673666836669366703667136672366733667436675366763667736678366793668036681366823668336684366853668636687366883668936690366913669236693366943669536696366973669836699367003670136702367033670436705367063670736708367093671036711367123671336714367153671636717367183671936720367213672236723367243672536726367273672836729367303673136732367333673436735367363673736738367393674036741367423674336744367453674636747367483674936750367513675236753367543675536756367573675836759367603676136762367633676436765367663676736768367693677036771367723677336774367753677636777367783677936780367813678236783367843678536786367873678836789367903679136792367933679436795367963679736798367993680036801368023680336804368053680636807368083680936810368113681236813368143681536816368173681836819368203682136822368233682436825368263682736828368293683036831368323683336834368353683636837368383683936840368413684236843368443684536846368473684836849368503685136852368533685436855368563685736858368593686036861368623686336864368653686636867368683686936870368713687236873368743687536876368773687836879368803688136882368833688436885368863688736888368893689036891368923689336894368953689636897368983689936900369013690236903369043690536906369073690836909369103691136912369133691436915369163691736918369193692036921369223692336924369253692636927369283692936930369313693236933369343693536936369373693836939369403694136942369433694436945369463694736948369493695036951369523695336954369553695636957369583695936960369613696236963369643696536966369673696836969369703697136972369733697436975369763697736978369793698036981369823698336984369853698636987369883698936990369913699236993369943699536996369973699836999370003700137002370033700437005370063700737008370093701037011370123701337014370153701637017370183701937020370213702237023370243702537026370273702837029370303703137032370333703437035370363703737038370393704037041370423704337044370453704637047370483704937050370513705237053370543705537056370573705837059370603706137062370633706437065370663706737068370693707037071370723707337074370753707637077370783707937080370813708237083370843708537086370873708837089370903709137092370933709437095370963709737098370993710037101371023710337104371053710637107371083710937110371113711237113371143711537116371173711837119371203712137122371233712437125371263712737128371293713037131371323713337134371353713637137371383713937140371413714237143371443714537146371473714837149371503715137152371533715437155371563715737158371593716037161371623716337164371653716637167371683716937170371713717237173371743717537176371773717837179371803718137182371833718437185371863718737188371893719037191371923719337194371953719637197371983719937200372013720237203372043720537206372073720837209372103721137212372133721437215372163721737218372193722037221372223722337224372253722637227372283722937230372313723237233372343723537236372373723837239372403724137242372433724437245372463724737248372493725037251372523725337254372553725637257372583725937260372613726237263372643726537266372673726837269372703727137272372733727437275372763727737278372793728037281372823728337284372853728637287372883728937290372913729237293372943729537296372973729837299373003730137302373033730437305373063730737308373093731037311373123731337314373153731637317373183731937320373213732237323373243732537326373273732837329373303733137332373333733437335373363733737338373393734037341373423734337344373453734637347373483734937350373513735237353373543735537356373573735837359373603736137362373633736437365373663736737368373693737037371373723737337374373753737637377373783737937380373813738237383373843738537386373873738837389373903739137392373933739437395373963739737398373993740037401374023740337404374053740637407374083740937410374113741237413374143741537416374173741837419374203742137422374233742437425374263742737428374293743037431374323743337434374353743637437374383743937440374413744237443374443744537446374473744837449374503745137452374533745437455374563745737458374593746037461374623746337464374653746637467374683746937470374713747237473374743747537476374773747837479374803748137482374833748437485374863748737488374893749037491374923749337494374953749637497374983749937500375013750237503375043750537506375073750837509375103751137512375133751437515375163751737518375193752037521375223752337524375253752637527375283752937530375313753237533375343753537536375373753837539375403754137542375433754437545375463754737548375493755037551375523755337554375553755637557375583755937560375613756237563375643756537566375673756837569375703757137572375733757437575375763757737578375793758037581375823758337584375853758637587375883758937590375913759237593375943759537596375973759837599376003760137602376033760437605376063760737608376093761037611376123761337614376153761637617376183761937620376213762237623376243762537626376273762837629376303763137632376333763437635376363763737638376393764037641376423764337644376453764637647376483764937650376513765237653376543765537656376573765837659376603766137662376633766437665376663766737668376693767037671376723767337674376753767637677376783767937680376813768237683376843768537686376873768837689376903769137692376933769437695376963769737698376993770037701377023770337704377053770637707377083770937710377113771237713377143771537716377173771837719377203772137722377233772437725377263772737728377293773037731377323773337734377353773637737377383773937740377413774237743377443774537746377473774837749377503775137752377533775437755377563775737758377593776037761377623776337764377653776637767377683776937770377713777237773377743777537776377773777837779377803778137782377833778437785377863778737788377893779037791377923779337794377953779637797377983779937800378013780237803378043780537806378073780837809378103781137812378133781437815378163781737818378193782037821378223782337824378253782637827378283782937830378313783237833378343783537836378373783837839378403784137842378433784437845378463784737848378493785037851378523785337854378553785637857378583785937860378613786237863378643786537866378673786837869378703787137872378733787437875378763787737878378793788037881378823788337884378853788637887378883788937890378913789237893378943789537896378973789837899379003790137902379033790437905379063790737908379093791037911379123791337914379153791637917379183791937920379213792237923379243792537926379273792837929379303793137932379333793437935379363793737938379393794037941379423794337944379453794637947379483794937950379513795237953379543795537956379573795837959379603796137962379633796437965379663796737968379693797037971379723797337974379753797637977379783797937980379813798237983379843798537986379873798837989379903799137992379933799437995379963799737998379993800038001380023800338004380053800638007380083800938010380113801238013380143801538016380173801838019380203802138022380233802438025380263802738028380293803038031380323803338034380353803638037380383803938040380413804238043380443804538046380473804838049380503805138052380533805438055380563805738058380593806038061380623806338064380653806638067380683806938070380713807238073380743807538076380773807838079380803808138082380833808438085380863808738088380893809038091380923809338094380953809638097380983809938100381013810238103381043810538106381073810838109381103811138112381133811438115381163811738118381193812038121381223812338124381253812638127381283812938130381313813238133381343813538136381373813838139381403814138142381433814438145381463814738148381493815038151381523815338154381553815638157381583815938160381613816238163381643816538166381673816838169381703817138172381733817438175381763817738178381793818038181381823818338184381853818638187381883818938190381913819238193381943819538196381973819838199382003820138202382033820438205382063820738208382093821038211382123821338214382153821638217382183821938220382213822238223382243822538226382273822838229382303823138232382333823438235382363823738238382393824038241382423824338244382453824638247382483824938250382513825238253382543825538256382573825838259382603826138262382633826438265382663826738268382693827038271382723827338274382753827638277382783827938280382813828238283382843828538286382873828838289382903829138292382933829438295382963829738298382993830038301383023830338304383053830638307383083830938310383113831238313383143831538316383173831838319383203832138322383233832438325383263832738328383293833038331383323833338334383353833638337383383833938340383413834238343383443834538346383473834838349383503835138352383533835438355383563835738358383593836038361383623836338364383653836638367383683836938370383713837238373383743837538376383773837838379383803838138382383833838438385383863838738388383893839038391383923839338394383953839638397383983839938400384013840238403384043840538406384073840838409384103841138412384133841438415384163841738418384193842038421384223842338424384253842638427384283842938430384313843238433384343843538436384373843838439384403844138442384433844438445384463844738448384493845038451384523845338454384553845638457384583845938460384613846238463384643846538466384673846838469384703847138472384733847438475384763847738478384793848038481384823848338484384853848638487384883848938490384913849238493384943849538496384973849838499385003850138502385033850438505385063850738508385093851038511385123851338514385153851638517385183851938520385213852238523385243852538526385273852838529385303853138532385333853438535385363853738538385393854038541385423854338544385453854638547385483854938550385513855238553385543855538556385573855838559385603856138562385633856438565385663856738568385693857038571385723857338574385753857638577385783857938580385813858238583385843858538586385873858838589385903859138592385933859438595385963859738598385993860038601386023860338604386053860638607386083860938610386113861238613386143861538616386173861838619386203862138622386233862438625386263862738628386293863038631386323863338634386353863638637386383863938640386413864238643386443864538646386473864838649386503865138652386533865438655386563865738658386593866038661386623866338664386653866638667386683866938670386713867238673386743867538676386773867838679386803868138682386833868438685386863868738688386893869038691386923869338694386953869638697386983869938700387013870238703387043870538706387073870838709387103871138712387133871438715387163871738718387193872038721387223872338724387253872638727387283872938730387313873238733387343873538736387373873838739387403874138742387433874438745387463874738748387493875038751387523875338754387553875638757387583875938760387613876238763387643876538766387673876838769387703877138772387733877438775387763877738778387793878038781387823878338784387853878638787387883878938790387913879238793387943879538796387973879838799388003880138802388033880438805388063880738808388093881038811388123881338814388153881638817388183881938820388213882238823388243882538826388273882838829388303883138832388333883438835388363883738838388393884038841388423884338844388453884638847388483884938850388513885238853388543885538856388573885838859388603886138862388633886438865388663886738868388693887038871388723887338874388753887638877388783887938880388813888238883388843888538886388873888838889388903889138892388933889438895388963889738898388993890038901389023890338904389053890638907389083890938910389113891238913389143891538916389173891838919389203892138922389233892438925389263892738928389293893038931389323893338934389353893638937389383893938940389413894238943389443894538946389473894838949389503895138952389533895438955389563895738958389593896038961389623896338964389653896638967389683896938970389713897238973389743897538976389773897838979389803898138982389833898438985389863898738988389893899038991389923899338994389953899638997389983899939000390013900239003390043900539006390073900839009390103901139012390133901439015390163901739018390193902039021390223902339024390253902639027390283902939030390313903239033390343903539036390373903839039390403904139042390433904439045390463904739048390493905039051390523905339054390553905639057390583905939060390613906239063390643906539066390673906839069390703907139072390733907439075390763907739078390793908039081390823908339084390853908639087390883908939090390913909239093390943909539096390973909839099391003910139102391033910439105391063910739108391093911039111391123911339114391153911639117391183911939120391213912239123391243912539126391273912839129391303913139132391333913439135391363913739138391393914039141391423914339144391453914639147391483914939150391513915239153391543915539156391573915839159391603916139162391633916439165391663916739168391693917039171391723917339174391753917639177391783917939180391813918239183391843918539186391873918839189391903919139192391933919439195391963919739198391993920039201392023920339204392053920639207392083920939210392113921239213392143921539216392173921839219392203922139222392233922439225392263922739228392293923039231392323923339234392353923639237392383923939240392413924239243392443924539246392473924839249392503925139252392533925439255392563925739258392593926039261392623926339264392653926639267392683926939270392713927239273392743927539276392773927839279392803928139282392833928439285392863928739288392893929039291392923929339294392953929639297392983929939300393013930239303393043930539306393073930839309393103931139312393133931439315393163931739318393193932039321393223932339324393253932639327393283932939330393313933239333393343933539336393373933839339393403934139342393433934439345393463934739348393493935039351393523935339354393553935639357393583935939360393613936239363393643936539366393673936839369393703937139372393733937439375393763937739378393793938039381393823938339384393853938639387393883938939390393913939239393393943939539396393973939839399394003940139402394033940439405394063940739408394093941039411394123941339414394153941639417394183941939420394213942239423394243942539426394273942839429394303943139432394333943439435394363943739438394393944039441394423944339444394453944639447394483944939450394513945239453394543945539456394573945839459394603946139462394633946439465394663946739468394693947039471394723947339474394753947639477394783947939480394813948239483394843948539486394873948839489394903949139492394933949439495394963949739498394993950039501395023950339504395053950639507395083950939510395113951239513395143951539516395173951839519395203952139522395233952439525395263952739528395293953039531395323953339534395353953639537395383953939540395413954239543395443954539546395473954839549395503955139552395533955439555395563955739558395593956039561395623956339564395653956639567395683956939570395713957239573395743957539576395773957839579395803958139582395833958439585395863958739588395893959039591395923959339594395953959639597395983959939600396013960239603396043960539606396073960839609396103961139612396133961439615396163961739618396193962039621396223962339624396253962639627396283962939630396313963239633396343963539636396373963839639396403964139642396433964439645396463964739648396493965039651396523965339654396553965639657396583965939660396613966239663396643966539666396673966839669396703967139672396733967439675396763967739678396793968039681396823968339684396853968639687396883968939690396913969239693396943969539696396973969839699397003970139702397033970439705397063970739708397093971039711397123971339714397153971639717397183971939720397213972239723397243972539726397273972839729397303973139732397333973439735397363973739738397393974039741397423974339744397453974639747397483974939750397513975239753397543975539756397573975839759397603976139762397633976439765397663976739768397693977039771397723977339774397753977639777397783977939780397813978239783397843978539786397873978839789397903979139792397933979439795397963979739798397993980039801398023980339804398053980639807398083980939810398113981239813398143981539816398173981839819398203982139822398233982439825398263982739828398293983039831398323983339834398353983639837398383983939840398413984239843398443984539846398473984839849398503985139852398533985439855398563985739858398593986039861398623986339864398653986639867398683986939870398713987239873398743987539876398773987839879398803988139882398833988439885398863988739888398893989039891398923989339894398953989639897398983989939900399013990239903399043990539906399073990839909399103991139912399133991439915399163991739918399193992039921399223992339924399253992639927399283992939930399313993239933399343993539936399373993839939399403994139942399433994439945399463994739948399493995039951399523995339954399553995639957399583995939960399613996239963399643996539966399673996839969399703997139972399733997439975399763997739978399793998039981399823998339984399853998639987399883998939990399913999239993399943999539996399973999839999400004000140002400034000440005400064000740008400094001040011400124001340014400154001640017400184001940020400214002240023400244002540026400274002840029400304003140032400334003440035400364003740038400394004040041400424004340044400454004640047400484004940050400514005240053400544005540056400574005840059400604006140062400634006440065400664006740068400694007040071400724007340074400754007640077400784007940080400814008240083400844008540086400874008840089400904009140092400934009440095400964009740098400994010040101401024010340104401054010640107401084010940110401114011240113401144011540116401174011840119401204012140122401234012440125401264012740128401294013040131401324013340134401354013640137401384013940140401414014240143401444014540146401474014840149401504015140152401534015440155401564015740158401594016040161401624016340164401654016640167401684016940170401714017240173401744017540176401774017840179401804018140182401834018440185401864018740188401894019040191401924019340194401954019640197401984019940200402014020240203402044020540206402074020840209402104021140212402134021440215402164021740218402194022040221402224022340224402254022640227402284022940230402314023240233402344023540236402374023840239402404024140242402434024440245402464024740248402494025040251402524025340254402554025640257402584025940260402614026240263402644026540266402674026840269402704027140272402734027440275402764027740278402794028040281402824028340284402854028640287402884028940290402914029240293402944029540296402974029840299403004030140302403034030440305403064030740308403094031040311403124031340314403154031640317403184031940320403214032240323403244032540326403274032840329403304033140332403334033440335403364033740338403394034040341403424034340344403454034640347403484034940350403514035240353403544035540356403574035840359403604036140362403634036440365403664036740368403694037040371403724037340374403754037640377403784037940380403814038240383403844038540386403874038840389403904039140392403934039440395403964039740398403994040040401404024040340404404054040640407404084040940410404114041240413404144041540416404174041840419404204042140422404234042440425404264042740428404294043040431404324043340434404354043640437404384043940440404414044240443404444044540446404474044840449404504045140452404534045440455404564045740458404594046040461404624046340464404654046640467404684046940470404714047240473404744047540476404774047840479404804048140482404834048440485404864048740488404894049040491404924049340494404954049640497404984049940500405014050240503405044050540506405074050840509405104051140512405134051440515405164051740518405194052040521405224052340524405254052640527405284052940530405314053240533405344053540536405374053840539405404054140542405434054440545405464054740548405494055040551405524055340554405554055640557405584055940560405614056240563405644056540566405674056840569405704057140572405734057440575405764057740578405794058040581405824058340584405854058640587405884058940590405914059240593405944059540596405974059840599406004060140602406034060440605406064060740608406094061040611406124061340614406154061640617406184061940620406214062240623406244062540626406274062840629406304063140632406334063440635406364063740638406394064040641406424064340644406454064640647406484064940650406514065240653406544065540656406574065840659406604066140662406634066440665406664066740668406694067040671406724067340674406754067640677406784067940680406814068240683406844068540686406874068840689406904069140692406934069440695406964069740698406994070040701407024070340704407054070640707407084070940710407114071240713407144071540716407174071840719407204072140722407234072440725407264072740728407294073040731407324073340734407354073640737407384073940740407414074240743407444074540746407474074840749407504075140752407534075440755407564075740758407594076040761407624076340764407654076640767407684076940770407714077240773407744077540776407774077840779407804078140782407834078440785407864078740788407894079040791407924079340794407954079640797407984079940800408014080240803408044080540806408074080840809408104081140812408134081440815408164081740818408194082040821408224082340824408254082640827408284082940830408314083240833408344083540836408374083840839408404084140842408434084440845408464084740848408494085040851408524085340854408554085640857408584085940860408614086240863408644086540866408674086840869408704087140872408734087440875408764087740878408794088040881408824088340884408854088640887408884088940890408914089240893408944089540896408974089840899409004090140902409034090440905409064090740908409094091040911409124091340914409154091640917409184091940920409214092240923409244092540926409274092840929409304093140932409334093440935409364093740938409394094040941409424094340944409454094640947409484094940950409514095240953409544095540956409574095840959409604096140962409634096440965409664096740968409694097040971409724097340974409754097640977409784097940980409814098240983409844098540986409874098840989409904099140992409934099440995409964099740998409994100041001410024100341004410054100641007410084100941010410114101241013410144101541016410174101841019410204102141022410234102441025410264102741028410294103041031410324103341034410354103641037410384103941040410414104241043410444104541046410474104841049410504105141052410534105441055410564105741058410594106041061410624106341064410654106641067410684106941070410714107241073410744107541076410774107841079410804108141082410834108441085410864108741088410894109041091410924109341094410954109641097410984109941100411014110241103411044110541106411074110841109411104111141112411134111441115411164111741118411194112041121411224112341124411254112641127411284112941130411314113241133411344113541136411374113841139411404114141142411434114441145411464114741148411494115041151411524115341154411554115641157411584115941160411614116241163411644116541166411674116841169411704117141172411734117441175411764117741178411794118041181411824118341184411854118641187411884118941190411914119241193411944119541196411974119841199412004120141202412034120441205412064120741208412094121041211412124121341214412154121641217412184121941220412214122241223412244122541226412274122841229412304123141232412334123441235412364123741238412394124041241412424124341244412454124641247412484124941250412514125241253412544125541256412574125841259412604126141262412634126441265412664126741268412694127041271412724127341274412754127641277412784127941280412814128241283412844128541286412874128841289412904129141292412934129441295412964129741298412994130041301413024130341304413054130641307413084130941310413114131241313413144131541316413174131841319413204132141322413234132441325413264132741328413294133041331413324133341334413354133641337413384133941340413414134241343413444134541346413474134841349413504135141352413534135441355413564135741358413594136041361413624136341364413654136641367413684136941370413714137241373413744137541376413774137841379413804138141382413834138441385413864138741388413894139041391413924139341394413954139641397413984139941400414014140241403414044140541406414074140841409414104141141412414134141441415414164141741418414194142041421414224142341424414254142641427414284142941430414314143241433414344143541436414374143841439414404144141442414434144441445414464144741448414494145041451414524145341454414554145641457414584145941460414614146241463414644146541466414674146841469414704147141472414734147441475414764147741478414794148041481414824148341484414854148641487414884148941490414914149241493414944149541496414974149841499415004150141502415034150441505415064150741508415094151041511415124151341514415154151641517415184151941520415214152241523415244152541526415274152841529415304153141532415334153441535415364153741538415394154041541415424154341544415454154641547415484154941550415514155241553415544155541556415574155841559415604156141562415634156441565415664156741568415694157041571415724157341574415754157641577415784157941580415814158241583415844158541586415874158841589415904159141592415934159441595415964159741598415994160041601416024160341604416054160641607416084160941610416114161241613416144161541616416174161841619416204162141622416234162441625416264162741628416294163041631416324163341634416354163641637416384163941640416414164241643416444164541646416474164841649416504165141652416534165441655416564165741658416594166041661416624166341664416654166641667416684166941670416714167241673416744167541676416774167841679416804168141682416834168441685416864168741688416894169041691416924169341694416954169641697416984169941700417014170241703417044170541706417074170841709417104171141712417134171441715417164171741718417194172041721417224172341724417254172641727417284172941730417314173241733417344173541736417374173841739417404174141742417434174441745417464174741748417494175041751417524175341754417554175641757417584175941760417614176241763417644176541766417674176841769417704177141772417734177441775417764177741778417794178041781417824178341784417854178641787417884178941790417914179241793417944179541796417974179841799418004180141802418034180441805418064180741808418094181041811418124181341814418154181641817418184181941820418214182241823418244182541826418274182841829418304183141832418334183441835418364183741838418394184041841418424184341844418454184641847418484184941850418514185241853418544185541856418574185841859418604186141862418634186441865418664186741868418694187041871418724187341874418754187641877418784187941880418814188241883418844188541886418874188841889418904189141892418934189441895418964189741898418994190041901419024190341904419054190641907419084190941910419114191241913419144191541916419174191841919419204192141922419234192441925419264192741928419294193041931419324193341934419354193641937419384193941940419414194241943419444194541946419474194841949419504195141952419534195441955419564195741958419594196041961419624196341964419654196641967419684196941970419714197241973419744197541976419774197841979419804198141982419834198441985419864198741988419894199041991419924199341994419954199641997419984199942000420014200242003420044200542006420074200842009420104201142012420134201442015420164201742018420194202042021420224202342024420254202642027420284202942030420314203242033420344203542036420374203842039420404204142042420434204442045420464204742048420494205042051420524205342054420554205642057420584205942060420614206242063420644206542066420674206842069420704207142072420734207442075420764207742078420794208042081420824208342084420854208642087420884208942090420914209242093420944209542096420974209842099421004210142102421034210442105421064210742108421094211042111421124211342114421154211642117421184211942120421214212242123421244212542126421274212842129421304213142132421334213442135421364213742138421394214042141421424214342144421454214642147421484214942150421514215242153421544215542156421574215842159421604216142162421634216442165421664216742168421694217042171421724217342174421754217642177421784217942180421814218242183421844218542186421874218842189421904219142192421934219442195421964219742198421994220042201422024220342204422054220642207422084220942210422114221242213422144221542216422174221842219422204222142222422234222442225422264222742228422294223042231422324223342234422354223642237422384223942240422414224242243422444224542246422474224842249422504225142252422534225442255422564225742258422594226042261422624226342264422654226642267422684226942270422714227242273422744227542276422774227842279422804228142282422834228442285422864228742288422894229042291422924229342294422954229642297422984229942300423014230242303423044230542306423074230842309423104231142312423134231442315423164231742318423194232042321423224232342324423254232642327423284232942330423314233242333423344233542336423374233842339423404234142342423434234442345423464234742348423494235042351423524235342354423554235642357423584235942360423614236242363423644236542366423674236842369423704237142372423734237442375423764237742378423794238042381423824238342384423854238642387423884238942390423914239242393423944239542396423974239842399424004240142402424034240442405424064240742408424094241042411424124241342414424154241642417424184241942420424214242242423424244242542426424274242842429424304243142432424334243442435424364243742438424394244042441424424244342444424454244642447424484244942450424514245242453424544245542456424574245842459424604246142462424634246442465424664246742468424694247042471424724247342474424754247642477424784247942480424814248242483424844248542486424874248842489424904249142492424934249442495424964249742498424994250042501425024250342504425054250642507425084250942510425114251242513425144251542516425174251842519425204252142522425234252442525425264252742528425294253042531425324253342534425354253642537425384253942540425414254242543425444254542546425474254842549425504255142552425534255442555425564255742558425594256042561425624256342564425654256642567425684256942570425714257242573425744257542576425774257842579425804258142582425834258442585425864258742588425894259042591425924259342594425954259642597425984259942600426014260242603426044260542606426074260842609426104261142612426134261442615426164261742618426194262042621426224262342624426254262642627426284262942630426314263242633426344263542636426374263842639426404264142642426434264442645426464264742648426494265042651426524265342654426554265642657426584265942660426614266242663426644266542666426674266842669426704267142672426734267442675426764267742678426794268042681426824268342684426854268642687426884268942690426914269242693426944269542696426974269842699427004270142702427034270442705427064270742708427094271042711427124271342714427154271642717427184271942720427214272242723427244272542726427274272842729427304273142732427334273442735427364273742738427394274042741427424274342744427454274642747427484274942750427514275242753427544275542756427574275842759427604276142762427634276442765427664276742768427694277042771427724277342774427754277642777427784277942780427814278242783427844278542786427874278842789427904279142792427934279442795427964279742798427994280042801428024280342804428054280642807428084280942810428114281242813428144281542816428174281842819428204282142822428234282442825428264282742828428294283042831428324283342834428354283642837428384283942840428414284242843428444284542846428474284842849428504285142852428534285442855428564285742858428594286042861428624286342864428654286642867428684286942870428714287242873428744287542876428774287842879428804288142882428834288442885428864288742888428894289042891428924289342894428954289642897428984289942900429014290242903429044290542906429074290842909429104291142912429134291442915429164291742918429194292042921429224292342924429254292642927429284292942930429314293242933429344293542936429374293842939429404294142942429434294442945429464294742948429494295042951429524295342954429554295642957429584295942960429614296242963429644296542966429674296842969429704297142972429734297442975429764297742978429794298042981429824298342984429854298642987429884298942990429914299242993429944299542996429974299842999430004300143002430034300443005430064300743008430094301043011430124301343014430154301643017430184301943020430214302243023430244302543026430274302843029430304303143032430334303443035430364303743038430394304043041430424304343044430454304643047430484304943050430514305243053430544305543056430574305843059430604306143062430634306443065430664306743068430694307043071430724307343074430754307643077430784307943080430814308243083430844308543086430874308843089430904309143092430934309443095430964309743098430994310043101431024310343104431054310643107431084310943110431114311243113431144311543116431174311843119431204312143122431234312443125431264312743128431294313043131431324313343134431354313643137431384313943140431414314243143431444314543146431474314843149431504315143152431534315443155431564315743158431594316043161431624316343164431654316643167431684316943170431714317243173431744317543176431774317843179431804318143182431834318443185431864318743188431894319043191431924319343194431954319643197431984319943200432014320243203432044320543206432074320843209432104321143212432134321443215432164321743218432194322043221432224322343224432254322643227432284322943230432314323243233432344323543236432374323843239432404324143242432434324443245432464324743248432494325043251432524325343254432554325643257432584325943260432614326243263432644326543266432674326843269432704327143272432734327443275432764327743278432794328043281432824328343284432854328643287432884328943290432914329243293432944329543296432974329843299433004330143302433034330443305433064330743308433094331043311433124331343314433154331643317433184331943320433214332243323433244332543326433274332843329433304333143332433334333443335433364333743338433394334043341433424334343344433454334643347433484334943350433514335243353433544335543356433574335843359433604336143362433634336443365433664336743368433694337043371433724337343374433754337643377433784337943380433814338243383433844338543386433874338843389433904339143392433934339443395433964339743398433994340043401434024340343404434054340643407434084340943410434114341243413434144341543416434174341843419434204342143422434234342443425434264342743428434294343043431434324343343434434354343643437434384343943440434414344243443434444344543446434474344843449434504345143452434534345443455434564345743458434594346043461434624346343464434654346643467434684346943470434714347243473434744347543476434774347843479434804348143482434834348443485434864348743488434894349043491434924349343494434954349643497434984349943500435014350243503435044350543506435074350843509435104351143512435134351443515435164351743518435194352043521435224352343524435254352643527435284352943530435314353243533435344353543536435374353843539435404354143542435434354443545435464354743548435494355043551435524355343554435554355643557435584355943560435614356243563435644356543566435674356843569435704357143572435734357443575435764357743578435794358043581435824358343584435854358643587435884358943590435914359243593435944359543596435974359843599436004360143602436034360443605436064360743608436094361043611436124361343614436154361643617436184361943620436214362243623436244362543626436274362843629436304363143632436334363443635436364363743638436394364043641436424364343644436454364643647436484364943650436514365243653436544365543656436574365843659436604366143662436634366443665436664366743668436694367043671436724367343674436754367643677436784367943680436814368243683436844368543686436874368843689436904369143692436934369443695436964369743698436994370043701437024370343704437054370643707437084370943710437114371243713437144371543716437174371843719437204372143722437234372443725437264372743728437294373043731437324373343734437354373643737437384373943740437414374243743437444374543746437474374843749437504375143752437534375443755437564375743758437594376043761437624376343764437654376643767437684376943770437714377243773437744377543776437774377843779437804378143782437834378443785437864378743788437894379043791437924379343794437954379643797437984379943800438014380243803438044380543806438074380843809438104381143812438134381443815438164381743818438194382043821438224382343824438254382643827438284382943830438314383243833438344383543836438374383843839438404384143842438434384443845438464384743848438494385043851438524385343854438554385643857438584385943860438614386243863438644386543866438674386843869438704387143872438734387443875438764387743878438794388043881438824388343884438854388643887438884388943890438914389243893438944389543896438974389843899439004390143902439034390443905439064390743908439094391043911439124391343914439154391643917439184391943920439214392243923439244392543926439274392843929439304393143932439334393443935439364393743938439394394043941439424394343944439454394643947439484394943950439514395243953439544395543956439574395843959439604396143962439634396443965439664396743968439694397043971439724397343974439754397643977439784397943980439814398243983439844398543986439874398843989439904399143992439934399443995439964399743998439994400044001440024400344004440054400644007440084400944010440114401244013440144401544016440174401844019440204402144022440234402444025440264402744028440294403044031440324403344034440354403644037440384403944040440414404244043440444404544046440474404844049440504405144052440534405444055440564405744058440594406044061440624406344064440654406644067440684406944070440714407244073440744407544076440774407844079440804408144082440834408444085440864408744088440894409044091440924409344094440954409644097440984409944100441014410244103441044410544106441074410844109441104411144112441134411444115441164411744118441194412044121441224412344124441254412644127441284412944130441314413244133441344413544136441374413844139441404414144142441434414444145441464414744148441494415044151441524415344154441554415644157441584415944160441614416244163441644416544166441674416844169441704417144172441734417444175441764417744178441794418044181441824418344184441854418644187441884418944190441914419244193441944419544196441974419844199442004420144202442034420444205442064420744208442094421044211442124421344214442154421644217442184421944220442214422244223442244422544226442274422844229442304423144232442334423444235442364423744238442394424044241442424424344244442454424644247442484424944250442514425244253442544425544256442574425844259442604426144262442634426444265442664426744268442694427044271442724427344274442754427644277442784427944280442814428244283442844428544286442874428844289442904429144292442934429444295442964429744298442994430044301443024430344304443054430644307443084430944310443114431244313443144431544316443174431844319443204432144322443234432444325443264432744328443294433044331443324433344334443354433644337443384433944340443414434244343443444434544346443474434844349443504435144352443534435444355443564435744358443594436044361443624436344364443654436644367443684436944370443714437244373443744437544376443774437844379443804438144382443834438444385443864438744388443894439044391443924439344394443954439644397443984439944400444014440244403444044440544406444074440844409444104441144412444134441444415444164441744418444194442044421444224442344424444254442644427444284442944430444314443244433444344443544436444374443844439444404444144442444434444444445444464444744448444494445044451444524445344454444554445644457444584445944460444614446244463444644446544466444674446844469444704447144472444734447444475444764447744478444794448044481444824448344484444854448644487444884448944490444914449244493444944449544496444974449844499445004450144502445034450444505445064450744508445094451044511445124451344514445154451644517445184451944520445214452244523445244452544526445274452844529445304453144532445334453444535445364453744538445394454044541445424454344544445454454644547445484454944550445514455244553445544455544556445574455844559445604456144562445634456444565445664456744568445694457044571445724457344574445754457644577445784457944580445814458244583445844458544586445874458844589445904459144592445934459444595445964459744598445994460044601446024460344604446054460644607446084460944610446114461244613446144461544616446174461844619446204462144622446234462444625446264462744628446294463044631446324463344634446354463644637446384463944640446414464244643446444464544646446474464844649446504465144652446534465444655446564465744658446594466044661446624466344664446654466644667446684466944670446714467244673446744467544676446774467844679446804468144682446834468444685446864468744688446894469044691446924469344694446954469644697446984469944700447014470244703447044470544706447074470844709447104471144712447134471444715447164471744718447194472044721447224472344724447254472644727447284472944730447314473244733447344473544736447374473844739447404474144742447434474444745447464474744748447494475044751447524475344754447554475644757447584475944760447614476244763447644476544766447674476844769447704477144772447734477444775447764477744778447794478044781447824478344784447854478644787447884478944790447914479244793447944479544796447974479844799448004480144802448034480444805448064480744808448094481044811448124481344814448154481644817448184481944820448214482244823448244482544826448274482844829448304483144832448334483444835448364483744838448394484044841448424484344844448454484644847448484484944850448514485244853448544485544856448574485844859448604486144862448634486444865448664486744868448694487044871448724487344874448754487644877448784487944880448814488244883448844488544886448874488844889448904489144892448934489444895448964489744898448994490044901449024490344904449054490644907449084490944910449114491244913449144491544916449174491844919449204492144922449234492444925449264492744928449294493044931449324493344934449354493644937449384493944940449414494244943449444494544946449474494844949449504495144952449534495444955449564495744958449594496044961449624496344964449654496644967449684496944970449714497244973449744497544976449774497844979449804498144982449834498444985449864498744988449894499044991449924499344994449954499644997449984499945000450014500245003450044500545006450074500845009450104501145012450134501445015450164501745018450194502045021450224502345024450254502645027450284502945030450314503245033450344503545036450374503845039450404504145042450434504445045450464504745048450494505045051450524505345054450554505645057450584505945060450614506245063450644506545066450674506845069450704507145072450734507445075450764507745078450794508045081450824508345084450854508645087450884508945090450914509245093450944509545096450974509845099451004510145102451034510445105451064510745108451094511045111451124511345114451154511645117451184511945120451214512245123451244512545126451274512845129451304513145132451334513445135451364513745138451394514045141451424514345144451454514645147451484514945150451514515245153451544515545156451574515845159451604516145162451634516445165451664516745168451694517045171451724517345174451754517645177451784517945180451814518245183451844518545186451874518845189451904519145192451934519445195451964519745198451994520045201452024520345204452054520645207452084520945210452114521245213452144521545216452174521845219452204522145222452234522445225452264522745228452294523045231452324523345234452354523645237452384523945240452414524245243452444524545246452474524845249452504525145252452534525445255452564525745258452594526045261452624526345264452654526645267452684526945270452714527245273452744527545276452774527845279452804528145282452834528445285452864528745288452894529045291452924529345294452954529645297452984529945300453014530245303453044530545306453074530845309453104531145312453134531445315453164531745318453194532045321453224532345324453254532645327453284532945330453314533245333453344533545336453374533845339453404534145342453434534445345453464534745348453494535045351453524535345354453554535645357453584535945360453614536245363453644536545366453674536845369453704537145372453734537445375453764537745378453794538045381453824538345384453854538645387453884538945390453914539245393453944539545396453974539845399454004540145402454034540445405454064540745408454094541045411454124541345414454154541645417454184541945420454214542245423454244542545426454274542845429454304543145432454334543445435454364543745438454394544045441454424544345444454454544645447454484544945450454514545245453454544545545456454574545845459454604546145462454634546445465454664546745468454694547045471454724547345474454754547645477454784547945480454814548245483454844548545486454874548845489454904549145492454934549445495454964549745498454994550045501455024550345504455054550645507455084550945510455114551245513455144551545516455174551845519455204552145522455234552445525455264552745528455294553045531455324553345534455354553645537455384553945540455414554245543455444554545546455474554845549455504555145552455534555445555455564555745558455594556045561455624556345564455654556645567455684556945570455714557245573455744557545576455774557845579455804558145582455834558445585455864558745588455894559045591455924559345594455954559645597455984559945600456014560245603456044560545606456074560845609456104561145612456134561445615456164561745618456194562045621456224562345624456254562645627456284562945630456314563245633456344563545636456374563845639456404564145642456434564445645456464564745648456494565045651456524565345654456554565645657456584565945660456614566245663456644566545666456674566845669456704567145672456734567445675456764567745678456794568045681456824568345684456854568645687456884568945690456914569245693456944569545696456974569845699457004570145702457034570445705457064570745708457094571045711457124571345714457154571645717457184571945720457214572245723457244572545726457274572845729457304573145732457334573445735457364573745738457394574045741457424574345744457454574645747457484574945750457514575245753457544575545756457574575845759457604576145762457634576445765457664576745768457694577045771457724577345774457754577645777457784577945780457814578245783457844578545786457874578845789457904579145792457934579445795457964579745798457994580045801458024580345804458054580645807458084580945810458114581245813458144581545816458174581845819458204582145822458234582445825458264582745828458294583045831458324583345834458354583645837458384583945840458414584245843458444584545846458474584845849458504585145852458534585445855458564585745858458594586045861458624586345864458654586645867458684586945870458714587245873458744587545876458774587845879458804588145882458834588445885458864588745888458894589045891458924589345894458954589645897458984589945900459014590245903459044590545906459074590845909459104591145912459134591445915459164591745918459194592045921459224592345924459254592645927459284592945930459314593245933459344593545936459374593845939459404594145942459434594445945459464594745948459494595045951459524595345954459554595645957459584595945960459614596245963459644596545966459674596845969459704597145972459734597445975459764597745978459794598045981459824598345984459854598645987459884598945990459914599245993459944599545996459974599845999460004600146002460034600446005460064600746008460094601046011460124601346014460154601646017460184601946020460214602246023460244602546026460274602846029460304603146032460334603446035460364603746038460394604046041460424604346044460454604646047460484604946050460514605246053460544605546056460574605846059460604606146062460634606446065460664606746068460694607046071460724607346074460754607646077460784607946080460814608246083460844608546086460874608846089460904609146092460934609446095460964609746098460994610046101461024610346104461054610646107461084610946110461114611246113461144611546116461174611846119461204612146122461234612446125461264612746128461294613046131461324613346134461354613646137461384613946140461414614246143461444614546146461474614846149461504615146152461534615446155461564615746158461594616046161461624616346164461654616646167461684616946170461714617246173461744617546176461774617846179461804618146182461834618446185461864618746188461894619046191461924619346194461954619646197461984619946200462014620246203462044620546206462074620846209462104621146212462134621446215462164621746218462194622046221462224622346224462254622646227462284622946230462314623246233462344623546236462374623846239462404624146242462434624446245462464624746248462494625046251462524625346254462554625646257462584625946260462614626246263462644626546266462674626846269462704627146272462734627446275462764627746278462794628046281462824628346284462854628646287462884628946290462914629246293462944629546296462974629846299463004630146302463034630446305463064630746308463094631046311463124631346314463154631646317463184631946320463214632246323463244632546326463274632846329463304633146332463334633446335463364633746338463394634046341463424634346344463454634646347463484634946350463514635246353463544635546356463574635846359463604636146362463634636446365463664636746368463694637046371463724637346374463754637646377463784637946380463814638246383463844638546386463874638846389463904639146392463934639446395463964639746398463994640046401464024640346404464054640646407464084640946410464114641246413464144641546416464174641846419464204642146422464234642446425464264642746428464294643046431464324643346434464354643646437464384643946440464414644246443464444644546446464474644846449464504645146452464534645446455464564645746458464594646046461464624646346464464654646646467464684646946470464714647246473464744647546476464774647846479464804648146482464834648446485464864648746488464894649046491464924649346494464954649646497464984649946500465014650246503465044650546506465074650846509465104651146512465134651446515465164651746518465194652046521465224652346524465254652646527465284652946530465314653246533465344653546536465374653846539465404654146542465434654446545465464654746548465494655046551465524655346554465554655646557465584655946560465614656246563465644656546566465674656846569465704657146572465734657446575465764657746578465794658046581465824658346584465854658646587465884658946590465914659246593465944659546596465974659846599466004660146602466034660446605466064660746608466094661046611466124661346614466154661646617466184661946620466214662246623466244662546626466274662846629466304663146632466334663446635466364663746638466394664046641466424664346644466454664646647466484664946650466514665246653466544665546656466574665846659466604666146662466634666446665466664666746668466694667046671466724667346674466754667646677466784667946680466814668246683466844668546686466874668846689466904669146692466934669446695466964669746698466994670046701467024670346704467054670646707467084670946710467114671246713467144671546716467174671846719467204672146722467234672446725467264672746728467294673046731467324673346734467354673646737467384673946740467414674246743467444674546746467474674846749467504675146752467534675446755467564675746758467594676046761467624676346764467654676646767467684676946770467714677246773467744677546776467774677846779467804678146782467834678446785467864678746788467894679046791467924679346794467954679646797467984679946800468014680246803468044680546806468074680846809468104681146812468134681446815468164681746818468194682046821468224682346824468254682646827468284682946830468314683246833468344683546836468374683846839468404684146842468434684446845468464684746848468494685046851468524685346854468554685646857468584685946860468614686246863468644686546866468674686846869468704687146872468734687446875468764687746878468794688046881468824688346884468854688646887468884688946890468914689246893468944689546896468974689846899469004690146902469034690446905469064690746908469094691046911469124691346914469154691646917469184691946920469214692246923469244692546926469274692846929469304693146932469334693446935469364693746938469394694046941469424694346944469454694646947469484694946950469514695246953469544695546956469574695846959469604696146962469634696446965469664696746968469694697046971469724697346974469754697646977469784697946980469814698246983469844698546986469874698846989469904699146992469934699446995469964699746998469994700047001470024700347004470054700647007470084700947010470114701247013470144701547016470174701847019470204702147022470234702447025470264702747028470294703047031470324703347034470354703647037470384703947040470414704247043470444704547046470474704847049470504705147052470534705447055470564705747058470594706047061470624706347064470654706647067470684706947070470714707247073470744707547076470774707847079470804708147082470834708447085470864708747088470894709047091470924709347094470954709647097470984709947100471014710247103471044710547106471074710847109471104711147112471134711447115471164711747118471194712047121471224712347124471254712647127471284712947130471314713247133471344713547136471374713847139471404714147142471434714447145471464714747148471494715047151471524715347154471554715647157471584715947160471614716247163471644716547166471674716847169471704717147172471734717447175471764717747178471794718047181471824718347184471854718647187471884718947190471914719247193471944719547196471974719847199472004720147202472034720447205472064720747208472094721047211472124721347214472154721647217472184721947220472214722247223472244722547226472274722847229472304723147232472334723447235472364723747238472394724047241472424724347244472454724647247472484724947250472514725247253472544725547256472574725847259472604726147262472634726447265472664726747268472694727047271472724727347274472754727647277472784727947280472814728247283472844728547286472874728847289472904729147292472934729447295472964729747298472994730047301473024730347304473054730647307473084730947310473114731247313473144731547316473174731847319473204732147322473234732447325473264732747328473294733047331473324733347334473354733647337473384733947340473414734247343473444734547346473474734847349473504735147352473534735447355473564735747358473594736047361473624736347364473654736647367473684736947370473714737247373473744737547376473774737847379473804738147382473834738447385473864738747388473894739047391473924739347394473954739647397473984739947400474014740247403474044740547406474074740847409474104741147412474134741447415474164741747418474194742047421474224742347424474254742647427474284742947430474314743247433474344743547436474374743847439474404744147442474434744447445474464744747448474494745047451474524745347454474554745647457474584745947460474614746247463474644746547466474674746847469474704747147472474734747447475474764747747478474794748047481474824748347484474854748647487474884748947490474914749247493474944749547496474974749847499475004750147502475034750447505475064750747508475094751047511475124751347514475154751647517475184751947520475214752247523475244752547526475274752847529475304753147532475334753447535475364753747538475394754047541475424754347544475454754647547475484754947550475514755247553475544755547556475574755847559475604756147562475634756447565475664756747568475694757047571475724757347574475754757647577475784757947580475814758247583475844758547586475874758847589475904759147592475934759447595475964759747598475994760047601476024760347604476054760647607476084760947610476114761247613476144761547616476174761847619476204762147622476234762447625476264762747628476294763047631476324763347634476354763647637476384763947640476414764247643476444764547646476474764847649476504765147652476534765447655476564765747658476594766047661476624766347664476654766647667476684766947670476714767247673476744767547676476774767847679476804768147682476834768447685476864768747688476894769047691476924769347694476954769647697476984769947700477014770247703477044770547706477074770847709477104771147712477134771447715477164771747718477194772047721477224772347724477254772647727477284772947730477314773247733477344773547736477374773847739477404774147742477434774447745477464774747748477494775047751477524775347754477554775647757477584775947760477614776247763477644776547766477674776847769477704777147772477734777447775477764777747778477794778047781477824778347784477854778647787477884778947790477914779247793477944779547796477974779847799478004780147802478034780447805478064780747808478094781047811478124781347814478154781647817478184781947820478214782247823478244782547826478274782847829478304783147832478334783447835478364783747838478394784047841478424784347844478454784647847478484784947850478514785247853478544785547856478574785847859478604786147862478634786447865478664786747868478694787047871478724787347874478754787647877478784787947880478814788247883478844788547886478874788847889478904789147892478934789447895478964789747898478994790047901479024790347904479054790647907479084790947910479114791247913479144791547916479174791847919479204792147922479234792447925479264792747928479294793047931479324793347934479354793647937479384793947940479414794247943479444794547946479474794847949479504795147952479534795447955479564795747958479594796047961479624796347964479654796647967479684796947970479714797247973479744797547976479774797847979479804798147982479834798447985479864798747988479894799047991479924799347994479954799647997479984799948000480014800248003480044800548006480074800848009480104801148012480134801448015480164801748018480194802048021480224802348024480254802648027480284802948030480314803248033480344803548036480374803848039480404804148042480434804448045480464804748048480494805048051480524805348054480554805648057480584805948060480614806248063480644806548066480674806848069480704807148072480734807448075480764807748078480794808048081480824808348084480854808648087480884808948090480914809248093480944809548096480974809848099481004810148102481034810448105481064810748108481094811048111481124811348114481154811648117481184811948120481214812248123481244812548126481274812848129481304813148132481334813448135481364813748138481394814048141481424814348144481454814648147481484814948150481514815248153481544815548156481574815848159481604816148162481634816448165481664816748168481694817048171481724817348174481754817648177481784817948180481814818248183481844818548186481874818848189481904819148192481934819448195481964819748198481994820048201482024820348204482054820648207482084820948210482114821248213482144821548216482174821848219482204822148222482234822448225482264822748228482294823048231482324823348234482354823648237482384823948240482414824248243482444824548246482474824848249482504825148252482534825448255482564825748258482594826048261482624826348264482654826648267482684826948270482714827248273482744827548276482774827848279482804828148282482834828448285482864828748288482894829048291482924829348294482954829648297482984829948300483014830248303483044830548306483074830848309483104831148312483134831448315483164831748318483194832048321483224832348324483254832648327483284832948330483314833248333483344833548336483374833848339483404834148342483434834448345483464834748348483494835048351483524835348354483554835648357483584835948360483614836248363483644836548366483674836848369483704837148372483734837448375483764837748378483794838048381483824838348384483854838648387483884838948390483914839248393483944839548396483974839848399484004840148402484034840448405484064840748408484094841048411484124841348414484154841648417484184841948420484214842248423484244842548426484274842848429484304843148432484334843448435484364843748438484394844048441484424844348444484454844648447484484844948450484514845248453484544845548456484574845848459484604846148462484634846448465484664846748468484694847048471484724847348474484754847648477484784847948480484814848248483484844848548486484874848848489484904849148492484934849448495484964849748498484994850048501485024850348504485054850648507485084850948510485114851248513485144851548516485174851848519485204852148522485234852448525485264852748528485294853048531485324853348534485354853648537485384853948540485414854248543485444854548546485474854848549485504855148552485534855448555485564855748558485594856048561485624856348564485654856648567485684856948570485714857248573485744857548576485774857848579485804858148582485834858448585485864858748588485894859048591485924859348594485954859648597485984859948600486014860248603486044860548606486074860848609486104861148612486134861448615486164861748618486194862048621486224862348624486254862648627486284862948630486314863248633486344863548636486374863848639486404864148642486434864448645486464864748648486494865048651486524865348654486554865648657486584865948660486614866248663486644866548666486674866848669486704867148672486734867448675486764867748678486794868048681486824868348684486854868648687486884868948690486914869248693486944869548696486974869848699487004870148702487034870448705487064870748708487094871048711487124871348714487154871648717487184871948720487214872248723487244872548726487274872848729487304873148732487334873448735487364873748738487394874048741487424874348744487454874648747487484874948750487514875248753487544875548756487574875848759487604876148762487634876448765487664876748768487694877048771487724877348774487754877648777487784877948780487814878248783487844878548786487874878848789487904879148792487934879448795487964879748798487994880048801488024880348804488054880648807488084880948810488114881248813488144881548816488174881848819488204882148822488234882448825488264882748828488294883048831488324883348834488354883648837488384883948840488414884248843488444884548846488474884848849488504885148852488534885448855488564885748858488594886048861488624886348864488654886648867488684886948870488714887248873488744887548876488774887848879488804888148882488834888448885488864888748888488894889048891488924889348894488954889648897488984889948900489014890248903489044890548906489074890848909489104891148912489134891448915489164891748918489194892048921489224892348924489254892648927489284892948930489314893248933489344893548936489374893848939489404894148942489434894448945489464894748948489494895048951489524895348954489554895648957489584895948960489614896248963489644896548966489674896848969489704897148972489734897448975489764897748978489794898048981489824898348984489854898648987489884898948990489914899248993489944899548996489974899848999490004900149002490034900449005490064900749008490094901049011490124901349014490154901649017490184901949020490214902249023490244902549026490274902849029490304903149032490334903449035490364903749038490394904049041490424904349044490454904649047490484904949050490514905249053490544905549056490574905849059490604906149062490634906449065490664906749068490694907049071490724907349074490754907649077490784907949080490814908249083490844908549086490874908849089490904909149092490934909449095490964909749098490994910049101491024910349104491054910649107491084910949110491114911249113491144911549116491174911849119491204912149122491234912449125491264912749128491294913049131491324913349134491354913649137491384913949140491414914249143491444914549146491474914849149491504915149152491534915449155491564915749158491594916049161491624916349164491654916649167491684916949170491714917249173491744917549176491774917849179491804918149182491834918449185491864918749188491894919049191491924919349194491954919649197491984919949200492014920249203492044920549206492074920849209492104921149212492134921449215492164921749218492194922049221492224922349224492254922649227492284922949230492314923249233492344923549236492374923849239492404924149242492434924449245492464924749248492494925049251492524925349254492554925649257492584925949260492614926249263492644926549266492674926849269492704927149272492734927449275492764927749278492794928049281492824928349284492854928649287492884928949290492914929249293492944929549296492974929849299493004930149302493034930449305493064930749308493094931049311493124931349314493154931649317493184931949320493214932249323493244932549326493274932849329493304933149332493334933449335493364933749338493394934049341493424934349344493454934649347493484934949350493514935249353493544935549356493574935849359493604936149362493634936449365493664936749368493694937049371493724937349374493754937649377493784937949380493814938249383493844938549386493874938849389493904939149392493934939449395493964939749398493994940049401494024940349404494054940649407494084940949410494114941249413494144941549416494174941849419494204942149422494234942449425494264942749428494294943049431494324943349434494354943649437494384943949440494414944249443494444944549446494474944849449494504945149452494534945449455494564945749458494594946049461494624946349464494654946649467494684946949470494714947249473494744947549476494774947849479494804948149482494834948449485494864948749488494894949049491494924949349494494954949649497494984949949500495014950249503495044950549506495074950849509495104951149512495134951449515495164951749518495194952049521495224952349524495254952649527495284952949530495314953249533495344953549536495374953849539495404954149542495434954449545495464954749548495494955049551495524955349554495554955649557495584955949560495614956249563495644956549566495674956849569495704957149572495734957449575495764957749578495794958049581495824958349584495854958649587495884958949590495914959249593495944959549596495974959849599496004960149602496034960449605496064960749608496094961049611496124961349614496154961649617496184961949620496214962249623496244962549626496274962849629496304963149632496334963449635496364963749638496394964049641496424964349644496454964649647496484964949650496514965249653496544965549656496574965849659496604966149662496634966449665496664966749668496694967049671496724967349674496754967649677496784967949680496814968249683496844968549686496874968849689496904969149692496934969449695496964969749698496994970049701497024970349704497054970649707497084970949710497114971249713497144971549716497174971849719497204972149722497234972449725497264972749728497294973049731497324973349734497354973649737497384973949740497414974249743497444974549746497474974849749497504975149752497534975449755497564975749758497594976049761497624976349764497654976649767497684976949770497714977249773497744977549776497774977849779497804978149782497834978449785497864978749788497894979049791497924979349794497954979649797497984979949800498014980249803498044980549806498074980849809498104981149812498134981449815498164981749818498194982049821498224982349824498254982649827498284982949830498314983249833498344983549836498374983849839498404984149842498434984449845498464984749848498494985049851498524985349854498554985649857498584985949860498614986249863498644986549866498674986849869498704987149872498734987449875498764987749878498794988049881498824988349884498854988649887498884988949890498914989249893498944989549896498974989849899499004990149902499034990449905499064990749908499094991049911499124991349914499154991649917499184991949920499214992249923499244992549926499274992849929499304993149932499334993449935499364993749938499394994049941499424994349944499454994649947499484994949950499514995249953499544995549956499574995849959499604996149962499634996449965499664996749968499694997049971499724997349974499754997649977499784997949980499814998249983499844998549986499874998849989499904999149992499934999449995499964999749998499995000050001500025000350004500055000650007500085000950010500115001250013500145001550016500175001850019500205002150022500235002450025500265002750028500295003050031500325003350034500355003650037500385003950040500415004250043500445004550046500475004850049500505005150052500535005450055500565005750058500595006050061500625006350064500655006650067500685006950070500715007250073500745007550076500775007850079500805008150082500835008450085500865008750088500895009050091500925009350094500955009650097500985009950100501015010250103501045010550106501075010850109501105011150112501135011450115501165011750118501195012050121501225012350124501255012650127501285012950130501315013250133501345013550136501375013850139501405014150142501435014450145501465014750148501495015050151501525015350154501555015650157501585015950160501615016250163501645016550166501675016850169501705017150172501735017450175501765017750178501795018050181501825018350184501855018650187501885018950190501915019250193501945019550196501975019850199502005020150202502035020450205502065020750208502095021050211502125021350214502155021650217502185021950220502215022250223502245022550226502275022850229502305023150232502335023450235502365023750238502395024050241502425024350244502455024650247502485024950250502515025250253502545025550256502575025850259502605026150262502635026450265502665026750268502695027050271502725027350274502755027650277502785027950280502815028250283502845028550286502875028850289502905029150292502935029450295502965029750298502995030050301503025030350304503055030650307503085030950310503115031250313503145031550316503175031850319503205032150322503235032450325503265032750328503295033050331503325033350334503355033650337503385033950340503415034250343503445034550346503475034850349503505035150352503535035450355503565035750358503595036050361503625036350364503655036650367503685036950370503715037250373503745037550376503775037850379503805038150382503835038450385503865038750388503895039050391503925039350394503955039650397503985039950400504015040250403504045040550406504075040850409504105041150412504135041450415504165041750418504195042050421504225042350424504255042650427504285042950430504315043250433504345043550436504375043850439504405044150442504435044450445504465044750448504495045050451504525045350454504555045650457504585045950460504615046250463504645046550466504675046850469504705047150472504735047450475504765047750478504795048050481504825048350484504855048650487504885048950490504915049250493504945049550496504975049850499505005050150502505035050450505505065050750508505095051050511505125051350514505155051650517505185051950520505215052250523505245052550526505275052850529505305053150532505335053450535505365053750538505395054050541505425054350544505455054650547505485054950550505515055250553505545055550556505575055850559505605056150562505635056450565505665056750568505695057050571505725057350574505755057650577505785057950580505815058250583505845058550586505875058850589505905059150592505935059450595505965059750598505995060050601506025060350604506055060650607506085060950610506115061250613506145061550616506175061850619506205062150622506235062450625506265062750628506295063050631506325063350634506355063650637506385063950640506415064250643506445064550646506475064850649506505065150652506535065450655506565065750658506595066050661506625066350664506655066650667506685066950670506715067250673506745067550676506775067850679506805068150682506835068450685506865068750688506895069050691506925069350694506955069650697506985069950700507015070250703507045070550706507075070850709507105071150712507135071450715507165071750718507195072050721507225072350724507255072650727507285072950730507315073250733507345073550736507375073850739507405074150742507435074450745507465074750748507495075050751507525075350754507555075650757507585075950760507615076250763507645076550766507675076850769507705077150772507735077450775507765077750778507795078050781507825078350784507855078650787507885078950790507915079250793507945079550796507975079850799508005080150802508035080450805508065080750808508095081050811508125081350814508155081650817508185081950820508215082250823508245082550826508275082850829508305083150832508335083450835508365083750838508395084050841508425084350844508455084650847508485084950850508515085250853508545085550856508575085850859508605086150862508635086450865508665086750868508695087050871508725087350874508755087650877508785087950880508815088250883508845088550886508875088850889508905089150892508935089450895508965089750898508995090050901509025090350904509055090650907509085090950910509115091250913509145091550916509175091850919509205092150922509235092450925509265092750928509295093050931509325093350934509355093650937509385093950940509415094250943509445094550946509475094850949509505095150952509535095450955509565095750958509595096050961509625096350964509655096650967509685096950970509715097250973509745097550976509775097850979509805098150982509835098450985509865098750988509895099050991509925099350994509955099650997509985099951000510015100251003510045100551006510075100851009510105101151012510135101451015510165101751018510195102051021510225102351024510255102651027510285102951030510315103251033510345103551036510375103851039510405104151042510435104451045510465104751048510495105051051510525105351054510555105651057510585105951060510615106251063510645106551066510675106851069510705107151072510735107451075510765107751078510795108051081510825108351084510855108651087510885108951090510915109251093510945109551096510975109851099511005110151102511035110451105511065110751108511095111051111511125111351114511155111651117511185111951120511215112251123511245112551126511275112851129511305113151132511335113451135511365113751138511395114051141511425114351144511455114651147511485114951150511515115251153511545115551156511575115851159511605116151162511635116451165511665116751168511695117051171511725117351174511755117651177511785117951180511815118251183511845118551186511875118851189511905119151192511935119451195511965119751198511995120051201512025120351204512055120651207512085120951210512115121251213512145121551216512175121851219512205122151222512235122451225512265122751228512295123051231512325123351234512355123651237512385123951240512415124251243512445124551246512475124851249512505125151252512535125451255512565125751258512595126051261512625126351264512655126651267512685126951270512715127251273512745127551276512775127851279512805128151282512835128451285512865128751288512895129051291512925129351294512955129651297512985129951300513015130251303513045130551306513075130851309513105131151312513135131451315513165131751318513195132051321513225132351324513255132651327513285132951330513315133251333513345133551336513375133851339513405134151342513435134451345513465134751348513495135051351513525135351354513555135651357513585135951360513615136251363513645136551366513675136851369513705137151372513735137451375513765137751378513795138051381513825138351384513855138651387513885138951390513915139251393513945139551396513975139851399514005140151402514035140451405514065140751408514095141051411514125141351414514155141651417514185141951420514215142251423514245142551426514275142851429514305143151432514335143451435514365143751438514395144051441514425144351444514455144651447514485144951450514515145251453514545145551456514575145851459514605146151462514635146451465514665146751468514695147051471514725147351474514755147651477514785147951480514815148251483514845148551486514875148851489514905149151492514935149451495514965149751498514995150051501515025150351504515055150651507515085150951510515115151251513515145151551516515175151851519515205152151522515235152451525515265152751528515295153051531515325153351534515355153651537515385153951540515415154251543515445154551546515475154851549515505155151552515535155451555515565155751558515595156051561515625156351564515655156651567515685156951570515715157251573515745157551576515775157851579515805158151582515835158451585515865158751588515895159051591515925159351594515955159651597515985159951600516015160251603516045160551606516075160851609516105161151612516135161451615516165161751618516195162051621516225162351624516255162651627516285162951630516315163251633516345163551636516375163851639516405164151642516435164451645516465164751648516495165051651516525165351654516555165651657516585165951660516615166251663516645166551666516675166851669516705167151672516735167451675516765167751678516795168051681516825168351684516855168651687516885168951690516915169251693516945169551696516975169851699517005170151702517035170451705517065170751708517095171051711517125171351714517155171651717517185171951720517215172251723517245172551726517275172851729517305173151732517335173451735517365173751738517395174051741517425174351744517455174651747517485174951750517515175251753517545175551756517575175851759517605176151762517635176451765517665176751768517695177051771517725177351774517755177651777517785177951780517815178251783517845178551786517875178851789517905179151792517935179451795517965179751798517995180051801518025180351804518055180651807518085180951810518115181251813518145181551816518175181851819518205182151822518235182451825518265182751828518295183051831518325183351834518355183651837518385183951840518415184251843518445184551846518475184851849518505185151852518535185451855518565185751858518595186051861518625186351864518655186651867518685186951870518715187251873518745187551876518775187851879518805188151882518835188451885518865188751888518895189051891518925189351894518955189651897518985189951900519015190251903519045190551906519075190851909519105191151912519135191451915519165191751918519195192051921519225192351924519255192651927519285192951930519315193251933519345193551936519375193851939519405194151942519435194451945519465194751948519495195051951519525195351954519555195651957519585195951960519615196251963519645196551966519675196851969519705197151972519735197451975519765197751978519795198051981519825198351984519855198651987519885198951990519915199251993519945199551996519975199851999520005200152002520035200452005520065200752008520095201052011520125201352014520155201652017520185201952020520215202252023520245202552026520275202852029520305203152032520335203452035520365203752038520395204052041520425204352044520455204652047520485204952050520515205252053520545205552056520575205852059520605206152062520635206452065520665206752068520695207052071520725207352074520755207652077520785207952080520815208252083520845208552086520875208852089520905209152092520935209452095520965209752098520995210052101521025210352104521055210652107521085210952110521115211252113521145211552116521175211852119521205212152122521235212452125521265212752128521295213052131521325213352134521355213652137521385213952140521415214252143521445214552146521475214852149521505215152152521535215452155521565215752158521595216052161521625216352164521655216652167521685216952170521715217252173521745217552176521775217852179521805218152182521835218452185521865218752188521895219052191521925219352194521955219652197521985219952200522015220252203522045220552206522075220852209522105221152212522135221452215522165221752218522195222052221522225222352224522255222652227522285222952230522315223252233522345223552236522375223852239522405224152242522435224452245522465224752248522495225052251522525225352254522555225652257522585225952260522615226252263522645226552266522675226852269522705227152272522735227452275522765227752278522795228052281522825228352284522855228652287522885228952290522915229252293522945229552296522975229852299523005230152302523035230452305523065230752308523095231052311523125231352314523155231652317523185231952320523215232252323523245232552326523275232852329523305233152332523335233452335523365233752338523395234052341523425234352344523455234652347523485234952350523515235252353523545235552356523575235852359523605236152362523635236452365523665236752368523695237052371523725237352374523755237652377523785237952380523815238252383523845238552386523875238852389523905239152392523935239452395523965239752398523995240052401524025240352404524055240652407524085240952410524115241252413524145241552416524175241852419524205242152422524235242452425524265242752428524295243052431524325243352434524355243652437524385243952440524415244252443524445244552446524475244852449524505245152452524535245452455524565245752458524595246052461524625246352464524655246652467524685246952470524715247252473524745247552476524775247852479524805248152482524835248452485524865248752488524895249052491524925249352494524955249652497524985249952500525015250252503525045250552506525075250852509525105251152512525135251452515525165251752518525195252052521525225252352524525255252652527525285252952530525315253252533525345253552536525375253852539525405254152542525435254452545525465254752548525495255052551525525255352554525555255652557525585255952560525615256252563525645256552566525675256852569525705257152572525735257452575525765257752578525795258052581525825258352584525855258652587525885258952590525915259252593525945259552596525975259852599526005260152602526035260452605526065260752608526095261052611526125261352614526155261652617526185261952620526215262252623526245262552626526275262852629526305263152632526335263452635526365263752638526395264052641526425264352644526455264652647526485264952650526515265252653526545265552656526575265852659526605266152662526635266452665526665266752668526695267052671526725267352674526755267652677526785267952680526815268252683526845268552686526875268852689526905269152692526935269452695526965269752698526995270052701527025270352704527055270652707527085270952710527115271252713527145271552716527175271852719527205272152722527235272452725527265272752728527295273052731527325273352734527355273652737527385273952740527415274252743527445274552746527475274852749527505275152752527535275452755527565275752758527595276052761527625276352764527655276652767527685276952770527715277252773527745277552776527775277852779527805278152782527835278452785527865278752788527895279052791527925279352794527955279652797527985279952800528015280252803528045280552806528075280852809528105281152812528135281452815528165281752818528195282052821528225282352824528255282652827528285282952830528315283252833528345283552836528375283852839528405284152842528435284452845528465284752848528495285052851528525285352854528555285652857528585285952860528615286252863528645286552866528675286852869528705287152872528735287452875528765287752878528795288052881528825288352884528855288652887528885288952890528915289252893528945289552896528975289852899529005290152902529035290452905529065290752908529095291052911529125291352914529155291652917529185291952920529215292252923529245292552926529275292852929529305293152932529335293452935529365293752938529395294052941529425294352944529455294652947529485294952950529515295252953529545295552956529575295852959529605296152962529635296452965529665296752968529695297052971529725297352974529755297652977529785297952980529815298252983529845298552986529875298852989529905299152992529935299452995529965299752998529995300053001530025300353004530055300653007530085300953010530115301253013530145301553016530175301853019530205302153022530235302453025530265302753028530295303053031530325303353034530355303653037530385303953040530415304253043530445304553046530475304853049530505305153052530535305453055530565305753058530595306053061530625306353064530655306653067530685306953070530715307253073530745307553076530775307853079530805308153082530835308453085530865308753088530895309053091530925309353094530955309653097530985309953100531015310253103531045310553106531075310853109531105311153112531135311453115531165311753118531195312053121531225312353124531255312653127531285312953130531315313253133531345313553136531375313853139531405314153142531435314453145531465314753148531495315053151531525315353154531555315653157531585315953160531615316253163531645316553166531675316853169531705317153172531735317453175531765317753178531795318053181531825318353184531855318653187531885318953190531915319253193531945319553196531975319853199532005320153202532035320453205532065320753208532095321053211532125321353214532155321653217532185321953220532215322253223532245322553226532275322853229532305323153232532335323453235532365323753238532395324053241532425324353244532455324653247532485324953250532515325253253532545325553256532575325853259532605326153262532635326453265532665326753268532695327053271532725327353274532755327653277532785327953280532815328253283532845328553286532875328853289532905329153292532935329453295532965329753298532995330053301533025330353304533055330653307533085330953310533115331253313533145331553316533175331853319533205332153322533235332453325533265332753328533295333053331533325333353334533355333653337533385333953340533415334253343533445334553346533475334853349533505335153352533535335453355533565335753358533595336053361533625336353364533655336653367533685336953370533715337253373533745337553376533775337853379533805338153382533835338453385533865338753388533895339053391533925339353394533955339653397533985339953400534015340253403534045340553406534075340853409534105341153412534135341453415534165341753418534195342053421534225342353424534255342653427534285342953430534315343253433534345343553436534375343853439534405344153442534435344453445534465344753448534495345053451534525345353454534555345653457534585345953460534615346253463534645346553466534675346853469534705347153472534735347453475534765347753478534795348053481534825348353484534855348653487534885348953490534915349253493534945349553496534975349853499535005350153502535035350453505535065350753508535095351053511535125351353514535155351653517535185351953520535215352253523535245352553526535275352853529535305353153532535335353453535535365353753538535395354053541535425354353544535455354653547535485354953550535515355253553535545355553556535575355853559535605356153562535635356453565535665356753568535695357053571535725357353574535755357653577535785357953580535815358253583535845358553586535875358853589535905359153592535935359453595535965359753598535995360053601536025360353604536055360653607536085360953610536115361253613536145361553616536175361853619536205362153622536235362453625536265362753628536295363053631536325363353634536355363653637536385363953640536415364253643536445364553646536475364853649536505365153652536535365453655536565365753658536595366053661536625366353664536655366653667536685366953670536715367253673536745367553676536775367853679536805368153682536835368453685536865368753688536895369053691536925369353694536955369653697536985369953700537015370253703537045370553706537075370853709537105371153712537135371453715537165371753718537195372053721537225372353724537255372653727537285372953730537315373253733537345373553736537375373853739537405374153742537435374453745537465374753748537495375053751537525375353754537555375653757537585375953760537615376253763537645376553766537675376853769537705377153772537735377453775537765377753778537795378053781537825378353784537855378653787537885378953790537915379253793537945379553796537975379853799538005380153802538035380453805538065380753808538095381053811538125381353814538155381653817538185381953820538215382253823538245382553826538275382853829538305383153832538335383453835538365383753838538395384053841538425384353844538455384653847538485384953850538515385253853538545385553856538575385853859538605386153862538635386453865538665386753868538695387053871538725387353874538755387653877538785387953880538815388253883538845388553886538875388853889538905389153892538935389453895538965389753898538995390053901539025390353904539055390653907539085390953910539115391253913539145391553916539175391853919539205392153922539235392453925539265392753928539295393053931539325393353934539355393653937539385393953940539415394253943539445394553946539475394853949539505395153952539535395453955539565395753958539595396053961539625396353964539655396653967539685396953970539715397253973539745397553976539775397853979539805398153982539835398453985539865398753988539895399053991539925399353994539955399653997539985399954000540015400254003540045400554006540075400854009540105401154012540135401454015540165401754018540195402054021540225402354024540255402654027540285402954030540315403254033540345403554036540375403854039540405404154042540435404454045540465404754048540495405054051540525405354054540555405654057540585405954060540615406254063540645406554066540675406854069540705407154072540735407454075540765407754078540795408054081540825408354084540855408654087540885408954090540915409254093540945409554096540975409854099541005410154102541035410454105541065410754108541095411054111541125411354114541155411654117541185411954120541215412254123541245412554126541275412854129541305413154132541335413454135541365413754138541395414054141541425414354144541455414654147541485414954150541515415254153541545415554156541575415854159541605416154162541635416454165541665416754168541695417054171541725417354174541755417654177541785417954180541815418254183541845418554186541875418854189541905419154192541935419454195541965419754198541995420054201542025420354204542055420654207542085420954210542115421254213542145421554216542175421854219542205422154222542235422454225542265422754228542295423054231542325423354234542355423654237542385423954240542415424254243542445424554246542475424854249542505425154252542535425454255542565425754258542595426054261542625426354264542655426654267542685426954270542715427254273542745427554276542775427854279542805428154282542835428454285542865428754288542895429054291542925429354294542955429654297542985429954300543015430254303543045430554306543075430854309543105431154312543135431454315543165431754318543195432054321543225432354324543255432654327543285432954330543315433254333543345433554336543375433854339543405434154342543435434454345543465434754348543495435054351543525435354354543555435654357543585435954360543615436254363543645436554366543675436854369543705437154372543735437454375543765437754378543795438054381543825438354384543855438654387543885438954390543915439254393543945439554396543975439854399544005440154402544035440454405544065440754408544095441054411544125441354414544155441654417544185441954420544215442254423544245442554426544275442854429544305443154432544335443454435544365443754438544395444054441544425444354444544455444654447544485444954450544515445254453544545445554456544575445854459544605446154462544635446454465544665446754468544695447054471544725447354474544755447654477544785447954480544815448254483544845448554486544875448854489544905449154492544935449454495544965449754498544995450054501545025450354504545055450654507545085450954510545115451254513545145451554516545175451854519545205452154522545235452454525545265452754528545295453054531545325453354534545355453654537545385453954540545415454254543545445454554546545475454854549545505455154552545535455454555545565455754558545595456054561545625456354564545655456654567545685456954570545715457254573545745457554576545775457854579545805458154582545835458454585545865458754588545895459054591545925459354594545955459654597545985459954600546015460254603546045460554606546075460854609546105461154612546135461454615546165461754618546195462054621546225462354624546255462654627546285462954630546315463254633546345463554636546375463854639546405464154642546435464454645546465464754648546495465054651546525465354654546555465654657546585465954660546615466254663546645466554666546675466854669546705467154672546735467454675546765467754678546795468054681546825468354684546855468654687546885468954690546915469254693546945469554696546975469854699547005470154702547035470454705547065470754708547095471054711547125471354714547155471654717547185471954720547215472254723547245472554726547275472854729547305473154732547335473454735547365473754738547395474054741547425474354744547455474654747547485474954750547515475254753547545475554756547575475854759547605476154762547635476454765547665476754768547695477054771547725477354774547755477654777547785477954780547815478254783547845478554786547875478854789547905479154792547935479454795547965479754798547995480054801548025480354804548055480654807548085480954810548115481254813548145481554816548175481854819548205482154822548235482454825548265482754828548295483054831548325483354834548355483654837548385483954840548415484254843548445484554846548475484854849548505485154852548535485454855548565485754858548595486054861548625486354864548655486654867548685486954870548715487254873548745487554876548775487854879548805488154882548835488454885548865488754888548895489054891548925489354894548955489654897548985489954900549015490254903549045490554906549075490854909549105491154912549135491454915549165491754918549195492054921549225492354924549255492654927549285492954930549315493254933549345493554936549375493854939549405494154942549435494454945549465494754948549495495054951549525495354954549555495654957549585495954960549615496254963549645496554966549675496854969549705497154972549735497454975549765497754978549795498054981549825498354984549855498654987549885498954990549915499254993549945499554996549975499854999550005500155002550035500455005550065500755008550095501055011550125501355014550155501655017550185501955020550215502255023550245502555026550275502855029550305503155032550335503455035550365503755038550395504055041550425504355044550455504655047550485504955050550515505255053550545505555056550575505855059550605506155062550635506455065550665506755068550695507055071550725507355074550755507655077550785507955080550815508255083550845508555086550875508855089550905509155092550935509455095550965509755098550995510055101551025510355104551055510655107551085510955110551115511255113551145511555116551175511855119551205512155122551235512455125551265512755128551295513055131551325513355134551355513655137551385513955140551415514255143551445514555146551475514855149551505515155152551535515455155551565515755158551595516055161551625516355164551655516655167551685516955170551715517255173551745517555176551775517855179551805518155182551835518455185551865518755188551895519055191551925519355194551955519655197551985519955200552015520255203552045520555206552075520855209552105521155212552135521455215552165521755218552195522055221552225522355224552255522655227552285522955230552315523255233552345523555236552375523855239552405524155242552435524455245552465524755248552495525055251552525525355254552555525655257552585525955260552615526255263552645526555266552675526855269552705527155272552735527455275552765527755278552795528055281552825528355284552855528655287552885528955290552915529255293552945529555296552975529855299553005530155302553035530455305553065530755308553095531055311553125531355314553155531655317553185531955320553215532255323553245532555326553275532855329553305533155332553335533455335553365533755338553395534055341553425534355344553455534655347553485534955350553515535255353553545535555356553575535855359553605536155362553635536455365553665536755368553695537055371553725537355374553755537655377553785537955380553815538255383553845538555386553875538855389553905539155392553935539455395553965539755398553995540055401554025540355404554055540655407554085540955410554115541255413554145541555416554175541855419554205542155422554235542455425554265542755428554295543055431554325543355434554355543655437554385543955440554415544255443554445544555446554475544855449554505545155452554535545455455554565545755458554595546055461554625546355464554655546655467554685546955470554715547255473554745547555476554775547855479554805548155482554835548455485554865548755488554895549055491554925549355494554955549655497554985549955500555015550255503555045550555506555075550855509555105551155512555135551455515555165551755518555195552055521555225552355524555255552655527555285552955530555315553255533555345553555536555375553855539555405554155542555435554455545555465554755548555495555055551555525555355554555555555655557555585555955560555615556255563555645556555566555675556855569555705557155572555735557455575555765557755578555795558055581555825558355584555855558655587555885558955590555915559255593555945559555596555975559855599556005560155602556035560455605556065560755608556095561055611556125561355614556155561655617556185561955620556215562255623556245562555626556275562855629 |
- unit pic32mx330f064l;
- 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;
- RPF3R : longWord;
- RPF4R : longWord;
- RPF5R : longWord;
- RPF6R : 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 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 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 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;
- 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 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 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 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 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;
- 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 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 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 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 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;
- TPCACHE_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;
- TPCACHE_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
- 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;
- ANSELAbits : TPCACHE_ANSELA;
- ANSELA : longWord;
- ANSELACLR : longWord;
- ANSELASET : longWord;
- ANSELAINV : longWord;
- TRISAbits : TPCACHE_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 getTRISF6 : TBits_1; inline;
- function getTRISF7 : 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 setTRISF6(thebits : TBits_1); inline;
- procedure setTRISF7(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 clearTRISF6; inline;
- procedure clearTRISF7; 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 setTRISF6; inline;
- procedure setTRISF7; 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 TRISF6 : TBits_1 read getTRISF6 write setTRISF6;
- property TRISF7 : TBits_1 read getTRISF7 write setTRISF7;
- 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 getRF6 : TBits_1; inline;
- function getRF7 : 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 setRF6(thebits : TBits_1); inline;
- procedure setRF7(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 clearRF6; inline;
- procedure clearRF7; 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 setRF6; inline;
- procedure setRF7; 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 RF6 : TBits_1 read getRF6 write setRF6;
- property RF7 : TBits_1 read getRF7 write setRF7;
- 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,RF6=6,RF7=7,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 getLATF6 : TBits_1; inline;
- function getLATF7 : 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 setLATF6(thebits : TBits_1); inline;
- procedure setLATF7(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 clearLATF6; inline;
- procedure clearLATF7; 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 setLATF6; inline;
- procedure setLATF7; 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 LATF6 : TBits_1 read getLATF6 write setLATF6;
- property LATF7 : TBits_1 read getLATF7 write setLATF7;
- 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 getODCF6 : TBits_1; inline;
- function getODCF7 : 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 setODCF6(thebits : TBits_1); inline;
- procedure setODCF7(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 clearODCF6; inline;
- procedure clearODCF7; 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 setODCF6; inline;
- procedure setODCF7; 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 ODCF6 : TBits_1 read getODCF6 write setODCF6;
- property ODCF7 : TBits_1 read getODCF7 write setODCF7;
- 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 getCNPUF6 : TBits_1; inline;
- function getCNPUF7 : 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 setCNPUF6(thebits : TBits_1); inline;
- procedure setCNPUF7(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 clearCNPUF6; inline;
- procedure clearCNPUF7; 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 setCNPUF6; inline;
- procedure setCNPUF7; 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 CNPUF6 : TBits_1 read getCNPUF6 write setCNPUF6;
- property CNPUF7 : TBits_1 read getCNPUF7 write setCNPUF7;
- 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 getCNPDF6 : TBits_1; inline;
- function getCNPDF7 : 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 setCNPDF6(thebits : TBits_1); inline;
- procedure setCNPDF7(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 clearCNPDF6; inline;
- procedure clearCNPDF7; 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 setCNPDF6; inline;
- procedure setCNPDF7; 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 CNPDF6 : TBits_1 read getCNPDF6 write setCNPDF6;
- property CNPDF7 : TBits_1 read getCNPDF7 write setCNPDF7;
- 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 getCNIEF6 : TBits_1; inline;
- function getCNIEF7 : 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 setCNIEF6(thebits : TBits_1); inline;
- procedure setCNIEF7(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 clearCNIEF6; inline;
- procedure clearCNIEF7; 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 setCNIEF6; inline;
- procedure setCNIEF7; 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 CNIEF6 : TBits_1 read getCNIEF6 write setCNIEF6;
- property CNIEF7 : TBits_1 read getCNIEF7 write setCNIEF7;
- 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 getCNSTATF6 : TBits_1; inline;
- function getCNSTATF7 : 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 setCNSTATF6(thebits : TBits_1); inline;
- procedure setCNSTATF7(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 clearCNSTATF6; inline;
- procedure clearCNSTATF7; 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 setCNSTATF6; inline;
- procedure setCNSTATF7; 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 CNSTATF6 : TBits_1 read getCNSTATF6 write setCNSTATF6;
- property CNSTATF7 : TBits_1 read getCNSTATF7 write setCNSTATF7;
- 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 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 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 clearIOL1WAY; inline;
- procedure clearPMDL1WAY; inline;
- procedure setIOL1WAY; inline;
- procedure setPMDL1WAY; inline;
- property FSRSSEL : TBits_3 read getFSRSSEL write setFSRSSEL;
- 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 getw : TBits_32; inline;
- procedure setFPLLIDIV(thebits : TBits_3); inline;
- procedure setFPLLMUL(thebits : TBits_3); inline;
- procedure setFPLLODIV(thebits : TBits_3); inline;
- procedure setw(thebits : TBits_32); inline;
- public
- 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 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;
- _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
- 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.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.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.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 TPCACHE_ANSELA.setANSA9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPCACHE_ANSELA.clearANSA9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPCACHE_ANSELA.setANSA9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPCACHE_ANSELA.getANSA9 : TBits_1; inline;
- begin
- getANSA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPCACHE_ANSELA.setANSA10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPCACHE_ANSELA.clearANSA10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPCACHE_ANSELA.setANSA10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPCACHE_ANSELA.getANSA10 : TBits_1; inline;
- begin
- getANSA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPCACHE_ANSELA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPCACHE_ANSELA.getw : TBits_32; inline;
- begin
- getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
- end;
- procedure TPCACHE_TRISA.setTRISA0; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- procedure TPCACHE_TRISA.clearTRISA0; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000001;
- end;
- procedure TPCACHE_TRISA.setTRISA0(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000001
- else
- pTDefRegMap(@Self)^.&set := $00000001;
- end;
- function TPCACHE_TRISA.getTRISA0 : TBits_1; inline;
- begin
- getTRISA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
- end;
- procedure TPCACHE_TRISA.setTRISA1; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- procedure TPCACHE_TRISA.clearTRISA1; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000002;
- end;
- procedure TPCACHE_TRISA.setTRISA1(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000002
- else
- pTDefRegMap(@Self)^.&set := $00000002;
- end;
- function TPCACHE_TRISA.getTRISA1 : TBits_1; inline;
- begin
- getTRISA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
- end;
- procedure TPCACHE_TRISA.setTRISA2; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- procedure TPCACHE_TRISA.clearTRISA2; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000004;
- end;
- procedure TPCACHE_TRISA.setTRISA2(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000004
- else
- pTDefRegMap(@Self)^.&set := $00000004;
- end;
- function TPCACHE_TRISA.getTRISA2 : TBits_1; inline;
- begin
- getTRISA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
- end;
- procedure TPCACHE_TRISA.setTRISA3; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- procedure TPCACHE_TRISA.clearTRISA3; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000008;
- end;
- procedure TPCACHE_TRISA.setTRISA3(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000008
- else
- pTDefRegMap(@Self)^.&set := $00000008;
- end;
- function TPCACHE_TRISA.getTRISA3 : TBits_1; inline;
- begin
- getTRISA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
- end;
- procedure TPCACHE_TRISA.setTRISA4; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- procedure TPCACHE_TRISA.clearTRISA4; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000010;
- end;
- procedure TPCACHE_TRISA.setTRISA4(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000010
- else
- pTDefRegMap(@Self)^.&set := $00000010;
- end;
- function TPCACHE_TRISA.getTRISA4 : TBits_1; inline;
- begin
- getTRISA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
- end;
- procedure TPCACHE_TRISA.setTRISA5; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- procedure TPCACHE_TRISA.clearTRISA5; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000020;
- end;
- procedure TPCACHE_TRISA.setTRISA5(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000020
- else
- pTDefRegMap(@Self)^.&set := $00000020;
- end;
- function TPCACHE_TRISA.getTRISA5 : TBits_1; inline;
- begin
- getTRISA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
- end;
- procedure TPCACHE_TRISA.setTRISA6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPCACHE_TRISA.clearTRISA6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPCACHE_TRISA.setTRISA6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPCACHE_TRISA.getTRISA6 : TBits_1; inline;
- begin
- getTRISA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPCACHE_TRISA.setTRISA7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPCACHE_TRISA.clearTRISA7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPCACHE_TRISA.setTRISA7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPCACHE_TRISA.getTRISA7 : TBits_1; inline;
- begin
- getTRISA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- end;
- procedure TPCACHE_TRISA.setTRISA9; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- procedure TPCACHE_TRISA.clearTRISA9; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000200;
- end;
- procedure TPCACHE_TRISA.setTRISA9(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000200
- else
- pTDefRegMap(@Self)^.&set := $00000200;
- end;
- function TPCACHE_TRISA.getTRISA9 : TBits_1; inline;
- begin
- getTRISA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
- end;
- procedure TPCACHE_TRISA.setTRISA10; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- procedure TPCACHE_TRISA.clearTRISA10; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000400;
- end;
- procedure TPCACHE_TRISA.setTRISA10(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000400
- else
- pTDefRegMap(@Self)^.&set := $00000400;
- end;
- function TPCACHE_TRISA.getTRISA10 : TBits_1; inline;
- begin
- getTRISA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
- end;
- procedure TPCACHE_TRISA.setTRISA14; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- procedure TPCACHE_TRISA.clearTRISA14; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00004000;
- end;
- procedure TPCACHE_TRISA.setTRISA14(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00004000
- else
- pTDefRegMap(@Self)^.&set := $00004000;
- end;
- function TPCACHE_TRISA.getTRISA14 : TBits_1; inline;
- begin
- getTRISA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
- end;
- procedure TPCACHE_TRISA.setTRISA15; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- procedure TPCACHE_TRISA.clearTRISA15; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00008000;
- end;
- procedure TPCACHE_TRISA.setTRISA15(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00008000
- else
- pTDefRegMap(@Self)^.&set := $00008000;
- end;
- function TPCACHE_TRISA.getTRISA15 : TBits_1; inline;
- begin
- getTRISA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
- end;
- procedure TPCACHE_TRISA.setw(thebits : TBits_32); inline;
- begin
- pTDefRegMap(@Self)^.val := thebits;
- end;
- function TPCACHE_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.setTRISF6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTE_TRISF.clearTRISF6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTE_TRISF.setTRISF6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTE_TRISF.getTRISF6 : TBits_1; inline;
- begin
- getTRISF6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTE_TRISF.setTRISF7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTE_TRISF.clearTRISF7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTE_TRISF.setTRISF7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTE_TRISF.getTRISF7 : TBits_1; inline;
- begin
- getTRISF7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- 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.setRF6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTF_PORTF.clearRF6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTF_PORTF.setRF6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTF_PORTF.getRF6 : TBits_1; inline;
- begin
- getRF6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTF_PORTF.setRF7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTF_PORTF.clearRF7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTF_PORTF.setRF7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTF_PORTF.getRF7 : TBits_1; inline;
- begin
- getRF7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- 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.setLATF6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTF_LATF.clearLATF6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTF_LATF.setLATF6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTF_LATF.getLATF6 : TBits_1; inline;
- begin
- getLATF6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTF_LATF.setLATF7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTF_LATF.clearLATF7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTF_LATF.setLATF7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTF_LATF.getLATF7 : TBits_1; inline;
- begin
- getLATF7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- 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.setODCF6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTF_ODCF.clearODCF6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTF_ODCF.setODCF6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTF_ODCF.getODCF6 : TBits_1; inline;
- begin
- getODCF6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTF_ODCF.setODCF7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTF_ODCF.clearODCF7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTF_ODCF.setODCF7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTF_ODCF.getODCF7 : TBits_1; inline;
- begin
- getODCF7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- 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.setCNPUF6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTF_CNPUF.clearCNPUF6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTF_CNPUF.setCNPUF6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTF_CNPUF.getCNPUF6 : TBits_1; inline;
- begin
- getCNPUF6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTF_CNPUF.setCNPUF7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTF_CNPUF.clearCNPUF7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTF_CNPUF.setCNPUF7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTF_CNPUF.getCNPUF7 : TBits_1; inline;
- begin
- getCNPUF7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- 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.setCNPDF6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTF_CNPDF.clearCNPDF6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTF_CNPDF.setCNPDF6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTF_CNPDF.getCNPDF6 : TBits_1; inline;
- begin
- getCNPDF6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTF_CNPDF.setCNPDF7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTF_CNPDF.clearCNPDF7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTF_CNPDF.setCNPDF7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTF_CNPDF.getCNPDF7 : TBits_1; inline;
- begin
- getCNPDF7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- 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.setCNIEF6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTF_CNENF.clearCNIEF6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTF_CNENF.setCNIEF6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTF_CNENF.getCNIEF6 : TBits_1; inline;
- begin
- getCNIEF6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTF_CNENF.setCNIEF7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTF_CNENF.clearCNIEF7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTF_CNENF.setCNIEF7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTF_CNENF.getCNIEF7 : TBits_1; inline;
- begin
- getCNIEF7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- 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.setCNSTATF6; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- procedure TPORTF_CNSTATF.clearCNSTATF6; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000040;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF6(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000040
- else
- pTDefRegMap(@Self)^.&set := $00000040;
- end;
- function TPORTF_CNSTATF.getCNSTATF6 : TBits_1; inline;
- begin
- getCNSTATF6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF7; inline;
- begin
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- procedure TPORTF_CNSTATF.clearCNSTATF7; inline;
- begin
- pTDefRegMap(@Self)^.clr := $00000080;
- end;
- procedure TPORTF_CNSTATF.setCNSTATF7(thebits : TBits_1); inline;
- begin
- if thebits = 0 then
- pTDefRegMap(@Self)^.clr := $00000080
- else
- pTDefRegMap(@Self)^.&set := $00000080;
- end;
- function TPORTF_CNSTATF.getCNSTATF7 : TBits_1; inline;
- begin
- getCNSTATF7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
- 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.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.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 _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
- nop
- 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 _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.
|
