pic32mx764f128l.pp 2.7 MB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619362036213622362336243625362636273628362936303631363236333634363536363637363836393640364136423643364436453646364736483649365036513652365336543655365636573658365936603661366236633664366536663667366836693670367136723673367436753676367736783679368036813682368336843685368636873688368936903691369236933694369536963697369836993700370137023703370437053706370737083709371037113712371337143715371637173718371937203721372237233724372537263727372837293730373137323733373437353736373737383739374037413742374337443745374637473748374937503751375237533754375537563757375837593760376137623763376437653766376737683769377037713772377337743775377637773778377937803781378237833784378537863787378837893790379137923793379437953796379737983799380038013802380338043805380638073808380938103811381238133814381538163817381838193820382138223823382438253826382738283829383038313832383338343835383638373838383938403841384238433844384538463847384838493850385138523853385438553856385738583859386038613862386338643865386638673868386938703871387238733874387538763877387838793880388138823883388438853886388738883889389038913892389338943895389638973898389939003901390239033904390539063907390839093910391139123913391439153916391739183919392039213922392339243925392639273928392939303931393239333934393539363937393839393940394139423943394439453946394739483949395039513952395339543955395639573958395939603961396239633964396539663967396839693970397139723973397439753976397739783979398039813982398339843985398639873988398939903991399239933994399539963997399839994000400140024003400440054006400740084009401040114012401340144015401640174018401940204021402240234024402540264027402840294030403140324033403440354036403740384039404040414042404340444045404640474048404940504051405240534054405540564057405840594060406140624063406440654066406740684069407040714072407340744075407640774078407940804081408240834084408540864087408840894090409140924093409440954096409740984099410041014102410341044105410641074108410941104111411241134114411541164117411841194120412141224123412441254126412741284129413041314132413341344135413641374138413941404141414241434144414541464147414841494150415141524153415441554156415741584159416041614162416341644165416641674168416941704171417241734174417541764177417841794180418141824183418441854186418741884189419041914192419341944195419641974198419942004201420242034204420542064207420842094210421142124213421442154216421742184219422042214222422342244225422642274228422942304231423242334234423542364237423842394240424142424243424442454246424742484249425042514252425342544255425642574258425942604261426242634264426542664267426842694270427142724273427442754276427742784279428042814282428342844285428642874288428942904291429242934294429542964297429842994300430143024303430443054306430743084309431043114312431343144315431643174318431943204321432243234324432543264327432843294330433143324333433443354336433743384339434043414342434343444345434643474348434943504351435243534354435543564357435843594360436143624363436443654366436743684369437043714372437343744375437643774378437943804381438243834384438543864387438843894390439143924393439443954396439743984399440044014402440344044405440644074408440944104411441244134414441544164417441844194420442144224423442444254426442744284429443044314432443344344435443644374438443944404441444244434444444544464447444844494450445144524453445444554456445744584459446044614462446344644465446644674468446944704471447244734474447544764477447844794480448144824483448444854486448744884489449044914492449344944495449644974498449945004501450245034504450545064507450845094510451145124513451445154516451745184519452045214522452345244525452645274528452945304531453245334534453545364537453845394540454145424543454445454546454745484549455045514552455345544555455645574558455945604561456245634564456545664567456845694570457145724573457445754576457745784579458045814582458345844585458645874588458945904591459245934594459545964597459845994600460146024603460446054606460746084609461046114612461346144615461646174618461946204621462246234624462546264627462846294630463146324633463446354636463746384639464046414642464346444645464646474648464946504651465246534654465546564657465846594660466146624663466446654666466746684669467046714672467346744675467646774678467946804681468246834684468546864687468846894690469146924693469446954696469746984699470047014702470347044705470647074708470947104711471247134714471547164717471847194720472147224723472447254726472747284729473047314732473347344735473647374738473947404741474247434744474547464747474847494750475147524753475447554756475747584759476047614762476347644765476647674768476947704771477247734774477547764777477847794780478147824783478447854786478747884789479047914792479347944795479647974798479948004801480248034804480548064807480848094810481148124813481448154816481748184819482048214822482348244825482648274828482948304831483248334834483548364837483848394840484148424843484448454846484748484849485048514852485348544855485648574858485948604861486248634864486548664867486848694870487148724873487448754876487748784879488048814882488348844885488648874888488948904891489248934894489548964897489848994900490149024903490449054906490749084909491049114912491349144915491649174918491949204921492249234924492549264927492849294930493149324933493449354936493749384939494049414942494349444945494649474948494949504951495249534954495549564957495849594960496149624963496449654966496749684969497049714972497349744975497649774978497949804981498249834984498549864987498849894990499149924993499449954996499749984999500050015002500350045005500650075008500950105011501250135014501550165017501850195020502150225023502450255026502750285029503050315032503350345035503650375038503950405041504250435044504550465047504850495050505150525053505450555056505750585059506050615062506350645065506650675068506950705071507250735074507550765077507850795080508150825083508450855086508750885089509050915092509350945095509650975098509951005101510251035104510551065107510851095110511151125113511451155116511751185119512051215122512351245125512651275128512951305131513251335134513551365137513851395140514151425143514451455146514751485149515051515152515351545155515651575158515951605161516251635164516551665167516851695170517151725173517451755176517751785179518051815182518351845185518651875188518951905191519251935194519551965197519851995200520152025203520452055206520752085209521052115212521352145215521652175218521952205221522252235224522552265227522852295230523152325233523452355236523752385239524052415242524352445245524652475248524952505251525252535254525552565257525852595260526152625263526452655266526752685269527052715272527352745275527652775278527952805281528252835284528552865287528852895290529152925293529452955296529752985299530053015302530353045305530653075308530953105311531253135314531553165317531853195320532153225323532453255326532753285329533053315332533353345335533653375338533953405341534253435344534553465347534853495350535153525353535453555356535753585359536053615362536353645365536653675368536953705371537253735374537553765377537853795380538153825383538453855386538753885389539053915392539353945395539653975398539954005401540254035404540554065407540854095410541154125413541454155416541754185419542054215422542354245425542654275428542954305431543254335434543554365437543854395440544154425443544454455446544754485449545054515452545354545455545654575458545954605461546254635464546554665467546854695470547154725473547454755476547754785479548054815482548354845485548654875488548954905491549254935494549554965497549854995500550155025503550455055506550755085509551055115512551355145515551655175518551955205521552255235524552555265527552855295530553155325533553455355536553755385539554055415542554355445545554655475548554955505551555255535554555555565557555855595560556155625563556455655566556755685569557055715572557355745575557655775578557955805581558255835584558555865587558855895590559155925593559455955596559755985599560056015602560356045605560656075608560956105611561256135614561556165617561856195620562156225623562456255626562756285629563056315632563356345635563656375638563956405641564256435644564556465647564856495650565156525653565456555656565756585659566056615662566356645665566656675668566956705671567256735674567556765677567856795680568156825683568456855686568756885689569056915692569356945695569656975698569957005701570257035704570557065707570857095710571157125713571457155716571757185719572057215722572357245725572657275728572957305731573257335734573557365737573857395740574157425743574457455746574757485749575057515752575357545755575657575758575957605761576257635764576557665767576857695770577157725773577457755776577757785779578057815782578357845785578657875788578957905791579257935794579557965797579857995800580158025803580458055806580758085809581058115812581358145815581658175818581958205821582258235824582558265827582858295830583158325833583458355836583758385839584058415842584358445845584658475848584958505851585258535854585558565857585858595860586158625863586458655866586758685869587058715872587358745875587658775878587958805881588258835884588558865887588858895890589158925893589458955896589758985899590059015902590359045905590659075908590959105911591259135914591559165917591859195920592159225923592459255926592759285929593059315932593359345935593659375938593959405941594259435944594559465947594859495950595159525953595459555956595759585959596059615962596359645965596659675968596959705971597259735974597559765977597859795980598159825983598459855986598759885989599059915992599359945995599659975998599960006001600260036004600560066007600860096010601160126013601460156016601760186019602060216022602360246025602660276028602960306031603260336034603560366037603860396040604160426043604460456046604760486049605060516052605360546055605660576058605960606061606260636064606560666067606860696070607160726073607460756076607760786079608060816082608360846085608660876088608960906091609260936094609560966097609860996100610161026103610461056106610761086109611061116112611361146115611661176118611961206121612261236124612561266127612861296130613161326133613461356136613761386139614061416142614361446145614661476148614961506151615261536154615561566157615861596160616161626163616461656166616761686169617061716172617361746175617661776178617961806181618261836184618561866187618861896190619161926193619461956196619761986199620062016202620362046205620662076208620962106211621262136214621562166217621862196220622162226223622462256226622762286229623062316232623362346235623662376238623962406241624262436244624562466247624862496250625162526253625462556256625762586259626062616262626362646265626662676268626962706271627262736274627562766277627862796280628162826283628462856286628762886289629062916292629362946295629662976298629963006301630263036304630563066307630863096310631163126313631463156316631763186319632063216322632363246325632663276328632963306331633263336334633563366337633863396340634163426343634463456346634763486349635063516352635363546355635663576358635963606361636263636364636563666367636863696370637163726373637463756376637763786379638063816382638363846385638663876388638963906391639263936394639563966397639863996400640164026403640464056406640764086409641064116412641364146415641664176418641964206421642264236424642564266427642864296430643164326433643464356436643764386439644064416442644364446445644664476448644964506451645264536454645564566457645864596460646164626463646464656466646764686469647064716472647364746475647664776478647964806481648264836484648564866487648864896490649164926493649464956496649764986499650065016502650365046505650665076508650965106511651265136514651565166517651865196520652165226523652465256526652765286529653065316532653365346535653665376538653965406541654265436544654565466547654865496550655165526553655465556556655765586559656065616562656365646565656665676568656965706571657265736574657565766577657865796580658165826583658465856586658765886589659065916592659365946595659665976598659966006601660266036604660566066607660866096610661166126613661466156616661766186619662066216622662366246625662666276628662966306631663266336634663566366637663866396640664166426643664466456646664766486649665066516652665366546655665666576658665966606661666266636664666566666667666866696670667166726673667466756676667766786679668066816682668366846685668666876688668966906691669266936694669566966697669866996700670167026703670467056706670767086709671067116712671367146715671667176718671967206721672267236724672567266727672867296730673167326733673467356736673767386739674067416742674367446745674667476748674967506751675267536754675567566757675867596760676167626763676467656766676767686769677067716772677367746775677667776778677967806781678267836784678567866787678867896790679167926793679467956796679767986799680068016802680368046805680668076808680968106811681268136814681568166817681868196820682168226823682468256826682768286829683068316832683368346835683668376838683968406841684268436844684568466847684868496850685168526853685468556856685768586859686068616862686368646865686668676868686968706871687268736874687568766877687868796880688168826883688468856886688768886889689068916892689368946895689668976898689969006901690269036904690569066907690869096910691169126913691469156916691769186919692069216922692369246925692669276928692969306931693269336934693569366937693869396940694169426943694469456946694769486949695069516952695369546955695669576958695969606961696269636964696569666967696869696970697169726973697469756976697769786979698069816982698369846985698669876988698969906991699269936994699569966997699869997000700170027003700470057006700770087009701070117012701370147015701670177018701970207021702270237024702570267027702870297030703170327033703470357036703770387039704070417042704370447045704670477048704970507051705270537054705570567057705870597060706170627063706470657066706770687069707070717072707370747075707670777078707970807081708270837084708570867087708870897090709170927093709470957096709770987099710071017102710371047105710671077108710971107111711271137114711571167117711871197120712171227123712471257126712771287129713071317132713371347135713671377138713971407141714271437144714571467147714871497150715171527153715471557156715771587159716071617162716371647165716671677168716971707171717271737174717571767177717871797180718171827183718471857186718771887189719071917192719371947195719671977198719972007201720272037204720572067207720872097210721172127213721472157216721772187219722072217222722372247225722672277228722972307231723272337234723572367237723872397240724172427243724472457246724772487249725072517252725372547255725672577258725972607261726272637264726572667267726872697270727172727273727472757276727772787279728072817282728372847285728672877288728972907291729272937294729572967297729872997300730173027303730473057306730773087309731073117312731373147315731673177318731973207321732273237324732573267327732873297330733173327333733473357336733773387339734073417342734373447345734673477348734973507351735273537354735573567357735873597360736173627363736473657366736773687369737073717372737373747375737673777378737973807381738273837384738573867387738873897390739173927393739473957396739773987399740074017402740374047405740674077408740974107411741274137414741574167417741874197420742174227423742474257426742774287429743074317432743374347435743674377438743974407441744274437444744574467447744874497450745174527453745474557456745774587459746074617462746374647465746674677468746974707471747274737474747574767477747874797480748174827483748474857486748774887489749074917492749374947495749674977498749975007501750275037504750575067507750875097510751175127513751475157516751775187519752075217522752375247525752675277528752975307531753275337534753575367537753875397540754175427543754475457546754775487549755075517552755375547555755675577558755975607561756275637564756575667567756875697570757175727573757475757576757775787579758075817582758375847585758675877588758975907591759275937594759575967597759875997600760176027603760476057606760776087609761076117612761376147615761676177618761976207621762276237624762576267627762876297630763176327633763476357636763776387639764076417642764376447645764676477648764976507651765276537654765576567657765876597660766176627663766476657666766776687669767076717672767376747675767676777678767976807681768276837684768576867687768876897690769176927693769476957696769776987699770077017702770377047705770677077708770977107711771277137714771577167717771877197720772177227723772477257726772777287729773077317732773377347735773677377738773977407741774277437744774577467747774877497750775177527753775477557756775777587759776077617762776377647765776677677768776977707771777277737774777577767777777877797780778177827783778477857786778777887789779077917792779377947795779677977798779978007801780278037804780578067807780878097810781178127813781478157816781778187819782078217822782378247825782678277828782978307831783278337834783578367837783878397840784178427843784478457846784778487849785078517852785378547855785678577858785978607861786278637864786578667867786878697870787178727873787478757876787778787879788078817882788378847885788678877888788978907891789278937894789578967897789878997900790179027903790479057906790779087909791079117912791379147915791679177918791979207921792279237924792579267927792879297930793179327933793479357936793779387939794079417942794379447945794679477948794979507951795279537954795579567957795879597960796179627963796479657966796779687969797079717972797379747975797679777978797979807981798279837984798579867987798879897990799179927993799479957996799779987999800080018002800380048005800680078008800980108011801280138014801580168017801880198020802180228023802480258026802780288029803080318032803380348035803680378038803980408041804280438044804580468047804880498050805180528053805480558056805780588059806080618062806380648065806680678068806980708071807280738074807580768077807880798080808180828083808480858086808780888089809080918092809380948095809680978098809981008101810281038104810581068107810881098110811181128113811481158116811781188119812081218122812381248125812681278128812981308131813281338134813581368137813881398140814181428143814481458146814781488149815081518152815381548155815681578158815981608161816281638164816581668167816881698170817181728173817481758176817781788179818081818182818381848185818681878188818981908191819281938194819581968197819881998200820182028203820482058206820782088209821082118212821382148215821682178218821982208221822282238224822582268227822882298230823182328233823482358236823782388239824082418242824382448245824682478248824982508251825282538254825582568257825882598260826182628263826482658266826782688269827082718272827382748275827682778278827982808281828282838284828582868287828882898290829182928293829482958296829782988299830083018302830383048305830683078308830983108311831283138314831583168317831883198320832183228323832483258326832783288329833083318332833383348335833683378338833983408341834283438344834583468347834883498350835183528353835483558356835783588359836083618362836383648365836683678368836983708371837283738374837583768377837883798380838183828383838483858386838783888389839083918392839383948395839683978398839984008401840284038404840584068407840884098410841184128413841484158416841784188419842084218422842384248425842684278428842984308431843284338434843584368437843884398440844184428443844484458446844784488449845084518452845384548455845684578458845984608461846284638464846584668467846884698470847184728473847484758476847784788479848084818482848384848485848684878488848984908491849284938494849584968497849884998500850185028503850485058506850785088509851085118512851385148515851685178518851985208521852285238524852585268527852885298530853185328533853485358536853785388539854085418542854385448545854685478548854985508551855285538554855585568557855885598560856185628563856485658566856785688569857085718572857385748575857685778578857985808581858285838584858585868587858885898590859185928593859485958596859785988599860086018602860386048605860686078608860986108611861286138614861586168617861886198620862186228623862486258626862786288629863086318632863386348635863686378638863986408641864286438644864586468647864886498650865186528653865486558656865786588659866086618662866386648665866686678668866986708671867286738674867586768677867886798680868186828683868486858686868786888689869086918692869386948695869686978698869987008701870287038704870587068707870887098710871187128713871487158716871787188719872087218722872387248725872687278728872987308731873287338734873587368737873887398740874187428743874487458746874787488749875087518752875387548755875687578758875987608761876287638764876587668767876887698770877187728773877487758776877787788779878087818782878387848785878687878788878987908791879287938794879587968797879887998800880188028803880488058806880788088809881088118812881388148815881688178818881988208821882288238824882588268827882888298830883188328833883488358836883788388839884088418842884388448845884688478848884988508851885288538854885588568857885888598860886188628863886488658866886788688869887088718872887388748875887688778878887988808881888288838884888588868887888888898890889188928893889488958896889788988899890089018902890389048905890689078908890989108911891289138914891589168917891889198920892189228923892489258926892789288929893089318932893389348935893689378938893989408941894289438944894589468947894889498950895189528953895489558956895789588959896089618962896389648965896689678968896989708971897289738974897589768977897889798980898189828983898489858986898789888989899089918992899389948995899689978998899990009001900290039004900590069007900890099010901190129013901490159016901790189019902090219022902390249025902690279028902990309031903290339034903590369037903890399040904190429043904490459046904790489049905090519052905390549055905690579058905990609061906290639064906590669067906890699070907190729073907490759076907790789079908090819082908390849085908690879088908990909091909290939094909590969097909890999100910191029103910491059106910791089109911091119112911391149115911691179118911991209121912291239124912591269127912891299130913191329133913491359136913791389139914091419142914391449145914691479148914991509151915291539154915591569157915891599160916191629163916491659166916791689169917091719172917391749175917691779178917991809181918291839184918591869187918891899190919191929193919491959196919791989199920092019202920392049205920692079208920992109211921292139214921592169217921892199220922192229223922492259226922792289229923092319232923392349235923692379238923992409241924292439244924592469247924892499250925192529253925492559256925792589259926092619262926392649265926692679268926992709271927292739274927592769277927892799280928192829283928492859286928792889289929092919292929392949295929692979298929993009301930293039304930593069307930893099310931193129313931493159316931793189319932093219322932393249325932693279328932993309331933293339334933593369337933893399340934193429343934493459346934793489349935093519352935393549355935693579358935993609361936293639364936593669367936893699370937193729373937493759376937793789379938093819382938393849385938693879388938993909391939293939394939593969397939893999400940194029403940494059406940794089409941094119412941394149415941694179418941994209421942294239424942594269427942894299430943194329433943494359436943794389439944094419442944394449445944694479448944994509451945294539454945594569457945894599460946194629463946494659466946794689469947094719472947394749475947694779478947994809481948294839484948594869487948894899490949194929493949494959496949794989499950095019502950395049505950695079508950995109511951295139514951595169517951895199520952195229523952495259526952795289529953095319532953395349535953695379538953995409541954295439544954595469547954895499550955195529553955495559556955795589559956095619562956395649565956695679568956995709571957295739574957595769577957895799580958195829583958495859586958795889589959095919592959395949595959695979598959996009601960296039604960596069607960896099610961196129613961496159616961796189619962096219622962396249625962696279628962996309631963296339634963596369637963896399640964196429643964496459646964796489649965096519652965396549655965696579658965996609661966296639664966596669667966896699670967196729673967496759676967796789679968096819682968396849685968696879688968996909691969296939694969596969697969896999700970197029703970497059706970797089709971097119712971397149715971697179718971997209721972297239724972597269727972897299730973197329733973497359736973797389739974097419742974397449745974697479748974997509751975297539754975597569757975897599760976197629763976497659766976797689769977097719772977397749775977697779778977997809781978297839784978597869787978897899790979197929793979497959796979797989799980098019802980398049805980698079808980998109811981298139814981598169817981898199820982198229823982498259826982798289829983098319832983398349835983698379838983998409841984298439844984598469847984898499850985198529853985498559856985798589859986098619862986398649865986698679868986998709871987298739874987598769877987898799880988198829883988498859886988798889889989098919892989398949895989698979898989999009901990299039904990599069907990899099910991199129913991499159916991799189919992099219922992399249925992699279928992999309931993299339934993599369937993899399940994199429943994499459946994799489949995099519952995399549955995699579958995999609961996299639964996599669967996899699970997199729973997499759976997799789979998099819982998399849985998699879988998999909991999299939994999599969997999899991000010001100021000310004100051000610007100081000910010100111001210013100141001510016100171001810019100201002110022100231002410025100261002710028100291003010031100321003310034100351003610037100381003910040100411004210043100441004510046100471004810049100501005110052100531005410055100561005710058100591006010061100621006310064100651006610067100681006910070100711007210073100741007510076100771007810079100801008110082100831008410085100861008710088100891009010091100921009310094100951009610097100981009910100101011010210103101041010510106101071010810109101101011110112101131011410115101161011710118101191012010121101221012310124101251012610127101281012910130101311013210133101341013510136101371013810139101401014110142101431014410145101461014710148101491015010151101521015310154101551015610157101581015910160101611016210163101641016510166101671016810169101701017110172101731017410175101761017710178101791018010181101821018310184101851018610187101881018910190101911019210193101941019510196101971019810199102001020110202102031020410205102061020710208102091021010211102121021310214102151021610217102181021910220102211022210223102241022510226102271022810229102301023110232102331023410235102361023710238102391024010241102421024310244102451024610247102481024910250102511025210253102541025510256102571025810259102601026110262102631026410265102661026710268102691027010271102721027310274102751027610277102781027910280102811028210283102841028510286102871028810289102901029110292102931029410295102961029710298102991030010301103021030310304103051030610307103081030910310103111031210313103141031510316103171031810319103201032110322103231032410325103261032710328103291033010331103321033310334103351033610337103381033910340103411034210343103441034510346103471034810349103501035110352103531035410355103561035710358103591036010361103621036310364103651036610367103681036910370103711037210373103741037510376103771037810379103801038110382103831038410385103861038710388103891039010391103921039310394103951039610397103981039910400104011040210403104041040510406104071040810409104101041110412104131041410415104161041710418104191042010421104221042310424104251042610427104281042910430104311043210433104341043510436104371043810439104401044110442104431044410445104461044710448104491045010451104521045310454104551045610457104581045910460104611046210463104641046510466104671046810469104701047110472104731047410475104761047710478104791048010481104821048310484104851048610487104881048910490104911049210493104941049510496104971049810499105001050110502105031050410505105061050710508105091051010511105121051310514105151051610517105181051910520105211052210523105241052510526105271052810529105301053110532105331053410535105361053710538105391054010541105421054310544105451054610547105481054910550105511055210553105541055510556105571055810559105601056110562105631056410565105661056710568105691057010571105721057310574105751057610577105781057910580105811058210583105841058510586105871058810589105901059110592105931059410595105961059710598105991060010601106021060310604106051060610607106081060910610106111061210613106141061510616106171061810619106201062110622106231062410625106261062710628106291063010631106321063310634106351063610637106381063910640106411064210643106441064510646106471064810649106501065110652106531065410655106561065710658106591066010661106621066310664106651066610667106681066910670106711067210673106741067510676106771067810679106801068110682106831068410685106861068710688106891069010691106921069310694106951069610697106981069910700107011070210703107041070510706107071070810709107101071110712107131071410715107161071710718107191072010721107221072310724107251072610727107281072910730107311073210733107341073510736107371073810739107401074110742107431074410745107461074710748107491075010751107521075310754107551075610757107581075910760107611076210763107641076510766107671076810769107701077110772107731077410775107761077710778107791078010781107821078310784107851078610787107881078910790107911079210793107941079510796107971079810799108001080110802108031080410805108061080710808108091081010811108121081310814108151081610817108181081910820108211082210823108241082510826108271082810829108301083110832108331083410835108361083710838108391084010841108421084310844108451084610847108481084910850108511085210853108541085510856108571085810859108601086110862108631086410865108661086710868108691087010871108721087310874108751087610877108781087910880108811088210883108841088510886108871088810889108901089110892108931089410895108961089710898108991090010901109021090310904109051090610907109081090910910109111091210913109141091510916109171091810919109201092110922109231092410925109261092710928109291093010931109321093310934109351093610937109381093910940109411094210943109441094510946109471094810949109501095110952109531095410955109561095710958109591096010961109621096310964109651096610967109681096910970109711097210973109741097510976109771097810979109801098110982109831098410985109861098710988109891099010991109921099310994109951099610997109981099911000110011100211003110041100511006110071100811009110101101111012110131101411015110161101711018110191102011021110221102311024110251102611027110281102911030110311103211033110341103511036110371103811039110401104111042110431104411045110461104711048110491105011051110521105311054110551105611057110581105911060110611106211063110641106511066110671106811069110701107111072110731107411075110761107711078110791108011081110821108311084110851108611087110881108911090110911109211093110941109511096110971109811099111001110111102111031110411105111061110711108111091111011111111121111311114111151111611117111181111911120111211112211123111241112511126111271112811129111301113111132111331113411135111361113711138111391114011141111421114311144111451114611147111481114911150111511115211153111541115511156111571115811159111601116111162111631116411165111661116711168111691117011171111721117311174111751117611177111781117911180111811118211183111841118511186111871118811189111901119111192111931119411195111961119711198111991120011201112021120311204112051120611207112081120911210112111121211213112141121511216112171121811219112201122111222112231122411225112261122711228112291123011231112321123311234112351123611237112381123911240112411124211243112441124511246112471124811249112501125111252112531125411255112561125711258112591126011261112621126311264112651126611267112681126911270112711127211273112741127511276112771127811279112801128111282112831128411285112861128711288112891129011291112921129311294112951129611297112981129911300113011130211303113041130511306113071130811309113101131111312113131131411315113161131711318113191132011321113221132311324113251132611327113281132911330113311133211333113341133511336113371133811339113401134111342113431134411345113461134711348113491135011351113521135311354113551135611357113581135911360113611136211363113641136511366113671136811369113701137111372113731137411375113761137711378113791138011381113821138311384113851138611387113881138911390113911139211393113941139511396113971139811399114001140111402114031140411405114061140711408114091141011411114121141311414114151141611417114181141911420114211142211423114241142511426114271142811429114301143111432114331143411435114361143711438114391144011441114421144311444114451144611447114481144911450114511145211453114541145511456114571145811459114601146111462114631146411465114661146711468114691147011471114721147311474114751147611477114781147911480114811148211483114841148511486114871148811489114901149111492114931149411495114961149711498114991150011501115021150311504115051150611507115081150911510115111151211513115141151511516115171151811519115201152111522115231152411525115261152711528115291153011531115321153311534115351153611537115381153911540115411154211543115441154511546115471154811549115501155111552115531155411555115561155711558115591156011561115621156311564115651156611567115681156911570115711157211573115741157511576115771157811579115801158111582115831158411585115861158711588115891159011591115921159311594115951159611597115981159911600116011160211603116041160511606116071160811609116101161111612116131161411615116161161711618116191162011621116221162311624116251162611627116281162911630116311163211633116341163511636116371163811639116401164111642116431164411645116461164711648116491165011651116521165311654116551165611657116581165911660116611166211663116641166511666116671166811669116701167111672116731167411675116761167711678116791168011681116821168311684116851168611687116881168911690116911169211693116941169511696116971169811699117001170111702117031170411705117061170711708117091171011711117121171311714117151171611717117181171911720117211172211723117241172511726117271172811729117301173111732117331173411735117361173711738117391174011741117421174311744117451174611747117481174911750117511175211753117541175511756117571175811759117601176111762117631176411765117661176711768117691177011771117721177311774117751177611777117781177911780117811178211783117841178511786117871178811789117901179111792117931179411795117961179711798117991180011801118021180311804118051180611807118081180911810118111181211813118141181511816118171181811819118201182111822118231182411825118261182711828118291183011831118321183311834118351183611837118381183911840118411184211843118441184511846118471184811849118501185111852118531185411855118561185711858118591186011861118621186311864118651186611867118681186911870118711187211873118741187511876118771187811879118801188111882118831188411885118861188711888118891189011891118921189311894118951189611897118981189911900119011190211903119041190511906119071190811909119101191111912119131191411915119161191711918119191192011921119221192311924119251192611927119281192911930119311193211933119341193511936119371193811939119401194111942119431194411945119461194711948119491195011951119521195311954119551195611957119581195911960119611196211963119641196511966119671196811969119701197111972119731197411975119761197711978119791198011981119821198311984119851198611987119881198911990119911199211993119941199511996119971199811999120001200112002120031200412005120061200712008120091201012011120121201312014120151201612017120181201912020120211202212023120241202512026120271202812029120301203112032120331203412035120361203712038120391204012041120421204312044120451204612047120481204912050120511205212053120541205512056120571205812059120601206112062120631206412065120661206712068120691207012071120721207312074120751207612077120781207912080120811208212083120841208512086120871208812089120901209112092120931209412095120961209712098120991210012101121021210312104121051210612107121081210912110121111211212113121141211512116121171211812119121201212112122121231212412125121261212712128121291213012131121321213312134121351213612137121381213912140121411214212143121441214512146121471214812149121501215112152121531215412155121561215712158121591216012161121621216312164121651216612167121681216912170121711217212173121741217512176121771217812179121801218112182121831218412185121861218712188121891219012191121921219312194121951219612197121981219912200122011220212203122041220512206122071220812209122101221112212122131221412215122161221712218122191222012221122221222312224122251222612227122281222912230122311223212233122341223512236122371223812239122401224112242122431224412245122461224712248122491225012251122521225312254122551225612257122581225912260122611226212263122641226512266122671226812269122701227112272122731227412275122761227712278122791228012281122821228312284122851228612287122881228912290122911229212293122941229512296122971229812299123001230112302123031230412305123061230712308123091231012311123121231312314123151231612317123181231912320123211232212323123241232512326123271232812329123301233112332123331233412335123361233712338123391234012341123421234312344123451234612347123481234912350123511235212353123541235512356123571235812359123601236112362123631236412365123661236712368123691237012371123721237312374123751237612377123781237912380123811238212383123841238512386123871238812389123901239112392123931239412395123961239712398123991240012401124021240312404124051240612407124081240912410124111241212413124141241512416124171241812419124201242112422124231242412425124261242712428124291243012431124321243312434124351243612437124381243912440124411244212443124441244512446124471244812449124501245112452124531245412455124561245712458124591246012461124621246312464124651246612467124681246912470124711247212473124741247512476124771247812479124801248112482124831248412485124861248712488124891249012491124921249312494124951249612497124981249912500125011250212503125041250512506125071250812509125101251112512125131251412515125161251712518125191252012521125221252312524125251252612527125281252912530125311253212533125341253512536125371253812539125401254112542125431254412545125461254712548125491255012551125521255312554125551255612557125581255912560125611256212563125641256512566125671256812569125701257112572125731257412575125761257712578125791258012581125821258312584125851258612587125881258912590125911259212593125941259512596125971259812599126001260112602126031260412605126061260712608126091261012611126121261312614126151261612617126181261912620126211262212623126241262512626126271262812629126301263112632126331263412635126361263712638126391264012641126421264312644126451264612647126481264912650126511265212653126541265512656126571265812659126601266112662126631266412665126661266712668126691267012671126721267312674126751267612677126781267912680126811268212683126841268512686126871268812689126901269112692126931269412695126961269712698126991270012701127021270312704127051270612707127081270912710127111271212713127141271512716127171271812719127201272112722127231272412725127261272712728127291273012731127321273312734127351273612737127381273912740127411274212743127441274512746127471274812749127501275112752127531275412755127561275712758127591276012761127621276312764127651276612767127681276912770127711277212773127741277512776127771277812779127801278112782127831278412785127861278712788127891279012791127921279312794127951279612797127981279912800128011280212803128041280512806128071280812809128101281112812128131281412815128161281712818128191282012821128221282312824128251282612827128281282912830128311283212833128341283512836128371283812839128401284112842128431284412845128461284712848128491285012851128521285312854128551285612857128581285912860128611286212863128641286512866128671286812869128701287112872128731287412875128761287712878128791288012881128821288312884128851288612887128881288912890128911289212893128941289512896128971289812899129001290112902129031290412905129061290712908129091291012911129121291312914129151291612917129181291912920129211292212923129241292512926129271292812929129301293112932129331293412935129361293712938129391294012941129421294312944129451294612947129481294912950129511295212953129541295512956129571295812959129601296112962129631296412965129661296712968129691297012971129721297312974129751297612977129781297912980129811298212983129841298512986129871298812989129901299112992129931299412995129961299712998129991300013001130021300313004130051300613007130081300913010130111301213013130141301513016130171301813019130201302113022130231302413025130261302713028130291303013031130321303313034130351303613037130381303913040130411304213043130441304513046130471304813049130501305113052130531305413055130561305713058130591306013061130621306313064130651306613067130681306913070130711307213073130741307513076130771307813079130801308113082130831308413085130861308713088130891309013091130921309313094130951309613097130981309913100131011310213103131041310513106131071310813109131101311113112131131311413115131161311713118131191312013121131221312313124131251312613127131281312913130131311313213133131341313513136131371313813139131401314113142131431314413145131461314713148131491315013151131521315313154131551315613157131581315913160131611316213163131641316513166131671316813169131701317113172131731317413175131761317713178131791318013181131821318313184131851318613187131881318913190131911319213193131941319513196131971319813199132001320113202132031320413205132061320713208132091321013211132121321313214132151321613217132181321913220132211322213223132241322513226132271322813229132301323113232132331323413235132361323713238132391324013241132421324313244132451324613247132481324913250132511325213253132541325513256132571325813259132601326113262132631326413265132661326713268132691327013271132721327313274132751327613277132781327913280132811328213283132841328513286132871328813289132901329113292132931329413295132961329713298132991330013301133021330313304133051330613307133081330913310133111331213313133141331513316133171331813319133201332113322133231332413325133261332713328133291333013331133321333313334133351333613337133381333913340133411334213343133441334513346133471334813349133501335113352133531335413355133561335713358133591336013361133621336313364133651336613367133681336913370133711337213373133741337513376133771337813379133801338113382133831338413385133861338713388133891339013391133921339313394133951339613397133981339913400134011340213403134041340513406134071340813409134101341113412134131341413415134161341713418134191342013421134221342313424134251342613427134281342913430134311343213433134341343513436134371343813439134401344113442134431344413445134461344713448134491345013451134521345313454134551345613457134581345913460134611346213463134641346513466134671346813469134701347113472134731347413475134761347713478134791348013481134821348313484134851348613487134881348913490134911349213493134941349513496134971349813499135001350113502135031350413505135061350713508135091351013511135121351313514135151351613517135181351913520135211352213523135241352513526135271352813529135301353113532135331353413535135361353713538135391354013541135421354313544135451354613547135481354913550135511355213553135541355513556135571355813559135601356113562135631356413565135661356713568135691357013571135721357313574135751357613577135781357913580135811358213583135841358513586135871358813589135901359113592135931359413595135961359713598135991360013601136021360313604136051360613607136081360913610136111361213613136141361513616136171361813619136201362113622136231362413625136261362713628136291363013631136321363313634136351363613637136381363913640136411364213643136441364513646136471364813649136501365113652136531365413655136561365713658136591366013661136621366313664136651366613667136681366913670136711367213673136741367513676136771367813679136801368113682136831368413685136861368713688136891369013691136921369313694136951369613697136981369913700137011370213703137041370513706137071370813709137101371113712137131371413715137161371713718137191372013721137221372313724137251372613727137281372913730137311373213733137341373513736137371373813739137401374113742137431374413745137461374713748137491375013751137521375313754137551375613757137581375913760137611376213763137641376513766137671376813769137701377113772137731377413775137761377713778137791378013781137821378313784137851378613787137881378913790137911379213793137941379513796137971379813799138001380113802138031380413805138061380713808138091381013811138121381313814138151381613817138181381913820138211382213823138241382513826138271382813829138301383113832138331383413835138361383713838138391384013841138421384313844138451384613847138481384913850138511385213853138541385513856138571385813859138601386113862138631386413865138661386713868138691387013871138721387313874138751387613877138781387913880138811388213883138841388513886138871388813889138901389113892138931389413895138961389713898138991390013901139021390313904139051390613907139081390913910139111391213913139141391513916139171391813919139201392113922139231392413925139261392713928139291393013931139321393313934139351393613937139381393913940139411394213943139441394513946139471394813949139501395113952139531395413955139561395713958139591396013961139621396313964139651396613967139681396913970139711397213973139741397513976139771397813979139801398113982139831398413985139861398713988139891399013991139921399313994139951399613997139981399914000140011400214003140041400514006140071400814009140101401114012140131401414015140161401714018140191402014021140221402314024140251402614027140281402914030140311403214033140341403514036140371403814039140401404114042140431404414045140461404714048140491405014051140521405314054140551405614057140581405914060140611406214063140641406514066140671406814069140701407114072140731407414075140761407714078140791408014081140821408314084140851408614087140881408914090140911409214093140941409514096140971409814099141001410114102141031410414105141061410714108141091411014111141121411314114141151411614117141181411914120141211412214123141241412514126141271412814129141301413114132141331413414135141361413714138141391414014141141421414314144141451414614147141481414914150141511415214153141541415514156141571415814159141601416114162141631416414165141661416714168141691417014171141721417314174141751417614177141781417914180141811418214183141841418514186141871418814189141901419114192141931419414195141961419714198141991420014201142021420314204142051420614207142081420914210142111421214213142141421514216142171421814219142201422114222142231422414225142261422714228142291423014231142321423314234142351423614237142381423914240142411424214243142441424514246142471424814249142501425114252142531425414255142561425714258142591426014261142621426314264142651426614267142681426914270142711427214273142741427514276142771427814279142801428114282142831428414285142861428714288142891429014291142921429314294142951429614297142981429914300143011430214303143041430514306143071430814309143101431114312143131431414315143161431714318143191432014321143221432314324143251432614327143281432914330143311433214333143341433514336143371433814339143401434114342143431434414345143461434714348143491435014351143521435314354143551435614357143581435914360143611436214363143641436514366143671436814369143701437114372143731437414375143761437714378143791438014381143821438314384143851438614387143881438914390143911439214393143941439514396143971439814399144001440114402144031440414405144061440714408144091441014411144121441314414144151441614417144181441914420144211442214423144241442514426144271442814429144301443114432144331443414435144361443714438144391444014441144421444314444144451444614447144481444914450144511445214453144541445514456144571445814459144601446114462144631446414465144661446714468144691447014471144721447314474144751447614477144781447914480144811448214483144841448514486144871448814489144901449114492144931449414495144961449714498144991450014501145021450314504145051450614507145081450914510145111451214513145141451514516145171451814519145201452114522145231452414525145261452714528145291453014531145321453314534145351453614537145381453914540145411454214543145441454514546145471454814549145501455114552145531455414555145561455714558145591456014561145621456314564145651456614567145681456914570145711457214573145741457514576145771457814579145801458114582145831458414585145861458714588145891459014591145921459314594145951459614597145981459914600146011460214603146041460514606146071460814609146101461114612146131461414615146161461714618146191462014621146221462314624146251462614627146281462914630146311463214633146341463514636146371463814639146401464114642146431464414645146461464714648146491465014651146521465314654146551465614657146581465914660146611466214663146641466514666146671466814669146701467114672146731467414675146761467714678146791468014681146821468314684146851468614687146881468914690146911469214693146941469514696146971469814699147001470114702147031470414705147061470714708147091471014711147121471314714147151471614717147181471914720147211472214723147241472514726147271472814729147301473114732147331473414735147361473714738147391474014741147421474314744147451474614747147481474914750147511475214753147541475514756147571475814759147601476114762147631476414765147661476714768147691477014771147721477314774147751477614777147781477914780147811478214783147841478514786147871478814789147901479114792147931479414795147961479714798147991480014801148021480314804148051480614807148081480914810148111481214813148141481514816148171481814819148201482114822148231482414825148261482714828148291483014831148321483314834148351483614837148381483914840148411484214843148441484514846148471484814849148501485114852148531485414855148561485714858148591486014861148621486314864148651486614867148681486914870148711487214873148741487514876148771487814879148801488114882148831488414885148861488714888148891489014891148921489314894148951489614897148981489914900149011490214903149041490514906149071490814909149101491114912149131491414915149161491714918149191492014921149221492314924149251492614927149281492914930149311493214933149341493514936149371493814939149401494114942149431494414945149461494714948149491495014951149521495314954149551495614957149581495914960149611496214963149641496514966149671496814969149701497114972149731497414975149761497714978149791498014981149821498314984149851498614987149881498914990149911499214993149941499514996149971499814999150001500115002150031500415005150061500715008150091501015011150121501315014150151501615017150181501915020150211502215023150241502515026150271502815029150301503115032150331503415035150361503715038150391504015041150421504315044150451504615047150481504915050150511505215053150541505515056150571505815059150601506115062150631506415065150661506715068150691507015071150721507315074150751507615077150781507915080150811508215083150841508515086150871508815089150901509115092150931509415095150961509715098150991510015101151021510315104151051510615107151081510915110151111511215113151141511515116151171511815119151201512115122151231512415125151261512715128151291513015131151321513315134151351513615137151381513915140151411514215143151441514515146151471514815149151501515115152151531515415155151561515715158151591516015161151621516315164151651516615167151681516915170151711517215173151741517515176151771517815179151801518115182151831518415185151861518715188151891519015191151921519315194151951519615197151981519915200152011520215203152041520515206152071520815209152101521115212152131521415215152161521715218152191522015221152221522315224152251522615227152281522915230152311523215233152341523515236152371523815239152401524115242152431524415245152461524715248152491525015251152521525315254152551525615257152581525915260152611526215263152641526515266152671526815269152701527115272152731527415275152761527715278152791528015281152821528315284152851528615287152881528915290152911529215293152941529515296152971529815299153001530115302153031530415305153061530715308153091531015311153121531315314153151531615317153181531915320153211532215323153241532515326153271532815329153301533115332153331533415335153361533715338153391534015341153421534315344153451534615347153481534915350153511535215353153541535515356153571535815359153601536115362153631536415365153661536715368153691537015371153721537315374153751537615377153781537915380153811538215383153841538515386153871538815389153901539115392153931539415395153961539715398153991540015401154021540315404154051540615407154081540915410154111541215413154141541515416154171541815419154201542115422154231542415425154261542715428154291543015431154321543315434154351543615437154381543915440154411544215443154441544515446154471544815449154501545115452154531545415455154561545715458154591546015461154621546315464154651546615467154681546915470154711547215473154741547515476154771547815479154801548115482154831548415485154861548715488154891549015491154921549315494154951549615497154981549915500155011550215503155041550515506155071550815509155101551115512155131551415515155161551715518155191552015521155221552315524155251552615527155281552915530155311553215533155341553515536155371553815539155401554115542155431554415545155461554715548155491555015551155521555315554155551555615557155581555915560155611556215563155641556515566155671556815569155701557115572155731557415575155761557715578155791558015581155821558315584155851558615587155881558915590155911559215593155941559515596155971559815599156001560115602156031560415605156061560715608156091561015611156121561315614156151561615617156181561915620156211562215623156241562515626156271562815629156301563115632156331563415635156361563715638156391564015641156421564315644156451564615647156481564915650156511565215653156541565515656156571565815659156601566115662156631566415665156661566715668156691567015671156721567315674156751567615677156781567915680156811568215683156841568515686156871568815689156901569115692156931569415695156961569715698156991570015701157021570315704157051570615707157081570915710157111571215713157141571515716157171571815719157201572115722157231572415725157261572715728157291573015731157321573315734157351573615737157381573915740157411574215743157441574515746157471574815749157501575115752157531575415755157561575715758157591576015761157621576315764157651576615767157681576915770157711577215773157741577515776157771577815779157801578115782157831578415785157861578715788157891579015791157921579315794157951579615797157981579915800158011580215803158041580515806158071580815809158101581115812158131581415815158161581715818158191582015821158221582315824158251582615827158281582915830158311583215833158341583515836158371583815839158401584115842158431584415845158461584715848158491585015851158521585315854158551585615857158581585915860158611586215863158641586515866158671586815869158701587115872158731587415875158761587715878158791588015881158821588315884158851588615887158881588915890158911589215893158941589515896158971589815899159001590115902159031590415905159061590715908159091591015911159121591315914159151591615917159181591915920159211592215923159241592515926159271592815929159301593115932159331593415935159361593715938159391594015941159421594315944159451594615947159481594915950159511595215953159541595515956159571595815959159601596115962159631596415965159661596715968159691597015971159721597315974159751597615977159781597915980159811598215983159841598515986159871598815989159901599115992159931599415995159961599715998159991600016001160021600316004160051600616007160081600916010160111601216013160141601516016160171601816019160201602116022160231602416025160261602716028160291603016031160321603316034160351603616037160381603916040160411604216043160441604516046160471604816049160501605116052160531605416055160561605716058160591606016061160621606316064160651606616067160681606916070160711607216073160741607516076160771607816079160801608116082160831608416085160861608716088160891609016091160921609316094160951609616097160981609916100161011610216103161041610516106161071610816109161101611116112161131611416115161161611716118161191612016121161221612316124161251612616127161281612916130161311613216133161341613516136161371613816139161401614116142161431614416145161461614716148161491615016151161521615316154161551615616157161581615916160161611616216163161641616516166161671616816169161701617116172161731617416175161761617716178161791618016181161821618316184161851618616187161881618916190161911619216193161941619516196161971619816199162001620116202162031620416205162061620716208162091621016211162121621316214162151621616217162181621916220162211622216223162241622516226162271622816229162301623116232162331623416235162361623716238162391624016241162421624316244162451624616247162481624916250162511625216253162541625516256162571625816259162601626116262162631626416265162661626716268162691627016271162721627316274162751627616277162781627916280162811628216283162841628516286162871628816289162901629116292162931629416295162961629716298162991630016301163021630316304163051630616307163081630916310163111631216313163141631516316163171631816319163201632116322163231632416325163261632716328163291633016331163321633316334163351633616337163381633916340163411634216343163441634516346163471634816349163501635116352163531635416355163561635716358163591636016361163621636316364163651636616367163681636916370163711637216373163741637516376163771637816379163801638116382163831638416385163861638716388163891639016391163921639316394163951639616397163981639916400164011640216403164041640516406164071640816409164101641116412164131641416415164161641716418164191642016421164221642316424164251642616427164281642916430164311643216433164341643516436164371643816439164401644116442164431644416445164461644716448164491645016451164521645316454164551645616457164581645916460164611646216463164641646516466164671646816469164701647116472164731647416475164761647716478164791648016481164821648316484164851648616487164881648916490164911649216493164941649516496164971649816499165001650116502165031650416505165061650716508165091651016511165121651316514165151651616517165181651916520165211652216523165241652516526165271652816529165301653116532165331653416535165361653716538165391654016541165421654316544165451654616547165481654916550165511655216553165541655516556165571655816559165601656116562165631656416565165661656716568165691657016571165721657316574165751657616577165781657916580165811658216583165841658516586165871658816589165901659116592165931659416595165961659716598165991660016601166021660316604166051660616607166081660916610166111661216613166141661516616166171661816619166201662116622166231662416625166261662716628166291663016631166321663316634166351663616637166381663916640166411664216643166441664516646166471664816649166501665116652166531665416655166561665716658166591666016661166621666316664166651666616667166681666916670166711667216673166741667516676166771667816679166801668116682166831668416685166861668716688166891669016691166921669316694166951669616697166981669916700167011670216703167041670516706167071670816709167101671116712167131671416715167161671716718167191672016721167221672316724167251672616727167281672916730167311673216733167341673516736167371673816739167401674116742167431674416745167461674716748167491675016751167521675316754167551675616757167581675916760167611676216763167641676516766167671676816769167701677116772167731677416775167761677716778167791678016781167821678316784167851678616787167881678916790167911679216793167941679516796167971679816799168001680116802168031680416805168061680716808168091681016811168121681316814168151681616817168181681916820168211682216823168241682516826168271682816829168301683116832168331683416835168361683716838168391684016841168421684316844168451684616847168481684916850168511685216853168541685516856168571685816859168601686116862168631686416865168661686716868168691687016871168721687316874168751687616877168781687916880168811688216883168841688516886168871688816889168901689116892168931689416895168961689716898168991690016901169021690316904169051690616907169081690916910169111691216913169141691516916169171691816919169201692116922169231692416925169261692716928169291693016931169321693316934169351693616937169381693916940169411694216943169441694516946169471694816949169501695116952169531695416955169561695716958169591696016961169621696316964169651696616967169681696916970169711697216973169741697516976169771697816979169801698116982169831698416985169861698716988169891699016991169921699316994169951699616997169981699917000170011700217003170041700517006170071700817009170101701117012170131701417015170161701717018170191702017021170221702317024170251702617027170281702917030170311703217033170341703517036170371703817039170401704117042170431704417045170461704717048170491705017051170521705317054170551705617057170581705917060170611706217063170641706517066170671706817069170701707117072170731707417075170761707717078170791708017081170821708317084170851708617087170881708917090170911709217093170941709517096170971709817099171001710117102171031710417105171061710717108171091711017111171121711317114171151711617117171181711917120171211712217123171241712517126171271712817129171301713117132171331713417135171361713717138171391714017141171421714317144171451714617147171481714917150171511715217153171541715517156171571715817159171601716117162171631716417165171661716717168171691717017171171721717317174171751717617177171781717917180171811718217183171841718517186171871718817189171901719117192171931719417195171961719717198171991720017201172021720317204172051720617207172081720917210172111721217213172141721517216172171721817219172201722117222172231722417225172261722717228172291723017231172321723317234172351723617237172381723917240172411724217243172441724517246172471724817249172501725117252172531725417255172561725717258172591726017261172621726317264172651726617267172681726917270172711727217273172741727517276172771727817279172801728117282172831728417285172861728717288172891729017291172921729317294172951729617297172981729917300173011730217303173041730517306173071730817309173101731117312173131731417315173161731717318173191732017321173221732317324173251732617327173281732917330173311733217333173341733517336173371733817339173401734117342173431734417345173461734717348173491735017351173521735317354173551735617357173581735917360173611736217363173641736517366173671736817369173701737117372173731737417375173761737717378173791738017381173821738317384173851738617387173881738917390173911739217393173941739517396173971739817399174001740117402174031740417405174061740717408174091741017411174121741317414174151741617417174181741917420174211742217423174241742517426174271742817429174301743117432174331743417435174361743717438174391744017441174421744317444174451744617447174481744917450174511745217453174541745517456174571745817459174601746117462174631746417465174661746717468174691747017471174721747317474174751747617477174781747917480174811748217483174841748517486174871748817489174901749117492174931749417495174961749717498174991750017501175021750317504175051750617507175081750917510175111751217513175141751517516175171751817519175201752117522175231752417525175261752717528175291753017531175321753317534175351753617537175381753917540175411754217543175441754517546175471754817549175501755117552175531755417555175561755717558175591756017561175621756317564175651756617567175681756917570175711757217573175741757517576175771757817579175801758117582175831758417585175861758717588175891759017591175921759317594175951759617597175981759917600176011760217603176041760517606176071760817609176101761117612176131761417615176161761717618176191762017621176221762317624176251762617627176281762917630176311763217633176341763517636176371763817639176401764117642176431764417645176461764717648176491765017651176521765317654176551765617657176581765917660176611766217663176641766517666176671766817669176701767117672176731767417675176761767717678176791768017681176821768317684176851768617687176881768917690176911769217693176941769517696176971769817699177001770117702177031770417705177061770717708177091771017711177121771317714177151771617717177181771917720177211772217723177241772517726177271772817729177301773117732177331773417735177361773717738177391774017741177421774317744177451774617747177481774917750177511775217753177541775517756177571775817759177601776117762177631776417765177661776717768177691777017771177721777317774177751777617777177781777917780177811778217783177841778517786177871778817789177901779117792177931779417795177961779717798177991780017801178021780317804178051780617807178081780917810178111781217813178141781517816178171781817819178201782117822178231782417825178261782717828178291783017831178321783317834178351783617837178381783917840178411784217843178441784517846178471784817849178501785117852178531785417855178561785717858178591786017861178621786317864178651786617867178681786917870178711787217873178741787517876178771787817879178801788117882178831788417885178861788717888178891789017891178921789317894178951789617897178981789917900179011790217903179041790517906179071790817909179101791117912179131791417915179161791717918179191792017921179221792317924179251792617927179281792917930179311793217933179341793517936179371793817939179401794117942179431794417945179461794717948179491795017951179521795317954179551795617957179581795917960179611796217963179641796517966179671796817969179701797117972179731797417975179761797717978179791798017981179821798317984179851798617987179881798917990179911799217993179941799517996179971799817999180001800118002180031800418005180061800718008180091801018011180121801318014180151801618017180181801918020180211802218023180241802518026180271802818029180301803118032180331803418035180361803718038180391804018041180421804318044180451804618047180481804918050180511805218053180541805518056180571805818059180601806118062180631806418065180661806718068180691807018071180721807318074180751807618077180781807918080180811808218083180841808518086180871808818089180901809118092180931809418095180961809718098180991810018101181021810318104181051810618107181081810918110181111811218113181141811518116181171811818119181201812118122181231812418125181261812718128181291813018131181321813318134181351813618137181381813918140181411814218143181441814518146181471814818149181501815118152181531815418155181561815718158181591816018161181621816318164181651816618167181681816918170181711817218173181741817518176181771817818179181801818118182181831818418185181861818718188181891819018191181921819318194181951819618197181981819918200182011820218203182041820518206182071820818209182101821118212182131821418215182161821718218182191822018221182221822318224182251822618227182281822918230182311823218233182341823518236182371823818239182401824118242182431824418245182461824718248182491825018251182521825318254182551825618257182581825918260182611826218263182641826518266182671826818269182701827118272182731827418275182761827718278182791828018281182821828318284182851828618287182881828918290182911829218293182941829518296182971829818299183001830118302183031830418305183061830718308183091831018311183121831318314183151831618317183181831918320183211832218323183241832518326183271832818329183301833118332183331833418335183361833718338183391834018341183421834318344183451834618347183481834918350183511835218353183541835518356183571835818359183601836118362183631836418365183661836718368183691837018371183721837318374183751837618377183781837918380183811838218383183841838518386183871838818389183901839118392183931839418395183961839718398183991840018401184021840318404184051840618407184081840918410184111841218413184141841518416184171841818419184201842118422184231842418425184261842718428184291843018431184321843318434184351843618437184381843918440184411844218443184441844518446184471844818449184501845118452184531845418455184561845718458184591846018461184621846318464184651846618467184681846918470184711847218473184741847518476184771847818479184801848118482184831848418485184861848718488184891849018491184921849318494184951849618497184981849918500185011850218503185041850518506185071850818509185101851118512185131851418515185161851718518185191852018521185221852318524185251852618527185281852918530185311853218533185341853518536185371853818539185401854118542185431854418545185461854718548185491855018551185521855318554185551855618557185581855918560185611856218563185641856518566185671856818569185701857118572185731857418575185761857718578185791858018581185821858318584185851858618587185881858918590185911859218593185941859518596185971859818599186001860118602186031860418605186061860718608186091861018611186121861318614186151861618617186181861918620186211862218623186241862518626186271862818629186301863118632186331863418635186361863718638186391864018641186421864318644186451864618647186481864918650186511865218653186541865518656186571865818659186601866118662186631866418665186661866718668186691867018671186721867318674186751867618677186781867918680186811868218683186841868518686186871868818689186901869118692186931869418695186961869718698186991870018701187021870318704187051870618707187081870918710187111871218713187141871518716187171871818719187201872118722187231872418725187261872718728187291873018731187321873318734187351873618737187381873918740187411874218743187441874518746187471874818749187501875118752187531875418755187561875718758187591876018761187621876318764187651876618767187681876918770187711877218773187741877518776187771877818779187801878118782187831878418785187861878718788187891879018791187921879318794187951879618797187981879918800188011880218803188041880518806188071880818809188101881118812188131881418815188161881718818188191882018821188221882318824188251882618827188281882918830188311883218833188341883518836188371883818839188401884118842188431884418845188461884718848188491885018851188521885318854188551885618857188581885918860188611886218863188641886518866188671886818869188701887118872188731887418875188761887718878188791888018881188821888318884188851888618887188881888918890188911889218893188941889518896188971889818899189001890118902189031890418905189061890718908189091891018911189121891318914189151891618917189181891918920189211892218923189241892518926189271892818929189301893118932189331893418935189361893718938189391894018941189421894318944189451894618947189481894918950189511895218953189541895518956189571895818959189601896118962189631896418965189661896718968189691897018971189721897318974189751897618977189781897918980189811898218983189841898518986189871898818989189901899118992189931899418995189961899718998189991900019001190021900319004190051900619007190081900919010190111901219013190141901519016190171901819019190201902119022190231902419025190261902719028190291903019031190321903319034190351903619037190381903919040190411904219043190441904519046190471904819049190501905119052190531905419055190561905719058190591906019061190621906319064190651906619067190681906919070190711907219073190741907519076190771907819079190801908119082190831908419085190861908719088190891909019091190921909319094190951909619097190981909919100191011910219103191041910519106191071910819109191101911119112191131911419115191161911719118191191912019121191221912319124191251912619127191281912919130191311913219133191341913519136191371913819139191401914119142191431914419145191461914719148191491915019151191521915319154191551915619157191581915919160191611916219163191641916519166191671916819169191701917119172191731917419175191761917719178191791918019181191821918319184191851918619187191881918919190191911919219193191941919519196191971919819199192001920119202192031920419205192061920719208192091921019211192121921319214192151921619217192181921919220192211922219223192241922519226192271922819229192301923119232192331923419235192361923719238192391924019241192421924319244192451924619247192481924919250192511925219253192541925519256192571925819259192601926119262192631926419265192661926719268192691927019271192721927319274192751927619277192781927919280192811928219283192841928519286192871928819289192901929119292192931929419295192961929719298192991930019301193021930319304193051930619307193081930919310193111931219313193141931519316193171931819319193201932119322193231932419325193261932719328193291933019331193321933319334193351933619337193381933919340193411934219343193441934519346193471934819349193501935119352193531935419355193561935719358193591936019361193621936319364193651936619367193681936919370193711937219373193741937519376193771937819379193801938119382193831938419385193861938719388193891939019391193921939319394193951939619397193981939919400194011940219403194041940519406194071940819409194101941119412194131941419415194161941719418194191942019421194221942319424194251942619427194281942919430194311943219433194341943519436194371943819439194401944119442194431944419445194461944719448194491945019451194521945319454194551945619457194581945919460194611946219463194641946519466194671946819469194701947119472194731947419475194761947719478194791948019481194821948319484194851948619487194881948919490194911949219493194941949519496194971949819499195001950119502195031950419505195061950719508195091951019511195121951319514195151951619517195181951919520195211952219523195241952519526195271952819529195301953119532195331953419535195361953719538195391954019541195421954319544195451954619547195481954919550195511955219553195541955519556195571955819559195601956119562195631956419565195661956719568195691957019571195721957319574195751957619577195781957919580195811958219583195841958519586195871958819589195901959119592195931959419595195961959719598195991960019601196021960319604196051960619607196081960919610196111961219613196141961519616196171961819619196201962119622196231962419625196261962719628196291963019631196321963319634196351963619637196381963919640196411964219643196441964519646196471964819649196501965119652196531965419655196561965719658196591966019661196621966319664196651966619667196681966919670196711967219673196741967519676196771967819679196801968119682196831968419685196861968719688196891969019691196921969319694196951969619697196981969919700197011970219703197041970519706197071970819709197101971119712197131971419715197161971719718197191972019721197221972319724197251972619727197281972919730197311973219733197341973519736197371973819739197401974119742197431974419745197461974719748197491975019751197521975319754197551975619757197581975919760197611976219763197641976519766197671976819769197701977119772197731977419775197761977719778197791978019781197821978319784197851978619787197881978919790197911979219793197941979519796197971979819799198001980119802198031980419805198061980719808198091981019811198121981319814198151981619817198181981919820198211982219823198241982519826198271982819829198301983119832198331983419835198361983719838198391984019841198421984319844198451984619847198481984919850198511985219853198541985519856198571985819859198601986119862198631986419865198661986719868198691987019871198721987319874198751987619877198781987919880198811988219883198841988519886198871988819889198901989119892198931989419895198961989719898198991990019901199021990319904199051990619907199081990919910199111991219913199141991519916199171991819919199201992119922199231992419925199261992719928199291993019931199321993319934199351993619937199381993919940199411994219943199441994519946199471994819949199501995119952199531995419955199561995719958199591996019961199621996319964199651996619967199681996919970199711997219973199741997519976199771997819979199801998119982199831998419985199861998719988199891999019991199921999319994199951999619997199981999920000200012000220003200042000520006200072000820009200102001120012200132001420015200162001720018200192002020021200222002320024200252002620027200282002920030200312003220033200342003520036200372003820039200402004120042200432004420045200462004720048200492005020051200522005320054200552005620057200582005920060200612006220063200642006520066200672006820069200702007120072200732007420075200762007720078200792008020081200822008320084200852008620087200882008920090200912009220093200942009520096200972009820099201002010120102201032010420105201062010720108201092011020111201122011320114201152011620117201182011920120201212012220123201242012520126201272012820129201302013120132201332013420135201362013720138201392014020141201422014320144201452014620147201482014920150201512015220153201542015520156201572015820159201602016120162201632016420165201662016720168201692017020171201722017320174201752017620177201782017920180201812018220183201842018520186201872018820189201902019120192201932019420195201962019720198201992020020201202022020320204202052020620207202082020920210202112021220213202142021520216202172021820219202202022120222202232022420225202262022720228202292023020231202322023320234202352023620237202382023920240202412024220243202442024520246202472024820249202502025120252202532025420255202562025720258202592026020261202622026320264202652026620267202682026920270202712027220273202742027520276202772027820279202802028120282202832028420285202862028720288202892029020291202922029320294202952029620297202982029920300203012030220303203042030520306203072030820309203102031120312203132031420315203162031720318203192032020321203222032320324203252032620327203282032920330203312033220333203342033520336203372033820339203402034120342203432034420345203462034720348203492035020351203522035320354203552035620357203582035920360203612036220363203642036520366203672036820369203702037120372203732037420375203762037720378203792038020381203822038320384203852038620387203882038920390203912039220393203942039520396203972039820399204002040120402204032040420405204062040720408204092041020411204122041320414204152041620417204182041920420204212042220423204242042520426204272042820429204302043120432204332043420435204362043720438204392044020441204422044320444204452044620447204482044920450204512045220453204542045520456204572045820459204602046120462204632046420465204662046720468204692047020471204722047320474204752047620477204782047920480204812048220483204842048520486204872048820489204902049120492204932049420495204962049720498204992050020501205022050320504205052050620507205082050920510205112051220513205142051520516205172051820519205202052120522205232052420525205262052720528205292053020531205322053320534205352053620537205382053920540205412054220543205442054520546205472054820549205502055120552205532055420555205562055720558205592056020561205622056320564205652056620567205682056920570205712057220573205742057520576205772057820579205802058120582205832058420585205862058720588205892059020591205922059320594205952059620597205982059920600206012060220603206042060520606206072060820609206102061120612206132061420615206162061720618206192062020621206222062320624206252062620627206282062920630206312063220633206342063520636206372063820639206402064120642206432064420645206462064720648206492065020651206522065320654206552065620657206582065920660206612066220663206642066520666206672066820669206702067120672206732067420675206762067720678206792068020681206822068320684206852068620687206882068920690206912069220693206942069520696206972069820699207002070120702207032070420705207062070720708207092071020711207122071320714207152071620717207182071920720207212072220723207242072520726207272072820729207302073120732207332073420735207362073720738207392074020741207422074320744207452074620747207482074920750207512075220753207542075520756207572075820759207602076120762207632076420765207662076720768207692077020771207722077320774207752077620777207782077920780207812078220783207842078520786207872078820789207902079120792207932079420795207962079720798207992080020801208022080320804208052080620807208082080920810208112081220813208142081520816208172081820819208202082120822208232082420825208262082720828208292083020831208322083320834208352083620837208382083920840208412084220843208442084520846208472084820849208502085120852208532085420855208562085720858208592086020861208622086320864208652086620867208682086920870208712087220873208742087520876208772087820879208802088120882208832088420885208862088720888208892089020891208922089320894208952089620897208982089920900209012090220903209042090520906209072090820909209102091120912209132091420915209162091720918209192092020921209222092320924209252092620927209282092920930209312093220933209342093520936209372093820939209402094120942209432094420945209462094720948209492095020951209522095320954209552095620957209582095920960209612096220963209642096520966209672096820969209702097120972209732097420975209762097720978209792098020981209822098320984209852098620987209882098920990209912099220993209942099520996209972099820999210002100121002210032100421005210062100721008210092101021011210122101321014210152101621017210182101921020210212102221023210242102521026210272102821029210302103121032210332103421035210362103721038210392104021041210422104321044210452104621047210482104921050210512105221053210542105521056210572105821059210602106121062210632106421065210662106721068210692107021071210722107321074210752107621077210782107921080210812108221083210842108521086210872108821089210902109121092210932109421095210962109721098210992110021101211022110321104211052110621107211082110921110211112111221113211142111521116211172111821119211202112121122211232112421125211262112721128211292113021131211322113321134211352113621137211382113921140211412114221143211442114521146211472114821149211502115121152211532115421155211562115721158211592116021161211622116321164211652116621167211682116921170211712117221173211742117521176211772117821179211802118121182211832118421185211862118721188211892119021191211922119321194211952119621197211982119921200212012120221203212042120521206212072120821209212102121121212212132121421215212162121721218212192122021221212222122321224212252122621227212282122921230212312123221233212342123521236212372123821239212402124121242212432124421245212462124721248212492125021251212522125321254212552125621257212582125921260212612126221263212642126521266212672126821269212702127121272212732127421275212762127721278212792128021281212822128321284212852128621287212882128921290212912129221293212942129521296212972129821299213002130121302213032130421305213062130721308213092131021311213122131321314213152131621317213182131921320213212132221323213242132521326213272132821329213302133121332213332133421335213362133721338213392134021341213422134321344213452134621347213482134921350213512135221353213542135521356213572135821359213602136121362213632136421365213662136721368213692137021371213722137321374213752137621377213782137921380213812138221383213842138521386213872138821389213902139121392213932139421395213962139721398213992140021401214022140321404214052140621407214082140921410214112141221413214142141521416214172141821419214202142121422214232142421425214262142721428214292143021431214322143321434214352143621437214382143921440214412144221443214442144521446214472144821449214502145121452214532145421455214562145721458214592146021461214622146321464214652146621467214682146921470214712147221473214742147521476214772147821479214802148121482214832148421485214862148721488214892149021491214922149321494214952149621497214982149921500215012150221503215042150521506215072150821509215102151121512215132151421515215162151721518215192152021521215222152321524215252152621527215282152921530215312153221533215342153521536215372153821539215402154121542215432154421545215462154721548215492155021551215522155321554215552155621557215582155921560215612156221563215642156521566215672156821569215702157121572215732157421575215762157721578215792158021581215822158321584215852158621587215882158921590215912159221593215942159521596215972159821599216002160121602216032160421605216062160721608216092161021611216122161321614216152161621617216182161921620216212162221623216242162521626216272162821629216302163121632216332163421635216362163721638216392164021641216422164321644216452164621647216482164921650216512165221653216542165521656216572165821659216602166121662216632166421665216662166721668216692167021671216722167321674216752167621677216782167921680216812168221683216842168521686216872168821689216902169121692216932169421695216962169721698216992170021701217022170321704217052170621707217082170921710217112171221713217142171521716217172171821719217202172121722217232172421725217262172721728217292173021731217322173321734217352173621737217382173921740217412174221743217442174521746217472174821749217502175121752217532175421755217562175721758217592176021761217622176321764217652176621767217682176921770217712177221773217742177521776217772177821779217802178121782217832178421785217862178721788217892179021791217922179321794217952179621797217982179921800218012180221803218042180521806218072180821809218102181121812218132181421815218162181721818218192182021821218222182321824218252182621827218282182921830218312183221833218342183521836218372183821839218402184121842218432184421845218462184721848218492185021851218522185321854218552185621857218582185921860218612186221863218642186521866218672186821869218702187121872218732187421875218762187721878218792188021881218822188321884218852188621887218882188921890218912189221893218942189521896218972189821899219002190121902219032190421905219062190721908219092191021911219122191321914219152191621917219182191921920219212192221923219242192521926219272192821929219302193121932219332193421935219362193721938219392194021941219422194321944219452194621947219482194921950219512195221953219542195521956219572195821959219602196121962219632196421965219662196721968219692197021971219722197321974219752197621977219782197921980219812198221983219842198521986219872198821989219902199121992219932199421995219962199721998219992200022001220022200322004220052200622007220082200922010220112201222013220142201522016220172201822019220202202122022220232202422025220262202722028220292203022031220322203322034220352203622037220382203922040220412204222043220442204522046220472204822049220502205122052220532205422055220562205722058220592206022061220622206322064220652206622067220682206922070220712207222073220742207522076220772207822079220802208122082220832208422085220862208722088220892209022091220922209322094220952209622097220982209922100221012210222103221042210522106221072210822109221102211122112221132211422115221162211722118221192212022121221222212322124221252212622127221282212922130221312213222133221342213522136221372213822139221402214122142221432214422145221462214722148221492215022151221522215322154221552215622157221582215922160221612216222163221642216522166221672216822169221702217122172221732217422175221762217722178221792218022181221822218322184221852218622187221882218922190221912219222193221942219522196221972219822199222002220122202222032220422205222062220722208222092221022211222122221322214222152221622217222182221922220222212222222223222242222522226222272222822229222302223122232222332223422235222362223722238222392224022241222422224322244222452224622247222482224922250222512225222253222542225522256222572225822259222602226122262222632226422265222662226722268222692227022271222722227322274222752227622277222782227922280222812228222283222842228522286222872228822289222902229122292222932229422295222962229722298222992230022301223022230322304223052230622307223082230922310223112231222313223142231522316223172231822319223202232122322223232232422325223262232722328223292233022331223322233322334223352233622337223382233922340223412234222343223442234522346223472234822349223502235122352223532235422355223562235722358223592236022361223622236322364223652236622367223682236922370223712237222373223742237522376223772237822379223802238122382223832238422385223862238722388223892239022391223922239322394223952239622397223982239922400224012240222403224042240522406224072240822409224102241122412224132241422415224162241722418224192242022421224222242322424224252242622427224282242922430224312243222433224342243522436224372243822439224402244122442224432244422445224462244722448224492245022451224522245322454224552245622457224582245922460224612246222463224642246522466224672246822469224702247122472224732247422475224762247722478224792248022481224822248322484224852248622487224882248922490224912249222493224942249522496224972249822499225002250122502225032250422505225062250722508225092251022511225122251322514225152251622517225182251922520225212252222523225242252522526225272252822529225302253122532225332253422535225362253722538225392254022541225422254322544225452254622547225482254922550225512255222553225542255522556225572255822559225602256122562225632256422565225662256722568225692257022571225722257322574225752257622577225782257922580225812258222583225842258522586225872258822589225902259122592225932259422595225962259722598225992260022601226022260322604226052260622607226082260922610226112261222613226142261522616226172261822619226202262122622226232262422625226262262722628226292263022631226322263322634226352263622637226382263922640226412264222643226442264522646226472264822649226502265122652226532265422655226562265722658226592266022661226622266322664226652266622667226682266922670226712267222673226742267522676226772267822679226802268122682226832268422685226862268722688226892269022691226922269322694226952269622697226982269922700227012270222703227042270522706227072270822709227102271122712227132271422715227162271722718227192272022721227222272322724227252272622727227282272922730227312273222733227342273522736227372273822739227402274122742227432274422745227462274722748227492275022751227522275322754227552275622757227582275922760227612276222763227642276522766227672276822769227702277122772227732277422775227762277722778227792278022781227822278322784227852278622787227882278922790227912279222793227942279522796227972279822799228002280122802228032280422805228062280722808228092281022811228122281322814228152281622817228182281922820228212282222823228242282522826228272282822829228302283122832228332283422835228362283722838228392284022841228422284322844228452284622847228482284922850228512285222853228542285522856228572285822859228602286122862228632286422865228662286722868228692287022871228722287322874228752287622877228782287922880228812288222883228842288522886228872288822889228902289122892228932289422895228962289722898228992290022901229022290322904229052290622907229082290922910229112291222913229142291522916229172291822919229202292122922229232292422925229262292722928229292293022931229322293322934229352293622937229382293922940229412294222943229442294522946229472294822949229502295122952229532295422955229562295722958229592296022961229622296322964229652296622967229682296922970229712297222973229742297522976229772297822979229802298122982229832298422985229862298722988229892299022991229922299322994229952299622997229982299923000230012300223003230042300523006230072300823009230102301123012230132301423015230162301723018230192302023021230222302323024230252302623027230282302923030230312303223033230342303523036230372303823039230402304123042230432304423045230462304723048230492305023051230522305323054230552305623057230582305923060230612306223063230642306523066230672306823069230702307123072230732307423075230762307723078230792308023081230822308323084230852308623087230882308923090230912309223093230942309523096230972309823099231002310123102231032310423105231062310723108231092311023111231122311323114231152311623117231182311923120231212312223123231242312523126231272312823129231302313123132231332313423135231362313723138231392314023141231422314323144231452314623147231482314923150231512315223153231542315523156231572315823159231602316123162231632316423165231662316723168231692317023171231722317323174231752317623177231782317923180231812318223183231842318523186231872318823189231902319123192231932319423195231962319723198231992320023201232022320323204232052320623207232082320923210232112321223213232142321523216232172321823219232202322123222232232322423225232262322723228232292323023231232322323323234232352323623237232382323923240232412324223243232442324523246232472324823249232502325123252232532325423255232562325723258232592326023261232622326323264232652326623267232682326923270232712327223273232742327523276232772327823279232802328123282232832328423285232862328723288232892329023291232922329323294232952329623297232982329923300233012330223303233042330523306233072330823309233102331123312233132331423315233162331723318233192332023321233222332323324233252332623327233282332923330233312333223333233342333523336233372333823339233402334123342233432334423345233462334723348233492335023351233522335323354233552335623357233582335923360233612336223363233642336523366233672336823369233702337123372233732337423375233762337723378233792338023381233822338323384233852338623387233882338923390233912339223393233942339523396233972339823399234002340123402234032340423405234062340723408234092341023411234122341323414234152341623417234182341923420234212342223423234242342523426234272342823429234302343123432234332343423435234362343723438234392344023441234422344323444234452344623447234482344923450234512345223453234542345523456234572345823459234602346123462234632346423465234662346723468234692347023471234722347323474234752347623477234782347923480234812348223483234842348523486234872348823489234902349123492234932349423495234962349723498234992350023501235022350323504235052350623507235082350923510235112351223513235142351523516235172351823519235202352123522235232352423525235262352723528235292353023531235322353323534235352353623537235382353923540235412354223543235442354523546235472354823549235502355123552235532355423555235562355723558235592356023561235622356323564235652356623567235682356923570235712357223573235742357523576235772357823579235802358123582235832358423585235862358723588235892359023591235922359323594235952359623597235982359923600236012360223603236042360523606236072360823609236102361123612236132361423615236162361723618236192362023621236222362323624236252362623627236282362923630236312363223633236342363523636236372363823639236402364123642236432364423645236462364723648236492365023651236522365323654236552365623657236582365923660236612366223663236642366523666236672366823669236702367123672236732367423675236762367723678236792368023681236822368323684236852368623687236882368923690236912369223693236942369523696236972369823699237002370123702237032370423705237062370723708237092371023711237122371323714237152371623717237182371923720237212372223723237242372523726237272372823729237302373123732237332373423735237362373723738237392374023741237422374323744237452374623747237482374923750237512375223753237542375523756237572375823759237602376123762237632376423765237662376723768237692377023771237722377323774237752377623777237782377923780237812378223783237842378523786237872378823789237902379123792237932379423795237962379723798237992380023801238022380323804238052380623807238082380923810238112381223813238142381523816238172381823819238202382123822238232382423825238262382723828238292383023831238322383323834238352383623837238382383923840238412384223843238442384523846238472384823849238502385123852238532385423855238562385723858238592386023861238622386323864238652386623867238682386923870238712387223873238742387523876238772387823879238802388123882238832388423885238862388723888238892389023891238922389323894238952389623897238982389923900239012390223903239042390523906239072390823909239102391123912239132391423915239162391723918239192392023921239222392323924239252392623927239282392923930239312393223933239342393523936239372393823939239402394123942239432394423945239462394723948239492395023951239522395323954239552395623957239582395923960239612396223963239642396523966239672396823969239702397123972239732397423975239762397723978239792398023981239822398323984239852398623987239882398923990239912399223993239942399523996239972399823999240002400124002240032400424005240062400724008240092401024011240122401324014240152401624017240182401924020240212402224023240242402524026240272402824029240302403124032240332403424035240362403724038240392404024041240422404324044240452404624047240482404924050240512405224053240542405524056240572405824059240602406124062240632406424065240662406724068240692407024071240722407324074240752407624077240782407924080240812408224083240842408524086240872408824089240902409124092240932409424095240962409724098240992410024101241022410324104241052410624107241082410924110241112411224113241142411524116241172411824119241202412124122241232412424125241262412724128241292413024131241322413324134241352413624137241382413924140241412414224143241442414524146241472414824149241502415124152241532415424155241562415724158241592416024161241622416324164241652416624167241682416924170241712417224173241742417524176241772417824179241802418124182241832418424185241862418724188241892419024191241922419324194241952419624197241982419924200242012420224203242042420524206242072420824209242102421124212242132421424215242162421724218242192422024221242222422324224242252422624227242282422924230242312423224233242342423524236242372423824239242402424124242242432424424245242462424724248242492425024251242522425324254242552425624257242582425924260242612426224263242642426524266242672426824269242702427124272242732427424275242762427724278242792428024281242822428324284242852428624287242882428924290242912429224293242942429524296242972429824299243002430124302243032430424305243062430724308243092431024311243122431324314243152431624317243182431924320243212432224323243242432524326243272432824329243302433124332243332433424335243362433724338243392434024341243422434324344243452434624347243482434924350243512435224353243542435524356243572435824359243602436124362243632436424365243662436724368243692437024371243722437324374243752437624377243782437924380243812438224383243842438524386243872438824389243902439124392243932439424395243962439724398243992440024401244022440324404244052440624407244082440924410244112441224413244142441524416244172441824419244202442124422244232442424425244262442724428244292443024431244322443324434244352443624437244382443924440244412444224443244442444524446244472444824449244502445124452244532445424455244562445724458244592446024461244622446324464244652446624467244682446924470244712447224473244742447524476244772447824479244802448124482244832448424485244862448724488244892449024491244922449324494244952449624497244982449924500245012450224503245042450524506245072450824509245102451124512245132451424515245162451724518245192452024521245222452324524245252452624527245282452924530245312453224533245342453524536245372453824539245402454124542245432454424545245462454724548245492455024551245522455324554245552455624557245582455924560245612456224563245642456524566245672456824569245702457124572245732457424575245762457724578245792458024581245822458324584245852458624587245882458924590245912459224593245942459524596245972459824599246002460124602246032460424605246062460724608246092461024611246122461324614246152461624617246182461924620246212462224623246242462524626246272462824629246302463124632246332463424635246362463724638246392464024641246422464324644246452464624647246482464924650246512465224653246542465524656246572465824659246602466124662246632466424665246662466724668246692467024671246722467324674246752467624677246782467924680246812468224683246842468524686246872468824689246902469124692246932469424695246962469724698246992470024701247022470324704247052470624707247082470924710247112471224713247142471524716247172471824719247202472124722247232472424725247262472724728247292473024731247322473324734247352473624737247382473924740247412474224743247442474524746247472474824749247502475124752247532475424755247562475724758247592476024761247622476324764247652476624767247682476924770247712477224773247742477524776247772477824779247802478124782247832478424785247862478724788247892479024791247922479324794247952479624797247982479924800248012480224803248042480524806248072480824809248102481124812248132481424815248162481724818248192482024821248222482324824248252482624827248282482924830248312483224833248342483524836248372483824839248402484124842248432484424845248462484724848248492485024851248522485324854248552485624857248582485924860248612486224863248642486524866248672486824869248702487124872248732487424875248762487724878248792488024881248822488324884248852488624887248882488924890248912489224893248942489524896248972489824899249002490124902249032490424905249062490724908249092491024911249122491324914249152491624917249182491924920249212492224923249242492524926249272492824929249302493124932249332493424935249362493724938249392494024941249422494324944249452494624947249482494924950249512495224953249542495524956249572495824959249602496124962249632496424965249662496724968249692497024971249722497324974249752497624977249782497924980249812498224983249842498524986249872498824989249902499124992249932499424995249962499724998249992500025001250022500325004250052500625007250082500925010250112501225013250142501525016250172501825019250202502125022250232502425025250262502725028250292503025031250322503325034250352503625037250382503925040250412504225043250442504525046250472504825049250502505125052250532505425055250562505725058250592506025061250622506325064250652506625067250682506925070250712507225073250742507525076250772507825079250802508125082250832508425085250862508725088250892509025091250922509325094250952509625097250982509925100251012510225103251042510525106251072510825109251102511125112251132511425115251162511725118251192512025121251222512325124251252512625127251282512925130251312513225133251342513525136251372513825139251402514125142251432514425145251462514725148251492515025151251522515325154251552515625157251582515925160251612516225163251642516525166251672516825169251702517125172251732517425175251762517725178251792518025181251822518325184251852518625187251882518925190251912519225193251942519525196251972519825199252002520125202252032520425205252062520725208252092521025211252122521325214252152521625217252182521925220252212522225223252242522525226252272522825229252302523125232252332523425235252362523725238252392524025241252422524325244252452524625247252482524925250252512525225253252542525525256252572525825259252602526125262252632526425265252662526725268252692527025271252722527325274252752527625277252782527925280252812528225283252842528525286252872528825289252902529125292252932529425295252962529725298252992530025301253022530325304253052530625307253082530925310253112531225313253142531525316253172531825319253202532125322253232532425325253262532725328253292533025331253322533325334253352533625337253382533925340253412534225343253442534525346253472534825349253502535125352253532535425355253562535725358253592536025361253622536325364253652536625367253682536925370253712537225373253742537525376253772537825379253802538125382253832538425385253862538725388253892539025391253922539325394253952539625397253982539925400254012540225403254042540525406254072540825409254102541125412254132541425415254162541725418254192542025421254222542325424254252542625427254282542925430254312543225433254342543525436254372543825439254402544125442254432544425445254462544725448254492545025451254522545325454254552545625457254582545925460254612546225463254642546525466254672546825469254702547125472254732547425475254762547725478254792548025481254822548325484254852548625487254882548925490254912549225493254942549525496254972549825499255002550125502255032550425505255062550725508255092551025511255122551325514255152551625517255182551925520255212552225523255242552525526255272552825529255302553125532255332553425535255362553725538255392554025541255422554325544255452554625547255482554925550255512555225553255542555525556255572555825559255602556125562255632556425565255662556725568255692557025571255722557325574255752557625577255782557925580255812558225583255842558525586255872558825589255902559125592255932559425595255962559725598255992560025601256022560325604256052560625607256082560925610256112561225613256142561525616256172561825619256202562125622256232562425625256262562725628256292563025631256322563325634256352563625637256382563925640256412564225643256442564525646256472564825649256502565125652256532565425655256562565725658256592566025661256622566325664256652566625667256682566925670256712567225673256742567525676256772567825679256802568125682256832568425685256862568725688256892569025691256922569325694256952569625697256982569925700257012570225703257042570525706257072570825709257102571125712257132571425715257162571725718257192572025721257222572325724257252572625727257282572925730257312573225733257342573525736257372573825739257402574125742257432574425745257462574725748257492575025751257522575325754257552575625757257582575925760257612576225763257642576525766257672576825769257702577125772257732577425775257762577725778257792578025781257822578325784257852578625787257882578925790257912579225793257942579525796257972579825799258002580125802258032580425805258062580725808258092581025811258122581325814258152581625817258182581925820258212582225823258242582525826258272582825829258302583125832258332583425835258362583725838258392584025841258422584325844258452584625847258482584925850258512585225853258542585525856258572585825859258602586125862258632586425865258662586725868258692587025871258722587325874258752587625877258782587925880258812588225883258842588525886258872588825889258902589125892258932589425895258962589725898258992590025901259022590325904259052590625907259082590925910259112591225913259142591525916259172591825919259202592125922259232592425925259262592725928259292593025931259322593325934259352593625937259382593925940259412594225943259442594525946259472594825949259502595125952259532595425955259562595725958259592596025961259622596325964259652596625967259682596925970259712597225973259742597525976259772597825979259802598125982259832598425985259862598725988259892599025991259922599325994259952599625997259982599926000260012600226003260042600526006260072600826009260102601126012260132601426015260162601726018260192602026021260222602326024260252602626027260282602926030260312603226033260342603526036260372603826039260402604126042260432604426045260462604726048260492605026051260522605326054260552605626057260582605926060260612606226063260642606526066260672606826069260702607126072260732607426075260762607726078260792608026081260822608326084260852608626087260882608926090260912609226093260942609526096260972609826099261002610126102261032610426105261062610726108261092611026111261122611326114261152611626117261182611926120261212612226123261242612526126261272612826129261302613126132261332613426135261362613726138261392614026141261422614326144261452614626147261482614926150261512615226153261542615526156261572615826159261602616126162261632616426165261662616726168261692617026171261722617326174261752617626177261782617926180261812618226183261842618526186261872618826189261902619126192261932619426195261962619726198261992620026201262022620326204262052620626207262082620926210262112621226213262142621526216262172621826219262202622126222262232622426225262262622726228262292623026231262322623326234262352623626237262382623926240262412624226243262442624526246262472624826249262502625126252262532625426255262562625726258262592626026261262622626326264262652626626267262682626926270262712627226273262742627526276262772627826279262802628126282262832628426285262862628726288262892629026291262922629326294262952629626297262982629926300263012630226303263042630526306263072630826309263102631126312263132631426315263162631726318263192632026321263222632326324263252632626327263282632926330263312633226333263342633526336263372633826339263402634126342263432634426345263462634726348263492635026351263522635326354263552635626357263582635926360263612636226363263642636526366263672636826369263702637126372263732637426375263762637726378263792638026381263822638326384263852638626387263882638926390263912639226393263942639526396263972639826399264002640126402264032640426405264062640726408264092641026411264122641326414264152641626417264182641926420264212642226423264242642526426264272642826429264302643126432264332643426435264362643726438264392644026441264422644326444264452644626447264482644926450264512645226453264542645526456264572645826459264602646126462264632646426465264662646726468264692647026471264722647326474264752647626477264782647926480264812648226483264842648526486264872648826489264902649126492264932649426495264962649726498264992650026501265022650326504265052650626507265082650926510265112651226513265142651526516265172651826519265202652126522265232652426525265262652726528265292653026531265322653326534265352653626537265382653926540265412654226543265442654526546265472654826549265502655126552265532655426555265562655726558265592656026561265622656326564265652656626567265682656926570265712657226573265742657526576265772657826579265802658126582265832658426585265862658726588265892659026591265922659326594265952659626597265982659926600266012660226603266042660526606266072660826609266102661126612266132661426615266162661726618266192662026621266222662326624266252662626627266282662926630266312663226633266342663526636266372663826639266402664126642266432664426645266462664726648266492665026651266522665326654266552665626657266582665926660266612666226663266642666526666266672666826669266702667126672266732667426675266762667726678266792668026681266822668326684266852668626687266882668926690266912669226693266942669526696266972669826699267002670126702267032670426705267062670726708267092671026711267122671326714267152671626717267182671926720267212672226723267242672526726267272672826729267302673126732267332673426735267362673726738267392674026741267422674326744267452674626747267482674926750267512675226753267542675526756267572675826759267602676126762267632676426765267662676726768267692677026771267722677326774267752677626777267782677926780267812678226783267842678526786267872678826789267902679126792267932679426795267962679726798267992680026801268022680326804268052680626807268082680926810268112681226813268142681526816268172681826819268202682126822268232682426825268262682726828268292683026831268322683326834268352683626837268382683926840268412684226843268442684526846268472684826849268502685126852268532685426855268562685726858268592686026861268622686326864268652686626867268682686926870268712687226873268742687526876268772687826879268802688126882268832688426885268862688726888268892689026891268922689326894268952689626897268982689926900269012690226903269042690526906269072690826909269102691126912269132691426915269162691726918269192692026921269222692326924269252692626927269282692926930269312693226933269342693526936269372693826939269402694126942269432694426945269462694726948269492695026951269522695326954269552695626957269582695926960269612696226963269642696526966269672696826969269702697126972269732697426975269762697726978269792698026981269822698326984269852698626987269882698926990269912699226993269942699526996269972699826999270002700127002270032700427005270062700727008270092701027011270122701327014270152701627017270182701927020270212702227023270242702527026270272702827029270302703127032270332703427035270362703727038270392704027041270422704327044270452704627047270482704927050270512705227053270542705527056270572705827059270602706127062270632706427065270662706727068270692707027071270722707327074270752707627077270782707927080270812708227083270842708527086270872708827089270902709127092270932709427095270962709727098270992710027101271022710327104271052710627107271082710927110271112711227113271142711527116271172711827119271202712127122271232712427125271262712727128271292713027131271322713327134271352713627137271382713927140271412714227143271442714527146271472714827149271502715127152271532715427155271562715727158271592716027161271622716327164271652716627167271682716927170271712717227173271742717527176271772717827179271802718127182271832718427185271862718727188271892719027191271922719327194271952719627197271982719927200272012720227203272042720527206272072720827209272102721127212272132721427215272162721727218272192722027221272222722327224272252722627227272282722927230272312723227233272342723527236272372723827239272402724127242272432724427245272462724727248272492725027251272522725327254272552725627257272582725927260272612726227263272642726527266272672726827269272702727127272272732727427275272762727727278272792728027281272822728327284272852728627287272882728927290272912729227293272942729527296272972729827299273002730127302273032730427305273062730727308273092731027311273122731327314273152731627317273182731927320273212732227323273242732527326273272732827329273302733127332273332733427335273362733727338273392734027341273422734327344273452734627347273482734927350273512735227353273542735527356273572735827359273602736127362273632736427365273662736727368273692737027371273722737327374273752737627377273782737927380273812738227383273842738527386273872738827389273902739127392273932739427395273962739727398273992740027401274022740327404274052740627407274082740927410274112741227413274142741527416274172741827419274202742127422274232742427425274262742727428274292743027431274322743327434274352743627437274382743927440274412744227443274442744527446274472744827449274502745127452274532745427455274562745727458274592746027461274622746327464274652746627467274682746927470274712747227473274742747527476274772747827479274802748127482274832748427485274862748727488274892749027491274922749327494274952749627497274982749927500275012750227503275042750527506275072750827509275102751127512275132751427515275162751727518275192752027521275222752327524275252752627527275282752927530275312753227533275342753527536275372753827539275402754127542275432754427545275462754727548275492755027551275522755327554275552755627557275582755927560275612756227563275642756527566275672756827569275702757127572275732757427575275762757727578275792758027581275822758327584275852758627587275882758927590275912759227593275942759527596275972759827599276002760127602276032760427605276062760727608276092761027611276122761327614276152761627617276182761927620276212762227623276242762527626276272762827629276302763127632276332763427635276362763727638276392764027641276422764327644276452764627647276482764927650276512765227653276542765527656276572765827659276602766127662276632766427665276662766727668276692767027671276722767327674276752767627677276782767927680276812768227683276842768527686276872768827689276902769127692276932769427695276962769727698276992770027701277022770327704277052770627707277082770927710277112771227713277142771527716277172771827719277202772127722277232772427725277262772727728277292773027731277322773327734277352773627737277382773927740277412774227743277442774527746277472774827749277502775127752277532775427755277562775727758277592776027761277622776327764277652776627767277682776927770277712777227773277742777527776277772777827779277802778127782277832778427785277862778727788277892779027791277922779327794277952779627797277982779927800278012780227803278042780527806278072780827809278102781127812278132781427815278162781727818278192782027821278222782327824278252782627827278282782927830278312783227833278342783527836278372783827839278402784127842278432784427845278462784727848278492785027851278522785327854278552785627857278582785927860278612786227863278642786527866278672786827869278702787127872278732787427875278762787727878278792788027881278822788327884278852788627887278882788927890278912789227893278942789527896278972789827899279002790127902279032790427905279062790727908279092791027911279122791327914279152791627917279182791927920279212792227923279242792527926279272792827929279302793127932279332793427935279362793727938279392794027941279422794327944279452794627947279482794927950279512795227953279542795527956279572795827959279602796127962279632796427965279662796727968279692797027971279722797327974279752797627977279782797927980279812798227983279842798527986279872798827989279902799127992279932799427995279962799727998279992800028001280022800328004280052800628007280082800928010280112801228013280142801528016280172801828019280202802128022280232802428025280262802728028280292803028031280322803328034280352803628037280382803928040280412804228043280442804528046280472804828049280502805128052280532805428055280562805728058280592806028061280622806328064280652806628067280682806928070280712807228073280742807528076280772807828079280802808128082280832808428085280862808728088280892809028091280922809328094280952809628097280982809928100281012810228103281042810528106281072810828109281102811128112281132811428115281162811728118281192812028121281222812328124281252812628127281282812928130281312813228133281342813528136281372813828139281402814128142281432814428145281462814728148281492815028151281522815328154281552815628157281582815928160281612816228163281642816528166281672816828169281702817128172281732817428175281762817728178281792818028181281822818328184281852818628187281882818928190281912819228193281942819528196281972819828199282002820128202282032820428205282062820728208282092821028211282122821328214282152821628217282182821928220282212822228223282242822528226282272822828229282302823128232282332823428235282362823728238282392824028241282422824328244282452824628247282482824928250282512825228253282542825528256282572825828259282602826128262282632826428265282662826728268282692827028271282722827328274282752827628277282782827928280282812828228283282842828528286282872828828289282902829128292282932829428295282962829728298282992830028301283022830328304283052830628307283082830928310283112831228313283142831528316283172831828319283202832128322283232832428325283262832728328283292833028331283322833328334283352833628337283382833928340283412834228343283442834528346283472834828349283502835128352283532835428355283562835728358283592836028361283622836328364283652836628367283682836928370283712837228373283742837528376283772837828379283802838128382283832838428385283862838728388283892839028391283922839328394283952839628397283982839928400284012840228403284042840528406284072840828409284102841128412284132841428415284162841728418284192842028421284222842328424284252842628427284282842928430284312843228433284342843528436284372843828439284402844128442284432844428445284462844728448284492845028451284522845328454284552845628457284582845928460284612846228463284642846528466284672846828469284702847128472284732847428475284762847728478284792848028481284822848328484284852848628487284882848928490284912849228493284942849528496284972849828499285002850128502285032850428505285062850728508285092851028511285122851328514285152851628517285182851928520285212852228523285242852528526285272852828529285302853128532285332853428535285362853728538285392854028541285422854328544285452854628547285482854928550285512855228553285542855528556285572855828559285602856128562285632856428565285662856728568285692857028571285722857328574285752857628577285782857928580285812858228583285842858528586285872858828589285902859128592285932859428595285962859728598285992860028601286022860328604286052860628607286082860928610286112861228613286142861528616286172861828619286202862128622286232862428625286262862728628286292863028631286322863328634286352863628637286382863928640286412864228643286442864528646286472864828649286502865128652286532865428655286562865728658286592866028661286622866328664286652866628667286682866928670286712867228673286742867528676286772867828679286802868128682286832868428685286862868728688286892869028691286922869328694286952869628697286982869928700287012870228703287042870528706287072870828709287102871128712287132871428715287162871728718287192872028721287222872328724287252872628727287282872928730287312873228733287342873528736287372873828739287402874128742287432874428745287462874728748287492875028751287522875328754287552875628757287582875928760287612876228763287642876528766287672876828769287702877128772287732877428775287762877728778287792878028781287822878328784287852878628787287882878928790287912879228793287942879528796287972879828799288002880128802288032880428805288062880728808288092881028811288122881328814288152881628817288182881928820288212882228823288242882528826288272882828829288302883128832288332883428835288362883728838288392884028841288422884328844288452884628847288482884928850288512885228853288542885528856288572885828859288602886128862288632886428865288662886728868288692887028871288722887328874288752887628877288782887928880288812888228883288842888528886288872888828889288902889128892288932889428895288962889728898288992890028901289022890328904289052890628907289082890928910289112891228913289142891528916289172891828919289202892128922289232892428925289262892728928289292893028931289322893328934289352893628937289382893928940289412894228943289442894528946289472894828949289502895128952289532895428955289562895728958289592896028961289622896328964289652896628967289682896928970289712897228973289742897528976289772897828979289802898128982289832898428985289862898728988289892899028991289922899328994289952899628997289982899929000290012900229003290042900529006290072900829009290102901129012290132901429015290162901729018290192902029021290222902329024290252902629027290282902929030290312903229033290342903529036290372903829039290402904129042290432904429045290462904729048290492905029051290522905329054290552905629057290582905929060290612906229063290642906529066290672906829069290702907129072290732907429075290762907729078290792908029081290822908329084290852908629087290882908929090290912909229093290942909529096290972909829099291002910129102291032910429105291062910729108291092911029111291122911329114291152911629117291182911929120291212912229123291242912529126291272912829129291302913129132291332913429135291362913729138291392914029141291422914329144291452914629147291482914929150291512915229153291542915529156291572915829159291602916129162291632916429165291662916729168291692917029171291722917329174291752917629177291782917929180291812918229183291842918529186291872918829189291902919129192291932919429195291962919729198291992920029201292022920329204292052920629207292082920929210292112921229213292142921529216292172921829219292202922129222292232922429225292262922729228292292923029231292322923329234292352923629237292382923929240292412924229243292442924529246292472924829249292502925129252292532925429255292562925729258292592926029261292622926329264292652926629267292682926929270292712927229273292742927529276292772927829279292802928129282292832928429285292862928729288292892929029291292922929329294292952929629297292982929929300293012930229303293042930529306293072930829309293102931129312293132931429315293162931729318293192932029321293222932329324293252932629327293282932929330293312933229333293342933529336293372933829339293402934129342293432934429345293462934729348293492935029351293522935329354293552935629357293582935929360293612936229363293642936529366293672936829369293702937129372293732937429375293762937729378293792938029381293822938329384293852938629387293882938929390293912939229393293942939529396293972939829399294002940129402294032940429405294062940729408294092941029411294122941329414294152941629417294182941929420294212942229423294242942529426294272942829429294302943129432294332943429435294362943729438294392944029441294422944329444294452944629447294482944929450294512945229453294542945529456294572945829459294602946129462294632946429465294662946729468294692947029471294722947329474294752947629477294782947929480294812948229483294842948529486294872948829489294902949129492294932949429495294962949729498294992950029501295022950329504295052950629507295082950929510295112951229513295142951529516295172951829519295202952129522295232952429525295262952729528295292953029531295322953329534295352953629537295382953929540295412954229543295442954529546295472954829549295502955129552295532955429555295562955729558295592956029561295622956329564295652956629567295682956929570295712957229573295742957529576295772957829579295802958129582295832958429585295862958729588295892959029591295922959329594295952959629597295982959929600296012960229603296042960529606296072960829609296102961129612296132961429615296162961729618296192962029621296222962329624296252962629627296282962929630296312963229633296342963529636296372963829639296402964129642296432964429645296462964729648296492965029651296522965329654296552965629657296582965929660296612966229663296642966529666296672966829669296702967129672296732967429675296762967729678296792968029681296822968329684296852968629687296882968929690296912969229693296942969529696296972969829699297002970129702297032970429705297062970729708297092971029711297122971329714297152971629717297182971929720297212972229723297242972529726297272972829729297302973129732297332973429735297362973729738297392974029741297422974329744297452974629747297482974929750297512975229753297542975529756297572975829759297602976129762297632976429765297662976729768297692977029771297722977329774297752977629777297782977929780297812978229783297842978529786297872978829789297902979129792297932979429795297962979729798297992980029801298022980329804298052980629807298082980929810298112981229813298142981529816298172981829819298202982129822298232982429825298262982729828298292983029831298322983329834298352983629837298382983929840298412984229843298442984529846298472984829849298502985129852298532985429855298562985729858298592986029861298622986329864298652986629867298682986929870298712987229873298742987529876298772987829879298802988129882298832988429885298862988729888298892989029891298922989329894298952989629897298982989929900299012990229903299042990529906299072990829909299102991129912299132991429915299162991729918299192992029921299222992329924299252992629927299282992929930299312993229933299342993529936299372993829939299402994129942299432994429945299462994729948299492995029951299522995329954299552995629957299582995929960299612996229963299642996529966299672996829969299702997129972299732997429975299762997729978299792998029981299822998329984299852998629987299882998929990299912999229993299942999529996299972999829999300003000130002300033000430005300063000730008300093001030011300123001330014300153001630017300183001930020300213002230023300243002530026300273002830029300303003130032300333003430035300363003730038300393004030041300423004330044300453004630047300483004930050300513005230053300543005530056300573005830059300603006130062300633006430065300663006730068300693007030071300723007330074300753007630077300783007930080300813008230083300843008530086300873008830089300903009130092300933009430095300963009730098300993010030101301023010330104301053010630107301083010930110301113011230113301143011530116301173011830119301203012130122301233012430125301263012730128301293013030131301323013330134301353013630137301383013930140301413014230143301443014530146301473014830149301503015130152301533015430155301563015730158301593016030161301623016330164301653016630167301683016930170301713017230173301743017530176301773017830179301803018130182301833018430185301863018730188301893019030191301923019330194301953019630197301983019930200302013020230203302043020530206302073020830209302103021130212302133021430215302163021730218302193022030221302223022330224302253022630227302283022930230302313023230233302343023530236302373023830239302403024130242302433024430245302463024730248302493025030251302523025330254302553025630257302583025930260302613026230263302643026530266302673026830269302703027130272302733027430275302763027730278302793028030281302823028330284302853028630287302883028930290302913029230293302943029530296302973029830299303003030130302303033030430305303063030730308303093031030311303123031330314303153031630317303183031930320303213032230323303243032530326303273032830329303303033130332303333033430335303363033730338303393034030341303423034330344303453034630347303483034930350303513035230353303543035530356303573035830359303603036130362303633036430365303663036730368303693037030371303723037330374303753037630377303783037930380303813038230383303843038530386303873038830389303903039130392303933039430395303963039730398303993040030401304023040330404304053040630407304083040930410304113041230413304143041530416304173041830419304203042130422304233042430425304263042730428304293043030431304323043330434304353043630437304383043930440304413044230443304443044530446304473044830449304503045130452304533045430455304563045730458304593046030461304623046330464304653046630467304683046930470304713047230473304743047530476304773047830479304803048130482304833048430485304863048730488304893049030491304923049330494304953049630497304983049930500305013050230503305043050530506305073050830509305103051130512305133051430515305163051730518305193052030521305223052330524305253052630527305283052930530305313053230533305343053530536305373053830539305403054130542305433054430545305463054730548305493055030551305523055330554305553055630557305583055930560305613056230563305643056530566305673056830569305703057130572305733057430575305763057730578305793058030581305823058330584305853058630587305883058930590305913059230593305943059530596305973059830599306003060130602306033060430605306063060730608306093061030611306123061330614306153061630617306183061930620306213062230623306243062530626306273062830629306303063130632306333063430635306363063730638306393064030641306423064330644306453064630647306483064930650306513065230653306543065530656306573065830659306603066130662306633066430665306663066730668306693067030671306723067330674306753067630677306783067930680306813068230683306843068530686306873068830689306903069130692306933069430695306963069730698306993070030701307023070330704307053070630707307083070930710307113071230713307143071530716307173071830719307203072130722307233072430725307263072730728307293073030731307323073330734307353073630737307383073930740307413074230743307443074530746307473074830749307503075130752307533075430755307563075730758307593076030761307623076330764307653076630767307683076930770307713077230773307743077530776307773077830779307803078130782307833078430785307863078730788307893079030791307923079330794307953079630797307983079930800308013080230803308043080530806308073080830809308103081130812308133081430815308163081730818308193082030821308223082330824308253082630827308283082930830308313083230833308343083530836308373083830839308403084130842308433084430845308463084730848308493085030851308523085330854308553085630857308583085930860308613086230863308643086530866308673086830869308703087130872308733087430875308763087730878308793088030881308823088330884308853088630887308883088930890308913089230893308943089530896308973089830899309003090130902309033090430905309063090730908309093091030911309123091330914309153091630917309183091930920309213092230923309243092530926309273092830929309303093130932309333093430935309363093730938309393094030941309423094330944309453094630947309483094930950309513095230953309543095530956309573095830959309603096130962309633096430965309663096730968309693097030971309723097330974309753097630977309783097930980309813098230983309843098530986309873098830989309903099130992309933099430995309963099730998309993100031001310023100331004310053100631007310083100931010310113101231013310143101531016310173101831019310203102131022310233102431025310263102731028310293103031031310323103331034310353103631037310383103931040310413104231043310443104531046310473104831049310503105131052310533105431055310563105731058310593106031061310623106331064310653106631067310683106931070310713107231073310743107531076310773107831079310803108131082310833108431085310863108731088310893109031091310923109331094310953109631097310983109931100311013110231103311043110531106311073110831109311103111131112311133111431115311163111731118311193112031121311223112331124311253112631127311283112931130311313113231133311343113531136311373113831139311403114131142311433114431145311463114731148311493115031151311523115331154311553115631157311583115931160311613116231163311643116531166311673116831169311703117131172311733117431175311763117731178311793118031181311823118331184311853118631187311883118931190311913119231193311943119531196311973119831199312003120131202312033120431205312063120731208312093121031211312123121331214312153121631217312183121931220312213122231223312243122531226312273122831229312303123131232312333123431235312363123731238312393124031241312423124331244312453124631247312483124931250312513125231253312543125531256312573125831259312603126131262312633126431265312663126731268312693127031271312723127331274312753127631277312783127931280312813128231283312843128531286312873128831289312903129131292312933129431295312963129731298312993130031301313023130331304313053130631307313083130931310313113131231313313143131531316313173131831319313203132131322313233132431325313263132731328313293133031331313323133331334313353133631337313383133931340313413134231343313443134531346313473134831349313503135131352313533135431355313563135731358313593136031361313623136331364313653136631367313683136931370313713137231373313743137531376313773137831379313803138131382313833138431385313863138731388313893139031391313923139331394313953139631397313983139931400314013140231403314043140531406314073140831409314103141131412314133141431415314163141731418314193142031421314223142331424314253142631427314283142931430314313143231433314343143531436314373143831439314403144131442314433144431445314463144731448314493145031451314523145331454314553145631457314583145931460314613146231463314643146531466314673146831469314703147131472314733147431475314763147731478314793148031481314823148331484314853148631487314883148931490314913149231493314943149531496314973149831499315003150131502315033150431505315063150731508315093151031511315123151331514315153151631517315183151931520315213152231523315243152531526315273152831529315303153131532315333153431535315363153731538315393154031541315423154331544315453154631547315483154931550315513155231553315543155531556315573155831559315603156131562315633156431565315663156731568315693157031571315723157331574315753157631577315783157931580315813158231583315843158531586315873158831589315903159131592315933159431595315963159731598315993160031601316023160331604316053160631607316083160931610316113161231613316143161531616316173161831619316203162131622316233162431625316263162731628316293163031631316323163331634316353163631637316383163931640316413164231643316443164531646316473164831649316503165131652316533165431655316563165731658316593166031661316623166331664316653166631667316683166931670316713167231673316743167531676316773167831679316803168131682316833168431685316863168731688316893169031691316923169331694316953169631697316983169931700317013170231703317043170531706317073170831709317103171131712317133171431715317163171731718317193172031721317223172331724317253172631727317283172931730317313173231733317343173531736317373173831739317403174131742317433174431745317463174731748317493175031751317523175331754317553175631757317583175931760317613176231763317643176531766317673176831769317703177131772317733177431775317763177731778317793178031781317823178331784317853178631787317883178931790317913179231793317943179531796317973179831799318003180131802318033180431805318063180731808318093181031811318123181331814318153181631817318183181931820318213182231823318243182531826318273182831829318303183131832318333183431835318363183731838318393184031841318423184331844318453184631847318483184931850318513185231853318543185531856318573185831859318603186131862318633186431865318663186731868318693187031871318723187331874318753187631877318783187931880318813188231883318843188531886318873188831889318903189131892318933189431895318963189731898318993190031901319023190331904319053190631907319083190931910319113191231913319143191531916319173191831919319203192131922319233192431925319263192731928319293193031931319323193331934319353193631937319383193931940319413194231943319443194531946319473194831949319503195131952319533195431955319563195731958319593196031961319623196331964319653196631967319683196931970319713197231973319743197531976319773197831979319803198131982319833198431985319863198731988319893199031991319923199331994319953199631997319983199932000320013200232003320043200532006320073200832009320103201132012320133201432015320163201732018320193202032021320223202332024320253202632027320283202932030320313203232033320343203532036320373203832039320403204132042320433204432045320463204732048320493205032051320523205332054320553205632057320583205932060320613206232063320643206532066320673206832069320703207132072320733207432075320763207732078320793208032081320823208332084320853208632087320883208932090320913209232093320943209532096320973209832099321003210132102321033210432105321063210732108321093211032111321123211332114321153211632117321183211932120321213212232123321243212532126321273212832129321303213132132321333213432135321363213732138321393214032141321423214332144321453214632147321483214932150321513215232153321543215532156321573215832159321603216132162321633216432165321663216732168321693217032171321723217332174321753217632177321783217932180321813218232183321843218532186321873218832189321903219132192321933219432195321963219732198321993220032201322023220332204322053220632207322083220932210322113221232213322143221532216322173221832219322203222132222322233222432225322263222732228322293223032231322323223332234322353223632237322383223932240322413224232243322443224532246322473224832249322503225132252322533225432255322563225732258322593226032261322623226332264322653226632267322683226932270322713227232273322743227532276322773227832279322803228132282322833228432285322863228732288322893229032291322923229332294322953229632297322983229932300323013230232303323043230532306323073230832309323103231132312323133231432315323163231732318323193232032321323223232332324323253232632327323283232932330323313233232333323343233532336323373233832339323403234132342323433234432345323463234732348323493235032351323523235332354323553235632357323583235932360323613236232363323643236532366323673236832369323703237132372323733237432375323763237732378323793238032381323823238332384323853238632387323883238932390323913239232393323943239532396323973239832399324003240132402324033240432405324063240732408324093241032411324123241332414324153241632417324183241932420324213242232423324243242532426324273242832429324303243132432324333243432435324363243732438324393244032441324423244332444324453244632447324483244932450324513245232453324543245532456324573245832459324603246132462324633246432465324663246732468324693247032471324723247332474324753247632477324783247932480324813248232483324843248532486324873248832489324903249132492324933249432495324963249732498324993250032501325023250332504325053250632507325083250932510325113251232513325143251532516325173251832519325203252132522325233252432525325263252732528325293253032531325323253332534325353253632537325383253932540325413254232543325443254532546325473254832549325503255132552325533255432555325563255732558325593256032561325623256332564325653256632567325683256932570325713257232573325743257532576325773257832579325803258132582325833258432585325863258732588325893259032591325923259332594325953259632597325983259932600326013260232603326043260532606326073260832609326103261132612326133261432615326163261732618326193262032621326223262332624326253262632627326283262932630326313263232633326343263532636326373263832639326403264132642326433264432645326463264732648326493265032651326523265332654326553265632657326583265932660326613266232663326643266532666326673266832669326703267132672326733267432675326763267732678326793268032681326823268332684326853268632687326883268932690326913269232693326943269532696326973269832699327003270132702327033270432705327063270732708327093271032711327123271332714327153271632717327183271932720327213272232723327243272532726327273272832729327303273132732327333273432735327363273732738327393274032741327423274332744327453274632747327483274932750327513275232753327543275532756327573275832759327603276132762327633276432765327663276732768327693277032771327723277332774327753277632777327783277932780327813278232783327843278532786327873278832789327903279132792327933279432795327963279732798327993280032801328023280332804328053280632807328083280932810328113281232813328143281532816328173281832819328203282132822328233282432825328263282732828328293283032831328323283332834328353283632837328383283932840328413284232843328443284532846328473284832849328503285132852328533285432855328563285732858328593286032861328623286332864328653286632867328683286932870328713287232873328743287532876328773287832879328803288132882328833288432885328863288732888328893289032891328923289332894328953289632897328983289932900329013290232903329043290532906329073290832909329103291132912329133291432915329163291732918329193292032921329223292332924329253292632927329283292932930329313293232933329343293532936329373293832939329403294132942329433294432945329463294732948329493295032951329523295332954329553295632957329583295932960329613296232963329643296532966329673296832969329703297132972329733297432975329763297732978329793298032981329823298332984329853298632987329883298932990329913299232993329943299532996329973299832999330003300133002330033300433005330063300733008330093301033011330123301333014330153301633017330183301933020330213302233023330243302533026330273302833029330303303133032330333303433035330363303733038330393304033041330423304333044330453304633047330483304933050330513305233053330543305533056330573305833059330603306133062330633306433065330663306733068330693307033071330723307333074330753307633077330783307933080330813308233083330843308533086330873308833089330903309133092330933309433095330963309733098330993310033101331023310333104331053310633107331083310933110331113311233113331143311533116331173311833119331203312133122331233312433125331263312733128331293313033131331323313333134331353313633137331383313933140331413314233143331443314533146331473314833149331503315133152331533315433155331563315733158331593316033161331623316333164331653316633167331683316933170331713317233173331743317533176331773317833179331803318133182331833318433185331863318733188331893319033191331923319333194331953319633197331983319933200332013320233203332043320533206332073320833209332103321133212332133321433215332163321733218332193322033221332223322333224332253322633227332283322933230332313323233233332343323533236332373323833239332403324133242332433324433245332463324733248332493325033251332523325333254332553325633257332583325933260332613326233263332643326533266332673326833269332703327133272332733327433275332763327733278332793328033281332823328333284332853328633287332883328933290332913329233293332943329533296332973329833299333003330133302333033330433305333063330733308333093331033311333123331333314333153331633317333183331933320333213332233323333243332533326333273332833329333303333133332333333333433335333363333733338333393334033341333423334333344333453334633347333483334933350333513335233353333543335533356333573335833359333603336133362333633336433365333663336733368333693337033371333723337333374333753337633377333783337933380333813338233383333843338533386333873338833389333903339133392333933339433395333963339733398333993340033401334023340333404334053340633407334083340933410334113341233413334143341533416334173341833419334203342133422334233342433425334263342733428334293343033431334323343333434334353343633437334383343933440334413344233443334443344533446334473344833449334503345133452334533345433455334563345733458334593346033461334623346333464334653346633467334683346933470334713347233473334743347533476334773347833479334803348133482334833348433485334863348733488334893349033491334923349333494334953349633497334983349933500335013350233503335043350533506335073350833509335103351133512335133351433515335163351733518335193352033521335223352333524335253352633527335283352933530335313353233533335343353533536335373353833539335403354133542335433354433545335463354733548335493355033551335523355333554335553355633557335583355933560335613356233563335643356533566335673356833569335703357133572335733357433575335763357733578335793358033581335823358333584335853358633587335883358933590335913359233593335943359533596335973359833599336003360133602336033360433605336063360733608336093361033611336123361333614336153361633617336183361933620336213362233623336243362533626336273362833629336303363133632336333363433635336363363733638336393364033641336423364333644336453364633647336483364933650336513365233653336543365533656336573365833659336603366133662336633366433665336663366733668336693367033671336723367333674336753367633677336783367933680336813368233683336843368533686336873368833689336903369133692336933369433695336963369733698336993370033701337023370333704337053370633707337083370933710337113371233713337143371533716337173371833719337203372133722337233372433725337263372733728337293373033731337323373333734337353373633737337383373933740337413374233743337443374533746337473374833749337503375133752337533375433755337563375733758337593376033761337623376333764337653376633767337683376933770337713377233773337743377533776337773377833779337803378133782337833378433785337863378733788337893379033791337923379333794337953379633797337983379933800338013380233803338043380533806338073380833809338103381133812338133381433815338163381733818338193382033821338223382333824338253382633827338283382933830338313383233833338343383533836338373383833839338403384133842338433384433845338463384733848338493385033851338523385333854338553385633857338583385933860338613386233863338643386533866338673386833869338703387133872338733387433875338763387733878338793388033881338823388333884338853388633887338883388933890338913389233893338943389533896338973389833899339003390133902339033390433905339063390733908339093391033911339123391333914339153391633917339183391933920339213392233923339243392533926339273392833929339303393133932339333393433935339363393733938339393394033941339423394333944339453394633947339483394933950339513395233953339543395533956339573395833959339603396133962339633396433965339663396733968339693397033971339723397333974339753397633977339783397933980339813398233983339843398533986339873398833989339903399133992339933399433995339963399733998339993400034001340023400334004340053400634007340083400934010340113401234013340143401534016340173401834019340203402134022340233402434025340263402734028340293403034031340323403334034340353403634037340383403934040340413404234043340443404534046340473404834049340503405134052340533405434055340563405734058340593406034061340623406334064340653406634067340683406934070340713407234073340743407534076340773407834079340803408134082340833408434085340863408734088340893409034091340923409334094340953409634097340983409934100341013410234103341043410534106341073410834109341103411134112341133411434115341163411734118341193412034121341223412334124341253412634127341283412934130341313413234133341343413534136341373413834139341403414134142341433414434145341463414734148341493415034151341523415334154341553415634157341583415934160341613416234163341643416534166341673416834169341703417134172341733417434175341763417734178341793418034181341823418334184341853418634187341883418934190341913419234193341943419534196341973419834199342003420134202342033420434205342063420734208342093421034211342123421334214342153421634217342183421934220342213422234223342243422534226342273422834229342303423134232342333423434235342363423734238342393424034241342423424334244342453424634247342483424934250342513425234253342543425534256342573425834259342603426134262342633426434265342663426734268342693427034271342723427334274342753427634277342783427934280342813428234283342843428534286342873428834289342903429134292342933429434295342963429734298342993430034301343023430334304343053430634307343083430934310343113431234313343143431534316343173431834319343203432134322343233432434325343263432734328343293433034331343323433334334343353433634337343383433934340343413434234343343443434534346343473434834349343503435134352343533435434355343563435734358343593436034361343623436334364343653436634367343683436934370343713437234373343743437534376343773437834379343803438134382343833438434385343863438734388343893439034391343923439334394343953439634397343983439934400344013440234403344043440534406344073440834409344103441134412344133441434415344163441734418344193442034421344223442334424344253442634427344283442934430344313443234433344343443534436344373443834439344403444134442344433444434445344463444734448344493445034451344523445334454344553445634457344583445934460344613446234463344643446534466344673446834469344703447134472344733447434475344763447734478344793448034481344823448334484344853448634487344883448934490344913449234493344943449534496344973449834499345003450134502345033450434505345063450734508345093451034511345123451334514345153451634517345183451934520345213452234523345243452534526345273452834529345303453134532345333453434535345363453734538345393454034541345423454334544345453454634547345483454934550345513455234553345543455534556345573455834559345603456134562345633456434565345663456734568345693457034571345723457334574345753457634577345783457934580345813458234583345843458534586345873458834589345903459134592345933459434595345963459734598345993460034601346023460334604346053460634607346083460934610346113461234613346143461534616346173461834619346203462134622346233462434625346263462734628346293463034631346323463334634346353463634637346383463934640346413464234643346443464534646346473464834649346503465134652346533465434655346563465734658346593466034661346623466334664346653466634667346683466934670346713467234673346743467534676346773467834679346803468134682346833468434685346863468734688346893469034691346923469334694346953469634697346983469934700347013470234703347043470534706347073470834709347103471134712347133471434715347163471734718347193472034721347223472334724347253472634727347283472934730347313473234733347343473534736347373473834739347403474134742347433474434745347463474734748347493475034751347523475334754347553475634757347583475934760347613476234763347643476534766347673476834769347703477134772347733477434775347763477734778347793478034781347823478334784347853478634787347883478934790347913479234793347943479534796347973479834799348003480134802348033480434805348063480734808348093481034811348123481334814348153481634817348183481934820348213482234823348243482534826348273482834829348303483134832348333483434835348363483734838348393484034841348423484334844348453484634847348483484934850348513485234853348543485534856348573485834859348603486134862348633486434865348663486734868348693487034871348723487334874348753487634877348783487934880348813488234883348843488534886348873488834889348903489134892348933489434895348963489734898348993490034901349023490334904349053490634907349083490934910349113491234913349143491534916349173491834919349203492134922349233492434925349263492734928349293493034931349323493334934349353493634937349383493934940349413494234943349443494534946349473494834949349503495134952349533495434955349563495734958349593496034961349623496334964349653496634967349683496934970349713497234973349743497534976349773497834979349803498134982349833498434985349863498734988349893499034991349923499334994349953499634997349983499935000350013500235003350043500535006350073500835009350103501135012350133501435015350163501735018350193502035021350223502335024350253502635027350283502935030350313503235033350343503535036350373503835039350403504135042350433504435045350463504735048350493505035051350523505335054350553505635057350583505935060350613506235063350643506535066350673506835069350703507135072350733507435075350763507735078350793508035081350823508335084350853508635087350883508935090350913509235093350943509535096350973509835099351003510135102351033510435105351063510735108351093511035111351123511335114351153511635117351183511935120351213512235123351243512535126351273512835129351303513135132351333513435135351363513735138351393514035141351423514335144351453514635147351483514935150351513515235153351543515535156351573515835159351603516135162351633516435165351663516735168351693517035171351723517335174351753517635177351783517935180351813518235183351843518535186351873518835189351903519135192351933519435195351963519735198351993520035201352023520335204352053520635207352083520935210352113521235213352143521535216352173521835219352203522135222352233522435225352263522735228352293523035231352323523335234352353523635237352383523935240352413524235243352443524535246352473524835249352503525135252352533525435255352563525735258352593526035261352623526335264352653526635267352683526935270352713527235273352743527535276352773527835279352803528135282352833528435285352863528735288352893529035291352923529335294352953529635297352983529935300353013530235303353043530535306353073530835309353103531135312353133531435315353163531735318353193532035321353223532335324353253532635327353283532935330353313533235333353343533535336353373533835339353403534135342353433534435345353463534735348353493535035351353523535335354353553535635357353583535935360353613536235363353643536535366353673536835369353703537135372353733537435375353763537735378353793538035381353823538335384353853538635387353883538935390353913539235393353943539535396353973539835399354003540135402354033540435405354063540735408354093541035411354123541335414354153541635417354183541935420354213542235423354243542535426354273542835429354303543135432354333543435435354363543735438354393544035441354423544335444354453544635447354483544935450354513545235453354543545535456354573545835459354603546135462354633546435465354663546735468354693547035471354723547335474354753547635477354783547935480354813548235483354843548535486354873548835489354903549135492354933549435495354963549735498354993550035501355023550335504355053550635507355083550935510355113551235513355143551535516355173551835519355203552135522355233552435525355263552735528355293553035531355323553335534355353553635537355383553935540355413554235543355443554535546355473554835549355503555135552355533555435555355563555735558355593556035561355623556335564355653556635567355683556935570355713557235573355743557535576355773557835579355803558135582355833558435585355863558735588355893559035591355923559335594355953559635597355983559935600356013560235603356043560535606356073560835609356103561135612356133561435615356163561735618356193562035621356223562335624356253562635627356283562935630356313563235633356343563535636356373563835639356403564135642356433564435645356463564735648356493565035651356523565335654356553565635657356583565935660356613566235663356643566535666356673566835669356703567135672356733567435675356763567735678356793568035681356823568335684356853568635687356883568935690356913569235693356943569535696356973569835699357003570135702357033570435705357063570735708357093571035711357123571335714357153571635717357183571935720357213572235723357243572535726357273572835729357303573135732357333573435735357363573735738357393574035741357423574335744357453574635747357483574935750357513575235753357543575535756357573575835759357603576135762357633576435765357663576735768357693577035771357723577335774357753577635777357783577935780357813578235783357843578535786357873578835789357903579135792357933579435795357963579735798357993580035801358023580335804358053580635807358083580935810358113581235813358143581535816358173581835819358203582135822358233582435825358263582735828358293583035831358323583335834358353583635837358383583935840358413584235843358443584535846358473584835849358503585135852358533585435855358563585735858358593586035861358623586335864358653586635867358683586935870358713587235873358743587535876358773587835879358803588135882358833588435885358863588735888358893589035891358923589335894358953589635897358983589935900359013590235903359043590535906359073590835909359103591135912359133591435915359163591735918359193592035921359223592335924359253592635927359283592935930359313593235933359343593535936359373593835939359403594135942359433594435945359463594735948359493595035951359523595335954359553595635957359583595935960359613596235963359643596535966359673596835969359703597135972359733597435975359763597735978359793598035981359823598335984359853598635987359883598935990359913599235993359943599535996359973599835999360003600136002360033600436005360063600736008360093601036011360123601336014360153601636017360183601936020360213602236023360243602536026360273602836029360303603136032360333603436035360363603736038360393604036041360423604336044360453604636047360483604936050360513605236053360543605536056360573605836059360603606136062360633606436065360663606736068360693607036071360723607336074360753607636077360783607936080360813608236083360843608536086360873608836089360903609136092360933609436095360963609736098360993610036101361023610336104361053610636107361083610936110361113611236113361143611536116361173611836119361203612136122361233612436125361263612736128361293613036131361323613336134361353613636137361383613936140361413614236143361443614536146361473614836149361503615136152361533615436155361563615736158361593616036161361623616336164361653616636167361683616936170361713617236173361743617536176361773617836179361803618136182361833618436185361863618736188361893619036191361923619336194361953619636197361983619936200362013620236203362043620536206362073620836209362103621136212362133621436215362163621736218362193622036221362223622336224362253622636227362283622936230362313623236233362343623536236362373623836239362403624136242362433624436245362463624736248362493625036251362523625336254362553625636257362583625936260362613626236263362643626536266362673626836269362703627136272362733627436275362763627736278362793628036281362823628336284362853628636287362883628936290362913629236293362943629536296362973629836299363003630136302363033630436305363063630736308363093631036311363123631336314363153631636317363183631936320363213632236323363243632536326363273632836329363303633136332363333633436335363363633736338363393634036341363423634336344363453634636347363483634936350363513635236353363543635536356363573635836359363603636136362363633636436365363663636736368363693637036371363723637336374363753637636377363783637936380363813638236383363843638536386363873638836389363903639136392363933639436395363963639736398363993640036401364023640336404364053640636407364083640936410364113641236413364143641536416364173641836419364203642136422364233642436425364263642736428364293643036431364323643336434364353643636437364383643936440364413644236443364443644536446364473644836449364503645136452364533645436455364563645736458364593646036461364623646336464364653646636467364683646936470364713647236473364743647536476364773647836479364803648136482364833648436485364863648736488364893649036491364923649336494364953649636497364983649936500365013650236503365043650536506365073650836509365103651136512365133651436515365163651736518365193652036521365223652336524365253652636527365283652936530365313653236533365343653536536365373653836539365403654136542365433654436545365463654736548365493655036551365523655336554365553655636557365583655936560365613656236563365643656536566365673656836569365703657136572365733657436575365763657736578365793658036581365823658336584365853658636587365883658936590365913659236593365943659536596365973659836599366003660136602366033660436605366063660736608366093661036611366123661336614366153661636617366183661936620366213662236623366243662536626366273662836629366303663136632366333663436635366363663736638366393664036641366423664336644366453664636647366483664936650366513665236653366543665536656366573665836659366603666136662366633666436665366663666736668366693667036671366723667336674366753667636677366783667936680366813668236683366843668536686366873668836689366903669136692366933669436695366963669736698366993670036701367023670336704367053670636707367083670936710367113671236713367143671536716367173671836719367203672136722367233672436725367263672736728367293673036731367323673336734367353673636737367383673936740367413674236743367443674536746367473674836749367503675136752367533675436755367563675736758367593676036761367623676336764367653676636767367683676936770367713677236773367743677536776367773677836779367803678136782367833678436785367863678736788367893679036791367923679336794367953679636797367983679936800368013680236803368043680536806368073680836809368103681136812368133681436815368163681736818368193682036821368223682336824368253682636827368283682936830368313683236833368343683536836368373683836839368403684136842368433684436845368463684736848368493685036851368523685336854368553685636857368583685936860368613686236863368643686536866368673686836869368703687136872368733687436875368763687736878368793688036881368823688336884368853688636887368883688936890368913689236893368943689536896368973689836899369003690136902369033690436905369063690736908369093691036911369123691336914369153691636917369183691936920369213692236923369243692536926369273692836929369303693136932369333693436935369363693736938369393694036941369423694336944369453694636947369483694936950369513695236953369543695536956369573695836959369603696136962369633696436965369663696736968369693697036971369723697336974369753697636977369783697936980369813698236983369843698536986369873698836989369903699136992369933699436995369963699736998369993700037001370023700337004370053700637007370083700937010370113701237013370143701537016370173701837019370203702137022370233702437025370263702737028370293703037031370323703337034370353703637037370383703937040370413704237043370443704537046370473704837049370503705137052370533705437055370563705737058370593706037061370623706337064370653706637067370683706937070370713707237073370743707537076370773707837079370803708137082370833708437085370863708737088370893709037091370923709337094370953709637097370983709937100371013710237103371043710537106371073710837109371103711137112371133711437115371163711737118371193712037121371223712337124371253712637127371283712937130371313713237133371343713537136371373713837139371403714137142371433714437145371463714737148371493715037151371523715337154371553715637157371583715937160371613716237163371643716537166371673716837169371703717137172371733717437175371763717737178371793718037181371823718337184371853718637187371883718937190371913719237193371943719537196371973719837199372003720137202372033720437205372063720737208372093721037211372123721337214372153721637217372183721937220372213722237223372243722537226372273722837229372303723137232372333723437235372363723737238372393724037241372423724337244372453724637247372483724937250372513725237253372543725537256372573725837259372603726137262372633726437265372663726737268372693727037271372723727337274372753727637277372783727937280372813728237283372843728537286372873728837289372903729137292372933729437295372963729737298372993730037301373023730337304373053730637307373083730937310373113731237313373143731537316373173731837319373203732137322373233732437325373263732737328373293733037331373323733337334373353733637337373383733937340373413734237343373443734537346373473734837349373503735137352373533735437355373563735737358373593736037361373623736337364373653736637367373683736937370373713737237373373743737537376373773737837379373803738137382373833738437385373863738737388373893739037391373923739337394373953739637397373983739937400374013740237403374043740537406374073740837409374103741137412374133741437415374163741737418374193742037421374223742337424374253742637427374283742937430374313743237433374343743537436374373743837439374403744137442374433744437445374463744737448374493745037451374523745337454374553745637457374583745937460374613746237463374643746537466374673746837469374703747137472374733747437475374763747737478374793748037481374823748337484374853748637487374883748937490374913749237493374943749537496374973749837499375003750137502375033750437505375063750737508375093751037511375123751337514375153751637517375183751937520375213752237523375243752537526375273752837529375303753137532375333753437535375363753737538375393754037541375423754337544375453754637547375483754937550375513755237553375543755537556375573755837559375603756137562375633756437565375663756737568375693757037571375723757337574375753757637577375783757937580375813758237583375843758537586375873758837589375903759137592375933759437595375963759737598375993760037601376023760337604376053760637607376083760937610376113761237613376143761537616376173761837619376203762137622376233762437625376263762737628376293763037631376323763337634376353763637637376383763937640376413764237643376443764537646376473764837649376503765137652376533765437655376563765737658376593766037661376623766337664376653766637667376683766937670376713767237673376743767537676376773767837679376803768137682376833768437685376863768737688376893769037691376923769337694376953769637697376983769937700377013770237703377043770537706377073770837709377103771137712377133771437715377163771737718377193772037721377223772337724377253772637727377283772937730377313773237733377343773537736377373773837739377403774137742377433774437745377463774737748377493775037751377523775337754377553775637757377583775937760377613776237763377643776537766377673776837769377703777137772377733777437775377763777737778377793778037781377823778337784377853778637787377883778937790377913779237793377943779537796377973779837799378003780137802378033780437805378063780737808378093781037811378123781337814378153781637817378183781937820378213782237823378243782537826378273782837829378303783137832378333783437835378363783737838378393784037841378423784337844378453784637847378483784937850378513785237853378543785537856378573785837859378603786137862378633786437865378663786737868378693787037871378723787337874378753787637877378783787937880378813788237883378843788537886378873788837889378903789137892378933789437895378963789737898378993790037901379023790337904379053790637907379083790937910379113791237913379143791537916379173791837919379203792137922379233792437925379263792737928379293793037931379323793337934379353793637937379383793937940379413794237943379443794537946379473794837949379503795137952379533795437955379563795737958379593796037961379623796337964379653796637967379683796937970379713797237973379743797537976379773797837979379803798137982379833798437985379863798737988379893799037991379923799337994379953799637997379983799938000380013800238003380043800538006380073800838009380103801138012380133801438015380163801738018380193802038021380223802338024380253802638027380283802938030380313803238033380343803538036380373803838039380403804138042380433804438045380463804738048380493805038051380523805338054380553805638057380583805938060380613806238063380643806538066380673806838069380703807138072380733807438075380763807738078380793808038081380823808338084380853808638087380883808938090380913809238093380943809538096380973809838099381003810138102381033810438105381063810738108381093811038111381123811338114381153811638117381183811938120381213812238123381243812538126381273812838129381303813138132381333813438135381363813738138381393814038141381423814338144381453814638147381483814938150381513815238153381543815538156381573815838159381603816138162381633816438165381663816738168381693817038171381723817338174381753817638177381783817938180381813818238183381843818538186381873818838189381903819138192381933819438195381963819738198381993820038201382023820338204382053820638207382083820938210382113821238213382143821538216382173821838219382203822138222382233822438225382263822738228382293823038231382323823338234382353823638237382383823938240382413824238243382443824538246382473824838249382503825138252382533825438255382563825738258382593826038261382623826338264382653826638267382683826938270382713827238273382743827538276382773827838279382803828138282382833828438285382863828738288382893829038291382923829338294382953829638297382983829938300383013830238303383043830538306383073830838309383103831138312383133831438315383163831738318383193832038321383223832338324383253832638327383283832938330383313833238333383343833538336383373833838339383403834138342383433834438345383463834738348383493835038351383523835338354383553835638357383583835938360383613836238363383643836538366383673836838369383703837138372383733837438375383763837738378383793838038381383823838338384383853838638387383883838938390383913839238393383943839538396383973839838399384003840138402384033840438405384063840738408384093841038411384123841338414384153841638417384183841938420384213842238423384243842538426384273842838429384303843138432384333843438435384363843738438384393844038441384423844338444384453844638447384483844938450384513845238453384543845538456384573845838459384603846138462384633846438465384663846738468384693847038471384723847338474384753847638477384783847938480384813848238483384843848538486384873848838489384903849138492384933849438495384963849738498384993850038501385023850338504385053850638507385083850938510385113851238513385143851538516385173851838519385203852138522385233852438525385263852738528385293853038531385323853338534385353853638537385383853938540385413854238543385443854538546385473854838549385503855138552385533855438555385563855738558385593856038561385623856338564385653856638567385683856938570385713857238573385743857538576385773857838579385803858138582385833858438585385863858738588385893859038591385923859338594385953859638597385983859938600386013860238603386043860538606386073860838609386103861138612386133861438615386163861738618386193862038621386223862338624386253862638627386283862938630386313863238633386343863538636386373863838639386403864138642386433864438645386463864738648386493865038651386523865338654386553865638657386583865938660386613866238663386643866538666386673866838669386703867138672386733867438675386763867738678386793868038681386823868338684386853868638687386883868938690386913869238693386943869538696386973869838699387003870138702387033870438705387063870738708387093871038711387123871338714387153871638717387183871938720387213872238723387243872538726387273872838729387303873138732387333873438735387363873738738387393874038741387423874338744387453874638747387483874938750387513875238753387543875538756387573875838759387603876138762387633876438765387663876738768387693877038771387723877338774387753877638777387783877938780387813878238783387843878538786387873878838789387903879138792387933879438795387963879738798387993880038801388023880338804388053880638807388083880938810388113881238813388143881538816388173881838819388203882138822388233882438825388263882738828388293883038831388323883338834388353883638837388383883938840388413884238843388443884538846388473884838849388503885138852388533885438855388563885738858388593886038861388623886338864388653886638867388683886938870388713887238873388743887538876388773887838879388803888138882388833888438885388863888738888388893889038891388923889338894388953889638897388983889938900389013890238903389043890538906389073890838909389103891138912389133891438915389163891738918389193892038921389223892338924389253892638927389283892938930389313893238933389343893538936389373893838939389403894138942389433894438945389463894738948389493895038951389523895338954389553895638957389583895938960389613896238963389643896538966389673896838969389703897138972389733897438975389763897738978389793898038981389823898338984389853898638987389883898938990389913899238993389943899538996389973899838999390003900139002390033900439005390063900739008390093901039011390123901339014390153901639017390183901939020390213902239023390243902539026390273902839029390303903139032390333903439035390363903739038390393904039041390423904339044390453904639047390483904939050390513905239053390543905539056390573905839059390603906139062390633906439065390663906739068390693907039071390723907339074390753907639077390783907939080390813908239083390843908539086390873908839089390903909139092390933909439095390963909739098390993910039101391023910339104391053910639107391083910939110391113911239113391143911539116391173911839119391203912139122391233912439125391263912739128391293913039131391323913339134391353913639137391383913939140391413914239143391443914539146391473914839149391503915139152391533915439155391563915739158391593916039161391623916339164391653916639167391683916939170391713917239173391743917539176391773917839179391803918139182391833918439185391863918739188391893919039191391923919339194391953919639197391983919939200392013920239203392043920539206392073920839209392103921139212392133921439215392163921739218392193922039221392223922339224392253922639227392283922939230392313923239233392343923539236392373923839239392403924139242392433924439245392463924739248392493925039251392523925339254392553925639257392583925939260392613926239263392643926539266392673926839269392703927139272392733927439275392763927739278392793928039281392823928339284392853928639287392883928939290392913929239293392943929539296392973929839299393003930139302393033930439305393063930739308393093931039311393123931339314393153931639317393183931939320393213932239323393243932539326393273932839329393303933139332393333933439335393363933739338393393934039341393423934339344393453934639347393483934939350393513935239353393543935539356393573935839359393603936139362393633936439365393663936739368393693937039371393723937339374393753937639377393783937939380393813938239383393843938539386393873938839389393903939139392393933939439395393963939739398393993940039401394023940339404394053940639407394083940939410394113941239413394143941539416394173941839419394203942139422394233942439425394263942739428394293943039431394323943339434394353943639437394383943939440394413944239443394443944539446394473944839449394503945139452394533945439455394563945739458394593946039461394623946339464394653946639467394683946939470394713947239473394743947539476394773947839479394803948139482394833948439485394863948739488394893949039491394923949339494394953949639497394983949939500395013950239503395043950539506395073950839509395103951139512395133951439515395163951739518395193952039521395223952339524395253952639527395283952939530395313953239533395343953539536395373953839539395403954139542395433954439545395463954739548395493955039551395523955339554395553955639557395583955939560395613956239563395643956539566395673956839569395703957139572395733957439575395763957739578395793958039581395823958339584395853958639587395883958939590395913959239593395943959539596395973959839599396003960139602396033960439605396063960739608396093961039611396123961339614396153961639617396183961939620396213962239623396243962539626396273962839629396303963139632396333963439635396363963739638396393964039641396423964339644396453964639647396483964939650396513965239653396543965539656396573965839659396603966139662396633966439665396663966739668396693967039671396723967339674396753967639677396783967939680396813968239683396843968539686396873968839689396903969139692396933969439695396963969739698396993970039701397023970339704397053970639707397083970939710397113971239713397143971539716397173971839719397203972139722397233972439725397263972739728397293973039731397323973339734397353973639737397383973939740397413974239743397443974539746397473974839749397503975139752397533975439755397563975739758397593976039761397623976339764397653976639767397683976939770397713977239773397743977539776397773977839779397803978139782397833978439785397863978739788397893979039791397923979339794397953979639797397983979939800398013980239803398043980539806398073980839809398103981139812398133981439815398163981739818398193982039821398223982339824398253982639827398283982939830398313983239833398343983539836398373983839839398403984139842398433984439845398463984739848398493985039851398523985339854398553985639857398583985939860398613986239863398643986539866398673986839869398703987139872398733987439875398763987739878398793988039881398823988339884398853988639887398883988939890398913989239893398943989539896398973989839899399003990139902399033990439905399063990739908399093991039911399123991339914399153991639917399183991939920399213992239923399243992539926399273992839929399303993139932399333993439935399363993739938399393994039941399423994339944399453994639947399483994939950399513995239953399543995539956399573995839959399603996139962399633996439965399663996739968399693997039971399723997339974399753997639977399783997939980399813998239983399843998539986399873998839989399903999139992399933999439995399963999739998399994000040001400024000340004400054000640007400084000940010400114001240013400144001540016400174001840019400204002140022400234002440025400264002740028400294003040031400324003340034400354003640037400384003940040400414004240043400444004540046400474004840049400504005140052400534005440055400564005740058400594006040061400624006340064400654006640067400684006940070400714007240073400744007540076400774007840079400804008140082400834008440085400864008740088400894009040091400924009340094400954009640097400984009940100401014010240103401044010540106401074010840109401104011140112401134011440115401164011740118401194012040121401224012340124401254012640127401284012940130401314013240133401344013540136401374013840139401404014140142401434014440145401464014740148401494015040151401524015340154401554015640157401584015940160401614016240163401644016540166401674016840169401704017140172401734017440175401764017740178401794018040181401824018340184401854018640187401884018940190401914019240193401944019540196401974019840199402004020140202402034020440205402064020740208402094021040211402124021340214402154021640217402184021940220402214022240223402244022540226402274022840229402304023140232402334023440235402364023740238402394024040241402424024340244402454024640247402484024940250402514025240253402544025540256402574025840259402604026140262402634026440265402664026740268402694027040271402724027340274402754027640277402784027940280402814028240283402844028540286402874028840289402904029140292402934029440295402964029740298402994030040301403024030340304403054030640307403084030940310403114031240313403144031540316403174031840319403204032140322403234032440325403264032740328403294033040331403324033340334403354033640337403384033940340403414034240343403444034540346403474034840349403504035140352403534035440355403564035740358403594036040361403624036340364403654036640367403684036940370403714037240373403744037540376403774037840379403804038140382403834038440385403864038740388403894039040391403924039340394403954039640397403984039940400404014040240403404044040540406404074040840409404104041140412404134041440415404164041740418404194042040421404224042340424404254042640427404284042940430404314043240433404344043540436404374043840439404404044140442404434044440445404464044740448404494045040451404524045340454404554045640457404584045940460404614046240463404644046540466404674046840469404704047140472404734047440475404764047740478404794048040481404824048340484404854048640487404884048940490404914049240493404944049540496404974049840499405004050140502405034050440505405064050740508405094051040511405124051340514405154051640517405184051940520405214052240523405244052540526405274052840529405304053140532405334053440535405364053740538405394054040541405424054340544405454054640547405484054940550405514055240553405544055540556405574055840559405604056140562405634056440565405664056740568405694057040571405724057340574405754057640577405784057940580405814058240583405844058540586405874058840589405904059140592405934059440595405964059740598405994060040601406024060340604406054060640607406084060940610406114061240613406144061540616406174061840619406204062140622406234062440625406264062740628406294063040631406324063340634406354063640637406384063940640406414064240643406444064540646406474064840649406504065140652406534065440655406564065740658406594066040661406624066340664406654066640667406684066940670406714067240673406744067540676406774067840679406804068140682406834068440685406864068740688406894069040691406924069340694406954069640697406984069940700407014070240703407044070540706407074070840709407104071140712407134071440715407164071740718407194072040721407224072340724407254072640727407284072940730407314073240733407344073540736407374073840739407404074140742407434074440745407464074740748407494075040751407524075340754407554075640757407584075940760407614076240763407644076540766407674076840769407704077140772407734077440775407764077740778407794078040781407824078340784407854078640787407884078940790407914079240793407944079540796407974079840799408004080140802408034080440805408064080740808408094081040811408124081340814408154081640817408184081940820408214082240823408244082540826408274082840829408304083140832408334083440835408364083740838408394084040841408424084340844408454084640847408484084940850408514085240853408544085540856408574085840859408604086140862408634086440865408664086740868408694087040871408724087340874408754087640877408784087940880408814088240883408844088540886408874088840889408904089140892408934089440895408964089740898408994090040901409024090340904409054090640907409084090940910409114091240913409144091540916409174091840919409204092140922409234092440925409264092740928409294093040931409324093340934409354093640937409384093940940409414094240943409444094540946409474094840949409504095140952409534095440955409564095740958409594096040961409624096340964409654096640967409684096940970409714097240973409744097540976409774097840979409804098140982409834098440985409864098740988409894099040991409924099340994409954099640997409984099941000410014100241003410044100541006410074100841009410104101141012410134101441015410164101741018410194102041021410224102341024410254102641027410284102941030410314103241033410344103541036410374103841039410404104141042410434104441045410464104741048410494105041051410524105341054410554105641057410584105941060410614106241063410644106541066410674106841069410704107141072410734107441075410764107741078410794108041081410824108341084410854108641087410884108941090410914109241093410944109541096410974109841099411004110141102411034110441105411064110741108411094111041111411124111341114411154111641117411184111941120411214112241123411244112541126411274112841129411304113141132411334113441135411364113741138411394114041141411424114341144411454114641147411484114941150411514115241153411544115541156411574115841159411604116141162411634116441165411664116741168411694117041171411724117341174411754117641177411784117941180411814118241183411844118541186411874118841189411904119141192411934119441195411964119741198411994120041201412024120341204412054120641207412084120941210412114121241213412144121541216412174121841219412204122141222412234122441225412264122741228412294123041231412324123341234412354123641237412384123941240412414124241243412444124541246412474124841249412504125141252412534125441255412564125741258412594126041261412624126341264412654126641267412684126941270412714127241273412744127541276412774127841279412804128141282412834128441285412864128741288412894129041291412924129341294412954129641297412984129941300413014130241303413044130541306413074130841309413104131141312413134131441315413164131741318413194132041321413224132341324413254132641327413284132941330413314133241333413344133541336413374133841339413404134141342413434134441345413464134741348413494135041351413524135341354413554135641357413584135941360413614136241363413644136541366413674136841369413704137141372413734137441375413764137741378413794138041381413824138341384413854138641387413884138941390413914139241393413944139541396413974139841399414004140141402414034140441405414064140741408414094141041411414124141341414414154141641417414184141941420414214142241423414244142541426414274142841429414304143141432414334143441435414364143741438414394144041441414424144341444414454144641447414484144941450414514145241453414544145541456414574145841459414604146141462414634146441465414664146741468414694147041471414724147341474414754147641477414784147941480414814148241483414844148541486414874148841489414904149141492414934149441495414964149741498414994150041501415024150341504415054150641507415084150941510415114151241513415144151541516415174151841519415204152141522415234152441525415264152741528415294153041531415324153341534415354153641537415384153941540415414154241543415444154541546415474154841549415504155141552415534155441555415564155741558415594156041561415624156341564415654156641567415684156941570415714157241573415744157541576415774157841579415804158141582415834158441585415864158741588415894159041591415924159341594415954159641597415984159941600416014160241603416044160541606416074160841609416104161141612416134161441615416164161741618416194162041621416224162341624416254162641627416284162941630416314163241633416344163541636416374163841639416404164141642416434164441645416464164741648416494165041651416524165341654416554165641657416584165941660416614166241663416644166541666416674166841669416704167141672416734167441675416764167741678416794168041681416824168341684416854168641687416884168941690416914169241693416944169541696416974169841699417004170141702417034170441705417064170741708417094171041711417124171341714417154171641717417184171941720417214172241723417244172541726417274172841729417304173141732417334173441735417364173741738417394174041741417424174341744417454174641747417484174941750417514175241753417544175541756417574175841759417604176141762417634176441765417664176741768417694177041771417724177341774417754177641777417784177941780417814178241783417844178541786417874178841789417904179141792417934179441795417964179741798417994180041801418024180341804418054180641807418084180941810418114181241813418144181541816418174181841819418204182141822418234182441825418264182741828418294183041831418324183341834418354183641837418384183941840418414184241843418444184541846418474184841849418504185141852418534185441855418564185741858418594186041861418624186341864418654186641867418684186941870418714187241873418744187541876418774187841879418804188141882418834188441885418864188741888418894189041891418924189341894418954189641897418984189941900419014190241903419044190541906419074190841909419104191141912419134191441915419164191741918419194192041921419224192341924419254192641927419284192941930419314193241933419344193541936419374193841939419404194141942419434194441945419464194741948419494195041951419524195341954419554195641957419584195941960419614196241963419644196541966419674196841969419704197141972419734197441975419764197741978419794198041981419824198341984419854198641987419884198941990419914199241993419944199541996419974199841999420004200142002420034200442005420064200742008420094201042011420124201342014420154201642017420184201942020420214202242023420244202542026420274202842029420304203142032420334203442035420364203742038420394204042041420424204342044420454204642047420484204942050420514205242053420544205542056420574205842059420604206142062420634206442065420664206742068420694207042071420724207342074420754207642077420784207942080420814208242083420844208542086420874208842089420904209142092420934209442095420964209742098420994210042101421024210342104421054210642107421084210942110421114211242113421144211542116421174211842119421204212142122421234212442125421264212742128421294213042131421324213342134421354213642137421384213942140421414214242143421444214542146421474214842149421504215142152421534215442155421564215742158421594216042161421624216342164421654216642167421684216942170421714217242173421744217542176421774217842179421804218142182421834218442185421864218742188421894219042191421924219342194421954219642197421984219942200422014220242203422044220542206422074220842209422104221142212422134221442215422164221742218422194222042221422224222342224422254222642227422284222942230422314223242233422344223542236422374223842239422404224142242422434224442245422464224742248422494225042251422524225342254422554225642257422584225942260422614226242263422644226542266422674226842269422704227142272422734227442275422764227742278422794228042281422824228342284422854228642287422884228942290422914229242293422944229542296422974229842299423004230142302423034230442305423064230742308423094231042311423124231342314423154231642317423184231942320423214232242323423244232542326423274232842329423304233142332423334233442335423364233742338423394234042341423424234342344423454234642347423484234942350423514235242353423544235542356423574235842359423604236142362423634236442365423664236742368423694237042371423724237342374423754237642377423784237942380423814238242383423844238542386423874238842389423904239142392423934239442395423964239742398423994240042401424024240342404424054240642407424084240942410424114241242413424144241542416424174241842419424204242142422424234242442425424264242742428424294243042431424324243342434424354243642437424384243942440424414244242443424444244542446424474244842449424504245142452424534245442455424564245742458424594246042461424624246342464424654246642467424684246942470424714247242473424744247542476424774247842479424804248142482424834248442485424864248742488424894249042491424924249342494424954249642497424984249942500425014250242503425044250542506425074250842509425104251142512425134251442515425164251742518425194252042521425224252342524425254252642527425284252942530425314253242533425344253542536425374253842539425404254142542425434254442545425464254742548425494255042551425524255342554425554255642557425584255942560425614256242563425644256542566425674256842569425704257142572425734257442575425764257742578425794258042581425824258342584425854258642587425884258942590425914259242593425944259542596425974259842599426004260142602426034260442605426064260742608426094261042611426124261342614426154261642617426184261942620426214262242623426244262542626426274262842629426304263142632426334263442635426364263742638426394264042641426424264342644426454264642647426484264942650426514265242653426544265542656426574265842659426604266142662426634266442665426664266742668426694267042671426724267342674426754267642677426784267942680426814268242683426844268542686426874268842689426904269142692426934269442695426964269742698426994270042701427024270342704427054270642707427084270942710427114271242713427144271542716427174271842719427204272142722427234272442725427264272742728427294273042731427324273342734427354273642737427384273942740427414274242743427444274542746427474274842749427504275142752427534275442755427564275742758427594276042761427624276342764427654276642767427684276942770427714277242773427744277542776427774277842779427804278142782427834278442785427864278742788427894279042791427924279342794427954279642797427984279942800428014280242803428044280542806428074280842809428104281142812428134281442815428164281742818428194282042821428224282342824428254282642827428284282942830428314283242833428344283542836428374283842839428404284142842428434284442845428464284742848428494285042851428524285342854428554285642857428584285942860428614286242863428644286542866428674286842869428704287142872428734287442875428764287742878428794288042881428824288342884428854288642887428884288942890428914289242893428944289542896428974289842899429004290142902429034290442905429064290742908429094291042911429124291342914429154291642917429184291942920429214292242923429244292542926429274292842929429304293142932429334293442935429364293742938429394294042941429424294342944429454294642947429484294942950429514295242953429544295542956429574295842959429604296142962429634296442965429664296742968429694297042971429724297342974429754297642977429784297942980429814298242983429844298542986429874298842989429904299142992429934299442995429964299742998429994300043001430024300343004430054300643007430084300943010430114301243013430144301543016430174301843019430204302143022430234302443025430264302743028430294303043031430324303343034430354303643037430384303943040430414304243043430444304543046430474304843049430504305143052430534305443055430564305743058430594306043061430624306343064430654306643067430684306943070430714307243073430744307543076430774307843079430804308143082430834308443085430864308743088430894309043091430924309343094430954309643097430984309943100431014310243103431044310543106431074310843109431104311143112431134311443115431164311743118431194312043121431224312343124431254312643127431284312943130431314313243133431344313543136431374313843139431404314143142431434314443145431464314743148431494315043151431524315343154431554315643157431584315943160431614316243163431644316543166431674316843169431704317143172431734317443175431764317743178431794318043181431824318343184431854318643187431884318943190431914319243193431944319543196431974319843199432004320143202432034320443205432064320743208432094321043211432124321343214432154321643217432184321943220432214322243223432244322543226432274322843229432304323143232432334323443235432364323743238432394324043241432424324343244432454324643247432484324943250432514325243253432544325543256432574325843259432604326143262432634326443265432664326743268432694327043271432724327343274432754327643277432784327943280432814328243283432844328543286432874328843289432904329143292432934329443295432964329743298432994330043301433024330343304433054330643307433084330943310433114331243313433144331543316433174331843319433204332143322433234332443325433264332743328433294333043331433324333343334433354333643337433384333943340433414334243343433444334543346433474334843349433504335143352433534335443355433564335743358433594336043361433624336343364433654336643367433684336943370433714337243373433744337543376433774337843379433804338143382433834338443385433864338743388433894339043391433924339343394433954339643397433984339943400434014340243403434044340543406434074340843409434104341143412434134341443415434164341743418434194342043421434224342343424434254342643427434284342943430434314343243433434344343543436434374343843439434404344143442434434344443445434464344743448434494345043451434524345343454434554345643457434584345943460434614346243463434644346543466434674346843469434704347143472434734347443475434764347743478434794348043481434824348343484434854348643487434884348943490434914349243493434944349543496434974349843499435004350143502435034350443505435064350743508435094351043511435124351343514435154351643517435184351943520435214352243523435244352543526435274352843529435304353143532435334353443535435364353743538435394354043541435424354343544435454354643547435484354943550435514355243553435544355543556435574355843559435604356143562435634356443565435664356743568435694357043571435724357343574435754357643577435784357943580435814358243583435844358543586435874358843589435904359143592435934359443595435964359743598435994360043601436024360343604436054360643607436084360943610436114361243613436144361543616436174361843619436204362143622436234362443625436264362743628436294363043631436324363343634436354363643637436384363943640436414364243643436444364543646436474364843649436504365143652436534365443655436564365743658436594366043661436624366343664436654366643667436684366943670436714367243673436744367543676436774367843679436804368143682436834368443685436864368743688436894369043691436924369343694436954369643697436984369943700437014370243703437044370543706437074370843709437104371143712437134371443715437164371743718437194372043721437224372343724437254372643727437284372943730437314373243733437344373543736437374373843739437404374143742437434374443745437464374743748437494375043751437524375343754437554375643757437584375943760437614376243763437644376543766437674376843769437704377143772437734377443775437764377743778437794378043781437824378343784437854378643787437884378943790437914379243793437944379543796437974379843799438004380143802438034380443805438064380743808438094381043811438124381343814438154381643817438184381943820438214382243823438244382543826438274382843829438304383143832438334383443835438364383743838438394384043841438424384343844438454384643847438484384943850438514385243853438544385543856438574385843859438604386143862438634386443865438664386743868438694387043871438724387343874438754387643877438784387943880438814388243883438844388543886438874388843889438904389143892438934389443895438964389743898438994390043901439024390343904439054390643907439084390943910439114391243913439144391543916439174391843919439204392143922439234392443925439264392743928439294393043931439324393343934439354393643937439384393943940439414394243943439444394543946439474394843949439504395143952439534395443955439564395743958439594396043961439624396343964439654396643967439684396943970439714397243973439744397543976439774397843979439804398143982439834398443985439864398743988439894399043991439924399343994439954399643997439984399944000440014400244003440044400544006440074400844009440104401144012440134401444015440164401744018440194402044021440224402344024440254402644027440284402944030440314403244033440344403544036440374403844039440404404144042440434404444045440464404744048440494405044051440524405344054440554405644057440584405944060440614406244063440644406544066440674406844069440704407144072440734407444075440764407744078440794408044081440824408344084440854408644087440884408944090440914409244093440944409544096440974409844099441004410144102441034410444105441064410744108441094411044111441124411344114441154411644117441184411944120441214412244123441244412544126441274412844129441304413144132441334413444135441364413744138441394414044141441424414344144441454414644147441484414944150441514415244153441544415544156441574415844159441604416144162441634416444165441664416744168441694417044171441724417344174441754417644177441784417944180441814418244183441844418544186441874418844189441904419144192441934419444195441964419744198441994420044201442024420344204442054420644207442084420944210442114421244213442144421544216442174421844219442204422144222442234422444225442264422744228442294423044231442324423344234442354423644237442384423944240442414424244243442444424544246442474424844249442504425144252442534425444255442564425744258442594426044261442624426344264442654426644267442684426944270442714427244273442744427544276442774427844279442804428144282442834428444285442864428744288442894429044291442924429344294442954429644297442984429944300443014430244303443044430544306443074430844309443104431144312443134431444315443164431744318443194432044321443224432344324443254432644327443284432944330443314433244333443344433544336443374433844339443404434144342443434434444345443464434744348443494435044351443524435344354443554435644357443584435944360443614436244363443644436544366443674436844369443704437144372443734437444375443764437744378443794438044381443824438344384443854438644387443884438944390443914439244393443944439544396443974439844399444004440144402444034440444405444064440744408444094441044411444124441344414444154441644417444184441944420444214442244423444244442544426444274442844429444304443144432444334443444435444364443744438444394444044441444424444344444444454444644447444484444944450444514445244453444544445544456444574445844459444604446144462444634446444465444664446744468444694447044471444724447344474444754447644477444784447944480444814448244483444844448544486444874448844489444904449144492444934449444495444964449744498444994450044501445024450344504445054450644507445084450944510445114451244513445144451544516445174451844519445204452144522445234452444525445264452744528445294453044531445324453344534445354453644537445384453944540445414454244543445444454544546445474454844549445504455144552445534455444555445564455744558445594456044561445624456344564445654456644567445684456944570445714457244573445744457544576445774457844579445804458144582445834458444585445864458744588445894459044591445924459344594445954459644597445984459944600446014460244603446044460544606446074460844609446104461144612446134461444615446164461744618446194462044621446224462344624446254462644627446284462944630446314463244633446344463544636446374463844639446404464144642446434464444645446464464744648446494465044651446524465344654446554465644657446584465944660446614466244663446644466544666446674466844669446704467144672446734467444675446764467744678446794468044681446824468344684446854468644687446884468944690446914469244693446944469544696446974469844699447004470144702447034470444705447064470744708447094471044711447124471344714447154471644717447184471944720447214472244723447244472544726447274472844729447304473144732447334473444735447364473744738447394474044741447424474344744447454474644747447484474944750447514475244753447544475544756447574475844759447604476144762447634476444765447664476744768447694477044771447724477344774447754477644777447784477944780447814478244783447844478544786447874478844789447904479144792447934479444795447964479744798447994480044801448024480344804448054480644807448084480944810448114481244813448144481544816448174481844819448204482144822448234482444825448264482744828448294483044831448324483344834448354483644837448384483944840448414484244843448444484544846448474484844849448504485144852448534485444855448564485744858448594486044861448624486344864448654486644867448684486944870448714487244873448744487544876448774487844879448804488144882448834488444885448864488744888448894489044891448924489344894448954489644897448984489944900449014490244903449044490544906449074490844909449104491144912449134491444915449164491744918449194492044921449224492344924449254492644927449284492944930449314493244933449344493544936449374493844939449404494144942449434494444945449464494744948449494495044951449524495344954449554495644957449584495944960449614496244963449644496544966449674496844969449704497144972449734497444975449764497744978449794498044981449824498344984449854498644987449884498944990449914499244993449944499544996449974499844999450004500145002450034500445005450064500745008450094501045011450124501345014450154501645017450184501945020450214502245023450244502545026450274502845029450304503145032450334503445035450364503745038450394504045041450424504345044450454504645047450484504945050450514505245053450544505545056450574505845059450604506145062450634506445065450664506745068450694507045071450724507345074450754507645077450784507945080450814508245083450844508545086450874508845089450904509145092450934509445095450964509745098450994510045101451024510345104451054510645107451084510945110451114511245113451144511545116451174511845119451204512145122451234512445125451264512745128451294513045131451324513345134451354513645137451384513945140451414514245143451444514545146451474514845149451504515145152451534515445155451564515745158451594516045161451624516345164451654516645167451684516945170451714517245173451744517545176451774517845179451804518145182451834518445185451864518745188451894519045191451924519345194451954519645197451984519945200452014520245203452044520545206452074520845209452104521145212452134521445215452164521745218452194522045221452224522345224452254522645227452284522945230452314523245233452344523545236452374523845239452404524145242452434524445245452464524745248452494525045251452524525345254452554525645257452584525945260452614526245263452644526545266452674526845269452704527145272452734527445275452764527745278452794528045281452824528345284452854528645287452884528945290452914529245293452944529545296452974529845299453004530145302453034530445305453064530745308453094531045311453124531345314453154531645317453184531945320453214532245323453244532545326453274532845329453304533145332453334533445335453364533745338453394534045341453424534345344453454534645347453484534945350453514535245353453544535545356453574535845359453604536145362453634536445365453664536745368453694537045371453724537345374453754537645377453784537945380453814538245383453844538545386453874538845389453904539145392453934539445395453964539745398453994540045401454024540345404454054540645407454084540945410454114541245413454144541545416454174541845419454204542145422454234542445425454264542745428454294543045431454324543345434454354543645437454384543945440454414544245443454444544545446454474544845449454504545145452454534545445455454564545745458454594546045461454624546345464454654546645467454684546945470454714547245473454744547545476454774547845479454804548145482454834548445485454864548745488454894549045491454924549345494454954549645497454984549945500455014550245503455044550545506455074550845509455104551145512455134551445515455164551745518455194552045521455224552345524455254552645527455284552945530455314553245533455344553545536455374553845539455404554145542455434554445545455464554745548455494555045551455524555345554455554555645557455584555945560455614556245563455644556545566455674556845569455704557145572455734557445575455764557745578455794558045581455824558345584455854558645587455884558945590455914559245593455944559545596455974559845599456004560145602456034560445605456064560745608456094561045611456124561345614456154561645617456184561945620456214562245623456244562545626456274562845629456304563145632456334563445635456364563745638456394564045641456424564345644456454564645647456484564945650456514565245653456544565545656456574565845659456604566145662456634566445665456664566745668456694567045671456724567345674456754567645677456784567945680456814568245683456844568545686456874568845689456904569145692456934569445695456964569745698456994570045701457024570345704457054570645707457084570945710457114571245713457144571545716457174571845719457204572145722457234572445725457264572745728457294573045731457324573345734457354573645737457384573945740457414574245743457444574545746457474574845749457504575145752457534575445755457564575745758457594576045761457624576345764457654576645767457684576945770457714577245773457744577545776457774577845779457804578145782457834578445785457864578745788457894579045791457924579345794457954579645797457984579945800458014580245803458044580545806458074580845809458104581145812458134581445815458164581745818458194582045821458224582345824458254582645827458284582945830458314583245833458344583545836458374583845839458404584145842458434584445845458464584745848458494585045851458524585345854458554585645857458584585945860458614586245863458644586545866458674586845869458704587145872458734587445875458764587745878458794588045881458824588345884458854588645887458884588945890458914589245893458944589545896458974589845899459004590145902459034590445905459064590745908459094591045911459124591345914459154591645917459184591945920459214592245923459244592545926459274592845929459304593145932459334593445935459364593745938459394594045941459424594345944459454594645947459484594945950459514595245953459544595545956459574595845959459604596145962459634596445965459664596745968459694597045971459724597345974459754597645977459784597945980459814598245983459844598545986459874598845989459904599145992459934599445995459964599745998459994600046001460024600346004460054600646007460084600946010460114601246013460144601546016460174601846019460204602146022460234602446025460264602746028460294603046031460324603346034460354603646037460384603946040460414604246043460444604546046460474604846049460504605146052460534605446055460564605746058460594606046061460624606346064460654606646067460684606946070460714607246073460744607546076460774607846079460804608146082460834608446085460864608746088460894609046091460924609346094460954609646097460984609946100461014610246103461044610546106461074610846109461104611146112461134611446115461164611746118461194612046121461224612346124461254612646127461284612946130461314613246133461344613546136461374613846139461404614146142461434614446145461464614746148461494615046151461524615346154461554615646157461584615946160461614616246163461644616546166461674616846169461704617146172461734617446175461764617746178461794618046181461824618346184461854618646187461884618946190461914619246193461944619546196461974619846199462004620146202462034620446205462064620746208462094621046211462124621346214462154621646217462184621946220462214622246223462244622546226462274622846229462304623146232462334623446235462364623746238462394624046241462424624346244462454624646247462484624946250462514625246253462544625546256462574625846259462604626146262462634626446265462664626746268462694627046271462724627346274462754627646277462784627946280462814628246283462844628546286462874628846289462904629146292462934629446295462964629746298462994630046301463024630346304463054630646307463084630946310463114631246313463144631546316463174631846319463204632146322463234632446325463264632746328463294633046331463324633346334463354633646337463384633946340463414634246343463444634546346463474634846349463504635146352463534635446355463564635746358463594636046361463624636346364463654636646367463684636946370463714637246373463744637546376463774637846379463804638146382463834638446385463864638746388463894639046391463924639346394463954639646397463984639946400464014640246403464044640546406464074640846409464104641146412464134641446415464164641746418464194642046421464224642346424464254642646427464284642946430464314643246433464344643546436464374643846439464404644146442464434644446445464464644746448464494645046451464524645346454464554645646457464584645946460464614646246463464644646546466464674646846469464704647146472464734647446475464764647746478464794648046481464824648346484464854648646487464884648946490464914649246493464944649546496464974649846499465004650146502465034650446505465064650746508465094651046511465124651346514465154651646517465184651946520465214652246523465244652546526465274652846529465304653146532465334653446535465364653746538465394654046541465424654346544465454654646547465484654946550465514655246553465544655546556465574655846559465604656146562465634656446565465664656746568465694657046571465724657346574465754657646577465784657946580465814658246583465844658546586465874658846589465904659146592465934659446595465964659746598465994660046601466024660346604466054660646607466084660946610466114661246613466144661546616466174661846619466204662146622466234662446625466264662746628466294663046631466324663346634466354663646637466384663946640466414664246643466444664546646466474664846649466504665146652466534665446655466564665746658466594666046661466624666346664466654666646667466684666946670466714667246673466744667546676466774667846679466804668146682466834668446685466864668746688466894669046691466924669346694466954669646697466984669946700467014670246703467044670546706467074670846709467104671146712467134671446715467164671746718467194672046721467224672346724467254672646727467284672946730467314673246733467344673546736467374673846739467404674146742467434674446745467464674746748467494675046751467524675346754467554675646757467584675946760467614676246763467644676546766467674676846769467704677146772467734677446775467764677746778467794678046781467824678346784467854678646787467884678946790467914679246793467944679546796467974679846799468004680146802468034680446805468064680746808468094681046811468124681346814468154681646817468184681946820468214682246823468244682546826468274682846829468304683146832468334683446835468364683746838468394684046841468424684346844468454684646847468484684946850468514685246853468544685546856468574685846859468604686146862468634686446865468664686746868468694687046871468724687346874468754687646877468784687946880468814688246883468844688546886468874688846889468904689146892468934689446895468964689746898468994690046901469024690346904469054690646907469084690946910469114691246913469144691546916469174691846919469204692146922469234692446925469264692746928469294693046931469324693346934469354693646937469384693946940469414694246943469444694546946469474694846949469504695146952469534695446955469564695746958469594696046961469624696346964469654696646967469684696946970469714697246973469744697546976469774697846979469804698146982469834698446985469864698746988469894699046991469924699346994469954699646997469984699947000470014700247003470044700547006470074700847009470104701147012470134701447015470164701747018470194702047021470224702347024470254702647027470284702947030470314703247033470344703547036470374703847039470404704147042470434704447045470464704747048470494705047051470524705347054470554705647057470584705947060470614706247063470644706547066470674706847069470704707147072470734707447075470764707747078470794708047081470824708347084470854708647087470884708947090470914709247093470944709547096470974709847099471004710147102471034710447105471064710747108471094711047111471124711347114471154711647117471184711947120471214712247123471244712547126471274712847129471304713147132471334713447135471364713747138471394714047141471424714347144471454714647147471484714947150471514715247153471544715547156471574715847159471604716147162471634716447165471664716747168471694717047171471724717347174471754717647177471784717947180471814718247183471844718547186471874718847189471904719147192471934719447195471964719747198471994720047201472024720347204472054720647207472084720947210472114721247213472144721547216472174721847219472204722147222472234722447225472264722747228472294723047231472324723347234472354723647237472384723947240472414724247243472444724547246472474724847249472504725147252472534725447255472564725747258472594726047261472624726347264472654726647267472684726947270472714727247273472744727547276472774727847279472804728147282472834728447285472864728747288472894729047291472924729347294472954729647297472984729947300473014730247303473044730547306473074730847309473104731147312473134731447315473164731747318473194732047321473224732347324473254732647327473284732947330473314733247333473344733547336473374733847339473404734147342473434734447345473464734747348473494735047351473524735347354473554735647357473584735947360473614736247363473644736547366473674736847369473704737147372473734737447375473764737747378473794738047381473824738347384473854738647387473884738947390473914739247393473944739547396473974739847399474004740147402474034740447405474064740747408474094741047411474124741347414474154741647417474184741947420474214742247423474244742547426474274742847429474304743147432474334743447435474364743747438474394744047441474424744347444474454744647447474484744947450474514745247453474544745547456474574745847459474604746147462474634746447465474664746747468474694747047471474724747347474474754747647477474784747947480474814748247483474844748547486474874748847489474904749147492474934749447495474964749747498474994750047501475024750347504475054750647507475084750947510475114751247513475144751547516475174751847519475204752147522475234752447525475264752747528475294753047531475324753347534475354753647537475384753947540475414754247543475444754547546475474754847549475504755147552475534755447555475564755747558475594756047561475624756347564475654756647567475684756947570475714757247573475744757547576475774757847579475804758147582475834758447585475864758747588475894759047591475924759347594475954759647597475984759947600476014760247603476044760547606476074760847609476104761147612476134761447615476164761747618476194762047621476224762347624476254762647627476284762947630476314763247633476344763547636476374763847639476404764147642476434764447645476464764747648476494765047651476524765347654476554765647657476584765947660476614766247663476644766547666476674766847669476704767147672476734767447675476764767747678476794768047681476824768347684476854768647687476884768947690476914769247693476944769547696476974769847699477004770147702477034770447705477064770747708477094771047711477124771347714477154771647717477184771947720477214772247723477244772547726477274772847729477304773147732477334773447735477364773747738477394774047741477424774347744477454774647747477484774947750477514775247753477544775547756477574775847759477604776147762477634776447765477664776747768477694777047771477724777347774477754777647777477784777947780477814778247783477844778547786477874778847789477904779147792477934779447795477964779747798477994780047801478024780347804478054780647807478084780947810478114781247813478144781547816478174781847819478204782147822478234782447825478264782747828478294783047831478324783347834478354783647837478384783947840478414784247843478444784547846478474784847849478504785147852478534785447855478564785747858478594786047861478624786347864478654786647867478684786947870478714787247873478744787547876478774787847879478804788147882478834788447885478864788747888478894789047891478924789347894478954789647897478984789947900479014790247903479044790547906479074790847909479104791147912479134791447915479164791747918479194792047921479224792347924479254792647927479284792947930479314793247933479344793547936479374793847939479404794147942479434794447945479464794747948479494795047951479524795347954479554795647957479584795947960479614796247963479644796547966479674796847969479704797147972479734797447975479764797747978479794798047981479824798347984479854798647987479884798947990479914799247993479944799547996479974799847999480004800148002480034800448005480064800748008480094801048011480124801348014480154801648017480184801948020480214802248023480244802548026480274802848029480304803148032480334803448035480364803748038480394804048041480424804348044480454804648047480484804948050480514805248053480544805548056480574805848059480604806148062480634806448065480664806748068480694807048071480724807348074480754807648077480784807948080480814808248083480844808548086480874808848089480904809148092480934809448095480964809748098480994810048101481024810348104481054810648107481084810948110481114811248113481144811548116481174811848119481204812148122481234812448125481264812748128481294813048131481324813348134481354813648137481384813948140481414814248143481444814548146481474814848149481504815148152481534815448155481564815748158481594816048161481624816348164481654816648167481684816948170481714817248173481744817548176481774817848179481804818148182481834818448185481864818748188481894819048191481924819348194481954819648197481984819948200482014820248203482044820548206482074820848209482104821148212482134821448215482164821748218482194822048221482224822348224482254822648227482284822948230482314823248233482344823548236482374823848239482404824148242482434824448245482464824748248482494825048251482524825348254482554825648257482584825948260482614826248263482644826548266482674826848269482704827148272482734827448275482764827748278482794828048281482824828348284482854828648287482884828948290482914829248293482944829548296482974829848299483004830148302483034830448305483064830748308483094831048311483124831348314483154831648317483184831948320483214832248323483244832548326483274832848329483304833148332483334833448335483364833748338483394834048341483424834348344483454834648347483484834948350483514835248353483544835548356483574835848359483604836148362483634836448365483664836748368483694837048371483724837348374483754837648377483784837948380483814838248383483844838548386483874838848389483904839148392483934839448395483964839748398483994840048401484024840348404484054840648407484084840948410484114841248413484144841548416484174841848419484204842148422484234842448425484264842748428484294843048431484324843348434484354843648437484384843948440484414844248443484444844548446484474844848449484504845148452484534845448455484564845748458484594846048461484624846348464484654846648467484684846948470484714847248473484744847548476484774847848479484804848148482484834848448485484864848748488484894849048491484924849348494484954849648497484984849948500485014850248503485044850548506485074850848509485104851148512485134851448515485164851748518485194852048521485224852348524485254852648527485284852948530485314853248533485344853548536485374853848539485404854148542485434854448545485464854748548485494855048551485524855348554485554855648557485584855948560485614856248563485644856548566485674856848569485704857148572485734857448575485764857748578485794858048581485824858348584485854858648587485884858948590485914859248593485944859548596485974859848599486004860148602486034860448605486064860748608486094861048611486124861348614486154861648617486184861948620486214862248623486244862548626486274862848629486304863148632486334863448635486364863748638486394864048641486424864348644486454864648647486484864948650486514865248653486544865548656486574865848659486604866148662486634866448665486664866748668486694867048671486724867348674486754867648677486784867948680486814868248683486844868548686486874868848689486904869148692486934869448695486964869748698486994870048701487024870348704487054870648707487084870948710487114871248713487144871548716487174871848719487204872148722487234872448725487264872748728487294873048731487324873348734487354873648737487384873948740487414874248743487444874548746487474874848749487504875148752487534875448755487564875748758487594876048761487624876348764487654876648767487684876948770487714877248773487744877548776487774877848779487804878148782487834878448785487864878748788487894879048791487924879348794487954879648797487984879948800488014880248803488044880548806488074880848809488104881148812488134881448815488164881748818488194882048821488224882348824488254882648827488284882948830488314883248833488344883548836488374883848839488404884148842488434884448845488464884748848488494885048851488524885348854488554885648857488584885948860488614886248863488644886548866488674886848869488704887148872488734887448875488764887748878488794888048881488824888348884488854888648887488884888948890488914889248893488944889548896488974889848899489004890148902489034890448905489064890748908489094891048911489124891348914489154891648917489184891948920489214892248923489244892548926489274892848929489304893148932489334893448935489364893748938489394894048941489424894348944489454894648947489484894948950489514895248953489544895548956489574895848959489604896148962489634896448965489664896748968489694897048971489724897348974489754897648977489784897948980489814898248983489844898548986489874898848989489904899148992489934899448995489964899748998489994900049001490024900349004490054900649007490084900949010490114901249013490144901549016490174901849019490204902149022490234902449025490264902749028490294903049031490324903349034490354903649037490384903949040490414904249043490444904549046490474904849049490504905149052490534905449055490564905749058490594906049061490624906349064490654906649067490684906949070490714907249073490744907549076490774907849079490804908149082490834908449085490864908749088490894909049091490924909349094490954909649097490984909949100491014910249103491044910549106491074910849109491104911149112491134911449115491164911749118491194912049121491224912349124491254912649127491284912949130491314913249133491344913549136491374913849139491404914149142491434914449145491464914749148491494915049151491524915349154491554915649157491584915949160491614916249163491644916549166491674916849169491704917149172491734917449175491764917749178491794918049181491824918349184491854918649187491884918949190491914919249193491944919549196491974919849199492004920149202492034920449205492064920749208492094921049211492124921349214492154921649217492184921949220492214922249223492244922549226492274922849229492304923149232492334923449235492364923749238492394924049241492424924349244492454924649247492484924949250492514925249253492544925549256492574925849259492604926149262492634926449265492664926749268492694927049271492724927349274492754927649277492784927949280492814928249283492844928549286492874928849289492904929149292492934929449295492964929749298492994930049301493024930349304493054930649307493084930949310493114931249313493144931549316493174931849319493204932149322493234932449325493264932749328493294933049331493324933349334493354933649337493384933949340493414934249343493444934549346493474934849349493504935149352493534935449355493564935749358493594936049361493624936349364493654936649367493684936949370493714937249373493744937549376493774937849379493804938149382493834938449385493864938749388493894939049391493924939349394493954939649397493984939949400494014940249403494044940549406494074940849409494104941149412494134941449415494164941749418494194942049421494224942349424494254942649427494284942949430494314943249433494344943549436494374943849439494404944149442494434944449445494464944749448494494945049451494524945349454494554945649457494584945949460494614946249463494644946549466494674946849469494704947149472494734947449475494764947749478494794948049481494824948349484494854948649487494884948949490494914949249493494944949549496494974949849499495004950149502495034950449505495064950749508495094951049511495124951349514495154951649517495184951949520495214952249523495244952549526495274952849529495304953149532495334953449535495364953749538495394954049541495424954349544495454954649547495484954949550495514955249553495544955549556495574955849559495604956149562495634956449565495664956749568495694957049571495724957349574495754957649577495784957949580495814958249583495844958549586495874958849589495904959149592495934959449595495964959749598495994960049601496024960349604496054960649607496084960949610496114961249613496144961549616496174961849619496204962149622496234962449625496264962749628496294963049631496324963349634496354963649637496384963949640496414964249643496444964549646496474964849649496504965149652496534965449655496564965749658496594966049661496624966349664496654966649667496684966949670496714967249673496744967549676496774967849679496804968149682496834968449685496864968749688496894969049691496924969349694496954969649697496984969949700497014970249703497044970549706497074970849709497104971149712497134971449715497164971749718497194972049721497224972349724497254972649727497284972949730497314973249733497344973549736497374973849739497404974149742497434974449745497464974749748497494975049751497524975349754497554975649757497584975949760497614976249763497644976549766497674976849769497704977149772497734977449775497764977749778497794978049781497824978349784497854978649787497884978949790497914979249793497944979549796497974979849799498004980149802498034980449805498064980749808498094981049811498124981349814498154981649817498184981949820498214982249823498244982549826498274982849829498304983149832498334983449835498364983749838498394984049841498424984349844498454984649847498484984949850498514985249853498544985549856498574985849859498604986149862498634986449865498664986749868498694987049871498724987349874498754987649877498784987949880498814988249883498844988549886498874988849889498904989149892498934989449895498964989749898498994990049901499024990349904499054990649907499084990949910499114991249913499144991549916499174991849919499204992149922499234992449925499264992749928499294993049931499324993349934499354993649937499384993949940499414994249943499444994549946499474994849949499504995149952499534995449955499564995749958499594996049961499624996349964499654996649967499684996949970499714997249973499744997549976499774997849979499804998149982499834998449985499864998749988499894999049991499924999349994499954999649997499984999950000500015000250003500045000550006500075000850009500105001150012500135001450015500165001750018500195002050021500225002350024500255002650027500285002950030500315003250033500345003550036500375003850039500405004150042500435004450045500465004750048500495005050051500525005350054500555005650057500585005950060500615006250063500645006550066500675006850069500705007150072500735007450075500765007750078500795008050081500825008350084500855008650087500885008950090500915009250093500945009550096500975009850099501005010150102501035010450105501065010750108501095011050111501125011350114501155011650117501185011950120501215012250123501245012550126501275012850129501305013150132501335013450135501365013750138501395014050141501425014350144501455014650147501485014950150501515015250153501545015550156501575015850159501605016150162501635016450165501665016750168501695017050171501725017350174501755017650177501785017950180501815018250183501845018550186501875018850189501905019150192501935019450195501965019750198501995020050201502025020350204502055020650207502085020950210502115021250213502145021550216502175021850219502205022150222502235022450225502265022750228502295023050231502325023350234502355023650237502385023950240502415024250243502445024550246502475024850249502505025150252502535025450255502565025750258502595026050261502625026350264502655026650267502685026950270502715027250273502745027550276502775027850279502805028150282502835028450285502865028750288502895029050291502925029350294502955029650297502985029950300503015030250303503045030550306503075030850309503105031150312503135031450315503165031750318503195032050321503225032350324503255032650327503285032950330503315033250333503345033550336503375033850339503405034150342503435034450345503465034750348503495035050351503525035350354503555035650357503585035950360503615036250363503645036550366503675036850369503705037150372503735037450375503765037750378503795038050381503825038350384503855038650387503885038950390503915039250393503945039550396503975039850399504005040150402504035040450405504065040750408504095041050411504125041350414504155041650417504185041950420504215042250423504245042550426504275042850429504305043150432504335043450435504365043750438504395044050441504425044350444504455044650447504485044950450504515045250453504545045550456504575045850459504605046150462504635046450465504665046750468504695047050471504725047350474504755047650477504785047950480504815048250483504845048550486504875048850489504905049150492504935049450495504965049750498504995050050501505025050350504505055050650507505085050950510505115051250513505145051550516505175051850519505205052150522505235052450525505265052750528505295053050531505325053350534505355053650537505385053950540505415054250543505445054550546505475054850549505505055150552505535055450555505565055750558505595056050561505625056350564505655056650567505685056950570505715057250573505745057550576505775057850579505805058150582505835058450585505865058750588505895059050591505925059350594505955059650597505985059950600506015060250603506045060550606506075060850609506105061150612506135061450615506165061750618506195062050621506225062350624506255062650627506285062950630506315063250633506345063550636506375063850639506405064150642506435064450645506465064750648506495065050651506525065350654506555065650657506585065950660506615066250663506645066550666506675066850669506705067150672506735067450675506765067750678506795068050681506825068350684506855068650687506885068950690506915069250693506945069550696506975069850699507005070150702507035070450705507065070750708507095071050711507125071350714507155071650717507185071950720507215072250723507245072550726507275072850729507305073150732507335073450735507365073750738507395074050741507425074350744507455074650747507485074950750507515075250753507545075550756507575075850759507605076150762507635076450765507665076750768507695077050771507725077350774507755077650777507785077950780507815078250783507845078550786507875078850789507905079150792507935079450795507965079750798507995080050801508025080350804508055080650807508085080950810508115081250813508145081550816508175081850819508205082150822508235082450825508265082750828508295083050831508325083350834508355083650837508385083950840508415084250843508445084550846508475084850849508505085150852508535085450855508565085750858508595086050861508625086350864508655086650867508685086950870508715087250873508745087550876508775087850879508805088150882508835088450885508865088750888508895089050891508925089350894508955089650897508985089950900509015090250903509045090550906509075090850909509105091150912509135091450915509165091750918509195092050921509225092350924509255092650927509285092950930509315093250933509345093550936509375093850939509405094150942509435094450945509465094750948509495095050951509525095350954509555095650957509585095950960509615096250963509645096550966509675096850969509705097150972509735097450975509765097750978509795098050981509825098350984509855098650987509885098950990509915099250993509945099550996509975099850999510005100151002510035100451005510065100751008510095101051011510125101351014510155101651017510185101951020510215102251023510245102551026510275102851029510305103151032510335103451035510365103751038510395104051041510425104351044510455104651047510485104951050510515105251053510545105551056510575105851059510605106151062510635106451065510665106751068510695107051071510725107351074510755107651077510785107951080510815108251083510845108551086510875108851089510905109151092510935109451095510965109751098510995110051101511025110351104511055110651107511085110951110511115111251113511145111551116511175111851119511205112151122511235112451125511265112751128511295113051131511325113351134511355113651137511385113951140511415114251143511445114551146511475114851149511505115151152511535115451155511565115751158511595116051161511625116351164511655116651167511685116951170511715117251173511745117551176511775117851179511805118151182511835118451185511865118751188511895119051191511925119351194511955119651197511985119951200512015120251203512045120551206512075120851209512105121151212512135121451215512165121751218512195122051221512225122351224512255122651227512285122951230512315123251233512345123551236512375123851239512405124151242512435124451245512465124751248512495125051251512525125351254512555125651257512585125951260512615126251263512645126551266512675126851269512705127151272512735127451275512765127751278512795128051281512825128351284512855128651287512885128951290512915129251293512945129551296512975129851299513005130151302513035130451305513065130751308513095131051311513125131351314513155131651317513185131951320513215132251323513245132551326513275132851329513305133151332513335133451335513365133751338513395134051341513425134351344513455134651347513485134951350513515135251353513545135551356513575135851359513605136151362513635136451365513665136751368513695137051371513725137351374513755137651377513785137951380513815138251383513845138551386513875138851389513905139151392513935139451395513965139751398513995140051401514025140351404514055140651407514085140951410514115141251413514145141551416514175141851419514205142151422514235142451425514265142751428514295143051431514325143351434514355143651437514385143951440514415144251443514445144551446514475144851449514505145151452514535145451455514565145751458514595146051461514625146351464514655146651467514685146951470514715147251473514745147551476514775147851479514805148151482514835148451485514865148751488514895149051491514925149351494514955149651497514985149951500515015150251503515045150551506515075150851509515105151151512515135151451515515165151751518515195152051521515225152351524515255152651527515285152951530515315153251533515345153551536515375153851539515405154151542515435154451545515465154751548515495155051551515525155351554515555155651557515585155951560515615156251563515645156551566515675156851569515705157151572515735157451575515765157751578515795158051581515825158351584515855158651587515885158951590515915159251593515945159551596515975159851599516005160151602516035160451605516065160751608516095161051611516125161351614516155161651617516185161951620516215162251623516245162551626516275162851629516305163151632516335163451635516365163751638516395164051641516425164351644516455164651647516485164951650516515165251653516545165551656516575165851659516605166151662516635166451665516665166751668516695167051671516725167351674516755167651677516785167951680516815168251683516845168551686516875168851689516905169151692516935169451695516965169751698516995170051701517025170351704517055170651707517085170951710517115171251713517145171551716517175171851719517205172151722517235172451725517265172751728517295173051731517325173351734517355173651737517385173951740517415174251743517445174551746517475174851749517505175151752517535175451755517565175751758517595176051761517625176351764517655176651767517685176951770517715177251773517745177551776517775177851779517805178151782517835178451785517865178751788517895179051791517925179351794517955179651797517985179951800518015180251803518045180551806518075180851809518105181151812518135181451815518165181751818518195182051821518225182351824518255182651827518285182951830518315183251833518345183551836518375183851839518405184151842518435184451845518465184751848518495185051851518525185351854518555185651857518585185951860518615186251863518645186551866518675186851869518705187151872518735187451875518765187751878518795188051881518825188351884518855188651887518885188951890518915189251893518945189551896518975189851899519005190151902519035190451905519065190751908519095191051911519125191351914519155191651917519185191951920519215192251923519245192551926519275192851929519305193151932519335193451935519365193751938519395194051941519425194351944519455194651947519485194951950519515195251953519545195551956519575195851959519605196151962519635196451965519665196751968519695197051971519725197351974519755197651977519785197951980519815198251983519845198551986519875198851989519905199151992519935199451995519965199751998519995200052001520025200352004520055200652007520085200952010520115201252013520145201552016520175201852019520205202152022520235202452025520265202752028520295203052031520325203352034520355203652037520385203952040520415204252043520445204552046520475204852049520505205152052520535205452055520565205752058520595206052061520625206352064520655206652067520685206952070520715207252073520745207552076520775207852079520805208152082520835208452085520865208752088520895209052091520925209352094520955209652097520985209952100521015210252103521045210552106521075210852109521105211152112521135211452115521165211752118521195212052121521225212352124521255212652127521285212952130521315213252133521345213552136521375213852139521405214152142521435214452145521465214752148521495215052151521525215352154521555215652157521585215952160521615216252163521645216552166521675216852169521705217152172521735217452175521765217752178521795218052181521825218352184521855218652187521885218952190521915219252193521945219552196521975219852199522005220152202522035220452205522065220752208522095221052211522125221352214522155221652217522185221952220522215222252223522245222552226522275222852229522305223152232522335223452235522365223752238522395224052241522425224352244522455224652247522485224952250522515225252253522545225552256522575225852259522605226152262522635226452265522665226752268522695227052271522725227352274522755227652277522785227952280522815228252283522845228552286522875228852289522905229152292522935229452295522965229752298522995230052301523025230352304523055230652307523085230952310523115231252313523145231552316523175231852319523205232152322523235232452325523265232752328523295233052331523325233352334523355233652337523385233952340523415234252343523445234552346523475234852349523505235152352523535235452355523565235752358523595236052361523625236352364523655236652367523685236952370523715237252373523745237552376523775237852379523805238152382523835238452385523865238752388523895239052391523925239352394523955239652397523985239952400524015240252403524045240552406524075240852409524105241152412524135241452415524165241752418524195242052421524225242352424524255242652427524285242952430524315243252433524345243552436524375243852439524405244152442524435244452445524465244752448524495245052451524525245352454524555245652457524585245952460524615246252463524645246552466524675246852469524705247152472524735247452475524765247752478524795248052481524825248352484524855248652487524885248952490524915249252493524945249552496524975249852499525005250152502525035250452505525065250752508525095251052511525125251352514525155251652517525185251952520525215252252523525245252552526525275252852529525305253152532525335253452535525365253752538525395254052541525425254352544525455254652547525485254952550525515255252553525545255552556525575255852559525605256152562525635256452565525665256752568525695257052571525725257352574525755257652577525785257952580525815258252583525845258552586525875258852589525905259152592525935259452595525965259752598525995260052601526025260352604526055260652607526085260952610526115261252613526145261552616526175261852619526205262152622526235262452625526265262752628526295263052631526325263352634526355263652637526385263952640526415264252643526445264552646526475264852649526505265152652526535265452655526565265752658526595266052661526625266352664526655266652667526685266952670526715267252673526745267552676526775267852679526805268152682526835268452685526865268752688526895269052691526925269352694526955269652697526985269952700527015270252703527045270552706527075270852709527105271152712527135271452715527165271752718527195272052721527225272352724527255272652727527285272952730527315273252733527345273552736527375273852739527405274152742527435274452745527465274752748527495275052751527525275352754527555275652757527585275952760527615276252763527645276552766527675276852769527705277152772527735277452775527765277752778527795278052781527825278352784527855278652787527885278952790527915279252793527945279552796527975279852799528005280152802528035280452805528065280752808528095281052811528125281352814528155281652817528185281952820528215282252823528245282552826528275282852829528305283152832528335283452835528365283752838528395284052841528425284352844528455284652847528485284952850528515285252853528545285552856528575285852859528605286152862528635286452865528665286752868528695287052871528725287352874528755287652877528785287952880528815288252883528845288552886528875288852889528905289152892528935289452895528965289752898528995290052901529025290352904529055290652907529085290952910529115291252913529145291552916529175291852919529205292152922529235292452925529265292752928529295293052931529325293352934529355293652937529385293952940529415294252943529445294552946529475294852949529505295152952529535295452955529565295752958529595296052961529625296352964529655296652967529685296952970529715297252973529745297552976529775297852979529805298152982529835298452985529865298752988529895299052991529925299352994529955299652997529985299953000530015300253003530045300553006530075300853009530105301153012530135301453015530165301753018530195302053021530225302353024530255302653027530285302953030530315303253033530345303553036530375303853039530405304153042530435304453045530465304753048530495305053051530525305353054530555305653057530585305953060530615306253063530645306553066530675306853069530705307153072530735307453075530765307753078530795308053081530825308353084530855308653087530885308953090530915309253093530945309553096530975309853099531005310153102531035310453105531065310753108531095311053111531125311353114531155311653117531185311953120531215312253123531245312553126531275312853129531305313153132531335313453135531365313753138531395314053141531425314353144531455314653147531485314953150531515315253153531545315553156531575315853159531605316153162531635316453165531665316753168531695317053171531725317353174531755317653177531785317953180531815318253183531845318553186531875318853189531905319153192531935319453195531965319753198531995320053201532025320353204532055320653207532085320953210532115321253213532145321553216532175321853219532205322153222532235322453225532265322753228532295323053231532325323353234532355323653237532385323953240532415324253243532445324553246532475324853249532505325153252532535325453255532565325753258532595326053261532625326353264532655326653267532685326953270532715327253273532745327553276532775327853279532805328153282532835328453285532865328753288532895329053291532925329353294532955329653297532985329953300533015330253303533045330553306533075330853309533105331153312533135331453315533165331753318533195332053321533225332353324533255332653327533285332953330533315333253333533345333553336533375333853339533405334153342533435334453345533465334753348533495335053351533525335353354533555335653357533585335953360533615336253363533645336553366533675336853369533705337153372533735337453375533765337753378533795338053381533825338353384533855338653387533885338953390533915339253393533945339553396533975339853399534005340153402534035340453405534065340753408534095341053411534125341353414534155341653417534185341953420534215342253423534245342553426534275342853429534305343153432534335343453435534365343753438534395344053441534425344353444534455344653447534485344953450534515345253453534545345553456534575345853459534605346153462534635346453465534665346753468534695347053471534725347353474534755347653477534785347953480534815348253483534845348553486534875348853489534905349153492534935349453495534965349753498534995350053501535025350353504535055350653507535085350953510535115351253513535145351553516535175351853519535205352153522535235352453525535265352753528535295353053531535325353353534535355353653537535385353953540535415354253543535445354553546535475354853549535505355153552535535355453555535565355753558535595356053561535625356353564535655356653567535685356953570535715357253573535745357553576535775357853579535805358153582535835358453585535865358753588535895359053591535925359353594535955359653597535985359953600536015360253603536045360553606536075360853609536105361153612536135361453615536165361753618536195362053621536225362353624536255362653627536285362953630536315363253633536345363553636536375363853639536405364153642536435364453645536465364753648536495365053651536525365353654536555365653657536585365953660536615366253663536645366553666536675366853669536705367153672536735367453675536765367753678536795368053681536825368353684536855368653687536885368953690536915369253693536945369553696536975369853699537005370153702537035370453705537065370753708537095371053711537125371353714537155371653717537185371953720537215372253723537245372553726537275372853729537305373153732537335373453735537365373753738537395374053741537425374353744537455374653747537485374953750537515375253753537545375553756537575375853759537605376153762537635376453765537665376753768537695377053771537725377353774537755377653777537785377953780537815378253783537845378553786537875378853789537905379153792537935379453795537965379753798537995380053801538025380353804538055380653807538085380953810538115381253813538145381553816538175381853819538205382153822538235382453825538265382753828538295383053831538325383353834538355383653837538385383953840538415384253843538445384553846538475384853849538505385153852538535385453855538565385753858538595386053861538625386353864538655386653867538685386953870538715387253873538745387553876538775387853879538805388153882538835388453885538865388753888538895389053891538925389353894538955389653897538985389953900539015390253903539045390553906539075390853909539105391153912539135391453915539165391753918539195392053921539225392353924539255392653927539285392953930539315393253933539345393553936539375393853939539405394153942539435394453945539465394753948539495395053951539525395353954539555395653957539585395953960539615396253963539645396553966539675396853969539705397153972539735397453975539765397753978539795398053981539825398353984539855398653987539885398953990539915399253993539945399553996539975399853999540005400154002540035400454005540065400754008540095401054011540125401354014540155401654017540185401954020540215402254023540245402554026540275402854029540305403154032540335403454035540365403754038540395404054041540425404354044540455404654047540485404954050540515405254053540545405554056540575405854059540605406154062540635406454065540665406754068540695407054071540725407354074540755407654077540785407954080540815408254083540845408554086540875408854089540905409154092540935409454095540965409754098540995410054101541025410354104541055410654107541085410954110541115411254113541145411554116541175411854119541205412154122541235412454125541265412754128541295413054131541325413354134541355413654137541385413954140541415414254143541445414554146541475414854149541505415154152541535415454155541565415754158541595416054161541625416354164541655416654167541685416954170541715417254173541745417554176541775417854179541805418154182541835418454185541865418754188541895419054191541925419354194541955419654197541985419954200542015420254203542045420554206542075420854209542105421154212542135421454215542165421754218542195422054221542225422354224542255422654227542285422954230542315423254233542345423554236542375423854239542405424154242542435424454245542465424754248542495425054251542525425354254542555425654257542585425954260542615426254263542645426554266542675426854269542705427154272542735427454275542765427754278542795428054281542825428354284542855428654287542885428954290542915429254293542945429554296542975429854299543005430154302543035430454305543065430754308543095431054311543125431354314543155431654317543185431954320543215432254323543245432554326543275432854329543305433154332543335433454335543365433754338543395434054341543425434354344543455434654347543485434954350543515435254353543545435554356543575435854359543605436154362543635436454365543665436754368543695437054371543725437354374543755437654377543785437954380543815438254383543845438554386543875438854389543905439154392543935439454395543965439754398543995440054401544025440354404544055440654407544085440954410544115441254413544145441554416544175441854419544205442154422544235442454425544265442754428544295443054431544325443354434544355443654437544385443954440544415444254443544445444554446544475444854449544505445154452544535445454455544565445754458544595446054461544625446354464544655446654467544685446954470544715447254473544745447554476544775447854479544805448154482544835448454485544865448754488544895449054491544925449354494544955449654497544985449954500545015450254503545045450554506545075450854509545105451154512545135451454515545165451754518545195452054521545225452354524545255452654527545285452954530545315453254533545345453554536545375453854539545405454154542545435454454545545465454754548545495455054551545525455354554545555455654557545585455954560545615456254563545645456554566545675456854569545705457154572545735457454575545765457754578545795458054581545825458354584545855458654587545885458954590545915459254593545945459554596545975459854599546005460154602546035460454605546065460754608546095461054611546125461354614546155461654617546185461954620546215462254623546245462554626546275462854629546305463154632546335463454635546365463754638546395464054641546425464354644546455464654647546485464954650546515465254653546545465554656546575465854659546605466154662546635466454665546665466754668546695467054671546725467354674546755467654677546785467954680546815468254683546845468554686546875468854689546905469154692546935469454695546965469754698546995470054701547025470354704547055470654707547085470954710547115471254713547145471554716547175471854719547205472154722547235472454725547265472754728547295473054731547325473354734547355473654737547385473954740547415474254743547445474554746547475474854749547505475154752547535475454755547565475754758547595476054761547625476354764547655476654767547685476954770547715477254773547745477554776547775477854779547805478154782547835478454785547865478754788547895479054791547925479354794547955479654797547985479954800548015480254803548045480554806548075480854809548105481154812548135481454815548165481754818548195482054821548225482354824548255482654827548285482954830548315483254833548345483554836548375483854839548405484154842548435484454845548465484754848548495485054851548525485354854548555485654857548585485954860548615486254863548645486554866548675486854869548705487154872548735487454875548765487754878548795488054881548825488354884548855488654887548885488954890548915489254893548945489554896548975489854899549005490154902549035490454905549065490754908549095491054911549125491354914549155491654917549185491954920549215492254923549245492554926549275492854929549305493154932549335493454935549365493754938549395494054941549425494354944549455494654947549485494954950549515495254953549545495554956549575495854959549605496154962549635496454965549665496754968549695497054971549725497354974549755497654977549785497954980549815498254983549845498554986549875498854989549905499154992549935499454995549965499754998549995500055001550025500355004550055500655007550085500955010550115501255013550145501555016550175501855019550205502155022550235502455025550265502755028550295503055031550325503355034550355503655037550385503955040550415504255043550445504555046550475504855049550505505155052550535505455055550565505755058550595506055061550625506355064550655506655067550685506955070550715507255073550745507555076550775507855079550805508155082550835508455085550865508755088550895509055091550925509355094550955509655097550985509955100551015510255103551045510555106551075510855109551105511155112551135511455115551165511755118551195512055121551225512355124551255512655127551285512955130551315513255133551345513555136551375513855139551405514155142551435514455145551465514755148551495515055151551525515355154551555515655157551585515955160551615516255163551645516555166551675516855169551705517155172551735517455175551765517755178551795518055181551825518355184551855518655187551885518955190551915519255193551945519555196551975519855199552005520155202552035520455205552065520755208552095521055211552125521355214552155521655217552185521955220552215522255223552245522555226552275522855229552305523155232552335523455235552365523755238552395524055241552425524355244552455524655247552485524955250552515525255253552545525555256552575525855259552605526155262552635526455265552665526755268552695527055271552725527355274552755527655277552785527955280552815528255283552845528555286552875528855289552905529155292552935529455295552965529755298552995530055301553025530355304553055530655307553085530955310553115531255313553145531555316553175531855319553205532155322553235532455325553265532755328553295533055331553325533355334553355533655337553385533955340553415534255343553445534555346553475534855349553505535155352553535535455355553565535755358553595536055361553625536355364553655536655367553685536955370553715537255373553745537555376553775537855379553805538155382553835538455385553865538755388553895539055391553925539355394553955539655397553985539955400554015540255403554045540555406554075540855409554105541155412554135541455415554165541755418554195542055421554225542355424554255542655427554285542955430554315543255433554345543555436554375543855439554405544155442554435544455445554465544755448554495545055451554525545355454554555545655457554585545955460554615546255463554645546555466554675546855469554705547155472554735547455475554765547755478554795548055481554825548355484554855548655487554885548955490554915549255493554945549555496554975549855499555005550155502555035550455505555065550755508555095551055511555125551355514555155551655517555185551955520555215552255523555245552555526555275552855529555305553155532555335553455535555365553755538555395554055541555425554355544555455554655547555485554955550555515555255553555545555555556555575555855559555605556155562555635556455565555665556755568555695557055571555725557355574555755557655577555785557955580555815558255583555845558555586555875558855589555905559155592555935559455595555965559755598555995560055601556025560355604556055560655607556085560955610556115561255613556145561555616556175561855619556205562155622556235562455625556265562755628556295563055631556325563355634556355563655637556385563955640556415564255643556445564555646556475564855649556505565155652556535565455655556565565755658556595566055661556625566355664556655566655667556685566955670556715567255673556745567555676556775567855679556805568155682556835568455685556865568755688556895569055691556925569355694556955569655697556985569955700557015570255703557045570555706557075570855709557105571155712557135571455715557165571755718557195572055721557225572355724557255572655727557285572955730557315573255733557345573555736557375573855739557405574155742557435574455745557465574755748557495575055751557525575355754557555575655757557585575955760557615576255763557645576555766557675576855769557705577155772557735577455775557765577755778557795578055781557825578355784557855578655787557885578955790557915579255793557945579555796557975579855799558005580155802558035580455805558065580755808558095581055811558125581355814558155581655817558185581955820558215582255823558245582555826558275582855829558305583155832558335583455835558365583755838558395584055841558425584355844558455584655847558485584955850558515585255853558545585555856558575585855859558605586155862558635586455865558665586755868558695587055871558725587355874558755587655877558785587955880558815588255883558845588555886558875588855889558905589155892558935589455895558965589755898558995590055901559025590355904559055590655907559085590955910559115591255913559145591555916559175591855919559205592155922559235592455925559265592755928559295593055931559325593355934559355593655937559385593955940559415594255943559445594555946559475594855949559505595155952559535595455955559565595755958559595596055961559625596355964559655596655967559685596955970559715597255973559745597555976559775597855979559805598155982559835598455985559865598755988559895599055991559925599355994559955599655997559985599956000560015600256003560045600556006560075600856009560105601156012560135601456015560165601756018560195602056021560225602356024560255602656027560285602956030560315603256033560345603556036560375603856039560405604156042560435604456045560465604756048560495605056051560525605356054560555605656057560585605956060560615606256063560645606556066560675606856069560705607156072560735607456075560765607756078560795608056081560825608356084560855608656087560885608956090560915609256093560945609556096560975609856099561005610156102561035610456105561065610756108561095611056111561125611356114561155611656117561185611956120561215612256123561245612556126561275612856129561305613156132561335613456135561365613756138561395614056141561425614356144561455614656147561485614956150561515615256153561545615556156561575615856159561605616156162561635616456165561665616756168561695617056171561725617356174561755617656177561785617956180561815618256183561845618556186561875618856189561905619156192561935619456195561965619756198561995620056201562025620356204562055620656207562085620956210562115621256213562145621556216562175621856219562205622156222562235622456225562265622756228562295623056231562325623356234562355623656237562385623956240562415624256243562445624556246562475624856249562505625156252562535625456255562565625756258562595626056261562625626356264562655626656267562685626956270562715627256273562745627556276562775627856279562805628156282562835628456285562865628756288562895629056291562925629356294562955629656297562985629956300563015630256303563045630556306563075630856309563105631156312563135631456315563165631756318563195632056321563225632356324563255632656327563285632956330563315633256333563345633556336563375633856339563405634156342563435634456345563465634756348563495635056351563525635356354563555635656357563585635956360563615636256363563645636556366563675636856369563705637156372563735637456375563765637756378563795638056381563825638356384563855638656387563885638956390563915639256393563945639556396563975639856399564005640156402564035640456405564065640756408564095641056411564125641356414564155641656417564185641956420564215642256423564245642556426564275642856429564305643156432564335643456435564365643756438564395644056441564425644356444564455644656447564485644956450564515645256453564545645556456564575645856459564605646156462564635646456465564665646756468564695647056471564725647356474564755647656477564785647956480564815648256483564845648556486564875648856489564905649156492564935649456495564965649756498564995650056501565025650356504565055650656507565085650956510565115651256513565145651556516565175651856519565205652156522565235652456525565265652756528565295653056531565325653356534565355653656537565385653956540565415654256543565445654556546565475654856549565505655156552565535655456555565565655756558565595656056561565625656356564565655656656567565685656956570565715657256573565745657556576565775657856579565805658156582565835658456585565865658756588565895659056591565925659356594565955659656597565985659956600566015660256603566045660556606566075660856609566105661156612566135661456615566165661756618566195662056621566225662356624566255662656627566285662956630566315663256633566345663556636566375663856639566405664156642566435664456645566465664756648566495665056651566525665356654566555665656657566585665956660566615666256663566645666556666566675666856669566705667156672566735667456675566765667756678566795668056681566825668356684566855668656687566885668956690566915669256693566945669556696566975669856699567005670156702567035670456705567065670756708567095671056711567125671356714567155671656717567185671956720567215672256723567245672556726567275672856729567305673156732567335673456735567365673756738567395674056741567425674356744567455674656747567485674956750567515675256753567545675556756567575675856759567605676156762567635676456765567665676756768567695677056771567725677356774567755677656777567785677956780567815678256783567845678556786567875678856789567905679156792567935679456795567965679756798567995680056801568025680356804568055680656807568085680956810568115681256813568145681556816568175681856819568205682156822568235682456825568265682756828568295683056831568325683356834568355683656837568385683956840568415684256843568445684556846568475684856849568505685156852568535685456855568565685756858568595686056861568625686356864568655686656867568685686956870568715687256873568745687556876568775687856879568805688156882568835688456885568865688756888568895689056891568925689356894568955689656897568985689956900569015690256903569045690556906569075690856909569105691156912569135691456915569165691756918569195692056921569225692356924569255692656927569285692956930569315693256933569345693556936569375693856939569405694156942569435694456945569465694756948569495695056951569525695356954569555695656957569585695956960569615696256963569645696556966569675696856969569705697156972569735697456975569765697756978569795698056981569825698356984569855698656987569885698956990569915699256993569945699556996569975699856999570005700157002570035700457005570065700757008570095701057011570125701357014570155701657017570185701957020570215702257023570245702557026570275702857029570305703157032570335703457035570365703757038570395704057041570425704357044570455704657047570485704957050570515705257053570545705557056570575705857059570605706157062570635706457065570665706757068570695707057071570725707357074570755707657077570785707957080570815708257083570845708557086570875708857089570905709157092570935709457095570965709757098570995710057101571025710357104571055710657107571085710957110571115711257113571145711557116571175711857119571205712157122571235712457125571265712757128571295713057131571325713357134571355713657137571385713957140571415714257143571445714557146571475714857149571505715157152571535715457155571565715757158571595716057161571625716357164571655716657167571685716957170571715717257173571745717557176571775717857179571805718157182571835718457185571865718757188571895719057191571925719357194571955719657197571985719957200572015720257203572045720557206572075720857209572105721157212572135721457215572165721757218572195722057221572225722357224572255722657227572285722957230572315723257233572345723557236572375723857239572405724157242572435724457245572465724757248572495725057251572525725357254572555725657257572585725957260572615726257263572645726557266572675726857269572705727157272572735727457275572765727757278572795728057281572825728357284572855728657287572885728957290572915729257293572945729557296572975729857299573005730157302573035730457305573065730757308573095731057311573125731357314573155731657317573185731957320573215732257323573245732557326573275732857329573305733157332573335733457335573365733757338573395734057341573425734357344573455734657347573485734957350573515735257353573545735557356573575735857359573605736157362573635736457365573665736757368573695737057371573725737357374573755737657377573785737957380573815738257383573845738557386573875738857389573905739157392573935739457395573965739757398573995740057401574025740357404574055740657407574085740957410574115741257413574145741557416574175741857419574205742157422574235742457425574265742757428574295743057431574325743357434574355743657437574385743957440574415744257443574445744557446574475744857449574505745157452574535745457455574565745757458574595746057461574625746357464574655746657467574685746957470574715747257473574745747557476574775747857479574805748157482574835748457485574865748757488574895749057491574925749357494574955749657497574985749957500575015750257503575045750557506575075750857509575105751157512575135751457515575165751757518575195752057521575225752357524575255752657527575285752957530575315753257533575345753557536575375753857539575405754157542575435754457545575465754757548575495755057551575525755357554575555755657557575585755957560575615756257563575645756557566575675756857569575705757157572575735757457575575765757757578575795758057581575825758357584575855758657587575885758957590575915759257593575945759557596575975759857599576005760157602576035760457605576065760757608576095761057611576125761357614576155761657617576185761957620576215762257623576245762557626576275762857629576305763157632576335763457635576365763757638576395764057641576425764357644576455764657647576485764957650576515765257653576545765557656576575765857659576605766157662576635766457665576665766757668576695767057671576725767357674576755767657677576785767957680576815768257683576845768557686576875768857689576905769157692576935769457695576965769757698576995770057701577025770357704577055770657707577085770957710577115771257713577145771557716577175771857719577205772157722577235772457725577265772757728577295773057731577325773357734577355773657737577385773957740577415774257743577445774557746577475774857749577505775157752577535775457755577565775757758577595776057761577625776357764577655776657767577685776957770577715777257773577745777557776577775777857779577805778157782577835778457785577865778757788577895779057791577925779357794577955779657797577985779957800578015780257803578045780557806578075780857809578105781157812578135781457815578165781757818578195782057821578225782357824578255782657827578285782957830578315783257833578345783557836578375783857839578405784157842578435784457845578465784757848578495785057851578525785357854578555785657857578585785957860578615786257863578645786557866578675786857869578705787157872578735787457875578765787757878578795788057881578825788357884578855788657887578885788957890578915789257893578945789557896578975789857899579005790157902579035790457905579065790757908579095791057911579125791357914579155791657917579185791957920579215792257923579245792557926579275792857929579305793157932579335793457935579365793757938579395794057941579425794357944579455794657947579485794957950579515795257953579545795557956579575795857959579605796157962579635796457965579665796757968579695797057971579725797357974579755797657977579785797957980579815798257983579845798557986579875798857989579905799157992579935799457995579965799757998579995800058001580025800358004580055800658007580085800958010580115801258013580145801558016580175801858019580205802158022580235802458025580265802758028580295803058031580325803358034580355803658037580385803958040580415804258043580445804558046580475804858049580505805158052580535805458055580565805758058580595806058061580625806358064580655806658067580685806958070580715807258073580745807558076580775807858079580805808158082580835808458085580865808758088580895809058091580925809358094580955809658097580985809958100581015810258103581045810558106581075810858109581105811158112581135811458115581165811758118581195812058121581225812358124581255812658127581285812958130581315813258133581345813558136581375813858139581405814158142581435814458145581465814758148581495815058151581525815358154581555815658157581585815958160581615816258163581645816558166581675816858169581705817158172581735817458175581765817758178581795818058181581825818358184581855818658187581885818958190581915819258193581945819558196581975819858199582005820158202582035820458205582065820758208582095821058211582125821358214582155821658217582185821958220582215822258223582245822558226582275822858229582305823158232582335823458235582365823758238582395824058241582425824358244582455824658247582485824958250582515825258253582545825558256582575825858259582605826158262582635826458265582665826758268582695827058271582725827358274582755827658277582785827958280582815828258283582845828558286582875828858289582905829158292582935829458295582965829758298582995830058301583025830358304583055830658307583085830958310583115831258313583145831558316583175831858319583205832158322583235832458325583265832758328583295833058331583325833358334583355833658337583385833958340583415834258343583445834558346583475834858349583505835158352583535835458355583565835758358583595836058361583625836358364583655836658367583685836958370583715837258373583745837558376583775837858379583805838158382583835838458385583865838758388583895839058391583925839358394583955839658397583985839958400584015840258403584045840558406584075840858409584105841158412584135841458415584165841758418584195842058421584225842358424584255842658427584285842958430584315843258433584345843558436584375843858439584405844158442584435844458445584465844758448584495845058451584525845358454584555845658457584585845958460584615846258463584645846558466584675846858469584705847158472584735847458475584765847758478584795848058481584825848358484584855848658487584885848958490584915849258493584945849558496584975849858499585005850158502585035850458505585065850758508585095851058511585125851358514585155851658517585185851958520585215852258523585245852558526585275852858529585305853158532585335853458535585365853758538585395854058541585425854358544585455854658547585485854958550585515855258553585545855558556585575855858559585605856158562585635856458565585665856758568585695857058571585725857358574585755857658577585785857958580585815858258583585845858558586585875858858589585905859158592585935859458595585965859758598585995860058601586025860358604586055860658607586085860958610586115861258613586145861558616586175861858619586205862158622586235862458625586265862758628586295863058631586325863358634586355863658637586385863958640586415864258643586445864558646586475864858649586505865158652586535865458655586565865758658586595866058661586625866358664586655866658667586685866958670586715867258673586745867558676586775867858679586805868158682586835868458685586865868758688586895869058691586925869358694586955869658697586985869958700587015870258703587045870558706587075870858709587105871158712587135871458715587165871758718587195872058721587225872358724587255872658727587285872958730587315873258733587345873558736587375873858739587405874158742587435874458745587465874758748587495875058751587525875358754587555875658757587585875958760587615876258763587645876558766587675876858769587705877158772587735877458775587765877758778587795878058781587825878358784587855878658787587885878958790587915879258793587945879558796587975879858799588005880158802588035880458805588065880758808588095881058811588125881358814588155881658817588185881958820588215882258823588245882558826588275882858829588305883158832588335883458835588365883758838588395884058841588425884358844588455884658847588485884958850588515885258853588545885558856588575885858859588605886158862588635886458865588665886758868588695887058871588725887358874588755887658877588785887958880588815888258883588845888558886588875888858889588905889158892588935889458895588965889758898588995890058901589025890358904589055890658907589085890958910589115891258913589145891558916589175891858919589205892158922589235892458925589265892758928589295893058931589325893358934589355893658937589385893958940589415894258943589445894558946589475894858949589505895158952589535895458955589565895758958589595896058961589625896358964589655896658967589685896958970589715897258973589745897558976589775897858979589805898158982589835898458985589865898758988589895899058991589925899358994589955899658997589985899959000590015900259003590045900559006590075900859009590105901159012590135901459015590165901759018590195902059021590225902359024590255902659027590285902959030590315903259033590345903559036590375903859039590405904159042590435904459045590465904759048590495905059051590525905359054590555905659057590585905959060590615906259063590645906559066590675906859069590705907159072590735907459075590765907759078590795908059081590825908359084590855908659087590885908959090590915909259093590945909559096590975909859099591005910159102591035910459105591065910759108591095911059111591125911359114591155911659117591185911959120591215912259123591245912559126591275912859129591305913159132591335913459135591365913759138591395914059141591425914359144591455914659147591485914959150591515915259153591545915559156591575915859159591605916159162591635916459165591665916759168591695917059171591725917359174591755917659177591785917959180591815918259183591845918559186591875918859189591905919159192591935919459195591965919759198591995920059201592025920359204592055920659207592085920959210592115921259213592145921559216592175921859219592205922159222592235922459225592265922759228592295923059231592325923359234592355923659237592385923959240592415924259243592445924559246592475924859249592505925159252592535925459255592565925759258592595926059261592625926359264592655926659267592685926959270592715927259273592745927559276592775927859279592805928159282592835928459285592865928759288592895929059291592925929359294592955929659297592985929959300593015930259303593045930559306593075930859309593105931159312593135931459315593165931759318593195932059321593225932359324593255932659327593285932959330593315933259333593345933559336593375933859339593405934159342593435934459345593465934759348593495935059351593525935359354593555935659357593585935959360593615936259363593645936559366593675936859369593705937159372593735937459375593765937759378593795938059381593825938359384593855938659387593885938959390593915939259393593945939559396593975939859399594005940159402594035940459405594065940759408594095941059411594125941359414594155941659417594185941959420594215942259423594245942559426594275942859429594305943159432594335943459435594365943759438594395944059441594425944359444594455944659447594485944959450594515945259453594545945559456594575945859459594605946159462594635946459465594665946759468594695947059471594725947359474594755947659477594785947959480594815948259483594845948559486594875948859489594905949159492594935949459495594965949759498594995950059501595025950359504595055950659507595085950959510595115951259513595145951559516595175951859519595205952159522595235952459525595265952759528595295953059531595325953359534595355953659537595385953959540595415954259543595445954559546595475954859549595505955159552595535955459555595565955759558595595956059561595625956359564595655956659567595685956959570595715957259573595745957559576595775957859579595805958159582595835958459585595865958759588595895959059591595925959359594595955959659597595985959959600596015960259603596045960559606596075960859609596105961159612596135961459615596165961759618596195962059621596225962359624596255962659627596285962959630596315963259633596345963559636596375963859639596405964159642596435964459645596465964759648596495965059651596525965359654596555965659657596585965959660596615966259663596645966559666596675966859669596705967159672596735967459675596765967759678596795968059681596825968359684596855968659687596885968959690596915969259693596945969559696596975969859699597005970159702597035970459705597065970759708597095971059711597125971359714597155971659717597185971959720597215972259723597245972559726597275972859729597305973159732597335973459735597365973759738597395974059741597425974359744597455974659747597485974959750597515975259753597545975559756597575975859759597605976159762597635976459765597665976759768597695977059771597725977359774597755977659777597785977959780597815978259783597845978559786597875978859789597905979159792597935979459795597965979759798597995980059801598025980359804598055980659807598085980959810598115981259813598145981559816598175981859819598205982159822598235982459825598265982759828598295983059831598325983359834598355983659837598385983959840598415984259843598445984559846598475984859849598505985159852598535985459855598565985759858598595986059861598625986359864598655986659867598685986959870598715987259873598745987559876598775987859879598805988159882598835988459885598865988759888598895989059891598925989359894598955989659897598985989959900599015990259903599045990559906599075990859909599105991159912599135991459915599165991759918599195992059921599225992359924599255992659927599285992959930599315993259933599345993559936599375993859939599405994159942599435994459945599465994759948599495995059951599525995359954599555995659957599585995959960599615996259963599645996559966599675996859969599705997159972599735997459975599765997759978599795998059981599825998359984599855998659987599885998959990599915999259993599945999559996599975999859999600006000160002600036000460005600066000760008600096001060011600126001360014600156001660017600186001960020600216002260023600246002560026600276002860029600306003160032600336003460035600366003760038600396004060041600426004360044600456004660047600486004960050600516005260053600546005560056600576005860059600606006160062600636006460065600666006760068600696007060071600726007360074600756007660077600786007960080600816008260083600846008560086600876008860089600906009160092600936009460095600966009760098600996010060101601026010360104601056010660107601086010960110601116011260113601146011560116601176011860119601206012160122601236012460125601266012760128601296013060131601326013360134601356013660137601386013960140601416014260143601446014560146601476014860149601506015160152601536015460155601566015760158601596016060161601626016360164601656016660167601686016960170601716017260173601746017560176601776017860179601806018160182601836018460185601866018760188601896019060191601926019360194601956019660197601986019960200602016020260203602046020560206602076020860209602106021160212602136021460215602166021760218602196022060221602226022360224602256022660227602286022960230602316023260233602346023560236602376023860239602406024160242602436024460245602466024760248602496025060251602526025360254602556025660257602586025960260602616026260263602646026560266602676026860269602706027160272602736027460275602766027760278602796028060281602826028360284602856028660287602886028960290602916029260293602946029560296602976029860299603006030160302603036030460305603066030760308603096031060311603126031360314603156031660317603186031960320603216032260323603246032560326603276032860329603306033160332603336033460335603366033760338603396034060341603426034360344603456034660347603486034960350603516035260353603546035560356603576035860359603606036160362603636036460365603666036760368603696037060371603726037360374603756037660377603786037960380603816038260383603846038560386603876038860389603906039160392603936039460395603966039760398603996040060401604026040360404604056040660407604086040960410604116041260413604146041560416604176041860419604206042160422604236042460425604266042760428604296043060431604326043360434604356043660437604386043960440604416044260443604446044560446604476044860449604506045160452604536045460455604566045760458604596046060461604626046360464604656046660467604686046960470604716047260473604746047560476604776047860479604806048160482604836048460485604866048760488604896049060491604926049360494604956049660497604986049960500605016050260503605046050560506605076050860509605106051160512605136051460515605166051760518605196052060521605226052360524605256052660527605286052960530605316053260533605346053560536605376053860539605406054160542605436054460545605466054760548605496055060551605526055360554605556055660557605586055960560605616056260563605646056560566605676056860569605706057160572605736057460575605766057760578605796058060581605826058360584605856058660587605886058960590605916059260593605946059560596605976059860599606006060160602606036060460605606066060760608606096061060611606126061360614606156061660617606186061960620606216062260623606246062560626606276062860629606306063160632606336063460635606366063760638606396064060641606426064360644606456064660647606486064960650606516065260653606546065560656606576065860659606606066160662606636066460665606666066760668606696067060671606726067360674606756067660677606786067960680606816068260683606846068560686606876068860689606906069160692606936069460695606966069760698606996070060701607026070360704607056070660707607086070960710607116071260713607146071560716607176071860719607206072160722607236072460725607266072760728607296073060731607326073360734607356073660737607386073960740607416074260743607446074560746607476074860749607506075160752607536075460755607566075760758607596076060761607626076360764607656076660767607686076960770607716077260773607746077560776607776077860779607806078160782607836078460785607866078760788607896079060791607926079360794607956079660797607986079960800608016080260803608046080560806608076080860809608106081160812608136081460815608166081760818608196082060821608226082360824608256082660827608286082960830608316083260833608346083560836608376083860839608406084160842608436084460845608466084760848608496085060851608526085360854608556085660857608586085960860608616086260863608646086560866608676086860869608706087160872608736087460875608766087760878608796088060881608826088360884608856088660887608886088960890608916089260893608946089560896608976089860899609006090160902609036090460905609066090760908609096091060911609126091360914609156091660917609186091960920609216092260923609246092560926609276092860929609306093160932609336093460935609366093760938609396094060941609426094360944609456094660947609486094960950609516095260953609546095560956609576095860959609606096160962609636096460965609666096760968609696097060971609726097360974609756097660977609786097960980609816098260983609846098560986609876098860989609906099160992609936099460995609966099760998609996100061001610026100361004610056100661007610086100961010610116101261013610146101561016610176101861019610206102161022610236102461025610266102761028610296103061031610326103361034610356103661037610386103961040610416104261043610446104561046610476104861049610506105161052610536105461055610566105761058610596106061061610626106361064610656106661067610686106961070610716107261073610746107561076610776107861079610806108161082610836108461085610866108761088610896109061091610926109361094610956109661097610986109961100611016110261103611046110561106611076110861109611106111161112611136111461115611166111761118611196112061121611226112361124611256112661127611286112961130611316113261133611346113561136611376113861139611406114161142611436114461145611466114761148611496115061151611526115361154611556115661157611586115961160611616116261163611646116561166611676116861169611706117161172611736117461175611766117761178611796118061181611826118361184611856118661187611886118961190611916119261193611946119561196611976119861199612006120161202612036120461205612066120761208612096121061211612126121361214612156121661217612186121961220612216122261223612246122561226612276122861229612306123161232612336123461235612366123761238612396124061241612426124361244612456124661247612486124961250612516125261253612546125561256612576125861259612606126161262612636126461265612666126761268612696127061271612726127361274612756127661277612786127961280612816128261283612846128561286612876128861289612906129161292612936129461295612966129761298612996130061301613026130361304613056130661307613086130961310613116131261313613146131561316613176131861319613206132161322613236132461325613266132761328613296133061331613326133361334613356133661337613386133961340613416134261343613446134561346613476134861349613506135161352613536135461355613566135761358613596136061361613626136361364613656136661367613686136961370613716137261373613746137561376613776137861379613806138161382613836138461385613866138761388613896139061391613926139361394613956139661397613986139961400614016140261403614046140561406614076140861409614106141161412614136141461415614166141761418614196142061421614226142361424614256142661427614286142961430614316143261433614346143561436614376143861439614406144161442614436144461445614466144761448614496145061451614526145361454614556145661457614586145961460614616146261463614646146561466614676146861469614706147161472614736147461475614766147761478614796148061481614826148361484614856148661487614886148961490614916149261493614946149561496614976149861499615006150161502615036150461505615066150761508615096151061511615126151361514615156151661517615186151961520615216152261523615246152561526615276152861529615306153161532615336153461535615366153761538615396154061541615426154361544615456154661547615486154961550615516155261553615546155561556615576155861559615606156161562615636156461565615666156761568615696157061571615726157361574615756157661577615786157961580615816158261583615846158561586615876158861589615906159161592615936159461595615966159761598615996160061601616026160361604616056160661607616086160961610616116161261613616146161561616616176161861619616206162161622616236162461625616266162761628616296163061631616326163361634616356163661637616386163961640616416164261643616446164561646616476164861649616506165161652616536165461655616566165761658616596166061661616626166361664616656166661667616686166961670616716167261673616746167561676616776167861679616806168161682616836168461685616866168761688616896169061691616926169361694616956169661697616986169961700617016170261703617046170561706617076170861709617106171161712617136171461715617166171761718617196172061721617226172361724617256172661727617286172961730617316173261733617346173561736617376173861739617406174161742617436174461745617466174761748617496175061751617526175361754617556175661757617586175961760617616176261763617646176561766617676176861769617706177161772617736177461775617766177761778617796178061781617826178361784617856178661787617886178961790617916179261793617946179561796617976179861799618006180161802618036180461805618066180761808618096181061811618126181361814618156181661817618186181961820618216182261823618246182561826618276182861829618306183161832618336183461835618366183761838618396184061841618426184361844618456184661847618486184961850618516185261853618546185561856618576185861859618606186161862618636186461865618666186761868618696187061871618726187361874618756187661877618786187961880618816188261883618846188561886618876188861889618906189161892618936189461895618966189761898618996190061901619026190361904619056190661907619086190961910619116191261913619146191561916619176191861919619206192161922619236192461925619266192761928619296193061931619326193361934619356193661937619386193961940619416194261943619446194561946619476194861949619506195161952619536195461955619566195761958619596196061961619626196361964619656196661967619686196961970619716197261973619746197561976619776197861979619806198161982619836198461985619866198761988619896199061991619926199361994619956199661997619986199962000620016200262003620046200562006620076200862009620106201162012620136201462015620166201762018620196202062021620226202362024620256202662027620286202962030620316203262033620346203562036620376203862039620406204162042620436204462045620466204762048620496205062051620526205362054620556205662057620586205962060620616206262063620646206562066620676206862069620706207162072620736207462075620766207762078620796208062081620826208362084620856208662087620886208962090620916209262093620946209562096620976209862099621006210162102621036210462105621066210762108621096211062111621126211362114621156211662117621186211962120621216212262123621246212562126621276212862129621306213162132621336213462135621366213762138621396214062141621426214362144621456214662147621486214962150621516215262153621546215562156621576215862159621606216162162621636216462165621666216762168621696217062171621726217362174621756217662177621786217962180621816218262183621846218562186621876218862189621906219162192621936219462195621966219762198621996220062201622026220362204622056220662207622086220962210622116221262213622146221562216622176221862219622206222162222622236222462225622266222762228622296223062231622326223362234622356223662237622386223962240622416224262243622446224562246622476224862249622506225162252622536225462255622566225762258622596226062261622626226362264622656226662267622686226962270622716227262273622746227562276622776227862279622806228162282622836228462285622866228762288622896229062291622926229362294622956229662297622986229962300623016230262303623046230562306623076230862309623106231162312623136231462315623166231762318623196232062321623226232362324623256232662327623286232962330623316233262333623346233562336623376233862339623406234162342623436234462345623466234762348623496235062351623526235362354623556235662357623586235962360623616236262363623646236562366623676236862369623706237162372623736237462375623766237762378623796238062381623826238362384623856238662387623886238962390623916239262393623946239562396623976239862399624006240162402624036240462405624066240762408624096241062411624126241362414624156241662417624186241962420624216242262423624246242562426624276242862429624306243162432624336243462435624366243762438624396244062441624426244362444624456244662447624486244962450624516245262453624546245562456624576245862459624606246162462624636246462465624666246762468624696247062471624726247362474624756247662477624786247962480624816248262483624846248562486624876248862489624906249162492624936249462495624966249762498624996250062501625026250362504625056250662507625086250962510625116251262513625146251562516625176251862519625206252162522625236252462525625266252762528625296253062531625326253362534625356253662537625386253962540625416254262543625446254562546625476254862549625506255162552625536255462555625566255762558625596256062561625626256362564625656256662567625686256962570625716257262573625746257562576625776257862579625806258162582625836258462585625866258762588625896259062591625926259362594625956259662597625986259962600626016260262603626046260562606626076260862609626106261162612626136261462615626166261762618626196262062621626226262362624626256262662627626286262962630626316263262633626346263562636626376263862639626406264162642626436264462645626466264762648626496265062651626526265362654626556265662657626586265962660626616266262663626646266562666626676266862669626706267162672626736267462675626766267762678626796268062681626826268362684626856268662687626886268962690626916269262693626946269562696626976269862699627006270162702627036270462705627066270762708627096271062711627126271362714627156271662717627186271962720627216272262723627246272562726627276272862729627306273162732627336273462735627366273762738627396274062741627426274362744627456274662747627486274962750627516275262753627546275562756627576275862759627606276162762627636276462765627666276762768627696277062771627726277362774627756277662777627786277962780627816278262783627846278562786627876278862789627906279162792627936279462795627966279762798627996280062801628026280362804628056280662807628086280962810628116281262813628146281562816628176281862819628206282162822628236282462825628266282762828628296283062831628326283362834628356283662837628386283962840628416284262843628446284562846628476284862849628506285162852628536285462855628566285762858628596286062861628626286362864628656286662867628686286962870628716287262873628746287562876628776287862879628806288162882628836288462885628866288762888628896289062891628926289362894628956289662897628986289962900629016290262903629046290562906629076290862909629106291162912629136291462915629166291762918629196292062921629226292362924629256292662927629286292962930629316293262933629346293562936629376293862939629406294162942629436294462945629466294762948629496295062951629526295362954629556295662957629586295962960629616296262963629646296562966629676296862969629706297162972629736297462975629766297762978629796298062981629826298362984629856298662987629886298962990629916299262993629946299562996629976299862999630006300163002630036300463005630066300763008630096301063011630126301363014630156301663017630186301963020630216302263023630246302563026630276302863029630306303163032630336303463035630366303763038630396304063041630426304363044630456304663047630486304963050630516305263053630546305563056630576305863059630606306163062630636306463065630666306763068630696307063071630726307363074630756307663077630786307963080630816308263083630846308563086630876308863089630906309163092630936309463095630966309763098630996310063101631026310363104631056310663107631086310963110631116311263113631146311563116631176311863119631206312163122631236312463125631266312763128631296313063131631326313363134631356313663137631386313963140631416314263143631446314563146631476314863149631506315163152631536315463155631566315763158631596316063161631626316363164631656316663167631686316963170631716317263173631746317563176631776317863179631806318163182631836318463185631866318763188631896319063191631926319363194631956319663197631986319963200632016320263203632046320563206632076320863209632106321163212632136321463215632166321763218632196322063221632226322363224632256322663227632286322963230632316323263233632346323563236632376323863239632406324163242632436324463245632466324763248632496325063251632526325363254632556325663257632586325963260632616326263263632646326563266632676326863269632706327163272632736327463275632766327763278632796328063281632826328363284632856328663287632886328963290632916329263293632946329563296632976329863299633006330163302633036330463305633066330763308633096331063311633126331363314633156331663317633186331963320633216332263323633246332563326633276332863329633306333163332633336333463335633366333763338633396334063341633426334363344633456334663347633486334963350633516335263353633546335563356633576335863359633606336163362633636336463365633666336763368633696337063371633726337363374633756337663377633786337963380633816338263383633846338563386633876338863389633906339163392633936339463395633966339763398633996340063401634026340363404634056340663407634086340963410634116341263413634146341563416634176341863419634206342163422634236342463425634266342763428634296343063431634326343363434634356343663437634386343963440634416344263443634446344563446634476344863449634506345163452634536345463455634566345763458634596346063461634626346363464634656346663467634686346963470634716347263473634746347563476634776347863479634806348163482634836348463485634866348763488634896349063491634926349363494634956349663497634986349963500635016350263503635046350563506635076350863509635106351163512635136351463515635166351763518635196352063521635226352363524635256352663527635286352963530635316353263533635346353563536635376353863539635406354163542635436354463545635466354763548635496355063551635526355363554635556355663557635586355963560635616356263563635646356563566635676356863569635706357163572635736357463575635766357763578635796358063581635826358363584635856358663587635886358963590635916359263593635946359563596635976359863599636006360163602636036360463605636066360763608636096361063611636126361363614636156361663617636186361963620636216362263623636246362563626636276362863629636306363163632636336363463635636366363763638636396364063641636426364363644636456364663647636486364963650636516365263653636546365563656636576365863659636606366163662636636366463665636666366763668636696367063671636726367363674636756367663677636786367963680636816368263683636846368563686636876368863689636906369163692636936369463695636966369763698636996370063701637026370363704637056370663707637086370963710637116371263713637146371563716637176371863719637206372163722637236372463725637266372763728637296373063731637326373363734637356373663737637386373963740637416374263743637446374563746637476374863749637506375163752637536375463755637566375763758637596376063761637626376363764637656376663767637686376963770637716377263773637746377563776637776377863779637806378163782637836378463785637866378763788637896379063791637926379363794637956379663797637986379963800638016380263803638046380563806638076380863809638106381163812638136381463815638166381763818638196382063821638226382363824638256382663827638286382963830638316383263833638346383563836638376383863839638406384163842638436384463845638466384763848638496385063851638526385363854638556385663857638586385963860638616386263863638646386563866638676386863869638706387163872638736387463875638766387763878638796388063881638826388363884638856388663887638886388963890638916389263893638946389563896638976389863899639006390163902639036390463905639066390763908639096391063911639126391363914639156391663917639186391963920639216392263923639246392563926639276392863929639306393163932639336393463935639366393763938639396394063941639426394363944639456394663947639486394963950639516395263953639546395563956639576395863959639606396163962639636396463965639666396763968639696397063971639726397363974639756397663977639786397963980639816398263983639846398563986639876398863989639906399163992639936399463995639966399763998639996400064001640026400364004640056400664007640086400964010640116401264013640146401564016640176401864019640206402164022640236402464025640266402764028640296403064031640326403364034640356403664037640386403964040640416404264043640446404564046640476404864049640506405164052640536405464055640566405764058640596406064061640626406364064640656406664067640686406964070640716407264073640746407564076640776407864079640806408164082640836408464085640866408764088640896409064091640926409364094640956409664097640986409964100641016410264103641046410564106641076410864109641106411164112641136411464115641166411764118641196412064121641226412364124641256412664127641286412964130641316413264133641346413564136641376413864139641406414164142641436414464145641466414764148641496415064151641526415364154641556415664157641586415964160641616416264163641646416564166641676416864169641706417164172641736417464175641766417764178641796418064181641826418364184641856418664187641886418964190641916419264193641946419564196641976419864199642006420164202642036420464205642066420764208642096421064211642126421364214642156421664217642186421964220642216422264223642246422564226642276422864229642306423164232642336423464235642366423764238642396424064241642426424364244642456424664247642486424964250642516425264253642546425564256642576425864259642606426164262642636426464265642666426764268642696427064271642726427364274642756427664277642786427964280642816428264283642846428564286642876428864289642906429164292642936429464295642966429764298642996430064301643026430364304643056430664307643086430964310643116431264313643146431564316643176431864319643206432164322643236432464325643266432764328643296433064331643326433364334643356433664337643386433964340643416434264343643446434564346643476434864349643506435164352643536435464355643566435764358643596436064361643626436364364643656436664367643686436964370643716437264373643746437564376643776437864379643806438164382643836438464385643866438764388643896439064391643926439364394643956439664397643986439964400644016440264403644046440564406644076440864409644106441164412644136441464415644166441764418644196442064421644226442364424644256442664427644286442964430644316443264433644346443564436644376443864439644406444164442644436444464445644466444764448644496445064451644526445364454644556445664457644586445964460644616446264463644646446564466644676446864469644706447164472644736447464475644766447764478644796448064481644826448364484644856448664487644886448964490644916449264493644946449564496644976449864499645006450164502645036450464505645066450764508645096451064511645126451364514645156451664517645186451964520645216452264523645246452564526645276452864529645306453164532645336453464535645366453764538645396454064541645426454364544645456454664547645486454964550645516455264553645546455564556645576455864559645606456164562645636456464565645666456764568645696457064571645726457364574645756457664577645786457964580645816458264583645846458564586645876458864589645906459164592645936459464595645966459764598645996460064601646026460364604646056460664607646086460964610646116461264613646146461564616646176461864619646206462164622646236462464625646266462764628646296463064631646326463364634646356463664637646386463964640646416464264643646446464564646646476464864649646506465164652646536465464655646566465764658646596466064661646626466364664646656466664667646686466964670646716467264673646746467564676646776467864679646806468164682646836468464685646866468764688646896469064691646926469364694646956469664697646986469964700647016470264703647046470564706647076470864709647106471164712647136471464715647166471764718647196472064721647226472364724647256472664727647286472964730647316473264733647346473564736647376473864739647406474164742647436474464745647466474764748647496475064751647526475364754647556475664757647586475964760647616476264763647646476564766647676476864769647706477164772647736477464775647766477764778647796478064781647826478364784647856478664787647886478964790647916479264793647946479564796647976479864799648006480164802648036480464805648066480764808648096481064811648126481364814648156481664817648186481964820648216482264823648246482564826648276482864829648306483164832648336483464835648366483764838648396484064841648426484364844648456484664847648486484964850648516485264853648546485564856648576485864859648606486164862648636486464865648666486764868648696487064871648726487364874648756487664877648786487964880648816488264883648846488564886648876488864889648906489164892648936489464895648966489764898648996490064901649026490364904649056490664907649086490964910649116491264913649146491564916649176491864919649206492164922649236492464925649266492764928649296493064931649326493364934649356493664937649386493964940649416494264943649446494564946649476494864949649506495164952649536495464955649566495764958649596496064961649626496364964649656496664967649686496964970649716497264973649746497564976649776497864979649806498164982649836498464985649866498764988649896499064991649926499364994649956499664997649986499965000650016500265003650046500565006650076500865009650106501165012650136501465015650166501765018650196502065021650226502365024650256502665027650286502965030650316503265033650346503565036650376503865039650406504165042650436504465045650466504765048650496505065051650526505365054650556505665057650586505965060650616506265063650646506565066650676506865069650706507165072650736507465075650766507765078650796508065081650826508365084650856508665087650886508965090650916509265093650946509565096650976509865099651006510165102651036510465105651066510765108651096511065111651126511365114651156511665117651186511965120651216512265123651246512565126651276512865129651306513165132651336513465135651366513765138651396514065141651426514365144651456514665147651486514965150651516515265153651546515565156651576515865159651606516165162651636516465165651666516765168651696517065171651726517365174651756517665177651786517965180651816518265183651846518565186651876518865189651906519165192651936519465195651966519765198651996520065201652026520365204652056520665207652086520965210652116521265213652146521565216652176521865219652206522165222652236522465225652266522765228652296523065231652326523365234652356523665237652386523965240652416524265243652446524565246652476524865249652506525165252652536525465255652566525765258652596526065261652626526365264652656526665267652686526965270652716527265273652746527565276652776527865279652806528165282652836528465285652866528765288652896529065291652926529365294652956529665297652986529965300653016530265303653046530565306653076530865309653106531165312653136531465315653166531765318653196532065321653226532365324653256532665327653286532965330653316533265333653346533565336653376533865339653406534165342653436534465345653466534765348653496535065351653526535365354653556535665357653586535965360653616536265363653646536565366653676536865369653706537165372653736537465375653766537765378653796538065381653826538365384653856538665387653886538965390653916539265393653946539565396653976539865399654006540165402654036540465405654066540765408654096541065411654126541365414654156541665417654186541965420654216542265423654246542565426654276542865429654306543165432654336543465435654366543765438654396544065441654426544365444654456544665447654486544965450654516545265453654546545565456654576545865459654606546165462654636546465465654666546765468654696547065471654726547365474654756547665477654786547965480654816548265483654846548565486654876548865489654906549165492654936549465495654966549765498654996550065501655026550365504655056550665507655086550965510655116551265513655146551565516655176551865519655206552165522655236552465525655266552765528655296553065531655326553365534655356553665537655386553965540655416554265543655446554565546655476554865549655506555165552655536555465555655566555765558655596556065561655626556365564655656556665567655686556965570655716557265573655746557565576655776557865579655806558165582655836558465585655866558765588655896559065591655926559365594655956559665597655986559965600656016560265603656046560565606656076560865609656106561165612656136561465615656166561765618656196562065621656226562365624656256562665627656286562965630656316563265633656346563565636656376563865639656406564165642656436564465645656466564765648656496565065651656526565365654656556565665657656586565965660656616566265663656646566565666656676566865669656706567165672656736567465675656766567765678656796568065681656826568365684656856568665687656886568965690656916569265693656946569565696656976569865699657006570165702657036570465705657066570765708657096571065711657126571365714657156571665717657186571965720657216572265723657246572565726657276572865729657306573165732657336573465735657366573765738657396574065741657426574365744657456574665747657486574965750657516575265753657546575565756657576575865759657606576165762657636576465765657666576765768657696577065771657726577365774657756577665777657786577965780657816578265783657846578565786657876578865789657906579165792657936579465795657966579765798657996580065801658026580365804658056580665807658086580965810658116581265813658146581565816658176581865819658206582165822658236582465825658266582765828658296583065831658326583365834658356583665837658386583965840658416584265843658446584565846658476584865849658506585165852658536585465855658566585765858658596586065861658626586365864658656586665867658686586965870658716587265873658746587565876658776587865879658806588165882658836588465885658866588765888658896589065891658926589365894658956589665897658986589965900659016590265903659046590565906659076590865909659106591165912659136591465915659166591765918659196592065921659226592365924659256592665927659286592965930659316593265933659346593565936659376593865939659406594165942659436594465945659466594765948659496595065951659526595365954659556595665957659586595965960659616596265963659646596565966659676596865969659706597165972659736597465975659766597765978659796598065981659826598365984659856598665987659886598965990659916599265993659946599565996659976599865999660006600166002660036600466005660066600766008660096601066011660126601366014660156601666017660186601966020660216602266023660246602566026660276602866029660306603166032660336603466035660366603766038660396604066041660426604366044660456604666047660486604966050660516605266053660546605566056660576605866059660606606166062660636606466065660666606766068660696607066071660726607366074660756607666077660786607966080660816608266083660846608566086660876608866089660906609166092660936609466095660966609766098660996610066101661026610366104661056610666107661086610966110661116611266113661146611566116661176611866119661206612166122661236612466125661266612766128661296613066131661326613366134661356613666137661386613966140661416614266143661446614566146661476614866149661506615166152661536615466155661566615766158661596616066161661626616366164661656616666167661686616966170661716617266173661746617566176661776617866179661806618166182661836618466185661866618766188661896619066191661926619366194661956619666197661986619966200662016620266203662046620566206662076620866209662106621166212662136621466215662166621766218662196622066221662226622366224662256622666227662286622966230662316623266233662346623566236662376623866239662406624166242662436624466245662466624766248662496625066251662526625366254662556625666257662586625966260662616626266263662646626566266662676626866269662706627166272662736627466275662766627766278662796628066281662826628366284662856628666287662886628966290662916629266293662946629566296662976629866299663006630166302663036630466305663066630766308663096631066311663126631366314663156631666317663186631966320663216632266323663246632566326663276632866329663306633166332663336633466335663366633766338663396634066341663426634366344663456634666347663486634966350663516635266353663546635566356663576635866359663606636166362663636636466365663666636766368663696637066371663726637366374663756637666377663786637966380663816638266383663846638566386663876638866389663906639166392663936639466395663966639766398663996640066401664026640366404664056640666407664086640966410664116641266413664146641566416664176641866419664206642166422664236642466425664266642766428664296643066431664326643366434664356643666437664386643966440664416644266443664446644566446664476644866449664506645166452664536645466455664566645766458664596646066461664626646366464664656646666467664686646966470664716647266473664746647566476664776647866479664806648166482664836648466485664866648766488664896649066491664926649366494664956649666497664986649966500665016650266503665046650566506665076650866509665106651166512665136651466515665166651766518665196652066521665226652366524665256652666527665286652966530665316653266533665346653566536665376653866539665406654166542665436654466545665466654766548665496655066551665526655366554665556655666557665586655966560665616656266563665646656566566665676656866569665706657166572665736657466575665766657766578665796658066581665826658366584665856658666587665886658966590665916659266593665946659566596665976659866599666006660166602666036660466605666066660766608666096661066611666126661366614666156661666617666186661966620666216662266623666246662566626666276662866629666306663166632666336663466635666366663766638666396664066641666426664366644666456664666647666486664966650666516665266653666546665566656666576665866659666606666166662666636666466665666666666766668666696667066671666726667366674666756667666677666786667966680666816668266683666846668566686666876668866689666906669166692666936669466695666966669766698666996670066701667026670366704667056670666707667086670966710667116671266713667146671566716667176671866719667206672166722667236672466725667266672766728667296673066731667326673366734667356673666737667386673966740667416674266743667446674566746667476674866749667506675166752667536675466755667566675766758667596676066761667626676366764667656676666767667686676966770667716677266773667746677566776667776677866779667806678166782667836678466785667866678766788667896679066791667926679366794667956679666797667986679966800668016680266803668046680566806668076680866809668106681166812668136681466815668166681766818668196682066821668226682366824668256682666827668286682966830668316683266833668346683566836668376683866839668406684166842668436684466845668466684766848668496685066851668526685366854668556685666857668586685966860668616686266863668646686566866668676686866869668706687166872668736687466875668766687766878668796688066881668826688366884668856688666887668886688966890668916689266893668946689566896668976689866899669006690166902669036690466905669066690766908669096691066911669126691366914669156691666917669186691966920669216692266923669246692566926669276692866929669306693166932669336693466935669366693766938669396694066941669426694366944669456694666947669486694966950669516695266953669546695566956669576695866959669606696166962669636696466965669666696766968669696697066971669726697366974669756697666977669786697966980669816698266983669846698566986669876698866989669906699166992669936699466995669966699766998669996700067001670026700367004670056700667007670086700967010670116701267013670146701567016670176701867019670206702167022670236702467025670266702767028670296703067031670326703367034670356703667037670386703967040670416704267043670446704567046670476704867049670506705167052670536705467055670566705767058670596706067061670626706367064670656706667067670686706967070670716707267073670746707567076670776707867079670806708167082670836708467085670866708767088670896709067091670926709367094670956709667097670986709967100671016710267103671046710567106671076710867109671106711167112671136711467115671166711767118671196712067121671226712367124671256712667127671286712967130671316713267133671346713567136671376713867139671406714167142671436714467145671466714767148671496715067151671526715367154671556715667157671586715967160671616716267163671646716567166671676716867169671706717167172671736717467175671766717767178671796718067181671826718367184671856718667187671886718967190671916719267193671946719567196671976719867199672006720167202672036720467205672066720767208672096721067211672126721367214672156721667217672186721967220672216722267223672246722567226672276722867229672306723167232672336723467235672366723767238672396724067241672426724367244672456724667247672486724967250672516725267253672546725567256672576725867259672606726167262672636726467265672666726767268672696727067271672726727367274672756727667277672786727967280672816728267283672846728567286672876728867289672906729167292672936729467295672966729767298672996730067301673026730367304673056730667307673086730967310673116731267313673146731567316673176731867319673206732167322673236732467325673266732767328673296733067331673326733367334673356733667337673386733967340673416734267343673446734567346673476734867349673506735167352673536735467355673566735767358673596736067361673626736367364673656736667367673686736967370673716737267373673746737567376673776737867379673806738167382673836738467385673866738767388673896739067391673926739367394673956739667397673986739967400674016740267403674046740567406674076740867409674106741167412674136741467415674166741767418674196742067421674226742367424674256742667427674286742967430674316743267433674346743567436674376743867439674406744167442674436744467445674466744767448674496745067451674526745367454674556745667457674586745967460674616746267463674646746567466674676746867469674706747167472674736747467475674766747767478674796748067481674826748367484674856748667487674886748967490674916749267493674946749567496674976749867499675006750167502675036750467505675066750767508675096751067511675126751367514675156751667517675186751967520675216752267523675246752567526675276752867529675306753167532675336753467535675366753767538675396754067541675426754367544675456754667547675486754967550675516755267553675546755567556675576755867559675606756167562675636756467565675666756767568675696757067571675726757367574675756757667577675786757967580675816758267583675846758567586675876758867589675906759167592675936759467595675966759767598675996760067601676026760367604676056760667607676086760967610676116761267613676146761567616676176761867619676206762167622676236762467625676266762767628676296763067631676326763367634676356763667637676386763967640676416764267643676446764567646676476764867649676506765167652676536765467655676566765767658676596766067661676626766367664676656766667667676686766967670676716767267673676746767567676676776767867679676806768167682676836768467685676866768767688676896769067691676926769367694676956769667697676986769967700677016770267703677046770567706677076770867709677106771167712677136771467715677166771767718677196772067721677226772367724677256772667727677286772967730677316773267733677346773567736677376773867739677406774167742677436774467745677466774767748677496775067751677526775367754677556775667757677586775967760677616776267763677646776567766677676776867769677706777167772677736777467775677766777767778677796778067781677826778367784677856778667787677886778967790677916779267793677946779567796677976779867799678006780167802678036780467805678066780767808678096781067811678126781367814678156781667817678186781967820678216782267823678246782567826678276782867829678306783167832678336783467835678366783767838678396784067841678426784367844678456784667847678486784967850678516785267853678546785567856678576785867859678606786167862678636786467865678666786767868678696787067871678726787367874678756787667877678786787967880678816788267883678846788567886678876788867889678906789167892678936789467895678966789767898678996790067901679026790367904679056790667907679086790967910679116791267913679146791567916679176791867919679206792167922679236792467925679266792767928679296793067931679326793367934679356793667937679386793967940679416794267943679446794567946679476794867949679506795167952679536795467955679566795767958679596796067961679626796367964679656796667967679686796967970679716797267973679746797567976679776797867979679806798167982679836798467985679866798767988679896799067991679926799367994679956799667997679986799968000680016800268003680046800568006680076800868009680106801168012680136801468015680166801768018680196802068021680226802368024680256802668027680286802968030680316803268033680346803568036680376803868039680406804168042680436804468045680466804768048680496805068051680526805368054680556805668057680586805968060680616806268063680646806568066680676806868069680706807168072680736807468075680766807768078680796808068081680826808368084680856808668087680886808968090680916809268093680946809568096680976809868099681006810168102681036810468105681066810768108681096811068111681126811368114681156811668117681186811968120681216812268123681246812568126681276812868129681306813168132681336813468135681366813768138681396814068141681426814368144681456814668147681486814968150681516815268153681546815568156681576815868159681606816168162681636816468165681666816768168681696817068171681726817368174681756817668177681786817968180681816818268183681846818568186681876818868189681906819168192681936819468195681966819768198681996820068201682026820368204682056820668207682086820968210682116821268213682146821568216682176821868219682206822168222682236822468225682266822768228682296823068231682326823368234682356823668237682386823968240682416824268243682446824568246682476824868249682506825168252682536825468255682566825768258682596826068261682626826368264682656826668267682686826968270682716827268273682746827568276682776827868279682806828168282682836828468285682866828768288682896829068291682926829368294682956829668297682986829968300683016830268303683046830568306683076830868309683106831168312683136831468315683166831768318683196832068321683226832368324683256832668327683286832968330683316833268333683346833568336683376833868339683406834168342683436834468345683466834768348683496835068351683526835368354683556835668357683586835968360683616836268363683646836568366683676836868369683706837168372683736837468375683766837768378683796838068381683826838368384683856838668387683886838968390683916839268393683946839568396683976839868399684006840168402684036840468405684066840768408684096841068411684126841368414684156841668417684186841968420684216842268423684246842568426684276842868429684306843168432684336843468435684366843768438684396844068441684426844368444684456844668447684486844968450684516845268453684546845568456684576845868459684606846168462684636846468465684666846768468684696847068471684726847368474684756847668477684786847968480684816848268483684846848568486684876848868489684906849168492684936849468495684966849768498684996850068501685026850368504685056850668507685086850968510685116851268513685146851568516685176851868519685206852168522685236852468525685266852768528685296853068531685326853368534685356853668537685386853968540685416854268543685446854568546685476854868549685506855168552685536855468555685566855768558685596856068561685626856368564685656856668567685686856968570685716857268573685746857568576685776857868579685806858168582685836858468585685866858768588685896859068591685926859368594685956859668597685986859968600686016860268603686046860568606686076860868609686106861168612686136861468615686166861768618686196862068621686226862368624686256862668627686286862968630686316863268633686346863568636686376863868639686406864168642686436864468645686466864768648686496865068651686526865368654686556865668657686586865968660686616866268663686646866568666686676866868669686706867168672686736867468675686766867768678686796868068681686826868368684686856868668687686886868968690686916869268693686946869568696686976869868699687006870168702687036870468705687066870768708687096871068711687126871368714687156871668717687186871968720687216872268723687246872568726687276872868729687306873168732687336873468735687366873768738687396874068741687426874368744687456874668747687486874968750687516875268753687546875568756687576875868759687606876168762687636876468765687666876768768687696877068771687726877368774687756877668777687786877968780687816878268783687846878568786687876878868789687906879168792687936879468795687966879768798687996880068801688026880368804688056880668807688086880968810688116881268813688146881568816688176881868819688206882168822688236882468825688266882768828688296883068831688326883368834688356883668837688386883968840688416884268843688446884568846688476884868849688506885168852688536885468855688566885768858688596886068861688626886368864688656886668867688686886968870688716887268873688746887568876688776887868879688806888168882688836888468885688866888768888688896889068891688926889368894688956889668897688986889968900689016890268903689046890568906689076890868909689106891168912689136891468915689166891768918689196892068921689226892368924689256892668927689286892968930689316893268933689346893568936689376893868939689406894168942689436894468945689466894768948689496895068951689526895368954689556895668957689586895968960689616896268963689646896568966689676896868969689706897168972689736897468975689766897768978689796898068981689826898368984689856898668987689886898968990689916899268993689946899568996689976899868999690006900169002690036900469005690066900769008690096901069011690126901369014690156901669017690186901969020690216902269023690246902569026690276902869029690306903169032690336903469035690366903769038690396904069041690426904369044690456904669047690486904969050690516905269053690546905569056690576905869059690606906169062690636906469065690666906769068690696907069071690726907369074690756907669077690786907969080690816908269083690846908569086690876908869089690906909169092690936909469095690966909769098690996910069101691026910369104691056910669107691086910969110691116911269113691146911569116691176911869119691206912169122691236912469125691266912769128691296913069131691326913369134691356913669137691386913969140691416914269143691446914569146691476914869149691506915169152691536915469155691566915769158691596916069161691626916369164691656916669167691686916969170691716917269173691746917569176691776917869179691806918169182691836918469185691866918769188691896919069191691926919369194691956919669197691986919969200692016920269203692046920569206692076920869209692106921169212692136921469215692166921769218692196922069221692226922369224692256922669227692286922969230692316923269233692346923569236692376923869239692406924169242692436924469245692466924769248692496925069251692526925369254692556925669257692586925969260692616926269263692646926569266692676926869269692706927169272692736927469275692766927769278692796928069281692826928369284692856928669287692886928969290692916929269293692946929569296692976929869299693006930169302693036930469305693066930769308693096931069311693126931369314693156931669317693186931969320693216932269323693246932569326693276932869329693306933169332693336933469335693366933769338693396934069341693426934369344693456934669347693486934969350693516935269353693546935569356693576935869359693606936169362693636936469365693666936769368693696937069371693726937369374693756937669377693786937969380693816938269383693846938569386693876938869389693906939169392693936939469395693966939769398693996940069401694026940369404694056940669407694086940969410694116941269413694146941569416694176941869419694206942169422694236942469425694266942769428694296943069431694326943369434694356943669437694386943969440694416944269443694446944569446694476944869449694506945169452694536945469455694566945769458694596946069461694626946369464694656946669467694686946969470694716947269473694746947569476694776947869479694806948169482694836948469485694866948769488694896949069491694926949369494694956949669497694986949969500695016950269503695046950569506695076950869509695106951169512695136951469515695166951769518695196952069521695226952369524695256952669527695286952969530695316953269533695346953569536695376953869539695406954169542695436954469545695466954769548695496955069551695526955369554695556955669557695586955969560695616956269563695646956569566695676956869569695706957169572695736957469575695766957769578695796958069581695826958369584695856958669587695886958969590695916959269593695946959569596695976959869599696006960169602696036960469605696066960769608696096961069611696126961369614696156961669617696186961969620696216962269623696246962569626696276962869629696306963169632696336963469635696366963769638696396964069641696426964369644696456964669647696486964969650696516965269653696546965569656696576965869659696606966169662696636966469665696666966769668696696967069671696726967369674696756967669677696786967969680696816968269683696846968569686696876968869689696906969169692696936969469695696966969769698696996970069701697026970369704697056970669707697086970969710697116971269713697146971569716697176971869719697206972169722697236972469725697266972769728697296973069731697326973369734697356973669737697386973969740697416974269743697446974569746697476974869749697506975169752697536975469755697566975769758697596976069761697626976369764697656976669767697686976969770697716977269773697746977569776697776977869779697806978169782697836978469785697866978769788697896979069791697926979369794697956979669797697986979969800698016980269803698046980569806698076980869809698106981169812698136981469815698166981769818698196982069821698226982369824698256982669827698286982969830698316983269833698346983569836698376983869839698406984169842698436984469845698466984769848698496985069851698526985369854698556985669857698586985969860698616986269863698646986569866698676986869869698706987169872698736987469875698766987769878698796988069881698826988369884698856988669887698886988969890698916989269893698946989569896698976989869899699006990169902699036990469905699066990769908699096991069911699126991369914699156991669917699186991969920699216992269923699246992569926699276992869929699306993169932699336993469935699366993769938699396994069941699426994369944699456994669947699486994969950699516995269953699546995569956699576995869959699606996169962699636996469965699666996769968699696997069971699726997369974699756997669977699786997969980699816998269983699846998569986699876998869989699906999169992699936999469995699966999769998699997000070001700027000370004700057000670007700087000970010700117001270013700147001570016700177001870019700207002170022700237002470025700267002770028700297003070031700327003370034700357003670037700387003970040700417004270043700447004570046700477004870049700507005170052700537005470055700567005770058700597006070061700627006370064700657006670067700687006970070700717007270073700747007570076700777007870079700807008170082700837008470085700867008770088700897009070091700927009370094700957009670097700987009970100701017010270103701047010570106701077010870109701107011170112701137011470115701167011770118701197012070121701227012370124701257012670127701287012970130701317013270133701347013570136701377013870139701407014170142701437014470145701467014770148701497015070151701527015370154701557015670157701587015970160701617016270163701647016570166701677016870169701707017170172701737017470175701767017770178701797018070181701827018370184701857018670187701887018970190701917019270193701947019570196701977019870199702007020170202702037020470205702067020770208702097021070211702127021370214702157021670217702187021970220702217022270223702247022570226702277022870229702307023170232702337023470235702367023770238702397024070241702427024370244702457024670247702487024970250702517025270253702547025570256702577025870259702607026170262702637026470265702667026770268702697027070271702727027370274702757027670277702787027970280702817028270283702847028570286702877028870289702907029170292702937029470295702967029770298702997030070301703027030370304703057030670307703087030970310703117031270313703147031570316703177031870319703207032170322703237032470325703267032770328703297033070331703327033370334703357033670337703387033970340703417034270343703447034570346703477034870349703507035170352703537035470355703567035770358703597036070361703627036370364703657036670367703687036970370703717037270373703747037570376703777037870379703807038170382703837038470385703867038770388703897039070391703927039370394703957039670397703987039970400704017040270403704047040570406704077040870409704107041170412704137041470415704167041770418704197042070421704227042370424704257042670427704287042970430704317043270433704347043570436704377043870439704407044170442704437044470445704467044770448704497045070451704527045370454704557045670457704587045970460704617046270463704647046570466704677046870469704707047170472704737047470475704767047770478704797048070481704827048370484704857048670487704887048970490704917049270493704947049570496704977049870499705007050170502705037050470505705067050770508705097051070511705127051370514705157051670517705187051970520705217052270523705247052570526705277052870529705307053170532705337053470535705367053770538705397054070541705427054370544705457054670547705487054970550705517055270553705547055570556705577055870559705607056170562705637056470565705667056770568705697057070571705727057370574705757057670577705787057970580705817058270583705847058570586705877058870589705907059170592705937059470595705967059770598705997060070601706027060370604706057060670607706087060970610706117061270613706147061570616706177061870619706207062170622706237062470625706267062770628706297063070631706327063370634706357063670637706387063970640706417064270643706447064570646706477064870649706507065170652706537065470655706567065770658706597066070661706627066370664706657066670667706687066970670706717067270673706747067570676706777067870679706807068170682706837068470685706867068770688706897069070691706927069370694706957069670697706987069970700707017070270703707047070570706707077070870709707107071170712707137071470715707167071770718707197072070721707227072370724707257072670727707287072970730707317073270733707347073570736707377073870739707407074170742707437074470745707467074770748707497075070751707527075370754707557075670757707587075970760707617076270763707647076570766707677076870769707707077170772707737077470775707767077770778707797078070781707827078370784707857078670787707887078970790707917079270793707947079570796707977079870799708007080170802708037080470805708067080770808708097081070811708127081370814708157081670817708187081970820708217082270823708247082570826708277082870829708307083170832708337083470835708367083770838708397084070841708427084370844708457084670847708487084970850708517085270853708547085570856708577085870859708607086170862708637086470865708667086770868708697087070871708727087370874708757087670877708787087970880708817088270883708847088570886708877088870889708907089170892708937089470895708967089770898708997090070901709027090370904709057090670907709087090970910709117091270913709147091570916709177091870919709207092170922709237092470925709267092770928709297093070931709327093370934709357093670937709387093970940709417094270943709447094570946709477094870949709507095170952709537095470955709567095770958709597096070961709627096370964709657096670967709687096970970709717097270973709747097570976709777097870979709807098170982709837098470985709867098770988709897099070991709927099370994709957099670997709987099971000710017100271003710047100571006710077100871009710107101171012710137101471015710167101771018710197102071021710227102371024710257102671027710287102971030710317103271033710347103571036710377103871039710407104171042710437104471045710467104771048710497105071051710527105371054710557105671057710587105971060710617106271063710647106571066710677106871069710707107171072710737107471075710767107771078710797108071081710827108371084710857108671087710887108971090710917109271093710947109571096710977109871099711007110171102711037110471105711067110771108711097111071111711127111371114711157111671117711187111971120711217112271123711247112571126711277112871129711307113171132711337113471135711367113771138711397114071141711427114371144711457114671147711487114971150711517115271153711547115571156711577115871159711607116171162711637116471165711667116771168711697117071171711727117371174711757117671177711787117971180711817118271183711847118571186711877118871189711907119171192711937119471195711967119771198711997120071201712027120371204712057120671207712087120971210712117121271213712147121571216712177121871219712207122171222712237122471225712267122771228712297123071231712327123371234712357123671237712387123971240712417124271243712447124571246712477124871249712507125171252712537125471255712567125771258712597126071261712627126371264712657126671267712687126971270712717127271273712747127571276712777127871279712807128171282712837128471285712867128771288712897129071291712927129371294712957129671297712987129971300713017130271303713047130571306713077130871309713107131171312713137131471315713167131771318713197132071321713227132371324713257132671327713287132971330713317133271333713347133571336713377133871339713407134171342713437134471345713467134771348713497135071351713527135371354713557135671357713587135971360713617136271363713647136571366713677136871369713707137171372713737137471375713767137771378713797138071381713827138371384713857138671387713887138971390713917139271393713947139571396713977139871399714007140171402714037140471405714067140771408714097141071411714127141371414714157141671417714187141971420714217142271423714247142571426714277142871429714307143171432714337143471435714367143771438714397144071441714427144371444714457144671447714487144971450714517145271453714547145571456714577145871459714607146171462714637146471465714667146771468714697147071471714727147371474714757147671477714787147971480714817148271483714847148571486714877148871489714907149171492714937149471495714967149771498714997150071501715027150371504715057150671507715087150971510715117151271513715147151571516715177151871519715207152171522715237152471525715267152771528715297153071531715327153371534715357153671537715387153971540715417154271543715447154571546715477154871549715507155171552715537155471555715567155771558715597156071561715627156371564715657156671567715687156971570715717157271573715747157571576715777157871579715807158171582715837158471585715867158771588715897159071591715927159371594715957159671597715987159971600716017160271603716047160571606716077160871609716107161171612716137161471615716167161771618716197162071621716227162371624716257162671627716287162971630716317163271633716347163571636716377163871639716407164171642716437164471645716467164771648716497165071651716527165371654716557165671657716587165971660716617166271663716647166571666716677166871669716707167171672716737167471675716767167771678716797168071681716827168371684716857168671687716887168971690716917169271693716947169571696716977169871699717007170171702717037170471705717067170771708717097171071711717127171371714717157171671717717187171971720717217172271723717247172571726717277172871729717307173171732717337173471735717367173771738717397174071741717427174371744717457174671747717487174971750717517175271753717547175571756717577175871759717607176171762717637176471765717667176771768717697177071771717727177371774717757177671777717787177971780717817178271783717847178571786717877178871789717907179171792717937179471795717967179771798717997180071801718027180371804718057180671807718087180971810718117181271813718147181571816718177181871819718207182171822718237182471825718267182771828718297183071831718327183371834718357183671837718387183971840718417184271843718447184571846718477184871849718507185171852718537185471855718567185771858718597186071861718627186371864718657186671867718687186971870718717187271873718747187571876718777187871879718807188171882718837188471885718867188771888718897189071891718927189371894718957189671897718987189971900719017190271903719047190571906719077190871909719107191171912719137191471915719167191771918719197192071921719227192371924719257192671927719287192971930719317193271933719347193571936719377193871939719407194171942719437194471945719467194771948719497195071951719527195371954719557195671957719587195971960719617196271963719647196571966719677196871969719707197171972719737197471975719767197771978719797198071981719827198371984719857198671987719887198971990719917199271993719947199571996719977199871999720007200172002720037200472005720067200772008720097201072011720127201372014720157201672017720187201972020720217202272023720247202572026720277202872029720307203172032720337203472035720367203772038720397204072041720427204372044720457204672047720487204972050720517205272053720547205572056720577205872059720607206172062720637206472065720667206772068720697207072071720727207372074720757207672077720787207972080720817208272083720847208572086720877208872089720907209172092720937209472095720967209772098720997210072101721027210372104721057210672107721087210972110721117211272113721147211572116721177211872119721207212172122721237212472125721267212772128721297213072131721327213372134721357213672137721387213972140721417214272143721447214572146721477214872149721507215172152721537215472155721567215772158721597216072161721627216372164721657216672167721687216972170721717217272173721747217572176721777217872179721807218172182721837218472185721867218772188721897219072191721927219372194721957219672197721987219972200722017220272203722047220572206722077220872209722107221172212722137221472215722167221772218722197222072221722227222372224722257222672227722287222972230722317223272233722347223572236722377223872239722407224172242722437224472245722467224772248722497225072251722527225372254722557225672257722587225972260722617226272263722647226572266722677226872269722707227172272722737227472275722767227772278722797228072281722827228372284722857228672287722887228972290722917229272293722947229572296722977229872299723007230172302723037230472305723067230772308723097231072311723127231372314723157231672317723187231972320723217232272323723247232572326723277232872329723307233172332723337233472335723367233772338723397234072341723427234372344723457234672347723487234972350723517235272353723547235572356723577235872359723607236172362723637236472365723667236772368723697237072371723727237372374723757237672377723787237972380723817238272383723847238572386723877238872389723907239172392723937239472395723967239772398723997240072401724027240372404724057240672407724087240972410724117241272413724147241572416724177241872419724207242172422724237242472425724267242772428724297243072431724327243372434724357243672437724387243972440724417244272443724447244572446724477244872449724507245172452724537245472455724567245772458724597246072461724627246372464724657246672467724687246972470724717247272473724747247572476724777247872479724807248172482724837248472485724867248772488724897249072491724927249372494724957249672497724987249972500725017250272503725047250572506725077250872509725107251172512725137251472515725167251772518725197252072521725227252372524725257252672527725287252972530725317253272533725347253572536725377253872539725407254172542725437254472545725467254772548725497255072551725527255372554725557255672557725587255972560725617256272563725647256572566725677256872569725707257172572725737257472575725767257772578725797258072581725827258372584725857258672587725887258972590725917259272593725947259572596725977259872599726007260172602726037260472605726067260772608726097261072611726127261372614726157261672617726187261972620726217262272623726247262572626726277262872629726307263172632726337263472635726367263772638726397264072641726427264372644726457264672647726487264972650726517265272653726547265572656726577265872659726607266172662726637266472665726667266772668726697267072671726727267372674726757267672677726787267972680726817268272683726847268572686726877268872689726907269172692726937269472695726967269772698726997270072701727027270372704727057270672707727087270972710727117271272713727147271572716727177271872719727207272172722727237272472725727267272772728727297273072731727327273372734727357273672737727387273972740727417274272743727447274572746727477274872749727507275172752727537275472755727567275772758727597276072761727627276372764727657276672767727687276972770727717277272773727747277572776727777277872779727807278172782727837278472785727867278772788727897279072791727927279372794727957279672797727987279972800728017280272803728047280572806728077280872809728107281172812728137281472815728167281772818728197282072821728227282372824728257282672827728287282972830728317283272833728347283572836728377283872839728407284172842728437284472845728467284772848728497285072851728527285372854728557285672857728587285972860728617286272863728647286572866728677286872869728707287172872728737287472875728767287772878728797288072881728827288372884728857288672887728887288972890728917289272893728947289572896728977289872899729007290172902729037290472905729067290772908729097291072911729127291372914729157291672917729187291972920729217292272923729247292572926729277292872929729307293172932729337293472935729367293772938729397294072941729427294372944729457294672947729487294972950729517295272953729547295572956729577295872959729607296172962729637296472965729667296772968729697297072971729727297372974729757297672977729787297972980729817298272983729847298572986729877298872989729907299172992729937299472995729967299772998729997300073001730027300373004730057300673007730087300973010730117301273013730147301573016730177301873019730207302173022730237302473025730267302773028730297303073031730327303373034730357303673037730387303973040730417304273043730447304573046730477304873049730507305173052730537305473055730567305773058730597306073061730627306373064730657306673067730687306973070730717307273073730747307573076730777307873079730807308173082730837308473085730867308773088730897309073091730927309373094730957309673097730987309973100731017310273103731047310573106731077310873109731107311173112731137311473115731167311773118731197312073121731227312373124731257312673127731287312973130731317313273133731347313573136731377313873139731407314173142731437314473145731467314773148731497315073151731527315373154731557315673157731587315973160731617316273163731647316573166731677316873169731707317173172731737317473175731767317773178731797318073181731827318373184731857318673187731887318973190731917319273193731947319573196731977319873199732007320173202732037320473205732067320773208732097321073211732127321373214732157321673217732187321973220732217322273223732247322573226732277322873229732307323173232732337323473235732367323773238732397324073241732427324373244732457324673247732487324973250732517325273253732547325573256732577325873259732607326173262732637326473265732667326773268732697327073271732727327373274732757327673277732787327973280732817328273283732847328573286732877328873289732907329173292732937329473295732967329773298732997330073301733027330373304733057330673307733087330973310733117331273313733147331573316733177331873319733207332173322733237332473325733267332773328733297333073331733327333373334733357333673337733387333973340733417334273343733447334573346733477334873349733507335173352733537335473355733567335773358733597336073361733627336373364733657336673367733687336973370733717337273373733747337573376733777337873379733807338173382733837338473385733867338773388733897339073391733927339373394733957339673397733987339973400734017340273403734047340573406734077340873409734107341173412734137341473415734167341773418734197342073421734227342373424734257342673427734287342973430734317343273433734347343573436734377343873439734407344173442734437344473445734467344773448734497345073451734527345373454734557345673457734587345973460734617346273463734647346573466734677346873469734707347173472734737347473475734767347773478734797348073481734827348373484734857348673487734887348973490734917349273493734947349573496734977349873499735007350173502735037350473505735067350773508735097351073511735127351373514735157351673517735187351973520735217352273523735247352573526735277352873529735307353173532735337353473535735367353773538735397354073541735427354373544735457354673547735487354973550735517355273553735547355573556735577355873559735607356173562735637356473565735667356773568735697357073571735727357373574735757357673577735787357973580735817358273583735847358573586735877358873589735907359173592735937359473595735967359773598735997360073601736027360373604736057360673607736087360973610736117361273613736147361573616736177361873619736207362173622736237362473625736267362773628736297363073631736327363373634736357363673637736387363973640736417364273643736447364573646736477364873649736507365173652736537365473655736567365773658736597366073661736627366373664736657366673667736687366973670736717367273673736747367573676736777367873679736807368173682736837368473685736867368773688736897369073691736927369373694736957369673697736987369973700737017370273703737047370573706737077370873709737107371173712737137371473715737167371773718737197372073721737227372373724737257372673727737287372973730737317373273733737347373573736737377373873739737407374173742737437374473745737467374773748737497375073751737527375373754737557375673757737587375973760737617376273763737647376573766737677376873769737707377173772737737377473775737767377773778737797378073781737827378373784737857378673787737887378973790737917379273793737947379573796737977379873799738007380173802738037380473805738067380773808738097381073811738127381373814738157381673817738187381973820738217382273823738247382573826738277382873829738307383173832738337383473835738367383773838738397384073841738427384373844738457384673847738487384973850738517385273853738547385573856738577385873859738607386173862738637386473865738667386773868738697387073871738727387373874738757387673877738787387973880738817388273883738847388573886738877388873889738907389173892738937389473895738967389773898738997390073901739027390373904739057390673907739087390973910739117391273913739147391573916739177391873919739207392173922739237392473925739267392773928739297393073931739327393373934739357393673937739387393973940739417394273943739447394573946739477394873949739507395173952739537395473955739567395773958739597396073961739627396373964739657396673967739687396973970739717397273973739747397573976739777397873979739807398173982739837398473985739867398773988739897399073991739927399373994739957399673997739987399974000740017400274003740047400574006740077400874009740107401174012740137401474015740167401774018740197402074021740227402374024740257402674027740287402974030740317403274033740347403574036740377403874039740407404174042740437404474045740467404774048740497405074051740527405374054740557405674057740587405974060740617406274063740647406574066740677406874069740707407174072740737407474075740767407774078740797408074081740827408374084740857408674087740887408974090740917409274093740947409574096740977409874099741007410174102741037410474105741067410774108741097411074111741127411374114741157411674117741187411974120741217412274123741247412574126741277412874129741307413174132741337413474135741367413774138741397414074141741427414374144741457414674147741487414974150741517415274153741547415574156741577415874159741607416174162741637416474165741667416774168741697417074171741727417374174741757417674177741787417974180741817418274183741847418574186741877418874189741907419174192741937419474195741967419774198741997420074201742027420374204742057420674207742087420974210742117421274213742147421574216742177421874219742207422174222742237422474225742267422774228742297423074231742327423374234742357423674237742387423974240742417424274243742447424574246742477424874249742507425174252742537425474255742567425774258742597426074261742627426374264742657426674267742687426974270742717427274273742747427574276742777427874279742807428174282742837428474285742867428774288742897429074291742927429374294742957429674297742987429974300743017430274303743047430574306743077430874309743107431174312743137431474315743167431774318743197432074321743227432374324743257432674327743287432974330743317433274333743347433574336743377433874339743407434174342743437434474345743467434774348743497435074351743527435374354743557435674357743587435974360743617436274363743647436574366743677436874369743707437174372743737437474375743767437774378743797438074381743827438374384743857438674387743887438974390743917439274393743947439574396743977439874399744007440174402744037440474405744067440774408744097441074411744127441374414744157441674417744187441974420744217442274423744247442574426744277442874429744307443174432744337443474435744367443774438744397444074441744427444374444744457444674447744487444974450744517445274453744547445574456744577445874459744607446174462744637446474465744667446774468744697447074471744727447374474744757447674477744787447974480744817448274483744847448574486744877448874489744907449174492744937449474495744967449774498744997450074501745027450374504745057450674507745087450974510745117451274513745147451574516745177451874519745207452174522745237452474525745267452774528745297453074531745327453374534745357453674537745387453974540745417454274543745447454574546745477454874549745507455174552745537455474555745567455774558745597456074561745627456374564745657456674567745687456974570745717457274573745747457574576745777457874579745807458174582745837458474585745867458774588745897459074591745927459374594745957459674597745987459974600746017460274603746047460574606746077460874609746107461174612746137461474615746167461774618746197462074621746227462374624746257462674627746287462974630746317463274633746347463574636746377463874639746407464174642746437464474645746467464774648746497465074651746527465374654746557465674657746587465974660746617466274663746647466574666746677466874669746707467174672746737467474675746767467774678746797468074681746827468374684746857468674687746887468974690746917469274693746947469574696746977469874699747007470174702747037470474705747067470774708747097471074711747127471374714747157471674717747187471974720747217472274723747247472574726747277472874729747307473174732747337473474735747367473774738747397474074741747427474374744747457474674747747487474974750747517475274753747547475574756747577475874759747607476174762747637476474765747667476774768747697477074771747727477374774747757477674777747787477974780747817478274783747847478574786747877478874789747907479174792747937479474795747967479774798747997480074801748027480374804748057480674807748087480974810748117481274813748147481574816748177481874819748207482174822748237482474825748267482774828748297483074831748327483374834748357483674837748387483974840748417484274843748447484574846748477484874849748507485174852748537485474855748567485774858748597486074861748627486374864748657486674867748687486974870748717487274873748747487574876748777487874879748807488174882748837488474885748867488774888748897489074891748927489374894748957489674897748987489974900749017490274903749047490574906749077490874909749107491174912749137491474915749167491774918749197492074921749227492374924749257492674927749287492974930749317493274933749347493574936749377493874939749407494174942749437494474945749467494774948749497495074951749527495374954749557495674957749587495974960749617496274963749647496574966749677496874969749707497174972749737497474975749767497774978749797498074981749827498374984749857498674987749887498974990749917499274993749947499574996749977499874999750007500175002750037500475005750067500775008750097501075011750127501375014750157501675017750187501975020750217502275023750247502575026750277502875029750307503175032750337503475035750367503775038750397504075041750427504375044750457504675047750487504975050750517505275053750547505575056750577505875059750607506175062750637506475065750667506775068750697507075071750727507375074750757507675077750787507975080750817508275083750847508575086750877508875089750907509175092750937509475095750967509775098750997510075101751027510375104751057510675107751087510975110751117511275113751147511575116751177511875119751207512175122751237512475125751267512775128751297513075131751327513375134751357513675137751387513975140751417514275143751447514575146751477514875149751507515175152751537515475155751567515775158751597516075161751627516375164751657516675167751687516975170751717517275173751747517575176751777517875179751807518175182751837518475185751867518775188751897519075191751927519375194751957519675197751987519975200752017520275203752047520575206752077520875209752107521175212752137521475215752167521775218752197522075221752227522375224752257522675227752287522975230752317523275233752347523575236752377523875239752407524175242752437524475245752467524775248752497525075251752527525375254752557525675257752587525975260752617526275263752647526575266752677526875269752707527175272752737527475275752767527775278752797528075281752827528375284752857528675287752887528975290752917529275293752947529575296752977529875299753007530175302753037530475305753067530775308753097531075311753127531375314753157531675317753187531975320753217532275323753247532575326753277532875329753307533175332753337533475335753367533775338753397534075341753427534375344753457534675347753487534975350753517535275353753547535575356753577535875359753607536175362753637536475365753667536775368753697537075371753727537375374753757537675377753787537975380753817538275383753847538575386753877538875389753907539175392753937539475395753967539775398753997540075401754027540375404754057540675407754087540975410754117541275413754147541575416754177541875419754207542175422754237542475425754267542775428754297543075431754327543375434754357543675437754387543975440754417544275443754447544575446754477544875449754507545175452754537545475455754567545775458754597546075461754627546375464754657546675467754687546975470754717547275473754747547575476754777547875479754807548175482754837548475485754867548775488754897549075491754927549375494754957549675497754987549975500755017550275503755047550575506755077550875509755107551175512755137551475515755167551775518755197552075521755227552375524755257552675527755287552975530755317553275533755347553575536755377553875539755407554175542755437554475545755467554775548755497555075551755527555375554755557555675557755587555975560755617556275563755647556575566755677556875569755707557175572755737557475575755767557775578755797558075581755827558375584755857558675587755887558975590755917559275593755947559575596755977559875599756007560175602756037560475605756067560775608756097561075611756127561375614756157561675617756187561975620756217562275623756247562575626756277562875629756307563175632756337563475635756367563775638756397564075641756427564375644756457564675647756487564975650756517565275653756547565575656756577565875659756607566175662756637566475665756667566775668756697567075671756727567375674756757567675677756787567975680756817568275683756847568575686756877568875689756907569175692756937569475695756967569775698756997570075701757027570375704757057570675707757087570975710757117571275713757147571575716757177571875719757207572175722757237572475725757267572775728757297573075731757327573375734757357573675737757387573975740757417574275743757447574575746757477574875749757507575175752757537575475755757567575775758757597576075761757627576375764757657576675767757687576975770757717577275773757747577575776757777577875779757807578175782757837578475785757867578775788757897579075791757927579375794757957579675797757987579975800758017580275803758047580575806758077580875809758107581175812758137581475815758167581775818758197582075821758227582375824758257582675827758287582975830758317583275833758347583575836758377583875839758407584175842758437584475845758467584775848758497585075851758527585375854758557585675857758587585975860758617586275863758647586575866758677586875869758707587175872758737587475875758767587775878758797588075881758827588375884758857588675887758887588975890758917589275893758947589575896758977589875899759007590175902759037590475905759067590775908759097591075911759127591375914759157591675917759187591975920759217592275923759247592575926759277592875929759307593175932759337593475935759367593775938759397594075941759427594375944759457594675947759487594975950759517595275953759547595575956759577595875959759607596175962759637596475965759667596775968759697597075971759727597375974759757597675977759787597975980759817598275983759847598575986759877598875989759907599175992759937599475995759967599775998759997600076001760027600376004760057600676007760087600976010760117601276013760147601576016760177601876019760207602176022760237602476025760267602776028760297603076031760327603376034760357603676037760387603976040760417604276043760447604576046760477604876049760507605176052760537605476055760567605776058760597606076061760627606376064760657606676067760687606976070760717607276073760747607576076760777607876079760807608176082760837608476085760867608776088760897609076091760927609376094760957609676097760987609976100761017610276103761047610576106761077610876109761107611176112761137611476115761167611776118761197612076121761227612376124761257612676127761287612976130761317613276133761347613576136761377613876139761407614176142761437614476145761467614776148761497615076151761527615376154761557615676157761587615976160761617616276163761647616576166761677616876169761707617176172761737617476175761767617776178761797618076181761827618376184761857618676187761887618976190761917619276193761947619576196761977619876199762007620176202762037620476205762067620776208762097621076211762127621376214762157621676217762187621976220762217622276223762247622576226762277622876229762307623176232762337623476235762367623776238762397624076241762427624376244762457624676247762487624976250762517625276253762547625576256762577625876259762607626176262762637626476265762667626776268762697627076271762727627376274762757627676277762787627976280762817628276283762847628576286762877628876289762907629176292762937629476295762967629776298762997630076301763027630376304763057630676307763087630976310763117631276313763147631576316763177631876319763207632176322763237632476325763267632776328763297633076331763327633376334763357633676337763387633976340763417634276343763447634576346763477634876349763507635176352763537635476355763567635776358763597636076361763627636376364763657636676367763687636976370763717637276373763747637576376763777637876379763807638176382763837638476385763867638776388763897639076391763927639376394763957639676397763987639976400764017640276403764047640576406764077640876409764107641176412764137641476415764167641776418764197642076421764227642376424764257642676427764287642976430764317643276433764347643576436764377643876439764407644176442764437644476445764467644776448764497645076451764527645376454764557645676457764587645976460764617646276463764647646576466764677646876469764707647176472764737647476475764767647776478764797648076481764827648376484764857648676487764887648976490764917649276493764947649576496764977649876499765007650176502765037650476505765067650776508765097651076511765127651376514765157651676517765187651976520765217652276523765247652576526765277652876529765307653176532765337653476535765367653776538765397654076541765427654376544765457654676547765487654976550765517655276553765547655576556765577655876559765607656176562765637656476565765667656776568765697657076571765727657376574765757657676577765787657976580765817658276583765847658576586765877658876589765907659176592765937659476595765967659776598765997660076601766027660376604766057660676607766087660976610766117661276613766147661576616766177661876619766207662176622766237662476625766267662776628766297663076631766327663376634766357663676637766387663976640766417664276643766447664576646766477664876649766507665176652766537665476655766567665776658766597666076661766627666376664766657666676667766687666976670766717667276673766747667576676766777667876679766807668176682766837668476685766867668776688766897669076691766927669376694766957669676697766987669976700767017670276703767047670576706767077670876709767107671176712767137671476715767167671776718767197672076721767227672376724767257672676727767287672976730767317673276733767347673576736767377673876739767407674176742767437674476745767467674776748767497675076751767527675376754767557675676757767587675976760767617676276763767647676576766767677676876769767707677176772767737677476775767767677776778767797678076781767827678376784767857678676787767887678976790767917679276793767947679576796767977679876799768007680176802768037680476805768067680776808768097681076811768127681376814768157681676817768187681976820768217682276823768247682576826768277682876829768307683176832768337683476835768367683776838768397684076841768427684376844768457684676847768487684976850768517685276853768547685576856768577685876859768607686176862768637686476865768667686776868768697687076871768727687376874768757687676877768787687976880768817688276883768847688576886768877688876889768907689176892768937689476895768967689776898768997690076901769027690376904769057690676907769087690976910769117691276913769147691576916769177691876919769207692176922769237692476925769267692776928769297693076931769327693376934769357693676937769387693976940769417694276943769447694576946769477694876949769507695176952769537695476955769567695776958769597696076961769627696376964769657696676967769687696976970769717697276973769747697576976769777697876979769807698176982769837698476985769867698776988769897699076991769927699376994769957699676997769987699977000770017700277003770047700577006770077700877009770107701177012770137701477015770167701777018770197702077021770227702377024770257702677027770287702977030770317703277033770347703577036770377703877039770407704177042770437704477045770467704777048770497705077051770527705377054770557705677057770587705977060770617706277063770647706577066770677706877069770707707177072770737707477075770767707777078770797708077081770827708377084770857708677087770887708977090770917709277093770947709577096770977709877099771007710177102771037710477105771067710777108771097711077111771127711377114771157711677117771187711977120771217712277123771247712577126771277712877129771307713177132771337713477135771367713777138771397714077141771427714377144771457714677147771487714977150771517715277153771547715577156771577715877159771607716177162771637716477165771667716777168771697717077171771727717377174771757717677177771787717977180771817718277183771847718577186771877718877189771907719177192771937719477195771967719777198771997720077201772027720377204772057720677207772087720977210772117721277213772147721577216772177721877219772207722177222772237722477225772267722777228772297723077231772327723377234772357723677237772387723977240772417724277243772447724577246772477724877249772507725177252772537725477255772567725777258772597726077261772627726377264772657726677267772687726977270772717727277273772747727577276772777727877279772807728177282772837728477285772867728777288772897729077291772927729377294772957729677297772987729977300773017730277303773047730577306773077730877309773107731177312773137731477315773167731777318773197732077321773227732377324773257732677327773287732977330773317733277333773347733577336773377733877339773407734177342773437734477345773467734777348773497735077351773527735377354773557735677357773587735977360773617736277363773647736577366773677736877369773707737177372773737737477375773767737777378773797738077381773827738377384773857738677387773887738977390773917739277393773947739577396773977739877399774007740177402774037740477405774067740777408774097741077411774127741377414774157741677417774187741977420774217742277423774247742577426774277742877429774307743177432774337743477435774367743777438774397744077441774427744377444774457744677447774487744977450774517745277453774547745577456774577745877459774607746177462774637746477465774667746777468774697747077471774727747377474774757747677477774787747977480774817748277483774847748577486774877748877489774907749177492774937749477495774967749777498774997750077501775027750377504775057750677507775087750977510775117751277513775147751577516775177751877519775207752177522775237752477525775267752777528775297753077531775327753377534775357753677537775387753977540775417754277543775447754577546775477754877549775507755177552775537755477555775567755777558775597756077561775627756377564775657756677567775687756977570775717757277573775747757577576775777757877579775807758177582775837758477585775867758777588775897759077591775927759377594775957759677597775987759977600776017760277603776047760577606776077760877609776107761177612776137761477615776167761777618776197762077621776227762377624776257762677627776287762977630776317763277633776347763577636776377763877639776407764177642776437764477645776467764777648776497765077651776527765377654776557765677657776587765977660776617766277663776647766577666776677766877669776707767177672776737767477675776767767777678776797768077681776827768377684776857768677687776887768977690776917769277693776947769577696776977769877699777007770177702777037770477705777067770777708777097771077711777127771377714777157771677717777187771977720777217772277723777247772577726777277772877729777307773177732777337773477735777367773777738777397774077741777427774377744777457774677747777487774977750777517775277753777547775577756777577775877759777607776177762777637776477765777667776777768777697777077771777727777377774777757777677777777787777977780777817778277783777847778577786777877778877789777907779177792777937779477795777967779777798777997780077801778027780377804778057780677807778087780977810778117781277813778147781577816778177781877819778207782177822778237782477825778267782777828778297783077831778327783377834778357783677837778387783977840778417784277843778447784577846778477784877849778507785177852778537785477855778567785777858778597786077861778627786377864778657786677867778687786977870778717787277873778747787577876778777787877879778807788177882778837788477885778867788777888778897789077891778927789377894778957789677897778987789977900779017790277903779047790577906779077790877909779107791177912779137791477915779167791777918779197792077921779227792377924779257792677927779287792977930779317793277933779347793577936779377793877939779407794177942779437794477945779467794777948779497795077951779527795377954779557795677957779587795977960779617796277963779647796577966779677796877969779707797177972779737797477975779767797777978779797798077981779827798377984779857798677987779887798977990779917799277993779947799577996779977799877999780007800178002780037800478005780067800778008780097801078011780127801378014780157801678017780187801978020780217802278023780247802578026780277802878029780307803178032780337803478035780367803778038780397804078041780427804378044780457804678047780487804978050780517805278053780547805578056780577805878059780607806178062780637806478065780667806778068780697807078071780727807378074780757807678077780787807978080780817808278083780847808578086780877808878089780907809178092780937809478095780967809778098780997810078101781027810378104781057810678107781087810978110781117811278113781147811578116781177811878119781207812178122781237812478125781267812778128781297813078131781327813378134781357813678137781387813978140781417814278143781447814578146781477814878149781507815178152781537815478155781567815778158781597816078161781627816378164781657816678167781687816978170781717817278173781747817578176781777817878179781807818178182781837818478185781867818778188781897819078191781927819378194781957819678197781987819978200782017820278203782047820578206782077820878209782107821178212782137821478215782167821778218782197822078221782227822378224782257822678227782287822978230782317823278233782347823578236782377823878239782407824178242782437824478245782467824778248782497825078251782527825378254782557825678257782587825978260782617826278263782647826578266782677826878269782707827178272782737827478275782767827778278782797828078281782827828378284782857828678287782887828978290782917829278293782947829578296782977829878299783007830178302783037830478305783067830778308783097831078311783127831378314783157831678317783187831978320783217832278323783247832578326783277832878329783307833178332783337833478335783367833778338783397834078341783427834378344783457834678347783487834978350783517835278353783547835578356783577835878359783607836178362783637836478365783667836778368783697837078371783727837378374783757837678377783787837978380783817838278383783847838578386783877838878389783907839178392783937839478395783967839778398783997840078401784027840378404784057840678407784087840978410784117841278413784147841578416784177841878419784207842178422784237842478425784267842778428784297843078431784327843378434784357843678437784387843978440784417844278443784447844578446784477844878449784507845178452784537845478455784567845778458784597846078461784627846378464784657846678467784687846978470784717847278473784747847578476784777847878479784807848178482784837848478485784867848778488784897849078491784927849378494784957849678497784987849978500785017850278503785047850578506785077850878509785107851178512785137851478515785167851778518785197852078521785227852378524785257852678527785287852978530785317853278533785347853578536785377853878539785407854178542785437854478545785467854778548785497855078551785527855378554785557855678557785587855978560785617856278563785647856578566785677856878569785707857178572785737857478575785767857778578785797858078581785827858378584785857858678587785887858978590785917859278593785947859578596785977859878599786007860178602786037860478605786067860778608786097861078611786127861378614786157861678617786187861978620786217862278623786247862578626786277862878629786307863178632786337863478635786367863778638786397864078641786427864378644786457864678647786487864978650786517865278653786547865578656786577865878659786607866178662786637866478665786667866778668786697867078671786727867378674786757867678677786787867978680786817868278683786847868578686786877868878689786907869178692786937869478695786967869778698786997870078701787027870378704787057870678707787087870978710787117871278713787147871578716787177871878719787207872178722787237872478725787267872778728787297873078731787327873378734787357873678737787387873978740787417874278743787447874578746787477874878749787507875178752787537875478755787567875778758787597876078761787627876378764787657876678767787687876978770787717877278773787747877578776787777877878779787807878178782787837878478785787867878778788787897879078791787927879378794787957879678797787987879978800788017880278803788047880578806788077880878809788107881178812788137881478815788167881778818788197882078821788227882378824788257882678827788287882978830788317883278833788347883578836788377883878839788407884178842788437884478845788467884778848788497885078851788527885378854788557885678857788587885978860788617886278863788647886578866788677886878869788707887178872788737887478875788767887778878788797888078881788827888378884788857888678887788887888978890788917889278893788947889578896788977889878899789007890178902789037890478905789067890778908789097891078911789127891378914789157891678917789187891978920789217892278923789247892578926789277892878929789307893178932789337893478935789367893778938789397894078941789427894378944789457894678947789487894978950789517895278953789547895578956789577895878959789607896178962789637896478965789667896778968789697897078971789727897378974789757897678977789787897978980789817898278983789847898578986789877898878989789907899178992789937899478995789967899778998789997900079001790027900379004790057900679007790087900979010790117901279013790147901579016790177901879019790207902179022790237902479025790267902779028790297903079031790327903379034790357903679037790387903979040790417904279043790447904579046790477904879049790507905179052790537905479055790567905779058790597906079061790627906379064790657906679067790687906979070790717907279073790747907579076790777907879079790807908179082790837908479085790867908779088790897909079091790927909379094790957909679097790987909979100791017910279103791047910579106791077910879109791107911179112791137911479115791167911779118791197912079121791227912379124791257912679127791287912979130791317913279133791347913579136791377913879139791407914179142791437914479145791467914779148791497915079151791527915379154791557915679157791587915979160791617916279163791647916579166791677916879169791707917179172791737917479175791767917779178791797918079181791827918379184791857918679187791887918979190791917919279193791947919579196791977919879199792007920179202792037920479205792067920779208792097921079211792127921379214792157921679217792187921979220792217922279223792247922579226792277922879229792307923179232792337923479235792367923779238792397924079241792427924379244792457924679247792487924979250792517925279253792547925579256792577925879259792607926179262792637926479265792667926779268792697927079271792727927379274792757927679277792787927979280792817928279283792847928579286792877928879289792907929179292792937929479295792967929779298792997930079301793027930379304793057930679307793087930979310793117931279313793147931579316793177931879319793207932179322793237932479325793267932779328793297933079331793327933379334793357933679337793387933979340793417934279343793447934579346793477934879349793507935179352793537935479355793567935779358793597936079361793627936379364793657936679367793687936979370793717937279373793747937579376793777937879379793807938179382793837938479385793867938779388793897939079391793927939379394793957939679397793987939979400794017940279403794047940579406794077940879409794107941179412794137941479415794167941779418794197942079421794227942379424794257942679427794287942979430794317943279433794347943579436794377943879439794407944179442794437944479445794467944779448794497945079451794527945379454794557945679457794587945979460794617946279463794647946579466794677946879469794707947179472794737947479475794767947779478794797948079481794827948379484794857948679487794887948979490794917949279493794947949579496794977949879499795007950179502795037950479505795067950779508795097951079511795127951379514795157951679517795187951979520795217952279523795247952579526795277952879529795307953179532795337953479535795367953779538795397954079541795427954379544795457954679547795487954979550795517955279553795547955579556795577955879559795607956179562795637956479565795667956779568795697957079571795727957379574795757957679577795787957979580795817958279583795847958579586795877958879589795907959179592795937959479595795967959779598795997960079601796027960379604796057960679607796087960979610796117961279613796147961579616796177961879619796207962179622796237962479625796267962779628796297963079631796327963379634796357963679637796387963979640796417964279643796447964579646796477964879649796507965179652796537965479655796567965779658796597966079661796627966379664796657966679667796687966979670796717967279673796747967579676796777967879679796807968179682796837968479685796867968779688796897969079691796927969379694796957969679697796987969979700797017970279703797047970579706797077970879709797107971179712797137971479715797167971779718797197972079721797227972379724797257972679727797287972979730797317973279733797347973579736797377973879739797407974179742797437974479745797467974779748797497975079751797527975379754797557975679757797587975979760797617976279763797647976579766797677976879769797707977179772797737977479775797767977779778797797978079781797827978379784797857978679787797887978979790797917979279793797947979579796797977979879799798007980179802798037980479805798067980779808798097981079811798127981379814798157981679817798187981979820798217982279823798247982579826798277982879829798307983179832798337983479835798367983779838798397984079841798427984379844798457984679847798487984979850798517985279853798547985579856798577985879859798607986179862798637986479865798667986779868798697987079871798727987379874798757987679877798787987979880798817988279883798847988579886798877988879889798907989179892798937989479895798967989779898798997990079901799027990379904799057990679907799087990979910799117991279913799147991579916799177991879919799207992179922799237992479925799267992779928799297993079931799327993379934799357993679937799387993979940799417994279943799447994579946799477994879949799507995179952799537995479955799567995779958799597996079961799627996379964799657996679967799687996979970799717997279973799747997579976799777997879979799807998179982799837998479985799867998779988799897999079991799927999379994799957999679997799987999980000800018000280003800048000580006800078000880009800108001180012800138001480015800168001780018800198002080021800228002380024800258002680027800288002980030800318003280033800348003580036800378003880039800408004180042800438004480045800468004780048800498005080051800528005380054800558005680057800588005980060800618006280063800648006580066800678006880069800708007180072800738007480075800768007780078800798008080081800828008380084800858008680087800888008980090800918009280093800948009580096800978009880099801008010180102801038010480105801068010780108801098011080111801128011380114801158011680117801188011980120801218012280123801248012580126801278012880129801308013180132801338013480135801368013780138801398014080141801428014380144801458014680147801488014980150801518015280153801548015580156801578015880159801608016180162801638016480165801668016780168801698017080171801728017380174801758017680177801788017980180801818018280183801848018580186801878018880189801908019180192801938019480195801968019780198801998020080201802028020380204802058020680207802088020980210802118021280213802148021580216802178021880219802208022180222802238022480225802268022780228802298023080231802328023380234802358023680237802388023980240802418024280243802448024580246802478024880249802508025180252802538025480255802568025780258802598026080261802628026380264802658026680267802688026980270802718027280273802748027580276802778027880279802808028180282802838028480285802868028780288802898029080291802928029380294802958029680297802988029980300803018030280303803048030580306803078030880309803108031180312803138031480315803168031780318803198032080321803228032380324803258032680327803288032980330803318033280333803348033580336803378033880339803408034180342803438034480345803468034780348803498035080351803528035380354803558035680357803588035980360803618036280363803648036580366803678036880369803708037180372803738037480375803768037780378803798038080381803828038380384803858038680387803888038980390803918039280393803948039580396803978039880399804008040180402804038040480405804068040780408804098041080411804128041380414804158041680417804188041980420804218042280423804248042580426804278042880429804308043180432804338043480435804368043780438804398044080441804428044380444804458044680447804488044980450804518045280453804548045580456804578045880459804608046180462804638046480465804668046780468804698047080471804728047380474804758047680477804788047980480804818048280483804848048580486804878048880489804908049180492804938049480495804968049780498804998050080501805028050380504805058050680507805088050980510805118051280513805148051580516805178051880519805208052180522805238052480525805268052780528805298053080531805328053380534805358053680537805388053980540805418054280543805448054580546805478054880549805508055180552805538055480555805568055780558805598056080561805628056380564805658056680567805688056980570805718057280573805748057580576805778057880579805808058180582805838058480585805868058780588805898059080591805928059380594805958059680597805988059980600806018060280603806048060580606806078060880609806108061180612806138061480615806168061780618806198062080621806228062380624806258062680627806288062980630806318063280633806348063580636806378063880639806408064180642806438064480645806468064780648806498065080651806528065380654806558065680657806588065980660806618066280663806648066580666806678066880669806708067180672806738067480675806768067780678806798068080681806828068380684806858068680687806888068980690806918069280693806948069580696806978069880699807008070180702807038070480705807068070780708807098071080711807128071380714807158071680717807188071980720807218072280723807248072580726807278072880729807308073180732807338073480735807368073780738807398074080741807428074380744807458074680747807488074980750807518075280753807548075580756807578075880759807608076180762807638076480765807668076780768807698077080771807728077380774807758077680777807788077980780807818078280783807848078580786807878078880789807908079180792807938079480795807968079780798807998080080801808028080380804808058080680807808088080980810808118081280813808148081580816808178081880819808208082180822808238082480825808268082780828808298083080831808328083380834808358083680837808388083980840808418084280843808448084580846808478084880849808508085180852808538085480855808568085780858808598086080861808628086380864808658086680867808688086980870808718087280873808748087580876808778087880879808808088180882808838088480885808868088780888808898089080891808928089380894808958089680897808988089980900809018090280903809048090580906809078090880909809108091180912809138091480915809168091780918809198092080921809228092380924809258092680927809288092980930809318093280933809348093580936809378093880939809408094180942809438094480945809468094780948809498095080951809528095380954809558095680957809588095980960809618096280963809648096580966809678096880969809708097180972809738097480975809768097780978809798098080981809828098380984809858098680987809888098980990809918099280993809948099580996809978099880999810008100181002810038100481005810068100781008810098101081011810128101381014810158101681017810188101981020810218102281023810248102581026810278102881029810308103181032810338103481035810368103781038810398104081041810428104381044810458104681047810488104981050810518105281053810548105581056810578105881059810608106181062810638106481065810668106781068810698107081071810728107381074810758107681077810788107981080810818108281083810848108581086810878108881089810908109181092810938109481095810968109781098810998110081101811028110381104811058110681107811088110981110811118111281113811148111581116811178111881119811208112181122811238112481125811268112781128811298113081131811328113381134811358113681137811388113981140811418114281143811448114581146811478114881149811508115181152811538115481155811568115781158811598116081161811628116381164811658116681167811688116981170811718117281173811748117581176811778117881179811808118181182811838118481185811868118781188811898119081191811928119381194811958119681197811988119981200812018120281203812048120581206812078120881209812108121181212812138121481215812168121781218812198122081221812228122381224812258122681227812288122981230812318123281233812348123581236812378123881239812408124181242812438124481245812468124781248812498125081251812528125381254812558125681257812588125981260812618126281263812648126581266812678126881269812708127181272812738127481275812768127781278812798128081281812828128381284812858128681287812888128981290812918129281293812948129581296812978129881299813008130181302813038130481305813068130781308813098131081311813128131381314813158131681317813188131981320813218132281323813248132581326813278132881329813308133181332813338133481335813368133781338813398134081341813428134381344813458134681347813488134981350813518135281353813548135581356813578135881359813608136181362813638136481365813668136781368813698137081371813728137381374813758137681377813788137981380813818138281383813848138581386813878138881389813908139181392813938139481395813968139781398813998140081401814028140381404814058140681407814088140981410814118141281413814148141581416814178141881419814208142181422814238142481425814268142781428814298143081431814328143381434814358143681437814388143981440814418144281443814448144581446814478144881449814508145181452814538145481455814568145781458814598146081461814628146381464814658146681467814688146981470814718147281473814748147581476814778147881479814808148181482814838148481485814868148781488814898149081491814928149381494814958149681497814988149981500815018150281503815048150581506815078150881509815108151181512815138151481515815168151781518815198152081521815228152381524815258152681527815288152981530815318153281533815348153581536815378153881539815408154181542815438154481545815468154781548815498155081551815528155381554815558155681557815588155981560815618156281563815648156581566815678156881569815708157181572815738157481575815768157781578815798158081581815828158381584815858158681587815888158981590815918159281593815948159581596815978159881599816008160181602816038160481605816068160781608816098161081611816128161381614816158161681617816188161981620816218162281623816248162581626816278162881629816308163181632816338163481635816368163781638816398164081641816428164381644816458164681647816488164981650816518165281653816548165581656816578165881659816608166181662816638166481665816668166781668816698167081671816728167381674816758167681677816788167981680816818168281683816848168581686816878168881689816908169181692816938169481695816968169781698816998170081701817028170381704817058170681707817088170981710817118171281713817148171581716817178171881719817208172181722817238172481725817268172781728817298173081731817328173381734817358173681737817388173981740817418174281743817448174581746817478174881749817508175181752817538175481755817568175781758817598176081761817628176381764817658176681767817688176981770817718177281773817748177581776817778177881779817808178181782817838178481785817868178781788817898179081791817928179381794817958179681797817988179981800818018180281803818048180581806818078180881809818108181181812818138181481815818168181781818818198182081821818228182381824818258182681827818288182981830818318183281833818348183581836818378183881839818408184181842818438184481845818468184781848818498185081851818528185381854818558185681857818588185981860818618186281863818648186581866818678186881869818708187181872818738187481875818768187781878818798188081881818828188381884818858188681887818888188981890818918189281893818948189581896818978189881899819008190181902819038190481905819068190781908819098191081911819128191381914819158191681917819188191981920819218192281923819248192581926819278192881929819308193181932819338193481935819368193781938819398194081941819428194381944819458194681947819488194981950819518195281953819548195581956819578195881959819608196181962819638196481965819668196781968819698197081971819728197381974819758197681977819788197981980819818198281983819848198581986819878198881989819908199181992819938199481995819968199781998819998200082001820028200382004820058200682007820088200982010820118201282013820148201582016820178201882019820208202182022820238202482025820268202782028820298203082031820328203382034820358203682037820388203982040820418204282043820448204582046820478204882049820508205182052820538205482055820568205782058820598206082061820628206382064820658206682067820688206982070820718207282073820748207582076820778207882079820808208182082820838208482085820868208782088820898209082091820928209382094820958209682097820988209982100821018210282103821048210582106821078210882109821108211182112821138211482115821168211782118821198212082121821228212382124821258212682127821288212982130821318213282133821348213582136821378213882139821408214182142821438214482145821468214782148821498215082151821528215382154821558215682157821588215982160821618216282163821648216582166821678216882169821708217182172821738217482175821768217782178821798218082181821828218382184821858218682187821888218982190821918219282193821948219582196821978219882199822008220182202822038220482205822068220782208822098221082211822128221382214822158221682217822188221982220822218222282223822248222582226822278222882229822308223182232822338223482235822368223782238822398224082241822428224382244822458224682247822488224982250822518225282253822548225582256822578225882259822608226182262822638226482265822668226782268822698227082271822728227382274822758227682277822788227982280822818228282283822848228582286822878228882289822908229182292822938229482295822968229782298822998230082301823028230382304823058230682307823088230982310823118231282313823148231582316823178231882319823208232182322823238232482325823268232782328823298233082331823328233382334823358233682337823388233982340823418234282343823448234582346823478234882349823508235182352823538235482355823568235782358823598236082361823628236382364823658236682367823688236982370823718237282373823748237582376823778237882379823808238182382823838238482385823868238782388823898239082391823928239382394823958239682397823988239982400824018240282403824048240582406824078240882409824108241182412824138241482415824168241782418824198242082421824228242382424824258242682427824288242982430824318243282433824348243582436824378243882439824408244182442824438244482445824468244782448824498245082451824528245382454824558245682457824588245982460824618246282463824648246582466824678246882469824708247182472824738247482475824768247782478824798248082481824828248382484824858248682487824888248982490824918249282493824948249582496824978249882499825008250182502825038250482505825068250782508825098251082511825128251382514825158251682517825188251982520825218252282523825248252582526825278252882529825308253182532825338253482535825368253782538825398254082541825428254382544825458254682547825488254982550825518255282553825548255582556825578255882559825608256182562825638256482565825668256782568825698257082571825728257382574825758257682577825788257982580825818258282583825848258582586825878258882589825908259182592825938259482595825968259782598825998260082601826028260382604826058260682607826088260982610826118261282613826148261582616826178261882619826208262182622826238262482625826268262782628826298263082631826328263382634826358263682637826388263982640826418264282643826448264582646826478264882649826508265182652826538265482655826568265782658826598266082661826628266382664826658266682667826688266982670826718267282673826748267582676826778267882679826808268182682826838268482685826868268782688826898269082691826928269382694826958269682697826988269982700827018270282703827048270582706827078270882709827108271182712827138271482715827168271782718827198272082721827228272382724827258272682727827288272982730827318273282733827348273582736827378273882739827408274182742827438274482745827468274782748827498275082751827528275382754827558275682757827588275982760827618276282763827648276582766827678276882769827708277182772827738277482775827768277782778827798278082781827828278382784827858278682787827888278982790827918279282793827948279582796827978279882799828008280182802828038280482805828068280782808828098281082811828128281382814828158281682817828188281982820828218282282823828248282582826828278282882829828308283182832828338283482835828368283782838828398284082841828428284382844828458284682847828488284982850828518285282853828548285582856828578285882859828608286182862828638286482865828668286782868828698287082871828728287382874828758287682877828788287982880828818288282883828848288582886828878288882889828908289182892828938289482895828968289782898828998290082901829028290382904829058290682907829088290982910829118291282913829148291582916829178291882919829208292182922829238292482925829268292782928829298293082931829328293382934829358293682937829388293982940829418294282943829448294582946829478294882949829508295182952829538295482955829568295782958829598296082961829628296382964829658296682967829688296982970829718297282973829748297582976829778297882979829808298182982829838298482985829868298782988829898299082991829928299382994829958299682997829988299983000830018300283003830048300583006830078300883009830108301183012830138301483015830168301783018830198302083021830228302383024830258302683027830288302983030830318303283033830348303583036830378303883039830408304183042830438304483045830468304783048830498305083051830528305383054830558305683057830588305983060830618306283063830648306583066830678306883069830708307183072830738307483075830768307783078830798308083081830828308383084830858308683087830888308983090830918309283093830948309583096830978309883099831008310183102831038310483105831068310783108831098311083111831128311383114831158311683117831188311983120831218312283123831248312583126831278312883129831308313183132831338313483135831368313783138831398314083141831428314383144831458314683147831488314983150831518315283153831548315583156831578315883159831608316183162831638316483165831668316783168831698317083171831728317383174831758317683177831788317983180831818318283183831848318583186831878318883189831908319183192831938319483195831968319783198831998320083201832028320383204832058320683207832088320983210832118321283213832148321583216832178321883219832208322183222832238322483225832268322783228832298323083231832328323383234832358323683237832388323983240832418324283243832448324583246832478324883249832508325183252832538325483255832568325783258832598326083261832628326383264832658326683267832688326983270832718327283273832748327583276832778327883279832808328183282832838328483285832868328783288832898329083291832928329383294832958329683297832988329983300833018330283303833048330583306833078330883309833108331183312833138331483315833168331783318833198332083321833228332383324833258332683327833288332983330833318333283333833348333583336833378333883339833408334183342833438334483345833468334783348833498335083351833528335383354833558335683357833588335983360833618336283363833648336583366833678336883369833708337183372833738337483375833768337783378833798338083381833828338383384833858338683387833888338983390833918339283393833948339583396833978339883399834008340183402834038340483405834068340783408834098341083411834128341383414834158341683417834188341983420834218342283423834248342583426834278342883429834308343183432834338343483435834368343783438834398344083441834428344383444834458344683447834488344983450834518345283453834548345583456834578345883459834608346183462834638346483465834668346783468834698347083471834728347383474834758347683477834788347983480834818348283483834848348583486834878348883489834908349183492834938349483495834968349783498834998350083501835028350383504835058350683507835088350983510835118351283513835148351583516835178351883519835208352183522835238352483525835268352783528835298353083531835328353383534835358353683537835388353983540835418354283543835448354583546835478354883549835508355183552835538355483555835568355783558835598356083561835628356383564835658356683567835688356983570835718357283573835748357583576835778357883579835808358183582835838358483585835868358783588835898359083591835928359383594835958359683597835988359983600836018360283603836048360583606836078360883609836108361183612836138361483615836168361783618836198362083621836228362383624836258362683627836288362983630836318363283633836348363583636836378363883639836408364183642836438364483645836468364783648836498365083651836528365383654836558365683657836588365983660836618366283663836648366583666836678366883669836708367183672836738367483675836768367783678836798368083681836828368383684836858368683687836888368983690836918369283693836948369583696836978369883699837008370183702837038370483705837068370783708837098371083711837128371383714837158371683717837188371983720837218372283723837248372583726837278372883729837308373183732837338373483735837368373783738837398374083741837428374383744837458374683747837488374983750837518375283753837548375583756837578375883759837608376183762837638376483765837668376783768837698377083771837728377383774837758377683777837788377983780837818378283783837848378583786837878378883789837908379183792837938379483795837968379783798837998380083801838028380383804838058380683807838088380983810838118381283813838148381583816838178381883819838208382183822838238382483825838268382783828838298383083831838328383383834838358383683837838388383983840838418384283843838448384583846838478384883849838508385183852838538385483855838568385783858838598386083861838628386383864838658386683867838688386983870838718387283873838748387583876838778387883879838808388183882838838388483885838868388783888838898389083891838928389383894838958389683897838988389983900839018390283903839048390583906839078390883909839108391183912839138391483915839168391783918839198392083921839228392383924839258392683927839288392983930839318393283933839348393583936839378393883939839408394183942839438394483945839468394783948839498395083951839528395383954839558395683957839588395983960839618396283963839648396583966839678396883969839708397183972839738397483975839768397783978839798398083981839828398383984839858398683987839888398983990839918399283993839948399583996839978399883999840008400184002840038400484005840068400784008840098401084011840128401384014840158401684017840188401984020840218402284023840248402584026840278402884029840308403184032840338403484035840368403784038840398404084041840428404384044840458404684047840488404984050840518405284053840548405584056840578405884059840608406184062840638406484065840668406784068840698407084071840728407384074840758407684077840788407984080840818408284083840848408584086840878408884089840908409184092840938409484095840968409784098840998410084101841028410384104841058410684107841088410984110841118411284113841148411584116841178411884119841208412184122841238412484125841268412784128841298413084131841328413384134841358413684137841388413984140841418414284143841448414584146841478414884149841508415184152841538415484155841568415784158841598416084161841628416384164841658416684167841688416984170841718417284173841748417584176841778417884179841808418184182841838418484185841868418784188841898419084191841928419384194841958419684197841988419984200842018420284203842048420584206842078420884209842108421184212842138421484215842168421784218842198422084221842228422384224842258422684227842288422984230842318423284233842348423584236842378423884239842408424184242842438424484245842468424784248842498425084251842528425384254842558425684257842588425984260842618426284263842648426584266842678426884269842708427184272842738427484275842768427784278842798428084281842828428384284842858428684287842888428984290842918429284293842948429584296842978429884299843008430184302843038430484305843068430784308843098431084311843128431384314843158431684317843188431984320843218432284323843248432584326843278432884329843308433184332843338433484335843368433784338843398434084341843428434384344843458434684347843488434984350843518435284353843548435584356843578435884359843608436184362843638436484365843668436784368843698437084371843728437384374843758437684377843788437984380843818438284383843848438584386843878438884389843908439184392843938439484395843968439784398843998440084401844028440384404844058440684407844088440984410844118441284413844148441584416844178441884419844208442184422844238442484425844268442784428844298443084431844328443384434844358443684437844388443984440844418444284443844448444584446844478444884449844508445184452844538445484455844568445784458844598446084461844628446384464844658446684467844688446984470844718447284473844748447584476844778447884479844808448184482844838448484485844868448784488844898449084491844928449384494844958449684497844988449984500845018450284503845048450584506845078450884509845108451184512845138451484515845168451784518845198452084521845228452384524845258452684527845288452984530845318453284533845348453584536845378453884539845408454184542845438454484545845468454784548845498455084551845528455384554845558455684557845588455984560845618456284563845648456584566845678456884569845708457184572845738457484575845768457784578845798458084581845828458384584845858458684587845888458984590845918459284593845948459584596845978459884599846008460184602846038460484605846068460784608846098461084611846128461384614846158461684617846188461984620846218462284623846248462584626846278462884629846308463184632846338463484635846368463784638846398464084641846428464384644846458464684647846488464984650846518465284653846548465584656846578465884659846608466184662846638466484665846668466784668846698467084671846728467384674846758467684677846788467984680846818468284683846848468584686846878468884689846908469184692846938469484695846968469784698846998470084701847028470384704847058470684707847088470984710847118471284713847148471584716847178471884719847208472184722847238472484725847268472784728847298473084731847328473384734847358473684737847388473984740847418474284743847448474584746847478474884749847508475184752847538475484755847568475784758847598476084761847628476384764847658476684767847688476984770847718477284773847748477584776847778477884779847808478184782847838478484785847868478784788847898479084791847928479384794847958479684797847988479984800848018480284803848048480584806848078480884809848108481184812848138481484815848168481784818848198482084821848228482384824848258482684827848288482984830848318483284833848348483584836848378483884839848408484184842848438484484845848468484784848848498485084851848528485384854848558485684857848588485984860848618486284863848648486584866848678486884869848708487184872848738487484875848768487784878848798488084881848828488384884848858488684887848888488984890848918489284893848948489584896848978489884899849008490184902849038490484905849068490784908849098491084911849128491384914849158491684917849188491984920849218492284923849248492584926849278492884929849308493184932849338493484935849368493784938849398494084941849428494384944849458494684947849488494984950849518495284953849548495584956849578495884959849608496184962849638496484965849668496784968849698497084971849728497384974849758497684977849788497984980849818498284983849848498584986849878498884989849908499184992849938499484995849968499784998849998500085001850028500385004850058500685007850088500985010850118501285013850148501585016850178501885019850208502185022850238502485025850268502785028850298503085031850328503385034850358503685037850388503985040850418504285043850448504585046850478504885049850508505185052850538505485055850568505785058850598506085061850628506385064850658506685067850688506985070850718507285073850748507585076850778507885079850808508185082850838508485085850868508785088850898509085091850928509385094850958509685097850988509985100851018510285103851048510585106851078510885109851108511185112851138511485115851168511785118851198512085121851228512385124851258512685127851288512985130851318513285133851348513585136851378513885139851408514185142851438514485145851468514785148851498515085151851528515385154851558515685157851588515985160851618516285163851648516585166851678516885169851708517185172851738517485175851768517785178851798518085181851828518385184851858518685187851888518985190851918519285193851948519585196851978519885199852008520185202852038520485205852068520785208852098521085211852128521385214852158521685217852188521985220852218522285223852248522585226852278522885229852308523185232852338523485235852368523785238852398524085241852428524385244852458524685247852488524985250852518525285253852548525585256852578525885259852608526185262852638526485265852668526785268852698527085271852728527385274852758527685277852788527985280852818528285283852848528585286852878528885289852908529185292852938529485295852968529785298852998530085301853028530385304853058530685307853088530985310853118531285313853148531585316853178531885319853208532185322853238532485325853268532785328853298533085331853328533385334853358533685337853388533985340853418534285343853448534585346853478534885349853508535185352853538535485355853568535785358853598536085361853628536385364853658536685367853688536985370853718537285373853748537585376853778537885379853808538185382853838538485385853868538785388853898539085391853928539385394853958539685397853988539985400854018540285403854048540585406854078540885409854108541185412854138541485415854168541785418854198542085421854228542385424854258542685427854288542985430854318543285433854348543585436854378543885439854408544185442854438544485445854468544785448854498545085451854528545385454854558545685457854588545985460854618546285463854648546585466854678546885469854708547185472854738547485475854768547785478854798548085481854828548385484854858548685487854888548985490854918549285493854948549585496854978549885499855008550185502855038550485505855068550785508855098551085511855128551385514855158551685517855188551985520855218552285523855248552585526855278552885529855308553185532855338553485535855368553785538855398554085541855428554385544855458554685547855488554985550855518555285553855548555585556855578555885559855608556185562855638556485565855668556785568855698557085571855728557385574855758557685577855788557985580855818558285583855848558585586855878558885589855908559185592855938559485595855968559785598855998560085601856028560385604856058560685607856088560985610856118561285613856148561585616856178561885619856208562185622856238562485625856268562785628856298563085631856328563385634856358563685637856388563985640856418564285643856448564585646856478564885649856508565185652856538565485655856568565785658856598566085661856628566385664856658566685667856688566985670856718567285673856748567585676856778567885679856808568185682856838568485685856868568785688856898569085691856928569385694856958569685697856988569985700857018570285703857048570585706857078570885709857108571185712857138571485715857168571785718857198572085721857228572385724857258572685727857288572985730857318573285733857348573585736857378573885739857408574185742857438574485745857468574785748857498575085751857528575385754857558575685757857588575985760857618576285763857648576585766857678576885769857708577185772857738577485775857768577785778857798578085781857828578385784857858578685787857888578985790857918579285793857948579585796857978579885799858008580185802858038580485805858068580785808858098581085811858128581385814858158581685817858188581985820858218582285823858248582585826858278582885829858308583185832858338583485835858368583785838858398584085841858428584385844858458584685847858488584985850858518585285853858548585585856858578585885859858608586185862858638586485865858668586785868858698587085871858728587385874858758587685877858788587985880858818588285883858848588585886858878588885889858908589185892858938589485895858968589785898858998590085901859028590385904859058590685907859088590985910859118591285913859148591585916859178591885919859208592185922859238592485925859268592785928859298593085931859328593385934859358593685937859388593985940859418594285943859448594585946859478594885949859508595185952859538595485955859568595785958859598596085961859628596385964859658596685967859688596985970859718597285973859748597585976859778597885979859808598185982859838598485985859868598785988859898599085991859928599385994859958599685997859988599986000860018600286003860048600586006860078600886009860108601186012860138601486015860168601786018860198602086021860228602386024860258602686027860288602986030860318603286033860348603586036860378603886039860408604186042860438604486045860468604786048860498605086051860528605386054860558605686057860588605986060860618606286063860648606586066860678606886069860708607186072860738607486075860768607786078860798608086081860828608386084860858608686087860888608986090860918609286093860948609586096860978609886099861008610186102861038610486105861068610786108861098611086111861128611386114861158611686117861188611986120861218612286123861248612586126861278612886129861308613186132861338613486135861368613786138861398614086141861428614386144861458614686147861488614986150861518615286153861548615586156861578615886159861608616186162861638616486165861668616786168861698617086171861728617386174861758617686177861788617986180861818618286183861848618586186861878618886189861908619186192861938619486195861968619786198861998620086201862028620386204862058620686207862088620986210862118621286213862148621586216862178621886219862208622186222862238622486225862268622786228862298623086231862328623386234862358623686237862388623986240862418624286243862448624586246862478624886249862508625186252862538625486255862568625786258862598626086261862628626386264862658626686267862688626986270862718627286273862748627586276862778627886279862808628186282862838628486285862868628786288862898629086291862928629386294862958629686297862988629986300863018630286303863048630586306863078630886309863108631186312863138631486315863168631786318863198632086321863228632386324863258632686327863288632986330863318633286333863348633586336863378633886339863408634186342863438634486345863468634786348863498635086351863528635386354863558635686357863588635986360863618636286363863648636586366863678636886369863708637186372863738637486375863768637786378863798638086381863828638386384863858638686387863888638986390863918639286393863948639586396863978639886399864008640186402864038640486405864068640786408864098641086411864128641386414864158641686417864188641986420864218642286423864248642586426864278642886429864308643186432864338643486435864368643786438864398644086441864428644386444864458644686447864488644986450864518645286453864548645586456864578645886459864608646186462864638646486465864668646786468864698647086471864728647386474864758647686477864788647986480864818648286483864848648586486864878648886489864908649186492864938649486495864968649786498864998650086501865028650386504865058650686507865088650986510865118651286513865148651586516865178651886519865208652186522865238652486525865268652786528865298653086531865328653386534865358653686537865388653986540865418654286543865448654586546865478654886549865508655186552865538655486555865568655786558865598656086561865628656386564865658656686567865688656986570865718657286573865748657586576865778657886579865808658186582865838658486585865868658786588865898659086591865928659386594865958659686597865988659986600866018660286603866048660586606866078660886609866108661186612866138661486615866168661786618866198662086621866228662386624866258662686627866288662986630866318663286633866348663586636866378663886639866408664186642866438664486645866468664786648866498665086651866528665386654866558665686657866588665986660866618666286663866648666586666866678666886669866708667186672866738667486675866768667786678866798668086681866828668386684866858668686687866888668986690866918669286693866948669586696866978669886699867008670186702867038670486705867068670786708867098671086711867128671386714867158671686717867188671986720867218672286723867248672586726867278672886729867308673186732867338673486735867368673786738867398674086741867428674386744867458674686747867488674986750867518675286753867548675586756867578675886759867608676186762867638676486765867668676786768867698677086771867728677386774867758677686777867788677986780867818678286783867848678586786867878678886789867908679186792867938679486795867968679786798867998680086801868028680386804868058680686807868088680986810868118681286813868148681586816868178681886819868208682186822868238682486825868268682786828868298683086831868328683386834868358683686837868388683986840868418684286843868448684586846868478684886849868508685186852868538685486855868568685786858868598686086861868628686386864868658686686867868688686986870868718687286873868748687586876868778687886879868808688186882868838688486885868868688786888868898689086891868928689386894868958689686897868988689986900869018690286903869048690586906869078690886909869108691186912869138691486915869168691786918869198692086921869228692386924869258692686927869288692986930869318693286933869348693586936869378693886939869408694186942869438694486945869468694786948869498695086951869528695386954869558695686957869588695986960869618696286963869648696586966869678696886969869708697186972869738697486975869768697786978869798698086981869828698386984869858698686987869888698986990869918699286993869948699586996869978699886999870008700187002870038700487005870068700787008870098701087011870128701387014870158701687017870188701987020870218702287023870248702587026870278702887029870308703187032870338703487035870368703787038870398704087041870428704387044870458704687047870488704987050870518705287053870548705587056870578705887059870608706187062870638706487065870668706787068870698707087071870728707387074870758707687077870788707987080870818708287083870848708587086870878708887089870908709187092870938709487095870968709787098870998710087101871028710387104871058710687107871088710987110871118711287113871148711587116871178711887119871208712187122871238712487125871268712787128871298713087131871328713387134871358713687137871388713987140871418714287143871448714587146871478714887149871508715187152871538715487155871568715787158871598716087161871628716387164871658716687167871688716987170871718717287173871748717587176871778717887179871808718187182871838718487185871868718787188871898719087191871928719387194871958719687197871988719987200872018720287203872048720587206872078720887209872108721187212872138721487215872168721787218872198722087221872228722387224872258722687227872288722987230872318723287233872348723587236872378723887239872408724187242872438724487245872468724787248872498725087251872528725387254872558725687257872588725987260872618726287263872648726587266872678726887269872708727187272872738727487275872768727787278872798728087281872828728387284872858728687287872888728987290872918729287293872948729587296872978729887299873008730187302873038730487305873068730787308873098731087311873128731387314873158731687317873188731987320873218732287323873248732587326873278732887329873308733187332873338733487335873368733787338873398734087341873428734387344873458734687347873488734987350873518735287353873548735587356873578735887359873608736187362873638736487365873668736787368873698737087371873728737387374873758737687377873788737987380873818738287383873848738587386873878738887389873908739187392873938739487395873968739787398873998740087401874028740387404874058740687407874088740987410874118741287413874148741587416874178741887419874208742187422874238742487425874268742787428874298743087431874328743387434874358743687437874388743987440874418744287443874448744587446874478744887449874508745187452874538745487455874568745787458874598746087461874628746387464874658746687467874688746987470874718747287473874748747587476874778747887479874808748187482874838748487485874868748787488874898749087491874928749387494874958749687497874988749987500875018750287503875048750587506875078750887509875108751187512875138751487515875168751787518875198752087521875228752387524875258752687527875288752987530875318753287533875348753587536875378753887539875408754187542875438754487545875468754787548875498755087551875528755387554875558755687557875588755987560875618756287563875648756587566875678756887569875708757187572875738757487575875768757787578875798758087581875828758387584875858758687587875888758987590875918759287593875948759587596875978759887599876008760187602876038760487605876068760787608876098761087611876128761387614876158761687617876188761987620876218762287623876248762587626876278762887629876308763187632876338763487635876368763787638876398764087641876428764387644876458764687647876488764987650876518765287653876548765587656876578765887659876608766187662876638766487665876668766787668876698767087671876728767387674876758767687677876788767987680876818768287683876848768587686876878768887689876908769187692876938769487695876968769787698876998770087701877028770387704877058770687707877088770987710877118771287713877148771587716877178771887719877208772187722877238772487725877268772787728877298773087731877328773387734877358773687737877388773987740877418774287743877448774587746877478774887749877508775187752877538775487755877568775787758877598776087761877628776387764877658776687767877688776987770877718777287773877748777587776877778777887779877808778187782877838778487785877868778787788877898779087791877928779387794877958779687797877988779987800878018780287803878048780587806878078780887809878108781187812878138781487815878168781787818878198782087821878228782387824878258782687827878288782987830878318783287833878348783587836878378783887839878408784187842878438784487845878468784787848878498785087851878528785387854878558785687857878588785987860878618786287863878648786587866878678786887869878708787187872878738787487875878768787787878878798788087881878828788387884878858788687887878888788987890878918789287893878948789587896878978789887899879008790187902879038790487905879068790787908879098791087911879128791387914879158791687917879188791987920879218792287923879248792587926879278792887929879308793187932879338793487935879368793787938879398794087941879428794387944879458794687947879488794987950879518795287953879548795587956879578795887959879608796187962879638796487965879668796787968879698797087971879728797387974879758797687977879788797987980879818798287983879848798587986879878798887989879908799187992879938799487995879968799787998879998800088001880028800388004880058800688007880088800988010880118801288013880148801588016880178801888019880208802188022880238802488025880268802788028880298803088031880328803388034880358803688037880388803988040880418804288043880448804588046880478804888049880508805188052880538805488055880568805788058880598806088061880628806388064880658806688067880688806988070880718807288073880748807588076880778807888079880808808188082880838808488085880868808788088880898809088091880928809388094880958809688097880988809988100881018810288103881048810588106881078810888109881108811188112881138811488115881168811788118881198812088121881228812388124881258812688127881288812988130881318813288133881348813588136881378813888139881408814188142881438814488145881468814788148881498815088151881528815388154881558815688157881588815988160881618816288163881648816588166881678816888169881708817188172881738817488175881768817788178881798818088181881828818388184881858818688187881888818988190881918819288193881948819588196881978819888199882008820188202882038820488205882068820788208882098821088211882128821388214882158821688217882188821988220882218822288223882248822588226882278822888229882308823188232882338823488235882368823788238882398824088241882428824388244882458824688247882488824988250882518825288253882548825588256882578825888259882608826188262882638826488265882668826788268882698827088271882728827388274882758827688277882788827988280882818828288283882848828588286882878828888289882908829188292882938829488295882968829788298882998830088301883028830388304883058830688307883088830988310883118831288313883148831588316883178831888319883208832188322883238832488325883268832788328883298833088331883328833388334883358833688337883388833988340883418834288343883448834588346883478834888349883508835188352883538835488355883568835788358883598836088361883628836388364883658836688367883688836988370883718837288373883748837588376883778837888379883808838188382883838838488385883868838788388883898839088391883928839388394883958839688397883988839988400884018840288403884048840588406884078840888409884108841188412884138841488415884168841788418884198842088421884228842388424884258842688427884288842988430884318843288433884348843588436884378843888439884408844188442884438844488445884468844788448884498845088451884528845388454884558845688457884588845988460884618846288463884648846588466884678846888469884708847188472884738847488475884768847788478884798848088481884828848388484884858848688487884888848988490884918849288493884948849588496884978849888499885008850188502885038850488505885068850788508885098851088511885128851388514885158851688517885188851988520885218852288523885248852588526885278852888529885308853188532885338853488535885368853788538885398854088541885428854388544885458854688547885488854988550885518855288553885548855588556885578855888559885608856188562885638856488565885668856788568885698857088571885728857388574885758857688577885788857988580885818858288583885848858588586885878858888589885908859188592885938859488595885968859788598885998860088601886028860388604886058860688607886088860988610886118861288613886148861588616886178861888619886208862188622886238862488625886268862788628886298863088631886328863388634886358863688637886388863988640886418864288643886448864588646886478864888649886508865188652886538865488655886568865788658886598866088661886628866388664886658866688667886688866988670886718867288673886748867588676886778867888679886808868188682886838868488685886868868788688886898869088691886928869388694886958869688697886988869988700887018870288703887048870588706887078870888709887108871188712887138871488715887168871788718887198872088721887228872388724887258872688727887288872988730887318873288733887348873588736887378873888739887408874188742887438874488745887468874788748887498875088751887528875388754887558875688757887588875988760887618876288763887648876588766887678876888769887708877188772887738877488775887768877788778887798878088781887828878388784887858878688787887888878988790887918879288793887948879588796887978879888799888008880188802888038880488805888068880788808888098881088811888128881388814888158881688817888188881988820888218882288823888248882588826888278882888829888308883188832888338883488835888368883788838888398884088841888428884388844888458884688847888488884988850888518885288853888548885588856888578885888859888608886188862888638886488865888668886788868888698887088871888728887388874888758887688877888788887988880888818888288883888848888588886888878888888889888908889188892888938889488895888968889788898888998890088901889028890388904889058890688907889088890988910889118891288913889148891588916889178891888919889208892188922889238892488925889268892788928889298893088931889328893388934889358893688937889388893988940889418894288943889448894588946889478894888949889508895188952889538895488955889568895788958889598896088961889628896388964889658896688967889688896988970889718897288973889748897588976889778897888979889808898188982889838898488985889868898788988889898899088991889928899388994889958899688997889988899989000890018900289003890048900589006890078900889009890108901189012890138901489015890168901789018890198902089021890228902389024890258902689027890288902989030890318903289033890348903589036890378903889039890408904189042890438904489045890468904789048890498905089051890528905389054890558905689057890588905989060890618906289063890648906589066890678906889069890708907189072890738907489075890768907789078890798908089081890828908389084890858908689087890888908989090890918909289093890948909589096890978909889099891008910189102891038910489105891068910789108891098911089111891128911389114891158911689117891188911989120891218912289123891248912589126891278912889129891308913189132891338913489135891368913789138891398914089141891428914389144891458914689147891488914989150891518915289153891548915589156891578915889159891608916189162891638916489165891668916789168891698917089171891728917389174891758917689177891788917989180891818918289183891848918589186891878918889189891908919189192891938919489195891968919789198891998920089201892028920389204892058920689207892088920989210892118921289213892148921589216892178921889219892208922189222892238922489225892268922789228892298923089231892328923389234892358923689237892388923989240892418924289243892448924589246892478924889249892508925189252892538925489255892568925789258892598926089261892628926389264892658926689267892688926989270892718927289273892748927589276892778927889279892808928189282892838928489285892868928789288892898929089291892928929389294892958929689297892988929989300893018930289303893048930589306893078930889309893108931189312893138931489315893168931789318893198932089321893228932389324893258932689327893288932989330893318933289333893348933589336893378933889339893408934189342893438934489345893468934789348893498935089351893528935389354893558935689357893588935989360893618936289363893648936589366893678936889369893708937189372893738937489375893768937789378893798938089381893828938389384893858938689387893888938989390893918939289393893948939589396893978939889399894008940189402894038940489405894068940789408894098941089411894128941389414894158941689417894188941989420894218942289423894248942589426894278942889429894308943189432894338943489435894368943789438894398944089441894428944389444894458944689447894488944989450894518945289453894548945589456894578945889459894608946189462894638946489465894668946789468894698947089471894728947389474894758947689477894788947989480894818948289483894848948589486894878948889489894908949189492894938949489495894968949789498894998950089501895028950389504895058950689507895088950989510895118951289513895148951589516895178951889519895208952189522895238952489525895268952789528895298953089531895328953389534895358953689537895388953989540895418954289543895448954589546895478954889549895508955189552895538955489555895568955789558895598956089561895628956389564895658956689567895688956989570895718957289573895748957589576895778957889579895808958189582895838958489585895868958789588895898959089591895928959389594895958959689597895988959989600896018960289603896048960589606896078960889609896108961189612896138961489615896168961789618896198962089621896228962389624896258962689627896288962989630896318963289633896348963589636896378963889639896408964189642896438964489645896468964789648896498965089651896528965389654896558965689657896588965989660896618966289663896648966589666896678966889669896708967189672896738967489675896768967789678896798968089681896828968389684896858968689687896888968989690896918969289693896948969589696896978969889699897008970189702897038970489705897068970789708897098971089711897128971389714897158971689717897188971989720897218972289723897248972589726897278972889729897308973189732897338973489735897368973789738897398974089741897428974389744897458974689747897488974989750897518975289753897548975589756897578975889759897608976189762897638976489765897668976789768897698977089771897728977389774897758977689777897788977989780897818978289783897848978589786897878978889789897908979189792897938979489795897968979789798897998980089801898028980389804898058980689807898088980989810898118981289813898148981589816898178981889819898208982189822898238982489825898268982789828898298983089831898328983389834898358983689837898388983989840898418984289843898448984589846898478984889849898508985189852898538985489855898568985789858898598986089861898628986389864898658986689867898688986989870898718987289873898748987589876898778987889879898808988189882898838988489885898868988789888898898989089891898928989389894898958989689897898988989989900899018990289903899048990589906899078990889909899108991189912899138991489915899168991789918899198992089921899228992389924899258992689927899288992989930899318993289933899348993589936899378993889939899408994189942899438994489945899468994789948899498995089951899528995389954899558995689957899588995989960899618996289963899648996589966899678996889969899708997189972899738997489975899768997789978899798998089981899828998389984899858998689987899888998989990899918999289993899948999589996899978999889999900009000190002900039000490005900069000790008900099001090011900129001390014900159001690017900189001990020900219002290023900249002590026900279002890029900309003190032900339003490035900369003790038900399004090041900429004390044900459004690047900489004990050900519005290053900549005590056900579005890059900609006190062900639006490065900669006790068900699007090071900729007390074900759007690077900789007990080900819008290083900849008590086900879008890089900909009190092900939009490095900969009790098900999010090101901029010390104901059010690107901089010990110901119011290113901149011590116901179011890119901209012190122901239012490125901269012790128901299013090131901329013390134901359013690137901389013990140901419014290143901449014590146901479014890149901509015190152901539015490155901569015790158901599016090161901629016390164901659016690167901689016990170901719017290173901749017590176901779017890179901809018190182901839018490185901869018790188901899019090191901929019390194901959019690197901989019990200902019020290203902049020590206902079020890209902109021190212902139021490215902169021790218902199022090221902229022390224902259022690227902289022990230902319023290233902349023590236902379023890239902409024190242902439024490245902469024790248902499025090251902529025390254902559025690257902589025990260902619026290263902649026590266902679026890269902709027190272902739027490275902769027790278902799028090281902829028390284902859028690287902889028990290902919029290293902949029590296902979029890299903009030190302903039030490305903069030790308903099031090311903129031390314903159031690317903189031990320903219032290323903249032590326903279032890329903309033190332903339033490335903369033790338903399034090341903429034390344903459034690347903489034990350903519035290353903549035590356903579035890359903609036190362903639036490365903669036790368903699037090371903729037390374903759037690377903789037990380903819038290383903849038590386903879038890389903909039190392903939039490395903969039790398903999040090401904029040390404904059040690407904089040990410904119041290413904149041590416904179041890419904209042190422904239042490425904269042790428904299043090431904329043390434904359043690437904389043990440904419044290443904449044590446904479044890449904509045190452904539045490455904569045790458904599046090461904629046390464904659046690467904689046990470904719047290473904749047590476904779047890479904809048190482904839048490485904869048790488904899049090491904929049390494904959049690497904989049990500905019050290503905049050590506905079050890509905109051190512905139051490515905169051790518905199052090521905229052390524905259052690527905289052990530905319053290533905349053590536905379053890539905409054190542905439054490545905469054790548905499055090551905529055390554905559055690557905589055990560905619056290563905649056590566905679056890569905709057190572905739057490575905769057790578905799058090581905829058390584905859058690587905889058990590905919059290593905949059590596905979059890599906009060190602906039060490605906069060790608906099061090611906129061390614906159061690617906189061990620906219062290623906249062590626906279062890629906309063190632906339063490635906369063790638906399064090641906429064390644906459064690647906489064990650906519065290653906549065590656906579065890659906609066190662906639066490665906669066790668906699067090671906729067390674906759067690677906789067990680906819068290683906849068590686906879068890689906909069190692906939069490695906969069790698906999070090701907029070390704907059070690707907089070990710907119071290713907149071590716907179071890719907209072190722907239072490725907269072790728907299073090731907329073390734907359073690737907389073990740907419074290743907449074590746907479074890749907509075190752907539075490755907569075790758907599076090761907629076390764907659076690767907689076990770907719077290773907749077590776907779077890779907809078190782907839078490785907869078790788907899079090791907929079390794907959079690797907989079990800908019080290803908049080590806908079080890809908109081190812908139081490815908169081790818908199082090821908229082390824908259082690827908289082990830908319083290833908349083590836908379083890839908409084190842908439084490845908469084790848908499085090851908529085390854908559085690857908589085990860908619086290863908649086590866908679086890869908709087190872908739087490875908769087790878908799088090881908829088390884908859088690887908889088990890908919089290893908949089590896908979089890899909009090190902909039090490905909069090790908909099091090911909129091390914909159091690917909189091990920909219092290923909249092590926909279092890929909309093190932909339093490935909369093790938909399094090941909429094390944909459094690947909489094990950909519095290953909549095590956909579095890959909609096190962909639096490965909669096790968909699097090971909729097390974909759097690977909789097990980909819098290983909849098590986909879098890989909909099190992909939099490995909969099790998909999100091001910029100391004910059100691007910089100991010910119101291013910149101591016910179101891019910209102191022910239102491025910269102791028910299103091031910329103391034910359103691037910389103991040910419104291043910449104591046910479104891049910509105191052910539105491055910569105791058910599106091061910629106391064910659106691067910689106991070910719107291073910749107591076910779107891079910809108191082910839108491085910869108791088910899109091091910929109391094910959109691097910989109991100911019110291103911049110591106911079110891109911109111191112911139111491115911169111791118911199112091121911229112391124911259112691127911289112991130911319113291133911349113591136911379113891139911409114191142911439114491145911469114791148911499115091151911529115391154911559115691157911589115991160911619116291163911649116591166911679116891169911709117191172911739117491175911769117791178911799118091181911829118391184911859118691187911889118991190911919119291193911949119591196911979119891199912009120191202912039120491205912069120791208912099121091211912129121391214912159121691217912189121991220912219122291223912249122591226912279122891229912309123191232912339123491235912369123791238912399124091241912429124391244912459124691247912489124991250912519125291253912549125591256912579125891259912609126191262912639126491265912669126791268912699127091271912729127391274912759127691277912789127991280912819128291283912849128591286912879128891289912909129191292912939129491295912969129791298912999130091301913029130391304913059130691307913089130991310913119131291313913149131591316913179131891319913209132191322913239132491325913269132791328913299133091331913329133391334913359133691337913389133991340913419134291343913449134591346913479134891349913509135191352913539135491355913569135791358913599136091361913629136391364
  1. unit pic32mx764f128l;
  2. interface
  3. {$goto on}
  4. {$modeswitch advancedrecords}
  5. {$INLINE ON}
  6. {$OPTIMIZATION STACKFRAME}
  7. {$L startup.o}
  8. {$PACKRECORDS 2}
  9. type
  10. TBits_1 = 0..1;
  11. TBits_2 = 0..3;
  12. TBits_3 = 0..7;
  13. TBits_4 = 0..15;
  14. TBits_5 = 0..31;
  15. TBits_6 = 0..63;
  16. TBits_7 = 0..127;
  17. TBits_8 = 0..255;
  18. TBits_9 = 0..511;
  19. TBits_10 = 0..1023;
  20. TBits_11 = 0..2047;
  21. TBits_12 = 0..4095;
  22. TBits_13 = 0..8191;
  23. TBits_14 = 0..16383;
  24. TBits_15 = 0..32767;
  25. TBits_16 = 0..65535;
  26. TBits_17 = 0..131071;
  27. TBits_18 = 0..262143;
  28. TBits_19 = 0..524287;
  29. TBits_20 = 0..1048575;
  30. TBits_21 = 0..2097151;
  31. TBits_22 = 0..4194303;
  32. TBits_23 = 0..8388607;
  33. TBits_24 = 0..16777215;
  34. TBits_25 = 0..33554431;
  35. TBits_26 = 0..67108863;
  36. TBits_27 = 0..134217727;
  37. TBits_28 = 0..268435455;
  38. TBits_29 = 0..536870911;
  39. TBits_30 = 0..1073741823;
  40. TBits_31 = 0..2147483647;
  41. TBits_32 = 0..4294967295;
  42. TWDT_WDTCON = record
  43. private
  44. function getON : TBits_1; inline;
  45. function getSWDTPS : TBits_5; inline;
  46. function getSWDTPS0 : TBits_1; inline;
  47. function getSWDTPS1 : TBits_1; inline;
  48. function getSWDTPS2 : TBits_1; inline;
  49. function getSWDTPS3 : TBits_1; inline;
  50. function getSWDTPS4 : TBits_1; inline;
  51. function getWDTCLR : TBits_1; inline;
  52. function getWDTPS : TBits_5; inline;
  53. function getWDTPSTA : TBits_5; inline;
  54. function getw : TBits_32; inline;
  55. procedure setON(thebits : TBits_1); inline;
  56. procedure setSWDTPS(thebits : TBits_5); inline;
  57. procedure setSWDTPS0(thebits : TBits_1); inline;
  58. procedure setSWDTPS1(thebits : TBits_1); inline;
  59. procedure setSWDTPS2(thebits : TBits_1); inline;
  60. procedure setSWDTPS3(thebits : TBits_1); inline;
  61. procedure setSWDTPS4(thebits : TBits_1); inline;
  62. procedure setWDTCLR(thebits : TBits_1); inline;
  63. procedure setWDTPS(thebits : TBits_5); inline;
  64. procedure setWDTPSTA(thebits : TBits_5); inline;
  65. procedure setw(thebits : TBits_32); inline;
  66. public
  67. procedure clearON; inline;
  68. procedure clearSWDTPS0; inline;
  69. procedure clearSWDTPS1; inline;
  70. procedure clearSWDTPS2; inline;
  71. procedure clearSWDTPS3; inline;
  72. procedure clearSWDTPS4; inline;
  73. procedure clearWDTCLR; inline;
  74. procedure setON; inline;
  75. procedure setSWDTPS0; inline;
  76. procedure setSWDTPS1; inline;
  77. procedure setSWDTPS2; inline;
  78. procedure setSWDTPS3; inline;
  79. procedure setSWDTPS4; inline;
  80. procedure setWDTCLR; inline;
  81. property ON : TBits_1 read getON write setON;
  82. property SWDTPS : TBits_5 read getSWDTPS write setSWDTPS;
  83. property SWDTPS0 : TBits_1 read getSWDTPS0 write setSWDTPS0;
  84. property SWDTPS1 : TBits_1 read getSWDTPS1 write setSWDTPS1;
  85. property SWDTPS2 : TBits_1 read getSWDTPS2 write setSWDTPS2;
  86. property SWDTPS3 : TBits_1 read getSWDTPS3 write setSWDTPS3;
  87. property SWDTPS4 : TBits_1 read getSWDTPS4 write setSWDTPS4;
  88. property WDTCLR : TBits_1 read getWDTCLR write setWDTCLR;
  89. property WDTPS : TBits_5 read getWDTPS write setWDTPS;
  90. property WDTPSTA : TBits_5 read getWDTPSTA write setWDTPSTA;
  91. property w : TBits_32 read getw write setw;
  92. end;
  93. type
  94. TWDTRegisters = record
  95. WDTCONbits : TWDT_WDTCON;
  96. WDTCON : longWord;
  97. WDTCONCLR : longWord;
  98. WDTCONSET : longWord;
  99. WDTCONINV : longWord;
  100. end;
  101. TRTCC_RTCCON = record
  102. private
  103. function getCAL : TBits_10; inline;
  104. function getHALFSEC : TBits_1; inline;
  105. function getON : TBits_1; inline;
  106. function getRTCCLKON : TBits_1; inline;
  107. function getRTCOE : TBits_1; inline;
  108. function getRTCSYNC : TBits_1; inline;
  109. function getRTCWREN : TBits_1; inline;
  110. function getRTSECSEL : TBits_1; inline;
  111. function getSIDL : TBits_1; inline;
  112. function getw : TBits_32; inline;
  113. procedure setCAL(thebits : TBits_10); inline;
  114. procedure setHALFSEC(thebits : TBits_1); inline;
  115. procedure setON(thebits : TBits_1); inline;
  116. procedure setRTCCLKON(thebits : TBits_1); inline;
  117. procedure setRTCOE(thebits : TBits_1); inline;
  118. procedure setRTCSYNC(thebits : TBits_1); inline;
  119. procedure setRTCWREN(thebits : TBits_1); inline;
  120. procedure setRTSECSEL(thebits : TBits_1); inline;
  121. procedure setSIDL(thebits : TBits_1); inline;
  122. procedure setw(thebits : TBits_32); inline;
  123. public
  124. procedure clearHALFSEC; inline;
  125. procedure clearON; inline;
  126. procedure clearRTCCLKON; inline;
  127. procedure clearRTCOE; inline;
  128. procedure clearRTCSYNC; inline;
  129. procedure clearRTCWREN; inline;
  130. procedure clearRTSECSEL; inline;
  131. procedure clearSIDL; inline;
  132. procedure setHALFSEC; inline;
  133. procedure setON; inline;
  134. procedure setRTCCLKON; inline;
  135. procedure setRTCOE; inline;
  136. procedure setRTCSYNC; inline;
  137. procedure setRTCWREN; inline;
  138. procedure setRTSECSEL; inline;
  139. procedure setSIDL; inline;
  140. property CAL : TBits_10 read getCAL write setCAL;
  141. property HALFSEC : TBits_1 read getHALFSEC write setHALFSEC;
  142. property ON : TBits_1 read getON write setON;
  143. property RTCCLKON : TBits_1 read getRTCCLKON write setRTCCLKON;
  144. property RTCOE : TBits_1 read getRTCOE write setRTCOE;
  145. property RTCSYNC : TBits_1 read getRTCSYNC write setRTCSYNC;
  146. property RTCWREN : TBits_1 read getRTCWREN write setRTCWREN;
  147. property RTSECSEL : TBits_1 read getRTSECSEL write setRTSECSEL;
  148. property SIDL : TBits_1 read getSIDL write setSIDL;
  149. property w : TBits_32 read getw write setw;
  150. end;
  151. TRTCC_RTCALRM = record
  152. private
  153. function getALRMEN : TBits_1; inline;
  154. function getALRMSYNC : TBits_1; inline;
  155. function getAMASK : TBits_4; inline;
  156. function getARPT : TBits_8; inline;
  157. function getCHIME : TBits_1; inline;
  158. function getPIV : TBits_1; inline;
  159. function getw : TBits_32; inline;
  160. procedure setALRMEN(thebits : TBits_1); inline;
  161. procedure setALRMSYNC(thebits : TBits_1); inline;
  162. procedure setAMASK(thebits : TBits_4); inline;
  163. procedure setARPT(thebits : TBits_8); inline;
  164. procedure setCHIME(thebits : TBits_1); inline;
  165. procedure setPIV(thebits : TBits_1); inline;
  166. procedure setw(thebits : TBits_32); inline;
  167. public
  168. procedure clearALRMEN; inline;
  169. procedure clearALRMSYNC; inline;
  170. procedure clearCHIME; inline;
  171. procedure clearPIV; inline;
  172. procedure setALRMEN; inline;
  173. procedure setALRMSYNC; inline;
  174. procedure setCHIME; inline;
  175. procedure setPIV; inline;
  176. property ALRMEN : TBits_1 read getALRMEN write setALRMEN;
  177. property ALRMSYNC : TBits_1 read getALRMSYNC write setALRMSYNC;
  178. property AMASK : TBits_4 read getAMASK write setAMASK;
  179. property ARPT : TBits_8 read getARPT write setARPT;
  180. property CHIME : TBits_1 read getCHIME write setCHIME;
  181. property PIV : TBits_1 read getPIV write setPIV;
  182. property w : TBits_32 read getw write setw;
  183. end;
  184. TRTCC_RTCTIME = record
  185. private
  186. function getHR01 : TBits_4; inline;
  187. function getHR10 : TBits_4; inline;
  188. function getMIN01 : TBits_4; inline;
  189. function getMIN10 : TBits_4; inline;
  190. function getSEC01 : TBits_4; inline;
  191. function getSEC10 : TBits_4; inline;
  192. function getw : TBits_32; inline;
  193. procedure setHR01(thebits : TBits_4); inline;
  194. procedure setHR10(thebits : TBits_4); inline;
  195. procedure setMIN01(thebits : TBits_4); inline;
  196. procedure setMIN10(thebits : TBits_4); inline;
  197. procedure setSEC01(thebits : TBits_4); inline;
  198. procedure setSEC10(thebits : TBits_4); inline;
  199. procedure setw(thebits : TBits_32); inline;
  200. public
  201. property HR01 : TBits_4 read getHR01 write setHR01;
  202. property HR10 : TBits_4 read getHR10 write setHR10;
  203. property MIN01 : TBits_4 read getMIN01 write setMIN01;
  204. property MIN10 : TBits_4 read getMIN10 write setMIN10;
  205. property SEC01 : TBits_4 read getSEC01 write setSEC01;
  206. property SEC10 : TBits_4 read getSEC10 write setSEC10;
  207. property w : TBits_32 read getw write setw;
  208. end;
  209. TRTCC_RTCDATE = record
  210. private
  211. function getDAY01 : TBits_4; inline;
  212. function getDAY10 : TBits_4; inline;
  213. function getMONTH01 : TBits_4; inline;
  214. function getMONTH10 : TBits_4; inline;
  215. function getWDAY01 : TBits_4; inline;
  216. function getYEAR01 : TBits_4; inline;
  217. function getYEAR10 : TBits_4; inline;
  218. function getw : TBits_32; inline;
  219. procedure setDAY01(thebits : TBits_4); inline;
  220. procedure setDAY10(thebits : TBits_4); inline;
  221. procedure setMONTH01(thebits : TBits_4); inline;
  222. procedure setMONTH10(thebits : TBits_4); inline;
  223. procedure setWDAY01(thebits : TBits_4); inline;
  224. procedure setYEAR01(thebits : TBits_4); inline;
  225. procedure setYEAR10(thebits : TBits_4); inline;
  226. procedure setw(thebits : TBits_32); inline;
  227. public
  228. property DAY01 : TBits_4 read getDAY01 write setDAY01;
  229. property DAY10 : TBits_4 read getDAY10 write setDAY10;
  230. property MONTH01 : TBits_4 read getMONTH01 write setMONTH01;
  231. property MONTH10 : TBits_4 read getMONTH10 write setMONTH10;
  232. property WDAY01 : TBits_4 read getWDAY01 write setWDAY01;
  233. property YEAR01 : TBits_4 read getYEAR01 write setYEAR01;
  234. property YEAR10 : TBits_4 read getYEAR10 write setYEAR10;
  235. property w : TBits_32 read getw write setw;
  236. end;
  237. TRTCC_ALRMTIME = record
  238. private
  239. function getHR01 : TBits_4; inline;
  240. function getHR10 : TBits_4; inline;
  241. function getMIN01 : TBits_4; inline;
  242. function getMIN10 : TBits_4; inline;
  243. function getSEC01 : TBits_4; inline;
  244. function getSEC10 : TBits_4; inline;
  245. function getw : TBits_32; inline;
  246. procedure setHR01(thebits : TBits_4); inline;
  247. procedure setHR10(thebits : TBits_4); inline;
  248. procedure setMIN01(thebits : TBits_4); inline;
  249. procedure setMIN10(thebits : TBits_4); inline;
  250. procedure setSEC01(thebits : TBits_4); inline;
  251. procedure setSEC10(thebits : TBits_4); inline;
  252. procedure setw(thebits : TBits_32); inline;
  253. public
  254. property HR01 : TBits_4 read getHR01 write setHR01;
  255. property HR10 : TBits_4 read getHR10 write setHR10;
  256. property MIN01 : TBits_4 read getMIN01 write setMIN01;
  257. property MIN10 : TBits_4 read getMIN10 write setMIN10;
  258. property SEC01 : TBits_4 read getSEC01 write setSEC01;
  259. property SEC10 : TBits_4 read getSEC10 write setSEC10;
  260. property w : TBits_32 read getw write setw;
  261. end;
  262. TRTCC_ALRMDATE = record
  263. private
  264. function getDAY01 : TBits_4; inline;
  265. function getDAY10 : TBits_4; inline;
  266. function getMONTH01 : TBits_4; inline;
  267. function getMONTH10 : TBits_4; inline;
  268. function getWDAY01 : TBits_4; inline;
  269. function getw : TBits_32; inline;
  270. procedure setDAY01(thebits : TBits_4); inline;
  271. procedure setDAY10(thebits : TBits_4); inline;
  272. procedure setMONTH01(thebits : TBits_4); inline;
  273. procedure setMONTH10(thebits : TBits_4); inline;
  274. procedure setWDAY01(thebits : TBits_4); inline;
  275. procedure setw(thebits : TBits_32); inline;
  276. public
  277. property DAY01 : TBits_4 read getDAY01 write setDAY01;
  278. property DAY10 : TBits_4 read getDAY10 write setDAY10;
  279. property MONTH01 : TBits_4 read getMONTH01 write setMONTH01;
  280. property MONTH10 : TBits_4 read getMONTH10 write setMONTH10;
  281. property WDAY01 : TBits_4 read getWDAY01 write setWDAY01;
  282. property w : TBits_32 read getw write setw;
  283. end;
  284. type
  285. TRTCCRegisters = record
  286. RTCCONbits : TRTCC_RTCCON;
  287. RTCCON : longWord;
  288. RTCCONCLR : longWord;
  289. RTCCONSET : longWord;
  290. RTCCONINV : longWord;
  291. RTCALRMbits : TRTCC_RTCALRM;
  292. RTCALRM : longWord;
  293. RTCALRMCLR : longWord;
  294. RTCALRMSET : longWord;
  295. RTCALRMINV : longWord;
  296. RTCTIMEbits : TRTCC_RTCTIME;
  297. RTCTIME : longWord;
  298. RTCTIMECLR : longWord;
  299. RTCTIMESET : longWord;
  300. RTCTIMEINV : longWord;
  301. RTCDATEbits : TRTCC_RTCDATE;
  302. RTCDATE : longWord;
  303. RTCDATECLR : longWord;
  304. RTCDATESET : longWord;
  305. RTCDATEINV : longWord;
  306. ALRMTIMEbits : TRTCC_ALRMTIME;
  307. ALRMTIME : longWord;
  308. ALRMTIMECLR : longWord;
  309. ALRMTIMESET : longWord;
  310. ALRMTIMEINV : longWord;
  311. ALRMDATEbits : TRTCC_ALRMDATE;
  312. ALRMDATE : longWord;
  313. ALRMDATECLR : longWord;
  314. ALRMDATESET : longWord;
  315. ALRMDATEINV : longWord;
  316. end;
  317. TTMR1_T1CON = record
  318. private
  319. function getON : TBits_1; inline;
  320. function getSIDL : TBits_1; inline;
  321. function getTCKPS : TBits_2; inline;
  322. function getTCKPS0 : TBits_1; inline;
  323. function getTCKPS1 : TBits_1; inline;
  324. function getTCS : TBits_1; inline;
  325. function getTGATE : TBits_1; inline;
  326. function getTON : TBits_1; inline;
  327. function getTSIDL : TBits_1; inline;
  328. function getTSYNC : TBits_1; inline;
  329. function getTWDIS : TBits_1; inline;
  330. function getTWIP : TBits_1; inline;
  331. function getw : TBits_32; inline;
  332. procedure setON(thebits : TBits_1); inline;
  333. procedure setSIDL(thebits : TBits_1); inline;
  334. procedure setTCKPS(thebits : TBits_2); inline;
  335. procedure setTCKPS0(thebits : TBits_1); inline;
  336. procedure setTCKPS1(thebits : TBits_1); inline;
  337. procedure setTCS(thebits : TBits_1); inline;
  338. procedure setTGATE(thebits : TBits_1); inline;
  339. procedure setTON(thebits : TBits_1); inline;
  340. procedure setTSIDL(thebits : TBits_1); inline;
  341. procedure setTSYNC(thebits : TBits_1); inline;
  342. procedure setTWDIS(thebits : TBits_1); inline;
  343. procedure setTWIP(thebits : TBits_1); inline;
  344. procedure setw(thebits : TBits_32); inline;
  345. public
  346. procedure clearON; inline;
  347. procedure clearSIDL; inline;
  348. procedure clearTCKPS0; inline;
  349. procedure clearTCKPS1; inline;
  350. procedure clearTCS; inline;
  351. procedure clearTGATE; inline;
  352. procedure clearTON; inline;
  353. procedure clearTSIDL; inline;
  354. procedure clearTSYNC; inline;
  355. procedure clearTWDIS; inline;
  356. procedure clearTWIP; inline;
  357. procedure setON; inline;
  358. procedure setSIDL; inline;
  359. procedure setTCKPS0; inline;
  360. procedure setTCKPS1; inline;
  361. procedure setTCS; inline;
  362. procedure setTGATE; inline;
  363. procedure setTON; inline;
  364. procedure setTSIDL; inline;
  365. procedure setTSYNC; inline;
  366. procedure setTWDIS; inline;
  367. procedure setTWIP; inline;
  368. property ON : TBits_1 read getON write setON;
  369. property SIDL : TBits_1 read getSIDL write setSIDL;
  370. property TCKPS : TBits_2 read getTCKPS write setTCKPS;
  371. property TCKPS0 : TBits_1 read getTCKPS0 write setTCKPS0;
  372. property TCKPS1 : TBits_1 read getTCKPS1 write setTCKPS1;
  373. property TCS : TBits_1 read getTCS write setTCS;
  374. property TGATE : TBits_1 read getTGATE write setTGATE;
  375. property TON : TBits_1 read getTON write setTON;
  376. property TSIDL : TBits_1 read getTSIDL write setTSIDL;
  377. property TSYNC : TBits_1 read getTSYNC write setTSYNC;
  378. property TWDIS : TBits_1 read getTWDIS write setTWDIS;
  379. property TWIP : TBits_1 read getTWIP write setTWIP;
  380. property w : TBits_32 read getw write setw;
  381. end;
  382. type
  383. TTMR1Registers = record
  384. T1CONbits : TTMR1_T1CON;
  385. T1CON : longWord;
  386. T1CONCLR : longWord;
  387. T1CONSET : longWord;
  388. T1CONINV : longWord;
  389. TMR1 : longWord;
  390. TMR1CLR : longWord;
  391. TMR1SET : longWord;
  392. TMR1INV : longWord;
  393. PR1 : longWord;
  394. PR1CLR : longWord;
  395. PR1SET : longWord;
  396. PR1INV : longWord;
  397. end;
  398. TTMR2_T2CON = record
  399. private
  400. function getON : TBits_1; inline;
  401. function getSIDL : TBits_1; inline;
  402. function getT32 : TBits_1; inline;
  403. function getTCKPS : TBits_3; inline;
  404. function getTCKPS0 : TBits_1; inline;
  405. function getTCKPS1 : TBits_1; inline;
  406. function getTCKPS2 : TBits_1; inline;
  407. function getTCS : TBits_1; inline;
  408. function getTGATE : TBits_1; inline;
  409. function getTON : TBits_1; inline;
  410. function getTSIDL : TBits_1; inline;
  411. function getw : TBits_32; inline;
  412. procedure setON(thebits : TBits_1); inline;
  413. procedure setSIDL(thebits : TBits_1); inline;
  414. procedure setT32(thebits : TBits_1); inline;
  415. procedure setTCKPS(thebits : TBits_3); inline;
  416. procedure setTCKPS0(thebits : TBits_1); inline;
  417. procedure setTCKPS1(thebits : TBits_1); inline;
  418. procedure setTCKPS2(thebits : TBits_1); inline;
  419. procedure setTCS(thebits : TBits_1); inline;
  420. procedure setTGATE(thebits : TBits_1); inline;
  421. procedure setTON(thebits : TBits_1); inline;
  422. procedure setTSIDL(thebits : TBits_1); inline;
  423. procedure setw(thebits : TBits_32); inline;
  424. public
  425. procedure clearON; inline;
  426. procedure clearSIDL; inline;
  427. procedure clearT32; inline;
  428. procedure clearTCKPS0; inline;
  429. procedure clearTCKPS1; inline;
  430. procedure clearTCKPS2; inline;
  431. procedure clearTCS; inline;
  432. procedure clearTGATE; inline;
  433. procedure clearTON; inline;
  434. procedure clearTSIDL; inline;
  435. procedure setON; inline;
  436. procedure setSIDL; inline;
  437. procedure setT32; inline;
  438. procedure setTCKPS0; inline;
  439. procedure setTCKPS1; inline;
  440. procedure setTCKPS2; inline;
  441. procedure setTCS; inline;
  442. procedure setTGATE; inline;
  443. procedure setTON; inline;
  444. procedure setTSIDL; inline;
  445. property ON : TBits_1 read getON write setON;
  446. property SIDL : TBits_1 read getSIDL write setSIDL;
  447. property T32 : TBits_1 read getT32 write setT32;
  448. property TCKPS : TBits_3 read getTCKPS write setTCKPS;
  449. property TCKPS0 : TBits_1 read getTCKPS0 write setTCKPS0;
  450. property TCKPS1 : TBits_1 read getTCKPS1 write setTCKPS1;
  451. property TCKPS2 : TBits_1 read getTCKPS2 write setTCKPS2;
  452. property TCS : TBits_1 read getTCS write setTCS;
  453. property TGATE : TBits_1 read getTGATE write setTGATE;
  454. property TON : TBits_1 read getTON write setTON;
  455. property TSIDL : TBits_1 read getTSIDL write setTSIDL;
  456. property w : TBits_32 read getw write setw;
  457. end;
  458. type
  459. TTMR2Registers = record
  460. T2CONbits : TTMR2_T2CON;
  461. T2CON : longWord;
  462. T2CONCLR : longWord;
  463. T2CONSET : longWord;
  464. T2CONINV : longWord;
  465. TMR2 : longWord;
  466. TMR2CLR : longWord;
  467. TMR2SET : longWord;
  468. TMR2INV : longWord;
  469. PR2 : longWord;
  470. PR2CLR : longWord;
  471. PR2SET : longWord;
  472. PR2INV : longWord;
  473. end;
  474. TTMR3_T3CON = record
  475. private
  476. function getON : TBits_1; inline;
  477. function getSIDL : TBits_1; inline;
  478. function getTCKPS : TBits_3; inline;
  479. function getTCKPS0 : TBits_1; inline;
  480. function getTCKPS1 : TBits_1; inline;
  481. function getTCKPS2 : TBits_1; inline;
  482. function getTCS : TBits_1; inline;
  483. function getTGATE : TBits_1; inline;
  484. function getTON : TBits_1; inline;
  485. function getTSIDL : TBits_1; inline;
  486. function getw : TBits_32; inline;
  487. procedure setON(thebits : TBits_1); inline;
  488. procedure setSIDL(thebits : TBits_1); inline;
  489. procedure setTCKPS(thebits : TBits_3); inline;
  490. procedure setTCKPS0(thebits : TBits_1); inline;
  491. procedure setTCKPS1(thebits : TBits_1); inline;
  492. procedure setTCKPS2(thebits : TBits_1); inline;
  493. procedure setTCS(thebits : TBits_1); inline;
  494. procedure setTGATE(thebits : TBits_1); inline;
  495. procedure setTON(thebits : TBits_1); inline;
  496. procedure setTSIDL(thebits : TBits_1); inline;
  497. procedure setw(thebits : TBits_32); inline;
  498. public
  499. procedure clearON; inline;
  500. procedure clearSIDL; inline;
  501. procedure clearTCKPS0; inline;
  502. procedure clearTCKPS1; inline;
  503. procedure clearTCKPS2; inline;
  504. procedure clearTCS; inline;
  505. procedure clearTGATE; inline;
  506. procedure clearTON; inline;
  507. procedure clearTSIDL; inline;
  508. procedure setON; inline;
  509. procedure setSIDL; inline;
  510. procedure setTCKPS0; inline;
  511. procedure setTCKPS1; inline;
  512. procedure setTCKPS2; inline;
  513. procedure setTCS; inline;
  514. procedure setTGATE; inline;
  515. procedure setTON; inline;
  516. procedure setTSIDL; inline;
  517. property ON : TBits_1 read getON write setON;
  518. property SIDL : TBits_1 read getSIDL write setSIDL;
  519. property TCKPS : TBits_3 read getTCKPS write setTCKPS;
  520. property TCKPS0 : TBits_1 read getTCKPS0 write setTCKPS0;
  521. property TCKPS1 : TBits_1 read getTCKPS1 write setTCKPS1;
  522. property TCKPS2 : TBits_1 read getTCKPS2 write setTCKPS2;
  523. property TCS : TBits_1 read getTCS write setTCS;
  524. property TGATE : TBits_1 read getTGATE write setTGATE;
  525. property TON : TBits_1 read getTON write setTON;
  526. property TSIDL : TBits_1 read getTSIDL write setTSIDL;
  527. property w : TBits_32 read getw write setw;
  528. end;
  529. type
  530. TTMR3Registers = record
  531. T3CONbits : TTMR3_T3CON;
  532. T3CON : longWord;
  533. T3CONCLR : longWord;
  534. T3CONSET : longWord;
  535. T3CONINV : longWord;
  536. TMR3 : longWord;
  537. TMR3CLR : longWord;
  538. TMR3SET : longWord;
  539. TMR3INV : longWord;
  540. PR3 : longWord;
  541. PR3CLR : longWord;
  542. PR3SET : longWord;
  543. PR3INV : longWord;
  544. end;
  545. TTMR4_T4CON = record
  546. private
  547. function getON : TBits_1; inline;
  548. function getSIDL : TBits_1; inline;
  549. function getT32 : TBits_1; inline;
  550. function getTCKPS : TBits_3; inline;
  551. function getTCKPS0 : TBits_1; inline;
  552. function getTCKPS1 : TBits_1; inline;
  553. function getTCKPS2 : TBits_1; inline;
  554. function getTCS : TBits_1; inline;
  555. function getTGATE : TBits_1; inline;
  556. function getTON : TBits_1; inline;
  557. function getTSIDL : TBits_1; inline;
  558. function getw : TBits_32; inline;
  559. procedure setON(thebits : TBits_1); inline;
  560. procedure setSIDL(thebits : TBits_1); inline;
  561. procedure setT32(thebits : TBits_1); inline;
  562. procedure setTCKPS(thebits : TBits_3); inline;
  563. procedure setTCKPS0(thebits : TBits_1); inline;
  564. procedure setTCKPS1(thebits : TBits_1); inline;
  565. procedure setTCKPS2(thebits : TBits_1); inline;
  566. procedure setTCS(thebits : TBits_1); inline;
  567. procedure setTGATE(thebits : TBits_1); inline;
  568. procedure setTON(thebits : TBits_1); inline;
  569. procedure setTSIDL(thebits : TBits_1); inline;
  570. procedure setw(thebits : TBits_32); inline;
  571. public
  572. procedure clearON; inline;
  573. procedure clearSIDL; inline;
  574. procedure clearT32; inline;
  575. procedure clearTCKPS0; inline;
  576. procedure clearTCKPS1; inline;
  577. procedure clearTCKPS2; inline;
  578. procedure clearTCS; inline;
  579. procedure clearTGATE; inline;
  580. procedure clearTON; inline;
  581. procedure clearTSIDL; inline;
  582. procedure setON; inline;
  583. procedure setSIDL; inline;
  584. procedure setT32; inline;
  585. procedure setTCKPS0; inline;
  586. procedure setTCKPS1; inline;
  587. procedure setTCKPS2; inline;
  588. procedure setTCS; inline;
  589. procedure setTGATE; inline;
  590. procedure setTON; inline;
  591. procedure setTSIDL; inline;
  592. property ON : TBits_1 read getON write setON;
  593. property SIDL : TBits_1 read getSIDL write setSIDL;
  594. property T32 : TBits_1 read getT32 write setT32;
  595. property TCKPS : TBits_3 read getTCKPS write setTCKPS;
  596. property TCKPS0 : TBits_1 read getTCKPS0 write setTCKPS0;
  597. property TCKPS1 : TBits_1 read getTCKPS1 write setTCKPS1;
  598. property TCKPS2 : TBits_1 read getTCKPS2 write setTCKPS2;
  599. property TCS : TBits_1 read getTCS write setTCS;
  600. property TGATE : TBits_1 read getTGATE write setTGATE;
  601. property TON : TBits_1 read getTON write setTON;
  602. property TSIDL : TBits_1 read getTSIDL write setTSIDL;
  603. property w : TBits_32 read getw write setw;
  604. end;
  605. type
  606. TTMR4Registers = record
  607. T4CONbits : TTMR4_T4CON;
  608. T4CON : longWord;
  609. T4CONCLR : longWord;
  610. T4CONSET : longWord;
  611. T4CONINV : longWord;
  612. TMR4 : longWord;
  613. TMR4CLR : longWord;
  614. TMR4SET : longWord;
  615. TMR4INV : longWord;
  616. PR4 : longWord;
  617. PR4CLR : longWord;
  618. PR4SET : longWord;
  619. PR4INV : longWord;
  620. end;
  621. TTMR5_T5CON = record
  622. private
  623. function getON : TBits_1; inline;
  624. function getSIDL : TBits_1; inline;
  625. function getTCKPS : TBits_3; inline;
  626. function getTCKPS0 : TBits_1; inline;
  627. function getTCKPS1 : TBits_1; inline;
  628. function getTCKPS2 : TBits_1; inline;
  629. function getTCS : TBits_1; inline;
  630. function getTGATE : TBits_1; inline;
  631. function getTON : TBits_1; inline;
  632. function getTSIDL : TBits_1; inline;
  633. function getw : TBits_32; inline;
  634. procedure setON(thebits : TBits_1); inline;
  635. procedure setSIDL(thebits : TBits_1); inline;
  636. procedure setTCKPS(thebits : TBits_3); inline;
  637. procedure setTCKPS0(thebits : TBits_1); inline;
  638. procedure setTCKPS1(thebits : TBits_1); inline;
  639. procedure setTCKPS2(thebits : TBits_1); inline;
  640. procedure setTCS(thebits : TBits_1); inline;
  641. procedure setTGATE(thebits : TBits_1); inline;
  642. procedure setTON(thebits : TBits_1); inline;
  643. procedure setTSIDL(thebits : TBits_1); inline;
  644. procedure setw(thebits : TBits_32); inline;
  645. public
  646. procedure clearON; inline;
  647. procedure clearSIDL; inline;
  648. procedure clearTCKPS0; inline;
  649. procedure clearTCKPS1; inline;
  650. procedure clearTCKPS2; inline;
  651. procedure clearTCS; inline;
  652. procedure clearTGATE; inline;
  653. procedure clearTON; inline;
  654. procedure clearTSIDL; inline;
  655. procedure setON; inline;
  656. procedure setSIDL; inline;
  657. procedure setTCKPS0; inline;
  658. procedure setTCKPS1; inline;
  659. procedure setTCKPS2; inline;
  660. procedure setTCS; inline;
  661. procedure setTGATE; inline;
  662. procedure setTON; inline;
  663. procedure setTSIDL; inline;
  664. property ON : TBits_1 read getON write setON;
  665. property SIDL : TBits_1 read getSIDL write setSIDL;
  666. property TCKPS : TBits_3 read getTCKPS write setTCKPS;
  667. property TCKPS0 : TBits_1 read getTCKPS0 write setTCKPS0;
  668. property TCKPS1 : TBits_1 read getTCKPS1 write setTCKPS1;
  669. property TCKPS2 : TBits_1 read getTCKPS2 write setTCKPS2;
  670. property TCS : TBits_1 read getTCS write setTCS;
  671. property TGATE : TBits_1 read getTGATE write setTGATE;
  672. property TON : TBits_1 read getTON write setTON;
  673. property TSIDL : TBits_1 read getTSIDL write setTSIDL;
  674. property w : TBits_32 read getw write setw;
  675. end;
  676. type
  677. TTMR5Registers = record
  678. T5CONbits : TTMR5_T5CON;
  679. T5CON : longWord;
  680. T5CONCLR : longWord;
  681. T5CONSET : longWord;
  682. T5CONINV : longWord;
  683. TMR5 : longWord;
  684. TMR5CLR : longWord;
  685. TMR5SET : longWord;
  686. TMR5INV : longWord;
  687. PR5 : longWord;
  688. PR5CLR : longWord;
  689. PR5SET : longWord;
  690. PR5INV : longWord;
  691. end;
  692. TICAP1_IC1CON = record
  693. private
  694. function getC32 : TBits_1; inline;
  695. function getFEDGE : TBits_1; inline;
  696. function getICBNE : TBits_1; inline;
  697. function getICI : TBits_2; inline;
  698. function getICI0 : TBits_1; inline;
  699. function getICI1 : TBits_1; inline;
  700. function getICM : TBits_3; inline;
  701. function getICM0 : TBits_1; inline;
  702. function getICM1 : TBits_1; inline;
  703. function getICM2 : TBits_1; inline;
  704. function getICOV : TBits_1; inline;
  705. function getICSIDL : TBits_1; inline;
  706. function getICTMR : TBits_1; inline;
  707. function getON : TBits_1; inline;
  708. function getSIDL : TBits_1; inline;
  709. function getw : TBits_32; inline;
  710. procedure setC32(thebits : TBits_1); inline;
  711. procedure setFEDGE(thebits : TBits_1); inline;
  712. procedure setICBNE(thebits : TBits_1); inline;
  713. procedure setICI(thebits : TBits_2); inline;
  714. procedure setICI0(thebits : TBits_1); inline;
  715. procedure setICI1(thebits : TBits_1); inline;
  716. procedure setICM(thebits : TBits_3); inline;
  717. procedure setICM0(thebits : TBits_1); inline;
  718. procedure setICM1(thebits : TBits_1); inline;
  719. procedure setICM2(thebits : TBits_1); inline;
  720. procedure setICOV(thebits : TBits_1); inline;
  721. procedure setICSIDL(thebits : TBits_1); inline;
  722. procedure setICTMR(thebits : TBits_1); inline;
  723. procedure setON(thebits : TBits_1); inline;
  724. procedure setSIDL(thebits : TBits_1); inline;
  725. procedure setw(thebits : TBits_32); inline;
  726. public
  727. procedure clearC32; inline;
  728. procedure clearFEDGE; inline;
  729. procedure clearICBNE; inline;
  730. procedure clearICI0; inline;
  731. procedure clearICI1; inline;
  732. procedure clearICM0; inline;
  733. procedure clearICM1; inline;
  734. procedure clearICM2; inline;
  735. procedure clearICOV; inline;
  736. procedure clearICSIDL; inline;
  737. procedure clearICTMR; inline;
  738. procedure clearON; inline;
  739. procedure clearSIDL; inline;
  740. procedure setC32; inline;
  741. procedure setFEDGE; inline;
  742. procedure setICBNE; inline;
  743. procedure setICI0; inline;
  744. procedure setICI1; inline;
  745. procedure setICM0; inline;
  746. procedure setICM1; inline;
  747. procedure setICM2; inline;
  748. procedure setICOV; inline;
  749. procedure setICSIDL; inline;
  750. procedure setICTMR; inline;
  751. procedure setON; inline;
  752. procedure setSIDL; inline;
  753. property C32 : TBits_1 read getC32 write setC32;
  754. property FEDGE : TBits_1 read getFEDGE write setFEDGE;
  755. property ICBNE : TBits_1 read getICBNE write setICBNE;
  756. property ICI : TBits_2 read getICI write setICI;
  757. property ICI0 : TBits_1 read getICI0 write setICI0;
  758. property ICI1 : TBits_1 read getICI1 write setICI1;
  759. property ICM : TBits_3 read getICM write setICM;
  760. property ICM0 : TBits_1 read getICM0 write setICM0;
  761. property ICM1 : TBits_1 read getICM1 write setICM1;
  762. property ICM2 : TBits_1 read getICM2 write setICM2;
  763. property ICOV : TBits_1 read getICOV write setICOV;
  764. property ICSIDL : TBits_1 read getICSIDL write setICSIDL;
  765. property ICTMR : TBits_1 read getICTMR write setICTMR;
  766. property ON : TBits_1 read getON write setON;
  767. property SIDL : TBits_1 read getSIDL write setSIDL;
  768. property w : TBits_32 read getw write setw;
  769. end;
  770. type
  771. TICAP1Registers = record
  772. IC1CONbits : TICAP1_IC1CON;
  773. IC1CON : longWord;
  774. IC1CONCLR : longWord;
  775. IC1CONSET : longWord;
  776. IC1CONINV : longWord;
  777. IC1BUF : longWord;
  778. end;
  779. TICAP2_IC2CON = record
  780. private
  781. function getC32 : TBits_1; inline;
  782. function getFEDGE : TBits_1; inline;
  783. function getICBNE : TBits_1; inline;
  784. function getICI : TBits_2; inline;
  785. function getICI0 : TBits_1; inline;
  786. function getICI1 : TBits_1; inline;
  787. function getICM : TBits_3; inline;
  788. function getICM0 : TBits_1; inline;
  789. function getICM1 : TBits_1; inline;
  790. function getICM2 : TBits_1; inline;
  791. function getICOV : TBits_1; inline;
  792. function getICSIDL : TBits_1; inline;
  793. function getICTMR : TBits_1; inline;
  794. function getON : TBits_1; inline;
  795. function getSIDL : TBits_1; inline;
  796. function getw : TBits_32; inline;
  797. procedure setC32(thebits : TBits_1); inline;
  798. procedure setFEDGE(thebits : TBits_1); inline;
  799. procedure setICBNE(thebits : TBits_1); inline;
  800. procedure setICI(thebits : TBits_2); inline;
  801. procedure setICI0(thebits : TBits_1); inline;
  802. procedure setICI1(thebits : TBits_1); inline;
  803. procedure setICM(thebits : TBits_3); inline;
  804. procedure setICM0(thebits : TBits_1); inline;
  805. procedure setICM1(thebits : TBits_1); inline;
  806. procedure setICM2(thebits : TBits_1); inline;
  807. procedure setICOV(thebits : TBits_1); inline;
  808. procedure setICSIDL(thebits : TBits_1); inline;
  809. procedure setICTMR(thebits : TBits_1); inline;
  810. procedure setON(thebits : TBits_1); inline;
  811. procedure setSIDL(thebits : TBits_1); inline;
  812. procedure setw(thebits : TBits_32); inline;
  813. public
  814. procedure clearC32; inline;
  815. procedure clearFEDGE; inline;
  816. procedure clearICBNE; inline;
  817. procedure clearICI0; inline;
  818. procedure clearICI1; inline;
  819. procedure clearICM0; inline;
  820. procedure clearICM1; inline;
  821. procedure clearICM2; inline;
  822. procedure clearICOV; inline;
  823. procedure clearICSIDL; inline;
  824. procedure clearICTMR; inline;
  825. procedure clearON; inline;
  826. procedure clearSIDL; inline;
  827. procedure setC32; inline;
  828. procedure setFEDGE; inline;
  829. procedure setICBNE; inline;
  830. procedure setICI0; inline;
  831. procedure setICI1; inline;
  832. procedure setICM0; inline;
  833. procedure setICM1; inline;
  834. procedure setICM2; inline;
  835. procedure setICOV; inline;
  836. procedure setICSIDL; inline;
  837. procedure setICTMR; inline;
  838. procedure setON; inline;
  839. procedure setSIDL; inline;
  840. property C32 : TBits_1 read getC32 write setC32;
  841. property FEDGE : TBits_1 read getFEDGE write setFEDGE;
  842. property ICBNE : TBits_1 read getICBNE write setICBNE;
  843. property ICI : TBits_2 read getICI write setICI;
  844. property ICI0 : TBits_1 read getICI0 write setICI0;
  845. property ICI1 : TBits_1 read getICI1 write setICI1;
  846. property ICM : TBits_3 read getICM write setICM;
  847. property ICM0 : TBits_1 read getICM0 write setICM0;
  848. property ICM1 : TBits_1 read getICM1 write setICM1;
  849. property ICM2 : TBits_1 read getICM2 write setICM2;
  850. property ICOV : TBits_1 read getICOV write setICOV;
  851. property ICSIDL : TBits_1 read getICSIDL write setICSIDL;
  852. property ICTMR : TBits_1 read getICTMR write setICTMR;
  853. property ON : TBits_1 read getON write setON;
  854. property SIDL : TBits_1 read getSIDL write setSIDL;
  855. property w : TBits_32 read getw write setw;
  856. end;
  857. type
  858. TICAP2Registers = record
  859. IC2CONbits : TICAP2_IC2CON;
  860. IC2CON : longWord;
  861. IC2CONCLR : longWord;
  862. IC2CONSET : longWord;
  863. IC2CONINV : longWord;
  864. IC2BUF : longWord;
  865. end;
  866. TICAP3_IC3CON = record
  867. private
  868. function getC32 : TBits_1; inline;
  869. function getFEDGE : TBits_1; inline;
  870. function getICBNE : TBits_1; inline;
  871. function getICI : TBits_2; inline;
  872. function getICI0 : TBits_1; inline;
  873. function getICI1 : TBits_1; inline;
  874. function getICM : TBits_3; inline;
  875. function getICM0 : TBits_1; inline;
  876. function getICM1 : TBits_1; inline;
  877. function getICM2 : TBits_1; inline;
  878. function getICOV : TBits_1; inline;
  879. function getICSIDL : TBits_1; inline;
  880. function getICTMR : TBits_1; inline;
  881. function getON : TBits_1; inline;
  882. function getSIDL : TBits_1; inline;
  883. function getw : TBits_32; inline;
  884. procedure setC32(thebits : TBits_1); inline;
  885. procedure setFEDGE(thebits : TBits_1); inline;
  886. procedure setICBNE(thebits : TBits_1); inline;
  887. procedure setICI(thebits : TBits_2); inline;
  888. procedure setICI0(thebits : TBits_1); inline;
  889. procedure setICI1(thebits : TBits_1); inline;
  890. procedure setICM(thebits : TBits_3); inline;
  891. procedure setICM0(thebits : TBits_1); inline;
  892. procedure setICM1(thebits : TBits_1); inline;
  893. procedure setICM2(thebits : TBits_1); inline;
  894. procedure setICOV(thebits : TBits_1); inline;
  895. procedure setICSIDL(thebits : TBits_1); inline;
  896. procedure setICTMR(thebits : TBits_1); inline;
  897. procedure setON(thebits : TBits_1); inline;
  898. procedure setSIDL(thebits : TBits_1); inline;
  899. procedure setw(thebits : TBits_32); inline;
  900. public
  901. procedure clearC32; inline;
  902. procedure clearFEDGE; inline;
  903. procedure clearICBNE; inline;
  904. procedure clearICI0; inline;
  905. procedure clearICI1; inline;
  906. procedure clearICM0; inline;
  907. procedure clearICM1; inline;
  908. procedure clearICM2; inline;
  909. procedure clearICOV; inline;
  910. procedure clearICSIDL; inline;
  911. procedure clearICTMR; inline;
  912. procedure clearON; inline;
  913. procedure clearSIDL; inline;
  914. procedure setC32; inline;
  915. procedure setFEDGE; inline;
  916. procedure setICBNE; inline;
  917. procedure setICI0; inline;
  918. procedure setICI1; inline;
  919. procedure setICM0; inline;
  920. procedure setICM1; inline;
  921. procedure setICM2; inline;
  922. procedure setICOV; inline;
  923. procedure setICSIDL; inline;
  924. procedure setICTMR; inline;
  925. procedure setON; inline;
  926. procedure setSIDL; inline;
  927. property C32 : TBits_1 read getC32 write setC32;
  928. property FEDGE : TBits_1 read getFEDGE write setFEDGE;
  929. property ICBNE : TBits_1 read getICBNE write setICBNE;
  930. property ICI : TBits_2 read getICI write setICI;
  931. property ICI0 : TBits_1 read getICI0 write setICI0;
  932. property ICI1 : TBits_1 read getICI1 write setICI1;
  933. property ICM : TBits_3 read getICM write setICM;
  934. property ICM0 : TBits_1 read getICM0 write setICM0;
  935. property ICM1 : TBits_1 read getICM1 write setICM1;
  936. property ICM2 : TBits_1 read getICM2 write setICM2;
  937. property ICOV : TBits_1 read getICOV write setICOV;
  938. property ICSIDL : TBits_1 read getICSIDL write setICSIDL;
  939. property ICTMR : TBits_1 read getICTMR write setICTMR;
  940. property ON : TBits_1 read getON write setON;
  941. property SIDL : TBits_1 read getSIDL write setSIDL;
  942. property w : TBits_32 read getw write setw;
  943. end;
  944. type
  945. TICAP3Registers = record
  946. IC3CONbits : TICAP3_IC3CON;
  947. IC3CON : longWord;
  948. IC3CONCLR : longWord;
  949. IC3CONSET : longWord;
  950. IC3CONINV : longWord;
  951. IC3BUF : longWord;
  952. end;
  953. TICAP4_IC4CON = record
  954. private
  955. function getC32 : TBits_1; inline;
  956. function getFEDGE : TBits_1; inline;
  957. function getICBNE : TBits_1; inline;
  958. function getICI : TBits_2; inline;
  959. function getICI0 : TBits_1; inline;
  960. function getICI1 : TBits_1; inline;
  961. function getICM : TBits_3; inline;
  962. function getICM0 : TBits_1; inline;
  963. function getICM1 : TBits_1; inline;
  964. function getICM2 : TBits_1; inline;
  965. function getICOV : TBits_1; inline;
  966. function getICSIDL : TBits_1; inline;
  967. function getICTMR : TBits_1; inline;
  968. function getON : TBits_1; inline;
  969. function getSIDL : TBits_1; inline;
  970. function getw : TBits_32; inline;
  971. procedure setC32(thebits : TBits_1); inline;
  972. procedure setFEDGE(thebits : TBits_1); inline;
  973. procedure setICBNE(thebits : TBits_1); inline;
  974. procedure setICI(thebits : TBits_2); inline;
  975. procedure setICI0(thebits : TBits_1); inline;
  976. procedure setICI1(thebits : TBits_1); inline;
  977. procedure setICM(thebits : TBits_3); inline;
  978. procedure setICM0(thebits : TBits_1); inline;
  979. procedure setICM1(thebits : TBits_1); inline;
  980. procedure setICM2(thebits : TBits_1); inline;
  981. procedure setICOV(thebits : TBits_1); inline;
  982. procedure setICSIDL(thebits : TBits_1); inline;
  983. procedure setICTMR(thebits : TBits_1); inline;
  984. procedure setON(thebits : TBits_1); inline;
  985. procedure setSIDL(thebits : TBits_1); inline;
  986. procedure setw(thebits : TBits_32); inline;
  987. public
  988. procedure clearC32; inline;
  989. procedure clearFEDGE; inline;
  990. procedure clearICBNE; inline;
  991. procedure clearICI0; inline;
  992. procedure clearICI1; inline;
  993. procedure clearICM0; inline;
  994. procedure clearICM1; inline;
  995. procedure clearICM2; inline;
  996. procedure clearICOV; inline;
  997. procedure clearICSIDL; inline;
  998. procedure clearICTMR; inline;
  999. procedure clearON; inline;
  1000. procedure clearSIDL; inline;
  1001. procedure setC32; inline;
  1002. procedure setFEDGE; inline;
  1003. procedure setICBNE; inline;
  1004. procedure setICI0; inline;
  1005. procedure setICI1; inline;
  1006. procedure setICM0; inline;
  1007. procedure setICM1; inline;
  1008. procedure setICM2; inline;
  1009. procedure setICOV; inline;
  1010. procedure setICSIDL; inline;
  1011. procedure setICTMR; inline;
  1012. procedure setON; inline;
  1013. procedure setSIDL; inline;
  1014. property C32 : TBits_1 read getC32 write setC32;
  1015. property FEDGE : TBits_1 read getFEDGE write setFEDGE;
  1016. property ICBNE : TBits_1 read getICBNE write setICBNE;
  1017. property ICI : TBits_2 read getICI write setICI;
  1018. property ICI0 : TBits_1 read getICI0 write setICI0;
  1019. property ICI1 : TBits_1 read getICI1 write setICI1;
  1020. property ICM : TBits_3 read getICM write setICM;
  1021. property ICM0 : TBits_1 read getICM0 write setICM0;
  1022. property ICM1 : TBits_1 read getICM1 write setICM1;
  1023. property ICM2 : TBits_1 read getICM2 write setICM2;
  1024. property ICOV : TBits_1 read getICOV write setICOV;
  1025. property ICSIDL : TBits_1 read getICSIDL write setICSIDL;
  1026. property ICTMR : TBits_1 read getICTMR write setICTMR;
  1027. property ON : TBits_1 read getON write setON;
  1028. property SIDL : TBits_1 read getSIDL write setSIDL;
  1029. property w : TBits_32 read getw write setw;
  1030. end;
  1031. type
  1032. TICAP4Registers = record
  1033. IC4CONbits : TICAP4_IC4CON;
  1034. IC4CON : longWord;
  1035. IC4CONCLR : longWord;
  1036. IC4CONSET : longWord;
  1037. IC4CONINV : longWord;
  1038. IC4BUF : longWord;
  1039. end;
  1040. TICAP5_IC5CON = record
  1041. private
  1042. function getC32 : TBits_1; inline;
  1043. function getFEDGE : TBits_1; inline;
  1044. function getICBNE : TBits_1; inline;
  1045. function getICI : TBits_2; inline;
  1046. function getICI0 : TBits_1; inline;
  1047. function getICI1 : TBits_1; inline;
  1048. function getICM : TBits_3; inline;
  1049. function getICM0 : TBits_1; inline;
  1050. function getICM1 : TBits_1; inline;
  1051. function getICM2 : TBits_1; inline;
  1052. function getICOV : TBits_1; inline;
  1053. function getICSIDL : TBits_1; inline;
  1054. function getICTMR : TBits_1; inline;
  1055. function getON : TBits_1; inline;
  1056. function getSIDL : TBits_1; inline;
  1057. function getw : TBits_32; inline;
  1058. procedure setC32(thebits : TBits_1); inline;
  1059. procedure setFEDGE(thebits : TBits_1); inline;
  1060. procedure setICBNE(thebits : TBits_1); inline;
  1061. procedure setICI(thebits : TBits_2); inline;
  1062. procedure setICI0(thebits : TBits_1); inline;
  1063. procedure setICI1(thebits : TBits_1); inline;
  1064. procedure setICM(thebits : TBits_3); inline;
  1065. procedure setICM0(thebits : TBits_1); inline;
  1066. procedure setICM1(thebits : TBits_1); inline;
  1067. procedure setICM2(thebits : TBits_1); inline;
  1068. procedure setICOV(thebits : TBits_1); inline;
  1069. procedure setICSIDL(thebits : TBits_1); inline;
  1070. procedure setICTMR(thebits : TBits_1); inline;
  1071. procedure setON(thebits : TBits_1); inline;
  1072. procedure setSIDL(thebits : TBits_1); inline;
  1073. procedure setw(thebits : TBits_32); inline;
  1074. public
  1075. procedure clearC32; inline;
  1076. procedure clearFEDGE; inline;
  1077. procedure clearICBNE; inline;
  1078. procedure clearICI0; inline;
  1079. procedure clearICI1; inline;
  1080. procedure clearICM0; inline;
  1081. procedure clearICM1; inline;
  1082. procedure clearICM2; inline;
  1083. procedure clearICOV; inline;
  1084. procedure clearICSIDL; inline;
  1085. procedure clearICTMR; inline;
  1086. procedure clearON; inline;
  1087. procedure clearSIDL; inline;
  1088. procedure setC32; inline;
  1089. procedure setFEDGE; inline;
  1090. procedure setICBNE; inline;
  1091. procedure setICI0; inline;
  1092. procedure setICI1; inline;
  1093. procedure setICM0; inline;
  1094. procedure setICM1; inline;
  1095. procedure setICM2; inline;
  1096. procedure setICOV; inline;
  1097. procedure setICSIDL; inline;
  1098. procedure setICTMR; inline;
  1099. procedure setON; inline;
  1100. procedure setSIDL; inline;
  1101. property C32 : TBits_1 read getC32 write setC32;
  1102. property FEDGE : TBits_1 read getFEDGE write setFEDGE;
  1103. property ICBNE : TBits_1 read getICBNE write setICBNE;
  1104. property ICI : TBits_2 read getICI write setICI;
  1105. property ICI0 : TBits_1 read getICI0 write setICI0;
  1106. property ICI1 : TBits_1 read getICI1 write setICI1;
  1107. property ICM : TBits_3 read getICM write setICM;
  1108. property ICM0 : TBits_1 read getICM0 write setICM0;
  1109. property ICM1 : TBits_1 read getICM1 write setICM1;
  1110. property ICM2 : TBits_1 read getICM2 write setICM2;
  1111. property ICOV : TBits_1 read getICOV write setICOV;
  1112. property ICSIDL : TBits_1 read getICSIDL write setICSIDL;
  1113. property ICTMR : TBits_1 read getICTMR write setICTMR;
  1114. property ON : TBits_1 read getON write setON;
  1115. property SIDL : TBits_1 read getSIDL write setSIDL;
  1116. property w : TBits_32 read getw write setw;
  1117. end;
  1118. type
  1119. TICAP5Registers = record
  1120. IC5CONbits : TICAP5_IC5CON;
  1121. IC5CON : longWord;
  1122. IC5CONCLR : longWord;
  1123. IC5CONSET : longWord;
  1124. IC5CONINV : longWord;
  1125. IC5BUF : longWord;
  1126. end;
  1127. TOCMP1_OC1CON = record
  1128. private
  1129. function getOC32 : TBits_1; inline;
  1130. function getOCFLT : TBits_1; inline;
  1131. function getOCM : TBits_3; inline;
  1132. function getOCM0 : TBits_1; inline;
  1133. function getOCM1 : TBits_1; inline;
  1134. function getOCM2 : TBits_1; inline;
  1135. function getOCSIDL : TBits_1; inline;
  1136. function getOCTSEL : TBits_1; inline;
  1137. function getON : TBits_1; inline;
  1138. function getSIDL : TBits_1; inline;
  1139. function getw : TBits_32; inline;
  1140. procedure setOC32(thebits : TBits_1); inline;
  1141. procedure setOCFLT(thebits : TBits_1); inline;
  1142. procedure setOCM(thebits : TBits_3); inline;
  1143. procedure setOCM0(thebits : TBits_1); inline;
  1144. procedure setOCM1(thebits : TBits_1); inline;
  1145. procedure setOCM2(thebits : TBits_1); inline;
  1146. procedure setOCSIDL(thebits : TBits_1); inline;
  1147. procedure setOCTSEL(thebits : TBits_1); inline;
  1148. procedure setON(thebits : TBits_1); inline;
  1149. procedure setSIDL(thebits : TBits_1); inline;
  1150. procedure setw(thebits : TBits_32); inline;
  1151. public
  1152. procedure clearOC32; inline;
  1153. procedure clearOCFLT; inline;
  1154. procedure clearOCM0; inline;
  1155. procedure clearOCM1; inline;
  1156. procedure clearOCM2; inline;
  1157. procedure clearOCSIDL; inline;
  1158. procedure clearOCTSEL; inline;
  1159. procedure clearON; inline;
  1160. procedure clearSIDL; inline;
  1161. procedure setOC32; inline;
  1162. procedure setOCFLT; inline;
  1163. procedure setOCM0; inline;
  1164. procedure setOCM1; inline;
  1165. procedure setOCM2; inline;
  1166. procedure setOCSIDL; inline;
  1167. procedure setOCTSEL; inline;
  1168. procedure setON; inline;
  1169. procedure setSIDL; inline;
  1170. property OC32 : TBits_1 read getOC32 write setOC32;
  1171. property OCFLT : TBits_1 read getOCFLT write setOCFLT;
  1172. property OCM : TBits_3 read getOCM write setOCM;
  1173. property OCM0 : TBits_1 read getOCM0 write setOCM0;
  1174. property OCM1 : TBits_1 read getOCM1 write setOCM1;
  1175. property OCM2 : TBits_1 read getOCM2 write setOCM2;
  1176. property OCSIDL : TBits_1 read getOCSIDL write setOCSIDL;
  1177. property OCTSEL : TBits_1 read getOCTSEL write setOCTSEL;
  1178. property ON : TBits_1 read getON write setON;
  1179. property SIDL : TBits_1 read getSIDL write setSIDL;
  1180. property w : TBits_32 read getw write setw;
  1181. end;
  1182. type
  1183. TOCMP1Registers = record
  1184. OC1CONbits : TOCMP1_OC1CON;
  1185. OC1CON : longWord;
  1186. OC1CONCLR : longWord;
  1187. OC1CONSET : longWord;
  1188. OC1CONINV : longWord;
  1189. OC1R : longWord;
  1190. OC1RCLR : longWord;
  1191. OC1RSET : longWord;
  1192. OC1RINV : longWord;
  1193. OC1RS : longWord;
  1194. OC1RSCLR : longWord;
  1195. OC1RSSET : longWord;
  1196. OC1RSINV : longWord;
  1197. end;
  1198. TOCMP2_OC2CON = record
  1199. private
  1200. function getOC32 : TBits_1; inline;
  1201. function getOCFLT : TBits_1; inline;
  1202. function getOCM : TBits_3; inline;
  1203. function getOCM0 : TBits_1; inline;
  1204. function getOCM1 : TBits_1; inline;
  1205. function getOCM2 : TBits_1; inline;
  1206. function getOCSIDL : TBits_1; inline;
  1207. function getOCTSEL : TBits_1; inline;
  1208. function getON : TBits_1; inline;
  1209. function getSIDL : TBits_1; inline;
  1210. function getw : TBits_32; inline;
  1211. procedure setOC32(thebits : TBits_1); inline;
  1212. procedure setOCFLT(thebits : TBits_1); inline;
  1213. procedure setOCM(thebits : TBits_3); inline;
  1214. procedure setOCM0(thebits : TBits_1); inline;
  1215. procedure setOCM1(thebits : TBits_1); inline;
  1216. procedure setOCM2(thebits : TBits_1); inline;
  1217. procedure setOCSIDL(thebits : TBits_1); inline;
  1218. procedure setOCTSEL(thebits : TBits_1); inline;
  1219. procedure setON(thebits : TBits_1); inline;
  1220. procedure setSIDL(thebits : TBits_1); inline;
  1221. procedure setw(thebits : TBits_32); inline;
  1222. public
  1223. procedure clearOC32; inline;
  1224. procedure clearOCFLT; inline;
  1225. procedure clearOCM0; inline;
  1226. procedure clearOCM1; inline;
  1227. procedure clearOCM2; inline;
  1228. procedure clearOCSIDL; inline;
  1229. procedure clearOCTSEL; inline;
  1230. procedure clearON; inline;
  1231. procedure clearSIDL; inline;
  1232. procedure setOC32; inline;
  1233. procedure setOCFLT; inline;
  1234. procedure setOCM0; inline;
  1235. procedure setOCM1; inline;
  1236. procedure setOCM2; inline;
  1237. procedure setOCSIDL; inline;
  1238. procedure setOCTSEL; inline;
  1239. procedure setON; inline;
  1240. procedure setSIDL; inline;
  1241. property OC32 : TBits_1 read getOC32 write setOC32;
  1242. property OCFLT : TBits_1 read getOCFLT write setOCFLT;
  1243. property OCM : TBits_3 read getOCM write setOCM;
  1244. property OCM0 : TBits_1 read getOCM0 write setOCM0;
  1245. property OCM1 : TBits_1 read getOCM1 write setOCM1;
  1246. property OCM2 : TBits_1 read getOCM2 write setOCM2;
  1247. property OCSIDL : TBits_1 read getOCSIDL write setOCSIDL;
  1248. property OCTSEL : TBits_1 read getOCTSEL write setOCTSEL;
  1249. property ON : TBits_1 read getON write setON;
  1250. property SIDL : TBits_1 read getSIDL write setSIDL;
  1251. property w : TBits_32 read getw write setw;
  1252. end;
  1253. type
  1254. TOCMP2Registers = record
  1255. OC2CONbits : TOCMP2_OC2CON;
  1256. OC2CON : longWord;
  1257. OC2CONCLR : longWord;
  1258. OC2CONSET : longWord;
  1259. OC2CONINV : longWord;
  1260. OC2R : longWord;
  1261. OC2RCLR : longWord;
  1262. OC2RSET : longWord;
  1263. OC2RINV : longWord;
  1264. OC2RS : longWord;
  1265. OC2RSCLR : longWord;
  1266. OC2RSSET : longWord;
  1267. OC2RSINV : longWord;
  1268. end;
  1269. TOCMP3_OC3CON = record
  1270. private
  1271. function getOC32 : TBits_1; inline;
  1272. function getOCFLT : TBits_1; inline;
  1273. function getOCM : TBits_3; inline;
  1274. function getOCM0 : TBits_1; inline;
  1275. function getOCM1 : TBits_1; inline;
  1276. function getOCM2 : TBits_1; inline;
  1277. function getOCSIDL : TBits_1; inline;
  1278. function getOCTSEL : TBits_1; inline;
  1279. function getON : TBits_1; inline;
  1280. function getSIDL : TBits_1; inline;
  1281. function getw : TBits_32; inline;
  1282. procedure setOC32(thebits : TBits_1); inline;
  1283. procedure setOCFLT(thebits : TBits_1); inline;
  1284. procedure setOCM(thebits : TBits_3); inline;
  1285. procedure setOCM0(thebits : TBits_1); inline;
  1286. procedure setOCM1(thebits : TBits_1); inline;
  1287. procedure setOCM2(thebits : TBits_1); inline;
  1288. procedure setOCSIDL(thebits : TBits_1); inline;
  1289. procedure setOCTSEL(thebits : TBits_1); inline;
  1290. procedure setON(thebits : TBits_1); inline;
  1291. procedure setSIDL(thebits : TBits_1); inline;
  1292. procedure setw(thebits : TBits_32); inline;
  1293. public
  1294. procedure clearOC32; inline;
  1295. procedure clearOCFLT; inline;
  1296. procedure clearOCM0; inline;
  1297. procedure clearOCM1; inline;
  1298. procedure clearOCM2; inline;
  1299. procedure clearOCSIDL; inline;
  1300. procedure clearOCTSEL; inline;
  1301. procedure clearON; inline;
  1302. procedure clearSIDL; inline;
  1303. procedure setOC32; inline;
  1304. procedure setOCFLT; inline;
  1305. procedure setOCM0; inline;
  1306. procedure setOCM1; inline;
  1307. procedure setOCM2; inline;
  1308. procedure setOCSIDL; inline;
  1309. procedure setOCTSEL; inline;
  1310. procedure setON; inline;
  1311. procedure setSIDL; inline;
  1312. property OC32 : TBits_1 read getOC32 write setOC32;
  1313. property OCFLT : TBits_1 read getOCFLT write setOCFLT;
  1314. property OCM : TBits_3 read getOCM write setOCM;
  1315. property OCM0 : TBits_1 read getOCM0 write setOCM0;
  1316. property OCM1 : TBits_1 read getOCM1 write setOCM1;
  1317. property OCM2 : TBits_1 read getOCM2 write setOCM2;
  1318. property OCSIDL : TBits_1 read getOCSIDL write setOCSIDL;
  1319. property OCTSEL : TBits_1 read getOCTSEL write setOCTSEL;
  1320. property ON : TBits_1 read getON write setON;
  1321. property SIDL : TBits_1 read getSIDL write setSIDL;
  1322. property w : TBits_32 read getw write setw;
  1323. end;
  1324. type
  1325. TOCMP3Registers = record
  1326. OC3CONbits : TOCMP3_OC3CON;
  1327. OC3CON : longWord;
  1328. OC3CONCLR : longWord;
  1329. OC3CONSET : longWord;
  1330. OC3CONINV : longWord;
  1331. OC3R : longWord;
  1332. OC3RCLR : longWord;
  1333. OC3RSET : longWord;
  1334. OC3RINV : longWord;
  1335. OC3RS : longWord;
  1336. OC3RSCLR : longWord;
  1337. OC3RSSET : longWord;
  1338. OC3RSINV : longWord;
  1339. end;
  1340. TOCMP4_OC4CON = record
  1341. private
  1342. function getOC32 : TBits_1; inline;
  1343. function getOCFLT : TBits_1; inline;
  1344. function getOCM : TBits_3; inline;
  1345. function getOCM0 : TBits_1; inline;
  1346. function getOCM1 : TBits_1; inline;
  1347. function getOCM2 : TBits_1; inline;
  1348. function getOCSIDL : TBits_1; inline;
  1349. function getOCTSEL : TBits_1; inline;
  1350. function getON : TBits_1; inline;
  1351. function getSIDL : TBits_1; inline;
  1352. function getw : TBits_32; inline;
  1353. procedure setOC32(thebits : TBits_1); inline;
  1354. procedure setOCFLT(thebits : TBits_1); inline;
  1355. procedure setOCM(thebits : TBits_3); inline;
  1356. procedure setOCM0(thebits : TBits_1); inline;
  1357. procedure setOCM1(thebits : TBits_1); inline;
  1358. procedure setOCM2(thebits : TBits_1); inline;
  1359. procedure setOCSIDL(thebits : TBits_1); inline;
  1360. procedure setOCTSEL(thebits : TBits_1); inline;
  1361. procedure setON(thebits : TBits_1); inline;
  1362. procedure setSIDL(thebits : TBits_1); inline;
  1363. procedure setw(thebits : TBits_32); inline;
  1364. public
  1365. procedure clearOC32; inline;
  1366. procedure clearOCFLT; inline;
  1367. procedure clearOCM0; inline;
  1368. procedure clearOCM1; inline;
  1369. procedure clearOCM2; inline;
  1370. procedure clearOCSIDL; inline;
  1371. procedure clearOCTSEL; inline;
  1372. procedure clearON; inline;
  1373. procedure clearSIDL; inline;
  1374. procedure setOC32; inline;
  1375. procedure setOCFLT; inline;
  1376. procedure setOCM0; inline;
  1377. procedure setOCM1; inline;
  1378. procedure setOCM2; inline;
  1379. procedure setOCSIDL; inline;
  1380. procedure setOCTSEL; inline;
  1381. procedure setON; inline;
  1382. procedure setSIDL; inline;
  1383. property OC32 : TBits_1 read getOC32 write setOC32;
  1384. property OCFLT : TBits_1 read getOCFLT write setOCFLT;
  1385. property OCM : TBits_3 read getOCM write setOCM;
  1386. property OCM0 : TBits_1 read getOCM0 write setOCM0;
  1387. property OCM1 : TBits_1 read getOCM1 write setOCM1;
  1388. property OCM2 : TBits_1 read getOCM2 write setOCM2;
  1389. property OCSIDL : TBits_1 read getOCSIDL write setOCSIDL;
  1390. property OCTSEL : TBits_1 read getOCTSEL write setOCTSEL;
  1391. property ON : TBits_1 read getON write setON;
  1392. property SIDL : TBits_1 read getSIDL write setSIDL;
  1393. property w : TBits_32 read getw write setw;
  1394. end;
  1395. type
  1396. TOCMP4Registers = record
  1397. OC4CONbits : TOCMP4_OC4CON;
  1398. OC4CON : longWord;
  1399. OC4CONCLR : longWord;
  1400. OC4CONSET : longWord;
  1401. OC4CONINV : longWord;
  1402. OC4R : longWord;
  1403. OC4RCLR : longWord;
  1404. OC4RSET : longWord;
  1405. OC4RINV : longWord;
  1406. OC4RS : longWord;
  1407. OC4RSCLR : longWord;
  1408. OC4RSSET : longWord;
  1409. OC4RSINV : longWord;
  1410. end;
  1411. TOCMP5_OC5CON = record
  1412. private
  1413. function getOC32 : TBits_1; inline;
  1414. function getOCFLT : TBits_1; inline;
  1415. function getOCM : TBits_3; inline;
  1416. function getOCM0 : TBits_1; inline;
  1417. function getOCM1 : TBits_1; inline;
  1418. function getOCM2 : TBits_1; inline;
  1419. function getOCSIDL : TBits_1; inline;
  1420. function getOCTSEL : TBits_1; inline;
  1421. function getON : TBits_1; inline;
  1422. function getSIDL : TBits_1; inline;
  1423. function getw : TBits_32; inline;
  1424. procedure setOC32(thebits : TBits_1); inline;
  1425. procedure setOCFLT(thebits : TBits_1); inline;
  1426. procedure setOCM(thebits : TBits_3); inline;
  1427. procedure setOCM0(thebits : TBits_1); inline;
  1428. procedure setOCM1(thebits : TBits_1); inline;
  1429. procedure setOCM2(thebits : TBits_1); inline;
  1430. procedure setOCSIDL(thebits : TBits_1); inline;
  1431. procedure setOCTSEL(thebits : TBits_1); inline;
  1432. procedure setON(thebits : TBits_1); inline;
  1433. procedure setSIDL(thebits : TBits_1); inline;
  1434. procedure setw(thebits : TBits_32); inline;
  1435. public
  1436. procedure clearOC32; inline;
  1437. procedure clearOCFLT; inline;
  1438. procedure clearOCM0; inline;
  1439. procedure clearOCM1; inline;
  1440. procedure clearOCM2; inline;
  1441. procedure clearOCSIDL; inline;
  1442. procedure clearOCTSEL; inline;
  1443. procedure clearON; inline;
  1444. procedure clearSIDL; inline;
  1445. procedure setOC32; inline;
  1446. procedure setOCFLT; inline;
  1447. procedure setOCM0; inline;
  1448. procedure setOCM1; inline;
  1449. procedure setOCM2; inline;
  1450. procedure setOCSIDL; inline;
  1451. procedure setOCTSEL; inline;
  1452. procedure setON; inline;
  1453. procedure setSIDL; inline;
  1454. property OC32 : TBits_1 read getOC32 write setOC32;
  1455. property OCFLT : TBits_1 read getOCFLT write setOCFLT;
  1456. property OCM : TBits_3 read getOCM write setOCM;
  1457. property OCM0 : TBits_1 read getOCM0 write setOCM0;
  1458. property OCM1 : TBits_1 read getOCM1 write setOCM1;
  1459. property OCM2 : TBits_1 read getOCM2 write setOCM2;
  1460. property OCSIDL : TBits_1 read getOCSIDL write setOCSIDL;
  1461. property OCTSEL : TBits_1 read getOCTSEL write setOCTSEL;
  1462. property ON : TBits_1 read getON write setON;
  1463. property SIDL : TBits_1 read getSIDL write setSIDL;
  1464. property w : TBits_32 read getw write setw;
  1465. end;
  1466. type
  1467. TOCMP5Registers = record
  1468. OC5CONbits : TOCMP5_OC5CON;
  1469. OC5CON : longWord;
  1470. OC5CONCLR : longWord;
  1471. OC5CONSET : longWord;
  1472. OC5CONINV : longWord;
  1473. OC5R : longWord;
  1474. OC5RCLR : longWord;
  1475. OC5RSET : longWord;
  1476. OC5RINV : longWord;
  1477. OC5RS : longWord;
  1478. OC5RSCLR : longWord;
  1479. OC5RSSET : longWord;
  1480. OC5RSINV : longWord;
  1481. end;
  1482. TI2C3_I2C1ACON = record
  1483. private
  1484. function getA10M : TBits_1; inline;
  1485. function getACKDT : TBits_1; inline;
  1486. function getACKEN : TBits_1; inline;
  1487. function getDISSLW : TBits_1; inline;
  1488. function getGCEN : TBits_1; inline;
  1489. function getI2CEN : TBits_1; inline;
  1490. function getI2CSIDL : TBits_1; inline;
  1491. function getIPMIEN : TBits_1; inline;
  1492. function getON : TBits_1; inline;
  1493. function getPEN : TBits_1; inline;
  1494. function getRCEN : TBits_1; inline;
  1495. function getRSEN : TBits_1; inline;
  1496. function getSCLREL : TBits_1; inline;
  1497. function getSEN : TBits_1; inline;
  1498. function getSIDL : TBits_1; inline;
  1499. function getSMEN : TBits_1; inline;
  1500. function getSTREN : TBits_1; inline;
  1501. function getSTRICT : TBits_1; inline;
  1502. function getw : TBits_32; inline;
  1503. procedure setA10M(thebits : TBits_1); inline;
  1504. procedure setACKDT(thebits : TBits_1); inline;
  1505. procedure setACKEN(thebits : TBits_1); inline;
  1506. procedure setDISSLW(thebits : TBits_1); inline;
  1507. procedure setGCEN(thebits : TBits_1); inline;
  1508. procedure setI2CEN(thebits : TBits_1); inline;
  1509. procedure setI2CSIDL(thebits : TBits_1); inline;
  1510. procedure setIPMIEN(thebits : TBits_1); inline;
  1511. procedure setON(thebits : TBits_1); inline;
  1512. procedure setPEN(thebits : TBits_1); inline;
  1513. procedure setRCEN(thebits : TBits_1); inline;
  1514. procedure setRSEN(thebits : TBits_1); inline;
  1515. procedure setSCLREL(thebits : TBits_1); inline;
  1516. procedure setSEN(thebits : TBits_1); inline;
  1517. procedure setSIDL(thebits : TBits_1); inline;
  1518. procedure setSMEN(thebits : TBits_1); inline;
  1519. procedure setSTREN(thebits : TBits_1); inline;
  1520. procedure setSTRICT(thebits : TBits_1); inline;
  1521. procedure setw(thebits : TBits_32); inline;
  1522. public
  1523. procedure clearA10M; inline;
  1524. procedure clearACKDT; inline;
  1525. procedure clearACKEN; inline;
  1526. procedure clearDISSLW; inline;
  1527. procedure clearGCEN; inline;
  1528. procedure clearI2CEN; inline;
  1529. procedure clearI2CSIDL; inline;
  1530. procedure clearIPMIEN; inline;
  1531. procedure clearON; inline;
  1532. procedure clearPEN; inline;
  1533. procedure clearRCEN; inline;
  1534. procedure clearRSEN; inline;
  1535. procedure clearSCLREL; inline;
  1536. procedure clearSEN; inline;
  1537. procedure clearSIDL; inline;
  1538. procedure clearSMEN; inline;
  1539. procedure clearSTREN; inline;
  1540. procedure clearSTRICT; inline;
  1541. procedure setA10M; inline;
  1542. procedure setACKDT; inline;
  1543. procedure setACKEN; inline;
  1544. procedure setDISSLW; inline;
  1545. procedure setGCEN; inline;
  1546. procedure setI2CEN; inline;
  1547. procedure setI2CSIDL; inline;
  1548. procedure setIPMIEN; inline;
  1549. procedure setON; inline;
  1550. procedure setPEN; inline;
  1551. procedure setRCEN; inline;
  1552. procedure setRSEN; inline;
  1553. procedure setSCLREL; inline;
  1554. procedure setSEN; inline;
  1555. procedure setSIDL; inline;
  1556. procedure setSMEN; inline;
  1557. procedure setSTREN; inline;
  1558. procedure setSTRICT; inline;
  1559. property A10M : TBits_1 read getA10M write setA10M;
  1560. property ACKDT : TBits_1 read getACKDT write setACKDT;
  1561. property ACKEN : TBits_1 read getACKEN write setACKEN;
  1562. property DISSLW : TBits_1 read getDISSLW write setDISSLW;
  1563. property GCEN : TBits_1 read getGCEN write setGCEN;
  1564. property I2CEN : TBits_1 read getI2CEN write setI2CEN;
  1565. property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
  1566. property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
  1567. property ON : TBits_1 read getON write setON;
  1568. property PEN : TBits_1 read getPEN write setPEN;
  1569. property RCEN : TBits_1 read getRCEN write setRCEN;
  1570. property RSEN : TBits_1 read getRSEN write setRSEN;
  1571. property SCLREL : TBits_1 read getSCLREL write setSCLREL;
  1572. property SEN : TBits_1 read getSEN write setSEN;
  1573. property SIDL : TBits_1 read getSIDL write setSIDL;
  1574. property SMEN : TBits_1 read getSMEN write setSMEN;
  1575. property STREN : TBits_1 read getSTREN write setSTREN;
  1576. property STRICT : TBits_1 read getSTRICT write setSTRICT;
  1577. property w : TBits_32 read getw write setw;
  1578. end;
  1579. TI2C3_I2C3CON = record
  1580. private
  1581. function getA10M : TBits_1; inline;
  1582. function getACKDT : TBits_1; inline;
  1583. function getACKEN : TBits_1; inline;
  1584. function getDISSLW : TBits_1; inline;
  1585. function getGCEN : TBits_1; inline;
  1586. function getI2CEN : TBits_1; inline;
  1587. function getI2CSIDL : TBits_1; inline;
  1588. function getIPMIEN : TBits_1; inline;
  1589. function getON : TBits_1; inline;
  1590. function getPEN : TBits_1; inline;
  1591. function getRCEN : TBits_1; inline;
  1592. function getRSEN : TBits_1; inline;
  1593. function getSCLREL : TBits_1; inline;
  1594. function getSEN : TBits_1; inline;
  1595. function getSIDL : TBits_1; inline;
  1596. function getSMEN : TBits_1; inline;
  1597. function getSTREN : TBits_1; inline;
  1598. function getSTRICT : TBits_1; inline;
  1599. function getw : TBits_32; inline;
  1600. procedure setA10M(thebits : TBits_1); inline;
  1601. procedure setACKDT(thebits : TBits_1); inline;
  1602. procedure setACKEN(thebits : TBits_1); inline;
  1603. procedure setDISSLW(thebits : TBits_1); inline;
  1604. procedure setGCEN(thebits : TBits_1); inline;
  1605. procedure setI2CEN(thebits : TBits_1); inline;
  1606. procedure setI2CSIDL(thebits : TBits_1); inline;
  1607. procedure setIPMIEN(thebits : TBits_1); inline;
  1608. procedure setON(thebits : TBits_1); inline;
  1609. procedure setPEN(thebits : TBits_1); inline;
  1610. procedure setRCEN(thebits : TBits_1); inline;
  1611. procedure setRSEN(thebits : TBits_1); inline;
  1612. procedure setSCLREL(thebits : TBits_1); inline;
  1613. procedure setSEN(thebits : TBits_1); inline;
  1614. procedure setSIDL(thebits : TBits_1); inline;
  1615. procedure setSMEN(thebits : TBits_1); inline;
  1616. procedure setSTREN(thebits : TBits_1); inline;
  1617. procedure setSTRICT(thebits : TBits_1); inline;
  1618. procedure setw(thebits : TBits_32); inline;
  1619. public
  1620. procedure clearA10M; inline;
  1621. procedure clearACKDT; inline;
  1622. procedure clearACKEN; inline;
  1623. procedure clearDISSLW; inline;
  1624. procedure clearGCEN; inline;
  1625. procedure clearI2CEN; inline;
  1626. procedure clearI2CSIDL; inline;
  1627. procedure clearIPMIEN; inline;
  1628. procedure clearON; inline;
  1629. procedure clearPEN; inline;
  1630. procedure clearRCEN; inline;
  1631. procedure clearRSEN; inline;
  1632. procedure clearSCLREL; inline;
  1633. procedure clearSEN; inline;
  1634. procedure clearSIDL; inline;
  1635. procedure clearSMEN; inline;
  1636. procedure clearSTREN; inline;
  1637. procedure clearSTRICT; inline;
  1638. procedure setA10M; inline;
  1639. procedure setACKDT; inline;
  1640. procedure setACKEN; inline;
  1641. procedure setDISSLW; inline;
  1642. procedure setGCEN; inline;
  1643. procedure setI2CEN; inline;
  1644. procedure setI2CSIDL; inline;
  1645. procedure setIPMIEN; inline;
  1646. procedure setON; inline;
  1647. procedure setPEN; inline;
  1648. procedure setRCEN; inline;
  1649. procedure setRSEN; inline;
  1650. procedure setSCLREL; inline;
  1651. procedure setSEN; inline;
  1652. procedure setSIDL; inline;
  1653. procedure setSMEN; inline;
  1654. procedure setSTREN; inline;
  1655. procedure setSTRICT; inline;
  1656. property A10M : TBits_1 read getA10M write setA10M;
  1657. property ACKDT : TBits_1 read getACKDT write setACKDT;
  1658. property ACKEN : TBits_1 read getACKEN write setACKEN;
  1659. property DISSLW : TBits_1 read getDISSLW write setDISSLW;
  1660. property GCEN : TBits_1 read getGCEN write setGCEN;
  1661. property I2CEN : TBits_1 read getI2CEN write setI2CEN;
  1662. property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
  1663. property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
  1664. property ON : TBits_1 read getON write setON;
  1665. property PEN : TBits_1 read getPEN write setPEN;
  1666. property RCEN : TBits_1 read getRCEN write setRCEN;
  1667. property RSEN : TBits_1 read getRSEN write setRSEN;
  1668. property SCLREL : TBits_1 read getSCLREL write setSCLREL;
  1669. property SEN : TBits_1 read getSEN write setSEN;
  1670. property SIDL : TBits_1 read getSIDL write setSIDL;
  1671. property SMEN : TBits_1 read getSMEN write setSMEN;
  1672. property STREN : TBits_1 read getSTREN write setSTREN;
  1673. property STRICT : TBits_1 read getSTRICT write setSTRICT;
  1674. property w : TBits_32 read getw write setw;
  1675. end;
  1676. TI2C3_I2C1ASTAT = record
  1677. private
  1678. function getACKSTAT : TBits_1; inline;
  1679. function getADD10 : TBits_1; inline;
  1680. function getBCL : TBits_1; inline;
  1681. function getD_A : TBits_1; inline;
  1682. function getGCSTAT : TBits_1; inline;
  1683. function getI2COV : TBits_1; inline;
  1684. function getI2CPOV : TBits_1; inline;
  1685. function getIWCOL : TBits_1; inline;
  1686. function getP : TBits_1; inline;
  1687. function getRBF : TBits_1; inline;
  1688. function getR_W : TBits_1; inline;
  1689. function getS : TBits_1; inline;
  1690. function getTBF : TBits_1; inline;
  1691. function getTRSTAT : TBits_1; inline;
  1692. function getw : TBits_32; inline;
  1693. procedure setACKSTAT(thebits : TBits_1); inline;
  1694. procedure setADD10(thebits : TBits_1); inline;
  1695. procedure setBCL(thebits : TBits_1); inline;
  1696. procedure setD_A(thebits : TBits_1); inline;
  1697. procedure setGCSTAT(thebits : TBits_1); inline;
  1698. procedure setI2COV(thebits : TBits_1); inline;
  1699. procedure setI2CPOV(thebits : TBits_1); inline;
  1700. procedure setIWCOL(thebits : TBits_1); inline;
  1701. procedure setP(thebits : TBits_1); inline;
  1702. procedure setRBF(thebits : TBits_1); inline;
  1703. procedure setR_W(thebits : TBits_1); inline;
  1704. procedure setS(thebits : TBits_1); inline;
  1705. procedure setTBF(thebits : TBits_1); inline;
  1706. procedure setTRSTAT(thebits : TBits_1); inline;
  1707. procedure setw(thebits : TBits_32); inline;
  1708. public
  1709. procedure clearACKSTAT; inline;
  1710. procedure clearADD10; inline;
  1711. procedure clearBCL; inline;
  1712. procedure clearD_A; inline;
  1713. procedure clearGCSTAT; inline;
  1714. procedure clearI2COV; inline;
  1715. procedure clearI2CPOV; inline;
  1716. procedure clearIWCOL; inline;
  1717. procedure clearP; inline;
  1718. procedure clearRBF; inline;
  1719. procedure clearR_W; inline;
  1720. procedure clearS; inline;
  1721. procedure clearTBF; inline;
  1722. procedure clearTRSTAT; inline;
  1723. procedure setACKSTAT; inline;
  1724. procedure setADD10; inline;
  1725. procedure setBCL; inline;
  1726. procedure setD_A; inline;
  1727. procedure setGCSTAT; inline;
  1728. procedure setI2COV; inline;
  1729. procedure setI2CPOV; inline;
  1730. procedure setIWCOL; inline;
  1731. procedure setP; inline;
  1732. procedure setRBF; inline;
  1733. procedure setR_W; inline;
  1734. procedure setS; inline;
  1735. procedure setTBF; inline;
  1736. procedure setTRSTAT; inline;
  1737. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  1738. property ADD10 : TBits_1 read getADD10 write setADD10;
  1739. property BCL : TBits_1 read getBCL write setBCL;
  1740. property D_A : TBits_1 read getD_A write setD_A;
  1741. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  1742. property I2COV : TBits_1 read getI2COV write setI2COV;
  1743. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  1744. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  1745. property P : TBits_1 read getP write setP;
  1746. property RBF : TBits_1 read getRBF write setRBF;
  1747. property R_W : TBits_1 read getR_W write setR_W;
  1748. property S : TBits_1 read getS write setS;
  1749. property TBF : TBits_1 read getTBF write setTBF;
  1750. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  1751. property w : TBits_32 read getw write setw;
  1752. end;
  1753. TI2C3_I2C3STAT = record
  1754. private
  1755. function getACKSTAT : TBits_1; inline;
  1756. function getADD10 : TBits_1; inline;
  1757. function getBCL : TBits_1; inline;
  1758. function getD_A : TBits_1; inline;
  1759. function getGCSTAT : TBits_1; inline;
  1760. function getI2COV : TBits_1; inline;
  1761. function getI2CPOV : TBits_1; inline;
  1762. function getIWCOL : TBits_1; inline;
  1763. function getP : TBits_1; inline;
  1764. function getRBF : TBits_1; inline;
  1765. function getR_W : TBits_1; inline;
  1766. function getS : TBits_1; inline;
  1767. function getTBF : TBits_1; inline;
  1768. function getTRSTAT : TBits_1; inline;
  1769. function getw : TBits_32; inline;
  1770. procedure setACKSTAT(thebits : TBits_1); inline;
  1771. procedure setADD10(thebits : TBits_1); inline;
  1772. procedure setBCL(thebits : TBits_1); inline;
  1773. procedure setD_A(thebits : TBits_1); inline;
  1774. procedure setGCSTAT(thebits : TBits_1); inline;
  1775. procedure setI2COV(thebits : TBits_1); inline;
  1776. procedure setI2CPOV(thebits : TBits_1); inline;
  1777. procedure setIWCOL(thebits : TBits_1); inline;
  1778. procedure setP(thebits : TBits_1); inline;
  1779. procedure setRBF(thebits : TBits_1); inline;
  1780. procedure setR_W(thebits : TBits_1); inline;
  1781. procedure setS(thebits : TBits_1); inline;
  1782. procedure setTBF(thebits : TBits_1); inline;
  1783. procedure setTRSTAT(thebits : TBits_1); inline;
  1784. procedure setw(thebits : TBits_32); inline;
  1785. public
  1786. procedure clearACKSTAT; inline;
  1787. procedure clearADD10; inline;
  1788. procedure clearBCL; inline;
  1789. procedure clearD_A; inline;
  1790. procedure clearGCSTAT; inline;
  1791. procedure clearI2COV; inline;
  1792. procedure clearI2CPOV; inline;
  1793. procedure clearIWCOL; inline;
  1794. procedure clearP; inline;
  1795. procedure clearRBF; inline;
  1796. procedure clearR_W; inline;
  1797. procedure clearS; inline;
  1798. procedure clearTBF; inline;
  1799. procedure clearTRSTAT; inline;
  1800. procedure setACKSTAT; inline;
  1801. procedure setADD10; inline;
  1802. procedure setBCL; inline;
  1803. procedure setD_A; inline;
  1804. procedure setGCSTAT; inline;
  1805. procedure setI2COV; inline;
  1806. procedure setI2CPOV; inline;
  1807. procedure setIWCOL; inline;
  1808. procedure setP; inline;
  1809. procedure setRBF; inline;
  1810. procedure setR_W; inline;
  1811. procedure setS; inline;
  1812. procedure setTBF; inline;
  1813. procedure setTRSTAT; inline;
  1814. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  1815. property ADD10 : TBits_1 read getADD10 write setADD10;
  1816. property BCL : TBits_1 read getBCL write setBCL;
  1817. property D_A : TBits_1 read getD_A write setD_A;
  1818. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  1819. property I2COV : TBits_1 read getI2COV write setI2COV;
  1820. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  1821. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  1822. property P : TBits_1 read getP write setP;
  1823. property RBF : TBits_1 read getRBF write setRBF;
  1824. property R_W : TBits_1 read getR_W write setR_W;
  1825. property S : TBits_1 read getS write setS;
  1826. property TBF : TBits_1 read getTBF write setTBF;
  1827. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  1828. property w : TBits_32 read getw write setw;
  1829. end;
  1830. type
  1831. TI2C3Registers = record
  1832. I2C1ACONbits : TI2C3_I2C1ACON;
  1833. I2C1ACON : longWord;
  1834. I2C3CONbits : TI2C3_I2C3CON;
  1835. I2C3CON : longWord;
  1836. I2C1ACONCLR : longWord;
  1837. I2C3CONCLR : longWord;
  1838. I2C1ACONSET : longWord;
  1839. I2C3CONSET : longWord;
  1840. I2C1ACONINV : longWord;
  1841. I2C3CONINV : longWord;
  1842. I2C1ASTATbits : TI2C3_I2C1ASTAT;
  1843. I2C1ASTAT : longWord;
  1844. I2C3STATbits : TI2C3_I2C3STAT;
  1845. I2C3STAT : longWord;
  1846. I2C1ASTATCLR : longWord;
  1847. I2C3STATCLR : longWord;
  1848. I2C1ASTATSET : longWord;
  1849. I2C3STATSET : longWord;
  1850. I2C1ASTATINV : longWord;
  1851. I2C3STATINV : longWord;
  1852. I2C1AADD : longWord;
  1853. I2C3ADD : longWord;
  1854. I2C1AADDCLR : longWord;
  1855. I2C3ADDCLR : longWord;
  1856. I2C1AADDSET : longWord;
  1857. I2C3ADDSET : longWord;
  1858. I2C1AADDINV : longWord;
  1859. I2C3ADDINV : longWord;
  1860. I2C1AMSK : longWord;
  1861. I2C3MSK : longWord;
  1862. I2C1AMSKCLR : longWord;
  1863. I2C3MSKCLR : longWord;
  1864. I2C1AMSKSET : longWord;
  1865. I2C3MSKSET : longWord;
  1866. I2C1AMSKINV : longWord;
  1867. I2C3MSKINV : longWord;
  1868. I2C1ABRG : longWord;
  1869. I2C3BRG : longWord;
  1870. I2C1ABRGCLR : longWord;
  1871. I2C3BRGCLR : longWord;
  1872. I2C1ABRGSET : longWord;
  1873. I2C3BRGSET : longWord;
  1874. I2C1ABRGINV : longWord;
  1875. I2C3BRGINV : longWord;
  1876. I2C1ATRN : longWord;
  1877. I2C3TRN : longWord;
  1878. I2C1ATRNCLR : longWord;
  1879. I2C3TRNCLR : longWord;
  1880. I2C1ATRNSET : longWord;
  1881. I2C3TRNSET : longWord;
  1882. I2C1ATRNINV : longWord;
  1883. I2C3TRNINV : longWord;
  1884. I2C1ARCV : longWord;
  1885. I2C3RCV : longWord;
  1886. end;
  1887. TI2C2A_I2C2ACON = record
  1888. private
  1889. function getA10M : TBits_1; inline;
  1890. function getACKDT : TBits_1; inline;
  1891. function getACKEN : TBits_1; inline;
  1892. function getDISSLW : TBits_1; inline;
  1893. function getGCEN : TBits_1; inline;
  1894. function getI2CEN : TBits_1; inline;
  1895. function getI2CSIDL : TBits_1; inline;
  1896. function getIPMIEN : TBits_1; inline;
  1897. function getON : TBits_1; inline;
  1898. function getPEN : TBits_1; inline;
  1899. function getRCEN : TBits_1; inline;
  1900. function getRSEN : TBits_1; inline;
  1901. function getSCLREL : TBits_1; inline;
  1902. function getSEN : TBits_1; inline;
  1903. function getSIDL : TBits_1; inline;
  1904. function getSMEN : TBits_1; inline;
  1905. function getSTREN : TBits_1; inline;
  1906. function getSTRICT : TBits_1; inline;
  1907. function getw : TBits_32; inline;
  1908. procedure setA10M(thebits : TBits_1); inline;
  1909. procedure setACKDT(thebits : TBits_1); inline;
  1910. procedure setACKEN(thebits : TBits_1); inline;
  1911. procedure setDISSLW(thebits : TBits_1); inline;
  1912. procedure setGCEN(thebits : TBits_1); inline;
  1913. procedure setI2CEN(thebits : TBits_1); inline;
  1914. procedure setI2CSIDL(thebits : TBits_1); inline;
  1915. procedure setIPMIEN(thebits : TBits_1); inline;
  1916. procedure setON(thebits : TBits_1); inline;
  1917. procedure setPEN(thebits : TBits_1); inline;
  1918. procedure setRCEN(thebits : TBits_1); inline;
  1919. procedure setRSEN(thebits : TBits_1); inline;
  1920. procedure setSCLREL(thebits : TBits_1); inline;
  1921. procedure setSEN(thebits : TBits_1); inline;
  1922. procedure setSIDL(thebits : TBits_1); inline;
  1923. procedure setSMEN(thebits : TBits_1); inline;
  1924. procedure setSTREN(thebits : TBits_1); inline;
  1925. procedure setSTRICT(thebits : TBits_1); inline;
  1926. procedure setw(thebits : TBits_32); inline;
  1927. public
  1928. procedure clearA10M; inline;
  1929. procedure clearACKDT; inline;
  1930. procedure clearACKEN; inline;
  1931. procedure clearDISSLW; inline;
  1932. procedure clearGCEN; inline;
  1933. procedure clearI2CEN; inline;
  1934. procedure clearI2CSIDL; inline;
  1935. procedure clearIPMIEN; inline;
  1936. procedure clearON; inline;
  1937. procedure clearPEN; inline;
  1938. procedure clearRCEN; inline;
  1939. procedure clearRSEN; inline;
  1940. procedure clearSCLREL; inline;
  1941. procedure clearSEN; inline;
  1942. procedure clearSIDL; inline;
  1943. procedure clearSMEN; inline;
  1944. procedure clearSTREN; inline;
  1945. procedure clearSTRICT; inline;
  1946. procedure setA10M; inline;
  1947. procedure setACKDT; inline;
  1948. procedure setACKEN; inline;
  1949. procedure setDISSLW; inline;
  1950. procedure setGCEN; inline;
  1951. procedure setI2CEN; inline;
  1952. procedure setI2CSIDL; inline;
  1953. procedure setIPMIEN; inline;
  1954. procedure setON; inline;
  1955. procedure setPEN; inline;
  1956. procedure setRCEN; inline;
  1957. procedure setRSEN; inline;
  1958. procedure setSCLREL; inline;
  1959. procedure setSEN; inline;
  1960. procedure setSIDL; inline;
  1961. procedure setSMEN; inline;
  1962. procedure setSTREN; inline;
  1963. procedure setSTRICT; inline;
  1964. property A10M : TBits_1 read getA10M write setA10M;
  1965. property ACKDT : TBits_1 read getACKDT write setACKDT;
  1966. property ACKEN : TBits_1 read getACKEN write setACKEN;
  1967. property DISSLW : TBits_1 read getDISSLW write setDISSLW;
  1968. property GCEN : TBits_1 read getGCEN write setGCEN;
  1969. property I2CEN : TBits_1 read getI2CEN write setI2CEN;
  1970. property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
  1971. property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
  1972. property ON : TBits_1 read getON write setON;
  1973. property PEN : TBits_1 read getPEN write setPEN;
  1974. property RCEN : TBits_1 read getRCEN write setRCEN;
  1975. property RSEN : TBits_1 read getRSEN write setRSEN;
  1976. property SCLREL : TBits_1 read getSCLREL write setSCLREL;
  1977. property SEN : TBits_1 read getSEN write setSEN;
  1978. property SIDL : TBits_1 read getSIDL write setSIDL;
  1979. property SMEN : TBits_1 read getSMEN write setSMEN;
  1980. property STREN : TBits_1 read getSTREN write setSTREN;
  1981. property STRICT : TBits_1 read getSTRICT write setSTRICT;
  1982. property w : TBits_32 read getw write setw;
  1983. end;
  1984. TI2C2A_I2C4CON = record
  1985. private
  1986. function getA10M : TBits_1; inline;
  1987. function getACKDT : TBits_1; inline;
  1988. function getACKEN : TBits_1; inline;
  1989. function getDISSLW : TBits_1; inline;
  1990. function getGCEN : TBits_1; inline;
  1991. function getI2CEN : TBits_1; inline;
  1992. function getI2CSIDL : TBits_1; inline;
  1993. function getIPMIEN : TBits_1; inline;
  1994. function getON : TBits_1; inline;
  1995. function getPEN : TBits_1; inline;
  1996. function getRCEN : TBits_1; inline;
  1997. function getRSEN : TBits_1; inline;
  1998. function getSCLREL : TBits_1; inline;
  1999. function getSEN : TBits_1; inline;
  2000. function getSIDL : TBits_1; inline;
  2001. function getSMEN : TBits_1; inline;
  2002. function getSTREN : TBits_1; inline;
  2003. function getSTRICT : TBits_1; inline;
  2004. function getw : TBits_32; inline;
  2005. procedure setA10M(thebits : TBits_1); inline;
  2006. procedure setACKDT(thebits : TBits_1); inline;
  2007. procedure setACKEN(thebits : TBits_1); inline;
  2008. procedure setDISSLW(thebits : TBits_1); inline;
  2009. procedure setGCEN(thebits : TBits_1); inline;
  2010. procedure setI2CEN(thebits : TBits_1); inline;
  2011. procedure setI2CSIDL(thebits : TBits_1); inline;
  2012. procedure setIPMIEN(thebits : TBits_1); inline;
  2013. procedure setON(thebits : TBits_1); inline;
  2014. procedure setPEN(thebits : TBits_1); inline;
  2015. procedure setRCEN(thebits : TBits_1); inline;
  2016. procedure setRSEN(thebits : TBits_1); inline;
  2017. procedure setSCLREL(thebits : TBits_1); inline;
  2018. procedure setSEN(thebits : TBits_1); inline;
  2019. procedure setSIDL(thebits : TBits_1); inline;
  2020. procedure setSMEN(thebits : TBits_1); inline;
  2021. procedure setSTREN(thebits : TBits_1); inline;
  2022. procedure setSTRICT(thebits : TBits_1); inline;
  2023. procedure setw(thebits : TBits_32); inline;
  2024. public
  2025. procedure clearA10M; inline;
  2026. procedure clearACKDT; inline;
  2027. procedure clearACKEN; inline;
  2028. procedure clearDISSLW; inline;
  2029. procedure clearGCEN; inline;
  2030. procedure clearI2CEN; inline;
  2031. procedure clearI2CSIDL; inline;
  2032. procedure clearIPMIEN; inline;
  2033. procedure clearON; inline;
  2034. procedure clearPEN; inline;
  2035. procedure clearRCEN; inline;
  2036. procedure clearRSEN; inline;
  2037. procedure clearSCLREL; inline;
  2038. procedure clearSEN; inline;
  2039. procedure clearSIDL; inline;
  2040. procedure clearSMEN; inline;
  2041. procedure clearSTREN; inline;
  2042. procedure clearSTRICT; inline;
  2043. procedure setA10M; inline;
  2044. procedure setACKDT; inline;
  2045. procedure setACKEN; inline;
  2046. procedure setDISSLW; inline;
  2047. procedure setGCEN; inline;
  2048. procedure setI2CEN; inline;
  2049. procedure setI2CSIDL; inline;
  2050. procedure setIPMIEN; inline;
  2051. procedure setON; inline;
  2052. procedure setPEN; inline;
  2053. procedure setRCEN; inline;
  2054. procedure setRSEN; inline;
  2055. procedure setSCLREL; inline;
  2056. procedure setSEN; inline;
  2057. procedure setSIDL; inline;
  2058. procedure setSMEN; inline;
  2059. procedure setSTREN; inline;
  2060. procedure setSTRICT; inline;
  2061. property A10M : TBits_1 read getA10M write setA10M;
  2062. property ACKDT : TBits_1 read getACKDT write setACKDT;
  2063. property ACKEN : TBits_1 read getACKEN write setACKEN;
  2064. property DISSLW : TBits_1 read getDISSLW write setDISSLW;
  2065. property GCEN : TBits_1 read getGCEN write setGCEN;
  2066. property I2CEN : TBits_1 read getI2CEN write setI2CEN;
  2067. property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
  2068. property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
  2069. property ON : TBits_1 read getON write setON;
  2070. property PEN : TBits_1 read getPEN write setPEN;
  2071. property RCEN : TBits_1 read getRCEN write setRCEN;
  2072. property RSEN : TBits_1 read getRSEN write setRSEN;
  2073. property SCLREL : TBits_1 read getSCLREL write setSCLREL;
  2074. property SEN : TBits_1 read getSEN write setSEN;
  2075. property SIDL : TBits_1 read getSIDL write setSIDL;
  2076. property SMEN : TBits_1 read getSMEN write setSMEN;
  2077. property STREN : TBits_1 read getSTREN write setSTREN;
  2078. property STRICT : TBits_1 read getSTRICT write setSTRICT;
  2079. property w : TBits_32 read getw write setw;
  2080. end;
  2081. TI2C2A_I2C2ASTAT = record
  2082. private
  2083. function getACKSTAT : TBits_1; inline;
  2084. function getADD10 : TBits_1; inline;
  2085. function getBCL : TBits_1; inline;
  2086. function getD_A : TBits_1; inline;
  2087. function getGCSTAT : TBits_1; inline;
  2088. function getI2COV : TBits_1; inline;
  2089. function getI2CPOV : TBits_1; inline;
  2090. function getIWCOL : TBits_1; inline;
  2091. function getP : TBits_1; inline;
  2092. function getRBF : TBits_1; inline;
  2093. function getR_W : TBits_1; inline;
  2094. function getS : TBits_1; inline;
  2095. function getTBF : TBits_1; inline;
  2096. function getTRSTAT : TBits_1; inline;
  2097. function getw : TBits_32; inline;
  2098. procedure setACKSTAT(thebits : TBits_1); inline;
  2099. procedure setADD10(thebits : TBits_1); inline;
  2100. procedure setBCL(thebits : TBits_1); inline;
  2101. procedure setD_A(thebits : TBits_1); inline;
  2102. procedure setGCSTAT(thebits : TBits_1); inline;
  2103. procedure setI2COV(thebits : TBits_1); inline;
  2104. procedure setI2CPOV(thebits : TBits_1); inline;
  2105. procedure setIWCOL(thebits : TBits_1); inline;
  2106. procedure setP(thebits : TBits_1); inline;
  2107. procedure setRBF(thebits : TBits_1); inline;
  2108. procedure setR_W(thebits : TBits_1); inline;
  2109. procedure setS(thebits : TBits_1); inline;
  2110. procedure setTBF(thebits : TBits_1); inline;
  2111. procedure setTRSTAT(thebits : TBits_1); inline;
  2112. procedure setw(thebits : TBits_32); inline;
  2113. public
  2114. procedure clearACKSTAT; inline;
  2115. procedure clearADD10; inline;
  2116. procedure clearBCL; inline;
  2117. procedure clearD_A; inline;
  2118. procedure clearGCSTAT; inline;
  2119. procedure clearI2COV; inline;
  2120. procedure clearI2CPOV; inline;
  2121. procedure clearIWCOL; inline;
  2122. procedure clearP; inline;
  2123. procedure clearRBF; inline;
  2124. procedure clearR_W; inline;
  2125. procedure clearS; inline;
  2126. procedure clearTBF; inline;
  2127. procedure clearTRSTAT; inline;
  2128. procedure setACKSTAT; inline;
  2129. procedure setADD10; inline;
  2130. procedure setBCL; inline;
  2131. procedure setD_A; inline;
  2132. procedure setGCSTAT; inline;
  2133. procedure setI2COV; inline;
  2134. procedure setI2CPOV; inline;
  2135. procedure setIWCOL; inline;
  2136. procedure setP; inline;
  2137. procedure setRBF; inline;
  2138. procedure setR_W; inline;
  2139. procedure setS; inline;
  2140. procedure setTBF; inline;
  2141. procedure setTRSTAT; inline;
  2142. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  2143. property ADD10 : TBits_1 read getADD10 write setADD10;
  2144. property BCL : TBits_1 read getBCL write setBCL;
  2145. property D_A : TBits_1 read getD_A write setD_A;
  2146. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  2147. property I2COV : TBits_1 read getI2COV write setI2COV;
  2148. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  2149. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  2150. property P : TBits_1 read getP write setP;
  2151. property RBF : TBits_1 read getRBF write setRBF;
  2152. property R_W : TBits_1 read getR_W write setR_W;
  2153. property S : TBits_1 read getS write setS;
  2154. property TBF : TBits_1 read getTBF write setTBF;
  2155. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  2156. property w : TBits_32 read getw write setw;
  2157. end;
  2158. TI2C2A_I2C4STAT = record
  2159. private
  2160. function getACKSTAT : TBits_1; inline;
  2161. function getADD10 : TBits_1; inline;
  2162. function getBCL : TBits_1; inline;
  2163. function getD_A : TBits_1; inline;
  2164. function getGCSTAT : TBits_1; inline;
  2165. function getI2COV : TBits_1; inline;
  2166. function getI2CPOV : TBits_1; inline;
  2167. function getIWCOL : TBits_1; inline;
  2168. function getP : TBits_1; inline;
  2169. function getRBF : TBits_1; inline;
  2170. function getR_W : TBits_1; inline;
  2171. function getS : TBits_1; inline;
  2172. function getTBF : TBits_1; inline;
  2173. function getTRSTAT : TBits_1; inline;
  2174. function getw : TBits_32; inline;
  2175. procedure setACKSTAT(thebits : TBits_1); inline;
  2176. procedure setADD10(thebits : TBits_1); inline;
  2177. procedure setBCL(thebits : TBits_1); inline;
  2178. procedure setD_A(thebits : TBits_1); inline;
  2179. procedure setGCSTAT(thebits : TBits_1); inline;
  2180. procedure setI2COV(thebits : TBits_1); inline;
  2181. procedure setI2CPOV(thebits : TBits_1); inline;
  2182. procedure setIWCOL(thebits : TBits_1); inline;
  2183. procedure setP(thebits : TBits_1); inline;
  2184. procedure setRBF(thebits : TBits_1); inline;
  2185. procedure setR_W(thebits : TBits_1); inline;
  2186. procedure setS(thebits : TBits_1); inline;
  2187. procedure setTBF(thebits : TBits_1); inline;
  2188. procedure setTRSTAT(thebits : TBits_1); inline;
  2189. procedure setw(thebits : TBits_32); inline;
  2190. public
  2191. procedure clearACKSTAT; inline;
  2192. procedure clearADD10; inline;
  2193. procedure clearBCL; inline;
  2194. procedure clearD_A; inline;
  2195. procedure clearGCSTAT; inline;
  2196. procedure clearI2COV; inline;
  2197. procedure clearI2CPOV; inline;
  2198. procedure clearIWCOL; inline;
  2199. procedure clearP; inline;
  2200. procedure clearRBF; inline;
  2201. procedure clearR_W; inline;
  2202. procedure clearS; inline;
  2203. procedure clearTBF; inline;
  2204. procedure clearTRSTAT; inline;
  2205. procedure setACKSTAT; inline;
  2206. procedure setADD10; inline;
  2207. procedure setBCL; inline;
  2208. procedure setD_A; inline;
  2209. procedure setGCSTAT; inline;
  2210. procedure setI2COV; inline;
  2211. procedure setI2CPOV; inline;
  2212. procedure setIWCOL; inline;
  2213. procedure setP; inline;
  2214. procedure setRBF; inline;
  2215. procedure setR_W; inline;
  2216. procedure setS; inline;
  2217. procedure setTBF; inline;
  2218. procedure setTRSTAT; inline;
  2219. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  2220. property ADD10 : TBits_1 read getADD10 write setADD10;
  2221. property BCL : TBits_1 read getBCL write setBCL;
  2222. property D_A : TBits_1 read getD_A write setD_A;
  2223. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  2224. property I2COV : TBits_1 read getI2COV write setI2COV;
  2225. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  2226. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  2227. property P : TBits_1 read getP write setP;
  2228. property RBF : TBits_1 read getRBF write setRBF;
  2229. property R_W : TBits_1 read getR_W write setR_W;
  2230. property S : TBits_1 read getS write setS;
  2231. property TBF : TBits_1 read getTBF write setTBF;
  2232. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  2233. property w : TBits_32 read getw write setw;
  2234. end;
  2235. type
  2236. TI2C2ARegisters = record
  2237. I2C2ACONbits : TI2C2A_I2C2ACON;
  2238. I2C2ACON : longWord;
  2239. I2C4CONbits : TI2C2A_I2C4CON;
  2240. I2C4CON : longWord;
  2241. I2C2ACONCLR : longWord;
  2242. I2C4CONCLR : longWord;
  2243. I2C2ACONSET : longWord;
  2244. I2C4CONSET : longWord;
  2245. I2C2ACONINV : longWord;
  2246. I2C4CONINV : longWord;
  2247. I2C2ASTATbits : TI2C2A_I2C2ASTAT;
  2248. I2C2ASTAT : longWord;
  2249. I2C4STATbits : TI2C2A_I2C4STAT;
  2250. I2C4STAT : longWord;
  2251. I2C2ASTATCLR : longWord;
  2252. I2C4STATCLR : longWord;
  2253. I2C2ASTATSET : longWord;
  2254. I2C4STATSET : longWord;
  2255. I2C2ASTATINV : longWord;
  2256. I2C4STATINV : longWord;
  2257. I2C2AADD : longWord;
  2258. I2C4ADD : longWord;
  2259. I2C2AADDCLR : longWord;
  2260. I2C4ADDCLR : longWord;
  2261. I2C2AADDSET : longWord;
  2262. I2C4ADDSET : longWord;
  2263. I2C2AADDINV : longWord;
  2264. I2C4ADDINV : longWord;
  2265. I2C2AMSK : longWord;
  2266. I2C4MSK : longWord;
  2267. I2C2AMSKCLR : longWord;
  2268. I2C4MSKCLR : longWord;
  2269. I2C2AMSKSET : longWord;
  2270. I2C4MSKSET : longWord;
  2271. I2C2AMSKINV : longWord;
  2272. I2C4MSKINV : longWord;
  2273. I2C2ABRG : longWord;
  2274. I2C4BRG : longWord;
  2275. I2C2ABRGCLR : longWord;
  2276. I2C4BRGCLR : longWord;
  2277. I2C2ABRGSET : longWord;
  2278. I2C4BRGSET : longWord;
  2279. I2C2ABRGINV : longWord;
  2280. I2C4BRGINV : longWord;
  2281. I2C2ATRN : longWord;
  2282. I2C4TRN : longWord;
  2283. I2C2ATRNCLR : longWord;
  2284. I2C4TRNCLR : longWord;
  2285. I2C2ATRNSET : longWord;
  2286. I2C4TRNSET : longWord;
  2287. I2C2ATRNINV : longWord;
  2288. I2C4TRNINV : longWord;
  2289. I2C2ARCV : longWord;
  2290. I2C4RCV : longWord;
  2291. end;
  2292. TI2C5_I2C3ACON = record
  2293. private
  2294. function getA10M : TBits_1; inline;
  2295. function getACKDT : TBits_1; inline;
  2296. function getACKEN : TBits_1; inline;
  2297. function getDISSLW : TBits_1; inline;
  2298. function getGCEN : TBits_1; inline;
  2299. function getI2CEN : TBits_1; inline;
  2300. function getI2CSIDL : TBits_1; inline;
  2301. function getIPMIEN : TBits_1; inline;
  2302. function getON : TBits_1; inline;
  2303. function getPEN : TBits_1; inline;
  2304. function getRCEN : TBits_1; inline;
  2305. function getRSEN : TBits_1; inline;
  2306. function getSCLREL : TBits_1; inline;
  2307. function getSEN : TBits_1; inline;
  2308. function getSIDL : TBits_1; inline;
  2309. function getSMEN : TBits_1; inline;
  2310. function getSTREN : TBits_1; inline;
  2311. function getSTRICT : TBits_1; inline;
  2312. function getw : TBits_32; inline;
  2313. procedure setA10M(thebits : TBits_1); inline;
  2314. procedure setACKDT(thebits : TBits_1); inline;
  2315. procedure setACKEN(thebits : TBits_1); inline;
  2316. procedure setDISSLW(thebits : TBits_1); inline;
  2317. procedure setGCEN(thebits : TBits_1); inline;
  2318. procedure setI2CEN(thebits : TBits_1); inline;
  2319. procedure setI2CSIDL(thebits : TBits_1); inline;
  2320. procedure setIPMIEN(thebits : TBits_1); inline;
  2321. procedure setON(thebits : TBits_1); inline;
  2322. procedure setPEN(thebits : TBits_1); inline;
  2323. procedure setRCEN(thebits : TBits_1); inline;
  2324. procedure setRSEN(thebits : TBits_1); inline;
  2325. procedure setSCLREL(thebits : TBits_1); inline;
  2326. procedure setSEN(thebits : TBits_1); inline;
  2327. procedure setSIDL(thebits : TBits_1); inline;
  2328. procedure setSMEN(thebits : TBits_1); inline;
  2329. procedure setSTREN(thebits : TBits_1); inline;
  2330. procedure setSTRICT(thebits : TBits_1); inline;
  2331. procedure setw(thebits : TBits_32); inline;
  2332. public
  2333. procedure clearA10M; inline;
  2334. procedure clearACKDT; inline;
  2335. procedure clearACKEN; inline;
  2336. procedure clearDISSLW; inline;
  2337. procedure clearGCEN; inline;
  2338. procedure clearI2CEN; inline;
  2339. procedure clearI2CSIDL; inline;
  2340. procedure clearIPMIEN; inline;
  2341. procedure clearON; inline;
  2342. procedure clearPEN; inline;
  2343. procedure clearRCEN; inline;
  2344. procedure clearRSEN; inline;
  2345. procedure clearSCLREL; inline;
  2346. procedure clearSEN; inline;
  2347. procedure clearSIDL; inline;
  2348. procedure clearSMEN; inline;
  2349. procedure clearSTREN; inline;
  2350. procedure clearSTRICT; inline;
  2351. procedure setA10M; inline;
  2352. procedure setACKDT; inline;
  2353. procedure setACKEN; inline;
  2354. procedure setDISSLW; inline;
  2355. procedure setGCEN; inline;
  2356. procedure setI2CEN; inline;
  2357. procedure setI2CSIDL; inline;
  2358. procedure setIPMIEN; inline;
  2359. procedure setON; inline;
  2360. procedure setPEN; inline;
  2361. procedure setRCEN; inline;
  2362. procedure setRSEN; inline;
  2363. procedure setSCLREL; inline;
  2364. procedure setSEN; inline;
  2365. procedure setSIDL; inline;
  2366. procedure setSMEN; inline;
  2367. procedure setSTREN; inline;
  2368. procedure setSTRICT; inline;
  2369. property A10M : TBits_1 read getA10M write setA10M;
  2370. property ACKDT : TBits_1 read getACKDT write setACKDT;
  2371. property ACKEN : TBits_1 read getACKEN write setACKEN;
  2372. property DISSLW : TBits_1 read getDISSLW write setDISSLW;
  2373. property GCEN : TBits_1 read getGCEN write setGCEN;
  2374. property I2CEN : TBits_1 read getI2CEN write setI2CEN;
  2375. property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
  2376. property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
  2377. property ON : TBits_1 read getON write setON;
  2378. property PEN : TBits_1 read getPEN write setPEN;
  2379. property RCEN : TBits_1 read getRCEN write setRCEN;
  2380. property RSEN : TBits_1 read getRSEN write setRSEN;
  2381. property SCLREL : TBits_1 read getSCLREL write setSCLREL;
  2382. property SEN : TBits_1 read getSEN write setSEN;
  2383. property SIDL : TBits_1 read getSIDL write setSIDL;
  2384. property SMEN : TBits_1 read getSMEN write setSMEN;
  2385. property STREN : TBits_1 read getSTREN write setSTREN;
  2386. property STRICT : TBits_1 read getSTRICT write setSTRICT;
  2387. property w : TBits_32 read getw write setw;
  2388. end;
  2389. TI2C5_I2C5CON = record
  2390. private
  2391. function getA10M : TBits_1; inline;
  2392. function getACKDT : TBits_1; inline;
  2393. function getACKEN : TBits_1; inline;
  2394. function getDISSLW : TBits_1; inline;
  2395. function getGCEN : TBits_1; inline;
  2396. function getI2CEN : TBits_1; inline;
  2397. function getI2CSIDL : TBits_1; inline;
  2398. function getIPMIEN : TBits_1; inline;
  2399. function getON : TBits_1; inline;
  2400. function getPEN : TBits_1; inline;
  2401. function getRCEN : TBits_1; inline;
  2402. function getRSEN : TBits_1; inline;
  2403. function getSCLREL : TBits_1; inline;
  2404. function getSEN : TBits_1; inline;
  2405. function getSIDL : TBits_1; inline;
  2406. function getSMEN : TBits_1; inline;
  2407. function getSTREN : TBits_1; inline;
  2408. function getSTRICT : TBits_1; inline;
  2409. function getw : TBits_32; inline;
  2410. procedure setA10M(thebits : TBits_1); inline;
  2411. procedure setACKDT(thebits : TBits_1); inline;
  2412. procedure setACKEN(thebits : TBits_1); inline;
  2413. procedure setDISSLW(thebits : TBits_1); inline;
  2414. procedure setGCEN(thebits : TBits_1); inline;
  2415. procedure setI2CEN(thebits : TBits_1); inline;
  2416. procedure setI2CSIDL(thebits : TBits_1); inline;
  2417. procedure setIPMIEN(thebits : TBits_1); inline;
  2418. procedure setON(thebits : TBits_1); inline;
  2419. procedure setPEN(thebits : TBits_1); inline;
  2420. procedure setRCEN(thebits : TBits_1); inline;
  2421. procedure setRSEN(thebits : TBits_1); inline;
  2422. procedure setSCLREL(thebits : TBits_1); inline;
  2423. procedure setSEN(thebits : TBits_1); inline;
  2424. procedure setSIDL(thebits : TBits_1); inline;
  2425. procedure setSMEN(thebits : TBits_1); inline;
  2426. procedure setSTREN(thebits : TBits_1); inline;
  2427. procedure setSTRICT(thebits : TBits_1); inline;
  2428. procedure setw(thebits : TBits_32); inline;
  2429. public
  2430. procedure clearA10M; inline;
  2431. procedure clearACKDT; inline;
  2432. procedure clearACKEN; inline;
  2433. procedure clearDISSLW; inline;
  2434. procedure clearGCEN; inline;
  2435. procedure clearI2CEN; inline;
  2436. procedure clearI2CSIDL; inline;
  2437. procedure clearIPMIEN; inline;
  2438. procedure clearON; inline;
  2439. procedure clearPEN; inline;
  2440. procedure clearRCEN; inline;
  2441. procedure clearRSEN; inline;
  2442. procedure clearSCLREL; inline;
  2443. procedure clearSEN; inline;
  2444. procedure clearSIDL; inline;
  2445. procedure clearSMEN; inline;
  2446. procedure clearSTREN; inline;
  2447. procedure clearSTRICT; inline;
  2448. procedure setA10M; inline;
  2449. procedure setACKDT; inline;
  2450. procedure setACKEN; inline;
  2451. procedure setDISSLW; inline;
  2452. procedure setGCEN; inline;
  2453. procedure setI2CEN; inline;
  2454. procedure setI2CSIDL; inline;
  2455. procedure setIPMIEN; inline;
  2456. procedure setON; inline;
  2457. procedure setPEN; inline;
  2458. procedure setRCEN; inline;
  2459. procedure setRSEN; inline;
  2460. procedure setSCLREL; inline;
  2461. procedure setSEN; inline;
  2462. procedure setSIDL; inline;
  2463. procedure setSMEN; inline;
  2464. procedure setSTREN; inline;
  2465. procedure setSTRICT; inline;
  2466. property A10M : TBits_1 read getA10M write setA10M;
  2467. property ACKDT : TBits_1 read getACKDT write setACKDT;
  2468. property ACKEN : TBits_1 read getACKEN write setACKEN;
  2469. property DISSLW : TBits_1 read getDISSLW write setDISSLW;
  2470. property GCEN : TBits_1 read getGCEN write setGCEN;
  2471. property I2CEN : TBits_1 read getI2CEN write setI2CEN;
  2472. property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
  2473. property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
  2474. property ON : TBits_1 read getON write setON;
  2475. property PEN : TBits_1 read getPEN write setPEN;
  2476. property RCEN : TBits_1 read getRCEN write setRCEN;
  2477. property RSEN : TBits_1 read getRSEN write setRSEN;
  2478. property SCLREL : TBits_1 read getSCLREL write setSCLREL;
  2479. property SEN : TBits_1 read getSEN write setSEN;
  2480. property SIDL : TBits_1 read getSIDL write setSIDL;
  2481. property SMEN : TBits_1 read getSMEN write setSMEN;
  2482. property STREN : TBits_1 read getSTREN write setSTREN;
  2483. property STRICT : TBits_1 read getSTRICT write setSTRICT;
  2484. property w : TBits_32 read getw write setw;
  2485. end;
  2486. TI2C5_I2C3ASTAT = record
  2487. private
  2488. function getACKSTAT : TBits_1; inline;
  2489. function getADD10 : TBits_1; inline;
  2490. function getBCL : TBits_1; inline;
  2491. function getD_A : TBits_1; inline;
  2492. function getGCSTAT : TBits_1; inline;
  2493. function getI2COV : TBits_1; inline;
  2494. function getI2CPOV : TBits_1; inline;
  2495. function getIWCOL : TBits_1; inline;
  2496. function getP : TBits_1; inline;
  2497. function getRBF : TBits_1; inline;
  2498. function getR_W : TBits_1; inline;
  2499. function getS : TBits_1; inline;
  2500. function getTBF : TBits_1; inline;
  2501. function getTRSTAT : TBits_1; inline;
  2502. function getw : TBits_32; inline;
  2503. procedure setACKSTAT(thebits : TBits_1); inline;
  2504. procedure setADD10(thebits : TBits_1); inline;
  2505. procedure setBCL(thebits : TBits_1); inline;
  2506. procedure setD_A(thebits : TBits_1); inline;
  2507. procedure setGCSTAT(thebits : TBits_1); inline;
  2508. procedure setI2COV(thebits : TBits_1); inline;
  2509. procedure setI2CPOV(thebits : TBits_1); inline;
  2510. procedure setIWCOL(thebits : TBits_1); inline;
  2511. procedure setP(thebits : TBits_1); inline;
  2512. procedure setRBF(thebits : TBits_1); inline;
  2513. procedure setR_W(thebits : TBits_1); inline;
  2514. procedure setS(thebits : TBits_1); inline;
  2515. procedure setTBF(thebits : TBits_1); inline;
  2516. procedure setTRSTAT(thebits : TBits_1); inline;
  2517. procedure setw(thebits : TBits_32); inline;
  2518. public
  2519. procedure clearACKSTAT; inline;
  2520. procedure clearADD10; inline;
  2521. procedure clearBCL; inline;
  2522. procedure clearD_A; inline;
  2523. procedure clearGCSTAT; inline;
  2524. procedure clearI2COV; inline;
  2525. procedure clearI2CPOV; inline;
  2526. procedure clearIWCOL; inline;
  2527. procedure clearP; inline;
  2528. procedure clearRBF; inline;
  2529. procedure clearR_W; inline;
  2530. procedure clearS; inline;
  2531. procedure clearTBF; inline;
  2532. procedure clearTRSTAT; inline;
  2533. procedure setACKSTAT; inline;
  2534. procedure setADD10; inline;
  2535. procedure setBCL; inline;
  2536. procedure setD_A; inline;
  2537. procedure setGCSTAT; inline;
  2538. procedure setI2COV; inline;
  2539. procedure setI2CPOV; inline;
  2540. procedure setIWCOL; inline;
  2541. procedure setP; inline;
  2542. procedure setRBF; inline;
  2543. procedure setR_W; inline;
  2544. procedure setS; inline;
  2545. procedure setTBF; inline;
  2546. procedure setTRSTAT; inline;
  2547. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  2548. property ADD10 : TBits_1 read getADD10 write setADD10;
  2549. property BCL : TBits_1 read getBCL write setBCL;
  2550. property D_A : TBits_1 read getD_A write setD_A;
  2551. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  2552. property I2COV : TBits_1 read getI2COV write setI2COV;
  2553. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  2554. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  2555. property P : TBits_1 read getP write setP;
  2556. property RBF : TBits_1 read getRBF write setRBF;
  2557. property R_W : TBits_1 read getR_W write setR_W;
  2558. property S : TBits_1 read getS write setS;
  2559. property TBF : TBits_1 read getTBF write setTBF;
  2560. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  2561. property w : TBits_32 read getw write setw;
  2562. end;
  2563. TI2C5_I2C5STAT = record
  2564. private
  2565. function getACKSTAT : TBits_1; inline;
  2566. function getADD10 : TBits_1; inline;
  2567. function getBCL : TBits_1; inline;
  2568. function getD_A : TBits_1; inline;
  2569. function getGCSTAT : TBits_1; inline;
  2570. function getI2COV : TBits_1; inline;
  2571. function getI2CPOV : TBits_1; inline;
  2572. function getIWCOL : TBits_1; inline;
  2573. function getP : TBits_1; inline;
  2574. function getRBF : TBits_1; inline;
  2575. function getR_W : TBits_1; inline;
  2576. function getS : TBits_1; inline;
  2577. function getTBF : TBits_1; inline;
  2578. function getTRSTAT : TBits_1; inline;
  2579. function getw : TBits_32; inline;
  2580. procedure setACKSTAT(thebits : TBits_1); inline;
  2581. procedure setADD10(thebits : TBits_1); inline;
  2582. procedure setBCL(thebits : TBits_1); inline;
  2583. procedure setD_A(thebits : TBits_1); inline;
  2584. procedure setGCSTAT(thebits : TBits_1); inline;
  2585. procedure setI2COV(thebits : TBits_1); inline;
  2586. procedure setI2CPOV(thebits : TBits_1); inline;
  2587. procedure setIWCOL(thebits : TBits_1); inline;
  2588. procedure setP(thebits : TBits_1); inline;
  2589. procedure setRBF(thebits : TBits_1); inline;
  2590. procedure setR_W(thebits : TBits_1); inline;
  2591. procedure setS(thebits : TBits_1); inline;
  2592. procedure setTBF(thebits : TBits_1); inline;
  2593. procedure setTRSTAT(thebits : TBits_1); inline;
  2594. procedure setw(thebits : TBits_32); inline;
  2595. public
  2596. procedure clearACKSTAT; inline;
  2597. procedure clearADD10; inline;
  2598. procedure clearBCL; inline;
  2599. procedure clearD_A; inline;
  2600. procedure clearGCSTAT; inline;
  2601. procedure clearI2COV; inline;
  2602. procedure clearI2CPOV; inline;
  2603. procedure clearIWCOL; inline;
  2604. procedure clearP; inline;
  2605. procedure clearRBF; inline;
  2606. procedure clearR_W; inline;
  2607. procedure clearS; inline;
  2608. procedure clearTBF; inline;
  2609. procedure clearTRSTAT; inline;
  2610. procedure setACKSTAT; inline;
  2611. procedure setADD10; inline;
  2612. procedure setBCL; inline;
  2613. procedure setD_A; inline;
  2614. procedure setGCSTAT; inline;
  2615. procedure setI2COV; inline;
  2616. procedure setI2CPOV; inline;
  2617. procedure setIWCOL; inline;
  2618. procedure setP; inline;
  2619. procedure setRBF; inline;
  2620. procedure setR_W; inline;
  2621. procedure setS; inline;
  2622. procedure setTBF; inline;
  2623. procedure setTRSTAT; inline;
  2624. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  2625. property ADD10 : TBits_1 read getADD10 write setADD10;
  2626. property BCL : TBits_1 read getBCL write setBCL;
  2627. property D_A : TBits_1 read getD_A write setD_A;
  2628. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  2629. property I2COV : TBits_1 read getI2COV write setI2COV;
  2630. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  2631. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  2632. property P : TBits_1 read getP write setP;
  2633. property RBF : TBits_1 read getRBF write setRBF;
  2634. property R_W : TBits_1 read getR_W write setR_W;
  2635. property S : TBits_1 read getS write setS;
  2636. property TBF : TBits_1 read getTBF write setTBF;
  2637. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  2638. property w : TBits_32 read getw write setw;
  2639. end;
  2640. type
  2641. TI2C5Registers = record
  2642. I2C3ACONbits : TI2C5_I2C3ACON;
  2643. I2C3ACON : longWord;
  2644. I2C5CONbits : TI2C5_I2C5CON;
  2645. I2C5CON : longWord;
  2646. I2C3ACONCLR : longWord;
  2647. I2C5CONCLR : longWord;
  2648. I2C3ACONSET : longWord;
  2649. I2C5CONSET : longWord;
  2650. I2C3ACONINV : longWord;
  2651. I2C5CONINV : longWord;
  2652. I2C3ASTATbits : TI2C5_I2C3ASTAT;
  2653. I2C3ASTAT : longWord;
  2654. I2C5STATbits : TI2C5_I2C5STAT;
  2655. I2C5STAT : longWord;
  2656. I2C3ASTATCLR : longWord;
  2657. I2C5STATCLR : longWord;
  2658. I2C3ASTATSET : longWord;
  2659. I2C5STATSET : longWord;
  2660. I2C3ASTATINV : longWord;
  2661. I2C5STATINV : longWord;
  2662. I2C3AADD : longWord;
  2663. I2C5ADD : longWord;
  2664. I2C3AADDCLR : longWord;
  2665. I2C5ADDCLR : longWord;
  2666. I2C3AADDSET : longWord;
  2667. I2C5ADDSET : longWord;
  2668. I2C3AADDINV : longWord;
  2669. I2C5ADDINV : longWord;
  2670. I2C3AMSK : longWord;
  2671. I2C5MSK : longWord;
  2672. I2C3AMSKCLR : longWord;
  2673. I2C5MSKCLR : longWord;
  2674. I2C3AMSKSET : longWord;
  2675. I2C5MSKSET : longWord;
  2676. I2C3AMSKINV : longWord;
  2677. I2C5MSKINV : longWord;
  2678. I2C3ABRG : longWord;
  2679. I2C5BRG : longWord;
  2680. I2C3ABRGCLR : longWord;
  2681. I2C5BRGCLR : longWord;
  2682. I2C3ABRGSET : longWord;
  2683. I2C5BRGSET : longWord;
  2684. I2C3ABRGINV : longWord;
  2685. I2C5BRGINV : longWord;
  2686. I2C3ATRN : longWord;
  2687. I2C5TRN : longWord;
  2688. I2C3ATRNCLR : longWord;
  2689. I2C5TRNCLR : longWord;
  2690. I2C3ATRNSET : longWord;
  2691. I2C5TRNSET : longWord;
  2692. I2C3ATRNINV : longWord;
  2693. I2C5TRNINV : longWord;
  2694. I2C3ARCV : longWord;
  2695. I2C5RCV : longWord;
  2696. end;
  2697. TI2C1_I2C1CON = record
  2698. private
  2699. function getA10M : TBits_1; inline;
  2700. function getACKDT : TBits_1; inline;
  2701. function getACKEN : TBits_1; inline;
  2702. function getDISSLW : TBits_1; inline;
  2703. function getGCEN : TBits_1; inline;
  2704. function getI2CEN : TBits_1; inline;
  2705. function getI2CSIDL : TBits_1; inline;
  2706. function getIPMIEN : TBits_1; inline;
  2707. function getON : TBits_1; inline;
  2708. function getPEN : TBits_1; inline;
  2709. function getRCEN : TBits_1; inline;
  2710. function getRSEN : TBits_1; inline;
  2711. function getSCLREL : TBits_1; inline;
  2712. function getSEN : TBits_1; inline;
  2713. function getSIDL : TBits_1; inline;
  2714. function getSMEN : TBits_1; inline;
  2715. function getSTREN : TBits_1; inline;
  2716. function getSTRICT : TBits_1; inline;
  2717. function getw : TBits_32; inline;
  2718. procedure setA10M(thebits : TBits_1); inline;
  2719. procedure setACKDT(thebits : TBits_1); inline;
  2720. procedure setACKEN(thebits : TBits_1); inline;
  2721. procedure setDISSLW(thebits : TBits_1); inline;
  2722. procedure setGCEN(thebits : TBits_1); inline;
  2723. procedure setI2CEN(thebits : TBits_1); inline;
  2724. procedure setI2CSIDL(thebits : TBits_1); inline;
  2725. procedure setIPMIEN(thebits : TBits_1); inline;
  2726. procedure setON(thebits : TBits_1); inline;
  2727. procedure setPEN(thebits : TBits_1); inline;
  2728. procedure setRCEN(thebits : TBits_1); inline;
  2729. procedure setRSEN(thebits : TBits_1); inline;
  2730. procedure setSCLREL(thebits : TBits_1); inline;
  2731. procedure setSEN(thebits : TBits_1); inline;
  2732. procedure setSIDL(thebits : TBits_1); inline;
  2733. procedure setSMEN(thebits : TBits_1); inline;
  2734. procedure setSTREN(thebits : TBits_1); inline;
  2735. procedure setSTRICT(thebits : TBits_1); inline;
  2736. procedure setw(thebits : TBits_32); inline;
  2737. public
  2738. procedure clearA10M; inline;
  2739. procedure clearACKDT; inline;
  2740. procedure clearACKEN; inline;
  2741. procedure clearDISSLW; inline;
  2742. procedure clearGCEN; inline;
  2743. procedure clearI2CEN; inline;
  2744. procedure clearI2CSIDL; inline;
  2745. procedure clearIPMIEN; inline;
  2746. procedure clearON; inline;
  2747. procedure clearPEN; inline;
  2748. procedure clearRCEN; inline;
  2749. procedure clearRSEN; inline;
  2750. procedure clearSCLREL; inline;
  2751. procedure clearSEN; inline;
  2752. procedure clearSIDL; inline;
  2753. procedure clearSMEN; inline;
  2754. procedure clearSTREN; inline;
  2755. procedure clearSTRICT; inline;
  2756. procedure setA10M; inline;
  2757. procedure setACKDT; inline;
  2758. procedure setACKEN; inline;
  2759. procedure setDISSLW; inline;
  2760. procedure setGCEN; inline;
  2761. procedure setI2CEN; inline;
  2762. procedure setI2CSIDL; inline;
  2763. procedure setIPMIEN; inline;
  2764. procedure setON; inline;
  2765. procedure setPEN; inline;
  2766. procedure setRCEN; inline;
  2767. procedure setRSEN; inline;
  2768. procedure setSCLREL; inline;
  2769. procedure setSEN; inline;
  2770. procedure setSIDL; inline;
  2771. procedure setSMEN; inline;
  2772. procedure setSTREN; inline;
  2773. procedure setSTRICT; inline;
  2774. property A10M : TBits_1 read getA10M write setA10M;
  2775. property ACKDT : TBits_1 read getACKDT write setACKDT;
  2776. property ACKEN : TBits_1 read getACKEN write setACKEN;
  2777. property DISSLW : TBits_1 read getDISSLW write setDISSLW;
  2778. property GCEN : TBits_1 read getGCEN write setGCEN;
  2779. property I2CEN : TBits_1 read getI2CEN write setI2CEN;
  2780. property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
  2781. property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
  2782. property ON : TBits_1 read getON write setON;
  2783. property PEN : TBits_1 read getPEN write setPEN;
  2784. property RCEN : TBits_1 read getRCEN write setRCEN;
  2785. property RSEN : TBits_1 read getRSEN write setRSEN;
  2786. property SCLREL : TBits_1 read getSCLREL write setSCLREL;
  2787. property SEN : TBits_1 read getSEN write setSEN;
  2788. property SIDL : TBits_1 read getSIDL write setSIDL;
  2789. property SMEN : TBits_1 read getSMEN write setSMEN;
  2790. property STREN : TBits_1 read getSTREN write setSTREN;
  2791. property STRICT : TBits_1 read getSTRICT write setSTRICT;
  2792. property w : TBits_32 read getw write setw;
  2793. end;
  2794. TI2C1_I2C1STAT = record
  2795. private
  2796. function getACKSTAT : TBits_1; inline;
  2797. function getADD10 : TBits_1; inline;
  2798. function getBCL : TBits_1; inline;
  2799. function getD_A : TBits_1; inline;
  2800. function getGCSTAT : TBits_1; inline;
  2801. function getI2COV : TBits_1; inline;
  2802. function getI2CPOV : TBits_1; inline;
  2803. function getIWCOL : TBits_1; inline;
  2804. function getP : TBits_1; inline;
  2805. function getRBF : TBits_1; inline;
  2806. function getR_W : TBits_1; inline;
  2807. function getS : TBits_1; inline;
  2808. function getTBF : TBits_1; inline;
  2809. function getTRSTAT : TBits_1; inline;
  2810. function getw : TBits_32; inline;
  2811. procedure setACKSTAT(thebits : TBits_1); inline;
  2812. procedure setADD10(thebits : TBits_1); inline;
  2813. procedure setBCL(thebits : TBits_1); inline;
  2814. procedure setD_A(thebits : TBits_1); inline;
  2815. procedure setGCSTAT(thebits : TBits_1); inline;
  2816. procedure setI2COV(thebits : TBits_1); inline;
  2817. procedure setI2CPOV(thebits : TBits_1); inline;
  2818. procedure setIWCOL(thebits : TBits_1); inline;
  2819. procedure setP(thebits : TBits_1); inline;
  2820. procedure setRBF(thebits : TBits_1); inline;
  2821. procedure setR_W(thebits : TBits_1); inline;
  2822. procedure setS(thebits : TBits_1); inline;
  2823. procedure setTBF(thebits : TBits_1); inline;
  2824. procedure setTRSTAT(thebits : TBits_1); inline;
  2825. procedure setw(thebits : TBits_32); inline;
  2826. public
  2827. procedure clearACKSTAT; inline;
  2828. procedure clearADD10; inline;
  2829. procedure clearBCL; inline;
  2830. procedure clearD_A; inline;
  2831. procedure clearGCSTAT; inline;
  2832. procedure clearI2COV; inline;
  2833. procedure clearI2CPOV; inline;
  2834. procedure clearIWCOL; inline;
  2835. procedure clearP; inline;
  2836. procedure clearRBF; inline;
  2837. procedure clearR_W; inline;
  2838. procedure clearS; inline;
  2839. procedure clearTBF; inline;
  2840. procedure clearTRSTAT; inline;
  2841. procedure setACKSTAT; inline;
  2842. procedure setADD10; inline;
  2843. procedure setBCL; inline;
  2844. procedure setD_A; inline;
  2845. procedure setGCSTAT; inline;
  2846. procedure setI2COV; inline;
  2847. procedure setI2CPOV; inline;
  2848. procedure setIWCOL; inline;
  2849. procedure setP; inline;
  2850. procedure setRBF; inline;
  2851. procedure setR_W; inline;
  2852. procedure setS; inline;
  2853. procedure setTBF; inline;
  2854. procedure setTRSTAT; inline;
  2855. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  2856. property ADD10 : TBits_1 read getADD10 write setADD10;
  2857. property BCL : TBits_1 read getBCL write setBCL;
  2858. property D_A : TBits_1 read getD_A write setD_A;
  2859. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  2860. property I2COV : TBits_1 read getI2COV write setI2COV;
  2861. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  2862. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  2863. property P : TBits_1 read getP write setP;
  2864. property RBF : TBits_1 read getRBF write setRBF;
  2865. property R_W : TBits_1 read getR_W write setR_W;
  2866. property S : TBits_1 read getS write setS;
  2867. property TBF : TBits_1 read getTBF write setTBF;
  2868. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  2869. property w : TBits_32 read getw write setw;
  2870. end;
  2871. type
  2872. TI2C1Registers = record
  2873. I2C1CONbits : TI2C1_I2C1CON;
  2874. I2C1CON : longWord;
  2875. I2C1CONCLR : longWord;
  2876. I2C1CONSET : longWord;
  2877. I2C1CONINV : longWord;
  2878. I2C1STATbits : TI2C1_I2C1STAT;
  2879. I2C1STAT : longWord;
  2880. I2C1STATCLR : longWord;
  2881. I2C1STATSET : longWord;
  2882. I2C1STATINV : longWord;
  2883. I2C1ADD : longWord;
  2884. I2C1ADDCLR : longWord;
  2885. I2C1ADDSET : longWord;
  2886. I2C1ADDINV : longWord;
  2887. I2C1MSK : longWord;
  2888. I2C1MSKCLR : longWord;
  2889. I2C1MSKSET : longWord;
  2890. I2C1MSKINV : longWord;
  2891. I2C1BRG : longWord;
  2892. I2C1BRGCLR : longWord;
  2893. I2C1BRGSET : longWord;
  2894. I2C1BRGINV : longWord;
  2895. I2C1TRN : longWord;
  2896. I2C1TRNCLR : longWord;
  2897. I2C1TRNSET : longWord;
  2898. I2C1TRNINV : longWord;
  2899. I2C1RCV : longWord;
  2900. end;
  2901. TI2C2_I2C2CON = record
  2902. private
  2903. function getA10M : TBits_1; inline;
  2904. function getACKDT : TBits_1; inline;
  2905. function getACKEN : TBits_1; inline;
  2906. function getDISSLW : TBits_1; inline;
  2907. function getGCEN : TBits_1; inline;
  2908. function getI2CEN : TBits_1; inline;
  2909. function getI2CSIDL : TBits_1; inline;
  2910. function getIPMIEN : TBits_1; inline;
  2911. function getON : TBits_1; inline;
  2912. function getPEN : TBits_1; inline;
  2913. function getRCEN : TBits_1; inline;
  2914. function getRSEN : TBits_1; inline;
  2915. function getSCLREL : TBits_1; inline;
  2916. function getSEN : TBits_1; inline;
  2917. function getSIDL : TBits_1; inline;
  2918. function getSMEN : TBits_1; inline;
  2919. function getSTREN : TBits_1; inline;
  2920. function getSTRICT : TBits_1; inline;
  2921. function getw : TBits_32; inline;
  2922. procedure setA10M(thebits : TBits_1); inline;
  2923. procedure setACKDT(thebits : TBits_1); inline;
  2924. procedure setACKEN(thebits : TBits_1); inline;
  2925. procedure setDISSLW(thebits : TBits_1); inline;
  2926. procedure setGCEN(thebits : TBits_1); inline;
  2927. procedure setI2CEN(thebits : TBits_1); inline;
  2928. procedure setI2CSIDL(thebits : TBits_1); inline;
  2929. procedure setIPMIEN(thebits : TBits_1); inline;
  2930. procedure setON(thebits : TBits_1); inline;
  2931. procedure setPEN(thebits : TBits_1); inline;
  2932. procedure setRCEN(thebits : TBits_1); inline;
  2933. procedure setRSEN(thebits : TBits_1); inline;
  2934. procedure setSCLREL(thebits : TBits_1); inline;
  2935. procedure setSEN(thebits : TBits_1); inline;
  2936. procedure setSIDL(thebits : TBits_1); inline;
  2937. procedure setSMEN(thebits : TBits_1); inline;
  2938. procedure setSTREN(thebits : TBits_1); inline;
  2939. procedure setSTRICT(thebits : TBits_1); inline;
  2940. procedure setw(thebits : TBits_32); inline;
  2941. public
  2942. procedure clearA10M; inline;
  2943. procedure clearACKDT; inline;
  2944. procedure clearACKEN; inline;
  2945. procedure clearDISSLW; inline;
  2946. procedure clearGCEN; inline;
  2947. procedure clearI2CEN; inline;
  2948. procedure clearI2CSIDL; inline;
  2949. procedure clearIPMIEN; inline;
  2950. procedure clearON; inline;
  2951. procedure clearPEN; inline;
  2952. procedure clearRCEN; inline;
  2953. procedure clearRSEN; inline;
  2954. procedure clearSCLREL; inline;
  2955. procedure clearSEN; inline;
  2956. procedure clearSIDL; inline;
  2957. procedure clearSMEN; inline;
  2958. procedure clearSTREN; inline;
  2959. procedure clearSTRICT; inline;
  2960. procedure setA10M; inline;
  2961. procedure setACKDT; inline;
  2962. procedure setACKEN; inline;
  2963. procedure setDISSLW; inline;
  2964. procedure setGCEN; inline;
  2965. procedure setI2CEN; inline;
  2966. procedure setI2CSIDL; inline;
  2967. procedure setIPMIEN; inline;
  2968. procedure setON; inline;
  2969. procedure setPEN; inline;
  2970. procedure setRCEN; inline;
  2971. procedure setRSEN; inline;
  2972. procedure setSCLREL; inline;
  2973. procedure setSEN; inline;
  2974. procedure setSIDL; inline;
  2975. procedure setSMEN; inline;
  2976. procedure setSTREN; inline;
  2977. procedure setSTRICT; inline;
  2978. property A10M : TBits_1 read getA10M write setA10M;
  2979. property ACKDT : TBits_1 read getACKDT write setACKDT;
  2980. property ACKEN : TBits_1 read getACKEN write setACKEN;
  2981. property DISSLW : TBits_1 read getDISSLW write setDISSLW;
  2982. property GCEN : TBits_1 read getGCEN write setGCEN;
  2983. property I2CEN : TBits_1 read getI2CEN write setI2CEN;
  2984. property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
  2985. property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
  2986. property ON : TBits_1 read getON write setON;
  2987. property PEN : TBits_1 read getPEN write setPEN;
  2988. property RCEN : TBits_1 read getRCEN write setRCEN;
  2989. property RSEN : TBits_1 read getRSEN write setRSEN;
  2990. property SCLREL : TBits_1 read getSCLREL write setSCLREL;
  2991. property SEN : TBits_1 read getSEN write setSEN;
  2992. property SIDL : TBits_1 read getSIDL write setSIDL;
  2993. property SMEN : TBits_1 read getSMEN write setSMEN;
  2994. property STREN : TBits_1 read getSTREN write setSTREN;
  2995. property STRICT : TBits_1 read getSTRICT write setSTRICT;
  2996. property w : TBits_32 read getw write setw;
  2997. end;
  2998. TI2C2_I2C2STAT = record
  2999. private
  3000. function getACKSTAT : TBits_1; inline;
  3001. function getADD10 : TBits_1; inline;
  3002. function getBCL : TBits_1; inline;
  3003. function getD_A : TBits_1; inline;
  3004. function getGCSTAT : TBits_1; inline;
  3005. function getI2COV : TBits_1; inline;
  3006. function getI2CPOV : TBits_1; inline;
  3007. function getIWCOL : TBits_1; inline;
  3008. function getP : TBits_1; inline;
  3009. function getRBF : TBits_1; inline;
  3010. function getR_W : TBits_1; inline;
  3011. function getS : TBits_1; inline;
  3012. function getTBF : TBits_1; inline;
  3013. function getTRSTAT : TBits_1; inline;
  3014. function getw : TBits_32; inline;
  3015. procedure setACKSTAT(thebits : TBits_1); inline;
  3016. procedure setADD10(thebits : TBits_1); inline;
  3017. procedure setBCL(thebits : TBits_1); inline;
  3018. procedure setD_A(thebits : TBits_1); inline;
  3019. procedure setGCSTAT(thebits : TBits_1); inline;
  3020. procedure setI2COV(thebits : TBits_1); inline;
  3021. procedure setI2CPOV(thebits : TBits_1); inline;
  3022. procedure setIWCOL(thebits : TBits_1); inline;
  3023. procedure setP(thebits : TBits_1); inline;
  3024. procedure setRBF(thebits : TBits_1); inline;
  3025. procedure setR_W(thebits : TBits_1); inline;
  3026. procedure setS(thebits : TBits_1); inline;
  3027. procedure setTBF(thebits : TBits_1); inline;
  3028. procedure setTRSTAT(thebits : TBits_1); inline;
  3029. procedure setw(thebits : TBits_32); inline;
  3030. public
  3031. procedure clearACKSTAT; inline;
  3032. procedure clearADD10; inline;
  3033. procedure clearBCL; inline;
  3034. procedure clearD_A; inline;
  3035. procedure clearGCSTAT; inline;
  3036. procedure clearI2COV; inline;
  3037. procedure clearI2CPOV; inline;
  3038. procedure clearIWCOL; inline;
  3039. procedure clearP; inline;
  3040. procedure clearRBF; inline;
  3041. procedure clearR_W; inline;
  3042. procedure clearS; inline;
  3043. procedure clearTBF; inline;
  3044. procedure clearTRSTAT; inline;
  3045. procedure setACKSTAT; inline;
  3046. procedure setADD10; inline;
  3047. procedure setBCL; inline;
  3048. procedure setD_A; inline;
  3049. procedure setGCSTAT; inline;
  3050. procedure setI2COV; inline;
  3051. procedure setI2CPOV; inline;
  3052. procedure setIWCOL; inline;
  3053. procedure setP; inline;
  3054. procedure setRBF; inline;
  3055. procedure setR_W; inline;
  3056. procedure setS; inline;
  3057. procedure setTBF; inline;
  3058. procedure setTRSTAT; inline;
  3059. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  3060. property ADD10 : TBits_1 read getADD10 write setADD10;
  3061. property BCL : TBits_1 read getBCL write setBCL;
  3062. property D_A : TBits_1 read getD_A write setD_A;
  3063. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  3064. property I2COV : TBits_1 read getI2COV write setI2COV;
  3065. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  3066. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  3067. property P : TBits_1 read getP write setP;
  3068. property RBF : TBits_1 read getRBF write setRBF;
  3069. property R_W : TBits_1 read getR_W write setR_W;
  3070. property S : TBits_1 read getS write setS;
  3071. property TBF : TBits_1 read getTBF write setTBF;
  3072. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  3073. property w : TBits_32 read getw write setw;
  3074. end;
  3075. type
  3076. TI2C2Registers = record
  3077. I2C2CONbits : TI2C2_I2C2CON;
  3078. I2C2CON : longWord;
  3079. I2C2CONCLR : longWord;
  3080. I2C2CONSET : longWord;
  3081. I2C2CONINV : longWord;
  3082. I2C2STATbits : TI2C2_I2C2STAT;
  3083. I2C2STAT : longWord;
  3084. I2C2STATCLR : longWord;
  3085. I2C2STATSET : longWord;
  3086. I2C2STATINV : longWord;
  3087. I2C2ADD : longWord;
  3088. I2C2ADDCLR : longWord;
  3089. I2C2ADDSET : longWord;
  3090. I2C2ADDINV : longWord;
  3091. I2C2MSK : longWord;
  3092. I2C2MSKCLR : longWord;
  3093. I2C2MSKSET : longWord;
  3094. I2C2MSKINV : longWord;
  3095. I2C2BRG : longWord;
  3096. I2C2BRGCLR : longWord;
  3097. I2C2BRGSET : longWord;
  3098. I2C2BRGINV : longWord;
  3099. I2C2TRN : longWord;
  3100. I2C2TRNCLR : longWord;
  3101. I2C2TRNSET : longWord;
  3102. I2C2TRNINV : longWord;
  3103. I2C2RCV : longWord;
  3104. end;
  3105. TSPI3_SPI1ACON = record
  3106. private
  3107. function getCKE : TBits_1; inline;
  3108. function getCKP : TBits_1; inline;
  3109. function getDISSDO : TBits_1; inline;
  3110. function getENHBUF : TBits_1; inline;
  3111. function getFRMCNT : TBits_3; inline;
  3112. function getFRMEN : TBits_1; inline;
  3113. function getFRMPOL : TBits_1; inline;
  3114. function getFRMSYNC : TBits_1; inline;
  3115. function getFRMSYPW : TBits_1; inline;
  3116. function getMODE16 : TBits_1; inline;
  3117. function getMODE32 : TBits_1; inline;
  3118. function getMSSEN : TBits_1; inline;
  3119. function getMSTEN : TBits_1; inline;
  3120. function getON : TBits_1; inline;
  3121. function getSIDL : TBits_1; inline;
  3122. function getSMP : TBits_1; inline;
  3123. function getSPIFE : TBits_1; inline;
  3124. function getSRXISEL : TBits_2; inline;
  3125. function getSSEN : TBits_1; inline;
  3126. function getSTXISEL : TBits_2; inline;
  3127. function getw : TBits_32; inline;
  3128. procedure setCKE(thebits : TBits_1); inline;
  3129. procedure setCKP(thebits : TBits_1); inline;
  3130. procedure setDISSDO(thebits : TBits_1); inline;
  3131. procedure setENHBUF(thebits : TBits_1); inline;
  3132. procedure setFRMCNT(thebits : TBits_3); inline;
  3133. procedure setFRMEN(thebits : TBits_1); inline;
  3134. procedure setFRMPOL(thebits : TBits_1); inline;
  3135. procedure setFRMSYNC(thebits : TBits_1); inline;
  3136. procedure setFRMSYPW(thebits : TBits_1); inline;
  3137. procedure setMODE16(thebits : TBits_1); inline;
  3138. procedure setMODE32(thebits : TBits_1); inline;
  3139. procedure setMSSEN(thebits : TBits_1); inline;
  3140. procedure setMSTEN(thebits : TBits_1); inline;
  3141. procedure setON(thebits : TBits_1); inline;
  3142. procedure setSIDL(thebits : TBits_1); inline;
  3143. procedure setSMP(thebits : TBits_1); inline;
  3144. procedure setSPIFE(thebits : TBits_1); inline;
  3145. procedure setSRXISEL(thebits : TBits_2); inline;
  3146. procedure setSSEN(thebits : TBits_1); inline;
  3147. procedure setSTXISEL(thebits : TBits_2); inline;
  3148. procedure setw(thebits : TBits_32); inline;
  3149. public
  3150. procedure clearCKE; inline;
  3151. procedure clearCKP; inline;
  3152. procedure clearDISSDO; inline;
  3153. procedure clearENHBUF; inline;
  3154. procedure clearFRMEN; inline;
  3155. procedure clearFRMPOL; inline;
  3156. procedure clearFRMSYNC; inline;
  3157. procedure clearFRMSYPW; inline;
  3158. procedure clearMODE16; inline;
  3159. procedure clearMODE32; inline;
  3160. procedure clearMSSEN; inline;
  3161. procedure clearMSTEN; inline;
  3162. procedure clearON; inline;
  3163. procedure clearSIDL; inline;
  3164. procedure clearSMP; inline;
  3165. procedure clearSPIFE; inline;
  3166. procedure clearSSEN; inline;
  3167. procedure setCKE; inline;
  3168. procedure setCKP; inline;
  3169. procedure setDISSDO; inline;
  3170. procedure setENHBUF; inline;
  3171. procedure setFRMEN; inline;
  3172. procedure setFRMPOL; inline;
  3173. procedure setFRMSYNC; inline;
  3174. procedure setFRMSYPW; inline;
  3175. procedure setMODE16; inline;
  3176. procedure setMODE32; inline;
  3177. procedure setMSSEN; inline;
  3178. procedure setMSTEN; inline;
  3179. procedure setON; inline;
  3180. procedure setSIDL; inline;
  3181. procedure setSMP; inline;
  3182. procedure setSPIFE; inline;
  3183. procedure setSSEN; inline;
  3184. property CKE : TBits_1 read getCKE write setCKE;
  3185. property CKP : TBits_1 read getCKP write setCKP;
  3186. property DISSDO : TBits_1 read getDISSDO write setDISSDO;
  3187. property ENHBUF : TBits_1 read getENHBUF write setENHBUF;
  3188. property FRMCNT : TBits_3 read getFRMCNT write setFRMCNT;
  3189. property FRMEN : TBits_1 read getFRMEN write setFRMEN;
  3190. property FRMPOL : TBits_1 read getFRMPOL write setFRMPOL;
  3191. property FRMSYNC : TBits_1 read getFRMSYNC write setFRMSYNC;
  3192. property FRMSYPW : TBits_1 read getFRMSYPW write setFRMSYPW;
  3193. property MODE16 : TBits_1 read getMODE16 write setMODE16;
  3194. property MODE32 : TBits_1 read getMODE32 write setMODE32;
  3195. property MSSEN : TBits_1 read getMSSEN write setMSSEN;
  3196. property MSTEN : TBits_1 read getMSTEN write setMSTEN;
  3197. property ON : TBits_1 read getON write setON;
  3198. property SIDL : TBits_1 read getSIDL write setSIDL;
  3199. property SMP : TBits_1 read getSMP write setSMP;
  3200. property SPIFE : TBits_1 read getSPIFE write setSPIFE;
  3201. property SRXISEL : TBits_2 read getSRXISEL write setSRXISEL;
  3202. property SSEN : TBits_1 read getSSEN write setSSEN;
  3203. property STXISEL : TBits_2 read getSTXISEL write setSTXISEL;
  3204. property w : TBits_32 read getw write setw;
  3205. end;
  3206. TSPI3_SPI3CON = record
  3207. private
  3208. function getCKE : TBits_1; inline;
  3209. function getCKP : TBits_1; inline;
  3210. function getDISSDO : TBits_1; inline;
  3211. function getENHBUF : TBits_1; inline;
  3212. function getFRMCNT : TBits_3; inline;
  3213. function getFRMEN : TBits_1; inline;
  3214. function getFRMPOL : TBits_1; inline;
  3215. function getFRMSYNC : TBits_1; inline;
  3216. function getFRMSYPW : TBits_1; inline;
  3217. function getMODE16 : TBits_1; inline;
  3218. function getMODE32 : TBits_1; inline;
  3219. function getMSSEN : TBits_1; inline;
  3220. function getMSTEN : TBits_1; inline;
  3221. function getON : TBits_1; inline;
  3222. function getSIDL : TBits_1; inline;
  3223. function getSMP : TBits_1; inline;
  3224. function getSPIFE : TBits_1; inline;
  3225. function getSRXISEL : TBits_2; inline;
  3226. function getSSEN : TBits_1; inline;
  3227. function getSTXISEL : TBits_2; inline;
  3228. function getw : TBits_32; inline;
  3229. procedure setCKE(thebits : TBits_1); inline;
  3230. procedure setCKP(thebits : TBits_1); inline;
  3231. procedure setDISSDO(thebits : TBits_1); inline;
  3232. procedure setENHBUF(thebits : TBits_1); inline;
  3233. procedure setFRMCNT(thebits : TBits_3); inline;
  3234. procedure setFRMEN(thebits : TBits_1); inline;
  3235. procedure setFRMPOL(thebits : TBits_1); inline;
  3236. procedure setFRMSYNC(thebits : TBits_1); inline;
  3237. procedure setFRMSYPW(thebits : TBits_1); inline;
  3238. procedure setMODE16(thebits : TBits_1); inline;
  3239. procedure setMODE32(thebits : TBits_1); inline;
  3240. procedure setMSSEN(thebits : TBits_1); inline;
  3241. procedure setMSTEN(thebits : TBits_1); inline;
  3242. procedure setON(thebits : TBits_1); inline;
  3243. procedure setSIDL(thebits : TBits_1); inline;
  3244. procedure setSMP(thebits : TBits_1); inline;
  3245. procedure setSPIFE(thebits : TBits_1); inline;
  3246. procedure setSRXISEL(thebits : TBits_2); inline;
  3247. procedure setSSEN(thebits : TBits_1); inline;
  3248. procedure setSTXISEL(thebits : TBits_2); inline;
  3249. procedure setw(thebits : TBits_32); inline;
  3250. public
  3251. procedure clearCKE; inline;
  3252. procedure clearCKP; inline;
  3253. procedure clearDISSDO; inline;
  3254. procedure clearENHBUF; inline;
  3255. procedure clearFRMEN; inline;
  3256. procedure clearFRMPOL; inline;
  3257. procedure clearFRMSYNC; inline;
  3258. procedure clearFRMSYPW; inline;
  3259. procedure clearMODE16; inline;
  3260. procedure clearMODE32; inline;
  3261. procedure clearMSSEN; inline;
  3262. procedure clearMSTEN; inline;
  3263. procedure clearON; inline;
  3264. procedure clearSIDL; inline;
  3265. procedure clearSMP; inline;
  3266. procedure clearSPIFE; inline;
  3267. procedure clearSSEN; inline;
  3268. procedure setCKE; inline;
  3269. procedure setCKP; inline;
  3270. procedure setDISSDO; inline;
  3271. procedure setENHBUF; inline;
  3272. procedure setFRMEN; inline;
  3273. procedure setFRMPOL; inline;
  3274. procedure setFRMSYNC; inline;
  3275. procedure setFRMSYPW; inline;
  3276. procedure setMODE16; inline;
  3277. procedure setMODE32; inline;
  3278. procedure setMSSEN; inline;
  3279. procedure setMSTEN; inline;
  3280. procedure setON; inline;
  3281. procedure setSIDL; inline;
  3282. procedure setSMP; inline;
  3283. procedure setSPIFE; inline;
  3284. procedure setSSEN; inline;
  3285. property CKE : TBits_1 read getCKE write setCKE;
  3286. property CKP : TBits_1 read getCKP write setCKP;
  3287. property DISSDO : TBits_1 read getDISSDO write setDISSDO;
  3288. property ENHBUF : TBits_1 read getENHBUF write setENHBUF;
  3289. property FRMCNT : TBits_3 read getFRMCNT write setFRMCNT;
  3290. property FRMEN : TBits_1 read getFRMEN write setFRMEN;
  3291. property FRMPOL : TBits_1 read getFRMPOL write setFRMPOL;
  3292. property FRMSYNC : TBits_1 read getFRMSYNC write setFRMSYNC;
  3293. property FRMSYPW : TBits_1 read getFRMSYPW write setFRMSYPW;
  3294. property MODE16 : TBits_1 read getMODE16 write setMODE16;
  3295. property MODE32 : TBits_1 read getMODE32 write setMODE32;
  3296. property MSSEN : TBits_1 read getMSSEN write setMSSEN;
  3297. property MSTEN : TBits_1 read getMSTEN write setMSTEN;
  3298. property ON : TBits_1 read getON write setON;
  3299. property SIDL : TBits_1 read getSIDL write setSIDL;
  3300. property SMP : TBits_1 read getSMP write setSMP;
  3301. property SPIFE : TBits_1 read getSPIFE write setSPIFE;
  3302. property SRXISEL : TBits_2 read getSRXISEL write setSRXISEL;
  3303. property SSEN : TBits_1 read getSSEN write setSSEN;
  3304. property STXISEL : TBits_2 read getSTXISEL write setSTXISEL;
  3305. property w : TBits_32 read getw write setw;
  3306. end;
  3307. TSPI3_SPI1ASTAT = record
  3308. private
  3309. function getRXBUFELM : TBits_5; inline;
  3310. function getSPIBUSY : TBits_1; inline;
  3311. function getSPIRBE : TBits_1; inline;
  3312. function getSPIRBF : TBits_1; inline;
  3313. function getSPIROV : TBits_1; inline;
  3314. function getSPITBE : TBits_1; inline;
  3315. function getSPITBF : TBits_1; inline;
  3316. function getSPITUR : TBits_1; inline;
  3317. function getSRMT : TBits_1; inline;
  3318. function getTXBUFELM : TBits_5; inline;
  3319. function getw : TBits_32; inline;
  3320. procedure setRXBUFELM(thebits : TBits_5); inline;
  3321. procedure setSPIBUSY(thebits : TBits_1); inline;
  3322. procedure setSPIRBE(thebits : TBits_1); inline;
  3323. procedure setSPIRBF(thebits : TBits_1); inline;
  3324. procedure setSPIROV(thebits : TBits_1); inline;
  3325. procedure setSPITBE(thebits : TBits_1); inline;
  3326. procedure setSPITBF(thebits : TBits_1); inline;
  3327. procedure setSPITUR(thebits : TBits_1); inline;
  3328. procedure setSRMT(thebits : TBits_1); inline;
  3329. procedure setTXBUFELM(thebits : TBits_5); inline;
  3330. procedure setw(thebits : TBits_32); inline;
  3331. public
  3332. procedure clearSPIBUSY; inline;
  3333. procedure clearSPIRBE; inline;
  3334. procedure clearSPIRBF; inline;
  3335. procedure clearSPIROV; inline;
  3336. procedure clearSPITBE; inline;
  3337. procedure clearSPITBF; inline;
  3338. procedure clearSPITUR; inline;
  3339. procedure clearSRMT; inline;
  3340. procedure setSPIBUSY; inline;
  3341. procedure setSPIRBE; inline;
  3342. procedure setSPIRBF; inline;
  3343. procedure setSPIROV; inline;
  3344. procedure setSPITBE; inline;
  3345. procedure setSPITBF; inline;
  3346. procedure setSPITUR; inline;
  3347. procedure setSRMT; inline;
  3348. property RXBUFELM : TBits_5 read getRXBUFELM write setRXBUFELM;
  3349. property SPIBUSY : TBits_1 read getSPIBUSY write setSPIBUSY;
  3350. property SPIRBE : TBits_1 read getSPIRBE write setSPIRBE;
  3351. property SPIRBF : TBits_1 read getSPIRBF write setSPIRBF;
  3352. property SPIROV : TBits_1 read getSPIROV write setSPIROV;
  3353. property SPITBE : TBits_1 read getSPITBE write setSPITBE;
  3354. property SPITBF : TBits_1 read getSPITBF write setSPITBF;
  3355. property SPITUR : TBits_1 read getSPITUR write setSPITUR;
  3356. property SRMT : TBits_1 read getSRMT write setSRMT;
  3357. property TXBUFELM : TBits_5 read getTXBUFELM write setTXBUFELM;
  3358. property w : TBits_32 read getw write setw;
  3359. end;
  3360. TSPI3_SPI3STAT = record
  3361. private
  3362. function getRXBUFELM : TBits_5; inline;
  3363. function getSPIBUSY : TBits_1; inline;
  3364. function getSPIRBE : TBits_1; inline;
  3365. function getSPIRBF : TBits_1; inline;
  3366. function getSPIROV : TBits_1; inline;
  3367. function getSPITBE : TBits_1; inline;
  3368. function getSPITBF : TBits_1; inline;
  3369. function getSPITUR : TBits_1; inline;
  3370. function getSRMT : TBits_1; inline;
  3371. function getTXBUFELM : TBits_5; inline;
  3372. function getw : TBits_32; inline;
  3373. procedure setRXBUFELM(thebits : TBits_5); inline;
  3374. procedure setSPIBUSY(thebits : TBits_1); inline;
  3375. procedure setSPIRBE(thebits : TBits_1); inline;
  3376. procedure setSPIRBF(thebits : TBits_1); inline;
  3377. procedure setSPIROV(thebits : TBits_1); inline;
  3378. procedure setSPITBE(thebits : TBits_1); inline;
  3379. procedure setSPITBF(thebits : TBits_1); inline;
  3380. procedure setSPITUR(thebits : TBits_1); inline;
  3381. procedure setSRMT(thebits : TBits_1); inline;
  3382. procedure setTXBUFELM(thebits : TBits_5); inline;
  3383. procedure setw(thebits : TBits_32); inline;
  3384. public
  3385. procedure clearSPIBUSY; inline;
  3386. procedure clearSPIRBE; inline;
  3387. procedure clearSPIRBF; inline;
  3388. procedure clearSPIROV; inline;
  3389. procedure clearSPITBE; inline;
  3390. procedure clearSPITBF; inline;
  3391. procedure clearSPITUR; inline;
  3392. procedure clearSRMT; inline;
  3393. procedure setSPIBUSY; inline;
  3394. procedure setSPIRBE; inline;
  3395. procedure setSPIRBF; inline;
  3396. procedure setSPIROV; inline;
  3397. procedure setSPITBE; inline;
  3398. procedure setSPITBF; inline;
  3399. procedure setSPITUR; inline;
  3400. procedure setSRMT; inline;
  3401. property RXBUFELM : TBits_5 read getRXBUFELM write setRXBUFELM;
  3402. property SPIBUSY : TBits_1 read getSPIBUSY write setSPIBUSY;
  3403. property SPIRBE : TBits_1 read getSPIRBE write setSPIRBE;
  3404. property SPIRBF : TBits_1 read getSPIRBF write setSPIRBF;
  3405. property SPIROV : TBits_1 read getSPIROV write setSPIROV;
  3406. property SPITBE : TBits_1 read getSPITBE write setSPITBE;
  3407. property SPITBF : TBits_1 read getSPITBF write setSPITBF;
  3408. property SPITUR : TBits_1 read getSPITUR write setSPITUR;
  3409. property SRMT : TBits_1 read getSRMT write setSRMT;
  3410. property TXBUFELM : TBits_5 read getTXBUFELM write setTXBUFELM;
  3411. property w : TBits_32 read getw write setw;
  3412. end;
  3413. type
  3414. TSPI3Registers = record
  3415. SPI1ACONbits : TSPI3_SPI1ACON;
  3416. SPI1ACON : longWord;
  3417. SPI3CONbits : TSPI3_SPI3CON;
  3418. SPI3CON : longWord;
  3419. SPI1ACONCLR : longWord;
  3420. SPI3CONCLR : longWord;
  3421. SPI1ACONSET : longWord;
  3422. SPI3CONSET : longWord;
  3423. SPI1ACONINV : longWord;
  3424. SPI3CONINV : longWord;
  3425. SPI1ASTATbits : TSPI3_SPI1ASTAT;
  3426. SPI1ASTAT : longWord;
  3427. SPI3STATbits : TSPI3_SPI3STAT;
  3428. SPI3STAT : longWord;
  3429. SPI1ASTATCLR : longWord;
  3430. SPI3STATCLR : longWord;
  3431. SPI1ASTATSET : longWord;
  3432. SPI3STATSET : longWord;
  3433. SPI1ASTATINV : longWord;
  3434. SPI3STATINV : longWord;
  3435. SPI1ABUF : longWord;
  3436. SPI3BUF : longWord;
  3437. SPI1ABRG : longWord;
  3438. SPI3BRG : longWord;
  3439. SPI1ABRGCLR : longWord;
  3440. SPI3BRGCLR : longWord;
  3441. SPI1ABRGSET : longWord;
  3442. SPI3BRGSET : longWord;
  3443. SPI1ABRGINV : longWord;
  3444. SPI3BRGINV : longWord;
  3445. end;
  3446. TSPI2_SPI2ACON = record
  3447. private
  3448. function getCKE : TBits_1; inline;
  3449. function getCKP : TBits_1; inline;
  3450. function getDISSDO : TBits_1; inline;
  3451. function getENHBUF : TBits_1; inline;
  3452. function getFRMCNT : TBits_3; inline;
  3453. function getFRMEN : TBits_1; inline;
  3454. function getFRMPOL : TBits_1; inline;
  3455. function getFRMSYNC : TBits_1; inline;
  3456. function getFRMSYPW : TBits_1; inline;
  3457. function getMODE16 : TBits_1; inline;
  3458. function getMODE32 : TBits_1; inline;
  3459. function getMSSEN : TBits_1; inline;
  3460. function getMSTEN : TBits_1; inline;
  3461. function getON : TBits_1; inline;
  3462. function getSIDL : TBits_1; inline;
  3463. function getSMP : TBits_1; inline;
  3464. function getSPIFE : TBits_1; inline;
  3465. function getSRXISEL : TBits_2; inline;
  3466. function getSSEN : TBits_1; inline;
  3467. function getSTXISEL : TBits_2; inline;
  3468. function getw : TBits_32; inline;
  3469. procedure setCKE(thebits : TBits_1); inline;
  3470. procedure setCKP(thebits : TBits_1); inline;
  3471. procedure setDISSDO(thebits : TBits_1); inline;
  3472. procedure setENHBUF(thebits : TBits_1); inline;
  3473. procedure setFRMCNT(thebits : TBits_3); inline;
  3474. procedure setFRMEN(thebits : TBits_1); inline;
  3475. procedure setFRMPOL(thebits : TBits_1); inline;
  3476. procedure setFRMSYNC(thebits : TBits_1); inline;
  3477. procedure setFRMSYPW(thebits : TBits_1); inline;
  3478. procedure setMODE16(thebits : TBits_1); inline;
  3479. procedure setMODE32(thebits : TBits_1); inline;
  3480. procedure setMSSEN(thebits : TBits_1); inline;
  3481. procedure setMSTEN(thebits : TBits_1); inline;
  3482. procedure setON(thebits : TBits_1); inline;
  3483. procedure setSIDL(thebits : TBits_1); inline;
  3484. procedure setSMP(thebits : TBits_1); inline;
  3485. procedure setSPIFE(thebits : TBits_1); inline;
  3486. procedure setSRXISEL(thebits : TBits_2); inline;
  3487. procedure setSSEN(thebits : TBits_1); inline;
  3488. procedure setSTXISEL(thebits : TBits_2); inline;
  3489. procedure setw(thebits : TBits_32); inline;
  3490. public
  3491. procedure clearCKE; inline;
  3492. procedure clearCKP; inline;
  3493. procedure clearDISSDO; inline;
  3494. procedure clearENHBUF; inline;
  3495. procedure clearFRMEN; inline;
  3496. procedure clearFRMPOL; inline;
  3497. procedure clearFRMSYNC; inline;
  3498. procedure clearFRMSYPW; inline;
  3499. procedure clearMODE16; inline;
  3500. procedure clearMODE32; inline;
  3501. procedure clearMSSEN; inline;
  3502. procedure clearMSTEN; inline;
  3503. procedure clearON; inline;
  3504. procedure clearSIDL; inline;
  3505. procedure clearSMP; inline;
  3506. procedure clearSPIFE; inline;
  3507. procedure clearSSEN; inline;
  3508. procedure setCKE; inline;
  3509. procedure setCKP; inline;
  3510. procedure setDISSDO; inline;
  3511. procedure setENHBUF; inline;
  3512. procedure setFRMEN; inline;
  3513. procedure setFRMPOL; inline;
  3514. procedure setFRMSYNC; inline;
  3515. procedure setFRMSYPW; inline;
  3516. procedure setMODE16; inline;
  3517. procedure setMODE32; inline;
  3518. procedure setMSSEN; inline;
  3519. procedure setMSTEN; inline;
  3520. procedure setON; inline;
  3521. procedure setSIDL; inline;
  3522. procedure setSMP; inline;
  3523. procedure setSPIFE; inline;
  3524. procedure setSSEN; inline;
  3525. property CKE : TBits_1 read getCKE write setCKE;
  3526. property CKP : TBits_1 read getCKP write setCKP;
  3527. property DISSDO : TBits_1 read getDISSDO write setDISSDO;
  3528. property ENHBUF : TBits_1 read getENHBUF write setENHBUF;
  3529. property FRMCNT : TBits_3 read getFRMCNT write setFRMCNT;
  3530. property FRMEN : TBits_1 read getFRMEN write setFRMEN;
  3531. property FRMPOL : TBits_1 read getFRMPOL write setFRMPOL;
  3532. property FRMSYNC : TBits_1 read getFRMSYNC write setFRMSYNC;
  3533. property FRMSYPW : TBits_1 read getFRMSYPW write setFRMSYPW;
  3534. property MODE16 : TBits_1 read getMODE16 write setMODE16;
  3535. property MODE32 : TBits_1 read getMODE32 write setMODE32;
  3536. property MSSEN : TBits_1 read getMSSEN write setMSSEN;
  3537. property MSTEN : TBits_1 read getMSTEN write setMSTEN;
  3538. property ON : TBits_1 read getON write setON;
  3539. property SIDL : TBits_1 read getSIDL write setSIDL;
  3540. property SMP : TBits_1 read getSMP write setSMP;
  3541. property SPIFE : TBits_1 read getSPIFE write setSPIFE;
  3542. property SRXISEL : TBits_2 read getSRXISEL write setSRXISEL;
  3543. property SSEN : TBits_1 read getSSEN write setSSEN;
  3544. property STXISEL : TBits_2 read getSTXISEL write setSTXISEL;
  3545. property w : TBits_32 read getw write setw;
  3546. end;
  3547. TSPI2_SPI2CON = record
  3548. private
  3549. function getCKE : TBits_1; inline;
  3550. function getCKP : TBits_1; inline;
  3551. function getDISSDO : TBits_1; inline;
  3552. function getENHBUF : TBits_1; inline;
  3553. function getFRMCNT : TBits_3; inline;
  3554. function getFRMEN : TBits_1; inline;
  3555. function getFRMPOL : TBits_1; inline;
  3556. function getFRMSYNC : TBits_1; inline;
  3557. function getFRMSYPW : TBits_1; inline;
  3558. function getMODE16 : TBits_1; inline;
  3559. function getMODE32 : TBits_1; inline;
  3560. function getMSSEN : TBits_1; inline;
  3561. function getMSTEN : TBits_1; inline;
  3562. function getON : TBits_1; inline;
  3563. function getSIDL : TBits_1; inline;
  3564. function getSMP : TBits_1; inline;
  3565. function getSPIFE : TBits_1; inline;
  3566. function getSRXISEL : TBits_2; inline;
  3567. function getSSEN : TBits_1; inline;
  3568. function getSTXISEL : TBits_2; inline;
  3569. function getw : TBits_32; inline;
  3570. procedure setCKE(thebits : TBits_1); inline;
  3571. procedure setCKP(thebits : TBits_1); inline;
  3572. procedure setDISSDO(thebits : TBits_1); inline;
  3573. procedure setENHBUF(thebits : TBits_1); inline;
  3574. procedure setFRMCNT(thebits : TBits_3); inline;
  3575. procedure setFRMEN(thebits : TBits_1); inline;
  3576. procedure setFRMPOL(thebits : TBits_1); inline;
  3577. procedure setFRMSYNC(thebits : TBits_1); inline;
  3578. procedure setFRMSYPW(thebits : TBits_1); inline;
  3579. procedure setMODE16(thebits : TBits_1); inline;
  3580. procedure setMODE32(thebits : TBits_1); inline;
  3581. procedure setMSSEN(thebits : TBits_1); inline;
  3582. procedure setMSTEN(thebits : TBits_1); inline;
  3583. procedure setON(thebits : TBits_1); inline;
  3584. procedure setSIDL(thebits : TBits_1); inline;
  3585. procedure setSMP(thebits : TBits_1); inline;
  3586. procedure setSPIFE(thebits : TBits_1); inline;
  3587. procedure setSRXISEL(thebits : TBits_2); inline;
  3588. procedure setSSEN(thebits : TBits_1); inline;
  3589. procedure setSTXISEL(thebits : TBits_2); inline;
  3590. procedure setw(thebits : TBits_32); inline;
  3591. public
  3592. procedure clearCKE; inline;
  3593. procedure clearCKP; inline;
  3594. procedure clearDISSDO; inline;
  3595. procedure clearENHBUF; inline;
  3596. procedure clearFRMEN; inline;
  3597. procedure clearFRMPOL; inline;
  3598. procedure clearFRMSYNC; inline;
  3599. procedure clearFRMSYPW; inline;
  3600. procedure clearMODE16; inline;
  3601. procedure clearMODE32; inline;
  3602. procedure clearMSSEN; inline;
  3603. procedure clearMSTEN; inline;
  3604. procedure clearON; inline;
  3605. procedure clearSIDL; inline;
  3606. procedure clearSMP; inline;
  3607. procedure clearSPIFE; inline;
  3608. procedure clearSSEN; inline;
  3609. procedure setCKE; inline;
  3610. procedure setCKP; inline;
  3611. procedure setDISSDO; inline;
  3612. procedure setENHBUF; inline;
  3613. procedure setFRMEN; inline;
  3614. procedure setFRMPOL; inline;
  3615. procedure setFRMSYNC; inline;
  3616. procedure setFRMSYPW; inline;
  3617. procedure setMODE16; inline;
  3618. procedure setMODE32; inline;
  3619. procedure setMSSEN; inline;
  3620. procedure setMSTEN; inline;
  3621. procedure setON; inline;
  3622. procedure setSIDL; inline;
  3623. procedure setSMP; inline;
  3624. procedure setSPIFE; inline;
  3625. procedure setSSEN; inline;
  3626. property CKE : TBits_1 read getCKE write setCKE;
  3627. property CKP : TBits_1 read getCKP write setCKP;
  3628. property DISSDO : TBits_1 read getDISSDO write setDISSDO;
  3629. property ENHBUF : TBits_1 read getENHBUF write setENHBUF;
  3630. property FRMCNT : TBits_3 read getFRMCNT write setFRMCNT;
  3631. property FRMEN : TBits_1 read getFRMEN write setFRMEN;
  3632. property FRMPOL : TBits_1 read getFRMPOL write setFRMPOL;
  3633. property FRMSYNC : TBits_1 read getFRMSYNC write setFRMSYNC;
  3634. property FRMSYPW : TBits_1 read getFRMSYPW write setFRMSYPW;
  3635. property MODE16 : TBits_1 read getMODE16 write setMODE16;
  3636. property MODE32 : TBits_1 read getMODE32 write setMODE32;
  3637. property MSSEN : TBits_1 read getMSSEN write setMSSEN;
  3638. property MSTEN : TBits_1 read getMSTEN write setMSTEN;
  3639. property ON : TBits_1 read getON write setON;
  3640. property SIDL : TBits_1 read getSIDL write setSIDL;
  3641. property SMP : TBits_1 read getSMP write setSMP;
  3642. property SPIFE : TBits_1 read getSPIFE write setSPIFE;
  3643. property SRXISEL : TBits_2 read getSRXISEL write setSRXISEL;
  3644. property SSEN : TBits_1 read getSSEN write setSSEN;
  3645. property STXISEL : TBits_2 read getSTXISEL write setSTXISEL;
  3646. property w : TBits_32 read getw write setw;
  3647. end;
  3648. TSPI2_SPI2ASTAT = record
  3649. private
  3650. function getRXBUFELM : TBits_5; inline;
  3651. function getSPIBUSY : TBits_1; inline;
  3652. function getSPIRBE : TBits_1; inline;
  3653. function getSPIRBF : TBits_1; inline;
  3654. function getSPIROV : TBits_1; inline;
  3655. function getSPITBE : TBits_1; inline;
  3656. function getSPITBF : TBits_1; inline;
  3657. function getSPITUR : TBits_1; inline;
  3658. function getSRMT : TBits_1; inline;
  3659. function getTXBUFELM : TBits_5; inline;
  3660. function getw : TBits_32; inline;
  3661. procedure setRXBUFELM(thebits : TBits_5); inline;
  3662. procedure setSPIBUSY(thebits : TBits_1); inline;
  3663. procedure setSPIRBE(thebits : TBits_1); inline;
  3664. procedure setSPIRBF(thebits : TBits_1); inline;
  3665. procedure setSPIROV(thebits : TBits_1); inline;
  3666. procedure setSPITBE(thebits : TBits_1); inline;
  3667. procedure setSPITBF(thebits : TBits_1); inline;
  3668. procedure setSPITUR(thebits : TBits_1); inline;
  3669. procedure setSRMT(thebits : TBits_1); inline;
  3670. procedure setTXBUFELM(thebits : TBits_5); inline;
  3671. procedure setw(thebits : TBits_32); inline;
  3672. public
  3673. procedure clearSPIBUSY; inline;
  3674. procedure clearSPIRBE; inline;
  3675. procedure clearSPIRBF; inline;
  3676. procedure clearSPIROV; inline;
  3677. procedure clearSPITBE; inline;
  3678. procedure clearSPITBF; inline;
  3679. procedure clearSPITUR; inline;
  3680. procedure clearSRMT; inline;
  3681. procedure setSPIBUSY; inline;
  3682. procedure setSPIRBE; inline;
  3683. procedure setSPIRBF; inline;
  3684. procedure setSPIROV; inline;
  3685. procedure setSPITBE; inline;
  3686. procedure setSPITBF; inline;
  3687. procedure setSPITUR; inline;
  3688. procedure setSRMT; inline;
  3689. property RXBUFELM : TBits_5 read getRXBUFELM write setRXBUFELM;
  3690. property SPIBUSY : TBits_1 read getSPIBUSY write setSPIBUSY;
  3691. property SPIRBE : TBits_1 read getSPIRBE write setSPIRBE;
  3692. property SPIRBF : TBits_1 read getSPIRBF write setSPIRBF;
  3693. property SPIROV : TBits_1 read getSPIROV write setSPIROV;
  3694. property SPITBE : TBits_1 read getSPITBE write setSPITBE;
  3695. property SPITBF : TBits_1 read getSPITBF write setSPITBF;
  3696. property SPITUR : TBits_1 read getSPITUR write setSPITUR;
  3697. property SRMT : TBits_1 read getSRMT write setSRMT;
  3698. property TXBUFELM : TBits_5 read getTXBUFELM write setTXBUFELM;
  3699. property w : TBits_32 read getw write setw;
  3700. end;
  3701. TSPI2_SPI2STAT = record
  3702. private
  3703. function getRXBUFELM : TBits_5; inline;
  3704. function getSPIBUSY : TBits_1; inline;
  3705. function getSPIRBE : TBits_1; inline;
  3706. function getSPIRBF : TBits_1; inline;
  3707. function getSPIROV : TBits_1; inline;
  3708. function getSPITBE : TBits_1; inline;
  3709. function getSPITBF : TBits_1; inline;
  3710. function getSPITUR : TBits_1; inline;
  3711. function getSRMT : TBits_1; inline;
  3712. function getTXBUFELM : TBits_5; inline;
  3713. function getw : TBits_32; inline;
  3714. procedure setRXBUFELM(thebits : TBits_5); inline;
  3715. procedure setSPIBUSY(thebits : TBits_1); inline;
  3716. procedure setSPIRBE(thebits : TBits_1); inline;
  3717. procedure setSPIRBF(thebits : TBits_1); inline;
  3718. procedure setSPIROV(thebits : TBits_1); inline;
  3719. procedure setSPITBE(thebits : TBits_1); inline;
  3720. procedure setSPITBF(thebits : TBits_1); inline;
  3721. procedure setSPITUR(thebits : TBits_1); inline;
  3722. procedure setSRMT(thebits : TBits_1); inline;
  3723. procedure setTXBUFELM(thebits : TBits_5); inline;
  3724. procedure setw(thebits : TBits_32); inline;
  3725. public
  3726. procedure clearSPIBUSY; inline;
  3727. procedure clearSPIRBE; inline;
  3728. procedure clearSPIRBF; inline;
  3729. procedure clearSPIROV; inline;
  3730. procedure clearSPITBE; inline;
  3731. procedure clearSPITBF; inline;
  3732. procedure clearSPITUR; inline;
  3733. procedure clearSRMT; inline;
  3734. procedure setSPIBUSY; inline;
  3735. procedure setSPIRBE; inline;
  3736. procedure setSPIRBF; inline;
  3737. procedure setSPIROV; inline;
  3738. procedure setSPITBE; inline;
  3739. procedure setSPITBF; inline;
  3740. procedure setSPITUR; inline;
  3741. procedure setSRMT; inline;
  3742. property RXBUFELM : TBits_5 read getRXBUFELM write setRXBUFELM;
  3743. property SPIBUSY : TBits_1 read getSPIBUSY write setSPIBUSY;
  3744. property SPIRBE : TBits_1 read getSPIRBE write setSPIRBE;
  3745. property SPIRBF : TBits_1 read getSPIRBF write setSPIRBF;
  3746. property SPIROV : TBits_1 read getSPIROV write setSPIROV;
  3747. property SPITBE : TBits_1 read getSPITBE write setSPITBE;
  3748. property SPITBF : TBits_1 read getSPITBF write setSPITBF;
  3749. property SPITUR : TBits_1 read getSPITUR write setSPITUR;
  3750. property SRMT : TBits_1 read getSRMT write setSRMT;
  3751. property TXBUFELM : TBits_5 read getTXBUFELM write setTXBUFELM;
  3752. property w : TBits_32 read getw write setw;
  3753. end;
  3754. type
  3755. TSPI2Registers = record
  3756. SPI2ACONbits : TSPI2_SPI2ACON;
  3757. SPI2ACON : longWord;
  3758. SPI2CONbits : TSPI2_SPI2CON;
  3759. SPI2CON : longWord;
  3760. SPI2ACONCLR : longWord;
  3761. SPI2CONCLR : longWord;
  3762. SPI2ACONSET : longWord;
  3763. SPI2CONSET : longWord;
  3764. SPI2ACONINV : longWord;
  3765. SPI2CONINV : longWord;
  3766. SPI2ASTATbits : TSPI2_SPI2ASTAT;
  3767. SPI2ASTAT : longWord;
  3768. SPI2STATbits : TSPI2_SPI2STAT;
  3769. SPI2STAT : longWord;
  3770. SPI2ASTATCLR : longWord;
  3771. SPI2STATCLR : longWord;
  3772. SPI2ASTATSET : longWord;
  3773. SPI2STATSET : longWord;
  3774. SPI2ASTATINV : longWord;
  3775. SPI2STATINV : longWord;
  3776. SPI2ABUF : longWord;
  3777. SPI2BUF : longWord;
  3778. SPI2ABRG : longWord;
  3779. SPI2BRG : longWord;
  3780. SPI2ABRGCLR : longWord;
  3781. SPI2BRGCLR : longWord;
  3782. SPI2ABRGSET : longWord;
  3783. SPI2BRGSET : longWord;
  3784. SPI2ABRGINV : longWord;
  3785. SPI2BRGINV : longWord;
  3786. end;
  3787. TSPI4_SPI3ACON = record
  3788. private
  3789. function getCKE : TBits_1; inline;
  3790. function getCKP : TBits_1; inline;
  3791. function getDISSDO : TBits_1; inline;
  3792. function getENHBUF : TBits_1; inline;
  3793. function getFRMCNT : TBits_3; inline;
  3794. function getFRMEN : TBits_1; inline;
  3795. function getFRMPOL : TBits_1; inline;
  3796. function getFRMSYNC : TBits_1; inline;
  3797. function getFRMSYPW : TBits_1; inline;
  3798. function getMODE16 : TBits_1; inline;
  3799. function getMODE32 : TBits_1; inline;
  3800. function getMSSEN : TBits_1; inline;
  3801. function getMSTEN : TBits_1; inline;
  3802. function getON : TBits_1; inline;
  3803. function getSIDL : TBits_1; inline;
  3804. function getSMP : TBits_1; inline;
  3805. function getSPIFE : TBits_1; inline;
  3806. function getSRXISEL : TBits_2; inline;
  3807. function getSSEN : TBits_1; inline;
  3808. function getSTXISEL : TBits_2; inline;
  3809. function getw : TBits_32; inline;
  3810. procedure setCKE(thebits : TBits_1); inline;
  3811. procedure setCKP(thebits : TBits_1); inline;
  3812. procedure setDISSDO(thebits : TBits_1); inline;
  3813. procedure setENHBUF(thebits : TBits_1); inline;
  3814. procedure setFRMCNT(thebits : TBits_3); inline;
  3815. procedure setFRMEN(thebits : TBits_1); inline;
  3816. procedure setFRMPOL(thebits : TBits_1); inline;
  3817. procedure setFRMSYNC(thebits : TBits_1); inline;
  3818. procedure setFRMSYPW(thebits : TBits_1); inline;
  3819. procedure setMODE16(thebits : TBits_1); inline;
  3820. procedure setMODE32(thebits : TBits_1); inline;
  3821. procedure setMSSEN(thebits : TBits_1); inline;
  3822. procedure setMSTEN(thebits : TBits_1); inline;
  3823. procedure setON(thebits : TBits_1); inline;
  3824. procedure setSIDL(thebits : TBits_1); inline;
  3825. procedure setSMP(thebits : TBits_1); inline;
  3826. procedure setSPIFE(thebits : TBits_1); inline;
  3827. procedure setSRXISEL(thebits : TBits_2); inline;
  3828. procedure setSSEN(thebits : TBits_1); inline;
  3829. procedure setSTXISEL(thebits : TBits_2); inline;
  3830. procedure setw(thebits : TBits_32); inline;
  3831. public
  3832. procedure clearCKE; inline;
  3833. procedure clearCKP; inline;
  3834. procedure clearDISSDO; inline;
  3835. procedure clearENHBUF; inline;
  3836. procedure clearFRMEN; inline;
  3837. procedure clearFRMPOL; inline;
  3838. procedure clearFRMSYNC; inline;
  3839. procedure clearFRMSYPW; inline;
  3840. procedure clearMODE16; inline;
  3841. procedure clearMODE32; inline;
  3842. procedure clearMSSEN; inline;
  3843. procedure clearMSTEN; inline;
  3844. procedure clearON; inline;
  3845. procedure clearSIDL; inline;
  3846. procedure clearSMP; inline;
  3847. procedure clearSPIFE; inline;
  3848. procedure clearSSEN; inline;
  3849. procedure setCKE; inline;
  3850. procedure setCKP; inline;
  3851. procedure setDISSDO; inline;
  3852. procedure setENHBUF; inline;
  3853. procedure setFRMEN; inline;
  3854. procedure setFRMPOL; inline;
  3855. procedure setFRMSYNC; inline;
  3856. procedure setFRMSYPW; inline;
  3857. procedure setMODE16; inline;
  3858. procedure setMODE32; inline;
  3859. procedure setMSSEN; inline;
  3860. procedure setMSTEN; inline;
  3861. procedure setON; inline;
  3862. procedure setSIDL; inline;
  3863. procedure setSMP; inline;
  3864. procedure setSPIFE; inline;
  3865. procedure setSSEN; inline;
  3866. property CKE : TBits_1 read getCKE write setCKE;
  3867. property CKP : TBits_1 read getCKP write setCKP;
  3868. property DISSDO : TBits_1 read getDISSDO write setDISSDO;
  3869. property ENHBUF : TBits_1 read getENHBUF write setENHBUF;
  3870. property FRMCNT : TBits_3 read getFRMCNT write setFRMCNT;
  3871. property FRMEN : TBits_1 read getFRMEN write setFRMEN;
  3872. property FRMPOL : TBits_1 read getFRMPOL write setFRMPOL;
  3873. property FRMSYNC : TBits_1 read getFRMSYNC write setFRMSYNC;
  3874. property FRMSYPW : TBits_1 read getFRMSYPW write setFRMSYPW;
  3875. property MODE16 : TBits_1 read getMODE16 write setMODE16;
  3876. property MODE32 : TBits_1 read getMODE32 write setMODE32;
  3877. property MSSEN : TBits_1 read getMSSEN write setMSSEN;
  3878. property MSTEN : TBits_1 read getMSTEN write setMSTEN;
  3879. property ON : TBits_1 read getON write setON;
  3880. property SIDL : TBits_1 read getSIDL write setSIDL;
  3881. property SMP : TBits_1 read getSMP write setSMP;
  3882. property SPIFE : TBits_1 read getSPIFE write setSPIFE;
  3883. property SRXISEL : TBits_2 read getSRXISEL write setSRXISEL;
  3884. property SSEN : TBits_1 read getSSEN write setSSEN;
  3885. property STXISEL : TBits_2 read getSTXISEL write setSTXISEL;
  3886. property w : TBits_32 read getw write setw;
  3887. end;
  3888. TSPI4_SPI4CON = record
  3889. private
  3890. function getCKE : TBits_1; inline;
  3891. function getCKP : TBits_1; inline;
  3892. function getDISSDO : TBits_1; inline;
  3893. function getENHBUF : TBits_1; inline;
  3894. function getFRMCNT : TBits_3; inline;
  3895. function getFRMEN : TBits_1; inline;
  3896. function getFRMPOL : TBits_1; inline;
  3897. function getFRMSYNC : TBits_1; inline;
  3898. function getFRMSYPW : TBits_1; inline;
  3899. function getMODE16 : TBits_1; inline;
  3900. function getMODE32 : TBits_1; inline;
  3901. function getMSSEN : TBits_1; inline;
  3902. function getMSTEN : TBits_1; inline;
  3903. function getON : TBits_1; inline;
  3904. function getSIDL : TBits_1; inline;
  3905. function getSMP : TBits_1; inline;
  3906. function getSPIFE : TBits_1; inline;
  3907. function getSRXISEL : TBits_2; inline;
  3908. function getSSEN : TBits_1; inline;
  3909. function getSTXISEL : TBits_2; inline;
  3910. function getw : TBits_32; inline;
  3911. procedure setCKE(thebits : TBits_1); inline;
  3912. procedure setCKP(thebits : TBits_1); inline;
  3913. procedure setDISSDO(thebits : TBits_1); inline;
  3914. procedure setENHBUF(thebits : TBits_1); inline;
  3915. procedure setFRMCNT(thebits : TBits_3); inline;
  3916. procedure setFRMEN(thebits : TBits_1); inline;
  3917. procedure setFRMPOL(thebits : TBits_1); inline;
  3918. procedure setFRMSYNC(thebits : TBits_1); inline;
  3919. procedure setFRMSYPW(thebits : TBits_1); inline;
  3920. procedure setMODE16(thebits : TBits_1); inline;
  3921. procedure setMODE32(thebits : TBits_1); inline;
  3922. procedure setMSSEN(thebits : TBits_1); inline;
  3923. procedure setMSTEN(thebits : TBits_1); inline;
  3924. procedure setON(thebits : TBits_1); inline;
  3925. procedure setSIDL(thebits : TBits_1); inline;
  3926. procedure setSMP(thebits : TBits_1); inline;
  3927. procedure setSPIFE(thebits : TBits_1); inline;
  3928. procedure setSRXISEL(thebits : TBits_2); inline;
  3929. procedure setSSEN(thebits : TBits_1); inline;
  3930. procedure setSTXISEL(thebits : TBits_2); inline;
  3931. procedure setw(thebits : TBits_32); inline;
  3932. public
  3933. procedure clearCKE; inline;
  3934. procedure clearCKP; inline;
  3935. procedure clearDISSDO; inline;
  3936. procedure clearENHBUF; inline;
  3937. procedure clearFRMEN; inline;
  3938. procedure clearFRMPOL; inline;
  3939. procedure clearFRMSYNC; inline;
  3940. procedure clearFRMSYPW; inline;
  3941. procedure clearMODE16; inline;
  3942. procedure clearMODE32; inline;
  3943. procedure clearMSSEN; inline;
  3944. procedure clearMSTEN; inline;
  3945. procedure clearON; inline;
  3946. procedure clearSIDL; inline;
  3947. procedure clearSMP; inline;
  3948. procedure clearSPIFE; inline;
  3949. procedure clearSSEN; inline;
  3950. procedure setCKE; inline;
  3951. procedure setCKP; inline;
  3952. procedure setDISSDO; inline;
  3953. procedure setENHBUF; inline;
  3954. procedure setFRMEN; inline;
  3955. procedure setFRMPOL; inline;
  3956. procedure setFRMSYNC; inline;
  3957. procedure setFRMSYPW; inline;
  3958. procedure setMODE16; inline;
  3959. procedure setMODE32; inline;
  3960. procedure setMSSEN; inline;
  3961. procedure setMSTEN; inline;
  3962. procedure setON; inline;
  3963. procedure setSIDL; inline;
  3964. procedure setSMP; inline;
  3965. procedure setSPIFE; inline;
  3966. procedure setSSEN; inline;
  3967. property CKE : TBits_1 read getCKE write setCKE;
  3968. property CKP : TBits_1 read getCKP write setCKP;
  3969. property DISSDO : TBits_1 read getDISSDO write setDISSDO;
  3970. property ENHBUF : TBits_1 read getENHBUF write setENHBUF;
  3971. property FRMCNT : TBits_3 read getFRMCNT write setFRMCNT;
  3972. property FRMEN : TBits_1 read getFRMEN write setFRMEN;
  3973. property FRMPOL : TBits_1 read getFRMPOL write setFRMPOL;
  3974. property FRMSYNC : TBits_1 read getFRMSYNC write setFRMSYNC;
  3975. property FRMSYPW : TBits_1 read getFRMSYPW write setFRMSYPW;
  3976. property MODE16 : TBits_1 read getMODE16 write setMODE16;
  3977. property MODE32 : TBits_1 read getMODE32 write setMODE32;
  3978. property MSSEN : TBits_1 read getMSSEN write setMSSEN;
  3979. property MSTEN : TBits_1 read getMSTEN write setMSTEN;
  3980. property ON : TBits_1 read getON write setON;
  3981. property SIDL : TBits_1 read getSIDL write setSIDL;
  3982. property SMP : TBits_1 read getSMP write setSMP;
  3983. property SPIFE : TBits_1 read getSPIFE write setSPIFE;
  3984. property SRXISEL : TBits_2 read getSRXISEL write setSRXISEL;
  3985. property SSEN : TBits_1 read getSSEN write setSSEN;
  3986. property STXISEL : TBits_2 read getSTXISEL write setSTXISEL;
  3987. property w : TBits_32 read getw write setw;
  3988. end;
  3989. TSPI4_SPI3ASTAT = record
  3990. private
  3991. function getRXBUFELM : TBits_5; inline;
  3992. function getSPIBUSY : TBits_1; inline;
  3993. function getSPIRBE : TBits_1; inline;
  3994. function getSPIRBF : TBits_1; inline;
  3995. function getSPIROV : TBits_1; inline;
  3996. function getSPITBE : TBits_1; inline;
  3997. function getSPITBF : TBits_1; inline;
  3998. function getSPITUR : TBits_1; inline;
  3999. function getSRMT : TBits_1; inline;
  4000. function getTXBUFELM : TBits_5; inline;
  4001. function getw : TBits_32; inline;
  4002. procedure setRXBUFELM(thebits : TBits_5); inline;
  4003. procedure setSPIBUSY(thebits : TBits_1); inline;
  4004. procedure setSPIRBE(thebits : TBits_1); inline;
  4005. procedure setSPIRBF(thebits : TBits_1); inline;
  4006. procedure setSPIROV(thebits : TBits_1); inline;
  4007. procedure setSPITBE(thebits : TBits_1); inline;
  4008. procedure setSPITBF(thebits : TBits_1); inline;
  4009. procedure setSPITUR(thebits : TBits_1); inline;
  4010. procedure setSRMT(thebits : TBits_1); inline;
  4011. procedure setTXBUFELM(thebits : TBits_5); inline;
  4012. procedure setw(thebits : TBits_32); inline;
  4013. public
  4014. procedure clearSPIBUSY; inline;
  4015. procedure clearSPIRBE; inline;
  4016. procedure clearSPIRBF; inline;
  4017. procedure clearSPIROV; inline;
  4018. procedure clearSPITBE; inline;
  4019. procedure clearSPITBF; inline;
  4020. procedure clearSPITUR; inline;
  4021. procedure clearSRMT; inline;
  4022. procedure setSPIBUSY; inline;
  4023. procedure setSPIRBE; inline;
  4024. procedure setSPIRBF; inline;
  4025. procedure setSPIROV; inline;
  4026. procedure setSPITBE; inline;
  4027. procedure setSPITBF; inline;
  4028. procedure setSPITUR; inline;
  4029. procedure setSRMT; inline;
  4030. property RXBUFELM : TBits_5 read getRXBUFELM write setRXBUFELM;
  4031. property SPIBUSY : TBits_1 read getSPIBUSY write setSPIBUSY;
  4032. property SPIRBE : TBits_1 read getSPIRBE write setSPIRBE;
  4033. property SPIRBF : TBits_1 read getSPIRBF write setSPIRBF;
  4034. property SPIROV : TBits_1 read getSPIROV write setSPIROV;
  4035. property SPITBE : TBits_1 read getSPITBE write setSPITBE;
  4036. property SPITBF : TBits_1 read getSPITBF write setSPITBF;
  4037. property SPITUR : TBits_1 read getSPITUR write setSPITUR;
  4038. property SRMT : TBits_1 read getSRMT write setSRMT;
  4039. property TXBUFELM : TBits_5 read getTXBUFELM write setTXBUFELM;
  4040. property w : TBits_32 read getw write setw;
  4041. end;
  4042. TSPI4_SPI4STAT = record
  4043. private
  4044. function getRXBUFELM : TBits_5; inline;
  4045. function getSPIBUSY : TBits_1; inline;
  4046. function getSPIRBE : TBits_1; inline;
  4047. function getSPIRBF : TBits_1; inline;
  4048. function getSPIROV : TBits_1; inline;
  4049. function getSPITBE : TBits_1; inline;
  4050. function getSPITBF : TBits_1; inline;
  4051. function getSPITUR : TBits_1; inline;
  4052. function getSRMT : TBits_1; inline;
  4053. function getTXBUFELM : TBits_5; inline;
  4054. function getw : TBits_32; inline;
  4055. procedure setRXBUFELM(thebits : TBits_5); inline;
  4056. procedure setSPIBUSY(thebits : TBits_1); inline;
  4057. procedure setSPIRBE(thebits : TBits_1); inline;
  4058. procedure setSPIRBF(thebits : TBits_1); inline;
  4059. procedure setSPIROV(thebits : TBits_1); inline;
  4060. procedure setSPITBE(thebits : TBits_1); inline;
  4061. procedure setSPITBF(thebits : TBits_1); inline;
  4062. procedure setSPITUR(thebits : TBits_1); inline;
  4063. procedure setSRMT(thebits : TBits_1); inline;
  4064. procedure setTXBUFELM(thebits : TBits_5); inline;
  4065. procedure setw(thebits : TBits_32); inline;
  4066. public
  4067. procedure clearSPIBUSY; inline;
  4068. procedure clearSPIRBE; inline;
  4069. procedure clearSPIRBF; inline;
  4070. procedure clearSPIROV; inline;
  4071. procedure clearSPITBE; inline;
  4072. procedure clearSPITBF; inline;
  4073. procedure clearSPITUR; inline;
  4074. procedure clearSRMT; inline;
  4075. procedure setSPIBUSY; inline;
  4076. procedure setSPIRBE; inline;
  4077. procedure setSPIRBF; inline;
  4078. procedure setSPIROV; inline;
  4079. procedure setSPITBE; inline;
  4080. procedure setSPITBF; inline;
  4081. procedure setSPITUR; inline;
  4082. procedure setSRMT; inline;
  4083. property RXBUFELM : TBits_5 read getRXBUFELM write setRXBUFELM;
  4084. property SPIBUSY : TBits_1 read getSPIBUSY write setSPIBUSY;
  4085. property SPIRBE : TBits_1 read getSPIRBE write setSPIRBE;
  4086. property SPIRBF : TBits_1 read getSPIRBF write setSPIRBF;
  4087. property SPIROV : TBits_1 read getSPIROV write setSPIROV;
  4088. property SPITBE : TBits_1 read getSPITBE write setSPITBE;
  4089. property SPITBF : TBits_1 read getSPITBF write setSPITBF;
  4090. property SPITUR : TBits_1 read getSPITUR write setSPITUR;
  4091. property SRMT : TBits_1 read getSRMT write setSRMT;
  4092. property TXBUFELM : TBits_5 read getTXBUFELM write setTXBUFELM;
  4093. property w : TBits_32 read getw write setw;
  4094. end;
  4095. type
  4096. TSPI4Registers = record
  4097. SPI3ACONbits : TSPI4_SPI3ACON;
  4098. SPI3ACON : longWord;
  4099. SPI4CONbits : TSPI4_SPI4CON;
  4100. SPI4CON : longWord;
  4101. SPI3ACONCLR : longWord;
  4102. SPI4CONCLR : longWord;
  4103. SPI3ACONSET : longWord;
  4104. SPI4CONSET : longWord;
  4105. SPI3ACONINV : longWord;
  4106. SPI4CONINV : longWord;
  4107. SPI3ASTATbits : TSPI4_SPI3ASTAT;
  4108. SPI3ASTAT : longWord;
  4109. SPI4STATbits : TSPI4_SPI4STAT;
  4110. SPI4STAT : longWord;
  4111. SPI3ASTATCLR : longWord;
  4112. SPI4STATCLR : longWord;
  4113. SPI3ASTATSET : longWord;
  4114. SPI4STATSET : longWord;
  4115. SPI3ASTATINV : longWord;
  4116. SPI4STATINV : longWord;
  4117. SPI3ABUF : longWord;
  4118. SPI4BUF : longWord;
  4119. SPI3ABRG : longWord;
  4120. SPI4BRG : longWord;
  4121. SPI3ABRGCLR : longWord;
  4122. SPI4BRGCLR : longWord;
  4123. SPI3ABRGSET : longWord;
  4124. SPI4BRGSET : longWord;
  4125. SPI3ABRGINV : longWord;
  4126. SPI4BRGINV : longWord;
  4127. end;
  4128. TSPI1_SPI1CON = record
  4129. private
  4130. function getCKE : TBits_1; inline;
  4131. function getCKP : TBits_1; inline;
  4132. function getDISSDO : TBits_1; inline;
  4133. function getENHBUF : TBits_1; inline;
  4134. function getFRMCNT : TBits_3; inline;
  4135. function getFRMEN : TBits_1; inline;
  4136. function getFRMPOL : TBits_1; inline;
  4137. function getFRMSYNC : TBits_1; inline;
  4138. function getFRMSYPW : TBits_1; inline;
  4139. function getMODE16 : TBits_1; inline;
  4140. function getMODE32 : TBits_1; inline;
  4141. function getMSSEN : TBits_1; inline;
  4142. function getMSTEN : TBits_1; inline;
  4143. function getON : TBits_1; inline;
  4144. function getSIDL : TBits_1; inline;
  4145. function getSMP : TBits_1; inline;
  4146. function getSPIFE : TBits_1; inline;
  4147. function getSRXISEL : TBits_2; inline;
  4148. function getSSEN : TBits_1; inline;
  4149. function getSTXISEL : TBits_2; inline;
  4150. function getw : TBits_32; inline;
  4151. procedure setCKE(thebits : TBits_1); inline;
  4152. procedure setCKP(thebits : TBits_1); inline;
  4153. procedure setDISSDO(thebits : TBits_1); inline;
  4154. procedure setENHBUF(thebits : TBits_1); inline;
  4155. procedure setFRMCNT(thebits : TBits_3); inline;
  4156. procedure setFRMEN(thebits : TBits_1); inline;
  4157. procedure setFRMPOL(thebits : TBits_1); inline;
  4158. procedure setFRMSYNC(thebits : TBits_1); inline;
  4159. procedure setFRMSYPW(thebits : TBits_1); inline;
  4160. procedure setMODE16(thebits : TBits_1); inline;
  4161. procedure setMODE32(thebits : TBits_1); inline;
  4162. procedure setMSSEN(thebits : TBits_1); inline;
  4163. procedure setMSTEN(thebits : TBits_1); inline;
  4164. procedure setON(thebits : TBits_1); inline;
  4165. procedure setSIDL(thebits : TBits_1); inline;
  4166. procedure setSMP(thebits : TBits_1); inline;
  4167. procedure setSPIFE(thebits : TBits_1); inline;
  4168. procedure setSRXISEL(thebits : TBits_2); inline;
  4169. procedure setSSEN(thebits : TBits_1); inline;
  4170. procedure setSTXISEL(thebits : TBits_2); inline;
  4171. procedure setw(thebits : TBits_32); inline;
  4172. public
  4173. procedure clearCKE; inline;
  4174. procedure clearCKP; inline;
  4175. procedure clearDISSDO; inline;
  4176. procedure clearENHBUF; inline;
  4177. procedure clearFRMEN; inline;
  4178. procedure clearFRMPOL; inline;
  4179. procedure clearFRMSYNC; inline;
  4180. procedure clearFRMSYPW; inline;
  4181. procedure clearMODE16; inline;
  4182. procedure clearMODE32; inline;
  4183. procedure clearMSSEN; inline;
  4184. procedure clearMSTEN; inline;
  4185. procedure clearON; inline;
  4186. procedure clearSIDL; inline;
  4187. procedure clearSMP; inline;
  4188. procedure clearSPIFE; inline;
  4189. procedure clearSSEN; inline;
  4190. procedure setCKE; inline;
  4191. procedure setCKP; inline;
  4192. procedure setDISSDO; inline;
  4193. procedure setENHBUF; inline;
  4194. procedure setFRMEN; inline;
  4195. procedure setFRMPOL; inline;
  4196. procedure setFRMSYNC; inline;
  4197. procedure setFRMSYPW; inline;
  4198. procedure setMODE16; inline;
  4199. procedure setMODE32; inline;
  4200. procedure setMSSEN; inline;
  4201. procedure setMSTEN; inline;
  4202. procedure setON; inline;
  4203. procedure setSIDL; inline;
  4204. procedure setSMP; inline;
  4205. procedure setSPIFE; inline;
  4206. procedure setSSEN; inline;
  4207. property CKE : TBits_1 read getCKE write setCKE;
  4208. property CKP : TBits_1 read getCKP write setCKP;
  4209. property DISSDO : TBits_1 read getDISSDO write setDISSDO;
  4210. property ENHBUF : TBits_1 read getENHBUF write setENHBUF;
  4211. property FRMCNT : TBits_3 read getFRMCNT write setFRMCNT;
  4212. property FRMEN : TBits_1 read getFRMEN write setFRMEN;
  4213. property FRMPOL : TBits_1 read getFRMPOL write setFRMPOL;
  4214. property FRMSYNC : TBits_1 read getFRMSYNC write setFRMSYNC;
  4215. property FRMSYPW : TBits_1 read getFRMSYPW write setFRMSYPW;
  4216. property MODE16 : TBits_1 read getMODE16 write setMODE16;
  4217. property MODE32 : TBits_1 read getMODE32 write setMODE32;
  4218. property MSSEN : TBits_1 read getMSSEN write setMSSEN;
  4219. property MSTEN : TBits_1 read getMSTEN write setMSTEN;
  4220. property ON : TBits_1 read getON write setON;
  4221. property SIDL : TBits_1 read getSIDL write setSIDL;
  4222. property SMP : TBits_1 read getSMP write setSMP;
  4223. property SPIFE : TBits_1 read getSPIFE write setSPIFE;
  4224. property SRXISEL : TBits_2 read getSRXISEL write setSRXISEL;
  4225. property SSEN : TBits_1 read getSSEN write setSSEN;
  4226. property STXISEL : TBits_2 read getSTXISEL write setSTXISEL;
  4227. property w : TBits_32 read getw write setw;
  4228. end;
  4229. TSPI1_SPI1STAT = record
  4230. private
  4231. function getRXBUFELM : TBits_5; inline;
  4232. function getSPIBUSY : TBits_1; inline;
  4233. function getSPIRBE : TBits_1; inline;
  4234. function getSPIRBF : TBits_1; inline;
  4235. function getSPIROV : TBits_1; inline;
  4236. function getSPITBE : TBits_1; inline;
  4237. function getSPITBF : TBits_1; inline;
  4238. function getSPITUR : TBits_1; inline;
  4239. function getSRMT : TBits_1; inline;
  4240. function getTXBUFELM : TBits_5; inline;
  4241. function getw : TBits_32; inline;
  4242. procedure setRXBUFELM(thebits : TBits_5); inline;
  4243. procedure setSPIBUSY(thebits : TBits_1); inline;
  4244. procedure setSPIRBE(thebits : TBits_1); inline;
  4245. procedure setSPIRBF(thebits : TBits_1); inline;
  4246. procedure setSPIROV(thebits : TBits_1); inline;
  4247. procedure setSPITBE(thebits : TBits_1); inline;
  4248. procedure setSPITBF(thebits : TBits_1); inline;
  4249. procedure setSPITUR(thebits : TBits_1); inline;
  4250. procedure setSRMT(thebits : TBits_1); inline;
  4251. procedure setTXBUFELM(thebits : TBits_5); inline;
  4252. procedure setw(thebits : TBits_32); inline;
  4253. public
  4254. procedure clearSPIBUSY; inline;
  4255. procedure clearSPIRBE; inline;
  4256. procedure clearSPIRBF; inline;
  4257. procedure clearSPIROV; inline;
  4258. procedure clearSPITBE; inline;
  4259. procedure clearSPITBF; inline;
  4260. procedure clearSPITUR; inline;
  4261. procedure clearSRMT; inline;
  4262. procedure setSPIBUSY; inline;
  4263. procedure setSPIRBE; inline;
  4264. procedure setSPIRBF; inline;
  4265. procedure setSPIROV; inline;
  4266. procedure setSPITBE; inline;
  4267. procedure setSPITBF; inline;
  4268. procedure setSPITUR; inline;
  4269. procedure setSRMT; inline;
  4270. property RXBUFELM : TBits_5 read getRXBUFELM write setRXBUFELM;
  4271. property SPIBUSY : TBits_1 read getSPIBUSY write setSPIBUSY;
  4272. property SPIRBE : TBits_1 read getSPIRBE write setSPIRBE;
  4273. property SPIRBF : TBits_1 read getSPIRBF write setSPIRBF;
  4274. property SPIROV : TBits_1 read getSPIROV write setSPIROV;
  4275. property SPITBE : TBits_1 read getSPITBE write setSPITBE;
  4276. property SPITBF : TBits_1 read getSPITBF write setSPITBF;
  4277. property SPITUR : TBits_1 read getSPITUR write setSPITUR;
  4278. property SRMT : TBits_1 read getSRMT write setSRMT;
  4279. property TXBUFELM : TBits_5 read getTXBUFELM write setTXBUFELM;
  4280. property w : TBits_32 read getw write setw;
  4281. end;
  4282. type
  4283. TSPI1Registers = record
  4284. SPI1CONbits : TSPI1_SPI1CON;
  4285. SPI1CON : longWord;
  4286. SPI1CONCLR : longWord;
  4287. SPI1CONSET : longWord;
  4288. SPI1CONINV : longWord;
  4289. SPI1STATbits : TSPI1_SPI1STAT;
  4290. SPI1STAT : longWord;
  4291. SPI1STATCLR : longWord;
  4292. SPI1STATSET : longWord;
  4293. SPI1STATINV : longWord;
  4294. SPI1BUF : longWord;
  4295. SPI1BRG : longWord;
  4296. SPI1BRGCLR : longWord;
  4297. SPI1BRGSET : longWord;
  4298. SPI1BRGINV : longWord;
  4299. end;
  4300. TUART1A_U1AMODE = record
  4301. private
  4302. function getABAUD : TBits_1; inline;
  4303. function getBRGH : TBits_1; inline;
  4304. function getIREN : TBits_1; inline;
  4305. function getLPBACK : TBits_1; inline;
  4306. function getON : TBits_1; inline;
  4307. function getPDSEL : TBits_2; inline;
  4308. function getPDSEL0 : TBits_1; inline;
  4309. function getPDSEL1 : TBits_1; inline;
  4310. function getRTSMD : TBits_1; inline;
  4311. function getRXINV : TBits_1; inline;
  4312. function getSIDL : TBits_1; inline;
  4313. function getSTSEL : TBits_1; inline;
  4314. function getUARTEN : TBits_1; inline;
  4315. function getUEN : TBits_2; inline;
  4316. function getUEN0 : TBits_1; inline;
  4317. function getUEN1 : TBits_1; inline;
  4318. function getUSIDL : TBits_1; inline;
  4319. function getWAKE : TBits_1; inline;
  4320. function getw : TBits_32; inline;
  4321. procedure setABAUD(thebits : TBits_1); inline;
  4322. procedure setBRGH(thebits : TBits_1); inline;
  4323. procedure setIREN(thebits : TBits_1); inline;
  4324. procedure setLPBACK(thebits : TBits_1); inline;
  4325. procedure setON(thebits : TBits_1); inline;
  4326. procedure setPDSEL(thebits : TBits_2); inline;
  4327. procedure setPDSEL0(thebits : TBits_1); inline;
  4328. procedure setPDSEL1(thebits : TBits_1); inline;
  4329. procedure setRTSMD(thebits : TBits_1); inline;
  4330. procedure setRXINV(thebits : TBits_1); inline;
  4331. procedure setSIDL(thebits : TBits_1); inline;
  4332. procedure setSTSEL(thebits : TBits_1); inline;
  4333. procedure setUARTEN(thebits : TBits_1); inline;
  4334. procedure setUEN(thebits : TBits_2); inline;
  4335. procedure setUEN0(thebits : TBits_1); inline;
  4336. procedure setUEN1(thebits : TBits_1); inline;
  4337. procedure setUSIDL(thebits : TBits_1); inline;
  4338. procedure setWAKE(thebits : TBits_1); inline;
  4339. procedure setw(thebits : TBits_32); inline;
  4340. public
  4341. procedure clearABAUD; inline;
  4342. procedure clearBRGH; inline;
  4343. procedure clearIREN; inline;
  4344. procedure clearLPBACK; inline;
  4345. procedure clearON; inline;
  4346. procedure clearPDSEL0; inline;
  4347. procedure clearPDSEL1; inline;
  4348. procedure clearRTSMD; inline;
  4349. procedure clearRXINV; inline;
  4350. procedure clearSIDL; inline;
  4351. procedure clearSTSEL; inline;
  4352. procedure clearUARTEN; inline;
  4353. procedure clearUEN0; inline;
  4354. procedure clearUEN1; inline;
  4355. procedure clearUSIDL; inline;
  4356. procedure clearWAKE; inline;
  4357. procedure setABAUD; inline;
  4358. procedure setBRGH; inline;
  4359. procedure setIREN; inline;
  4360. procedure setLPBACK; inline;
  4361. procedure setON; inline;
  4362. procedure setPDSEL0; inline;
  4363. procedure setPDSEL1; inline;
  4364. procedure setRTSMD; inline;
  4365. procedure setRXINV; inline;
  4366. procedure setSIDL; inline;
  4367. procedure setSTSEL; inline;
  4368. procedure setUARTEN; inline;
  4369. procedure setUEN0; inline;
  4370. procedure setUEN1; inline;
  4371. procedure setUSIDL; inline;
  4372. procedure setWAKE; inline;
  4373. property ABAUD : TBits_1 read getABAUD write setABAUD;
  4374. property BRGH : TBits_1 read getBRGH write setBRGH;
  4375. property IREN : TBits_1 read getIREN write setIREN;
  4376. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  4377. property ON : TBits_1 read getON write setON;
  4378. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  4379. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  4380. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  4381. property RTSMD : TBits_1 read getRTSMD write setRTSMD;
  4382. property RXINV : TBits_1 read getRXINV write setRXINV;
  4383. property SIDL : TBits_1 read getSIDL write setSIDL;
  4384. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  4385. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  4386. property UEN : TBits_2 read getUEN write setUEN;
  4387. property UEN0 : TBits_1 read getUEN0 write setUEN0;
  4388. property UEN1 : TBits_1 read getUEN1 write setUEN1;
  4389. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  4390. property WAKE : TBits_1 read getWAKE write setWAKE;
  4391. property w : TBits_32 read getw write setw;
  4392. end;
  4393. TUART1A_U1MODE = record
  4394. private
  4395. function getABAUD : TBits_1; inline;
  4396. function getBRGH : TBits_1; inline;
  4397. function getIREN : TBits_1; inline;
  4398. function getLPBACK : TBits_1; inline;
  4399. function getON : TBits_1; inline;
  4400. function getPDSEL : TBits_2; inline;
  4401. function getPDSEL0 : TBits_1; inline;
  4402. function getPDSEL1 : TBits_1; inline;
  4403. function getRTSMD : TBits_1; inline;
  4404. function getRXINV : TBits_1; inline;
  4405. function getSIDL : TBits_1; inline;
  4406. function getSTSEL : TBits_1; inline;
  4407. function getUARTEN : TBits_1; inline;
  4408. function getUEN : TBits_2; inline;
  4409. function getUEN0 : TBits_1; inline;
  4410. function getUEN1 : TBits_1; inline;
  4411. function getUSIDL : TBits_1; inline;
  4412. function getWAKE : TBits_1; inline;
  4413. function getw : TBits_32; inline;
  4414. procedure setABAUD(thebits : TBits_1); inline;
  4415. procedure setBRGH(thebits : TBits_1); inline;
  4416. procedure setIREN(thebits : TBits_1); inline;
  4417. procedure setLPBACK(thebits : TBits_1); inline;
  4418. procedure setON(thebits : TBits_1); inline;
  4419. procedure setPDSEL(thebits : TBits_2); inline;
  4420. procedure setPDSEL0(thebits : TBits_1); inline;
  4421. procedure setPDSEL1(thebits : TBits_1); inline;
  4422. procedure setRTSMD(thebits : TBits_1); inline;
  4423. procedure setRXINV(thebits : TBits_1); inline;
  4424. procedure setSIDL(thebits : TBits_1); inline;
  4425. procedure setSTSEL(thebits : TBits_1); inline;
  4426. procedure setUARTEN(thebits : TBits_1); inline;
  4427. procedure setUEN(thebits : TBits_2); inline;
  4428. procedure setUEN0(thebits : TBits_1); inline;
  4429. procedure setUEN1(thebits : TBits_1); inline;
  4430. procedure setUSIDL(thebits : TBits_1); inline;
  4431. procedure setWAKE(thebits : TBits_1); inline;
  4432. procedure setw(thebits : TBits_32); inline;
  4433. public
  4434. procedure clearABAUD; inline;
  4435. procedure clearBRGH; inline;
  4436. procedure clearIREN; inline;
  4437. procedure clearLPBACK; inline;
  4438. procedure clearON; inline;
  4439. procedure clearPDSEL0; inline;
  4440. procedure clearPDSEL1; inline;
  4441. procedure clearRTSMD; inline;
  4442. procedure clearRXINV; inline;
  4443. procedure clearSIDL; inline;
  4444. procedure clearSTSEL; inline;
  4445. procedure clearUARTEN; inline;
  4446. procedure clearUEN0; inline;
  4447. procedure clearUEN1; inline;
  4448. procedure clearUSIDL; inline;
  4449. procedure clearWAKE; inline;
  4450. procedure setABAUD; inline;
  4451. procedure setBRGH; inline;
  4452. procedure setIREN; inline;
  4453. procedure setLPBACK; inline;
  4454. procedure setON; inline;
  4455. procedure setPDSEL0; inline;
  4456. procedure setPDSEL1; inline;
  4457. procedure setRTSMD; inline;
  4458. procedure setRXINV; inline;
  4459. procedure setSIDL; inline;
  4460. procedure setSTSEL; inline;
  4461. procedure setUARTEN; inline;
  4462. procedure setUEN0; inline;
  4463. procedure setUEN1; inline;
  4464. procedure setUSIDL; inline;
  4465. procedure setWAKE; inline;
  4466. property ABAUD : TBits_1 read getABAUD write setABAUD;
  4467. property BRGH : TBits_1 read getBRGH write setBRGH;
  4468. property IREN : TBits_1 read getIREN write setIREN;
  4469. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  4470. property ON : TBits_1 read getON write setON;
  4471. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  4472. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  4473. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  4474. property RTSMD : TBits_1 read getRTSMD write setRTSMD;
  4475. property RXINV : TBits_1 read getRXINV write setRXINV;
  4476. property SIDL : TBits_1 read getSIDL write setSIDL;
  4477. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  4478. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  4479. property UEN : TBits_2 read getUEN write setUEN;
  4480. property UEN0 : TBits_1 read getUEN0 write setUEN0;
  4481. property UEN1 : TBits_1 read getUEN1 write setUEN1;
  4482. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  4483. property WAKE : TBits_1 read getWAKE write setWAKE;
  4484. property w : TBits_32 read getw write setw;
  4485. end;
  4486. TUART1A_U1ASTA = record
  4487. private
  4488. function getADDEN : TBits_1; inline;
  4489. function getADDR : TBits_8; inline;
  4490. function getADM_EN : TBits_1; inline;
  4491. function getFERR : TBits_1; inline;
  4492. function getOERR : TBits_1; inline;
  4493. function getPERR : TBits_1; inline;
  4494. function getRIDLE : TBits_1; inline;
  4495. function getTRMT : TBits_1; inline;
  4496. function getURXDA : TBits_1; inline;
  4497. function getURXEN : TBits_1; inline;
  4498. function getURXISEL : TBits_2; inline;
  4499. function getURXISEL0 : TBits_1; inline;
  4500. function getURXISEL1 : TBits_1; inline;
  4501. function getUTXBF : TBits_1; inline;
  4502. function getUTXBRK : TBits_1; inline;
  4503. function getUTXEN : TBits_1; inline;
  4504. function getUTXINV : TBits_1; inline;
  4505. function getUTXISEL : TBits_2; inline;
  4506. function getUTXISEL0 : TBits_1; inline;
  4507. function getUTXISEL1 : TBits_1; inline;
  4508. function getUTXSEL : TBits_2; inline;
  4509. function getw : TBits_32; inline;
  4510. procedure setADDEN(thebits : TBits_1); inline;
  4511. procedure setADDR(thebits : TBits_8); inline;
  4512. procedure setADM_EN(thebits : TBits_1); inline;
  4513. procedure setFERR(thebits : TBits_1); inline;
  4514. procedure setOERR(thebits : TBits_1); inline;
  4515. procedure setPERR(thebits : TBits_1); inline;
  4516. procedure setRIDLE(thebits : TBits_1); inline;
  4517. procedure setTRMT(thebits : TBits_1); inline;
  4518. procedure setURXDA(thebits : TBits_1); inline;
  4519. procedure setURXEN(thebits : TBits_1); inline;
  4520. procedure setURXISEL(thebits : TBits_2); inline;
  4521. procedure setURXISEL0(thebits : TBits_1); inline;
  4522. procedure setURXISEL1(thebits : TBits_1); inline;
  4523. procedure setUTXBF(thebits : TBits_1); inline;
  4524. procedure setUTXBRK(thebits : TBits_1); inline;
  4525. procedure setUTXEN(thebits : TBits_1); inline;
  4526. procedure setUTXINV(thebits : TBits_1); inline;
  4527. procedure setUTXISEL(thebits : TBits_2); inline;
  4528. procedure setUTXISEL0(thebits : TBits_1); inline;
  4529. procedure setUTXISEL1(thebits : TBits_1); inline;
  4530. procedure setUTXSEL(thebits : TBits_2); inline;
  4531. procedure setw(thebits : TBits_32); inline;
  4532. public
  4533. procedure clearADDEN; inline;
  4534. procedure clearADM_EN; inline;
  4535. procedure clearFERR; inline;
  4536. procedure clearOERR; inline;
  4537. procedure clearPERR; inline;
  4538. procedure clearRIDLE; inline;
  4539. procedure clearTRMT; inline;
  4540. procedure clearURXDA; inline;
  4541. procedure clearURXEN; inline;
  4542. procedure clearURXISEL0; inline;
  4543. procedure clearURXISEL1; inline;
  4544. procedure clearUTXBF; inline;
  4545. procedure clearUTXBRK; inline;
  4546. procedure clearUTXEN; inline;
  4547. procedure clearUTXINV; inline;
  4548. procedure clearUTXISEL0; inline;
  4549. procedure clearUTXISEL1; inline;
  4550. procedure setADDEN; inline;
  4551. procedure setADM_EN; inline;
  4552. procedure setFERR; inline;
  4553. procedure setOERR; inline;
  4554. procedure setPERR; inline;
  4555. procedure setRIDLE; inline;
  4556. procedure setTRMT; inline;
  4557. procedure setURXDA; inline;
  4558. procedure setURXEN; inline;
  4559. procedure setURXISEL0; inline;
  4560. procedure setURXISEL1; inline;
  4561. procedure setUTXBF; inline;
  4562. procedure setUTXBRK; inline;
  4563. procedure setUTXEN; inline;
  4564. procedure setUTXINV; inline;
  4565. procedure setUTXISEL0; inline;
  4566. procedure setUTXISEL1; inline;
  4567. property ADDEN : TBits_1 read getADDEN write setADDEN;
  4568. property ADDR : TBits_8 read getADDR write setADDR;
  4569. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  4570. property FERR : TBits_1 read getFERR write setFERR;
  4571. property OERR : TBits_1 read getOERR write setOERR;
  4572. property PERR : TBits_1 read getPERR write setPERR;
  4573. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  4574. property TRMT : TBits_1 read getTRMT write setTRMT;
  4575. property URXDA : TBits_1 read getURXDA write setURXDA;
  4576. property URXEN : TBits_1 read getURXEN write setURXEN;
  4577. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  4578. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  4579. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  4580. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  4581. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  4582. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  4583. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  4584. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  4585. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  4586. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  4587. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  4588. property w : TBits_32 read getw write setw;
  4589. end;
  4590. TUART1A_U1STA = record
  4591. private
  4592. function getADDEN : TBits_1; inline;
  4593. function getADDR : TBits_8; inline;
  4594. function getADM_EN : TBits_1; inline;
  4595. function getFERR : TBits_1; inline;
  4596. function getOERR : TBits_1; inline;
  4597. function getPERR : TBits_1; inline;
  4598. function getRIDLE : TBits_1; inline;
  4599. function getTRMT : TBits_1; inline;
  4600. function getURXDA : TBits_1; inline;
  4601. function getURXEN : TBits_1; inline;
  4602. function getURXISEL : TBits_2; inline;
  4603. function getURXISEL0 : TBits_1; inline;
  4604. function getURXISEL1 : TBits_1; inline;
  4605. function getUTXBF : TBits_1; inline;
  4606. function getUTXBRK : TBits_1; inline;
  4607. function getUTXEN : TBits_1; inline;
  4608. function getUTXINV : TBits_1; inline;
  4609. function getUTXISEL : TBits_2; inline;
  4610. function getUTXISEL0 : TBits_1; inline;
  4611. function getUTXISEL1 : TBits_1; inline;
  4612. function getUTXSEL : TBits_2; inline;
  4613. function getw : TBits_32; inline;
  4614. procedure setADDEN(thebits : TBits_1); inline;
  4615. procedure setADDR(thebits : TBits_8); inline;
  4616. procedure setADM_EN(thebits : TBits_1); inline;
  4617. procedure setFERR(thebits : TBits_1); inline;
  4618. procedure setOERR(thebits : TBits_1); inline;
  4619. procedure setPERR(thebits : TBits_1); inline;
  4620. procedure setRIDLE(thebits : TBits_1); inline;
  4621. procedure setTRMT(thebits : TBits_1); inline;
  4622. procedure setURXDA(thebits : TBits_1); inline;
  4623. procedure setURXEN(thebits : TBits_1); inline;
  4624. procedure setURXISEL(thebits : TBits_2); inline;
  4625. procedure setURXISEL0(thebits : TBits_1); inline;
  4626. procedure setURXISEL1(thebits : TBits_1); inline;
  4627. procedure setUTXBF(thebits : TBits_1); inline;
  4628. procedure setUTXBRK(thebits : TBits_1); inline;
  4629. procedure setUTXEN(thebits : TBits_1); inline;
  4630. procedure setUTXINV(thebits : TBits_1); inline;
  4631. procedure setUTXISEL(thebits : TBits_2); inline;
  4632. procedure setUTXISEL0(thebits : TBits_1); inline;
  4633. procedure setUTXISEL1(thebits : TBits_1); inline;
  4634. procedure setUTXSEL(thebits : TBits_2); inline;
  4635. procedure setw(thebits : TBits_32); inline;
  4636. public
  4637. procedure clearADDEN; inline;
  4638. procedure clearADM_EN; inline;
  4639. procedure clearFERR; inline;
  4640. procedure clearOERR; inline;
  4641. procedure clearPERR; inline;
  4642. procedure clearRIDLE; inline;
  4643. procedure clearTRMT; inline;
  4644. procedure clearURXDA; inline;
  4645. procedure clearURXEN; inline;
  4646. procedure clearURXISEL0; inline;
  4647. procedure clearURXISEL1; inline;
  4648. procedure clearUTXBF; inline;
  4649. procedure clearUTXBRK; inline;
  4650. procedure clearUTXEN; inline;
  4651. procedure clearUTXINV; inline;
  4652. procedure clearUTXISEL0; inline;
  4653. procedure clearUTXISEL1; inline;
  4654. procedure setADDEN; inline;
  4655. procedure setADM_EN; inline;
  4656. procedure setFERR; inline;
  4657. procedure setOERR; inline;
  4658. procedure setPERR; inline;
  4659. procedure setRIDLE; inline;
  4660. procedure setTRMT; inline;
  4661. procedure setURXDA; inline;
  4662. procedure setURXEN; inline;
  4663. procedure setURXISEL0; inline;
  4664. procedure setURXISEL1; inline;
  4665. procedure setUTXBF; inline;
  4666. procedure setUTXBRK; inline;
  4667. procedure setUTXEN; inline;
  4668. procedure setUTXINV; inline;
  4669. procedure setUTXISEL0; inline;
  4670. procedure setUTXISEL1; inline;
  4671. property ADDEN : TBits_1 read getADDEN write setADDEN;
  4672. property ADDR : TBits_8 read getADDR write setADDR;
  4673. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  4674. property FERR : TBits_1 read getFERR write setFERR;
  4675. property OERR : TBits_1 read getOERR write setOERR;
  4676. property PERR : TBits_1 read getPERR write setPERR;
  4677. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  4678. property TRMT : TBits_1 read getTRMT write setTRMT;
  4679. property URXDA : TBits_1 read getURXDA write setURXDA;
  4680. property URXEN : TBits_1 read getURXEN write setURXEN;
  4681. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  4682. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  4683. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  4684. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  4685. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  4686. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  4687. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  4688. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  4689. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  4690. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  4691. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  4692. property w : TBits_32 read getw write setw;
  4693. end;
  4694. type
  4695. TUART1ARegisters = record
  4696. U1AMODEbits : TUART1A_U1AMODE;
  4697. U1AMODE : longWord;
  4698. U1MODEbits : TUART1A_U1MODE;
  4699. U1MODE : longWord;
  4700. U1AMODECLR : longWord;
  4701. U1MODECLR : longWord;
  4702. U1AMODESET : longWord;
  4703. U1MODESET : longWord;
  4704. U1AMODEINV : longWord;
  4705. U1MODEINV : longWord;
  4706. U1ASTAbits : TUART1A_U1ASTA;
  4707. U1ASTA : longWord;
  4708. U1STAbits : TUART1A_U1STA;
  4709. U1STA : longWord;
  4710. U1ASTACLR : longWord;
  4711. U1STACLR : longWord;
  4712. U1ASTASET : longWord;
  4713. U1STASET : longWord;
  4714. U1ASTAINV : longWord;
  4715. U1STAINV : longWord;
  4716. U1ATXREG : longWord;
  4717. U1TXREG : longWord;
  4718. U1ARXREG : longWord;
  4719. U1RXREG : longWord;
  4720. U1ABRG : longWord;
  4721. U1BRG : longWord;
  4722. U1ABRGCLR : longWord;
  4723. U1BRGCLR : longWord;
  4724. U1ABRGSET : longWord;
  4725. U1BRGSET : longWord;
  4726. U1ABRGINV : longWord;
  4727. U1BRGINV : longWord;
  4728. end;
  4729. TUART4_U1BMODE = record
  4730. private
  4731. function getABAUD : TBits_1; inline;
  4732. function getBRGH : TBits_1; inline;
  4733. function getIREN : TBits_1; inline;
  4734. function getLPBACK : TBits_1; inline;
  4735. function getON : TBits_1; inline;
  4736. function getPDSEL : TBits_2; inline;
  4737. function getPDSEL0 : TBits_1; inline;
  4738. function getPDSEL1 : TBits_1; inline;
  4739. function getRXINV : TBits_1; inline;
  4740. function getSIDL : TBits_1; inline;
  4741. function getSTSEL : TBits_1; inline;
  4742. function getUARTEN : TBits_1; inline;
  4743. function getUSIDL : TBits_1; inline;
  4744. function getWAKE : TBits_1; inline;
  4745. function getw : TBits_32; inline;
  4746. procedure setABAUD(thebits : TBits_1); inline;
  4747. procedure setBRGH(thebits : TBits_1); inline;
  4748. procedure setIREN(thebits : TBits_1); inline;
  4749. procedure setLPBACK(thebits : TBits_1); inline;
  4750. procedure setON(thebits : TBits_1); inline;
  4751. procedure setPDSEL(thebits : TBits_2); inline;
  4752. procedure setPDSEL0(thebits : TBits_1); inline;
  4753. procedure setPDSEL1(thebits : TBits_1); inline;
  4754. procedure setRXINV(thebits : TBits_1); inline;
  4755. procedure setSIDL(thebits : TBits_1); inline;
  4756. procedure setSTSEL(thebits : TBits_1); inline;
  4757. procedure setUARTEN(thebits : TBits_1); inline;
  4758. procedure setUSIDL(thebits : TBits_1); inline;
  4759. procedure setWAKE(thebits : TBits_1); inline;
  4760. procedure setw(thebits : TBits_32); inline;
  4761. public
  4762. procedure clearABAUD; inline;
  4763. procedure clearBRGH; inline;
  4764. procedure clearIREN; inline;
  4765. procedure clearLPBACK; inline;
  4766. procedure clearON; inline;
  4767. procedure clearPDSEL0; inline;
  4768. procedure clearPDSEL1; inline;
  4769. procedure clearRXINV; inline;
  4770. procedure clearSIDL; inline;
  4771. procedure clearSTSEL; inline;
  4772. procedure clearUARTEN; inline;
  4773. procedure clearUSIDL; inline;
  4774. procedure clearWAKE; inline;
  4775. procedure setABAUD; inline;
  4776. procedure setBRGH; inline;
  4777. procedure setIREN; inline;
  4778. procedure setLPBACK; inline;
  4779. procedure setON; inline;
  4780. procedure setPDSEL0; inline;
  4781. procedure setPDSEL1; inline;
  4782. procedure setRXINV; inline;
  4783. procedure setSIDL; inline;
  4784. procedure setSTSEL; inline;
  4785. procedure setUARTEN; inline;
  4786. procedure setUSIDL; inline;
  4787. procedure setWAKE; inline;
  4788. property ABAUD : TBits_1 read getABAUD write setABAUD;
  4789. property BRGH : TBits_1 read getBRGH write setBRGH;
  4790. property IREN : TBits_1 read getIREN write setIREN;
  4791. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  4792. property ON : TBits_1 read getON write setON;
  4793. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  4794. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  4795. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  4796. property RXINV : TBits_1 read getRXINV write setRXINV;
  4797. property SIDL : TBits_1 read getSIDL write setSIDL;
  4798. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  4799. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  4800. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  4801. property WAKE : TBits_1 read getWAKE write setWAKE;
  4802. property w : TBits_32 read getw write setw;
  4803. end;
  4804. TUART4_U4MODE = record
  4805. private
  4806. function getABAUD : TBits_1; inline;
  4807. function getBRGH : TBits_1; inline;
  4808. function getIREN : TBits_1; inline;
  4809. function getLPBACK : TBits_1; inline;
  4810. function getON : TBits_1; inline;
  4811. function getPDSEL : TBits_2; inline;
  4812. function getPDSEL0 : TBits_1; inline;
  4813. function getPDSEL1 : TBits_1; inline;
  4814. function getRXINV : TBits_1; inline;
  4815. function getSIDL : TBits_1; inline;
  4816. function getSTSEL : TBits_1; inline;
  4817. function getUARTEN : TBits_1; inline;
  4818. function getUSIDL : TBits_1; inline;
  4819. function getWAKE : TBits_1; inline;
  4820. function getw : TBits_32; inline;
  4821. procedure setABAUD(thebits : TBits_1); inline;
  4822. procedure setBRGH(thebits : TBits_1); inline;
  4823. procedure setIREN(thebits : TBits_1); inline;
  4824. procedure setLPBACK(thebits : TBits_1); inline;
  4825. procedure setON(thebits : TBits_1); inline;
  4826. procedure setPDSEL(thebits : TBits_2); inline;
  4827. procedure setPDSEL0(thebits : TBits_1); inline;
  4828. procedure setPDSEL1(thebits : TBits_1); inline;
  4829. procedure setRXINV(thebits : TBits_1); inline;
  4830. procedure setSIDL(thebits : TBits_1); inline;
  4831. procedure setSTSEL(thebits : TBits_1); inline;
  4832. procedure setUARTEN(thebits : TBits_1); inline;
  4833. procedure setUSIDL(thebits : TBits_1); inline;
  4834. procedure setWAKE(thebits : TBits_1); inline;
  4835. procedure setw(thebits : TBits_32); inline;
  4836. public
  4837. procedure clearABAUD; inline;
  4838. procedure clearBRGH; inline;
  4839. procedure clearIREN; inline;
  4840. procedure clearLPBACK; inline;
  4841. procedure clearON; inline;
  4842. procedure clearPDSEL0; inline;
  4843. procedure clearPDSEL1; inline;
  4844. procedure clearRXINV; inline;
  4845. procedure clearSIDL; inline;
  4846. procedure clearSTSEL; inline;
  4847. procedure clearUARTEN; inline;
  4848. procedure clearUSIDL; inline;
  4849. procedure clearWAKE; inline;
  4850. procedure setABAUD; inline;
  4851. procedure setBRGH; inline;
  4852. procedure setIREN; inline;
  4853. procedure setLPBACK; inline;
  4854. procedure setON; inline;
  4855. procedure setPDSEL0; inline;
  4856. procedure setPDSEL1; inline;
  4857. procedure setRXINV; inline;
  4858. procedure setSIDL; inline;
  4859. procedure setSTSEL; inline;
  4860. procedure setUARTEN; inline;
  4861. procedure setUSIDL; inline;
  4862. procedure setWAKE; inline;
  4863. property ABAUD : TBits_1 read getABAUD write setABAUD;
  4864. property BRGH : TBits_1 read getBRGH write setBRGH;
  4865. property IREN : TBits_1 read getIREN write setIREN;
  4866. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  4867. property ON : TBits_1 read getON write setON;
  4868. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  4869. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  4870. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  4871. property RXINV : TBits_1 read getRXINV write setRXINV;
  4872. property SIDL : TBits_1 read getSIDL write setSIDL;
  4873. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  4874. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  4875. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  4876. property WAKE : TBits_1 read getWAKE write setWAKE;
  4877. property w : TBits_32 read getw write setw;
  4878. end;
  4879. TUART4_U1BSTA = record
  4880. private
  4881. function getADDEN : TBits_1; inline;
  4882. function getADDR : TBits_8; inline;
  4883. function getADM_EN : TBits_1; inline;
  4884. function getFERR : TBits_1; inline;
  4885. function getOERR : TBits_1; inline;
  4886. function getPERR : TBits_1; inline;
  4887. function getRIDLE : TBits_1; inline;
  4888. function getTRMT : TBits_1; inline;
  4889. function getURXDA : TBits_1; inline;
  4890. function getURXEN : TBits_1; inline;
  4891. function getURXISEL : TBits_2; inline;
  4892. function getURXISEL0 : TBits_1; inline;
  4893. function getURXISEL1 : TBits_1; inline;
  4894. function getUTXBF : TBits_1; inline;
  4895. function getUTXBRK : TBits_1; inline;
  4896. function getUTXEN : TBits_1; inline;
  4897. function getUTXINV : TBits_1; inline;
  4898. function getUTXISEL : TBits_2; inline;
  4899. function getUTXISEL0 : TBits_1; inline;
  4900. function getUTXISEL1 : TBits_1; inline;
  4901. function getUTXSEL : TBits_2; inline;
  4902. function getw : TBits_32; inline;
  4903. procedure setADDEN(thebits : TBits_1); inline;
  4904. procedure setADDR(thebits : TBits_8); inline;
  4905. procedure setADM_EN(thebits : TBits_1); inline;
  4906. procedure setFERR(thebits : TBits_1); inline;
  4907. procedure setOERR(thebits : TBits_1); inline;
  4908. procedure setPERR(thebits : TBits_1); inline;
  4909. procedure setRIDLE(thebits : TBits_1); inline;
  4910. procedure setTRMT(thebits : TBits_1); inline;
  4911. procedure setURXDA(thebits : TBits_1); inline;
  4912. procedure setURXEN(thebits : TBits_1); inline;
  4913. procedure setURXISEL(thebits : TBits_2); inline;
  4914. procedure setURXISEL0(thebits : TBits_1); inline;
  4915. procedure setURXISEL1(thebits : TBits_1); inline;
  4916. procedure setUTXBF(thebits : TBits_1); inline;
  4917. procedure setUTXBRK(thebits : TBits_1); inline;
  4918. procedure setUTXEN(thebits : TBits_1); inline;
  4919. procedure setUTXINV(thebits : TBits_1); inline;
  4920. procedure setUTXISEL(thebits : TBits_2); inline;
  4921. procedure setUTXISEL0(thebits : TBits_1); inline;
  4922. procedure setUTXISEL1(thebits : TBits_1); inline;
  4923. procedure setUTXSEL(thebits : TBits_2); inline;
  4924. procedure setw(thebits : TBits_32); inline;
  4925. public
  4926. procedure clearADDEN; inline;
  4927. procedure clearADM_EN; inline;
  4928. procedure clearFERR; inline;
  4929. procedure clearOERR; inline;
  4930. procedure clearPERR; inline;
  4931. procedure clearRIDLE; inline;
  4932. procedure clearTRMT; inline;
  4933. procedure clearURXDA; inline;
  4934. procedure clearURXEN; inline;
  4935. procedure clearURXISEL0; inline;
  4936. procedure clearURXISEL1; inline;
  4937. procedure clearUTXBF; inline;
  4938. procedure clearUTXBRK; inline;
  4939. procedure clearUTXEN; inline;
  4940. procedure clearUTXINV; inline;
  4941. procedure clearUTXISEL0; inline;
  4942. procedure clearUTXISEL1; inline;
  4943. procedure setADDEN; inline;
  4944. procedure setADM_EN; inline;
  4945. procedure setFERR; inline;
  4946. procedure setOERR; inline;
  4947. procedure setPERR; inline;
  4948. procedure setRIDLE; inline;
  4949. procedure setTRMT; inline;
  4950. procedure setURXDA; inline;
  4951. procedure setURXEN; inline;
  4952. procedure setURXISEL0; inline;
  4953. procedure setURXISEL1; inline;
  4954. procedure setUTXBF; inline;
  4955. procedure setUTXBRK; inline;
  4956. procedure setUTXEN; inline;
  4957. procedure setUTXINV; inline;
  4958. procedure setUTXISEL0; inline;
  4959. procedure setUTXISEL1; inline;
  4960. property ADDEN : TBits_1 read getADDEN write setADDEN;
  4961. property ADDR : TBits_8 read getADDR write setADDR;
  4962. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  4963. property FERR : TBits_1 read getFERR write setFERR;
  4964. property OERR : TBits_1 read getOERR write setOERR;
  4965. property PERR : TBits_1 read getPERR write setPERR;
  4966. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  4967. property TRMT : TBits_1 read getTRMT write setTRMT;
  4968. property URXDA : TBits_1 read getURXDA write setURXDA;
  4969. property URXEN : TBits_1 read getURXEN write setURXEN;
  4970. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  4971. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  4972. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  4973. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  4974. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  4975. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  4976. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  4977. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  4978. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  4979. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  4980. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  4981. property w : TBits_32 read getw write setw;
  4982. end;
  4983. TUART4_U4STA = record
  4984. private
  4985. function getADDEN : TBits_1; inline;
  4986. function getADDR : TBits_8; inline;
  4987. function getADM_EN : TBits_1; inline;
  4988. function getFERR : TBits_1; inline;
  4989. function getOERR : TBits_1; inline;
  4990. function getPERR : TBits_1; inline;
  4991. function getRIDLE : TBits_1; inline;
  4992. function getTRMT : TBits_1; inline;
  4993. function getURXDA : TBits_1; inline;
  4994. function getURXEN : TBits_1; inline;
  4995. function getURXISEL : TBits_2; inline;
  4996. function getURXISEL0 : TBits_1; inline;
  4997. function getURXISEL1 : TBits_1; inline;
  4998. function getUTXBF : TBits_1; inline;
  4999. function getUTXBRK : TBits_1; inline;
  5000. function getUTXEN : TBits_1; inline;
  5001. function getUTXINV : TBits_1; inline;
  5002. function getUTXISEL : TBits_2; inline;
  5003. function getUTXISEL0 : TBits_1; inline;
  5004. function getUTXISEL1 : TBits_1; inline;
  5005. function getUTXSEL : TBits_2; inline;
  5006. function getw : TBits_32; inline;
  5007. procedure setADDEN(thebits : TBits_1); inline;
  5008. procedure setADDR(thebits : TBits_8); inline;
  5009. procedure setADM_EN(thebits : TBits_1); inline;
  5010. procedure setFERR(thebits : TBits_1); inline;
  5011. procedure setOERR(thebits : TBits_1); inline;
  5012. procedure setPERR(thebits : TBits_1); inline;
  5013. procedure setRIDLE(thebits : TBits_1); inline;
  5014. procedure setTRMT(thebits : TBits_1); inline;
  5015. procedure setURXDA(thebits : TBits_1); inline;
  5016. procedure setURXEN(thebits : TBits_1); inline;
  5017. procedure setURXISEL(thebits : TBits_2); inline;
  5018. procedure setURXISEL0(thebits : TBits_1); inline;
  5019. procedure setURXISEL1(thebits : TBits_1); inline;
  5020. procedure setUTXBF(thebits : TBits_1); inline;
  5021. procedure setUTXBRK(thebits : TBits_1); inline;
  5022. procedure setUTXEN(thebits : TBits_1); inline;
  5023. procedure setUTXINV(thebits : TBits_1); inline;
  5024. procedure setUTXISEL(thebits : TBits_2); inline;
  5025. procedure setUTXISEL0(thebits : TBits_1); inline;
  5026. procedure setUTXISEL1(thebits : TBits_1); inline;
  5027. procedure setUTXSEL(thebits : TBits_2); inline;
  5028. procedure setw(thebits : TBits_32); inline;
  5029. public
  5030. procedure clearADDEN; inline;
  5031. procedure clearADM_EN; inline;
  5032. procedure clearFERR; inline;
  5033. procedure clearOERR; inline;
  5034. procedure clearPERR; inline;
  5035. procedure clearRIDLE; inline;
  5036. procedure clearTRMT; inline;
  5037. procedure clearURXDA; inline;
  5038. procedure clearURXEN; inline;
  5039. procedure clearURXISEL0; inline;
  5040. procedure clearURXISEL1; inline;
  5041. procedure clearUTXBF; inline;
  5042. procedure clearUTXBRK; inline;
  5043. procedure clearUTXEN; inline;
  5044. procedure clearUTXINV; inline;
  5045. procedure clearUTXISEL0; inline;
  5046. procedure clearUTXISEL1; inline;
  5047. procedure setADDEN; inline;
  5048. procedure setADM_EN; inline;
  5049. procedure setFERR; inline;
  5050. procedure setOERR; inline;
  5051. procedure setPERR; inline;
  5052. procedure setRIDLE; inline;
  5053. procedure setTRMT; inline;
  5054. procedure setURXDA; inline;
  5055. procedure setURXEN; inline;
  5056. procedure setURXISEL0; inline;
  5057. procedure setURXISEL1; inline;
  5058. procedure setUTXBF; inline;
  5059. procedure setUTXBRK; inline;
  5060. procedure setUTXEN; inline;
  5061. procedure setUTXINV; inline;
  5062. procedure setUTXISEL0; inline;
  5063. procedure setUTXISEL1; inline;
  5064. property ADDEN : TBits_1 read getADDEN write setADDEN;
  5065. property ADDR : TBits_8 read getADDR write setADDR;
  5066. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  5067. property FERR : TBits_1 read getFERR write setFERR;
  5068. property OERR : TBits_1 read getOERR write setOERR;
  5069. property PERR : TBits_1 read getPERR write setPERR;
  5070. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  5071. property TRMT : TBits_1 read getTRMT write setTRMT;
  5072. property URXDA : TBits_1 read getURXDA write setURXDA;
  5073. property URXEN : TBits_1 read getURXEN write setURXEN;
  5074. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  5075. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  5076. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  5077. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  5078. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  5079. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  5080. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  5081. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  5082. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  5083. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  5084. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  5085. property w : TBits_32 read getw write setw;
  5086. end;
  5087. type
  5088. TUART4Registers = record
  5089. U1BMODEbits : TUART4_U1BMODE;
  5090. U1BMODE : longWord;
  5091. U4MODEbits : TUART4_U4MODE;
  5092. U4MODE : longWord;
  5093. U1BMODECLR : longWord;
  5094. U4MODECLR : longWord;
  5095. U1BMODESET : longWord;
  5096. U4MODESET : longWord;
  5097. U1BMODEINV : longWord;
  5098. U4MODEINV : longWord;
  5099. U1BSTAbits : TUART4_U1BSTA;
  5100. U1BSTA : longWord;
  5101. U4STAbits : TUART4_U4STA;
  5102. U4STA : longWord;
  5103. U1BSTACLR : longWord;
  5104. U4STACLR : longWord;
  5105. U1BSTASET : longWord;
  5106. U4STASET : longWord;
  5107. U1BSTAINV : longWord;
  5108. U4STAINV : longWord;
  5109. U1BTXREG : longWord;
  5110. U4TXREG : longWord;
  5111. U1BRXREG : longWord;
  5112. U4RXREG : longWord;
  5113. U1BBRG : longWord;
  5114. U4BRG : longWord;
  5115. U1BBRGCLR : longWord;
  5116. U4BRGCLR : longWord;
  5117. U1BBRGSET : longWord;
  5118. U4BRGSET : longWord;
  5119. U1BBRGINV : longWord;
  5120. U4BRGINV : longWord;
  5121. end;
  5122. TUART3_U2AMODE = record
  5123. private
  5124. function getABAUD : TBits_1; inline;
  5125. function getBRGH : TBits_1; inline;
  5126. function getIREN : TBits_1; inline;
  5127. function getLPBACK : TBits_1; inline;
  5128. function getON : TBits_1; inline;
  5129. function getPDSEL : TBits_2; inline;
  5130. function getPDSEL0 : TBits_1; inline;
  5131. function getPDSEL1 : TBits_1; inline;
  5132. function getRTSMD : TBits_1; inline;
  5133. function getRXINV : TBits_1; inline;
  5134. function getSIDL : TBits_1; inline;
  5135. function getSTSEL : TBits_1; inline;
  5136. function getUARTEN : TBits_1; inline;
  5137. function getUEN : TBits_2; inline;
  5138. function getUEN0 : TBits_1; inline;
  5139. function getUEN1 : TBits_1; inline;
  5140. function getUSIDL : TBits_1; inline;
  5141. function getWAKE : TBits_1; inline;
  5142. function getw : TBits_32; inline;
  5143. procedure setABAUD(thebits : TBits_1); inline;
  5144. procedure setBRGH(thebits : TBits_1); inline;
  5145. procedure setIREN(thebits : TBits_1); inline;
  5146. procedure setLPBACK(thebits : TBits_1); inline;
  5147. procedure setON(thebits : TBits_1); inline;
  5148. procedure setPDSEL(thebits : TBits_2); inline;
  5149. procedure setPDSEL0(thebits : TBits_1); inline;
  5150. procedure setPDSEL1(thebits : TBits_1); inline;
  5151. procedure setRTSMD(thebits : TBits_1); inline;
  5152. procedure setRXINV(thebits : TBits_1); inline;
  5153. procedure setSIDL(thebits : TBits_1); inline;
  5154. procedure setSTSEL(thebits : TBits_1); inline;
  5155. procedure setUARTEN(thebits : TBits_1); inline;
  5156. procedure setUEN(thebits : TBits_2); inline;
  5157. procedure setUEN0(thebits : TBits_1); inline;
  5158. procedure setUEN1(thebits : TBits_1); inline;
  5159. procedure setUSIDL(thebits : TBits_1); inline;
  5160. procedure setWAKE(thebits : TBits_1); inline;
  5161. procedure setw(thebits : TBits_32); inline;
  5162. public
  5163. procedure clearABAUD; inline;
  5164. procedure clearBRGH; inline;
  5165. procedure clearIREN; inline;
  5166. procedure clearLPBACK; inline;
  5167. procedure clearON; inline;
  5168. procedure clearPDSEL0; inline;
  5169. procedure clearPDSEL1; inline;
  5170. procedure clearRTSMD; inline;
  5171. procedure clearRXINV; inline;
  5172. procedure clearSIDL; inline;
  5173. procedure clearSTSEL; inline;
  5174. procedure clearUARTEN; inline;
  5175. procedure clearUEN0; inline;
  5176. procedure clearUEN1; inline;
  5177. procedure clearUSIDL; inline;
  5178. procedure clearWAKE; inline;
  5179. procedure setABAUD; inline;
  5180. procedure setBRGH; inline;
  5181. procedure setIREN; inline;
  5182. procedure setLPBACK; inline;
  5183. procedure setON; inline;
  5184. procedure setPDSEL0; inline;
  5185. procedure setPDSEL1; inline;
  5186. procedure setRTSMD; inline;
  5187. procedure setRXINV; inline;
  5188. procedure setSIDL; inline;
  5189. procedure setSTSEL; inline;
  5190. procedure setUARTEN; inline;
  5191. procedure setUEN0; inline;
  5192. procedure setUEN1; inline;
  5193. procedure setUSIDL; inline;
  5194. procedure setWAKE; inline;
  5195. property ABAUD : TBits_1 read getABAUD write setABAUD;
  5196. property BRGH : TBits_1 read getBRGH write setBRGH;
  5197. property IREN : TBits_1 read getIREN write setIREN;
  5198. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  5199. property ON : TBits_1 read getON write setON;
  5200. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  5201. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  5202. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  5203. property RTSMD : TBits_1 read getRTSMD write setRTSMD;
  5204. property RXINV : TBits_1 read getRXINV write setRXINV;
  5205. property SIDL : TBits_1 read getSIDL write setSIDL;
  5206. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  5207. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  5208. property UEN : TBits_2 read getUEN write setUEN;
  5209. property UEN0 : TBits_1 read getUEN0 write setUEN0;
  5210. property UEN1 : TBits_1 read getUEN1 write setUEN1;
  5211. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  5212. property WAKE : TBits_1 read getWAKE write setWAKE;
  5213. property w : TBits_32 read getw write setw;
  5214. end;
  5215. TUART3_U3MODE = record
  5216. private
  5217. function getABAUD : TBits_1; inline;
  5218. function getBRGH : TBits_1; inline;
  5219. function getIREN : TBits_1; inline;
  5220. function getLPBACK : TBits_1; inline;
  5221. function getON : TBits_1; inline;
  5222. function getPDSEL : TBits_2; inline;
  5223. function getPDSEL0 : TBits_1; inline;
  5224. function getPDSEL1 : TBits_1; inline;
  5225. function getRTSMD : TBits_1; inline;
  5226. function getRXINV : TBits_1; inline;
  5227. function getSIDL : TBits_1; inline;
  5228. function getSTSEL : TBits_1; inline;
  5229. function getUARTEN : TBits_1; inline;
  5230. function getUEN : TBits_2; inline;
  5231. function getUEN0 : TBits_1; inline;
  5232. function getUEN1 : TBits_1; inline;
  5233. function getUSIDL : TBits_1; inline;
  5234. function getWAKE : TBits_1; inline;
  5235. function getw : TBits_32; inline;
  5236. procedure setABAUD(thebits : TBits_1); inline;
  5237. procedure setBRGH(thebits : TBits_1); inline;
  5238. procedure setIREN(thebits : TBits_1); inline;
  5239. procedure setLPBACK(thebits : TBits_1); inline;
  5240. procedure setON(thebits : TBits_1); inline;
  5241. procedure setPDSEL(thebits : TBits_2); inline;
  5242. procedure setPDSEL0(thebits : TBits_1); inline;
  5243. procedure setPDSEL1(thebits : TBits_1); inline;
  5244. procedure setRTSMD(thebits : TBits_1); inline;
  5245. procedure setRXINV(thebits : TBits_1); inline;
  5246. procedure setSIDL(thebits : TBits_1); inline;
  5247. procedure setSTSEL(thebits : TBits_1); inline;
  5248. procedure setUARTEN(thebits : TBits_1); inline;
  5249. procedure setUEN(thebits : TBits_2); inline;
  5250. procedure setUEN0(thebits : TBits_1); inline;
  5251. procedure setUEN1(thebits : TBits_1); inline;
  5252. procedure setUSIDL(thebits : TBits_1); inline;
  5253. procedure setWAKE(thebits : TBits_1); inline;
  5254. procedure setw(thebits : TBits_32); inline;
  5255. public
  5256. procedure clearABAUD; inline;
  5257. procedure clearBRGH; inline;
  5258. procedure clearIREN; inline;
  5259. procedure clearLPBACK; inline;
  5260. procedure clearON; inline;
  5261. procedure clearPDSEL0; inline;
  5262. procedure clearPDSEL1; inline;
  5263. procedure clearRTSMD; inline;
  5264. procedure clearRXINV; inline;
  5265. procedure clearSIDL; inline;
  5266. procedure clearSTSEL; inline;
  5267. procedure clearUARTEN; inline;
  5268. procedure clearUEN0; inline;
  5269. procedure clearUEN1; inline;
  5270. procedure clearUSIDL; inline;
  5271. procedure clearWAKE; inline;
  5272. procedure setABAUD; inline;
  5273. procedure setBRGH; inline;
  5274. procedure setIREN; inline;
  5275. procedure setLPBACK; inline;
  5276. procedure setON; inline;
  5277. procedure setPDSEL0; inline;
  5278. procedure setPDSEL1; inline;
  5279. procedure setRTSMD; inline;
  5280. procedure setRXINV; inline;
  5281. procedure setSIDL; inline;
  5282. procedure setSTSEL; inline;
  5283. procedure setUARTEN; inline;
  5284. procedure setUEN0; inline;
  5285. procedure setUEN1; inline;
  5286. procedure setUSIDL; inline;
  5287. procedure setWAKE; inline;
  5288. property ABAUD : TBits_1 read getABAUD write setABAUD;
  5289. property BRGH : TBits_1 read getBRGH write setBRGH;
  5290. property IREN : TBits_1 read getIREN write setIREN;
  5291. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  5292. property ON : TBits_1 read getON write setON;
  5293. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  5294. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  5295. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  5296. property RTSMD : TBits_1 read getRTSMD write setRTSMD;
  5297. property RXINV : TBits_1 read getRXINV write setRXINV;
  5298. property SIDL : TBits_1 read getSIDL write setSIDL;
  5299. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  5300. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  5301. property UEN : TBits_2 read getUEN write setUEN;
  5302. property UEN0 : TBits_1 read getUEN0 write setUEN0;
  5303. property UEN1 : TBits_1 read getUEN1 write setUEN1;
  5304. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  5305. property WAKE : TBits_1 read getWAKE write setWAKE;
  5306. property w : TBits_32 read getw write setw;
  5307. end;
  5308. TUART3_U2ASTA = record
  5309. private
  5310. function getADDEN : TBits_1; inline;
  5311. function getADDR : TBits_8; inline;
  5312. function getADM_EN : TBits_1; inline;
  5313. function getFERR : TBits_1; inline;
  5314. function getOERR : TBits_1; inline;
  5315. function getPERR : TBits_1; inline;
  5316. function getRIDLE : TBits_1; inline;
  5317. function getTRMT : TBits_1; inline;
  5318. function getURXDA : TBits_1; inline;
  5319. function getURXEN : TBits_1; inline;
  5320. function getURXISEL : TBits_2; inline;
  5321. function getURXISEL0 : TBits_1; inline;
  5322. function getURXISEL1 : TBits_1; inline;
  5323. function getUTXBF : TBits_1; inline;
  5324. function getUTXBRK : TBits_1; inline;
  5325. function getUTXEN : TBits_1; inline;
  5326. function getUTXINV : TBits_1; inline;
  5327. function getUTXISEL : TBits_2; inline;
  5328. function getUTXISEL0 : TBits_1; inline;
  5329. function getUTXISEL1 : TBits_1; inline;
  5330. function getUTXSEL : TBits_2; inline;
  5331. function getw : TBits_32; inline;
  5332. procedure setADDEN(thebits : TBits_1); inline;
  5333. procedure setADDR(thebits : TBits_8); inline;
  5334. procedure setADM_EN(thebits : TBits_1); inline;
  5335. procedure setFERR(thebits : TBits_1); inline;
  5336. procedure setOERR(thebits : TBits_1); inline;
  5337. procedure setPERR(thebits : TBits_1); inline;
  5338. procedure setRIDLE(thebits : TBits_1); inline;
  5339. procedure setTRMT(thebits : TBits_1); inline;
  5340. procedure setURXDA(thebits : TBits_1); inline;
  5341. procedure setURXEN(thebits : TBits_1); inline;
  5342. procedure setURXISEL(thebits : TBits_2); inline;
  5343. procedure setURXISEL0(thebits : TBits_1); inline;
  5344. procedure setURXISEL1(thebits : TBits_1); inline;
  5345. procedure setUTXBF(thebits : TBits_1); inline;
  5346. procedure setUTXBRK(thebits : TBits_1); inline;
  5347. procedure setUTXEN(thebits : TBits_1); inline;
  5348. procedure setUTXINV(thebits : TBits_1); inline;
  5349. procedure setUTXISEL(thebits : TBits_2); inline;
  5350. procedure setUTXISEL0(thebits : TBits_1); inline;
  5351. procedure setUTXISEL1(thebits : TBits_1); inline;
  5352. procedure setUTXSEL(thebits : TBits_2); inline;
  5353. procedure setw(thebits : TBits_32); inline;
  5354. public
  5355. procedure clearADDEN; inline;
  5356. procedure clearADM_EN; inline;
  5357. procedure clearFERR; inline;
  5358. procedure clearOERR; inline;
  5359. procedure clearPERR; inline;
  5360. procedure clearRIDLE; inline;
  5361. procedure clearTRMT; inline;
  5362. procedure clearURXDA; inline;
  5363. procedure clearURXEN; inline;
  5364. procedure clearURXISEL0; inline;
  5365. procedure clearURXISEL1; inline;
  5366. procedure clearUTXBF; inline;
  5367. procedure clearUTXBRK; inline;
  5368. procedure clearUTXEN; inline;
  5369. procedure clearUTXINV; inline;
  5370. procedure clearUTXISEL0; inline;
  5371. procedure clearUTXISEL1; inline;
  5372. procedure setADDEN; inline;
  5373. procedure setADM_EN; inline;
  5374. procedure setFERR; inline;
  5375. procedure setOERR; inline;
  5376. procedure setPERR; inline;
  5377. procedure setRIDLE; inline;
  5378. procedure setTRMT; inline;
  5379. procedure setURXDA; inline;
  5380. procedure setURXEN; inline;
  5381. procedure setURXISEL0; inline;
  5382. procedure setURXISEL1; inline;
  5383. procedure setUTXBF; inline;
  5384. procedure setUTXBRK; inline;
  5385. procedure setUTXEN; inline;
  5386. procedure setUTXINV; inline;
  5387. procedure setUTXISEL0; inline;
  5388. procedure setUTXISEL1; inline;
  5389. property ADDEN : TBits_1 read getADDEN write setADDEN;
  5390. property ADDR : TBits_8 read getADDR write setADDR;
  5391. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  5392. property FERR : TBits_1 read getFERR write setFERR;
  5393. property OERR : TBits_1 read getOERR write setOERR;
  5394. property PERR : TBits_1 read getPERR write setPERR;
  5395. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  5396. property TRMT : TBits_1 read getTRMT write setTRMT;
  5397. property URXDA : TBits_1 read getURXDA write setURXDA;
  5398. property URXEN : TBits_1 read getURXEN write setURXEN;
  5399. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  5400. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  5401. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  5402. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  5403. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  5404. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  5405. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  5406. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  5407. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  5408. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  5409. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  5410. property w : TBits_32 read getw write setw;
  5411. end;
  5412. TUART3_U3STA = record
  5413. private
  5414. function getADDEN : TBits_1; inline;
  5415. function getADDR : TBits_8; inline;
  5416. function getADM_EN : TBits_1; inline;
  5417. function getFERR : TBits_1; inline;
  5418. function getOERR : TBits_1; inline;
  5419. function getPERR : TBits_1; inline;
  5420. function getRIDLE : TBits_1; inline;
  5421. function getTRMT : TBits_1; inline;
  5422. function getURXDA : TBits_1; inline;
  5423. function getURXEN : TBits_1; inline;
  5424. function getURXISEL : TBits_2; inline;
  5425. function getURXISEL0 : TBits_1; inline;
  5426. function getURXISEL1 : TBits_1; inline;
  5427. function getUTXBF : TBits_1; inline;
  5428. function getUTXBRK : TBits_1; inline;
  5429. function getUTXEN : TBits_1; inline;
  5430. function getUTXINV : TBits_1; inline;
  5431. function getUTXISEL : TBits_2; inline;
  5432. function getUTXISEL0 : TBits_1; inline;
  5433. function getUTXISEL1 : TBits_1; inline;
  5434. function getUTXSEL : TBits_2; inline;
  5435. function getw : TBits_32; inline;
  5436. procedure setADDEN(thebits : TBits_1); inline;
  5437. procedure setADDR(thebits : TBits_8); inline;
  5438. procedure setADM_EN(thebits : TBits_1); inline;
  5439. procedure setFERR(thebits : TBits_1); inline;
  5440. procedure setOERR(thebits : TBits_1); inline;
  5441. procedure setPERR(thebits : TBits_1); inline;
  5442. procedure setRIDLE(thebits : TBits_1); inline;
  5443. procedure setTRMT(thebits : TBits_1); inline;
  5444. procedure setURXDA(thebits : TBits_1); inline;
  5445. procedure setURXEN(thebits : TBits_1); inline;
  5446. procedure setURXISEL(thebits : TBits_2); inline;
  5447. procedure setURXISEL0(thebits : TBits_1); inline;
  5448. procedure setURXISEL1(thebits : TBits_1); inline;
  5449. procedure setUTXBF(thebits : TBits_1); inline;
  5450. procedure setUTXBRK(thebits : TBits_1); inline;
  5451. procedure setUTXEN(thebits : TBits_1); inline;
  5452. procedure setUTXINV(thebits : TBits_1); inline;
  5453. procedure setUTXISEL(thebits : TBits_2); inline;
  5454. procedure setUTXISEL0(thebits : TBits_1); inline;
  5455. procedure setUTXISEL1(thebits : TBits_1); inline;
  5456. procedure setUTXSEL(thebits : TBits_2); inline;
  5457. procedure setw(thebits : TBits_32); inline;
  5458. public
  5459. procedure clearADDEN; inline;
  5460. procedure clearADM_EN; inline;
  5461. procedure clearFERR; inline;
  5462. procedure clearOERR; inline;
  5463. procedure clearPERR; inline;
  5464. procedure clearRIDLE; inline;
  5465. procedure clearTRMT; inline;
  5466. procedure clearURXDA; inline;
  5467. procedure clearURXEN; inline;
  5468. procedure clearURXISEL0; inline;
  5469. procedure clearURXISEL1; inline;
  5470. procedure clearUTXBF; inline;
  5471. procedure clearUTXBRK; inline;
  5472. procedure clearUTXEN; inline;
  5473. procedure clearUTXINV; inline;
  5474. procedure clearUTXISEL0; inline;
  5475. procedure clearUTXISEL1; inline;
  5476. procedure setADDEN; inline;
  5477. procedure setADM_EN; inline;
  5478. procedure setFERR; inline;
  5479. procedure setOERR; inline;
  5480. procedure setPERR; inline;
  5481. procedure setRIDLE; inline;
  5482. procedure setTRMT; inline;
  5483. procedure setURXDA; inline;
  5484. procedure setURXEN; inline;
  5485. procedure setURXISEL0; inline;
  5486. procedure setURXISEL1; inline;
  5487. procedure setUTXBF; inline;
  5488. procedure setUTXBRK; inline;
  5489. procedure setUTXEN; inline;
  5490. procedure setUTXINV; inline;
  5491. procedure setUTXISEL0; inline;
  5492. procedure setUTXISEL1; inline;
  5493. property ADDEN : TBits_1 read getADDEN write setADDEN;
  5494. property ADDR : TBits_8 read getADDR write setADDR;
  5495. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  5496. property FERR : TBits_1 read getFERR write setFERR;
  5497. property OERR : TBits_1 read getOERR write setOERR;
  5498. property PERR : TBits_1 read getPERR write setPERR;
  5499. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  5500. property TRMT : TBits_1 read getTRMT write setTRMT;
  5501. property URXDA : TBits_1 read getURXDA write setURXDA;
  5502. property URXEN : TBits_1 read getURXEN write setURXEN;
  5503. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  5504. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  5505. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  5506. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  5507. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  5508. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  5509. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  5510. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  5511. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  5512. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  5513. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  5514. property w : TBits_32 read getw write setw;
  5515. end;
  5516. type
  5517. TUART3Registers = record
  5518. U2AMODEbits : TUART3_U2AMODE;
  5519. U2AMODE : longWord;
  5520. U3MODEbits : TUART3_U3MODE;
  5521. U3MODE : longWord;
  5522. U2AMODECLR : longWord;
  5523. U3MODECLR : longWord;
  5524. U2AMODESET : longWord;
  5525. U3MODESET : longWord;
  5526. U2AMODEINV : longWord;
  5527. U3MODEINV : longWord;
  5528. U2ASTAbits : TUART3_U2ASTA;
  5529. U2ASTA : longWord;
  5530. U3STAbits : TUART3_U3STA;
  5531. U3STA : longWord;
  5532. U2ASTACLR : longWord;
  5533. U3STACLR : longWord;
  5534. U2ASTASET : longWord;
  5535. U3STASET : longWord;
  5536. U2ASTAINV : longWord;
  5537. U3STAINV : longWord;
  5538. U2ATXREG : longWord;
  5539. U3TXREG : longWord;
  5540. U2ARXREG : longWord;
  5541. U3RXREG : longWord;
  5542. U2ABRG : longWord;
  5543. U3BRG : longWord;
  5544. U2ABRGCLR : longWord;
  5545. U3BRGCLR : longWord;
  5546. U2ABRGSET : longWord;
  5547. U3BRGSET : longWord;
  5548. U2ABRGINV : longWord;
  5549. U3BRGINV : longWord;
  5550. end;
  5551. TUART2B_U2BMODE = record
  5552. private
  5553. function getABAUD : TBits_1; inline;
  5554. function getBRGH : TBits_1; inline;
  5555. function getIREN : TBits_1; inline;
  5556. function getLPBACK : TBits_1; inline;
  5557. function getON : TBits_1; inline;
  5558. function getPDSEL : TBits_2; inline;
  5559. function getPDSEL0 : TBits_1; inline;
  5560. function getPDSEL1 : TBits_1; inline;
  5561. function getRXINV : TBits_1; inline;
  5562. function getSIDL : TBits_1; inline;
  5563. function getSTSEL : TBits_1; inline;
  5564. function getUARTEN : TBits_1; inline;
  5565. function getUSIDL : TBits_1; inline;
  5566. function getWAKE : TBits_1; inline;
  5567. function getw : TBits_32; inline;
  5568. procedure setABAUD(thebits : TBits_1); inline;
  5569. procedure setBRGH(thebits : TBits_1); inline;
  5570. procedure setIREN(thebits : TBits_1); inline;
  5571. procedure setLPBACK(thebits : TBits_1); inline;
  5572. procedure setON(thebits : TBits_1); inline;
  5573. procedure setPDSEL(thebits : TBits_2); inline;
  5574. procedure setPDSEL0(thebits : TBits_1); inline;
  5575. procedure setPDSEL1(thebits : TBits_1); inline;
  5576. procedure setRXINV(thebits : TBits_1); inline;
  5577. procedure setSIDL(thebits : TBits_1); inline;
  5578. procedure setSTSEL(thebits : TBits_1); inline;
  5579. procedure setUARTEN(thebits : TBits_1); inline;
  5580. procedure setUSIDL(thebits : TBits_1); inline;
  5581. procedure setWAKE(thebits : TBits_1); inline;
  5582. procedure setw(thebits : TBits_32); inline;
  5583. public
  5584. procedure clearABAUD; inline;
  5585. procedure clearBRGH; inline;
  5586. procedure clearIREN; inline;
  5587. procedure clearLPBACK; inline;
  5588. procedure clearON; inline;
  5589. procedure clearPDSEL0; inline;
  5590. procedure clearPDSEL1; inline;
  5591. procedure clearRXINV; inline;
  5592. procedure clearSIDL; inline;
  5593. procedure clearSTSEL; inline;
  5594. procedure clearUARTEN; inline;
  5595. procedure clearUSIDL; inline;
  5596. procedure clearWAKE; inline;
  5597. procedure setABAUD; inline;
  5598. procedure setBRGH; inline;
  5599. procedure setIREN; inline;
  5600. procedure setLPBACK; inline;
  5601. procedure setON; inline;
  5602. procedure setPDSEL0; inline;
  5603. procedure setPDSEL1; inline;
  5604. procedure setRXINV; inline;
  5605. procedure setSIDL; inline;
  5606. procedure setSTSEL; inline;
  5607. procedure setUARTEN; inline;
  5608. procedure setUSIDL; inline;
  5609. procedure setWAKE; inline;
  5610. property ABAUD : TBits_1 read getABAUD write setABAUD;
  5611. property BRGH : TBits_1 read getBRGH write setBRGH;
  5612. property IREN : TBits_1 read getIREN write setIREN;
  5613. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  5614. property ON : TBits_1 read getON write setON;
  5615. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  5616. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  5617. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  5618. property RXINV : TBits_1 read getRXINV write setRXINV;
  5619. property SIDL : TBits_1 read getSIDL write setSIDL;
  5620. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  5621. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  5622. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  5623. property WAKE : TBits_1 read getWAKE write setWAKE;
  5624. property w : TBits_32 read getw write setw;
  5625. end;
  5626. TUART2B_U6MODE = record
  5627. private
  5628. function getABAUD : TBits_1; inline;
  5629. function getBRGH : TBits_1; inline;
  5630. function getIREN : TBits_1; inline;
  5631. function getLPBACK : TBits_1; inline;
  5632. function getON : TBits_1; inline;
  5633. function getPDSEL : TBits_2; inline;
  5634. function getPDSEL0 : TBits_1; inline;
  5635. function getPDSEL1 : TBits_1; inline;
  5636. function getRXINV : TBits_1; inline;
  5637. function getSIDL : TBits_1; inline;
  5638. function getSTSEL : TBits_1; inline;
  5639. function getUARTEN : TBits_1; inline;
  5640. function getUSIDL : TBits_1; inline;
  5641. function getWAKE : TBits_1; inline;
  5642. function getw : TBits_32; inline;
  5643. procedure setABAUD(thebits : TBits_1); inline;
  5644. procedure setBRGH(thebits : TBits_1); inline;
  5645. procedure setIREN(thebits : TBits_1); inline;
  5646. procedure setLPBACK(thebits : TBits_1); inline;
  5647. procedure setON(thebits : TBits_1); inline;
  5648. procedure setPDSEL(thebits : TBits_2); inline;
  5649. procedure setPDSEL0(thebits : TBits_1); inline;
  5650. procedure setPDSEL1(thebits : TBits_1); inline;
  5651. procedure setRXINV(thebits : TBits_1); inline;
  5652. procedure setSIDL(thebits : TBits_1); inline;
  5653. procedure setSTSEL(thebits : TBits_1); inline;
  5654. procedure setUARTEN(thebits : TBits_1); inline;
  5655. procedure setUSIDL(thebits : TBits_1); inline;
  5656. procedure setWAKE(thebits : TBits_1); inline;
  5657. procedure setw(thebits : TBits_32); inline;
  5658. public
  5659. procedure clearABAUD; inline;
  5660. procedure clearBRGH; inline;
  5661. procedure clearIREN; inline;
  5662. procedure clearLPBACK; inline;
  5663. procedure clearON; inline;
  5664. procedure clearPDSEL0; inline;
  5665. procedure clearPDSEL1; inline;
  5666. procedure clearRXINV; inline;
  5667. procedure clearSIDL; inline;
  5668. procedure clearSTSEL; inline;
  5669. procedure clearUARTEN; inline;
  5670. procedure clearUSIDL; inline;
  5671. procedure clearWAKE; inline;
  5672. procedure setABAUD; inline;
  5673. procedure setBRGH; inline;
  5674. procedure setIREN; inline;
  5675. procedure setLPBACK; inline;
  5676. procedure setON; inline;
  5677. procedure setPDSEL0; inline;
  5678. procedure setPDSEL1; inline;
  5679. procedure setRXINV; inline;
  5680. procedure setSIDL; inline;
  5681. procedure setSTSEL; inline;
  5682. procedure setUARTEN; inline;
  5683. procedure setUSIDL; inline;
  5684. procedure setWAKE; inline;
  5685. property ABAUD : TBits_1 read getABAUD write setABAUD;
  5686. property BRGH : TBits_1 read getBRGH write setBRGH;
  5687. property IREN : TBits_1 read getIREN write setIREN;
  5688. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  5689. property ON : TBits_1 read getON write setON;
  5690. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  5691. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  5692. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  5693. property RXINV : TBits_1 read getRXINV write setRXINV;
  5694. property SIDL : TBits_1 read getSIDL write setSIDL;
  5695. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  5696. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  5697. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  5698. property WAKE : TBits_1 read getWAKE write setWAKE;
  5699. property w : TBits_32 read getw write setw;
  5700. end;
  5701. TUART2B_U2BSTA = record
  5702. private
  5703. function getADDEN : TBits_1; inline;
  5704. function getADDR : TBits_8; inline;
  5705. function getADM_EN : TBits_1; inline;
  5706. function getFERR : TBits_1; inline;
  5707. function getOERR : TBits_1; inline;
  5708. function getPERR : TBits_1; inline;
  5709. function getRIDLE : TBits_1; inline;
  5710. function getTRMT : TBits_1; inline;
  5711. function getURXDA : TBits_1; inline;
  5712. function getURXEN : TBits_1; inline;
  5713. function getURXISEL : TBits_2; inline;
  5714. function getURXISEL0 : TBits_1; inline;
  5715. function getURXISEL1 : TBits_1; inline;
  5716. function getUTXBF : TBits_1; inline;
  5717. function getUTXBRK : TBits_1; inline;
  5718. function getUTXEN : TBits_1; inline;
  5719. function getUTXINV : TBits_1; inline;
  5720. function getUTXISEL : TBits_2; inline;
  5721. function getUTXISEL0 : TBits_1; inline;
  5722. function getUTXISEL1 : TBits_1; inline;
  5723. function getUTXSEL : TBits_2; inline;
  5724. function getw : TBits_32; inline;
  5725. procedure setADDEN(thebits : TBits_1); inline;
  5726. procedure setADDR(thebits : TBits_8); inline;
  5727. procedure setADM_EN(thebits : TBits_1); inline;
  5728. procedure setFERR(thebits : TBits_1); inline;
  5729. procedure setOERR(thebits : TBits_1); inline;
  5730. procedure setPERR(thebits : TBits_1); inline;
  5731. procedure setRIDLE(thebits : TBits_1); inline;
  5732. procedure setTRMT(thebits : TBits_1); inline;
  5733. procedure setURXDA(thebits : TBits_1); inline;
  5734. procedure setURXEN(thebits : TBits_1); inline;
  5735. procedure setURXISEL(thebits : TBits_2); inline;
  5736. procedure setURXISEL0(thebits : TBits_1); inline;
  5737. procedure setURXISEL1(thebits : TBits_1); inline;
  5738. procedure setUTXBF(thebits : TBits_1); inline;
  5739. procedure setUTXBRK(thebits : TBits_1); inline;
  5740. procedure setUTXEN(thebits : TBits_1); inline;
  5741. procedure setUTXINV(thebits : TBits_1); inline;
  5742. procedure setUTXISEL(thebits : TBits_2); inline;
  5743. procedure setUTXISEL0(thebits : TBits_1); inline;
  5744. procedure setUTXISEL1(thebits : TBits_1); inline;
  5745. procedure setUTXSEL(thebits : TBits_2); inline;
  5746. procedure setw(thebits : TBits_32); inline;
  5747. public
  5748. procedure clearADDEN; inline;
  5749. procedure clearADM_EN; inline;
  5750. procedure clearFERR; inline;
  5751. procedure clearOERR; inline;
  5752. procedure clearPERR; inline;
  5753. procedure clearRIDLE; inline;
  5754. procedure clearTRMT; inline;
  5755. procedure clearURXDA; inline;
  5756. procedure clearURXEN; inline;
  5757. procedure clearURXISEL0; inline;
  5758. procedure clearURXISEL1; inline;
  5759. procedure clearUTXBF; inline;
  5760. procedure clearUTXBRK; inline;
  5761. procedure clearUTXEN; inline;
  5762. procedure clearUTXINV; inline;
  5763. procedure clearUTXISEL0; inline;
  5764. procedure clearUTXISEL1; inline;
  5765. procedure setADDEN; inline;
  5766. procedure setADM_EN; inline;
  5767. procedure setFERR; inline;
  5768. procedure setOERR; inline;
  5769. procedure setPERR; inline;
  5770. procedure setRIDLE; inline;
  5771. procedure setTRMT; inline;
  5772. procedure setURXDA; inline;
  5773. procedure setURXEN; inline;
  5774. procedure setURXISEL0; inline;
  5775. procedure setURXISEL1; inline;
  5776. procedure setUTXBF; inline;
  5777. procedure setUTXBRK; inline;
  5778. procedure setUTXEN; inline;
  5779. procedure setUTXINV; inline;
  5780. procedure setUTXISEL0; inline;
  5781. procedure setUTXISEL1; inline;
  5782. property ADDEN : TBits_1 read getADDEN write setADDEN;
  5783. property ADDR : TBits_8 read getADDR write setADDR;
  5784. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  5785. property FERR : TBits_1 read getFERR write setFERR;
  5786. property OERR : TBits_1 read getOERR write setOERR;
  5787. property PERR : TBits_1 read getPERR write setPERR;
  5788. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  5789. property TRMT : TBits_1 read getTRMT write setTRMT;
  5790. property URXDA : TBits_1 read getURXDA write setURXDA;
  5791. property URXEN : TBits_1 read getURXEN write setURXEN;
  5792. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  5793. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  5794. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  5795. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  5796. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  5797. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  5798. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  5799. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  5800. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  5801. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  5802. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  5803. property w : TBits_32 read getw write setw;
  5804. end;
  5805. TUART2B_U6STA = record
  5806. private
  5807. function getADDEN : TBits_1; inline;
  5808. function getADDR : TBits_8; inline;
  5809. function getADM_EN : TBits_1; inline;
  5810. function getFERR : TBits_1; inline;
  5811. function getOERR : TBits_1; inline;
  5812. function getPERR : TBits_1; inline;
  5813. function getRIDLE : TBits_1; inline;
  5814. function getTRMT : TBits_1; inline;
  5815. function getURXDA : TBits_1; inline;
  5816. function getURXEN : TBits_1; inline;
  5817. function getURXISEL : TBits_2; inline;
  5818. function getURXISEL0 : TBits_1; inline;
  5819. function getURXISEL1 : TBits_1; inline;
  5820. function getUTXBF : TBits_1; inline;
  5821. function getUTXBRK : TBits_1; inline;
  5822. function getUTXEN : TBits_1; inline;
  5823. function getUTXINV : TBits_1; inline;
  5824. function getUTXISEL : TBits_2; inline;
  5825. function getUTXISEL0 : TBits_1; inline;
  5826. function getUTXISEL1 : TBits_1; inline;
  5827. function getUTXSEL : TBits_2; inline;
  5828. function getw : TBits_32; inline;
  5829. procedure setADDEN(thebits : TBits_1); inline;
  5830. procedure setADDR(thebits : TBits_8); inline;
  5831. procedure setADM_EN(thebits : TBits_1); inline;
  5832. procedure setFERR(thebits : TBits_1); inline;
  5833. procedure setOERR(thebits : TBits_1); inline;
  5834. procedure setPERR(thebits : TBits_1); inline;
  5835. procedure setRIDLE(thebits : TBits_1); inline;
  5836. procedure setTRMT(thebits : TBits_1); inline;
  5837. procedure setURXDA(thebits : TBits_1); inline;
  5838. procedure setURXEN(thebits : TBits_1); inline;
  5839. procedure setURXISEL(thebits : TBits_2); inline;
  5840. procedure setURXISEL0(thebits : TBits_1); inline;
  5841. procedure setURXISEL1(thebits : TBits_1); inline;
  5842. procedure setUTXBF(thebits : TBits_1); inline;
  5843. procedure setUTXBRK(thebits : TBits_1); inline;
  5844. procedure setUTXEN(thebits : TBits_1); inline;
  5845. procedure setUTXINV(thebits : TBits_1); inline;
  5846. procedure setUTXISEL(thebits : TBits_2); inline;
  5847. procedure setUTXISEL0(thebits : TBits_1); inline;
  5848. procedure setUTXISEL1(thebits : TBits_1); inline;
  5849. procedure setUTXSEL(thebits : TBits_2); inline;
  5850. procedure setw(thebits : TBits_32); inline;
  5851. public
  5852. procedure clearADDEN; inline;
  5853. procedure clearADM_EN; inline;
  5854. procedure clearFERR; inline;
  5855. procedure clearOERR; inline;
  5856. procedure clearPERR; inline;
  5857. procedure clearRIDLE; inline;
  5858. procedure clearTRMT; inline;
  5859. procedure clearURXDA; inline;
  5860. procedure clearURXEN; inline;
  5861. procedure clearURXISEL0; inline;
  5862. procedure clearURXISEL1; inline;
  5863. procedure clearUTXBF; inline;
  5864. procedure clearUTXBRK; inline;
  5865. procedure clearUTXEN; inline;
  5866. procedure clearUTXINV; inline;
  5867. procedure clearUTXISEL0; inline;
  5868. procedure clearUTXISEL1; inline;
  5869. procedure setADDEN; inline;
  5870. procedure setADM_EN; inline;
  5871. procedure setFERR; inline;
  5872. procedure setOERR; inline;
  5873. procedure setPERR; inline;
  5874. procedure setRIDLE; inline;
  5875. procedure setTRMT; inline;
  5876. procedure setURXDA; inline;
  5877. procedure setURXEN; inline;
  5878. procedure setURXISEL0; inline;
  5879. procedure setURXISEL1; inline;
  5880. procedure setUTXBF; inline;
  5881. procedure setUTXBRK; inline;
  5882. procedure setUTXEN; inline;
  5883. procedure setUTXINV; inline;
  5884. procedure setUTXISEL0; inline;
  5885. procedure setUTXISEL1; inline;
  5886. property ADDEN : TBits_1 read getADDEN write setADDEN;
  5887. property ADDR : TBits_8 read getADDR write setADDR;
  5888. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  5889. property FERR : TBits_1 read getFERR write setFERR;
  5890. property OERR : TBits_1 read getOERR write setOERR;
  5891. property PERR : TBits_1 read getPERR write setPERR;
  5892. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  5893. property TRMT : TBits_1 read getTRMT write setTRMT;
  5894. property URXDA : TBits_1 read getURXDA write setURXDA;
  5895. property URXEN : TBits_1 read getURXEN write setURXEN;
  5896. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  5897. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  5898. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  5899. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  5900. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  5901. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  5902. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  5903. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  5904. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  5905. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  5906. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  5907. property w : TBits_32 read getw write setw;
  5908. end;
  5909. type
  5910. TUART2BRegisters = record
  5911. U2BMODEbits : TUART2B_U2BMODE;
  5912. U2BMODE : longWord;
  5913. U6MODEbits : TUART2B_U6MODE;
  5914. U6MODE : longWord;
  5915. U2BMODECLR : longWord;
  5916. U6MODECLR : longWord;
  5917. U2BMODESET : longWord;
  5918. U6MODESET : longWord;
  5919. U2BMODEINV : longWord;
  5920. U6MODEINV : longWord;
  5921. U2BSTAbits : TUART2B_U2BSTA;
  5922. U2BSTA : longWord;
  5923. U6STAbits : TUART2B_U6STA;
  5924. U6STA : longWord;
  5925. U2BSTACLR : longWord;
  5926. U6STACLR : longWord;
  5927. U2BSTASET : longWord;
  5928. U6STASET : longWord;
  5929. U2BSTAINV : longWord;
  5930. U6STAINV : longWord;
  5931. U2BTXREG : longWord;
  5932. U6TXREG : longWord;
  5933. U2BRXREG : longWord;
  5934. U6RXREG : longWord;
  5935. U2BBRG : longWord;
  5936. U6BRG : longWord;
  5937. U2BBRGCLR : longWord;
  5938. U6BRGCLR : longWord;
  5939. U2BBRGSET : longWord;
  5940. U6BRGSET : longWord;
  5941. U2BBRGINV : longWord;
  5942. U6BRGINV : longWord;
  5943. end;
  5944. TUART2_U2MODE = record
  5945. private
  5946. function getABAUD : TBits_1; inline;
  5947. function getBRGH : TBits_1; inline;
  5948. function getIREN : TBits_1; inline;
  5949. function getLPBACK : TBits_1; inline;
  5950. function getON : TBits_1; inline;
  5951. function getPDSEL : TBits_2; inline;
  5952. function getPDSEL0 : TBits_1; inline;
  5953. function getPDSEL1 : TBits_1; inline;
  5954. function getRTSMD : TBits_1; inline;
  5955. function getRXINV : TBits_1; inline;
  5956. function getSIDL : TBits_1; inline;
  5957. function getSTSEL : TBits_1; inline;
  5958. function getUARTEN : TBits_1; inline;
  5959. function getUEN : TBits_2; inline;
  5960. function getUEN0 : TBits_1; inline;
  5961. function getUEN1 : TBits_1; inline;
  5962. function getUSIDL : TBits_1; inline;
  5963. function getWAKE : TBits_1; inline;
  5964. function getw : TBits_32; inline;
  5965. procedure setABAUD(thebits : TBits_1); inline;
  5966. procedure setBRGH(thebits : TBits_1); inline;
  5967. procedure setIREN(thebits : TBits_1); inline;
  5968. procedure setLPBACK(thebits : TBits_1); inline;
  5969. procedure setON(thebits : TBits_1); inline;
  5970. procedure setPDSEL(thebits : TBits_2); inline;
  5971. procedure setPDSEL0(thebits : TBits_1); inline;
  5972. procedure setPDSEL1(thebits : TBits_1); inline;
  5973. procedure setRTSMD(thebits : TBits_1); inline;
  5974. procedure setRXINV(thebits : TBits_1); inline;
  5975. procedure setSIDL(thebits : TBits_1); inline;
  5976. procedure setSTSEL(thebits : TBits_1); inline;
  5977. procedure setUARTEN(thebits : TBits_1); inline;
  5978. procedure setUEN(thebits : TBits_2); inline;
  5979. procedure setUEN0(thebits : TBits_1); inline;
  5980. procedure setUEN1(thebits : TBits_1); inline;
  5981. procedure setUSIDL(thebits : TBits_1); inline;
  5982. procedure setWAKE(thebits : TBits_1); inline;
  5983. procedure setw(thebits : TBits_32); inline;
  5984. public
  5985. procedure clearABAUD; inline;
  5986. procedure clearBRGH; inline;
  5987. procedure clearIREN; inline;
  5988. procedure clearLPBACK; inline;
  5989. procedure clearON; inline;
  5990. procedure clearPDSEL0; inline;
  5991. procedure clearPDSEL1; inline;
  5992. procedure clearRTSMD; inline;
  5993. procedure clearRXINV; inline;
  5994. procedure clearSIDL; inline;
  5995. procedure clearSTSEL; inline;
  5996. procedure clearUARTEN; inline;
  5997. procedure clearUEN0; inline;
  5998. procedure clearUEN1; inline;
  5999. procedure clearUSIDL; inline;
  6000. procedure clearWAKE; inline;
  6001. procedure setABAUD; inline;
  6002. procedure setBRGH; inline;
  6003. procedure setIREN; inline;
  6004. procedure setLPBACK; inline;
  6005. procedure setON; inline;
  6006. procedure setPDSEL0; inline;
  6007. procedure setPDSEL1; inline;
  6008. procedure setRTSMD; inline;
  6009. procedure setRXINV; inline;
  6010. procedure setSIDL; inline;
  6011. procedure setSTSEL; inline;
  6012. procedure setUARTEN; inline;
  6013. procedure setUEN0; inline;
  6014. procedure setUEN1; inline;
  6015. procedure setUSIDL; inline;
  6016. procedure setWAKE; inline;
  6017. property ABAUD : TBits_1 read getABAUD write setABAUD;
  6018. property BRGH : TBits_1 read getBRGH write setBRGH;
  6019. property IREN : TBits_1 read getIREN write setIREN;
  6020. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  6021. property ON : TBits_1 read getON write setON;
  6022. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  6023. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  6024. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  6025. property RTSMD : TBits_1 read getRTSMD write setRTSMD;
  6026. property RXINV : TBits_1 read getRXINV write setRXINV;
  6027. property SIDL : TBits_1 read getSIDL write setSIDL;
  6028. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  6029. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  6030. property UEN : TBits_2 read getUEN write setUEN;
  6031. property UEN0 : TBits_1 read getUEN0 write setUEN0;
  6032. property UEN1 : TBits_1 read getUEN1 write setUEN1;
  6033. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  6034. property WAKE : TBits_1 read getWAKE write setWAKE;
  6035. property w : TBits_32 read getw write setw;
  6036. end;
  6037. TUART2_U3AMODE = record
  6038. private
  6039. function getABAUD : TBits_1; inline;
  6040. function getBRGH : TBits_1; inline;
  6041. function getIREN : TBits_1; inline;
  6042. function getLPBACK : TBits_1; inline;
  6043. function getON : TBits_1; inline;
  6044. function getPDSEL : TBits_2; inline;
  6045. function getPDSEL0 : TBits_1; inline;
  6046. function getPDSEL1 : TBits_1; inline;
  6047. function getRTSMD : TBits_1; inline;
  6048. function getRXINV : TBits_1; inline;
  6049. function getSIDL : TBits_1; inline;
  6050. function getSTSEL : TBits_1; inline;
  6051. function getUARTEN : TBits_1; inline;
  6052. function getUEN : TBits_2; inline;
  6053. function getUEN0 : TBits_1; inline;
  6054. function getUEN1 : TBits_1; inline;
  6055. function getUSIDL : TBits_1; inline;
  6056. function getWAKE : TBits_1; inline;
  6057. function getw : TBits_32; inline;
  6058. procedure setABAUD(thebits : TBits_1); inline;
  6059. procedure setBRGH(thebits : TBits_1); inline;
  6060. procedure setIREN(thebits : TBits_1); inline;
  6061. procedure setLPBACK(thebits : TBits_1); inline;
  6062. procedure setON(thebits : TBits_1); inline;
  6063. procedure setPDSEL(thebits : TBits_2); inline;
  6064. procedure setPDSEL0(thebits : TBits_1); inline;
  6065. procedure setPDSEL1(thebits : TBits_1); inline;
  6066. procedure setRTSMD(thebits : TBits_1); inline;
  6067. procedure setRXINV(thebits : TBits_1); inline;
  6068. procedure setSIDL(thebits : TBits_1); inline;
  6069. procedure setSTSEL(thebits : TBits_1); inline;
  6070. procedure setUARTEN(thebits : TBits_1); inline;
  6071. procedure setUEN(thebits : TBits_2); inline;
  6072. procedure setUEN0(thebits : TBits_1); inline;
  6073. procedure setUEN1(thebits : TBits_1); inline;
  6074. procedure setUSIDL(thebits : TBits_1); inline;
  6075. procedure setWAKE(thebits : TBits_1); inline;
  6076. procedure setw(thebits : TBits_32); inline;
  6077. public
  6078. procedure clearABAUD; inline;
  6079. procedure clearBRGH; inline;
  6080. procedure clearIREN; inline;
  6081. procedure clearLPBACK; inline;
  6082. procedure clearON; inline;
  6083. procedure clearPDSEL0; inline;
  6084. procedure clearPDSEL1; inline;
  6085. procedure clearRTSMD; inline;
  6086. procedure clearRXINV; inline;
  6087. procedure clearSIDL; inline;
  6088. procedure clearSTSEL; inline;
  6089. procedure clearUARTEN; inline;
  6090. procedure clearUEN0; inline;
  6091. procedure clearUEN1; inline;
  6092. procedure clearUSIDL; inline;
  6093. procedure clearWAKE; inline;
  6094. procedure setABAUD; inline;
  6095. procedure setBRGH; inline;
  6096. procedure setIREN; inline;
  6097. procedure setLPBACK; inline;
  6098. procedure setON; inline;
  6099. procedure setPDSEL0; inline;
  6100. procedure setPDSEL1; inline;
  6101. procedure setRTSMD; inline;
  6102. procedure setRXINV; inline;
  6103. procedure setSIDL; inline;
  6104. procedure setSTSEL; inline;
  6105. procedure setUARTEN; inline;
  6106. procedure setUEN0; inline;
  6107. procedure setUEN1; inline;
  6108. procedure setUSIDL; inline;
  6109. procedure setWAKE; inline;
  6110. property ABAUD : TBits_1 read getABAUD write setABAUD;
  6111. property BRGH : TBits_1 read getBRGH write setBRGH;
  6112. property IREN : TBits_1 read getIREN write setIREN;
  6113. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  6114. property ON : TBits_1 read getON write setON;
  6115. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  6116. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  6117. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  6118. property RTSMD : TBits_1 read getRTSMD write setRTSMD;
  6119. property RXINV : TBits_1 read getRXINV write setRXINV;
  6120. property SIDL : TBits_1 read getSIDL write setSIDL;
  6121. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  6122. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  6123. property UEN : TBits_2 read getUEN write setUEN;
  6124. property UEN0 : TBits_1 read getUEN0 write setUEN0;
  6125. property UEN1 : TBits_1 read getUEN1 write setUEN1;
  6126. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  6127. property WAKE : TBits_1 read getWAKE write setWAKE;
  6128. property w : TBits_32 read getw write setw;
  6129. end;
  6130. TUART2_U2STA = record
  6131. private
  6132. function getADDEN : TBits_1; inline;
  6133. function getADDR : TBits_8; inline;
  6134. function getADM_EN : TBits_1; inline;
  6135. function getFERR : TBits_1; inline;
  6136. function getOERR : TBits_1; inline;
  6137. function getPERR : TBits_1; inline;
  6138. function getRIDLE : TBits_1; inline;
  6139. function getTRMT : TBits_1; inline;
  6140. function getURXDA : TBits_1; inline;
  6141. function getURXEN : TBits_1; inline;
  6142. function getURXISEL : TBits_2; inline;
  6143. function getURXISEL0 : TBits_1; inline;
  6144. function getURXISEL1 : TBits_1; inline;
  6145. function getUTXBF : TBits_1; inline;
  6146. function getUTXBRK : TBits_1; inline;
  6147. function getUTXEN : TBits_1; inline;
  6148. function getUTXINV : TBits_1; inline;
  6149. function getUTXISEL : TBits_2; inline;
  6150. function getUTXISEL0 : TBits_1; inline;
  6151. function getUTXISEL1 : TBits_1; inline;
  6152. function getUTXSEL : TBits_2; inline;
  6153. function getw : TBits_32; inline;
  6154. procedure setADDEN(thebits : TBits_1); inline;
  6155. procedure setADDR(thebits : TBits_8); inline;
  6156. procedure setADM_EN(thebits : TBits_1); inline;
  6157. procedure setFERR(thebits : TBits_1); inline;
  6158. procedure setOERR(thebits : TBits_1); inline;
  6159. procedure setPERR(thebits : TBits_1); inline;
  6160. procedure setRIDLE(thebits : TBits_1); inline;
  6161. procedure setTRMT(thebits : TBits_1); inline;
  6162. procedure setURXDA(thebits : TBits_1); inline;
  6163. procedure setURXEN(thebits : TBits_1); inline;
  6164. procedure setURXISEL(thebits : TBits_2); inline;
  6165. procedure setURXISEL0(thebits : TBits_1); inline;
  6166. procedure setURXISEL1(thebits : TBits_1); inline;
  6167. procedure setUTXBF(thebits : TBits_1); inline;
  6168. procedure setUTXBRK(thebits : TBits_1); inline;
  6169. procedure setUTXEN(thebits : TBits_1); inline;
  6170. procedure setUTXINV(thebits : TBits_1); inline;
  6171. procedure setUTXISEL(thebits : TBits_2); inline;
  6172. procedure setUTXISEL0(thebits : TBits_1); inline;
  6173. procedure setUTXISEL1(thebits : TBits_1); inline;
  6174. procedure setUTXSEL(thebits : TBits_2); inline;
  6175. procedure setw(thebits : TBits_32); inline;
  6176. public
  6177. procedure clearADDEN; inline;
  6178. procedure clearADM_EN; inline;
  6179. procedure clearFERR; inline;
  6180. procedure clearOERR; inline;
  6181. procedure clearPERR; inline;
  6182. procedure clearRIDLE; inline;
  6183. procedure clearTRMT; inline;
  6184. procedure clearURXDA; inline;
  6185. procedure clearURXEN; inline;
  6186. procedure clearURXISEL0; inline;
  6187. procedure clearURXISEL1; inline;
  6188. procedure clearUTXBF; inline;
  6189. procedure clearUTXBRK; inline;
  6190. procedure clearUTXEN; inline;
  6191. procedure clearUTXINV; inline;
  6192. procedure clearUTXISEL0; inline;
  6193. procedure clearUTXISEL1; inline;
  6194. procedure setADDEN; inline;
  6195. procedure setADM_EN; inline;
  6196. procedure setFERR; inline;
  6197. procedure setOERR; inline;
  6198. procedure setPERR; inline;
  6199. procedure setRIDLE; inline;
  6200. procedure setTRMT; inline;
  6201. procedure setURXDA; inline;
  6202. procedure setURXEN; inline;
  6203. procedure setURXISEL0; inline;
  6204. procedure setURXISEL1; inline;
  6205. procedure setUTXBF; inline;
  6206. procedure setUTXBRK; inline;
  6207. procedure setUTXEN; inline;
  6208. procedure setUTXINV; inline;
  6209. procedure setUTXISEL0; inline;
  6210. procedure setUTXISEL1; inline;
  6211. property ADDEN : TBits_1 read getADDEN write setADDEN;
  6212. property ADDR : TBits_8 read getADDR write setADDR;
  6213. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  6214. property FERR : TBits_1 read getFERR write setFERR;
  6215. property OERR : TBits_1 read getOERR write setOERR;
  6216. property PERR : TBits_1 read getPERR write setPERR;
  6217. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  6218. property TRMT : TBits_1 read getTRMT write setTRMT;
  6219. property URXDA : TBits_1 read getURXDA write setURXDA;
  6220. property URXEN : TBits_1 read getURXEN write setURXEN;
  6221. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  6222. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  6223. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  6224. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  6225. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  6226. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  6227. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  6228. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  6229. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  6230. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  6231. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  6232. property w : TBits_32 read getw write setw;
  6233. end;
  6234. TUART2_U3ASTA = record
  6235. private
  6236. function getADDEN : TBits_1; inline;
  6237. function getADDR : TBits_8; inline;
  6238. function getADM_EN : TBits_1; inline;
  6239. function getFERR : TBits_1; inline;
  6240. function getOERR : TBits_1; inline;
  6241. function getPERR : TBits_1; inline;
  6242. function getRIDLE : TBits_1; inline;
  6243. function getTRMT : TBits_1; inline;
  6244. function getURXDA : TBits_1; inline;
  6245. function getURXEN : TBits_1; inline;
  6246. function getURXISEL : TBits_2; inline;
  6247. function getURXISEL0 : TBits_1; inline;
  6248. function getURXISEL1 : TBits_1; inline;
  6249. function getUTXBF : TBits_1; inline;
  6250. function getUTXBRK : TBits_1; inline;
  6251. function getUTXEN : TBits_1; inline;
  6252. function getUTXINV : TBits_1; inline;
  6253. function getUTXISEL : TBits_2; inline;
  6254. function getUTXISEL0 : TBits_1; inline;
  6255. function getUTXISEL1 : TBits_1; inline;
  6256. function getUTXSEL : TBits_2; inline;
  6257. function getw : TBits_32; inline;
  6258. procedure setADDEN(thebits : TBits_1); inline;
  6259. procedure setADDR(thebits : TBits_8); inline;
  6260. procedure setADM_EN(thebits : TBits_1); inline;
  6261. procedure setFERR(thebits : TBits_1); inline;
  6262. procedure setOERR(thebits : TBits_1); inline;
  6263. procedure setPERR(thebits : TBits_1); inline;
  6264. procedure setRIDLE(thebits : TBits_1); inline;
  6265. procedure setTRMT(thebits : TBits_1); inline;
  6266. procedure setURXDA(thebits : TBits_1); inline;
  6267. procedure setURXEN(thebits : TBits_1); inline;
  6268. procedure setURXISEL(thebits : TBits_2); inline;
  6269. procedure setURXISEL0(thebits : TBits_1); inline;
  6270. procedure setURXISEL1(thebits : TBits_1); inline;
  6271. procedure setUTXBF(thebits : TBits_1); inline;
  6272. procedure setUTXBRK(thebits : TBits_1); inline;
  6273. procedure setUTXEN(thebits : TBits_1); inline;
  6274. procedure setUTXINV(thebits : TBits_1); inline;
  6275. procedure setUTXISEL(thebits : TBits_2); inline;
  6276. procedure setUTXISEL0(thebits : TBits_1); inline;
  6277. procedure setUTXISEL1(thebits : TBits_1); inline;
  6278. procedure setUTXSEL(thebits : TBits_2); inline;
  6279. procedure setw(thebits : TBits_32); inline;
  6280. public
  6281. procedure clearADDEN; inline;
  6282. procedure clearADM_EN; inline;
  6283. procedure clearFERR; inline;
  6284. procedure clearOERR; inline;
  6285. procedure clearPERR; inline;
  6286. procedure clearRIDLE; inline;
  6287. procedure clearTRMT; inline;
  6288. procedure clearURXDA; inline;
  6289. procedure clearURXEN; inline;
  6290. procedure clearURXISEL0; inline;
  6291. procedure clearURXISEL1; inline;
  6292. procedure clearUTXBF; inline;
  6293. procedure clearUTXBRK; inline;
  6294. procedure clearUTXEN; inline;
  6295. procedure clearUTXINV; inline;
  6296. procedure clearUTXISEL0; inline;
  6297. procedure clearUTXISEL1; inline;
  6298. procedure setADDEN; inline;
  6299. procedure setADM_EN; inline;
  6300. procedure setFERR; inline;
  6301. procedure setOERR; inline;
  6302. procedure setPERR; inline;
  6303. procedure setRIDLE; inline;
  6304. procedure setTRMT; inline;
  6305. procedure setURXDA; inline;
  6306. procedure setURXEN; inline;
  6307. procedure setURXISEL0; inline;
  6308. procedure setURXISEL1; inline;
  6309. procedure setUTXBF; inline;
  6310. procedure setUTXBRK; inline;
  6311. procedure setUTXEN; inline;
  6312. procedure setUTXINV; inline;
  6313. procedure setUTXISEL0; inline;
  6314. procedure setUTXISEL1; inline;
  6315. property ADDEN : TBits_1 read getADDEN write setADDEN;
  6316. property ADDR : TBits_8 read getADDR write setADDR;
  6317. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  6318. property FERR : TBits_1 read getFERR write setFERR;
  6319. property OERR : TBits_1 read getOERR write setOERR;
  6320. property PERR : TBits_1 read getPERR write setPERR;
  6321. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  6322. property TRMT : TBits_1 read getTRMT write setTRMT;
  6323. property URXDA : TBits_1 read getURXDA write setURXDA;
  6324. property URXEN : TBits_1 read getURXEN write setURXEN;
  6325. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  6326. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  6327. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  6328. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  6329. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  6330. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  6331. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  6332. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  6333. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  6334. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  6335. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  6336. property w : TBits_32 read getw write setw;
  6337. end;
  6338. type
  6339. TUART2Registers = record
  6340. U2MODEbits : TUART2_U2MODE;
  6341. U2MODE : longWord;
  6342. U3AMODEbits : TUART2_U3AMODE;
  6343. U3AMODE : longWord;
  6344. U2MODECLR : longWord;
  6345. U3AMODECLR : longWord;
  6346. U2MODESET : longWord;
  6347. U3AMODESET : longWord;
  6348. U2MODEINV : longWord;
  6349. U3AMODEINV : longWord;
  6350. U2STAbits : TUART2_U2STA;
  6351. U2STA : longWord;
  6352. U3ASTAbits : TUART2_U3ASTA;
  6353. U3ASTA : longWord;
  6354. U2STACLR : longWord;
  6355. U3ASTACLR : longWord;
  6356. U2STASET : longWord;
  6357. U3ASTASET : longWord;
  6358. U2STAINV : longWord;
  6359. U3ASTAINV : longWord;
  6360. U2TXREG : longWord;
  6361. U3ATXREG : longWord;
  6362. U2RXREG : longWord;
  6363. U3ARXREG : longWord;
  6364. U2BRG : longWord;
  6365. U3ABRG : longWord;
  6366. U2BRGCLR : longWord;
  6367. U3ABRGCLR : longWord;
  6368. U2BRGSET : longWord;
  6369. U3ABRGSET : longWord;
  6370. U2BRGINV : longWord;
  6371. U3ABRGINV : longWord;
  6372. end;
  6373. TUART5_U3BMODE = record
  6374. private
  6375. function getABAUD : TBits_1; inline;
  6376. function getBRGH : TBits_1; inline;
  6377. function getIREN : TBits_1; inline;
  6378. function getLPBACK : TBits_1; inline;
  6379. function getON : TBits_1; inline;
  6380. function getPDSEL : TBits_2; inline;
  6381. function getPDSEL0 : TBits_1; inline;
  6382. function getPDSEL1 : TBits_1; inline;
  6383. function getRXINV : TBits_1; inline;
  6384. function getSIDL : TBits_1; inline;
  6385. function getSTSEL : TBits_1; inline;
  6386. function getUARTEN : TBits_1; inline;
  6387. function getUSIDL : TBits_1; inline;
  6388. function getWAKE : TBits_1; inline;
  6389. function getw : TBits_32; inline;
  6390. procedure setABAUD(thebits : TBits_1); inline;
  6391. procedure setBRGH(thebits : TBits_1); inline;
  6392. procedure setIREN(thebits : TBits_1); inline;
  6393. procedure setLPBACK(thebits : TBits_1); inline;
  6394. procedure setON(thebits : TBits_1); inline;
  6395. procedure setPDSEL(thebits : TBits_2); inline;
  6396. procedure setPDSEL0(thebits : TBits_1); inline;
  6397. procedure setPDSEL1(thebits : TBits_1); inline;
  6398. procedure setRXINV(thebits : TBits_1); inline;
  6399. procedure setSIDL(thebits : TBits_1); inline;
  6400. procedure setSTSEL(thebits : TBits_1); inline;
  6401. procedure setUARTEN(thebits : TBits_1); inline;
  6402. procedure setUSIDL(thebits : TBits_1); inline;
  6403. procedure setWAKE(thebits : TBits_1); inline;
  6404. procedure setw(thebits : TBits_32); inline;
  6405. public
  6406. procedure clearABAUD; inline;
  6407. procedure clearBRGH; inline;
  6408. procedure clearIREN; inline;
  6409. procedure clearLPBACK; inline;
  6410. procedure clearON; inline;
  6411. procedure clearPDSEL0; inline;
  6412. procedure clearPDSEL1; inline;
  6413. procedure clearRXINV; inline;
  6414. procedure clearSIDL; inline;
  6415. procedure clearSTSEL; inline;
  6416. procedure clearUARTEN; inline;
  6417. procedure clearUSIDL; inline;
  6418. procedure clearWAKE; inline;
  6419. procedure setABAUD; inline;
  6420. procedure setBRGH; inline;
  6421. procedure setIREN; inline;
  6422. procedure setLPBACK; inline;
  6423. procedure setON; inline;
  6424. procedure setPDSEL0; inline;
  6425. procedure setPDSEL1; inline;
  6426. procedure setRXINV; inline;
  6427. procedure setSIDL; inline;
  6428. procedure setSTSEL; inline;
  6429. procedure setUARTEN; inline;
  6430. procedure setUSIDL; inline;
  6431. procedure setWAKE; inline;
  6432. property ABAUD : TBits_1 read getABAUD write setABAUD;
  6433. property BRGH : TBits_1 read getBRGH write setBRGH;
  6434. property IREN : TBits_1 read getIREN write setIREN;
  6435. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  6436. property ON : TBits_1 read getON write setON;
  6437. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  6438. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  6439. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  6440. property RXINV : TBits_1 read getRXINV write setRXINV;
  6441. property SIDL : TBits_1 read getSIDL write setSIDL;
  6442. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  6443. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  6444. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  6445. property WAKE : TBits_1 read getWAKE write setWAKE;
  6446. property w : TBits_32 read getw write setw;
  6447. end;
  6448. TUART5_U5MODE = record
  6449. private
  6450. function getABAUD : TBits_1; inline;
  6451. function getBRGH : TBits_1; inline;
  6452. function getIREN : TBits_1; inline;
  6453. function getLPBACK : TBits_1; inline;
  6454. function getON : TBits_1; inline;
  6455. function getPDSEL : TBits_2; inline;
  6456. function getPDSEL0 : TBits_1; inline;
  6457. function getPDSEL1 : TBits_1; inline;
  6458. function getRXINV : TBits_1; inline;
  6459. function getSIDL : TBits_1; inline;
  6460. function getSTSEL : TBits_1; inline;
  6461. function getUARTEN : TBits_1; inline;
  6462. function getUSIDL : TBits_1; inline;
  6463. function getWAKE : TBits_1; inline;
  6464. function getw : TBits_32; inline;
  6465. procedure setABAUD(thebits : TBits_1); inline;
  6466. procedure setBRGH(thebits : TBits_1); inline;
  6467. procedure setIREN(thebits : TBits_1); inline;
  6468. procedure setLPBACK(thebits : TBits_1); inline;
  6469. procedure setON(thebits : TBits_1); inline;
  6470. procedure setPDSEL(thebits : TBits_2); inline;
  6471. procedure setPDSEL0(thebits : TBits_1); inline;
  6472. procedure setPDSEL1(thebits : TBits_1); inline;
  6473. procedure setRXINV(thebits : TBits_1); inline;
  6474. procedure setSIDL(thebits : TBits_1); inline;
  6475. procedure setSTSEL(thebits : TBits_1); inline;
  6476. procedure setUARTEN(thebits : TBits_1); inline;
  6477. procedure setUSIDL(thebits : TBits_1); inline;
  6478. procedure setWAKE(thebits : TBits_1); inline;
  6479. procedure setw(thebits : TBits_32); inline;
  6480. public
  6481. procedure clearABAUD; inline;
  6482. procedure clearBRGH; inline;
  6483. procedure clearIREN; inline;
  6484. procedure clearLPBACK; inline;
  6485. procedure clearON; inline;
  6486. procedure clearPDSEL0; inline;
  6487. procedure clearPDSEL1; inline;
  6488. procedure clearRXINV; inline;
  6489. procedure clearSIDL; inline;
  6490. procedure clearSTSEL; inline;
  6491. procedure clearUARTEN; inline;
  6492. procedure clearUSIDL; inline;
  6493. procedure clearWAKE; inline;
  6494. procedure setABAUD; inline;
  6495. procedure setBRGH; inline;
  6496. procedure setIREN; inline;
  6497. procedure setLPBACK; inline;
  6498. procedure setON; inline;
  6499. procedure setPDSEL0; inline;
  6500. procedure setPDSEL1; inline;
  6501. procedure setRXINV; inline;
  6502. procedure setSIDL; inline;
  6503. procedure setSTSEL; inline;
  6504. procedure setUARTEN; inline;
  6505. procedure setUSIDL; inline;
  6506. procedure setWAKE; inline;
  6507. property ABAUD : TBits_1 read getABAUD write setABAUD;
  6508. property BRGH : TBits_1 read getBRGH write setBRGH;
  6509. property IREN : TBits_1 read getIREN write setIREN;
  6510. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  6511. property ON : TBits_1 read getON write setON;
  6512. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  6513. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  6514. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  6515. property RXINV : TBits_1 read getRXINV write setRXINV;
  6516. property SIDL : TBits_1 read getSIDL write setSIDL;
  6517. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  6518. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  6519. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  6520. property WAKE : TBits_1 read getWAKE write setWAKE;
  6521. property w : TBits_32 read getw write setw;
  6522. end;
  6523. TUART5_U3BSTA = record
  6524. private
  6525. function getADDEN : TBits_1; inline;
  6526. function getADDR : TBits_8; inline;
  6527. function getADM_EN : TBits_1; inline;
  6528. function getFERR : TBits_1; inline;
  6529. function getOERR : TBits_1; inline;
  6530. function getPERR : TBits_1; inline;
  6531. function getRIDLE : TBits_1; inline;
  6532. function getTRMT : TBits_1; inline;
  6533. function getURXDA : TBits_1; inline;
  6534. function getURXEN : TBits_1; inline;
  6535. function getURXISEL : TBits_2; inline;
  6536. function getURXISEL0 : TBits_1; inline;
  6537. function getURXISEL1 : TBits_1; inline;
  6538. function getUTXBF : TBits_1; inline;
  6539. function getUTXBRK : TBits_1; inline;
  6540. function getUTXEN : TBits_1; inline;
  6541. function getUTXINV : TBits_1; inline;
  6542. function getUTXISEL : TBits_2; inline;
  6543. function getUTXISEL0 : TBits_1; inline;
  6544. function getUTXISEL1 : TBits_1; inline;
  6545. function getUTXSEL : TBits_2; inline;
  6546. function getw : TBits_32; inline;
  6547. procedure setADDEN(thebits : TBits_1); inline;
  6548. procedure setADDR(thebits : TBits_8); inline;
  6549. procedure setADM_EN(thebits : TBits_1); inline;
  6550. procedure setFERR(thebits : TBits_1); inline;
  6551. procedure setOERR(thebits : TBits_1); inline;
  6552. procedure setPERR(thebits : TBits_1); inline;
  6553. procedure setRIDLE(thebits : TBits_1); inline;
  6554. procedure setTRMT(thebits : TBits_1); inline;
  6555. procedure setURXDA(thebits : TBits_1); inline;
  6556. procedure setURXEN(thebits : TBits_1); inline;
  6557. procedure setURXISEL(thebits : TBits_2); inline;
  6558. procedure setURXISEL0(thebits : TBits_1); inline;
  6559. procedure setURXISEL1(thebits : TBits_1); inline;
  6560. procedure setUTXBF(thebits : TBits_1); inline;
  6561. procedure setUTXBRK(thebits : TBits_1); inline;
  6562. procedure setUTXEN(thebits : TBits_1); inline;
  6563. procedure setUTXINV(thebits : TBits_1); inline;
  6564. procedure setUTXISEL(thebits : TBits_2); inline;
  6565. procedure setUTXISEL0(thebits : TBits_1); inline;
  6566. procedure setUTXISEL1(thebits : TBits_1); inline;
  6567. procedure setUTXSEL(thebits : TBits_2); inline;
  6568. procedure setw(thebits : TBits_32); inline;
  6569. public
  6570. procedure clearADDEN; inline;
  6571. procedure clearADM_EN; inline;
  6572. procedure clearFERR; inline;
  6573. procedure clearOERR; inline;
  6574. procedure clearPERR; inline;
  6575. procedure clearRIDLE; inline;
  6576. procedure clearTRMT; inline;
  6577. procedure clearURXDA; inline;
  6578. procedure clearURXEN; inline;
  6579. procedure clearURXISEL0; inline;
  6580. procedure clearURXISEL1; inline;
  6581. procedure clearUTXBF; inline;
  6582. procedure clearUTXBRK; inline;
  6583. procedure clearUTXEN; inline;
  6584. procedure clearUTXINV; inline;
  6585. procedure clearUTXISEL0; inline;
  6586. procedure clearUTXISEL1; inline;
  6587. procedure setADDEN; inline;
  6588. procedure setADM_EN; inline;
  6589. procedure setFERR; inline;
  6590. procedure setOERR; inline;
  6591. procedure setPERR; inline;
  6592. procedure setRIDLE; inline;
  6593. procedure setTRMT; inline;
  6594. procedure setURXDA; inline;
  6595. procedure setURXEN; inline;
  6596. procedure setURXISEL0; inline;
  6597. procedure setURXISEL1; inline;
  6598. procedure setUTXBF; inline;
  6599. procedure setUTXBRK; inline;
  6600. procedure setUTXEN; inline;
  6601. procedure setUTXINV; inline;
  6602. procedure setUTXISEL0; inline;
  6603. procedure setUTXISEL1; inline;
  6604. property ADDEN : TBits_1 read getADDEN write setADDEN;
  6605. property ADDR : TBits_8 read getADDR write setADDR;
  6606. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  6607. property FERR : TBits_1 read getFERR write setFERR;
  6608. property OERR : TBits_1 read getOERR write setOERR;
  6609. property PERR : TBits_1 read getPERR write setPERR;
  6610. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  6611. property TRMT : TBits_1 read getTRMT write setTRMT;
  6612. property URXDA : TBits_1 read getURXDA write setURXDA;
  6613. property URXEN : TBits_1 read getURXEN write setURXEN;
  6614. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  6615. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  6616. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  6617. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  6618. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  6619. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  6620. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  6621. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  6622. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  6623. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  6624. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  6625. property w : TBits_32 read getw write setw;
  6626. end;
  6627. TUART5_U5STA = record
  6628. private
  6629. function getADDEN : TBits_1; inline;
  6630. function getADDR : TBits_8; inline;
  6631. function getADM_EN : TBits_1; inline;
  6632. function getFERR : TBits_1; inline;
  6633. function getOERR : TBits_1; inline;
  6634. function getPERR : TBits_1; inline;
  6635. function getRIDLE : TBits_1; inline;
  6636. function getTRMT : TBits_1; inline;
  6637. function getURXDA : TBits_1; inline;
  6638. function getURXEN : TBits_1; inline;
  6639. function getURXISEL : TBits_2; inline;
  6640. function getURXISEL0 : TBits_1; inline;
  6641. function getURXISEL1 : TBits_1; inline;
  6642. function getUTXBF : TBits_1; inline;
  6643. function getUTXBRK : TBits_1; inline;
  6644. function getUTXEN : TBits_1; inline;
  6645. function getUTXINV : TBits_1; inline;
  6646. function getUTXISEL : TBits_2; inline;
  6647. function getUTXISEL0 : TBits_1; inline;
  6648. function getUTXISEL1 : TBits_1; inline;
  6649. function getUTXSEL : TBits_2; inline;
  6650. function getw : TBits_32; inline;
  6651. procedure setADDEN(thebits : TBits_1); inline;
  6652. procedure setADDR(thebits : TBits_8); inline;
  6653. procedure setADM_EN(thebits : TBits_1); inline;
  6654. procedure setFERR(thebits : TBits_1); inline;
  6655. procedure setOERR(thebits : TBits_1); inline;
  6656. procedure setPERR(thebits : TBits_1); inline;
  6657. procedure setRIDLE(thebits : TBits_1); inline;
  6658. procedure setTRMT(thebits : TBits_1); inline;
  6659. procedure setURXDA(thebits : TBits_1); inline;
  6660. procedure setURXEN(thebits : TBits_1); inline;
  6661. procedure setURXISEL(thebits : TBits_2); inline;
  6662. procedure setURXISEL0(thebits : TBits_1); inline;
  6663. procedure setURXISEL1(thebits : TBits_1); inline;
  6664. procedure setUTXBF(thebits : TBits_1); inline;
  6665. procedure setUTXBRK(thebits : TBits_1); inline;
  6666. procedure setUTXEN(thebits : TBits_1); inline;
  6667. procedure setUTXINV(thebits : TBits_1); inline;
  6668. procedure setUTXISEL(thebits : TBits_2); inline;
  6669. procedure setUTXISEL0(thebits : TBits_1); inline;
  6670. procedure setUTXISEL1(thebits : TBits_1); inline;
  6671. procedure setUTXSEL(thebits : TBits_2); inline;
  6672. procedure setw(thebits : TBits_32); inline;
  6673. public
  6674. procedure clearADDEN; inline;
  6675. procedure clearADM_EN; inline;
  6676. procedure clearFERR; inline;
  6677. procedure clearOERR; inline;
  6678. procedure clearPERR; inline;
  6679. procedure clearRIDLE; inline;
  6680. procedure clearTRMT; inline;
  6681. procedure clearURXDA; inline;
  6682. procedure clearURXEN; inline;
  6683. procedure clearURXISEL0; inline;
  6684. procedure clearURXISEL1; inline;
  6685. procedure clearUTXBF; inline;
  6686. procedure clearUTXBRK; inline;
  6687. procedure clearUTXEN; inline;
  6688. procedure clearUTXINV; inline;
  6689. procedure clearUTXISEL0; inline;
  6690. procedure clearUTXISEL1; inline;
  6691. procedure setADDEN; inline;
  6692. procedure setADM_EN; inline;
  6693. procedure setFERR; inline;
  6694. procedure setOERR; inline;
  6695. procedure setPERR; inline;
  6696. procedure setRIDLE; inline;
  6697. procedure setTRMT; inline;
  6698. procedure setURXDA; inline;
  6699. procedure setURXEN; inline;
  6700. procedure setURXISEL0; inline;
  6701. procedure setURXISEL1; inline;
  6702. procedure setUTXBF; inline;
  6703. procedure setUTXBRK; inline;
  6704. procedure setUTXEN; inline;
  6705. procedure setUTXINV; inline;
  6706. procedure setUTXISEL0; inline;
  6707. procedure setUTXISEL1; inline;
  6708. property ADDEN : TBits_1 read getADDEN write setADDEN;
  6709. property ADDR : TBits_8 read getADDR write setADDR;
  6710. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  6711. property FERR : TBits_1 read getFERR write setFERR;
  6712. property OERR : TBits_1 read getOERR write setOERR;
  6713. property PERR : TBits_1 read getPERR write setPERR;
  6714. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  6715. property TRMT : TBits_1 read getTRMT write setTRMT;
  6716. property URXDA : TBits_1 read getURXDA write setURXDA;
  6717. property URXEN : TBits_1 read getURXEN write setURXEN;
  6718. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  6719. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  6720. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  6721. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  6722. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  6723. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  6724. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  6725. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  6726. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  6727. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  6728. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  6729. property w : TBits_32 read getw write setw;
  6730. end;
  6731. type
  6732. TUART5Registers = record
  6733. U3BMODEbits : TUART5_U3BMODE;
  6734. U3BMODE : longWord;
  6735. U5MODEbits : TUART5_U5MODE;
  6736. U5MODE : longWord;
  6737. U3BMODECLR : longWord;
  6738. U5MODECLR : longWord;
  6739. U3BMODESET : longWord;
  6740. U5MODESET : longWord;
  6741. U3BMODEINV : longWord;
  6742. U5MODEINV : longWord;
  6743. U3BSTAbits : TUART5_U3BSTA;
  6744. U3BSTA : longWord;
  6745. U5STAbits : TUART5_U5STA;
  6746. U5STA : longWord;
  6747. U3BSTACLR : longWord;
  6748. U5STACLR : longWord;
  6749. U3BSTASET : longWord;
  6750. U5STASET : longWord;
  6751. U3BSTAINV : longWord;
  6752. U5STAINV : longWord;
  6753. U3BTXREG : longWord;
  6754. U5TXREG : longWord;
  6755. U3BRXREG : longWord;
  6756. U5RXREG : longWord;
  6757. U3BBRG : longWord;
  6758. U5BRG : longWord;
  6759. U3BBRGCLR : longWord;
  6760. U5BRGCLR : longWord;
  6761. U3BBRGSET : longWord;
  6762. U5BRGSET : longWord;
  6763. U3BBRGINV : longWord;
  6764. U5BRGINV : longWord;
  6765. end;
  6766. TPMP_PMCON = record
  6767. private
  6768. function getADRMUX : TBits_2; inline;
  6769. function getADRMUX0 : TBits_1; inline;
  6770. function getADRMUX1 : TBits_1; inline;
  6771. function getALP : TBits_1; inline;
  6772. function getCS1P : TBits_1; inline;
  6773. function getCS2P : TBits_1; inline;
  6774. function getCSF : TBits_2; inline;
  6775. function getCSF0 : TBits_1; inline;
  6776. function getCSF1 : TBits_1; inline;
  6777. function getON : TBits_1; inline;
  6778. function getPMPEN : TBits_1; inline;
  6779. function getPMPTTL : TBits_1; inline;
  6780. function getPSIDL : TBits_1; inline;
  6781. function getPTRDEN : TBits_1; inline;
  6782. function getPTWREN : TBits_1; inline;
  6783. function getRDSP : TBits_1; inline;
  6784. function getSIDL : TBits_1; inline;
  6785. function getWRSP : TBits_1; inline;
  6786. function getw : TBits_32; inline;
  6787. procedure setADRMUX(thebits : TBits_2); inline;
  6788. procedure setADRMUX0(thebits : TBits_1); inline;
  6789. procedure setADRMUX1(thebits : TBits_1); inline;
  6790. procedure setALP(thebits : TBits_1); inline;
  6791. procedure setCS1P(thebits : TBits_1); inline;
  6792. procedure setCS2P(thebits : TBits_1); inline;
  6793. procedure setCSF(thebits : TBits_2); inline;
  6794. procedure setCSF0(thebits : TBits_1); inline;
  6795. procedure setCSF1(thebits : TBits_1); inline;
  6796. procedure setON(thebits : TBits_1); inline;
  6797. procedure setPMPEN(thebits : TBits_1); inline;
  6798. procedure setPMPTTL(thebits : TBits_1); inline;
  6799. procedure setPSIDL(thebits : TBits_1); inline;
  6800. procedure setPTRDEN(thebits : TBits_1); inline;
  6801. procedure setPTWREN(thebits : TBits_1); inline;
  6802. procedure setRDSP(thebits : TBits_1); inline;
  6803. procedure setSIDL(thebits : TBits_1); inline;
  6804. procedure setWRSP(thebits : TBits_1); inline;
  6805. procedure setw(thebits : TBits_32); inline;
  6806. public
  6807. procedure clearADRMUX0; inline;
  6808. procedure clearADRMUX1; inline;
  6809. procedure clearALP; inline;
  6810. procedure clearCS1P; inline;
  6811. procedure clearCS2P; inline;
  6812. procedure clearCSF0; inline;
  6813. procedure clearCSF1; inline;
  6814. procedure clearON; inline;
  6815. procedure clearPMPEN; inline;
  6816. procedure clearPMPTTL; inline;
  6817. procedure clearPSIDL; inline;
  6818. procedure clearPTRDEN; inline;
  6819. procedure clearPTWREN; inline;
  6820. procedure clearRDSP; inline;
  6821. procedure clearSIDL; inline;
  6822. procedure clearWRSP; inline;
  6823. procedure setADRMUX0; inline;
  6824. procedure setADRMUX1; inline;
  6825. procedure setALP; inline;
  6826. procedure setCS1P; inline;
  6827. procedure setCS2P; inline;
  6828. procedure setCSF0; inline;
  6829. procedure setCSF1; inline;
  6830. procedure setON; inline;
  6831. procedure setPMPEN; inline;
  6832. procedure setPMPTTL; inline;
  6833. procedure setPSIDL; inline;
  6834. procedure setPTRDEN; inline;
  6835. procedure setPTWREN; inline;
  6836. procedure setRDSP; inline;
  6837. procedure setSIDL; inline;
  6838. procedure setWRSP; inline;
  6839. property ADRMUX : TBits_2 read getADRMUX write setADRMUX;
  6840. property ADRMUX0 : TBits_1 read getADRMUX0 write setADRMUX0;
  6841. property ADRMUX1 : TBits_1 read getADRMUX1 write setADRMUX1;
  6842. property ALP : TBits_1 read getALP write setALP;
  6843. property CS1P : TBits_1 read getCS1P write setCS1P;
  6844. property CS2P : TBits_1 read getCS2P write setCS2P;
  6845. property CSF : TBits_2 read getCSF write setCSF;
  6846. property CSF0 : TBits_1 read getCSF0 write setCSF0;
  6847. property CSF1 : TBits_1 read getCSF1 write setCSF1;
  6848. property ON : TBits_1 read getON write setON;
  6849. property PMPEN : TBits_1 read getPMPEN write setPMPEN;
  6850. property PMPTTL : TBits_1 read getPMPTTL write setPMPTTL;
  6851. property PSIDL : TBits_1 read getPSIDL write setPSIDL;
  6852. property PTRDEN : TBits_1 read getPTRDEN write setPTRDEN;
  6853. property PTWREN : TBits_1 read getPTWREN write setPTWREN;
  6854. property RDSP : TBits_1 read getRDSP write setRDSP;
  6855. property SIDL : TBits_1 read getSIDL write setSIDL;
  6856. property WRSP : TBits_1 read getWRSP write setWRSP;
  6857. property w : TBits_32 read getw write setw;
  6858. end;
  6859. TPMP_PMMODE = record
  6860. private
  6861. function getBUSY : TBits_1; inline;
  6862. function getINCM : TBits_2; inline;
  6863. function getINCM0 : TBits_1; inline;
  6864. function getINCM1 : TBits_1; inline;
  6865. function getIRQM : TBits_2; inline;
  6866. function getIRQM0 : TBits_1; inline;
  6867. function getIRQM1 : TBits_1; inline;
  6868. function getMODE : TBits_2; inline;
  6869. function getMODE0 : TBits_1; inline;
  6870. function getMODE1 : TBits_1; inline;
  6871. function getMODE16 : TBits_1; inline;
  6872. function getWAITB : TBits_2; inline;
  6873. function getWAITB0 : TBits_1; inline;
  6874. function getWAITB1 : TBits_1; inline;
  6875. function getWAITE : TBits_2; inline;
  6876. function getWAITE0 : TBits_1; inline;
  6877. function getWAITE1 : TBits_1; inline;
  6878. function getWAITM : TBits_4; inline;
  6879. function getWAITM0 : TBits_1; inline;
  6880. function getWAITM1 : TBits_1; inline;
  6881. function getWAITM2 : TBits_1; inline;
  6882. function getWAITM3 : TBits_1; inline;
  6883. function getw : TBits_32; inline;
  6884. procedure setBUSY(thebits : TBits_1); inline;
  6885. procedure setINCM(thebits : TBits_2); inline;
  6886. procedure setINCM0(thebits : TBits_1); inline;
  6887. procedure setINCM1(thebits : TBits_1); inline;
  6888. procedure setIRQM(thebits : TBits_2); inline;
  6889. procedure setIRQM0(thebits : TBits_1); inline;
  6890. procedure setIRQM1(thebits : TBits_1); inline;
  6891. procedure setMODE(thebits : TBits_2); inline;
  6892. procedure setMODE0(thebits : TBits_1); inline;
  6893. procedure setMODE1(thebits : TBits_1); inline;
  6894. procedure setMODE16(thebits : TBits_1); inline;
  6895. procedure setWAITB(thebits : TBits_2); inline;
  6896. procedure setWAITB0(thebits : TBits_1); inline;
  6897. procedure setWAITB1(thebits : TBits_1); inline;
  6898. procedure setWAITE(thebits : TBits_2); inline;
  6899. procedure setWAITE0(thebits : TBits_1); inline;
  6900. procedure setWAITE1(thebits : TBits_1); inline;
  6901. procedure setWAITM(thebits : TBits_4); inline;
  6902. procedure setWAITM0(thebits : TBits_1); inline;
  6903. procedure setWAITM1(thebits : TBits_1); inline;
  6904. procedure setWAITM2(thebits : TBits_1); inline;
  6905. procedure setWAITM3(thebits : TBits_1); inline;
  6906. procedure setw(thebits : TBits_32); inline;
  6907. public
  6908. procedure clearBUSY; inline;
  6909. procedure clearINCM0; inline;
  6910. procedure clearINCM1; inline;
  6911. procedure clearIRQM0; inline;
  6912. procedure clearIRQM1; inline;
  6913. procedure clearMODE0; inline;
  6914. procedure clearMODE16; inline;
  6915. procedure clearMODE1; inline;
  6916. procedure clearWAITB0; inline;
  6917. procedure clearWAITB1; inline;
  6918. procedure clearWAITE0; inline;
  6919. procedure clearWAITE1; inline;
  6920. procedure clearWAITM0; inline;
  6921. procedure clearWAITM1; inline;
  6922. procedure clearWAITM2; inline;
  6923. procedure clearWAITM3; inline;
  6924. procedure setBUSY; inline;
  6925. procedure setINCM0; inline;
  6926. procedure setINCM1; inline;
  6927. procedure setIRQM0; inline;
  6928. procedure setIRQM1; inline;
  6929. procedure setMODE0; inline;
  6930. procedure setMODE16; inline;
  6931. procedure setMODE1; inline;
  6932. procedure setWAITB0; inline;
  6933. procedure setWAITB1; inline;
  6934. procedure setWAITE0; inline;
  6935. procedure setWAITE1; inline;
  6936. procedure setWAITM0; inline;
  6937. procedure setWAITM1; inline;
  6938. procedure setWAITM2; inline;
  6939. procedure setWAITM3; inline;
  6940. property BUSY : TBits_1 read getBUSY write setBUSY;
  6941. property INCM : TBits_2 read getINCM write setINCM;
  6942. property INCM0 : TBits_1 read getINCM0 write setINCM0;
  6943. property INCM1 : TBits_1 read getINCM1 write setINCM1;
  6944. property IRQM : TBits_2 read getIRQM write setIRQM;
  6945. property IRQM0 : TBits_1 read getIRQM0 write setIRQM0;
  6946. property IRQM1 : TBits_1 read getIRQM1 write setIRQM1;
  6947. property MODE : TBits_2 read getMODE write setMODE;
  6948. property MODE0 : TBits_1 read getMODE0 write setMODE0;
  6949. property MODE1 : TBits_1 read getMODE1 write setMODE1;
  6950. property MODE16 : TBits_1 read getMODE16 write setMODE16;
  6951. property WAITB : TBits_2 read getWAITB write setWAITB;
  6952. property WAITB0 : TBits_1 read getWAITB0 write setWAITB0;
  6953. property WAITB1 : TBits_1 read getWAITB1 write setWAITB1;
  6954. property WAITE : TBits_2 read getWAITE write setWAITE;
  6955. property WAITE0 : TBits_1 read getWAITE0 write setWAITE0;
  6956. property WAITE1 : TBits_1 read getWAITE1 write setWAITE1;
  6957. property WAITM : TBits_4 read getWAITM write setWAITM;
  6958. property WAITM0 : TBits_1 read getWAITM0 write setWAITM0;
  6959. property WAITM1 : TBits_1 read getWAITM1 write setWAITM1;
  6960. property WAITM2 : TBits_1 read getWAITM2 write setWAITM2;
  6961. property WAITM3 : TBits_1 read getWAITM3 write setWAITM3;
  6962. property w : TBits_32 read getw write setw;
  6963. end;
  6964. TPMP_PMADDR = record
  6965. private
  6966. function getADDR : TBits_14; inline;
  6967. function getCS : TBits_2; inline;
  6968. function getCS1 : TBits_1; inline;
  6969. function getCS2 : TBits_1; inline;
  6970. function getPADDR : TBits_14; inline;
  6971. function getw : TBits_32; inline;
  6972. procedure setADDR(thebits : TBits_14); inline;
  6973. procedure setCS(thebits : TBits_2); inline;
  6974. procedure setCS1(thebits : TBits_1); inline;
  6975. procedure setCS2(thebits : TBits_1); inline;
  6976. procedure setPADDR(thebits : TBits_14); inline;
  6977. procedure setw(thebits : TBits_32); inline;
  6978. public
  6979. procedure clearCS1; inline;
  6980. procedure clearCS2; inline;
  6981. procedure setCS1; inline;
  6982. procedure setCS2; inline;
  6983. property ADDR : TBits_14 read getADDR write setADDR;
  6984. property CS : TBits_2 read getCS write setCS;
  6985. property CS1 : TBits_1 read getCS1 write setCS1;
  6986. property CS2 : TBits_1 read getCS2 write setCS2;
  6987. property PADDR : TBits_14 read getPADDR write setPADDR;
  6988. property w : TBits_32 read getw write setw;
  6989. end;
  6990. TPMP_PMDOUT = record
  6991. private
  6992. function getDATAOUT : TBits_32; inline;
  6993. function getw : TBits_32; inline;
  6994. procedure setDATAOUT(thebits : TBits_32); inline;
  6995. procedure setw(thebits : TBits_32); inline;
  6996. public
  6997. property DATAOUT : TBits_32 read getDATAOUT write setDATAOUT;
  6998. property w : TBits_32 read getw write setw;
  6999. end;
  7000. TPMP_PMDIN = record
  7001. private
  7002. function getDATAIN : TBits_32; inline;
  7003. function getw : TBits_32; inline;
  7004. procedure setDATAIN(thebits : TBits_32); inline;
  7005. procedure setw(thebits : TBits_32); inline;
  7006. public
  7007. property DATAIN : TBits_32 read getDATAIN write setDATAIN;
  7008. property w : TBits_32 read getw write setw;
  7009. end;
  7010. TPMP_PMAEN = record
  7011. private
  7012. function getPTEN : TBits_16; inline;
  7013. function getPTEN0 : TBits_1; inline;
  7014. function getPTEN1 : TBits_1; inline;
  7015. function getPTEN10 : TBits_1; inline;
  7016. function getPTEN11 : TBits_1; inline;
  7017. function getPTEN12 : TBits_1; inline;
  7018. function getPTEN13 : TBits_1; inline;
  7019. function getPTEN14 : TBits_1; inline;
  7020. function getPTEN15 : TBits_1; inline;
  7021. function getPTEN2 : TBits_1; inline;
  7022. function getPTEN3 : TBits_1; inline;
  7023. function getPTEN4 : TBits_1; inline;
  7024. function getPTEN5 : TBits_1; inline;
  7025. function getPTEN6 : TBits_1; inline;
  7026. function getPTEN7 : TBits_1; inline;
  7027. function getPTEN8 : TBits_1; inline;
  7028. function getPTEN9 : TBits_1; inline;
  7029. function getw : TBits_32; inline;
  7030. procedure setPTEN(thebits : TBits_16); inline;
  7031. procedure setPTEN0(thebits : TBits_1); inline;
  7032. procedure setPTEN1(thebits : TBits_1); inline;
  7033. procedure setPTEN10(thebits : TBits_1); inline;
  7034. procedure setPTEN11(thebits : TBits_1); inline;
  7035. procedure setPTEN12(thebits : TBits_1); inline;
  7036. procedure setPTEN13(thebits : TBits_1); inline;
  7037. procedure setPTEN14(thebits : TBits_1); inline;
  7038. procedure setPTEN15(thebits : TBits_1); inline;
  7039. procedure setPTEN2(thebits : TBits_1); inline;
  7040. procedure setPTEN3(thebits : TBits_1); inline;
  7041. procedure setPTEN4(thebits : TBits_1); inline;
  7042. procedure setPTEN5(thebits : TBits_1); inline;
  7043. procedure setPTEN6(thebits : TBits_1); inline;
  7044. procedure setPTEN7(thebits : TBits_1); inline;
  7045. procedure setPTEN8(thebits : TBits_1); inline;
  7046. procedure setPTEN9(thebits : TBits_1); inline;
  7047. procedure setw(thebits : TBits_32); inline;
  7048. public
  7049. procedure clearPTEN0; inline;
  7050. procedure clearPTEN10; inline;
  7051. procedure clearPTEN11; inline;
  7052. procedure clearPTEN12; inline;
  7053. procedure clearPTEN13; inline;
  7054. procedure clearPTEN14; inline;
  7055. procedure clearPTEN15; inline;
  7056. procedure clearPTEN1; inline;
  7057. procedure clearPTEN2; inline;
  7058. procedure clearPTEN3; inline;
  7059. procedure clearPTEN4; inline;
  7060. procedure clearPTEN5; inline;
  7061. procedure clearPTEN6; inline;
  7062. procedure clearPTEN7; inline;
  7063. procedure clearPTEN8; inline;
  7064. procedure clearPTEN9; inline;
  7065. procedure setPTEN0; inline;
  7066. procedure setPTEN10; inline;
  7067. procedure setPTEN11; inline;
  7068. procedure setPTEN12; inline;
  7069. procedure setPTEN13; inline;
  7070. procedure setPTEN14; inline;
  7071. procedure setPTEN15; inline;
  7072. procedure setPTEN1; inline;
  7073. procedure setPTEN2; inline;
  7074. procedure setPTEN3; inline;
  7075. procedure setPTEN4; inline;
  7076. procedure setPTEN5; inline;
  7077. procedure setPTEN6; inline;
  7078. procedure setPTEN7; inline;
  7079. procedure setPTEN8; inline;
  7080. procedure setPTEN9; inline;
  7081. property PTEN : TBits_16 read getPTEN write setPTEN;
  7082. property PTEN0 : TBits_1 read getPTEN0 write setPTEN0;
  7083. property PTEN1 : TBits_1 read getPTEN1 write setPTEN1;
  7084. property PTEN10 : TBits_1 read getPTEN10 write setPTEN10;
  7085. property PTEN11 : TBits_1 read getPTEN11 write setPTEN11;
  7086. property PTEN12 : TBits_1 read getPTEN12 write setPTEN12;
  7087. property PTEN13 : TBits_1 read getPTEN13 write setPTEN13;
  7088. property PTEN14 : TBits_1 read getPTEN14 write setPTEN14;
  7089. property PTEN15 : TBits_1 read getPTEN15 write setPTEN15;
  7090. property PTEN2 : TBits_1 read getPTEN2 write setPTEN2;
  7091. property PTEN3 : TBits_1 read getPTEN3 write setPTEN3;
  7092. property PTEN4 : TBits_1 read getPTEN4 write setPTEN4;
  7093. property PTEN5 : TBits_1 read getPTEN5 write setPTEN5;
  7094. property PTEN6 : TBits_1 read getPTEN6 write setPTEN6;
  7095. property PTEN7 : TBits_1 read getPTEN7 write setPTEN7;
  7096. property PTEN8 : TBits_1 read getPTEN8 write setPTEN8;
  7097. property PTEN9 : TBits_1 read getPTEN9 write setPTEN9;
  7098. property w : TBits_32 read getw write setw;
  7099. end;
  7100. TPMP_PMSTAT = record
  7101. private
  7102. function getIB0F : TBits_1; inline;
  7103. function getIB1F : TBits_1; inline;
  7104. function getIB2F : TBits_1; inline;
  7105. function getIB3F : TBits_1; inline;
  7106. function getIBF : TBits_1; inline;
  7107. function getIBOV : TBits_1; inline;
  7108. function getOB0E : TBits_1; inline;
  7109. function getOB1E : TBits_1; inline;
  7110. function getOB2E : TBits_1; inline;
  7111. function getOB3E : TBits_1; inline;
  7112. function getOBE : TBits_1; inline;
  7113. function getOBUF : TBits_1; inline;
  7114. function getw : TBits_32; inline;
  7115. procedure setIB0F(thebits : TBits_1); inline;
  7116. procedure setIB1F(thebits : TBits_1); inline;
  7117. procedure setIB2F(thebits : TBits_1); inline;
  7118. procedure setIB3F(thebits : TBits_1); inline;
  7119. procedure setIBF(thebits : TBits_1); inline;
  7120. procedure setIBOV(thebits : TBits_1); inline;
  7121. procedure setOB0E(thebits : TBits_1); inline;
  7122. procedure setOB1E(thebits : TBits_1); inline;
  7123. procedure setOB2E(thebits : TBits_1); inline;
  7124. procedure setOB3E(thebits : TBits_1); inline;
  7125. procedure setOBE(thebits : TBits_1); inline;
  7126. procedure setOBUF(thebits : TBits_1); inline;
  7127. procedure setw(thebits : TBits_32); inline;
  7128. public
  7129. procedure clearIB0F; inline;
  7130. procedure clearIB1F; inline;
  7131. procedure clearIB2F; inline;
  7132. procedure clearIB3F; inline;
  7133. procedure clearIBF; inline;
  7134. procedure clearIBOV; inline;
  7135. procedure clearOB0E; inline;
  7136. procedure clearOB1E; inline;
  7137. procedure clearOB2E; inline;
  7138. procedure clearOB3E; inline;
  7139. procedure clearOBE; inline;
  7140. procedure clearOBUF; inline;
  7141. procedure setIB0F; inline;
  7142. procedure setIB1F; inline;
  7143. procedure setIB2F; inline;
  7144. procedure setIB3F; inline;
  7145. procedure setIBF; inline;
  7146. procedure setIBOV; inline;
  7147. procedure setOB0E; inline;
  7148. procedure setOB1E; inline;
  7149. procedure setOB2E; inline;
  7150. procedure setOB3E; inline;
  7151. procedure setOBE; inline;
  7152. procedure setOBUF; inline;
  7153. property IB0F : TBits_1 read getIB0F write setIB0F;
  7154. property IB1F : TBits_1 read getIB1F write setIB1F;
  7155. property IB2F : TBits_1 read getIB2F write setIB2F;
  7156. property IB3F : TBits_1 read getIB3F write setIB3F;
  7157. property IBF : TBits_1 read getIBF write setIBF;
  7158. property IBOV : TBits_1 read getIBOV write setIBOV;
  7159. property OB0E : TBits_1 read getOB0E write setOB0E;
  7160. property OB1E : TBits_1 read getOB1E write setOB1E;
  7161. property OB2E : TBits_1 read getOB2E write setOB2E;
  7162. property OB3E : TBits_1 read getOB3E write setOB3E;
  7163. property OBE : TBits_1 read getOBE write setOBE;
  7164. property OBUF : TBits_1 read getOBUF write setOBUF;
  7165. property w : TBits_32 read getw write setw;
  7166. end;
  7167. type
  7168. TPMPRegisters = record
  7169. PMCONbits : TPMP_PMCON;
  7170. PMCON : longWord;
  7171. PMCONCLR : longWord;
  7172. PMCONSET : longWord;
  7173. PMCONINV : longWord;
  7174. PMMODEbits : TPMP_PMMODE;
  7175. PMMODE : longWord;
  7176. PMMODECLR : longWord;
  7177. PMMODESET : longWord;
  7178. PMMODEINV : longWord;
  7179. PMADDRbits : TPMP_PMADDR;
  7180. PMADDR : longWord;
  7181. PMADDRCLR : longWord;
  7182. PMADDRSET : longWord;
  7183. PMADDRINV : longWord;
  7184. PMDOUTbits : TPMP_PMDOUT;
  7185. PMDOUT : longWord;
  7186. PMDOUTCLR : longWord;
  7187. PMDOUTSET : longWord;
  7188. PMDOUTINV : longWord;
  7189. PMDINbits : TPMP_PMDIN;
  7190. PMDIN : longWord;
  7191. PMDINCLR : longWord;
  7192. PMDINSET : longWord;
  7193. PMDININV : longWord;
  7194. PMAENbits : TPMP_PMAEN;
  7195. PMAEN : longWord;
  7196. PMAENCLR : longWord;
  7197. PMAENSET : longWord;
  7198. PMAENINV : longWord;
  7199. PMSTATbits : TPMP_PMSTAT;
  7200. PMSTAT : longWord;
  7201. PMSTATCLR : longWord;
  7202. PMSTATSET : longWord;
  7203. PMSTATINV : longWord;
  7204. end;
  7205. TADC10_AD1CON1 = record
  7206. private
  7207. function getADON : TBits_1; inline;
  7208. function getADSIDL : TBits_1; inline;
  7209. function getASAM : TBits_1; inline;
  7210. function getCLRASAM : TBits_1; inline;
  7211. function getDONE : TBits_1; inline;
  7212. function getFORM : TBits_3; inline;
  7213. function getFORM0 : TBits_1; inline;
  7214. function getFORM1 : TBits_1; inline;
  7215. function getFORM2 : TBits_1; inline;
  7216. function getON : TBits_1; inline;
  7217. function getSAMP : TBits_1; inline;
  7218. function getSIDL : TBits_1; inline;
  7219. function getSSRC : TBits_3; inline;
  7220. function getSSRC0 : TBits_1; inline;
  7221. function getSSRC1 : TBits_1; inline;
  7222. function getSSRC2 : TBits_1; inline;
  7223. function getw : TBits_32; inline;
  7224. procedure setADON(thebits : TBits_1); inline;
  7225. procedure setADSIDL(thebits : TBits_1); inline;
  7226. procedure setASAM(thebits : TBits_1); inline;
  7227. procedure setCLRASAM(thebits : TBits_1); inline;
  7228. procedure setDONE(thebits : TBits_1); inline;
  7229. procedure setFORM(thebits : TBits_3); inline;
  7230. procedure setFORM0(thebits : TBits_1); inline;
  7231. procedure setFORM1(thebits : TBits_1); inline;
  7232. procedure setFORM2(thebits : TBits_1); inline;
  7233. procedure setON(thebits : TBits_1); inline;
  7234. procedure setSAMP(thebits : TBits_1); inline;
  7235. procedure setSIDL(thebits : TBits_1); inline;
  7236. procedure setSSRC(thebits : TBits_3); inline;
  7237. procedure setSSRC0(thebits : TBits_1); inline;
  7238. procedure setSSRC1(thebits : TBits_1); inline;
  7239. procedure setSSRC2(thebits : TBits_1); inline;
  7240. procedure setw(thebits : TBits_32); inline;
  7241. public
  7242. procedure clearADON; inline;
  7243. procedure clearADSIDL; inline;
  7244. procedure clearASAM; inline;
  7245. procedure clearCLRASAM; inline;
  7246. procedure clearDONE; inline;
  7247. procedure clearFORM0; inline;
  7248. procedure clearFORM1; inline;
  7249. procedure clearFORM2; inline;
  7250. procedure clearON; inline;
  7251. procedure clearSAMP; inline;
  7252. procedure clearSIDL; inline;
  7253. procedure clearSSRC0; inline;
  7254. procedure clearSSRC1; inline;
  7255. procedure clearSSRC2; inline;
  7256. procedure setADON; inline;
  7257. procedure setADSIDL; inline;
  7258. procedure setASAM; inline;
  7259. procedure setCLRASAM; inline;
  7260. procedure setDONE; inline;
  7261. procedure setFORM0; inline;
  7262. procedure setFORM1; inline;
  7263. procedure setFORM2; inline;
  7264. procedure setON; inline;
  7265. procedure setSAMP; inline;
  7266. procedure setSIDL; inline;
  7267. procedure setSSRC0; inline;
  7268. procedure setSSRC1; inline;
  7269. procedure setSSRC2; inline;
  7270. property ADON : TBits_1 read getADON write setADON;
  7271. property ADSIDL : TBits_1 read getADSIDL write setADSIDL;
  7272. property ASAM : TBits_1 read getASAM write setASAM;
  7273. property CLRASAM : TBits_1 read getCLRASAM write setCLRASAM;
  7274. property DONE : TBits_1 read getDONE write setDONE;
  7275. property FORM : TBits_3 read getFORM write setFORM;
  7276. property FORM0 : TBits_1 read getFORM0 write setFORM0;
  7277. property FORM1 : TBits_1 read getFORM1 write setFORM1;
  7278. property FORM2 : TBits_1 read getFORM2 write setFORM2;
  7279. property ON : TBits_1 read getON write setON;
  7280. property SAMP : TBits_1 read getSAMP write setSAMP;
  7281. property SIDL : TBits_1 read getSIDL write setSIDL;
  7282. property SSRC : TBits_3 read getSSRC write setSSRC;
  7283. property SSRC0 : TBits_1 read getSSRC0 write setSSRC0;
  7284. property SSRC1 : TBits_1 read getSSRC1 write setSSRC1;
  7285. property SSRC2 : TBits_1 read getSSRC2 write setSSRC2;
  7286. property w : TBits_32 read getw write setw;
  7287. end;
  7288. TADC10_AD1CON2 = record
  7289. private
  7290. function getALTS : TBits_1; inline;
  7291. function getBUFM : TBits_1; inline;
  7292. function getBUFS : TBits_1; inline;
  7293. function getCSCNA : TBits_1; inline;
  7294. function getOFFCAL : TBits_1; inline;
  7295. function getSMPI : TBits_4; inline;
  7296. function getSMPI0 : TBits_1; inline;
  7297. function getSMPI1 : TBits_1; inline;
  7298. function getSMPI2 : TBits_1; inline;
  7299. function getSMPI3 : TBits_1; inline;
  7300. function getVCFG : TBits_3; inline;
  7301. function getVCFG0 : TBits_1; inline;
  7302. function getVCFG1 : TBits_1; inline;
  7303. function getVCFG2 : TBits_1; inline;
  7304. function getw : TBits_32; inline;
  7305. procedure setALTS(thebits : TBits_1); inline;
  7306. procedure setBUFM(thebits : TBits_1); inline;
  7307. procedure setBUFS(thebits : TBits_1); inline;
  7308. procedure setCSCNA(thebits : TBits_1); inline;
  7309. procedure setOFFCAL(thebits : TBits_1); inline;
  7310. procedure setSMPI(thebits : TBits_4); inline;
  7311. procedure setSMPI0(thebits : TBits_1); inline;
  7312. procedure setSMPI1(thebits : TBits_1); inline;
  7313. procedure setSMPI2(thebits : TBits_1); inline;
  7314. procedure setSMPI3(thebits : TBits_1); inline;
  7315. procedure setVCFG(thebits : TBits_3); inline;
  7316. procedure setVCFG0(thebits : TBits_1); inline;
  7317. procedure setVCFG1(thebits : TBits_1); inline;
  7318. procedure setVCFG2(thebits : TBits_1); inline;
  7319. procedure setw(thebits : TBits_32); inline;
  7320. public
  7321. procedure clearALTS; inline;
  7322. procedure clearBUFM; inline;
  7323. procedure clearBUFS; inline;
  7324. procedure clearCSCNA; inline;
  7325. procedure clearOFFCAL; inline;
  7326. procedure clearSMPI0; inline;
  7327. procedure clearSMPI1; inline;
  7328. procedure clearSMPI2; inline;
  7329. procedure clearSMPI3; inline;
  7330. procedure clearVCFG0; inline;
  7331. procedure clearVCFG1; inline;
  7332. procedure clearVCFG2; inline;
  7333. procedure setALTS; inline;
  7334. procedure setBUFM; inline;
  7335. procedure setBUFS; inline;
  7336. procedure setCSCNA; inline;
  7337. procedure setOFFCAL; inline;
  7338. procedure setSMPI0; inline;
  7339. procedure setSMPI1; inline;
  7340. procedure setSMPI2; inline;
  7341. procedure setSMPI3; inline;
  7342. procedure setVCFG0; inline;
  7343. procedure setVCFG1; inline;
  7344. procedure setVCFG2; inline;
  7345. property ALTS : TBits_1 read getALTS write setALTS;
  7346. property BUFM : TBits_1 read getBUFM write setBUFM;
  7347. property BUFS : TBits_1 read getBUFS write setBUFS;
  7348. property CSCNA : TBits_1 read getCSCNA write setCSCNA;
  7349. property OFFCAL : TBits_1 read getOFFCAL write setOFFCAL;
  7350. property SMPI : TBits_4 read getSMPI write setSMPI;
  7351. property SMPI0 : TBits_1 read getSMPI0 write setSMPI0;
  7352. property SMPI1 : TBits_1 read getSMPI1 write setSMPI1;
  7353. property SMPI2 : TBits_1 read getSMPI2 write setSMPI2;
  7354. property SMPI3 : TBits_1 read getSMPI3 write setSMPI3;
  7355. property VCFG : TBits_3 read getVCFG write setVCFG;
  7356. property VCFG0 : TBits_1 read getVCFG0 write setVCFG0;
  7357. property VCFG1 : TBits_1 read getVCFG1 write setVCFG1;
  7358. property VCFG2 : TBits_1 read getVCFG2 write setVCFG2;
  7359. property w : TBits_32 read getw write setw;
  7360. end;
  7361. TADC10_AD1CON3 = record
  7362. private
  7363. function getADCS : TBits_8; inline;
  7364. function getADCS0 : TBits_1; inline;
  7365. function getADCS1 : TBits_1; inline;
  7366. function getADCS2 : TBits_1; inline;
  7367. function getADCS3 : TBits_1; inline;
  7368. function getADCS4 : TBits_1; inline;
  7369. function getADCS5 : TBits_1; inline;
  7370. function getADCS6 : TBits_1; inline;
  7371. function getADCS7 : TBits_1; inline;
  7372. function getADRC : TBits_1; inline;
  7373. function getSAMC : TBits_5; inline;
  7374. function getSAMC0 : TBits_1; inline;
  7375. function getSAMC1 : TBits_1; inline;
  7376. function getSAMC2 : TBits_1; inline;
  7377. function getSAMC3 : TBits_1; inline;
  7378. function getSAMC4 : TBits_1; inline;
  7379. function getw : TBits_32; inline;
  7380. procedure setADCS(thebits : TBits_8); inline;
  7381. procedure setADCS0(thebits : TBits_1); inline;
  7382. procedure setADCS1(thebits : TBits_1); inline;
  7383. procedure setADCS2(thebits : TBits_1); inline;
  7384. procedure setADCS3(thebits : TBits_1); inline;
  7385. procedure setADCS4(thebits : TBits_1); inline;
  7386. procedure setADCS5(thebits : TBits_1); inline;
  7387. procedure setADCS6(thebits : TBits_1); inline;
  7388. procedure setADCS7(thebits : TBits_1); inline;
  7389. procedure setADRC(thebits : TBits_1); inline;
  7390. procedure setSAMC(thebits : TBits_5); inline;
  7391. procedure setSAMC0(thebits : TBits_1); inline;
  7392. procedure setSAMC1(thebits : TBits_1); inline;
  7393. procedure setSAMC2(thebits : TBits_1); inline;
  7394. procedure setSAMC3(thebits : TBits_1); inline;
  7395. procedure setSAMC4(thebits : TBits_1); inline;
  7396. procedure setw(thebits : TBits_32); inline;
  7397. public
  7398. procedure clearADCS0; inline;
  7399. procedure clearADCS1; inline;
  7400. procedure clearADCS2; inline;
  7401. procedure clearADCS3; inline;
  7402. procedure clearADCS4; inline;
  7403. procedure clearADCS5; inline;
  7404. procedure clearADCS6; inline;
  7405. procedure clearADCS7; inline;
  7406. procedure clearADRC; inline;
  7407. procedure clearSAMC0; inline;
  7408. procedure clearSAMC1; inline;
  7409. procedure clearSAMC2; inline;
  7410. procedure clearSAMC3; inline;
  7411. procedure clearSAMC4; inline;
  7412. procedure setADCS0; inline;
  7413. procedure setADCS1; inline;
  7414. procedure setADCS2; inline;
  7415. procedure setADCS3; inline;
  7416. procedure setADCS4; inline;
  7417. procedure setADCS5; inline;
  7418. procedure setADCS6; inline;
  7419. procedure setADCS7; inline;
  7420. procedure setADRC; inline;
  7421. procedure setSAMC0; inline;
  7422. procedure setSAMC1; inline;
  7423. procedure setSAMC2; inline;
  7424. procedure setSAMC3; inline;
  7425. procedure setSAMC4; inline;
  7426. property ADCS : TBits_8 read getADCS write setADCS;
  7427. property ADCS0 : TBits_1 read getADCS0 write setADCS0;
  7428. property ADCS1 : TBits_1 read getADCS1 write setADCS1;
  7429. property ADCS2 : TBits_1 read getADCS2 write setADCS2;
  7430. property ADCS3 : TBits_1 read getADCS3 write setADCS3;
  7431. property ADCS4 : TBits_1 read getADCS4 write setADCS4;
  7432. property ADCS5 : TBits_1 read getADCS5 write setADCS5;
  7433. property ADCS6 : TBits_1 read getADCS6 write setADCS6;
  7434. property ADCS7 : TBits_1 read getADCS7 write setADCS7;
  7435. property ADRC : TBits_1 read getADRC write setADRC;
  7436. property SAMC : TBits_5 read getSAMC write setSAMC;
  7437. property SAMC0 : TBits_1 read getSAMC0 write setSAMC0;
  7438. property SAMC1 : TBits_1 read getSAMC1 write setSAMC1;
  7439. property SAMC2 : TBits_1 read getSAMC2 write setSAMC2;
  7440. property SAMC3 : TBits_1 read getSAMC3 write setSAMC3;
  7441. property SAMC4 : TBits_1 read getSAMC4 write setSAMC4;
  7442. property w : TBits_32 read getw write setw;
  7443. end;
  7444. TADC10_AD1CHS = record
  7445. private
  7446. function getCH0NA : TBits_1; inline;
  7447. function getCH0NB : TBits_1; inline;
  7448. function getCH0SA : TBits_4; inline;
  7449. function getCH0SA0 : TBits_1; inline;
  7450. function getCH0SA1 : TBits_1; inline;
  7451. function getCH0SA2 : TBits_1; inline;
  7452. function getCH0SA3 : TBits_1; inline;
  7453. function getCH0SB : TBits_4; inline;
  7454. function getCH0SB0 : TBits_1; inline;
  7455. function getCH0SB1 : TBits_1; inline;
  7456. function getCH0SB2 : TBits_1; inline;
  7457. function getCH0SB3 : TBits_1; inline;
  7458. function getw : TBits_32; inline;
  7459. procedure setCH0NA(thebits : TBits_1); inline;
  7460. procedure setCH0NB(thebits : TBits_1); inline;
  7461. procedure setCH0SA(thebits : TBits_4); inline;
  7462. procedure setCH0SA0(thebits : TBits_1); inline;
  7463. procedure setCH0SA1(thebits : TBits_1); inline;
  7464. procedure setCH0SA2(thebits : TBits_1); inline;
  7465. procedure setCH0SA3(thebits : TBits_1); inline;
  7466. procedure setCH0SB(thebits : TBits_4); inline;
  7467. procedure setCH0SB0(thebits : TBits_1); inline;
  7468. procedure setCH0SB1(thebits : TBits_1); inline;
  7469. procedure setCH0SB2(thebits : TBits_1); inline;
  7470. procedure setCH0SB3(thebits : TBits_1); inline;
  7471. procedure setw(thebits : TBits_32); inline;
  7472. public
  7473. procedure clearCH0NA; inline;
  7474. procedure clearCH0NB; inline;
  7475. procedure clearCH0SA0; inline;
  7476. procedure clearCH0SA1; inline;
  7477. procedure clearCH0SA2; inline;
  7478. procedure clearCH0SA3; inline;
  7479. procedure clearCH0SB0; inline;
  7480. procedure clearCH0SB1; inline;
  7481. procedure clearCH0SB2; inline;
  7482. procedure clearCH0SB3; inline;
  7483. procedure setCH0NA; inline;
  7484. procedure setCH0NB; inline;
  7485. procedure setCH0SA0; inline;
  7486. procedure setCH0SA1; inline;
  7487. procedure setCH0SA2; inline;
  7488. procedure setCH0SA3; inline;
  7489. procedure setCH0SB0; inline;
  7490. procedure setCH0SB1; inline;
  7491. procedure setCH0SB2; inline;
  7492. procedure setCH0SB3; inline;
  7493. property CH0NA : TBits_1 read getCH0NA write setCH0NA;
  7494. property CH0NB : TBits_1 read getCH0NB write setCH0NB;
  7495. property CH0SA : TBits_4 read getCH0SA write setCH0SA;
  7496. property CH0SA0 : TBits_1 read getCH0SA0 write setCH0SA0;
  7497. property CH0SA1 : TBits_1 read getCH0SA1 write setCH0SA1;
  7498. property CH0SA2 : TBits_1 read getCH0SA2 write setCH0SA2;
  7499. property CH0SA3 : TBits_1 read getCH0SA3 write setCH0SA3;
  7500. property CH0SB : TBits_4 read getCH0SB write setCH0SB;
  7501. property CH0SB0 : TBits_1 read getCH0SB0 write setCH0SB0;
  7502. property CH0SB1 : TBits_1 read getCH0SB1 write setCH0SB1;
  7503. property CH0SB2 : TBits_1 read getCH0SB2 write setCH0SB2;
  7504. property CH0SB3 : TBits_1 read getCH0SB3 write setCH0SB3;
  7505. property w : TBits_32 read getw write setw;
  7506. end;
  7507. TADC10_AD1CSSL = record
  7508. private
  7509. function getCSSL : TBits_16; inline;
  7510. function getCSSL0 : TBits_1; inline;
  7511. function getCSSL1 : TBits_1; inline;
  7512. function getCSSL10 : TBits_1; inline;
  7513. function getCSSL11 : TBits_1; inline;
  7514. function getCSSL12 : TBits_1; inline;
  7515. function getCSSL13 : TBits_1; inline;
  7516. function getCSSL14 : TBits_1; inline;
  7517. function getCSSL15 : TBits_1; inline;
  7518. function getCSSL2 : TBits_1; inline;
  7519. function getCSSL3 : TBits_1; inline;
  7520. function getCSSL4 : TBits_1; inline;
  7521. function getCSSL5 : TBits_1; inline;
  7522. function getCSSL6 : TBits_1; inline;
  7523. function getCSSL7 : TBits_1; inline;
  7524. function getCSSL8 : TBits_1; inline;
  7525. function getCSSL9 : TBits_1; inline;
  7526. function getw : TBits_32; inline;
  7527. procedure setCSSL(thebits : TBits_16); inline;
  7528. procedure setCSSL0(thebits : TBits_1); inline;
  7529. procedure setCSSL1(thebits : TBits_1); inline;
  7530. procedure setCSSL10(thebits : TBits_1); inline;
  7531. procedure setCSSL11(thebits : TBits_1); inline;
  7532. procedure setCSSL12(thebits : TBits_1); inline;
  7533. procedure setCSSL13(thebits : TBits_1); inline;
  7534. procedure setCSSL14(thebits : TBits_1); inline;
  7535. procedure setCSSL15(thebits : TBits_1); inline;
  7536. procedure setCSSL2(thebits : TBits_1); inline;
  7537. procedure setCSSL3(thebits : TBits_1); inline;
  7538. procedure setCSSL4(thebits : TBits_1); inline;
  7539. procedure setCSSL5(thebits : TBits_1); inline;
  7540. procedure setCSSL6(thebits : TBits_1); inline;
  7541. procedure setCSSL7(thebits : TBits_1); inline;
  7542. procedure setCSSL8(thebits : TBits_1); inline;
  7543. procedure setCSSL9(thebits : TBits_1); inline;
  7544. procedure setw(thebits : TBits_32); inline;
  7545. public
  7546. procedure clearCSSL0; inline;
  7547. procedure clearCSSL10; inline;
  7548. procedure clearCSSL11; inline;
  7549. procedure clearCSSL12; inline;
  7550. procedure clearCSSL13; inline;
  7551. procedure clearCSSL14; inline;
  7552. procedure clearCSSL15; inline;
  7553. procedure clearCSSL1; inline;
  7554. procedure clearCSSL2; inline;
  7555. procedure clearCSSL3; inline;
  7556. procedure clearCSSL4; inline;
  7557. procedure clearCSSL5; inline;
  7558. procedure clearCSSL6; inline;
  7559. procedure clearCSSL7; inline;
  7560. procedure clearCSSL8; inline;
  7561. procedure clearCSSL9; inline;
  7562. procedure setCSSL0; inline;
  7563. procedure setCSSL10; inline;
  7564. procedure setCSSL11; inline;
  7565. procedure setCSSL12; inline;
  7566. procedure setCSSL13; inline;
  7567. procedure setCSSL14; inline;
  7568. procedure setCSSL15; inline;
  7569. procedure setCSSL1; inline;
  7570. procedure setCSSL2; inline;
  7571. procedure setCSSL3; inline;
  7572. procedure setCSSL4; inline;
  7573. procedure setCSSL5; inline;
  7574. procedure setCSSL6; inline;
  7575. procedure setCSSL7; inline;
  7576. procedure setCSSL8; inline;
  7577. procedure setCSSL9; inline;
  7578. property CSSL : TBits_16 read getCSSL write setCSSL;
  7579. property CSSL0 : TBits_1 read getCSSL0 write setCSSL0;
  7580. property CSSL1 : TBits_1 read getCSSL1 write setCSSL1;
  7581. property CSSL10 : TBits_1 read getCSSL10 write setCSSL10;
  7582. property CSSL11 : TBits_1 read getCSSL11 write setCSSL11;
  7583. property CSSL12 : TBits_1 read getCSSL12 write setCSSL12;
  7584. property CSSL13 : TBits_1 read getCSSL13 write setCSSL13;
  7585. property CSSL14 : TBits_1 read getCSSL14 write setCSSL14;
  7586. property CSSL15 : TBits_1 read getCSSL15 write setCSSL15;
  7587. property CSSL2 : TBits_1 read getCSSL2 write setCSSL2;
  7588. property CSSL3 : TBits_1 read getCSSL3 write setCSSL3;
  7589. property CSSL4 : TBits_1 read getCSSL4 write setCSSL4;
  7590. property CSSL5 : TBits_1 read getCSSL5 write setCSSL5;
  7591. property CSSL6 : TBits_1 read getCSSL6 write setCSSL6;
  7592. property CSSL7 : TBits_1 read getCSSL7 write setCSSL7;
  7593. property CSSL8 : TBits_1 read getCSSL8 write setCSSL8;
  7594. property CSSL9 : TBits_1 read getCSSL9 write setCSSL9;
  7595. property w : TBits_32 read getw write setw;
  7596. end;
  7597. TADC10_AD1PCFG = record
  7598. private
  7599. function getPCFG : TBits_16; inline;
  7600. function getPCFG0 : TBits_1; inline;
  7601. function getPCFG1 : TBits_1; inline;
  7602. function getPCFG10 : TBits_1; inline;
  7603. function getPCFG11 : TBits_1; inline;
  7604. function getPCFG12 : TBits_1; inline;
  7605. function getPCFG13 : TBits_1; inline;
  7606. function getPCFG14 : TBits_1; inline;
  7607. function getPCFG15 : TBits_1; inline;
  7608. function getPCFG2 : TBits_1; inline;
  7609. function getPCFG3 : TBits_1; inline;
  7610. function getPCFG4 : TBits_1; inline;
  7611. function getPCFG5 : TBits_1; inline;
  7612. function getPCFG6 : TBits_1; inline;
  7613. function getPCFG7 : TBits_1; inline;
  7614. function getPCFG8 : TBits_1; inline;
  7615. function getPCFG9 : TBits_1; inline;
  7616. function getw : TBits_32; inline;
  7617. procedure setPCFG(thebits : TBits_16); inline;
  7618. procedure setPCFG0(thebits : TBits_1); inline;
  7619. procedure setPCFG1(thebits : TBits_1); inline;
  7620. procedure setPCFG10(thebits : TBits_1); inline;
  7621. procedure setPCFG11(thebits : TBits_1); inline;
  7622. procedure setPCFG12(thebits : TBits_1); inline;
  7623. procedure setPCFG13(thebits : TBits_1); inline;
  7624. procedure setPCFG14(thebits : TBits_1); inline;
  7625. procedure setPCFG15(thebits : TBits_1); inline;
  7626. procedure setPCFG2(thebits : TBits_1); inline;
  7627. procedure setPCFG3(thebits : TBits_1); inline;
  7628. procedure setPCFG4(thebits : TBits_1); inline;
  7629. procedure setPCFG5(thebits : TBits_1); inline;
  7630. procedure setPCFG6(thebits : TBits_1); inline;
  7631. procedure setPCFG7(thebits : TBits_1); inline;
  7632. procedure setPCFG8(thebits : TBits_1); inline;
  7633. procedure setPCFG9(thebits : TBits_1); inline;
  7634. procedure setw(thebits : TBits_32); inline;
  7635. public
  7636. procedure clearPCFG0; inline;
  7637. procedure clearPCFG10; inline;
  7638. procedure clearPCFG11; inline;
  7639. procedure clearPCFG12; inline;
  7640. procedure clearPCFG13; inline;
  7641. procedure clearPCFG14; inline;
  7642. procedure clearPCFG15; inline;
  7643. procedure clearPCFG1; inline;
  7644. procedure clearPCFG2; inline;
  7645. procedure clearPCFG3; inline;
  7646. procedure clearPCFG4; inline;
  7647. procedure clearPCFG5; inline;
  7648. procedure clearPCFG6; inline;
  7649. procedure clearPCFG7; inline;
  7650. procedure clearPCFG8; inline;
  7651. procedure clearPCFG9; inline;
  7652. procedure setPCFG0; inline;
  7653. procedure setPCFG10; inline;
  7654. procedure setPCFG11; inline;
  7655. procedure setPCFG12; inline;
  7656. procedure setPCFG13; inline;
  7657. procedure setPCFG14; inline;
  7658. procedure setPCFG15; inline;
  7659. procedure setPCFG1; inline;
  7660. procedure setPCFG2; inline;
  7661. procedure setPCFG3; inline;
  7662. procedure setPCFG4; inline;
  7663. procedure setPCFG5; inline;
  7664. procedure setPCFG6; inline;
  7665. procedure setPCFG7; inline;
  7666. procedure setPCFG8; inline;
  7667. procedure setPCFG9; inline;
  7668. property PCFG : TBits_16 read getPCFG write setPCFG;
  7669. property PCFG0 : TBits_1 read getPCFG0 write setPCFG0;
  7670. property PCFG1 : TBits_1 read getPCFG1 write setPCFG1;
  7671. property PCFG10 : TBits_1 read getPCFG10 write setPCFG10;
  7672. property PCFG11 : TBits_1 read getPCFG11 write setPCFG11;
  7673. property PCFG12 : TBits_1 read getPCFG12 write setPCFG12;
  7674. property PCFG13 : TBits_1 read getPCFG13 write setPCFG13;
  7675. property PCFG14 : TBits_1 read getPCFG14 write setPCFG14;
  7676. property PCFG15 : TBits_1 read getPCFG15 write setPCFG15;
  7677. property PCFG2 : TBits_1 read getPCFG2 write setPCFG2;
  7678. property PCFG3 : TBits_1 read getPCFG3 write setPCFG3;
  7679. property PCFG4 : TBits_1 read getPCFG4 write setPCFG4;
  7680. property PCFG5 : TBits_1 read getPCFG5 write setPCFG5;
  7681. property PCFG6 : TBits_1 read getPCFG6 write setPCFG6;
  7682. property PCFG7 : TBits_1 read getPCFG7 write setPCFG7;
  7683. property PCFG8 : TBits_1 read getPCFG8 write setPCFG8;
  7684. property PCFG9 : TBits_1 read getPCFG9 write setPCFG9;
  7685. property w : TBits_32 read getw write setw;
  7686. end;
  7687. type
  7688. TADC10Registers = record
  7689. AD1CON1bits : TADC10_AD1CON1;
  7690. AD1CON1 : longWord;
  7691. AD1CON1CLR : longWord;
  7692. AD1CON1SET : longWord;
  7693. AD1CON1INV : longWord;
  7694. AD1CON2bits : TADC10_AD1CON2;
  7695. AD1CON2 : longWord;
  7696. AD1CON2CLR : longWord;
  7697. AD1CON2SET : longWord;
  7698. AD1CON2INV : longWord;
  7699. AD1CON3bits : TADC10_AD1CON3;
  7700. AD1CON3 : longWord;
  7701. AD1CON3CLR : longWord;
  7702. AD1CON3SET : longWord;
  7703. AD1CON3INV : longWord;
  7704. AD1CHSbits : TADC10_AD1CHS;
  7705. AD1CHS : longWord;
  7706. AD1CHSCLR : longWord;
  7707. AD1CHSSET : longWord;
  7708. AD1CHSINV : longWord;
  7709. AD1CSSLbits : TADC10_AD1CSSL;
  7710. AD1CSSL : longWord;
  7711. AD1CSSLCLR : longWord;
  7712. AD1CSSLSET : longWord;
  7713. AD1CSSLINV : longWord;
  7714. AD1PCFGbits : TADC10_AD1PCFG;
  7715. AD1PCFG : longWord;
  7716. AD1PCFGCLR : longWord;
  7717. AD1PCFGSET : longWord;
  7718. AD1PCFGINV : longWord;
  7719. ADC1BUF0 : longWord;
  7720. ADC1BUF1 : longWord;
  7721. ADC1BUF2 : longWord;
  7722. ADC1BUF3 : longWord;
  7723. ADC1BUF4 : longWord;
  7724. ADC1BUF5 : longWord;
  7725. ADC1BUF6 : longWord;
  7726. ADC1BUF7 : longWord;
  7727. ADC1BUF8 : longWord;
  7728. ADC1BUF9 : longWord;
  7729. ADC1BUFA : longWord;
  7730. ADC1BUFB : longWord;
  7731. ADC1BUFC : longWord;
  7732. ADC1BUFD : longWord;
  7733. ADC1BUFE : longWord;
  7734. ADC1BUFF : longWord;
  7735. end;
  7736. TCVR_CVRCON = record
  7737. private
  7738. function getBGSEL : TBits_2; inline;
  7739. function getBGSEL0 : TBits_1; inline;
  7740. function getBGSEL1 : TBits_1; inline;
  7741. function getCVR : TBits_4; inline;
  7742. function getCVR0 : TBits_1; inline;
  7743. function getCVR1 : TBits_1; inline;
  7744. function getCVR2 : TBits_1; inline;
  7745. function getCVR3 : TBits_1; inline;
  7746. function getCVROE : TBits_1; inline;
  7747. function getCVRR : TBits_1; inline;
  7748. function getCVRSS : TBits_1; inline;
  7749. function getON : TBits_1; inline;
  7750. function getVREFSEL : TBits_1; inline;
  7751. function getw : TBits_32; inline;
  7752. procedure setBGSEL(thebits : TBits_2); inline;
  7753. procedure setBGSEL0(thebits : TBits_1); inline;
  7754. procedure setBGSEL1(thebits : TBits_1); inline;
  7755. procedure setCVR(thebits : TBits_4); inline;
  7756. procedure setCVR0(thebits : TBits_1); inline;
  7757. procedure setCVR1(thebits : TBits_1); inline;
  7758. procedure setCVR2(thebits : TBits_1); inline;
  7759. procedure setCVR3(thebits : TBits_1); inline;
  7760. procedure setCVROE(thebits : TBits_1); inline;
  7761. procedure setCVRR(thebits : TBits_1); inline;
  7762. procedure setCVRSS(thebits : TBits_1); inline;
  7763. procedure setON(thebits : TBits_1); inline;
  7764. procedure setVREFSEL(thebits : TBits_1); inline;
  7765. procedure setw(thebits : TBits_32); inline;
  7766. public
  7767. procedure clearBGSEL0; inline;
  7768. procedure clearBGSEL1; inline;
  7769. procedure clearCVR0; inline;
  7770. procedure clearCVR1; inline;
  7771. procedure clearCVR2; inline;
  7772. procedure clearCVR3; inline;
  7773. procedure clearCVROE; inline;
  7774. procedure clearCVRR; inline;
  7775. procedure clearCVRSS; inline;
  7776. procedure clearON; inline;
  7777. procedure clearVREFSEL; inline;
  7778. procedure setBGSEL0; inline;
  7779. procedure setBGSEL1; inline;
  7780. procedure setCVR0; inline;
  7781. procedure setCVR1; inline;
  7782. procedure setCVR2; inline;
  7783. procedure setCVR3; inline;
  7784. procedure setCVROE; inline;
  7785. procedure setCVRR; inline;
  7786. procedure setCVRSS; inline;
  7787. procedure setON; inline;
  7788. procedure setVREFSEL; inline;
  7789. property BGSEL : TBits_2 read getBGSEL write setBGSEL;
  7790. property BGSEL0 : TBits_1 read getBGSEL0 write setBGSEL0;
  7791. property BGSEL1 : TBits_1 read getBGSEL1 write setBGSEL1;
  7792. property CVR : TBits_4 read getCVR write setCVR;
  7793. property CVR0 : TBits_1 read getCVR0 write setCVR0;
  7794. property CVR1 : TBits_1 read getCVR1 write setCVR1;
  7795. property CVR2 : TBits_1 read getCVR2 write setCVR2;
  7796. property CVR3 : TBits_1 read getCVR3 write setCVR3;
  7797. property CVROE : TBits_1 read getCVROE write setCVROE;
  7798. property CVRR : TBits_1 read getCVRR write setCVRR;
  7799. property CVRSS : TBits_1 read getCVRSS write setCVRSS;
  7800. property ON : TBits_1 read getON write setON;
  7801. property VREFSEL : TBits_1 read getVREFSEL write setVREFSEL;
  7802. property w : TBits_32 read getw write setw;
  7803. end;
  7804. type
  7805. TCVRRegisters = record
  7806. CVRCONbits : TCVR_CVRCON;
  7807. CVRCON : longWord;
  7808. CVRCONCLR : longWord;
  7809. CVRCONSET : longWord;
  7810. CVRCONINV : longWord;
  7811. end;
  7812. TCMP_CM1CON = record
  7813. private
  7814. function getCCH : TBits_2; inline;
  7815. function getCCH0 : TBits_1; inline;
  7816. function getCCH1 : TBits_1; inline;
  7817. function getCOE : TBits_1; inline;
  7818. function getCOUT : TBits_1; inline;
  7819. function getCPOL : TBits_1; inline;
  7820. function getCREF : TBits_1; inline;
  7821. function getEVPOL : TBits_2; inline;
  7822. function getEVPOL0 : TBits_1; inline;
  7823. function getEVPOL1 : TBits_1; inline;
  7824. function getON : TBits_1; inline;
  7825. function getw : TBits_32; inline;
  7826. procedure setCCH(thebits : TBits_2); inline;
  7827. procedure setCCH0(thebits : TBits_1); inline;
  7828. procedure setCCH1(thebits : TBits_1); inline;
  7829. procedure setCOE(thebits : TBits_1); inline;
  7830. procedure setCOUT(thebits : TBits_1); inline;
  7831. procedure setCPOL(thebits : TBits_1); inline;
  7832. procedure setCREF(thebits : TBits_1); inline;
  7833. procedure setEVPOL(thebits : TBits_2); inline;
  7834. procedure setEVPOL0(thebits : TBits_1); inline;
  7835. procedure setEVPOL1(thebits : TBits_1); inline;
  7836. procedure setON(thebits : TBits_1); inline;
  7837. procedure setw(thebits : TBits_32); inline;
  7838. public
  7839. procedure clearCCH0; inline;
  7840. procedure clearCCH1; inline;
  7841. procedure clearCOE; inline;
  7842. procedure clearCOUT; inline;
  7843. procedure clearCPOL; inline;
  7844. procedure clearCREF; inline;
  7845. procedure clearEVPOL0; inline;
  7846. procedure clearEVPOL1; inline;
  7847. procedure clearON; inline;
  7848. procedure setCCH0; inline;
  7849. procedure setCCH1; inline;
  7850. procedure setCOE; inline;
  7851. procedure setCOUT; inline;
  7852. procedure setCPOL; inline;
  7853. procedure setCREF; inline;
  7854. procedure setEVPOL0; inline;
  7855. procedure setEVPOL1; inline;
  7856. procedure setON; inline;
  7857. property CCH : TBits_2 read getCCH write setCCH;
  7858. property CCH0 : TBits_1 read getCCH0 write setCCH0;
  7859. property CCH1 : TBits_1 read getCCH1 write setCCH1;
  7860. property COE : TBits_1 read getCOE write setCOE;
  7861. property COUT : TBits_1 read getCOUT write setCOUT;
  7862. property CPOL : TBits_1 read getCPOL write setCPOL;
  7863. property CREF : TBits_1 read getCREF write setCREF;
  7864. property EVPOL : TBits_2 read getEVPOL write setEVPOL;
  7865. property EVPOL0 : TBits_1 read getEVPOL0 write setEVPOL0;
  7866. property EVPOL1 : TBits_1 read getEVPOL1 write setEVPOL1;
  7867. property ON : TBits_1 read getON write setON;
  7868. property w : TBits_32 read getw write setw;
  7869. end;
  7870. TCMP_CM2CON = record
  7871. private
  7872. function getCCH : TBits_2; inline;
  7873. function getCCH0 : TBits_1; inline;
  7874. function getCCH1 : TBits_1; inline;
  7875. function getCOE : TBits_1; inline;
  7876. function getCOUT : TBits_1; inline;
  7877. function getCPOL : TBits_1; inline;
  7878. function getCREF : TBits_1; inline;
  7879. function getEVPOL : TBits_2; inline;
  7880. function getEVPOL0 : TBits_1; inline;
  7881. function getEVPOL1 : TBits_1; inline;
  7882. function getON : TBits_1; inline;
  7883. function getw : TBits_32; inline;
  7884. procedure setCCH(thebits : TBits_2); inline;
  7885. procedure setCCH0(thebits : TBits_1); inline;
  7886. procedure setCCH1(thebits : TBits_1); inline;
  7887. procedure setCOE(thebits : TBits_1); inline;
  7888. procedure setCOUT(thebits : TBits_1); inline;
  7889. procedure setCPOL(thebits : TBits_1); inline;
  7890. procedure setCREF(thebits : TBits_1); inline;
  7891. procedure setEVPOL(thebits : TBits_2); inline;
  7892. procedure setEVPOL0(thebits : TBits_1); inline;
  7893. procedure setEVPOL1(thebits : TBits_1); inline;
  7894. procedure setON(thebits : TBits_1); inline;
  7895. procedure setw(thebits : TBits_32); inline;
  7896. public
  7897. procedure clearCCH0; inline;
  7898. procedure clearCCH1; inline;
  7899. procedure clearCOE; inline;
  7900. procedure clearCOUT; inline;
  7901. procedure clearCPOL; inline;
  7902. procedure clearCREF; inline;
  7903. procedure clearEVPOL0; inline;
  7904. procedure clearEVPOL1; inline;
  7905. procedure clearON; inline;
  7906. procedure setCCH0; inline;
  7907. procedure setCCH1; inline;
  7908. procedure setCOE; inline;
  7909. procedure setCOUT; inline;
  7910. procedure setCPOL; inline;
  7911. procedure setCREF; inline;
  7912. procedure setEVPOL0; inline;
  7913. procedure setEVPOL1; inline;
  7914. procedure setON; inline;
  7915. property CCH : TBits_2 read getCCH write setCCH;
  7916. property CCH0 : TBits_1 read getCCH0 write setCCH0;
  7917. property CCH1 : TBits_1 read getCCH1 write setCCH1;
  7918. property COE : TBits_1 read getCOE write setCOE;
  7919. property COUT : TBits_1 read getCOUT write setCOUT;
  7920. property CPOL : TBits_1 read getCPOL write setCPOL;
  7921. property CREF : TBits_1 read getCREF write setCREF;
  7922. property EVPOL : TBits_2 read getEVPOL write setEVPOL;
  7923. property EVPOL0 : TBits_1 read getEVPOL0 write setEVPOL0;
  7924. property EVPOL1 : TBits_1 read getEVPOL1 write setEVPOL1;
  7925. property ON : TBits_1 read getON write setON;
  7926. property w : TBits_32 read getw write setw;
  7927. end;
  7928. TCMP_CMSTAT = record
  7929. private
  7930. function getC1OUT : TBits_1; inline;
  7931. function getC2OUT : TBits_1; inline;
  7932. function getSIDL : TBits_1; inline;
  7933. function getw : TBits_32; inline;
  7934. procedure setC1OUT(thebits : TBits_1); inline;
  7935. procedure setC2OUT(thebits : TBits_1); inline;
  7936. procedure setSIDL(thebits : TBits_1); inline;
  7937. procedure setw(thebits : TBits_32); inline;
  7938. public
  7939. procedure clearC1OUT; inline;
  7940. procedure clearC2OUT; inline;
  7941. procedure clearSIDL; inline;
  7942. procedure setC1OUT; inline;
  7943. procedure setC2OUT; inline;
  7944. procedure setSIDL; inline;
  7945. property C1OUT : TBits_1 read getC1OUT write setC1OUT;
  7946. property C2OUT : TBits_1 read getC2OUT write setC2OUT;
  7947. property SIDL : TBits_1 read getSIDL write setSIDL;
  7948. property w : TBits_32 read getw write setw;
  7949. end;
  7950. type
  7951. TCMPRegisters = record
  7952. CM1CONbits : TCMP_CM1CON;
  7953. CM1CON : longWord;
  7954. CM1CONCLR : longWord;
  7955. CM1CONSET : longWord;
  7956. CM1CONINV : longWord;
  7957. CM2CONbits : TCMP_CM2CON;
  7958. CM2CON : longWord;
  7959. CM2CONCLR : longWord;
  7960. CM2CONSET : longWord;
  7961. CM2CONINV : longWord;
  7962. CMSTATbits : TCMP_CMSTAT;
  7963. CMSTAT : longWord;
  7964. CMSTATCLR : longWord;
  7965. CMSTATSET : longWord;
  7966. CMSTATINV : longWord;
  7967. end;
  7968. TOSC_OSCCON = record
  7969. private
  7970. function getCF : TBits_1; inline;
  7971. function getCLKLOCK : TBits_1; inline;
  7972. function getCOSC : TBits_3; inline;
  7973. function getCOSC0 : TBits_1; inline;
  7974. function getCOSC1 : TBits_1; inline;
  7975. function getCOSC2 : TBits_1; inline;
  7976. function getFRCDIV : TBits_3; inline;
  7977. function getFRCDIV0 : TBits_1; inline;
  7978. function getFRCDIV1 : TBits_1; inline;
  7979. function getFRCDIV2 : TBits_1; inline;
  7980. function getNOSC : TBits_3; inline;
  7981. function getNOSC0 : TBits_1; inline;
  7982. function getNOSC1 : TBits_1; inline;
  7983. function getNOSC2 : TBits_1; inline;
  7984. function getOSWEN : TBits_1; inline;
  7985. function getPBDIV : TBits_2; inline;
  7986. function getPBDIV0 : TBits_1; inline;
  7987. function getPBDIV1 : TBits_1; inline;
  7988. function getPLLMULT : TBits_3; inline;
  7989. function getPLLMULT0 : TBits_1; inline;
  7990. function getPLLMULT1 : TBits_1; inline;
  7991. function getPLLMULT2 : TBits_1; inline;
  7992. function getPLLODIV : TBits_3; inline;
  7993. function getPLLODIV0 : TBits_1; inline;
  7994. function getPLLODIV1 : TBits_1; inline;
  7995. function getPLLODIV2 : TBits_1; inline;
  7996. function getSLOCK : TBits_1; inline;
  7997. function getSLPEN : TBits_1; inline;
  7998. function getSOSCEN : TBits_1; inline;
  7999. function getSOSCRDY : TBits_1; inline;
  8000. function getUFRCEN : TBits_1; inline;
  8001. function getULOCK : TBits_1; inline;
  8002. function getw : TBits_32; inline;
  8003. procedure setCF(thebits : TBits_1); inline;
  8004. procedure setCLKLOCK(thebits : TBits_1); inline;
  8005. procedure setCOSC(thebits : TBits_3); inline;
  8006. procedure setCOSC0(thebits : TBits_1); inline;
  8007. procedure setCOSC1(thebits : TBits_1); inline;
  8008. procedure setCOSC2(thebits : TBits_1); inline;
  8009. procedure setFRCDIV(thebits : TBits_3); inline;
  8010. procedure setFRCDIV0(thebits : TBits_1); inline;
  8011. procedure setFRCDIV1(thebits : TBits_1); inline;
  8012. procedure setFRCDIV2(thebits : TBits_1); inline;
  8013. procedure setNOSC(thebits : TBits_3); inline;
  8014. procedure setNOSC0(thebits : TBits_1); inline;
  8015. procedure setNOSC1(thebits : TBits_1); inline;
  8016. procedure setNOSC2(thebits : TBits_1); inline;
  8017. procedure setOSWEN(thebits : TBits_1); inline;
  8018. procedure setPBDIV(thebits : TBits_2); inline;
  8019. procedure setPBDIV0(thebits : TBits_1); inline;
  8020. procedure setPBDIV1(thebits : TBits_1); inline;
  8021. procedure setPLLMULT(thebits : TBits_3); inline;
  8022. procedure setPLLMULT0(thebits : TBits_1); inline;
  8023. procedure setPLLMULT1(thebits : TBits_1); inline;
  8024. procedure setPLLMULT2(thebits : TBits_1); inline;
  8025. procedure setPLLODIV(thebits : TBits_3); inline;
  8026. procedure setPLLODIV0(thebits : TBits_1); inline;
  8027. procedure setPLLODIV1(thebits : TBits_1); inline;
  8028. procedure setPLLODIV2(thebits : TBits_1); inline;
  8029. procedure setSLOCK(thebits : TBits_1); inline;
  8030. procedure setSLPEN(thebits : TBits_1); inline;
  8031. procedure setSOSCEN(thebits : TBits_1); inline;
  8032. procedure setSOSCRDY(thebits : TBits_1); inline;
  8033. procedure setUFRCEN(thebits : TBits_1); inline;
  8034. procedure setULOCK(thebits : TBits_1); inline;
  8035. procedure setw(thebits : TBits_32); inline;
  8036. public
  8037. procedure clearCF; inline;
  8038. procedure clearCLKLOCK; inline;
  8039. procedure clearCOSC0; inline;
  8040. procedure clearCOSC1; inline;
  8041. procedure clearCOSC2; inline;
  8042. procedure clearFRCDIV0; inline;
  8043. procedure clearFRCDIV1; inline;
  8044. procedure clearFRCDIV2; inline;
  8045. procedure clearNOSC0; inline;
  8046. procedure clearNOSC1; inline;
  8047. procedure clearNOSC2; inline;
  8048. procedure clearOSWEN; inline;
  8049. procedure clearPBDIV0; inline;
  8050. procedure clearPBDIV1; inline;
  8051. procedure clearPLLMULT0; inline;
  8052. procedure clearPLLMULT1; inline;
  8053. procedure clearPLLMULT2; inline;
  8054. procedure clearPLLODIV0; inline;
  8055. procedure clearPLLODIV1; inline;
  8056. procedure clearPLLODIV2; inline;
  8057. procedure clearSLOCK; inline;
  8058. procedure clearSLPEN; inline;
  8059. procedure clearSOSCEN; inline;
  8060. procedure clearSOSCRDY; inline;
  8061. procedure clearUFRCEN; inline;
  8062. procedure clearULOCK; inline;
  8063. procedure setCF; inline;
  8064. procedure setCLKLOCK; inline;
  8065. procedure setCOSC0; inline;
  8066. procedure setCOSC1; inline;
  8067. procedure setCOSC2; inline;
  8068. procedure setFRCDIV0; inline;
  8069. procedure setFRCDIV1; inline;
  8070. procedure setFRCDIV2; inline;
  8071. procedure setNOSC0; inline;
  8072. procedure setNOSC1; inline;
  8073. procedure setNOSC2; inline;
  8074. procedure setOSWEN; inline;
  8075. procedure setPBDIV0; inline;
  8076. procedure setPBDIV1; inline;
  8077. procedure setPLLMULT0; inline;
  8078. procedure setPLLMULT1; inline;
  8079. procedure setPLLMULT2; inline;
  8080. procedure setPLLODIV0; inline;
  8081. procedure setPLLODIV1; inline;
  8082. procedure setPLLODIV2; inline;
  8083. procedure setSLOCK; inline;
  8084. procedure setSLPEN; inline;
  8085. procedure setSOSCEN; inline;
  8086. procedure setSOSCRDY; inline;
  8087. procedure setUFRCEN; inline;
  8088. procedure setULOCK; inline;
  8089. property CF : TBits_1 read getCF write setCF;
  8090. property CLKLOCK : TBits_1 read getCLKLOCK write setCLKLOCK;
  8091. property COSC : TBits_3 read getCOSC write setCOSC;
  8092. property COSC0 : TBits_1 read getCOSC0 write setCOSC0;
  8093. property COSC1 : TBits_1 read getCOSC1 write setCOSC1;
  8094. property COSC2 : TBits_1 read getCOSC2 write setCOSC2;
  8095. property FRCDIV : TBits_3 read getFRCDIV write setFRCDIV;
  8096. property FRCDIV0 : TBits_1 read getFRCDIV0 write setFRCDIV0;
  8097. property FRCDIV1 : TBits_1 read getFRCDIV1 write setFRCDIV1;
  8098. property FRCDIV2 : TBits_1 read getFRCDIV2 write setFRCDIV2;
  8099. property NOSC : TBits_3 read getNOSC write setNOSC;
  8100. property NOSC0 : TBits_1 read getNOSC0 write setNOSC0;
  8101. property NOSC1 : TBits_1 read getNOSC1 write setNOSC1;
  8102. property NOSC2 : TBits_1 read getNOSC2 write setNOSC2;
  8103. property OSWEN : TBits_1 read getOSWEN write setOSWEN;
  8104. property PBDIV : TBits_2 read getPBDIV write setPBDIV;
  8105. property PBDIV0 : TBits_1 read getPBDIV0 write setPBDIV0;
  8106. property PBDIV1 : TBits_1 read getPBDIV1 write setPBDIV1;
  8107. property PLLMULT : TBits_3 read getPLLMULT write setPLLMULT;
  8108. property PLLMULT0 : TBits_1 read getPLLMULT0 write setPLLMULT0;
  8109. property PLLMULT1 : TBits_1 read getPLLMULT1 write setPLLMULT1;
  8110. property PLLMULT2 : TBits_1 read getPLLMULT2 write setPLLMULT2;
  8111. property PLLODIV : TBits_3 read getPLLODIV write setPLLODIV;
  8112. property PLLODIV0 : TBits_1 read getPLLODIV0 write setPLLODIV0;
  8113. property PLLODIV1 : TBits_1 read getPLLODIV1 write setPLLODIV1;
  8114. property PLLODIV2 : TBits_1 read getPLLODIV2 write setPLLODIV2;
  8115. property SLOCK : TBits_1 read getSLOCK write setSLOCK;
  8116. property SLPEN : TBits_1 read getSLPEN write setSLPEN;
  8117. property SOSCEN : TBits_1 read getSOSCEN write setSOSCEN;
  8118. property SOSCRDY : TBits_1 read getSOSCRDY write setSOSCRDY;
  8119. property UFRCEN : TBits_1 read getUFRCEN write setUFRCEN;
  8120. property ULOCK : TBits_1 read getULOCK write setULOCK;
  8121. property w : TBits_32 read getw write setw;
  8122. end;
  8123. TOSC_OSCTUN = record
  8124. private
  8125. function getTUN : TBits_6; inline;
  8126. function getTUN0 : TBits_1; inline;
  8127. function getTUN1 : TBits_1; inline;
  8128. function getTUN2 : TBits_1; inline;
  8129. function getTUN3 : TBits_1; inline;
  8130. function getTUN4 : TBits_1; inline;
  8131. function getTUN5 : TBits_1; inline;
  8132. function getw : TBits_32; inline;
  8133. procedure setTUN(thebits : TBits_6); inline;
  8134. procedure setTUN0(thebits : TBits_1); inline;
  8135. procedure setTUN1(thebits : TBits_1); inline;
  8136. procedure setTUN2(thebits : TBits_1); inline;
  8137. procedure setTUN3(thebits : TBits_1); inline;
  8138. procedure setTUN4(thebits : TBits_1); inline;
  8139. procedure setTUN5(thebits : TBits_1); inline;
  8140. procedure setw(thebits : TBits_32); inline;
  8141. public
  8142. procedure clearTUN0; inline;
  8143. procedure clearTUN1; inline;
  8144. procedure clearTUN2; inline;
  8145. procedure clearTUN3; inline;
  8146. procedure clearTUN4; inline;
  8147. procedure clearTUN5; inline;
  8148. procedure setTUN0; inline;
  8149. procedure setTUN1; inline;
  8150. procedure setTUN2; inline;
  8151. procedure setTUN3; inline;
  8152. procedure setTUN4; inline;
  8153. procedure setTUN5; inline;
  8154. property TUN : TBits_6 read getTUN write setTUN;
  8155. property TUN0 : TBits_1 read getTUN0 write setTUN0;
  8156. property TUN1 : TBits_1 read getTUN1 write setTUN1;
  8157. property TUN2 : TBits_1 read getTUN2 write setTUN2;
  8158. property TUN3 : TBits_1 read getTUN3 write setTUN3;
  8159. property TUN4 : TBits_1 read getTUN4 write setTUN4;
  8160. property TUN5 : TBits_1 read getTUN5 write setTUN5;
  8161. property w : TBits_32 read getw write setw;
  8162. end;
  8163. type
  8164. TOSCRegisters = record
  8165. OSCCONbits : TOSC_OSCCON;
  8166. OSCCON : longWord;
  8167. OSCCONCLR : longWord;
  8168. OSCCONSET : longWord;
  8169. OSCCONINV : longWord;
  8170. OSCTUNbits : TOSC_OSCTUN;
  8171. OSCTUN : longWord;
  8172. OSCTUNCLR : longWord;
  8173. OSCTUNSET : longWord;
  8174. OSCTUNINV : longWord;
  8175. end;
  8176. type
  8177. TCFGRegisters = record
  8178. DDPCON : longWord;
  8179. DEVID : longWord;
  8180. SYSKEY : longWord;
  8181. SYSKEYCLR : longWord;
  8182. SYSKEYSET : longWord;
  8183. SYSKEYINV : longWord;
  8184. end;
  8185. TNVM_NVMCON = record
  8186. private
  8187. function getLVDERR : TBits_1; inline;
  8188. function getLVDSTAT : TBits_1; inline;
  8189. function getNVMOP : TBits_4; inline;
  8190. function getNVMOP0 : TBits_1; inline;
  8191. function getNVMOP1 : TBits_1; inline;
  8192. function getNVMOP2 : TBits_1; inline;
  8193. function getNVMOP3 : TBits_1; inline;
  8194. function getPROGOP : TBits_4; inline;
  8195. function getPROGOP0 : TBits_1; inline;
  8196. function getPROGOP1 : TBits_1; inline;
  8197. function getPROGOP2 : TBits_1; inline;
  8198. function getPROGOP3 : TBits_1; inline;
  8199. function getWR : TBits_1; inline;
  8200. function getWREN : TBits_1; inline;
  8201. function getWRERR : TBits_1; inline;
  8202. function getw : TBits_32; inline;
  8203. procedure setLVDERR(thebits : TBits_1); inline;
  8204. procedure setLVDSTAT(thebits : TBits_1); inline;
  8205. procedure setNVMOP(thebits : TBits_4); inline;
  8206. procedure setNVMOP0(thebits : TBits_1); inline;
  8207. procedure setNVMOP1(thebits : TBits_1); inline;
  8208. procedure setNVMOP2(thebits : TBits_1); inline;
  8209. procedure setNVMOP3(thebits : TBits_1); inline;
  8210. procedure setPROGOP(thebits : TBits_4); inline;
  8211. procedure setPROGOP0(thebits : TBits_1); inline;
  8212. procedure setPROGOP1(thebits : TBits_1); inline;
  8213. procedure setPROGOP2(thebits : TBits_1); inline;
  8214. procedure setPROGOP3(thebits : TBits_1); inline;
  8215. procedure setWR(thebits : TBits_1); inline;
  8216. procedure setWREN(thebits : TBits_1); inline;
  8217. procedure setWRERR(thebits : TBits_1); inline;
  8218. procedure setw(thebits : TBits_32); inline;
  8219. public
  8220. procedure clearLVDERR; inline;
  8221. procedure clearLVDSTAT; inline;
  8222. procedure clearNVMOP0; inline;
  8223. procedure clearNVMOP1; inline;
  8224. procedure clearNVMOP2; inline;
  8225. procedure clearNVMOP3; inline;
  8226. procedure clearPROGOP0; inline;
  8227. procedure clearPROGOP1; inline;
  8228. procedure clearPROGOP2; inline;
  8229. procedure clearPROGOP3; inline;
  8230. procedure clearWR; inline;
  8231. procedure clearWREN; inline;
  8232. procedure clearWRERR; inline;
  8233. procedure setLVDERR; inline;
  8234. procedure setLVDSTAT; inline;
  8235. procedure setNVMOP0; inline;
  8236. procedure setNVMOP1; inline;
  8237. procedure setNVMOP2; inline;
  8238. procedure setNVMOP3; inline;
  8239. procedure setPROGOP0; inline;
  8240. procedure setPROGOP1; inline;
  8241. procedure setPROGOP2; inline;
  8242. procedure setPROGOP3; inline;
  8243. procedure setWR; inline;
  8244. procedure setWREN; inline;
  8245. procedure setWRERR; inline;
  8246. property LVDERR : TBits_1 read getLVDERR write setLVDERR;
  8247. property LVDSTAT : TBits_1 read getLVDSTAT write setLVDSTAT;
  8248. property NVMOP : TBits_4 read getNVMOP write setNVMOP;
  8249. property NVMOP0 : TBits_1 read getNVMOP0 write setNVMOP0;
  8250. property NVMOP1 : TBits_1 read getNVMOP1 write setNVMOP1;
  8251. property NVMOP2 : TBits_1 read getNVMOP2 write setNVMOP2;
  8252. property NVMOP3 : TBits_1 read getNVMOP3 write setNVMOP3;
  8253. property PROGOP : TBits_4 read getPROGOP write setPROGOP;
  8254. property PROGOP0 : TBits_1 read getPROGOP0 write setPROGOP0;
  8255. property PROGOP1 : TBits_1 read getPROGOP1 write setPROGOP1;
  8256. property PROGOP2 : TBits_1 read getPROGOP2 write setPROGOP2;
  8257. property PROGOP3 : TBits_1 read getPROGOP3 write setPROGOP3;
  8258. property WR : TBits_1 read getWR write setWR;
  8259. property WREN : TBits_1 read getWREN write setWREN;
  8260. property WRERR : TBits_1 read getWRERR write setWRERR;
  8261. property w : TBits_32 read getw write setw;
  8262. end;
  8263. type
  8264. TNVMRegisters = record
  8265. NVMCONbits : TNVM_NVMCON;
  8266. NVMCON : longWord;
  8267. NVMCONCLR : longWord;
  8268. NVMCONSET : longWord;
  8269. NVMCONINV : longWord;
  8270. NVMKEY : longWord;
  8271. NVMADDR : longWord;
  8272. NVMADDRCLR : longWord;
  8273. NVMADDRSET : longWord;
  8274. NVMADDRINV : longWord;
  8275. NVMDATA : longWord;
  8276. NVMSRCADDR : longWord;
  8277. end;
  8278. TRCON_RCON = record
  8279. private
  8280. function getBOR : TBits_1; inline;
  8281. function getCMR : TBits_1; inline;
  8282. function getEXTR : TBits_1; inline;
  8283. function getIDLE : TBits_1; inline;
  8284. function getPOR : TBits_1; inline;
  8285. function getSLEEP : TBits_1; inline;
  8286. function getSWR : TBits_1; inline;
  8287. function getVREGS : TBits_1; inline;
  8288. function getWDTO : TBits_1; inline;
  8289. function getw : TBits_32; inline;
  8290. procedure setBOR(thebits : TBits_1); inline;
  8291. procedure setCMR(thebits : TBits_1); inline;
  8292. procedure setEXTR(thebits : TBits_1); inline;
  8293. procedure setIDLE(thebits : TBits_1); inline;
  8294. procedure setPOR(thebits : TBits_1); inline;
  8295. procedure setSLEEP(thebits : TBits_1); inline;
  8296. procedure setSWR(thebits : TBits_1); inline;
  8297. procedure setVREGS(thebits : TBits_1); inline;
  8298. procedure setWDTO(thebits : TBits_1); inline;
  8299. procedure setw(thebits : TBits_32); inline;
  8300. public
  8301. procedure clearBOR; inline;
  8302. procedure clearCMR; inline;
  8303. procedure clearEXTR; inline;
  8304. procedure clearIDLE; inline;
  8305. procedure clearPOR; inline;
  8306. procedure clearSLEEP; inline;
  8307. procedure clearSWR; inline;
  8308. procedure clearVREGS; inline;
  8309. procedure clearWDTO; inline;
  8310. procedure setBOR; inline;
  8311. procedure setCMR; inline;
  8312. procedure setEXTR; inline;
  8313. procedure setIDLE; inline;
  8314. procedure setPOR; inline;
  8315. procedure setSLEEP; inline;
  8316. procedure setSWR; inline;
  8317. procedure setVREGS; inline;
  8318. procedure setWDTO; inline;
  8319. property BOR : TBits_1 read getBOR write setBOR;
  8320. property CMR : TBits_1 read getCMR write setCMR;
  8321. property EXTR : TBits_1 read getEXTR write setEXTR;
  8322. property IDLE : TBits_1 read getIDLE write setIDLE;
  8323. property POR : TBits_1 read getPOR write setPOR;
  8324. property SLEEP : TBits_1 read getSLEEP write setSLEEP;
  8325. property SWR : TBits_1 read getSWR write setSWR;
  8326. property VREGS : TBits_1 read getVREGS write setVREGS;
  8327. property WDTO : TBits_1 read getWDTO write setWDTO;
  8328. property w : TBits_32 read getw write setw;
  8329. end;
  8330. TRCON_RSWRST = record
  8331. private
  8332. function getSWRST : TBits_1; inline;
  8333. function getw : TBits_32; inline;
  8334. procedure setSWRST(thebits : TBits_1); inline;
  8335. procedure setw(thebits : TBits_32); inline;
  8336. public
  8337. procedure clearSWRST; inline;
  8338. procedure setSWRST; inline;
  8339. property SWRST : TBits_1 read getSWRST write setSWRST;
  8340. property w : TBits_32 read getw write setw;
  8341. end;
  8342. type
  8343. TRCONRegisters = record
  8344. RCONbits : TRCON_RCON;
  8345. RCON : longWord;
  8346. RCONCLR : longWord;
  8347. RCONSET : longWord;
  8348. RCONINV : longWord;
  8349. RSWRSTbits : TRCON_RSWRST;
  8350. RSWRST : longWord;
  8351. RSWRSTCLR : longWord;
  8352. RSWRSTSET : longWord;
  8353. RSWRSTINV : longWord;
  8354. end;
  8355. type
  8356. T_DDPSTATRegisters = record
  8357. _DDPSTAT : longWord;
  8358. end;
  8359. type
  8360. T_STRORegisters = record
  8361. _STRO : longWord;
  8362. _STROCLR : longWord;
  8363. _STROSET : longWord;
  8364. _STROINV : longWord;
  8365. end;
  8366. type
  8367. T_APPORegisters = record
  8368. _APPO : longWord;
  8369. _APPOCLR : longWord;
  8370. _APPOSET : longWord;
  8371. _APPOINV : longWord;
  8372. end;
  8373. type
  8374. T_APPIRegisters = record
  8375. _APPI : longWord;
  8376. end;
  8377. TINT_INTCON = record
  8378. private
  8379. function getFRZ : TBits_1; inline;
  8380. function getINT0EP : TBits_1; inline;
  8381. function getINT1EP : TBits_1; inline;
  8382. function getINT2EP : TBits_1; inline;
  8383. function getINT3EP : TBits_1; inline;
  8384. function getINT4EP : TBits_1; inline;
  8385. function getMVEC : TBits_1; inline;
  8386. function getSS0 : TBits_1; inline;
  8387. function getTPC : TBits_3; inline;
  8388. function getw : TBits_32; inline;
  8389. procedure setFRZ(thebits : TBits_1); inline;
  8390. procedure setINT0EP(thebits : TBits_1); inline;
  8391. procedure setINT1EP(thebits : TBits_1); inline;
  8392. procedure setINT2EP(thebits : TBits_1); inline;
  8393. procedure setINT3EP(thebits : TBits_1); inline;
  8394. procedure setINT4EP(thebits : TBits_1); inline;
  8395. procedure setMVEC(thebits : TBits_1); inline;
  8396. procedure setSS0(thebits : TBits_1); inline;
  8397. procedure setTPC(thebits : TBits_3); inline;
  8398. procedure setw(thebits : TBits_32); inline;
  8399. public
  8400. procedure clearFRZ; inline;
  8401. procedure clearINT0EP; inline;
  8402. procedure clearINT1EP; inline;
  8403. procedure clearINT2EP; inline;
  8404. procedure clearINT3EP; inline;
  8405. procedure clearINT4EP; inline;
  8406. procedure clearMVEC; inline;
  8407. procedure clearSS0; inline;
  8408. procedure setFRZ; inline;
  8409. procedure setINT0EP; inline;
  8410. procedure setINT1EP; inline;
  8411. procedure setINT2EP; inline;
  8412. procedure setINT3EP; inline;
  8413. procedure setINT4EP; inline;
  8414. procedure setMVEC; inline;
  8415. procedure setSS0; inline;
  8416. property FRZ : TBits_1 read getFRZ write setFRZ;
  8417. property INT0EP : TBits_1 read getINT0EP write setINT0EP;
  8418. property INT1EP : TBits_1 read getINT1EP write setINT1EP;
  8419. property INT2EP : TBits_1 read getINT2EP write setINT2EP;
  8420. property INT3EP : TBits_1 read getINT3EP write setINT3EP;
  8421. property INT4EP : TBits_1 read getINT4EP write setINT4EP;
  8422. property MVEC : TBits_1 read getMVEC write setMVEC;
  8423. property SS0 : TBits_1 read getSS0 write setSS0;
  8424. property TPC : TBits_3 read getTPC write setTPC;
  8425. property w : TBits_32 read getw write setw;
  8426. end;
  8427. TINT_IFS0 = record
  8428. private
  8429. function getCS0IF : TBits_1; inline;
  8430. function getCS1IF : TBits_1; inline;
  8431. function getCTIF : TBits_1; inline;
  8432. function getI2C1ABIF : TBits_1; inline;
  8433. function getI2C1AMIF : TBits_1; inline;
  8434. function getI2C1ASIF : TBits_1; inline;
  8435. function getI2C1BIF : TBits_1; inline;
  8436. function getI2C1MIF : TBits_1; inline;
  8437. function getI2C1SIF : TBits_1; inline;
  8438. function getI2C3BIF : TBits_1; inline;
  8439. function getI2C3MIF : TBits_1; inline;
  8440. function getI2C3SIF : TBits_1; inline;
  8441. function getIC1IF : TBits_1; inline;
  8442. function getIC2IF : TBits_1; inline;
  8443. function getIC3IF : TBits_1; inline;
  8444. function getIC4IF : TBits_1; inline;
  8445. function getIC5IF : TBits_1; inline;
  8446. function getINT0IF : TBits_1; inline;
  8447. function getINT1IF : TBits_1; inline;
  8448. function getINT2IF : TBits_1; inline;
  8449. function getINT3IF : TBits_1; inline;
  8450. function getINT4IF : TBits_1; inline;
  8451. function getOC1IF : TBits_1; inline;
  8452. function getOC2IF : TBits_1; inline;
  8453. function getOC3IF : TBits_1; inline;
  8454. function getOC4IF : TBits_1; inline;
  8455. function getOC5IF : TBits_1; inline;
  8456. function getSPI1AEIF : TBits_1; inline;
  8457. function getSPI1ARXIF : TBits_1; inline;
  8458. function getSPI1ATXIF : TBits_1; inline;
  8459. function getSPI1EIF : TBits_1; inline;
  8460. function getSPI1RXIF : TBits_1; inline;
  8461. function getSPI1TXIF : TBits_1; inline;
  8462. function getSPI3EIF : TBits_1; inline;
  8463. function getSPI3RXIF : TBits_1; inline;
  8464. function getSPI3TXIF : TBits_1; inline;
  8465. function getT1IF : TBits_1; inline;
  8466. function getT2IF : TBits_1; inline;
  8467. function getT3IF : TBits_1; inline;
  8468. function getT4IF : TBits_1; inline;
  8469. function getT5IF : TBits_1; inline;
  8470. function getU1AEIF : TBits_1; inline;
  8471. function getU1ARXIF : TBits_1; inline;
  8472. function getU1ATXIF : TBits_1; inline;
  8473. function getU1EIF : TBits_1; inline;
  8474. function getU1RXIF : TBits_1; inline;
  8475. function getU1TXIF : TBits_1; inline;
  8476. function getw : TBits_32; inline;
  8477. procedure setCS0IF(thebits : TBits_1); inline;
  8478. procedure setCS1IF(thebits : TBits_1); inline;
  8479. procedure setCTIF(thebits : TBits_1); inline;
  8480. procedure setI2C1ABIF(thebits : TBits_1); inline;
  8481. procedure setI2C1AMIF(thebits : TBits_1); inline;
  8482. procedure setI2C1ASIF(thebits : TBits_1); inline;
  8483. procedure setI2C1BIF(thebits : TBits_1); inline;
  8484. procedure setI2C1MIF(thebits : TBits_1); inline;
  8485. procedure setI2C1SIF(thebits : TBits_1); inline;
  8486. procedure setI2C3BIF(thebits : TBits_1); inline;
  8487. procedure setI2C3MIF(thebits : TBits_1); inline;
  8488. procedure setI2C3SIF(thebits : TBits_1); inline;
  8489. procedure setIC1IF(thebits : TBits_1); inline;
  8490. procedure setIC2IF(thebits : TBits_1); inline;
  8491. procedure setIC3IF(thebits : TBits_1); inline;
  8492. procedure setIC4IF(thebits : TBits_1); inline;
  8493. procedure setIC5IF(thebits : TBits_1); inline;
  8494. procedure setINT0IF(thebits : TBits_1); inline;
  8495. procedure setINT1IF(thebits : TBits_1); inline;
  8496. procedure setINT2IF(thebits : TBits_1); inline;
  8497. procedure setINT3IF(thebits : TBits_1); inline;
  8498. procedure setINT4IF(thebits : TBits_1); inline;
  8499. procedure setOC1IF(thebits : TBits_1); inline;
  8500. procedure setOC2IF(thebits : TBits_1); inline;
  8501. procedure setOC3IF(thebits : TBits_1); inline;
  8502. procedure setOC4IF(thebits : TBits_1); inline;
  8503. procedure setOC5IF(thebits : TBits_1); inline;
  8504. procedure setSPI1AEIF(thebits : TBits_1); inline;
  8505. procedure setSPI1ARXIF(thebits : TBits_1); inline;
  8506. procedure setSPI1ATXIF(thebits : TBits_1); inline;
  8507. procedure setSPI1EIF(thebits : TBits_1); inline;
  8508. procedure setSPI1RXIF(thebits : TBits_1); inline;
  8509. procedure setSPI1TXIF(thebits : TBits_1); inline;
  8510. procedure setSPI3EIF(thebits : TBits_1); inline;
  8511. procedure setSPI3RXIF(thebits : TBits_1); inline;
  8512. procedure setSPI3TXIF(thebits : TBits_1); inline;
  8513. procedure setT1IF(thebits : TBits_1); inline;
  8514. procedure setT2IF(thebits : TBits_1); inline;
  8515. procedure setT3IF(thebits : TBits_1); inline;
  8516. procedure setT4IF(thebits : TBits_1); inline;
  8517. procedure setT5IF(thebits : TBits_1); inline;
  8518. procedure setU1AEIF(thebits : TBits_1); inline;
  8519. procedure setU1ARXIF(thebits : TBits_1); inline;
  8520. procedure setU1ATXIF(thebits : TBits_1); inline;
  8521. procedure setU1EIF(thebits : TBits_1); inline;
  8522. procedure setU1RXIF(thebits : TBits_1); inline;
  8523. procedure setU1TXIF(thebits : TBits_1); inline;
  8524. procedure setw(thebits : TBits_32); inline;
  8525. public
  8526. procedure clearCS0IF; inline;
  8527. procedure clearCS1IF; inline;
  8528. procedure clearCTIF; inline;
  8529. procedure clearI2C1ABIF; inline;
  8530. procedure clearI2C1AMIF; inline;
  8531. procedure clearI2C1ASIF; inline;
  8532. procedure clearI2C1BIF; inline;
  8533. procedure clearI2C1MIF; inline;
  8534. procedure clearI2C1SIF; inline;
  8535. procedure clearI2C3BIF; inline;
  8536. procedure clearI2C3MIF; inline;
  8537. procedure clearI2C3SIF; inline;
  8538. procedure clearIC1IF; inline;
  8539. procedure clearIC2IF; inline;
  8540. procedure clearIC3IF; inline;
  8541. procedure clearIC4IF; inline;
  8542. procedure clearIC5IF; inline;
  8543. procedure clearINT0IF; inline;
  8544. procedure clearINT1IF; inline;
  8545. procedure clearINT2IF; inline;
  8546. procedure clearINT3IF; inline;
  8547. procedure clearINT4IF; inline;
  8548. procedure clearOC1IF; inline;
  8549. procedure clearOC2IF; inline;
  8550. procedure clearOC3IF; inline;
  8551. procedure clearOC4IF; inline;
  8552. procedure clearOC5IF; inline;
  8553. procedure clearSPI1AEIF; inline;
  8554. procedure clearSPI1ARXIF; inline;
  8555. procedure clearSPI1ATXIF; inline;
  8556. procedure clearSPI1EIF; inline;
  8557. procedure clearSPI1RXIF; inline;
  8558. procedure clearSPI1TXIF; inline;
  8559. procedure clearSPI3EIF; inline;
  8560. procedure clearSPI3RXIF; inline;
  8561. procedure clearSPI3TXIF; inline;
  8562. procedure clearT1IF; inline;
  8563. procedure clearT2IF; inline;
  8564. procedure clearT3IF; inline;
  8565. procedure clearT4IF; inline;
  8566. procedure clearT5IF; inline;
  8567. procedure clearU1AEIF; inline;
  8568. procedure clearU1ARXIF; inline;
  8569. procedure clearU1ATXIF; inline;
  8570. procedure clearU1EIF; inline;
  8571. procedure clearU1RXIF; inline;
  8572. procedure clearU1TXIF; inline;
  8573. procedure setCS0IF; inline;
  8574. procedure setCS1IF; inline;
  8575. procedure setCTIF; inline;
  8576. procedure setI2C1ABIF; inline;
  8577. procedure setI2C1AMIF; inline;
  8578. procedure setI2C1ASIF; inline;
  8579. procedure setI2C1BIF; inline;
  8580. procedure setI2C1MIF; inline;
  8581. procedure setI2C1SIF; inline;
  8582. procedure setI2C3BIF; inline;
  8583. procedure setI2C3MIF; inline;
  8584. procedure setI2C3SIF; inline;
  8585. procedure setIC1IF; inline;
  8586. procedure setIC2IF; inline;
  8587. procedure setIC3IF; inline;
  8588. procedure setIC4IF; inline;
  8589. procedure setIC5IF; inline;
  8590. procedure setINT0IF; inline;
  8591. procedure setINT1IF; inline;
  8592. procedure setINT2IF; inline;
  8593. procedure setINT3IF; inline;
  8594. procedure setINT4IF; inline;
  8595. procedure setOC1IF; inline;
  8596. procedure setOC2IF; inline;
  8597. procedure setOC3IF; inline;
  8598. procedure setOC4IF; inline;
  8599. procedure setOC5IF; inline;
  8600. procedure setSPI1AEIF; inline;
  8601. procedure setSPI1ARXIF; inline;
  8602. procedure setSPI1ATXIF; inline;
  8603. procedure setSPI1EIF; inline;
  8604. procedure setSPI1RXIF; inline;
  8605. procedure setSPI1TXIF; inline;
  8606. procedure setSPI3EIF; inline;
  8607. procedure setSPI3RXIF; inline;
  8608. procedure setSPI3TXIF; inline;
  8609. procedure setT1IF; inline;
  8610. procedure setT2IF; inline;
  8611. procedure setT3IF; inline;
  8612. procedure setT4IF; inline;
  8613. procedure setT5IF; inline;
  8614. procedure setU1AEIF; inline;
  8615. procedure setU1ARXIF; inline;
  8616. procedure setU1ATXIF; inline;
  8617. procedure setU1EIF; inline;
  8618. procedure setU1RXIF; inline;
  8619. procedure setU1TXIF; inline;
  8620. property CS0IF : TBits_1 read getCS0IF write setCS0IF;
  8621. property CS1IF : TBits_1 read getCS1IF write setCS1IF;
  8622. property CTIF : TBits_1 read getCTIF write setCTIF;
  8623. property I2C1ABIF : TBits_1 read getI2C1ABIF write setI2C1ABIF;
  8624. property I2C1AMIF : TBits_1 read getI2C1AMIF write setI2C1AMIF;
  8625. property I2C1ASIF : TBits_1 read getI2C1ASIF write setI2C1ASIF;
  8626. property I2C1BIF : TBits_1 read getI2C1BIF write setI2C1BIF;
  8627. property I2C1MIF : TBits_1 read getI2C1MIF write setI2C1MIF;
  8628. property I2C1SIF : TBits_1 read getI2C1SIF write setI2C1SIF;
  8629. property I2C3BIF : TBits_1 read getI2C3BIF write setI2C3BIF;
  8630. property I2C3MIF : TBits_1 read getI2C3MIF write setI2C3MIF;
  8631. property I2C3SIF : TBits_1 read getI2C3SIF write setI2C3SIF;
  8632. property IC1IF : TBits_1 read getIC1IF write setIC1IF;
  8633. property IC2IF : TBits_1 read getIC2IF write setIC2IF;
  8634. property IC3IF : TBits_1 read getIC3IF write setIC3IF;
  8635. property IC4IF : TBits_1 read getIC4IF write setIC4IF;
  8636. property IC5IF : TBits_1 read getIC5IF write setIC5IF;
  8637. property INT0IF : TBits_1 read getINT0IF write setINT0IF;
  8638. property INT1IF : TBits_1 read getINT1IF write setINT1IF;
  8639. property INT2IF : TBits_1 read getINT2IF write setINT2IF;
  8640. property INT3IF : TBits_1 read getINT3IF write setINT3IF;
  8641. property INT4IF : TBits_1 read getINT4IF write setINT4IF;
  8642. property OC1IF : TBits_1 read getOC1IF write setOC1IF;
  8643. property OC2IF : TBits_1 read getOC2IF write setOC2IF;
  8644. property OC3IF : TBits_1 read getOC3IF write setOC3IF;
  8645. property OC4IF : TBits_1 read getOC4IF write setOC4IF;
  8646. property OC5IF : TBits_1 read getOC5IF write setOC5IF;
  8647. property SPI1AEIF : TBits_1 read getSPI1AEIF write setSPI1AEIF;
  8648. property SPI1ARXIF : TBits_1 read getSPI1ARXIF write setSPI1ARXIF;
  8649. property SPI1ATXIF : TBits_1 read getSPI1ATXIF write setSPI1ATXIF;
  8650. property SPI1EIF : TBits_1 read getSPI1EIF write setSPI1EIF;
  8651. property SPI1RXIF : TBits_1 read getSPI1RXIF write setSPI1RXIF;
  8652. property SPI1TXIF : TBits_1 read getSPI1TXIF write setSPI1TXIF;
  8653. property SPI3EIF : TBits_1 read getSPI3EIF write setSPI3EIF;
  8654. property SPI3RXIF : TBits_1 read getSPI3RXIF write setSPI3RXIF;
  8655. property SPI3TXIF : TBits_1 read getSPI3TXIF write setSPI3TXIF;
  8656. property T1IF : TBits_1 read getT1IF write setT1IF;
  8657. property T2IF : TBits_1 read getT2IF write setT2IF;
  8658. property T3IF : TBits_1 read getT3IF write setT3IF;
  8659. property T4IF : TBits_1 read getT4IF write setT4IF;
  8660. property T5IF : TBits_1 read getT5IF write setT5IF;
  8661. property U1AEIF : TBits_1 read getU1AEIF write setU1AEIF;
  8662. property U1ARXIF : TBits_1 read getU1ARXIF write setU1ARXIF;
  8663. property U1ATXIF : TBits_1 read getU1ATXIF write setU1ATXIF;
  8664. property U1EIF : TBits_1 read getU1EIF write setU1EIF;
  8665. property U1RXIF : TBits_1 read getU1RXIF write setU1RXIF;
  8666. property U1TXIF : TBits_1 read getU1TXIF write setU1TXIF;
  8667. property w : TBits_32 read getw write setw;
  8668. end;
  8669. TINT_IFS1 = record
  8670. private
  8671. function getAD1IF : TBits_1; inline;
  8672. function getCAN1IF : TBits_1; inline;
  8673. function getCMP1IF : TBits_1; inline;
  8674. function getCMP2IF : TBits_1; inline;
  8675. function getCNIF : TBits_1; inline;
  8676. function getDMA0IF : TBits_1; inline;
  8677. function getDMA1IF : TBits_1; inline;
  8678. function getDMA2IF : TBits_1; inline;
  8679. function getDMA3IF : TBits_1; inline;
  8680. function getETHIF : TBits_1; inline;
  8681. function getFCEIF : TBits_1; inline;
  8682. function getFSCMIF : TBits_1; inline;
  8683. function getI2C2ABIF : TBits_1; inline;
  8684. function getI2C2AMIF : TBits_1; inline;
  8685. function getI2C2ASIF : TBits_1; inline;
  8686. function getI2C2BIF : TBits_1; inline;
  8687. function getI2C2MIF : TBits_1; inline;
  8688. function getI2C2SIF : TBits_1; inline;
  8689. function getI2C3ABIF : TBits_1; inline;
  8690. function getI2C3AMIF : TBits_1; inline;
  8691. function getI2C3ASIF : TBits_1; inline;
  8692. function getI2C4BIF : TBits_1; inline;
  8693. function getI2C4MIF : TBits_1; inline;
  8694. function getI2C4SIF : TBits_1; inline;
  8695. function getI2C5BIF : TBits_1; inline;
  8696. function getI2C5MIF : TBits_1; inline;
  8697. function getI2C5SIF : TBits_1; inline;
  8698. function getIC1EIF : TBits_1; inline;
  8699. function getIC2EIF : TBits_1; inline;
  8700. function getIC3EIF : TBits_1; inline;
  8701. function getPMPIF : TBits_1; inline;
  8702. function getRTCCIF : TBits_1; inline;
  8703. function getSPI2AEIF : TBits_1; inline;
  8704. function getSPI2ARXIF : TBits_1; inline;
  8705. function getSPI2ATXIF : TBits_1; inline;
  8706. function getSPI2EIF : TBits_1; inline;
  8707. function getSPI2RXIF : TBits_1; inline;
  8708. function getSPI2TXIF : TBits_1; inline;
  8709. function getSPI3AEIF : TBits_1; inline;
  8710. function getSPI3ARXIF : TBits_1; inline;
  8711. function getSPI3ATXIF : TBits_1; inline;
  8712. function getSPI4EIF : TBits_1; inline;
  8713. function getSPI4RXIF : TBits_1; inline;
  8714. function getSPI4TXIF : TBits_1; inline;
  8715. function getU2AEIF : TBits_1; inline;
  8716. function getU2ARXIF : TBits_1; inline;
  8717. function getU2ATXIF : TBits_1; inline;
  8718. function getU2EIF : TBits_1; inline;
  8719. function getU2RXIF : TBits_1; inline;
  8720. function getU2TXIF : TBits_1; inline;
  8721. function getU3AEIF : TBits_1; inline;
  8722. function getU3ARXIF : TBits_1; inline;
  8723. function getU3ATXIF : TBits_1; inline;
  8724. function getU3EIF : TBits_1; inline;
  8725. function getU3RXIF : TBits_1; inline;
  8726. function getU3TXIF : TBits_1; inline;
  8727. function getUSBIF : TBits_1; inline;
  8728. function getw : TBits_32; inline;
  8729. procedure setAD1IF(thebits : TBits_1); inline;
  8730. procedure setCAN1IF(thebits : TBits_1); inline;
  8731. procedure setCMP1IF(thebits : TBits_1); inline;
  8732. procedure setCMP2IF(thebits : TBits_1); inline;
  8733. procedure setCNIF(thebits : TBits_1); inline;
  8734. procedure setDMA0IF(thebits : TBits_1); inline;
  8735. procedure setDMA1IF(thebits : TBits_1); inline;
  8736. procedure setDMA2IF(thebits : TBits_1); inline;
  8737. procedure setDMA3IF(thebits : TBits_1); inline;
  8738. procedure setETHIF(thebits : TBits_1); inline;
  8739. procedure setFCEIF(thebits : TBits_1); inline;
  8740. procedure setFSCMIF(thebits : TBits_1); inline;
  8741. procedure setI2C2ABIF(thebits : TBits_1); inline;
  8742. procedure setI2C2AMIF(thebits : TBits_1); inline;
  8743. procedure setI2C2ASIF(thebits : TBits_1); inline;
  8744. procedure setI2C2BIF(thebits : TBits_1); inline;
  8745. procedure setI2C2MIF(thebits : TBits_1); inline;
  8746. procedure setI2C2SIF(thebits : TBits_1); inline;
  8747. procedure setI2C3ABIF(thebits : TBits_1); inline;
  8748. procedure setI2C3AMIF(thebits : TBits_1); inline;
  8749. procedure setI2C3ASIF(thebits : TBits_1); inline;
  8750. procedure setI2C4BIF(thebits : TBits_1); inline;
  8751. procedure setI2C4MIF(thebits : TBits_1); inline;
  8752. procedure setI2C4SIF(thebits : TBits_1); inline;
  8753. procedure setI2C5BIF(thebits : TBits_1); inline;
  8754. procedure setI2C5MIF(thebits : TBits_1); inline;
  8755. procedure setI2C5SIF(thebits : TBits_1); inline;
  8756. procedure setIC1EIF(thebits : TBits_1); inline;
  8757. procedure setIC2EIF(thebits : TBits_1); inline;
  8758. procedure setIC3EIF(thebits : TBits_1); inline;
  8759. procedure setPMPIF(thebits : TBits_1); inline;
  8760. procedure setRTCCIF(thebits : TBits_1); inline;
  8761. procedure setSPI2AEIF(thebits : TBits_1); inline;
  8762. procedure setSPI2ARXIF(thebits : TBits_1); inline;
  8763. procedure setSPI2ATXIF(thebits : TBits_1); inline;
  8764. procedure setSPI2EIF(thebits : TBits_1); inline;
  8765. procedure setSPI2RXIF(thebits : TBits_1); inline;
  8766. procedure setSPI2TXIF(thebits : TBits_1); inline;
  8767. procedure setSPI3AEIF(thebits : TBits_1); inline;
  8768. procedure setSPI3ARXIF(thebits : TBits_1); inline;
  8769. procedure setSPI3ATXIF(thebits : TBits_1); inline;
  8770. procedure setSPI4EIF(thebits : TBits_1); inline;
  8771. procedure setSPI4RXIF(thebits : TBits_1); inline;
  8772. procedure setSPI4TXIF(thebits : TBits_1); inline;
  8773. procedure setU2AEIF(thebits : TBits_1); inline;
  8774. procedure setU2ARXIF(thebits : TBits_1); inline;
  8775. procedure setU2ATXIF(thebits : TBits_1); inline;
  8776. procedure setU2EIF(thebits : TBits_1); inline;
  8777. procedure setU2RXIF(thebits : TBits_1); inline;
  8778. procedure setU2TXIF(thebits : TBits_1); inline;
  8779. procedure setU3AEIF(thebits : TBits_1); inline;
  8780. procedure setU3ARXIF(thebits : TBits_1); inline;
  8781. procedure setU3ATXIF(thebits : TBits_1); inline;
  8782. procedure setU3EIF(thebits : TBits_1); inline;
  8783. procedure setU3RXIF(thebits : TBits_1); inline;
  8784. procedure setU3TXIF(thebits : TBits_1); inline;
  8785. procedure setUSBIF(thebits : TBits_1); inline;
  8786. procedure setw(thebits : TBits_32); inline;
  8787. public
  8788. procedure clearAD1IF; inline;
  8789. procedure clearCAN1IF; inline;
  8790. procedure clearCMP1IF; inline;
  8791. procedure clearCMP2IF; inline;
  8792. procedure clearCNIF; inline;
  8793. procedure clearDMA0IF; inline;
  8794. procedure clearDMA1IF; inline;
  8795. procedure clearDMA2IF; inline;
  8796. procedure clearDMA3IF; inline;
  8797. procedure clearETHIF; inline;
  8798. procedure clearFCEIF; inline;
  8799. procedure clearFSCMIF; inline;
  8800. procedure clearI2C2ABIF; inline;
  8801. procedure clearI2C2AMIF; inline;
  8802. procedure clearI2C2ASIF; inline;
  8803. procedure clearI2C2BIF; inline;
  8804. procedure clearI2C2MIF; inline;
  8805. procedure clearI2C2SIF; inline;
  8806. procedure clearI2C3ABIF; inline;
  8807. procedure clearI2C3AMIF; inline;
  8808. procedure clearI2C3ASIF; inline;
  8809. procedure clearI2C4BIF; inline;
  8810. procedure clearI2C4MIF; inline;
  8811. procedure clearI2C4SIF; inline;
  8812. procedure clearI2C5BIF; inline;
  8813. procedure clearI2C5MIF; inline;
  8814. procedure clearI2C5SIF; inline;
  8815. procedure clearIC1EIF; inline;
  8816. procedure clearIC2EIF; inline;
  8817. procedure clearIC3EIF; inline;
  8818. procedure clearPMPIF; inline;
  8819. procedure clearRTCCIF; inline;
  8820. procedure clearSPI2AEIF; inline;
  8821. procedure clearSPI2ARXIF; inline;
  8822. procedure clearSPI2ATXIF; inline;
  8823. procedure clearSPI2EIF; inline;
  8824. procedure clearSPI2RXIF; inline;
  8825. procedure clearSPI2TXIF; inline;
  8826. procedure clearSPI3AEIF; inline;
  8827. procedure clearSPI3ARXIF; inline;
  8828. procedure clearSPI3ATXIF; inline;
  8829. procedure clearSPI4EIF; inline;
  8830. procedure clearSPI4RXIF; inline;
  8831. procedure clearSPI4TXIF; inline;
  8832. procedure clearU2AEIF; inline;
  8833. procedure clearU2ARXIF; inline;
  8834. procedure clearU2ATXIF; inline;
  8835. procedure clearU2EIF; inline;
  8836. procedure clearU2RXIF; inline;
  8837. procedure clearU2TXIF; inline;
  8838. procedure clearU3AEIF; inline;
  8839. procedure clearU3ARXIF; inline;
  8840. procedure clearU3ATXIF; inline;
  8841. procedure clearU3EIF; inline;
  8842. procedure clearU3RXIF; inline;
  8843. procedure clearU3TXIF; inline;
  8844. procedure clearUSBIF; inline;
  8845. procedure setAD1IF; inline;
  8846. procedure setCAN1IF; inline;
  8847. procedure setCMP1IF; inline;
  8848. procedure setCMP2IF; inline;
  8849. procedure setCNIF; inline;
  8850. procedure setDMA0IF; inline;
  8851. procedure setDMA1IF; inline;
  8852. procedure setDMA2IF; inline;
  8853. procedure setDMA3IF; inline;
  8854. procedure setETHIF; inline;
  8855. procedure setFCEIF; inline;
  8856. procedure setFSCMIF; inline;
  8857. procedure setI2C2ABIF; inline;
  8858. procedure setI2C2AMIF; inline;
  8859. procedure setI2C2ASIF; inline;
  8860. procedure setI2C2BIF; inline;
  8861. procedure setI2C2MIF; inline;
  8862. procedure setI2C2SIF; inline;
  8863. procedure setI2C3ABIF; inline;
  8864. procedure setI2C3AMIF; inline;
  8865. procedure setI2C3ASIF; inline;
  8866. procedure setI2C4BIF; inline;
  8867. procedure setI2C4MIF; inline;
  8868. procedure setI2C4SIF; inline;
  8869. procedure setI2C5BIF; inline;
  8870. procedure setI2C5MIF; inline;
  8871. procedure setI2C5SIF; inline;
  8872. procedure setIC1EIF; inline;
  8873. procedure setIC2EIF; inline;
  8874. procedure setIC3EIF; inline;
  8875. procedure setPMPIF; inline;
  8876. procedure setRTCCIF; inline;
  8877. procedure setSPI2AEIF; inline;
  8878. procedure setSPI2ARXIF; inline;
  8879. procedure setSPI2ATXIF; inline;
  8880. procedure setSPI2EIF; inline;
  8881. procedure setSPI2RXIF; inline;
  8882. procedure setSPI2TXIF; inline;
  8883. procedure setSPI3AEIF; inline;
  8884. procedure setSPI3ARXIF; inline;
  8885. procedure setSPI3ATXIF; inline;
  8886. procedure setSPI4EIF; inline;
  8887. procedure setSPI4RXIF; inline;
  8888. procedure setSPI4TXIF; inline;
  8889. procedure setU2AEIF; inline;
  8890. procedure setU2ARXIF; inline;
  8891. procedure setU2ATXIF; inline;
  8892. procedure setU2EIF; inline;
  8893. procedure setU2RXIF; inline;
  8894. procedure setU2TXIF; inline;
  8895. procedure setU3AEIF; inline;
  8896. procedure setU3ARXIF; inline;
  8897. procedure setU3ATXIF; inline;
  8898. procedure setU3EIF; inline;
  8899. procedure setU3RXIF; inline;
  8900. procedure setU3TXIF; inline;
  8901. procedure setUSBIF; inline;
  8902. property AD1IF : TBits_1 read getAD1IF write setAD1IF;
  8903. property CAN1IF : TBits_1 read getCAN1IF write setCAN1IF;
  8904. property CMP1IF : TBits_1 read getCMP1IF write setCMP1IF;
  8905. property CMP2IF : TBits_1 read getCMP2IF write setCMP2IF;
  8906. property CNIF : TBits_1 read getCNIF write setCNIF;
  8907. property DMA0IF : TBits_1 read getDMA0IF write setDMA0IF;
  8908. property DMA1IF : TBits_1 read getDMA1IF write setDMA1IF;
  8909. property DMA2IF : TBits_1 read getDMA2IF write setDMA2IF;
  8910. property DMA3IF : TBits_1 read getDMA3IF write setDMA3IF;
  8911. property ETHIF : TBits_1 read getETHIF write setETHIF;
  8912. property FCEIF : TBits_1 read getFCEIF write setFCEIF;
  8913. property FSCMIF : TBits_1 read getFSCMIF write setFSCMIF;
  8914. property I2C2ABIF : TBits_1 read getI2C2ABIF write setI2C2ABIF;
  8915. property I2C2AMIF : TBits_1 read getI2C2AMIF write setI2C2AMIF;
  8916. property I2C2ASIF : TBits_1 read getI2C2ASIF write setI2C2ASIF;
  8917. property I2C2BIF : TBits_1 read getI2C2BIF write setI2C2BIF;
  8918. property I2C2MIF : TBits_1 read getI2C2MIF write setI2C2MIF;
  8919. property I2C2SIF : TBits_1 read getI2C2SIF write setI2C2SIF;
  8920. property I2C3ABIF : TBits_1 read getI2C3ABIF write setI2C3ABIF;
  8921. property I2C3AMIF : TBits_1 read getI2C3AMIF write setI2C3AMIF;
  8922. property I2C3ASIF : TBits_1 read getI2C3ASIF write setI2C3ASIF;
  8923. property I2C4BIF : TBits_1 read getI2C4BIF write setI2C4BIF;
  8924. property I2C4MIF : TBits_1 read getI2C4MIF write setI2C4MIF;
  8925. property I2C4SIF : TBits_1 read getI2C4SIF write setI2C4SIF;
  8926. property I2C5BIF : TBits_1 read getI2C5BIF write setI2C5BIF;
  8927. property I2C5MIF : TBits_1 read getI2C5MIF write setI2C5MIF;
  8928. property I2C5SIF : TBits_1 read getI2C5SIF write setI2C5SIF;
  8929. property IC1EIF : TBits_1 read getIC1EIF write setIC1EIF;
  8930. property IC2EIF : TBits_1 read getIC2EIF write setIC2EIF;
  8931. property IC3EIF : TBits_1 read getIC3EIF write setIC3EIF;
  8932. property PMPIF : TBits_1 read getPMPIF write setPMPIF;
  8933. property RTCCIF : TBits_1 read getRTCCIF write setRTCCIF;
  8934. property SPI2AEIF : TBits_1 read getSPI2AEIF write setSPI2AEIF;
  8935. property SPI2ARXIF : TBits_1 read getSPI2ARXIF write setSPI2ARXIF;
  8936. property SPI2ATXIF : TBits_1 read getSPI2ATXIF write setSPI2ATXIF;
  8937. property SPI2EIF : TBits_1 read getSPI2EIF write setSPI2EIF;
  8938. property SPI2RXIF : TBits_1 read getSPI2RXIF write setSPI2RXIF;
  8939. property SPI2TXIF : TBits_1 read getSPI2TXIF write setSPI2TXIF;
  8940. property SPI3AEIF : TBits_1 read getSPI3AEIF write setSPI3AEIF;
  8941. property SPI3ARXIF : TBits_1 read getSPI3ARXIF write setSPI3ARXIF;
  8942. property SPI3ATXIF : TBits_1 read getSPI3ATXIF write setSPI3ATXIF;
  8943. property SPI4EIF : TBits_1 read getSPI4EIF write setSPI4EIF;
  8944. property SPI4RXIF : TBits_1 read getSPI4RXIF write setSPI4RXIF;
  8945. property SPI4TXIF : TBits_1 read getSPI4TXIF write setSPI4TXIF;
  8946. property U2AEIF : TBits_1 read getU2AEIF write setU2AEIF;
  8947. property U2ARXIF : TBits_1 read getU2ARXIF write setU2ARXIF;
  8948. property U2ATXIF : TBits_1 read getU2ATXIF write setU2ATXIF;
  8949. property U2EIF : TBits_1 read getU2EIF write setU2EIF;
  8950. property U2RXIF : TBits_1 read getU2RXIF write setU2RXIF;
  8951. property U2TXIF : TBits_1 read getU2TXIF write setU2TXIF;
  8952. property U3AEIF : TBits_1 read getU3AEIF write setU3AEIF;
  8953. property U3ARXIF : TBits_1 read getU3ARXIF write setU3ARXIF;
  8954. property U3ATXIF : TBits_1 read getU3ATXIF write setU3ATXIF;
  8955. property U3EIF : TBits_1 read getU3EIF write setU3EIF;
  8956. property U3RXIF : TBits_1 read getU3RXIF write setU3RXIF;
  8957. property U3TXIF : TBits_1 read getU3TXIF write setU3TXIF;
  8958. property USBIF : TBits_1 read getUSBIF write setUSBIF;
  8959. property w : TBits_32 read getw write setw;
  8960. end;
  8961. TINT_IFS2 = record
  8962. private
  8963. function getIC4EIF : TBits_1; inline;
  8964. function getIC5EIF : TBits_1; inline;
  8965. function getPMPEIF : TBits_1; inline;
  8966. function getU1BEIF : TBits_1; inline;
  8967. function getU1BRXIF : TBits_1; inline;
  8968. function getU1BTXIF : TBits_1; inline;
  8969. function getU2BEIF : TBits_1; inline;
  8970. function getU2BRXIF : TBits_1; inline;
  8971. function getU2BTXIF : TBits_1; inline;
  8972. function getU3BEIF : TBits_1; inline;
  8973. function getU3BRXIF : TBits_1; inline;
  8974. function getU3BTXIF : TBits_1; inline;
  8975. function getU4EIF : TBits_1; inline;
  8976. function getU4RXIF : TBits_1; inline;
  8977. function getU4TXIF : TBits_1; inline;
  8978. function getU5EIF : TBits_1; inline;
  8979. function getU5RXIF : TBits_1; inline;
  8980. function getU5TXIF : TBits_1; inline;
  8981. function getU6EIF : TBits_1; inline;
  8982. function getU6RXIF : TBits_1; inline;
  8983. function getU6TXIF : TBits_1; inline;
  8984. function getw : TBits_32; inline;
  8985. procedure setIC4EIF(thebits : TBits_1); inline;
  8986. procedure setIC5EIF(thebits : TBits_1); inline;
  8987. procedure setPMPEIF(thebits : TBits_1); inline;
  8988. procedure setU1BEIF(thebits : TBits_1); inline;
  8989. procedure setU1BRXIF(thebits : TBits_1); inline;
  8990. procedure setU1BTXIF(thebits : TBits_1); inline;
  8991. procedure setU2BEIF(thebits : TBits_1); inline;
  8992. procedure setU2BRXIF(thebits : TBits_1); inline;
  8993. procedure setU2BTXIF(thebits : TBits_1); inline;
  8994. procedure setU3BEIF(thebits : TBits_1); inline;
  8995. procedure setU3BRXIF(thebits : TBits_1); inline;
  8996. procedure setU3BTXIF(thebits : TBits_1); inline;
  8997. procedure setU4EIF(thebits : TBits_1); inline;
  8998. procedure setU4RXIF(thebits : TBits_1); inline;
  8999. procedure setU4TXIF(thebits : TBits_1); inline;
  9000. procedure setU5EIF(thebits : TBits_1); inline;
  9001. procedure setU5RXIF(thebits : TBits_1); inline;
  9002. procedure setU5TXIF(thebits : TBits_1); inline;
  9003. procedure setU6EIF(thebits : TBits_1); inline;
  9004. procedure setU6RXIF(thebits : TBits_1); inline;
  9005. procedure setU6TXIF(thebits : TBits_1); inline;
  9006. procedure setw(thebits : TBits_32); inline;
  9007. public
  9008. procedure clearIC4EIF; inline;
  9009. procedure clearIC5EIF; inline;
  9010. procedure clearPMPEIF; inline;
  9011. procedure clearU1BEIF; inline;
  9012. procedure clearU1BRXIF; inline;
  9013. procedure clearU1BTXIF; inline;
  9014. procedure clearU2BEIF; inline;
  9015. procedure clearU2BRXIF; inline;
  9016. procedure clearU2BTXIF; inline;
  9017. procedure clearU3BEIF; inline;
  9018. procedure clearU3BRXIF; inline;
  9019. procedure clearU3BTXIF; inline;
  9020. procedure clearU4EIF; inline;
  9021. procedure clearU4RXIF; inline;
  9022. procedure clearU4TXIF; inline;
  9023. procedure clearU5EIF; inline;
  9024. procedure clearU5RXIF; inline;
  9025. procedure clearU5TXIF; inline;
  9026. procedure clearU6EIF; inline;
  9027. procedure clearU6RXIF; inline;
  9028. procedure clearU6TXIF; inline;
  9029. procedure setIC4EIF; inline;
  9030. procedure setIC5EIF; inline;
  9031. procedure setPMPEIF; inline;
  9032. procedure setU1BEIF; inline;
  9033. procedure setU1BRXIF; inline;
  9034. procedure setU1BTXIF; inline;
  9035. procedure setU2BEIF; inline;
  9036. procedure setU2BRXIF; inline;
  9037. procedure setU2BTXIF; inline;
  9038. procedure setU3BEIF; inline;
  9039. procedure setU3BRXIF; inline;
  9040. procedure setU3BTXIF; inline;
  9041. procedure setU4EIF; inline;
  9042. procedure setU4RXIF; inline;
  9043. procedure setU4TXIF; inline;
  9044. procedure setU5EIF; inline;
  9045. procedure setU5RXIF; inline;
  9046. procedure setU5TXIF; inline;
  9047. procedure setU6EIF; inline;
  9048. procedure setU6RXIF; inline;
  9049. procedure setU6TXIF; inline;
  9050. property IC4EIF : TBits_1 read getIC4EIF write setIC4EIF;
  9051. property IC5EIF : TBits_1 read getIC5EIF write setIC5EIF;
  9052. property PMPEIF : TBits_1 read getPMPEIF write setPMPEIF;
  9053. property U1BEIF : TBits_1 read getU1BEIF write setU1BEIF;
  9054. property U1BRXIF : TBits_1 read getU1BRXIF write setU1BRXIF;
  9055. property U1BTXIF : TBits_1 read getU1BTXIF write setU1BTXIF;
  9056. property U2BEIF : TBits_1 read getU2BEIF write setU2BEIF;
  9057. property U2BRXIF : TBits_1 read getU2BRXIF write setU2BRXIF;
  9058. property U2BTXIF : TBits_1 read getU2BTXIF write setU2BTXIF;
  9059. property U3BEIF : TBits_1 read getU3BEIF write setU3BEIF;
  9060. property U3BRXIF : TBits_1 read getU3BRXIF write setU3BRXIF;
  9061. property U3BTXIF : TBits_1 read getU3BTXIF write setU3BTXIF;
  9062. property U4EIF : TBits_1 read getU4EIF write setU4EIF;
  9063. property U4RXIF : TBits_1 read getU4RXIF write setU4RXIF;
  9064. property U4TXIF : TBits_1 read getU4TXIF write setU4TXIF;
  9065. property U5EIF : TBits_1 read getU5EIF write setU5EIF;
  9066. property U5RXIF : TBits_1 read getU5RXIF write setU5RXIF;
  9067. property U5TXIF : TBits_1 read getU5TXIF write setU5TXIF;
  9068. property U6EIF : TBits_1 read getU6EIF write setU6EIF;
  9069. property U6RXIF : TBits_1 read getU6RXIF write setU6RXIF;
  9070. property U6TXIF : TBits_1 read getU6TXIF write setU6TXIF;
  9071. property w : TBits_32 read getw write setw;
  9072. end;
  9073. TINT_IEC0 = record
  9074. private
  9075. function getCS0IE : TBits_1; inline;
  9076. function getCS1IE : TBits_1; inline;
  9077. function getCTIE : TBits_1; inline;
  9078. function getI2C1ABIE : TBits_1; inline;
  9079. function getI2C1AMIE : TBits_1; inline;
  9080. function getI2C1ASIE : TBits_1; inline;
  9081. function getI2C1BIE : TBits_1; inline;
  9082. function getI2C1MIE : TBits_1; inline;
  9083. function getI2C1SIE : TBits_1; inline;
  9084. function getI2C3BIE : TBits_1; inline;
  9085. function getI2C3MIE : TBits_1; inline;
  9086. function getI2C3SIE : TBits_1; inline;
  9087. function getIC1IE : TBits_1; inline;
  9088. function getIC2IE : TBits_1; inline;
  9089. function getIC3IE : TBits_1; inline;
  9090. function getIC4IE : TBits_1; inline;
  9091. function getIC5IE : TBits_1; inline;
  9092. function getINT0IE : TBits_1; inline;
  9093. function getINT1IE : TBits_1; inline;
  9094. function getINT2IE : TBits_1; inline;
  9095. function getINT3IE : TBits_1; inline;
  9096. function getINT4IE : TBits_1; inline;
  9097. function getOC1IE : TBits_1; inline;
  9098. function getOC2IE : TBits_1; inline;
  9099. function getOC3IE : TBits_1; inline;
  9100. function getOC4IE : TBits_1; inline;
  9101. function getOC5IE : TBits_1; inline;
  9102. function getSPI1AEIE : TBits_1; inline;
  9103. function getSPI1ARXIE : TBits_1; inline;
  9104. function getSPI1ATXIE : TBits_1; inline;
  9105. function getSPI1EIE : TBits_1; inline;
  9106. function getSPI1RXIE : TBits_1; inline;
  9107. function getSPI1TXIE : TBits_1; inline;
  9108. function getSPI3EIE : TBits_1; inline;
  9109. function getSPI3RXIE : TBits_1; inline;
  9110. function getSPI3TXIE : TBits_1; inline;
  9111. function getT1IE : TBits_1; inline;
  9112. function getT2IE : TBits_1; inline;
  9113. function getT3IE : TBits_1; inline;
  9114. function getT4IE : TBits_1; inline;
  9115. function getT5IE : TBits_1; inline;
  9116. function getU1AEIE : TBits_1; inline;
  9117. function getU1ARXIE : TBits_1; inline;
  9118. function getU1ATXIE : TBits_1; inline;
  9119. function getU1EIE : TBits_1; inline;
  9120. function getU1RXIE : TBits_1; inline;
  9121. function getU1TXIE : TBits_1; inline;
  9122. function getw : TBits_32; inline;
  9123. procedure setCS0IE(thebits : TBits_1); inline;
  9124. procedure setCS1IE(thebits : TBits_1); inline;
  9125. procedure setCTIE(thebits : TBits_1); inline;
  9126. procedure setI2C1ABIE(thebits : TBits_1); inline;
  9127. procedure setI2C1AMIE(thebits : TBits_1); inline;
  9128. procedure setI2C1ASIE(thebits : TBits_1); inline;
  9129. procedure setI2C1BIE(thebits : TBits_1); inline;
  9130. procedure setI2C1MIE(thebits : TBits_1); inline;
  9131. procedure setI2C1SIE(thebits : TBits_1); inline;
  9132. procedure setI2C3BIE(thebits : TBits_1); inline;
  9133. procedure setI2C3MIE(thebits : TBits_1); inline;
  9134. procedure setI2C3SIE(thebits : TBits_1); inline;
  9135. procedure setIC1IE(thebits : TBits_1); inline;
  9136. procedure setIC2IE(thebits : TBits_1); inline;
  9137. procedure setIC3IE(thebits : TBits_1); inline;
  9138. procedure setIC4IE(thebits : TBits_1); inline;
  9139. procedure setIC5IE(thebits : TBits_1); inline;
  9140. procedure setINT0IE(thebits : TBits_1); inline;
  9141. procedure setINT1IE(thebits : TBits_1); inline;
  9142. procedure setINT2IE(thebits : TBits_1); inline;
  9143. procedure setINT3IE(thebits : TBits_1); inline;
  9144. procedure setINT4IE(thebits : TBits_1); inline;
  9145. procedure setOC1IE(thebits : TBits_1); inline;
  9146. procedure setOC2IE(thebits : TBits_1); inline;
  9147. procedure setOC3IE(thebits : TBits_1); inline;
  9148. procedure setOC4IE(thebits : TBits_1); inline;
  9149. procedure setOC5IE(thebits : TBits_1); inline;
  9150. procedure setSPI1AEIE(thebits : TBits_1); inline;
  9151. procedure setSPI1ARXIE(thebits : TBits_1); inline;
  9152. procedure setSPI1ATXIE(thebits : TBits_1); inline;
  9153. procedure setSPI1EIE(thebits : TBits_1); inline;
  9154. procedure setSPI1RXIE(thebits : TBits_1); inline;
  9155. procedure setSPI1TXIE(thebits : TBits_1); inline;
  9156. procedure setSPI3EIE(thebits : TBits_1); inline;
  9157. procedure setSPI3RXIE(thebits : TBits_1); inline;
  9158. procedure setSPI3TXIE(thebits : TBits_1); inline;
  9159. procedure setT1IE(thebits : TBits_1); inline;
  9160. procedure setT2IE(thebits : TBits_1); inline;
  9161. procedure setT3IE(thebits : TBits_1); inline;
  9162. procedure setT4IE(thebits : TBits_1); inline;
  9163. procedure setT5IE(thebits : TBits_1); inline;
  9164. procedure setU1AEIE(thebits : TBits_1); inline;
  9165. procedure setU1ARXIE(thebits : TBits_1); inline;
  9166. procedure setU1ATXIE(thebits : TBits_1); inline;
  9167. procedure setU1EIE(thebits : TBits_1); inline;
  9168. procedure setU1RXIE(thebits : TBits_1); inline;
  9169. procedure setU1TXIE(thebits : TBits_1); inline;
  9170. procedure setw(thebits : TBits_32); inline;
  9171. public
  9172. procedure clearCS0IE; inline;
  9173. procedure clearCS1IE; inline;
  9174. procedure clearCTIE; inline;
  9175. procedure clearI2C1ABIE; inline;
  9176. procedure clearI2C1AMIE; inline;
  9177. procedure clearI2C1ASIE; inline;
  9178. procedure clearI2C1BIE; inline;
  9179. procedure clearI2C1MIE; inline;
  9180. procedure clearI2C1SIE; inline;
  9181. procedure clearI2C3BIE; inline;
  9182. procedure clearI2C3MIE; inline;
  9183. procedure clearI2C3SIE; inline;
  9184. procedure clearIC1IE; inline;
  9185. procedure clearIC2IE; inline;
  9186. procedure clearIC3IE; inline;
  9187. procedure clearIC4IE; inline;
  9188. procedure clearIC5IE; inline;
  9189. procedure clearINT0IE; inline;
  9190. procedure clearINT1IE; inline;
  9191. procedure clearINT2IE; inline;
  9192. procedure clearINT3IE; inline;
  9193. procedure clearINT4IE; inline;
  9194. procedure clearOC1IE; inline;
  9195. procedure clearOC2IE; inline;
  9196. procedure clearOC3IE; inline;
  9197. procedure clearOC4IE; inline;
  9198. procedure clearOC5IE; inline;
  9199. procedure clearSPI1AEIE; inline;
  9200. procedure clearSPI1ARXIE; inline;
  9201. procedure clearSPI1ATXIE; inline;
  9202. procedure clearSPI1EIE; inline;
  9203. procedure clearSPI1RXIE; inline;
  9204. procedure clearSPI1TXIE; inline;
  9205. procedure clearSPI3EIE; inline;
  9206. procedure clearSPI3RXIE; inline;
  9207. procedure clearSPI3TXIE; inline;
  9208. procedure clearT1IE; inline;
  9209. procedure clearT2IE; inline;
  9210. procedure clearT3IE; inline;
  9211. procedure clearT4IE; inline;
  9212. procedure clearT5IE; inline;
  9213. procedure clearU1AEIE; inline;
  9214. procedure clearU1ARXIE; inline;
  9215. procedure clearU1ATXIE; inline;
  9216. procedure clearU1EIE; inline;
  9217. procedure clearU1RXIE; inline;
  9218. procedure clearU1TXIE; inline;
  9219. procedure setCS0IE; inline;
  9220. procedure setCS1IE; inline;
  9221. procedure setCTIE; inline;
  9222. procedure setI2C1ABIE; inline;
  9223. procedure setI2C1AMIE; inline;
  9224. procedure setI2C1ASIE; inline;
  9225. procedure setI2C1BIE; inline;
  9226. procedure setI2C1MIE; inline;
  9227. procedure setI2C1SIE; inline;
  9228. procedure setI2C3BIE; inline;
  9229. procedure setI2C3MIE; inline;
  9230. procedure setI2C3SIE; inline;
  9231. procedure setIC1IE; inline;
  9232. procedure setIC2IE; inline;
  9233. procedure setIC3IE; inline;
  9234. procedure setIC4IE; inline;
  9235. procedure setIC5IE; inline;
  9236. procedure setINT0IE; inline;
  9237. procedure setINT1IE; inline;
  9238. procedure setINT2IE; inline;
  9239. procedure setINT3IE; inline;
  9240. procedure setINT4IE; inline;
  9241. procedure setOC1IE; inline;
  9242. procedure setOC2IE; inline;
  9243. procedure setOC3IE; inline;
  9244. procedure setOC4IE; inline;
  9245. procedure setOC5IE; inline;
  9246. procedure setSPI1AEIE; inline;
  9247. procedure setSPI1ARXIE; inline;
  9248. procedure setSPI1ATXIE; inline;
  9249. procedure setSPI1EIE; inline;
  9250. procedure setSPI1RXIE; inline;
  9251. procedure setSPI1TXIE; inline;
  9252. procedure setSPI3EIE; inline;
  9253. procedure setSPI3RXIE; inline;
  9254. procedure setSPI3TXIE; inline;
  9255. procedure setT1IE; inline;
  9256. procedure setT2IE; inline;
  9257. procedure setT3IE; inline;
  9258. procedure setT4IE; inline;
  9259. procedure setT5IE; inline;
  9260. procedure setU1AEIE; inline;
  9261. procedure setU1ARXIE; inline;
  9262. procedure setU1ATXIE; inline;
  9263. procedure setU1EIE; inline;
  9264. procedure setU1RXIE; inline;
  9265. procedure setU1TXIE; inline;
  9266. property CS0IE : TBits_1 read getCS0IE write setCS0IE;
  9267. property CS1IE : TBits_1 read getCS1IE write setCS1IE;
  9268. property CTIE : TBits_1 read getCTIE write setCTIE;
  9269. property I2C1ABIE : TBits_1 read getI2C1ABIE write setI2C1ABIE;
  9270. property I2C1AMIE : TBits_1 read getI2C1AMIE write setI2C1AMIE;
  9271. property I2C1ASIE : TBits_1 read getI2C1ASIE write setI2C1ASIE;
  9272. property I2C1BIE : TBits_1 read getI2C1BIE write setI2C1BIE;
  9273. property I2C1MIE : TBits_1 read getI2C1MIE write setI2C1MIE;
  9274. property I2C1SIE : TBits_1 read getI2C1SIE write setI2C1SIE;
  9275. property I2C3BIE : TBits_1 read getI2C3BIE write setI2C3BIE;
  9276. property I2C3MIE : TBits_1 read getI2C3MIE write setI2C3MIE;
  9277. property I2C3SIE : TBits_1 read getI2C3SIE write setI2C3SIE;
  9278. property IC1IE : TBits_1 read getIC1IE write setIC1IE;
  9279. property IC2IE : TBits_1 read getIC2IE write setIC2IE;
  9280. property IC3IE : TBits_1 read getIC3IE write setIC3IE;
  9281. property IC4IE : TBits_1 read getIC4IE write setIC4IE;
  9282. property IC5IE : TBits_1 read getIC5IE write setIC5IE;
  9283. property INT0IE : TBits_1 read getINT0IE write setINT0IE;
  9284. property INT1IE : TBits_1 read getINT1IE write setINT1IE;
  9285. property INT2IE : TBits_1 read getINT2IE write setINT2IE;
  9286. property INT3IE : TBits_1 read getINT3IE write setINT3IE;
  9287. property INT4IE : TBits_1 read getINT4IE write setINT4IE;
  9288. property OC1IE : TBits_1 read getOC1IE write setOC1IE;
  9289. property OC2IE : TBits_1 read getOC2IE write setOC2IE;
  9290. property OC3IE : TBits_1 read getOC3IE write setOC3IE;
  9291. property OC4IE : TBits_1 read getOC4IE write setOC4IE;
  9292. property OC5IE : TBits_1 read getOC5IE write setOC5IE;
  9293. property SPI1AEIE : TBits_1 read getSPI1AEIE write setSPI1AEIE;
  9294. property SPI1ARXIE : TBits_1 read getSPI1ARXIE write setSPI1ARXIE;
  9295. property SPI1ATXIE : TBits_1 read getSPI1ATXIE write setSPI1ATXIE;
  9296. property SPI1EIE : TBits_1 read getSPI1EIE write setSPI1EIE;
  9297. property SPI1RXIE : TBits_1 read getSPI1RXIE write setSPI1RXIE;
  9298. property SPI1TXIE : TBits_1 read getSPI1TXIE write setSPI1TXIE;
  9299. property SPI3EIE : TBits_1 read getSPI3EIE write setSPI3EIE;
  9300. property SPI3RXIE : TBits_1 read getSPI3RXIE write setSPI3RXIE;
  9301. property SPI3TXIE : TBits_1 read getSPI3TXIE write setSPI3TXIE;
  9302. property T1IE : TBits_1 read getT1IE write setT1IE;
  9303. property T2IE : TBits_1 read getT2IE write setT2IE;
  9304. property T3IE : TBits_1 read getT3IE write setT3IE;
  9305. property T4IE : TBits_1 read getT4IE write setT4IE;
  9306. property T5IE : TBits_1 read getT5IE write setT5IE;
  9307. property U1AEIE : TBits_1 read getU1AEIE write setU1AEIE;
  9308. property U1ARXIE : TBits_1 read getU1ARXIE write setU1ARXIE;
  9309. property U1ATXIE : TBits_1 read getU1ATXIE write setU1ATXIE;
  9310. property U1EIE : TBits_1 read getU1EIE write setU1EIE;
  9311. property U1RXIE : TBits_1 read getU1RXIE write setU1RXIE;
  9312. property U1TXIE : TBits_1 read getU1TXIE write setU1TXIE;
  9313. property w : TBits_32 read getw write setw;
  9314. end;
  9315. TINT_IEC1 = record
  9316. private
  9317. function getAD1IE : TBits_1; inline;
  9318. function getCAN1IE : TBits_1; inline;
  9319. function getCMP1IE : TBits_1; inline;
  9320. function getCMP2IE : TBits_1; inline;
  9321. function getCNIE : TBits_1; inline;
  9322. function getDMA0IE : TBits_1; inline;
  9323. function getDMA1IE : TBits_1; inline;
  9324. function getDMA2IE : TBits_1; inline;
  9325. function getDMA3IE : TBits_1; inline;
  9326. function getETHIE : TBits_1; inline;
  9327. function getFCEIE : TBits_1; inline;
  9328. function getFSCMIE : TBits_1; inline;
  9329. function getI2C2ABIE : TBits_1; inline;
  9330. function getI2C2AMIE : TBits_1; inline;
  9331. function getI2C2ASIE : TBits_1; inline;
  9332. function getI2C2BIE : TBits_1; inline;
  9333. function getI2C2MIE : TBits_1; inline;
  9334. function getI2C2SIE : TBits_1; inline;
  9335. function getI2C3ABIE : TBits_1; inline;
  9336. function getI2C3AMIE : TBits_1; inline;
  9337. function getI2C3ASIE : TBits_1; inline;
  9338. function getI2C4BIE : TBits_1; inline;
  9339. function getI2C4MIE : TBits_1; inline;
  9340. function getI2C4SIE : TBits_1; inline;
  9341. function getI2C5BIE : TBits_1; inline;
  9342. function getI2C5MIE : TBits_1; inline;
  9343. function getI2C5SIE : TBits_1; inline;
  9344. function getIC1EIE : TBits_1; inline;
  9345. function getIC2EIE : TBits_1; inline;
  9346. function getIC3EIE : TBits_1; inline;
  9347. function getPMPIE : TBits_1; inline;
  9348. function getRTCCIE : TBits_1; inline;
  9349. function getSPI2AEIE : TBits_1; inline;
  9350. function getSPI2ARXIE : TBits_1; inline;
  9351. function getSPI2ATXIE : TBits_1; inline;
  9352. function getSPI2EIE : TBits_1; inline;
  9353. function getSPI2RXIE : TBits_1; inline;
  9354. function getSPI2TXIE : TBits_1; inline;
  9355. function getSPI3AEIE : TBits_1; inline;
  9356. function getSPI3ARXIE : TBits_1; inline;
  9357. function getSPI3ATXIE : TBits_1; inline;
  9358. function getSPI4EIE : TBits_1; inline;
  9359. function getSPI4RXIE : TBits_1; inline;
  9360. function getSPI4TXIE : TBits_1; inline;
  9361. function getU2AEIE : TBits_1; inline;
  9362. function getU2ARXIE : TBits_1; inline;
  9363. function getU2ATXIE : TBits_1; inline;
  9364. function getU2EIE : TBits_1; inline;
  9365. function getU2RXIE : TBits_1; inline;
  9366. function getU2TXIE : TBits_1; inline;
  9367. function getU3AEIE : TBits_1; inline;
  9368. function getU3ARXIE : TBits_1; inline;
  9369. function getU3ATXIE : TBits_1; inline;
  9370. function getU3EIE : TBits_1; inline;
  9371. function getU3RXIE : TBits_1; inline;
  9372. function getU3TXIE : TBits_1; inline;
  9373. function getUSBIE : TBits_1; inline;
  9374. function getw : TBits_32; inline;
  9375. procedure setAD1IE(thebits : TBits_1); inline;
  9376. procedure setCAN1IE(thebits : TBits_1); inline;
  9377. procedure setCMP1IE(thebits : TBits_1); inline;
  9378. procedure setCMP2IE(thebits : TBits_1); inline;
  9379. procedure setCNIE(thebits : TBits_1); inline;
  9380. procedure setDMA0IE(thebits : TBits_1); inline;
  9381. procedure setDMA1IE(thebits : TBits_1); inline;
  9382. procedure setDMA2IE(thebits : TBits_1); inline;
  9383. procedure setDMA3IE(thebits : TBits_1); inline;
  9384. procedure setETHIE(thebits : TBits_1); inline;
  9385. procedure setFCEIE(thebits : TBits_1); inline;
  9386. procedure setFSCMIE(thebits : TBits_1); inline;
  9387. procedure setI2C2ABIE(thebits : TBits_1); inline;
  9388. procedure setI2C2AMIE(thebits : TBits_1); inline;
  9389. procedure setI2C2ASIE(thebits : TBits_1); inline;
  9390. procedure setI2C2BIE(thebits : TBits_1); inline;
  9391. procedure setI2C2MIE(thebits : TBits_1); inline;
  9392. procedure setI2C2SIE(thebits : TBits_1); inline;
  9393. procedure setI2C3ABIE(thebits : TBits_1); inline;
  9394. procedure setI2C3AMIE(thebits : TBits_1); inline;
  9395. procedure setI2C3ASIE(thebits : TBits_1); inline;
  9396. procedure setI2C4BIE(thebits : TBits_1); inline;
  9397. procedure setI2C4MIE(thebits : TBits_1); inline;
  9398. procedure setI2C4SIE(thebits : TBits_1); inline;
  9399. procedure setI2C5BIE(thebits : TBits_1); inline;
  9400. procedure setI2C5MIE(thebits : TBits_1); inline;
  9401. procedure setI2C5SIE(thebits : TBits_1); inline;
  9402. procedure setIC1EIE(thebits : TBits_1); inline;
  9403. procedure setIC2EIE(thebits : TBits_1); inline;
  9404. procedure setIC3EIE(thebits : TBits_1); inline;
  9405. procedure setPMPIE(thebits : TBits_1); inline;
  9406. procedure setRTCCIE(thebits : TBits_1); inline;
  9407. procedure setSPI2AEIE(thebits : TBits_1); inline;
  9408. procedure setSPI2ARXIE(thebits : TBits_1); inline;
  9409. procedure setSPI2ATXIE(thebits : TBits_1); inline;
  9410. procedure setSPI2EIE(thebits : TBits_1); inline;
  9411. procedure setSPI2RXIE(thebits : TBits_1); inline;
  9412. procedure setSPI2TXIE(thebits : TBits_1); inline;
  9413. procedure setSPI3AEIE(thebits : TBits_1); inline;
  9414. procedure setSPI3ARXIE(thebits : TBits_1); inline;
  9415. procedure setSPI3ATXIE(thebits : TBits_1); inline;
  9416. procedure setSPI4EIE(thebits : TBits_1); inline;
  9417. procedure setSPI4RXIE(thebits : TBits_1); inline;
  9418. procedure setSPI4TXIE(thebits : TBits_1); inline;
  9419. procedure setU2AEIE(thebits : TBits_1); inline;
  9420. procedure setU2ARXIE(thebits : TBits_1); inline;
  9421. procedure setU2ATXIE(thebits : TBits_1); inline;
  9422. procedure setU2EIE(thebits : TBits_1); inline;
  9423. procedure setU2RXIE(thebits : TBits_1); inline;
  9424. procedure setU2TXIE(thebits : TBits_1); inline;
  9425. procedure setU3AEIE(thebits : TBits_1); inline;
  9426. procedure setU3ARXIE(thebits : TBits_1); inline;
  9427. procedure setU3ATXIE(thebits : TBits_1); inline;
  9428. procedure setU3EIE(thebits : TBits_1); inline;
  9429. procedure setU3RXIE(thebits : TBits_1); inline;
  9430. procedure setU3TXIE(thebits : TBits_1); inline;
  9431. procedure setUSBIE(thebits : TBits_1); inline;
  9432. procedure setw(thebits : TBits_32); inline;
  9433. public
  9434. procedure clearAD1IE; inline;
  9435. procedure clearCAN1IE; inline;
  9436. procedure clearCMP1IE; inline;
  9437. procedure clearCMP2IE; inline;
  9438. procedure clearCNIE; inline;
  9439. procedure clearDMA0IE; inline;
  9440. procedure clearDMA1IE; inline;
  9441. procedure clearDMA2IE; inline;
  9442. procedure clearDMA3IE; inline;
  9443. procedure clearETHIE; inline;
  9444. procedure clearFCEIE; inline;
  9445. procedure clearFSCMIE; inline;
  9446. procedure clearI2C2ABIE; inline;
  9447. procedure clearI2C2AMIE; inline;
  9448. procedure clearI2C2ASIE; inline;
  9449. procedure clearI2C2BIE; inline;
  9450. procedure clearI2C2MIE; inline;
  9451. procedure clearI2C2SIE; inline;
  9452. procedure clearI2C3ABIE; inline;
  9453. procedure clearI2C3AMIE; inline;
  9454. procedure clearI2C3ASIE; inline;
  9455. procedure clearI2C4BIE; inline;
  9456. procedure clearI2C4MIE; inline;
  9457. procedure clearI2C4SIE; inline;
  9458. procedure clearI2C5BIE; inline;
  9459. procedure clearI2C5MIE; inline;
  9460. procedure clearI2C5SIE; inline;
  9461. procedure clearIC1EIE; inline;
  9462. procedure clearIC2EIE; inline;
  9463. procedure clearIC3EIE; inline;
  9464. procedure clearPMPIE; inline;
  9465. procedure clearRTCCIE; inline;
  9466. procedure clearSPI2AEIE; inline;
  9467. procedure clearSPI2ARXIE; inline;
  9468. procedure clearSPI2ATXIE; inline;
  9469. procedure clearSPI2EIE; inline;
  9470. procedure clearSPI2RXIE; inline;
  9471. procedure clearSPI2TXIE; inline;
  9472. procedure clearSPI3AEIE; inline;
  9473. procedure clearSPI3ARXIE; inline;
  9474. procedure clearSPI3ATXIE; inline;
  9475. procedure clearSPI4EIE; inline;
  9476. procedure clearSPI4RXIE; inline;
  9477. procedure clearSPI4TXIE; inline;
  9478. procedure clearU2AEIE; inline;
  9479. procedure clearU2ARXIE; inline;
  9480. procedure clearU2ATXIE; inline;
  9481. procedure clearU2EIE; inline;
  9482. procedure clearU2RXIE; inline;
  9483. procedure clearU2TXIE; inline;
  9484. procedure clearU3AEIE; inline;
  9485. procedure clearU3ARXIE; inline;
  9486. procedure clearU3ATXIE; inline;
  9487. procedure clearU3EIE; inline;
  9488. procedure clearU3RXIE; inline;
  9489. procedure clearU3TXIE; inline;
  9490. procedure clearUSBIE; inline;
  9491. procedure setAD1IE; inline;
  9492. procedure setCAN1IE; inline;
  9493. procedure setCMP1IE; inline;
  9494. procedure setCMP2IE; inline;
  9495. procedure setCNIE; inline;
  9496. procedure setDMA0IE; inline;
  9497. procedure setDMA1IE; inline;
  9498. procedure setDMA2IE; inline;
  9499. procedure setDMA3IE; inline;
  9500. procedure setETHIE; inline;
  9501. procedure setFCEIE; inline;
  9502. procedure setFSCMIE; inline;
  9503. procedure setI2C2ABIE; inline;
  9504. procedure setI2C2AMIE; inline;
  9505. procedure setI2C2ASIE; inline;
  9506. procedure setI2C2BIE; inline;
  9507. procedure setI2C2MIE; inline;
  9508. procedure setI2C2SIE; inline;
  9509. procedure setI2C3ABIE; inline;
  9510. procedure setI2C3AMIE; inline;
  9511. procedure setI2C3ASIE; inline;
  9512. procedure setI2C4BIE; inline;
  9513. procedure setI2C4MIE; inline;
  9514. procedure setI2C4SIE; inline;
  9515. procedure setI2C5BIE; inline;
  9516. procedure setI2C5MIE; inline;
  9517. procedure setI2C5SIE; inline;
  9518. procedure setIC1EIE; inline;
  9519. procedure setIC2EIE; inline;
  9520. procedure setIC3EIE; inline;
  9521. procedure setPMPIE; inline;
  9522. procedure setRTCCIE; inline;
  9523. procedure setSPI2AEIE; inline;
  9524. procedure setSPI2ARXIE; inline;
  9525. procedure setSPI2ATXIE; inline;
  9526. procedure setSPI2EIE; inline;
  9527. procedure setSPI2RXIE; inline;
  9528. procedure setSPI2TXIE; inline;
  9529. procedure setSPI3AEIE; inline;
  9530. procedure setSPI3ARXIE; inline;
  9531. procedure setSPI3ATXIE; inline;
  9532. procedure setSPI4EIE; inline;
  9533. procedure setSPI4RXIE; inline;
  9534. procedure setSPI4TXIE; inline;
  9535. procedure setU2AEIE; inline;
  9536. procedure setU2ARXIE; inline;
  9537. procedure setU2ATXIE; inline;
  9538. procedure setU2EIE; inline;
  9539. procedure setU2RXIE; inline;
  9540. procedure setU2TXIE; inline;
  9541. procedure setU3AEIE; inline;
  9542. procedure setU3ARXIE; inline;
  9543. procedure setU3ATXIE; inline;
  9544. procedure setU3EIE; inline;
  9545. procedure setU3RXIE; inline;
  9546. procedure setU3TXIE; inline;
  9547. procedure setUSBIE; inline;
  9548. property AD1IE : TBits_1 read getAD1IE write setAD1IE;
  9549. property CAN1IE : TBits_1 read getCAN1IE write setCAN1IE;
  9550. property CMP1IE : TBits_1 read getCMP1IE write setCMP1IE;
  9551. property CMP2IE : TBits_1 read getCMP2IE write setCMP2IE;
  9552. property CNIE : TBits_1 read getCNIE write setCNIE;
  9553. property DMA0IE : TBits_1 read getDMA0IE write setDMA0IE;
  9554. property DMA1IE : TBits_1 read getDMA1IE write setDMA1IE;
  9555. property DMA2IE : TBits_1 read getDMA2IE write setDMA2IE;
  9556. property DMA3IE : TBits_1 read getDMA3IE write setDMA3IE;
  9557. property ETHIE : TBits_1 read getETHIE write setETHIE;
  9558. property FCEIE : TBits_1 read getFCEIE write setFCEIE;
  9559. property FSCMIE : TBits_1 read getFSCMIE write setFSCMIE;
  9560. property I2C2ABIE : TBits_1 read getI2C2ABIE write setI2C2ABIE;
  9561. property I2C2AMIE : TBits_1 read getI2C2AMIE write setI2C2AMIE;
  9562. property I2C2ASIE : TBits_1 read getI2C2ASIE write setI2C2ASIE;
  9563. property I2C2BIE : TBits_1 read getI2C2BIE write setI2C2BIE;
  9564. property I2C2MIE : TBits_1 read getI2C2MIE write setI2C2MIE;
  9565. property I2C2SIE : TBits_1 read getI2C2SIE write setI2C2SIE;
  9566. property I2C3ABIE : TBits_1 read getI2C3ABIE write setI2C3ABIE;
  9567. property I2C3AMIE : TBits_1 read getI2C3AMIE write setI2C3AMIE;
  9568. property I2C3ASIE : TBits_1 read getI2C3ASIE write setI2C3ASIE;
  9569. property I2C4BIE : TBits_1 read getI2C4BIE write setI2C4BIE;
  9570. property I2C4MIE : TBits_1 read getI2C4MIE write setI2C4MIE;
  9571. property I2C4SIE : TBits_1 read getI2C4SIE write setI2C4SIE;
  9572. property I2C5BIE : TBits_1 read getI2C5BIE write setI2C5BIE;
  9573. property I2C5MIE : TBits_1 read getI2C5MIE write setI2C5MIE;
  9574. property I2C5SIE : TBits_1 read getI2C5SIE write setI2C5SIE;
  9575. property IC1EIE : TBits_1 read getIC1EIE write setIC1EIE;
  9576. property IC2EIE : TBits_1 read getIC2EIE write setIC2EIE;
  9577. property IC3EIE : TBits_1 read getIC3EIE write setIC3EIE;
  9578. property PMPIE : TBits_1 read getPMPIE write setPMPIE;
  9579. property RTCCIE : TBits_1 read getRTCCIE write setRTCCIE;
  9580. property SPI2AEIE : TBits_1 read getSPI2AEIE write setSPI2AEIE;
  9581. property SPI2ARXIE : TBits_1 read getSPI2ARXIE write setSPI2ARXIE;
  9582. property SPI2ATXIE : TBits_1 read getSPI2ATXIE write setSPI2ATXIE;
  9583. property SPI2EIE : TBits_1 read getSPI2EIE write setSPI2EIE;
  9584. property SPI2RXIE : TBits_1 read getSPI2RXIE write setSPI2RXIE;
  9585. property SPI2TXIE : TBits_1 read getSPI2TXIE write setSPI2TXIE;
  9586. property SPI3AEIE : TBits_1 read getSPI3AEIE write setSPI3AEIE;
  9587. property SPI3ARXIE : TBits_1 read getSPI3ARXIE write setSPI3ARXIE;
  9588. property SPI3ATXIE : TBits_1 read getSPI3ATXIE write setSPI3ATXIE;
  9589. property SPI4EIE : TBits_1 read getSPI4EIE write setSPI4EIE;
  9590. property SPI4RXIE : TBits_1 read getSPI4RXIE write setSPI4RXIE;
  9591. property SPI4TXIE : TBits_1 read getSPI4TXIE write setSPI4TXIE;
  9592. property U2AEIE : TBits_1 read getU2AEIE write setU2AEIE;
  9593. property U2ARXIE : TBits_1 read getU2ARXIE write setU2ARXIE;
  9594. property U2ATXIE : TBits_1 read getU2ATXIE write setU2ATXIE;
  9595. property U2EIE : TBits_1 read getU2EIE write setU2EIE;
  9596. property U2RXIE : TBits_1 read getU2RXIE write setU2RXIE;
  9597. property U2TXIE : TBits_1 read getU2TXIE write setU2TXIE;
  9598. property U3AEIE : TBits_1 read getU3AEIE write setU3AEIE;
  9599. property U3ARXIE : TBits_1 read getU3ARXIE write setU3ARXIE;
  9600. property U3ATXIE : TBits_1 read getU3ATXIE write setU3ATXIE;
  9601. property U3EIE : TBits_1 read getU3EIE write setU3EIE;
  9602. property U3RXIE : TBits_1 read getU3RXIE write setU3RXIE;
  9603. property U3TXIE : TBits_1 read getU3TXIE write setU3TXIE;
  9604. property USBIE : TBits_1 read getUSBIE write setUSBIE;
  9605. property w : TBits_32 read getw write setw;
  9606. end;
  9607. TINT_IEC2 = record
  9608. private
  9609. function getIC4EIE : TBits_1; inline;
  9610. function getIC5EIE : TBits_1; inline;
  9611. function getPMPEIE : TBits_1; inline;
  9612. function getU1BEIE : TBits_1; inline;
  9613. function getU1BRXIE : TBits_1; inline;
  9614. function getU1BTXIE : TBits_1; inline;
  9615. function getU2BEIE : TBits_1; inline;
  9616. function getU2BRXIE : TBits_1; inline;
  9617. function getU2BTXIE : TBits_1; inline;
  9618. function getU3BEIE : TBits_1; inline;
  9619. function getU3BRXIE : TBits_1; inline;
  9620. function getU3BTXIE : TBits_1; inline;
  9621. function getU4EIE : TBits_1; inline;
  9622. function getU4RXIE : TBits_1; inline;
  9623. function getU4TXIE : TBits_1; inline;
  9624. function getU5EIE : TBits_1; inline;
  9625. function getU5RXIE : TBits_1; inline;
  9626. function getU5TXIE : TBits_1; inline;
  9627. function getU6EIE : TBits_1; inline;
  9628. function getU6RXIE : TBits_1; inline;
  9629. function getU6TXIE : TBits_1; inline;
  9630. function getw : TBits_32; inline;
  9631. procedure setIC4EIE(thebits : TBits_1); inline;
  9632. procedure setIC5EIE(thebits : TBits_1); inline;
  9633. procedure setPMPEIE(thebits : TBits_1); inline;
  9634. procedure setU1BEIE(thebits : TBits_1); inline;
  9635. procedure setU1BRXIE(thebits : TBits_1); inline;
  9636. procedure setU1BTXIE(thebits : TBits_1); inline;
  9637. procedure setU2BEIE(thebits : TBits_1); inline;
  9638. procedure setU2BRXIE(thebits : TBits_1); inline;
  9639. procedure setU2BTXIE(thebits : TBits_1); inline;
  9640. procedure setU3BEIE(thebits : TBits_1); inline;
  9641. procedure setU3BRXIE(thebits : TBits_1); inline;
  9642. procedure setU3BTXIE(thebits : TBits_1); inline;
  9643. procedure setU4EIE(thebits : TBits_1); inline;
  9644. procedure setU4RXIE(thebits : TBits_1); inline;
  9645. procedure setU4TXIE(thebits : TBits_1); inline;
  9646. procedure setU5EIE(thebits : TBits_1); inline;
  9647. procedure setU5RXIE(thebits : TBits_1); inline;
  9648. procedure setU5TXIE(thebits : TBits_1); inline;
  9649. procedure setU6EIE(thebits : TBits_1); inline;
  9650. procedure setU6RXIE(thebits : TBits_1); inline;
  9651. procedure setU6TXIE(thebits : TBits_1); inline;
  9652. procedure setw(thebits : TBits_32); inline;
  9653. public
  9654. procedure clearIC4EIE; inline;
  9655. procedure clearIC5EIE; inline;
  9656. procedure clearPMPEIE; inline;
  9657. procedure clearU1BEIE; inline;
  9658. procedure clearU1BRXIE; inline;
  9659. procedure clearU1BTXIE; inline;
  9660. procedure clearU2BEIE; inline;
  9661. procedure clearU2BRXIE; inline;
  9662. procedure clearU2BTXIE; inline;
  9663. procedure clearU3BEIE; inline;
  9664. procedure clearU3BRXIE; inline;
  9665. procedure clearU3BTXIE; inline;
  9666. procedure clearU4EIE; inline;
  9667. procedure clearU4RXIE; inline;
  9668. procedure clearU4TXIE; inline;
  9669. procedure clearU5EIE; inline;
  9670. procedure clearU5RXIE; inline;
  9671. procedure clearU5TXIE; inline;
  9672. procedure clearU6EIE; inline;
  9673. procedure clearU6RXIE; inline;
  9674. procedure clearU6TXIE; inline;
  9675. procedure setIC4EIE; inline;
  9676. procedure setIC5EIE; inline;
  9677. procedure setPMPEIE; inline;
  9678. procedure setU1BEIE; inline;
  9679. procedure setU1BRXIE; inline;
  9680. procedure setU1BTXIE; inline;
  9681. procedure setU2BEIE; inline;
  9682. procedure setU2BRXIE; inline;
  9683. procedure setU2BTXIE; inline;
  9684. procedure setU3BEIE; inline;
  9685. procedure setU3BRXIE; inline;
  9686. procedure setU3BTXIE; inline;
  9687. procedure setU4EIE; inline;
  9688. procedure setU4RXIE; inline;
  9689. procedure setU4TXIE; inline;
  9690. procedure setU5EIE; inline;
  9691. procedure setU5RXIE; inline;
  9692. procedure setU5TXIE; inline;
  9693. procedure setU6EIE; inline;
  9694. procedure setU6RXIE; inline;
  9695. procedure setU6TXIE; inline;
  9696. property IC4EIE : TBits_1 read getIC4EIE write setIC4EIE;
  9697. property IC5EIE : TBits_1 read getIC5EIE write setIC5EIE;
  9698. property PMPEIE : TBits_1 read getPMPEIE write setPMPEIE;
  9699. property U1BEIE : TBits_1 read getU1BEIE write setU1BEIE;
  9700. property U1BRXIE : TBits_1 read getU1BRXIE write setU1BRXIE;
  9701. property U1BTXIE : TBits_1 read getU1BTXIE write setU1BTXIE;
  9702. property U2BEIE : TBits_1 read getU2BEIE write setU2BEIE;
  9703. property U2BRXIE : TBits_1 read getU2BRXIE write setU2BRXIE;
  9704. property U2BTXIE : TBits_1 read getU2BTXIE write setU2BTXIE;
  9705. property U3BEIE : TBits_1 read getU3BEIE write setU3BEIE;
  9706. property U3BRXIE : TBits_1 read getU3BRXIE write setU3BRXIE;
  9707. property U3BTXIE : TBits_1 read getU3BTXIE write setU3BTXIE;
  9708. property U4EIE : TBits_1 read getU4EIE write setU4EIE;
  9709. property U4RXIE : TBits_1 read getU4RXIE write setU4RXIE;
  9710. property U4TXIE : TBits_1 read getU4TXIE write setU4TXIE;
  9711. property U5EIE : TBits_1 read getU5EIE write setU5EIE;
  9712. property U5RXIE : TBits_1 read getU5RXIE write setU5RXIE;
  9713. property U5TXIE : TBits_1 read getU5TXIE write setU5TXIE;
  9714. property U6EIE : TBits_1 read getU6EIE write setU6EIE;
  9715. property U6RXIE : TBits_1 read getU6RXIE write setU6RXIE;
  9716. property U6TXIE : TBits_1 read getU6TXIE write setU6TXIE;
  9717. property w : TBits_32 read getw write setw;
  9718. end;
  9719. TINT_IPC0 = record
  9720. private
  9721. function getCS0IP : TBits_3; inline;
  9722. function getCS0IS : TBits_2; inline;
  9723. function getCS1IP : TBits_3; inline;
  9724. function getCS1IS : TBits_2; inline;
  9725. function getCTIP : TBits_3; inline;
  9726. function getCTIS : TBits_2; inline;
  9727. function getINT0IP : TBits_3; inline;
  9728. function getINT0IS : TBits_2; inline;
  9729. function getw : TBits_32; inline;
  9730. procedure setCS0IP(thebits : TBits_3); inline;
  9731. procedure setCS0IS(thebits : TBits_2); inline;
  9732. procedure setCS1IP(thebits : TBits_3); inline;
  9733. procedure setCS1IS(thebits : TBits_2); inline;
  9734. procedure setCTIP(thebits : TBits_3); inline;
  9735. procedure setCTIS(thebits : TBits_2); inline;
  9736. procedure setINT0IP(thebits : TBits_3); inline;
  9737. procedure setINT0IS(thebits : TBits_2); inline;
  9738. procedure setw(thebits : TBits_32); inline;
  9739. public
  9740. property CS0IP : TBits_3 read getCS0IP write setCS0IP;
  9741. property CS0IS : TBits_2 read getCS0IS write setCS0IS;
  9742. property CS1IP : TBits_3 read getCS1IP write setCS1IP;
  9743. property CS1IS : TBits_2 read getCS1IS write setCS1IS;
  9744. property CTIP : TBits_3 read getCTIP write setCTIP;
  9745. property CTIS : TBits_2 read getCTIS write setCTIS;
  9746. property INT0IP : TBits_3 read getINT0IP write setINT0IP;
  9747. property INT0IS : TBits_2 read getINT0IS write setINT0IS;
  9748. property w : TBits_32 read getw write setw;
  9749. end;
  9750. TINT_IPC1 = record
  9751. private
  9752. function getIC1IP : TBits_3; inline;
  9753. function getIC1IS : TBits_2; inline;
  9754. function getINT1IP : TBits_3; inline;
  9755. function getINT1IS : TBits_2; inline;
  9756. function getOC1IP : TBits_3; inline;
  9757. function getOC1IS : TBits_2; inline;
  9758. function getT1IP : TBits_3; inline;
  9759. function getT1IS : TBits_2; inline;
  9760. function getw : TBits_32; inline;
  9761. procedure setIC1IP(thebits : TBits_3); inline;
  9762. procedure setIC1IS(thebits : TBits_2); inline;
  9763. procedure setINT1IP(thebits : TBits_3); inline;
  9764. procedure setINT1IS(thebits : TBits_2); inline;
  9765. procedure setOC1IP(thebits : TBits_3); inline;
  9766. procedure setOC1IS(thebits : TBits_2); inline;
  9767. procedure setT1IP(thebits : TBits_3); inline;
  9768. procedure setT1IS(thebits : TBits_2); inline;
  9769. procedure setw(thebits : TBits_32); inline;
  9770. public
  9771. property IC1IP : TBits_3 read getIC1IP write setIC1IP;
  9772. property IC1IS : TBits_2 read getIC1IS write setIC1IS;
  9773. property INT1IP : TBits_3 read getINT1IP write setINT1IP;
  9774. property INT1IS : TBits_2 read getINT1IS write setINT1IS;
  9775. property OC1IP : TBits_3 read getOC1IP write setOC1IP;
  9776. property OC1IS : TBits_2 read getOC1IS write setOC1IS;
  9777. property T1IP : TBits_3 read getT1IP write setT1IP;
  9778. property T1IS : TBits_2 read getT1IS write setT1IS;
  9779. property w : TBits_32 read getw write setw;
  9780. end;
  9781. TINT_IPC2 = record
  9782. private
  9783. function getIC2IP : TBits_3; inline;
  9784. function getIC2IS : TBits_2; inline;
  9785. function getINT2IP : TBits_3; inline;
  9786. function getINT2IS : TBits_2; inline;
  9787. function getOC2IP : TBits_3; inline;
  9788. function getOC2IS : TBits_2; inline;
  9789. function getT2IP : TBits_3; inline;
  9790. function getT2IS : TBits_2; inline;
  9791. function getw : TBits_32; inline;
  9792. procedure setIC2IP(thebits : TBits_3); inline;
  9793. procedure setIC2IS(thebits : TBits_2); inline;
  9794. procedure setINT2IP(thebits : TBits_3); inline;
  9795. procedure setINT2IS(thebits : TBits_2); inline;
  9796. procedure setOC2IP(thebits : TBits_3); inline;
  9797. procedure setOC2IS(thebits : TBits_2); inline;
  9798. procedure setT2IP(thebits : TBits_3); inline;
  9799. procedure setT2IS(thebits : TBits_2); inline;
  9800. procedure setw(thebits : TBits_32); inline;
  9801. public
  9802. property IC2IP : TBits_3 read getIC2IP write setIC2IP;
  9803. property IC2IS : TBits_2 read getIC2IS write setIC2IS;
  9804. property INT2IP : TBits_3 read getINT2IP write setINT2IP;
  9805. property INT2IS : TBits_2 read getINT2IS write setINT2IS;
  9806. property OC2IP : TBits_3 read getOC2IP write setOC2IP;
  9807. property OC2IS : TBits_2 read getOC2IS write setOC2IS;
  9808. property T2IP : TBits_3 read getT2IP write setT2IP;
  9809. property T2IS : TBits_2 read getT2IS write setT2IS;
  9810. property w : TBits_32 read getw write setw;
  9811. end;
  9812. TINT_IPC3 = record
  9813. private
  9814. function getIC3IP : TBits_3; inline;
  9815. function getIC3IS : TBits_2; inline;
  9816. function getINT3IP : TBits_3; inline;
  9817. function getINT3IS : TBits_2; inline;
  9818. function getOC3IP : TBits_3; inline;
  9819. function getOC3IS : TBits_2; inline;
  9820. function getT3IP : TBits_3; inline;
  9821. function getT3IS : TBits_2; inline;
  9822. function getw : TBits_32; inline;
  9823. procedure setIC3IP(thebits : TBits_3); inline;
  9824. procedure setIC3IS(thebits : TBits_2); inline;
  9825. procedure setINT3IP(thebits : TBits_3); inline;
  9826. procedure setINT3IS(thebits : TBits_2); inline;
  9827. procedure setOC3IP(thebits : TBits_3); inline;
  9828. procedure setOC3IS(thebits : TBits_2); inline;
  9829. procedure setT3IP(thebits : TBits_3); inline;
  9830. procedure setT3IS(thebits : TBits_2); inline;
  9831. procedure setw(thebits : TBits_32); inline;
  9832. public
  9833. property IC3IP : TBits_3 read getIC3IP write setIC3IP;
  9834. property IC3IS : TBits_2 read getIC3IS write setIC3IS;
  9835. property INT3IP : TBits_3 read getINT3IP write setINT3IP;
  9836. property INT3IS : TBits_2 read getINT3IS write setINT3IS;
  9837. property OC3IP : TBits_3 read getOC3IP write setOC3IP;
  9838. property OC3IS : TBits_2 read getOC3IS write setOC3IS;
  9839. property T3IP : TBits_3 read getT3IP write setT3IP;
  9840. property T3IS : TBits_2 read getT3IS write setT3IS;
  9841. property w : TBits_32 read getw write setw;
  9842. end;
  9843. TINT_IPC4 = record
  9844. private
  9845. function getIC4IP : TBits_3; inline;
  9846. function getIC4IS : TBits_2; inline;
  9847. function getINT4IP : TBits_3; inline;
  9848. function getINT4IS : TBits_2; inline;
  9849. function getOC4IP : TBits_3; inline;
  9850. function getOC4IS : TBits_2; inline;
  9851. function getT4IP : TBits_3; inline;
  9852. function getT4IS : TBits_2; inline;
  9853. function getw : TBits_32; inline;
  9854. procedure setIC4IP(thebits : TBits_3); inline;
  9855. procedure setIC4IS(thebits : TBits_2); inline;
  9856. procedure setINT4IP(thebits : TBits_3); inline;
  9857. procedure setINT4IS(thebits : TBits_2); inline;
  9858. procedure setOC4IP(thebits : TBits_3); inline;
  9859. procedure setOC4IS(thebits : TBits_2); inline;
  9860. procedure setT4IP(thebits : TBits_3); inline;
  9861. procedure setT4IS(thebits : TBits_2); inline;
  9862. procedure setw(thebits : TBits_32); inline;
  9863. public
  9864. property IC4IP : TBits_3 read getIC4IP write setIC4IP;
  9865. property IC4IS : TBits_2 read getIC4IS write setIC4IS;
  9866. property INT4IP : TBits_3 read getINT4IP write setINT4IP;
  9867. property INT4IS : TBits_2 read getINT4IS write setINT4IS;
  9868. property OC4IP : TBits_3 read getOC4IP write setOC4IP;
  9869. property OC4IS : TBits_2 read getOC4IS write setOC4IS;
  9870. property T4IP : TBits_3 read getT4IP write setT4IP;
  9871. property T4IS : TBits_2 read getT4IS write setT4IS;
  9872. property w : TBits_32 read getw write setw;
  9873. end;
  9874. TINT_IPC5 = record
  9875. private
  9876. function getIC5IP : TBits_3; inline;
  9877. function getIC5IS : TBits_2; inline;
  9878. function getOC5IP : TBits_3; inline;
  9879. function getOC5IS : TBits_2; inline;
  9880. function getSPI1IP : TBits_3; inline;
  9881. function getSPI1IS : TBits_2; inline;
  9882. function getT5IP : TBits_3; inline;
  9883. function getT5IS : TBits_2; inline;
  9884. function getw : TBits_32; inline;
  9885. procedure setIC5IP(thebits : TBits_3); inline;
  9886. procedure setIC5IS(thebits : TBits_2); inline;
  9887. procedure setOC5IP(thebits : TBits_3); inline;
  9888. procedure setOC5IS(thebits : TBits_2); inline;
  9889. procedure setSPI1IP(thebits : TBits_3); inline;
  9890. procedure setSPI1IS(thebits : TBits_2); inline;
  9891. procedure setT5IP(thebits : TBits_3); inline;
  9892. procedure setT5IS(thebits : TBits_2); inline;
  9893. procedure setw(thebits : TBits_32); inline;
  9894. public
  9895. property IC5IP : TBits_3 read getIC5IP write setIC5IP;
  9896. property IC5IS : TBits_2 read getIC5IS write setIC5IS;
  9897. property OC5IP : TBits_3 read getOC5IP write setOC5IP;
  9898. property OC5IS : TBits_2 read getOC5IS write setOC5IS;
  9899. property SPI1IP : TBits_3 read getSPI1IP write setSPI1IP;
  9900. property SPI1IS : TBits_2 read getSPI1IS write setSPI1IS;
  9901. property T5IP : TBits_3 read getT5IP write setT5IP;
  9902. property T5IS : TBits_2 read getT5IS write setT5IS;
  9903. property w : TBits_32 read getw write setw;
  9904. end;
  9905. TINT_IPC6 = record
  9906. private
  9907. function getAD1IP : TBits_3; inline;
  9908. function getAD1IS : TBits_2; inline;
  9909. function getCNIP : TBits_3; inline;
  9910. function getCNIS : TBits_2; inline;
  9911. function getI2C1AIP : TBits_3; inline;
  9912. function getI2C1AIS : TBits_2; inline;
  9913. function getI2C1IP : TBits_3; inline;
  9914. function getI2C1IS : TBits_2; inline;
  9915. function getI2C3IP : TBits_3; inline;
  9916. function getI2C3IS : TBits_2; inline;
  9917. function getSPI1AIP : TBits_3; inline;
  9918. function getSPI1AIS : TBits_2; inline;
  9919. function getSPI3IP : TBits_3; inline;
  9920. function getSPI3IS : TBits_2; inline;
  9921. function getU1AIP : TBits_3; inline;
  9922. function getU1AIS : TBits_2; inline;
  9923. function getU1IP : TBits_3; inline;
  9924. function getU1IS : TBits_2; inline;
  9925. function getw : TBits_32; inline;
  9926. procedure setAD1IP(thebits : TBits_3); inline;
  9927. procedure setAD1IS(thebits : TBits_2); inline;
  9928. procedure setCNIP(thebits : TBits_3); inline;
  9929. procedure setCNIS(thebits : TBits_2); inline;
  9930. procedure setI2C1AIP(thebits : TBits_3); inline;
  9931. procedure setI2C1AIS(thebits : TBits_2); inline;
  9932. procedure setI2C1IP(thebits : TBits_3); inline;
  9933. procedure setI2C1IS(thebits : TBits_2); inline;
  9934. procedure setI2C3IP(thebits : TBits_3); inline;
  9935. procedure setI2C3IS(thebits : TBits_2); inline;
  9936. procedure setSPI1AIP(thebits : TBits_3); inline;
  9937. procedure setSPI1AIS(thebits : TBits_2); inline;
  9938. procedure setSPI3IP(thebits : TBits_3); inline;
  9939. procedure setSPI3IS(thebits : TBits_2); inline;
  9940. procedure setU1AIP(thebits : TBits_3); inline;
  9941. procedure setU1AIS(thebits : TBits_2); inline;
  9942. procedure setU1IP(thebits : TBits_3); inline;
  9943. procedure setU1IS(thebits : TBits_2); inline;
  9944. procedure setw(thebits : TBits_32); inline;
  9945. public
  9946. property AD1IP : TBits_3 read getAD1IP write setAD1IP;
  9947. property AD1IS : TBits_2 read getAD1IS write setAD1IS;
  9948. property CNIP : TBits_3 read getCNIP write setCNIP;
  9949. property CNIS : TBits_2 read getCNIS write setCNIS;
  9950. property I2C1AIP : TBits_3 read getI2C1AIP write setI2C1AIP;
  9951. property I2C1AIS : TBits_2 read getI2C1AIS write setI2C1AIS;
  9952. property I2C1IP : TBits_3 read getI2C1IP write setI2C1IP;
  9953. property I2C1IS : TBits_2 read getI2C1IS write setI2C1IS;
  9954. property I2C3IP : TBits_3 read getI2C3IP write setI2C3IP;
  9955. property I2C3IS : TBits_2 read getI2C3IS write setI2C3IS;
  9956. property SPI1AIP : TBits_3 read getSPI1AIP write setSPI1AIP;
  9957. property SPI1AIS : TBits_2 read getSPI1AIS write setSPI1AIS;
  9958. property SPI3IP : TBits_3 read getSPI3IP write setSPI3IP;
  9959. property SPI3IS : TBits_2 read getSPI3IS write setSPI3IS;
  9960. property U1AIP : TBits_3 read getU1AIP write setU1AIP;
  9961. property U1AIS : TBits_2 read getU1AIS write setU1AIS;
  9962. property U1IP : TBits_3 read getU1IP write setU1IP;
  9963. property U1IS : TBits_2 read getU1IS write setU1IS;
  9964. property w : TBits_32 read getw write setw;
  9965. end;
  9966. TINT_IPC7 = record
  9967. private
  9968. function getCMP1IP : TBits_3; inline;
  9969. function getCMP1IS : TBits_2; inline;
  9970. function getCMP2IP : TBits_3; inline;
  9971. function getCMP2IS : TBits_2; inline;
  9972. function getI2C2AIP : TBits_3; inline;
  9973. function getI2C2AIS : TBits_2; inline;
  9974. function getI2C4IP : TBits_3; inline;
  9975. function getI2C4IS : TBits_2; inline;
  9976. function getPMPIP : TBits_3; inline;
  9977. function getPMPIS : TBits_2; inline;
  9978. function getSPI2AIP : TBits_3; inline;
  9979. function getSPI2AIS : TBits_2; inline;
  9980. function getSPI2IP : TBits_3; inline;
  9981. function getSPI2IS : TBits_2; inline;
  9982. function getU2AIP : TBits_3; inline;
  9983. function getU2AIS : TBits_2; inline;
  9984. function getU3IP : TBits_3; inline;
  9985. function getU3IS : TBits_2; inline;
  9986. function getw : TBits_32; inline;
  9987. procedure setCMP1IP(thebits : TBits_3); inline;
  9988. procedure setCMP1IS(thebits : TBits_2); inline;
  9989. procedure setCMP2IP(thebits : TBits_3); inline;
  9990. procedure setCMP2IS(thebits : TBits_2); inline;
  9991. procedure setI2C2AIP(thebits : TBits_3); inline;
  9992. procedure setI2C2AIS(thebits : TBits_2); inline;
  9993. procedure setI2C4IP(thebits : TBits_3); inline;
  9994. procedure setI2C4IS(thebits : TBits_2); inline;
  9995. procedure setPMPIP(thebits : TBits_3); inline;
  9996. procedure setPMPIS(thebits : TBits_2); inline;
  9997. procedure setSPI2AIP(thebits : TBits_3); inline;
  9998. procedure setSPI2AIS(thebits : TBits_2); inline;
  9999. procedure setSPI2IP(thebits : TBits_3); inline;
  10000. procedure setSPI2IS(thebits : TBits_2); inline;
  10001. procedure setU2AIP(thebits : TBits_3); inline;
  10002. procedure setU2AIS(thebits : TBits_2); inline;
  10003. procedure setU3IP(thebits : TBits_3); inline;
  10004. procedure setU3IS(thebits : TBits_2); inline;
  10005. procedure setw(thebits : TBits_32); inline;
  10006. public
  10007. property CMP1IP : TBits_3 read getCMP1IP write setCMP1IP;
  10008. property CMP1IS : TBits_2 read getCMP1IS write setCMP1IS;
  10009. property CMP2IP : TBits_3 read getCMP2IP write setCMP2IP;
  10010. property CMP2IS : TBits_2 read getCMP2IS write setCMP2IS;
  10011. property I2C2AIP : TBits_3 read getI2C2AIP write setI2C2AIP;
  10012. property I2C2AIS : TBits_2 read getI2C2AIS write setI2C2AIS;
  10013. property I2C4IP : TBits_3 read getI2C4IP write setI2C4IP;
  10014. property I2C4IS : TBits_2 read getI2C4IS write setI2C4IS;
  10015. property PMPIP : TBits_3 read getPMPIP write setPMPIP;
  10016. property PMPIS : TBits_2 read getPMPIS write setPMPIS;
  10017. property SPI2AIP : TBits_3 read getSPI2AIP write setSPI2AIP;
  10018. property SPI2AIS : TBits_2 read getSPI2AIS write setSPI2AIS;
  10019. property SPI2IP : TBits_3 read getSPI2IP write setSPI2IP;
  10020. property SPI2IS : TBits_2 read getSPI2IS write setSPI2IS;
  10021. property U2AIP : TBits_3 read getU2AIP write setU2AIP;
  10022. property U2AIS : TBits_2 read getU2AIS write setU2AIS;
  10023. property U3IP : TBits_3 read getU3IP write setU3IP;
  10024. property U3IS : TBits_2 read getU3IS write setU3IS;
  10025. property w : TBits_32 read getw write setw;
  10026. end;
  10027. TINT_IPC8 = record
  10028. private
  10029. function getFSCMIP : TBits_3; inline;
  10030. function getFSCMIS : TBits_2; inline;
  10031. function getI2C2IP : TBits_3; inline;
  10032. function getI2C2IS : TBits_2; inline;
  10033. function getI2C3AIP : TBits_3; inline;
  10034. function getI2C3AIS : TBits_2; inline;
  10035. function getI2C5IP : TBits_3; inline;
  10036. function getI2C5IS : TBits_2; inline;
  10037. function getRTCCIP : TBits_3; inline;
  10038. function getRTCCIS : TBits_2; inline;
  10039. function getSPI3AIP : TBits_3; inline;
  10040. function getSPI3AIS : TBits_2; inline;
  10041. function getSPI4IP : TBits_3; inline;
  10042. function getSPI4IS : TBits_2; inline;
  10043. function getU2IP : TBits_3; inline;
  10044. function getU2IS : TBits_2; inline;
  10045. function getU3AIP : TBits_3; inline;
  10046. function getU3AIS : TBits_2; inline;
  10047. function getw : TBits_32; inline;
  10048. procedure setFSCMIP(thebits : TBits_3); inline;
  10049. procedure setFSCMIS(thebits : TBits_2); inline;
  10050. procedure setI2C2IP(thebits : TBits_3); inline;
  10051. procedure setI2C2IS(thebits : TBits_2); inline;
  10052. procedure setI2C3AIP(thebits : TBits_3); inline;
  10053. procedure setI2C3AIS(thebits : TBits_2); inline;
  10054. procedure setI2C5IP(thebits : TBits_3); inline;
  10055. procedure setI2C5IS(thebits : TBits_2); inline;
  10056. procedure setRTCCIP(thebits : TBits_3); inline;
  10057. procedure setRTCCIS(thebits : TBits_2); inline;
  10058. procedure setSPI3AIP(thebits : TBits_3); inline;
  10059. procedure setSPI3AIS(thebits : TBits_2); inline;
  10060. procedure setSPI4IP(thebits : TBits_3); inline;
  10061. procedure setSPI4IS(thebits : TBits_2); inline;
  10062. procedure setU2IP(thebits : TBits_3); inline;
  10063. procedure setU2IS(thebits : TBits_2); inline;
  10064. procedure setU3AIP(thebits : TBits_3); inline;
  10065. procedure setU3AIS(thebits : TBits_2); inline;
  10066. procedure setw(thebits : TBits_32); inline;
  10067. public
  10068. property FSCMIP : TBits_3 read getFSCMIP write setFSCMIP;
  10069. property FSCMIS : TBits_2 read getFSCMIS write setFSCMIS;
  10070. property I2C2IP : TBits_3 read getI2C2IP write setI2C2IP;
  10071. property I2C2IS : TBits_2 read getI2C2IS write setI2C2IS;
  10072. property I2C3AIP : TBits_3 read getI2C3AIP write setI2C3AIP;
  10073. property I2C3AIS : TBits_2 read getI2C3AIS write setI2C3AIS;
  10074. property I2C5IP : TBits_3 read getI2C5IP write setI2C5IP;
  10075. property I2C5IS : TBits_2 read getI2C5IS write setI2C5IS;
  10076. property RTCCIP : TBits_3 read getRTCCIP write setRTCCIP;
  10077. property RTCCIS : TBits_2 read getRTCCIS write setRTCCIS;
  10078. property SPI3AIP : TBits_3 read getSPI3AIP write setSPI3AIP;
  10079. property SPI3AIS : TBits_2 read getSPI3AIS write setSPI3AIS;
  10080. property SPI4IP : TBits_3 read getSPI4IP write setSPI4IP;
  10081. property SPI4IS : TBits_2 read getSPI4IS write setSPI4IS;
  10082. property U2IP : TBits_3 read getU2IP write setU2IP;
  10083. property U2IS : TBits_2 read getU2IS write setU2IS;
  10084. property U3AIP : TBits_3 read getU3AIP write setU3AIP;
  10085. property U3AIS : TBits_2 read getU3AIS write setU3AIS;
  10086. property w : TBits_32 read getw write setw;
  10087. end;
  10088. TINT_IPC9 = record
  10089. private
  10090. function getDMA0IP : TBits_3; inline;
  10091. function getDMA0IS : TBits_2; inline;
  10092. function getDMA1IP : TBits_3; inline;
  10093. function getDMA1IS : TBits_2; inline;
  10094. function getDMA2IP : TBits_3; inline;
  10095. function getDMA2IS : TBits_2; inline;
  10096. function getDMA3IP : TBits_3; inline;
  10097. function getDMA3IS : TBits_2; inline;
  10098. function getw : TBits_32; inline;
  10099. procedure setDMA0IP(thebits : TBits_3); inline;
  10100. procedure setDMA0IS(thebits : TBits_2); inline;
  10101. procedure setDMA1IP(thebits : TBits_3); inline;
  10102. procedure setDMA1IS(thebits : TBits_2); inline;
  10103. procedure setDMA2IP(thebits : TBits_3); inline;
  10104. procedure setDMA2IS(thebits : TBits_2); inline;
  10105. procedure setDMA3IP(thebits : TBits_3); inline;
  10106. procedure setDMA3IS(thebits : TBits_2); inline;
  10107. procedure setw(thebits : TBits_32); inline;
  10108. public
  10109. property DMA0IP : TBits_3 read getDMA0IP write setDMA0IP;
  10110. property DMA0IS : TBits_2 read getDMA0IS write setDMA0IS;
  10111. property DMA1IP : TBits_3 read getDMA1IP write setDMA1IP;
  10112. property DMA1IS : TBits_2 read getDMA1IS write setDMA1IS;
  10113. property DMA2IP : TBits_3 read getDMA2IP write setDMA2IP;
  10114. property DMA2IS : TBits_2 read getDMA2IS write setDMA2IS;
  10115. property DMA3IP : TBits_3 read getDMA3IP write setDMA3IP;
  10116. property DMA3IS : TBits_2 read getDMA3IS write setDMA3IS;
  10117. property w : TBits_32 read getw write setw;
  10118. end;
  10119. TINT_IPC11 = record
  10120. private
  10121. function getCAN1IP : TBits_3; inline;
  10122. function getCAN1IS : TBits_2; inline;
  10123. function getFCEIP : TBits_3; inline;
  10124. function getFCEIS : TBits_2; inline;
  10125. function getUSBIP : TBits_3; inline;
  10126. function getUSBIS : TBits_2; inline;
  10127. function getw : TBits_32; inline;
  10128. procedure setCAN1IP(thebits : TBits_3); inline;
  10129. procedure setCAN1IS(thebits : TBits_2); inline;
  10130. procedure setFCEIP(thebits : TBits_3); inline;
  10131. procedure setFCEIS(thebits : TBits_2); inline;
  10132. procedure setUSBIP(thebits : TBits_3); inline;
  10133. procedure setUSBIS(thebits : TBits_2); inline;
  10134. procedure setw(thebits : TBits_32); inline;
  10135. public
  10136. property CAN1IP : TBits_3 read getCAN1IP write setCAN1IP;
  10137. property CAN1IS : TBits_2 read getCAN1IS write setCAN1IS;
  10138. property FCEIP : TBits_3 read getFCEIP write setFCEIP;
  10139. property FCEIS : TBits_2 read getFCEIS write setFCEIS;
  10140. property USBIP : TBits_3 read getUSBIP write setUSBIP;
  10141. property USBIS : TBits_2 read getUSBIS write setUSBIS;
  10142. property w : TBits_32 read getw write setw;
  10143. end;
  10144. TINT_IPC12 = record
  10145. private
  10146. function getETHIP : TBits_3; inline;
  10147. function getETHIS : TBits_2; inline;
  10148. function getU1BIP : TBits_3; inline;
  10149. function getU1BIS : TBits_2; inline;
  10150. function getU2BIP : TBits_3; inline;
  10151. function getU2BIS : TBits_2; inline;
  10152. function getU3BIP : TBits_3; inline;
  10153. function getU3BIS : TBits_2; inline;
  10154. function getU4IP : TBits_3; inline;
  10155. function getU4IS : TBits_2; inline;
  10156. function getU5IP : TBits_3; inline;
  10157. function getU5IS : TBits_2; inline;
  10158. function getU6IP : TBits_3; inline;
  10159. function getU6IS : TBits_2; inline;
  10160. function getw : TBits_32; inline;
  10161. procedure setETHIP(thebits : TBits_3); inline;
  10162. procedure setETHIS(thebits : TBits_2); inline;
  10163. procedure setU1BIP(thebits : TBits_3); inline;
  10164. procedure setU1BIS(thebits : TBits_2); inline;
  10165. procedure setU2BIP(thebits : TBits_3); inline;
  10166. procedure setU2BIS(thebits : TBits_2); inline;
  10167. procedure setU3BIP(thebits : TBits_3); inline;
  10168. procedure setU3BIS(thebits : TBits_2); inline;
  10169. procedure setU4IP(thebits : TBits_3); inline;
  10170. procedure setU4IS(thebits : TBits_2); inline;
  10171. procedure setU5IP(thebits : TBits_3); inline;
  10172. procedure setU5IS(thebits : TBits_2); inline;
  10173. procedure setU6IP(thebits : TBits_3); inline;
  10174. procedure setU6IS(thebits : TBits_2); inline;
  10175. procedure setw(thebits : TBits_32); inline;
  10176. public
  10177. property ETHIP : TBits_3 read getETHIP write setETHIP;
  10178. property ETHIS : TBits_2 read getETHIS write setETHIS;
  10179. property U1BIP : TBits_3 read getU1BIP write setU1BIP;
  10180. property U1BIS : TBits_2 read getU1BIS write setU1BIS;
  10181. property U2BIP : TBits_3 read getU2BIP write setU2BIP;
  10182. property U2BIS : TBits_2 read getU2BIS write setU2BIS;
  10183. property U3BIP : TBits_3 read getU3BIP write setU3BIP;
  10184. property U3BIS : TBits_2 read getU3BIS write setU3BIS;
  10185. property U4IP : TBits_3 read getU4IP write setU4IP;
  10186. property U4IS : TBits_2 read getU4IS write setU4IS;
  10187. property U5IP : TBits_3 read getU5IP write setU5IP;
  10188. property U5IS : TBits_2 read getU5IS write setU5IS;
  10189. property U6IP : TBits_3 read getU6IP write setU6IP;
  10190. property U6IS : TBits_2 read getU6IS write setU6IS;
  10191. property w : TBits_32 read getw write setw;
  10192. end;
  10193. type
  10194. TINTRegisters = record
  10195. INTCONbits : TINT_INTCON;
  10196. INTCON : longWord;
  10197. INTCONCLR : longWord;
  10198. INTCONSET : longWord;
  10199. INTCONINV : longWord;
  10200. INTSTAT : longWord;
  10201. IPTMR : longWord;
  10202. IPTMRCLR : longWord;
  10203. IPTMRSET : longWord;
  10204. IPTMRINV : longWord;
  10205. IFS0bits : TINT_IFS0;
  10206. IFS0 : longWord;
  10207. IFS0CLR : longWord;
  10208. IFS0SET : longWord;
  10209. IFS0INV : longWord;
  10210. IFS1bits : TINT_IFS1;
  10211. IFS1 : longWord;
  10212. IFS1CLR : longWord;
  10213. IFS1SET : longWord;
  10214. IFS1INV : longWord;
  10215. IFS2bits : TINT_IFS2;
  10216. IFS2 : longWord;
  10217. IFS2CLR : longWord;
  10218. IFS2SET : longWord;
  10219. IFS2INV : longWord;
  10220. IEC0bits : TINT_IEC0;
  10221. IEC0 : longWord;
  10222. IEC0CLR : longWord;
  10223. IEC0SET : longWord;
  10224. IEC0INV : longWord;
  10225. IEC1bits : TINT_IEC1;
  10226. IEC1 : longWord;
  10227. IEC1CLR : longWord;
  10228. IEC1SET : longWord;
  10229. IEC1INV : longWord;
  10230. IEC2bits : TINT_IEC2;
  10231. IEC2 : longWord;
  10232. IEC2CLR : longWord;
  10233. IEC2SET : longWord;
  10234. IEC2INV : longWord;
  10235. IPC0bits : TINT_IPC0;
  10236. IPC0 : longWord;
  10237. IPC0CLR : longWord;
  10238. IPC0SET : longWord;
  10239. IPC0INV : longWord;
  10240. IPC1bits : TINT_IPC1;
  10241. IPC1 : longWord;
  10242. IPC1CLR : longWord;
  10243. IPC1SET : longWord;
  10244. IPC1INV : longWord;
  10245. IPC2bits : TINT_IPC2;
  10246. IPC2 : longWord;
  10247. IPC2CLR : longWord;
  10248. IPC2SET : longWord;
  10249. IPC2INV : longWord;
  10250. IPC3bits : TINT_IPC3;
  10251. IPC3 : longWord;
  10252. IPC3CLR : longWord;
  10253. IPC3SET : longWord;
  10254. IPC3INV : longWord;
  10255. IPC4bits : TINT_IPC4;
  10256. IPC4 : longWord;
  10257. IPC4CLR : longWord;
  10258. IPC4SET : longWord;
  10259. IPC4INV : longWord;
  10260. IPC5bits : TINT_IPC5;
  10261. IPC5 : longWord;
  10262. IPC5CLR : longWord;
  10263. IPC5SET : longWord;
  10264. IPC5INV : longWord;
  10265. IPC6bits : TINT_IPC6;
  10266. IPC6 : longWord;
  10267. IPC6CLR : longWord;
  10268. IPC6SET : longWord;
  10269. IPC6INV : longWord;
  10270. IPC7bits : TINT_IPC7;
  10271. IPC7 : longWord;
  10272. IPC7CLR : longWord;
  10273. IPC7SET : longWord;
  10274. IPC7INV : longWord;
  10275. IPC8bits : TINT_IPC8;
  10276. IPC8 : longWord;
  10277. IPC8CLR : longWord;
  10278. IPC8SET : longWord;
  10279. IPC8INV : longWord;
  10280. IPC9bits : TINT_IPC9;
  10281. IPC9 : longWord;
  10282. IPC9CLR : longWord;
  10283. IPC9SET : longWord;
  10284. IPC9INV : longWord;
  10285. IPC10 : longWord;
  10286. IPC10CLR : longWord;
  10287. IPC10SET : longWord;
  10288. IPC10INV : longWord;
  10289. IPC11bits : TINT_IPC11;
  10290. IPC11 : longWord;
  10291. IPC11CLR : longWord;
  10292. IPC11SET : longWord;
  10293. IPC11INV : longWord;
  10294. IPC12bits : TINT_IPC12;
  10295. IPC12 : longWord;
  10296. IPC12CLR : longWord;
  10297. IPC12SET : longWord;
  10298. IPC12INV : longWord;
  10299. end;
  10300. TBMX_BMXCON = record
  10301. private
  10302. function getBMXARB : TBits_3; inline;
  10303. function getBMXCHEDMA : TBits_1; inline;
  10304. function getBMXERRDMA : TBits_1; inline;
  10305. function getBMXERRDS : TBits_1; inline;
  10306. function getBMXERRICD : TBits_1; inline;
  10307. function getBMXERRIS : TBits_1; inline;
  10308. function getBMXERRIXI : TBits_1; inline;
  10309. function getBMXWSDRM : TBits_1; inline;
  10310. function getw : TBits_32; inline;
  10311. procedure setBMXARB(thebits : TBits_3); inline;
  10312. procedure setBMXCHEDMA(thebits : TBits_1); inline;
  10313. procedure setBMXERRDMA(thebits : TBits_1); inline;
  10314. procedure setBMXERRDS(thebits : TBits_1); inline;
  10315. procedure setBMXERRICD(thebits : TBits_1); inline;
  10316. procedure setBMXERRIS(thebits : TBits_1); inline;
  10317. procedure setBMXERRIXI(thebits : TBits_1); inline;
  10318. procedure setBMXWSDRM(thebits : TBits_1); inline;
  10319. procedure setw(thebits : TBits_32); inline;
  10320. public
  10321. procedure clearBMXCHEDMA; inline;
  10322. procedure clearBMXERRDMA; inline;
  10323. procedure clearBMXERRDS; inline;
  10324. procedure clearBMXERRICD; inline;
  10325. procedure clearBMXERRIS; inline;
  10326. procedure clearBMXERRIXI; inline;
  10327. procedure clearBMXWSDRM; inline;
  10328. procedure setBMXCHEDMA; inline;
  10329. procedure setBMXERRDMA; inline;
  10330. procedure setBMXERRDS; inline;
  10331. procedure setBMXERRICD; inline;
  10332. procedure setBMXERRIS; inline;
  10333. procedure setBMXERRIXI; inline;
  10334. procedure setBMXWSDRM; inline;
  10335. property BMXARB : TBits_3 read getBMXARB write setBMXARB;
  10336. property BMXCHEDMA : TBits_1 read getBMXCHEDMA write setBMXCHEDMA;
  10337. property BMXERRDMA : TBits_1 read getBMXERRDMA write setBMXERRDMA;
  10338. property BMXERRDS : TBits_1 read getBMXERRDS write setBMXERRDS;
  10339. property BMXERRICD : TBits_1 read getBMXERRICD write setBMXERRICD;
  10340. property BMXERRIS : TBits_1 read getBMXERRIS write setBMXERRIS;
  10341. property BMXERRIXI : TBits_1 read getBMXERRIXI write setBMXERRIXI;
  10342. property BMXWSDRM : TBits_1 read getBMXWSDRM write setBMXWSDRM;
  10343. property w : TBits_32 read getw write setw;
  10344. end;
  10345. type
  10346. TBMXRegisters = record
  10347. BMXCONbits : TBMX_BMXCON;
  10348. BMXCON : longWord;
  10349. BMXCONCLR : longWord;
  10350. BMXCONSET : longWord;
  10351. BMXCONINV : longWord;
  10352. BMXDKPBA : longWord;
  10353. BMXDKPBACLR : longWord;
  10354. BMXDKPBASET : longWord;
  10355. BMXDKPBAINV : longWord;
  10356. BMXDUDBA : longWord;
  10357. BMXDUDBACLR : longWord;
  10358. BMXDUDBASET : longWord;
  10359. BMXDUDBAINV : longWord;
  10360. BMXDUPBA : longWord;
  10361. BMXDUPBACLR : longWord;
  10362. BMXDUPBASET : longWord;
  10363. BMXDUPBAINV : longWord;
  10364. BMXDRMSZ : longWord;
  10365. BMXPUPBA : longWord;
  10366. BMXPUPBACLR : longWord;
  10367. BMXPUPBASET : longWord;
  10368. BMXPUPBAINV : longWord;
  10369. BMXPFMSZ : longWord;
  10370. BMXBOOTSZ : longWord;
  10371. end;
  10372. TDMAC_DMACON = record
  10373. private
  10374. function getDMABUSY : TBits_1; inline;
  10375. function getON : TBits_1; inline;
  10376. function getSUSPEND : TBits_1; inline;
  10377. function getw : TBits_32; inline;
  10378. procedure setDMABUSY(thebits : TBits_1); inline;
  10379. procedure setON(thebits : TBits_1); inline;
  10380. procedure setSUSPEND(thebits : TBits_1); inline;
  10381. procedure setw(thebits : TBits_32); inline;
  10382. public
  10383. procedure clearDMABUSY; inline;
  10384. procedure clearON; inline;
  10385. procedure clearSUSPEND; inline;
  10386. procedure setDMABUSY; inline;
  10387. procedure setON; inline;
  10388. procedure setSUSPEND; inline;
  10389. property DMABUSY : TBits_1 read getDMABUSY write setDMABUSY;
  10390. property ON : TBits_1 read getON write setON;
  10391. property SUSPEND : TBits_1 read getSUSPEND write setSUSPEND;
  10392. property w : TBits_32 read getw write setw;
  10393. end;
  10394. TDMAC_DMASTAT = record
  10395. private
  10396. function getDMACH : TBits_3; inline;
  10397. function getRDWR : TBits_1; inline;
  10398. function getw : TBits_32; inline;
  10399. procedure setDMACH(thebits : TBits_3); inline;
  10400. procedure setRDWR(thebits : TBits_1); inline;
  10401. procedure setw(thebits : TBits_32); inline;
  10402. public
  10403. procedure clearRDWR; inline;
  10404. procedure setRDWR; inline;
  10405. property DMACH : TBits_3 read getDMACH write setDMACH;
  10406. property RDWR : TBits_1 read getRDWR write setRDWR;
  10407. property w : TBits_32 read getw write setw;
  10408. end;
  10409. TDMAC_DCRCCON = record
  10410. private
  10411. function getBITO : TBits_1; inline;
  10412. function getBYTO : TBits_2; inline;
  10413. function getCRCAPP : TBits_1; inline;
  10414. function getCRCCH : TBits_3; inline;
  10415. function getCRCEN : TBits_1; inline;
  10416. function getCRCTYP : TBits_1; inline;
  10417. function getPLEN : TBits_5; inline;
  10418. function getWBO : TBits_1; inline;
  10419. function getw : TBits_32; inline;
  10420. procedure setBITO(thebits : TBits_1); inline;
  10421. procedure setBYTO(thebits : TBits_2); inline;
  10422. procedure setCRCAPP(thebits : TBits_1); inline;
  10423. procedure setCRCCH(thebits : TBits_3); inline;
  10424. procedure setCRCEN(thebits : TBits_1); inline;
  10425. procedure setCRCTYP(thebits : TBits_1); inline;
  10426. procedure setPLEN(thebits : TBits_5); inline;
  10427. procedure setWBO(thebits : TBits_1); inline;
  10428. procedure setw(thebits : TBits_32); inline;
  10429. public
  10430. procedure clearBITO; inline;
  10431. procedure clearCRCAPP; inline;
  10432. procedure clearCRCEN; inline;
  10433. procedure clearCRCTYP; inline;
  10434. procedure clearWBO; inline;
  10435. procedure setBITO; inline;
  10436. procedure setCRCAPP; inline;
  10437. procedure setCRCEN; inline;
  10438. procedure setCRCTYP; inline;
  10439. procedure setWBO; inline;
  10440. property BITO : TBits_1 read getBITO write setBITO;
  10441. property BYTO : TBits_2 read getBYTO write setBYTO;
  10442. property CRCAPP : TBits_1 read getCRCAPP write setCRCAPP;
  10443. property CRCCH : TBits_3 read getCRCCH write setCRCCH;
  10444. property CRCEN : TBits_1 read getCRCEN write setCRCEN;
  10445. property CRCTYP : TBits_1 read getCRCTYP write setCRCTYP;
  10446. property PLEN : TBits_5 read getPLEN write setPLEN;
  10447. property WBO : TBits_1 read getWBO write setWBO;
  10448. property w : TBits_32 read getw write setw;
  10449. end;
  10450. type
  10451. TDMACRegisters = record
  10452. DMACONbits : TDMAC_DMACON;
  10453. DMACON : longWord;
  10454. DMACONCLR : longWord;
  10455. DMACONSET : longWord;
  10456. DMACONINV : longWord;
  10457. DMASTATbits : TDMAC_DMASTAT;
  10458. DMASTAT : longWord;
  10459. DMASTATCLR : longWord;
  10460. DMASTATSET : longWord;
  10461. DMASTATINV : longWord;
  10462. DMAADDR : longWord;
  10463. DMAADDRCLR : longWord;
  10464. DMAADDRSET : longWord;
  10465. DMAADDRINV : longWord;
  10466. DCRCCONbits : TDMAC_DCRCCON;
  10467. DCRCCON : longWord;
  10468. DCRCCONCLR : longWord;
  10469. DCRCCONSET : longWord;
  10470. DCRCCONINV : longWord;
  10471. DCRCDATA : longWord;
  10472. DCRCDATACLR : longWord;
  10473. DCRCDATASET : longWord;
  10474. DCRCDATAINV : longWord;
  10475. DCRCXOR : longWord;
  10476. DCRCXORCLR : longWord;
  10477. DCRCXORSET : longWord;
  10478. DCRCXORINV : longWord;
  10479. end;
  10480. TDMAC0_DCH0CON = record
  10481. private
  10482. function getCHAED : TBits_1; inline;
  10483. function getCHAEN : TBits_1; inline;
  10484. function getCHBUSY : TBits_1; inline;
  10485. function getCHCHN : TBits_1; inline;
  10486. function getCHCHNS : TBits_1; inline;
  10487. function getCHEDET : TBits_1; inline;
  10488. function getCHEN : TBits_1; inline;
  10489. function getCHPRI : TBits_2; inline;
  10490. function getw : TBits_32; inline;
  10491. procedure setCHAED(thebits : TBits_1); inline;
  10492. procedure setCHAEN(thebits : TBits_1); inline;
  10493. procedure setCHBUSY(thebits : TBits_1); inline;
  10494. procedure setCHCHN(thebits : TBits_1); inline;
  10495. procedure setCHCHNS(thebits : TBits_1); inline;
  10496. procedure setCHEDET(thebits : TBits_1); inline;
  10497. procedure setCHEN(thebits : TBits_1); inline;
  10498. procedure setCHPRI(thebits : TBits_2); inline;
  10499. procedure setw(thebits : TBits_32); inline;
  10500. public
  10501. procedure clearCHAED; inline;
  10502. procedure clearCHAEN; inline;
  10503. procedure clearCHBUSY; inline;
  10504. procedure clearCHCHN; inline;
  10505. procedure clearCHCHNS; inline;
  10506. procedure clearCHEDET; inline;
  10507. procedure clearCHEN; inline;
  10508. procedure setCHAED; inline;
  10509. procedure setCHAEN; inline;
  10510. procedure setCHBUSY; inline;
  10511. procedure setCHCHN; inline;
  10512. procedure setCHCHNS; inline;
  10513. procedure setCHEDET; inline;
  10514. procedure setCHEN; inline;
  10515. property CHAED : TBits_1 read getCHAED write setCHAED;
  10516. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  10517. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  10518. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  10519. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  10520. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  10521. property CHEN : TBits_1 read getCHEN write setCHEN;
  10522. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  10523. property w : TBits_32 read getw write setw;
  10524. end;
  10525. TDMAC0_DCH0ECON = record
  10526. private
  10527. function getAIRQEN : TBits_1; inline;
  10528. function getCABORT : TBits_1; inline;
  10529. function getCFORCE : TBits_1; inline;
  10530. function getCHAIRQ : TBits_8; inline;
  10531. function getCHSIRQ : TBits_8; inline;
  10532. function getPATEN : TBits_1; inline;
  10533. function getSIRQEN : TBits_1; inline;
  10534. function getw : TBits_32; inline;
  10535. procedure setAIRQEN(thebits : TBits_1); inline;
  10536. procedure setCABORT(thebits : TBits_1); inline;
  10537. procedure setCFORCE(thebits : TBits_1); inline;
  10538. procedure setCHAIRQ(thebits : TBits_8); inline;
  10539. procedure setCHSIRQ(thebits : TBits_8); inline;
  10540. procedure setPATEN(thebits : TBits_1); inline;
  10541. procedure setSIRQEN(thebits : TBits_1); inline;
  10542. procedure setw(thebits : TBits_32); inline;
  10543. public
  10544. procedure clearAIRQEN; inline;
  10545. procedure clearCABORT; inline;
  10546. procedure clearCFORCE; inline;
  10547. procedure clearPATEN; inline;
  10548. procedure clearSIRQEN; inline;
  10549. procedure setAIRQEN; inline;
  10550. procedure setCABORT; inline;
  10551. procedure setCFORCE; inline;
  10552. procedure setPATEN; inline;
  10553. procedure setSIRQEN; inline;
  10554. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  10555. property CABORT : TBits_1 read getCABORT write setCABORT;
  10556. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  10557. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  10558. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  10559. property PATEN : TBits_1 read getPATEN write setPATEN;
  10560. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  10561. property w : TBits_32 read getw write setw;
  10562. end;
  10563. TDMAC0_DCH0INT = record
  10564. private
  10565. function getCHBCIE : TBits_1; inline;
  10566. function getCHBCIF : TBits_1; inline;
  10567. function getCHCCIE : TBits_1; inline;
  10568. function getCHCCIF : TBits_1; inline;
  10569. function getCHDDIE : TBits_1; inline;
  10570. function getCHDDIF : TBits_1; inline;
  10571. function getCHDHIE : TBits_1; inline;
  10572. function getCHDHIF : TBits_1; inline;
  10573. function getCHERIE : TBits_1; inline;
  10574. function getCHERIF : TBits_1; inline;
  10575. function getCHSDIE : TBits_1; inline;
  10576. function getCHSDIF : TBits_1; inline;
  10577. function getCHSHIE : TBits_1; inline;
  10578. function getCHSHIF : TBits_1; inline;
  10579. function getCHTAIE : TBits_1; inline;
  10580. function getCHTAIF : TBits_1; inline;
  10581. function getw : TBits_32; inline;
  10582. procedure setCHBCIE(thebits : TBits_1); inline;
  10583. procedure setCHBCIF(thebits : TBits_1); inline;
  10584. procedure setCHCCIE(thebits : TBits_1); inline;
  10585. procedure setCHCCIF(thebits : TBits_1); inline;
  10586. procedure setCHDDIE(thebits : TBits_1); inline;
  10587. procedure setCHDDIF(thebits : TBits_1); inline;
  10588. procedure setCHDHIE(thebits : TBits_1); inline;
  10589. procedure setCHDHIF(thebits : TBits_1); inline;
  10590. procedure setCHERIE(thebits : TBits_1); inline;
  10591. procedure setCHERIF(thebits : TBits_1); inline;
  10592. procedure setCHSDIE(thebits : TBits_1); inline;
  10593. procedure setCHSDIF(thebits : TBits_1); inline;
  10594. procedure setCHSHIE(thebits : TBits_1); inline;
  10595. procedure setCHSHIF(thebits : TBits_1); inline;
  10596. procedure setCHTAIE(thebits : TBits_1); inline;
  10597. procedure setCHTAIF(thebits : TBits_1); inline;
  10598. procedure setw(thebits : TBits_32); inline;
  10599. public
  10600. procedure clearCHBCIE; inline;
  10601. procedure clearCHBCIF; inline;
  10602. procedure clearCHCCIE; inline;
  10603. procedure clearCHCCIF; inline;
  10604. procedure clearCHDDIE; inline;
  10605. procedure clearCHDDIF; inline;
  10606. procedure clearCHDHIE; inline;
  10607. procedure clearCHDHIF; inline;
  10608. procedure clearCHERIE; inline;
  10609. procedure clearCHERIF; inline;
  10610. procedure clearCHSDIE; inline;
  10611. procedure clearCHSDIF; inline;
  10612. procedure clearCHSHIE; inline;
  10613. procedure clearCHSHIF; inline;
  10614. procedure clearCHTAIE; inline;
  10615. procedure clearCHTAIF; inline;
  10616. procedure setCHBCIE; inline;
  10617. procedure setCHBCIF; inline;
  10618. procedure setCHCCIE; inline;
  10619. procedure setCHCCIF; inline;
  10620. procedure setCHDDIE; inline;
  10621. procedure setCHDDIF; inline;
  10622. procedure setCHDHIE; inline;
  10623. procedure setCHDHIF; inline;
  10624. procedure setCHERIE; inline;
  10625. procedure setCHERIF; inline;
  10626. procedure setCHSDIE; inline;
  10627. procedure setCHSDIF; inline;
  10628. procedure setCHSHIE; inline;
  10629. procedure setCHSHIF; inline;
  10630. procedure setCHTAIE; inline;
  10631. procedure setCHTAIF; inline;
  10632. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  10633. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  10634. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  10635. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  10636. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  10637. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  10638. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  10639. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  10640. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  10641. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  10642. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  10643. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  10644. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  10645. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  10646. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  10647. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  10648. property w : TBits_32 read getw write setw;
  10649. end;
  10650. type
  10651. TDMAC0Registers = record
  10652. DCH0CONbits : TDMAC0_DCH0CON;
  10653. DCH0CON : longWord;
  10654. DCH0CONCLR : longWord;
  10655. DCH0CONSET : longWord;
  10656. DCH0CONINV : longWord;
  10657. DCH0ECONbits : TDMAC0_DCH0ECON;
  10658. DCH0ECON : longWord;
  10659. DCH0ECONCLR : longWord;
  10660. DCH0ECONSET : longWord;
  10661. DCH0ECONINV : longWord;
  10662. DCH0INTbits : TDMAC0_DCH0INT;
  10663. DCH0INT : longWord;
  10664. DCH0INTCLR : longWord;
  10665. DCH0INTSET : longWord;
  10666. DCH0INTINV : longWord;
  10667. DCH0SSA : longWord;
  10668. DCH0SSACLR : longWord;
  10669. DCH0SSASET : longWord;
  10670. DCH0SSAINV : longWord;
  10671. DCH0DSA : longWord;
  10672. DCH0DSACLR : longWord;
  10673. DCH0DSASET : longWord;
  10674. DCH0DSAINV : longWord;
  10675. DCH0SSIZ : longWord;
  10676. DCH0SSIZCLR : longWord;
  10677. DCH0SSIZSET : longWord;
  10678. DCH0SSIZINV : longWord;
  10679. DCH0DSIZ : longWord;
  10680. DCH0DSIZCLR : longWord;
  10681. DCH0DSIZSET : longWord;
  10682. DCH0DSIZINV : longWord;
  10683. DCH0SPTR : longWord;
  10684. DCH0SPTRCLR : longWord;
  10685. DCH0SPTRSET : longWord;
  10686. DCH0SPTRINV : longWord;
  10687. DCH0DPTR : longWord;
  10688. DCH0DPTRCLR : longWord;
  10689. DCH0DPTRSET : longWord;
  10690. DCH0DPTRINV : longWord;
  10691. DCH0CSIZ : longWord;
  10692. DCH0CSIZCLR : longWord;
  10693. DCH0CSIZSET : longWord;
  10694. DCH0CSIZINV : longWord;
  10695. DCH0CPTR : longWord;
  10696. DCH0CPTRCLR : longWord;
  10697. DCH0CPTRSET : longWord;
  10698. DCH0CPTRINV : longWord;
  10699. DCH0DAT : longWord;
  10700. DCH0DATCLR : longWord;
  10701. DCH0DATSET : longWord;
  10702. DCH0DATINV : longWord;
  10703. end;
  10704. TDMAC1_DCH1CON = record
  10705. private
  10706. function getCHAED : TBits_1; inline;
  10707. function getCHAEN : TBits_1; inline;
  10708. function getCHBUSY : TBits_1; inline;
  10709. function getCHCHN : TBits_1; inline;
  10710. function getCHCHNS : TBits_1; inline;
  10711. function getCHEDET : TBits_1; inline;
  10712. function getCHEN : TBits_1; inline;
  10713. function getCHPRI : TBits_2; inline;
  10714. function getw : TBits_32; inline;
  10715. procedure setCHAED(thebits : TBits_1); inline;
  10716. procedure setCHAEN(thebits : TBits_1); inline;
  10717. procedure setCHBUSY(thebits : TBits_1); inline;
  10718. procedure setCHCHN(thebits : TBits_1); inline;
  10719. procedure setCHCHNS(thebits : TBits_1); inline;
  10720. procedure setCHEDET(thebits : TBits_1); inline;
  10721. procedure setCHEN(thebits : TBits_1); inline;
  10722. procedure setCHPRI(thebits : TBits_2); inline;
  10723. procedure setw(thebits : TBits_32); inline;
  10724. public
  10725. procedure clearCHAED; inline;
  10726. procedure clearCHAEN; inline;
  10727. procedure clearCHBUSY; inline;
  10728. procedure clearCHCHN; inline;
  10729. procedure clearCHCHNS; inline;
  10730. procedure clearCHEDET; inline;
  10731. procedure clearCHEN; inline;
  10732. procedure setCHAED; inline;
  10733. procedure setCHAEN; inline;
  10734. procedure setCHBUSY; inline;
  10735. procedure setCHCHN; inline;
  10736. procedure setCHCHNS; inline;
  10737. procedure setCHEDET; inline;
  10738. procedure setCHEN; inline;
  10739. property CHAED : TBits_1 read getCHAED write setCHAED;
  10740. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  10741. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  10742. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  10743. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  10744. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  10745. property CHEN : TBits_1 read getCHEN write setCHEN;
  10746. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  10747. property w : TBits_32 read getw write setw;
  10748. end;
  10749. TDMAC1_DCH1ECON = record
  10750. private
  10751. function getAIRQEN : TBits_1; inline;
  10752. function getCABORT : TBits_1; inline;
  10753. function getCFORCE : TBits_1; inline;
  10754. function getCHAIRQ : TBits_8; inline;
  10755. function getCHSIRQ : TBits_8; inline;
  10756. function getPATEN : TBits_1; inline;
  10757. function getSIRQEN : TBits_1; inline;
  10758. function getw : TBits_32; inline;
  10759. procedure setAIRQEN(thebits : TBits_1); inline;
  10760. procedure setCABORT(thebits : TBits_1); inline;
  10761. procedure setCFORCE(thebits : TBits_1); inline;
  10762. procedure setCHAIRQ(thebits : TBits_8); inline;
  10763. procedure setCHSIRQ(thebits : TBits_8); inline;
  10764. procedure setPATEN(thebits : TBits_1); inline;
  10765. procedure setSIRQEN(thebits : TBits_1); inline;
  10766. procedure setw(thebits : TBits_32); inline;
  10767. public
  10768. procedure clearAIRQEN; inline;
  10769. procedure clearCABORT; inline;
  10770. procedure clearCFORCE; inline;
  10771. procedure clearPATEN; inline;
  10772. procedure clearSIRQEN; inline;
  10773. procedure setAIRQEN; inline;
  10774. procedure setCABORT; inline;
  10775. procedure setCFORCE; inline;
  10776. procedure setPATEN; inline;
  10777. procedure setSIRQEN; inline;
  10778. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  10779. property CABORT : TBits_1 read getCABORT write setCABORT;
  10780. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  10781. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  10782. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  10783. property PATEN : TBits_1 read getPATEN write setPATEN;
  10784. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  10785. property w : TBits_32 read getw write setw;
  10786. end;
  10787. TDMAC1_DCH1INT = record
  10788. private
  10789. function getCHBCIE : TBits_1; inline;
  10790. function getCHBCIF : TBits_1; inline;
  10791. function getCHCCIE : TBits_1; inline;
  10792. function getCHCCIF : TBits_1; inline;
  10793. function getCHDDIE : TBits_1; inline;
  10794. function getCHDDIF : TBits_1; inline;
  10795. function getCHDHIE : TBits_1; inline;
  10796. function getCHDHIF : TBits_1; inline;
  10797. function getCHERIE : TBits_1; inline;
  10798. function getCHERIF : TBits_1; inline;
  10799. function getCHSDIE : TBits_1; inline;
  10800. function getCHSDIF : TBits_1; inline;
  10801. function getCHSHIE : TBits_1; inline;
  10802. function getCHSHIF : TBits_1; inline;
  10803. function getCHTAIE : TBits_1; inline;
  10804. function getCHTAIF : TBits_1; inline;
  10805. function getw : TBits_32; inline;
  10806. procedure setCHBCIE(thebits : TBits_1); inline;
  10807. procedure setCHBCIF(thebits : TBits_1); inline;
  10808. procedure setCHCCIE(thebits : TBits_1); inline;
  10809. procedure setCHCCIF(thebits : TBits_1); inline;
  10810. procedure setCHDDIE(thebits : TBits_1); inline;
  10811. procedure setCHDDIF(thebits : TBits_1); inline;
  10812. procedure setCHDHIE(thebits : TBits_1); inline;
  10813. procedure setCHDHIF(thebits : TBits_1); inline;
  10814. procedure setCHERIE(thebits : TBits_1); inline;
  10815. procedure setCHERIF(thebits : TBits_1); inline;
  10816. procedure setCHSDIE(thebits : TBits_1); inline;
  10817. procedure setCHSDIF(thebits : TBits_1); inline;
  10818. procedure setCHSHIE(thebits : TBits_1); inline;
  10819. procedure setCHSHIF(thebits : TBits_1); inline;
  10820. procedure setCHTAIE(thebits : TBits_1); inline;
  10821. procedure setCHTAIF(thebits : TBits_1); inline;
  10822. procedure setw(thebits : TBits_32); inline;
  10823. public
  10824. procedure clearCHBCIE; inline;
  10825. procedure clearCHBCIF; inline;
  10826. procedure clearCHCCIE; inline;
  10827. procedure clearCHCCIF; inline;
  10828. procedure clearCHDDIE; inline;
  10829. procedure clearCHDDIF; inline;
  10830. procedure clearCHDHIE; inline;
  10831. procedure clearCHDHIF; inline;
  10832. procedure clearCHERIE; inline;
  10833. procedure clearCHERIF; inline;
  10834. procedure clearCHSDIE; inline;
  10835. procedure clearCHSDIF; inline;
  10836. procedure clearCHSHIE; inline;
  10837. procedure clearCHSHIF; inline;
  10838. procedure clearCHTAIE; inline;
  10839. procedure clearCHTAIF; inline;
  10840. procedure setCHBCIE; inline;
  10841. procedure setCHBCIF; inline;
  10842. procedure setCHCCIE; inline;
  10843. procedure setCHCCIF; inline;
  10844. procedure setCHDDIE; inline;
  10845. procedure setCHDDIF; inline;
  10846. procedure setCHDHIE; inline;
  10847. procedure setCHDHIF; inline;
  10848. procedure setCHERIE; inline;
  10849. procedure setCHERIF; inline;
  10850. procedure setCHSDIE; inline;
  10851. procedure setCHSDIF; inline;
  10852. procedure setCHSHIE; inline;
  10853. procedure setCHSHIF; inline;
  10854. procedure setCHTAIE; inline;
  10855. procedure setCHTAIF; inline;
  10856. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  10857. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  10858. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  10859. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  10860. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  10861. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  10862. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  10863. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  10864. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  10865. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  10866. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  10867. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  10868. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  10869. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  10870. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  10871. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  10872. property w : TBits_32 read getw write setw;
  10873. end;
  10874. type
  10875. TDMAC1Registers = record
  10876. DCH1CONbits : TDMAC1_DCH1CON;
  10877. DCH1CON : longWord;
  10878. DCH1CONCLR : longWord;
  10879. DCH1CONSET : longWord;
  10880. DCH1CONINV : longWord;
  10881. DCH1ECONbits : TDMAC1_DCH1ECON;
  10882. DCH1ECON : longWord;
  10883. DCH1ECONCLR : longWord;
  10884. DCH1ECONSET : longWord;
  10885. DCH1ECONINV : longWord;
  10886. DCH1INTbits : TDMAC1_DCH1INT;
  10887. DCH1INT : longWord;
  10888. DCH1INTCLR : longWord;
  10889. DCH1INTSET : longWord;
  10890. DCH1INTINV : longWord;
  10891. DCH1SSA : longWord;
  10892. DCH1SSACLR : longWord;
  10893. DCH1SSASET : longWord;
  10894. DCH1SSAINV : longWord;
  10895. DCH1DSA : longWord;
  10896. DCH1DSACLR : longWord;
  10897. DCH1DSASET : longWord;
  10898. DCH1DSAINV : longWord;
  10899. DCH1SSIZ : longWord;
  10900. DCH1SSIZCLR : longWord;
  10901. DCH1SSIZSET : longWord;
  10902. DCH1SSIZINV : longWord;
  10903. DCH1DSIZ : longWord;
  10904. DCH1DSIZCLR : longWord;
  10905. DCH1DSIZSET : longWord;
  10906. DCH1DSIZINV : longWord;
  10907. DCH1SPTR : longWord;
  10908. DCH1SPTRCLR : longWord;
  10909. DCH1SPTRSET : longWord;
  10910. DCH1SPTRINV : longWord;
  10911. DCH1DPTR : longWord;
  10912. DCH1DPTRCLR : longWord;
  10913. DCH1DPTRSET : longWord;
  10914. DCH1DPTRINV : longWord;
  10915. DCH1CSIZ : longWord;
  10916. DCH1CSIZCLR : longWord;
  10917. DCH1CSIZSET : longWord;
  10918. DCH1CSIZINV : longWord;
  10919. DCH1CPTR : longWord;
  10920. DCH1CPTRCLR : longWord;
  10921. DCH1CPTRSET : longWord;
  10922. DCH1CPTRINV : longWord;
  10923. DCH1DAT : longWord;
  10924. DCH1DATCLR : longWord;
  10925. DCH1DATSET : longWord;
  10926. DCH1DATINV : longWord;
  10927. end;
  10928. TDMAC2_DCH2CON = record
  10929. private
  10930. function getCHAED : TBits_1; inline;
  10931. function getCHAEN : TBits_1; inline;
  10932. function getCHBUSY : TBits_1; inline;
  10933. function getCHCHN : TBits_1; inline;
  10934. function getCHCHNS : TBits_1; inline;
  10935. function getCHEDET : TBits_1; inline;
  10936. function getCHEN : TBits_1; inline;
  10937. function getCHPRI : TBits_2; inline;
  10938. function getw : TBits_32; inline;
  10939. procedure setCHAED(thebits : TBits_1); inline;
  10940. procedure setCHAEN(thebits : TBits_1); inline;
  10941. procedure setCHBUSY(thebits : TBits_1); inline;
  10942. procedure setCHCHN(thebits : TBits_1); inline;
  10943. procedure setCHCHNS(thebits : TBits_1); inline;
  10944. procedure setCHEDET(thebits : TBits_1); inline;
  10945. procedure setCHEN(thebits : TBits_1); inline;
  10946. procedure setCHPRI(thebits : TBits_2); inline;
  10947. procedure setw(thebits : TBits_32); inline;
  10948. public
  10949. procedure clearCHAED; inline;
  10950. procedure clearCHAEN; inline;
  10951. procedure clearCHBUSY; inline;
  10952. procedure clearCHCHN; inline;
  10953. procedure clearCHCHNS; inline;
  10954. procedure clearCHEDET; inline;
  10955. procedure clearCHEN; inline;
  10956. procedure setCHAED; inline;
  10957. procedure setCHAEN; inline;
  10958. procedure setCHBUSY; inline;
  10959. procedure setCHCHN; inline;
  10960. procedure setCHCHNS; inline;
  10961. procedure setCHEDET; inline;
  10962. procedure setCHEN; inline;
  10963. property CHAED : TBits_1 read getCHAED write setCHAED;
  10964. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  10965. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  10966. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  10967. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  10968. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  10969. property CHEN : TBits_1 read getCHEN write setCHEN;
  10970. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  10971. property w : TBits_32 read getw write setw;
  10972. end;
  10973. TDMAC2_DCH2ECON = record
  10974. private
  10975. function getAIRQEN : TBits_1; inline;
  10976. function getCABORT : TBits_1; inline;
  10977. function getCFORCE : TBits_1; inline;
  10978. function getCHAIRQ : TBits_8; inline;
  10979. function getCHSIRQ : TBits_8; inline;
  10980. function getPATEN : TBits_1; inline;
  10981. function getSIRQEN : TBits_1; inline;
  10982. function getw : TBits_32; inline;
  10983. procedure setAIRQEN(thebits : TBits_1); inline;
  10984. procedure setCABORT(thebits : TBits_1); inline;
  10985. procedure setCFORCE(thebits : TBits_1); inline;
  10986. procedure setCHAIRQ(thebits : TBits_8); inline;
  10987. procedure setCHSIRQ(thebits : TBits_8); inline;
  10988. procedure setPATEN(thebits : TBits_1); inline;
  10989. procedure setSIRQEN(thebits : TBits_1); inline;
  10990. procedure setw(thebits : TBits_32); inline;
  10991. public
  10992. procedure clearAIRQEN; inline;
  10993. procedure clearCABORT; inline;
  10994. procedure clearCFORCE; inline;
  10995. procedure clearPATEN; inline;
  10996. procedure clearSIRQEN; inline;
  10997. procedure setAIRQEN; inline;
  10998. procedure setCABORT; inline;
  10999. procedure setCFORCE; inline;
  11000. procedure setPATEN; inline;
  11001. procedure setSIRQEN; inline;
  11002. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  11003. property CABORT : TBits_1 read getCABORT write setCABORT;
  11004. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  11005. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  11006. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  11007. property PATEN : TBits_1 read getPATEN write setPATEN;
  11008. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  11009. property w : TBits_32 read getw write setw;
  11010. end;
  11011. TDMAC2_DCH2INT = record
  11012. private
  11013. function getCHBCIE : TBits_1; inline;
  11014. function getCHBCIF : TBits_1; inline;
  11015. function getCHCCIE : TBits_1; inline;
  11016. function getCHCCIF : TBits_1; inline;
  11017. function getCHDDIE : TBits_1; inline;
  11018. function getCHDDIF : TBits_1; inline;
  11019. function getCHDHIE : TBits_1; inline;
  11020. function getCHDHIF : TBits_1; inline;
  11021. function getCHERIE : TBits_1; inline;
  11022. function getCHERIF : TBits_1; inline;
  11023. function getCHSDIE : TBits_1; inline;
  11024. function getCHSDIF : TBits_1; inline;
  11025. function getCHSHIE : TBits_1; inline;
  11026. function getCHSHIF : TBits_1; inline;
  11027. function getCHTAIE : TBits_1; inline;
  11028. function getCHTAIF : TBits_1; inline;
  11029. function getw : TBits_32; inline;
  11030. procedure setCHBCIE(thebits : TBits_1); inline;
  11031. procedure setCHBCIF(thebits : TBits_1); inline;
  11032. procedure setCHCCIE(thebits : TBits_1); inline;
  11033. procedure setCHCCIF(thebits : TBits_1); inline;
  11034. procedure setCHDDIE(thebits : TBits_1); inline;
  11035. procedure setCHDDIF(thebits : TBits_1); inline;
  11036. procedure setCHDHIE(thebits : TBits_1); inline;
  11037. procedure setCHDHIF(thebits : TBits_1); inline;
  11038. procedure setCHERIE(thebits : TBits_1); inline;
  11039. procedure setCHERIF(thebits : TBits_1); inline;
  11040. procedure setCHSDIE(thebits : TBits_1); inline;
  11041. procedure setCHSDIF(thebits : TBits_1); inline;
  11042. procedure setCHSHIE(thebits : TBits_1); inline;
  11043. procedure setCHSHIF(thebits : TBits_1); inline;
  11044. procedure setCHTAIE(thebits : TBits_1); inline;
  11045. procedure setCHTAIF(thebits : TBits_1); inline;
  11046. procedure setw(thebits : TBits_32); inline;
  11047. public
  11048. procedure clearCHBCIE; inline;
  11049. procedure clearCHBCIF; inline;
  11050. procedure clearCHCCIE; inline;
  11051. procedure clearCHCCIF; inline;
  11052. procedure clearCHDDIE; inline;
  11053. procedure clearCHDDIF; inline;
  11054. procedure clearCHDHIE; inline;
  11055. procedure clearCHDHIF; inline;
  11056. procedure clearCHERIE; inline;
  11057. procedure clearCHERIF; inline;
  11058. procedure clearCHSDIE; inline;
  11059. procedure clearCHSDIF; inline;
  11060. procedure clearCHSHIE; inline;
  11061. procedure clearCHSHIF; inline;
  11062. procedure clearCHTAIE; inline;
  11063. procedure clearCHTAIF; inline;
  11064. procedure setCHBCIE; inline;
  11065. procedure setCHBCIF; inline;
  11066. procedure setCHCCIE; inline;
  11067. procedure setCHCCIF; inline;
  11068. procedure setCHDDIE; inline;
  11069. procedure setCHDDIF; inline;
  11070. procedure setCHDHIE; inline;
  11071. procedure setCHDHIF; inline;
  11072. procedure setCHERIE; inline;
  11073. procedure setCHERIF; inline;
  11074. procedure setCHSDIE; inline;
  11075. procedure setCHSDIF; inline;
  11076. procedure setCHSHIE; inline;
  11077. procedure setCHSHIF; inline;
  11078. procedure setCHTAIE; inline;
  11079. procedure setCHTAIF; inline;
  11080. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  11081. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  11082. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  11083. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  11084. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  11085. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  11086. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  11087. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  11088. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  11089. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  11090. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  11091. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  11092. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  11093. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  11094. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  11095. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  11096. property w : TBits_32 read getw write setw;
  11097. end;
  11098. type
  11099. TDMAC2Registers = record
  11100. DCH2CONbits : TDMAC2_DCH2CON;
  11101. DCH2CON : longWord;
  11102. DCH2CONCLR : longWord;
  11103. DCH2CONSET : longWord;
  11104. DCH2CONINV : longWord;
  11105. DCH2ECONbits : TDMAC2_DCH2ECON;
  11106. DCH2ECON : longWord;
  11107. DCH2ECONCLR : longWord;
  11108. DCH2ECONSET : longWord;
  11109. DCH2ECONINV : longWord;
  11110. DCH2INTbits : TDMAC2_DCH2INT;
  11111. DCH2INT : longWord;
  11112. DCH2INTCLR : longWord;
  11113. DCH2INTSET : longWord;
  11114. DCH2INTINV : longWord;
  11115. DCH2SSA : longWord;
  11116. DCH2SSACLR : longWord;
  11117. DCH2SSASET : longWord;
  11118. DCH2SSAINV : longWord;
  11119. DCH2DSA : longWord;
  11120. DCH2DSACLR : longWord;
  11121. DCH2DSASET : longWord;
  11122. DCH2DSAINV : longWord;
  11123. DCH2SSIZ : longWord;
  11124. DCH2SSIZCLR : longWord;
  11125. DCH2SSIZSET : longWord;
  11126. DCH2SSIZINV : longWord;
  11127. DCH2DSIZ : longWord;
  11128. DCH2DSIZCLR : longWord;
  11129. DCH2DSIZSET : longWord;
  11130. DCH2DSIZINV : longWord;
  11131. DCH2SPTR : longWord;
  11132. DCH2SPTRCLR : longWord;
  11133. DCH2SPTRSET : longWord;
  11134. DCH2SPTRINV : longWord;
  11135. DCH2DPTR : longWord;
  11136. DCH2DPTRCLR : longWord;
  11137. DCH2DPTRSET : longWord;
  11138. DCH2DPTRINV : longWord;
  11139. DCH2CSIZ : longWord;
  11140. DCH2CSIZCLR : longWord;
  11141. DCH2CSIZSET : longWord;
  11142. DCH2CSIZINV : longWord;
  11143. DCH2CPTR : longWord;
  11144. DCH2CPTRCLR : longWord;
  11145. DCH2CPTRSET : longWord;
  11146. DCH2CPTRINV : longWord;
  11147. DCH2DAT : longWord;
  11148. DCH2DATCLR : longWord;
  11149. DCH2DATSET : longWord;
  11150. DCH2DATINV : longWord;
  11151. end;
  11152. TDMAC3_DCH3CON = record
  11153. private
  11154. function getCHAED : TBits_1; inline;
  11155. function getCHAEN : TBits_1; inline;
  11156. function getCHBUSY : TBits_1; inline;
  11157. function getCHCHN : TBits_1; inline;
  11158. function getCHCHNS : TBits_1; inline;
  11159. function getCHEDET : TBits_1; inline;
  11160. function getCHEN : TBits_1; inline;
  11161. function getCHPRI : TBits_2; inline;
  11162. function getw : TBits_32; inline;
  11163. procedure setCHAED(thebits : TBits_1); inline;
  11164. procedure setCHAEN(thebits : TBits_1); inline;
  11165. procedure setCHBUSY(thebits : TBits_1); inline;
  11166. procedure setCHCHN(thebits : TBits_1); inline;
  11167. procedure setCHCHNS(thebits : TBits_1); inline;
  11168. procedure setCHEDET(thebits : TBits_1); inline;
  11169. procedure setCHEN(thebits : TBits_1); inline;
  11170. procedure setCHPRI(thebits : TBits_2); inline;
  11171. procedure setw(thebits : TBits_32); inline;
  11172. public
  11173. procedure clearCHAED; inline;
  11174. procedure clearCHAEN; inline;
  11175. procedure clearCHBUSY; inline;
  11176. procedure clearCHCHN; inline;
  11177. procedure clearCHCHNS; inline;
  11178. procedure clearCHEDET; inline;
  11179. procedure clearCHEN; inline;
  11180. procedure setCHAED; inline;
  11181. procedure setCHAEN; inline;
  11182. procedure setCHBUSY; inline;
  11183. procedure setCHCHN; inline;
  11184. procedure setCHCHNS; inline;
  11185. procedure setCHEDET; inline;
  11186. procedure setCHEN; inline;
  11187. property CHAED : TBits_1 read getCHAED write setCHAED;
  11188. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  11189. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  11190. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  11191. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  11192. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  11193. property CHEN : TBits_1 read getCHEN write setCHEN;
  11194. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  11195. property w : TBits_32 read getw write setw;
  11196. end;
  11197. TDMAC3_DCH3ECON = record
  11198. private
  11199. function getAIRQEN : TBits_1; inline;
  11200. function getCABORT : TBits_1; inline;
  11201. function getCFORCE : TBits_1; inline;
  11202. function getCHAIRQ : TBits_8; inline;
  11203. function getCHSIRQ : TBits_8; inline;
  11204. function getPATEN : TBits_1; inline;
  11205. function getSIRQEN : TBits_1; inline;
  11206. function getw : TBits_32; inline;
  11207. procedure setAIRQEN(thebits : TBits_1); inline;
  11208. procedure setCABORT(thebits : TBits_1); inline;
  11209. procedure setCFORCE(thebits : TBits_1); inline;
  11210. procedure setCHAIRQ(thebits : TBits_8); inline;
  11211. procedure setCHSIRQ(thebits : TBits_8); inline;
  11212. procedure setPATEN(thebits : TBits_1); inline;
  11213. procedure setSIRQEN(thebits : TBits_1); inline;
  11214. procedure setw(thebits : TBits_32); inline;
  11215. public
  11216. procedure clearAIRQEN; inline;
  11217. procedure clearCABORT; inline;
  11218. procedure clearCFORCE; inline;
  11219. procedure clearPATEN; inline;
  11220. procedure clearSIRQEN; inline;
  11221. procedure setAIRQEN; inline;
  11222. procedure setCABORT; inline;
  11223. procedure setCFORCE; inline;
  11224. procedure setPATEN; inline;
  11225. procedure setSIRQEN; inline;
  11226. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  11227. property CABORT : TBits_1 read getCABORT write setCABORT;
  11228. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  11229. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  11230. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  11231. property PATEN : TBits_1 read getPATEN write setPATEN;
  11232. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  11233. property w : TBits_32 read getw write setw;
  11234. end;
  11235. TDMAC3_DCH3INT = record
  11236. private
  11237. function getCHBCIE : TBits_1; inline;
  11238. function getCHBCIF : TBits_1; inline;
  11239. function getCHCCIE : TBits_1; inline;
  11240. function getCHCCIF : TBits_1; inline;
  11241. function getCHDDIE : TBits_1; inline;
  11242. function getCHDDIF : TBits_1; inline;
  11243. function getCHDHIE : TBits_1; inline;
  11244. function getCHDHIF : TBits_1; inline;
  11245. function getCHERIE : TBits_1; inline;
  11246. function getCHERIF : TBits_1; inline;
  11247. function getCHSDIE : TBits_1; inline;
  11248. function getCHSDIF : TBits_1; inline;
  11249. function getCHSHIE : TBits_1; inline;
  11250. function getCHSHIF : TBits_1; inline;
  11251. function getCHTAIE : TBits_1; inline;
  11252. function getCHTAIF : TBits_1; inline;
  11253. function getw : TBits_32; inline;
  11254. procedure setCHBCIE(thebits : TBits_1); inline;
  11255. procedure setCHBCIF(thebits : TBits_1); inline;
  11256. procedure setCHCCIE(thebits : TBits_1); inline;
  11257. procedure setCHCCIF(thebits : TBits_1); inline;
  11258. procedure setCHDDIE(thebits : TBits_1); inline;
  11259. procedure setCHDDIF(thebits : TBits_1); inline;
  11260. procedure setCHDHIE(thebits : TBits_1); inline;
  11261. procedure setCHDHIF(thebits : TBits_1); inline;
  11262. procedure setCHERIE(thebits : TBits_1); inline;
  11263. procedure setCHERIF(thebits : TBits_1); inline;
  11264. procedure setCHSDIE(thebits : TBits_1); inline;
  11265. procedure setCHSDIF(thebits : TBits_1); inline;
  11266. procedure setCHSHIE(thebits : TBits_1); inline;
  11267. procedure setCHSHIF(thebits : TBits_1); inline;
  11268. procedure setCHTAIE(thebits : TBits_1); inline;
  11269. procedure setCHTAIF(thebits : TBits_1); inline;
  11270. procedure setw(thebits : TBits_32); inline;
  11271. public
  11272. procedure clearCHBCIE; inline;
  11273. procedure clearCHBCIF; inline;
  11274. procedure clearCHCCIE; inline;
  11275. procedure clearCHCCIF; inline;
  11276. procedure clearCHDDIE; inline;
  11277. procedure clearCHDDIF; inline;
  11278. procedure clearCHDHIE; inline;
  11279. procedure clearCHDHIF; inline;
  11280. procedure clearCHERIE; inline;
  11281. procedure clearCHERIF; inline;
  11282. procedure clearCHSDIE; inline;
  11283. procedure clearCHSDIF; inline;
  11284. procedure clearCHSHIE; inline;
  11285. procedure clearCHSHIF; inline;
  11286. procedure clearCHTAIE; inline;
  11287. procedure clearCHTAIF; inline;
  11288. procedure setCHBCIE; inline;
  11289. procedure setCHBCIF; inline;
  11290. procedure setCHCCIE; inline;
  11291. procedure setCHCCIF; inline;
  11292. procedure setCHDDIE; inline;
  11293. procedure setCHDDIF; inline;
  11294. procedure setCHDHIE; inline;
  11295. procedure setCHDHIF; inline;
  11296. procedure setCHERIE; inline;
  11297. procedure setCHERIF; inline;
  11298. procedure setCHSDIE; inline;
  11299. procedure setCHSDIF; inline;
  11300. procedure setCHSHIE; inline;
  11301. procedure setCHSHIF; inline;
  11302. procedure setCHTAIE; inline;
  11303. procedure setCHTAIF; inline;
  11304. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  11305. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  11306. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  11307. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  11308. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  11309. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  11310. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  11311. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  11312. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  11313. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  11314. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  11315. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  11316. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  11317. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  11318. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  11319. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  11320. property w : TBits_32 read getw write setw;
  11321. end;
  11322. type
  11323. TDMAC3Registers = record
  11324. DCH3CONbits : TDMAC3_DCH3CON;
  11325. DCH3CON : longWord;
  11326. DCH3CONCLR : longWord;
  11327. DCH3CONSET : longWord;
  11328. DCH3CONINV : longWord;
  11329. DCH3ECONbits : TDMAC3_DCH3ECON;
  11330. DCH3ECON : longWord;
  11331. DCH3ECONCLR : longWord;
  11332. DCH3ECONSET : longWord;
  11333. DCH3ECONINV : longWord;
  11334. DCH3INTbits : TDMAC3_DCH3INT;
  11335. DCH3INT : longWord;
  11336. DCH3INTCLR : longWord;
  11337. DCH3INTSET : longWord;
  11338. DCH3INTINV : longWord;
  11339. DCH3SSA : longWord;
  11340. DCH3SSACLR : longWord;
  11341. DCH3SSASET : longWord;
  11342. DCH3SSAINV : longWord;
  11343. DCH3DSA : longWord;
  11344. DCH3DSACLR : longWord;
  11345. DCH3DSASET : longWord;
  11346. DCH3DSAINV : longWord;
  11347. DCH3SSIZ : longWord;
  11348. DCH3SSIZCLR : longWord;
  11349. DCH3SSIZSET : longWord;
  11350. DCH3SSIZINV : longWord;
  11351. DCH3DSIZ : longWord;
  11352. DCH3DSIZCLR : longWord;
  11353. DCH3DSIZSET : longWord;
  11354. DCH3DSIZINV : longWord;
  11355. DCH3SPTR : longWord;
  11356. DCH3SPTRCLR : longWord;
  11357. DCH3SPTRSET : longWord;
  11358. DCH3SPTRINV : longWord;
  11359. DCH3DPTR : longWord;
  11360. DCH3DPTRCLR : longWord;
  11361. DCH3DPTRSET : longWord;
  11362. DCH3DPTRINV : longWord;
  11363. DCH3CSIZ : longWord;
  11364. DCH3CSIZCLR : longWord;
  11365. DCH3CSIZSET : longWord;
  11366. DCH3CSIZINV : longWord;
  11367. DCH3CPTR : longWord;
  11368. DCH3CPTRCLR : longWord;
  11369. DCH3CPTRSET : longWord;
  11370. DCH3CPTRINV : longWord;
  11371. DCH3DAT : longWord;
  11372. DCH3DATCLR : longWord;
  11373. DCH3DATSET : longWord;
  11374. DCH3DATINV : longWord;
  11375. end;
  11376. TPCACHE_CHECON = record
  11377. private
  11378. function getCHECOH : TBits_1; inline;
  11379. function getDCSZ : TBits_2; inline;
  11380. function getPFMWS : TBits_3; inline;
  11381. function getPREFEN : TBits_2; inline;
  11382. function getw : TBits_32; inline;
  11383. procedure setCHECOH(thebits : TBits_1); inline;
  11384. procedure setDCSZ(thebits : TBits_2); inline;
  11385. procedure setPFMWS(thebits : TBits_3); inline;
  11386. procedure setPREFEN(thebits : TBits_2); inline;
  11387. procedure setw(thebits : TBits_32); inline;
  11388. public
  11389. procedure clearCHECOH; inline;
  11390. procedure setCHECOH; inline;
  11391. property CHECOH : TBits_1 read getCHECOH write setCHECOH;
  11392. property DCSZ : TBits_2 read getDCSZ write setDCSZ;
  11393. property PFMWS : TBits_3 read getPFMWS write setPFMWS;
  11394. property PREFEN : TBits_2 read getPREFEN write setPREFEN;
  11395. property w : TBits_32 read getw write setw;
  11396. end;
  11397. TPCACHE_CHETAG = record
  11398. private
  11399. function getLLOCK : TBits_1; inline;
  11400. function getLTAG : TBits_20; inline;
  11401. function getLTAGBOOT : TBits_1; inline;
  11402. function getLTYPE : TBits_1; inline;
  11403. function getLVALID : TBits_1; inline;
  11404. function getw : TBits_32; inline;
  11405. procedure setLLOCK(thebits : TBits_1); inline;
  11406. procedure setLTAG(thebits : TBits_20); inline;
  11407. procedure setLTAGBOOT(thebits : TBits_1); inline;
  11408. procedure setLTYPE(thebits : TBits_1); inline;
  11409. procedure setLVALID(thebits : TBits_1); inline;
  11410. procedure setw(thebits : TBits_32); inline;
  11411. public
  11412. procedure clearLLOCK; inline;
  11413. procedure clearLTAGBOOT; inline;
  11414. procedure clearLTYPE; inline;
  11415. procedure clearLVALID; inline;
  11416. procedure setLLOCK; inline;
  11417. procedure setLTAGBOOT; inline;
  11418. procedure setLTYPE; inline;
  11419. procedure setLVALID; inline;
  11420. property LLOCK : TBits_1 read getLLOCK write setLLOCK;
  11421. property LTAG : TBits_20 read getLTAG write setLTAG;
  11422. property LTAGBOOT : TBits_1 read getLTAGBOOT write setLTAGBOOT;
  11423. property LTYPE : TBits_1 read getLTYPE write setLTYPE;
  11424. property LVALID : TBits_1 read getLVALID write setLVALID;
  11425. property w : TBits_32 read getw write setw;
  11426. end;
  11427. type
  11428. TPCACHERegisters = record
  11429. CHECONbits : TPCACHE_CHECON;
  11430. CHECON : longWord;
  11431. CHECONCLR : longWord;
  11432. CHECONSET : longWord;
  11433. CHECONINV : longWord;
  11434. CHEACC : longWord;
  11435. CHEACCCLR : longWord;
  11436. CHEACCSET : longWord;
  11437. CHEACCINV : longWord;
  11438. CHETAGbits : TPCACHE_CHETAG;
  11439. CHETAG : longWord;
  11440. CHETAGCLR : longWord;
  11441. CHETAGSET : longWord;
  11442. CHETAGINV : longWord;
  11443. CHEMSK : longWord;
  11444. CHEMSKCLR : longWord;
  11445. CHEMSKSET : longWord;
  11446. CHEMSKINV : longWord;
  11447. CHEW0 : longWord;
  11448. CHEW1 : longWord;
  11449. CHEW2 : longWord;
  11450. CHEW3 : longWord;
  11451. CHELRU : longWord;
  11452. CHEHIT : longWord;
  11453. CHEMIS : longWord;
  11454. CHEPFABT : longWord;
  11455. end;
  11456. TUSB_U1IR = record
  11457. private
  11458. function getATTACHIF : TBits_1; inline;
  11459. function getDETACHIF : TBits_1; inline;
  11460. function getIDLEIF : TBits_1; inline;
  11461. function getRESUMEIF : TBits_1; inline;
  11462. function getSOFIF : TBits_1; inline;
  11463. function getSTALLIF : TBits_1; inline;
  11464. function getTRNIF : TBits_1; inline;
  11465. function getUERRIF : TBits_1; inline;
  11466. function getURSTIF : TBits_1; inline;
  11467. function getURSTIF_DETACHIF : TBits_1; inline;
  11468. procedure setATTACHIF(thebits : TBits_1); inline;
  11469. procedure setDETACHIF(thebits : TBits_1); inline;
  11470. procedure setIDLEIF(thebits : TBits_1); inline;
  11471. procedure setRESUMEIF(thebits : TBits_1); inline;
  11472. procedure setSOFIF(thebits : TBits_1); inline;
  11473. procedure setSTALLIF(thebits : TBits_1); inline;
  11474. procedure setTRNIF(thebits : TBits_1); inline;
  11475. procedure setUERRIF(thebits : TBits_1); inline;
  11476. procedure setURSTIF(thebits : TBits_1); inline;
  11477. procedure setURSTIF_DETACHIF(thebits : TBits_1); inline;
  11478. public
  11479. procedure clearATTACHIF; inline;
  11480. procedure clearDETACHIF; inline;
  11481. procedure clearIDLEIF; inline;
  11482. procedure clearRESUMEIF; inline;
  11483. procedure clearSOFIF; inline;
  11484. procedure clearSTALLIF; inline;
  11485. procedure clearTRNIF; inline;
  11486. procedure clearUERRIF; inline;
  11487. procedure clearURSTIF; inline;
  11488. procedure clearURSTIF_DETACHIF; inline;
  11489. procedure setATTACHIF; inline;
  11490. procedure setDETACHIF; inline;
  11491. procedure setIDLEIF; inline;
  11492. procedure setRESUMEIF; inline;
  11493. procedure setSOFIF; inline;
  11494. procedure setSTALLIF; inline;
  11495. procedure setTRNIF; inline;
  11496. procedure setUERRIF; inline;
  11497. procedure setURSTIF; inline;
  11498. procedure setURSTIF_DETACHIF; inline;
  11499. property ATTACHIF : TBits_1 read getATTACHIF write setATTACHIF;
  11500. property DETACHIF : TBits_1 read getDETACHIF write setDETACHIF;
  11501. property IDLEIF : TBits_1 read getIDLEIF write setIDLEIF;
  11502. property RESUMEIF : TBits_1 read getRESUMEIF write setRESUMEIF;
  11503. property SOFIF : TBits_1 read getSOFIF write setSOFIF;
  11504. property STALLIF : TBits_1 read getSTALLIF write setSTALLIF;
  11505. property TRNIF : TBits_1 read getTRNIF write setTRNIF;
  11506. property UERRIF : TBits_1 read getUERRIF write setUERRIF;
  11507. property URSTIF : TBits_1 read getURSTIF write setURSTIF;
  11508. property URSTIF_DETACHIF : TBits_1 read getURSTIF_DETACHIF write setURSTIF_DETACHIF;
  11509. end;
  11510. TUSB_U1IE = record
  11511. private
  11512. function getATTACHIE : TBits_1; inline;
  11513. function getDETACHIE : TBits_1; inline;
  11514. function getIDLEIE : TBits_1; inline;
  11515. function getRESUMEIE : TBits_1; inline;
  11516. function getSOFIE : TBits_1; inline;
  11517. function getSTALLIE : TBits_1; inline;
  11518. function getTRNIE : TBits_1; inline;
  11519. function getUERRIE : TBits_1; inline;
  11520. function getURSTIE : TBits_1; inline;
  11521. function getURSTIE_DETACHIE : TBits_1; inline;
  11522. procedure setATTACHIE(thebits : TBits_1); inline;
  11523. procedure setDETACHIE(thebits : TBits_1); inline;
  11524. procedure setIDLEIE(thebits : TBits_1); inline;
  11525. procedure setRESUMEIE(thebits : TBits_1); inline;
  11526. procedure setSOFIE(thebits : TBits_1); inline;
  11527. procedure setSTALLIE(thebits : TBits_1); inline;
  11528. procedure setTRNIE(thebits : TBits_1); inline;
  11529. procedure setUERRIE(thebits : TBits_1); inline;
  11530. procedure setURSTIE(thebits : TBits_1); inline;
  11531. procedure setURSTIE_DETACHIE(thebits : TBits_1); inline;
  11532. public
  11533. procedure clearATTACHIE; inline;
  11534. procedure clearDETACHIE; inline;
  11535. procedure clearIDLEIE; inline;
  11536. procedure clearRESUMEIE; inline;
  11537. procedure clearSOFIE; inline;
  11538. procedure clearSTALLIE; inline;
  11539. procedure clearTRNIE; inline;
  11540. procedure clearUERRIE; inline;
  11541. procedure clearURSTIE; inline;
  11542. procedure clearURSTIE_DETACHIE; inline;
  11543. procedure setATTACHIE; inline;
  11544. procedure setDETACHIE; inline;
  11545. procedure setIDLEIE; inline;
  11546. procedure setRESUMEIE; inline;
  11547. procedure setSOFIE; inline;
  11548. procedure setSTALLIE; inline;
  11549. procedure setTRNIE; inline;
  11550. procedure setUERRIE; inline;
  11551. procedure setURSTIE; inline;
  11552. procedure setURSTIE_DETACHIE; inline;
  11553. property ATTACHIE : TBits_1 read getATTACHIE write setATTACHIE;
  11554. property DETACHIE : TBits_1 read getDETACHIE write setDETACHIE;
  11555. property IDLEIE : TBits_1 read getIDLEIE write setIDLEIE;
  11556. property RESUMEIE : TBits_1 read getRESUMEIE write setRESUMEIE;
  11557. property SOFIE : TBits_1 read getSOFIE write setSOFIE;
  11558. property STALLIE : TBits_1 read getSTALLIE write setSTALLIE;
  11559. property TRNIE : TBits_1 read getTRNIE write setTRNIE;
  11560. property UERRIE : TBits_1 read getUERRIE write setUERRIE;
  11561. property URSTIE : TBits_1 read getURSTIE write setURSTIE;
  11562. property URSTIE_DETACHIE : TBits_1 read getURSTIE_DETACHIE write setURSTIE_DETACHIE;
  11563. end;
  11564. TUSB_U1EIR = record
  11565. private
  11566. function getBMXEF : TBits_1; inline;
  11567. function getBTOEF : TBits_1; inline;
  11568. function getBTSEF : TBits_1; inline;
  11569. function getCRC16EF : TBits_1; inline;
  11570. function getCRC5EF : TBits_1; inline;
  11571. function getCRC5EF_EOFEF : TBits_1; inline;
  11572. function getDFN8EF : TBits_1; inline;
  11573. function getDMAEF : TBits_1; inline;
  11574. function getEOFEF : TBits_1; inline;
  11575. function getPIDEF : TBits_1; inline;
  11576. procedure setBMXEF(thebits : TBits_1); inline;
  11577. procedure setBTOEF(thebits : TBits_1); inline;
  11578. procedure setBTSEF(thebits : TBits_1); inline;
  11579. procedure setCRC16EF(thebits : TBits_1); inline;
  11580. procedure setCRC5EF(thebits : TBits_1); inline;
  11581. procedure setCRC5EF_EOFEF(thebits : TBits_1); inline;
  11582. procedure setDFN8EF(thebits : TBits_1); inline;
  11583. procedure setDMAEF(thebits : TBits_1); inline;
  11584. procedure setEOFEF(thebits : TBits_1); inline;
  11585. procedure setPIDEF(thebits : TBits_1); inline;
  11586. public
  11587. procedure clearBMXEF; inline;
  11588. procedure clearBTOEF; inline;
  11589. procedure clearBTSEF; inline;
  11590. procedure clearCRC16EF; inline;
  11591. procedure clearCRC5EF; inline;
  11592. procedure clearCRC5EF_EOFEF; inline;
  11593. procedure clearDFN8EF; inline;
  11594. procedure clearDMAEF; inline;
  11595. procedure clearEOFEF; inline;
  11596. procedure clearPIDEF; inline;
  11597. procedure setBMXEF; inline;
  11598. procedure setBTOEF; inline;
  11599. procedure setBTSEF; inline;
  11600. procedure setCRC16EF; inline;
  11601. procedure setCRC5EF; inline;
  11602. procedure setCRC5EF_EOFEF; inline;
  11603. procedure setDFN8EF; inline;
  11604. procedure setDMAEF; inline;
  11605. procedure setEOFEF; inline;
  11606. procedure setPIDEF; inline;
  11607. property BMXEF : TBits_1 read getBMXEF write setBMXEF;
  11608. property BTOEF : TBits_1 read getBTOEF write setBTOEF;
  11609. property BTSEF : TBits_1 read getBTSEF write setBTSEF;
  11610. property CRC16EF : TBits_1 read getCRC16EF write setCRC16EF;
  11611. property CRC5EF : TBits_1 read getCRC5EF write setCRC5EF;
  11612. property CRC5EF_EOFEF : TBits_1 read getCRC5EF_EOFEF write setCRC5EF_EOFEF;
  11613. property DFN8EF : TBits_1 read getDFN8EF write setDFN8EF;
  11614. property DMAEF : TBits_1 read getDMAEF write setDMAEF;
  11615. property EOFEF : TBits_1 read getEOFEF write setEOFEF;
  11616. property PIDEF : TBits_1 read getPIDEF write setPIDEF;
  11617. end;
  11618. TUSB_U1EIE = record
  11619. private
  11620. function getBMXEE : TBits_1; inline;
  11621. function getBTOEE : TBits_1; inline;
  11622. function getBTSEE : TBits_1; inline;
  11623. function getCRC16EE : TBits_1; inline;
  11624. function getCRC5EE : TBits_1; inline;
  11625. function getCRC5EE_EOFEE : TBits_1; inline;
  11626. function getDFN8EE : TBits_1; inline;
  11627. function getDMAEE : TBits_1; inline;
  11628. function getEOFEE : TBits_1; inline;
  11629. function getPIDEE : TBits_1; inline;
  11630. procedure setBMXEE(thebits : TBits_1); inline;
  11631. procedure setBTOEE(thebits : TBits_1); inline;
  11632. procedure setBTSEE(thebits : TBits_1); inline;
  11633. procedure setCRC16EE(thebits : TBits_1); inline;
  11634. procedure setCRC5EE(thebits : TBits_1); inline;
  11635. procedure setCRC5EE_EOFEE(thebits : TBits_1); inline;
  11636. procedure setDFN8EE(thebits : TBits_1); inline;
  11637. procedure setDMAEE(thebits : TBits_1); inline;
  11638. procedure setEOFEE(thebits : TBits_1); inline;
  11639. procedure setPIDEE(thebits : TBits_1); inline;
  11640. public
  11641. procedure clearBMXEE; inline;
  11642. procedure clearBTOEE; inline;
  11643. procedure clearBTSEE; inline;
  11644. procedure clearCRC16EE; inline;
  11645. procedure clearCRC5EE; inline;
  11646. procedure clearCRC5EE_EOFEE; inline;
  11647. procedure clearDFN8EE; inline;
  11648. procedure clearDMAEE; inline;
  11649. procedure clearEOFEE; inline;
  11650. procedure clearPIDEE; inline;
  11651. procedure setBMXEE; inline;
  11652. procedure setBTOEE; inline;
  11653. procedure setBTSEE; inline;
  11654. procedure setCRC16EE; inline;
  11655. procedure setCRC5EE; inline;
  11656. procedure setCRC5EE_EOFEE; inline;
  11657. procedure setDFN8EE; inline;
  11658. procedure setDMAEE; inline;
  11659. procedure setEOFEE; inline;
  11660. procedure setPIDEE; inline;
  11661. property BMXEE : TBits_1 read getBMXEE write setBMXEE;
  11662. property BTOEE : TBits_1 read getBTOEE write setBTOEE;
  11663. property BTSEE : TBits_1 read getBTSEE write setBTSEE;
  11664. property CRC16EE : TBits_1 read getCRC16EE write setCRC16EE;
  11665. property CRC5EE : TBits_1 read getCRC5EE write setCRC5EE;
  11666. property CRC5EE_EOFEE : TBits_1 read getCRC5EE_EOFEE write setCRC5EE_EOFEE;
  11667. property DFN8EE : TBits_1 read getDFN8EE write setDFN8EE;
  11668. property DMAEE : TBits_1 read getDMAEE write setDMAEE;
  11669. property EOFEE : TBits_1 read getEOFEE write setEOFEE;
  11670. property PIDEE : TBits_1 read getPIDEE write setPIDEE;
  11671. end;
  11672. TUSB_U1STAT = record
  11673. private
  11674. function getDIR : TBits_1; inline;
  11675. function getENDPT : TBits_4; inline;
  11676. function getENDPT0 : TBits_1; inline;
  11677. function getENDPT1 : TBits_1; inline;
  11678. function getENDPT2 : TBits_1; inline;
  11679. function getENDPT3 : TBits_1; inline;
  11680. function getPPBI : TBits_1; inline;
  11681. procedure setDIR(thebits : TBits_1); inline;
  11682. procedure setENDPT(thebits : TBits_4); inline;
  11683. procedure setENDPT0(thebits : TBits_1); inline;
  11684. procedure setENDPT1(thebits : TBits_1); inline;
  11685. procedure setENDPT2(thebits : TBits_1); inline;
  11686. procedure setENDPT3(thebits : TBits_1); inline;
  11687. procedure setPPBI(thebits : TBits_1); inline;
  11688. public
  11689. procedure clearDIR; inline;
  11690. procedure clearENDPT0; inline;
  11691. procedure clearENDPT1; inline;
  11692. procedure clearENDPT2; inline;
  11693. procedure clearENDPT3; inline;
  11694. procedure clearPPBI; inline;
  11695. procedure setDIR; inline;
  11696. procedure setENDPT0; inline;
  11697. procedure setENDPT1; inline;
  11698. procedure setENDPT2; inline;
  11699. procedure setENDPT3; inline;
  11700. procedure setPPBI; inline;
  11701. property DIR : TBits_1 read getDIR write setDIR;
  11702. property ENDPT : TBits_4 read getENDPT write setENDPT;
  11703. property ENDPT0 : TBits_1 read getENDPT0 write setENDPT0;
  11704. property ENDPT1 : TBits_1 read getENDPT1 write setENDPT1;
  11705. property ENDPT2 : TBits_1 read getENDPT2 write setENDPT2;
  11706. property ENDPT3 : TBits_1 read getENDPT3 write setENDPT3;
  11707. property PPBI : TBits_1 read getPPBI write setPPBI;
  11708. end;
  11709. TUSB_U1CON = record
  11710. private
  11711. function getHOSTEN : TBits_1; inline;
  11712. function getJSTATE : TBits_1; inline;
  11713. function getPKTDIS : TBits_1; inline;
  11714. function getPKTDIS_TOKBUSY : TBits_1; inline;
  11715. function getPPBRST : TBits_1; inline;
  11716. function getRESUME : TBits_1; inline;
  11717. function getSE0 : TBits_1; inline;
  11718. function getSOFEN : TBits_1; inline;
  11719. function getTOKBUSY : TBits_1; inline;
  11720. function getUSBEN : TBits_1; inline;
  11721. function getUSBEN_SOFEN : TBits_1; inline;
  11722. function getUSBRST : TBits_1; inline;
  11723. procedure setHOSTEN(thebits : TBits_1); inline;
  11724. procedure setJSTATE(thebits : TBits_1); inline;
  11725. procedure setPKTDIS(thebits : TBits_1); inline;
  11726. procedure setPKTDIS_TOKBUSY(thebits : TBits_1); inline;
  11727. procedure setPPBRST(thebits : TBits_1); inline;
  11728. procedure setRESUME(thebits : TBits_1); inline;
  11729. procedure setSE0(thebits : TBits_1); inline;
  11730. procedure setSOFEN(thebits : TBits_1); inline;
  11731. procedure setTOKBUSY(thebits : TBits_1); inline;
  11732. procedure setUSBEN(thebits : TBits_1); inline;
  11733. procedure setUSBEN_SOFEN(thebits : TBits_1); inline;
  11734. procedure setUSBRST(thebits : TBits_1); inline;
  11735. public
  11736. procedure clearHOSTEN; inline;
  11737. procedure clearJSTATE; inline;
  11738. procedure clearPKTDIS; inline;
  11739. procedure clearPKTDIS_TOKBUSY; inline;
  11740. procedure clearPPBRST; inline;
  11741. procedure clearRESUME; inline;
  11742. procedure clearSE0; inline;
  11743. procedure clearSOFEN; inline;
  11744. procedure clearTOKBUSY; inline;
  11745. procedure clearUSBEN; inline;
  11746. procedure clearUSBEN_SOFEN; inline;
  11747. procedure clearUSBRST; inline;
  11748. procedure setHOSTEN; inline;
  11749. procedure setJSTATE; inline;
  11750. procedure setPKTDIS; inline;
  11751. procedure setPKTDIS_TOKBUSY; inline;
  11752. procedure setPPBRST; inline;
  11753. procedure setRESUME; inline;
  11754. procedure setSE0; inline;
  11755. procedure setSOFEN; inline;
  11756. procedure setTOKBUSY; inline;
  11757. procedure setUSBEN; inline;
  11758. procedure setUSBEN_SOFEN; inline;
  11759. procedure setUSBRST; inline;
  11760. property HOSTEN : TBits_1 read getHOSTEN write setHOSTEN;
  11761. property JSTATE : TBits_1 read getJSTATE write setJSTATE;
  11762. property PKTDIS : TBits_1 read getPKTDIS write setPKTDIS;
  11763. property PKTDIS_TOKBUSY : TBits_1 read getPKTDIS_TOKBUSY write setPKTDIS_TOKBUSY;
  11764. property PPBRST : TBits_1 read getPPBRST write setPPBRST;
  11765. property RESUME : TBits_1 read getRESUME write setRESUME;
  11766. property SE0 : TBits_1 read getSE0 write setSE0;
  11767. property SOFEN : TBits_1 read getSOFEN write setSOFEN;
  11768. property TOKBUSY : TBits_1 read getTOKBUSY write setTOKBUSY;
  11769. property USBEN : TBits_1 read getUSBEN write setUSBEN;
  11770. property USBEN_SOFEN : TBits_1 read getUSBEN_SOFEN write setUSBEN_SOFEN;
  11771. property USBRST : TBits_1 read getUSBRST write setUSBRST;
  11772. end;
  11773. TUSB_U1ADDR = record
  11774. private
  11775. function getDEVADDR : TBits_7; inline;
  11776. function getDEVADDR0 : TBits_1; inline;
  11777. function getDEVADDR1 : TBits_1; inline;
  11778. function getDEVADDR2 : TBits_1; inline;
  11779. function getDEVADDR3 : TBits_1; inline;
  11780. function getDEVADDR4 : TBits_1; inline;
  11781. function getDEVADDR5 : TBits_1; inline;
  11782. function getDEVADDR6 : TBits_1; inline;
  11783. function getLSPDEN : TBits_1; inline;
  11784. procedure setDEVADDR(thebits : TBits_7); inline;
  11785. procedure setDEVADDR0(thebits : TBits_1); inline;
  11786. procedure setDEVADDR1(thebits : TBits_1); inline;
  11787. procedure setDEVADDR2(thebits : TBits_1); inline;
  11788. procedure setDEVADDR3(thebits : TBits_1); inline;
  11789. procedure setDEVADDR4(thebits : TBits_1); inline;
  11790. procedure setDEVADDR5(thebits : TBits_1); inline;
  11791. procedure setDEVADDR6(thebits : TBits_1); inline;
  11792. procedure setLSPDEN(thebits : TBits_1); inline;
  11793. public
  11794. procedure clearDEVADDR0; inline;
  11795. procedure clearDEVADDR1; inline;
  11796. procedure clearDEVADDR2; inline;
  11797. procedure clearDEVADDR3; inline;
  11798. procedure clearDEVADDR4; inline;
  11799. procedure clearDEVADDR5; inline;
  11800. procedure clearDEVADDR6; inline;
  11801. procedure clearLSPDEN; inline;
  11802. procedure setDEVADDR0; inline;
  11803. procedure setDEVADDR1; inline;
  11804. procedure setDEVADDR2; inline;
  11805. procedure setDEVADDR3; inline;
  11806. procedure setDEVADDR4; inline;
  11807. procedure setDEVADDR5; inline;
  11808. procedure setDEVADDR6; inline;
  11809. procedure setLSPDEN; inline;
  11810. property DEVADDR : TBits_7 read getDEVADDR write setDEVADDR;
  11811. property DEVADDR0 : TBits_1 read getDEVADDR0 write setDEVADDR0;
  11812. property DEVADDR1 : TBits_1 read getDEVADDR1 write setDEVADDR1;
  11813. property DEVADDR2 : TBits_1 read getDEVADDR2 write setDEVADDR2;
  11814. property DEVADDR3 : TBits_1 read getDEVADDR3 write setDEVADDR3;
  11815. property DEVADDR4 : TBits_1 read getDEVADDR4 write setDEVADDR4;
  11816. property DEVADDR5 : TBits_1 read getDEVADDR5 write setDEVADDR5;
  11817. property DEVADDR6 : TBits_1 read getDEVADDR6 write setDEVADDR6;
  11818. property LSPDEN : TBits_1 read getLSPDEN write setLSPDEN;
  11819. end;
  11820. TUSB_U1FRML = record
  11821. private
  11822. function getFRM0 : TBits_1; inline;
  11823. function getFRM1 : TBits_1; inline;
  11824. function getFRM2 : TBits_1; inline;
  11825. function getFRM3 : TBits_1; inline;
  11826. function getFRM4 : TBits_1; inline;
  11827. function getFRM5 : TBits_1; inline;
  11828. function getFRM6 : TBits_1; inline;
  11829. function getFRM7 : TBits_1; inline;
  11830. function getFRML : TBits_8; inline;
  11831. procedure setFRM0(thebits : TBits_1); inline;
  11832. procedure setFRM1(thebits : TBits_1); inline;
  11833. procedure setFRM2(thebits : TBits_1); inline;
  11834. procedure setFRM3(thebits : TBits_1); inline;
  11835. procedure setFRM4(thebits : TBits_1); inline;
  11836. procedure setFRM5(thebits : TBits_1); inline;
  11837. procedure setFRM6(thebits : TBits_1); inline;
  11838. procedure setFRM7(thebits : TBits_1); inline;
  11839. procedure setFRML(thebits : TBits_8); inline;
  11840. public
  11841. procedure clearFRM0; inline;
  11842. procedure clearFRM1; inline;
  11843. procedure clearFRM2; inline;
  11844. procedure clearFRM3; inline;
  11845. procedure clearFRM4; inline;
  11846. procedure clearFRM5; inline;
  11847. procedure clearFRM6; inline;
  11848. procedure clearFRM7; inline;
  11849. procedure setFRM0; inline;
  11850. procedure setFRM1; inline;
  11851. procedure setFRM2; inline;
  11852. procedure setFRM3; inline;
  11853. procedure setFRM4; inline;
  11854. procedure setFRM5; inline;
  11855. procedure setFRM6; inline;
  11856. procedure setFRM7; inline;
  11857. property FRM0 : TBits_1 read getFRM0 write setFRM0;
  11858. property FRM1 : TBits_1 read getFRM1 write setFRM1;
  11859. property FRM2 : TBits_1 read getFRM2 write setFRM2;
  11860. property FRM3 : TBits_1 read getFRM3 write setFRM3;
  11861. property FRM4 : TBits_1 read getFRM4 write setFRM4;
  11862. property FRM5 : TBits_1 read getFRM5 write setFRM5;
  11863. property FRM6 : TBits_1 read getFRM6 write setFRM6;
  11864. property FRM7 : TBits_1 read getFRM7 write setFRM7;
  11865. property FRML : TBits_8 read getFRML write setFRML;
  11866. end;
  11867. TUSB_U1FRMH = record
  11868. private
  11869. function getFRM10 : TBits_1; inline;
  11870. function getFRM8 : TBits_1; inline;
  11871. function getFRM9 : TBits_1; inline;
  11872. function getFRMH : TBits_3; inline;
  11873. procedure setFRM10(thebits : TBits_1); inline;
  11874. procedure setFRM8(thebits : TBits_1); inline;
  11875. procedure setFRM9(thebits : TBits_1); inline;
  11876. procedure setFRMH(thebits : TBits_3); inline;
  11877. public
  11878. procedure clearFRM10; inline;
  11879. procedure clearFRM8; inline;
  11880. procedure clearFRM9; inline;
  11881. procedure setFRM10; inline;
  11882. procedure setFRM8; inline;
  11883. procedure setFRM9; inline;
  11884. property FRM10 : TBits_1 read getFRM10 write setFRM10;
  11885. property FRM8 : TBits_1 read getFRM8 write setFRM8;
  11886. property FRM9 : TBits_1 read getFRM9 write setFRM9;
  11887. property FRMH : TBits_3 read getFRMH write setFRMH;
  11888. end;
  11889. TUSB_U1TOK = record
  11890. private
  11891. function getEP : TBits_4; inline;
  11892. function getEP0 : TBits_1; inline;
  11893. function getEP1 : TBits_1; inline;
  11894. function getEP2 : TBits_1; inline;
  11895. function getEP3 : TBits_1; inline;
  11896. function getPID : TBits_4; inline;
  11897. function getPID0 : TBits_1; inline;
  11898. function getPID1 : TBits_1; inline;
  11899. function getPID2 : TBits_1; inline;
  11900. function getPID3 : TBits_1; inline;
  11901. procedure setEP(thebits : TBits_4); inline;
  11902. procedure setEP0(thebits : TBits_1); inline;
  11903. procedure setEP1(thebits : TBits_1); inline;
  11904. procedure setEP2(thebits : TBits_1); inline;
  11905. procedure setEP3(thebits : TBits_1); inline;
  11906. procedure setPID(thebits : TBits_4); inline;
  11907. procedure setPID0(thebits : TBits_1); inline;
  11908. procedure setPID1(thebits : TBits_1); inline;
  11909. procedure setPID2(thebits : TBits_1); inline;
  11910. procedure setPID3(thebits : TBits_1); inline;
  11911. public
  11912. procedure clearEP0; inline;
  11913. procedure clearEP1; inline;
  11914. procedure clearEP2; inline;
  11915. procedure clearEP3; inline;
  11916. procedure clearPID0; inline;
  11917. procedure clearPID1; inline;
  11918. procedure clearPID2; inline;
  11919. procedure clearPID3; inline;
  11920. procedure setEP0; inline;
  11921. procedure setEP1; inline;
  11922. procedure setEP2; inline;
  11923. procedure setEP3; inline;
  11924. procedure setPID0; inline;
  11925. procedure setPID1; inline;
  11926. procedure setPID2; inline;
  11927. procedure setPID3; inline;
  11928. property EP : TBits_4 read getEP write setEP;
  11929. property EP0 : TBits_1 read getEP0 write setEP0;
  11930. property EP1 : TBits_1 read getEP1 write setEP1;
  11931. property EP2 : TBits_1 read getEP2 write setEP2;
  11932. property EP3 : TBits_1 read getEP3 write setEP3;
  11933. property PID : TBits_4 read getPID write setPID;
  11934. property PID0 : TBits_1 read getPID0 write setPID0;
  11935. property PID1 : TBits_1 read getPID1 write setPID1;
  11936. property PID2 : TBits_1 read getPID2 write setPID2;
  11937. property PID3 : TBits_1 read getPID3 write setPID3;
  11938. end;
  11939. type
  11940. TUSBRegisters = record
  11941. U1OTGIR : longWord;
  11942. U1OTGIRCLR : longWord;
  11943. U1OTGIE : longWord;
  11944. U1OTGIECLR : longWord;
  11945. U1OTGIESET : longWord;
  11946. U1OTGIEINV : longWord;
  11947. U1OTGSTAT : longWord;
  11948. U1OTGCON : longWord;
  11949. U1OTGCONCLR : longWord;
  11950. U1OTGCONSET : longWord;
  11951. U1OTGCONINV : longWord;
  11952. U1PWRC : longWord;
  11953. U1PWRCCLR : longWord;
  11954. U1PWRCSET : longWord;
  11955. U1PWRCINV : longWord;
  11956. U1IRbits : TUSB_U1IR;
  11957. U1IR : longWord;
  11958. U1IRCLR : longWord;
  11959. U1IEbits : TUSB_U1IE;
  11960. U1IE : longWord;
  11961. U1IECLR : longWord;
  11962. U1IESET : longWord;
  11963. U1IEINV : longWord;
  11964. U1EIRbits : TUSB_U1EIR;
  11965. U1EIR : longWord;
  11966. U1EIRCLR : longWord;
  11967. U1EIEbits : TUSB_U1EIE;
  11968. U1EIE : longWord;
  11969. U1EIECLR : longWord;
  11970. U1EIESET : longWord;
  11971. U1EIEINV : longWord;
  11972. U1STATbits : TUSB_U1STAT;
  11973. U1STAT : longWord;
  11974. U1CONbits : TUSB_U1CON;
  11975. U1CON : longWord;
  11976. U1CONCLR : longWord;
  11977. U1CONSET : longWord;
  11978. U1CONINV : longWord;
  11979. U1ADDRbits : TUSB_U1ADDR;
  11980. U1ADDR : longWord;
  11981. U1ADDRCLR : longWord;
  11982. U1ADDRSET : longWord;
  11983. U1ADDRINV : longWord;
  11984. U1BDTP1 : longWord;
  11985. U1BDTP1CLR : longWord;
  11986. U1BDTP1SET : longWord;
  11987. U1BDTP1INV : longWord;
  11988. U1FRMLbits : TUSB_U1FRML;
  11989. U1FRML : longWord;
  11990. U1FRMHbits : TUSB_U1FRMH;
  11991. U1FRMH : longWord;
  11992. U1TOKbits : TUSB_U1TOK;
  11993. U1TOK : longWord;
  11994. U1TOKCLR : longWord;
  11995. U1TOKSET : longWord;
  11996. U1TOKINV : longWord;
  11997. U1SOF : longWord;
  11998. U1SOFCLR : longWord;
  11999. U1SOFSET : longWord;
  12000. U1SOFINV : longWord;
  12001. U1BDTP2 : longWord;
  12002. U1BDTP2CLR : longWord;
  12003. U1BDTP2SET : longWord;
  12004. U1BDTP2INV : longWord;
  12005. U1BDTP3 : longWord;
  12006. U1BDTP3CLR : longWord;
  12007. U1BDTP3SET : longWord;
  12008. U1BDTP3INV : longWord;
  12009. U1CNFG1 : longWord;
  12010. U1CNFG1CLR : longWord;
  12011. U1CNFG1SET : longWord;
  12012. U1CNFG1INV : longWord;
  12013. U1EP0 : longWord;
  12014. U1EP0CLR : longWord;
  12015. U1EP0SET : longWord;
  12016. U1EP0INV : longWord;
  12017. U1EP1 : longWord;
  12018. U1EP1CLR : longWord;
  12019. U1EP1SET : longWord;
  12020. U1EP1INV : longWord;
  12021. U1EP2 : longWord;
  12022. U1EP2CLR : longWord;
  12023. U1EP2SET : longWord;
  12024. U1EP2INV : longWord;
  12025. U1EP3 : longWord;
  12026. U1EP3CLR : longWord;
  12027. U1EP3SET : longWord;
  12028. U1EP3INV : longWord;
  12029. U1EP4 : longWord;
  12030. U1EP4CLR : longWord;
  12031. U1EP4SET : longWord;
  12032. U1EP4INV : longWord;
  12033. U1EP5 : longWord;
  12034. U1EP5CLR : longWord;
  12035. U1EP5SET : longWord;
  12036. U1EP5INV : longWord;
  12037. U1EP6 : longWord;
  12038. U1EP6CLR : longWord;
  12039. U1EP6SET : longWord;
  12040. U1EP6INV : longWord;
  12041. U1EP7 : longWord;
  12042. U1EP7CLR : longWord;
  12043. U1EP7SET : longWord;
  12044. U1EP7INV : longWord;
  12045. U1EP8 : longWord;
  12046. U1EP8CLR : longWord;
  12047. U1EP8SET : longWord;
  12048. U1EP8INV : longWord;
  12049. U1EP9 : longWord;
  12050. U1EP9CLR : longWord;
  12051. U1EP9SET : longWord;
  12052. U1EP9INV : longWord;
  12053. U1EP10 : longWord;
  12054. U1EP10CLR : longWord;
  12055. U1EP10SET : longWord;
  12056. U1EP10INV : longWord;
  12057. U1EP11 : longWord;
  12058. U1EP11CLR : longWord;
  12059. U1EP11SET : longWord;
  12060. U1EP11INV : longWord;
  12061. U1EP12 : longWord;
  12062. U1EP12CLR : longWord;
  12063. U1EP12SET : longWord;
  12064. U1EP12INV : longWord;
  12065. U1EP13 : longWord;
  12066. U1EP13CLR : longWord;
  12067. U1EP13SET : longWord;
  12068. U1EP13INV : longWord;
  12069. U1EP14 : longWord;
  12070. U1EP14CLR : longWord;
  12071. U1EP14SET : longWord;
  12072. U1EP14INV : longWord;
  12073. U1EP15 : longWord;
  12074. U1EP15CLR : longWord;
  12075. U1EP15SET : longWord;
  12076. U1EP15INV : longWord;
  12077. end;
  12078. TPORTA_TRISA = record
  12079. private
  12080. function getTRISA0 : TBits_1; inline;
  12081. function getTRISA1 : TBits_1; inline;
  12082. function getTRISA10 : TBits_1; inline;
  12083. function getTRISA14 : TBits_1; inline;
  12084. function getTRISA15 : TBits_1; inline;
  12085. function getTRISA2 : TBits_1; inline;
  12086. function getTRISA3 : TBits_1; inline;
  12087. function getTRISA4 : TBits_1; inline;
  12088. function getTRISA5 : TBits_1; inline;
  12089. function getTRISA6 : TBits_1; inline;
  12090. function getTRISA7 : TBits_1; inline;
  12091. function getTRISA9 : TBits_1; inline;
  12092. function getw : TBits_32; inline;
  12093. procedure setTRISA0(thebits : TBits_1); inline;
  12094. procedure setTRISA1(thebits : TBits_1); inline;
  12095. procedure setTRISA10(thebits : TBits_1); inline;
  12096. procedure setTRISA14(thebits : TBits_1); inline;
  12097. procedure setTRISA15(thebits : TBits_1); inline;
  12098. procedure setTRISA2(thebits : TBits_1); inline;
  12099. procedure setTRISA3(thebits : TBits_1); inline;
  12100. procedure setTRISA4(thebits : TBits_1); inline;
  12101. procedure setTRISA5(thebits : TBits_1); inline;
  12102. procedure setTRISA6(thebits : TBits_1); inline;
  12103. procedure setTRISA7(thebits : TBits_1); inline;
  12104. procedure setTRISA9(thebits : TBits_1); inline;
  12105. procedure setw(thebits : TBits_32); inline;
  12106. public
  12107. procedure clearTRISA0; inline;
  12108. procedure clearTRISA10; inline;
  12109. procedure clearTRISA14; inline;
  12110. procedure clearTRISA15; inline;
  12111. procedure clearTRISA1; inline;
  12112. procedure clearTRISA2; inline;
  12113. procedure clearTRISA3; inline;
  12114. procedure clearTRISA4; inline;
  12115. procedure clearTRISA5; inline;
  12116. procedure clearTRISA6; inline;
  12117. procedure clearTRISA7; inline;
  12118. procedure clearTRISA9; inline;
  12119. procedure setTRISA0; inline;
  12120. procedure setTRISA10; inline;
  12121. procedure setTRISA14; inline;
  12122. procedure setTRISA15; inline;
  12123. procedure setTRISA1; inline;
  12124. procedure setTRISA2; inline;
  12125. procedure setTRISA3; inline;
  12126. procedure setTRISA4; inline;
  12127. procedure setTRISA5; inline;
  12128. procedure setTRISA6; inline;
  12129. procedure setTRISA7; inline;
  12130. procedure setTRISA9; inline;
  12131. property TRISA0 : TBits_1 read getTRISA0 write setTRISA0;
  12132. property TRISA1 : TBits_1 read getTRISA1 write setTRISA1;
  12133. property TRISA10 : TBits_1 read getTRISA10 write setTRISA10;
  12134. property TRISA14 : TBits_1 read getTRISA14 write setTRISA14;
  12135. property TRISA15 : TBits_1 read getTRISA15 write setTRISA15;
  12136. property TRISA2 : TBits_1 read getTRISA2 write setTRISA2;
  12137. property TRISA3 : TBits_1 read getTRISA3 write setTRISA3;
  12138. property TRISA4 : TBits_1 read getTRISA4 write setTRISA4;
  12139. property TRISA5 : TBits_1 read getTRISA5 write setTRISA5;
  12140. property TRISA6 : TBits_1 read getTRISA6 write setTRISA6;
  12141. property TRISA7 : TBits_1 read getTRISA7 write setTRISA7;
  12142. property TRISA9 : TBits_1 read getTRISA9 write setTRISA9;
  12143. property w : TBits_32 read getw write setw;
  12144. end;
  12145. TPORTA_PORTA = record
  12146. private
  12147. function getRA0 : TBits_1; inline;
  12148. function getRA1 : TBits_1; inline;
  12149. function getRA10 : TBits_1; inline;
  12150. function getRA14 : TBits_1; inline;
  12151. function getRA15 : TBits_1; inline;
  12152. function getRA2 : TBits_1; inline;
  12153. function getRA3 : TBits_1; inline;
  12154. function getRA4 : TBits_1; inline;
  12155. function getRA5 : TBits_1; inline;
  12156. function getRA6 : TBits_1; inline;
  12157. function getRA7 : TBits_1; inline;
  12158. function getRA9 : TBits_1; inline;
  12159. function getw : TBits_32; inline;
  12160. procedure setRA0(thebits : TBits_1); inline;
  12161. procedure setRA1(thebits : TBits_1); inline;
  12162. procedure setRA10(thebits : TBits_1); inline;
  12163. procedure setRA14(thebits : TBits_1); inline;
  12164. procedure setRA15(thebits : TBits_1); inline;
  12165. procedure setRA2(thebits : TBits_1); inline;
  12166. procedure setRA3(thebits : TBits_1); inline;
  12167. procedure setRA4(thebits : TBits_1); inline;
  12168. procedure setRA5(thebits : TBits_1); inline;
  12169. procedure setRA6(thebits : TBits_1); inline;
  12170. procedure setRA7(thebits : TBits_1); inline;
  12171. procedure setRA9(thebits : TBits_1); inline;
  12172. procedure setw(thebits : TBits_32); inline;
  12173. public
  12174. procedure clearRA0; inline;
  12175. procedure clearRA10; inline;
  12176. procedure clearRA14; inline;
  12177. procedure clearRA15; inline;
  12178. procedure clearRA1; inline;
  12179. procedure clearRA2; inline;
  12180. procedure clearRA3; inline;
  12181. procedure clearRA4; inline;
  12182. procedure clearRA5; inline;
  12183. procedure clearRA6; inline;
  12184. procedure clearRA7; inline;
  12185. procedure clearRA9; inline;
  12186. procedure setRA0; inline;
  12187. procedure setRA10; inline;
  12188. procedure setRA14; inline;
  12189. procedure setRA15; inline;
  12190. procedure setRA1; inline;
  12191. procedure setRA2; inline;
  12192. procedure setRA3; inline;
  12193. procedure setRA4; inline;
  12194. procedure setRA5; inline;
  12195. procedure setRA6; inline;
  12196. procedure setRA7; inline;
  12197. procedure setRA9; inline;
  12198. property RA0 : TBits_1 read getRA0 write setRA0;
  12199. property RA1 : TBits_1 read getRA1 write setRA1;
  12200. property RA10 : TBits_1 read getRA10 write setRA10;
  12201. property RA14 : TBits_1 read getRA14 write setRA14;
  12202. property RA15 : TBits_1 read getRA15 write setRA15;
  12203. property RA2 : TBits_1 read getRA2 write setRA2;
  12204. property RA3 : TBits_1 read getRA3 write setRA3;
  12205. property RA4 : TBits_1 read getRA4 write setRA4;
  12206. property RA5 : TBits_1 read getRA5 write setRA5;
  12207. property RA6 : TBits_1 read getRA6 write setRA6;
  12208. property RA7 : TBits_1 read getRA7 write setRA7;
  12209. property RA9 : TBits_1 read getRA9 write setRA9;
  12210. property w : TBits_32 read getw write setw;
  12211. end;
  12212. 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);
  12213. TPortA_bitset = set of TPortA_bits;
  12214. TPORTA_LATA = record
  12215. private
  12216. function getLATA0 : TBits_1; inline;
  12217. function getLATA1 : TBits_1; inline;
  12218. function getLATA10 : TBits_1; inline;
  12219. function getLATA14 : TBits_1; inline;
  12220. function getLATA15 : TBits_1; inline;
  12221. function getLATA2 : TBits_1; inline;
  12222. function getLATA3 : TBits_1; inline;
  12223. function getLATA4 : TBits_1; inline;
  12224. function getLATA5 : TBits_1; inline;
  12225. function getLATA6 : TBits_1; inline;
  12226. function getLATA7 : TBits_1; inline;
  12227. function getLATA9 : TBits_1; inline;
  12228. function getw : TBits_32; inline;
  12229. procedure setLATA0(thebits : TBits_1); inline;
  12230. procedure setLATA1(thebits : TBits_1); inline;
  12231. procedure setLATA10(thebits : TBits_1); inline;
  12232. procedure setLATA14(thebits : TBits_1); inline;
  12233. procedure setLATA15(thebits : TBits_1); inline;
  12234. procedure setLATA2(thebits : TBits_1); inline;
  12235. procedure setLATA3(thebits : TBits_1); inline;
  12236. procedure setLATA4(thebits : TBits_1); inline;
  12237. procedure setLATA5(thebits : TBits_1); inline;
  12238. procedure setLATA6(thebits : TBits_1); inline;
  12239. procedure setLATA7(thebits : TBits_1); inline;
  12240. procedure setLATA9(thebits : TBits_1); inline;
  12241. procedure setw(thebits : TBits_32); inline;
  12242. public
  12243. procedure clearLATA0; inline;
  12244. procedure clearLATA10; inline;
  12245. procedure clearLATA14; inline;
  12246. procedure clearLATA15; inline;
  12247. procedure clearLATA1; inline;
  12248. procedure clearLATA2; inline;
  12249. procedure clearLATA3; inline;
  12250. procedure clearLATA4; inline;
  12251. procedure clearLATA5; inline;
  12252. procedure clearLATA6; inline;
  12253. procedure clearLATA7; inline;
  12254. procedure clearLATA9; inline;
  12255. procedure setLATA0; inline;
  12256. procedure setLATA10; inline;
  12257. procedure setLATA14; inline;
  12258. procedure setLATA15; inline;
  12259. procedure setLATA1; inline;
  12260. procedure setLATA2; inline;
  12261. procedure setLATA3; inline;
  12262. procedure setLATA4; inline;
  12263. procedure setLATA5; inline;
  12264. procedure setLATA6; inline;
  12265. procedure setLATA7; inline;
  12266. procedure setLATA9; inline;
  12267. property LATA0 : TBits_1 read getLATA0 write setLATA0;
  12268. property LATA1 : TBits_1 read getLATA1 write setLATA1;
  12269. property LATA10 : TBits_1 read getLATA10 write setLATA10;
  12270. property LATA14 : TBits_1 read getLATA14 write setLATA14;
  12271. property LATA15 : TBits_1 read getLATA15 write setLATA15;
  12272. property LATA2 : TBits_1 read getLATA2 write setLATA2;
  12273. property LATA3 : TBits_1 read getLATA3 write setLATA3;
  12274. property LATA4 : TBits_1 read getLATA4 write setLATA4;
  12275. property LATA5 : TBits_1 read getLATA5 write setLATA5;
  12276. property LATA6 : TBits_1 read getLATA6 write setLATA6;
  12277. property LATA7 : TBits_1 read getLATA7 write setLATA7;
  12278. property LATA9 : TBits_1 read getLATA9 write setLATA9;
  12279. property w : TBits_32 read getw write setw;
  12280. end;
  12281. TPORTA_ODCA = record
  12282. private
  12283. function getODCA0 : TBits_1; inline;
  12284. function getODCA1 : TBits_1; inline;
  12285. function getODCA10 : TBits_1; inline;
  12286. function getODCA14 : TBits_1; inline;
  12287. function getODCA15 : TBits_1; inline;
  12288. function getODCA2 : TBits_1; inline;
  12289. function getODCA3 : TBits_1; inline;
  12290. function getODCA4 : TBits_1; inline;
  12291. function getODCA5 : TBits_1; inline;
  12292. function getODCA6 : TBits_1; inline;
  12293. function getODCA7 : TBits_1; inline;
  12294. function getODCA9 : TBits_1; inline;
  12295. function getw : TBits_32; inline;
  12296. procedure setODCA0(thebits : TBits_1); inline;
  12297. procedure setODCA1(thebits : TBits_1); inline;
  12298. procedure setODCA10(thebits : TBits_1); inline;
  12299. procedure setODCA14(thebits : TBits_1); inline;
  12300. procedure setODCA15(thebits : TBits_1); inline;
  12301. procedure setODCA2(thebits : TBits_1); inline;
  12302. procedure setODCA3(thebits : TBits_1); inline;
  12303. procedure setODCA4(thebits : TBits_1); inline;
  12304. procedure setODCA5(thebits : TBits_1); inline;
  12305. procedure setODCA6(thebits : TBits_1); inline;
  12306. procedure setODCA7(thebits : TBits_1); inline;
  12307. procedure setODCA9(thebits : TBits_1); inline;
  12308. procedure setw(thebits : TBits_32); inline;
  12309. public
  12310. procedure clearODCA0; inline;
  12311. procedure clearODCA10; inline;
  12312. procedure clearODCA14; inline;
  12313. procedure clearODCA15; inline;
  12314. procedure clearODCA1; inline;
  12315. procedure clearODCA2; inline;
  12316. procedure clearODCA3; inline;
  12317. procedure clearODCA4; inline;
  12318. procedure clearODCA5; inline;
  12319. procedure clearODCA6; inline;
  12320. procedure clearODCA7; inline;
  12321. procedure clearODCA9; inline;
  12322. procedure setODCA0; inline;
  12323. procedure setODCA10; inline;
  12324. procedure setODCA14; inline;
  12325. procedure setODCA15; inline;
  12326. procedure setODCA1; inline;
  12327. procedure setODCA2; inline;
  12328. procedure setODCA3; inline;
  12329. procedure setODCA4; inline;
  12330. procedure setODCA5; inline;
  12331. procedure setODCA6; inline;
  12332. procedure setODCA7; inline;
  12333. procedure setODCA9; inline;
  12334. property ODCA0 : TBits_1 read getODCA0 write setODCA0;
  12335. property ODCA1 : TBits_1 read getODCA1 write setODCA1;
  12336. property ODCA10 : TBits_1 read getODCA10 write setODCA10;
  12337. property ODCA14 : TBits_1 read getODCA14 write setODCA14;
  12338. property ODCA15 : TBits_1 read getODCA15 write setODCA15;
  12339. property ODCA2 : TBits_1 read getODCA2 write setODCA2;
  12340. property ODCA3 : TBits_1 read getODCA3 write setODCA3;
  12341. property ODCA4 : TBits_1 read getODCA4 write setODCA4;
  12342. property ODCA5 : TBits_1 read getODCA5 write setODCA5;
  12343. property ODCA6 : TBits_1 read getODCA6 write setODCA6;
  12344. property ODCA7 : TBits_1 read getODCA7 write setODCA7;
  12345. property ODCA9 : TBits_1 read getODCA9 write setODCA9;
  12346. property w : TBits_32 read getw write setw;
  12347. end;
  12348. type
  12349. TPORTARegisters = record
  12350. TRISAbits : TPORTA_TRISA;
  12351. TRISA : longWord;
  12352. TRISACLR : longWord;
  12353. TRISASET : longWord;
  12354. TRISAINV : longWord;
  12355. PORTAbits : TPORTA_PORTA;
  12356. PORTA : longWord;
  12357. PORTACLR : longWord;
  12358. PORTASET : longWord;
  12359. PORTAINV : longWord;
  12360. LATAbits : TPORTA_LATA;
  12361. LATA : longWord;
  12362. LATACLR : longWord;
  12363. LATASET : longWord;
  12364. LATAINV : longWord;
  12365. ODCAbits : TPORTA_ODCA;
  12366. ODCA : longWord;
  12367. ODCACLR : longWord;
  12368. ODCASET : longWord;
  12369. ODCAINV : longWord;
  12370. end;
  12371. TPORTB_TRISB = record
  12372. private
  12373. function getTRISB0 : TBits_1; inline;
  12374. function getTRISB1 : TBits_1; inline;
  12375. function getTRISB10 : TBits_1; inline;
  12376. function getTRISB11 : TBits_1; inline;
  12377. function getTRISB12 : TBits_1; inline;
  12378. function getTRISB13 : TBits_1; inline;
  12379. function getTRISB14 : TBits_1; inline;
  12380. function getTRISB15 : TBits_1; inline;
  12381. function getTRISB2 : TBits_1; inline;
  12382. function getTRISB3 : TBits_1; inline;
  12383. function getTRISB4 : TBits_1; inline;
  12384. function getTRISB5 : TBits_1; inline;
  12385. function getTRISB6 : TBits_1; inline;
  12386. function getTRISB7 : TBits_1; inline;
  12387. function getTRISB8 : TBits_1; inline;
  12388. function getTRISB9 : TBits_1; inline;
  12389. function getw : TBits_32; inline;
  12390. procedure setTRISB0(thebits : TBits_1); inline;
  12391. procedure setTRISB1(thebits : TBits_1); inline;
  12392. procedure setTRISB10(thebits : TBits_1); inline;
  12393. procedure setTRISB11(thebits : TBits_1); inline;
  12394. procedure setTRISB12(thebits : TBits_1); inline;
  12395. procedure setTRISB13(thebits : TBits_1); inline;
  12396. procedure setTRISB14(thebits : TBits_1); inline;
  12397. procedure setTRISB15(thebits : TBits_1); inline;
  12398. procedure setTRISB2(thebits : TBits_1); inline;
  12399. procedure setTRISB3(thebits : TBits_1); inline;
  12400. procedure setTRISB4(thebits : TBits_1); inline;
  12401. procedure setTRISB5(thebits : TBits_1); inline;
  12402. procedure setTRISB6(thebits : TBits_1); inline;
  12403. procedure setTRISB7(thebits : TBits_1); inline;
  12404. procedure setTRISB8(thebits : TBits_1); inline;
  12405. procedure setTRISB9(thebits : TBits_1); inline;
  12406. procedure setw(thebits : TBits_32); inline;
  12407. public
  12408. procedure clearTRISB0; inline;
  12409. procedure clearTRISB10; inline;
  12410. procedure clearTRISB11; inline;
  12411. procedure clearTRISB12; inline;
  12412. procedure clearTRISB13; inline;
  12413. procedure clearTRISB14; inline;
  12414. procedure clearTRISB15; inline;
  12415. procedure clearTRISB1; inline;
  12416. procedure clearTRISB2; inline;
  12417. procedure clearTRISB3; inline;
  12418. procedure clearTRISB4; inline;
  12419. procedure clearTRISB5; inline;
  12420. procedure clearTRISB6; inline;
  12421. procedure clearTRISB7; inline;
  12422. procedure clearTRISB8; inline;
  12423. procedure clearTRISB9; inline;
  12424. procedure setTRISB0; inline;
  12425. procedure setTRISB10; inline;
  12426. procedure setTRISB11; inline;
  12427. procedure setTRISB12; inline;
  12428. procedure setTRISB13; inline;
  12429. procedure setTRISB14; inline;
  12430. procedure setTRISB15; inline;
  12431. procedure setTRISB1; inline;
  12432. procedure setTRISB2; inline;
  12433. procedure setTRISB3; inline;
  12434. procedure setTRISB4; inline;
  12435. procedure setTRISB5; inline;
  12436. procedure setTRISB6; inline;
  12437. procedure setTRISB7; inline;
  12438. procedure setTRISB8; inline;
  12439. procedure setTRISB9; inline;
  12440. property TRISB0 : TBits_1 read getTRISB0 write setTRISB0;
  12441. property TRISB1 : TBits_1 read getTRISB1 write setTRISB1;
  12442. property TRISB10 : TBits_1 read getTRISB10 write setTRISB10;
  12443. property TRISB11 : TBits_1 read getTRISB11 write setTRISB11;
  12444. property TRISB12 : TBits_1 read getTRISB12 write setTRISB12;
  12445. property TRISB13 : TBits_1 read getTRISB13 write setTRISB13;
  12446. property TRISB14 : TBits_1 read getTRISB14 write setTRISB14;
  12447. property TRISB15 : TBits_1 read getTRISB15 write setTRISB15;
  12448. property TRISB2 : TBits_1 read getTRISB2 write setTRISB2;
  12449. property TRISB3 : TBits_1 read getTRISB3 write setTRISB3;
  12450. property TRISB4 : TBits_1 read getTRISB4 write setTRISB4;
  12451. property TRISB5 : TBits_1 read getTRISB5 write setTRISB5;
  12452. property TRISB6 : TBits_1 read getTRISB6 write setTRISB6;
  12453. property TRISB7 : TBits_1 read getTRISB7 write setTRISB7;
  12454. property TRISB8 : TBits_1 read getTRISB8 write setTRISB8;
  12455. property TRISB9 : TBits_1 read getTRISB9 write setTRISB9;
  12456. property w : TBits_32 read getw write setw;
  12457. end;
  12458. TPORTB_PORTB = record
  12459. private
  12460. function getRB0 : TBits_1; inline;
  12461. function getRB1 : TBits_1; inline;
  12462. function getRB10 : TBits_1; inline;
  12463. function getRB11 : TBits_1; inline;
  12464. function getRB12 : TBits_1; inline;
  12465. function getRB13 : TBits_1; inline;
  12466. function getRB14 : TBits_1; inline;
  12467. function getRB15 : TBits_1; inline;
  12468. function getRB2 : TBits_1; inline;
  12469. function getRB3 : TBits_1; inline;
  12470. function getRB4 : TBits_1; inline;
  12471. function getRB5 : TBits_1; inline;
  12472. function getRB6 : TBits_1; inline;
  12473. function getRB7 : TBits_1; inline;
  12474. function getRB8 : TBits_1; inline;
  12475. function getRB9 : TBits_1; inline;
  12476. function getw : TBits_32; inline;
  12477. procedure setRB0(thebits : TBits_1); inline;
  12478. procedure setRB1(thebits : TBits_1); inline;
  12479. procedure setRB10(thebits : TBits_1); inline;
  12480. procedure setRB11(thebits : TBits_1); inline;
  12481. procedure setRB12(thebits : TBits_1); inline;
  12482. procedure setRB13(thebits : TBits_1); inline;
  12483. procedure setRB14(thebits : TBits_1); inline;
  12484. procedure setRB15(thebits : TBits_1); inline;
  12485. procedure setRB2(thebits : TBits_1); inline;
  12486. procedure setRB3(thebits : TBits_1); inline;
  12487. procedure setRB4(thebits : TBits_1); inline;
  12488. procedure setRB5(thebits : TBits_1); inline;
  12489. procedure setRB6(thebits : TBits_1); inline;
  12490. procedure setRB7(thebits : TBits_1); inline;
  12491. procedure setRB8(thebits : TBits_1); inline;
  12492. procedure setRB9(thebits : TBits_1); inline;
  12493. procedure setw(thebits : TBits_32); inline;
  12494. public
  12495. procedure clearRB0; inline;
  12496. procedure clearRB10; inline;
  12497. procedure clearRB11; inline;
  12498. procedure clearRB12; inline;
  12499. procedure clearRB13; inline;
  12500. procedure clearRB14; inline;
  12501. procedure clearRB15; inline;
  12502. procedure clearRB1; inline;
  12503. procedure clearRB2; inline;
  12504. procedure clearRB3; inline;
  12505. procedure clearRB4; inline;
  12506. procedure clearRB5; inline;
  12507. procedure clearRB6; inline;
  12508. procedure clearRB7; inline;
  12509. procedure clearRB8; inline;
  12510. procedure clearRB9; inline;
  12511. procedure setRB0; inline;
  12512. procedure setRB10; inline;
  12513. procedure setRB11; inline;
  12514. procedure setRB12; inline;
  12515. procedure setRB13; inline;
  12516. procedure setRB14; inline;
  12517. procedure setRB15; inline;
  12518. procedure setRB1; inline;
  12519. procedure setRB2; inline;
  12520. procedure setRB3; inline;
  12521. procedure setRB4; inline;
  12522. procedure setRB5; inline;
  12523. procedure setRB6; inline;
  12524. procedure setRB7; inline;
  12525. procedure setRB8; inline;
  12526. procedure setRB9; inline;
  12527. property RB0 : TBits_1 read getRB0 write setRB0;
  12528. property RB1 : TBits_1 read getRB1 write setRB1;
  12529. property RB10 : TBits_1 read getRB10 write setRB10;
  12530. property RB11 : TBits_1 read getRB11 write setRB11;
  12531. property RB12 : TBits_1 read getRB12 write setRB12;
  12532. property RB13 : TBits_1 read getRB13 write setRB13;
  12533. property RB14 : TBits_1 read getRB14 write setRB14;
  12534. property RB15 : TBits_1 read getRB15 write setRB15;
  12535. property RB2 : TBits_1 read getRB2 write setRB2;
  12536. property RB3 : TBits_1 read getRB3 write setRB3;
  12537. property RB4 : TBits_1 read getRB4 write setRB4;
  12538. property RB5 : TBits_1 read getRB5 write setRB5;
  12539. property RB6 : TBits_1 read getRB6 write setRB6;
  12540. property RB7 : TBits_1 read getRB7 write setRB7;
  12541. property RB8 : TBits_1 read getRB8 write setRB8;
  12542. property RB9 : TBits_1 read getRB9 write setRB9;
  12543. property w : TBits_32 read getw write setw;
  12544. end;
  12545. 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);
  12546. TPortB_bitset = set of TPortB_bits;
  12547. TPORTB_LATB = record
  12548. private
  12549. function getLATB0 : TBits_1; inline;
  12550. function getLATB1 : TBits_1; inline;
  12551. function getLATB10 : TBits_1; inline;
  12552. function getLATB11 : TBits_1; inline;
  12553. function getLATB12 : TBits_1; inline;
  12554. function getLATB13 : TBits_1; inline;
  12555. function getLATB14 : TBits_1; inline;
  12556. function getLATB15 : TBits_1; inline;
  12557. function getLATB2 : TBits_1; inline;
  12558. function getLATB3 : TBits_1; inline;
  12559. function getLATB4 : TBits_1; inline;
  12560. function getLATB5 : TBits_1; inline;
  12561. function getLATB6 : TBits_1; inline;
  12562. function getLATB7 : TBits_1; inline;
  12563. function getLATB8 : TBits_1; inline;
  12564. function getLATB9 : TBits_1; inline;
  12565. function getw : TBits_32; inline;
  12566. procedure setLATB0(thebits : TBits_1); inline;
  12567. procedure setLATB1(thebits : TBits_1); inline;
  12568. procedure setLATB10(thebits : TBits_1); inline;
  12569. procedure setLATB11(thebits : TBits_1); inline;
  12570. procedure setLATB12(thebits : TBits_1); inline;
  12571. procedure setLATB13(thebits : TBits_1); inline;
  12572. procedure setLATB14(thebits : TBits_1); inline;
  12573. procedure setLATB15(thebits : TBits_1); inline;
  12574. procedure setLATB2(thebits : TBits_1); inline;
  12575. procedure setLATB3(thebits : TBits_1); inline;
  12576. procedure setLATB4(thebits : TBits_1); inline;
  12577. procedure setLATB5(thebits : TBits_1); inline;
  12578. procedure setLATB6(thebits : TBits_1); inline;
  12579. procedure setLATB7(thebits : TBits_1); inline;
  12580. procedure setLATB8(thebits : TBits_1); inline;
  12581. procedure setLATB9(thebits : TBits_1); inline;
  12582. procedure setw(thebits : TBits_32); inline;
  12583. public
  12584. procedure clearLATB0; inline;
  12585. procedure clearLATB10; inline;
  12586. procedure clearLATB11; inline;
  12587. procedure clearLATB12; inline;
  12588. procedure clearLATB13; inline;
  12589. procedure clearLATB14; inline;
  12590. procedure clearLATB15; inline;
  12591. procedure clearLATB1; inline;
  12592. procedure clearLATB2; inline;
  12593. procedure clearLATB3; inline;
  12594. procedure clearLATB4; inline;
  12595. procedure clearLATB5; inline;
  12596. procedure clearLATB6; inline;
  12597. procedure clearLATB7; inline;
  12598. procedure clearLATB8; inline;
  12599. procedure clearLATB9; inline;
  12600. procedure setLATB0; inline;
  12601. procedure setLATB10; inline;
  12602. procedure setLATB11; inline;
  12603. procedure setLATB12; inline;
  12604. procedure setLATB13; inline;
  12605. procedure setLATB14; inline;
  12606. procedure setLATB15; inline;
  12607. procedure setLATB1; inline;
  12608. procedure setLATB2; inline;
  12609. procedure setLATB3; inline;
  12610. procedure setLATB4; inline;
  12611. procedure setLATB5; inline;
  12612. procedure setLATB6; inline;
  12613. procedure setLATB7; inline;
  12614. procedure setLATB8; inline;
  12615. procedure setLATB9; inline;
  12616. property LATB0 : TBits_1 read getLATB0 write setLATB0;
  12617. property LATB1 : TBits_1 read getLATB1 write setLATB1;
  12618. property LATB10 : TBits_1 read getLATB10 write setLATB10;
  12619. property LATB11 : TBits_1 read getLATB11 write setLATB11;
  12620. property LATB12 : TBits_1 read getLATB12 write setLATB12;
  12621. property LATB13 : TBits_1 read getLATB13 write setLATB13;
  12622. property LATB14 : TBits_1 read getLATB14 write setLATB14;
  12623. property LATB15 : TBits_1 read getLATB15 write setLATB15;
  12624. property LATB2 : TBits_1 read getLATB2 write setLATB2;
  12625. property LATB3 : TBits_1 read getLATB3 write setLATB3;
  12626. property LATB4 : TBits_1 read getLATB4 write setLATB4;
  12627. property LATB5 : TBits_1 read getLATB5 write setLATB5;
  12628. property LATB6 : TBits_1 read getLATB6 write setLATB6;
  12629. property LATB7 : TBits_1 read getLATB7 write setLATB7;
  12630. property LATB8 : TBits_1 read getLATB8 write setLATB8;
  12631. property LATB9 : TBits_1 read getLATB9 write setLATB9;
  12632. property w : TBits_32 read getw write setw;
  12633. end;
  12634. TPORTB_ODCB = record
  12635. private
  12636. function getODCB0 : TBits_1; inline;
  12637. function getODCB1 : TBits_1; inline;
  12638. function getODCB10 : TBits_1; inline;
  12639. function getODCB11 : TBits_1; inline;
  12640. function getODCB12 : TBits_1; inline;
  12641. function getODCB13 : TBits_1; inline;
  12642. function getODCB14 : TBits_1; inline;
  12643. function getODCB15 : TBits_1; inline;
  12644. function getODCB2 : TBits_1; inline;
  12645. function getODCB3 : TBits_1; inline;
  12646. function getODCB4 : TBits_1; inline;
  12647. function getODCB5 : TBits_1; inline;
  12648. function getODCB6 : TBits_1; inline;
  12649. function getODCB7 : TBits_1; inline;
  12650. function getODCB8 : TBits_1; inline;
  12651. function getODCB9 : TBits_1; inline;
  12652. function getw : TBits_32; inline;
  12653. procedure setODCB0(thebits : TBits_1); inline;
  12654. procedure setODCB1(thebits : TBits_1); inline;
  12655. procedure setODCB10(thebits : TBits_1); inline;
  12656. procedure setODCB11(thebits : TBits_1); inline;
  12657. procedure setODCB12(thebits : TBits_1); inline;
  12658. procedure setODCB13(thebits : TBits_1); inline;
  12659. procedure setODCB14(thebits : TBits_1); inline;
  12660. procedure setODCB15(thebits : TBits_1); inline;
  12661. procedure setODCB2(thebits : TBits_1); inline;
  12662. procedure setODCB3(thebits : TBits_1); inline;
  12663. procedure setODCB4(thebits : TBits_1); inline;
  12664. procedure setODCB5(thebits : TBits_1); inline;
  12665. procedure setODCB6(thebits : TBits_1); inline;
  12666. procedure setODCB7(thebits : TBits_1); inline;
  12667. procedure setODCB8(thebits : TBits_1); inline;
  12668. procedure setODCB9(thebits : TBits_1); inline;
  12669. procedure setw(thebits : TBits_32); inline;
  12670. public
  12671. procedure clearODCB0; inline;
  12672. procedure clearODCB10; inline;
  12673. procedure clearODCB11; inline;
  12674. procedure clearODCB12; inline;
  12675. procedure clearODCB13; inline;
  12676. procedure clearODCB14; inline;
  12677. procedure clearODCB15; inline;
  12678. procedure clearODCB1; inline;
  12679. procedure clearODCB2; inline;
  12680. procedure clearODCB3; inline;
  12681. procedure clearODCB4; inline;
  12682. procedure clearODCB5; inline;
  12683. procedure clearODCB6; inline;
  12684. procedure clearODCB7; inline;
  12685. procedure clearODCB8; inline;
  12686. procedure clearODCB9; inline;
  12687. procedure setODCB0; inline;
  12688. procedure setODCB10; inline;
  12689. procedure setODCB11; inline;
  12690. procedure setODCB12; inline;
  12691. procedure setODCB13; inline;
  12692. procedure setODCB14; inline;
  12693. procedure setODCB15; inline;
  12694. procedure setODCB1; inline;
  12695. procedure setODCB2; inline;
  12696. procedure setODCB3; inline;
  12697. procedure setODCB4; inline;
  12698. procedure setODCB5; inline;
  12699. procedure setODCB6; inline;
  12700. procedure setODCB7; inline;
  12701. procedure setODCB8; inline;
  12702. procedure setODCB9; inline;
  12703. property ODCB0 : TBits_1 read getODCB0 write setODCB0;
  12704. property ODCB1 : TBits_1 read getODCB1 write setODCB1;
  12705. property ODCB10 : TBits_1 read getODCB10 write setODCB10;
  12706. property ODCB11 : TBits_1 read getODCB11 write setODCB11;
  12707. property ODCB12 : TBits_1 read getODCB12 write setODCB12;
  12708. property ODCB13 : TBits_1 read getODCB13 write setODCB13;
  12709. property ODCB14 : TBits_1 read getODCB14 write setODCB14;
  12710. property ODCB15 : TBits_1 read getODCB15 write setODCB15;
  12711. property ODCB2 : TBits_1 read getODCB2 write setODCB2;
  12712. property ODCB3 : TBits_1 read getODCB3 write setODCB3;
  12713. property ODCB4 : TBits_1 read getODCB4 write setODCB4;
  12714. property ODCB5 : TBits_1 read getODCB5 write setODCB5;
  12715. property ODCB6 : TBits_1 read getODCB6 write setODCB6;
  12716. property ODCB7 : TBits_1 read getODCB7 write setODCB7;
  12717. property ODCB8 : TBits_1 read getODCB8 write setODCB8;
  12718. property ODCB9 : TBits_1 read getODCB9 write setODCB9;
  12719. property w : TBits_32 read getw write setw;
  12720. end;
  12721. type
  12722. TPORTBRegisters = record
  12723. TRISBbits : TPORTB_TRISB;
  12724. TRISB : longWord;
  12725. TRISBCLR : longWord;
  12726. TRISBSET : longWord;
  12727. TRISBINV : longWord;
  12728. PORTBbits : TPORTB_PORTB;
  12729. PORTB : longWord;
  12730. PORTBCLR : longWord;
  12731. PORTBSET : longWord;
  12732. PORTBINV : longWord;
  12733. LATBbits : TPORTB_LATB;
  12734. LATB : longWord;
  12735. LATBCLR : longWord;
  12736. LATBSET : longWord;
  12737. LATBINV : longWord;
  12738. ODCBbits : TPORTB_ODCB;
  12739. ODCB : longWord;
  12740. ODCBCLR : longWord;
  12741. ODCBSET : longWord;
  12742. ODCBINV : longWord;
  12743. end;
  12744. TPORTC_TRISC = record
  12745. private
  12746. function getTRISC1 : TBits_1; inline;
  12747. function getTRISC12 : TBits_1; inline;
  12748. function getTRISC13 : TBits_1; inline;
  12749. function getTRISC14 : TBits_1; inline;
  12750. function getTRISC15 : TBits_1; inline;
  12751. function getTRISC2 : TBits_1; inline;
  12752. function getTRISC3 : TBits_1; inline;
  12753. function getTRISC4 : TBits_1; inline;
  12754. function getw : TBits_32; inline;
  12755. procedure setTRISC1(thebits : TBits_1); inline;
  12756. procedure setTRISC12(thebits : TBits_1); inline;
  12757. procedure setTRISC13(thebits : TBits_1); inline;
  12758. procedure setTRISC14(thebits : TBits_1); inline;
  12759. procedure setTRISC15(thebits : TBits_1); inline;
  12760. procedure setTRISC2(thebits : TBits_1); inline;
  12761. procedure setTRISC3(thebits : TBits_1); inline;
  12762. procedure setTRISC4(thebits : TBits_1); inline;
  12763. procedure setw(thebits : TBits_32); inline;
  12764. public
  12765. procedure clearTRISC12; inline;
  12766. procedure clearTRISC13; inline;
  12767. procedure clearTRISC14; inline;
  12768. procedure clearTRISC15; inline;
  12769. procedure clearTRISC1; inline;
  12770. procedure clearTRISC2; inline;
  12771. procedure clearTRISC3; inline;
  12772. procedure clearTRISC4; inline;
  12773. procedure setTRISC12; inline;
  12774. procedure setTRISC13; inline;
  12775. procedure setTRISC14; inline;
  12776. procedure setTRISC15; inline;
  12777. procedure setTRISC1; inline;
  12778. procedure setTRISC2; inline;
  12779. procedure setTRISC3; inline;
  12780. procedure setTRISC4; inline;
  12781. property TRISC1 : TBits_1 read getTRISC1 write setTRISC1;
  12782. property TRISC12 : TBits_1 read getTRISC12 write setTRISC12;
  12783. property TRISC13 : TBits_1 read getTRISC13 write setTRISC13;
  12784. property TRISC14 : TBits_1 read getTRISC14 write setTRISC14;
  12785. property TRISC15 : TBits_1 read getTRISC15 write setTRISC15;
  12786. property TRISC2 : TBits_1 read getTRISC2 write setTRISC2;
  12787. property TRISC3 : TBits_1 read getTRISC3 write setTRISC3;
  12788. property TRISC4 : TBits_1 read getTRISC4 write setTRISC4;
  12789. property w : TBits_32 read getw write setw;
  12790. end;
  12791. TPORTC_PORTC = record
  12792. private
  12793. function getRC1 : TBits_1; inline;
  12794. function getRC12 : TBits_1; inline;
  12795. function getRC13 : TBits_1; inline;
  12796. function getRC14 : TBits_1; inline;
  12797. function getRC15 : TBits_1; inline;
  12798. function getRC2 : TBits_1; inline;
  12799. function getRC3 : TBits_1; inline;
  12800. function getRC4 : TBits_1; inline;
  12801. function getw : TBits_32; inline;
  12802. procedure setRC1(thebits : TBits_1); inline;
  12803. procedure setRC12(thebits : TBits_1); inline;
  12804. procedure setRC13(thebits : TBits_1); inline;
  12805. procedure setRC14(thebits : TBits_1); inline;
  12806. procedure setRC15(thebits : TBits_1); inline;
  12807. procedure setRC2(thebits : TBits_1); inline;
  12808. procedure setRC3(thebits : TBits_1); inline;
  12809. procedure setRC4(thebits : TBits_1); inline;
  12810. procedure setw(thebits : TBits_32); inline;
  12811. public
  12812. procedure clearRC12; inline;
  12813. procedure clearRC13; inline;
  12814. procedure clearRC14; inline;
  12815. procedure clearRC15; inline;
  12816. procedure clearRC1; inline;
  12817. procedure clearRC2; inline;
  12818. procedure clearRC3; inline;
  12819. procedure clearRC4; inline;
  12820. procedure setRC12; inline;
  12821. procedure setRC13; inline;
  12822. procedure setRC14; inline;
  12823. procedure setRC15; inline;
  12824. procedure setRC1; inline;
  12825. procedure setRC2; inline;
  12826. procedure setRC3; inline;
  12827. procedure setRC4; inline;
  12828. property RC1 : TBits_1 read getRC1 write setRC1;
  12829. property RC12 : TBits_1 read getRC12 write setRC12;
  12830. property RC13 : TBits_1 read getRC13 write setRC13;
  12831. property RC14 : TBits_1 read getRC14 write setRC14;
  12832. property RC15 : TBits_1 read getRC15 write setRC15;
  12833. property RC2 : TBits_1 read getRC2 write setRC2;
  12834. property RC3 : TBits_1 read getRC3 write setRC3;
  12835. property RC4 : TBits_1 read getRC4 write setRC4;
  12836. property w : TBits_32 read getw write setw;
  12837. end;
  12838. TPortC_bits=(RC1=1,RC2=2,RC3=3,RC4=4,RC12=12,RC13=13,RC14=14,RC15=15);
  12839. TPortC_bitset = set of TPortC_bits;
  12840. TPORTC_LATC = record
  12841. private
  12842. function getLATC1 : TBits_1; inline;
  12843. function getLATC12 : TBits_1; inline;
  12844. function getLATC13 : TBits_1; inline;
  12845. function getLATC14 : TBits_1; inline;
  12846. function getLATC15 : TBits_1; inline;
  12847. function getLATC2 : TBits_1; inline;
  12848. function getLATC3 : TBits_1; inline;
  12849. function getLATC4 : TBits_1; inline;
  12850. function getw : TBits_32; inline;
  12851. procedure setLATC1(thebits : TBits_1); inline;
  12852. procedure setLATC12(thebits : TBits_1); inline;
  12853. procedure setLATC13(thebits : TBits_1); inline;
  12854. procedure setLATC14(thebits : TBits_1); inline;
  12855. procedure setLATC15(thebits : TBits_1); inline;
  12856. procedure setLATC2(thebits : TBits_1); inline;
  12857. procedure setLATC3(thebits : TBits_1); inline;
  12858. procedure setLATC4(thebits : TBits_1); inline;
  12859. procedure setw(thebits : TBits_32); inline;
  12860. public
  12861. procedure clearLATC12; inline;
  12862. procedure clearLATC13; inline;
  12863. procedure clearLATC14; inline;
  12864. procedure clearLATC15; inline;
  12865. procedure clearLATC1; inline;
  12866. procedure clearLATC2; inline;
  12867. procedure clearLATC3; inline;
  12868. procedure clearLATC4; inline;
  12869. procedure setLATC12; inline;
  12870. procedure setLATC13; inline;
  12871. procedure setLATC14; inline;
  12872. procedure setLATC15; inline;
  12873. procedure setLATC1; inline;
  12874. procedure setLATC2; inline;
  12875. procedure setLATC3; inline;
  12876. procedure setLATC4; inline;
  12877. property LATC1 : TBits_1 read getLATC1 write setLATC1;
  12878. property LATC12 : TBits_1 read getLATC12 write setLATC12;
  12879. property LATC13 : TBits_1 read getLATC13 write setLATC13;
  12880. property LATC14 : TBits_1 read getLATC14 write setLATC14;
  12881. property LATC15 : TBits_1 read getLATC15 write setLATC15;
  12882. property LATC2 : TBits_1 read getLATC2 write setLATC2;
  12883. property LATC3 : TBits_1 read getLATC3 write setLATC3;
  12884. property LATC4 : TBits_1 read getLATC4 write setLATC4;
  12885. property w : TBits_32 read getw write setw;
  12886. end;
  12887. TPORTC_ODCC = record
  12888. private
  12889. function getODCC1 : TBits_1; inline;
  12890. function getODCC12 : TBits_1; inline;
  12891. function getODCC13 : TBits_1; inline;
  12892. function getODCC14 : TBits_1; inline;
  12893. function getODCC15 : TBits_1; inline;
  12894. function getODCC2 : TBits_1; inline;
  12895. function getODCC3 : TBits_1; inline;
  12896. function getODCC4 : TBits_1; inline;
  12897. function getw : TBits_32; inline;
  12898. procedure setODCC1(thebits : TBits_1); inline;
  12899. procedure setODCC12(thebits : TBits_1); inline;
  12900. procedure setODCC13(thebits : TBits_1); inline;
  12901. procedure setODCC14(thebits : TBits_1); inline;
  12902. procedure setODCC15(thebits : TBits_1); inline;
  12903. procedure setODCC2(thebits : TBits_1); inline;
  12904. procedure setODCC3(thebits : TBits_1); inline;
  12905. procedure setODCC4(thebits : TBits_1); inline;
  12906. procedure setw(thebits : TBits_32); inline;
  12907. public
  12908. procedure clearODCC12; inline;
  12909. procedure clearODCC13; inline;
  12910. procedure clearODCC14; inline;
  12911. procedure clearODCC15; inline;
  12912. procedure clearODCC1; inline;
  12913. procedure clearODCC2; inline;
  12914. procedure clearODCC3; inline;
  12915. procedure clearODCC4; inline;
  12916. procedure setODCC12; inline;
  12917. procedure setODCC13; inline;
  12918. procedure setODCC14; inline;
  12919. procedure setODCC15; inline;
  12920. procedure setODCC1; inline;
  12921. procedure setODCC2; inline;
  12922. procedure setODCC3; inline;
  12923. procedure setODCC4; inline;
  12924. property ODCC1 : TBits_1 read getODCC1 write setODCC1;
  12925. property ODCC12 : TBits_1 read getODCC12 write setODCC12;
  12926. property ODCC13 : TBits_1 read getODCC13 write setODCC13;
  12927. property ODCC14 : TBits_1 read getODCC14 write setODCC14;
  12928. property ODCC15 : TBits_1 read getODCC15 write setODCC15;
  12929. property ODCC2 : TBits_1 read getODCC2 write setODCC2;
  12930. property ODCC3 : TBits_1 read getODCC3 write setODCC3;
  12931. property ODCC4 : TBits_1 read getODCC4 write setODCC4;
  12932. property w : TBits_32 read getw write setw;
  12933. end;
  12934. type
  12935. TPORTCRegisters = record
  12936. TRISCbits : TPORTC_TRISC;
  12937. TRISC : longWord;
  12938. TRISCCLR : longWord;
  12939. TRISCSET : longWord;
  12940. TRISCINV : longWord;
  12941. PORTCbits : TPORTC_PORTC;
  12942. PORTC : longWord;
  12943. PORTCCLR : longWord;
  12944. PORTCSET : longWord;
  12945. PORTCINV : longWord;
  12946. LATCbits : TPORTC_LATC;
  12947. LATC : longWord;
  12948. LATCCLR : longWord;
  12949. LATCSET : longWord;
  12950. LATCINV : longWord;
  12951. ODCCbits : TPORTC_ODCC;
  12952. ODCC : longWord;
  12953. ODCCCLR : longWord;
  12954. ODCCSET : longWord;
  12955. ODCCINV : longWord;
  12956. end;
  12957. TPORTD_TRISD = record
  12958. private
  12959. function getTRISD0 : TBits_1; inline;
  12960. function getTRISD1 : TBits_1; inline;
  12961. function getTRISD10 : TBits_1; inline;
  12962. function getTRISD11 : TBits_1; inline;
  12963. function getTRISD12 : TBits_1; inline;
  12964. function getTRISD13 : TBits_1; inline;
  12965. function getTRISD14 : TBits_1; inline;
  12966. function getTRISD15 : TBits_1; inline;
  12967. function getTRISD2 : TBits_1; inline;
  12968. function getTRISD3 : TBits_1; inline;
  12969. function getTRISD4 : TBits_1; inline;
  12970. function getTRISD5 : TBits_1; inline;
  12971. function getTRISD6 : TBits_1; inline;
  12972. function getTRISD7 : TBits_1; inline;
  12973. function getTRISD8 : TBits_1; inline;
  12974. function getTRISD9 : TBits_1; inline;
  12975. function getw : TBits_32; inline;
  12976. procedure setTRISD0(thebits : TBits_1); inline;
  12977. procedure setTRISD1(thebits : TBits_1); inline;
  12978. procedure setTRISD10(thebits : TBits_1); inline;
  12979. procedure setTRISD11(thebits : TBits_1); inline;
  12980. procedure setTRISD12(thebits : TBits_1); inline;
  12981. procedure setTRISD13(thebits : TBits_1); inline;
  12982. procedure setTRISD14(thebits : TBits_1); inline;
  12983. procedure setTRISD15(thebits : TBits_1); inline;
  12984. procedure setTRISD2(thebits : TBits_1); inline;
  12985. procedure setTRISD3(thebits : TBits_1); inline;
  12986. procedure setTRISD4(thebits : TBits_1); inline;
  12987. procedure setTRISD5(thebits : TBits_1); inline;
  12988. procedure setTRISD6(thebits : TBits_1); inline;
  12989. procedure setTRISD7(thebits : TBits_1); inline;
  12990. procedure setTRISD8(thebits : TBits_1); inline;
  12991. procedure setTRISD9(thebits : TBits_1); inline;
  12992. procedure setw(thebits : TBits_32); inline;
  12993. public
  12994. procedure clearTRISD0; inline;
  12995. procedure clearTRISD10; inline;
  12996. procedure clearTRISD11; inline;
  12997. procedure clearTRISD12; inline;
  12998. procedure clearTRISD13; inline;
  12999. procedure clearTRISD14; inline;
  13000. procedure clearTRISD15; inline;
  13001. procedure clearTRISD1; inline;
  13002. procedure clearTRISD2; inline;
  13003. procedure clearTRISD3; inline;
  13004. procedure clearTRISD4; inline;
  13005. procedure clearTRISD5; inline;
  13006. procedure clearTRISD6; inline;
  13007. procedure clearTRISD7; inline;
  13008. procedure clearTRISD8; inline;
  13009. procedure clearTRISD9; inline;
  13010. procedure setTRISD0; inline;
  13011. procedure setTRISD10; inline;
  13012. procedure setTRISD11; inline;
  13013. procedure setTRISD12; inline;
  13014. procedure setTRISD13; inline;
  13015. procedure setTRISD14; inline;
  13016. procedure setTRISD15; inline;
  13017. procedure setTRISD1; inline;
  13018. procedure setTRISD2; inline;
  13019. procedure setTRISD3; inline;
  13020. procedure setTRISD4; inline;
  13021. procedure setTRISD5; inline;
  13022. procedure setTRISD6; inline;
  13023. procedure setTRISD7; inline;
  13024. procedure setTRISD8; inline;
  13025. procedure setTRISD9; inline;
  13026. property TRISD0 : TBits_1 read getTRISD0 write setTRISD0;
  13027. property TRISD1 : TBits_1 read getTRISD1 write setTRISD1;
  13028. property TRISD10 : TBits_1 read getTRISD10 write setTRISD10;
  13029. property TRISD11 : TBits_1 read getTRISD11 write setTRISD11;
  13030. property TRISD12 : TBits_1 read getTRISD12 write setTRISD12;
  13031. property TRISD13 : TBits_1 read getTRISD13 write setTRISD13;
  13032. property TRISD14 : TBits_1 read getTRISD14 write setTRISD14;
  13033. property TRISD15 : TBits_1 read getTRISD15 write setTRISD15;
  13034. property TRISD2 : TBits_1 read getTRISD2 write setTRISD2;
  13035. property TRISD3 : TBits_1 read getTRISD3 write setTRISD3;
  13036. property TRISD4 : TBits_1 read getTRISD4 write setTRISD4;
  13037. property TRISD5 : TBits_1 read getTRISD5 write setTRISD5;
  13038. property TRISD6 : TBits_1 read getTRISD6 write setTRISD6;
  13039. property TRISD7 : TBits_1 read getTRISD7 write setTRISD7;
  13040. property TRISD8 : TBits_1 read getTRISD8 write setTRISD8;
  13041. property TRISD9 : TBits_1 read getTRISD9 write setTRISD9;
  13042. property w : TBits_32 read getw write setw;
  13043. end;
  13044. TPORTD_PORTD = record
  13045. private
  13046. function getRD0 : TBits_1; inline;
  13047. function getRD1 : TBits_1; inline;
  13048. function getRD10 : TBits_1; inline;
  13049. function getRD11 : TBits_1; inline;
  13050. function getRD12 : TBits_1; inline;
  13051. function getRD13 : TBits_1; inline;
  13052. function getRD14 : TBits_1; inline;
  13053. function getRD15 : TBits_1; inline;
  13054. function getRD2 : TBits_1; inline;
  13055. function getRD3 : TBits_1; inline;
  13056. function getRD4 : TBits_1; inline;
  13057. function getRD5 : TBits_1; inline;
  13058. function getRD6 : TBits_1; inline;
  13059. function getRD7 : TBits_1; inline;
  13060. function getRD8 : TBits_1; inline;
  13061. function getRD9 : TBits_1; inline;
  13062. function getw : TBits_32; inline;
  13063. procedure setRD0(thebits : TBits_1); inline;
  13064. procedure setRD1(thebits : TBits_1); inline;
  13065. procedure setRD10(thebits : TBits_1); inline;
  13066. procedure setRD11(thebits : TBits_1); inline;
  13067. procedure setRD12(thebits : TBits_1); inline;
  13068. procedure setRD13(thebits : TBits_1); inline;
  13069. procedure setRD14(thebits : TBits_1); inline;
  13070. procedure setRD15(thebits : TBits_1); inline;
  13071. procedure setRD2(thebits : TBits_1); inline;
  13072. procedure setRD3(thebits : TBits_1); inline;
  13073. procedure setRD4(thebits : TBits_1); inline;
  13074. procedure setRD5(thebits : TBits_1); inline;
  13075. procedure setRD6(thebits : TBits_1); inline;
  13076. procedure setRD7(thebits : TBits_1); inline;
  13077. procedure setRD8(thebits : TBits_1); inline;
  13078. procedure setRD9(thebits : TBits_1); inline;
  13079. procedure setw(thebits : TBits_32); inline;
  13080. public
  13081. procedure clearRD0; inline;
  13082. procedure clearRD10; inline;
  13083. procedure clearRD11; inline;
  13084. procedure clearRD12; inline;
  13085. procedure clearRD13; inline;
  13086. procedure clearRD14; inline;
  13087. procedure clearRD15; inline;
  13088. procedure clearRD1; inline;
  13089. procedure clearRD2; inline;
  13090. procedure clearRD3; inline;
  13091. procedure clearRD4; inline;
  13092. procedure clearRD5; inline;
  13093. procedure clearRD6; inline;
  13094. procedure clearRD7; inline;
  13095. procedure clearRD8; inline;
  13096. procedure clearRD9; inline;
  13097. procedure setRD0; inline;
  13098. procedure setRD10; inline;
  13099. procedure setRD11; inline;
  13100. procedure setRD12; inline;
  13101. procedure setRD13; inline;
  13102. procedure setRD14; inline;
  13103. procedure setRD15; inline;
  13104. procedure setRD1; inline;
  13105. procedure setRD2; inline;
  13106. procedure setRD3; inline;
  13107. procedure setRD4; inline;
  13108. procedure setRD5; inline;
  13109. procedure setRD6; inline;
  13110. procedure setRD7; inline;
  13111. procedure setRD8; inline;
  13112. procedure setRD9; inline;
  13113. property RD0 : TBits_1 read getRD0 write setRD0;
  13114. property RD1 : TBits_1 read getRD1 write setRD1;
  13115. property RD10 : TBits_1 read getRD10 write setRD10;
  13116. property RD11 : TBits_1 read getRD11 write setRD11;
  13117. property RD12 : TBits_1 read getRD12 write setRD12;
  13118. property RD13 : TBits_1 read getRD13 write setRD13;
  13119. property RD14 : TBits_1 read getRD14 write setRD14;
  13120. property RD15 : TBits_1 read getRD15 write setRD15;
  13121. property RD2 : TBits_1 read getRD2 write setRD2;
  13122. property RD3 : TBits_1 read getRD3 write setRD3;
  13123. property RD4 : TBits_1 read getRD4 write setRD4;
  13124. property RD5 : TBits_1 read getRD5 write setRD5;
  13125. property RD6 : TBits_1 read getRD6 write setRD6;
  13126. property RD7 : TBits_1 read getRD7 write setRD7;
  13127. property RD8 : TBits_1 read getRD8 write setRD8;
  13128. property RD9 : TBits_1 read getRD9 write setRD9;
  13129. property w : TBits_32 read getw write setw;
  13130. end;
  13131. 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);
  13132. TPortD_bitset = set of TPortD_bits;
  13133. TPORTD_LATD = record
  13134. private
  13135. function getLATD0 : TBits_1; inline;
  13136. function getLATD1 : TBits_1; inline;
  13137. function getLATD10 : TBits_1; inline;
  13138. function getLATD11 : TBits_1; inline;
  13139. function getLATD12 : TBits_1; inline;
  13140. function getLATD13 : TBits_1; inline;
  13141. function getLATD14 : TBits_1; inline;
  13142. function getLATD15 : TBits_1; inline;
  13143. function getLATD2 : TBits_1; inline;
  13144. function getLATD3 : TBits_1; inline;
  13145. function getLATD4 : TBits_1; inline;
  13146. function getLATD5 : TBits_1; inline;
  13147. function getLATD6 : TBits_1; inline;
  13148. function getLATD7 : TBits_1; inline;
  13149. function getLATD8 : TBits_1; inline;
  13150. function getLATD9 : TBits_1; inline;
  13151. function getw : TBits_32; inline;
  13152. procedure setLATD0(thebits : TBits_1); inline;
  13153. procedure setLATD1(thebits : TBits_1); inline;
  13154. procedure setLATD10(thebits : TBits_1); inline;
  13155. procedure setLATD11(thebits : TBits_1); inline;
  13156. procedure setLATD12(thebits : TBits_1); inline;
  13157. procedure setLATD13(thebits : TBits_1); inline;
  13158. procedure setLATD14(thebits : TBits_1); inline;
  13159. procedure setLATD15(thebits : TBits_1); inline;
  13160. procedure setLATD2(thebits : TBits_1); inline;
  13161. procedure setLATD3(thebits : TBits_1); inline;
  13162. procedure setLATD4(thebits : TBits_1); inline;
  13163. procedure setLATD5(thebits : TBits_1); inline;
  13164. procedure setLATD6(thebits : TBits_1); inline;
  13165. procedure setLATD7(thebits : TBits_1); inline;
  13166. procedure setLATD8(thebits : TBits_1); inline;
  13167. procedure setLATD9(thebits : TBits_1); inline;
  13168. procedure setw(thebits : TBits_32); inline;
  13169. public
  13170. procedure clearLATD0; inline;
  13171. procedure clearLATD10; inline;
  13172. procedure clearLATD11; inline;
  13173. procedure clearLATD12; inline;
  13174. procedure clearLATD13; inline;
  13175. procedure clearLATD14; inline;
  13176. procedure clearLATD15; inline;
  13177. procedure clearLATD1; inline;
  13178. procedure clearLATD2; inline;
  13179. procedure clearLATD3; inline;
  13180. procedure clearLATD4; inline;
  13181. procedure clearLATD5; inline;
  13182. procedure clearLATD6; inline;
  13183. procedure clearLATD7; inline;
  13184. procedure clearLATD8; inline;
  13185. procedure clearLATD9; inline;
  13186. procedure setLATD0; inline;
  13187. procedure setLATD10; inline;
  13188. procedure setLATD11; inline;
  13189. procedure setLATD12; inline;
  13190. procedure setLATD13; inline;
  13191. procedure setLATD14; inline;
  13192. procedure setLATD15; inline;
  13193. procedure setLATD1; inline;
  13194. procedure setLATD2; inline;
  13195. procedure setLATD3; inline;
  13196. procedure setLATD4; inline;
  13197. procedure setLATD5; inline;
  13198. procedure setLATD6; inline;
  13199. procedure setLATD7; inline;
  13200. procedure setLATD8; inline;
  13201. procedure setLATD9; inline;
  13202. property LATD0 : TBits_1 read getLATD0 write setLATD0;
  13203. property LATD1 : TBits_1 read getLATD1 write setLATD1;
  13204. property LATD10 : TBits_1 read getLATD10 write setLATD10;
  13205. property LATD11 : TBits_1 read getLATD11 write setLATD11;
  13206. property LATD12 : TBits_1 read getLATD12 write setLATD12;
  13207. property LATD13 : TBits_1 read getLATD13 write setLATD13;
  13208. property LATD14 : TBits_1 read getLATD14 write setLATD14;
  13209. property LATD15 : TBits_1 read getLATD15 write setLATD15;
  13210. property LATD2 : TBits_1 read getLATD2 write setLATD2;
  13211. property LATD3 : TBits_1 read getLATD3 write setLATD3;
  13212. property LATD4 : TBits_1 read getLATD4 write setLATD4;
  13213. property LATD5 : TBits_1 read getLATD5 write setLATD5;
  13214. property LATD6 : TBits_1 read getLATD6 write setLATD6;
  13215. property LATD7 : TBits_1 read getLATD7 write setLATD7;
  13216. property LATD8 : TBits_1 read getLATD8 write setLATD8;
  13217. property LATD9 : TBits_1 read getLATD9 write setLATD9;
  13218. property w : TBits_32 read getw write setw;
  13219. end;
  13220. TPORTD_ODCD = record
  13221. private
  13222. function getODCD0 : TBits_1; inline;
  13223. function getODCD1 : TBits_1; inline;
  13224. function getODCD10 : TBits_1; inline;
  13225. function getODCD11 : TBits_1; inline;
  13226. function getODCD12 : TBits_1; inline;
  13227. function getODCD13 : TBits_1; inline;
  13228. function getODCD14 : TBits_1; inline;
  13229. function getODCD15 : TBits_1; inline;
  13230. function getODCD2 : TBits_1; inline;
  13231. function getODCD3 : TBits_1; inline;
  13232. function getODCD4 : TBits_1; inline;
  13233. function getODCD5 : TBits_1; inline;
  13234. function getODCD6 : TBits_1; inline;
  13235. function getODCD7 : TBits_1; inline;
  13236. function getODCD8 : TBits_1; inline;
  13237. function getODCD9 : TBits_1; inline;
  13238. function getw : TBits_32; inline;
  13239. procedure setODCD0(thebits : TBits_1); inline;
  13240. procedure setODCD1(thebits : TBits_1); inline;
  13241. procedure setODCD10(thebits : TBits_1); inline;
  13242. procedure setODCD11(thebits : TBits_1); inline;
  13243. procedure setODCD12(thebits : TBits_1); inline;
  13244. procedure setODCD13(thebits : TBits_1); inline;
  13245. procedure setODCD14(thebits : TBits_1); inline;
  13246. procedure setODCD15(thebits : TBits_1); inline;
  13247. procedure setODCD2(thebits : TBits_1); inline;
  13248. procedure setODCD3(thebits : TBits_1); inline;
  13249. procedure setODCD4(thebits : TBits_1); inline;
  13250. procedure setODCD5(thebits : TBits_1); inline;
  13251. procedure setODCD6(thebits : TBits_1); inline;
  13252. procedure setODCD7(thebits : TBits_1); inline;
  13253. procedure setODCD8(thebits : TBits_1); inline;
  13254. procedure setODCD9(thebits : TBits_1); inline;
  13255. procedure setw(thebits : TBits_32); inline;
  13256. public
  13257. procedure clearODCD0; inline;
  13258. procedure clearODCD10; inline;
  13259. procedure clearODCD11; inline;
  13260. procedure clearODCD12; inline;
  13261. procedure clearODCD13; inline;
  13262. procedure clearODCD14; inline;
  13263. procedure clearODCD15; inline;
  13264. procedure clearODCD1; inline;
  13265. procedure clearODCD2; inline;
  13266. procedure clearODCD3; inline;
  13267. procedure clearODCD4; inline;
  13268. procedure clearODCD5; inline;
  13269. procedure clearODCD6; inline;
  13270. procedure clearODCD7; inline;
  13271. procedure clearODCD8; inline;
  13272. procedure clearODCD9; inline;
  13273. procedure setODCD0; inline;
  13274. procedure setODCD10; inline;
  13275. procedure setODCD11; inline;
  13276. procedure setODCD12; inline;
  13277. procedure setODCD13; inline;
  13278. procedure setODCD14; inline;
  13279. procedure setODCD15; inline;
  13280. procedure setODCD1; inline;
  13281. procedure setODCD2; inline;
  13282. procedure setODCD3; inline;
  13283. procedure setODCD4; inline;
  13284. procedure setODCD5; inline;
  13285. procedure setODCD6; inline;
  13286. procedure setODCD7; inline;
  13287. procedure setODCD8; inline;
  13288. procedure setODCD9; inline;
  13289. property ODCD0 : TBits_1 read getODCD0 write setODCD0;
  13290. property ODCD1 : TBits_1 read getODCD1 write setODCD1;
  13291. property ODCD10 : TBits_1 read getODCD10 write setODCD10;
  13292. property ODCD11 : TBits_1 read getODCD11 write setODCD11;
  13293. property ODCD12 : TBits_1 read getODCD12 write setODCD12;
  13294. property ODCD13 : TBits_1 read getODCD13 write setODCD13;
  13295. property ODCD14 : TBits_1 read getODCD14 write setODCD14;
  13296. property ODCD15 : TBits_1 read getODCD15 write setODCD15;
  13297. property ODCD2 : TBits_1 read getODCD2 write setODCD2;
  13298. property ODCD3 : TBits_1 read getODCD3 write setODCD3;
  13299. property ODCD4 : TBits_1 read getODCD4 write setODCD4;
  13300. property ODCD5 : TBits_1 read getODCD5 write setODCD5;
  13301. property ODCD6 : TBits_1 read getODCD6 write setODCD6;
  13302. property ODCD7 : TBits_1 read getODCD7 write setODCD7;
  13303. property ODCD8 : TBits_1 read getODCD8 write setODCD8;
  13304. property ODCD9 : TBits_1 read getODCD9 write setODCD9;
  13305. property w : TBits_32 read getw write setw;
  13306. end;
  13307. type
  13308. TPORTDRegisters = record
  13309. TRISDbits : TPORTD_TRISD;
  13310. TRISD : longWord;
  13311. TRISDCLR : longWord;
  13312. TRISDSET : longWord;
  13313. TRISDINV : longWord;
  13314. PORTDbits : TPORTD_PORTD;
  13315. PORTD : longWord;
  13316. PORTDCLR : longWord;
  13317. PORTDSET : longWord;
  13318. PORTDINV : longWord;
  13319. LATDbits : TPORTD_LATD;
  13320. LATD : longWord;
  13321. LATDCLR : longWord;
  13322. LATDSET : longWord;
  13323. LATDINV : longWord;
  13324. ODCDbits : TPORTD_ODCD;
  13325. ODCD : longWord;
  13326. ODCDCLR : longWord;
  13327. ODCDSET : longWord;
  13328. ODCDINV : longWord;
  13329. end;
  13330. TPORTE_TRISE = record
  13331. private
  13332. function getTRISE0 : TBits_1; inline;
  13333. function getTRISE1 : TBits_1; inline;
  13334. function getTRISE2 : TBits_1; inline;
  13335. function getTRISE3 : TBits_1; inline;
  13336. function getTRISE4 : TBits_1; inline;
  13337. function getTRISE5 : TBits_1; inline;
  13338. function getTRISE6 : TBits_1; inline;
  13339. function getTRISE7 : TBits_1; inline;
  13340. function getTRISE8 : TBits_1; inline;
  13341. function getTRISE9 : TBits_1; inline;
  13342. function getw : TBits_32; inline;
  13343. procedure setTRISE0(thebits : TBits_1); inline;
  13344. procedure setTRISE1(thebits : TBits_1); inline;
  13345. procedure setTRISE2(thebits : TBits_1); inline;
  13346. procedure setTRISE3(thebits : TBits_1); inline;
  13347. procedure setTRISE4(thebits : TBits_1); inline;
  13348. procedure setTRISE5(thebits : TBits_1); inline;
  13349. procedure setTRISE6(thebits : TBits_1); inline;
  13350. procedure setTRISE7(thebits : TBits_1); inline;
  13351. procedure setTRISE8(thebits : TBits_1); inline;
  13352. procedure setTRISE9(thebits : TBits_1); inline;
  13353. procedure setw(thebits : TBits_32); inline;
  13354. public
  13355. procedure clearTRISE0; inline;
  13356. procedure clearTRISE1; inline;
  13357. procedure clearTRISE2; inline;
  13358. procedure clearTRISE3; inline;
  13359. procedure clearTRISE4; inline;
  13360. procedure clearTRISE5; inline;
  13361. procedure clearTRISE6; inline;
  13362. procedure clearTRISE7; inline;
  13363. procedure clearTRISE8; inline;
  13364. procedure clearTRISE9; inline;
  13365. procedure setTRISE0; inline;
  13366. procedure setTRISE1; inline;
  13367. procedure setTRISE2; inline;
  13368. procedure setTRISE3; inline;
  13369. procedure setTRISE4; inline;
  13370. procedure setTRISE5; inline;
  13371. procedure setTRISE6; inline;
  13372. procedure setTRISE7; inline;
  13373. procedure setTRISE8; inline;
  13374. procedure setTRISE9; inline;
  13375. property TRISE0 : TBits_1 read getTRISE0 write setTRISE0;
  13376. property TRISE1 : TBits_1 read getTRISE1 write setTRISE1;
  13377. property TRISE2 : TBits_1 read getTRISE2 write setTRISE2;
  13378. property TRISE3 : TBits_1 read getTRISE3 write setTRISE3;
  13379. property TRISE4 : TBits_1 read getTRISE4 write setTRISE4;
  13380. property TRISE5 : TBits_1 read getTRISE5 write setTRISE5;
  13381. property TRISE6 : TBits_1 read getTRISE6 write setTRISE6;
  13382. property TRISE7 : TBits_1 read getTRISE7 write setTRISE7;
  13383. property TRISE8 : TBits_1 read getTRISE8 write setTRISE8;
  13384. property TRISE9 : TBits_1 read getTRISE9 write setTRISE9;
  13385. property w : TBits_32 read getw write setw;
  13386. end;
  13387. TPORTE_PORTE = record
  13388. private
  13389. function getRE0 : TBits_1; inline;
  13390. function getRE1 : TBits_1; inline;
  13391. function getRE2 : TBits_1; inline;
  13392. function getRE3 : TBits_1; inline;
  13393. function getRE4 : TBits_1; inline;
  13394. function getRE5 : TBits_1; inline;
  13395. function getRE6 : TBits_1; inline;
  13396. function getRE7 : TBits_1; inline;
  13397. function getRE8 : TBits_1; inline;
  13398. function getRE9 : TBits_1; inline;
  13399. function getw : TBits_32; inline;
  13400. procedure setRE0(thebits : TBits_1); inline;
  13401. procedure setRE1(thebits : TBits_1); inline;
  13402. procedure setRE2(thebits : TBits_1); inline;
  13403. procedure setRE3(thebits : TBits_1); inline;
  13404. procedure setRE4(thebits : TBits_1); inline;
  13405. procedure setRE5(thebits : TBits_1); inline;
  13406. procedure setRE6(thebits : TBits_1); inline;
  13407. procedure setRE7(thebits : TBits_1); inline;
  13408. procedure setRE8(thebits : TBits_1); inline;
  13409. procedure setRE9(thebits : TBits_1); inline;
  13410. procedure setw(thebits : TBits_32); inline;
  13411. public
  13412. procedure clearRE0; inline;
  13413. procedure clearRE1; inline;
  13414. procedure clearRE2; inline;
  13415. procedure clearRE3; inline;
  13416. procedure clearRE4; inline;
  13417. procedure clearRE5; inline;
  13418. procedure clearRE6; inline;
  13419. procedure clearRE7; inline;
  13420. procedure clearRE8; inline;
  13421. procedure clearRE9; inline;
  13422. procedure setRE0; inline;
  13423. procedure setRE1; inline;
  13424. procedure setRE2; inline;
  13425. procedure setRE3; inline;
  13426. procedure setRE4; inline;
  13427. procedure setRE5; inline;
  13428. procedure setRE6; inline;
  13429. procedure setRE7; inline;
  13430. procedure setRE8; inline;
  13431. procedure setRE9; inline;
  13432. property RE0 : TBits_1 read getRE0 write setRE0;
  13433. property RE1 : TBits_1 read getRE1 write setRE1;
  13434. property RE2 : TBits_1 read getRE2 write setRE2;
  13435. property RE3 : TBits_1 read getRE3 write setRE3;
  13436. property RE4 : TBits_1 read getRE4 write setRE4;
  13437. property RE5 : TBits_1 read getRE5 write setRE5;
  13438. property RE6 : TBits_1 read getRE6 write setRE6;
  13439. property RE7 : TBits_1 read getRE7 write setRE7;
  13440. property RE8 : TBits_1 read getRE8 write setRE8;
  13441. property RE9 : TBits_1 read getRE9 write setRE9;
  13442. property w : TBits_32 read getw write setw;
  13443. end;
  13444. TPortE_bits=(RE0=0,RE1=1,RE2=2,RE3=3,RE4=4,RE5=5,RE6=6,RE7=7,RE8=8,RE9=9);
  13445. TPortE_bitset = set of TPortE_bits;
  13446. TPORTE_LATE = record
  13447. private
  13448. function getLATE0 : TBits_1; inline;
  13449. function getLATE1 : TBits_1; inline;
  13450. function getLATE2 : TBits_1; inline;
  13451. function getLATE3 : TBits_1; inline;
  13452. function getLATE4 : TBits_1; inline;
  13453. function getLATE5 : TBits_1; inline;
  13454. function getLATE6 : TBits_1; inline;
  13455. function getLATE7 : TBits_1; inline;
  13456. function getLATE8 : TBits_1; inline;
  13457. function getLATE9 : TBits_1; inline;
  13458. function getw : TBits_32; inline;
  13459. procedure setLATE0(thebits : TBits_1); inline;
  13460. procedure setLATE1(thebits : TBits_1); inline;
  13461. procedure setLATE2(thebits : TBits_1); inline;
  13462. procedure setLATE3(thebits : TBits_1); inline;
  13463. procedure setLATE4(thebits : TBits_1); inline;
  13464. procedure setLATE5(thebits : TBits_1); inline;
  13465. procedure setLATE6(thebits : TBits_1); inline;
  13466. procedure setLATE7(thebits : TBits_1); inline;
  13467. procedure setLATE8(thebits : TBits_1); inline;
  13468. procedure setLATE9(thebits : TBits_1); inline;
  13469. procedure setw(thebits : TBits_32); inline;
  13470. public
  13471. procedure clearLATE0; inline;
  13472. procedure clearLATE1; inline;
  13473. procedure clearLATE2; inline;
  13474. procedure clearLATE3; inline;
  13475. procedure clearLATE4; inline;
  13476. procedure clearLATE5; inline;
  13477. procedure clearLATE6; inline;
  13478. procedure clearLATE7; inline;
  13479. procedure clearLATE8; inline;
  13480. procedure clearLATE9; inline;
  13481. procedure setLATE0; inline;
  13482. procedure setLATE1; inline;
  13483. procedure setLATE2; inline;
  13484. procedure setLATE3; inline;
  13485. procedure setLATE4; inline;
  13486. procedure setLATE5; inline;
  13487. procedure setLATE6; inline;
  13488. procedure setLATE7; inline;
  13489. procedure setLATE8; inline;
  13490. procedure setLATE9; inline;
  13491. property LATE0 : TBits_1 read getLATE0 write setLATE0;
  13492. property LATE1 : TBits_1 read getLATE1 write setLATE1;
  13493. property LATE2 : TBits_1 read getLATE2 write setLATE2;
  13494. property LATE3 : TBits_1 read getLATE3 write setLATE3;
  13495. property LATE4 : TBits_1 read getLATE4 write setLATE4;
  13496. property LATE5 : TBits_1 read getLATE5 write setLATE5;
  13497. property LATE6 : TBits_1 read getLATE6 write setLATE6;
  13498. property LATE7 : TBits_1 read getLATE7 write setLATE7;
  13499. property LATE8 : TBits_1 read getLATE8 write setLATE8;
  13500. property LATE9 : TBits_1 read getLATE9 write setLATE9;
  13501. property w : TBits_32 read getw write setw;
  13502. end;
  13503. TPORTE_ODCE = record
  13504. private
  13505. function getODCE0 : TBits_1; inline;
  13506. function getODCE1 : TBits_1; inline;
  13507. function getODCE2 : TBits_1; inline;
  13508. function getODCE3 : TBits_1; inline;
  13509. function getODCE4 : TBits_1; inline;
  13510. function getODCE5 : TBits_1; inline;
  13511. function getODCE6 : TBits_1; inline;
  13512. function getODCE7 : TBits_1; inline;
  13513. function getODCE8 : TBits_1; inline;
  13514. function getODCE9 : TBits_1; inline;
  13515. function getw : TBits_32; inline;
  13516. procedure setODCE0(thebits : TBits_1); inline;
  13517. procedure setODCE1(thebits : TBits_1); inline;
  13518. procedure setODCE2(thebits : TBits_1); inline;
  13519. procedure setODCE3(thebits : TBits_1); inline;
  13520. procedure setODCE4(thebits : TBits_1); inline;
  13521. procedure setODCE5(thebits : TBits_1); inline;
  13522. procedure setODCE6(thebits : TBits_1); inline;
  13523. procedure setODCE7(thebits : TBits_1); inline;
  13524. procedure setODCE8(thebits : TBits_1); inline;
  13525. procedure setODCE9(thebits : TBits_1); inline;
  13526. procedure setw(thebits : TBits_32); inline;
  13527. public
  13528. procedure clearODCE0; inline;
  13529. procedure clearODCE1; inline;
  13530. procedure clearODCE2; inline;
  13531. procedure clearODCE3; inline;
  13532. procedure clearODCE4; inline;
  13533. procedure clearODCE5; inline;
  13534. procedure clearODCE6; inline;
  13535. procedure clearODCE7; inline;
  13536. procedure clearODCE8; inline;
  13537. procedure clearODCE9; inline;
  13538. procedure setODCE0; inline;
  13539. procedure setODCE1; inline;
  13540. procedure setODCE2; inline;
  13541. procedure setODCE3; inline;
  13542. procedure setODCE4; inline;
  13543. procedure setODCE5; inline;
  13544. procedure setODCE6; inline;
  13545. procedure setODCE7; inline;
  13546. procedure setODCE8; inline;
  13547. procedure setODCE9; inline;
  13548. property ODCE0 : TBits_1 read getODCE0 write setODCE0;
  13549. property ODCE1 : TBits_1 read getODCE1 write setODCE1;
  13550. property ODCE2 : TBits_1 read getODCE2 write setODCE2;
  13551. property ODCE3 : TBits_1 read getODCE3 write setODCE3;
  13552. property ODCE4 : TBits_1 read getODCE4 write setODCE4;
  13553. property ODCE5 : TBits_1 read getODCE5 write setODCE5;
  13554. property ODCE6 : TBits_1 read getODCE6 write setODCE6;
  13555. property ODCE7 : TBits_1 read getODCE7 write setODCE7;
  13556. property ODCE8 : TBits_1 read getODCE8 write setODCE8;
  13557. property ODCE9 : TBits_1 read getODCE9 write setODCE9;
  13558. property w : TBits_32 read getw write setw;
  13559. end;
  13560. type
  13561. TPORTERegisters = record
  13562. TRISEbits : TPORTE_TRISE;
  13563. TRISE : longWord;
  13564. TRISECLR : longWord;
  13565. TRISESET : longWord;
  13566. TRISEINV : longWord;
  13567. PORTEbits : TPORTE_PORTE;
  13568. PORTE : longWord;
  13569. PORTECLR : longWord;
  13570. PORTESET : longWord;
  13571. PORTEINV : longWord;
  13572. LATEbits : TPORTE_LATE;
  13573. LATE : longWord;
  13574. LATECLR : longWord;
  13575. LATESET : longWord;
  13576. LATEINV : longWord;
  13577. ODCEbits : TPORTE_ODCE;
  13578. ODCE : longWord;
  13579. ODCECLR : longWord;
  13580. ODCESET : longWord;
  13581. ODCEINV : longWord;
  13582. end;
  13583. TPORTF_TRISF = record
  13584. private
  13585. function getTRISF0 : TBits_1; inline;
  13586. function getTRISF1 : TBits_1; inline;
  13587. function getTRISF12 : TBits_1; inline;
  13588. function getTRISF13 : TBits_1; inline;
  13589. function getTRISF2 : TBits_1; inline;
  13590. function getTRISF3 : TBits_1; inline;
  13591. function getTRISF4 : TBits_1; inline;
  13592. function getTRISF5 : TBits_1; inline;
  13593. function getTRISF8 : TBits_1; inline;
  13594. function getw : TBits_32; inline;
  13595. procedure setTRISF0(thebits : TBits_1); inline;
  13596. procedure setTRISF1(thebits : TBits_1); inline;
  13597. procedure setTRISF12(thebits : TBits_1); inline;
  13598. procedure setTRISF13(thebits : TBits_1); inline;
  13599. procedure setTRISF2(thebits : TBits_1); inline;
  13600. procedure setTRISF3(thebits : TBits_1); inline;
  13601. procedure setTRISF4(thebits : TBits_1); inline;
  13602. procedure setTRISF5(thebits : TBits_1); inline;
  13603. procedure setTRISF8(thebits : TBits_1); inline;
  13604. procedure setw(thebits : TBits_32); inline;
  13605. public
  13606. procedure clearTRISF0; inline;
  13607. procedure clearTRISF12; inline;
  13608. procedure clearTRISF13; inline;
  13609. procedure clearTRISF1; inline;
  13610. procedure clearTRISF2; inline;
  13611. procedure clearTRISF3; inline;
  13612. procedure clearTRISF4; inline;
  13613. procedure clearTRISF5; inline;
  13614. procedure clearTRISF8; inline;
  13615. procedure setTRISF0; inline;
  13616. procedure setTRISF12; inline;
  13617. procedure setTRISF13; inline;
  13618. procedure setTRISF1; inline;
  13619. procedure setTRISF2; inline;
  13620. procedure setTRISF3; inline;
  13621. procedure setTRISF4; inline;
  13622. procedure setTRISF5; inline;
  13623. procedure setTRISF8; inline;
  13624. property TRISF0 : TBits_1 read getTRISF0 write setTRISF0;
  13625. property TRISF1 : TBits_1 read getTRISF1 write setTRISF1;
  13626. property TRISF12 : TBits_1 read getTRISF12 write setTRISF12;
  13627. property TRISF13 : TBits_1 read getTRISF13 write setTRISF13;
  13628. property TRISF2 : TBits_1 read getTRISF2 write setTRISF2;
  13629. property TRISF3 : TBits_1 read getTRISF3 write setTRISF3;
  13630. property TRISF4 : TBits_1 read getTRISF4 write setTRISF4;
  13631. property TRISF5 : TBits_1 read getTRISF5 write setTRISF5;
  13632. property TRISF8 : TBits_1 read getTRISF8 write setTRISF8;
  13633. property w : TBits_32 read getw write setw;
  13634. end;
  13635. TPORTF_PORTF = record
  13636. private
  13637. function getRF0 : TBits_1; inline;
  13638. function getRF1 : TBits_1; inline;
  13639. function getRF12 : TBits_1; inline;
  13640. function getRF13 : TBits_1; inline;
  13641. function getRF2 : TBits_1; inline;
  13642. function getRF3 : TBits_1; inline;
  13643. function getRF4 : TBits_1; inline;
  13644. function getRF5 : TBits_1; inline;
  13645. function getRF8 : TBits_1; inline;
  13646. function getw : TBits_32; inline;
  13647. procedure setRF0(thebits : TBits_1); inline;
  13648. procedure setRF1(thebits : TBits_1); inline;
  13649. procedure setRF12(thebits : TBits_1); inline;
  13650. procedure setRF13(thebits : TBits_1); inline;
  13651. procedure setRF2(thebits : TBits_1); inline;
  13652. procedure setRF3(thebits : TBits_1); inline;
  13653. procedure setRF4(thebits : TBits_1); inline;
  13654. procedure setRF5(thebits : TBits_1); inline;
  13655. procedure setRF8(thebits : TBits_1); inline;
  13656. procedure setw(thebits : TBits_32); inline;
  13657. public
  13658. procedure clearRF0; inline;
  13659. procedure clearRF12; inline;
  13660. procedure clearRF13; inline;
  13661. procedure clearRF1; inline;
  13662. procedure clearRF2; inline;
  13663. procedure clearRF3; inline;
  13664. procedure clearRF4; inline;
  13665. procedure clearRF5; inline;
  13666. procedure clearRF8; inline;
  13667. procedure setRF0; inline;
  13668. procedure setRF12; inline;
  13669. procedure setRF13; inline;
  13670. procedure setRF1; inline;
  13671. procedure setRF2; inline;
  13672. procedure setRF3; inline;
  13673. procedure setRF4; inline;
  13674. procedure setRF5; inline;
  13675. procedure setRF8; inline;
  13676. property RF0 : TBits_1 read getRF0 write setRF0;
  13677. property RF1 : TBits_1 read getRF1 write setRF1;
  13678. property RF12 : TBits_1 read getRF12 write setRF12;
  13679. property RF13 : TBits_1 read getRF13 write setRF13;
  13680. property RF2 : TBits_1 read getRF2 write setRF2;
  13681. property RF3 : TBits_1 read getRF3 write setRF3;
  13682. property RF4 : TBits_1 read getRF4 write setRF4;
  13683. property RF5 : TBits_1 read getRF5 write setRF5;
  13684. property RF8 : TBits_1 read getRF8 write setRF8;
  13685. property w : TBits_32 read getw write setw;
  13686. end;
  13687. TPortF_bits=(RF0=0,RF1=1,RF2=2,RF3=3,RF4=4,RF5=5,RF8=8,RF12=12,RF13=13);
  13688. TPortF_bitset = set of TPortF_bits;
  13689. TPORTF_LATF = record
  13690. private
  13691. function getLATF0 : TBits_1; inline;
  13692. function getLATF1 : TBits_1; inline;
  13693. function getLATF12 : TBits_1; inline;
  13694. function getLATF13 : TBits_1; inline;
  13695. function getLATF2 : TBits_1; inline;
  13696. function getLATF3 : TBits_1; inline;
  13697. function getLATF4 : TBits_1; inline;
  13698. function getLATF5 : TBits_1; inline;
  13699. function getLATF8 : TBits_1; inline;
  13700. function getw : TBits_32; inline;
  13701. procedure setLATF0(thebits : TBits_1); inline;
  13702. procedure setLATF1(thebits : TBits_1); inline;
  13703. procedure setLATF12(thebits : TBits_1); inline;
  13704. procedure setLATF13(thebits : TBits_1); inline;
  13705. procedure setLATF2(thebits : TBits_1); inline;
  13706. procedure setLATF3(thebits : TBits_1); inline;
  13707. procedure setLATF4(thebits : TBits_1); inline;
  13708. procedure setLATF5(thebits : TBits_1); inline;
  13709. procedure setLATF8(thebits : TBits_1); inline;
  13710. procedure setw(thebits : TBits_32); inline;
  13711. public
  13712. procedure clearLATF0; inline;
  13713. procedure clearLATF12; inline;
  13714. procedure clearLATF13; inline;
  13715. procedure clearLATF1; inline;
  13716. procedure clearLATF2; inline;
  13717. procedure clearLATF3; inline;
  13718. procedure clearLATF4; inline;
  13719. procedure clearLATF5; inline;
  13720. procedure clearLATF8; inline;
  13721. procedure setLATF0; inline;
  13722. procedure setLATF12; inline;
  13723. procedure setLATF13; inline;
  13724. procedure setLATF1; inline;
  13725. procedure setLATF2; inline;
  13726. procedure setLATF3; inline;
  13727. procedure setLATF4; inline;
  13728. procedure setLATF5; inline;
  13729. procedure setLATF8; inline;
  13730. property LATF0 : TBits_1 read getLATF0 write setLATF0;
  13731. property LATF1 : TBits_1 read getLATF1 write setLATF1;
  13732. property LATF12 : TBits_1 read getLATF12 write setLATF12;
  13733. property LATF13 : TBits_1 read getLATF13 write setLATF13;
  13734. property LATF2 : TBits_1 read getLATF2 write setLATF2;
  13735. property LATF3 : TBits_1 read getLATF3 write setLATF3;
  13736. property LATF4 : TBits_1 read getLATF4 write setLATF4;
  13737. property LATF5 : TBits_1 read getLATF5 write setLATF5;
  13738. property LATF8 : TBits_1 read getLATF8 write setLATF8;
  13739. property w : TBits_32 read getw write setw;
  13740. end;
  13741. TPORTF_ODCF = record
  13742. private
  13743. function getODCF0 : TBits_1; inline;
  13744. function getODCF1 : TBits_1; inline;
  13745. function getODCF12 : TBits_1; inline;
  13746. function getODCF13 : TBits_1; inline;
  13747. function getODCF2 : TBits_1; inline;
  13748. function getODCF3 : TBits_1; inline;
  13749. function getODCF4 : TBits_1; inline;
  13750. function getODCF5 : TBits_1; inline;
  13751. function getODCF8 : TBits_1; inline;
  13752. function getw : TBits_32; inline;
  13753. procedure setODCF0(thebits : TBits_1); inline;
  13754. procedure setODCF1(thebits : TBits_1); inline;
  13755. procedure setODCF12(thebits : TBits_1); inline;
  13756. procedure setODCF13(thebits : TBits_1); inline;
  13757. procedure setODCF2(thebits : TBits_1); inline;
  13758. procedure setODCF3(thebits : TBits_1); inline;
  13759. procedure setODCF4(thebits : TBits_1); inline;
  13760. procedure setODCF5(thebits : TBits_1); inline;
  13761. procedure setODCF8(thebits : TBits_1); inline;
  13762. procedure setw(thebits : TBits_32); inline;
  13763. public
  13764. procedure clearODCF0; inline;
  13765. procedure clearODCF12; inline;
  13766. procedure clearODCF13; inline;
  13767. procedure clearODCF1; inline;
  13768. procedure clearODCF2; inline;
  13769. procedure clearODCF3; inline;
  13770. procedure clearODCF4; inline;
  13771. procedure clearODCF5; inline;
  13772. procedure clearODCF8; inline;
  13773. procedure setODCF0; inline;
  13774. procedure setODCF12; inline;
  13775. procedure setODCF13; inline;
  13776. procedure setODCF1; inline;
  13777. procedure setODCF2; inline;
  13778. procedure setODCF3; inline;
  13779. procedure setODCF4; inline;
  13780. procedure setODCF5; inline;
  13781. procedure setODCF8; inline;
  13782. property ODCF0 : TBits_1 read getODCF0 write setODCF0;
  13783. property ODCF1 : TBits_1 read getODCF1 write setODCF1;
  13784. property ODCF12 : TBits_1 read getODCF12 write setODCF12;
  13785. property ODCF13 : TBits_1 read getODCF13 write setODCF13;
  13786. property ODCF2 : TBits_1 read getODCF2 write setODCF2;
  13787. property ODCF3 : TBits_1 read getODCF3 write setODCF3;
  13788. property ODCF4 : TBits_1 read getODCF4 write setODCF4;
  13789. property ODCF5 : TBits_1 read getODCF5 write setODCF5;
  13790. property ODCF8 : TBits_1 read getODCF8 write setODCF8;
  13791. property w : TBits_32 read getw write setw;
  13792. end;
  13793. type
  13794. TPORTFRegisters = record
  13795. TRISFbits : TPORTF_TRISF;
  13796. TRISF : longWord;
  13797. TRISFCLR : longWord;
  13798. TRISFSET : longWord;
  13799. TRISFINV : longWord;
  13800. PORTFbits : TPORTF_PORTF;
  13801. PORTF : longWord;
  13802. PORTFCLR : longWord;
  13803. PORTFSET : longWord;
  13804. PORTFINV : longWord;
  13805. LATFbits : TPORTF_LATF;
  13806. LATF : longWord;
  13807. LATFCLR : longWord;
  13808. LATFSET : longWord;
  13809. LATFINV : longWord;
  13810. ODCFbits : TPORTF_ODCF;
  13811. ODCF : longWord;
  13812. ODCFCLR : longWord;
  13813. ODCFSET : longWord;
  13814. ODCFINV : longWord;
  13815. end;
  13816. TPORTG_TRISG = record
  13817. private
  13818. function getTRISG0 : TBits_1; inline;
  13819. function getTRISG1 : TBits_1; inline;
  13820. function getTRISG12 : TBits_1; inline;
  13821. function getTRISG13 : TBits_1; inline;
  13822. function getTRISG14 : TBits_1; inline;
  13823. function getTRISG15 : TBits_1; inline;
  13824. function getTRISG2 : TBits_1; inline;
  13825. function getTRISG3 : TBits_1; inline;
  13826. function getTRISG6 : TBits_1; inline;
  13827. function getTRISG7 : TBits_1; inline;
  13828. function getTRISG8 : TBits_1; inline;
  13829. function getTRISG9 : TBits_1; inline;
  13830. function getw : TBits_32; inline;
  13831. procedure setTRISG0(thebits : TBits_1); inline;
  13832. procedure setTRISG1(thebits : TBits_1); inline;
  13833. procedure setTRISG12(thebits : TBits_1); inline;
  13834. procedure setTRISG13(thebits : TBits_1); inline;
  13835. procedure setTRISG14(thebits : TBits_1); inline;
  13836. procedure setTRISG15(thebits : TBits_1); inline;
  13837. procedure setTRISG2(thebits : TBits_1); inline;
  13838. procedure setTRISG3(thebits : TBits_1); inline;
  13839. procedure setTRISG6(thebits : TBits_1); inline;
  13840. procedure setTRISG7(thebits : TBits_1); inline;
  13841. procedure setTRISG8(thebits : TBits_1); inline;
  13842. procedure setTRISG9(thebits : TBits_1); inline;
  13843. procedure setw(thebits : TBits_32); inline;
  13844. public
  13845. procedure clearTRISG0; inline;
  13846. procedure clearTRISG12; inline;
  13847. procedure clearTRISG13; inline;
  13848. procedure clearTRISG14; inline;
  13849. procedure clearTRISG15; inline;
  13850. procedure clearTRISG1; inline;
  13851. procedure clearTRISG2; inline;
  13852. procedure clearTRISG3; inline;
  13853. procedure clearTRISG6; inline;
  13854. procedure clearTRISG7; inline;
  13855. procedure clearTRISG8; inline;
  13856. procedure clearTRISG9; inline;
  13857. procedure setTRISG0; inline;
  13858. procedure setTRISG12; inline;
  13859. procedure setTRISG13; inline;
  13860. procedure setTRISG14; inline;
  13861. procedure setTRISG15; inline;
  13862. procedure setTRISG1; inline;
  13863. procedure setTRISG2; inline;
  13864. procedure setTRISG3; inline;
  13865. procedure setTRISG6; inline;
  13866. procedure setTRISG7; inline;
  13867. procedure setTRISG8; inline;
  13868. procedure setTRISG9; inline;
  13869. property TRISG0 : TBits_1 read getTRISG0 write setTRISG0;
  13870. property TRISG1 : TBits_1 read getTRISG1 write setTRISG1;
  13871. property TRISG12 : TBits_1 read getTRISG12 write setTRISG12;
  13872. property TRISG13 : TBits_1 read getTRISG13 write setTRISG13;
  13873. property TRISG14 : TBits_1 read getTRISG14 write setTRISG14;
  13874. property TRISG15 : TBits_1 read getTRISG15 write setTRISG15;
  13875. property TRISG2 : TBits_1 read getTRISG2 write setTRISG2;
  13876. property TRISG3 : TBits_1 read getTRISG3 write setTRISG3;
  13877. property TRISG6 : TBits_1 read getTRISG6 write setTRISG6;
  13878. property TRISG7 : TBits_1 read getTRISG7 write setTRISG7;
  13879. property TRISG8 : TBits_1 read getTRISG8 write setTRISG8;
  13880. property TRISG9 : TBits_1 read getTRISG9 write setTRISG9;
  13881. property w : TBits_32 read getw write setw;
  13882. end;
  13883. TPORTG_PORTG = record
  13884. private
  13885. function getRG0 : TBits_1; inline;
  13886. function getRG1 : TBits_1; inline;
  13887. function getRG12 : TBits_1; inline;
  13888. function getRG13 : TBits_1; inline;
  13889. function getRG14 : TBits_1; inline;
  13890. function getRG15 : TBits_1; inline;
  13891. function getRG2 : TBits_1; inline;
  13892. function getRG3 : TBits_1; inline;
  13893. function getRG6 : TBits_1; inline;
  13894. function getRG7 : TBits_1; inline;
  13895. function getRG8 : TBits_1; inline;
  13896. function getRG9 : TBits_1; inline;
  13897. function getw : TBits_32; inline;
  13898. procedure setRG0(thebits : TBits_1); inline;
  13899. procedure setRG1(thebits : TBits_1); inline;
  13900. procedure setRG12(thebits : TBits_1); inline;
  13901. procedure setRG13(thebits : TBits_1); inline;
  13902. procedure setRG14(thebits : TBits_1); inline;
  13903. procedure setRG15(thebits : TBits_1); inline;
  13904. procedure setRG2(thebits : TBits_1); inline;
  13905. procedure setRG3(thebits : TBits_1); inline;
  13906. procedure setRG6(thebits : TBits_1); inline;
  13907. procedure setRG7(thebits : TBits_1); inline;
  13908. procedure setRG8(thebits : TBits_1); inline;
  13909. procedure setRG9(thebits : TBits_1); inline;
  13910. procedure setw(thebits : TBits_32); inline;
  13911. public
  13912. procedure clearRG0; inline;
  13913. procedure clearRG12; inline;
  13914. procedure clearRG13; inline;
  13915. procedure clearRG14; inline;
  13916. procedure clearRG15; inline;
  13917. procedure clearRG1; inline;
  13918. procedure clearRG2; inline;
  13919. procedure clearRG3; inline;
  13920. procedure clearRG6; inline;
  13921. procedure clearRG7; inline;
  13922. procedure clearRG8; inline;
  13923. procedure clearRG9; inline;
  13924. procedure setRG0; inline;
  13925. procedure setRG12; inline;
  13926. procedure setRG13; inline;
  13927. procedure setRG14; inline;
  13928. procedure setRG15; inline;
  13929. procedure setRG1; inline;
  13930. procedure setRG2; inline;
  13931. procedure setRG3; inline;
  13932. procedure setRG6; inline;
  13933. procedure setRG7; inline;
  13934. procedure setRG8; inline;
  13935. procedure setRG9; inline;
  13936. property RG0 : TBits_1 read getRG0 write setRG0;
  13937. property RG1 : TBits_1 read getRG1 write setRG1;
  13938. property RG12 : TBits_1 read getRG12 write setRG12;
  13939. property RG13 : TBits_1 read getRG13 write setRG13;
  13940. property RG14 : TBits_1 read getRG14 write setRG14;
  13941. property RG15 : TBits_1 read getRG15 write setRG15;
  13942. property RG2 : TBits_1 read getRG2 write setRG2;
  13943. property RG3 : TBits_1 read getRG3 write setRG3;
  13944. property RG6 : TBits_1 read getRG6 write setRG6;
  13945. property RG7 : TBits_1 read getRG7 write setRG7;
  13946. property RG8 : TBits_1 read getRG8 write setRG8;
  13947. property RG9 : TBits_1 read getRG9 write setRG9;
  13948. property w : TBits_32 read getw write setw;
  13949. end;
  13950. 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);
  13951. TPortG_bitset = set of TPortG_bits;
  13952. TPORTG_LATG = record
  13953. private
  13954. function getLATG0 : TBits_1; inline;
  13955. function getLATG1 : TBits_1; inline;
  13956. function getLATG12 : TBits_1; inline;
  13957. function getLATG13 : TBits_1; inline;
  13958. function getLATG14 : TBits_1; inline;
  13959. function getLATG15 : TBits_1; inline;
  13960. function getLATG2 : TBits_1; inline;
  13961. function getLATG3 : TBits_1; inline;
  13962. function getLATG6 : TBits_1; inline;
  13963. function getLATG7 : TBits_1; inline;
  13964. function getLATG8 : TBits_1; inline;
  13965. function getLATG9 : TBits_1; inline;
  13966. function getw : TBits_32; inline;
  13967. procedure setLATG0(thebits : TBits_1); inline;
  13968. procedure setLATG1(thebits : TBits_1); inline;
  13969. procedure setLATG12(thebits : TBits_1); inline;
  13970. procedure setLATG13(thebits : TBits_1); inline;
  13971. procedure setLATG14(thebits : TBits_1); inline;
  13972. procedure setLATG15(thebits : TBits_1); inline;
  13973. procedure setLATG2(thebits : TBits_1); inline;
  13974. procedure setLATG3(thebits : TBits_1); inline;
  13975. procedure setLATG6(thebits : TBits_1); inline;
  13976. procedure setLATG7(thebits : TBits_1); inline;
  13977. procedure setLATG8(thebits : TBits_1); inline;
  13978. procedure setLATG9(thebits : TBits_1); inline;
  13979. procedure setw(thebits : TBits_32); inline;
  13980. public
  13981. procedure clearLATG0; inline;
  13982. procedure clearLATG12; inline;
  13983. procedure clearLATG13; inline;
  13984. procedure clearLATG14; inline;
  13985. procedure clearLATG15; inline;
  13986. procedure clearLATG1; inline;
  13987. procedure clearLATG2; inline;
  13988. procedure clearLATG3; inline;
  13989. procedure clearLATG6; inline;
  13990. procedure clearLATG7; inline;
  13991. procedure clearLATG8; inline;
  13992. procedure clearLATG9; inline;
  13993. procedure setLATG0; inline;
  13994. procedure setLATG12; inline;
  13995. procedure setLATG13; inline;
  13996. procedure setLATG14; inline;
  13997. procedure setLATG15; inline;
  13998. procedure setLATG1; inline;
  13999. procedure setLATG2; inline;
  14000. procedure setLATG3; inline;
  14001. procedure setLATG6; inline;
  14002. procedure setLATG7; inline;
  14003. procedure setLATG8; inline;
  14004. procedure setLATG9; inline;
  14005. property LATG0 : TBits_1 read getLATG0 write setLATG0;
  14006. property LATG1 : TBits_1 read getLATG1 write setLATG1;
  14007. property LATG12 : TBits_1 read getLATG12 write setLATG12;
  14008. property LATG13 : TBits_1 read getLATG13 write setLATG13;
  14009. property LATG14 : TBits_1 read getLATG14 write setLATG14;
  14010. property LATG15 : TBits_1 read getLATG15 write setLATG15;
  14011. property LATG2 : TBits_1 read getLATG2 write setLATG2;
  14012. property LATG3 : TBits_1 read getLATG3 write setLATG3;
  14013. property LATG6 : TBits_1 read getLATG6 write setLATG6;
  14014. property LATG7 : TBits_1 read getLATG7 write setLATG7;
  14015. property LATG8 : TBits_1 read getLATG8 write setLATG8;
  14016. property LATG9 : TBits_1 read getLATG9 write setLATG9;
  14017. property w : TBits_32 read getw write setw;
  14018. end;
  14019. TPORTG_ODCG = record
  14020. private
  14021. function getODCG0 : TBits_1; inline;
  14022. function getODCG1 : TBits_1; inline;
  14023. function getODCG12 : TBits_1; inline;
  14024. function getODCG13 : TBits_1; inline;
  14025. function getODCG14 : TBits_1; inline;
  14026. function getODCG15 : TBits_1; inline;
  14027. function getODCG2 : TBits_1; inline;
  14028. function getODCG3 : TBits_1; inline;
  14029. function getODCG6 : TBits_1; inline;
  14030. function getODCG7 : TBits_1; inline;
  14031. function getODCG8 : TBits_1; inline;
  14032. function getODCG9 : TBits_1; inline;
  14033. function getw : TBits_32; inline;
  14034. procedure setODCG0(thebits : TBits_1); inline;
  14035. procedure setODCG1(thebits : TBits_1); inline;
  14036. procedure setODCG12(thebits : TBits_1); inline;
  14037. procedure setODCG13(thebits : TBits_1); inline;
  14038. procedure setODCG14(thebits : TBits_1); inline;
  14039. procedure setODCG15(thebits : TBits_1); inline;
  14040. procedure setODCG2(thebits : TBits_1); inline;
  14041. procedure setODCG3(thebits : TBits_1); inline;
  14042. procedure setODCG6(thebits : TBits_1); inline;
  14043. procedure setODCG7(thebits : TBits_1); inline;
  14044. procedure setODCG8(thebits : TBits_1); inline;
  14045. procedure setODCG9(thebits : TBits_1); inline;
  14046. procedure setw(thebits : TBits_32); inline;
  14047. public
  14048. procedure clearODCG0; inline;
  14049. procedure clearODCG12; inline;
  14050. procedure clearODCG13; inline;
  14051. procedure clearODCG14; inline;
  14052. procedure clearODCG15; inline;
  14053. procedure clearODCG1; inline;
  14054. procedure clearODCG2; inline;
  14055. procedure clearODCG3; inline;
  14056. procedure clearODCG6; inline;
  14057. procedure clearODCG7; inline;
  14058. procedure clearODCG8; inline;
  14059. procedure clearODCG9; inline;
  14060. procedure setODCG0; inline;
  14061. procedure setODCG12; inline;
  14062. procedure setODCG13; inline;
  14063. procedure setODCG14; inline;
  14064. procedure setODCG15; inline;
  14065. procedure setODCG1; inline;
  14066. procedure setODCG2; inline;
  14067. procedure setODCG3; inline;
  14068. procedure setODCG6; inline;
  14069. procedure setODCG7; inline;
  14070. procedure setODCG8; inline;
  14071. procedure setODCG9; inline;
  14072. property ODCG0 : TBits_1 read getODCG0 write setODCG0;
  14073. property ODCG1 : TBits_1 read getODCG1 write setODCG1;
  14074. property ODCG12 : TBits_1 read getODCG12 write setODCG12;
  14075. property ODCG13 : TBits_1 read getODCG13 write setODCG13;
  14076. property ODCG14 : TBits_1 read getODCG14 write setODCG14;
  14077. property ODCG15 : TBits_1 read getODCG15 write setODCG15;
  14078. property ODCG2 : TBits_1 read getODCG2 write setODCG2;
  14079. property ODCG3 : TBits_1 read getODCG3 write setODCG3;
  14080. property ODCG6 : TBits_1 read getODCG6 write setODCG6;
  14081. property ODCG7 : TBits_1 read getODCG7 write setODCG7;
  14082. property ODCG8 : TBits_1 read getODCG8 write setODCG8;
  14083. property ODCG9 : TBits_1 read getODCG9 write setODCG9;
  14084. property w : TBits_32 read getw write setw;
  14085. end;
  14086. TPORTG_CNCON = record
  14087. private
  14088. function getON : TBits_1; inline;
  14089. function getSIDL : TBits_1; inline;
  14090. function getw : TBits_32; inline;
  14091. procedure setON(thebits : TBits_1); inline;
  14092. procedure setSIDL(thebits : TBits_1); inline;
  14093. procedure setw(thebits : TBits_32); inline;
  14094. public
  14095. procedure clearON; inline;
  14096. procedure clearSIDL; inline;
  14097. procedure setON; inline;
  14098. procedure setSIDL; inline;
  14099. property ON : TBits_1 read getON write setON;
  14100. property SIDL : TBits_1 read getSIDL write setSIDL;
  14101. property w : TBits_32 read getw write setw;
  14102. end;
  14103. TPORTG_CNEN = record
  14104. private
  14105. function getCNEN0 : TBits_1; inline;
  14106. function getCNEN1 : TBits_1; inline;
  14107. function getCNEN10 : TBits_1; inline;
  14108. function getCNEN11 : TBits_1; inline;
  14109. function getCNEN12 : TBits_1; inline;
  14110. function getCNEN13 : TBits_1; inline;
  14111. function getCNEN14 : TBits_1; inline;
  14112. function getCNEN15 : TBits_1; inline;
  14113. function getCNEN16 : TBits_1; inline;
  14114. function getCNEN17 : TBits_1; inline;
  14115. function getCNEN18 : TBits_1; inline;
  14116. function getCNEN19 : TBits_1; inline;
  14117. function getCNEN2 : TBits_1; inline;
  14118. function getCNEN20 : TBits_1; inline;
  14119. function getCNEN21 : TBits_1; inline;
  14120. function getCNEN3 : TBits_1; inline;
  14121. function getCNEN4 : TBits_1; inline;
  14122. function getCNEN5 : TBits_1; inline;
  14123. function getCNEN6 : TBits_1; inline;
  14124. function getCNEN7 : TBits_1; inline;
  14125. function getCNEN8 : TBits_1; inline;
  14126. function getCNEN9 : TBits_1; inline;
  14127. function getw : TBits_32; inline;
  14128. procedure setCNEN0(thebits : TBits_1); inline;
  14129. procedure setCNEN1(thebits : TBits_1); inline;
  14130. procedure setCNEN10(thebits : TBits_1); inline;
  14131. procedure setCNEN11(thebits : TBits_1); inline;
  14132. procedure setCNEN12(thebits : TBits_1); inline;
  14133. procedure setCNEN13(thebits : TBits_1); inline;
  14134. procedure setCNEN14(thebits : TBits_1); inline;
  14135. procedure setCNEN15(thebits : TBits_1); inline;
  14136. procedure setCNEN16(thebits : TBits_1); inline;
  14137. procedure setCNEN17(thebits : TBits_1); inline;
  14138. procedure setCNEN18(thebits : TBits_1); inline;
  14139. procedure setCNEN19(thebits : TBits_1); inline;
  14140. procedure setCNEN2(thebits : TBits_1); inline;
  14141. procedure setCNEN20(thebits : TBits_1); inline;
  14142. procedure setCNEN21(thebits : TBits_1); inline;
  14143. procedure setCNEN3(thebits : TBits_1); inline;
  14144. procedure setCNEN4(thebits : TBits_1); inline;
  14145. procedure setCNEN5(thebits : TBits_1); inline;
  14146. procedure setCNEN6(thebits : TBits_1); inline;
  14147. procedure setCNEN7(thebits : TBits_1); inline;
  14148. procedure setCNEN8(thebits : TBits_1); inline;
  14149. procedure setCNEN9(thebits : TBits_1); inline;
  14150. procedure setw(thebits : TBits_32); inline;
  14151. public
  14152. procedure clearCNEN0; inline;
  14153. procedure clearCNEN10; inline;
  14154. procedure clearCNEN11; inline;
  14155. procedure clearCNEN12; inline;
  14156. procedure clearCNEN13; inline;
  14157. procedure clearCNEN14; inline;
  14158. procedure clearCNEN15; inline;
  14159. procedure clearCNEN16; inline;
  14160. procedure clearCNEN17; inline;
  14161. procedure clearCNEN18; inline;
  14162. procedure clearCNEN19; inline;
  14163. procedure clearCNEN1; inline;
  14164. procedure clearCNEN20; inline;
  14165. procedure clearCNEN21; inline;
  14166. procedure clearCNEN2; inline;
  14167. procedure clearCNEN3; inline;
  14168. procedure clearCNEN4; inline;
  14169. procedure clearCNEN5; inline;
  14170. procedure clearCNEN6; inline;
  14171. procedure clearCNEN7; inline;
  14172. procedure clearCNEN8; inline;
  14173. procedure clearCNEN9; inline;
  14174. procedure setCNEN0; inline;
  14175. procedure setCNEN10; inline;
  14176. procedure setCNEN11; inline;
  14177. procedure setCNEN12; inline;
  14178. procedure setCNEN13; inline;
  14179. procedure setCNEN14; inline;
  14180. procedure setCNEN15; inline;
  14181. procedure setCNEN16; inline;
  14182. procedure setCNEN17; inline;
  14183. procedure setCNEN18; inline;
  14184. procedure setCNEN19; inline;
  14185. procedure setCNEN1; inline;
  14186. procedure setCNEN20; inline;
  14187. procedure setCNEN21; inline;
  14188. procedure setCNEN2; inline;
  14189. procedure setCNEN3; inline;
  14190. procedure setCNEN4; inline;
  14191. procedure setCNEN5; inline;
  14192. procedure setCNEN6; inline;
  14193. procedure setCNEN7; inline;
  14194. procedure setCNEN8; inline;
  14195. procedure setCNEN9; inline;
  14196. property CNEN0 : TBits_1 read getCNEN0 write setCNEN0;
  14197. property CNEN1 : TBits_1 read getCNEN1 write setCNEN1;
  14198. property CNEN10 : TBits_1 read getCNEN10 write setCNEN10;
  14199. property CNEN11 : TBits_1 read getCNEN11 write setCNEN11;
  14200. property CNEN12 : TBits_1 read getCNEN12 write setCNEN12;
  14201. property CNEN13 : TBits_1 read getCNEN13 write setCNEN13;
  14202. property CNEN14 : TBits_1 read getCNEN14 write setCNEN14;
  14203. property CNEN15 : TBits_1 read getCNEN15 write setCNEN15;
  14204. property CNEN16 : TBits_1 read getCNEN16 write setCNEN16;
  14205. property CNEN17 : TBits_1 read getCNEN17 write setCNEN17;
  14206. property CNEN18 : TBits_1 read getCNEN18 write setCNEN18;
  14207. property CNEN19 : TBits_1 read getCNEN19 write setCNEN19;
  14208. property CNEN2 : TBits_1 read getCNEN2 write setCNEN2;
  14209. property CNEN20 : TBits_1 read getCNEN20 write setCNEN20;
  14210. property CNEN21 : TBits_1 read getCNEN21 write setCNEN21;
  14211. property CNEN3 : TBits_1 read getCNEN3 write setCNEN3;
  14212. property CNEN4 : TBits_1 read getCNEN4 write setCNEN4;
  14213. property CNEN5 : TBits_1 read getCNEN5 write setCNEN5;
  14214. property CNEN6 : TBits_1 read getCNEN6 write setCNEN6;
  14215. property CNEN7 : TBits_1 read getCNEN7 write setCNEN7;
  14216. property CNEN8 : TBits_1 read getCNEN8 write setCNEN8;
  14217. property CNEN9 : TBits_1 read getCNEN9 write setCNEN9;
  14218. property w : TBits_32 read getw write setw;
  14219. end;
  14220. TPORTG_CNPUE = record
  14221. private
  14222. function getCNPUE0 : TBits_1; inline;
  14223. function getCNPUE1 : TBits_1; inline;
  14224. function getCNPUE10 : TBits_1; inline;
  14225. function getCNPUE11 : TBits_1; inline;
  14226. function getCNPUE12 : TBits_1; inline;
  14227. function getCNPUE13 : TBits_1; inline;
  14228. function getCNPUE14 : TBits_1; inline;
  14229. function getCNPUE15 : TBits_1; inline;
  14230. function getCNPUE16 : TBits_1; inline;
  14231. function getCNPUE17 : TBits_1; inline;
  14232. function getCNPUE18 : TBits_1; inline;
  14233. function getCNPUE19 : TBits_1; inline;
  14234. function getCNPUE2 : TBits_1; inline;
  14235. function getCNPUE20 : TBits_1; inline;
  14236. function getCNPUE21 : TBits_1; inline;
  14237. function getCNPUE3 : TBits_1; inline;
  14238. function getCNPUE4 : TBits_1; inline;
  14239. function getCNPUE5 : TBits_1; inline;
  14240. function getCNPUE6 : TBits_1; inline;
  14241. function getCNPUE7 : TBits_1; inline;
  14242. function getCNPUE8 : TBits_1; inline;
  14243. function getCNPUE9 : TBits_1; inline;
  14244. function getw : TBits_32; inline;
  14245. procedure setCNPUE0(thebits : TBits_1); inline;
  14246. procedure setCNPUE1(thebits : TBits_1); inline;
  14247. procedure setCNPUE10(thebits : TBits_1); inline;
  14248. procedure setCNPUE11(thebits : TBits_1); inline;
  14249. procedure setCNPUE12(thebits : TBits_1); inline;
  14250. procedure setCNPUE13(thebits : TBits_1); inline;
  14251. procedure setCNPUE14(thebits : TBits_1); inline;
  14252. procedure setCNPUE15(thebits : TBits_1); inline;
  14253. procedure setCNPUE16(thebits : TBits_1); inline;
  14254. procedure setCNPUE17(thebits : TBits_1); inline;
  14255. procedure setCNPUE18(thebits : TBits_1); inline;
  14256. procedure setCNPUE19(thebits : TBits_1); inline;
  14257. procedure setCNPUE2(thebits : TBits_1); inline;
  14258. procedure setCNPUE20(thebits : TBits_1); inline;
  14259. procedure setCNPUE21(thebits : TBits_1); inline;
  14260. procedure setCNPUE3(thebits : TBits_1); inline;
  14261. procedure setCNPUE4(thebits : TBits_1); inline;
  14262. procedure setCNPUE5(thebits : TBits_1); inline;
  14263. procedure setCNPUE6(thebits : TBits_1); inline;
  14264. procedure setCNPUE7(thebits : TBits_1); inline;
  14265. procedure setCNPUE8(thebits : TBits_1); inline;
  14266. procedure setCNPUE9(thebits : TBits_1); inline;
  14267. procedure setw(thebits : TBits_32); inline;
  14268. public
  14269. procedure clearCNPUE0; inline;
  14270. procedure clearCNPUE10; inline;
  14271. procedure clearCNPUE11; inline;
  14272. procedure clearCNPUE12; inline;
  14273. procedure clearCNPUE13; inline;
  14274. procedure clearCNPUE14; inline;
  14275. procedure clearCNPUE15; inline;
  14276. procedure clearCNPUE16; inline;
  14277. procedure clearCNPUE17; inline;
  14278. procedure clearCNPUE18; inline;
  14279. procedure clearCNPUE19; inline;
  14280. procedure clearCNPUE1; inline;
  14281. procedure clearCNPUE20; inline;
  14282. procedure clearCNPUE21; inline;
  14283. procedure clearCNPUE2; inline;
  14284. procedure clearCNPUE3; inline;
  14285. procedure clearCNPUE4; inline;
  14286. procedure clearCNPUE5; inline;
  14287. procedure clearCNPUE6; inline;
  14288. procedure clearCNPUE7; inline;
  14289. procedure clearCNPUE8; inline;
  14290. procedure clearCNPUE9; inline;
  14291. procedure setCNPUE0; inline;
  14292. procedure setCNPUE10; inline;
  14293. procedure setCNPUE11; inline;
  14294. procedure setCNPUE12; inline;
  14295. procedure setCNPUE13; inline;
  14296. procedure setCNPUE14; inline;
  14297. procedure setCNPUE15; inline;
  14298. procedure setCNPUE16; inline;
  14299. procedure setCNPUE17; inline;
  14300. procedure setCNPUE18; inline;
  14301. procedure setCNPUE19; inline;
  14302. procedure setCNPUE1; inline;
  14303. procedure setCNPUE20; inline;
  14304. procedure setCNPUE21; inline;
  14305. procedure setCNPUE2; inline;
  14306. procedure setCNPUE3; inline;
  14307. procedure setCNPUE4; inline;
  14308. procedure setCNPUE5; inline;
  14309. procedure setCNPUE6; inline;
  14310. procedure setCNPUE7; inline;
  14311. procedure setCNPUE8; inline;
  14312. procedure setCNPUE9; inline;
  14313. property CNPUE0 : TBits_1 read getCNPUE0 write setCNPUE0;
  14314. property CNPUE1 : TBits_1 read getCNPUE1 write setCNPUE1;
  14315. property CNPUE10 : TBits_1 read getCNPUE10 write setCNPUE10;
  14316. property CNPUE11 : TBits_1 read getCNPUE11 write setCNPUE11;
  14317. property CNPUE12 : TBits_1 read getCNPUE12 write setCNPUE12;
  14318. property CNPUE13 : TBits_1 read getCNPUE13 write setCNPUE13;
  14319. property CNPUE14 : TBits_1 read getCNPUE14 write setCNPUE14;
  14320. property CNPUE15 : TBits_1 read getCNPUE15 write setCNPUE15;
  14321. property CNPUE16 : TBits_1 read getCNPUE16 write setCNPUE16;
  14322. property CNPUE17 : TBits_1 read getCNPUE17 write setCNPUE17;
  14323. property CNPUE18 : TBits_1 read getCNPUE18 write setCNPUE18;
  14324. property CNPUE19 : TBits_1 read getCNPUE19 write setCNPUE19;
  14325. property CNPUE2 : TBits_1 read getCNPUE2 write setCNPUE2;
  14326. property CNPUE20 : TBits_1 read getCNPUE20 write setCNPUE20;
  14327. property CNPUE21 : TBits_1 read getCNPUE21 write setCNPUE21;
  14328. property CNPUE3 : TBits_1 read getCNPUE3 write setCNPUE3;
  14329. property CNPUE4 : TBits_1 read getCNPUE4 write setCNPUE4;
  14330. property CNPUE5 : TBits_1 read getCNPUE5 write setCNPUE5;
  14331. property CNPUE6 : TBits_1 read getCNPUE6 write setCNPUE6;
  14332. property CNPUE7 : TBits_1 read getCNPUE7 write setCNPUE7;
  14333. property CNPUE8 : TBits_1 read getCNPUE8 write setCNPUE8;
  14334. property CNPUE9 : TBits_1 read getCNPUE9 write setCNPUE9;
  14335. property w : TBits_32 read getw write setw;
  14336. end;
  14337. type
  14338. TPORTGRegisters = record
  14339. TRISGbits : TPORTG_TRISG;
  14340. TRISG : longWord;
  14341. TRISGCLR : longWord;
  14342. TRISGSET : longWord;
  14343. TRISGINV : longWord;
  14344. PORTGbits : TPORTG_PORTG;
  14345. PORTG : longWord;
  14346. PORTGCLR : longWord;
  14347. PORTGSET : longWord;
  14348. PORTGINV : longWord;
  14349. LATGbits : TPORTG_LATG;
  14350. LATG : longWord;
  14351. LATGCLR : longWord;
  14352. LATGSET : longWord;
  14353. LATGINV : longWord;
  14354. ODCGbits : TPORTG_ODCG;
  14355. ODCG : longWord;
  14356. ODCGCLR : longWord;
  14357. ODCGSET : longWord;
  14358. ODCGINV : longWord;
  14359. CNCONbits : TPORTG_CNCON;
  14360. CNCON : longWord;
  14361. CNCONCLR : longWord;
  14362. CNCONSET : longWord;
  14363. CNCONINV : longWord;
  14364. CNENbits : TPORTG_CNEN;
  14365. CNEN : longWord;
  14366. CNENCLR : longWord;
  14367. CNENSET : longWord;
  14368. CNENINV : longWord;
  14369. CNPUEbits : TPORTG_CNPUE;
  14370. CNPUE : longWord;
  14371. CNPUECLR : longWord;
  14372. CNPUESET : longWord;
  14373. CNPUEINV : longWord;
  14374. end;
  14375. TETH_ETHCON1 = record
  14376. private
  14377. function getAUTOFC : TBits_1; inline;
  14378. function getBUFCDEC : TBits_1; inline;
  14379. function getMANFC : TBits_1; inline;
  14380. function getON : TBits_1; inline;
  14381. function getPTV : TBits_16; inline;
  14382. function getRXEN : TBits_1; inline;
  14383. function getSIDL : TBits_1; inline;
  14384. function getTXRTS : TBits_1; inline;
  14385. function getw : TBits_32; inline;
  14386. procedure setAUTOFC(thebits : TBits_1); inline;
  14387. procedure setBUFCDEC(thebits : TBits_1); inline;
  14388. procedure setMANFC(thebits : TBits_1); inline;
  14389. procedure setON(thebits : TBits_1); inline;
  14390. procedure setPTV(thebits : TBits_16); inline;
  14391. procedure setRXEN(thebits : TBits_1); inline;
  14392. procedure setSIDL(thebits : TBits_1); inline;
  14393. procedure setTXRTS(thebits : TBits_1); inline;
  14394. procedure setw(thebits : TBits_32); inline;
  14395. public
  14396. procedure clearAUTOFC; inline;
  14397. procedure clearBUFCDEC; inline;
  14398. procedure clearMANFC; inline;
  14399. procedure clearON; inline;
  14400. procedure clearRXEN; inline;
  14401. procedure clearSIDL; inline;
  14402. procedure clearTXRTS; inline;
  14403. procedure setAUTOFC; inline;
  14404. procedure setBUFCDEC; inline;
  14405. procedure setMANFC; inline;
  14406. procedure setON; inline;
  14407. procedure setRXEN; inline;
  14408. procedure setSIDL; inline;
  14409. procedure setTXRTS; inline;
  14410. property AUTOFC : TBits_1 read getAUTOFC write setAUTOFC;
  14411. property BUFCDEC : TBits_1 read getBUFCDEC write setBUFCDEC;
  14412. property MANFC : TBits_1 read getMANFC write setMANFC;
  14413. property ON : TBits_1 read getON write setON;
  14414. property PTV : TBits_16 read getPTV write setPTV;
  14415. property RXEN : TBits_1 read getRXEN write setRXEN;
  14416. property SIDL : TBits_1 read getSIDL write setSIDL;
  14417. property TXRTS : TBits_1 read getTXRTS write setTXRTS;
  14418. property w : TBits_32 read getw write setw;
  14419. end;
  14420. TETH_ETHCON2 = record
  14421. private
  14422. function getRXBUF_SZ : TBits_7; inline;
  14423. function getw : TBits_32; inline;
  14424. procedure setRXBUF_SZ(thebits : TBits_7); inline;
  14425. procedure setw(thebits : TBits_32); inline;
  14426. public
  14427. property RXBUF_SZ : TBits_7 read getRXBUF_SZ write setRXBUF_SZ;
  14428. property w : TBits_32 read getw write setw;
  14429. end;
  14430. TETH_ETHTXST = record
  14431. private
  14432. function getTXSTADDR : TBits_30; inline;
  14433. function getw : TBits_32; inline;
  14434. procedure setTXSTADDR(thebits : TBits_30); inline;
  14435. procedure setw(thebits : TBits_32); inline;
  14436. public
  14437. property TXSTADDR : TBits_30 read getTXSTADDR write setTXSTADDR;
  14438. property w : TBits_32 read getw write setw;
  14439. end;
  14440. TETH_ETHRXST = record
  14441. private
  14442. function getRXSTADDR : TBits_30; inline;
  14443. function getw : TBits_32; inline;
  14444. procedure setRXSTADDR(thebits : TBits_30); inline;
  14445. procedure setw(thebits : TBits_32); inline;
  14446. public
  14447. property RXSTADDR : TBits_30 read getRXSTADDR write setRXSTADDR;
  14448. property w : TBits_32 read getw write setw;
  14449. end;
  14450. TETH_ETHHT0 = record
  14451. private
  14452. function getHTLOWER : TBits_32; inline;
  14453. function getw : TBits_32; inline;
  14454. procedure setHTLOWER(thebits : TBits_32); inline;
  14455. procedure setw(thebits : TBits_32); inline;
  14456. public
  14457. property HTLOWER : TBits_32 read getHTLOWER write setHTLOWER;
  14458. property w : TBits_32 read getw write setw;
  14459. end;
  14460. TETH_ETHHT1 = record
  14461. private
  14462. function getHTUPPER : TBits_32; inline;
  14463. function getw : TBits_32; inline;
  14464. procedure setHTUPPER(thebits : TBits_32); inline;
  14465. procedure setw(thebits : TBits_32); inline;
  14466. public
  14467. property HTUPPER : TBits_32 read getHTUPPER write setHTUPPER;
  14468. property w : TBits_32 read getw write setw;
  14469. end;
  14470. TETH_ETHPMM0 = record
  14471. private
  14472. function getPMMLOWER : TBits_32; inline;
  14473. function getw : TBits_32; inline;
  14474. procedure setPMMLOWER(thebits : TBits_32); inline;
  14475. procedure setw(thebits : TBits_32); inline;
  14476. public
  14477. property PMMLOWER : TBits_32 read getPMMLOWER write setPMMLOWER;
  14478. property w : TBits_32 read getw write setw;
  14479. end;
  14480. TETH_ETHPMM1 = record
  14481. private
  14482. function getPMMUPPER : TBits_32; inline;
  14483. function getw : TBits_32; inline;
  14484. procedure setPMMUPPER(thebits : TBits_32); inline;
  14485. procedure setw(thebits : TBits_32); inline;
  14486. public
  14487. property PMMUPPER : TBits_32 read getPMMUPPER write setPMMUPPER;
  14488. property w : TBits_32 read getw write setw;
  14489. end;
  14490. TETH_ETHPMCS = record
  14491. private
  14492. function getPMCS : TBits_16; inline;
  14493. function getw : TBits_32; inline;
  14494. procedure setPMCS(thebits : TBits_16); inline;
  14495. procedure setw(thebits : TBits_32); inline;
  14496. public
  14497. property PMCS : TBits_16 read getPMCS write setPMCS;
  14498. property w : TBits_32 read getw write setw;
  14499. end;
  14500. TETH_ETHPMO = record
  14501. private
  14502. function getPMO : TBits_16; inline;
  14503. function getw : TBits_32; inline;
  14504. procedure setPMO(thebits : TBits_16); inline;
  14505. procedure setw(thebits : TBits_32); inline;
  14506. public
  14507. property PMO : TBits_16 read getPMO write setPMO;
  14508. property w : TBits_32 read getw write setw;
  14509. end;
  14510. TETH_ETHRXFC = record
  14511. private
  14512. function getBCEN : TBits_1; inline;
  14513. function getCRCERREN : TBits_1; inline;
  14514. function getCRCOKEN : TBits_1; inline;
  14515. function getHTEN : TBits_1; inline;
  14516. function getMCEN : TBits_1; inline;
  14517. function getMPEN : TBits_1; inline;
  14518. function getNOTMEEN : TBits_1; inline;
  14519. function getNOTPM : TBits_1; inline;
  14520. function getPMMODE : TBits_4; inline;
  14521. function getRUNTEN : TBits_1; inline;
  14522. function getRUNTERREN : TBits_1; inline;
  14523. function getUCEN : TBits_1; inline;
  14524. function getw : TBits_32; inline;
  14525. procedure setBCEN(thebits : TBits_1); inline;
  14526. procedure setCRCERREN(thebits : TBits_1); inline;
  14527. procedure setCRCOKEN(thebits : TBits_1); inline;
  14528. procedure setHTEN(thebits : TBits_1); inline;
  14529. procedure setMCEN(thebits : TBits_1); inline;
  14530. procedure setMPEN(thebits : TBits_1); inline;
  14531. procedure setNOTMEEN(thebits : TBits_1); inline;
  14532. procedure setNOTPM(thebits : TBits_1); inline;
  14533. procedure setPMMODE(thebits : TBits_4); inline;
  14534. procedure setRUNTEN(thebits : TBits_1); inline;
  14535. procedure setRUNTERREN(thebits : TBits_1); inline;
  14536. procedure setUCEN(thebits : TBits_1); inline;
  14537. procedure setw(thebits : TBits_32); inline;
  14538. public
  14539. procedure clearBCEN; inline;
  14540. procedure clearCRCERREN; inline;
  14541. procedure clearCRCOKEN; inline;
  14542. procedure clearHTEN; inline;
  14543. procedure clearMCEN; inline;
  14544. procedure clearMPEN; inline;
  14545. procedure clearNOTMEEN; inline;
  14546. procedure clearNOTPM; inline;
  14547. procedure clearRUNTEN; inline;
  14548. procedure clearRUNTERREN; inline;
  14549. procedure clearUCEN; inline;
  14550. procedure setBCEN; inline;
  14551. procedure setCRCERREN; inline;
  14552. procedure setCRCOKEN; inline;
  14553. procedure setHTEN; inline;
  14554. procedure setMCEN; inline;
  14555. procedure setMPEN; inline;
  14556. procedure setNOTMEEN; inline;
  14557. procedure setNOTPM; inline;
  14558. procedure setRUNTEN; inline;
  14559. procedure setRUNTERREN; inline;
  14560. procedure setUCEN; inline;
  14561. property BCEN : TBits_1 read getBCEN write setBCEN;
  14562. property CRCERREN : TBits_1 read getCRCERREN write setCRCERREN;
  14563. property CRCOKEN : TBits_1 read getCRCOKEN write setCRCOKEN;
  14564. property HTEN : TBits_1 read getHTEN write setHTEN;
  14565. property MCEN : TBits_1 read getMCEN write setMCEN;
  14566. property MPEN : TBits_1 read getMPEN write setMPEN;
  14567. property NOTMEEN : TBits_1 read getNOTMEEN write setNOTMEEN;
  14568. property NOTPM : TBits_1 read getNOTPM write setNOTPM;
  14569. property PMMODE : TBits_4 read getPMMODE write setPMMODE;
  14570. property RUNTEN : TBits_1 read getRUNTEN write setRUNTEN;
  14571. property RUNTERREN : TBits_1 read getRUNTERREN write setRUNTERREN;
  14572. property UCEN : TBits_1 read getUCEN write setUCEN;
  14573. property w : TBits_32 read getw write setw;
  14574. end;
  14575. TETH_ETHRXWM = record
  14576. private
  14577. function getRXEWM : TBits_8; inline;
  14578. function getRXFWM : TBits_8; inline;
  14579. function getw : TBits_32; inline;
  14580. procedure setRXEWM(thebits : TBits_8); inline;
  14581. procedure setRXFWM(thebits : TBits_8); inline;
  14582. procedure setw(thebits : TBits_32); inline;
  14583. public
  14584. property RXEWM : TBits_8 read getRXEWM write setRXEWM;
  14585. property RXFWM : TBits_8 read getRXFWM write setRXFWM;
  14586. property w : TBits_32 read getw write setw;
  14587. end;
  14588. TETH_ETHIEN = record
  14589. private
  14590. function getEWMARKIE : TBits_1; inline;
  14591. function getFWMARKIE : TBits_1; inline;
  14592. function getPKTPENDIE : TBits_1; inline;
  14593. function getRXACTIE : TBits_1; inline;
  14594. function getRXBUFNAIE : TBits_1; inline;
  14595. function getRXBUSEIE : TBits_1; inline;
  14596. function getRXDONEIE : TBits_1; inline;
  14597. function getRXOVFLWIE : TBits_1; inline;
  14598. function getTXABORTIE : TBits_1; inline;
  14599. function getTXBUSEIE : TBits_1; inline;
  14600. function getTXDONEIE : TBits_1; inline;
  14601. function getw : TBits_32; inline;
  14602. procedure setEWMARKIE(thebits : TBits_1); inline;
  14603. procedure setFWMARKIE(thebits : TBits_1); inline;
  14604. procedure setPKTPENDIE(thebits : TBits_1); inline;
  14605. procedure setRXACTIE(thebits : TBits_1); inline;
  14606. procedure setRXBUFNAIE(thebits : TBits_1); inline;
  14607. procedure setRXBUSEIE(thebits : TBits_1); inline;
  14608. procedure setRXDONEIE(thebits : TBits_1); inline;
  14609. procedure setRXOVFLWIE(thebits : TBits_1); inline;
  14610. procedure setTXABORTIE(thebits : TBits_1); inline;
  14611. procedure setTXBUSEIE(thebits : TBits_1); inline;
  14612. procedure setTXDONEIE(thebits : TBits_1); inline;
  14613. procedure setw(thebits : TBits_32); inline;
  14614. public
  14615. procedure clearEWMARKIE; inline;
  14616. procedure clearFWMARKIE; inline;
  14617. procedure clearPKTPENDIE; inline;
  14618. procedure clearRXACTIE; inline;
  14619. procedure clearRXBUFNAIE; inline;
  14620. procedure clearRXBUSEIE; inline;
  14621. procedure clearRXDONEIE; inline;
  14622. procedure clearRXOVFLWIE; inline;
  14623. procedure clearTXABORTIE; inline;
  14624. procedure clearTXBUSEIE; inline;
  14625. procedure clearTXDONEIE; inline;
  14626. procedure setEWMARKIE; inline;
  14627. procedure setFWMARKIE; inline;
  14628. procedure setPKTPENDIE; inline;
  14629. procedure setRXACTIE; inline;
  14630. procedure setRXBUFNAIE; inline;
  14631. procedure setRXBUSEIE; inline;
  14632. procedure setRXDONEIE; inline;
  14633. procedure setRXOVFLWIE; inline;
  14634. procedure setTXABORTIE; inline;
  14635. procedure setTXBUSEIE; inline;
  14636. procedure setTXDONEIE; inline;
  14637. property EWMARKIE : TBits_1 read getEWMARKIE write setEWMARKIE;
  14638. property FWMARKIE : TBits_1 read getFWMARKIE write setFWMARKIE;
  14639. property PKTPENDIE : TBits_1 read getPKTPENDIE write setPKTPENDIE;
  14640. property RXACTIE : TBits_1 read getRXACTIE write setRXACTIE;
  14641. property RXBUFNAIE : TBits_1 read getRXBUFNAIE write setRXBUFNAIE;
  14642. property RXBUSEIE : TBits_1 read getRXBUSEIE write setRXBUSEIE;
  14643. property RXDONEIE : TBits_1 read getRXDONEIE write setRXDONEIE;
  14644. property RXOVFLWIE : TBits_1 read getRXOVFLWIE write setRXOVFLWIE;
  14645. property TXABORTIE : TBits_1 read getTXABORTIE write setTXABORTIE;
  14646. property TXBUSEIE : TBits_1 read getTXBUSEIE write setTXBUSEIE;
  14647. property TXDONEIE : TBits_1 read getTXDONEIE write setTXDONEIE;
  14648. property w : TBits_32 read getw write setw;
  14649. end;
  14650. TETH_ETHIRQ = record
  14651. private
  14652. function getEWMARK : TBits_1; inline;
  14653. function getFWMARK : TBits_1; inline;
  14654. function getPKTPEND : TBits_1; inline;
  14655. function getRXACT : TBits_1; inline;
  14656. function getRXBUFNA : TBits_1; inline;
  14657. function getRXBUSE : TBits_1; inline;
  14658. function getRXDONE : TBits_1; inline;
  14659. function getRXOVFLW : TBits_1; inline;
  14660. function getTXABORT : TBits_1; inline;
  14661. function getTXBUSE : TBits_1; inline;
  14662. function getTXDONE : TBits_1; inline;
  14663. function getw : TBits_32; inline;
  14664. procedure setEWMARK(thebits : TBits_1); inline;
  14665. procedure setFWMARK(thebits : TBits_1); inline;
  14666. procedure setPKTPEND(thebits : TBits_1); inline;
  14667. procedure setRXACT(thebits : TBits_1); inline;
  14668. procedure setRXBUFNA(thebits : TBits_1); inline;
  14669. procedure setRXBUSE(thebits : TBits_1); inline;
  14670. procedure setRXDONE(thebits : TBits_1); inline;
  14671. procedure setRXOVFLW(thebits : TBits_1); inline;
  14672. procedure setTXABORT(thebits : TBits_1); inline;
  14673. procedure setTXBUSE(thebits : TBits_1); inline;
  14674. procedure setTXDONE(thebits : TBits_1); inline;
  14675. procedure setw(thebits : TBits_32); inline;
  14676. public
  14677. procedure clearEWMARK; inline;
  14678. procedure clearFWMARK; inline;
  14679. procedure clearPKTPEND; inline;
  14680. procedure clearRXACT; inline;
  14681. procedure clearRXBUFNA; inline;
  14682. procedure clearRXBUSE; inline;
  14683. procedure clearRXDONE; inline;
  14684. procedure clearRXOVFLW; inline;
  14685. procedure clearTXABORT; inline;
  14686. procedure clearTXBUSE; inline;
  14687. procedure clearTXDONE; inline;
  14688. procedure setEWMARK; inline;
  14689. procedure setFWMARK; inline;
  14690. procedure setPKTPEND; inline;
  14691. procedure setRXACT; inline;
  14692. procedure setRXBUFNA; inline;
  14693. procedure setRXBUSE; inline;
  14694. procedure setRXDONE; inline;
  14695. procedure setRXOVFLW; inline;
  14696. procedure setTXABORT; inline;
  14697. procedure setTXBUSE; inline;
  14698. procedure setTXDONE; inline;
  14699. property EWMARK : TBits_1 read getEWMARK write setEWMARK;
  14700. property FWMARK : TBits_1 read getFWMARK write setFWMARK;
  14701. property PKTPEND : TBits_1 read getPKTPEND write setPKTPEND;
  14702. property RXACT : TBits_1 read getRXACT write setRXACT;
  14703. property RXBUFNA : TBits_1 read getRXBUFNA write setRXBUFNA;
  14704. property RXBUSE : TBits_1 read getRXBUSE write setRXBUSE;
  14705. property RXDONE : TBits_1 read getRXDONE write setRXDONE;
  14706. property RXOVFLW : TBits_1 read getRXOVFLW write setRXOVFLW;
  14707. property TXABORT : TBits_1 read getTXABORT write setTXABORT;
  14708. property TXBUSE : TBits_1 read getTXBUSE write setTXBUSE;
  14709. property TXDONE : TBits_1 read getTXDONE write setTXDONE;
  14710. property w : TBits_32 read getw write setw;
  14711. end;
  14712. TETH_ETHSTAT = record
  14713. private
  14714. function getBUFCNT : TBits_8; inline;
  14715. function getBUSY : TBits_1; inline;
  14716. function getETHBUSY : TBits_1; inline;
  14717. function getRXBUSY : TBits_1; inline;
  14718. function getTXBUSY : TBits_1; inline;
  14719. function getw : TBits_32; inline;
  14720. procedure setBUFCNT(thebits : TBits_8); inline;
  14721. procedure setBUSY(thebits : TBits_1); inline;
  14722. procedure setETHBUSY(thebits : TBits_1); inline;
  14723. procedure setRXBUSY(thebits : TBits_1); inline;
  14724. procedure setTXBUSY(thebits : TBits_1); inline;
  14725. procedure setw(thebits : TBits_32); inline;
  14726. public
  14727. procedure clearBUSY; inline;
  14728. procedure clearETHBUSY; inline;
  14729. procedure clearRXBUSY; inline;
  14730. procedure clearTXBUSY; inline;
  14731. procedure setBUSY; inline;
  14732. procedure setETHBUSY; inline;
  14733. procedure setRXBUSY; inline;
  14734. procedure setTXBUSY; inline;
  14735. property BUFCNT : TBits_8 read getBUFCNT write setBUFCNT;
  14736. property BUSY : TBits_1 read getBUSY write setBUSY;
  14737. property ETHBUSY : TBits_1 read getETHBUSY write setETHBUSY;
  14738. property RXBUSY : TBits_1 read getRXBUSY write setRXBUSY;
  14739. property TXBUSY : TBits_1 read getTXBUSY write setTXBUSY;
  14740. property w : TBits_32 read getw write setw;
  14741. end;
  14742. TETH_ETHRXOVFLOW = record
  14743. private
  14744. function getRXOVFLWCNT : TBits_16; inline;
  14745. function getw : TBits_32; inline;
  14746. procedure setRXOVFLWCNT(thebits : TBits_16); inline;
  14747. procedure setw(thebits : TBits_32); inline;
  14748. public
  14749. property RXOVFLWCNT : TBits_16 read getRXOVFLWCNT write setRXOVFLWCNT;
  14750. property w : TBits_32 read getw write setw;
  14751. end;
  14752. TETH_ETHFRMTXOK = record
  14753. private
  14754. function getFRMTXOKCNT : TBits_16; inline;
  14755. function getw : TBits_32; inline;
  14756. procedure setFRMTXOKCNT(thebits : TBits_16); inline;
  14757. procedure setw(thebits : TBits_32); inline;
  14758. public
  14759. property FRMTXOKCNT : TBits_16 read getFRMTXOKCNT write setFRMTXOKCNT;
  14760. property w : TBits_32 read getw write setw;
  14761. end;
  14762. TETH_ETHSCOLFRM = record
  14763. private
  14764. function getSCOLFRMCNT : TBits_16; inline;
  14765. function getw : TBits_32; inline;
  14766. procedure setSCOLFRMCNT(thebits : TBits_16); inline;
  14767. procedure setw(thebits : TBits_32); inline;
  14768. public
  14769. property SCOLFRMCNT : TBits_16 read getSCOLFRMCNT write setSCOLFRMCNT;
  14770. property w : TBits_32 read getw write setw;
  14771. end;
  14772. TETH_ETHMCOLFRM = record
  14773. private
  14774. function getMCOLFRMCNT : TBits_16; inline;
  14775. function getMCOLFRM_CNT : TBits_16; inline;
  14776. function getw : TBits_32; inline;
  14777. procedure setMCOLFRMCNT(thebits : TBits_16); inline;
  14778. procedure setMCOLFRM_CNT(thebits : TBits_16); inline;
  14779. procedure setw(thebits : TBits_32); inline;
  14780. public
  14781. property MCOLFRMCNT : TBits_16 read getMCOLFRMCNT write setMCOLFRMCNT;
  14782. property MCOLFRM_CNT : TBits_16 read getMCOLFRM_CNT write setMCOLFRM_CNT;
  14783. property w : TBits_32 read getw write setw;
  14784. end;
  14785. TETH_ETHFRMRXOK = record
  14786. private
  14787. function getFRMRXOKCNT : TBits_16; inline;
  14788. function getw : TBits_32; inline;
  14789. procedure setFRMRXOKCNT(thebits : TBits_16); inline;
  14790. procedure setw(thebits : TBits_32); inline;
  14791. public
  14792. property FRMRXOKCNT : TBits_16 read getFRMRXOKCNT write setFRMRXOKCNT;
  14793. property w : TBits_32 read getw write setw;
  14794. end;
  14795. TETH_ETHFCSERR = record
  14796. private
  14797. function getFCSERRCNT : TBits_16; inline;
  14798. function getw : TBits_32; inline;
  14799. procedure setFCSERRCNT(thebits : TBits_16); inline;
  14800. procedure setw(thebits : TBits_32); inline;
  14801. public
  14802. property FCSERRCNT : TBits_16 read getFCSERRCNT write setFCSERRCNT;
  14803. property w : TBits_32 read getw write setw;
  14804. end;
  14805. TETH_ETHALGNERR = record
  14806. private
  14807. function getALGNERRCNT : TBits_16; inline;
  14808. function getw : TBits_32; inline;
  14809. procedure setALGNERRCNT(thebits : TBits_16); inline;
  14810. procedure setw(thebits : TBits_32); inline;
  14811. public
  14812. property ALGNERRCNT : TBits_16 read getALGNERRCNT write setALGNERRCNT;
  14813. property w : TBits_32 read getw write setw;
  14814. end;
  14815. TETH_EMAC1CFG1 = record
  14816. private
  14817. function getLOOPBACK : TBits_1; inline;
  14818. function getPASSALL : TBits_1; inline;
  14819. function getRESETRFUN : TBits_1; inline;
  14820. function getRESETRMCS : TBits_1; inline;
  14821. function getRESETTFUN : TBits_1; inline;
  14822. function getRESETTMCS : TBits_1; inline;
  14823. function getRXENABLE : TBits_1; inline;
  14824. function getRXPAUSE : TBits_1; inline;
  14825. function getSIMRESET : TBits_1; inline;
  14826. function getSOFTRESET : TBits_1; inline;
  14827. function getTXPAUSE : TBits_1; inline;
  14828. function getw : TBits_32; inline;
  14829. procedure setLOOPBACK(thebits : TBits_1); inline;
  14830. procedure setPASSALL(thebits : TBits_1); inline;
  14831. procedure setRESETRFUN(thebits : TBits_1); inline;
  14832. procedure setRESETRMCS(thebits : TBits_1); inline;
  14833. procedure setRESETTFUN(thebits : TBits_1); inline;
  14834. procedure setRESETTMCS(thebits : TBits_1); inline;
  14835. procedure setRXENABLE(thebits : TBits_1); inline;
  14836. procedure setRXPAUSE(thebits : TBits_1); inline;
  14837. procedure setSIMRESET(thebits : TBits_1); inline;
  14838. procedure setSOFTRESET(thebits : TBits_1); inline;
  14839. procedure setTXPAUSE(thebits : TBits_1); inline;
  14840. procedure setw(thebits : TBits_32); inline;
  14841. public
  14842. procedure clearLOOPBACK; inline;
  14843. procedure clearPASSALL; inline;
  14844. procedure clearRESETRFUN; inline;
  14845. procedure clearRESETRMCS; inline;
  14846. procedure clearRESETTFUN; inline;
  14847. procedure clearRESETTMCS; inline;
  14848. procedure clearRXENABLE; inline;
  14849. procedure clearRXPAUSE; inline;
  14850. procedure clearSIMRESET; inline;
  14851. procedure clearSOFTRESET; inline;
  14852. procedure clearTXPAUSE; inline;
  14853. procedure setLOOPBACK; inline;
  14854. procedure setPASSALL; inline;
  14855. procedure setRESETRFUN; inline;
  14856. procedure setRESETRMCS; inline;
  14857. procedure setRESETTFUN; inline;
  14858. procedure setRESETTMCS; inline;
  14859. procedure setRXENABLE; inline;
  14860. procedure setRXPAUSE; inline;
  14861. procedure setSIMRESET; inline;
  14862. procedure setSOFTRESET; inline;
  14863. procedure setTXPAUSE; inline;
  14864. property LOOPBACK : TBits_1 read getLOOPBACK write setLOOPBACK;
  14865. property PASSALL : TBits_1 read getPASSALL write setPASSALL;
  14866. property RESETRFUN : TBits_1 read getRESETRFUN write setRESETRFUN;
  14867. property RESETRMCS : TBits_1 read getRESETRMCS write setRESETRMCS;
  14868. property RESETTFUN : TBits_1 read getRESETTFUN write setRESETTFUN;
  14869. property RESETTMCS : TBits_1 read getRESETTMCS write setRESETTMCS;
  14870. property RXENABLE : TBits_1 read getRXENABLE write setRXENABLE;
  14871. property RXPAUSE : TBits_1 read getRXPAUSE write setRXPAUSE;
  14872. property SIMRESET : TBits_1 read getSIMRESET write setSIMRESET;
  14873. property SOFTRESET : TBits_1 read getSOFTRESET write setSOFTRESET;
  14874. property TXPAUSE : TBits_1 read getTXPAUSE write setTXPAUSE;
  14875. property w : TBits_32 read getw write setw;
  14876. end;
  14877. TETH_EMACxCFG1 = record
  14878. private
  14879. function getLOOPBACK : TBits_1; inline;
  14880. function getPASSALL : TBits_1; inline;
  14881. function getRESETRFUN : TBits_1; inline;
  14882. function getRESETRMCS : TBits_1; inline;
  14883. function getRESETTFUN : TBits_1; inline;
  14884. function getRESETTMCS : TBits_1; inline;
  14885. function getRXENABLE : TBits_1; inline;
  14886. function getRXPAUSE : TBits_1; inline;
  14887. function getSIMRESET : TBits_1; inline;
  14888. function getSOFTRESET : TBits_1; inline;
  14889. function getTXPAUSE : TBits_1; inline;
  14890. function getw : TBits_32; inline;
  14891. procedure setLOOPBACK(thebits : TBits_1); inline;
  14892. procedure setPASSALL(thebits : TBits_1); inline;
  14893. procedure setRESETRFUN(thebits : TBits_1); inline;
  14894. procedure setRESETRMCS(thebits : TBits_1); inline;
  14895. procedure setRESETTFUN(thebits : TBits_1); inline;
  14896. procedure setRESETTMCS(thebits : TBits_1); inline;
  14897. procedure setRXENABLE(thebits : TBits_1); inline;
  14898. procedure setRXPAUSE(thebits : TBits_1); inline;
  14899. procedure setSIMRESET(thebits : TBits_1); inline;
  14900. procedure setSOFTRESET(thebits : TBits_1); inline;
  14901. procedure setTXPAUSE(thebits : TBits_1); inline;
  14902. procedure setw(thebits : TBits_32); inline;
  14903. public
  14904. procedure clearLOOPBACK; inline;
  14905. procedure clearPASSALL; inline;
  14906. procedure clearRESETRFUN; inline;
  14907. procedure clearRESETRMCS; inline;
  14908. procedure clearRESETTFUN; inline;
  14909. procedure clearRESETTMCS; inline;
  14910. procedure clearRXENABLE; inline;
  14911. procedure clearRXPAUSE; inline;
  14912. procedure clearSIMRESET; inline;
  14913. procedure clearSOFTRESET; inline;
  14914. procedure clearTXPAUSE; inline;
  14915. procedure setLOOPBACK; inline;
  14916. procedure setPASSALL; inline;
  14917. procedure setRESETRFUN; inline;
  14918. procedure setRESETRMCS; inline;
  14919. procedure setRESETTFUN; inline;
  14920. procedure setRESETTMCS; inline;
  14921. procedure setRXENABLE; inline;
  14922. procedure setRXPAUSE; inline;
  14923. procedure setSIMRESET; inline;
  14924. procedure setSOFTRESET; inline;
  14925. procedure setTXPAUSE; inline;
  14926. property LOOPBACK : TBits_1 read getLOOPBACK write setLOOPBACK;
  14927. property PASSALL : TBits_1 read getPASSALL write setPASSALL;
  14928. property RESETRFUN : TBits_1 read getRESETRFUN write setRESETRFUN;
  14929. property RESETRMCS : TBits_1 read getRESETRMCS write setRESETRMCS;
  14930. property RESETTFUN : TBits_1 read getRESETTFUN write setRESETTFUN;
  14931. property RESETTMCS : TBits_1 read getRESETTMCS write setRESETTMCS;
  14932. property RXENABLE : TBits_1 read getRXENABLE write setRXENABLE;
  14933. property RXPAUSE : TBits_1 read getRXPAUSE write setRXPAUSE;
  14934. property SIMRESET : TBits_1 read getSIMRESET write setSIMRESET;
  14935. property SOFTRESET : TBits_1 read getSOFTRESET write setSOFTRESET;
  14936. property TXPAUSE : TBits_1 read getTXPAUSE write setTXPAUSE;
  14937. property w : TBits_32 read getw write setw;
  14938. end;
  14939. TETH_EMAC1CFG2 = record
  14940. private
  14941. function getAUTOPAD : TBits_1; inline;
  14942. function getBPNOBKOFF : TBits_1; inline;
  14943. function getCRCENABLE : TBits_1; inline;
  14944. function getDELAYCRC : TBits_1; inline;
  14945. function getEXCESSDFR : TBits_1; inline;
  14946. function getFULLDPLX : TBits_1; inline;
  14947. function getHUGEFRM : TBits_1; inline;
  14948. function getLENGTHCK : TBits_1; inline;
  14949. function getLONGPRE : TBits_1; inline;
  14950. function getNOBKOFF : TBits_1; inline;
  14951. function getPADENABLE : TBits_1; inline;
  14952. function getPUREPRE : TBits_1; inline;
  14953. function getVLANPAD : TBits_1; inline;
  14954. function getw : TBits_32; inline;
  14955. procedure setAUTOPAD(thebits : TBits_1); inline;
  14956. procedure setBPNOBKOFF(thebits : TBits_1); inline;
  14957. procedure setCRCENABLE(thebits : TBits_1); inline;
  14958. procedure setDELAYCRC(thebits : TBits_1); inline;
  14959. procedure setEXCESSDFR(thebits : TBits_1); inline;
  14960. procedure setFULLDPLX(thebits : TBits_1); inline;
  14961. procedure setHUGEFRM(thebits : TBits_1); inline;
  14962. procedure setLENGTHCK(thebits : TBits_1); inline;
  14963. procedure setLONGPRE(thebits : TBits_1); inline;
  14964. procedure setNOBKOFF(thebits : TBits_1); inline;
  14965. procedure setPADENABLE(thebits : TBits_1); inline;
  14966. procedure setPUREPRE(thebits : TBits_1); inline;
  14967. procedure setVLANPAD(thebits : TBits_1); inline;
  14968. procedure setw(thebits : TBits_32); inline;
  14969. public
  14970. procedure clearAUTOPAD; inline;
  14971. procedure clearBPNOBKOFF; inline;
  14972. procedure clearCRCENABLE; inline;
  14973. procedure clearDELAYCRC; inline;
  14974. procedure clearEXCESSDFR; inline;
  14975. procedure clearFULLDPLX; inline;
  14976. procedure clearHUGEFRM; inline;
  14977. procedure clearLENGTHCK; inline;
  14978. procedure clearLONGPRE; inline;
  14979. procedure clearNOBKOFF; inline;
  14980. procedure clearPADENABLE; inline;
  14981. procedure clearPUREPRE; inline;
  14982. procedure clearVLANPAD; inline;
  14983. procedure setAUTOPAD; inline;
  14984. procedure setBPNOBKOFF; inline;
  14985. procedure setCRCENABLE; inline;
  14986. procedure setDELAYCRC; inline;
  14987. procedure setEXCESSDFR; inline;
  14988. procedure setFULLDPLX; inline;
  14989. procedure setHUGEFRM; inline;
  14990. procedure setLENGTHCK; inline;
  14991. procedure setLONGPRE; inline;
  14992. procedure setNOBKOFF; inline;
  14993. procedure setPADENABLE; inline;
  14994. procedure setPUREPRE; inline;
  14995. procedure setVLANPAD; inline;
  14996. property AUTOPAD : TBits_1 read getAUTOPAD write setAUTOPAD;
  14997. property BPNOBKOFF : TBits_1 read getBPNOBKOFF write setBPNOBKOFF;
  14998. property CRCENABLE : TBits_1 read getCRCENABLE write setCRCENABLE;
  14999. property DELAYCRC : TBits_1 read getDELAYCRC write setDELAYCRC;
  15000. property EXCESSDFR : TBits_1 read getEXCESSDFR write setEXCESSDFR;
  15001. property FULLDPLX : TBits_1 read getFULLDPLX write setFULLDPLX;
  15002. property HUGEFRM : TBits_1 read getHUGEFRM write setHUGEFRM;
  15003. property LENGTHCK : TBits_1 read getLENGTHCK write setLENGTHCK;
  15004. property LONGPRE : TBits_1 read getLONGPRE write setLONGPRE;
  15005. property NOBKOFF : TBits_1 read getNOBKOFF write setNOBKOFF;
  15006. property PADENABLE : TBits_1 read getPADENABLE write setPADENABLE;
  15007. property PUREPRE : TBits_1 read getPUREPRE write setPUREPRE;
  15008. property VLANPAD : TBits_1 read getVLANPAD write setVLANPAD;
  15009. property w : TBits_32 read getw write setw;
  15010. end;
  15011. TETH_EMACxCFG2 = record
  15012. private
  15013. function getAUTOPAD : TBits_1; inline;
  15014. function getBPNOBKOFF : TBits_1; inline;
  15015. function getCRCENABLE : TBits_1; inline;
  15016. function getDELAYCRC : TBits_1; inline;
  15017. function getEXCESSDFR : TBits_1; inline;
  15018. function getFULLDPLX : TBits_1; inline;
  15019. function getHUGEFRM : TBits_1; inline;
  15020. function getLENGTHCK : TBits_1; inline;
  15021. function getLONGPRE : TBits_1; inline;
  15022. function getNOBKOFF : TBits_1; inline;
  15023. function getPADENABLE : TBits_1; inline;
  15024. function getPUREPRE : TBits_1; inline;
  15025. function getVLANPAD : TBits_1; inline;
  15026. function getw : TBits_32; inline;
  15027. procedure setAUTOPAD(thebits : TBits_1); inline;
  15028. procedure setBPNOBKOFF(thebits : TBits_1); inline;
  15029. procedure setCRCENABLE(thebits : TBits_1); inline;
  15030. procedure setDELAYCRC(thebits : TBits_1); inline;
  15031. procedure setEXCESSDFR(thebits : TBits_1); inline;
  15032. procedure setFULLDPLX(thebits : TBits_1); inline;
  15033. procedure setHUGEFRM(thebits : TBits_1); inline;
  15034. procedure setLENGTHCK(thebits : TBits_1); inline;
  15035. procedure setLONGPRE(thebits : TBits_1); inline;
  15036. procedure setNOBKOFF(thebits : TBits_1); inline;
  15037. procedure setPADENABLE(thebits : TBits_1); inline;
  15038. procedure setPUREPRE(thebits : TBits_1); inline;
  15039. procedure setVLANPAD(thebits : TBits_1); inline;
  15040. procedure setw(thebits : TBits_32); inline;
  15041. public
  15042. procedure clearAUTOPAD; inline;
  15043. procedure clearBPNOBKOFF; inline;
  15044. procedure clearCRCENABLE; inline;
  15045. procedure clearDELAYCRC; inline;
  15046. procedure clearEXCESSDFR; inline;
  15047. procedure clearFULLDPLX; inline;
  15048. procedure clearHUGEFRM; inline;
  15049. procedure clearLENGTHCK; inline;
  15050. procedure clearLONGPRE; inline;
  15051. procedure clearNOBKOFF; inline;
  15052. procedure clearPADENABLE; inline;
  15053. procedure clearPUREPRE; inline;
  15054. procedure clearVLANPAD; inline;
  15055. procedure setAUTOPAD; inline;
  15056. procedure setBPNOBKOFF; inline;
  15057. procedure setCRCENABLE; inline;
  15058. procedure setDELAYCRC; inline;
  15059. procedure setEXCESSDFR; inline;
  15060. procedure setFULLDPLX; inline;
  15061. procedure setHUGEFRM; inline;
  15062. procedure setLENGTHCK; inline;
  15063. procedure setLONGPRE; inline;
  15064. procedure setNOBKOFF; inline;
  15065. procedure setPADENABLE; inline;
  15066. procedure setPUREPRE; inline;
  15067. procedure setVLANPAD; inline;
  15068. property AUTOPAD : TBits_1 read getAUTOPAD write setAUTOPAD;
  15069. property BPNOBKOFF : TBits_1 read getBPNOBKOFF write setBPNOBKOFF;
  15070. property CRCENABLE : TBits_1 read getCRCENABLE write setCRCENABLE;
  15071. property DELAYCRC : TBits_1 read getDELAYCRC write setDELAYCRC;
  15072. property EXCESSDFR : TBits_1 read getEXCESSDFR write setEXCESSDFR;
  15073. property FULLDPLX : TBits_1 read getFULLDPLX write setFULLDPLX;
  15074. property HUGEFRM : TBits_1 read getHUGEFRM write setHUGEFRM;
  15075. property LENGTHCK : TBits_1 read getLENGTHCK write setLENGTHCK;
  15076. property LONGPRE : TBits_1 read getLONGPRE write setLONGPRE;
  15077. property NOBKOFF : TBits_1 read getNOBKOFF write setNOBKOFF;
  15078. property PADENABLE : TBits_1 read getPADENABLE write setPADENABLE;
  15079. property PUREPRE : TBits_1 read getPUREPRE write setPUREPRE;
  15080. property VLANPAD : TBits_1 read getVLANPAD write setVLANPAD;
  15081. property w : TBits_32 read getw write setw;
  15082. end;
  15083. TETH_EMAC1IPGT = record
  15084. private
  15085. function getB2BIPKTGP : TBits_7; inline;
  15086. function getw : TBits_32; inline;
  15087. procedure setB2BIPKTGP(thebits : TBits_7); inline;
  15088. procedure setw(thebits : TBits_32); inline;
  15089. public
  15090. property B2BIPKTGP : TBits_7 read getB2BIPKTGP write setB2BIPKTGP;
  15091. property w : TBits_32 read getw write setw;
  15092. end;
  15093. TETH_EMACxIPGT = record
  15094. private
  15095. function getB2BIPKTGP : TBits_7; inline;
  15096. function getw : TBits_32; inline;
  15097. procedure setB2BIPKTGP(thebits : TBits_7); inline;
  15098. procedure setw(thebits : TBits_32); inline;
  15099. public
  15100. property B2BIPKTGP : TBits_7 read getB2BIPKTGP write setB2BIPKTGP;
  15101. property w : TBits_32 read getw write setw;
  15102. end;
  15103. TETH_EMAC1IPGR = record
  15104. private
  15105. function getNB2BIPKTGP1 : TBits_7; inline;
  15106. function getNB2BIPKTGP2 : TBits_7; inline;
  15107. function getw : TBits_32; inline;
  15108. procedure setNB2BIPKTGP1(thebits : TBits_7); inline;
  15109. procedure setNB2BIPKTGP2(thebits : TBits_7); inline;
  15110. procedure setw(thebits : TBits_32); inline;
  15111. public
  15112. property NB2BIPKTGP1 : TBits_7 read getNB2BIPKTGP1 write setNB2BIPKTGP1;
  15113. property NB2BIPKTGP2 : TBits_7 read getNB2BIPKTGP2 write setNB2BIPKTGP2;
  15114. property w : TBits_32 read getw write setw;
  15115. end;
  15116. TETH_EMACxIPGR = record
  15117. private
  15118. function getNB2BIPKTGP1 : TBits_7; inline;
  15119. function getNB2BIPKTGP2 : TBits_7; inline;
  15120. function getw : TBits_32; inline;
  15121. procedure setNB2BIPKTGP1(thebits : TBits_7); inline;
  15122. procedure setNB2BIPKTGP2(thebits : TBits_7); inline;
  15123. procedure setw(thebits : TBits_32); inline;
  15124. public
  15125. property NB2BIPKTGP1 : TBits_7 read getNB2BIPKTGP1 write setNB2BIPKTGP1;
  15126. property NB2BIPKTGP2 : TBits_7 read getNB2BIPKTGP2 write setNB2BIPKTGP2;
  15127. property w : TBits_32 read getw write setw;
  15128. end;
  15129. TETH_EMAC1CLRT = record
  15130. private
  15131. function getCWINDOW : TBits_6; inline;
  15132. function getRETX : TBits_4; inline;
  15133. function getw : TBits_32; inline;
  15134. procedure setCWINDOW(thebits : TBits_6); inline;
  15135. procedure setRETX(thebits : TBits_4); inline;
  15136. procedure setw(thebits : TBits_32); inline;
  15137. public
  15138. property CWINDOW : TBits_6 read getCWINDOW write setCWINDOW;
  15139. property RETX : TBits_4 read getRETX write setRETX;
  15140. property w : TBits_32 read getw write setw;
  15141. end;
  15142. TETH_EMACxCLRT = record
  15143. private
  15144. function getCWINDOW : TBits_6; inline;
  15145. function getRETX : TBits_4; inline;
  15146. function getw : TBits_32; inline;
  15147. procedure setCWINDOW(thebits : TBits_6); inline;
  15148. procedure setRETX(thebits : TBits_4); inline;
  15149. procedure setw(thebits : TBits_32); inline;
  15150. public
  15151. property CWINDOW : TBits_6 read getCWINDOW write setCWINDOW;
  15152. property RETX : TBits_4 read getRETX write setRETX;
  15153. property w : TBits_32 read getw write setw;
  15154. end;
  15155. TETH_EMAC1MAXF = record
  15156. private
  15157. function getMACMAXF : TBits_16; inline;
  15158. function getw : TBits_32; inline;
  15159. procedure setMACMAXF(thebits : TBits_16); inline;
  15160. procedure setw(thebits : TBits_32); inline;
  15161. public
  15162. property MACMAXF : TBits_16 read getMACMAXF write setMACMAXF;
  15163. property w : TBits_32 read getw write setw;
  15164. end;
  15165. TETH_EMACxMAXF = record
  15166. private
  15167. function getMACMAXF : TBits_16; inline;
  15168. function getw : TBits_32; inline;
  15169. procedure setMACMAXF(thebits : TBits_16); inline;
  15170. procedure setw(thebits : TBits_32); inline;
  15171. public
  15172. property MACMAXF : TBits_16 read getMACMAXF write setMACMAXF;
  15173. property w : TBits_32 read getw write setw;
  15174. end;
  15175. TETH_EMAC1SUPP = record
  15176. private
  15177. function getRESETRMII : TBits_1; inline;
  15178. function getSPEEDRMII : TBits_1; inline;
  15179. function getw : TBits_32; inline;
  15180. procedure setRESETRMII(thebits : TBits_1); inline;
  15181. procedure setSPEEDRMII(thebits : TBits_1); inline;
  15182. procedure setw(thebits : TBits_32); inline;
  15183. public
  15184. procedure clearRESETRMII; inline;
  15185. procedure clearSPEEDRMII; inline;
  15186. procedure setRESETRMII; inline;
  15187. procedure setSPEEDRMII; inline;
  15188. property RESETRMII : TBits_1 read getRESETRMII write setRESETRMII;
  15189. property SPEEDRMII : TBits_1 read getSPEEDRMII write setSPEEDRMII;
  15190. property w : TBits_32 read getw write setw;
  15191. end;
  15192. TETH_EMACxSUPP = record
  15193. private
  15194. function getRESETRMII : TBits_1; inline;
  15195. function getSPEEDRMII : TBits_1; inline;
  15196. function getw : TBits_32; inline;
  15197. procedure setRESETRMII(thebits : TBits_1); inline;
  15198. procedure setSPEEDRMII(thebits : TBits_1); inline;
  15199. procedure setw(thebits : TBits_32); inline;
  15200. public
  15201. procedure clearRESETRMII; inline;
  15202. procedure clearSPEEDRMII; inline;
  15203. procedure setRESETRMII; inline;
  15204. procedure setSPEEDRMII; inline;
  15205. property RESETRMII : TBits_1 read getRESETRMII write setRESETRMII;
  15206. property SPEEDRMII : TBits_1 read getSPEEDRMII write setSPEEDRMII;
  15207. property w : TBits_32 read getw write setw;
  15208. end;
  15209. TETH_EMAC1TEST = record
  15210. private
  15211. function getSHRTQNTA : TBits_1; inline;
  15212. function getTESTBP : TBits_1; inline;
  15213. function getTESTPAUSE : TBits_1; inline;
  15214. function getw : TBits_32; inline;
  15215. procedure setSHRTQNTA(thebits : TBits_1); inline;
  15216. procedure setTESTBP(thebits : TBits_1); inline;
  15217. procedure setTESTPAUSE(thebits : TBits_1); inline;
  15218. procedure setw(thebits : TBits_32); inline;
  15219. public
  15220. procedure clearSHRTQNTA; inline;
  15221. procedure clearTESTBP; inline;
  15222. procedure clearTESTPAUSE; inline;
  15223. procedure setSHRTQNTA; inline;
  15224. procedure setTESTBP; inline;
  15225. procedure setTESTPAUSE; inline;
  15226. property SHRTQNTA : TBits_1 read getSHRTQNTA write setSHRTQNTA;
  15227. property TESTBP : TBits_1 read getTESTBP write setTESTBP;
  15228. property TESTPAUSE : TBits_1 read getTESTPAUSE write setTESTPAUSE;
  15229. property w : TBits_32 read getw write setw;
  15230. end;
  15231. TETH_EMACxTEST = record
  15232. private
  15233. function getSHRTQNTA : TBits_1; inline;
  15234. function getTESTBP : TBits_1; inline;
  15235. function getTESTPAUSE : TBits_1; inline;
  15236. function getw : TBits_32; inline;
  15237. procedure setSHRTQNTA(thebits : TBits_1); inline;
  15238. procedure setTESTBP(thebits : TBits_1); inline;
  15239. procedure setTESTPAUSE(thebits : TBits_1); inline;
  15240. procedure setw(thebits : TBits_32); inline;
  15241. public
  15242. procedure clearSHRTQNTA; inline;
  15243. procedure clearTESTBP; inline;
  15244. procedure clearTESTPAUSE; inline;
  15245. procedure setSHRTQNTA; inline;
  15246. procedure setTESTBP; inline;
  15247. procedure setTESTPAUSE; inline;
  15248. property SHRTQNTA : TBits_1 read getSHRTQNTA write setSHRTQNTA;
  15249. property TESTBP : TBits_1 read getTESTBP write setTESTBP;
  15250. property TESTPAUSE : TBits_1 read getTESTPAUSE write setTESTPAUSE;
  15251. property w : TBits_32 read getw write setw;
  15252. end;
  15253. TETH_EMAC1MCFG = record
  15254. private
  15255. function getCLKSEL : TBits_4; inline;
  15256. function getNOPRE : TBits_1; inline;
  15257. function getRESETMGMT : TBits_1; inline;
  15258. function getSCANINC : TBits_1; inline;
  15259. function getw : TBits_32; inline;
  15260. procedure setCLKSEL(thebits : TBits_4); inline;
  15261. procedure setNOPRE(thebits : TBits_1); inline;
  15262. procedure setRESETMGMT(thebits : TBits_1); inline;
  15263. procedure setSCANINC(thebits : TBits_1); inline;
  15264. procedure setw(thebits : TBits_32); inline;
  15265. public
  15266. procedure clearNOPRE; inline;
  15267. procedure clearRESETMGMT; inline;
  15268. procedure clearSCANINC; inline;
  15269. procedure setNOPRE; inline;
  15270. procedure setRESETMGMT; inline;
  15271. procedure setSCANINC; inline;
  15272. property CLKSEL : TBits_4 read getCLKSEL write setCLKSEL;
  15273. property NOPRE : TBits_1 read getNOPRE write setNOPRE;
  15274. property RESETMGMT : TBits_1 read getRESETMGMT write setRESETMGMT;
  15275. property SCANINC : TBits_1 read getSCANINC write setSCANINC;
  15276. property w : TBits_32 read getw write setw;
  15277. end;
  15278. TETH_EMACxMCFG = record
  15279. private
  15280. function getCLKSEL : TBits_4; inline;
  15281. function getNOPRE : TBits_1; inline;
  15282. function getRESETMGMT : TBits_1; inline;
  15283. function getSCANINC : TBits_1; inline;
  15284. function getw : TBits_32; inline;
  15285. procedure setCLKSEL(thebits : TBits_4); inline;
  15286. procedure setNOPRE(thebits : TBits_1); inline;
  15287. procedure setRESETMGMT(thebits : TBits_1); inline;
  15288. procedure setSCANINC(thebits : TBits_1); inline;
  15289. procedure setw(thebits : TBits_32); inline;
  15290. public
  15291. procedure clearNOPRE; inline;
  15292. procedure clearRESETMGMT; inline;
  15293. procedure clearSCANINC; inline;
  15294. procedure setNOPRE; inline;
  15295. procedure setRESETMGMT; inline;
  15296. procedure setSCANINC; inline;
  15297. property CLKSEL : TBits_4 read getCLKSEL write setCLKSEL;
  15298. property NOPRE : TBits_1 read getNOPRE write setNOPRE;
  15299. property RESETMGMT : TBits_1 read getRESETMGMT write setRESETMGMT;
  15300. property SCANINC : TBits_1 read getSCANINC write setSCANINC;
  15301. property w : TBits_32 read getw write setw;
  15302. end;
  15303. TETH_EMAC1MCMD = record
  15304. private
  15305. function getREAD : TBits_1; inline;
  15306. function getSCAN : TBits_1; inline;
  15307. function getw : TBits_32; inline;
  15308. procedure setREAD(thebits : TBits_1); inline;
  15309. procedure setSCAN(thebits : TBits_1); inline;
  15310. procedure setw(thebits : TBits_32); inline;
  15311. public
  15312. procedure clearREAD; inline;
  15313. procedure clearSCAN; inline;
  15314. procedure setREAD; inline;
  15315. procedure setSCAN; inline;
  15316. property READ : TBits_1 read getREAD write setREAD;
  15317. property SCAN : TBits_1 read getSCAN write setSCAN;
  15318. property w : TBits_32 read getw write setw;
  15319. end;
  15320. TETH_EMACxMCMD = record
  15321. private
  15322. function getREAD : TBits_1; inline;
  15323. function getSCAN : TBits_1; inline;
  15324. function getw : TBits_32; inline;
  15325. procedure setREAD(thebits : TBits_1); inline;
  15326. procedure setSCAN(thebits : TBits_1); inline;
  15327. procedure setw(thebits : TBits_32); inline;
  15328. public
  15329. procedure clearREAD; inline;
  15330. procedure clearSCAN; inline;
  15331. procedure setREAD; inline;
  15332. procedure setSCAN; inline;
  15333. property READ : TBits_1 read getREAD write setREAD;
  15334. property SCAN : TBits_1 read getSCAN write setSCAN;
  15335. property w : TBits_32 read getw write setw;
  15336. end;
  15337. TETH_EMAC1MADR = record
  15338. private
  15339. function getPHYADDR : TBits_5; inline;
  15340. function getREGADDR : TBits_5; inline;
  15341. function getw : TBits_32; inline;
  15342. procedure setPHYADDR(thebits : TBits_5); inline;
  15343. procedure setREGADDR(thebits : TBits_5); inline;
  15344. procedure setw(thebits : TBits_32); inline;
  15345. public
  15346. property PHYADDR : TBits_5 read getPHYADDR write setPHYADDR;
  15347. property REGADDR : TBits_5 read getREGADDR write setREGADDR;
  15348. property w : TBits_32 read getw write setw;
  15349. end;
  15350. TETH_EMACxMADR = record
  15351. private
  15352. function getPHYADDR : TBits_5; inline;
  15353. function getREGADDR : TBits_5; inline;
  15354. function getw : TBits_32; inline;
  15355. procedure setPHYADDR(thebits : TBits_5); inline;
  15356. procedure setREGADDR(thebits : TBits_5); inline;
  15357. procedure setw(thebits : TBits_32); inline;
  15358. public
  15359. property PHYADDR : TBits_5 read getPHYADDR write setPHYADDR;
  15360. property REGADDR : TBits_5 read getREGADDR write setREGADDR;
  15361. property w : TBits_32 read getw write setw;
  15362. end;
  15363. TETH_EMAC1MWTD = record
  15364. private
  15365. function getMWTD : TBits_16; inline;
  15366. function getw : TBits_32; inline;
  15367. procedure setMWTD(thebits : TBits_16); inline;
  15368. procedure setw(thebits : TBits_32); inline;
  15369. public
  15370. property MWTD : TBits_16 read getMWTD write setMWTD;
  15371. property w : TBits_32 read getw write setw;
  15372. end;
  15373. TETH_EMACxMWTD = record
  15374. private
  15375. function getMWTD : TBits_16; inline;
  15376. function getw : TBits_32; inline;
  15377. procedure setMWTD(thebits : TBits_16); inline;
  15378. procedure setw(thebits : TBits_32); inline;
  15379. public
  15380. property MWTD : TBits_16 read getMWTD write setMWTD;
  15381. property w : TBits_32 read getw write setw;
  15382. end;
  15383. TETH_EMAC1MRDD = record
  15384. private
  15385. function getMRDD : TBits_16; inline;
  15386. function getw : TBits_32; inline;
  15387. procedure setMRDD(thebits : TBits_16); inline;
  15388. procedure setw(thebits : TBits_32); inline;
  15389. public
  15390. property MRDD : TBits_16 read getMRDD write setMRDD;
  15391. property w : TBits_32 read getw write setw;
  15392. end;
  15393. TETH_EMACxMRDD = record
  15394. private
  15395. function getMRDD : TBits_16; inline;
  15396. function getw : TBits_32; inline;
  15397. procedure setMRDD(thebits : TBits_16); inline;
  15398. procedure setw(thebits : TBits_32); inline;
  15399. public
  15400. property MRDD : TBits_16 read getMRDD write setMRDD;
  15401. property w : TBits_32 read getw write setw;
  15402. end;
  15403. TETH_EMAC1MIND = record
  15404. private
  15405. function getLINKFAIL : TBits_1; inline;
  15406. function getMIIMBUSY : TBits_1; inline;
  15407. function getNOTVALID : TBits_1; inline;
  15408. function getSCAN : TBits_1; inline;
  15409. function getw : TBits_32; inline;
  15410. procedure setLINKFAIL(thebits : TBits_1); inline;
  15411. procedure setMIIMBUSY(thebits : TBits_1); inline;
  15412. procedure setNOTVALID(thebits : TBits_1); inline;
  15413. procedure setSCAN(thebits : TBits_1); inline;
  15414. procedure setw(thebits : TBits_32); inline;
  15415. public
  15416. procedure clearLINKFAIL; inline;
  15417. procedure clearMIIMBUSY; inline;
  15418. procedure clearNOTVALID; inline;
  15419. procedure clearSCAN; inline;
  15420. procedure setLINKFAIL; inline;
  15421. procedure setMIIMBUSY; inline;
  15422. procedure setNOTVALID; inline;
  15423. procedure setSCAN; inline;
  15424. property LINKFAIL : TBits_1 read getLINKFAIL write setLINKFAIL;
  15425. property MIIMBUSY : TBits_1 read getMIIMBUSY write setMIIMBUSY;
  15426. property NOTVALID : TBits_1 read getNOTVALID write setNOTVALID;
  15427. property SCAN : TBits_1 read getSCAN write setSCAN;
  15428. property w : TBits_32 read getw write setw;
  15429. end;
  15430. TETH_EMACxMIND = record
  15431. private
  15432. function getLINKFAIL : TBits_1; inline;
  15433. function getMIIMBUSY : TBits_1; inline;
  15434. function getNOTVALID : TBits_1; inline;
  15435. function getSCAN : TBits_1; inline;
  15436. function getw : TBits_32; inline;
  15437. procedure setLINKFAIL(thebits : TBits_1); inline;
  15438. procedure setMIIMBUSY(thebits : TBits_1); inline;
  15439. procedure setNOTVALID(thebits : TBits_1); inline;
  15440. procedure setSCAN(thebits : TBits_1); inline;
  15441. procedure setw(thebits : TBits_32); inline;
  15442. public
  15443. procedure clearLINKFAIL; inline;
  15444. procedure clearMIIMBUSY; inline;
  15445. procedure clearNOTVALID; inline;
  15446. procedure clearSCAN; inline;
  15447. procedure setLINKFAIL; inline;
  15448. procedure setMIIMBUSY; inline;
  15449. procedure setNOTVALID; inline;
  15450. procedure setSCAN; inline;
  15451. property LINKFAIL : TBits_1 read getLINKFAIL write setLINKFAIL;
  15452. property MIIMBUSY : TBits_1 read getMIIMBUSY write setMIIMBUSY;
  15453. property NOTVALID : TBits_1 read getNOTVALID write setNOTVALID;
  15454. property SCAN : TBits_1 read getSCAN write setSCAN;
  15455. property w : TBits_32 read getw write setw;
  15456. end;
  15457. TETH_EMAC1SA0 = record
  15458. private
  15459. function getSTNADDR5 : TBits_8; inline;
  15460. function getSTNADDR6 : TBits_8; inline;
  15461. function getw : TBits_32; inline;
  15462. procedure setSTNADDR5(thebits : TBits_8); inline;
  15463. procedure setSTNADDR6(thebits : TBits_8); inline;
  15464. procedure setw(thebits : TBits_32); inline;
  15465. public
  15466. property STNADDR5 : TBits_8 read getSTNADDR5 write setSTNADDR5;
  15467. property STNADDR6 : TBits_8 read getSTNADDR6 write setSTNADDR6;
  15468. property w : TBits_32 read getw write setw;
  15469. end;
  15470. TETH_EMACxSA0 = record
  15471. private
  15472. function getSTNADDR5 : TBits_8; inline;
  15473. function getSTNADDR6 : TBits_8; inline;
  15474. function getw : TBits_32; inline;
  15475. procedure setSTNADDR5(thebits : TBits_8); inline;
  15476. procedure setSTNADDR6(thebits : TBits_8); inline;
  15477. procedure setw(thebits : TBits_32); inline;
  15478. public
  15479. property STNADDR5 : TBits_8 read getSTNADDR5 write setSTNADDR5;
  15480. property STNADDR6 : TBits_8 read getSTNADDR6 write setSTNADDR6;
  15481. property w : TBits_32 read getw write setw;
  15482. end;
  15483. TETH_EMAC1SA1 = record
  15484. private
  15485. function getSTNADDR3 : TBits_8; inline;
  15486. function getSTNADDR4 : TBits_8; inline;
  15487. function getw : TBits_32; inline;
  15488. procedure setSTNADDR3(thebits : TBits_8); inline;
  15489. procedure setSTNADDR4(thebits : TBits_8); inline;
  15490. procedure setw(thebits : TBits_32); inline;
  15491. public
  15492. property STNADDR3 : TBits_8 read getSTNADDR3 write setSTNADDR3;
  15493. property STNADDR4 : TBits_8 read getSTNADDR4 write setSTNADDR4;
  15494. property w : TBits_32 read getw write setw;
  15495. end;
  15496. TETH_EMACxSA1 = record
  15497. private
  15498. function getSTNADDR3 : TBits_8; inline;
  15499. function getSTNADDR4 : TBits_8; inline;
  15500. function getw : TBits_32; inline;
  15501. procedure setSTNADDR3(thebits : TBits_8); inline;
  15502. procedure setSTNADDR4(thebits : TBits_8); inline;
  15503. procedure setw(thebits : TBits_32); inline;
  15504. public
  15505. property STNADDR3 : TBits_8 read getSTNADDR3 write setSTNADDR3;
  15506. property STNADDR4 : TBits_8 read getSTNADDR4 write setSTNADDR4;
  15507. property w : TBits_32 read getw write setw;
  15508. end;
  15509. TETH_EMAC1SA2 = record
  15510. private
  15511. function getSTNADDR1 : TBits_8; inline;
  15512. function getSTNADDR2 : TBits_8; inline;
  15513. function getw : TBits_32; inline;
  15514. procedure setSTNADDR1(thebits : TBits_8); inline;
  15515. procedure setSTNADDR2(thebits : TBits_8); inline;
  15516. procedure setw(thebits : TBits_32); inline;
  15517. public
  15518. property STNADDR1 : TBits_8 read getSTNADDR1 write setSTNADDR1;
  15519. property STNADDR2 : TBits_8 read getSTNADDR2 write setSTNADDR2;
  15520. property w : TBits_32 read getw write setw;
  15521. end;
  15522. TETH_EMACxSA2 = record
  15523. private
  15524. function getSTNADDR1 : TBits_8; inline;
  15525. function getSTNADDR2 : TBits_8; inline;
  15526. function getw : TBits_32; inline;
  15527. procedure setSTNADDR1(thebits : TBits_8); inline;
  15528. procedure setSTNADDR2(thebits : TBits_8); inline;
  15529. procedure setw(thebits : TBits_32); inline;
  15530. public
  15531. property STNADDR1 : TBits_8 read getSTNADDR1 write setSTNADDR1;
  15532. property STNADDR2 : TBits_8 read getSTNADDR2 write setSTNADDR2;
  15533. property w : TBits_32 read getw write setw;
  15534. end;
  15535. type
  15536. TETHRegisters = record
  15537. ETHCON1bits : TETH_ETHCON1;
  15538. ETHCON1 : longWord;
  15539. ETHCON1CLR : longWord;
  15540. ETHCON1SET : longWord;
  15541. ETHCON1INV : longWord;
  15542. ETHCON2bits : TETH_ETHCON2;
  15543. ETHCON2 : longWord;
  15544. ETHCON2CLR : longWord;
  15545. ETHCON2SET : longWord;
  15546. ETHCON2INV : longWord;
  15547. ETHTXSTbits : TETH_ETHTXST;
  15548. ETHTXST : longWord;
  15549. ETHTXSTCLR : longWord;
  15550. ETHTXSTSET : longWord;
  15551. ETHTXSTINV : longWord;
  15552. ETHRXSTbits : TETH_ETHRXST;
  15553. ETHRXST : longWord;
  15554. ETHRXSTCLR : longWord;
  15555. ETHRXSTSET : longWord;
  15556. ETHRXSTINV : longWord;
  15557. ETHHT0bits : TETH_ETHHT0;
  15558. ETHHT0 : longWord;
  15559. ETHHT0CLR : longWord;
  15560. ETHHT0SET : longWord;
  15561. ETHHT0INV : longWord;
  15562. ETHHT1bits : TETH_ETHHT1;
  15563. ETHHT1 : longWord;
  15564. ETHHT1CLR : longWord;
  15565. ETHHT1SET : longWord;
  15566. ETHHT1INV : longWord;
  15567. ETHPMM0bits : TETH_ETHPMM0;
  15568. ETHPMM0 : longWord;
  15569. ETHPMM0CLR : longWord;
  15570. ETHPMM0SET : longWord;
  15571. ETHPMM0INV : longWord;
  15572. ETHPMM1bits : TETH_ETHPMM1;
  15573. ETHPMM1 : longWord;
  15574. ETHPMM1CLR : longWord;
  15575. ETHPMM1SET : longWord;
  15576. ETHPMM1INV : longWord;
  15577. ETHPMCSbits : TETH_ETHPMCS;
  15578. ETHPMCS : longWord;
  15579. ETHPMCSCLR : longWord;
  15580. ETHPMCSSET : longWord;
  15581. ETHPMCSINV : longWord;
  15582. ETHPMObits : TETH_ETHPMO;
  15583. ETHPMO : longWord;
  15584. ETHPMOCLR : longWord;
  15585. ETHPMOSET : longWord;
  15586. ETHPMOINV : longWord;
  15587. ETHRXFCbits : TETH_ETHRXFC;
  15588. ETHRXFC : longWord;
  15589. ETHRXFCCLR : longWord;
  15590. ETHRXFCSET : longWord;
  15591. ETHRXFCINV : longWord;
  15592. ETHRXWMbits : TETH_ETHRXWM;
  15593. ETHRXWM : longWord;
  15594. ETHRXWMCLR : longWord;
  15595. ETHRXWMSET : longWord;
  15596. ETHRXWMINV : longWord;
  15597. ETHIENbits : TETH_ETHIEN;
  15598. ETHIEN : longWord;
  15599. ETHIENCLR : longWord;
  15600. ETHIENSET : longWord;
  15601. ETHIENINV : longWord;
  15602. ETHIRQbits : TETH_ETHIRQ;
  15603. ETHIRQ : longWord;
  15604. ETHIRQCLR : longWord;
  15605. ETHIRQSET : longWord;
  15606. ETHIRQINV : longWord;
  15607. ETHSTATbits : TETH_ETHSTAT;
  15608. ETHSTAT : longWord;
  15609. ETHSTATCLR : longWord;
  15610. ETHSTATSET : longWord;
  15611. ETHSTATINV : longWord;
  15612. ETHRXOVFLOWbits : TETH_ETHRXOVFLOW;
  15613. ETHRXOVFLOW : longWord;
  15614. ETHRXOVFLOWCLR : longWord;
  15615. ETHRXOVFLOWSET : longWord;
  15616. ETHRXOVFLOWINV : longWord;
  15617. ETHFRMTXOKbits : TETH_ETHFRMTXOK;
  15618. ETHFRMTXOK : longWord;
  15619. ETHFRMTXOKCLR : longWord;
  15620. ETHFRMTXOKSET : longWord;
  15621. ETHFRMTXOKINV : longWord;
  15622. ETHSCOLFRMbits : TETH_ETHSCOLFRM;
  15623. ETHSCOLFRM : longWord;
  15624. ETHSCOLFRMCLR : longWord;
  15625. ETHSCOLFRMSET : longWord;
  15626. ETHSCOLFRMINV : longWord;
  15627. ETHMCOLFRMbits : TETH_ETHMCOLFRM;
  15628. ETHMCOLFRM : longWord;
  15629. ETHMCOLFRMCLR : longWord;
  15630. ETHMCOLFRMSET : longWord;
  15631. ETHMCOLFRMINV : longWord;
  15632. ETHFRMRXOKbits : TETH_ETHFRMRXOK;
  15633. ETHFRMRXOK : longWord;
  15634. ETHFRMRXOKCLR : longWord;
  15635. ETHFRMRXOKSET : longWord;
  15636. ETHFRMRXOKINV : longWord;
  15637. ETHFCSERRbits : TETH_ETHFCSERR;
  15638. ETHFCSERR : longWord;
  15639. ETHFCSERRCLR : longWord;
  15640. ETHFCSERRSET : longWord;
  15641. ETHFCSERRINV : longWord;
  15642. ETHALGNERRbits : TETH_ETHALGNERR;
  15643. ETHALGNERR : longWord;
  15644. ETHALGNERRCLR : longWord;
  15645. ETHALGNERRSET : longWord;
  15646. ETHALGNERRINV : longWord;
  15647. EMAC1CFG1bits : TETH_EMAC1CFG1;
  15648. EMAC1CFG1 : longWord;
  15649. EMACxCFG1bits : TETH_EMACxCFG1;
  15650. EMACxCFG1 : longWord;
  15651. EMAC1CFG1CLR : longWord;
  15652. EMACxCFG1CLR : longWord;
  15653. EMAC1CFG1SET : longWord;
  15654. EMACxCFG1SET : longWord;
  15655. EMAC1CFG1INV : longWord;
  15656. EMACxCFG1INV : longWord;
  15657. EMAC1CFG2bits : TETH_EMAC1CFG2;
  15658. EMAC1CFG2 : longWord;
  15659. EMACxCFG2bits : TETH_EMACxCFG2;
  15660. EMACxCFG2 : longWord;
  15661. EMAC1CFG2CLR : longWord;
  15662. EMACxCFG2CLR : longWord;
  15663. EMAC1CFG2SET : longWord;
  15664. EMACxCFG2SET : longWord;
  15665. EMAC1CFG2INV : longWord;
  15666. EMACxCFG2INV : longWord;
  15667. EMAC1IPGTbits : TETH_EMAC1IPGT;
  15668. EMAC1IPGT : longWord;
  15669. EMACxIPGTbits : TETH_EMACxIPGT;
  15670. EMACxIPGT : longWord;
  15671. EMAC1IPGTCLR : longWord;
  15672. EMACxIPGTCLR : longWord;
  15673. EMAC1IPGTSET : longWord;
  15674. EMACxIPGTSET : longWord;
  15675. EMAC1IPGTINV : longWord;
  15676. EMACxIPGTINV : longWord;
  15677. EMAC1IPGRbits : TETH_EMAC1IPGR;
  15678. EMAC1IPGR : longWord;
  15679. EMACxIPGRbits : TETH_EMACxIPGR;
  15680. EMACxIPGR : longWord;
  15681. EMAC1IPGRCLR : longWord;
  15682. EMACxIPGRCLR : longWord;
  15683. EMAC1IPGRSET : longWord;
  15684. EMACxIPGRSET : longWord;
  15685. EMAC1IPGRINV : longWord;
  15686. EMACxIPGRINV : longWord;
  15687. EMAC1CLRTbits : TETH_EMAC1CLRT;
  15688. EMAC1CLRT : longWord;
  15689. EMACxCLRTbits : TETH_EMACxCLRT;
  15690. EMACxCLRT : longWord;
  15691. EMAC1CLRTCLR : longWord;
  15692. EMACxCLRTCLR : longWord;
  15693. EMAC1CLRTSET : longWord;
  15694. EMACxCLRTSET : longWord;
  15695. EMAC1CLRTINV : longWord;
  15696. EMACxCLRTINV : longWord;
  15697. EMAC1MAXFbits : TETH_EMAC1MAXF;
  15698. EMAC1MAXF : longWord;
  15699. EMACxMAXFbits : TETH_EMACxMAXF;
  15700. EMACxMAXF : longWord;
  15701. EMAC1MAXFCLR : longWord;
  15702. EMACxMAXFCLR : longWord;
  15703. EMAC1MAXFSET : longWord;
  15704. EMACxMAXFSET : longWord;
  15705. EMAC1MAXFINV : longWord;
  15706. EMACxMAXFINV : longWord;
  15707. EMAC1SUPPbits : TETH_EMAC1SUPP;
  15708. EMAC1SUPP : longWord;
  15709. EMACxSUPPbits : TETH_EMACxSUPP;
  15710. EMACxSUPP : longWord;
  15711. EMAC1SUPPCLR : longWord;
  15712. EMACxSUPPCLR : longWord;
  15713. EMAC1SUPPSET : longWord;
  15714. EMACxSUPPSET : longWord;
  15715. EMAC1SUPPINV : longWord;
  15716. EMACxSUPPINV : longWord;
  15717. EMAC1TESTbits : TETH_EMAC1TEST;
  15718. EMAC1TEST : longWord;
  15719. EMACxTESTbits : TETH_EMACxTEST;
  15720. EMACxTEST : longWord;
  15721. EMAC1TESTCLR : longWord;
  15722. EMACxTESTCLR : longWord;
  15723. EMAC1TESTSET : longWord;
  15724. EMACxTESTSET : longWord;
  15725. EMAC1TESTINV : longWord;
  15726. EMACxTESTINV : longWord;
  15727. EMAC1MCFGbits : TETH_EMAC1MCFG;
  15728. EMAC1MCFG : longWord;
  15729. EMACxMCFGbits : TETH_EMACxMCFG;
  15730. EMACxMCFG : longWord;
  15731. EMAC1MCFGCLR : longWord;
  15732. EMACxMCFGCLR : longWord;
  15733. EMAC1MCFGSET : longWord;
  15734. EMACxMCFGSET : longWord;
  15735. EMAC1MCFGINV : longWord;
  15736. EMACxMCFGINV : longWord;
  15737. EMAC1MCMDbits : TETH_EMAC1MCMD;
  15738. EMAC1MCMD : longWord;
  15739. EMACxMCMDbits : TETH_EMACxMCMD;
  15740. EMACxMCMD : longWord;
  15741. EMAC1MCMDCLR : longWord;
  15742. EMACxMCMDCLR : longWord;
  15743. EMAC1MCMDSET : longWord;
  15744. EMACxMCMDSET : longWord;
  15745. EMAC1MCMDINV : longWord;
  15746. EMACxMCMDINV : longWord;
  15747. EMAC1MADRbits : TETH_EMAC1MADR;
  15748. EMAC1MADR : longWord;
  15749. EMACxMADRbits : TETH_EMACxMADR;
  15750. EMACxMADR : longWord;
  15751. EMAC1MADRCLR : longWord;
  15752. EMACxMADRCLR : longWord;
  15753. EMAC1MADRSET : longWord;
  15754. EMACxMADRSET : longWord;
  15755. EMAC1MADRINV : longWord;
  15756. EMACxMADRINV : longWord;
  15757. EMAC1MWTDbits : TETH_EMAC1MWTD;
  15758. EMAC1MWTD : longWord;
  15759. EMACxMWTDbits : TETH_EMACxMWTD;
  15760. EMACxMWTD : longWord;
  15761. EMAC1MWTDCLR : longWord;
  15762. EMACxMWTDCLR : longWord;
  15763. EMAC1MWTDSET : longWord;
  15764. EMACxMWTDSET : longWord;
  15765. EMAC1MWTDINV : longWord;
  15766. EMACxMWTDINV : longWord;
  15767. EMAC1MRDDbits : TETH_EMAC1MRDD;
  15768. EMAC1MRDD : longWord;
  15769. EMACxMRDDbits : TETH_EMACxMRDD;
  15770. EMACxMRDD : longWord;
  15771. EMAC1MRDDCLR : longWord;
  15772. EMACxMRDDCLR : longWord;
  15773. EMAC1MRDDSET : longWord;
  15774. EMACxMRDDSET : longWord;
  15775. EMAC1MRDDINV : longWord;
  15776. EMACxMRDDINV : longWord;
  15777. EMAC1MINDbits : TETH_EMAC1MIND;
  15778. EMAC1MIND : longWord;
  15779. EMACxMINDbits : TETH_EMACxMIND;
  15780. EMACxMIND : longWord;
  15781. EMAC1MINDCLR : longWord;
  15782. EMACxMINDCLR : longWord;
  15783. EMAC1MINDSET : longWord;
  15784. EMACxMINDSET : longWord;
  15785. EMAC1MINDINV : longWord;
  15786. EMACxMINDINV : longWord;
  15787. EMAC1SA0bits : TETH_EMAC1SA0;
  15788. EMAC1SA0 : longWord;
  15789. EMACxSA0bits : TETH_EMACxSA0;
  15790. EMACxSA0 : longWord;
  15791. EMAC1SA0CLR : longWord;
  15792. EMACxSA0CLR : longWord;
  15793. EMAC1SA0SET : longWord;
  15794. EMACxSA0SET : longWord;
  15795. EMAC1SA0INV : longWord;
  15796. EMACxSA0INV : longWord;
  15797. EMAC1SA1bits : TETH_EMAC1SA1;
  15798. EMAC1SA1 : longWord;
  15799. EMACxSA1bits : TETH_EMACxSA1;
  15800. EMACxSA1 : longWord;
  15801. EMAC1SA1CLR : longWord;
  15802. EMACxSA1CLR : longWord;
  15803. EMAC1SA1SET : longWord;
  15804. EMACxSA1SET : longWord;
  15805. EMAC1SA1INV : longWord;
  15806. EMACxSA1INV : longWord;
  15807. EMAC1SA2bits : TETH_EMAC1SA2;
  15808. EMAC1SA2 : longWord;
  15809. EMACxSA2bits : TETH_EMACxSA2;
  15810. EMACxSA2 : longWord;
  15811. EMAC1SA2CLR : longWord;
  15812. EMACxSA2CLR : longWord;
  15813. EMAC1SA2SET : longWord;
  15814. EMACxSA2SET : longWord;
  15815. EMAC1SA2INV : longWord;
  15816. EMACxSA2INV : longWord;
  15817. end;
  15818. TCAN1_C1CON = record
  15819. private
  15820. function getABAT : TBits_1; inline;
  15821. function getCANBUSY : TBits_1; inline;
  15822. function getCANCAP : TBits_1; inline;
  15823. function getDNCNT : TBits_5; inline;
  15824. function getON : TBits_1; inline;
  15825. function getOPMOD : TBits_3; inline;
  15826. function getREQOP : TBits_3; inline;
  15827. function getSIDL : TBits_1; inline;
  15828. function getw : TBits_32; inline;
  15829. procedure setABAT(thebits : TBits_1); inline;
  15830. procedure setCANBUSY(thebits : TBits_1); inline;
  15831. procedure setCANCAP(thebits : TBits_1); inline;
  15832. procedure setDNCNT(thebits : TBits_5); inline;
  15833. procedure setON(thebits : TBits_1); inline;
  15834. procedure setOPMOD(thebits : TBits_3); inline;
  15835. procedure setREQOP(thebits : TBits_3); inline;
  15836. procedure setSIDL(thebits : TBits_1); inline;
  15837. procedure setw(thebits : TBits_32); inline;
  15838. public
  15839. procedure clearABAT; inline;
  15840. procedure clearCANBUSY; inline;
  15841. procedure clearCANCAP; inline;
  15842. procedure clearON; inline;
  15843. procedure clearSIDL; inline;
  15844. procedure setABAT; inline;
  15845. procedure setCANBUSY; inline;
  15846. procedure setCANCAP; inline;
  15847. procedure setON; inline;
  15848. procedure setSIDL; inline;
  15849. property ABAT : TBits_1 read getABAT write setABAT;
  15850. property CANBUSY : TBits_1 read getCANBUSY write setCANBUSY;
  15851. property CANCAP : TBits_1 read getCANCAP write setCANCAP;
  15852. property DNCNT : TBits_5 read getDNCNT write setDNCNT;
  15853. property ON : TBits_1 read getON write setON;
  15854. property OPMOD : TBits_3 read getOPMOD write setOPMOD;
  15855. property REQOP : TBits_3 read getREQOP write setREQOP;
  15856. property SIDL : TBits_1 read getSIDL write setSIDL;
  15857. property w : TBits_32 read getw write setw;
  15858. end;
  15859. TCAN1_C1CFG = record
  15860. private
  15861. function getBRP : TBits_6; inline;
  15862. function getPRSEG : TBits_3; inline;
  15863. function getSAM : TBits_1; inline;
  15864. function getSEG1PH : TBits_3; inline;
  15865. function getSEG2PH : TBits_3; inline;
  15866. function getSEG2PHTS : TBits_1; inline;
  15867. function getSJW : TBits_2; inline;
  15868. function getWAKFIL : TBits_1; inline;
  15869. function getw : TBits_32; inline;
  15870. procedure setBRP(thebits : TBits_6); inline;
  15871. procedure setPRSEG(thebits : TBits_3); inline;
  15872. procedure setSAM(thebits : TBits_1); inline;
  15873. procedure setSEG1PH(thebits : TBits_3); inline;
  15874. procedure setSEG2PH(thebits : TBits_3); inline;
  15875. procedure setSEG2PHTS(thebits : TBits_1); inline;
  15876. procedure setSJW(thebits : TBits_2); inline;
  15877. procedure setWAKFIL(thebits : TBits_1); inline;
  15878. procedure setw(thebits : TBits_32); inline;
  15879. public
  15880. procedure clearSAM; inline;
  15881. procedure clearSEG2PHTS; inline;
  15882. procedure clearWAKFIL; inline;
  15883. procedure setSAM; inline;
  15884. procedure setSEG2PHTS; inline;
  15885. procedure setWAKFIL; inline;
  15886. property BRP : TBits_6 read getBRP write setBRP;
  15887. property PRSEG : TBits_3 read getPRSEG write setPRSEG;
  15888. property SAM : TBits_1 read getSAM write setSAM;
  15889. property SEG1PH : TBits_3 read getSEG1PH write setSEG1PH;
  15890. property SEG2PH : TBits_3 read getSEG2PH write setSEG2PH;
  15891. property SEG2PHTS : TBits_1 read getSEG2PHTS write setSEG2PHTS;
  15892. property SJW : TBits_2 read getSJW write setSJW;
  15893. property WAKFIL : TBits_1 read getWAKFIL write setWAKFIL;
  15894. property w : TBits_32 read getw write setw;
  15895. end;
  15896. TCAN1_C1INT = record
  15897. private
  15898. function getCERRIE : TBits_1; inline;
  15899. function getCERRIF : TBits_1; inline;
  15900. function getCTMRIE : TBits_1; inline;
  15901. function getCTMRIF : TBits_1; inline;
  15902. function getIVRIE : TBits_1; inline;
  15903. function getIVRIF : TBits_1; inline;
  15904. function getMODIE : TBits_1; inline;
  15905. function getMODIF : TBits_1; inline;
  15906. function getRBIE : TBits_1; inline;
  15907. function getRBIF : TBits_1; inline;
  15908. function getRBOVIE : TBits_1; inline;
  15909. function getRBOVIF : TBits_1; inline;
  15910. function getSERRIE : TBits_1; inline;
  15911. function getSERRIF : TBits_1; inline;
  15912. function getTBIE : TBits_1; inline;
  15913. function getTBIF : TBits_1; inline;
  15914. function getWAKIE : TBits_1; inline;
  15915. function getWAKIF : TBits_1; inline;
  15916. function getw : TBits_32; inline;
  15917. procedure setCERRIE(thebits : TBits_1); inline;
  15918. procedure setCERRIF(thebits : TBits_1); inline;
  15919. procedure setCTMRIE(thebits : TBits_1); inline;
  15920. procedure setCTMRIF(thebits : TBits_1); inline;
  15921. procedure setIVRIE(thebits : TBits_1); inline;
  15922. procedure setIVRIF(thebits : TBits_1); inline;
  15923. procedure setMODIE(thebits : TBits_1); inline;
  15924. procedure setMODIF(thebits : TBits_1); inline;
  15925. procedure setRBIE(thebits : TBits_1); inline;
  15926. procedure setRBIF(thebits : TBits_1); inline;
  15927. procedure setRBOVIE(thebits : TBits_1); inline;
  15928. procedure setRBOVIF(thebits : TBits_1); inline;
  15929. procedure setSERRIE(thebits : TBits_1); inline;
  15930. procedure setSERRIF(thebits : TBits_1); inline;
  15931. procedure setTBIE(thebits : TBits_1); inline;
  15932. procedure setTBIF(thebits : TBits_1); inline;
  15933. procedure setWAKIE(thebits : TBits_1); inline;
  15934. procedure setWAKIF(thebits : TBits_1); inline;
  15935. procedure setw(thebits : TBits_32); inline;
  15936. public
  15937. procedure clearCERRIE; inline;
  15938. procedure clearCERRIF; inline;
  15939. procedure clearCTMRIE; inline;
  15940. procedure clearCTMRIF; inline;
  15941. procedure clearIVRIE; inline;
  15942. procedure clearIVRIF; inline;
  15943. procedure clearMODIE; inline;
  15944. procedure clearMODIF; inline;
  15945. procedure clearRBIE; inline;
  15946. procedure clearRBIF; inline;
  15947. procedure clearRBOVIE; inline;
  15948. procedure clearRBOVIF; inline;
  15949. procedure clearSERRIE; inline;
  15950. procedure clearSERRIF; inline;
  15951. procedure clearTBIE; inline;
  15952. procedure clearTBIF; inline;
  15953. procedure clearWAKIE; inline;
  15954. procedure clearWAKIF; inline;
  15955. procedure setCERRIE; inline;
  15956. procedure setCERRIF; inline;
  15957. procedure setCTMRIE; inline;
  15958. procedure setCTMRIF; inline;
  15959. procedure setIVRIE; inline;
  15960. procedure setIVRIF; inline;
  15961. procedure setMODIE; inline;
  15962. procedure setMODIF; inline;
  15963. procedure setRBIE; inline;
  15964. procedure setRBIF; inline;
  15965. procedure setRBOVIE; inline;
  15966. procedure setRBOVIF; inline;
  15967. procedure setSERRIE; inline;
  15968. procedure setSERRIF; inline;
  15969. procedure setTBIE; inline;
  15970. procedure setTBIF; inline;
  15971. procedure setWAKIE; inline;
  15972. procedure setWAKIF; inline;
  15973. property CERRIE : TBits_1 read getCERRIE write setCERRIE;
  15974. property CERRIF : TBits_1 read getCERRIF write setCERRIF;
  15975. property CTMRIE : TBits_1 read getCTMRIE write setCTMRIE;
  15976. property CTMRIF : TBits_1 read getCTMRIF write setCTMRIF;
  15977. property IVRIE : TBits_1 read getIVRIE write setIVRIE;
  15978. property IVRIF : TBits_1 read getIVRIF write setIVRIF;
  15979. property MODIE : TBits_1 read getMODIE write setMODIE;
  15980. property MODIF : TBits_1 read getMODIF write setMODIF;
  15981. property RBIE : TBits_1 read getRBIE write setRBIE;
  15982. property RBIF : TBits_1 read getRBIF write setRBIF;
  15983. property RBOVIE : TBits_1 read getRBOVIE write setRBOVIE;
  15984. property RBOVIF : TBits_1 read getRBOVIF write setRBOVIF;
  15985. property SERRIE : TBits_1 read getSERRIE write setSERRIE;
  15986. property SERRIF : TBits_1 read getSERRIF write setSERRIF;
  15987. property TBIE : TBits_1 read getTBIE write setTBIE;
  15988. property TBIF : TBits_1 read getTBIF write setTBIF;
  15989. property WAKIE : TBits_1 read getWAKIE write setWAKIE;
  15990. property WAKIF : TBits_1 read getWAKIF write setWAKIF;
  15991. property w : TBits_32 read getw write setw;
  15992. end;
  15993. TCAN1_C1VEC = record
  15994. private
  15995. function getFILHIT : TBits_5; inline;
  15996. function getICODE : TBits_7; inline;
  15997. function getw : TBits_32; inline;
  15998. procedure setFILHIT(thebits : TBits_5); inline;
  15999. procedure setICODE(thebits : TBits_7); inline;
  16000. procedure setw(thebits : TBits_32); inline;
  16001. public
  16002. property FILHIT : TBits_5 read getFILHIT write setFILHIT;
  16003. property ICODE : TBits_7 read getICODE write setICODE;
  16004. property w : TBits_32 read getw write setw;
  16005. end;
  16006. TCAN1_C1TREC = record
  16007. private
  16008. function getEWARN : TBits_1; inline;
  16009. function getRERRCNT : TBits_8; inline;
  16010. function getRXBP : TBits_1; inline;
  16011. function getRXWARN : TBits_1; inline;
  16012. function getTERRCNT : TBits_8; inline;
  16013. function getTXBO : TBits_1; inline;
  16014. function getTXBP : TBits_1; inline;
  16015. function getTXWARN : TBits_1; inline;
  16016. function getw : TBits_32; inline;
  16017. procedure setEWARN(thebits : TBits_1); inline;
  16018. procedure setRERRCNT(thebits : TBits_8); inline;
  16019. procedure setRXBP(thebits : TBits_1); inline;
  16020. procedure setRXWARN(thebits : TBits_1); inline;
  16021. procedure setTERRCNT(thebits : TBits_8); inline;
  16022. procedure setTXBO(thebits : TBits_1); inline;
  16023. procedure setTXBP(thebits : TBits_1); inline;
  16024. procedure setTXWARN(thebits : TBits_1); inline;
  16025. procedure setw(thebits : TBits_32); inline;
  16026. public
  16027. procedure clearEWARN; inline;
  16028. procedure clearRXBP; inline;
  16029. procedure clearRXWARN; inline;
  16030. procedure clearTXBO; inline;
  16031. procedure clearTXBP; inline;
  16032. procedure clearTXWARN; inline;
  16033. procedure setEWARN; inline;
  16034. procedure setRXBP; inline;
  16035. procedure setRXWARN; inline;
  16036. procedure setTXBO; inline;
  16037. procedure setTXBP; inline;
  16038. procedure setTXWARN; inline;
  16039. property EWARN : TBits_1 read getEWARN write setEWARN;
  16040. property RERRCNT : TBits_8 read getRERRCNT write setRERRCNT;
  16041. property RXBP : TBits_1 read getRXBP write setRXBP;
  16042. property RXWARN : TBits_1 read getRXWARN write setRXWARN;
  16043. property TERRCNT : TBits_8 read getTERRCNT write setTERRCNT;
  16044. property TXBO : TBits_1 read getTXBO write setTXBO;
  16045. property TXBP : TBits_1 read getTXBP write setTXBP;
  16046. property TXWARN : TBits_1 read getTXWARN write setTXWARN;
  16047. property w : TBits_32 read getw write setw;
  16048. end;
  16049. TCAN1_C1FSTAT = record
  16050. private
  16051. function getFIFOIP : TBits_32; inline;
  16052. function getFIFOIP0 : TBits_1; inline;
  16053. function getFIFOIP1 : TBits_1; inline;
  16054. function getFIFOIP10 : TBits_1; inline;
  16055. function getFIFOIP11 : TBits_1; inline;
  16056. function getFIFOIP12 : TBits_1; inline;
  16057. function getFIFOIP13 : TBits_1; inline;
  16058. function getFIFOIP14 : TBits_1; inline;
  16059. function getFIFOIP15 : TBits_1; inline;
  16060. function getFIFOIP16 : TBits_1; inline;
  16061. function getFIFOIP17 : TBits_1; inline;
  16062. function getFIFOIP18 : TBits_1; inline;
  16063. function getFIFOIP19 : TBits_1; inline;
  16064. function getFIFOIP2 : TBits_1; inline;
  16065. function getFIFOIP20 : TBits_1; inline;
  16066. function getFIFOIP21 : TBits_1; inline;
  16067. function getFIFOIP22 : TBits_1; inline;
  16068. function getFIFOIP23 : TBits_1; inline;
  16069. function getFIFOIP24 : TBits_1; inline;
  16070. function getFIFOIP25 : TBits_1; inline;
  16071. function getFIFOIP26 : TBits_1; inline;
  16072. function getFIFOIP27 : TBits_1; inline;
  16073. function getFIFOIP28 : TBits_1; inline;
  16074. function getFIFOIP29 : TBits_1; inline;
  16075. function getFIFOIP3 : TBits_1; inline;
  16076. function getFIFOIP30 : TBits_1; inline;
  16077. function getFIFOIP31 : TBits_1; inline;
  16078. function getFIFOIP4 : TBits_1; inline;
  16079. function getFIFOIP5 : TBits_1; inline;
  16080. function getFIFOIP6 : TBits_1; inline;
  16081. function getFIFOIP7 : TBits_1; inline;
  16082. function getFIFOIP8 : TBits_1; inline;
  16083. function getFIFOIP9 : TBits_1; inline;
  16084. function getw : TBits_32; inline;
  16085. procedure setFIFOIP(thebits : TBits_32); inline;
  16086. procedure setFIFOIP0(thebits : TBits_1); inline;
  16087. procedure setFIFOIP1(thebits : TBits_1); inline;
  16088. procedure setFIFOIP10(thebits : TBits_1); inline;
  16089. procedure setFIFOIP11(thebits : TBits_1); inline;
  16090. procedure setFIFOIP12(thebits : TBits_1); inline;
  16091. procedure setFIFOIP13(thebits : TBits_1); inline;
  16092. procedure setFIFOIP14(thebits : TBits_1); inline;
  16093. procedure setFIFOIP15(thebits : TBits_1); inline;
  16094. procedure setFIFOIP16(thebits : TBits_1); inline;
  16095. procedure setFIFOIP17(thebits : TBits_1); inline;
  16096. procedure setFIFOIP18(thebits : TBits_1); inline;
  16097. procedure setFIFOIP19(thebits : TBits_1); inline;
  16098. procedure setFIFOIP2(thebits : TBits_1); inline;
  16099. procedure setFIFOIP20(thebits : TBits_1); inline;
  16100. procedure setFIFOIP21(thebits : TBits_1); inline;
  16101. procedure setFIFOIP22(thebits : TBits_1); inline;
  16102. procedure setFIFOIP23(thebits : TBits_1); inline;
  16103. procedure setFIFOIP24(thebits : TBits_1); inline;
  16104. procedure setFIFOIP25(thebits : TBits_1); inline;
  16105. procedure setFIFOIP26(thebits : TBits_1); inline;
  16106. procedure setFIFOIP27(thebits : TBits_1); inline;
  16107. procedure setFIFOIP28(thebits : TBits_1); inline;
  16108. procedure setFIFOIP29(thebits : TBits_1); inline;
  16109. procedure setFIFOIP3(thebits : TBits_1); inline;
  16110. procedure setFIFOIP30(thebits : TBits_1); inline;
  16111. procedure setFIFOIP31(thebits : TBits_1); inline;
  16112. procedure setFIFOIP4(thebits : TBits_1); inline;
  16113. procedure setFIFOIP5(thebits : TBits_1); inline;
  16114. procedure setFIFOIP6(thebits : TBits_1); inline;
  16115. procedure setFIFOIP7(thebits : TBits_1); inline;
  16116. procedure setFIFOIP8(thebits : TBits_1); inline;
  16117. procedure setFIFOIP9(thebits : TBits_1); inline;
  16118. procedure setw(thebits : TBits_32); inline;
  16119. public
  16120. procedure clearFIFOIP0; inline;
  16121. procedure clearFIFOIP10; inline;
  16122. procedure clearFIFOIP11; inline;
  16123. procedure clearFIFOIP12; inline;
  16124. procedure clearFIFOIP13; inline;
  16125. procedure clearFIFOIP14; inline;
  16126. procedure clearFIFOIP15; inline;
  16127. procedure clearFIFOIP16; inline;
  16128. procedure clearFIFOIP17; inline;
  16129. procedure clearFIFOIP18; inline;
  16130. procedure clearFIFOIP19; inline;
  16131. procedure clearFIFOIP1; inline;
  16132. procedure clearFIFOIP20; inline;
  16133. procedure clearFIFOIP21; inline;
  16134. procedure clearFIFOIP22; inline;
  16135. procedure clearFIFOIP23; inline;
  16136. procedure clearFIFOIP24; inline;
  16137. procedure clearFIFOIP25; inline;
  16138. procedure clearFIFOIP26; inline;
  16139. procedure clearFIFOIP27; inline;
  16140. procedure clearFIFOIP28; inline;
  16141. procedure clearFIFOIP29; inline;
  16142. procedure clearFIFOIP2; inline;
  16143. procedure clearFIFOIP30; inline;
  16144. procedure clearFIFOIP31; inline;
  16145. procedure clearFIFOIP3; inline;
  16146. procedure clearFIFOIP4; inline;
  16147. procedure clearFIFOIP5; inline;
  16148. procedure clearFIFOIP6; inline;
  16149. procedure clearFIFOIP7; inline;
  16150. procedure clearFIFOIP8; inline;
  16151. procedure clearFIFOIP9; inline;
  16152. procedure setFIFOIP0; inline;
  16153. procedure setFIFOIP10; inline;
  16154. procedure setFIFOIP11; inline;
  16155. procedure setFIFOIP12; inline;
  16156. procedure setFIFOIP13; inline;
  16157. procedure setFIFOIP14; inline;
  16158. procedure setFIFOIP15; inline;
  16159. procedure setFIFOIP16; inline;
  16160. procedure setFIFOIP17; inline;
  16161. procedure setFIFOIP18; inline;
  16162. procedure setFIFOIP19; inline;
  16163. procedure setFIFOIP1; inline;
  16164. procedure setFIFOIP20; inline;
  16165. procedure setFIFOIP21; inline;
  16166. procedure setFIFOIP22; inline;
  16167. procedure setFIFOIP23; inline;
  16168. procedure setFIFOIP24; inline;
  16169. procedure setFIFOIP25; inline;
  16170. procedure setFIFOIP26; inline;
  16171. procedure setFIFOIP27; inline;
  16172. procedure setFIFOIP28; inline;
  16173. procedure setFIFOIP29; inline;
  16174. procedure setFIFOIP2; inline;
  16175. procedure setFIFOIP30; inline;
  16176. procedure setFIFOIP31; inline;
  16177. procedure setFIFOIP3; inline;
  16178. procedure setFIFOIP4; inline;
  16179. procedure setFIFOIP5; inline;
  16180. procedure setFIFOIP6; inline;
  16181. procedure setFIFOIP7; inline;
  16182. procedure setFIFOIP8; inline;
  16183. procedure setFIFOIP9; inline;
  16184. property FIFOIP : TBits_32 read getFIFOIP write setFIFOIP;
  16185. property FIFOIP0 : TBits_1 read getFIFOIP0 write setFIFOIP0;
  16186. property FIFOIP1 : TBits_1 read getFIFOIP1 write setFIFOIP1;
  16187. property FIFOIP10 : TBits_1 read getFIFOIP10 write setFIFOIP10;
  16188. property FIFOIP11 : TBits_1 read getFIFOIP11 write setFIFOIP11;
  16189. property FIFOIP12 : TBits_1 read getFIFOIP12 write setFIFOIP12;
  16190. property FIFOIP13 : TBits_1 read getFIFOIP13 write setFIFOIP13;
  16191. property FIFOIP14 : TBits_1 read getFIFOIP14 write setFIFOIP14;
  16192. property FIFOIP15 : TBits_1 read getFIFOIP15 write setFIFOIP15;
  16193. property FIFOIP16 : TBits_1 read getFIFOIP16 write setFIFOIP16;
  16194. property FIFOIP17 : TBits_1 read getFIFOIP17 write setFIFOIP17;
  16195. property FIFOIP18 : TBits_1 read getFIFOIP18 write setFIFOIP18;
  16196. property FIFOIP19 : TBits_1 read getFIFOIP19 write setFIFOIP19;
  16197. property FIFOIP2 : TBits_1 read getFIFOIP2 write setFIFOIP2;
  16198. property FIFOIP20 : TBits_1 read getFIFOIP20 write setFIFOIP20;
  16199. property FIFOIP21 : TBits_1 read getFIFOIP21 write setFIFOIP21;
  16200. property FIFOIP22 : TBits_1 read getFIFOIP22 write setFIFOIP22;
  16201. property FIFOIP23 : TBits_1 read getFIFOIP23 write setFIFOIP23;
  16202. property FIFOIP24 : TBits_1 read getFIFOIP24 write setFIFOIP24;
  16203. property FIFOIP25 : TBits_1 read getFIFOIP25 write setFIFOIP25;
  16204. property FIFOIP26 : TBits_1 read getFIFOIP26 write setFIFOIP26;
  16205. property FIFOIP27 : TBits_1 read getFIFOIP27 write setFIFOIP27;
  16206. property FIFOIP28 : TBits_1 read getFIFOIP28 write setFIFOIP28;
  16207. property FIFOIP29 : TBits_1 read getFIFOIP29 write setFIFOIP29;
  16208. property FIFOIP3 : TBits_1 read getFIFOIP3 write setFIFOIP3;
  16209. property FIFOIP30 : TBits_1 read getFIFOIP30 write setFIFOIP30;
  16210. property FIFOIP31 : TBits_1 read getFIFOIP31 write setFIFOIP31;
  16211. property FIFOIP4 : TBits_1 read getFIFOIP4 write setFIFOIP4;
  16212. property FIFOIP5 : TBits_1 read getFIFOIP5 write setFIFOIP5;
  16213. property FIFOIP6 : TBits_1 read getFIFOIP6 write setFIFOIP6;
  16214. property FIFOIP7 : TBits_1 read getFIFOIP7 write setFIFOIP7;
  16215. property FIFOIP8 : TBits_1 read getFIFOIP8 write setFIFOIP8;
  16216. property FIFOIP9 : TBits_1 read getFIFOIP9 write setFIFOIP9;
  16217. property w : TBits_32 read getw write setw;
  16218. end;
  16219. TCAN1_C1RXOVF = record
  16220. private
  16221. function getRXOVF : TBits_32; inline;
  16222. function getRXOVF0 : TBits_1; inline;
  16223. function getRXOVF1 : TBits_1; inline;
  16224. function getRXOVF10 : TBits_1; inline;
  16225. function getRXOVF11 : TBits_1; inline;
  16226. function getRXOVF12 : TBits_1; inline;
  16227. function getRXOVF13 : TBits_1; inline;
  16228. function getRXOVF14 : TBits_1; inline;
  16229. function getRXOVF15 : TBits_1; inline;
  16230. function getRXOVF16 : TBits_1; inline;
  16231. function getRXOVF17 : TBits_1; inline;
  16232. function getRXOVF18 : TBits_1; inline;
  16233. function getRXOVF19 : TBits_1; inline;
  16234. function getRXOVF2 : TBits_1; inline;
  16235. function getRXOVF20 : TBits_1; inline;
  16236. function getRXOVF21 : TBits_1; inline;
  16237. function getRXOVF22 : TBits_1; inline;
  16238. function getRXOVF23 : TBits_1; inline;
  16239. function getRXOVF24 : TBits_1; inline;
  16240. function getRXOVF25 : TBits_1; inline;
  16241. function getRXOVF26 : TBits_1; inline;
  16242. function getRXOVF27 : TBits_1; inline;
  16243. function getRXOVF28 : TBits_1; inline;
  16244. function getRXOVF29 : TBits_1; inline;
  16245. function getRXOVF3 : TBits_1; inline;
  16246. function getRXOVF30 : TBits_1; inline;
  16247. function getRXOVF31 : TBits_1; inline;
  16248. function getRXOVF4 : TBits_1; inline;
  16249. function getRXOVF5 : TBits_1; inline;
  16250. function getRXOVF6 : TBits_1; inline;
  16251. function getRXOVF7 : TBits_1; inline;
  16252. function getRXOVF8 : TBits_1; inline;
  16253. function getRXOVF9 : TBits_1; inline;
  16254. function getw : TBits_32; inline;
  16255. procedure setRXOVF(thebits : TBits_32); inline;
  16256. procedure setRXOVF0(thebits : TBits_1); inline;
  16257. procedure setRXOVF1(thebits : TBits_1); inline;
  16258. procedure setRXOVF10(thebits : TBits_1); inline;
  16259. procedure setRXOVF11(thebits : TBits_1); inline;
  16260. procedure setRXOVF12(thebits : TBits_1); inline;
  16261. procedure setRXOVF13(thebits : TBits_1); inline;
  16262. procedure setRXOVF14(thebits : TBits_1); inline;
  16263. procedure setRXOVF15(thebits : TBits_1); inline;
  16264. procedure setRXOVF16(thebits : TBits_1); inline;
  16265. procedure setRXOVF17(thebits : TBits_1); inline;
  16266. procedure setRXOVF18(thebits : TBits_1); inline;
  16267. procedure setRXOVF19(thebits : TBits_1); inline;
  16268. procedure setRXOVF2(thebits : TBits_1); inline;
  16269. procedure setRXOVF20(thebits : TBits_1); inline;
  16270. procedure setRXOVF21(thebits : TBits_1); inline;
  16271. procedure setRXOVF22(thebits : TBits_1); inline;
  16272. procedure setRXOVF23(thebits : TBits_1); inline;
  16273. procedure setRXOVF24(thebits : TBits_1); inline;
  16274. procedure setRXOVF25(thebits : TBits_1); inline;
  16275. procedure setRXOVF26(thebits : TBits_1); inline;
  16276. procedure setRXOVF27(thebits : TBits_1); inline;
  16277. procedure setRXOVF28(thebits : TBits_1); inline;
  16278. procedure setRXOVF29(thebits : TBits_1); inline;
  16279. procedure setRXOVF3(thebits : TBits_1); inline;
  16280. procedure setRXOVF30(thebits : TBits_1); inline;
  16281. procedure setRXOVF31(thebits : TBits_1); inline;
  16282. procedure setRXOVF4(thebits : TBits_1); inline;
  16283. procedure setRXOVF5(thebits : TBits_1); inline;
  16284. procedure setRXOVF6(thebits : TBits_1); inline;
  16285. procedure setRXOVF7(thebits : TBits_1); inline;
  16286. procedure setRXOVF8(thebits : TBits_1); inline;
  16287. procedure setRXOVF9(thebits : TBits_1); inline;
  16288. procedure setw(thebits : TBits_32); inline;
  16289. public
  16290. procedure clearRXOVF0; inline;
  16291. procedure clearRXOVF10; inline;
  16292. procedure clearRXOVF11; inline;
  16293. procedure clearRXOVF12; inline;
  16294. procedure clearRXOVF13; inline;
  16295. procedure clearRXOVF14; inline;
  16296. procedure clearRXOVF15; inline;
  16297. procedure clearRXOVF16; inline;
  16298. procedure clearRXOVF17; inline;
  16299. procedure clearRXOVF18; inline;
  16300. procedure clearRXOVF19; inline;
  16301. procedure clearRXOVF1; inline;
  16302. procedure clearRXOVF20; inline;
  16303. procedure clearRXOVF21; inline;
  16304. procedure clearRXOVF22; inline;
  16305. procedure clearRXOVF23; inline;
  16306. procedure clearRXOVF24; inline;
  16307. procedure clearRXOVF25; inline;
  16308. procedure clearRXOVF26; inline;
  16309. procedure clearRXOVF27; inline;
  16310. procedure clearRXOVF28; inline;
  16311. procedure clearRXOVF29; inline;
  16312. procedure clearRXOVF2; inline;
  16313. procedure clearRXOVF30; inline;
  16314. procedure clearRXOVF31; inline;
  16315. procedure clearRXOVF3; inline;
  16316. procedure clearRXOVF4; inline;
  16317. procedure clearRXOVF5; inline;
  16318. procedure clearRXOVF6; inline;
  16319. procedure clearRXOVF7; inline;
  16320. procedure clearRXOVF8; inline;
  16321. procedure clearRXOVF9; inline;
  16322. procedure setRXOVF0; inline;
  16323. procedure setRXOVF10; inline;
  16324. procedure setRXOVF11; inline;
  16325. procedure setRXOVF12; inline;
  16326. procedure setRXOVF13; inline;
  16327. procedure setRXOVF14; inline;
  16328. procedure setRXOVF15; inline;
  16329. procedure setRXOVF16; inline;
  16330. procedure setRXOVF17; inline;
  16331. procedure setRXOVF18; inline;
  16332. procedure setRXOVF19; inline;
  16333. procedure setRXOVF1; inline;
  16334. procedure setRXOVF20; inline;
  16335. procedure setRXOVF21; inline;
  16336. procedure setRXOVF22; inline;
  16337. procedure setRXOVF23; inline;
  16338. procedure setRXOVF24; inline;
  16339. procedure setRXOVF25; inline;
  16340. procedure setRXOVF26; inline;
  16341. procedure setRXOVF27; inline;
  16342. procedure setRXOVF28; inline;
  16343. procedure setRXOVF29; inline;
  16344. procedure setRXOVF2; inline;
  16345. procedure setRXOVF30; inline;
  16346. procedure setRXOVF31; inline;
  16347. procedure setRXOVF3; inline;
  16348. procedure setRXOVF4; inline;
  16349. procedure setRXOVF5; inline;
  16350. procedure setRXOVF6; inline;
  16351. procedure setRXOVF7; inline;
  16352. procedure setRXOVF8; inline;
  16353. procedure setRXOVF9; inline;
  16354. property RXOVF : TBits_32 read getRXOVF write setRXOVF;
  16355. property RXOVF0 : TBits_1 read getRXOVF0 write setRXOVF0;
  16356. property RXOVF1 : TBits_1 read getRXOVF1 write setRXOVF1;
  16357. property RXOVF10 : TBits_1 read getRXOVF10 write setRXOVF10;
  16358. property RXOVF11 : TBits_1 read getRXOVF11 write setRXOVF11;
  16359. property RXOVF12 : TBits_1 read getRXOVF12 write setRXOVF12;
  16360. property RXOVF13 : TBits_1 read getRXOVF13 write setRXOVF13;
  16361. property RXOVF14 : TBits_1 read getRXOVF14 write setRXOVF14;
  16362. property RXOVF15 : TBits_1 read getRXOVF15 write setRXOVF15;
  16363. property RXOVF16 : TBits_1 read getRXOVF16 write setRXOVF16;
  16364. property RXOVF17 : TBits_1 read getRXOVF17 write setRXOVF17;
  16365. property RXOVF18 : TBits_1 read getRXOVF18 write setRXOVF18;
  16366. property RXOVF19 : TBits_1 read getRXOVF19 write setRXOVF19;
  16367. property RXOVF2 : TBits_1 read getRXOVF2 write setRXOVF2;
  16368. property RXOVF20 : TBits_1 read getRXOVF20 write setRXOVF20;
  16369. property RXOVF21 : TBits_1 read getRXOVF21 write setRXOVF21;
  16370. property RXOVF22 : TBits_1 read getRXOVF22 write setRXOVF22;
  16371. property RXOVF23 : TBits_1 read getRXOVF23 write setRXOVF23;
  16372. property RXOVF24 : TBits_1 read getRXOVF24 write setRXOVF24;
  16373. property RXOVF25 : TBits_1 read getRXOVF25 write setRXOVF25;
  16374. property RXOVF26 : TBits_1 read getRXOVF26 write setRXOVF26;
  16375. property RXOVF27 : TBits_1 read getRXOVF27 write setRXOVF27;
  16376. property RXOVF28 : TBits_1 read getRXOVF28 write setRXOVF28;
  16377. property RXOVF29 : TBits_1 read getRXOVF29 write setRXOVF29;
  16378. property RXOVF3 : TBits_1 read getRXOVF3 write setRXOVF3;
  16379. property RXOVF30 : TBits_1 read getRXOVF30 write setRXOVF30;
  16380. property RXOVF31 : TBits_1 read getRXOVF31 write setRXOVF31;
  16381. property RXOVF4 : TBits_1 read getRXOVF4 write setRXOVF4;
  16382. property RXOVF5 : TBits_1 read getRXOVF5 write setRXOVF5;
  16383. property RXOVF6 : TBits_1 read getRXOVF6 write setRXOVF6;
  16384. property RXOVF7 : TBits_1 read getRXOVF7 write setRXOVF7;
  16385. property RXOVF8 : TBits_1 read getRXOVF8 write setRXOVF8;
  16386. property RXOVF9 : TBits_1 read getRXOVF9 write setRXOVF9;
  16387. property w : TBits_32 read getw write setw;
  16388. end;
  16389. TCAN1_C1TMR = record
  16390. private
  16391. function getCANTS : TBits_16; inline;
  16392. function getCANTSPRE : TBits_16; inline;
  16393. function getw : TBits_32; inline;
  16394. procedure setCANTS(thebits : TBits_16); inline;
  16395. procedure setCANTSPRE(thebits : TBits_16); inline;
  16396. procedure setw(thebits : TBits_32); inline;
  16397. public
  16398. property CANTS : TBits_16 read getCANTS write setCANTS;
  16399. property CANTSPRE : TBits_16 read getCANTSPRE write setCANTSPRE;
  16400. property w : TBits_32 read getw write setw;
  16401. end;
  16402. TCAN1_C1RXM0 = record
  16403. private
  16404. function getEID : TBits_18; inline;
  16405. function getMIDE : TBits_1; inline;
  16406. function getSID : TBits_11; inline;
  16407. function getw : TBits_32; inline;
  16408. procedure setEID(thebits : TBits_18); inline;
  16409. procedure setMIDE(thebits : TBits_1); inline;
  16410. procedure setSID(thebits : TBits_11); inline;
  16411. procedure setw(thebits : TBits_32); inline;
  16412. public
  16413. procedure clearMIDE; inline;
  16414. procedure setMIDE; inline;
  16415. property EID : TBits_18 read getEID write setEID;
  16416. property MIDE : TBits_1 read getMIDE write setMIDE;
  16417. property SID : TBits_11 read getSID write setSID;
  16418. property w : TBits_32 read getw write setw;
  16419. end;
  16420. TCAN1_C1RXM1 = record
  16421. private
  16422. function getEID : TBits_18; inline;
  16423. function getMIDE : TBits_1; inline;
  16424. function getSID : TBits_11; inline;
  16425. function getw : TBits_32; inline;
  16426. procedure setEID(thebits : TBits_18); inline;
  16427. procedure setMIDE(thebits : TBits_1); inline;
  16428. procedure setSID(thebits : TBits_11); inline;
  16429. procedure setw(thebits : TBits_32); inline;
  16430. public
  16431. procedure clearMIDE; inline;
  16432. procedure setMIDE; inline;
  16433. property EID : TBits_18 read getEID write setEID;
  16434. property MIDE : TBits_1 read getMIDE write setMIDE;
  16435. property SID : TBits_11 read getSID write setSID;
  16436. property w : TBits_32 read getw write setw;
  16437. end;
  16438. TCAN1_C1RXM2 = record
  16439. private
  16440. function getEID : TBits_18; inline;
  16441. function getMIDE : TBits_1; inline;
  16442. function getSID : TBits_11; inline;
  16443. function getw : TBits_32; inline;
  16444. procedure setEID(thebits : TBits_18); inline;
  16445. procedure setMIDE(thebits : TBits_1); inline;
  16446. procedure setSID(thebits : TBits_11); inline;
  16447. procedure setw(thebits : TBits_32); inline;
  16448. public
  16449. procedure clearMIDE; inline;
  16450. procedure setMIDE; inline;
  16451. property EID : TBits_18 read getEID write setEID;
  16452. property MIDE : TBits_1 read getMIDE write setMIDE;
  16453. property SID : TBits_11 read getSID write setSID;
  16454. property w : TBits_32 read getw write setw;
  16455. end;
  16456. TCAN1_C1RXM3 = record
  16457. private
  16458. function getEID : TBits_18; inline;
  16459. function getMIDE : TBits_1; inline;
  16460. function getSID : TBits_11; inline;
  16461. function getw : TBits_32; inline;
  16462. procedure setEID(thebits : TBits_18); inline;
  16463. procedure setMIDE(thebits : TBits_1); inline;
  16464. procedure setSID(thebits : TBits_11); inline;
  16465. procedure setw(thebits : TBits_32); inline;
  16466. public
  16467. procedure clearMIDE; inline;
  16468. procedure setMIDE; inline;
  16469. property EID : TBits_18 read getEID write setEID;
  16470. property MIDE : TBits_1 read getMIDE write setMIDE;
  16471. property SID : TBits_11 read getSID write setSID;
  16472. property w : TBits_32 read getw write setw;
  16473. end;
  16474. TCAN1_C1FLTCON0 = record
  16475. private
  16476. function getFLTEN0 : TBits_1; inline;
  16477. function getFLTEN1 : TBits_1; inline;
  16478. function getFLTEN2 : TBits_1; inline;
  16479. function getFLTEN3 : TBits_1; inline;
  16480. function getFSEL0 : TBits_5; inline;
  16481. function getFSEL1 : TBits_5; inline;
  16482. function getFSEL2 : TBits_5; inline;
  16483. function getFSEL3 : TBits_5; inline;
  16484. function getMSEL0 : TBits_2; inline;
  16485. function getMSEL1 : TBits_2; inline;
  16486. function getMSEL2 : TBits_2; inline;
  16487. function getMSEL3 : TBits_2; inline;
  16488. function getw : TBits_32; inline;
  16489. procedure setFLTEN0(thebits : TBits_1); inline;
  16490. procedure setFLTEN1(thebits : TBits_1); inline;
  16491. procedure setFLTEN2(thebits : TBits_1); inline;
  16492. procedure setFLTEN3(thebits : TBits_1); inline;
  16493. procedure setFSEL0(thebits : TBits_5); inline;
  16494. procedure setFSEL1(thebits : TBits_5); inline;
  16495. procedure setFSEL2(thebits : TBits_5); inline;
  16496. procedure setFSEL3(thebits : TBits_5); inline;
  16497. procedure setMSEL0(thebits : TBits_2); inline;
  16498. procedure setMSEL1(thebits : TBits_2); inline;
  16499. procedure setMSEL2(thebits : TBits_2); inline;
  16500. procedure setMSEL3(thebits : TBits_2); inline;
  16501. procedure setw(thebits : TBits_32); inline;
  16502. public
  16503. procedure clearFLTEN0; inline;
  16504. procedure clearFLTEN1; inline;
  16505. procedure clearFLTEN2; inline;
  16506. procedure clearFLTEN3; inline;
  16507. procedure setFLTEN0; inline;
  16508. procedure setFLTEN1; inline;
  16509. procedure setFLTEN2; inline;
  16510. procedure setFLTEN3; inline;
  16511. property FLTEN0 : TBits_1 read getFLTEN0 write setFLTEN0;
  16512. property FLTEN1 : TBits_1 read getFLTEN1 write setFLTEN1;
  16513. property FLTEN2 : TBits_1 read getFLTEN2 write setFLTEN2;
  16514. property FLTEN3 : TBits_1 read getFLTEN3 write setFLTEN3;
  16515. property FSEL0 : TBits_5 read getFSEL0 write setFSEL0;
  16516. property FSEL1 : TBits_5 read getFSEL1 write setFSEL1;
  16517. property FSEL2 : TBits_5 read getFSEL2 write setFSEL2;
  16518. property FSEL3 : TBits_5 read getFSEL3 write setFSEL3;
  16519. property MSEL0 : TBits_2 read getMSEL0 write setMSEL0;
  16520. property MSEL1 : TBits_2 read getMSEL1 write setMSEL1;
  16521. property MSEL2 : TBits_2 read getMSEL2 write setMSEL2;
  16522. property MSEL3 : TBits_2 read getMSEL3 write setMSEL3;
  16523. property w : TBits_32 read getw write setw;
  16524. end;
  16525. TCAN1_C1FLTCON1 = record
  16526. private
  16527. function getFLTEN4 : TBits_1; inline;
  16528. function getFLTEN5 : TBits_1; inline;
  16529. function getFLTEN6 : TBits_1; inline;
  16530. function getFLTEN7 : TBits_1; inline;
  16531. function getFSEL4 : TBits_5; inline;
  16532. function getFSEL5 : TBits_5; inline;
  16533. function getFSEL6 : TBits_5; inline;
  16534. function getFSEL7 : TBits_5; inline;
  16535. function getMSEL4 : TBits_2; inline;
  16536. function getMSEL5 : TBits_2; inline;
  16537. function getMSEL6 : TBits_2; inline;
  16538. function getMSEL7 : TBits_2; inline;
  16539. function getw : TBits_32; inline;
  16540. procedure setFLTEN4(thebits : TBits_1); inline;
  16541. procedure setFLTEN5(thebits : TBits_1); inline;
  16542. procedure setFLTEN6(thebits : TBits_1); inline;
  16543. procedure setFLTEN7(thebits : TBits_1); inline;
  16544. procedure setFSEL4(thebits : TBits_5); inline;
  16545. procedure setFSEL5(thebits : TBits_5); inline;
  16546. procedure setFSEL6(thebits : TBits_5); inline;
  16547. procedure setFSEL7(thebits : TBits_5); inline;
  16548. procedure setMSEL4(thebits : TBits_2); inline;
  16549. procedure setMSEL5(thebits : TBits_2); inline;
  16550. procedure setMSEL6(thebits : TBits_2); inline;
  16551. procedure setMSEL7(thebits : TBits_2); inline;
  16552. procedure setw(thebits : TBits_32); inline;
  16553. public
  16554. procedure clearFLTEN4; inline;
  16555. procedure clearFLTEN5; inline;
  16556. procedure clearFLTEN6; inline;
  16557. procedure clearFLTEN7; inline;
  16558. procedure setFLTEN4; inline;
  16559. procedure setFLTEN5; inline;
  16560. procedure setFLTEN6; inline;
  16561. procedure setFLTEN7; inline;
  16562. property FLTEN4 : TBits_1 read getFLTEN4 write setFLTEN4;
  16563. property FLTEN5 : TBits_1 read getFLTEN5 write setFLTEN5;
  16564. property FLTEN6 : TBits_1 read getFLTEN6 write setFLTEN6;
  16565. property FLTEN7 : TBits_1 read getFLTEN7 write setFLTEN7;
  16566. property FSEL4 : TBits_5 read getFSEL4 write setFSEL4;
  16567. property FSEL5 : TBits_5 read getFSEL5 write setFSEL5;
  16568. property FSEL6 : TBits_5 read getFSEL6 write setFSEL6;
  16569. property FSEL7 : TBits_5 read getFSEL7 write setFSEL7;
  16570. property MSEL4 : TBits_2 read getMSEL4 write setMSEL4;
  16571. property MSEL5 : TBits_2 read getMSEL5 write setMSEL5;
  16572. property MSEL6 : TBits_2 read getMSEL6 write setMSEL6;
  16573. property MSEL7 : TBits_2 read getMSEL7 write setMSEL7;
  16574. property w : TBits_32 read getw write setw;
  16575. end;
  16576. TCAN1_C1FLTCON2 = record
  16577. private
  16578. function getFLTEN10 : TBits_1; inline;
  16579. function getFLTEN11 : TBits_1; inline;
  16580. function getFLTEN8 : TBits_1; inline;
  16581. function getFLTEN9 : TBits_1; inline;
  16582. function getFSEL10 : TBits_5; inline;
  16583. function getFSEL11 : TBits_5; inline;
  16584. function getFSEL8 : TBits_5; inline;
  16585. function getFSEL9 : TBits_5; inline;
  16586. function getMSEL10 : TBits_2; inline;
  16587. function getMSEL11 : TBits_2; inline;
  16588. function getMSEL8 : TBits_2; inline;
  16589. function getMSEL9 : TBits_2; inline;
  16590. function getw : TBits_32; inline;
  16591. procedure setFLTEN10(thebits : TBits_1); inline;
  16592. procedure setFLTEN11(thebits : TBits_1); inline;
  16593. procedure setFLTEN8(thebits : TBits_1); inline;
  16594. procedure setFLTEN9(thebits : TBits_1); inline;
  16595. procedure setFSEL10(thebits : TBits_5); inline;
  16596. procedure setFSEL11(thebits : TBits_5); inline;
  16597. procedure setFSEL8(thebits : TBits_5); inline;
  16598. procedure setFSEL9(thebits : TBits_5); inline;
  16599. procedure setMSEL10(thebits : TBits_2); inline;
  16600. procedure setMSEL11(thebits : TBits_2); inline;
  16601. procedure setMSEL8(thebits : TBits_2); inline;
  16602. procedure setMSEL9(thebits : TBits_2); inline;
  16603. procedure setw(thebits : TBits_32); inline;
  16604. public
  16605. procedure clearFLTEN10; inline;
  16606. procedure clearFLTEN11; inline;
  16607. procedure clearFLTEN8; inline;
  16608. procedure clearFLTEN9; inline;
  16609. procedure setFLTEN10; inline;
  16610. procedure setFLTEN11; inline;
  16611. procedure setFLTEN8; inline;
  16612. procedure setFLTEN9; inline;
  16613. property FLTEN10 : TBits_1 read getFLTEN10 write setFLTEN10;
  16614. property FLTEN11 : TBits_1 read getFLTEN11 write setFLTEN11;
  16615. property FLTEN8 : TBits_1 read getFLTEN8 write setFLTEN8;
  16616. property FLTEN9 : TBits_1 read getFLTEN9 write setFLTEN9;
  16617. property FSEL10 : TBits_5 read getFSEL10 write setFSEL10;
  16618. property FSEL11 : TBits_5 read getFSEL11 write setFSEL11;
  16619. property FSEL8 : TBits_5 read getFSEL8 write setFSEL8;
  16620. property FSEL9 : TBits_5 read getFSEL9 write setFSEL9;
  16621. property MSEL10 : TBits_2 read getMSEL10 write setMSEL10;
  16622. property MSEL11 : TBits_2 read getMSEL11 write setMSEL11;
  16623. property MSEL8 : TBits_2 read getMSEL8 write setMSEL8;
  16624. property MSEL9 : TBits_2 read getMSEL9 write setMSEL9;
  16625. property w : TBits_32 read getw write setw;
  16626. end;
  16627. TCAN1_C1FLTCON3 = record
  16628. private
  16629. function getFLTEN12 : TBits_1; inline;
  16630. function getFLTEN13 : TBits_1; inline;
  16631. function getFLTEN14 : TBits_1; inline;
  16632. function getFLTEN15 : TBits_1; inline;
  16633. function getFSEL12 : TBits_5; inline;
  16634. function getFSEL13 : TBits_5; inline;
  16635. function getFSEL14 : TBits_5; inline;
  16636. function getFSEL15 : TBits_5; inline;
  16637. function getMSEL12 : TBits_2; inline;
  16638. function getMSEL13 : TBits_2; inline;
  16639. function getMSEL14 : TBits_2; inline;
  16640. function getMSEL15 : TBits_2; inline;
  16641. function getw : TBits_32; inline;
  16642. procedure setFLTEN12(thebits : TBits_1); inline;
  16643. procedure setFLTEN13(thebits : TBits_1); inline;
  16644. procedure setFLTEN14(thebits : TBits_1); inline;
  16645. procedure setFLTEN15(thebits : TBits_1); inline;
  16646. procedure setFSEL12(thebits : TBits_5); inline;
  16647. procedure setFSEL13(thebits : TBits_5); inline;
  16648. procedure setFSEL14(thebits : TBits_5); inline;
  16649. procedure setFSEL15(thebits : TBits_5); inline;
  16650. procedure setMSEL12(thebits : TBits_2); inline;
  16651. procedure setMSEL13(thebits : TBits_2); inline;
  16652. procedure setMSEL14(thebits : TBits_2); inline;
  16653. procedure setMSEL15(thebits : TBits_2); inline;
  16654. procedure setw(thebits : TBits_32); inline;
  16655. public
  16656. procedure clearFLTEN12; inline;
  16657. procedure clearFLTEN13; inline;
  16658. procedure clearFLTEN14; inline;
  16659. procedure clearFLTEN15; inline;
  16660. procedure setFLTEN12; inline;
  16661. procedure setFLTEN13; inline;
  16662. procedure setFLTEN14; inline;
  16663. procedure setFLTEN15; inline;
  16664. property FLTEN12 : TBits_1 read getFLTEN12 write setFLTEN12;
  16665. property FLTEN13 : TBits_1 read getFLTEN13 write setFLTEN13;
  16666. property FLTEN14 : TBits_1 read getFLTEN14 write setFLTEN14;
  16667. property FLTEN15 : TBits_1 read getFLTEN15 write setFLTEN15;
  16668. property FSEL12 : TBits_5 read getFSEL12 write setFSEL12;
  16669. property FSEL13 : TBits_5 read getFSEL13 write setFSEL13;
  16670. property FSEL14 : TBits_5 read getFSEL14 write setFSEL14;
  16671. property FSEL15 : TBits_5 read getFSEL15 write setFSEL15;
  16672. property MSEL12 : TBits_2 read getMSEL12 write setMSEL12;
  16673. property MSEL13 : TBits_2 read getMSEL13 write setMSEL13;
  16674. property MSEL14 : TBits_2 read getMSEL14 write setMSEL14;
  16675. property MSEL15 : TBits_2 read getMSEL15 write setMSEL15;
  16676. property w : TBits_32 read getw write setw;
  16677. end;
  16678. TCAN1_C1FLTCON4 = record
  16679. private
  16680. function getFLTEN16 : TBits_1; inline;
  16681. function getFLTEN17 : TBits_1; inline;
  16682. function getFLTEN18 : TBits_1; inline;
  16683. function getFLTEN19 : TBits_1; inline;
  16684. function getFSEL16 : TBits_5; inline;
  16685. function getFSEL17 : TBits_5; inline;
  16686. function getFSEL18 : TBits_5; inline;
  16687. function getFSEL19 : TBits_5; inline;
  16688. function getMSEL16 : TBits_2; inline;
  16689. function getMSEL17 : TBits_2; inline;
  16690. function getMSEL18 : TBits_2; inline;
  16691. function getMSEL19 : TBits_2; inline;
  16692. function getw : TBits_32; inline;
  16693. procedure setFLTEN16(thebits : TBits_1); inline;
  16694. procedure setFLTEN17(thebits : TBits_1); inline;
  16695. procedure setFLTEN18(thebits : TBits_1); inline;
  16696. procedure setFLTEN19(thebits : TBits_1); inline;
  16697. procedure setFSEL16(thebits : TBits_5); inline;
  16698. procedure setFSEL17(thebits : TBits_5); inline;
  16699. procedure setFSEL18(thebits : TBits_5); inline;
  16700. procedure setFSEL19(thebits : TBits_5); inline;
  16701. procedure setMSEL16(thebits : TBits_2); inline;
  16702. procedure setMSEL17(thebits : TBits_2); inline;
  16703. procedure setMSEL18(thebits : TBits_2); inline;
  16704. procedure setMSEL19(thebits : TBits_2); inline;
  16705. procedure setw(thebits : TBits_32); inline;
  16706. public
  16707. procedure clearFLTEN16; inline;
  16708. procedure clearFLTEN17; inline;
  16709. procedure clearFLTEN18; inline;
  16710. procedure clearFLTEN19; inline;
  16711. procedure setFLTEN16; inline;
  16712. procedure setFLTEN17; inline;
  16713. procedure setFLTEN18; inline;
  16714. procedure setFLTEN19; inline;
  16715. property FLTEN16 : TBits_1 read getFLTEN16 write setFLTEN16;
  16716. property FLTEN17 : TBits_1 read getFLTEN17 write setFLTEN17;
  16717. property FLTEN18 : TBits_1 read getFLTEN18 write setFLTEN18;
  16718. property FLTEN19 : TBits_1 read getFLTEN19 write setFLTEN19;
  16719. property FSEL16 : TBits_5 read getFSEL16 write setFSEL16;
  16720. property FSEL17 : TBits_5 read getFSEL17 write setFSEL17;
  16721. property FSEL18 : TBits_5 read getFSEL18 write setFSEL18;
  16722. property FSEL19 : TBits_5 read getFSEL19 write setFSEL19;
  16723. property MSEL16 : TBits_2 read getMSEL16 write setMSEL16;
  16724. property MSEL17 : TBits_2 read getMSEL17 write setMSEL17;
  16725. property MSEL18 : TBits_2 read getMSEL18 write setMSEL18;
  16726. property MSEL19 : TBits_2 read getMSEL19 write setMSEL19;
  16727. property w : TBits_32 read getw write setw;
  16728. end;
  16729. TCAN1_C1FLTCON5 = record
  16730. private
  16731. function getFLTEN20 : TBits_1; inline;
  16732. function getFLTEN21 : TBits_1; inline;
  16733. function getFLTEN22 : TBits_1; inline;
  16734. function getFLTEN23 : TBits_1; inline;
  16735. function getFSEL20 : TBits_5; inline;
  16736. function getFSEL21 : TBits_5; inline;
  16737. function getFSEL22 : TBits_5; inline;
  16738. function getFSEL23 : TBits_5; inline;
  16739. function getMSEL20 : TBits_2; inline;
  16740. function getMSEL21 : TBits_2; inline;
  16741. function getMSEL22 : TBits_2; inline;
  16742. function getMSEL23 : TBits_2; inline;
  16743. function getw : TBits_32; inline;
  16744. procedure setFLTEN20(thebits : TBits_1); inline;
  16745. procedure setFLTEN21(thebits : TBits_1); inline;
  16746. procedure setFLTEN22(thebits : TBits_1); inline;
  16747. procedure setFLTEN23(thebits : TBits_1); inline;
  16748. procedure setFSEL20(thebits : TBits_5); inline;
  16749. procedure setFSEL21(thebits : TBits_5); inline;
  16750. procedure setFSEL22(thebits : TBits_5); inline;
  16751. procedure setFSEL23(thebits : TBits_5); inline;
  16752. procedure setMSEL20(thebits : TBits_2); inline;
  16753. procedure setMSEL21(thebits : TBits_2); inline;
  16754. procedure setMSEL22(thebits : TBits_2); inline;
  16755. procedure setMSEL23(thebits : TBits_2); inline;
  16756. procedure setw(thebits : TBits_32); inline;
  16757. public
  16758. procedure clearFLTEN20; inline;
  16759. procedure clearFLTEN21; inline;
  16760. procedure clearFLTEN22; inline;
  16761. procedure clearFLTEN23; inline;
  16762. procedure setFLTEN20; inline;
  16763. procedure setFLTEN21; inline;
  16764. procedure setFLTEN22; inline;
  16765. procedure setFLTEN23; inline;
  16766. property FLTEN20 : TBits_1 read getFLTEN20 write setFLTEN20;
  16767. property FLTEN21 : TBits_1 read getFLTEN21 write setFLTEN21;
  16768. property FLTEN22 : TBits_1 read getFLTEN22 write setFLTEN22;
  16769. property FLTEN23 : TBits_1 read getFLTEN23 write setFLTEN23;
  16770. property FSEL20 : TBits_5 read getFSEL20 write setFSEL20;
  16771. property FSEL21 : TBits_5 read getFSEL21 write setFSEL21;
  16772. property FSEL22 : TBits_5 read getFSEL22 write setFSEL22;
  16773. property FSEL23 : TBits_5 read getFSEL23 write setFSEL23;
  16774. property MSEL20 : TBits_2 read getMSEL20 write setMSEL20;
  16775. property MSEL21 : TBits_2 read getMSEL21 write setMSEL21;
  16776. property MSEL22 : TBits_2 read getMSEL22 write setMSEL22;
  16777. property MSEL23 : TBits_2 read getMSEL23 write setMSEL23;
  16778. property w : TBits_32 read getw write setw;
  16779. end;
  16780. TCAN1_C1FLTCON6 = record
  16781. private
  16782. function getFLTEN24 : TBits_1; inline;
  16783. function getFLTEN25 : TBits_1; inline;
  16784. function getFLTEN26 : TBits_1; inline;
  16785. function getFLTEN27 : TBits_1; inline;
  16786. function getFSEL24 : TBits_5; inline;
  16787. function getFSEL25 : TBits_5; inline;
  16788. function getFSEL26 : TBits_5; inline;
  16789. function getFSEL27 : TBits_5; inline;
  16790. function getMSEL24 : TBits_2; inline;
  16791. function getMSEL25 : TBits_2; inline;
  16792. function getMSEL26 : TBits_2; inline;
  16793. function getMSEL27 : TBits_2; inline;
  16794. function getw : TBits_32; inline;
  16795. procedure setFLTEN24(thebits : TBits_1); inline;
  16796. procedure setFLTEN25(thebits : TBits_1); inline;
  16797. procedure setFLTEN26(thebits : TBits_1); inline;
  16798. procedure setFLTEN27(thebits : TBits_1); inline;
  16799. procedure setFSEL24(thebits : TBits_5); inline;
  16800. procedure setFSEL25(thebits : TBits_5); inline;
  16801. procedure setFSEL26(thebits : TBits_5); inline;
  16802. procedure setFSEL27(thebits : TBits_5); inline;
  16803. procedure setMSEL24(thebits : TBits_2); inline;
  16804. procedure setMSEL25(thebits : TBits_2); inline;
  16805. procedure setMSEL26(thebits : TBits_2); inline;
  16806. procedure setMSEL27(thebits : TBits_2); inline;
  16807. procedure setw(thebits : TBits_32); inline;
  16808. public
  16809. procedure clearFLTEN24; inline;
  16810. procedure clearFLTEN25; inline;
  16811. procedure clearFLTEN26; inline;
  16812. procedure clearFLTEN27; inline;
  16813. procedure setFLTEN24; inline;
  16814. procedure setFLTEN25; inline;
  16815. procedure setFLTEN26; inline;
  16816. procedure setFLTEN27; inline;
  16817. property FLTEN24 : TBits_1 read getFLTEN24 write setFLTEN24;
  16818. property FLTEN25 : TBits_1 read getFLTEN25 write setFLTEN25;
  16819. property FLTEN26 : TBits_1 read getFLTEN26 write setFLTEN26;
  16820. property FLTEN27 : TBits_1 read getFLTEN27 write setFLTEN27;
  16821. property FSEL24 : TBits_5 read getFSEL24 write setFSEL24;
  16822. property FSEL25 : TBits_5 read getFSEL25 write setFSEL25;
  16823. property FSEL26 : TBits_5 read getFSEL26 write setFSEL26;
  16824. property FSEL27 : TBits_5 read getFSEL27 write setFSEL27;
  16825. property MSEL24 : TBits_2 read getMSEL24 write setMSEL24;
  16826. property MSEL25 : TBits_2 read getMSEL25 write setMSEL25;
  16827. property MSEL26 : TBits_2 read getMSEL26 write setMSEL26;
  16828. property MSEL27 : TBits_2 read getMSEL27 write setMSEL27;
  16829. property w : TBits_32 read getw write setw;
  16830. end;
  16831. TCAN1_C1FLTCON7 = record
  16832. private
  16833. function getFLTEN28 : TBits_1; inline;
  16834. function getFLTEN29 : TBits_1; inline;
  16835. function getFLTEN30 : TBits_1; inline;
  16836. function getFLTEN31 : TBits_1; inline;
  16837. function getFSEL28 : TBits_5; inline;
  16838. function getFSEL29 : TBits_5; inline;
  16839. function getFSEL30 : TBits_5; inline;
  16840. function getFSEL31 : TBits_5; inline;
  16841. function getMSEL28 : TBits_2; inline;
  16842. function getMSEL29 : TBits_2; inline;
  16843. function getMSEL30 : TBits_2; inline;
  16844. function getMSEL31 : TBits_2; inline;
  16845. function getw : TBits_32; inline;
  16846. procedure setFLTEN28(thebits : TBits_1); inline;
  16847. procedure setFLTEN29(thebits : TBits_1); inline;
  16848. procedure setFLTEN30(thebits : TBits_1); inline;
  16849. procedure setFLTEN31(thebits : TBits_1); inline;
  16850. procedure setFSEL28(thebits : TBits_5); inline;
  16851. procedure setFSEL29(thebits : TBits_5); inline;
  16852. procedure setFSEL30(thebits : TBits_5); inline;
  16853. procedure setFSEL31(thebits : TBits_5); inline;
  16854. procedure setMSEL28(thebits : TBits_2); inline;
  16855. procedure setMSEL29(thebits : TBits_2); inline;
  16856. procedure setMSEL30(thebits : TBits_2); inline;
  16857. procedure setMSEL31(thebits : TBits_2); inline;
  16858. procedure setw(thebits : TBits_32); inline;
  16859. public
  16860. procedure clearFLTEN28; inline;
  16861. procedure clearFLTEN29; inline;
  16862. procedure clearFLTEN30; inline;
  16863. procedure clearFLTEN31; inline;
  16864. procedure setFLTEN28; inline;
  16865. procedure setFLTEN29; inline;
  16866. procedure setFLTEN30; inline;
  16867. procedure setFLTEN31; inline;
  16868. property FLTEN28 : TBits_1 read getFLTEN28 write setFLTEN28;
  16869. property FLTEN29 : TBits_1 read getFLTEN29 write setFLTEN29;
  16870. property FLTEN30 : TBits_1 read getFLTEN30 write setFLTEN30;
  16871. property FLTEN31 : TBits_1 read getFLTEN31 write setFLTEN31;
  16872. property FSEL28 : TBits_5 read getFSEL28 write setFSEL28;
  16873. property FSEL29 : TBits_5 read getFSEL29 write setFSEL29;
  16874. property FSEL30 : TBits_5 read getFSEL30 write setFSEL30;
  16875. property FSEL31 : TBits_5 read getFSEL31 write setFSEL31;
  16876. property MSEL28 : TBits_2 read getMSEL28 write setMSEL28;
  16877. property MSEL29 : TBits_2 read getMSEL29 write setMSEL29;
  16878. property MSEL30 : TBits_2 read getMSEL30 write setMSEL30;
  16879. property MSEL31 : TBits_2 read getMSEL31 write setMSEL31;
  16880. property w : TBits_32 read getw write setw;
  16881. end;
  16882. TCAN1_C1RXF0 = record
  16883. private
  16884. function getEID : TBits_18; inline;
  16885. function getEXID : TBits_1; inline;
  16886. function getSID : TBits_11; inline;
  16887. function getw : TBits_32; inline;
  16888. procedure setEID(thebits : TBits_18); inline;
  16889. procedure setEXID(thebits : TBits_1); inline;
  16890. procedure setSID(thebits : TBits_11); inline;
  16891. procedure setw(thebits : TBits_32); inline;
  16892. public
  16893. procedure clearEXID; inline;
  16894. procedure setEXID; inline;
  16895. property EID : TBits_18 read getEID write setEID;
  16896. property EXID : TBits_1 read getEXID write setEXID;
  16897. property SID : TBits_11 read getSID write setSID;
  16898. property w : TBits_32 read getw write setw;
  16899. end;
  16900. TCAN1_C1RXF1 = record
  16901. private
  16902. function getEID : TBits_18; inline;
  16903. function getEXID : TBits_1; inline;
  16904. function getSID : TBits_11; inline;
  16905. function getw : TBits_32; inline;
  16906. procedure setEID(thebits : TBits_18); inline;
  16907. procedure setEXID(thebits : TBits_1); inline;
  16908. procedure setSID(thebits : TBits_11); inline;
  16909. procedure setw(thebits : TBits_32); inline;
  16910. public
  16911. procedure clearEXID; inline;
  16912. procedure setEXID; inline;
  16913. property EID : TBits_18 read getEID write setEID;
  16914. property EXID : TBits_1 read getEXID write setEXID;
  16915. property SID : TBits_11 read getSID write setSID;
  16916. property w : TBits_32 read getw write setw;
  16917. end;
  16918. TCAN1_C1RXF2 = record
  16919. private
  16920. function getEID : TBits_18; inline;
  16921. function getEXID : TBits_1; inline;
  16922. function getSID : TBits_11; inline;
  16923. function getw : TBits_32; inline;
  16924. procedure setEID(thebits : TBits_18); inline;
  16925. procedure setEXID(thebits : TBits_1); inline;
  16926. procedure setSID(thebits : TBits_11); inline;
  16927. procedure setw(thebits : TBits_32); inline;
  16928. public
  16929. procedure clearEXID; inline;
  16930. procedure setEXID; inline;
  16931. property EID : TBits_18 read getEID write setEID;
  16932. property EXID : TBits_1 read getEXID write setEXID;
  16933. property SID : TBits_11 read getSID write setSID;
  16934. property w : TBits_32 read getw write setw;
  16935. end;
  16936. TCAN1_C1RXF3 = record
  16937. private
  16938. function getEID : TBits_18; inline;
  16939. function getEXID : TBits_1; inline;
  16940. function getSID : TBits_11; inline;
  16941. function getw : TBits_32; inline;
  16942. procedure setEID(thebits : TBits_18); inline;
  16943. procedure setEXID(thebits : TBits_1); inline;
  16944. procedure setSID(thebits : TBits_11); inline;
  16945. procedure setw(thebits : TBits_32); inline;
  16946. public
  16947. procedure clearEXID; inline;
  16948. procedure setEXID; inline;
  16949. property EID : TBits_18 read getEID write setEID;
  16950. property EXID : TBits_1 read getEXID write setEXID;
  16951. property SID : TBits_11 read getSID write setSID;
  16952. property w : TBits_32 read getw write setw;
  16953. end;
  16954. TCAN1_C1RXF4 = record
  16955. private
  16956. function getEID : TBits_18; inline;
  16957. function getEXID : TBits_1; inline;
  16958. function getSID : TBits_11; inline;
  16959. function getw : TBits_32; inline;
  16960. procedure setEID(thebits : TBits_18); inline;
  16961. procedure setEXID(thebits : TBits_1); inline;
  16962. procedure setSID(thebits : TBits_11); inline;
  16963. procedure setw(thebits : TBits_32); inline;
  16964. public
  16965. procedure clearEXID; inline;
  16966. procedure setEXID; inline;
  16967. property EID : TBits_18 read getEID write setEID;
  16968. property EXID : TBits_1 read getEXID write setEXID;
  16969. property SID : TBits_11 read getSID write setSID;
  16970. property w : TBits_32 read getw write setw;
  16971. end;
  16972. TCAN1_C1RXF5 = record
  16973. private
  16974. function getEID : TBits_18; inline;
  16975. function getEXID : TBits_1; inline;
  16976. function getSID : TBits_11; inline;
  16977. function getw : TBits_32; inline;
  16978. procedure setEID(thebits : TBits_18); inline;
  16979. procedure setEXID(thebits : TBits_1); inline;
  16980. procedure setSID(thebits : TBits_11); inline;
  16981. procedure setw(thebits : TBits_32); inline;
  16982. public
  16983. procedure clearEXID; inline;
  16984. procedure setEXID; inline;
  16985. property EID : TBits_18 read getEID write setEID;
  16986. property EXID : TBits_1 read getEXID write setEXID;
  16987. property SID : TBits_11 read getSID write setSID;
  16988. property w : TBits_32 read getw write setw;
  16989. end;
  16990. TCAN1_C1RXF6 = record
  16991. private
  16992. function getEID : TBits_18; inline;
  16993. function getEXID : TBits_1; inline;
  16994. function getSID : TBits_11; inline;
  16995. function getw : TBits_32; inline;
  16996. procedure setEID(thebits : TBits_18); inline;
  16997. procedure setEXID(thebits : TBits_1); inline;
  16998. procedure setSID(thebits : TBits_11); inline;
  16999. procedure setw(thebits : TBits_32); inline;
  17000. public
  17001. procedure clearEXID; inline;
  17002. procedure setEXID; inline;
  17003. property EID : TBits_18 read getEID write setEID;
  17004. property EXID : TBits_1 read getEXID write setEXID;
  17005. property SID : TBits_11 read getSID write setSID;
  17006. property w : TBits_32 read getw write setw;
  17007. end;
  17008. TCAN1_C1RXF7 = record
  17009. private
  17010. function getEID : TBits_18; inline;
  17011. function getEXID : TBits_1; inline;
  17012. function getSID : TBits_11; inline;
  17013. function getw : TBits_32; inline;
  17014. procedure setEID(thebits : TBits_18); inline;
  17015. procedure setEXID(thebits : TBits_1); inline;
  17016. procedure setSID(thebits : TBits_11); inline;
  17017. procedure setw(thebits : TBits_32); inline;
  17018. public
  17019. procedure clearEXID; inline;
  17020. procedure setEXID; inline;
  17021. property EID : TBits_18 read getEID write setEID;
  17022. property EXID : TBits_1 read getEXID write setEXID;
  17023. property SID : TBits_11 read getSID write setSID;
  17024. property w : TBits_32 read getw write setw;
  17025. end;
  17026. TCAN1_C1RXF8 = record
  17027. private
  17028. function getEID : TBits_18; inline;
  17029. function getEXID : TBits_1; inline;
  17030. function getSID : TBits_11; inline;
  17031. function getw : TBits_32; inline;
  17032. procedure setEID(thebits : TBits_18); inline;
  17033. procedure setEXID(thebits : TBits_1); inline;
  17034. procedure setSID(thebits : TBits_11); inline;
  17035. procedure setw(thebits : TBits_32); inline;
  17036. public
  17037. procedure clearEXID; inline;
  17038. procedure setEXID; inline;
  17039. property EID : TBits_18 read getEID write setEID;
  17040. property EXID : TBits_1 read getEXID write setEXID;
  17041. property SID : TBits_11 read getSID write setSID;
  17042. property w : TBits_32 read getw write setw;
  17043. end;
  17044. TCAN1_C1RXF9 = record
  17045. private
  17046. function getEID : TBits_18; inline;
  17047. function getEXID : TBits_1; inline;
  17048. function getSID : TBits_11; inline;
  17049. function getw : TBits_32; inline;
  17050. procedure setEID(thebits : TBits_18); inline;
  17051. procedure setEXID(thebits : TBits_1); inline;
  17052. procedure setSID(thebits : TBits_11); inline;
  17053. procedure setw(thebits : TBits_32); inline;
  17054. public
  17055. procedure clearEXID; inline;
  17056. procedure setEXID; inline;
  17057. property EID : TBits_18 read getEID write setEID;
  17058. property EXID : TBits_1 read getEXID write setEXID;
  17059. property SID : TBits_11 read getSID write setSID;
  17060. property w : TBits_32 read getw write setw;
  17061. end;
  17062. TCAN1_C1RXF10 = record
  17063. private
  17064. function getEID : TBits_18; inline;
  17065. function getEXID : TBits_1; inline;
  17066. function getSID : TBits_11; inline;
  17067. function getw : TBits_32; inline;
  17068. procedure setEID(thebits : TBits_18); inline;
  17069. procedure setEXID(thebits : TBits_1); inline;
  17070. procedure setSID(thebits : TBits_11); inline;
  17071. procedure setw(thebits : TBits_32); inline;
  17072. public
  17073. procedure clearEXID; inline;
  17074. procedure setEXID; inline;
  17075. property EID : TBits_18 read getEID write setEID;
  17076. property EXID : TBits_1 read getEXID write setEXID;
  17077. property SID : TBits_11 read getSID write setSID;
  17078. property w : TBits_32 read getw write setw;
  17079. end;
  17080. TCAN1_C1RXF11 = record
  17081. private
  17082. function getEID : TBits_18; inline;
  17083. function getEXID : TBits_1; inline;
  17084. function getSID : TBits_11; inline;
  17085. function getw : TBits_32; inline;
  17086. procedure setEID(thebits : TBits_18); inline;
  17087. procedure setEXID(thebits : TBits_1); inline;
  17088. procedure setSID(thebits : TBits_11); inline;
  17089. procedure setw(thebits : TBits_32); inline;
  17090. public
  17091. procedure clearEXID; inline;
  17092. procedure setEXID; inline;
  17093. property EID : TBits_18 read getEID write setEID;
  17094. property EXID : TBits_1 read getEXID write setEXID;
  17095. property SID : TBits_11 read getSID write setSID;
  17096. property w : TBits_32 read getw write setw;
  17097. end;
  17098. TCAN1_C1RXF12 = record
  17099. private
  17100. function getEID : TBits_18; inline;
  17101. function getEXID : TBits_1; inline;
  17102. function getSID : TBits_11; inline;
  17103. function getw : TBits_32; inline;
  17104. procedure setEID(thebits : TBits_18); inline;
  17105. procedure setEXID(thebits : TBits_1); inline;
  17106. procedure setSID(thebits : TBits_11); inline;
  17107. procedure setw(thebits : TBits_32); inline;
  17108. public
  17109. procedure clearEXID; inline;
  17110. procedure setEXID; inline;
  17111. property EID : TBits_18 read getEID write setEID;
  17112. property EXID : TBits_1 read getEXID write setEXID;
  17113. property SID : TBits_11 read getSID write setSID;
  17114. property w : TBits_32 read getw write setw;
  17115. end;
  17116. TCAN1_C1RXF13 = record
  17117. private
  17118. function getEID : TBits_18; inline;
  17119. function getEXID : TBits_1; inline;
  17120. function getSID : TBits_11; inline;
  17121. function getw : TBits_32; inline;
  17122. procedure setEID(thebits : TBits_18); inline;
  17123. procedure setEXID(thebits : TBits_1); inline;
  17124. procedure setSID(thebits : TBits_11); inline;
  17125. procedure setw(thebits : TBits_32); inline;
  17126. public
  17127. procedure clearEXID; inline;
  17128. procedure setEXID; inline;
  17129. property EID : TBits_18 read getEID write setEID;
  17130. property EXID : TBits_1 read getEXID write setEXID;
  17131. property SID : TBits_11 read getSID write setSID;
  17132. property w : TBits_32 read getw write setw;
  17133. end;
  17134. TCAN1_C1RXF14 = record
  17135. private
  17136. function getEID : TBits_18; inline;
  17137. function getEXID : TBits_1; inline;
  17138. function getSID : TBits_11; inline;
  17139. function getw : TBits_32; inline;
  17140. procedure setEID(thebits : TBits_18); inline;
  17141. procedure setEXID(thebits : TBits_1); inline;
  17142. procedure setSID(thebits : TBits_11); inline;
  17143. procedure setw(thebits : TBits_32); inline;
  17144. public
  17145. procedure clearEXID; inline;
  17146. procedure setEXID; inline;
  17147. property EID : TBits_18 read getEID write setEID;
  17148. property EXID : TBits_1 read getEXID write setEXID;
  17149. property SID : TBits_11 read getSID write setSID;
  17150. property w : TBits_32 read getw write setw;
  17151. end;
  17152. TCAN1_C1RXF15 = record
  17153. private
  17154. function getEID : TBits_18; inline;
  17155. function getEXID : TBits_1; inline;
  17156. function getSID : TBits_11; inline;
  17157. function getw : TBits_32; inline;
  17158. procedure setEID(thebits : TBits_18); inline;
  17159. procedure setEXID(thebits : TBits_1); inline;
  17160. procedure setSID(thebits : TBits_11); inline;
  17161. procedure setw(thebits : TBits_32); inline;
  17162. public
  17163. procedure clearEXID; inline;
  17164. procedure setEXID; inline;
  17165. property EID : TBits_18 read getEID write setEID;
  17166. property EXID : TBits_1 read getEXID write setEXID;
  17167. property SID : TBits_11 read getSID write setSID;
  17168. property w : TBits_32 read getw write setw;
  17169. end;
  17170. TCAN1_C1RXF16 = record
  17171. private
  17172. function getEID : TBits_18; inline;
  17173. function getEXID : TBits_1; inline;
  17174. function getSID : TBits_11; inline;
  17175. function getw : TBits_32; inline;
  17176. procedure setEID(thebits : TBits_18); inline;
  17177. procedure setEXID(thebits : TBits_1); inline;
  17178. procedure setSID(thebits : TBits_11); inline;
  17179. procedure setw(thebits : TBits_32); inline;
  17180. public
  17181. procedure clearEXID; inline;
  17182. procedure setEXID; inline;
  17183. property EID : TBits_18 read getEID write setEID;
  17184. property EXID : TBits_1 read getEXID write setEXID;
  17185. property SID : TBits_11 read getSID write setSID;
  17186. property w : TBits_32 read getw write setw;
  17187. end;
  17188. TCAN1_C1RXF17 = record
  17189. private
  17190. function getEID : TBits_18; inline;
  17191. function getEXID : TBits_1; inline;
  17192. function getSID : TBits_11; inline;
  17193. function getw : TBits_32; inline;
  17194. procedure setEID(thebits : TBits_18); inline;
  17195. procedure setEXID(thebits : TBits_1); inline;
  17196. procedure setSID(thebits : TBits_11); inline;
  17197. procedure setw(thebits : TBits_32); inline;
  17198. public
  17199. procedure clearEXID; inline;
  17200. procedure setEXID; inline;
  17201. property EID : TBits_18 read getEID write setEID;
  17202. property EXID : TBits_1 read getEXID write setEXID;
  17203. property SID : TBits_11 read getSID write setSID;
  17204. property w : TBits_32 read getw write setw;
  17205. end;
  17206. TCAN1_C1RXF18 = record
  17207. private
  17208. function getEID : TBits_18; inline;
  17209. function getEXID : TBits_1; inline;
  17210. function getSID : TBits_11; inline;
  17211. function getw : TBits_32; inline;
  17212. procedure setEID(thebits : TBits_18); inline;
  17213. procedure setEXID(thebits : TBits_1); inline;
  17214. procedure setSID(thebits : TBits_11); inline;
  17215. procedure setw(thebits : TBits_32); inline;
  17216. public
  17217. procedure clearEXID; inline;
  17218. procedure setEXID; inline;
  17219. property EID : TBits_18 read getEID write setEID;
  17220. property EXID : TBits_1 read getEXID write setEXID;
  17221. property SID : TBits_11 read getSID write setSID;
  17222. property w : TBits_32 read getw write setw;
  17223. end;
  17224. TCAN1_C1RXF19 = record
  17225. private
  17226. function getEID : TBits_18; inline;
  17227. function getEXID : TBits_1; inline;
  17228. function getSID : TBits_11; inline;
  17229. function getw : TBits_32; inline;
  17230. procedure setEID(thebits : TBits_18); inline;
  17231. procedure setEXID(thebits : TBits_1); inline;
  17232. procedure setSID(thebits : TBits_11); inline;
  17233. procedure setw(thebits : TBits_32); inline;
  17234. public
  17235. procedure clearEXID; inline;
  17236. procedure setEXID; inline;
  17237. property EID : TBits_18 read getEID write setEID;
  17238. property EXID : TBits_1 read getEXID write setEXID;
  17239. property SID : TBits_11 read getSID write setSID;
  17240. property w : TBits_32 read getw write setw;
  17241. end;
  17242. TCAN1_C1RXF20 = record
  17243. private
  17244. function getEID : TBits_18; inline;
  17245. function getEXID : TBits_1; inline;
  17246. function getSID : TBits_11; inline;
  17247. function getw : TBits_32; inline;
  17248. procedure setEID(thebits : TBits_18); inline;
  17249. procedure setEXID(thebits : TBits_1); inline;
  17250. procedure setSID(thebits : TBits_11); inline;
  17251. procedure setw(thebits : TBits_32); inline;
  17252. public
  17253. procedure clearEXID; inline;
  17254. procedure setEXID; inline;
  17255. property EID : TBits_18 read getEID write setEID;
  17256. property EXID : TBits_1 read getEXID write setEXID;
  17257. property SID : TBits_11 read getSID write setSID;
  17258. property w : TBits_32 read getw write setw;
  17259. end;
  17260. TCAN1_C1RXF21 = record
  17261. private
  17262. function getEID : TBits_18; inline;
  17263. function getEXID : TBits_1; inline;
  17264. function getSID : TBits_11; inline;
  17265. function getw : TBits_32; inline;
  17266. procedure setEID(thebits : TBits_18); inline;
  17267. procedure setEXID(thebits : TBits_1); inline;
  17268. procedure setSID(thebits : TBits_11); inline;
  17269. procedure setw(thebits : TBits_32); inline;
  17270. public
  17271. procedure clearEXID; inline;
  17272. procedure setEXID; inline;
  17273. property EID : TBits_18 read getEID write setEID;
  17274. property EXID : TBits_1 read getEXID write setEXID;
  17275. property SID : TBits_11 read getSID write setSID;
  17276. property w : TBits_32 read getw write setw;
  17277. end;
  17278. TCAN1_C1RXF22 = record
  17279. private
  17280. function getEID : TBits_18; inline;
  17281. function getEXID : TBits_1; inline;
  17282. function getSID : TBits_11; inline;
  17283. function getw : TBits_32; inline;
  17284. procedure setEID(thebits : TBits_18); inline;
  17285. procedure setEXID(thebits : TBits_1); inline;
  17286. procedure setSID(thebits : TBits_11); inline;
  17287. procedure setw(thebits : TBits_32); inline;
  17288. public
  17289. procedure clearEXID; inline;
  17290. procedure setEXID; inline;
  17291. property EID : TBits_18 read getEID write setEID;
  17292. property EXID : TBits_1 read getEXID write setEXID;
  17293. property SID : TBits_11 read getSID write setSID;
  17294. property w : TBits_32 read getw write setw;
  17295. end;
  17296. TCAN1_C1RXF23 = record
  17297. private
  17298. function getEID : TBits_18; inline;
  17299. function getEXID : TBits_1; inline;
  17300. function getSID : TBits_11; inline;
  17301. function getw : TBits_32; inline;
  17302. procedure setEID(thebits : TBits_18); inline;
  17303. procedure setEXID(thebits : TBits_1); inline;
  17304. procedure setSID(thebits : TBits_11); inline;
  17305. procedure setw(thebits : TBits_32); inline;
  17306. public
  17307. procedure clearEXID; inline;
  17308. procedure setEXID; inline;
  17309. property EID : TBits_18 read getEID write setEID;
  17310. property EXID : TBits_1 read getEXID write setEXID;
  17311. property SID : TBits_11 read getSID write setSID;
  17312. property w : TBits_32 read getw write setw;
  17313. end;
  17314. TCAN1_C1RXF24 = record
  17315. private
  17316. function getEID : TBits_18; inline;
  17317. function getEXID : TBits_1; inline;
  17318. function getSID : TBits_11; inline;
  17319. function getw : TBits_32; inline;
  17320. procedure setEID(thebits : TBits_18); inline;
  17321. procedure setEXID(thebits : TBits_1); inline;
  17322. procedure setSID(thebits : TBits_11); inline;
  17323. procedure setw(thebits : TBits_32); inline;
  17324. public
  17325. procedure clearEXID; inline;
  17326. procedure setEXID; inline;
  17327. property EID : TBits_18 read getEID write setEID;
  17328. property EXID : TBits_1 read getEXID write setEXID;
  17329. property SID : TBits_11 read getSID write setSID;
  17330. property w : TBits_32 read getw write setw;
  17331. end;
  17332. TCAN1_C1RXF25 = record
  17333. private
  17334. function getEID : TBits_18; inline;
  17335. function getEXID : TBits_1; inline;
  17336. function getSID : TBits_11; inline;
  17337. function getw : TBits_32; inline;
  17338. procedure setEID(thebits : TBits_18); inline;
  17339. procedure setEXID(thebits : TBits_1); inline;
  17340. procedure setSID(thebits : TBits_11); inline;
  17341. procedure setw(thebits : TBits_32); inline;
  17342. public
  17343. procedure clearEXID; inline;
  17344. procedure setEXID; inline;
  17345. property EID : TBits_18 read getEID write setEID;
  17346. property EXID : TBits_1 read getEXID write setEXID;
  17347. property SID : TBits_11 read getSID write setSID;
  17348. property w : TBits_32 read getw write setw;
  17349. end;
  17350. TCAN1_C1RXF26 = record
  17351. private
  17352. function getEID : TBits_18; inline;
  17353. function getEXID : TBits_1; inline;
  17354. function getSID : TBits_11; inline;
  17355. function getw : TBits_32; inline;
  17356. procedure setEID(thebits : TBits_18); inline;
  17357. procedure setEXID(thebits : TBits_1); inline;
  17358. procedure setSID(thebits : TBits_11); inline;
  17359. procedure setw(thebits : TBits_32); inline;
  17360. public
  17361. procedure clearEXID; inline;
  17362. procedure setEXID; inline;
  17363. property EID : TBits_18 read getEID write setEID;
  17364. property EXID : TBits_1 read getEXID write setEXID;
  17365. property SID : TBits_11 read getSID write setSID;
  17366. property w : TBits_32 read getw write setw;
  17367. end;
  17368. TCAN1_C1RXF27 = record
  17369. private
  17370. function getEID : TBits_18; inline;
  17371. function getEXID : TBits_1; inline;
  17372. function getSID : TBits_11; inline;
  17373. function getw : TBits_32; inline;
  17374. procedure setEID(thebits : TBits_18); inline;
  17375. procedure setEXID(thebits : TBits_1); inline;
  17376. procedure setSID(thebits : TBits_11); inline;
  17377. procedure setw(thebits : TBits_32); inline;
  17378. public
  17379. procedure clearEXID; inline;
  17380. procedure setEXID; inline;
  17381. property EID : TBits_18 read getEID write setEID;
  17382. property EXID : TBits_1 read getEXID write setEXID;
  17383. property SID : TBits_11 read getSID write setSID;
  17384. property w : TBits_32 read getw write setw;
  17385. end;
  17386. TCAN1_C1RXF28 = record
  17387. private
  17388. function getEID : TBits_18; inline;
  17389. function getEXID : TBits_1; inline;
  17390. function getSID : TBits_11; inline;
  17391. function getw : TBits_32; inline;
  17392. procedure setEID(thebits : TBits_18); inline;
  17393. procedure setEXID(thebits : TBits_1); inline;
  17394. procedure setSID(thebits : TBits_11); inline;
  17395. procedure setw(thebits : TBits_32); inline;
  17396. public
  17397. procedure clearEXID; inline;
  17398. procedure setEXID; inline;
  17399. property EID : TBits_18 read getEID write setEID;
  17400. property EXID : TBits_1 read getEXID write setEXID;
  17401. property SID : TBits_11 read getSID write setSID;
  17402. property w : TBits_32 read getw write setw;
  17403. end;
  17404. TCAN1_C1RXF29 = record
  17405. private
  17406. function getEID : TBits_18; inline;
  17407. function getEXID : TBits_1; inline;
  17408. function getSID : TBits_11; inline;
  17409. function getw : TBits_32; inline;
  17410. procedure setEID(thebits : TBits_18); inline;
  17411. procedure setEXID(thebits : TBits_1); inline;
  17412. procedure setSID(thebits : TBits_11); inline;
  17413. procedure setw(thebits : TBits_32); inline;
  17414. public
  17415. procedure clearEXID; inline;
  17416. procedure setEXID; inline;
  17417. property EID : TBits_18 read getEID write setEID;
  17418. property EXID : TBits_1 read getEXID write setEXID;
  17419. property SID : TBits_11 read getSID write setSID;
  17420. property w : TBits_32 read getw write setw;
  17421. end;
  17422. TCAN1_C1RXF30 = record
  17423. private
  17424. function getEID : TBits_18; inline;
  17425. function getEXID : TBits_1; inline;
  17426. function getSID : TBits_11; inline;
  17427. function getw : TBits_32; inline;
  17428. procedure setEID(thebits : TBits_18); inline;
  17429. procedure setEXID(thebits : TBits_1); inline;
  17430. procedure setSID(thebits : TBits_11); inline;
  17431. procedure setw(thebits : TBits_32); inline;
  17432. public
  17433. procedure clearEXID; inline;
  17434. procedure setEXID; inline;
  17435. property EID : TBits_18 read getEID write setEID;
  17436. property EXID : TBits_1 read getEXID write setEXID;
  17437. property SID : TBits_11 read getSID write setSID;
  17438. property w : TBits_32 read getw write setw;
  17439. end;
  17440. TCAN1_C1RXF31 = record
  17441. private
  17442. function getEID : TBits_18; inline;
  17443. function getEXID : TBits_1; inline;
  17444. function getSID : TBits_11; inline;
  17445. function getw : TBits_32; inline;
  17446. procedure setEID(thebits : TBits_18); inline;
  17447. procedure setEXID(thebits : TBits_1); inline;
  17448. procedure setSID(thebits : TBits_11); inline;
  17449. procedure setw(thebits : TBits_32); inline;
  17450. public
  17451. procedure clearEXID; inline;
  17452. procedure setEXID; inline;
  17453. property EID : TBits_18 read getEID write setEID;
  17454. property EXID : TBits_1 read getEXID write setEXID;
  17455. property SID : TBits_11 read getSID write setSID;
  17456. property w : TBits_32 read getw write setw;
  17457. end;
  17458. TCAN1_C1FIFOCON0 = record
  17459. private
  17460. function getDONLY : TBits_1; inline;
  17461. function getFRESET : TBits_1; inline;
  17462. function getFSIZE : TBits_5; inline;
  17463. function getRTREN : TBits_1; inline;
  17464. function getTXABAT : TBits_1; inline;
  17465. function getTXEN : TBits_1; inline;
  17466. function getTXERR : TBits_1; inline;
  17467. function getTXLARB : TBits_1; inline;
  17468. function getTXPRI : TBits_2; inline;
  17469. function getTXREQ : TBits_1; inline;
  17470. function getUINC : TBits_1; inline;
  17471. function getw : TBits_32; inline;
  17472. procedure setDONLY(thebits : TBits_1); inline;
  17473. procedure setFRESET(thebits : TBits_1); inline;
  17474. procedure setFSIZE(thebits : TBits_5); inline;
  17475. procedure setRTREN(thebits : TBits_1); inline;
  17476. procedure setTXABAT(thebits : TBits_1); inline;
  17477. procedure setTXEN(thebits : TBits_1); inline;
  17478. procedure setTXERR(thebits : TBits_1); inline;
  17479. procedure setTXLARB(thebits : TBits_1); inline;
  17480. procedure setTXPRI(thebits : TBits_2); inline;
  17481. procedure setTXREQ(thebits : TBits_1); inline;
  17482. procedure setUINC(thebits : TBits_1); inline;
  17483. procedure setw(thebits : TBits_32); inline;
  17484. public
  17485. procedure clearDONLY; inline;
  17486. procedure clearFRESET; inline;
  17487. procedure clearRTREN; inline;
  17488. procedure clearTXABAT; inline;
  17489. procedure clearTXEN; inline;
  17490. procedure clearTXERR; inline;
  17491. procedure clearTXLARB; inline;
  17492. procedure clearTXREQ; inline;
  17493. procedure clearUINC; inline;
  17494. procedure setDONLY; inline;
  17495. procedure setFRESET; inline;
  17496. procedure setRTREN; inline;
  17497. procedure setTXABAT; inline;
  17498. procedure setTXEN; inline;
  17499. procedure setTXERR; inline;
  17500. procedure setTXLARB; inline;
  17501. procedure setTXREQ; inline;
  17502. procedure setUINC; inline;
  17503. property DONLY : TBits_1 read getDONLY write setDONLY;
  17504. property FRESET : TBits_1 read getFRESET write setFRESET;
  17505. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17506. property RTREN : TBits_1 read getRTREN write setRTREN;
  17507. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17508. property TXEN : TBits_1 read getTXEN write setTXEN;
  17509. property TXERR : TBits_1 read getTXERR write setTXERR;
  17510. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17511. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17512. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17513. property UINC : TBits_1 read getUINC write setUINC;
  17514. property w : TBits_32 read getw write setw;
  17515. end;
  17516. TCAN1_C1FIFOINT0 = record
  17517. private
  17518. function getRXFULLIE : TBits_1; inline;
  17519. function getRXFULLIF : TBits_1; inline;
  17520. function getRXHALFIE : TBits_1; inline;
  17521. function getRXHALFIF : TBits_1; inline;
  17522. function getRXNEMPTYIE : TBits_1; inline;
  17523. function getRXNEMPTYIF : TBits_1; inline;
  17524. function getRXOVFLIE : TBits_1; inline;
  17525. function getRXOVFLIF : TBits_1; inline;
  17526. function getTXEMPTYIE : TBits_1; inline;
  17527. function getTXEMPTYIF : TBits_1; inline;
  17528. function getTXHALFIE : TBits_1; inline;
  17529. function getTXHALFIF : TBits_1; inline;
  17530. function getTXNFULLIE : TBits_1; inline;
  17531. function getTXNFULLIF : TBits_1; inline;
  17532. function getw : TBits_32; inline;
  17533. procedure setRXFULLIE(thebits : TBits_1); inline;
  17534. procedure setRXFULLIF(thebits : TBits_1); inline;
  17535. procedure setRXHALFIE(thebits : TBits_1); inline;
  17536. procedure setRXHALFIF(thebits : TBits_1); inline;
  17537. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17538. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17539. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17540. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17541. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17542. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17543. procedure setTXHALFIE(thebits : TBits_1); inline;
  17544. procedure setTXHALFIF(thebits : TBits_1); inline;
  17545. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17546. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17547. procedure setw(thebits : TBits_32); inline;
  17548. public
  17549. procedure clearRXFULLIE; inline;
  17550. procedure clearRXFULLIF; inline;
  17551. procedure clearRXHALFIE; inline;
  17552. procedure clearRXHALFIF; inline;
  17553. procedure clearRXNEMPTYIE; inline;
  17554. procedure clearRXNEMPTYIF; inline;
  17555. procedure clearRXOVFLIE; inline;
  17556. procedure clearRXOVFLIF; inline;
  17557. procedure clearTXEMPTYIE; inline;
  17558. procedure clearTXEMPTYIF; inline;
  17559. procedure clearTXHALFIE; inline;
  17560. procedure clearTXHALFIF; inline;
  17561. procedure clearTXNFULLIE; inline;
  17562. procedure clearTXNFULLIF; inline;
  17563. procedure setRXFULLIE; inline;
  17564. procedure setRXFULLIF; inline;
  17565. procedure setRXHALFIE; inline;
  17566. procedure setRXHALFIF; inline;
  17567. procedure setRXNEMPTYIE; inline;
  17568. procedure setRXNEMPTYIF; inline;
  17569. procedure setRXOVFLIE; inline;
  17570. procedure setRXOVFLIF; inline;
  17571. procedure setTXEMPTYIE; inline;
  17572. procedure setTXEMPTYIF; inline;
  17573. procedure setTXHALFIE; inline;
  17574. procedure setTXHALFIF; inline;
  17575. procedure setTXNFULLIE; inline;
  17576. procedure setTXNFULLIF; inline;
  17577. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17578. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17579. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17580. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17581. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17582. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17583. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17584. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17585. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17586. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17587. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17588. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17589. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17590. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17591. property w : TBits_32 read getw write setw;
  17592. end;
  17593. TCAN1_C1FIFOCI0 = record
  17594. private
  17595. function getCFIFOCI : TBits_5; inline;
  17596. function getw : TBits_32; inline;
  17597. procedure setCFIFOCI(thebits : TBits_5); inline;
  17598. procedure setw(thebits : TBits_32); inline;
  17599. public
  17600. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17601. property w : TBits_32 read getw write setw;
  17602. end;
  17603. TCAN1_C1FIFOCON1 = record
  17604. private
  17605. function getDONLY : TBits_1; inline;
  17606. function getFRESET : TBits_1; inline;
  17607. function getFSIZE : TBits_5; inline;
  17608. function getRTREN : TBits_1; inline;
  17609. function getTXABAT : TBits_1; inline;
  17610. function getTXEN : TBits_1; inline;
  17611. function getTXERR : TBits_1; inline;
  17612. function getTXLARB : TBits_1; inline;
  17613. function getTXPRI : TBits_2; inline;
  17614. function getTXREQ : TBits_1; inline;
  17615. function getUINC : TBits_1; inline;
  17616. function getw : TBits_32; inline;
  17617. procedure setDONLY(thebits : TBits_1); inline;
  17618. procedure setFRESET(thebits : TBits_1); inline;
  17619. procedure setFSIZE(thebits : TBits_5); inline;
  17620. procedure setRTREN(thebits : TBits_1); inline;
  17621. procedure setTXABAT(thebits : TBits_1); inline;
  17622. procedure setTXEN(thebits : TBits_1); inline;
  17623. procedure setTXERR(thebits : TBits_1); inline;
  17624. procedure setTXLARB(thebits : TBits_1); inline;
  17625. procedure setTXPRI(thebits : TBits_2); inline;
  17626. procedure setTXREQ(thebits : TBits_1); inline;
  17627. procedure setUINC(thebits : TBits_1); inline;
  17628. procedure setw(thebits : TBits_32); inline;
  17629. public
  17630. procedure clearDONLY; inline;
  17631. procedure clearFRESET; inline;
  17632. procedure clearRTREN; inline;
  17633. procedure clearTXABAT; inline;
  17634. procedure clearTXEN; inline;
  17635. procedure clearTXERR; inline;
  17636. procedure clearTXLARB; inline;
  17637. procedure clearTXREQ; inline;
  17638. procedure clearUINC; inline;
  17639. procedure setDONLY; inline;
  17640. procedure setFRESET; inline;
  17641. procedure setRTREN; inline;
  17642. procedure setTXABAT; inline;
  17643. procedure setTXEN; inline;
  17644. procedure setTXERR; inline;
  17645. procedure setTXLARB; inline;
  17646. procedure setTXREQ; inline;
  17647. procedure setUINC; inline;
  17648. property DONLY : TBits_1 read getDONLY write setDONLY;
  17649. property FRESET : TBits_1 read getFRESET write setFRESET;
  17650. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17651. property RTREN : TBits_1 read getRTREN write setRTREN;
  17652. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17653. property TXEN : TBits_1 read getTXEN write setTXEN;
  17654. property TXERR : TBits_1 read getTXERR write setTXERR;
  17655. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17656. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17657. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17658. property UINC : TBits_1 read getUINC write setUINC;
  17659. property w : TBits_32 read getw write setw;
  17660. end;
  17661. TCAN1_C1FIFOINT1 = record
  17662. private
  17663. function getRXFULLIE : TBits_1; inline;
  17664. function getRXFULLIF : TBits_1; inline;
  17665. function getRXHALFIE : TBits_1; inline;
  17666. function getRXHALFIF : TBits_1; inline;
  17667. function getRXNEMPTYIE : TBits_1; inline;
  17668. function getRXNEMPTYIF : TBits_1; inline;
  17669. function getRXOVFLIE : TBits_1; inline;
  17670. function getRXOVFLIF : TBits_1; inline;
  17671. function getTXEMPTYIE : TBits_1; inline;
  17672. function getTXEMPTYIF : TBits_1; inline;
  17673. function getTXHALFIE : TBits_1; inline;
  17674. function getTXHALFIF : TBits_1; inline;
  17675. function getTXNFULLIE : TBits_1; inline;
  17676. function getTXNFULLIF : TBits_1; inline;
  17677. function getw : TBits_32; inline;
  17678. procedure setRXFULLIE(thebits : TBits_1); inline;
  17679. procedure setRXFULLIF(thebits : TBits_1); inline;
  17680. procedure setRXHALFIE(thebits : TBits_1); inline;
  17681. procedure setRXHALFIF(thebits : TBits_1); inline;
  17682. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17683. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17684. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17685. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17686. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17687. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17688. procedure setTXHALFIE(thebits : TBits_1); inline;
  17689. procedure setTXHALFIF(thebits : TBits_1); inline;
  17690. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17691. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17692. procedure setw(thebits : TBits_32); inline;
  17693. public
  17694. procedure clearRXFULLIE; inline;
  17695. procedure clearRXFULLIF; inline;
  17696. procedure clearRXHALFIE; inline;
  17697. procedure clearRXHALFIF; inline;
  17698. procedure clearRXNEMPTYIE; inline;
  17699. procedure clearRXNEMPTYIF; inline;
  17700. procedure clearRXOVFLIE; inline;
  17701. procedure clearRXOVFLIF; inline;
  17702. procedure clearTXEMPTYIE; inline;
  17703. procedure clearTXEMPTYIF; inline;
  17704. procedure clearTXHALFIE; inline;
  17705. procedure clearTXHALFIF; inline;
  17706. procedure clearTXNFULLIE; inline;
  17707. procedure clearTXNFULLIF; inline;
  17708. procedure setRXFULLIE; inline;
  17709. procedure setRXFULLIF; inline;
  17710. procedure setRXHALFIE; inline;
  17711. procedure setRXHALFIF; inline;
  17712. procedure setRXNEMPTYIE; inline;
  17713. procedure setRXNEMPTYIF; inline;
  17714. procedure setRXOVFLIE; inline;
  17715. procedure setRXOVFLIF; inline;
  17716. procedure setTXEMPTYIE; inline;
  17717. procedure setTXEMPTYIF; inline;
  17718. procedure setTXHALFIE; inline;
  17719. procedure setTXHALFIF; inline;
  17720. procedure setTXNFULLIE; inline;
  17721. procedure setTXNFULLIF; inline;
  17722. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17723. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17724. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17725. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17726. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17727. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17728. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17729. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17730. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17731. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17732. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17733. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17734. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17735. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17736. property w : TBits_32 read getw write setw;
  17737. end;
  17738. TCAN1_C1FIFOCI1 = record
  17739. private
  17740. function getCFIFOCI : TBits_5; inline;
  17741. function getw : TBits_32; inline;
  17742. procedure setCFIFOCI(thebits : TBits_5); inline;
  17743. procedure setw(thebits : TBits_32); inline;
  17744. public
  17745. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17746. property w : TBits_32 read getw write setw;
  17747. end;
  17748. TCAN1_C1FIFOCON2 = record
  17749. private
  17750. function getDONLY : TBits_1; inline;
  17751. function getFRESET : TBits_1; inline;
  17752. function getFSIZE : TBits_5; inline;
  17753. function getRTREN : TBits_1; inline;
  17754. function getTXABAT : TBits_1; inline;
  17755. function getTXEN : TBits_1; inline;
  17756. function getTXERR : TBits_1; inline;
  17757. function getTXLARB : TBits_1; inline;
  17758. function getTXPRI : TBits_2; inline;
  17759. function getTXREQ : TBits_1; inline;
  17760. function getUINC : TBits_1; inline;
  17761. function getw : TBits_32; inline;
  17762. procedure setDONLY(thebits : TBits_1); inline;
  17763. procedure setFRESET(thebits : TBits_1); inline;
  17764. procedure setFSIZE(thebits : TBits_5); inline;
  17765. procedure setRTREN(thebits : TBits_1); inline;
  17766. procedure setTXABAT(thebits : TBits_1); inline;
  17767. procedure setTXEN(thebits : TBits_1); inline;
  17768. procedure setTXERR(thebits : TBits_1); inline;
  17769. procedure setTXLARB(thebits : TBits_1); inline;
  17770. procedure setTXPRI(thebits : TBits_2); inline;
  17771. procedure setTXREQ(thebits : TBits_1); inline;
  17772. procedure setUINC(thebits : TBits_1); inline;
  17773. procedure setw(thebits : TBits_32); inline;
  17774. public
  17775. procedure clearDONLY; inline;
  17776. procedure clearFRESET; inline;
  17777. procedure clearRTREN; inline;
  17778. procedure clearTXABAT; inline;
  17779. procedure clearTXEN; inline;
  17780. procedure clearTXERR; inline;
  17781. procedure clearTXLARB; inline;
  17782. procedure clearTXREQ; inline;
  17783. procedure clearUINC; inline;
  17784. procedure setDONLY; inline;
  17785. procedure setFRESET; inline;
  17786. procedure setRTREN; inline;
  17787. procedure setTXABAT; inline;
  17788. procedure setTXEN; inline;
  17789. procedure setTXERR; inline;
  17790. procedure setTXLARB; inline;
  17791. procedure setTXREQ; inline;
  17792. procedure setUINC; inline;
  17793. property DONLY : TBits_1 read getDONLY write setDONLY;
  17794. property FRESET : TBits_1 read getFRESET write setFRESET;
  17795. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17796. property RTREN : TBits_1 read getRTREN write setRTREN;
  17797. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17798. property TXEN : TBits_1 read getTXEN write setTXEN;
  17799. property TXERR : TBits_1 read getTXERR write setTXERR;
  17800. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17801. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17802. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17803. property UINC : TBits_1 read getUINC write setUINC;
  17804. property w : TBits_32 read getw write setw;
  17805. end;
  17806. TCAN1_C1FIFOINT2 = record
  17807. private
  17808. function getRXFULLIE : TBits_1; inline;
  17809. function getRXFULLIF : TBits_1; inline;
  17810. function getRXHALFIE : TBits_1; inline;
  17811. function getRXHALFIF : TBits_1; inline;
  17812. function getRXNEMPTYIE : TBits_1; inline;
  17813. function getRXNEMPTYIF : TBits_1; inline;
  17814. function getRXOVFLIE : TBits_1; inline;
  17815. function getRXOVFLIF : TBits_1; inline;
  17816. function getTXEMPTYIE : TBits_1; inline;
  17817. function getTXEMPTYIF : TBits_1; inline;
  17818. function getTXHALFIE : TBits_1; inline;
  17819. function getTXHALFIF : TBits_1; inline;
  17820. function getTXNFULLIE : TBits_1; inline;
  17821. function getTXNFULLIF : TBits_1; inline;
  17822. function getw : TBits_32; inline;
  17823. procedure setRXFULLIE(thebits : TBits_1); inline;
  17824. procedure setRXFULLIF(thebits : TBits_1); inline;
  17825. procedure setRXHALFIE(thebits : TBits_1); inline;
  17826. procedure setRXHALFIF(thebits : TBits_1); inline;
  17827. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17828. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17829. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17830. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17831. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17832. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17833. procedure setTXHALFIE(thebits : TBits_1); inline;
  17834. procedure setTXHALFIF(thebits : TBits_1); inline;
  17835. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17836. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17837. procedure setw(thebits : TBits_32); inline;
  17838. public
  17839. procedure clearRXFULLIE; inline;
  17840. procedure clearRXFULLIF; inline;
  17841. procedure clearRXHALFIE; inline;
  17842. procedure clearRXHALFIF; inline;
  17843. procedure clearRXNEMPTYIE; inline;
  17844. procedure clearRXNEMPTYIF; inline;
  17845. procedure clearRXOVFLIE; inline;
  17846. procedure clearRXOVFLIF; inline;
  17847. procedure clearTXEMPTYIE; inline;
  17848. procedure clearTXEMPTYIF; inline;
  17849. procedure clearTXHALFIE; inline;
  17850. procedure clearTXHALFIF; inline;
  17851. procedure clearTXNFULLIE; inline;
  17852. procedure clearTXNFULLIF; inline;
  17853. procedure setRXFULLIE; inline;
  17854. procedure setRXFULLIF; inline;
  17855. procedure setRXHALFIE; inline;
  17856. procedure setRXHALFIF; inline;
  17857. procedure setRXNEMPTYIE; inline;
  17858. procedure setRXNEMPTYIF; inline;
  17859. procedure setRXOVFLIE; inline;
  17860. procedure setRXOVFLIF; inline;
  17861. procedure setTXEMPTYIE; inline;
  17862. procedure setTXEMPTYIF; inline;
  17863. procedure setTXHALFIE; inline;
  17864. procedure setTXHALFIF; inline;
  17865. procedure setTXNFULLIE; inline;
  17866. procedure setTXNFULLIF; inline;
  17867. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17868. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17869. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17870. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17871. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17872. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17873. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17874. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17875. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17876. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17877. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17878. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17879. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17880. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17881. property w : TBits_32 read getw write setw;
  17882. end;
  17883. TCAN1_C1FIFOCI2 = record
  17884. private
  17885. function getCFIFOCI : TBits_5; inline;
  17886. function getw : TBits_32; inline;
  17887. procedure setCFIFOCI(thebits : TBits_5); inline;
  17888. procedure setw(thebits : TBits_32); inline;
  17889. public
  17890. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17891. property w : TBits_32 read getw write setw;
  17892. end;
  17893. TCAN1_C1FIFOCON3 = record
  17894. private
  17895. function getDONLY : TBits_1; inline;
  17896. function getFRESET : TBits_1; inline;
  17897. function getFSIZE : TBits_5; inline;
  17898. function getRTREN : TBits_1; inline;
  17899. function getTXABAT : TBits_1; inline;
  17900. function getTXEN : TBits_1; inline;
  17901. function getTXERR : TBits_1; inline;
  17902. function getTXLARB : TBits_1; inline;
  17903. function getTXPRI : TBits_2; inline;
  17904. function getTXREQ : TBits_1; inline;
  17905. function getUINC : TBits_1; inline;
  17906. function getw : TBits_32; inline;
  17907. procedure setDONLY(thebits : TBits_1); inline;
  17908. procedure setFRESET(thebits : TBits_1); inline;
  17909. procedure setFSIZE(thebits : TBits_5); inline;
  17910. procedure setRTREN(thebits : TBits_1); inline;
  17911. procedure setTXABAT(thebits : TBits_1); inline;
  17912. procedure setTXEN(thebits : TBits_1); inline;
  17913. procedure setTXERR(thebits : TBits_1); inline;
  17914. procedure setTXLARB(thebits : TBits_1); inline;
  17915. procedure setTXPRI(thebits : TBits_2); inline;
  17916. procedure setTXREQ(thebits : TBits_1); inline;
  17917. procedure setUINC(thebits : TBits_1); inline;
  17918. procedure setw(thebits : TBits_32); inline;
  17919. public
  17920. procedure clearDONLY; inline;
  17921. procedure clearFRESET; inline;
  17922. procedure clearRTREN; inline;
  17923. procedure clearTXABAT; inline;
  17924. procedure clearTXEN; inline;
  17925. procedure clearTXERR; inline;
  17926. procedure clearTXLARB; inline;
  17927. procedure clearTXREQ; inline;
  17928. procedure clearUINC; inline;
  17929. procedure setDONLY; inline;
  17930. procedure setFRESET; inline;
  17931. procedure setRTREN; inline;
  17932. procedure setTXABAT; inline;
  17933. procedure setTXEN; inline;
  17934. procedure setTXERR; inline;
  17935. procedure setTXLARB; inline;
  17936. procedure setTXREQ; inline;
  17937. procedure setUINC; inline;
  17938. property DONLY : TBits_1 read getDONLY write setDONLY;
  17939. property FRESET : TBits_1 read getFRESET write setFRESET;
  17940. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17941. property RTREN : TBits_1 read getRTREN write setRTREN;
  17942. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17943. property TXEN : TBits_1 read getTXEN write setTXEN;
  17944. property TXERR : TBits_1 read getTXERR write setTXERR;
  17945. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17946. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17947. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17948. property UINC : TBits_1 read getUINC write setUINC;
  17949. property w : TBits_32 read getw write setw;
  17950. end;
  17951. TCAN1_C1FIFOINT3 = record
  17952. private
  17953. function getRXFULLIE : TBits_1; inline;
  17954. function getRXFULLIF : TBits_1; inline;
  17955. function getRXHALFIE : TBits_1; inline;
  17956. function getRXHALFIF : TBits_1; inline;
  17957. function getRXNEMPTYIE : TBits_1; inline;
  17958. function getRXNEMPTYIF : TBits_1; inline;
  17959. function getRXOVFLIE : TBits_1; inline;
  17960. function getRXOVFLIF : TBits_1; inline;
  17961. function getTXEMPTYIE : TBits_1; inline;
  17962. function getTXEMPTYIF : TBits_1; inline;
  17963. function getTXHALFIE : TBits_1; inline;
  17964. function getTXHALFIF : TBits_1; inline;
  17965. function getTXNFULLIE : TBits_1; inline;
  17966. function getTXNFULLIF : TBits_1; inline;
  17967. function getw : TBits_32; inline;
  17968. procedure setRXFULLIE(thebits : TBits_1); inline;
  17969. procedure setRXFULLIF(thebits : TBits_1); inline;
  17970. procedure setRXHALFIE(thebits : TBits_1); inline;
  17971. procedure setRXHALFIF(thebits : TBits_1); inline;
  17972. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17973. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17974. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17975. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17976. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17977. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17978. procedure setTXHALFIE(thebits : TBits_1); inline;
  17979. procedure setTXHALFIF(thebits : TBits_1); inline;
  17980. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17981. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17982. procedure setw(thebits : TBits_32); inline;
  17983. public
  17984. procedure clearRXFULLIE; inline;
  17985. procedure clearRXFULLIF; inline;
  17986. procedure clearRXHALFIE; inline;
  17987. procedure clearRXHALFIF; inline;
  17988. procedure clearRXNEMPTYIE; inline;
  17989. procedure clearRXNEMPTYIF; inline;
  17990. procedure clearRXOVFLIE; inline;
  17991. procedure clearRXOVFLIF; inline;
  17992. procedure clearTXEMPTYIE; inline;
  17993. procedure clearTXEMPTYIF; inline;
  17994. procedure clearTXHALFIE; inline;
  17995. procedure clearTXHALFIF; inline;
  17996. procedure clearTXNFULLIE; inline;
  17997. procedure clearTXNFULLIF; inline;
  17998. procedure setRXFULLIE; inline;
  17999. procedure setRXFULLIF; inline;
  18000. procedure setRXHALFIE; inline;
  18001. procedure setRXHALFIF; inline;
  18002. procedure setRXNEMPTYIE; inline;
  18003. procedure setRXNEMPTYIF; inline;
  18004. procedure setRXOVFLIE; inline;
  18005. procedure setRXOVFLIF; inline;
  18006. procedure setTXEMPTYIE; inline;
  18007. procedure setTXEMPTYIF; inline;
  18008. procedure setTXHALFIE; inline;
  18009. procedure setTXHALFIF; inline;
  18010. procedure setTXNFULLIE; inline;
  18011. procedure setTXNFULLIF; inline;
  18012. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18013. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18014. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18015. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18016. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18017. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18018. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18019. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18020. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18021. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18022. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18023. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18024. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18025. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18026. property w : TBits_32 read getw write setw;
  18027. end;
  18028. TCAN1_C1FIFOCI3 = record
  18029. private
  18030. function getCFIFOCI : TBits_5; inline;
  18031. function getw : TBits_32; inline;
  18032. procedure setCFIFOCI(thebits : TBits_5); inline;
  18033. procedure setw(thebits : TBits_32); inline;
  18034. public
  18035. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18036. property w : TBits_32 read getw write setw;
  18037. end;
  18038. TCAN1_C1FIFOCON4 = record
  18039. private
  18040. function getDONLY : TBits_1; inline;
  18041. function getFRESET : TBits_1; inline;
  18042. function getFSIZE : TBits_5; inline;
  18043. function getRTREN : TBits_1; inline;
  18044. function getTXABAT : TBits_1; inline;
  18045. function getTXEN : TBits_1; inline;
  18046. function getTXERR : TBits_1; inline;
  18047. function getTXLARB : TBits_1; inline;
  18048. function getTXPRI : TBits_2; inline;
  18049. function getTXREQ : TBits_1; inline;
  18050. function getUINC : TBits_1; inline;
  18051. function getw : TBits_32; inline;
  18052. procedure setDONLY(thebits : TBits_1); inline;
  18053. procedure setFRESET(thebits : TBits_1); inline;
  18054. procedure setFSIZE(thebits : TBits_5); inline;
  18055. procedure setRTREN(thebits : TBits_1); inline;
  18056. procedure setTXABAT(thebits : TBits_1); inline;
  18057. procedure setTXEN(thebits : TBits_1); inline;
  18058. procedure setTXERR(thebits : TBits_1); inline;
  18059. procedure setTXLARB(thebits : TBits_1); inline;
  18060. procedure setTXPRI(thebits : TBits_2); inline;
  18061. procedure setTXREQ(thebits : TBits_1); inline;
  18062. procedure setUINC(thebits : TBits_1); inline;
  18063. procedure setw(thebits : TBits_32); inline;
  18064. public
  18065. procedure clearDONLY; inline;
  18066. procedure clearFRESET; inline;
  18067. procedure clearRTREN; inline;
  18068. procedure clearTXABAT; inline;
  18069. procedure clearTXEN; inline;
  18070. procedure clearTXERR; inline;
  18071. procedure clearTXLARB; inline;
  18072. procedure clearTXREQ; inline;
  18073. procedure clearUINC; inline;
  18074. procedure setDONLY; inline;
  18075. procedure setFRESET; inline;
  18076. procedure setRTREN; inline;
  18077. procedure setTXABAT; inline;
  18078. procedure setTXEN; inline;
  18079. procedure setTXERR; inline;
  18080. procedure setTXLARB; inline;
  18081. procedure setTXREQ; inline;
  18082. procedure setUINC; inline;
  18083. property DONLY : TBits_1 read getDONLY write setDONLY;
  18084. property FRESET : TBits_1 read getFRESET write setFRESET;
  18085. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18086. property RTREN : TBits_1 read getRTREN write setRTREN;
  18087. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18088. property TXEN : TBits_1 read getTXEN write setTXEN;
  18089. property TXERR : TBits_1 read getTXERR write setTXERR;
  18090. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18091. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18092. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18093. property UINC : TBits_1 read getUINC write setUINC;
  18094. property w : TBits_32 read getw write setw;
  18095. end;
  18096. TCAN1_C1FIFOINT4 = record
  18097. private
  18098. function getRXFULLIE : TBits_1; inline;
  18099. function getRXFULLIF : TBits_1; inline;
  18100. function getRXHALFIE : TBits_1; inline;
  18101. function getRXHALFIF : TBits_1; inline;
  18102. function getRXNEMPTYIE : TBits_1; inline;
  18103. function getRXNEMPTYIF : TBits_1; inline;
  18104. function getRXOVFLIE : TBits_1; inline;
  18105. function getRXOVFLIF : TBits_1; inline;
  18106. function getTXEMPTYIE : TBits_1; inline;
  18107. function getTXEMPTYIF : TBits_1; inline;
  18108. function getTXHALFIE : TBits_1; inline;
  18109. function getTXHALFIF : TBits_1; inline;
  18110. function getTXNFULLIE : TBits_1; inline;
  18111. function getTXNFULLIF : TBits_1; inline;
  18112. function getw : TBits_32; inline;
  18113. procedure setRXFULLIE(thebits : TBits_1); inline;
  18114. procedure setRXFULLIF(thebits : TBits_1); inline;
  18115. procedure setRXHALFIE(thebits : TBits_1); inline;
  18116. procedure setRXHALFIF(thebits : TBits_1); inline;
  18117. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18118. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18119. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18120. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18121. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18122. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18123. procedure setTXHALFIE(thebits : TBits_1); inline;
  18124. procedure setTXHALFIF(thebits : TBits_1); inline;
  18125. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18126. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18127. procedure setw(thebits : TBits_32); inline;
  18128. public
  18129. procedure clearRXFULLIE; inline;
  18130. procedure clearRXFULLIF; inline;
  18131. procedure clearRXHALFIE; inline;
  18132. procedure clearRXHALFIF; inline;
  18133. procedure clearRXNEMPTYIE; inline;
  18134. procedure clearRXNEMPTYIF; inline;
  18135. procedure clearRXOVFLIE; inline;
  18136. procedure clearRXOVFLIF; inline;
  18137. procedure clearTXEMPTYIE; inline;
  18138. procedure clearTXEMPTYIF; inline;
  18139. procedure clearTXHALFIE; inline;
  18140. procedure clearTXHALFIF; inline;
  18141. procedure clearTXNFULLIE; inline;
  18142. procedure clearTXNFULLIF; inline;
  18143. procedure setRXFULLIE; inline;
  18144. procedure setRXFULLIF; inline;
  18145. procedure setRXHALFIE; inline;
  18146. procedure setRXHALFIF; inline;
  18147. procedure setRXNEMPTYIE; inline;
  18148. procedure setRXNEMPTYIF; inline;
  18149. procedure setRXOVFLIE; inline;
  18150. procedure setRXOVFLIF; inline;
  18151. procedure setTXEMPTYIE; inline;
  18152. procedure setTXEMPTYIF; inline;
  18153. procedure setTXHALFIE; inline;
  18154. procedure setTXHALFIF; inline;
  18155. procedure setTXNFULLIE; inline;
  18156. procedure setTXNFULLIF; inline;
  18157. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18158. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18159. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18160. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18161. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18162. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18163. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18164. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18165. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18166. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18167. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18168. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18169. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18170. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18171. property w : TBits_32 read getw write setw;
  18172. end;
  18173. TCAN1_C1FIFOCI4 = record
  18174. private
  18175. function getCFIFOCI : TBits_5; inline;
  18176. function getw : TBits_32; inline;
  18177. procedure setCFIFOCI(thebits : TBits_5); inline;
  18178. procedure setw(thebits : TBits_32); inline;
  18179. public
  18180. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18181. property w : TBits_32 read getw write setw;
  18182. end;
  18183. TCAN1_C1FIFOCON5 = record
  18184. private
  18185. function getDONLY : TBits_1; inline;
  18186. function getFRESET : TBits_1; inline;
  18187. function getFSIZE : TBits_5; inline;
  18188. function getRTREN : TBits_1; inline;
  18189. function getTXABAT : TBits_1; inline;
  18190. function getTXEN : TBits_1; inline;
  18191. function getTXERR : TBits_1; inline;
  18192. function getTXLARB : TBits_1; inline;
  18193. function getTXPRI : TBits_2; inline;
  18194. function getTXREQ : TBits_1; inline;
  18195. function getUINC : TBits_1; inline;
  18196. function getw : TBits_32; inline;
  18197. procedure setDONLY(thebits : TBits_1); inline;
  18198. procedure setFRESET(thebits : TBits_1); inline;
  18199. procedure setFSIZE(thebits : TBits_5); inline;
  18200. procedure setRTREN(thebits : TBits_1); inline;
  18201. procedure setTXABAT(thebits : TBits_1); inline;
  18202. procedure setTXEN(thebits : TBits_1); inline;
  18203. procedure setTXERR(thebits : TBits_1); inline;
  18204. procedure setTXLARB(thebits : TBits_1); inline;
  18205. procedure setTXPRI(thebits : TBits_2); inline;
  18206. procedure setTXREQ(thebits : TBits_1); inline;
  18207. procedure setUINC(thebits : TBits_1); inline;
  18208. procedure setw(thebits : TBits_32); inline;
  18209. public
  18210. procedure clearDONLY; inline;
  18211. procedure clearFRESET; inline;
  18212. procedure clearRTREN; inline;
  18213. procedure clearTXABAT; inline;
  18214. procedure clearTXEN; inline;
  18215. procedure clearTXERR; inline;
  18216. procedure clearTXLARB; inline;
  18217. procedure clearTXREQ; inline;
  18218. procedure clearUINC; inline;
  18219. procedure setDONLY; inline;
  18220. procedure setFRESET; inline;
  18221. procedure setRTREN; inline;
  18222. procedure setTXABAT; inline;
  18223. procedure setTXEN; inline;
  18224. procedure setTXERR; inline;
  18225. procedure setTXLARB; inline;
  18226. procedure setTXREQ; inline;
  18227. procedure setUINC; inline;
  18228. property DONLY : TBits_1 read getDONLY write setDONLY;
  18229. property FRESET : TBits_1 read getFRESET write setFRESET;
  18230. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18231. property RTREN : TBits_1 read getRTREN write setRTREN;
  18232. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18233. property TXEN : TBits_1 read getTXEN write setTXEN;
  18234. property TXERR : TBits_1 read getTXERR write setTXERR;
  18235. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18236. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18237. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18238. property UINC : TBits_1 read getUINC write setUINC;
  18239. property w : TBits_32 read getw write setw;
  18240. end;
  18241. TCAN1_C1FIFOINT5 = record
  18242. private
  18243. function getRXFULLIE : TBits_1; inline;
  18244. function getRXFULLIF : TBits_1; inline;
  18245. function getRXHALFIE : TBits_1; inline;
  18246. function getRXHALFIF : TBits_1; inline;
  18247. function getRXNEMPTYIE : TBits_1; inline;
  18248. function getRXNEMPTYIF : TBits_1; inline;
  18249. function getRXOVFLIE : TBits_1; inline;
  18250. function getRXOVFLIF : TBits_1; inline;
  18251. function getTXEMPTYIE : TBits_1; inline;
  18252. function getTXEMPTYIF : TBits_1; inline;
  18253. function getTXHALFIE : TBits_1; inline;
  18254. function getTXHALFIF : TBits_1; inline;
  18255. function getTXNFULLIE : TBits_1; inline;
  18256. function getTXNFULLIF : TBits_1; inline;
  18257. function getw : TBits_32; inline;
  18258. procedure setRXFULLIE(thebits : TBits_1); inline;
  18259. procedure setRXFULLIF(thebits : TBits_1); inline;
  18260. procedure setRXHALFIE(thebits : TBits_1); inline;
  18261. procedure setRXHALFIF(thebits : TBits_1); inline;
  18262. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18263. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18264. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18265. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18266. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18267. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18268. procedure setTXHALFIE(thebits : TBits_1); inline;
  18269. procedure setTXHALFIF(thebits : TBits_1); inline;
  18270. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18271. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18272. procedure setw(thebits : TBits_32); inline;
  18273. public
  18274. procedure clearRXFULLIE; inline;
  18275. procedure clearRXFULLIF; inline;
  18276. procedure clearRXHALFIE; inline;
  18277. procedure clearRXHALFIF; inline;
  18278. procedure clearRXNEMPTYIE; inline;
  18279. procedure clearRXNEMPTYIF; inline;
  18280. procedure clearRXOVFLIE; inline;
  18281. procedure clearRXOVFLIF; inline;
  18282. procedure clearTXEMPTYIE; inline;
  18283. procedure clearTXEMPTYIF; inline;
  18284. procedure clearTXHALFIE; inline;
  18285. procedure clearTXHALFIF; inline;
  18286. procedure clearTXNFULLIE; inline;
  18287. procedure clearTXNFULLIF; inline;
  18288. procedure setRXFULLIE; inline;
  18289. procedure setRXFULLIF; inline;
  18290. procedure setRXHALFIE; inline;
  18291. procedure setRXHALFIF; inline;
  18292. procedure setRXNEMPTYIE; inline;
  18293. procedure setRXNEMPTYIF; inline;
  18294. procedure setRXOVFLIE; inline;
  18295. procedure setRXOVFLIF; inline;
  18296. procedure setTXEMPTYIE; inline;
  18297. procedure setTXEMPTYIF; inline;
  18298. procedure setTXHALFIE; inline;
  18299. procedure setTXHALFIF; inline;
  18300. procedure setTXNFULLIE; inline;
  18301. procedure setTXNFULLIF; inline;
  18302. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18303. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18304. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18305. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18306. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18307. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18308. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18309. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18310. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18311. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18312. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18313. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18314. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18315. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18316. property w : TBits_32 read getw write setw;
  18317. end;
  18318. TCAN1_C1FIFOCI5 = record
  18319. private
  18320. function getCFIFOCI : TBits_5; inline;
  18321. function getw : TBits_32; inline;
  18322. procedure setCFIFOCI(thebits : TBits_5); inline;
  18323. procedure setw(thebits : TBits_32); inline;
  18324. public
  18325. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18326. property w : TBits_32 read getw write setw;
  18327. end;
  18328. TCAN1_C1FIFOCON6 = record
  18329. private
  18330. function getDONLY : TBits_1; inline;
  18331. function getFRESET : TBits_1; inline;
  18332. function getFSIZE : TBits_5; inline;
  18333. function getRTREN : TBits_1; inline;
  18334. function getTXABAT : TBits_1; inline;
  18335. function getTXEN : TBits_1; inline;
  18336. function getTXERR : TBits_1; inline;
  18337. function getTXLARB : TBits_1; inline;
  18338. function getTXPRI : TBits_2; inline;
  18339. function getTXREQ : TBits_1; inline;
  18340. function getUINC : TBits_1; inline;
  18341. function getw : TBits_32; inline;
  18342. procedure setDONLY(thebits : TBits_1); inline;
  18343. procedure setFRESET(thebits : TBits_1); inline;
  18344. procedure setFSIZE(thebits : TBits_5); inline;
  18345. procedure setRTREN(thebits : TBits_1); inline;
  18346. procedure setTXABAT(thebits : TBits_1); inline;
  18347. procedure setTXEN(thebits : TBits_1); inline;
  18348. procedure setTXERR(thebits : TBits_1); inline;
  18349. procedure setTXLARB(thebits : TBits_1); inline;
  18350. procedure setTXPRI(thebits : TBits_2); inline;
  18351. procedure setTXREQ(thebits : TBits_1); inline;
  18352. procedure setUINC(thebits : TBits_1); inline;
  18353. procedure setw(thebits : TBits_32); inline;
  18354. public
  18355. procedure clearDONLY; inline;
  18356. procedure clearFRESET; inline;
  18357. procedure clearRTREN; inline;
  18358. procedure clearTXABAT; inline;
  18359. procedure clearTXEN; inline;
  18360. procedure clearTXERR; inline;
  18361. procedure clearTXLARB; inline;
  18362. procedure clearTXREQ; inline;
  18363. procedure clearUINC; inline;
  18364. procedure setDONLY; inline;
  18365. procedure setFRESET; inline;
  18366. procedure setRTREN; inline;
  18367. procedure setTXABAT; inline;
  18368. procedure setTXEN; inline;
  18369. procedure setTXERR; inline;
  18370. procedure setTXLARB; inline;
  18371. procedure setTXREQ; inline;
  18372. procedure setUINC; inline;
  18373. property DONLY : TBits_1 read getDONLY write setDONLY;
  18374. property FRESET : TBits_1 read getFRESET write setFRESET;
  18375. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18376. property RTREN : TBits_1 read getRTREN write setRTREN;
  18377. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18378. property TXEN : TBits_1 read getTXEN write setTXEN;
  18379. property TXERR : TBits_1 read getTXERR write setTXERR;
  18380. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18381. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18382. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18383. property UINC : TBits_1 read getUINC write setUINC;
  18384. property w : TBits_32 read getw write setw;
  18385. end;
  18386. TCAN1_C1FIFOINT6 = record
  18387. private
  18388. function getRXFULLIE : TBits_1; inline;
  18389. function getRXFULLIF : TBits_1; inline;
  18390. function getRXHALFIE : TBits_1; inline;
  18391. function getRXHALFIF : TBits_1; inline;
  18392. function getRXNEMPTYIE : TBits_1; inline;
  18393. function getRXNEMPTYIF : TBits_1; inline;
  18394. function getRXOVFLIE : TBits_1; inline;
  18395. function getRXOVFLIF : TBits_1; inline;
  18396. function getTXEMPTYIE : TBits_1; inline;
  18397. function getTXEMPTYIF : TBits_1; inline;
  18398. function getTXHALFIE : TBits_1; inline;
  18399. function getTXHALFIF : TBits_1; inline;
  18400. function getTXNFULLIE : TBits_1; inline;
  18401. function getTXNFULLIF : TBits_1; inline;
  18402. function getw : TBits_32; inline;
  18403. procedure setRXFULLIE(thebits : TBits_1); inline;
  18404. procedure setRXFULLIF(thebits : TBits_1); inline;
  18405. procedure setRXHALFIE(thebits : TBits_1); inline;
  18406. procedure setRXHALFIF(thebits : TBits_1); inline;
  18407. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18408. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18409. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18410. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18411. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18412. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18413. procedure setTXHALFIE(thebits : TBits_1); inline;
  18414. procedure setTXHALFIF(thebits : TBits_1); inline;
  18415. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18416. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18417. procedure setw(thebits : TBits_32); inline;
  18418. public
  18419. procedure clearRXFULLIE; inline;
  18420. procedure clearRXFULLIF; inline;
  18421. procedure clearRXHALFIE; inline;
  18422. procedure clearRXHALFIF; inline;
  18423. procedure clearRXNEMPTYIE; inline;
  18424. procedure clearRXNEMPTYIF; inline;
  18425. procedure clearRXOVFLIE; inline;
  18426. procedure clearRXOVFLIF; inline;
  18427. procedure clearTXEMPTYIE; inline;
  18428. procedure clearTXEMPTYIF; inline;
  18429. procedure clearTXHALFIE; inline;
  18430. procedure clearTXHALFIF; inline;
  18431. procedure clearTXNFULLIE; inline;
  18432. procedure clearTXNFULLIF; inline;
  18433. procedure setRXFULLIE; inline;
  18434. procedure setRXFULLIF; inline;
  18435. procedure setRXHALFIE; inline;
  18436. procedure setRXHALFIF; inline;
  18437. procedure setRXNEMPTYIE; inline;
  18438. procedure setRXNEMPTYIF; inline;
  18439. procedure setRXOVFLIE; inline;
  18440. procedure setRXOVFLIF; inline;
  18441. procedure setTXEMPTYIE; inline;
  18442. procedure setTXEMPTYIF; inline;
  18443. procedure setTXHALFIE; inline;
  18444. procedure setTXHALFIF; inline;
  18445. procedure setTXNFULLIE; inline;
  18446. procedure setTXNFULLIF; inline;
  18447. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18448. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18449. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18450. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18451. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18452. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18453. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18454. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18455. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18456. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18457. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18458. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18459. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18460. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18461. property w : TBits_32 read getw write setw;
  18462. end;
  18463. TCAN1_C1FIFOCI6 = record
  18464. private
  18465. function getCFIFOCI : TBits_5; inline;
  18466. function getw : TBits_32; inline;
  18467. procedure setCFIFOCI(thebits : TBits_5); inline;
  18468. procedure setw(thebits : TBits_32); inline;
  18469. public
  18470. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18471. property w : TBits_32 read getw write setw;
  18472. end;
  18473. TCAN1_C1FIFOCON7 = record
  18474. private
  18475. function getDONLY : TBits_1; inline;
  18476. function getFRESET : TBits_1; inline;
  18477. function getFSIZE : TBits_5; inline;
  18478. function getRTREN : TBits_1; inline;
  18479. function getTXABAT : TBits_1; inline;
  18480. function getTXEN : TBits_1; inline;
  18481. function getTXERR : TBits_1; inline;
  18482. function getTXLARB : TBits_1; inline;
  18483. function getTXPRI : TBits_2; inline;
  18484. function getTXREQ : TBits_1; inline;
  18485. function getUINC : TBits_1; inline;
  18486. function getw : TBits_32; inline;
  18487. procedure setDONLY(thebits : TBits_1); inline;
  18488. procedure setFRESET(thebits : TBits_1); inline;
  18489. procedure setFSIZE(thebits : TBits_5); inline;
  18490. procedure setRTREN(thebits : TBits_1); inline;
  18491. procedure setTXABAT(thebits : TBits_1); inline;
  18492. procedure setTXEN(thebits : TBits_1); inline;
  18493. procedure setTXERR(thebits : TBits_1); inline;
  18494. procedure setTXLARB(thebits : TBits_1); inline;
  18495. procedure setTXPRI(thebits : TBits_2); inline;
  18496. procedure setTXREQ(thebits : TBits_1); inline;
  18497. procedure setUINC(thebits : TBits_1); inline;
  18498. procedure setw(thebits : TBits_32); inline;
  18499. public
  18500. procedure clearDONLY; inline;
  18501. procedure clearFRESET; inline;
  18502. procedure clearRTREN; inline;
  18503. procedure clearTXABAT; inline;
  18504. procedure clearTXEN; inline;
  18505. procedure clearTXERR; inline;
  18506. procedure clearTXLARB; inline;
  18507. procedure clearTXREQ; inline;
  18508. procedure clearUINC; inline;
  18509. procedure setDONLY; inline;
  18510. procedure setFRESET; inline;
  18511. procedure setRTREN; inline;
  18512. procedure setTXABAT; inline;
  18513. procedure setTXEN; inline;
  18514. procedure setTXERR; inline;
  18515. procedure setTXLARB; inline;
  18516. procedure setTXREQ; inline;
  18517. procedure setUINC; inline;
  18518. property DONLY : TBits_1 read getDONLY write setDONLY;
  18519. property FRESET : TBits_1 read getFRESET write setFRESET;
  18520. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18521. property RTREN : TBits_1 read getRTREN write setRTREN;
  18522. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18523. property TXEN : TBits_1 read getTXEN write setTXEN;
  18524. property TXERR : TBits_1 read getTXERR write setTXERR;
  18525. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18526. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18527. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18528. property UINC : TBits_1 read getUINC write setUINC;
  18529. property w : TBits_32 read getw write setw;
  18530. end;
  18531. TCAN1_C1FIFOINT7 = record
  18532. private
  18533. function getRXFULLIE : TBits_1; inline;
  18534. function getRXFULLIF : TBits_1; inline;
  18535. function getRXHALFIE : TBits_1; inline;
  18536. function getRXHALFIF : TBits_1; inline;
  18537. function getRXNEMPTYIE : TBits_1; inline;
  18538. function getRXNEMPTYIF : TBits_1; inline;
  18539. function getRXOVFLIE : TBits_1; inline;
  18540. function getRXOVFLIF : TBits_1; inline;
  18541. function getTXEMPTYIE : TBits_1; inline;
  18542. function getTXEMPTYIF : TBits_1; inline;
  18543. function getTXHALFIE : TBits_1; inline;
  18544. function getTXHALFIF : TBits_1; inline;
  18545. function getTXNFULLIE : TBits_1; inline;
  18546. function getTXNFULLIF : TBits_1; inline;
  18547. function getw : TBits_32; inline;
  18548. procedure setRXFULLIE(thebits : TBits_1); inline;
  18549. procedure setRXFULLIF(thebits : TBits_1); inline;
  18550. procedure setRXHALFIE(thebits : TBits_1); inline;
  18551. procedure setRXHALFIF(thebits : TBits_1); inline;
  18552. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18553. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18554. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18555. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18556. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18557. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18558. procedure setTXHALFIE(thebits : TBits_1); inline;
  18559. procedure setTXHALFIF(thebits : TBits_1); inline;
  18560. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18561. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18562. procedure setw(thebits : TBits_32); inline;
  18563. public
  18564. procedure clearRXFULLIE; inline;
  18565. procedure clearRXFULLIF; inline;
  18566. procedure clearRXHALFIE; inline;
  18567. procedure clearRXHALFIF; inline;
  18568. procedure clearRXNEMPTYIE; inline;
  18569. procedure clearRXNEMPTYIF; inline;
  18570. procedure clearRXOVFLIE; inline;
  18571. procedure clearRXOVFLIF; inline;
  18572. procedure clearTXEMPTYIE; inline;
  18573. procedure clearTXEMPTYIF; inline;
  18574. procedure clearTXHALFIE; inline;
  18575. procedure clearTXHALFIF; inline;
  18576. procedure clearTXNFULLIE; inline;
  18577. procedure clearTXNFULLIF; inline;
  18578. procedure setRXFULLIE; inline;
  18579. procedure setRXFULLIF; inline;
  18580. procedure setRXHALFIE; inline;
  18581. procedure setRXHALFIF; inline;
  18582. procedure setRXNEMPTYIE; inline;
  18583. procedure setRXNEMPTYIF; inline;
  18584. procedure setRXOVFLIE; inline;
  18585. procedure setRXOVFLIF; inline;
  18586. procedure setTXEMPTYIE; inline;
  18587. procedure setTXEMPTYIF; inline;
  18588. procedure setTXHALFIE; inline;
  18589. procedure setTXHALFIF; inline;
  18590. procedure setTXNFULLIE; inline;
  18591. procedure setTXNFULLIF; inline;
  18592. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18593. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18594. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18595. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18596. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18597. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18598. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18599. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18600. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18601. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18602. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18603. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18604. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18605. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18606. property w : TBits_32 read getw write setw;
  18607. end;
  18608. TCAN1_C1FIFOCI7 = record
  18609. private
  18610. function getCFIFOCI : TBits_5; inline;
  18611. function getw : TBits_32; inline;
  18612. procedure setCFIFOCI(thebits : TBits_5); inline;
  18613. procedure setw(thebits : TBits_32); inline;
  18614. public
  18615. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18616. property w : TBits_32 read getw write setw;
  18617. end;
  18618. TCAN1_C1FIFOCON8 = record
  18619. private
  18620. function getDONLY : TBits_1; inline;
  18621. function getFRESET : TBits_1; inline;
  18622. function getFSIZE : TBits_5; inline;
  18623. function getRTREN : TBits_1; inline;
  18624. function getTXABAT : TBits_1; inline;
  18625. function getTXEN : TBits_1; inline;
  18626. function getTXERR : TBits_1; inline;
  18627. function getTXLARB : TBits_1; inline;
  18628. function getTXPRI : TBits_2; inline;
  18629. function getTXREQ : TBits_1; inline;
  18630. function getUINC : TBits_1; inline;
  18631. function getw : TBits_32; inline;
  18632. procedure setDONLY(thebits : TBits_1); inline;
  18633. procedure setFRESET(thebits : TBits_1); inline;
  18634. procedure setFSIZE(thebits : TBits_5); inline;
  18635. procedure setRTREN(thebits : TBits_1); inline;
  18636. procedure setTXABAT(thebits : TBits_1); inline;
  18637. procedure setTXEN(thebits : TBits_1); inline;
  18638. procedure setTXERR(thebits : TBits_1); inline;
  18639. procedure setTXLARB(thebits : TBits_1); inline;
  18640. procedure setTXPRI(thebits : TBits_2); inline;
  18641. procedure setTXREQ(thebits : TBits_1); inline;
  18642. procedure setUINC(thebits : TBits_1); inline;
  18643. procedure setw(thebits : TBits_32); inline;
  18644. public
  18645. procedure clearDONLY; inline;
  18646. procedure clearFRESET; inline;
  18647. procedure clearRTREN; inline;
  18648. procedure clearTXABAT; inline;
  18649. procedure clearTXEN; inline;
  18650. procedure clearTXERR; inline;
  18651. procedure clearTXLARB; inline;
  18652. procedure clearTXREQ; inline;
  18653. procedure clearUINC; inline;
  18654. procedure setDONLY; inline;
  18655. procedure setFRESET; inline;
  18656. procedure setRTREN; inline;
  18657. procedure setTXABAT; inline;
  18658. procedure setTXEN; inline;
  18659. procedure setTXERR; inline;
  18660. procedure setTXLARB; inline;
  18661. procedure setTXREQ; inline;
  18662. procedure setUINC; inline;
  18663. property DONLY : TBits_1 read getDONLY write setDONLY;
  18664. property FRESET : TBits_1 read getFRESET write setFRESET;
  18665. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18666. property RTREN : TBits_1 read getRTREN write setRTREN;
  18667. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18668. property TXEN : TBits_1 read getTXEN write setTXEN;
  18669. property TXERR : TBits_1 read getTXERR write setTXERR;
  18670. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18671. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18672. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18673. property UINC : TBits_1 read getUINC write setUINC;
  18674. property w : TBits_32 read getw write setw;
  18675. end;
  18676. TCAN1_C1FIFOINT8 = record
  18677. private
  18678. function getRXFULLIE : TBits_1; inline;
  18679. function getRXFULLIF : TBits_1; inline;
  18680. function getRXHALFIE : TBits_1; inline;
  18681. function getRXHALFIF : TBits_1; inline;
  18682. function getRXNEMPTYIE : TBits_1; inline;
  18683. function getRXNEMPTYIF : TBits_1; inline;
  18684. function getRXOVFLIE : TBits_1; inline;
  18685. function getRXOVFLIF : TBits_1; inline;
  18686. function getTXEMPTYIE : TBits_1; inline;
  18687. function getTXEMPTYIF : TBits_1; inline;
  18688. function getTXHALFIE : TBits_1; inline;
  18689. function getTXHALFIF : TBits_1; inline;
  18690. function getTXNFULLIE : TBits_1; inline;
  18691. function getTXNFULLIF : TBits_1; inline;
  18692. function getw : TBits_32; inline;
  18693. procedure setRXFULLIE(thebits : TBits_1); inline;
  18694. procedure setRXFULLIF(thebits : TBits_1); inline;
  18695. procedure setRXHALFIE(thebits : TBits_1); inline;
  18696. procedure setRXHALFIF(thebits : TBits_1); inline;
  18697. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18698. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18699. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18700. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18701. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18702. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18703. procedure setTXHALFIE(thebits : TBits_1); inline;
  18704. procedure setTXHALFIF(thebits : TBits_1); inline;
  18705. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18706. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18707. procedure setw(thebits : TBits_32); inline;
  18708. public
  18709. procedure clearRXFULLIE; inline;
  18710. procedure clearRXFULLIF; inline;
  18711. procedure clearRXHALFIE; inline;
  18712. procedure clearRXHALFIF; inline;
  18713. procedure clearRXNEMPTYIE; inline;
  18714. procedure clearRXNEMPTYIF; inline;
  18715. procedure clearRXOVFLIE; inline;
  18716. procedure clearRXOVFLIF; inline;
  18717. procedure clearTXEMPTYIE; inline;
  18718. procedure clearTXEMPTYIF; inline;
  18719. procedure clearTXHALFIE; inline;
  18720. procedure clearTXHALFIF; inline;
  18721. procedure clearTXNFULLIE; inline;
  18722. procedure clearTXNFULLIF; inline;
  18723. procedure setRXFULLIE; inline;
  18724. procedure setRXFULLIF; inline;
  18725. procedure setRXHALFIE; inline;
  18726. procedure setRXHALFIF; inline;
  18727. procedure setRXNEMPTYIE; inline;
  18728. procedure setRXNEMPTYIF; inline;
  18729. procedure setRXOVFLIE; inline;
  18730. procedure setRXOVFLIF; inline;
  18731. procedure setTXEMPTYIE; inline;
  18732. procedure setTXEMPTYIF; inline;
  18733. procedure setTXHALFIE; inline;
  18734. procedure setTXHALFIF; inline;
  18735. procedure setTXNFULLIE; inline;
  18736. procedure setTXNFULLIF; inline;
  18737. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18738. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18739. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18740. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18741. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18742. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18743. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18744. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18745. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18746. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18747. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18748. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18749. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18750. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18751. property w : TBits_32 read getw write setw;
  18752. end;
  18753. TCAN1_C1FIFOCI8 = record
  18754. private
  18755. function getCFIFOCI : TBits_5; inline;
  18756. function getw : TBits_32; inline;
  18757. procedure setCFIFOCI(thebits : TBits_5); inline;
  18758. procedure setw(thebits : TBits_32); inline;
  18759. public
  18760. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18761. property w : TBits_32 read getw write setw;
  18762. end;
  18763. TCAN1_C1FIFOCON9 = record
  18764. private
  18765. function getDONLY : TBits_1; inline;
  18766. function getFRESET : TBits_1; inline;
  18767. function getFSIZE : TBits_5; inline;
  18768. function getRTREN : TBits_1; inline;
  18769. function getTXABAT : TBits_1; inline;
  18770. function getTXEN : TBits_1; inline;
  18771. function getTXERR : TBits_1; inline;
  18772. function getTXLARB : TBits_1; inline;
  18773. function getTXPRI : TBits_2; inline;
  18774. function getTXREQ : TBits_1; inline;
  18775. function getUINC : TBits_1; inline;
  18776. function getw : TBits_32; inline;
  18777. procedure setDONLY(thebits : TBits_1); inline;
  18778. procedure setFRESET(thebits : TBits_1); inline;
  18779. procedure setFSIZE(thebits : TBits_5); inline;
  18780. procedure setRTREN(thebits : TBits_1); inline;
  18781. procedure setTXABAT(thebits : TBits_1); inline;
  18782. procedure setTXEN(thebits : TBits_1); inline;
  18783. procedure setTXERR(thebits : TBits_1); inline;
  18784. procedure setTXLARB(thebits : TBits_1); inline;
  18785. procedure setTXPRI(thebits : TBits_2); inline;
  18786. procedure setTXREQ(thebits : TBits_1); inline;
  18787. procedure setUINC(thebits : TBits_1); inline;
  18788. procedure setw(thebits : TBits_32); inline;
  18789. public
  18790. procedure clearDONLY; inline;
  18791. procedure clearFRESET; inline;
  18792. procedure clearRTREN; inline;
  18793. procedure clearTXABAT; inline;
  18794. procedure clearTXEN; inline;
  18795. procedure clearTXERR; inline;
  18796. procedure clearTXLARB; inline;
  18797. procedure clearTXREQ; inline;
  18798. procedure clearUINC; inline;
  18799. procedure setDONLY; inline;
  18800. procedure setFRESET; inline;
  18801. procedure setRTREN; inline;
  18802. procedure setTXABAT; inline;
  18803. procedure setTXEN; inline;
  18804. procedure setTXERR; inline;
  18805. procedure setTXLARB; inline;
  18806. procedure setTXREQ; inline;
  18807. procedure setUINC; inline;
  18808. property DONLY : TBits_1 read getDONLY write setDONLY;
  18809. property FRESET : TBits_1 read getFRESET write setFRESET;
  18810. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18811. property RTREN : TBits_1 read getRTREN write setRTREN;
  18812. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18813. property TXEN : TBits_1 read getTXEN write setTXEN;
  18814. property TXERR : TBits_1 read getTXERR write setTXERR;
  18815. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18816. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18817. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18818. property UINC : TBits_1 read getUINC write setUINC;
  18819. property w : TBits_32 read getw write setw;
  18820. end;
  18821. TCAN1_C1FIFOINT9 = record
  18822. private
  18823. function getRXFULLIE : TBits_1; inline;
  18824. function getRXFULLIF : TBits_1; inline;
  18825. function getRXHALFIE : TBits_1; inline;
  18826. function getRXHALFIF : TBits_1; inline;
  18827. function getRXNEMPTYIE : TBits_1; inline;
  18828. function getRXNEMPTYIF : TBits_1; inline;
  18829. function getRXOVFLIE : TBits_1; inline;
  18830. function getRXOVFLIF : TBits_1; inline;
  18831. function getTXEMPTYIE : TBits_1; inline;
  18832. function getTXEMPTYIF : TBits_1; inline;
  18833. function getTXHALFIE : TBits_1; inline;
  18834. function getTXHALFIF : TBits_1; inline;
  18835. function getTXNFULLIE : TBits_1; inline;
  18836. function getTXNFULLIF : TBits_1; inline;
  18837. function getw : TBits_32; inline;
  18838. procedure setRXFULLIE(thebits : TBits_1); inline;
  18839. procedure setRXFULLIF(thebits : TBits_1); inline;
  18840. procedure setRXHALFIE(thebits : TBits_1); inline;
  18841. procedure setRXHALFIF(thebits : TBits_1); inline;
  18842. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18843. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18844. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18845. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18846. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18847. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18848. procedure setTXHALFIE(thebits : TBits_1); inline;
  18849. procedure setTXHALFIF(thebits : TBits_1); inline;
  18850. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18851. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18852. procedure setw(thebits : TBits_32); inline;
  18853. public
  18854. procedure clearRXFULLIE; inline;
  18855. procedure clearRXFULLIF; inline;
  18856. procedure clearRXHALFIE; inline;
  18857. procedure clearRXHALFIF; inline;
  18858. procedure clearRXNEMPTYIE; inline;
  18859. procedure clearRXNEMPTYIF; inline;
  18860. procedure clearRXOVFLIE; inline;
  18861. procedure clearRXOVFLIF; inline;
  18862. procedure clearTXEMPTYIE; inline;
  18863. procedure clearTXEMPTYIF; inline;
  18864. procedure clearTXHALFIE; inline;
  18865. procedure clearTXHALFIF; inline;
  18866. procedure clearTXNFULLIE; inline;
  18867. procedure clearTXNFULLIF; inline;
  18868. procedure setRXFULLIE; inline;
  18869. procedure setRXFULLIF; inline;
  18870. procedure setRXHALFIE; inline;
  18871. procedure setRXHALFIF; inline;
  18872. procedure setRXNEMPTYIE; inline;
  18873. procedure setRXNEMPTYIF; inline;
  18874. procedure setRXOVFLIE; inline;
  18875. procedure setRXOVFLIF; inline;
  18876. procedure setTXEMPTYIE; inline;
  18877. procedure setTXEMPTYIF; inline;
  18878. procedure setTXHALFIE; inline;
  18879. procedure setTXHALFIF; inline;
  18880. procedure setTXNFULLIE; inline;
  18881. procedure setTXNFULLIF; inline;
  18882. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18883. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18884. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18885. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18886. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18887. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18888. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18889. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18890. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18891. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18892. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18893. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18894. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18895. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18896. property w : TBits_32 read getw write setw;
  18897. end;
  18898. TCAN1_C1FIFOCI9 = record
  18899. private
  18900. function getCFIFOCI : TBits_5; inline;
  18901. function getw : TBits_32; inline;
  18902. procedure setCFIFOCI(thebits : TBits_5); inline;
  18903. procedure setw(thebits : TBits_32); inline;
  18904. public
  18905. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18906. property w : TBits_32 read getw write setw;
  18907. end;
  18908. TCAN1_C1FIFOCON10 = record
  18909. private
  18910. function getDONLY : TBits_1; inline;
  18911. function getFRESET : TBits_1; inline;
  18912. function getFSIZE : TBits_5; inline;
  18913. function getRTREN : TBits_1; inline;
  18914. function getTXABAT : TBits_1; inline;
  18915. function getTXEN : TBits_1; inline;
  18916. function getTXERR : TBits_1; inline;
  18917. function getTXLARB : TBits_1; inline;
  18918. function getTXPRI : TBits_2; inline;
  18919. function getTXREQ : TBits_1; inline;
  18920. function getUINC : TBits_1; inline;
  18921. function getw : TBits_32; inline;
  18922. procedure setDONLY(thebits : TBits_1); inline;
  18923. procedure setFRESET(thebits : TBits_1); inline;
  18924. procedure setFSIZE(thebits : TBits_5); inline;
  18925. procedure setRTREN(thebits : TBits_1); inline;
  18926. procedure setTXABAT(thebits : TBits_1); inline;
  18927. procedure setTXEN(thebits : TBits_1); inline;
  18928. procedure setTXERR(thebits : TBits_1); inline;
  18929. procedure setTXLARB(thebits : TBits_1); inline;
  18930. procedure setTXPRI(thebits : TBits_2); inline;
  18931. procedure setTXREQ(thebits : TBits_1); inline;
  18932. procedure setUINC(thebits : TBits_1); inline;
  18933. procedure setw(thebits : TBits_32); inline;
  18934. public
  18935. procedure clearDONLY; inline;
  18936. procedure clearFRESET; inline;
  18937. procedure clearRTREN; inline;
  18938. procedure clearTXABAT; inline;
  18939. procedure clearTXEN; inline;
  18940. procedure clearTXERR; inline;
  18941. procedure clearTXLARB; inline;
  18942. procedure clearTXREQ; inline;
  18943. procedure clearUINC; inline;
  18944. procedure setDONLY; inline;
  18945. procedure setFRESET; inline;
  18946. procedure setRTREN; inline;
  18947. procedure setTXABAT; inline;
  18948. procedure setTXEN; inline;
  18949. procedure setTXERR; inline;
  18950. procedure setTXLARB; inline;
  18951. procedure setTXREQ; inline;
  18952. procedure setUINC; inline;
  18953. property DONLY : TBits_1 read getDONLY write setDONLY;
  18954. property FRESET : TBits_1 read getFRESET write setFRESET;
  18955. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18956. property RTREN : TBits_1 read getRTREN write setRTREN;
  18957. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18958. property TXEN : TBits_1 read getTXEN write setTXEN;
  18959. property TXERR : TBits_1 read getTXERR write setTXERR;
  18960. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18961. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18962. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18963. property UINC : TBits_1 read getUINC write setUINC;
  18964. property w : TBits_32 read getw write setw;
  18965. end;
  18966. TCAN1_C1FIFOINT10 = record
  18967. private
  18968. function getRXFULLIE : TBits_1; inline;
  18969. function getRXFULLIF : TBits_1; inline;
  18970. function getRXHALFIE : TBits_1; inline;
  18971. function getRXHALFIF : TBits_1; inline;
  18972. function getRXNEMPTYIE : TBits_1; inline;
  18973. function getRXNEMPTYIF : TBits_1; inline;
  18974. function getRXOVFLIE : TBits_1; inline;
  18975. function getRXOVFLIF : TBits_1; inline;
  18976. function getTXEMPTYIE : TBits_1; inline;
  18977. function getTXEMPTYIF : TBits_1; inline;
  18978. function getTXHALFIE : TBits_1; inline;
  18979. function getTXHALFIF : TBits_1; inline;
  18980. function getTXNFULLIE : TBits_1; inline;
  18981. function getTXNFULLIF : TBits_1; inline;
  18982. function getw : TBits_32; inline;
  18983. procedure setRXFULLIE(thebits : TBits_1); inline;
  18984. procedure setRXFULLIF(thebits : TBits_1); inline;
  18985. procedure setRXHALFIE(thebits : TBits_1); inline;
  18986. procedure setRXHALFIF(thebits : TBits_1); inline;
  18987. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18988. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18989. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18990. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18991. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18992. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18993. procedure setTXHALFIE(thebits : TBits_1); inline;
  18994. procedure setTXHALFIF(thebits : TBits_1); inline;
  18995. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18996. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18997. procedure setw(thebits : TBits_32); inline;
  18998. public
  18999. procedure clearRXFULLIE; inline;
  19000. procedure clearRXFULLIF; inline;
  19001. procedure clearRXHALFIE; inline;
  19002. procedure clearRXHALFIF; inline;
  19003. procedure clearRXNEMPTYIE; inline;
  19004. procedure clearRXNEMPTYIF; inline;
  19005. procedure clearRXOVFLIE; inline;
  19006. procedure clearRXOVFLIF; inline;
  19007. procedure clearTXEMPTYIE; inline;
  19008. procedure clearTXEMPTYIF; inline;
  19009. procedure clearTXHALFIE; inline;
  19010. procedure clearTXHALFIF; inline;
  19011. procedure clearTXNFULLIE; inline;
  19012. procedure clearTXNFULLIF; inline;
  19013. procedure setRXFULLIE; inline;
  19014. procedure setRXFULLIF; inline;
  19015. procedure setRXHALFIE; inline;
  19016. procedure setRXHALFIF; inline;
  19017. procedure setRXNEMPTYIE; inline;
  19018. procedure setRXNEMPTYIF; inline;
  19019. procedure setRXOVFLIE; inline;
  19020. procedure setRXOVFLIF; inline;
  19021. procedure setTXEMPTYIE; inline;
  19022. procedure setTXEMPTYIF; inline;
  19023. procedure setTXHALFIE; inline;
  19024. procedure setTXHALFIF; inline;
  19025. procedure setTXNFULLIE; inline;
  19026. procedure setTXNFULLIF; inline;
  19027. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19028. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19029. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19030. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19031. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19032. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19033. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19034. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19035. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19036. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19037. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19038. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19039. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19040. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19041. property w : TBits_32 read getw write setw;
  19042. end;
  19043. TCAN1_C1FIFOCI10 = record
  19044. private
  19045. function getCFIFOCI : TBits_5; inline;
  19046. function getw : TBits_32; inline;
  19047. procedure setCFIFOCI(thebits : TBits_5); inline;
  19048. procedure setw(thebits : TBits_32); inline;
  19049. public
  19050. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19051. property w : TBits_32 read getw write setw;
  19052. end;
  19053. TCAN1_C1FIFOCON11 = record
  19054. private
  19055. function getDONLY : TBits_1; inline;
  19056. function getFRESET : TBits_1; inline;
  19057. function getFSIZE : TBits_5; inline;
  19058. function getRTREN : TBits_1; inline;
  19059. function getTXABAT : TBits_1; inline;
  19060. function getTXEN : TBits_1; inline;
  19061. function getTXERR : TBits_1; inline;
  19062. function getTXLARB : TBits_1; inline;
  19063. function getTXPRI : TBits_2; inline;
  19064. function getTXREQ : TBits_1; inline;
  19065. function getUINC : TBits_1; inline;
  19066. function getw : TBits_32; inline;
  19067. procedure setDONLY(thebits : TBits_1); inline;
  19068. procedure setFRESET(thebits : TBits_1); inline;
  19069. procedure setFSIZE(thebits : TBits_5); inline;
  19070. procedure setRTREN(thebits : TBits_1); inline;
  19071. procedure setTXABAT(thebits : TBits_1); inline;
  19072. procedure setTXEN(thebits : TBits_1); inline;
  19073. procedure setTXERR(thebits : TBits_1); inline;
  19074. procedure setTXLARB(thebits : TBits_1); inline;
  19075. procedure setTXPRI(thebits : TBits_2); inline;
  19076. procedure setTXREQ(thebits : TBits_1); inline;
  19077. procedure setUINC(thebits : TBits_1); inline;
  19078. procedure setw(thebits : TBits_32); inline;
  19079. public
  19080. procedure clearDONLY; inline;
  19081. procedure clearFRESET; inline;
  19082. procedure clearRTREN; inline;
  19083. procedure clearTXABAT; inline;
  19084. procedure clearTXEN; inline;
  19085. procedure clearTXERR; inline;
  19086. procedure clearTXLARB; inline;
  19087. procedure clearTXREQ; inline;
  19088. procedure clearUINC; inline;
  19089. procedure setDONLY; inline;
  19090. procedure setFRESET; inline;
  19091. procedure setRTREN; inline;
  19092. procedure setTXABAT; inline;
  19093. procedure setTXEN; inline;
  19094. procedure setTXERR; inline;
  19095. procedure setTXLARB; inline;
  19096. procedure setTXREQ; inline;
  19097. procedure setUINC; inline;
  19098. property DONLY : TBits_1 read getDONLY write setDONLY;
  19099. property FRESET : TBits_1 read getFRESET write setFRESET;
  19100. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19101. property RTREN : TBits_1 read getRTREN write setRTREN;
  19102. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19103. property TXEN : TBits_1 read getTXEN write setTXEN;
  19104. property TXERR : TBits_1 read getTXERR write setTXERR;
  19105. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19106. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19107. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19108. property UINC : TBits_1 read getUINC write setUINC;
  19109. property w : TBits_32 read getw write setw;
  19110. end;
  19111. TCAN1_C1FIFOINT11 = record
  19112. private
  19113. function getRXFULLIE : TBits_1; inline;
  19114. function getRXFULLIF : TBits_1; inline;
  19115. function getRXHALFIE : TBits_1; inline;
  19116. function getRXHALFIF : TBits_1; inline;
  19117. function getRXNEMPTYIE : TBits_1; inline;
  19118. function getRXNEMPTYIF : TBits_1; inline;
  19119. function getRXOVFLIE : TBits_1; inline;
  19120. function getRXOVFLIF : TBits_1; inline;
  19121. function getTXEMPTYIE : TBits_1; inline;
  19122. function getTXEMPTYIF : TBits_1; inline;
  19123. function getTXHALFIE : TBits_1; inline;
  19124. function getTXHALFIF : TBits_1; inline;
  19125. function getTXNFULLIE : TBits_1; inline;
  19126. function getTXNFULLIF : TBits_1; inline;
  19127. function getw : TBits_32; inline;
  19128. procedure setRXFULLIE(thebits : TBits_1); inline;
  19129. procedure setRXFULLIF(thebits : TBits_1); inline;
  19130. procedure setRXHALFIE(thebits : TBits_1); inline;
  19131. procedure setRXHALFIF(thebits : TBits_1); inline;
  19132. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19133. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19134. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19135. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19136. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19137. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19138. procedure setTXHALFIE(thebits : TBits_1); inline;
  19139. procedure setTXHALFIF(thebits : TBits_1); inline;
  19140. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19141. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19142. procedure setw(thebits : TBits_32); inline;
  19143. public
  19144. procedure clearRXFULLIE; inline;
  19145. procedure clearRXFULLIF; inline;
  19146. procedure clearRXHALFIE; inline;
  19147. procedure clearRXHALFIF; inline;
  19148. procedure clearRXNEMPTYIE; inline;
  19149. procedure clearRXNEMPTYIF; inline;
  19150. procedure clearRXOVFLIE; inline;
  19151. procedure clearRXOVFLIF; inline;
  19152. procedure clearTXEMPTYIE; inline;
  19153. procedure clearTXEMPTYIF; inline;
  19154. procedure clearTXHALFIE; inline;
  19155. procedure clearTXHALFIF; inline;
  19156. procedure clearTXNFULLIE; inline;
  19157. procedure clearTXNFULLIF; inline;
  19158. procedure setRXFULLIE; inline;
  19159. procedure setRXFULLIF; inline;
  19160. procedure setRXHALFIE; inline;
  19161. procedure setRXHALFIF; inline;
  19162. procedure setRXNEMPTYIE; inline;
  19163. procedure setRXNEMPTYIF; inline;
  19164. procedure setRXOVFLIE; inline;
  19165. procedure setRXOVFLIF; inline;
  19166. procedure setTXEMPTYIE; inline;
  19167. procedure setTXEMPTYIF; inline;
  19168. procedure setTXHALFIE; inline;
  19169. procedure setTXHALFIF; inline;
  19170. procedure setTXNFULLIE; inline;
  19171. procedure setTXNFULLIF; inline;
  19172. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19173. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19174. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19175. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19176. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19177. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19178. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19179. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19180. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19181. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19182. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19183. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19184. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19185. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19186. property w : TBits_32 read getw write setw;
  19187. end;
  19188. TCAN1_C1FIFOCI11 = record
  19189. private
  19190. function getCFIFOCI : TBits_5; inline;
  19191. function getw : TBits_32; inline;
  19192. procedure setCFIFOCI(thebits : TBits_5); inline;
  19193. procedure setw(thebits : TBits_32); inline;
  19194. public
  19195. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19196. property w : TBits_32 read getw write setw;
  19197. end;
  19198. TCAN1_C1FIFOCON12 = record
  19199. private
  19200. function getDONLY : TBits_1; inline;
  19201. function getFRESET : TBits_1; inline;
  19202. function getFSIZE : TBits_5; inline;
  19203. function getRTREN : TBits_1; inline;
  19204. function getTXABAT : TBits_1; inline;
  19205. function getTXEN : TBits_1; inline;
  19206. function getTXERR : TBits_1; inline;
  19207. function getTXLARB : TBits_1; inline;
  19208. function getTXPRI : TBits_2; inline;
  19209. function getTXREQ : TBits_1; inline;
  19210. function getUINC : TBits_1; inline;
  19211. function getw : TBits_32; inline;
  19212. procedure setDONLY(thebits : TBits_1); inline;
  19213. procedure setFRESET(thebits : TBits_1); inline;
  19214. procedure setFSIZE(thebits : TBits_5); inline;
  19215. procedure setRTREN(thebits : TBits_1); inline;
  19216. procedure setTXABAT(thebits : TBits_1); inline;
  19217. procedure setTXEN(thebits : TBits_1); inline;
  19218. procedure setTXERR(thebits : TBits_1); inline;
  19219. procedure setTXLARB(thebits : TBits_1); inline;
  19220. procedure setTXPRI(thebits : TBits_2); inline;
  19221. procedure setTXREQ(thebits : TBits_1); inline;
  19222. procedure setUINC(thebits : TBits_1); inline;
  19223. procedure setw(thebits : TBits_32); inline;
  19224. public
  19225. procedure clearDONLY; inline;
  19226. procedure clearFRESET; inline;
  19227. procedure clearRTREN; inline;
  19228. procedure clearTXABAT; inline;
  19229. procedure clearTXEN; inline;
  19230. procedure clearTXERR; inline;
  19231. procedure clearTXLARB; inline;
  19232. procedure clearTXREQ; inline;
  19233. procedure clearUINC; inline;
  19234. procedure setDONLY; inline;
  19235. procedure setFRESET; inline;
  19236. procedure setRTREN; inline;
  19237. procedure setTXABAT; inline;
  19238. procedure setTXEN; inline;
  19239. procedure setTXERR; inline;
  19240. procedure setTXLARB; inline;
  19241. procedure setTXREQ; inline;
  19242. procedure setUINC; inline;
  19243. property DONLY : TBits_1 read getDONLY write setDONLY;
  19244. property FRESET : TBits_1 read getFRESET write setFRESET;
  19245. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19246. property RTREN : TBits_1 read getRTREN write setRTREN;
  19247. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19248. property TXEN : TBits_1 read getTXEN write setTXEN;
  19249. property TXERR : TBits_1 read getTXERR write setTXERR;
  19250. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19251. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19252. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19253. property UINC : TBits_1 read getUINC write setUINC;
  19254. property w : TBits_32 read getw write setw;
  19255. end;
  19256. TCAN1_C1FIFOINT12 = record
  19257. private
  19258. function getRXFULLIE : TBits_1; inline;
  19259. function getRXFULLIF : TBits_1; inline;
  19260. function getRXHALFIE : TBits_1; inline;
  19261. function getRXHALFIF : TBits_1; inline;
  19262. function getRXNEMPTYIE : TBits_1; inline;
  19263. function getRXNEMPTYIF : TBits_1; inline;
  19264. function getRXOVFLIE : TBits_1; inline;
  19265. function getRXOVFLIF : TBits_1; inline;
  19266. function getTXEMPTYIE : TBits_1; inline;
  19267. function getTXEMPTYIF : TBits_1; inline;
  19268. function getTXHALFIE : TBits_1; inline;
  19269. function getTXHALFIF : TBits_1; inline;
  19270. function getTXNFULLIE : TBits_1; inline;
  19271. function getTXNFULLIF : TBits_1; inline;
  19272. function getw : TBits_32; inline;
  19273. procedure setRXFULLIE(thebits : TBits_1); inline;
  19274. procedure setRXFULLIF(thebits : TBits_1); inline;
  19275. procedure setRXHALFIE(thebits : TBits_1); inline;
  19276. procedure setRXHALFIF(thebits : TBits_1); inline;
  19277. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19278. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19279. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19280. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19281. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19282. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19283. procedure setTXHALFIE(thebits : TBits_1); inline;
  19284. procedure setTXHALFIF(thebits : TBits_1); inline;
  19285. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19286. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19287. procedure setw(thebits : TBits_32); inline;
  19288. public
  19289. procedure clearRXFULLIE; inline;
  19290. procedure clearRXFULLIF; inline;
  19291. procedure clearRXHALFIE; inline;
  19292. procedure clearRXHALFIF; inline;
  19293. procedure clearRXNEMPTYIE; inline;
  19294. procedure clearRXNEMPTYIF; inline;
  19295. procedure clearRXOVFLIE; inline;
  19296. procedure clearRXOVFLIF; inline;
  19297. procedure clearTXEMPTYIE; inline;
  19298. procedure clearTXEMPTYIF; inline;
  19299. procedure clearTXHALFIE; inline;
  19300. procedure clearTXHALFIF; inline;
  19301. procedure clearTXNFULLIE; inline;
  19302. procedure clearTXNFULLIF; inline;
  19303. procedure setRXFULLIE; inline;
  19304. procedure setRXFULLIF; inline;
  19305. procedure setRXHALFIE; inline;
  19306. procedure setRXHALFIF; inline;
  19307. procedure setRXNEMPTYIE; inline;
  19308. procedure setRXNEMPTYIF; inline;
  19309. procedure setRXOVFLIE; inline;
  19310. procedure setRXOVFLIF; inline;
  19311. procedure setTXEMPTYIE; inline;
  19312. procedure setTXEMPTYIF; inline;
  19313. procedure setTXHALFIE; inline;
  19314. procedure setTXHALFIF; inline;
  19315. procedure setTXNFULLIE; inline;
  19316. procedure setTXNFULLIF; inline;
  19317. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19318. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19319. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19320. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19321. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19322. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19323. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19324. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19325. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19326. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19327. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19328. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19329. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19330. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19331. property w : TBits_32 read getw write setw;
  19332. end;
  19333. TCAN1_C1FIFOCI12 = record
  19334. private
  19335. function getCFIFOCI : TBits_5; inline;
  19336. function getw : TBits_32; inline;
  19337. procedure setCFIFOCI(thebits : TBits_5); inline;
  19338. procedure setw(thebits : TBits_32); inline;
  19339. public
  19340. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19341. property w : TBits_32 read getw write setw;
  19342. end;
  19343. TCAN1_C1FIFOCON13 = record
  19344. private
  19345. function getDONLY : TBits_1; inline;
  19346. function getFRESET : TBits_1; inline;
  19347. function getFSIZE : TBits_5; inline;
  19348. function getRTREN : TBits_1; inline;
  19349. function getTXABAT : TBits_1; inline;
  19350. function getTXEN : TBits_1; inline;
  19351. function getTXERR : TBits_1; inline;
  19352. function getTXLARB : TBits_1; inline;
  19353. function getTXPRI : TBits_2; inline;
  19354. function getTXREQ : TBits_1; inline;
  19355. function getUINC : TBits_1; inline;
  19356. function getw : TBits_32; inline;
  19357. procedure setDONLY(thebits : TBits_1); inline;
  19358. procedure setFRESET(thebits : TBits_1); inline;
  19359. procedure setFSIZE(thebits : TBits_5); inline;
  19360. procedure setRTREN(thebits : TBits_1); inline;
  19361. procedure setTXABAT(thebits : TBits_1); inline;
  19362. procedure setTXEN(thebits : TBits_1); inline;
  19363. procedure setTXERR(thebits : TBits_1); inline;
  19364. procedure setTXLARB(thebits : TBits_1); inline;
  19365. procedure setTXPRI(thebits : TBits_2); inline;
  19366. procedure setTXREQ(thebits : TBits_1); inline;
  19367. procedure setUINC(thebits : TBits_1); inline;
  19368. procedure setw(thebits : TBits_32); inline;
  19369. public
  19370. procedure clearDONLY; inline;
  19371. procedure clearFRESET; inline;
  19372. procedure clearRTREN; inline;
  19373. procedure clearTXABAT; inline;
  19374. procedure clearTXEN; inline;
  19375. procedure clearTXERR; inline;
  19376. procedure clearTXLARB; inline;
  19377. procedure clearTXREQ; inline;
  19378. procedure clearUINC; inline;
  19379. procedure setDONLY; inline;
  19380. procedure setFRESET; inline;
  19381. procedure setRTREN; inline;
  19382. procedure setTXABAT; inline;
  19383. procedure setTXEN; inline;
  19384. procedure setTXERR; inline;
  19385. procedure setTXLARB; inline;
  19386. procedure setTXREQ; inline;
  19387. procedure setUINC; inline;
  19388. property DONLY : TBits_1 read getDONLY write setDONLY;
  19389. property FRESET : TBits_1 read getFRESET write setFRESET;
  19390. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19391. property RTREN : TBits_1 read getRTREN write setRTREN;
  19392. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19393. property TXEN : TBits_1 read getTXEN write setTXEN;
  19394. property TXERR : TBits_1 read getTXERR write setTXERR;
  19395. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19396. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19397. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19398. property UINC : TBits_1 read getUINC write setUINC;
  19399. property w : TBits_32 read getw write setw;
  19400. end;
  19401. TCAN1_C1FIFOINT13 = record
  19402. private
  19403. function getRXFULLIE : TBits_1; inline;
  19404. function getRXFULLIF : TBits_1; inline;
  19405. function getRXHALFIE : TBits_1; inline;
  19406. function getRXHALFIF : TBits_1; inline;
  19407. function getRXNEMPTYIE : TBits_1; inline;
  19408. function getRXNEMPTYIF : TBits_1; inline;
  19409. function getRXOVFLIE : TBits_1; inline;
  19410. function getRXOVFLIF : TBits_1; inline;
  19411. function getTXEMPTYIE : TBits_1; inline;
  19412. function getTXEMPTYIF : TBits_1; inline;
  19413. function getTXHALFIE : TBits_1; inline;
  19414. function getTXHALFIF : TBits_1; inline;
  19415. function getTXNFULLIE : TBits_1; inline;
  19416. function getTXNFULLIF : TBits_1; inline;
  19417. function getw : TBits_32; inline;
  19418. procedure setRXFULLIE(thebits : TBits_1); inline;
  19419. procedure setRXFULLIF(thebits : TBits_1); inline;
  19420. procedure setRXHALFIE(thebits : TBits_1); inline;
  19421. procedure setRXHALFIF(thebits : TBits_1); inline;
  19422. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19423. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19424. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19425. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19426. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19427. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19428. procedure setTXHALFIE(thebits : TBits_1); inline;
  19429. procedure setTXHALFIF(thebits : TBits_1); inline;
  19430. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19431. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19432. procedure setw(thebits : TBits_32); inline;
  19433. public
  19434. procedure clearRXFULLIE; inline;
  19435. procedure clearRXFULLIF; inline;
  19436. procedure clearRXHALFIE; inline;
  19437. procedure clearRXHALFIF; inline;
  19438. procedure clearRXNEMPTYIE; inline;
  19439. procedure clearRXNEMPTYIF; inline;
  19440. procedure clearRXOVFLIE; inline;
  19441. procedure clearRXOVFLIF; inline;
  19442. procedure clearTXEMPTYIE; inline;
  19443. procedure clearTXEMPTYIF; inline;
  19444. procedure clearTXHALFIE; inline;
  19445. procedure clearTXHALFIF; inline;
  19446. procedure clearTXNFULLIE; inline;
  19447. procedure clearTXNFULLIF; inline;
  19448. procedure setRXFULLIE; inline;
  19449. procedure setRXFULLIF; inline;
  19450. procedure setRXHALFIE; inline;
  19451. procedure setRXHALFIF; inline;
  19452. procedure setRXNEMPTYIE; inline;
  19453. procedure setRXNEMPTYIF; inline;
  19454. procedure setRXOVFLIE; inline;
  19455. procedure setRXOVFLIF; inline;
  19456. procedure setTXEMPTYIE; inline;
  19457. procedure setTXEMPTYIF; inline;
  19458. procedure setTXHALFIE; inline;
  19459. procedure setTXHALFIF; inline;
  19460. procedure setTXNFULLIE; inline;
  19461. procedure setTXNFULLIF; inline;
  19462. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19463. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19464. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19465. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19466. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19467. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19468. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19469. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19470. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19471. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19472. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19473. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19474. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19475. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19476. property w : TBits_32 read getw write setw;
  19477. end;
  19478. TCAN1_C1FIFOCI13 = record
  19479. private
  19480. function getCFIFOCI : TBits_5; inline;
  19481. function getw : TBits_32; inline;
  19482. procedure setCFIFOCI(thebits : TBits_5); inline;
  19483. procedure setw(thebits : TBits_32); inline;
  19484. public
  19485. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19486. property w : TBits_32 read getw write setw;
  19487. end;
  19488. TCAN1_C1FIFOCON14 = record
  19489. private
  19490. function getDONLY : TBits_1; inline;
  19491. function getFRESET : TBits_1; inline;
  19492. function getFSIZE : TBits_5; inline;
  19493. function getRTREN : TBits_1; inline;
  19494. function getTXABAT : TBits_1; inline;
  19495. function getTXEN : TBits_1; inline;
  19496. function getTXERR : TBits_1; inline;
  19497. function getTXLARB : TBits_1; inline;
  19498. function getTXPRI : TBits_2; inline;
  19499. function getTXREQ : TBits_1; inline;
  19500. function getUINC : TBits_1; inline;
  19501. function getw : TBits_32; inline;
  19502. procedure setDONLY(thebits : TBits_1); inline;
  19503. procedure setFRESET(thebits : TBits_1); inline;
  19504. procedure setFSIZE(thebits : TBits_5); inline;
  19505. procedure setRTREN(thebits : TBits_1); inline;
  19506. procedure setTXABAT(thebits : TBits_1); inline;
  19507. procedure setTXEN(thebits : TBits_1); inline;
  19508. procedure setTXERR(thebits : TBits_1); inline;
  19509. procedure setTXLARB(thebits : TBits_1); inline;
  19510. procedure setTXPRI(thebits : TBits_2); inline;
  19511. procedure setTXREQ(thebits : TBits_1); inline;
  19512. procedure setUINC(thebits : TBits_1); inline;
  19513. procedure setw(thebits : TBits_32); inline;
  19514. public
  19515. procedure clearDONLY; inline;
  19516. procedure clearFRESET; inline;
  19517. procedure clearRTREN; inline;
  19518. procedure clearTXABAT; inline;
  19519. procedure clearTXEN; inline;
  19520. procedure clearTXERR; inline;
  19521. procedure clearTXLARB; inline;
  19522. procedure clearTXREQ; inline;
  19523. procedure clearUINC; inline;
  19524. procedure setDONLY; inline;
  19525. procedure setFRESET; inline;
  19526. procedure setRTREN; inline;
  19527. procedure setTXABAT; inline;
  19528. procedure setTXEN; inline;
  19529. procedure setTXERR; inline;
  19530. procedure setTXLARB; inline;
  19531. procedure setTXREQ; inline;
  19532. procedure setUINC; inline;
  19533. property DONLY : TBits_1 read getDONLY write setDONLY;
  19534. property FRESET : TBits_1 read getFRESET write setFRESET;
  19535. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19536. property RTREN : TBits_1 read getRTREN write setRTREN;
  19537. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19538. property TXEN : TBits_1 read getTXEN write setTXEN;
  19539. property TXERR : TBits_1 read getTXERR write setTXERR;
  19540. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19541. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19542. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19543. property UINC : TBits_1 read getUINC write setUINC;
  19544. property w : TBits_32 read getw write setw;
  19545. end;
  19546. TCAN1_C1FIFOINT14 = record
  19547. private
  19548. function getRXFULLIE : TBits_1; inline;
  19549. function getRXFULLIF : TBits_1; inline;
  19550. function getRXHALFIE : TBits_1; inline;
  19551. function getRXHALFIF : TBits_1; inline;
  19552. function getRXNEMPTYIE : TBits_1; inline;
  19553. function getRXNEMPTYIF : TBits_1; inline;
  19554. function getRXOVFLIE : TBits_1; inline;
  19555. function getRXOVFLIF : TBits_1; inline;
  19556. function getTXEMPTYIE : TBits_1; inline;
  19557. function getTXEMPTYIF : TBits_1; inline;
  19558. function getTXHALFIE : TBits_1; inline;
  19559. function getTXHALFIF : TBits_1; inline;
  19560. function getTXNFULLIE : TBits_1; inline;
  19561. function getTXNFULLIF : TBits_1; inline;
  19562. function getw : TBits_32; inline;
  19563. procedure setRXFULLIE(thebits : TBits_1); inline;
  19564. procedure setRXFULLIF(thebits : TBits_1); inline;
  19565. procedure setRXHALFIE(thebits : TBits_1); inline;
  19566. procedure setRXHALFIF(thebits : TBits_1); inline;
  19567. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19568. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19569. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19570. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19571. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19572. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19573. procedure setTXHALFIE(thebits : TBits_1); inline;
  19574. procedure setTXHALFIF(thebits : TBits_1); inline;
  19575. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19576. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19577. procedure setw(thebits : TBits_32); inline;
  19578. public
  19579. procedure clearRXFULLIE; inline;
  19580. procedure clearRXFULLIF; inline;
  19581. procedure clearRXHALFIE; inline;
  19582. procedure clearRXHALFIF; inline;
  19583. procedure clearRXNEMPTYIE; inline;
  19584. procedure clearRXNEMPTYIF; inline;
  19585. procedure clearRXOVFLIE; inline;
  19586. procedure clearRXOVFLIF; inline;
  19587. procedure clearTXEMPTYIE; inline;
  19588. procedure clearTXEMPTYIF; inline;
  19589. procedure clearTXHALFIE; inline;
  19590. procedure clearTXHALFIF; inline;
  19591. procedure clearTXNFULLIE; inline;
  19592. procedure clearTXNFULLIF; inline;
  19593. procedure setRXFULLIE; inline;
  19594. procedure setRXFULLIF; inline;
  19595. procedure setRXHALFIE; inline;
  19596. procedure setRXHALFIF; inline;
  19597. procedure setRXNEMPTYIE; inline;
  19598. procedure setRXNEMPTYIF; inline;
  19599. procedure setRXOVFLIE; inline;
  19600. procedure setRXOVFLIF; inline;
  19601. procedure setTXEMPTYIE; inline;
  19602. procedure setTXEMPTYIF; inline;
  19603. procedure setTXHALFIE; inline;
  19604. procedure setTXHALFIF; inline;
  19605. procedure setTXNFULLIE; inline;
  19606. procedure setTXNFULLIF; inline;
  19607. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19608. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19609. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19610. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19611. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19612. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19613. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19614. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19615. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19616. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19617. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19618. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19619. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19620. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19621. property w : TBits_32 read getw write setw;
  19622. end;
  19623. TCAN1_C1FIFOCI14 = record
  19624. private
  19625. function getCFIFOCI : TBits_5; inline;
  19626. function getw : TBits_32; inline;
  19627. procedure setCFIFOCI(thebits : TBits_5); inline;
  19628. procedure setw(thebits : TBits_32); inline;
  19629. public
  19630. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19631. property w : TBits_32 read getw write setw;
  19632. end;
  19633. TCAN1_C1FIFOCON15 = record
  19634. private
  19635. function getDONLY : TBits_1; inline;
  19636. function getFRESET : TBits_1; inline;
  19637. function getFSIZE : TBits_5; inline;
  19638. function getRTREN : TBits_1; inline;
  19639. function getTXABAT : TBits_1; inline;
  19640. function getTXEN : TBits_1; inline;
  19641. function getTXERR : TBits_1; inline;
  19642. function getTXLARB : TBits_1; inline;
  19643. function getTXPRI : TBits_2; inline;
  19644. function getTXREQ : TBits_1; inline;
  19645. function getUINC : TBits_1; inline;
  19646. function getw : TBits_32; inline;
  19647. procedure setDONLY(thebits : TBits_1); inline;
  19648. procedure setFRESET(thebits : TBits_1); inline;
  19649. procedure setFSIZE(thebits : TBits_5); inline;
  19650. procedure setRTREN(thebits : TBits_1); inline;
  19651. procedure setTXABAT(thebits : TBits_1); inline;
  19652. procedure setTXEN(thebits : TBits_1); inline;
  19653. procedure setTXERR(thebits : TBits_1); inline;
  19654. procedure setTXLARB(thebits : TBits_1); inline;
  19655. procedure setTXPRI(thebits : TBits_2); inline;
  19656. procedure setTXREQ(thebits : TBits_1); inline;
  19657. procedure setUINC(thebits : TBits_1); inline;
  19658. procedure setw(thebits : TBits_32); inline;
  19659. public
  19660. procedure clearDONLY; inline;
  19661. procedure clearFRESET; inline;
  19662. procedure clearRTREN; inline;
  19663. procedure clearTXABAT; inline;
  19664. procedure clearTXEN; inline;
  19665. procedure clearTXERR; inline;
  19666. procedure clearTXLARB; inline;
  19667. procedure clearTXREQ; inline;
  19668. procedure clearUINC; inline;
  19669. procedure setDONLY; inline;
  19670. procedure setFRESET; inline;
  19671. procedure setRTREN; inline;
  19672. procedure setTXABAT; inline;
  19673. procedure setTXEN; inline;
  19674. procedure setTXERR; inline;
  19675. procedure setTXLARB; inline;
  19676. procedure setTXREQ; inline;
  19677. procedure setUINC; inline;
  19678. property DONLY : TBits_1 read getDONLY write setDONLY;
  19679. property FRESET : TBits_1 read getFRESET write setFRESET;
  19680. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19681. property RTREN : TBits_1 read getRTREN write setRTREN;
  19682. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19683. property TXEN : TBits_1 read getTXEN write setTXEN;
  19684. property TXERR : TBits_1 read getTXERR write setTXERR;
  19685. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19686. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19687. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19688. property UINC : TBits_1 read getUINC write setUINC;
  19689. property w : TBits_32 read getw write setw;
  19690. end;
  19691. TCAN1_C1FIFOINT15 = record
  19692. private
  19693. function getRXFULLIE : TBits_1; inline;
  19694. function getRXFULLIF : TBits_1; inline;
  19695. function getRXHALFIE : TBits_1; inline;
  19696. function getRXHALFIF : TBits_1; inline;
  19697. function getRXNEMPTYIE : TBits_1; inline;
  19698. function getRXNEMPTYIF : TBits_1; inline;
  19699. function getRXOVFLIE : TBits_1; inline;
  19700. function getRXOVFLIF : TBits_1; inline;
  19701. function getTXEMPTYIE : TBits_1; inline;
  19702. function getTXEMPTYIF : TBits_1; inline;
  19703. function getTXHALFIE : TBits_1; inline;
  19704. function getTXHALFIF : TBits_1; inline;
  19705. function getTXNFULLIE : TBits_1; inline;
  19706. function getTXNFULLIF : TBits_1; inline;
  19707. function getw : TBits_32; inline;
  19708. procedure setRXFULLIE(thebits : TBits_1); inline;
  19709. procedure setRXFULLIF(thebits : TBits_1); inline;
  19710. procedure setRXHALFIE(thebits : TBits_1); inline;
  19711. procedure setRXHALFIF(thebits : TBits_1); inline;
  19712. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19713. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19714. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19715. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19716. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19717. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19718. procedure setTXHALFIE(thebits : TBits_1); inline;
  19719. procedure setTXHALFIF(thebits : TBits_1); inline;
  19720. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19721. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19722. procedure setw(thebits : TBits_32); inline;
  19723. public
  19724. procedure clearRXFULLIE; inline;
  19725. procedure clearRXFULLIF; inline;
  19726. procedure clearRXHALFIE; inline;
  19727. procedure clearRXHALFIF; inline;
  19728. procedure clearRXNEMPTYIE; inline;
  19729. procedure clearRXNEMPTYIF; inline;
  19730. procedure clearRXOVFLIE; inline;
  19731. procedure clearRXOVFLIF; inline;
  19732. procedure clearTXEMPTYIE; inline;
  19733. procedure clearTXEMPTYIF; inline;
  19734. procedure clearTXHALFIE; inline;
  19735. procedure clearTXHALFIF; inline;
  19736. procedure clearTXNFULLIE; inline;
  19737. procedure clearTXNFULLIF; inline;
  19738. procedure setRXFULLIE; inline;
  19739. procedure setRXFULLIF; inline;
  19740. procedure setRXHALFIE; inline;
  19741. procedure setRXHALFIF; inline;
  19742. procedure setRXNEMPTYIE; inline;
  19743. procedure setRXNEMPTYIF; inline;
  19744. procedure setRXOVFLIE; inline;
  19745. procedure setRXOVFLIF; inline;
  19746. procedure setTXEMPTYIE; inline;
  19747. procedure setTXEMPTYIF; inline;
  19748. procedure setTXHALFIE; inline;
  19749. procedure setTXHALFIF; inline;
  19750. procedure setTXNFULLIE; inline;
  19751. procedure setTXNFULLIF; inline;
  19752. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19753. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19754. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19755. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19756. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19757. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19758. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19759. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19760. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19761. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19762. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19763. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19764. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19765. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19766. property w : TBits_32 read getw write setw;
  19767. end;
  19768. TCAN1_C1FIFOCI15 = record
  19769. private
  19770. function getCFIFOCI : TBits_5; inline;
  19771. function getw : TBits_32; inline;
  19772. procedure setCFIFOCI(thebits : TBits_5); inline;
  19773. procedure setw(thebits : TBits_32); inline;
  19774. public
  19775. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19776. property w : TBits_32 read getw write setw;
  19777. end;
  19778. TCAN1_C1FIFOCON16 = record
  19779. private
  19780. function getDONLY : TBits_1; inline;
  19781. function getFRESET : TBits_1; inline;
  19782. function getFSIZE : TBits_5; inline;
  19783. function getRTREN : TBits_1; inline;
  19784. function getTXABAT : TBits_1; inline;
  19785. function getTXEN : TBits_1; inline;
  19786. function getTXERR : TBits_1; inline;
  19787. function getTXLARB : TBits_1; inline;
  19788. function getTXPRI : TBits_2; inline;
  19789. function getTXREQ : TBits_1; inline;
  19790. function getUINC : TBits_1; inline;
  19791. function getw : TBits_32; inline;
  19792. procedure setDONLY(thebits : TBits_1); inline;
  19793. procedure setFRESET(thebits : TBits_1); inline;
  19794. procedure setFSIZE(thebits : TBits_5); inline;
  19795. procedure setRTREN(thebits : TBits_1); inline;
  19796. procedure setTXABAT(thebits : TBits_1); inline;
  19797. procedure setTXEN(thebits : TBits_1); inline;
  19798. procedure setTXERR(thebits : TBits_1); inline;
  19799. procedure setTXLARB(thebits : TBits_1); inline;
  19800. procedure setTXPRI(thebits : TBits_2); inline;
  19801. procedure setTXREQ(thebits : TBits_1); inline;
  19802. procedure setUINC(thebits : TBits_1); inline;
  19803. procedure setw(thebits : TBits_32); inline;
  19804. public
  19805. procedure clearDONLY; inline;
  19806. procedure clearFRESET; inline;
  19807. procedure clearRTREN; inline;
  19808. procedure clearTXABAT; inline;
  19809. procedure clearTXEN; inline;
  19810. procedure clearTXERR; inline;
  19811. procedure clearTXLARB; inline;
  19812. procedure clearTXREQ; inline;
  19813. procedure clearUINC; inline;
  19814. procedure setDONLY; inline;
  19815. procedure setFRESET; inline;
  19816. procedure setRTREN; inline;
  19817. procedure setTXABAT; inline;
  19818. procedure setTXEN; inline;
  19819. procedure setTXERR; inline;
  19820. procedure setTXLARB; inline;
  19821. procedure setTXREQ; inline;
  19822. procedure setUINC; inline;
  19823. property DONLY : TBits_1 read getDONLY write setDONLY;
  19824. property FRESET : TBits_1 read getFRESET write setFRESET;
  19825. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19826. property RTREN : TBits_1 read getRTREN write setRTREN;
  19827. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19828. property TXEN : TBits_1 read getTXEN write setTXEN;
  19829. property TXERR : TBits_1 read getTXERR write setTXERR;
  19830. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19831. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19832. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19833. property UINC : TBits_1 read getUINC write setUINC;
  19834. property w : TBits_32 read getw write setw;
  19835. end;
  19836. TCAN1_C1FIFOINT16 = record
  19837. private
  19838. function getRXFULLIE : TBits_1; inline;
  19839. function getRXFULLIF : TBits_1; inline;
  19840. function getRXHALFIE : TBits_1; inline;
  19841. function getRXHALFIF : TBits_1; inline;
  19842. function getRXNEMPTYIE : TBits_1; inline;
  19843. function getRXNEMPTYIF : TBits_1; inline;
  19844. function getRXOVFLIE : TBits_1; inline;
  19845. function getRXOVFLIF : TBits_1; inline;
  19846. function getTXEMPTYIE : TBits_1; inline;
  19847. function getTXEMPTYIF : TBits_1; inline;
  19848. function getTXHALFIE : TBits_1; inline;
  19849. function getTXHALFIF : TBits_1; inline;
  19850. function getTXNFULLIE : TBits_1; inline;
  19851. function getTXNFULLIF : TBits_1; inline;
  19852. function getw : TBits_32; inline;
  19853. procedure setRXFULLIE(thebits : TBits_1); inline;
  19854. procedure setRXFULLIF(thebits : TBits_1); inline;
  19855. procedure setRXHALFIE(thebits : TBits_1); inline;
  19856. procedure setRXHALFIF(thebits : TBits_1); inline;
  19857. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19858. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19859. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19860. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19861. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19862. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19863. procedure setTXHALFIE(thebits : TBits_1); inline;
  19864. procedure setTXHALFIF(thebits : TBits_1); inline;
  19865. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19866. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19867. procedure setw(thebits : TBits_32); inline;
  19868. public
  19869. procedure clearRXFULLIE; inline;
  19870. procedure clearRXFULLIF; inline;
  19871. procedure clearRXHALFIE; inline;
  19872. procedure clearRXHALFIF; inline;
  19873. procedure clearRXNEMPTYIE; inline;
  19874. procedure clearRXNEMPTYIF; inline;
  19875. procedure clearRXOVFLIE; inline;
  19876. procedure clearRXOVFLIF; inline;
  19877. procedure clearTXEMPTYIE; inline;
  19878. procedure clearTXEMPTYIF; inline;
  19879. procedure clearTXHALFIE; inline;
  19880. procedure clearTXHALFIF; inline;
  19881. procedure clearTXNFULLIE; inline;
  19882. procedure clearTXNFULLIF; inline;
  19883. procedure setRXFULLIE; inline;
  19884. procedure setRXFULLIF; inline;
  19885. procedure setRXHALFIE; inline;
  19886. procedure setRXHALFIF; inline;
  19887. procedure setRXNEMPTYIE; inline;
  19888. procedure setRXNEMPTYIF; inline;
  19889. procedure setRXOVFLIE; inline;
  19890. procedure setRXOVFLIF; inline;
  19891. procedure setTXEMPTYIE; inline;
  19892. procedure setTXEMPTYIF; inline;
  19893. procedure setTXHALFIE; inline;
  19894. procedure setTXHALFIF; inline;
  19895. procedure setTXNFULLIE; inline;
  19896. procedure setTXNFULLIF; inline;
  19897. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19898. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19899. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19900. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19901. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19902. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19903. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19904. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19905. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19906. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19907. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19908. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19909. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19910. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19911. property w : TBits_32 read getw write setw;
  19912. end;
  19913. TCAN1_C1FIFOCI16 = record
  19914. private
  19915. function getCFIFOCI : TBits_5; inline;
  19916. function getw : TBits_32; inline;
  19917. procedure setCFIFOCI(thebits : TBits_5); inline;
  19918. procedure setw(thebits : TBits_32); inline;
  19919. public
  19920. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19921. property w : TBits_32 read getw write setw;
  19922. end;
  19923. TCAN1_C1FIFOCON17 = record
  19924. private
  19925. function getDONLY : TBits_1; inline;
  19926. function getFRESET : TBits_1; inline;
  19927. function getFSIZE : TBits_5; inline;
  19928. function getRTREN : TBits_1; inline;
  19929. function getTXABAT : TBits_1; inline;
  19930. function getTXEN : TBits_1; inline;
  19931. function getTXERR : TBits_1; inline;
  19932. function getTXLARB : TBits_1; inline;
  19933. function getTXPRI : TBits_2; inline;
  19934. function getTXREQ : TBits_1; inline;
  19935. function getUINC : TBits_1; inline;
  19936. function getw : TBits_32; inline;
  19937. procedure setDONLY(thebits : TBits_1); inline;
  19938. procedure setFRESET(thebits : TBits_1); inline;
  19939. procedure setFSIZE(thebits : TBits_5); inline;
  19940. procedure setRTREN(thebits : TBits_1); inline;
  19941. procedure setTXABAT(thebits : TBits_1); inline;
  19942. procedure setTXEN(thebits : TBits_1); inline;
  19943. procedure setTXERR(thebits : TBits_1); inline;
  19944. procedure setTXLARB(thebits : TBits_1); inline;
  19945. procedure setTXPRI(thebits : TBits_2); inline;
  19946. procedure setTXREQ(thebits : TBits_1); inline;
  19947. procedure setUINC(thebits : TBits_1); inline;
  19948. procedure setw(thebits : TBits_32); inline;
  19949. public
  19950. procedure clearDONLY; inline;
  19951. procedure clearFRESET; inline;
  19952. procedure clearRTREN; inline;
  19953. procedure clearTXABAT; inline;
  19954. procedure clearTXEN; inline;
  19955. procedure clearTXERR; inline;
  19956. procedure clearTXLARB; inline;
  19957. procedure clearTXREQ; inline;
  19958. procedure clearUINC; inline;
  19959. procedure setDONLY; inline;
  19960. procedure setFRESET; inline;
  19961. procedure setRTREN; inline;
  19962. procedure setTXABAT; inline;
  19963. procedure setTXEN; inline;
  19964. procedure setTXERR; inline;
  19965. procedure setTXLARB; inline;
  19966. procedure setTXREQ; inline;
  19967. procedure setUINC; inline;
  19968. property DONLY : TBits_1 read getDONLY write setDONLY;
  19969. property FRESET : TBits_1 read getFRESET write setFRESET;
  19970. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19971. property RTREN : TBits_1 read getRTREN write setRTREN;
  19972. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19973. property TXEN : TBits_1 read getTXEN write setTXEN;
  19974. property TXERR : TBits_1 read getTXERR write setTXERR;
  19975. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19976. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19977. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19978. property UINC : TBits_1 read getUINC write setUINC;
  19979. property w : TBits_32 read getw write setw;
  19980. end;
  19981. TCAN1_C1FIFOINT17 = record
  19982. private
  19983. function getRXFULLIE : TBits_1; inline;
  19984. function getRXFULLIF : TBits_1; inline;
  19985. function getRXHALFIE : TBits_1; inline;
  19986. function getRXHALFIF : TBits_1; inline;
  19987. function getRXNEMPTYIE : TBits_1; inline;
  19988. function getRXNEMPTYIF : TBits_1; inline;
  19989. function getRXOVFLIE : TBits_1; inline;
  19990. function getRXOVFLIF : TBits_1; inline;
  19991. function getTXEMPTYIE : TBits_1; inline;
  19992. function getTXEMPTYIF : TBits_1; inline;
  19993. function getTXHALFIE : TBits_1; inline;
  19994. function getTXHALFIF : TBits_1; inline;
  19995. function getTXNFULLIE : TBits_1; inline;
  19996. function getTXNFULLIF : TBits_1; inline;
  19997. function getw : TBits_32; inline;
  19998. procedure setRXFULLIE(thebits : TBits_1); inline;
  19999. procedure setRXFULLIF(thebits : TBits_1); inline;
  20000. procedure setRXHALFIE(thebits : TBits_1); inline;
  20001. procedure setRXHALFIF(thebits : TBits_1); inline;
  20002. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20003. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20004. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20005. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20006. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20007. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20008. procedure setTXHALFIE(thebits : TBits_1); inline;
  20009. procedure setTXHALFIF(thebits : TBits_1); inline;
  20010. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20011. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20012. procedure setw(thebits : TBits_32); inline;
  20013. public
  20014. procedure clearRXFULLIE; inline;
  20015. procedure clearRXFULLIF; inline;
  20016. procedure clearRXHALFIE; inline;
  20017. procedure clearRXHALFIF; inline;
  20018. procedure clearRXNEMPTYIE; inline;
  20019. procedure clearRXNEMPTYIF; inline;
  20020. procedure clearRXOVFLIE; inline;
  20021. procedure clearRXOVFLIF; inline;
  20022. procedure clearTXEMPTYIE; inline;
  20023. procedure clearTXEMPTYIF; inline;
  20024. procedure clearTXHALFIE; inline;
  20025. procedure clearTXHALFIF; inline;
  20026. procedure clearTXNFULLIE; inline;
  20027. procedure clearTXNFULLIF; inline;
  20028. procedure setRXFULLIE; inline;
  20029. procedure setRXFULLIF; inline;
  20030. procedure setRXHALFIE; inline;
  20031. procedure setRXHALFIF; inline;
  20032. procedure setRXNEMPTYIE; inline;
  20033. procedure setRXNEMPTYIF; inline;
  20034. procedure setRXOVFLIE; inline;
  20035. procedure setRXOVFLIF; inline;
  20036. procedure setTXEMPTYIE; inline;
  20037. procedure setTXEMPTYIF; inline;
  20038. procedure setTXHALFIE; inline;
  20039. procedure setTXHALFIF; inline;
  20040. procedure setTXNFULLIE; inline;
  20041. procedure setTXNFULLIF; inline;
  20042. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20043. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20044. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20045. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20046. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20047. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20048. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20049. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20050. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20051. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20052. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20053. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20054. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20055. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20056. property w : TBits_32 read getw write setw;
  20057. end;
  20058. TCAN1_C1FIFOCI17 = record
  20059. private
  20060. function getCFIFOCI : TBits_5; inline;
  20061. function getw : TBits_32; inline;
  20062. procedure setCFIFOCI(thebits : TBits_5); inline;
  20063. procedure setw(thebits : TBits_32); inline;
  20064. public
  20065. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20066. property w : TBits_32 read getw write setw;
  20067. end;
  20068. TCAN1_C1FIFOCON18 = record
  20069. private
  20070. function getDONLY : TBits_1; inline;
  20071. function getFRESET : TBits_1; inline;
  20072. function getFSIZE : TBits_5; inline;
  20073. function getRTREN : TBits_1; inline;
  20074. function getTXABAT : TBits_1; inline;
  20075. function getTXEN : TBits_1; inline;
  20076. function getTXERR : TBits_1; inline;
  20077. function getTXLARB : TBits_1; inline;
  20078. function getTXPRI : TBits_2; inline;
  20079. function getTXREQ : TBits_1; inline;
  20080. function getUINC : TBits_1; inline;
  20081. function getw : TBits_32; inline;
  20082. procedure setDONLY(thebits : TBits_1); inline;
  20083. procedure setFRESET(thebits : TBits_1); inline;
  20084. procedure setFSIZE(thebits : TBits_5); inline;
  20085. procedure setRTREN(thebits : TBits_1); inline;
  20086. procedure setTXABAT(thebits : TBits_1); inline;
  20087. procedure setTXEN(thebits : TBits_1); inline;
  20088. procedure setTXERR(thebits : TBits_1); inline;
  20089. procedure setTXLARB(thebits : TBits_1); inline;
  20090. procedure setTXPRI(thebits : TBits_2); inline;
  20091. procedure setTXREQ(thebits : TBits_1); inline;
  20092. procedure setUINC(thebits : TBits_1); inline;
  20093. procedure setw(thebits : TBits_32); inline;
  20094. public
  20095. procedure clearDONLY; inline;
  20096. procedure clearFRESET; inline;
  20097. procedure clearRTREN; inline;
  20098. procedure clearTXABAT; inline;
  20099. procedure clearTXEN; inline;
  20100. procedure clearTXERR; inline;
  20101. procedure clearTXLARB; inline;
  20102. procedure clearTXREQ; inline;
  20103. procedure clearUINC; inline;
  20104. procedure setDONLY; inline;
  20105. procedure setFRESET; inline;
  20106. procedure setRTREN; inline;
  20107. procedure setTXABAT; inline;
  20108. procedure setTXEN; inline;
  20109. procedure setTXERR; inline;
  20110. procedure setTXLARB; inline;
  20111. procedure setTXREQ; inline;
  20112. procedure setUINC; inline;
  20113. property DONLY : TBits_1 read getDONLY write setDONLY;
  20114. property FRESET : TBits_1 read getFRESET write setFRESET;
  20115. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20116. property RTREN : TBits_1 read getRTREN write setRTREN;
  20117. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20118. property TXEN : TBits_1 read getTXEN write setTXEN;
  20119. property TXERR : TBits_1 read getTXERR write setTXERR;
  20120. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20121. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20122. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20123. property UINC : TBits_1 read getUINC write setUINC;
  20124. property w : TBits_32 read getw write setw;
  20125. end;
  20126. TCAN1_C1FIFOINT18 = record
  20127. private
  20128. function getRXFULLIE : TBits_1; inline;
  20129. function getRXFULLIF : TBits_1; inline;
  20130. function getRXHALFIE : TBits_1; inline;
  20131. function getRXHALFIF : TBits_1; inline;
  20132. function getRXNEMPTYIE : TBits_1; inline;
  20133. function getRXNEMPTYIF : TBits_1; inline;
  20134. function getRXOVFLIE : TBits_1; inline;
  20135. function getRXOVFLIF : TBits_1; inline;
  20136. function getTXEMPTYIE : TBits_1; inline;
  20137. function getTXEMPTYIF : TBits_1; inline;
  20138. function getTXHALFIE : TBits_1; inline;
  20139. function getTXHALFIF : TBits_1; inline;
  20140. function getTXNFULLIE : TBits_1; inline;
  20141. function getTXNFULLIF : TBits_1; inline;
  20142. function getw : TBits_32; inline;
  20143. procedure setRXFULLIE(thebits : TBits_1); inline;
  20144. procedure setRXFULLIF(thebits : TBits_1); inline;
  20145. procedure setRXHALFIE(thebits : TBits_1); inline;
  20146. procedure setRXHALFIF(thebits : TBits_1); inline;
  20147. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20148. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20149. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20150. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20151. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20152. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20153. procedure setTXHALFIE(thebits : TBits_1); inline;
  20154. procedure setTXHALFIF(thebits : TBits_1); inline;
  20155. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20156. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20157. procedure setw(thebits : TBits_32); inline;
  20158. public
  20159. procedure clearRXFULLIE; inline;
  20160. procedure clearRXFULLIF; inline;
  20161. procedure clearRXHALFIE; inline;
  20162. procedure clearRXHALFIF; inline;
  20163. procedure clearRXNEMPTYIE; inline;
  20164. procedure clearRXNEMPTYIF; inline;
  20165. procedure clearRXOVFLIE; inline;
  20166. procedure clearRXOVFLIF; inline;
  20167. procedure clearTXEMPTYIE; inline;
  20168. procedure clearTXEMPTYIF; inline;
  20169. procedure clearTXHALFIE; inline;
  20170. procedure clearTXHALFIF; inline;
  20171. procedure clearTXNFULLIE; inline;
  20172. procedure clearTXNFULLIF; inline;
  20173. procedure setRXFULLIE; inline;
  20174. procedure setRXFULLIF; inline;
  20175. procedure setRXHALFIE; inline;
  20176. procedure setRXHALFIF; inline;
  20177. procedure setRXNEMPTYIE; inline;
  20178. procedure setRXNEMPTYIF; inline;
  20179. procedure setRXOVFLIE; inline;
  20180. procedure setRXOVFLIF; inline;
  20181. procedure setTXEMPTYIE; inline;
  20182. procedure setTXEMPTYIF; inline;
  20183. procedure setTXHALFIE; inline;
  20184. procedure setTXHALFIF; inline;
  20185. procedure setTXNFULLIE; inline;
  20186. procedure setTXNFULLIF; inline;
  20187. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20188. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20189. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20190. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20191. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20192. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20193. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20194. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20195. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20196. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20197. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20198. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20199. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20200. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20201. property w : TBits_32 read getw write setw;
  20202. end;
  20203. TCAN1_C1FIFOCI18 = record
  20204. private
  20205. function getCFIFOCI : TBits_5; inline;
  20206. function getw : TBits_32; inline;
  20207. procedure setCFIFOCI(thebits : TBits_5); inline;
  20208. procedure setw(thebits : TBits_32); inline;
  20209. public
  20210. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20211. property w : TBits_32 read getw write setw;
  20212. end;
  20213. TCAN1_C1FIFOCON19 = record
  20214. private
  20215. function getDONLY : TBits_1; inline;
  20216. function getFRESET : TBits_1; inline;
  20217. function getFSIZE : TBits_5; inline;
  20218. function getRTREN : TBits_1; inline;
  20219. function getTXABAT : TBits_1; inline;
  20220. function getTXEN : TBits_1; inline;
  20221. function getTXERR : TBits_1; inline;
  20222. function getTXLARB : TBits_1; inline;
  20223. function getTXPRI : TBits_2; inline;
  20224. function getTXREQ : TBits_1; inline;
  20225. function getUINC : TBits_1; inline;
  20226. function getw : TBits_32; inline;
  20227. procedure setDONLY(thebits : TBits_1); inline;
  20228. procedure setFRESET(thebits : TBits_1); inline;
  20229. procedure setFSIZE(thebits : TBits_5); inline;
  20230. procedure setRTREN(thebits : TBits_1); inline;
  20231. procedure setTXABAT(thebits : TBits_1); inline;
  20232. procedure setTXEN(thebits : TBits_1); inline;
  20233. procedure setTXERR(thebits : TBits_1); inline;
  20234. procedure setTXLARB(thebits : TBits_1); inline;
  20235. procedure setTXPRI(thebits : TBits_2); inline;
  20236. procedure setTXREQ(thebits : TBits_1); inline;
  20237. procedure setUINC(thebits : TBits_1); inline;
  20238. procedure setw(thebits : TBits_32); inline;
  20239. public
  20240. procedure clearDONLY; inline;
  20241. procedure clearFRESET; inline;
  20242. procedure clearRTREN; inline;
  20243. procedure clearTXABAT; inline;
  20244. procedure clearTXEN; inline;
  20245. procedure clearTXERR; inline;
  20246. procedure clearTXLARB; inline;
  20247. procedure clearTXREQ; inline;
  20248. procedure clearUINC; inline;
  20249. procedure setDONLY; inline;
  20250. procedure setFRESET; inline;
  20251. procedure setRTREN; inline;
  20252. procedure setTXABAT; inline;
  20253. procedure setTXEN; inline;
  20254. procedure setTXERR; inline;
  20255. procedure setTXLARB; inline;
  20256. procedure setTXREQ; inline;
  20257. procedure setUINC; inline;
  20258. property DONLY : TBits_1 read getDONLY write setDONLY;
  20259. property FRESET : TBits_1 read getFRESET write setFRESET;
  20260. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20261. property RTREN : TBits_1 read getRTREN write setRTREN;
  20262. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20263. property TXEN : TBits_1 read getTXEN write setTXEN;
  20264. property TXERR : TBits_1 read getTXERR write setTXERR;
  20265. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20266. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20267. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20268. property UINC : TBits_1 read getUINC write setUINC;
  20269. property w : TBits_32 read getw write setw;
  20270. end;
  20271. TCAN1_C1FIFOINT19 = record
  20272. private
  20273. function getRXFULLIE : TBits_1; inline;
  20274. function getRXFULLIF : TBits_1; inline;
  20275. function getRXHALFIE : TBits_1; inline;
  20276. function getRXHALFIF : TBits_1; inline;
  20277. function getRXNEMPTYIE : TBits_1; inline;
  20278. function getRXNEMPTYIF : TBits_1; inline;
  20279. function getRXOVFLIE : TBits_1; inline;
  20280. function getRXOVFLIF : TBits_1; inline;
  20281. function getTXEMPTYIE : TBits_1; inline;
  20282. function getTXEMPTYIF : TBits_1; inline;
  20283. function getTXHALFIE : TBits_1; inline;
  20284. function getTXHALFIF : TBits_1; inline;
  20285. function getTXNFULLIE : TBits_1; inline;
  20286. function getTXNFULLIF : TBits_1; inline;
  20287. function getw : TBits_32; inline;
  20288. procedure setRXFULLIE(thebits : TBits_1); inline;
  20289. procedure setRXFULLIF(thebits : TBits_1); inline;
  20290. procedure setRXHALFIE(thebits : TBits_1); inline;
  20291. procedure setRXHALFIF(thebits : TBits_1); inline;
  20292. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20293. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20294. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20295. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20296. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20297. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20298. procedure setTXHALFIE(thebits : TBits_1); inline;
  20299. procedure setTXHALFIF(thebits : TBits_1); inline;
  20300. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20301. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20302. procedure setw(thebits : TBits_32); inline;
  20303. public
  20304. procedure clearRXFULLIE; inline;
  20305. procedure clearRXFULLIF; inline;
  20306. procedure clearRXHALFIE; inline;
  20307. procedure clearRXHALFIF; inline;
  20308. procedure clearRXNEMPTYIE; inline;
  20309. procedure clearRXNEMPTYIF; inline;
  20310. procedure clearRXOVFLIE; inline;
  20311. procedure clearRXOVFLIF; inline;
  20312. procedure clearTXEMPTYIE; inline;
  20313. procedure clearTXEMPTYIF; inline;
  20314. procedure clearTXHALFIE; inline;
  20315. procedure clearTXHALFIF; inline;
  20316. procedure clearTXNFULLIE; inline;
  20317. procedure clearTXNFULLIF; inline;
  20318. procedure setRXFULLIE; inline;
  20319. procedure setRXFULLIF; inline;
  20320. procedure setRXHALFIE; inline;
  20321. procedure setRXHALFIF; inline;
  20322. procedure setRXNEMPTYIE; inline;
  20323. procedure setRXNEMPTYIF; inline;
  20324. procedure setRXOVFLIE; inline;
  20325. procedure setRXOVFLIF; inline;
  20326. procedure setTXEMPTYIE; inline;
  20327. procedure setTXEMPTYIF; inline;
  20328. procedure setTXHALFIE; inline;
  20329. procedure setTXHALFIF; inline;
  20330. procedure setTXNFULLIE; inline;
  20331. procedure setTXNFULLIF; inline;
  20332. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20333. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20334. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20335. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20336. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20337. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20338. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20339. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20340. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20341. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20342. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20343. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20344. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20345. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20346. property w : TBits_32 read getw write setw;
  20347. end;
  20348. TCAN1_C1FIFOCI19 = record
  20349. private
  20350. function getCFIFOCI : TBits_5; inline;
  20351. function getw : TBits_32; inline;
  20352. procedure setCFIFOCI(thebits : TBits_5); inline;
  20353. procedure setw(thebits : TBits_32); inline;
  20354. public
  20355. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20356. property w : TBits_32 read getw write setw;
  20357. end;
  20358. TCAN1_C1FIFOCON20 = record
  20359. private
  20360. function getDONLY : TBits_1; inline;
  20361. function getFRESET : TBits_1; inline;
  20362. function getFSIZE : TBits_5; inline;
  20363. function getRTREN : TBits_1; inline;
  20364. function getTXABAT : TBits_1; inline;
  20365. function getTXEN : TBits_1; inline;
  20366. function getTXERR : TBits_1; inline;
  20367. function getTXLARB : TBits_1; inline;
  20368. function getTXPRI : TBits_2; inline;
  20369. function getTXREQ : TBits_1; inline;
  20370. function getUINC : TBits_1; inline;
  20371. function getw : TBits_32; inline;
  20372. procedure setDONLY(thebits : TBits_1); inline;
  20373. procedure setFRESET(thebits : TBits_1); inline;
  20374. procedure setFSIZE(thebits : TBits_5); inline;
  20375. procedure setRTREN(thebits : TBits_1); inline;
  20376. procedure setTXABAT(thebits : TBits_1); inline;
  20377. procedure setTXEN(thebits : TBits_1); inline;
  20378. procedure setTXERR(thebits : TBits_1); inline;
  20379. procedure setTXLARB(thebits : TBits_1); inline;
  20380. procedure setTXPRI(thebits : TBits_2); inline;
  20381. procedure setTXREQ(thebits : TBits_1); inline;
  20382. procedure setUINC(thebits : TBits_1); inline;
  20383. procedure setw(thebits : TBits_32); inline;
  20384. public
  20385. procedure clearDONLY; inline;
  20386. procedure clearFRESET; inline;
  20387. procedure clearRTREN; inline;
  20388. procedure clearTXABAT; inline;
  20389. procedure clearTXEN; inline;
  20390. procedure clearTXERR; inline;
  20391. procedure clearTXLARB; inline;
  20392. procedure clearTXREQ; inline;
  20393. procedure clearUINC; inline;
  20394. procedure setDONLY; inline;
  20395. procedure setFRESET; inline;
  20396. procedure setRTREN; inline;
  20397. procedure setTXABAT; inline;
  20398. procedure setTXEN; inline;
  20399. procedure setTXERR; inline;
  20400. procedure setTXLARB; inline;
  20401. procedure setTXREQ; inline;
  20402. procedure setUINC; inline;
  20403. property DONLY : TBits_1 read getDONLY write setDONLY;
  20404. property FRESET : TBits_1 read getFRESET write setFRESET;
  20405. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20406. property RTREN : TBits_1 read getRTREN write setRTREN;
  20407. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20408. property TXEN : TBits_1 read getTXEN write setTXEN;
  20409. property TXERR : TBits_1 read getTXERR write setTXERR;
  20410. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20411. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20412. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20413. property UINC : TBits_1 read getUINC write setUINC;
  20414. property w : TBits_32 read getw write setw;
  20415. end;
  20416. TCAN1_C1FIFOINT20 = record
  20417. private
  20418. function getRXFULLIE : TBits_1; inline;
  20419. function getRXFULLIF : TBits_1; inline;
  20420. function getRXHALFIE : TBits_1; inline;
  20421. function getRXHALFIF : TBits_1; inline;
  20422. function getRXNEMPTYIE : TBits_1; inline;
  20423. function getRXNEMPTYIF : TBits_1; inline;
  20424. function getRXOVFLIE : TBits_1; inline;
  20425. function getRXOVFLIF : TBits_1; inline;
  20426. function getTXEMPTYIE : TBits_1; inline;
  20427. function getTXEMPTYIF : TBits_1; inline;
  20428. function getTXHALFIE : TBits_1; inline;
  20429. function getTXHALFIF : TBits_1; inline;
  20430. function getTXNFULLIE : TBits_1; inline;
  20431. function getTXNFULLIF : TBits_1; inline;
  20432. function getw : TBits_32; inline;
  20433. procedure setRXFULLIE(thebits : TBits_1); inline;
  20434. procedure setRXFULLIF(thebits : TBits_1); inline;
  20435. procedure setRXHALFIE(thebits : TBits_1); inline;
  20436. procedure setRXHALFIF(thebits : TBits_1); inline;
  20437. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20438. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20439. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20440. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20441. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20442. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20443. procedure setTXHALFIE(thebits : TBits_1); inline;
  20444. procedure setTXHALFIF(thebits : TBits_1); inline;
  20445. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20446. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20447. procedure setw(thebits : TBits_32); inline;
  20448. public
  20449. procedure clearRXFULLIE; inline;
  20450. procedure clearRXFULLIF; inline;
  20451. procedure clearRXHALFIE; inline;
  20452. procedure clearRXHALFIF; inline;
  20453. procedure clearRXNEMPTYIE; inline;
  20454. procedure clearRXNEMPTYIF; inline;
  20455. procedure clearRXOVFLIE; inline;
  20456. procedure clearRXOVFLIF; inline;
  20457. procedure clearTXEMPTYIE; inline;
  20458. procedure clearTXEMPTYIF; inline;
  20459. procedure clearTXHALFIE; inline;
  20460. procedure clearTXHALFIF; inline;
  20461. procedure clearTXNFULLIE; inline;
  20462. procedure clearTXNFULLIF; inline;
  20463. procedure setRXFULLIE; inline;
  20464. procedure setRXFULLIF; inline;
  20465. procedure setRXHALFIE; inline;
  20466. procedure setRXHALFIF; inline;
  20467. procedure setRXNEMPTYIE; inline;
  20468. procedure setRXNEMPTYIF; inline;
  20469. procedure setRXOVFLIE; inline;
  20470. procedure setRXOVFLIF; inline;
  20471. procedure setTXEMPTYIE; inline;
  20472. procedure setTXEMPTYIF; inline;
  20473. procedure setTXHALFIE; inline;
  20474. procedure setTXHALFIF; inline;
  20475. procedure setTXNFULLIE; inline;
  20476. procedure setTXNFULLIF; inline;
  20477. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20478. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20479. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20480. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20481. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20482. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20483. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20484. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20485. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20486. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20487. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20488. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20489. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20490. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20491. property w : TBits_32 read getw write setw;
  20492. end;
  20493. TCAN1_C1FIFOCI20 = record
  20494. private
  20495. function getCFIFOCI : TBits_5; inline;
  20496. function getw : TBits_32; inline;
  20497. procedure setCFIFOCI(thebits : TBits_5); inline;
  20498. procedure setw(thebits : TBits_32); inline;
  20499. public
  20500. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20501. property w : TBits_32 read getw write setw;
  20502. end;
  20503. TCAN1_C1FIFOCON21 = record
  20504. private
  20505. function getDONLY : TBits_1; inline;
  20506. function getFRESET : TBits_1; inline;
  20507. function getFSIZE : TBits_5; inline;
  20508. function getRTREN : TBits_1; inline;
  20509. function getTXABAT : TBits_1; inline;
  20510. function getTXEN : TBits_1; inline;
  20511. function getTXERR : TBits_1; inline;
  20512. function getTXLARB : TBits_1; inline;
  20513. function getTXPRI : TBits_2; inline;
  20514. function getTXREQ : TBits_1; inline;
  20515. function getUINC : TBits_1; inline;
  20516. function getw : TBits_32; inline;
  20517. procedure setDONLY(thebits : TBits_1); inline;
  20518. procedure setFRESET(thebits : TBits_1); inline;
  20519. procedure setFSIZE(thebits : TBits_5); inline;
  20520. procedure setRTREN(thebits : TBits_1); inline;
  20521. procedure setTXABAT(thebits : TBits_1); inline;
  20522. procedure setTXEN(thebits : TBits_1); inline;
  20523. procedure setTXERR(thebits : TBits_1); inline;
  20524. procedure setTXLARB(thebits : TBits_1); inline;
  20525. procedure setTXPRI(thebits : TBits_2); inline;
  20526. procedure setTXREQ(thebits : TBits_1); inline;
  20527. procedure setUINC(thebits : TBits_1); inline;
  20528. procedure setw(thebits : TBits_32); inline;
  20529. public
  20530. procedure clearDONLY; inline;
  20531. procedure clearFRESET; inline;
  20532. procedure clearRTREN; inline;
  20533. procedure clearTXABAT; inline;
  20534. procedure clearTXEN; inline;
  20535. procedure clearTXERR; inline;
  20536. procedure clearTXLARB; inline;
  20537. procedure clearTXREQ; inline;
  20538. procedure clearUINC; inline;
  20539. procedure setDONLY; inline;
  20540. procedure setFRESET; inline;
  20541. procedure setRTREN; inline;
  20542. procedure setTXABAT; inline;
  20543. procedure setTXEN; inline;
  20544. procedure setTXERR; inline;
  20545. procedure setTXLARB; inline;
  20546. procedure setTXREQ; inline;
  20547. procedure setUINC; inline;
  20548. property DONLY : TBits_1 read getDONLY write setDONLY;
  20549. property FRESET : TBits_1 read getFRESET write setFRESET;
  20550. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20551. property RTREN : TBits_1 read getRTREN write setRTREN;
  20552. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20553. property TXEN : TBits_1 read getTXEN write setTXEN;
  20554. property TXERR : TBits_1 read getTXERR write setTXERR;
  20555. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20556. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20557. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20558. property UINC : TBits_1 read getUINC write setUINC;
  20559. property w : TBits_32 read getw write setw;
  20560. end;
  20561. TCAN1_C1FIFOINT21 = record
  20562. private
  20563. function getRXFULLIE : TBits_1; inline;
  20564. function getRXFULLIF : TBits_1; inline;
  20565. function getRXHALFIE : TBits_1; inline;
  20566. function getRXHALFIF : TBits_1; inline;
  20567. function getRXNEMPTYIE : TBits_1; inline;
  20568. function getRXNEMPTYIF : TBits_1; inline;
  20569. function getRXOVFLIE : TBits_1; inline;
  20570. function getRXOVFLIF : TBits_1; inline;
  20571. function getTXEMPTYIE : TBits_1; inline;
  20572. function getTXEMPTYIF : TBits_1; inline;
  20573. function getTXHALFIE : TBits_1; inline;
  20574. function getTXHALFIF : TBits_1; inline;
  20575. function getTXNFULLIE : TBits_1; inline;
  20576. function getTXNFULLIF : TBits_1; inline;
  20577. function getw : TBits_32; inline;
  20578. procedure setRXFULLIE(thebits : TBits_1); inline;
  20579. procedure setRXFULLIF(thebits : TBits_1); inline;
  20580. procedure setRXHALFIE(thebits : TBits_1); inline;
  20581. procedure setRXHALFIF(thebits : TBits_1); inline;
  20582. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20583. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20584. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20585. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20586. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20587. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20588. procedure setTXHALFIE(thebits : TBits_1); inline;
  20589. procedure setTXHALFIF(thebits : TBits_1); inline;
  20590. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20591. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20592. procedure setw(thebits : TBits_32); inline;
  20593. public
  20594. procedure clearRXFULLIE; inline;
  20595. procedure clearRXFULLIF; inline;
  20596. procedure clearRXHALFIE; inline;
  20597. procedure clearRXHALFIF; inline;
  20598. procedure clearRXNEMPTYIE; inline;
  20599. procedure clearRXNEMPTYIF; inline;
  20600. procedure clearRXOVFLIE; inline;
  20601. procedure clearRXOVFLIF; inline;
  20602. procedure clearTXEMPTYIE; inline;
  20603. procedure clearTXEMPTYIF; inline;
  20604. procedure clearTXHALFIE; inline;
  20605. procedure clearTXHALFIF; inline;
  20606. procedure clearTXNFULLIE; inline;
  20607. procedure clearTXNFULLIF; inline;
  20608. procedure setRXFULLIE; inline;
  20609. procedure setRXFULLIF; inline;
  20610. procedure setRXHALFIE; inline;
  20611. procedure setRXHALFIF; inline;
  20612. procedure setRXNEMPTYIE; inline;
  20613. procedure setRXNEMPTYIF; inline;
  20614. procedure setRXOVFLIE; inline;
  20615. procedure setRXOVFLIF; inline;
  20616. procedure setTXEMPTYIE; inline;
  20617. procedure setTXEMPTYIF; inline;
  20618. procedure setTXHALFIE; inline;
  20619. procedure setTXHALFIF; inline;
  20620. procedure setTXNFULLIE; inline;
  20621. procedure setTXNFULLIF; inline;
  20622. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20623. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20624. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20625. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20626. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20627. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20628. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20629. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20630. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20631. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20632. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20633. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20634. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20635. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20636. property w : TBits_32 read getw write setw;
  20637. end;
  20638. TCAN1_C1FIFOCI21 = record
  20639. private
  20640. function getCFIFOCI : TBits_5; inline;
  20641. function getw : TBits_32; inline;
  20642. procedure setCFIFOCI(thebits : TBits_5); inline;
  20643. procedure setw(thebits : TBits_32); inline;
  20644. public
  20645. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20646. property w : TBits_32 read getw write setw;
  20647. end;
  20648. TCAN1_C1FIFOCON22 = record
  20649. private
  20650. function getDONLY : TBits_1; inline;
  20651. function getFRESET : TBits_1; inline;
  20652. function getFSIZE : TBits_5; inline;
  20653. function getRTREN : TBits_1; inline;
  20654. function getTXABAT : TBits_1; inline;
  20655. function getTXEN : TBits_1; inline;
  20656. function getTXERR : TBits_1; inline;
  20657. function getTXLARB : TBits_1; inline;
  20658. function getTXPRI : TBits_2; inline;
  20659. function getTXREQ : TBits_1; inline;
  20660. function getUINC : TBits_1; inline;
  20661. function getw : TBits_32; inline;
  20662. procedure setDONLY(thebits : TBits_1); inline;
  20663. procedure setFRESET(thebits : TBits_1); inline;
  20664. procedure setFSIZE(thebits : TBits_5); inline;
  20665. procedure setRTREN(thebits : TBits_1); inline;
  20666. procedure setTXABAT(thebits : TBits_1); inline;
  20667. procedure setTXEN(thebits : TBits_1); inline;
  20668. procedure setTXERR(thebits : TBits_1); inline;
  20669. procedure setTXLARB(thebits : TBits_1); inline;
  20670. procedure setTXPRI(thebits : TBits_2); inline;
  20671. procedure setTXREQ(thebits : TBits_1); inline;
  20672. procedure setUINC(thebits : TBits_1); inline;
  20673. procedure setw(thebits : TBits_32); inline;
  20674. public
  20675. procedure clearDONLY; inline;
  20676. procedure clearFRESET; inline;
  20677. procedure clearRTREN; inline;
  20678. procedure clearTXABAT; inline;
  20679. procedure clearTXEN; inline;
  20680. procedure clearTXERR; inline;
  20681. procedure clearTXLARB; inline;
  20682. procedure clearTXREQ; inline;
  20683. procedure clearUINC; inline;
  20684. procedure setDONLY; inline;
  20685. procedure setFRESET; inline;
  20686. procedure setRTREN; inline;
  20687. procedure setTXABAT; inline;
  20688. procedure setTXEN; inline;
  20689. procedure setTXERR; inline;
  20690. procedure setTXLARB; inline;
  20691. procedure setTXREQ; inline;
  20692. procedure setUINC; inline;
  20693. property DONLY : TBits_1 read getDONLY write setDONLY;
  20694. property FRESET : TBits_1 read getFRESET write setFRESET;
  20695. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20696. property RTREN : TBits_1 read getRTREN write setRTREN;
  20697. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20698. property TXEN : TBits_1 read getTXEN write setTXEN;
  20699. property TXERR : TBits_1 read getTXERR write setTXERR;
  20700. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20701. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20702. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20703. property UINC : TBits_1 read getUINC write setUINC;
  20704. property w : TBits_32 read getw write setw;
  20705. end;
  20706. TCAN1_C1FIFOINT22 = record
  20707. private
  20708. function getRXFULLIE : TBits_1; inline;
  20709. function getRXFULLIF : TBits_1; inline;
  20710. function getRXHALFIE : TBits_1; inline;
  20711. function getRXHALFIF : TBits_1; inline;
  20712. function getRXNEMPTYIE : TBits_1; inline;
  20713. function getRXNEMPTYIF : TBits_1; inline;
  20714. function getRXOVFLIE : TBits_1; inline;
  20715. function getRXOVFLIF : TBits_1; inline;
  20716. function getTXEMPTYIE : TBits_1; inline;
  20717. function getTXEMPTYIF : TBits_1; inline;
  20718. function getTXHALFIE : TBits_1; inline;
  20719. function getTXHALFIF : TBits_1; inline;
  20720. function getTXNFULLIE : TBits_1; inline;
  20721. function getTXNFULLIF : TBits_1; inline;
  20722. function getw : TBits_32; inline;
  20723. procedure setRXFULLIE(thebits : TBits_1); inline;
  20724. procedure setRXFULLIF(thebits : TBits_1); inline;
  20725. procedure setRXHALFIE(thebits : TBits_1); inline;
  20726. procedure setRXHALFIF(thebits : TBits_1); inline;
  20727. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20728. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20729. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20730. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20731. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20732. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20733. procedure setTXHALFIE(thebits : TBits_1); inline;
  20734. procedure setTXHALFIF(thebits : TBits_1); inline;
  20735. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20736. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20737. procedure setw(thebits : TBits_32); inline;
  20738. public
  20739. procedure clearRXFULLIE; inline;
  20740. procedure clearRXFULLIF; inline;
  20741. procedure clearRXHALFIE; inline;
  20742. procedure clearRXHALFIF; inline;
  20743. procedure clearRXNEMPTYIE; inline;
  20744. procedure clearRXNEMPTYIF; inline;
  20745. procedure clearRXOVFLIE; inline;
  20746. procedure clearRXOVFLIF; inline;
  20747. procedure clearTXEMPTYIE; inline;
  20748. procedure clearTXEMPTYIF; inline;
  20749. procedure clearTXHALFIE; inline;
  20750. procedure clearTXHALFIF; inline;
  20751. procedure clearTXNFULLIE; inline;
  20752. procedure clearTXNFULLIF; inline;
  20753. procedure setRXFULLIE; inline;
  20754. procedure setRXFULLIF; inline;
  20755. procedure setRXHALFIE; inline;
  20756. procedure setRXHALFIF; inline;
  20757. procedure setRXNEMPTYIE; inline;
  20758. procedure setRXNEMPTYIF; inline;
  20759. procedure setRXOVFLIE; inline;
  20760. procedure setRXOVFLIF; inline;
  20761. procedure setTXEMPTYIE; inline;
  20762. procedure setTXEMPTYIF; inline;
  20763. procedure setTXHALFIE; inline;
  20764. procedure setTXHALFIF; inline;
  20765. procedure setTXNFULLIE; inline;
  20766. procedure setTXNFULLIF; inline;
  20767. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20768. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20769. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20770. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20771. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20772. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20773. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20774. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20775. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20776. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20777. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20778. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20779. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20780. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20781. property w : TBits_32 read getw write setw;
  20782. end;
  20783. TCAN1_C1FIFOCI22 = record
  20784. private
  20785. function getCFIFOCI : TBits_5; inline;
  20786. function getw : TBits_32; inline;
  20787. procedure setCFIFOCI(thebits : TBits_5); inline;
  20788. procedure setw(thebits : TBits_32); inline;
  20789. public
  20790. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20791. property w : TBits_32 read getw write setw;
  20792. end;
  20793. TCAN1_C1FIFOCON23 = record
  20794. private
  20795. function getDONLY : TBits_1; inline;
  20796. function getFRESET : TBits_1; inline;
  20797. function getFSIZE : TBits_5; inline;
  20798. function getRTREN : TBits_1; inline;
  20799. function getTXABAT : TBits_1; inline;
  20800. function getTXEN : TBits_1; inline;
  20801. function getTXERR : TBits_1; inline;
  20802. function getTXLARB : TBits_1; inline;
  20803. function getTXPRI : TBits_2; inline;
  20804. function getTXREQ : TBits_1; inline;
  20805. function getUINC : TBits_1; inline;
  20806. function getw : TBits_32; inline;
  20807. procedure setDONLY(thebits : TBits_1); inline;
  20808. procedure setFRESET(thebits : TBits_1); inline;
  20809. procedure setFSIZE(thebits : TBits_5); inline;
  20810. procedure setRTREN(thebits : TBits_1); inline;
  20811. procedure setTXABAT(thebits : TBits_1); inline;
  20812. procedure setTXEN(thebits : TBits_1); inline;
  20813. procedure setTXERR(thebits : TBits_1); inline;
  20814. procedure setTXLARB(thebits : TBits_1); inline;
  20815. procedure setTXPRI(thebits : TBits_2); inline;
  20816. procedure setTXREQ(thebits : TBits_1); inline;
  20817. procedure setUINC(thebits : TBits_1); inline;
  20818. procedure setw(thebits : TBits_32); inline;
  20819. public
  20820. procedure clearDONLY; inline;
  20821. procedure clearFRESET; inline;
  20822. procedure clearRTREN; inline;
  20823. procedure clearTXABAT; inline;
  20824. procedure clearTXEN; inline;
  20825. procedure clearTXERR; inline;
  20826. procedure clearTXLARB; inline;
  20827. procedure clearTXREQ; inline;
  20828. procedure clearUINC; inline;
  20829. procedure setDONLY; inline;
  20830. procedure setFRESET; inline;
  20831. procedure setRTREN; inline;
  20832. procedure setTXABAT; inline;
  20833. procedure setTXEN; inline;
  20834. procedure setTXERR; inline;
  20835. procedure setTXLARB; inline;
  20836. procedure setTXREQ; inline;
  20837. procedure setUINC; inline;
  20838. property DONLY : TBits_1 read getDONLY write setDONLY;
  20839. property FRESET : TBits_1 read getFRESET write setFRESET;
  20840. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20841. property RTREN : TBits_1 read getRTREN write setRTREN;
  20842. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20843. property TXEN : TBits_1 read getTXEN write setTXEN;
  20844. property TXERR : TBits_1 read getTXERR write setTXERR;
  20845. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20846. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20847. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20848. property UINC : TBits_1 read getUINC write setUINC;
  20849. property w : TBits_32 read getw write setw;
  20850. end;
  20851. TCAN1_C1FIFOINT23 = record
  20852. private
  20853. function getRXFULLIE : TBits_1; inline;
  20854. function getRXFULLIF : TBits_1; inline;
  20855. function getRXHALFIE : TBits_1; inline;
  20856. function getRXHALFIF : TBits_1; inline;
  20857. function getRXNEMPTYIE : TBits_1; inline;
  20858. function getRXNEMPTYIF : TBits_1; inline;
  20859. function getRXOVFLIE : TBits_1; inline;
  20860. function getRXOVFLIF : TBits_1; inline;
  20861. function getTXEMPTYIE : TBits_1; inline;
  20862. function getTXEMPTYIF : TBits_1; inline;
  20863. function getTXHALFIE : TBits_1; inline;
  20864. function getTXHALFIF : TBits_1; inline;
  20865. function getTXNFULLIE : TBits_1; inline;
  20866. function getTXNFULLIF : TBits_1; inline;
  20867. function getw : TBits_32; inline;
  20868. procedure setRXFULLIE(thebits : TBits_1); inline;
  20869. procedure setRXFULLIF(thebits : TBits_1); inline;
  20870. procedure setRXHALFIE(thebits : TBits_1); inline;
  20871. procedure setRXHALFIF(thebits : TBits_1); inline;
  20872. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20873. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20874. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20875. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20876. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20877. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20878. procedure setTXHALFIE(thebits : TBits_1); inline;
  20879. procedure setTXHALFIF(thebits : TBits_1); inline;
  20880. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20881. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20882. procedure setw(thebits : TBits_32); inline;
  20883. public
  20884. procedure clearRXFULLIE; inline;
  20885. procedure clearRXFULLIF; inline;
  20886. procedure clearRXHALFIE; inline;
  20887. procedure clearRXHALFIF; inline;
  20888. procedure clearRXNEMPTYIE; inline;
  20889. procedure clearRXNEMPTYIF; inline;
  20890. procedure clearRXOVFLIE; inline;
  20891. procedure clearRXOVFLIF; inline;
  20892. procedure clearTXEMPTYIE; inline;
  20893. procedure clearTXEMPTYIF; inline;
  20894. procedure clearTXHALFIE; inline;
  20895. procedure clearTXHALFIF; inline;
  20896. procedure clearTXNFULLIE; inline;
  20897. procedure clearTXNFULLIF; inline;
  20898. procedure setRXFULLIE; inline;
  20899. procedure setRXFULLIF; inline;
  20900. procedure setRXHALFIE; inline;
  20901. procedure setRXHALFIF; inline;
  20902. procedure setRXNEMPTYIE; inline;
  20903. procedure setRXNEMPTYIF; inline;
  20904. procedure setRXOVFLIE; inline;
  20905. procedure setRXOVFLIF; inline;
  20906. procedure setTXEMPTYIE; inline;
  20907. procedure setTXEMPTYIF; inline;
  20908. procedure setTXHALFIE; inline;
  20909. procedure setTXHALFIF; inline;
  20910. procedure setTXNFULLIE; inline;
  20911. procedure setTXNFULLIF; inline;
  20912. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20913. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20914. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20915. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20916. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20917. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20918. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20919. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20920. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20921. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20922. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20923. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20924. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20925. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20926. property w : TBits_32 read getw write setw;
  20927. end;
  20928. TCAN1_C1FIFOCI23 = record
  20929. private
  20930. function getCFIFOCI : TBits_5; inline;
  20931. function getw : TBits_32; inline;
  20932. procedure setCFIFOCI(thebits : TBits_5); inline;
  20933. procedure setw(thebits : TBits_32); inline;
  20934. public
  20935. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20936. property w : TBits_32 read getw write setw;
  20937. end;
  20938. TCAN1_C1FIFOCON24 = record
  20939. private
  20940. function getDONLY : TBits_1; inline;
  20941. function getFRESET : TBits_1; inline;
  20942. function getFSIZE : TBits_5; inline;
  20943. function getRTREN : TBits_1; inline;
  20944. function getTXABAT : TBits_1; inline;
  20945. function getTXEN : TBits_1; inline;
  20946. function getTXERR : TBits_1; inline;
  20947. function getTXLARB : TBits_1; inline;
  20948. function getTXPRI : TBits_2; inline;
  20949. function getTXREQ : TBits_1; inline;
  20950. function getUINC : TBits_1; inline;
  20951. function getw : TBits_32; inline;
  20952. procedure setDONLY(thebits : TBits_1); inline;
  20953. procedure setFRESET(thebits : TBits_1); inline;
  20954. procedure setFSIZE(thebits : TBits_5); inline;
  20955. procedure setRTREN(thebits : TBits_1); inline;
  20956. procedure setTXABAT(thebits : TBits_1); inline;
  20957. procedure setTXEN(thebits : TBits_1); inline;
  20958. procedure setTXERR(thebits : TBits_1); inline;
  20959. procedure setTXLARB(thebits : TBits_1); inline;
  20960. procedure setTXPRI(thebits : TBits_2); inline;
  20961. procedure setTXREQ(thebits : TBits_1); inline;
  20962. procedure setUINC(thebits : TBits_1); inline;
  20963. procedure setw(thebits : TBits_32); inline;
  20964. public
  20965. procedure clearDONLY; inline;
  20966. procedure clearFRESET; inline;
  20967. procedure clearRTREN; inline;
  20968. procedure clearTXABAT; inline;
  20969. procedure clearTXEN; inline;
  20970. procedure clearTXERR; inline;
  20971. procedure clearTXLARB; inline;
  20972. procedure clearTXREQ; inline;
  20973. procedure clearUINC; inline;
  20974. procedure setDONLY; inline;
  20975. procedure setFRESET; inline;
  20976. procedure setRTREN; inline;
  20977. procedure setTXABAT; inline;
  20978. procedure setTXEN; inline;
  20979. procedure setTXERR; inline;
  20980. procedure setTXLARB; inline;
  20981. procedure setTXREQ; inline;
  20982. procedure setUINC; inline;
  20983. property DONLY : TBits_1 read getDONLY write setDONLY;
  20984. property FRESET : TBits_1 read getFRESET write setFRESET;
  20985. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20986. property RTREN : TBits_1 read getRTREN write setRTREN;
  20987. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20988. property TXEN : TBits_1 read getTXEN write setTXEN;
  20989. property TXERR : TBits_1 read getTXERR write setTXERR;
  20990. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20991. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20992. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20993. property UINC : TBits_1 read getUINC write setUINC;
  20994. property w : TBits_32 read getw write setw;
  20995. end;
  20996. TCAN1_C1FIFOINT24 = record
  20997. private
  20998. function getRXFULLIE : TBits_1; inline;
  20999. function getRXFULLIF : TBits_1; inline;
  21000. function getRXHALFIE : TBits_1; inline;
  21001. function getRXHALFIF : TBits_1; inline;
  21002. function getRXNEMPTYIE : TBits_1; inline;
  21003. function getRXNEMPTYIF : TBits_1; inline;
  21004. function getRXOVFLIE : TBits_1; inline;
  21005. function getRXOVFLIF : TBits_1; inline;
  21006. function getTXEMPTYIE : TBits_1; inline;
  21007. function getTXEMPTYIF : TBits_1; inline;
  21008. function getTXHALFIE : TBits_1; inline;
  21009. function getTXHALFIF : TBits_1; inline;
  21010. function getTXNFULLIE : TBits_1; inline;
  21011. function getTXNFULLIF : TBits_1; inline;
  21012. function getw : TBits_32; inline;
  21013. procedure setRXFULLIE(thebits : TBits_1); inline;
  21014. procedure setRXFULLIF(thebits : TBits_1); inline;
  21015. procedure setRXHALFIE(thebits : TBits_1); inline;
  21016. procedure setRXHALFIF(thebits : TBits_1); inline;
  21017. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  21018. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  21019. procedure setRXOVFLIE(thebits : TBits_1); inline;
  21020. procedure setRXOVFLIF(thebits : TBits_1); inline;
  21021. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  21022. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  21023. procedure setTXHALFIE(thebits : TBits_1); inline;
  21024. procedure setTXHALFIF(thebits : TBits_1); inline;
  21025. procedure setTXNFULLIE(thebits : TBits_1); inline;
  21026. procedure setTXNFULLIF(thebits : TBits_1); inline;
  21027. procedure setw(thebits : TBits_32); inline;
  21028. public
  21029. procedure clearRXFULLIE; inline;
  21030. procedure clearRXFULLIF; inline;
  21031. procedure clearRXHALFIE; inline;
  21032. procedure clearRXHALFIF; inline;
  21033. procedure clearRXNEMPTYIE; inline;
  21034. procedure clearRXNEMPTYIF; inline;
  21035. procedure clearRXOVFLIE; inline;
  21036. procedure clearRXOVFLIF; inline;
  21037. procedure clearTXEMPTYIE; inline;
  21038. procedure clearTXEMPTYIF; inline;
  21039. procedure clearTXHALFIE; inline;
  21040. procedure clearTXHALFIF; inline;
  21041. procedure clearTXNFULLIE; inline;
  21042. procedure clearTXNFULLIF; inline;
  21043. procedure setRXFULLIE; inline;
  21044. procedure setRXFULLIF; inline;
  21045. procedure setRXHALFIE; inline;
  21046. procedure setRXHALFIF; inline;
  21047. procedure setRXNEMPTYIE; inline;
  21048. procedure setRXNEMPTYIF; inline;
  21049. procedure setRXOVFLIE; inline;
  21050. procedure setRXOVFLIF; inline;
  21051. procedure setTXEMPTYIE; inline;
  21052. procedure setTXEMPTYIF; inline;
  21053. procedure setTXHALFIE; inline;
  21054. procedure setTXHALFIF; inline;
  21055. procedure setTXNFULLIE; inline;
  21056. procedure setTXNFULLIF; inline;
  21057. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  21058. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  21059. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  21060. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  21061. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  21062. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  21063. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  21064. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  21065. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  21066. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  21067. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  21068. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  21069. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  21070. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  21071. property w : TBits_32 read getw write setw;
  21072. end;
  21073. TCAN1_C1FIFOCI24 = record
  21074. private
  21075. function getCFIFOCI : TBits_5; inline;
  21076. function getw : TBits_32; inline;
  21077. procedure setCFIFOCI(thebits : TBits_5); inline;
  21078. procedure setw(thebits : TBits_32); inline;
  21079. public
  21080. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  21081. property w : TBits_32 read getw write setw;
  21082. end;
  21083. TCAN1_C1FIFOCON25 = record
  21084. private
  21085. function getDONLY : TBits_1; inline;
  21086. function getFRESET : TBits_1; inline;
  21087. function getFSIZE : TBits_5; inline;
  21088. function getRTREN : TBits_1; inline;
  21089. function getTXABAT : TBits_1; inline;
  21090. function getTXEN : TBits_1; inline;
  21091. function getTXERR : TBits_1; inline;
  21092. function getTXLARB : TBits_1; inline;
  21093. function getTXPRI : TBits_2; inline;
  21094. function getTXREQ : TBits_1; inline;
  21095. function getUINC : TBits_1; inline;
  21096. function getw : TBits_32; inline;
  21097. procedure setDONLY(thebits : TBits_1); inline;
  21098. procedure setFRESET(thebits : TBits_1); inline;
  21099. procedure setFSIZE(thebits : TBits_5); inline;
  21100. procedure setRTREN(thebits : TBits_1); inline;
  21101. procedure setTXABAT(thebits : TBits_1); inline;
  21102. procedure setTXEN(thebits : TBits_1); inline;
  21103. procedure setTXERR(thebits : TBits_1); inline;
  21104. procedure setTXLARB(thebits : TBits_1); inline;
  21105. procedure setTXPRI(thebits : TBits_2); inline;
  21106. procedure setTXREQ(thebits : TBits_1); inline;
  21107. procedure setUINC(thebits : TBits_1); inline;
  21108. procedure setw(thebits : TBits_32); inline;
  21109. public
  21110. procedure clearDONLY; inline;
  21111. procedure clearFRESET; inline;
  21112. procedure clearRTREN; inline;
  21113. procedure clearTXABAT; inline;
  21114. procedure clearTXEN; inline;
  21115. procedure clearTXERR; inline;
  21116. procedure clearTXLARB; inline;
  21117. procedure clearTXREQ; inline;
  21118. procedure clearUINC; inline;
  21119. procedure setDONLY; inline;
  21120. procedure setFRESET; inline;
  21121. procedure setRTREN; inline;
  21122. procedure setTXABAT; inline;
  21123. procedure setTXEN; inline;
  21124. procedure setTXERR; inline;
  21125. procedure setTXLARB; inline;
  21126. procedure setTXREQ; inline;
  21127. procedure setUINC; inline;
  21128. property DONLY : TBits_1 read getDONLY write setDONLY;
  21129. property FRESET : TBits_1 read getFRESET write setFRESET;
  21130. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  21131. property RTREN : TBits_1 read getRTREN write setRTREN;
  21132. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  21133. property TXEN : TBits_1 read getTXEN write setTXEN;
  21134. property TXERR : TBits_1 read getTXERR write setTXERR;
  21135. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  21136. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  21137. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  21138. property UINC : TBits_1 read getUINC write setUINC;
  21139. property w : TBits_32 read getw write setw;
  21140. end;
  21141. TCAN1_C1FIFOINT25 = record
  21142. private
  21143. function getRXFULLIE : TBits_1; inline;
  21144. function getRXFULLIF : TBits_1; inline;
  21145. function getRXHALFIE : TBits_1; inline;
  21146. function getRXHALFIF : TBits_1; inline;
  21147. function getRXNEMPTYIE : TBits_1; inline;
  21148. function getRXNEMPTYIF : TBits_1; inline;
  21149. function getRXOVFLIE : TBits_1; inline;
  21150. function getRXOVFLIF : TBits_1; inline;
  21151. function getTXEMPTYIE : TBits_1; inline;
  21152. function getTXEMPTYIF : TBits_1; inline;
  21153. function getTXHALFIE : TBits_1; inline;
  21154. function getTXHALFIF : TBits_1; inline;
  21155. function getTXNFULLIE : TBits_1; inline;
  21156. function getTXNFULLIF : TBits_1; inline;
  21157. function getw : TBits_32; inline;
  21158. procedure setRXFULLIE(thebits : TBits_1); inline;
  21159. procedure setRXFULLIF(thebits : TBits_1); inline;
  21160. procedure setRXHALFIE(thebits : TBits_1); inline;
  21161. procedure setRXHALFIF(thebits : TBits_1); inline;
  21162. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  21163. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  21164. procedure setRXOVFLIE(thebits : TBits_1); inline;
  21165. procedure setRXOVFLIF(thebits : TBits_1); inline;
  21166. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  21167. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  21168. procedure setTXHALFIE(thebits : TBits_1); inline;
  21169. procedure setTXHALFIF(thebits : TBits_1); inline;
  21170. procedure setTXNFULLIE(thebits : TBits_1); inline;
  21171. procedure setTXNFULLIF(thebits : TBits_1); inline;
  21172. procedure setw(thebits : TBits_32); inline;
  21173. public
  21174. procedure clearRXFULLIE; inline;
  21175. procedure clearRXFULLIF; inline;
  21176. procedure clearRXHALFIE; inline;
  21177. procedure clearRXHALFIF; inline;
  21178. procedure clearRXNEMPTYIE; inline;
  21179. procedure clearRXNEMPTYIF; inline;
  21180. procedure clearRXOVFLIE; inline;
  21181. procedure clearRXOVFLIF; inline;
  21182. procedure clearTXEMPTYIE; inline;
  21183. procedure clearTXEMPTYIF; inline;
  21184. procedure clearTXHALFIE; inline;
  21185. procedure clearTXHALFIF; inline;
  21186. procedure clearTXNFULLIE; inline;
  21187. procedure clearTXNFULLIF; inline;
  21188. procedure setRXFULLIE; inline;
  21189. procedure setRXFULLIF; inline;
  21190. procedure setRXHALFIE; inline;
  21191. procedure setRXHALFIF; inline;
  21192. procedure setRXNEMPTYIE; inline;
  21193. procedure setRXNEMPTYIF; inline;
  21194. procedure setRXOVFLIE; inline;
  21195. procedure setRXOVFLIF; inline;
  21196. procedure setTXEMPTYIE; inline;
  21197. procedure setTXEMPTYIF; inline;
  21198. procedure setTXHALFIE; inline;
  21199. procedure setTXHALFIF; inline;
  21200. procedure setTXNFULLIE; inline;
  21201. procedure setTXNFULLIF; inline;
  21202. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  21203. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  21204. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  21205. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  21206. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  21207. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  21208. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  21209. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  21210. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  21211. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  21212. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  21213. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  21214. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  21215. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  21216. property w : TBits_32 read getw write setw;
  21217. end;
  21218. TCAN1_C1FIFOCI25 = record
  21219. private
  21220. function getCFIFOCI : TBits_5; inline;
  21221. function getw : TBits_32; inline;
  21222. procedure setCFIFOCI(thebits : TBits_5); inline;
  21223. procedure setw(thebits : TBits_32); inline;
  21224. public
  21225. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  21226. property w : TBits_32 read getw write setw;
  21227. end;
  21228. TCAN1_C1FIFOCON26 = record
  21229. private
  21230. function getDONLY : TBits_1; inline;
  21231. function getFRESET : TBits_1; inline;
  21232. function getFSIZE : TBits_5; inline;
  21233. function getRTREN : TBits_1; inline;
  21234. function getTXABAT : TBits_1; inline;
  21235. function getTXEN : TBits_1; inline;
  21236. function getTXERR : TBits_1; inline;
  21237. function getTXLARB : TBits_1; inline;
  21238. function getTXPRI : TBits_2; inline;
  21239. function getTXREQ : TBits_1; inline;
  21240. function getUINC : TBits_1; inline;
  21241. function getw : TBits_32; inline;
  21242. procedure setDONLY(thebits : TBits_1); inline;
  21243. procedure setFRESET(thebits : TBits_1); inline;
  21244. procedure setFSIZE(thebits : TBits_5); inline;
  21245. procedure setRTREN(thebits : TBits_1); inline;
  21246. procedure setTXABAT(thebits : TBits_1); inline;
  21247. procedure setTXEN(thebits : TBits_1); inline;
  21248. procedure setTXERR(thebits : TBits_1); inline;
  21249. procedure setTXLARB(thebits : TBits_1); inline;
  21250. procedure setTXPRI(thebits : TBits_2); inline;
  21251. procedure setTXREQ(thebits : TBits_1); inline;
  21252. procedure setUINC(thebits : TBits_1); inline;
  21253. procedure setw(thebits : TBits_32); inline;
  21254. public
  21255. procedure clearDONLY; inline;
  21256. procedure clearFRESET; inline;
  21257. procedure clearRTREN; inline;
  21258. procedure clearTXABAT; inline;
  21259. procedure clearTXEN; inline;
  21260. procedure clearTXERR; inline;
  21261. procedure clearTXLARB; inline;
  21262. procedure clearTXREQ; inline;
  21263. procedure clearUINC; inline;
  21264. procedure setDONLY; inline;
  21265. procedure setFRESET; inline;
  21266. procedure setRTREN; inline;
  21267. procedure setTXABAT; inline;
  21268. procedure setTXEN; inline;
  21269. procedure setTXERR; inline;
  21270. procedure setTXLARB; inline;
  21271. procedure setTXREQ; inline;
  21272. procedure setUINC; inline;
  21273. property DONLY : TBits_1 read getDONLY write setDONLY;
  21274. property FRESET : TBits_1 read getFRESET write setFRESET;
  21275. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  21276. property RTREN : TBits_1 read getRTREN write setRTREN;
  21277. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  21278. property TXEN : TBits_1 read getTXEN write setTXEN;
  21279. property TXERR : TBits_1 read getTXERR write setTXERR;
  21280. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  21281. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  21282. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  21283. property UINC : TBits_1 read getUINC write setUINC;
  21284. property w : TBits_32 read getw write setw;
  21285. end;
  21286. TCAN1_C1FIFOINT26 = record
  21287. private
  21288. function getRXFULLIE : TBits_1; inline;
  21289. function getRXFULLIF : TBits_1; inline;
  21290. function getRXHALFIE : TBits_1; inline;
  21291. function getRXHALFIF : TBits_1; inline;
  21292. function getRXNEMPTYIE : TBits_1; inline;
  21293. function getRXNEMPTYIF : TBits_1; inline;
  21294. function getRXOVFLIE : TBits_1; inline;
  21295. function getRXOVFLIF : TBits_1; inline;
  21296. function getTXEMPTYIE : TBits_1; inline;
  21297. function getTXEMPTYIF : TBits_1; inline;
  21298. function getTXHALFIE : TBits_1; inline;
  21299. function getTXHALFIF : TBits_1; inline;
  21300. function getTXNFULLIE : TBits_1; inline;
  21301. function getTXNFULLIF : TBits_1; inline;
  21302. function getw : TBits_32; inline;
  21303. procedure setRXFULLIE(thebits : TBits_1); inline;
  21304. procedure setRXFULLIF(thebits : TBits_1); inline;
  21305. procedure setRXHALFIE(thebits : TBits_1); inline;
  21306. procedure setRXHALFIF(thebits : TBits_1); inline;
  21307. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  21308. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  21309. procedure setRXOVFLIE(thebits : TBits_1); inline;
  21310. procedure setRXOVFLIF(thebits : TBits_1); inline;
  21311. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  21312. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  21313. procedure setTXHALFIE(thebits : TBits_1); inline;
  21314. procedure setTXHALFIF(thebits : TBits_1); inline;
  21315. procedure setTXNFULLIE(thebits : TBits_1); inline;
  21316. procedure setTXNFULLIF(thebits : TBits_1); inline;
  21317. procedure setw(thebits : TBits_32); inline;
  21318. public
  21319. procedure clearRXFULLIE; inline;
  21320. procedure clearRXFULLIF; inline;
  21321. procedure clearRXHALFIE; inline;
  21322. procedure clearRXHALFIF; inline;
  21323. procedure clearRXNEMPTYIE; inline;
  21324. procedure clearRXNEMPTYIF; inline;
  21325. procedure clearRXOVFLIE; inline;
  21326. procedure clearRXOVFLIF; inline;
  21327. procedure clearTXEMPTYIE; inline;
  21328. procedure clearTXEMPTYIF; inline;
  21329. procedure clearTXHALFIE; inline;
  21330. procedure clearTXHALFIF; inline;
  21331. procedure clearTXNFULLIE; inline;
  21332. procedure clearTXNFULLIF; inline;
  21333. procedure setRXFULLIE; inline;
  21334. procedure setRXFULLIF; inline;
  21335. procedure setRXHALFIE; inline;
  21336. procedure setRXHALFIF; inline;
  21337. procedure setRXNEMPTYIE; inline;
  21338. procedure setRXNEMPTYIF; inline;
  21339. procedure setRXOVFLIE; inline;
  21340. procedure setRXOVFLIF; inline;
  21341. procedure setTXEMPTYIE; inline;
  21342. procedure setTXEMPTYIF; inline;
  21343. procedure setTXHALFIE; inline;
  21344. procedure setTXHALFIF; inline;
  21345. procedure setTXNFULLIE; inline;
  21346. procedure setTXNFULLIF; inline;
  21347. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  21348. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  21349. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  21350. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  21351. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  21352. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  21353. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  21354. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  21355. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  21356. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  21357. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  21358. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  21359. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  21360. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  21361. property w : TBits_32 read getw write setw;
  21362. end;
  21363. TCAN1_C1FIFOCI26 = record
  21364. private
  21365. function getCFIFOCI : TBits_5; inline;
  21366. function getw : TBits_32; inline;
  21367. procedure setCFIFOCI(thebits : TBits_5); inline;
  21368. procedure setw(thebits : TBits_32); inline;
  21369. public
  21370. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  21371. property w : TBits_32 read getw write setw;
  21372. end;
  21373. TCAN1_C1FIFOCON27 = record
  21374. private
  21375. function getDONLY : TBits_1; inline;
  21376. function getFRESET : TBits_1; inline;
  21377. function getFSIZE : TBits_5; inline;
  21378. function getRTREN : TBits_1; inline;
  21379. function getTXABAT : TBits_1; inline;
  21380. function getTXEN : TBits_1; inline;
  21381. function getTXERR : TBits_1; inline;
  21382. function getTXLARB : TBits_1; inline;
  21383. function getTXPRI : TBits_2; inline;
  21384. function getTXREQ : TBits_1; inline;
  21385. function getUINC : TBits_1; inline;
  21386. function getw : TBits_32; inline;
  21387. procedure setDONLY(thebits : TBits_1); inline;
  21388. procedure setFRESET(thebits : TBits_1); inline;
  21389. procedure setFSIZE(thebits : TBits_5); inline;
  21390. procedure setRTREN(thebits : TBits_1); inline;
  21391. procedure setTXABAT(thebits : TBits_1); inline;
  21392. procedure setTXEN(thebits : TBits_1); inline;
  21393. procedure setTXERR(thebits : TBits_1); inline;
  21394. procedure setTXLARB(thebits : TBits_1); inline;
  21395. procedure setTXPRI(thebits : TBits_2); inline;
  21396. procedure setTXREQ(thebits : TBits_1); inline;
  21397. procedure setUINC(thebits : TBits_1); inline;
  21398. procedure setw(thebits : TBits_32); inline;
  21399. public
  21400. procedure clearDONLY; inline;
  21401. procedure clearFRESET; inline;
  21402. procedure clearRTREN; inline;
  21403. procedure clearTXABAT; inline;
  21404. procedure clearTXEN; inline;
  21405. procedure clearTXERR; inline;
  21406. procedure clearTXLARB; inline;
  21407. procedure clearTXREQ; inline;
  21408. procedure clearUINC; inline;
  21409. procedure setDONLY; inline;
  21410. procedure setFRESET; inline;
  21411. procedure setRTREN; inline;
  21412. procedure setTXABAT; inline;
  21413. procedure setTXEN; inline;
  21414. procedure setTXERR; inline;
  21415. procedure setTXLARB; inline;
  21416. procedure setTXREQ; inline;
  21417. procedure setUINC; inline;
  21418. property DONLY : TBits_1 read getDONLY write setDONLY;
  21419. property FRESET : TBits_1 read getFRESET write setFRESET;
  21420. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  21421. property RTREN : TBits_1 read getRTREN write setRTREN;
  21422. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  21423. property TXEN : TBits_1 read getTXEN write setTXEN;
  21424. property TXERR : TBits_1 read getTXERR write setTXERR;
  21425. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  21426. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  21427. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  21428. property UINC : TBits_1 read getUINC write setUINC;
  21429. property w : TBits_32 read getw write setw;
  21430. end;
  21431. TCAN1_C1FIFOINT27 = record
  21432. private
  21433. function getRXFULLIE : TBits_1; inline;
  21434. function getRXFULLIF : TBits_1; inline;
  21435. function getRXHALFIE : TBits_1; inline;
  21436. function getRXHALFIF : TBits_1; inline;
  21437. function getRXNEMPTYIE : TBits_1; inline;
  21438. function getRXNEMPTYIF : TBits_1; inline;
  21439. function getRXOVFLIE : TBits_1; inline;
  21440. function getRXOVFLIF : TBits_1; inline;
  21441. function getTXEMPTYIE : TBits_1; inline;
  21442. function getTXEMPTYIF : TBits_1; inline;
  21443. function getTXHALFIE : TBits_1; inline;
  21444. function getTXHALFIF : TBits_1; inline;
  21445. function getTXNFULLIE : TBits_1; inline;
  21446. function getTXNFULLIF : TBits_1; inline;
  21447. function getw : TBits_32; inline;
  21448. procedure setRXFULLIE(thebits : TBits_1); inline;
  21449. procedure setRXFULLIF(thebits : TBits_1); inline;
  21450. procedure setRXHALFIE(thebits : TBits_1); inline;
  21451. procedure setRXHALFIF(thebits : TBits_1); inline;
  21452. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  21453. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  21454. procedure setRXOVFLIE(thebits : TBits_1); inline;
  21455. procedure setRXOVFLIF(thebits : TBits_1); inline;
  21456. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  21457. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  21458. procedure setTXHALFIE(thebits : TBits_1); inline;
  21459. procedure setTXHALFIF(thebits : TBits_1); inline;
  21460. procedure setTXNFULLIE(thebits : TBits_1); inline;
  21461. procedure setTXNFULLIF(thebits : TBits_1); inline;
  21462. procedure setw(thebits : TBits_32); inline;
  21463. public
  21464. procedure clearRXFULLIE; inline;
  21465. procedure clearRXFULLIF; inline;
  21466. procedure clearRXHALFIE; inline;
  21467. procedure clearRXHALFIF; inline;
  21468. procedure clearRXNEMPTYIE; inline;
  21469. procedure clearRXNEMPTYIF; inline;
  21470. procedure clearRXOVFLIE; inline;
  21471. procedure clearRXOVFLIF; inline;
  21472. procedure clearTXEMPTYIE; inline;
  21473. procedure clearTXEMPTYIF; inline;
  21474. procedure clearTXHALFIE; inline;
  21475. procedure clearTXHALFIF; inline;
  21476. procedure clearTXNFULLIE; inline;
  21477. procedure clearTXNFULLIF; inline;
  21478. procedure setRXFULLIE; inline;
  21479. procedure setRXFULLIF; inline;
  21480. procedure setRXHALFIE; inline;
  21481. procedure setRXHALFIF; inline;
  21482. procedure setRXNEMPTYIE; inline;
  21483. procedure setRXNEMPTYIF; inline;
  21484. procedure setRXOVFLIE; inline;
  21485. procedure setRXOVFLIF; inline;
  21486. procedure setTXEMPTYIE; inline;
  21487. procedure setTXEMPTYIF; inline;
  21488. procedure setTXHALFIE; inline;
  21489. procedure setTXHALFIF; inline;
  21490. procedure setTXNFULLIE; inline;
  21491. procedure setTXNFULLIF; inline;
  21492. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  21493. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  21494. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  21495. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  21496. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  21497. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  21498. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  21499. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  21500. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  21501. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  21502. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  21503. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  21504. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  21505. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  21506. property w : TBits_32 read getw write setw;
  21507. end;
  21508. TCAN1_C1FIFOCI27 = record
  21509. private
  21510. function getCFIFOCI : TBits_5; inline;
  21511. function getw : TBits_32; inline;
  21512. procedure setCFIFOCI(thebits : TBits_5); inline;
  21513. procedure setw(thebits : TBits_32); inline;
  21514. public
  21515. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  21516. property w : TBits_32 read getw write setw;
  21517. end;
  21518. TCAN1_C1FIFOCON28 = record
  21519. private
  21520. function getDONLY : TBits_1; inline;
  21521. function getFRESET : TBits_1; inline;
  21522. function getFSIZE : TBits_5; inline;
  21523. function getRTREN : TBits_1; inline;
  21524. function getTXABAT : TBits_1; inline;
  21525. function getTXEN : TBits_1; inline;
  21526. function getTXERR : TBits_1; inline;
  21527. function getTXLARB : TBits_1; inline;
  21528. function getTXPRI : TBits_2; inline;
  21529. function getTXREQ : TBits_1; inline;
  21530. function getUINC : TBits_1; inline;
  21531. function getw : TBits_32; inline;
  21532. procedure setDONLY(thebits : TBits_1); inline;
  21533. procedure setFRESET(thebits : TBits_1); inline;
  21534. procedure setFSIZE(thebits : TBits_5); inline;
  21535. procedure setRTREN(thebits : TBits_1); inline;
  21536. procedure setTXABAT(thebits : TBits_1); inline;
  21537. procedure setTXEN(thebits : TBits_1); inline;
  21538. procedure setTXERR(thebits : TBits_1); inline;
  21539. procedure setTXLARB(thebits : TBits_1); inline;
  21540. procedure setTXPRI(thebits : TBits_2); inline;
  21541. procedure setTXREQ(thebits : TBits_1); inline;
  21542. procedure setUINC(thebits : TBits_1); inline;
  21543. procedure setw(thebits : TBits_32); inline;
  21544. public
  21545. procedure clearDONLY; inline;
  21546. procedure clearFRESET; inline;
  21547. procedure clearRTREN; inline;
  21548. procedure clearTXABAT; inline;
  21549. procedure clearTXEN; inline;
  21550. procedure clearTXERR; inline;
  21551. procedure clearTXLARB; inline;
  21552. procedure clearTXREQ; inline;
  21553. procedure clearUINC; inline;
  21554. procedure setDONLY; inline;
  21555. procedure setFRESET; inline;
  21556. procedure setRTREN; inline;
  21557. procedure setTXABAT; inline;
  21558. procedure setTXEN; inline;
  21559. procedure setTXERR; inline;
  21560. procedure setTXLARB; inline;
  21561. procedure setTXREQ; inline;
  21562. procedure setUINC; inline;
  21563. property DONLY : TBits_1 read getDONLY write setDONLY;
  21564. property FRESET : TBits_1 read getFRESET write setFRESET;
  21565. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  21566. property RTREN : TBits_1 read getRTREN write setRTREN;
  21567. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  21568. property TXEN : TBits_1 read getTXEN write setTXEN;
  21569. property TXERR : TBits_1 read getTXERR write setTXERR;
  21570. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  21571. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  21572. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  21573. property UINC : TBits_1 read getUINC write setUINC;
  21574. property w : TBits_32 read getw write setw;
  21575. end;
  21576. TCAN1_C1FIFOINT28 = record
  21577. private
  21578. function getRXFULLIE : TBits_1; inline;
  21579. function getRXFULLIF : TBits_1; inline;
  21580. function getRXHALFIE : TBits_1; inline;
  21581. function getRXHALFIF : TBits_1; inline;
  21582. function getRXNEMPTYIE : TBits_1; inline;
  21583. function getRXNEMPTYIF : TBits_1; inline;
  21584. function getRXOVFLIE : TBits_1; inline;
  21585. function getRXOVFLIF : TBits_1; inline;
  21586. function getTXEMPTYIE : TBits_1; inline;
  21587. function getTXEMPTYIF : TBits_1; inline;
  21588. function getTXHALFIE : TBits_1; inline;
  21589. function getTXHALFIF : TBits_1; inline;
  21590. function getTXNFULLIE : TBits_1; inline;
  21591. function getTXNFULLIF : TBits_1; inline;
  21592. function getw : TBits_32; inline;
  21593. procedure setRXFULLIE(thebits : TBits_1); inline;
  21594. procedure setRXFULLIF(thebits : TBits_1); inline;
  21595. procedure setRXHALFIE(thebits : TBits_1); inline;
  21596. procedure setRXHALFIF(thebits : TBits_1); inline;
  21597. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  21598. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  21599. procedure setRXOVFLIE(thebits : TBits_1); inline;
  21600. procedure setRXOVFLIF(thebits : TBits_1); inline;
  21601. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  21602. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  21603. procedure setTXHALFIE(thebits : TBits_1); inline;
  21604. procedure setTXHALFIF(thebits : TBits_1); inline;
  21605. procedure setTXNFULLIE(thebits : TBits_1); inline;
  21606. procedure setTXNFULLIF(thebits : TBits_1); inline;
  21607. procedure setw(thebits : TBits_32); inline;
  21608. public
  21609. procedure clearRXFULLIE; inline;
  21610. procedure clearRXFULLIF; inline;
  21611. procedure clearRXHALFIE; inline;
  21612. procedure clearRXHALFIF; inline;
  21613. procedure clearRXNEMPTYIE; inline;
  21614. procedure clearRXNEMPTYIF; inline;
  21615. procedure clearRXOVFLIE; inline;
  21616. procedure clearRXOVFLIF; inline;
  21617. procedure clearTXEMPTYIE; inline;
  21618. procedure clearTXEMPTYIF; inline;
  21619. procedure clearTXHALFIE; inline;
  21620. procedure clearTXHALFIF; inline;
  21621. procedure clearTXNFULLIE; inline;
  21622. procedure clearTXNFULLIF; inline;
  21623. procedure setRXFULLIE; inline;
  21624. procedure setRXFULLIF; inline;
  21625. procedure setRXHALFIE; inline;
  21626. procedure setRXHALFIF; inline;
  21627. procedure setRXNEMPTYIE; inline;
  21628. procedure setRXNEMPTYIF; inline;
  21629. procedure setRXOVFLIE; inline;
  21630. procedure setRXOVFLIF; inline;
  21631. procedure setTXEMPTYIE; inline;
  21632. procedure setTXEMPTYIF; inline;
  21633. procedure setTXHALFIE; inline;
  21634. procedure setTXHALFIF; inline;
  21635. procedure setTXNFULLIE; inline;
  21636. procedure setTXNFULLIF; inline;
  21637. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  21638. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  21639. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  21640. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  21641. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  21642. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  21643. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  21644. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  21645. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  21646. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  21647. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  21648. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  21649. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  21650. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  21651. property w : TBits_32 read getw write setw;
  21652. end;
  21653. TCAN1_C1FIFOCI28 = record
  21654. private
  21655. function getCFIFOCI : TBits_5; inline;
  21656. function getw : TBits_32; inline;
  21657. procedure setCFIFOCI(thebits : TBits_5); inline;
  21658. procedure setw(thebits : TBits_32); inline;
  21659. public
  21660. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  21661. property w : TBits_32 read getw write setw;
  21662. end;
  21663. TCAN1_C1FIFOCON29 = record
  21664. private
  21665. function getDONLY : TBits_1; inline;
  21666. function getFRESET : TBits_1; inline;
  21667. function getFSIZE : TBits_5; inline;
  21668. function getRTREN : TBits_1; inline;
  21669. function getTXABAT : TBits_1; inline;
  21670. function getTXEN : TBits_1; inline;
  21671. function getTXERR : TBits_1; inline;
  21672. function getTXLARB : TBits_1; inline;
  21673. function getTXPRI : TBits_2; inline;
  21674. function getTXREQ : TBits_1; inline;
  21675. function getUINC : TBits_1; inline;
  21676. function getw : TBits_32; inline;
  21677. procedure setDONLY(thebits : TBits_1); inline;
  21678. procedure setFRESET(thebits : TBits_1); inline;
  21679. procedure setFSIZE(thebits : TBits_5); inline;
  21680. procedure setRTREN(thebits : TBits_1); inline;
  21681. procedure setTXABAT(thebits : TBits_1); inline;
  21682. procedure setTXEN(thebits : TBits_1); inline;
  21683. procedure setTXERR(thebits : TBits_1); inline;
  21684. procedure setTXLARB(thebits : TBits_1); inline;
  21685. procedure setTXPRI(thebits : TBits_2); inline;
  21686. procedure setTXREQ(thebits : TBits_1); inline;
  21687. procedure setUINC(thebits : TBits_1); inline;
  21688. procedure setw(thebits : TBits_32); inline;
  21689. public
  21690. procedure clearDONLY; inline;
  21691. procedure clearFRESET; inline;
  21692. procedure clearRTREN; inline;
  21693. procedure clearTXABAT; inline;
  21694. procedure clearTXEN; inline;
  21695. procedure clearTXERR; inline;
  21696. procedure clearTXLARB; inline;
  21697. procedure clearTXREQ; inline;
  21698. procedure clearUINC; inline;
  21699. procedure setDONLY; inline;
  21700. procedure setFRESET; inline;
  21701. procedure setRTREN; inline;
  21702. procedure setTXABAT; inline;
  21703. procedure setTXEN; inline;
  21704. procedure setTXERR; inline;
  21705. procedure setTXLARB; inline;
  21706. procedure setTXREQ; inline;
  21707. procedure setUINC; inline;
  21708. property DONLY : TBits_1 read getDONLY write setDONLY;
  21709. property FRESET : TBits_1 read getFRESET write setFRESET;
  21710. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  21711. property RTREN : TBits_1 read getRTREN write setRTREN;
  21712. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  21713. property TXEN : TBits_1 read getTXEN write setTXEN;
  21714. property TXERR : TBits_1 read getTXERR write setTXERR;
  21715. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  21716. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  21717. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  21718. property UINC : TBits_1 read getUINC write setUINC;
  21719. property w : TBits_32 read getw write setw;
  21720. end;
  21721. TCAN1_C1FIFOINT29 = record
  21722. private
  21723. function getRXFULLIE : TBits_1; inline;
  21724. function getRXFULLIF : TBits_1; inline;
  21725. function getRXHALFIE : TBits_1; inline;
  21726. function getRXHALFIF : TBits_1; inline;
  21727. function getRXNEMPTYIE : TBits_1; inline;
  21728. function getRXNEMPTYIF : TBits_1; inline;
  21729. function getRXOVFLIE : TBits_1; inline;
  21730. function getRXOVFLIF : TBits_1; inline;
  21731. function getTXEMPTYIE : TBits_1; inline;
  21732. function getTXEMPTYIF : TBits_1; inline;
  21733. function getTXHALFIE : TBits_1; inline;
  21734. function getTXHALFIF : TBits_1; inline;
  21735. function getTXNFULLIE : TBits_1; inline;
  21736. function getTXNFULLIF : TBits_1; inline;
  21737. function getw : TBits_32; inline;
  21738. procedure setRXFULLIE(thebits : TBits_1); inline;
  21739. procedure setRXFULLIF(thebits : TBits_1); inline;
  21740. procedure setRXHALFIE(thebits : TBits_1); inline;
  21741. procedure setRXHALFIF(thebits : TBits_1); inline;
  21742. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  21743. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  21744. procedure setRXOVFLIE(thebits : TBits_1); inline;
  21745. procedure setRXOVFLIF(thebits : TBits_1); inline;
  21746. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  21747. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  21748. procedure setTXHALFIE(thebits : TBits_1); inline;
  21749. procedure setTXHALFIF(thebits : TBits_1); inline;
  21750. procedure setTXNFULLIE(thebits : TBits_1); inline;
  21751. procedure setTXNFULLIF(thebits : TBits_1); inline;
  21752. procedure setw(thebits : TBits_32); inline;
  21753. public
  21754. procedure clearRXFULLIE; inline;
  21755. procedure clearRXFULLIF; inline;
  21756. procedure clearRXHALFIE; inline;
  21757. procedure clearRXHALFIF; inline;
  21758. procedure clearRXNEMPTYIE; inline;
  21759. procedure clearRXNEMPTYIF; inline;
  21760. procedure clearRXOVFLIE; inline;
  21761. procedure clearRXOVFLIF; inline;
  21762. procedure clearTXEMPTYIE; inline;
  21763. procedure clearTXEMPTYIF; inline;
  21764. procedure clearTXHALFIE; inline;
  21765. procedure clearTXHALFIF; inline;
  21766. procedure clearTXNFULLIE; inline;
  21767. procedure clearTXNFULLIF; inline;
  21768. procedure setRXFULLIE; inline;
  21769. procedure setRXFULLIF; inline;
  21770. procedure setRXHALFIE; inline;
  21771. procedure setRXHALFIF; inline;
  21772. procedure setRXNEMPTYIE; inline;
  21773. procedure setRXNEMPTYIF; inline;
  21774. procedure setRXOVFLIE; inline;
  21775. procedure setRXOVFLIF; inline;
  21776. procedure setTXEMPTYIE; inline;
  21777. procedure setTXEMPTYIF; inline;
  21778. procedure setTXHALFIE; inline;
  21779. procedure setTXHALFIF; inline;
  21780. procedure setTXNFULLIE; inline;
  21781. procedure setTXNFULLIF; inline;
  21782. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  21783. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  21784. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  21785. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  21786. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  21787. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  21788. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  21789. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  21790. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  21791. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  21792. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  21793. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  21794. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  21795. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  21796. property w : TBits_32 read getw write setw;
  21797. end;
  21798. TCAN1_C1FIFOCI29 = record
  21799. private
  21800. function getCFIFOCI : TBits_5; inline;
  21801. function getw : TBits_32; inline;
  21802. procedure setCFIFOCI(thebits : TBits_5); inline;
  21803. procedure setw(thebits : TBits_32); inline;
  21804. public
  21805. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  21806. property w : TBits_32 read getw write setw;
  21807. end;
  21808. TCAN1_C1FIFOCON30 = record
  21809. private
  21810. function getDONLY : TBits_1; inline;
  21811. function getFRESET : TBits_1; inline;
  21812. function getFSIZE : TBits_5; inline;
  21813. function getRTREN : TBits_1; inline;
  21814. function getTXABAT : TBits_1; inline;
  21815. function getTXEN : TBits_1; inline;
  21816. function getTXERR : TBits_1; inline;
  21817. function getTXLARB : TBits_1; inline;
  21818. function getTXPRI : TBits_2; inline;
  21819. function getTXREQ : TBits_1; inline;
  21820. function getUINC : TBits_1; inline;
  21821. function getw : TBits_32; inline;
  21822. procedure setDONLY(thebits : TBits_1); inline;
  21823. procedure setFRESET(thebits : TBits_1); inline;
  21824. procedure setFSIZE(thebits : TBits_5); inline;
  21825. procedure setRTREN(thebits : TBits_1); inline;
  21826. procedure setTXABAT(thebits : TBits_1); inline;
  21827. procedure setTXEN(thebits : TBits_1); inline;
  21828. procedure setTXERR(thebits : TBits_1); inline;
  21829. procedure setTXLARB(thebits : TBits_1); inline;
  21830. procedure setTXPRI(thebits : TBits_2); inline;
  21831. procedure setTXREQ(thebits : TBits_1); inline;
  21832. procedure setUINC(thebits : TBits_1); inline;
  21833. procedure setw(thebits : TBits_32); inline;
  21834. public
  21835. procedure clearDONLY; inline;
  21836. procedure clearFRESET; inline;
  21837. procedure clearRTREN; inline;
  21838. procedure clearTXABAT; inline;
  21839. procedure clearTXEN; inline;
  21840. procedure clearTXERR; inline;
  21841. procedure clearTXLARB; inline;
  21842. procedure clearTXREQ; inline;
  21843. procedure clearUINC; inline;
  21844. procedure setDONLY; inline;
  21845. procedure setFRESET; inline;
  21846. procedure setRTREN; inline;
  21847. procedure setTXABAT; inline;
  21848. procedure setTXEN; inline;
  21849. procedure setTXERR; inline;
  21850. procedure setTXLARB; inline;
  21851. procedure setTXREQ; inline;
  21852. procedure setUINC; inline;
  21853. property DONLY : TBits_1 read getDONLY write setDONLY;
  21854. property FRESET : TBits_1 read getFRESET write setFRESET;
  21855. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  21856. property RTREN : TBits_1 read getRTREN write setRTREN;
  21857. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  21858. property TXEN : TBits_1 read getTXEN write setTXEN;
  21859. property TXERR : TBits_1 read getTXERR write setTXERR;
  21860. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  21861. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  21862. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  21863. property UINC : TBits_1 read getUINC write setUINC;
  21864. property w : TBits_32 read getw write setw;
  21865. end;
  21866. TCAN1_C1FIFOINT30 = record
  21867. private
  21868. function getRXFULLIE : TBits_1; inline;
  21869. function getRXFULLIF : TBits_1; inline;
  21870. function getRXHALFIE : TBits_1; inline;
  21871. function getRXHALFIF : TBits_1; inline;
  21872. function getRXNEMPTYIE : TBits_1; inline;
  21873. function getRXNEMPTYIF : TBits_1; inline;
  21874. function getRXOVFLIE : TBits_1; inline;
  21875. function getRXOVFLIF : TBits_1; inline;
  21876. function getTXEMPTYIE : TBits_1; inline;
  21877. function getTXEMPTYIF : TBits_1; inline;
  21878. function getTXHALFIE : TBits_1; inline;
  21879. function getTXHALFIF : TBits_1; inline;
  21880. function getTXNFULLIE : TBits_1; inline;
  21881. function getTXNFULLIF : TBits_1; inline;
  21882. function getw : TBits_32; inline;
  21883. procedure setRXFULLIE(thebits : TBits_1); inline;
  21884. procedure setRXFULLIF(thebits : TBits_1); inline;
  21885. procedure setRXHALFIE(thebits : TBits_1); inline;
  21886. procedure setRXHALFIF(thebits : TBits_1); inline;
  21887. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  21888. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  21889. procedure setRXOVFLIE(thebits : TBits_1); inline;
  21890. procedure setRXOVFLIF(thebits : TBits_1); inline;
  21891. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  21892. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  21893. procedure setTXHALFIE(thebits : TBits_1); inline;
  21894. procedure setTXHALFIF(thebits : TBits_1); inline;
  21895. procedure setTXNFULLIE(thebits : TBits_1); inline;
  21896. procedure setTXNFULLIF(thebits : TBits_1); inline;
  21897. procedure setw(thebits : TBits_32); inline;
  21898. public
  21899. procedure clearRXFULLIE; inline;
  21900. procedure clearRXFULLIF; inline;
  21901. procedure clearRXHALFIE; inline;
  21902. procedure clearRXHALFIF; inline;
  21903. procedure clearRXNEMPTYIE; inline;
  21904. procedure clearRXNEMPTYIF; inline;
  21905. procedure clearRXOVFLIE; inline;
  21906. procedure clearRXOVFLIF; inline;
  21907. procedure clearTXEMPTYIE; inline;
  21908. procedure clearTXEMPTYIF; inline;
  21909. procedure clearTXHALFIE; inline;
  21910. procedure clearTXHALFIF; inline;
  21911. procedure clearTXNFULLIE; inline;
  21912. procedure clearTXNFULLIF; inline;
  21913. procedure setRXFULLIE; inline;
  21914. procedure setRXFULLIF; inline;
  21915. procedure setRXHALFIE; inline;
  21916. procedure setRXHALFIF; inline;
  21917. procedure setRXNEMPTYIE; inline;
  21918. procedure setRXNEMPTYIF; inline;
  21919. procedure setRXOVFLIE; inline;
  21920. procedure setRXOVFLIF; inline;
  21921. procedure setTXEMPTYIE; inline;
  21922. procedure setTXEMPTYIF; inline;
  21923. procedure setTXHALFIE; inline;
  21924. procedure setTXHALFIF; inline;
  21925. procedure setTXNFULLIE; inline;
  21926. procedure setTXNFULLIF; inline;
  21927. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  21928. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  21929. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  21930. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  21931. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  21932. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  21933. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  21934. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  21935. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  21936. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  21937. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  21938. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  21939. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  21940. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  21941. property w : TBits_32 read getw write setw;
  21942. end;
  21943. TCAN1_C1FIFOCI30 = record
  21944. private
  21945. function getCFIFOCI : TBits_5; inline;
  21946. function getw : TBits_32; inline;
  21947. procedure setCFIFOCI(thebits : TBits_5); inline;
  21948. procedure setw(thebits : TBits_32); inline;
  21949. public
  21950. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  21951. property w : TBits_32 read getw write setw;
  21952. end;
  21953. TCAN1_C1FIFOCON31 = record
  21954. private
  21955. function getDONLY : TBits_1; inline;
  21956. function getFRESET : TBits_1; inline;
  21957. function getFSIZE : TBits_5; inline;
  21958. function getRTREN : TBits_1; inline;
  21959. function getTXABAT : TBits_1; inline;
  21960. function getTXEN : TBits_1; inline;
  21961. function getTXERR : TBits_1; inline;
  21962. function getTXLARB : TBits_1; inline;
  21963. function getTXPRI : TBits_2; inline;
  21964. function getTXREQ : TBits_1; inline;
  21965. function getUINC : TBits_1; inline;
  21966. function getw : TBits_32; inline;
  21967. procedure setDONLY(thebits : TBits_1); inline;
  21968. procedure setFRESET(thebits : TBits_1); inline;
  21969. procedure setFSIZE(thebits : TBits_5); inline;
  21970. procedure setRTREN(thebits : TBits_1); inline;
  21971. procedure setTXABAT(thebits : TBits_1); inline;
  21972. procedure setTXEN(thebits : TBits_1); inline;
  21973. procedure setTXERR(thebits : TBits_1); inline;
  21974. procedure setTXLARB(thebits : TBits_1); inline;
  21975. procedure setTXPRI(thebits : TBits_2); inline;
  21976. procedure setTXREQ(thebits : TBits_1); inline;
  21977. procedure setUINC(thebits : TBits_1); inline;
  21978. procedure setw(thebits : TBits_32); inline;
  21979. public
  21980. procedure clearDONLY; inline;
  21981. procedure clearFRESET; inline;
  21982. procedure clearRTREN; inline;
  21983. procedure clearTXABAT; inline;
  21984. procedure clearTXEN; inline;
  21985. procedure clearTXERR; inline;
  21986. procedure clearTXLARB; inline;
  21987. procedure clearTXREQ; inline;
  21988. procedure clearUINC; inline;
  21989. procedure setDONLY; inline;
  21990. procedure setFRESET; inline;
  21991. procedure setRTREN; inline;
  21992. procedure setTXABAT; inline;
  21993. procedure setTXEN; inline;
  21994. procedure setTXERR; inline;
  21995. procedure setTXLARB; inline;
  21996. procedure setTXREQ; inline;
  21997. procedure setUINC; inline;
  21998. property DONLY : TBits_1 read getDONLY write setDONLY;
  21999. property FRESET : TBits_1 read getFRESET write setFRESET;
  22000. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  22001. property RTREN : TBits_1 read getRTREN write setRTREN;
  22002. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  22003. property TXEN : TBits_1 read getTXEN write setTXEN;
  22004. property TXERR : TBits_1 read getTXERR write setTXERR;
  22005. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  22006. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  22007. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  22008. property UINC : TBits_1 read getUINC write setUINC;
  22009. property w : TBits_32 read getw write setw;
  22010. end;
  22011. TCAN1_C1FIFOINT31 = record
  22012. private
  22013. function getRXFULLIE : TBits_1; inline;
  22014. function getRXFULLIF : TBits_1; inline;
  22015. function getRXHALFIE : TBits_1; inline;
  22016. function getRXHALFIF : TBits_1; inline;
  22017. function getRXNEMPTYIE : TBits_1; inline;
  22018. function getRXNEMPTYIF : TBits_1; inline;
  22019. function getRXOVFLIE : TBits_1; inline;
  22020. function getRXOVFLIF : TBits_1; inline;
  22021. function getTXEMPTYIE : TBits_1; inline;
  22022. function getTXEMPTYIF : TBits_1; inline;
  22023. function getTXHALFIE : TBits_1; inline;
  22024. function getTXHALFIF : TBits_1; inline;
  22025. function getTXNFULLIE : TBits_1; inline;
  22026. function getTXNFULLIF : TBits_1; inline;
  22027. function getw : TBits_32; inline;
  22028. procedure setRXFULLIE(thebits : TBits_1); inline;
  22029. procedure setRXFULLIF(thebits : TBits_1); inline;
  22030. procedure setRXHALFIE(thebits : TBits_1); inline;
  22031. procedure setRXHALFIF(thebits : TBits_1); inline;
  22032. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  22033. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  22034. procedure setRXOVFLIE(thebits : TBits_1); inline;
  22035. procedure setRXOVFLIF(thebits : TBits_1); inline;
  22036. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  22037. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  22038. procedure setTXHALFIE(thebits : TBits_1); inline;
  22039. procedure setTXHALFIF(thebits : TBits_1); inline;
  22040. procedure setTXNFULLIE(thebits : TBits_1); inline;
  22041. procedure setTXNFULLIF(thebits : TBits_1); inline;
  22042. procedure setw(thebits : TBits_32); inline;
  22043. public
  22044. procedure clearRXFULLIE; inline;
  22045. procedure clearRXFULLIF; inline;
  22046. procedure clearRXHALFIE; inline;
  22047. procedure clearRXHALFIF; inline;
  22048. procedure clearRXNEMPTYIE; inline;
  22049. procedure clearRXNEMPTYIF; inline;
  22050. procedure clearRXOVFLIE; inline;
  22051. procedure clearRXOVFLIF; inline;
  22052. procedure clearTXEMPTYIE; inline;
  22053. procedure clearTXEMPTYIF; inline;
  22054. procedure clearTXHALFIE; inline;
  22055. procedure clearTXHALFIF; inline;
  22056. procedure clearTXNFULLIE; inline;
  22057. procedure clearTXNFULLIF; inline;
  22058. procedure setRXFULLIE; inline;
  22059. procedure setRXFULLIF; inline;
  22060. procedure setRXHALFIE; inline;
  22061. procedure setRXHALFIF; inline;
  22062. procedure setRXNEMPTYIE; inline;
  22063. procedure setRXNEMPTYIF; inline;
  22064. procedure setRXOVFLIE; inline;
  22065. procedure setRXOVFLIF; inline;
  22066. procedure setTXEMPTYIE; inline;
  22067. procedure setTXEMPTYIF; inline;
  22068. procedure setTXHALFIE; inline;
  22069. procedure setTXHALFIF; inline;
  22070. procedure setTXNFULLIE; inline;
  22071. procedure setTXNFULLIF; inline;
  22072. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  22073. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  22074. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  22075. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  22076. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  22077. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  22078. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  22079. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  22080. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  22081. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  22082. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  22083. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  22084. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  22085. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  22086. property w : TBits_32 read getw write setw;
  22087. end;
  22088. TCAN1_C1FIFOCI31 = record
  22089. private
  22090. function getCFIFOCI : TBits_5; inline;
  22091. function getw : TBits_32; inline;
  22092. procedure setCFIFOCI(thebits : TBits_5); inline;
  22093. procedure setw(thebits : TBits_32); inline;
  22094. public
  22095. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  22096. property w : TBits_32 read getw write setw;
  22097. end;
  22098. type
  22099. TCAN1Registers = record
  22100. C1CONbits : TCAN1_C1CON;
  22101. C1CON : longWord;
  22102. C1CONCLR : longWord;
  22103. C1CONSET : longWord;
  22104. C1CONINV : longWord;
  22105. C1CFGbits : TCAN1_C1CFG;
  22106. C1CFG : longWord;
  22107. C1CFGCLR : longWord;
  22108. C1CFGSET : longWord;
  22109. C1CFGINV : longWord;
  22110. C1INTbits : TCAN1_C1INT;
  22111. C1INT : longWord;
  22112. C1INTCLR : longWord;
  22113. C1INTSET : longWord;
  22114. C1INTINV : longWord;
  22115. C1VECbits : TCAN1_C1VEC;
  22116. C1VEC : longWord;
  22117. C1VECCLR : longWord;
  22118. C1VECSET : longWord;
  22119. C1VECINV : longWord;
  22120. C1TRECbits : TCAN1_C1TREC;
  22121. C1TREC : longWord;
  22122. C1TRECCLR : longWord;
  22123. C1TRECSET : longWord;
  22124. C1TRECINV : longWord;
  22125. C1FSTATbits : TCAN1_C1FSTAT;
  22126. C1FSTAT : longWord;
  22127. C1FSTATCLR : longWord;
  22128. C1FSTATSET : longWord;
  22129. C1FSTATINV : longWord;
  22130. C1RXOVFbits : TCAN1_C1RXOVF;
  22131. C1RXOVF : longWord;
  22132. C1RXOVFCLR : longWord;
  22133. C1RXOVFSET : longWord;
  22134. C1RXOVFINV : longWord;
  22135. C1TMRbits : TCAN1_C1TMR;
  22136. C1TMR : longWord;
  22137. C1TMRCLR : longWord;
  22138. C1TMRSET : longWord;
  22139. C1TMRINV : longWord;
  22140. C1RXM0bits : TCAN1_C1RXM0;
  22141. C1RXM0 : longWord;
  22142. C1RXM0CLR : longWord;
  22143. C1RXM0SET : longWord;
  22144. C1RXM0INV : longWord;
  22145. C1RXM1bits : TCAN1_C1RXM1;
  22146. C1RXM1 : longWord;
  22147. C1RXM1CLR : longWord;
  22148. C1RXM1SET : longWord;
  22149. C1RXM1INV : longWord;
  22150. C1RXM2bits : TCAN1_C1RXM2;
  22151. C1RXM2 : longWord;
  22152. C1RXM2CLR : longWord;
  22153. C1RXM2SET : longWord;
  22154. C1RXM2INV : longWord;
  22155. C1RXM3bits : TCAN1_C1RXM3;
  22156. C1RXM3 : longWord;
  22157. C1RXM3CLR : longWord;
  22158. C1RXM3SET : longWord;
  22159. C1RXM3INV : longWord;
  22160. C1FLTCON0bits : TCAN1_C1FLTCON0;
  22161. C1FLTCON0 : longWord;
  22162. C1FLTCON0CLR : longWord;
  22163. C1FLTCON0SET : longWord;
  22164. C1FLTCON0INV : longWord;
  22165. C1FLTCON1bits : TCAN1_C1FLTCON1;
  22166. C1FLTCON1 : longWord;
  22167. C1FLTCON1CLR : longWord;
  22168. C1FLTCON1SET : longWord;
  22169. C1FLTCON1INV : longWord;
  22170. C1FLTCON2bits : TCAN1_C1FLTCON2;
  22171. C1FLTCON2 : longWord;
  22172. C1FLTCON2CLR : longWord;
  22173. C1FLTCON2SET : longWord;
  22174. C1FLTCON2INV : longWord;
  22175. C1FLTCON3bits : TCAN1_C1FLTCON3;
  22176. C1FLTCON3 : longWord;
  22177. C1FLTCON3CLR : longWord;
  22178. C1FLTCON3SET : longWord;
  22179. C1FLTCON3INV : longWord;
  22180. C1FLTCON4bits : TCAN1_C1FLTCON4;
  22181. C1FLTCON4 : longWord;
  22182. C1FLTCON4CLR : longWord;
  22183. C1FLTCON4SET : longWord;
  22184. C1FLTCON4INV : longWord;
  22185. C1FLTCON5bits : TCAN1_C1FLTCON5;
  22186. C1FLTCON5 : longWord;
  22187. C1FLTCON5CLR : longWord;
  22188. C1FLTCON5SET : longWord;
  22189. C1FLTCON5INV : longWord;
  22190. C1FLTCON6bits : TCAN1_C1FLTCON6;
  22191. C1FLTCON6 : longWord;
  22192. C1FLTCON6CLR : longWord;
  22193. C1FLTCON6SET : longWord;
  22194. C1FLTCON6INV : longWord;
  22195. C1FLTCON7bits : TCAN1_C1FLTCON7;
  22196. C1FLTCON7 : longWord;
  22197. C1FLTCON7CLR : longWord;
  22198. C1FLTCON7SET : longWord;
  22199. C1FLTCON7INV : longWord;
  22200. C1RXF0bits : TCAN1_C1RXF0;
  22201. C1RXF0 : longWord;
  22202. C1RXF0CLR : longWord;
  22203. C1RXF0SET : longWord;
  22204. C1RXF0INV : longWord;
  22205. C1RXF1bits : TCAN1_C1RXF1;
  22206. C1RXF1 : longWord;
  22207. C1RXF1CLR : longWord;
  22208. C1RXF1SET : longWord;
  22209. C1RXF1INV : longWord;
  22210. C1RXF2bits : TCAN1_C1RXF2;
  22211. C1RXF2 : longWord;
  22212. C1RXF2CLR : longWord;
  22213. C1RXF2SET : longWord;
  22214. C1RXF2INV : longWord;
  22215. C1RXF3bits : TCAN1_C1RXF3;
  22216. C1RXF3 : longWord;
  22217. C1RXF3CLR : longWord;
  22218. C1RXF3SET : longWord;
  22219. C1RXF3INV : longWord;
  22220. C1RXF4bits : TCAN1_C1RXF4;
  22221. C1RXF4 : longWord;
  22222. C1RXF4CLR : longWord;
  22223. C1RXF4SET : longWord;
  22224. C1RXF4INV : longWord;
  22225. C1RXF5bits : TCAN1_C1RXF5;
  22226. C1RXF5 : longWord;
  22227. C1RXF5CLR : longWord;
  22228. C1RXF5SET : longWord;
  22229. C1RXF5INV : longWord;
  22230. C1RXF6bits : TCAN1_C1RXF6;
  22231. C1RXF6 : longWord;
  22232. C1RXF6CLR : longWord;
  22233. C1RXF6SET : longWord;
  22234. C1RXF6INV : longWord;
  22235. C1RXF7bits : TCAN1_C1RXF7;
  22236. C1RXF7 : longWord;
  22237. C1RXF7CLR : longWord;
  22238. C1RXF7SET : longWord;
  22239. C1RXF7INV : longWord;
  22240. C1RXF8bits : TCAN1_C1RXF8;
  22241. C1RXF8 : longWord;
  22242. C1RXF8CLR : longWord;
  22243. C1RXF8SET : longWord;
  22244. C1RXF8INV : longWord;
  22245. C1RXF9bits : TCAN1_C1RXF9;
  22246. C1RXF9 : longWord;
  22247. C1RXF9CLR : longWord;
  22248. C1RXF9SET : longWord;
  22249. C1RXF9INV : longWord;
  22250. C1RXF10bits : TCAN1_C1RXF10;
  22251. C1RXF10 : longWord;
  22252. C1RXF10CLR : longWord;
  22253. C1RXF10SET : longWord;
  22254. C1RXF10INV : longWord;
  22255. C1RXF11bits : TCAN1_C1RXF11;
  22256. C1RXF11 : longWord;
  22257. C1RXF11CLR : longWord;
  22258. C1RXF11SET : longWord;
  22259. C1RXF11INV : longWord;
  22260. C1RXF12bits : TCAN1_C1RXF12;
  22261. C1RXF12 : longWord;
  22262. C1RXF12CLR : longWord;
  22263. C1RXF12SET : longWord;
  22264. C1RXF12INV : longWord;
  22265. C1RXF13bits : TCAN1_C1RXF13;
  22266. C1RXF13 : longWord;
  22267. C1RXF13CLR : longWord;
  22268. C1RXF13SET : longWord;
  22269. C1RXF13INV : longWord;
  22270. C1RXF14bits : TCAN1_C1RXF14;
  22271. C1RXF14 : longWord;
  22272. C1RXF14CLR : longWord;
  22273. C1RXF14SET : longWord;
  22274. C1RXF14INV : longWord;
  22275. C1RXF15bits : TCAN1_C1RXF15;
  22276. C1RXF15 : longWord;
  22277. C1RXF15CLR : longWord;
  22278. C1RXF15SET : longWord;
  22279. C1RXF15INV : longWord;
  22280. C1RXF16bits : TCAN1_C1RXF16;
  22281. C1RXF16 : longWord;
  22282. C1RXF16CLR : longWord;
  22283. C1RXF16SET : longWord;
  22284. C1RXF16INV : longWord;
  22285. C1RXF17bits : TCAN1_C1RXF17;
  22286. C1RXF17 : longWord;
  22287. C1RXF17CLR : longWord;
  22288. C1RXF17SET : longWord;
  22289. C1RXF17INV : longWord;
  22290. C1RXF18bits : TCAN1_C1RXF18;
  22291. C1RXF18 : longWord;
  22292. C1RXF18CLR : longWord;
  22293. C1RXF18SET : longWord;
  22294. C1RXF18INV : longWord;
  22295. C1RXF19bits : TCAN1_C1RXF19;
  22296. C1RXF19 : longWord;
  22297. C1RXF19CLR : longWord;
  22298. C1RXF19SET : longWord;
  22299. C1RXF19INV : longWord;
  22300. C1RXF20bits : TCAN1_C1RXF20;
  22301. C1RXF20 : longWord;
  22302. C1RXF20CLR : longWord;
  22303. C1RXF20SET : longWord;
  22304. C1RXF20INV : longWord;
  22305. C1RXF21bits : TCAN1_C1RXF21;
  22306. C1RXF21 : longWord;
  22307. C1RXF21CLR : longWord;
  22308. C1RXF21SET : longWord;
  22309. C1RXF21INV : longWord;
  22310. C1RXF22bits : TCAN1_C1RXF22;
  22311. C1RXF22 : longWord;
  22312. C1RXF22CLR : longWord;
  22313. C1RXF22SET : longWord;
  22314. C1RXF22INV : longWord;
  22315. C1RXF23bits : TCAN1_C1RXF23;
  22316. C1RXF23 : longWord;
  22317. C1RXF23CLR : longWord;
  22318. C1RXF23SET : longWord;
  22319. C1RXF23INV : longWord;
  22320. C1RXF24bits : TCAN1_C1RXF24;
  22321. C1RXF24 : longWord;
  22322. C1RXF24CLR : longWord;
  22323. C1RXF24SET : longWord;
  22324. C1RXF24INV : longWord;
  22325. C1RXF25bits : TCAN1_C1RXF25;
  22326. C1RXF25 : longWord;
  22327. C1RXF25CLR : longWord;
  22328. C1RXF25SET : longWord;
  22329. C1RXF25INV : longWord;
  22330. C1RXF26bits : TCAN1_C1RXF26;
  22331. C1RXF26 : longWord;
  22332. C1RXF26CLR : longWord;
  22333. C1RXF26SET : longWord;
  22334. C1RXF26INV : longWord;
  22335. C1RXF27bits : TCAN1_C1RXF27;
  22336. C1RXF27 : longWord;
  22337. C1RXF27CLR : longWord;
  22338. C1RXF27SET : longWord;
  22339. C1RXF27INV : longWord;
  22340. C1RXF28bits : TCAN1_C1RXF28;
  22341. C1RXF28 : longWord;
  22342. C1RXF28CLR : longWord;
  22343. C1RXF28SET : longWord;
  22344. C1RXF28INV : longWord;
  22345. C1RXF29bits : TCAN1_C1RXF29;
  22346. C1RXF29 : longWord;
  22347. C1RXF29CLR : longWord;
  22348. C1RXF29SET : longWord;
  22349. C1RXF29INV : longWord;
  22350. C1RXF30bits : TCAN1_C1RXF30;
  22351. C1RXF30 : longWord;
  22352. C1RXF30CLR : longWord;
  22353. C1RXF30SET : longWord;
  22354. C1RXF30INV : longWord;
  22355. C1RXF31bits : TCAN1_C1RXF31;
  22356. C1RXF31 : longWord;
  22357. C1RXF31CLR : longWord;
  22358. C1RXF31SET : longWord;
  22359. C1RXF31INV : longWord;
  22360. C1FIFOBA : longWord;
  22361. C1FIFOBACLR : longWord;
  22362. C1FIFOBASET : longWord;
  22363. C1FIFOBAINV : longWord;
  22364. C1FIFOCON0bits : TCAN1_C1FIFOCON0;
  22365. C1FIFOCON0 : longWord;
  22366. C1FIFOCON0CLR : longWord;
  22367. C1FIFOCON0SET : longWord;
  22368. C1FIFOCON0INV : longWord;
  22369. C1FIFOINT0bits : TCAN1_C1FIFOINT0;
  22370. C1FIFOINT0 : longWord;
  22371. C1FIFOINT0CLR : longWord;
  22372. C1FIFOINT0SET : longWord;
  22373. C1FIFOINT0INV : longWord;
  22374. C1FIFOUA0 : longWord;
  22375. C1FIFOUA0CLR : longWord;
  22376. C1FIFOUA0SET : longWord;
  22377. C1FIFOUA0INV : longWord;
  22378. C1FIFOCI0bits : TCAN1_C1FIFOCI0;
  22379. C1FIFOCI0 : longWord;
  22380. C1FIFOCI0CLR : longWord;
  22381. C1FIFOCI0SET : longWord;
  22382. C1FIFOCI0INV : longWord;
  22383. C1FIFOCON1bits : TCAN1_C1FIFOCON1;
  22384. C1FIFOCON1 : longWord;
  22385. C1FIFOCON1CLR : longWord;
  22386. C1FIFOCON1SET : longWord;
  22387. C1FIFOCON1INV : longWord;
  22388. C1FIFOINT1bits : TCAN1_C1FIFOINT1;
  22389. C1FIFOINT1 : longWord;
  22390. C1FIFOINT1CLR : longWord;
  22391. C1FIFOINT1SET : longWord;
  22392. C1FIFOINT1INV : longWord;
  22393. C1FIFOUA1 : longWord;
  22394. C1FIFOUA1CLR : longWord;
  22395. C1FIFOUA1SET : longWord;
  22396. C1FIFOUA1INV : longWord;
  22397. C1FIFOCI1bits : TCAN1_C1FIFOCI1;
  22398. C1FIFOCI1 : longWord;
  22399. C1FIFOCI1CLR : longWord;
  22400. C1FIFOCI1SET : longWord;
  22401. C1FIFOCI1INV : longWord;
  22402. C1FIFOCON2bits : TCAN1_C1FIFOCON2;
  22403. C1FIFOCON2 : longWord;
  22404. C1FIFOCON2CLR : longWord;
  22405. C1FIFOCON2SET : longWord;
  22406. C1FIFOCON2INV : longWord;
  22407. C1FIFOINT2bits : TCAN1_C1FIFOINT2;
  22408. C1FIFOINT2 : longWord;
  22409. C1FIFOINT2CLR : longWord;
  22410. C1FIFOINT2SET : longWord;
  22411. C1FIFOINT2INV : longWord;
  22412. C1FIFOUA2 : longWord;
  22413. C1FIFOUA2CLR : longWord;
  22414. C1FIFOUA2SET : longWord;
  22415. C1FIFOUA2INV : longWord;
  22416. C1FIFOCI2bits : TCAN1_C1FIFOCI2;
  22417. C1FIFOCI2 : longWord;
  22418. C1FIFOCI2CLR : longWord;
  22419. C1FIFOCI2SET : longWord;
  22420. C1FIFOCI2INV : longWord;
  22421. C1FIFOCON3bits : TCAN1_C1FIFOCON3;
  22422. C1FIFOCON3 : longWord;
  22423. C1FIFOCON3CLR : longWord;
  22424. C1FIFOCON3SET : longWord;
  22425. C1FIFOCON3INV : longWord;
  22426. C1FIFOINT3bits : TCAN1_C1FIFOINT3;
  22427. C1FIFOINT3 : longWord;
  22428. C1FIFOINT3CLR : longWord;
  22429. C1FIFOINT3SET : longWord;
  22430. C1FIFOINT3INV : longWord;
  22431. C1FIFOUA3 : longWord;
  22432. C1FIFOUA3CLR : longWord;
  22433. C1FIFOUA3SET : longWord;
  22434. C1FIFOUA3INV : longWord;
  22435. C1FIFOCI3bits : TCAN1_C1FIFOCI3;
  22436. C1FIFOCI3 : longWord;
  22437. C1FIFOCI3CLR : longWord;
  22438. C1FIFOCI3SET : longWord;
  22439. C1FIFOCI3INV : longWord;
  22440. C1FIFOCON4bits : TCAN1_C1FIFOCON4;
  22441. C1FIFOCON4 : longWord;
  22442. C1FIFOCON4CLR : longWord;
  22443. C1FIFOCON4SET : longWord;
  22444. C1FIFOCON4INV : longWord;
  22445. C1FIFOINT4bits : TCAN1_C1FIFOINT4;
  22446. C1FIFOINT4 : longWord;
  22447. C1FIFOINT4CLR : longWord;
  22448. C1FIFOINT4SET : longWord;
  22449. C1FIFOINT4INV : longWord;
  22450. C1FIFOUA4 : longWord;
  22451. C1FIFOUA4CLR : longWord;
  22452. C1FIFOUA4SET : longWord;
  22453. C1FIFOUA4INV : longWord;
  22454. C1FIFOCI4bits : TCAN1_C1FIFOCI4;
  22455. C1FIFOCI4 : longWord;
  22456. C1FIFOCI4CLR : longWord;
  22457. C1FIFOCI4SET : longWord;
  22458. C1FIFOCI4INV : longWord;
  22459. C1FIFOCON5bits : TCAN1_C1FIFOCON5;
  22460. C1FIFOCON5 : longWord;
  22461. C1FIFOCON5CLR : longWord;
  22462. C1FIFOCON5SET : longWord;
  22463. C1FIFOCON5INV : longWord;
  22464. C1FIFOINT5bits : TCAN1_C1FIFOINT5;
  22465. C1FIFOINT5 : longWord;
  22466. C1FIFOINT5CLR : longWord;
  22467. C1FIFOINT5SET : longWord;
  22468. C1FIFOINT5INV : longWord;
  22469. C1FIFOUA5 : longWord;
  22470. C1FIFOUA5CLR : longWord;
  22471. C1FIFOUA5SET : longWord;
  22472. C1FIFOUA5INV : longWord;
  22473. C1FIFOCI5bits : TCAN1_C1FIFOCI5;
  22474. C1FIFOCI5 : longWord;
  22475. C1FIFOCI5CLR : longWord;
  22476. C1FIFOCI5SET : longWord;
  22477. C1FIFOCI5INV : longWord;
  22478. C1FIFOCON6bits : TCAN1_C1FIFOCON6;
  22479. C1FIFOCON6 : longWord;
  22480. C1FIFOCON6CLR : longWord;
  22481. C1FIFOCON6SET : longWord;
  22482. C1FIFOCON6INV : longWord;
  22483. C1FIFOINT6bits : TCAN1_C1FIFOINT6;
  22484. C1FIFOINT6 : longWord;
  22485. C1FIFOINT6CLR : longWord;
  22486. C1FIFOINT6SET : longWord;
  22487. C1FIFOINT6INV : longWord;
  22488. C1FIFOUA6 : longWord;
  22489. C1FIFOUA6CLR : longWord;
  22490. C1FIFOUA6SET : longWord;
  22491. C1FIFOUA6INV : longWord;
  22492. C1FIFOCI6bits : TCAN1_C1FIFOCI6;
  22493. C1FIFOCI6 : longWord;
  22494. C1FIFOCI6CLR : longWord;
  22495. C1FIFOCI6SET : longWord;
  22496. C1FIFOCI6INV : longWord;
  22497. C1FIFOCON7bits : TCAN1_C1FIFOCON7;
  22498. C1FIFOCON7 : longWord;
  22499. C1FIFOCON7CLR : longWord;
  22500. C1FIFOCON7SET : longWord;
  22501. C1FIFOCON7INV : longWord;
  22502. C1FIFOINT7bits : TCAN1_C1FIFOINT7;
  22503. C1FIFOINT7 : longWord;
  22504. C1FIFOINT7CLR : longWord;
  22505. C1FIFOINT7SET : longWord;
  22506. C1FIFOINT7INV : longWord;
  22507. C1FIFOUA7 : longWord;
  22508. C1FIFOUA7CLR : longWord;
  22509. C1FIFOUA7SET : longWord;
  22510. C1FIFOUA7INV : longWord;
  22511. C1FIFOCI7bits : TCAN1_C1FIFOCI7;
  22512. C1FIFOCI7 : longWord;
  22513. C1FIFOCI7CLR : longWord;
  22514. C1FIFOCI7SET : longWord;
  22515. C1FIFOCI7INV : longWord;
  22516. C1FIFOCON8bits : TCAN1_C1FIFOCON8;
  22517. C1FIFOCON8 : longWord;
  22518. C1FIFOCON8CLR : longWord;
  22519. C1FIFOCON8SET : longWord;
  22520. C1FIFOCON8INV : longWord;
  22521. C1FIFOINT8bits : TCAN1_C1FIFOINT8;
  22522. C1FIFOINT8 : longWord;
  22523. C1FIFOINT8CLR : longWord;
  22524. C1FIFOINT8SET : longWord;
  22525. C1FIFOINT8INV : longWord;
  22526. C1FIFOUA8 : longWord;
  22527. C1FIFOUA8CLR : longWord;
  22528. C1FIFOUA8SET : longWord;
  22529. C1FIFOUA8INV : longWord;
  22530. C1FIFOCI8bits : TCAN1_C1FIFOCI8;
  22531. C1FIFOCI8 : longWord;
  22532. C1FIFOCI8CLR : longWord;
  22533. C1FIFOCI8SET : longWord;
  22534. C1FIFOCI8INV : longWord;
  22535. C1FIFOCON9bits : TCAN1_C1FIFOCON9;
  22536. C1FIFOCON9 : longWord;
  22537. C1FIFOCON9CLR : longWord;
  22538. C1FIFOCON9SET : longWord;
  22539. C1FIFOCON9INV : longWord;
  22540. C1FIFOINT9bits : TCAN1_C1FIFOINT9;
  22541. C1FIFOINT9 : longWord;
  22542. C1FIFOINT9CLR : longWord;
  22543. C1FIFOINT9SET : longWord;
  22544. C1FIFOINT9INV : longWord;
  22545. C1FIFOUA9 : longWord;
  22546. C1FIFOUA9CLR : longWord;
  22547. C1FIFOUA9SET : longWord;
  22548. C1FIFOUA9INV : longWord;
  22549. C1FIFOCI9bits : TCAN1_C1FIFOCI9;
  22550. C1FIFOCI9 : longWord;
  22551. C1FIFOCI9CLR : longWord;
  22552. C1FIFOCI9SET : longWord;
  22553. C1FIFOCI9INV : longWord;
  22554. C1FIFOCON10bits : TCAN1_C1FIFOCON10;
  22555. C1FIFOCON10 : longWord;
  22556. C1FIFOCON10CLR : longWord;
  22557. C1FIFOCON10SET : longWord;
  22558. C1FIFOCON10INV : longWord;
  22559. C1FIFOINT10bits : TCAN1_C1FIFOINT10;
  22560. C1FIFOINT10 : longWord;
  22561. C1FIFOINT10CLR : longWord;
  22562. C1FIFOINT10SET : longWord;
  22563. C1FIFOINT10INV : longWord;
  22564. C1FIFOUA10 : longWord;
  22565. C1FIFOUA10CLR : longWord;
  22566. C1FIFOUA10SET : longWord;
  22567. C1FIFOUA10INV : longWord;
  22568. C1FIFOCI10bits : TCAN1_C1FIFOCI10;
  22569. C1FIFOCI10 : longWord;
  22570. C1FIFOCI10CLR : longWord;
  22571. C1FIFOCI10SET : longWord;
  22572. C1FIFOCI10INV : longWord;
  22573. C1FIFOCON11bits : TCAN1_C1FIFOCON11;
  22574. C1FIFOCON11 : longWord;
  22575. C1FIFOCON11CLR : longWord;
  22576. C1FIFOCON11SET : longWord;
  22577. C1FIFOCON11INV : longWord;
  22578. C1FIFOINT11bits : TCAN1_C1FIFOINT11;
  22579. C1FIFOINT11 : longWord;
  22580. C1FIFOINT11CLR : longWord;
  22581. C1FIFOINT11SET : longWord;
  22582. C1FIFOINT11INV : longWord;
  22583. C1FIFOUA11 : longWord;
  22584. C1FIFOUA11CLR : longWord;
  22585. C1FIFOUA11SET : longWord;
  22586. C1FIFOUA11INV : longWord;
  22587. C1FIFOCI11bits : TCAN1_C1FIFOCI11;
  22588. C1FIFOCI11 : longWord;
  22589. C1FIFOCI11CLR : longWord;
  22590. C1FIFOCI11SET : longWord;
  22591. C1FIFOCI11INV : longWord;
  22592. C1FIFOCON12bits : TCAN1_C1FIFOCON12;
  22593. C1FIFOCON12 : longWord;
  22594. C1FIFOCON12CLR : longWord;
  22595. C1FIFOCON12SET : longWord;
  22596. C1FIFOCON12INV : longWord;
  22597. C1FIFOINT12bits : TCAN1_C1FIFOINT12;
  22598. C1FIFOINT12 : longWord;
  22599. C1FIFOINT12CLR : longWord;
  22600. C1FIFOINT12SET : longWord;
  22601. C1FIFOINT12INV : longWord;
  22602. C1FIFOUA12 : longWord;
  22603. C1FIFOUA12CLR : longWord;
  22604. C1FIFOUA12SET : longWord;
  22605. C1FIFOUA12INV : longWord;
  22606. C1FIFOCI12bits : TCAN1_C1FIFOCI12;
  22607. C1FIFOCI12 : longWord;
  22608. C1FIFOCI12CLR : longWord;
  22609. C1FIFOCI12SET : longWord;
  22610. C1FIFOCI12INV : longWord;
  22611. C1FIFOCON13bits : TCAN1_C1FIFOCON13;
  22612. C1FIFOCON13 : longWord;
  22613. C1FIFOCON13CLR : longWord;
  22614. C1FIFOCON13SET : longWord;
  22615. C1FIFOCON13INV : longWord;
  22616. C1FIFOINT13bits : TCAN1_C1FIFOINT13;
  22617. C1FIFOINT13 : longWord;
  22618. C1FIFOINT13CLR : longWord;
  22619. C1FIFOINT13SET : longWord;
  22620. C1FIFOINT13INV : longWord;
  22621. C1FIFOUA13 : longWord;
  22622. C1FIFOUA13CLR : longWord;
  22623. C1FIFOUA13SET : longWord;
  22624. C1FIFOUA13INV : longWord;
  22625. C1FIFOCI13bits : TCAN1_C1FIFOCI13;
  22626. C1FIFOCI13 : longWord;
  22627. C1FIFOCI13CLR : longWord;
  22628. C1FIFOCI13SET : longWord;
  22629. C1FIFOCI13INV : longWord;
  22630. C1FIFOCON14bits : TCAN1_C1FIFOCON14;
  22631. C1FIFOCON14 : longWord;
  22632. C1FIFOCON14CLR : longWord;
  22633. C1FIFOCON14SET : longWord;
  22634. C1FIFOCON14INV : longWord;
  22635. C1FIFOINT14bits : TCAN1_C1FIFOINT14;
  22636. C1FIFOINT14 : longWord;
  22637. C1FIFOINT14CLR : longWord;
  22638. C1FIFOINT14SET : longWord;
  22639. C1FIFOINT14INV : longWord;
  22640. C1FIFOUA14 : longWord;
  22641. C1FIFOUA14CLR : longWord;
  22642. C1FIFOUA14SET : longWord;
  22643. C1FIFOUA14INV : longWord;
  22644. C1FIFOCI14bits : TCAN1_C1FIFOCI14;
  22645. C1FIFOCI14 : longWord;
  22646. C1FIFOCI14CLR : longWord;
  22647. C1FIFOCI14SET : longWord;
  22648. C1FIFOCI14INV : longWord;
  22649. C1FIFOCON15bits : TCAN1_C1FIFOCON15;
  22650. C1FIFOCON15 : longWord;
  22651. C1FIFOCON15CLR : longWord;
  22652. C1FIFOCON15SET : longWord;
  22653. C1FIFOCON15INV : longWord;
  22654. C1FIFOINT15bits : TCAN1_C1FIFOINT15;
  22655. C1FIFOINT15 : longWord;
  22656. C1FIFOINT15CLR : longWord;
  22657. C1FIFOINT15SET : longWord;
  22658. C1FIFOINT15INV : longWord;
  22659. C1FIFOUA15 : longWord;
  22660. C1FIFOUA15CLR : longWord;
  22661. C1FIFOUA15SET : longWord;
  22662. C1FIFOUA15INV : longWord;
  22663. C1FIFOCI15bits : TCAN1_C1FIFOCI15;
  22664. C1FIFOCI15 : longWord;
  22665. C1FIFOCI15CLR : longWord;
  22666. C1FIFOCI15SET : longWord;
  22667. C1FIFOCI15INV : longWord;
  22668. C1FIFOCON16bits : TCAN1_C1FIFOCON16;
  22669. C1FIFOCON16 : longWord;
  22670. C1FIFOCON16CLR : longWord;
  22671. C1FIFOCON16SET : longWord;
  22672. C1FIFOCON16INV : longWord;
  22673. C1FIFOINT16bits : TCAN1_C1FIFOINT16;
  22674. C1FIFOINT16 : longWord;
  22675. C1FIFOINT16CLR : longWord;
  22676. C1FIFOINT16SET : longWord;
  22677. C1FIFOINT16INV : longWord;
  22678. C1FIFOUA16 : longWord;
  22679. C1FIFOUA16CLR : longWord;
  22680. C1FIFOUA16SET : longWord;
  22681. C1FIFOUA16INV : longWord;
  22682. C1FIFOCI16bits : TCAN1_C1FIFOCI16;
  22683. C1FIFOCI16 : longWord;
  22684. C1FIFOCI16CLR : longWord;
  22685. C1FIFOCI16SET : longWord;
  22686. C1FIFOCI16INV : longWord;
  22687. C1FIFOCON17bits : TCAN1_C1FIFOCON17;
  22688. C1FIFOCON17 : longWord;
  22689. C1FIFOCON17CLR : longWord;
  22690. C1FIFOCON17SET : longWord;
  22691. C1FIFOCON17INV : longWord;
  22692. C1FIFOINT17bits : TCAN1_C1FIFOINT17;
  22693. C1FIFOINT17 : longWord;
  22694. C1FIFOINT17CLR : longWord;
  22695. C1FIFOINT17SET : longWord;
  22696. C1FIFOINT17INV : longWord;
  22697. C1FIFOUA17 : longWord;
  22698. C1FIFOUA17CLR : longWord;
  22699. C1FIFOUA17SET : longWord;
  22700. C1FIFOUA17INV : longWord;
  22701. C1FIFOCI17bits : TCAN1_C1FIFOCI17;
  22702. C1FIFOCI17 : longWord;
  22703. C1FIFOCI17CLR : longWord;
  22704. C1FIFOCI17SET : longWord;
  22705. C1FIFOCI17INV : longWord;
  22706. C1FIFOCON18bits : TCAN1_C1FIFOCON18;
  22707. C1FIFOCON18 : longWord;
  22708. C1FIFOCON18CLR : longWord;
  22709. C1FIFOCON18SET : longWord;
  22710. C1FIFOCON18INV : longWord;
  22711. C1FIFOINT18bits : TCAN1_C1FIFOINT18;
  22712. C1FIFOINT18 : longWord;
  22713. C1FIFOINT18CLR : longWord;
  22714. C1FIFOINT18SET : longWord;
  22715. C1FIFOINT18INV : longWord;
  22716. C1FIFOUA18 : longWord;
  22717. C1FIFOUA18CLR : longWord;
  22718. C1FIFOUA18SET : longWord;
  22719. C1FIFOUA18INV : longWord;
  22720. C1FIFOCI18bits : TCAN1_C1FIFOCI18;
  22721. C1FIFOCI18 : longWord;
  22722. C1FIFOCI18CLR : longWord;
  22723. C1FIFOCI18SET : longWord;
  22724. C1FIFOCI18INV : longWord;
  22725. C1FIFOCON19bits : TCAN1_C1FIFOCON19;
  22726. C1FIFOCON19 : longWord;
  22727. C1FIFOCON19CLR : longWord;
  22728. C1FIFOCON19SET : longWord;
  22729. C1FIFOCON19INV : longWord;
  22730. C1FIFOINT19bits : TCAN1_C1FIFOINT19;
  22731. C1FIFOINT19 : longWord;
  22732. C1FIFOINT19CLR : longWord;
  22733. C1FIFOINT19SET : longWord;
  22734. C1FIFOINT19INV : longWord;
  22735. C1FIFOUA19 : longWord;
  22736. C1FIFOUA19CLR : longWord;
  22737. C1FIFOUA19SET : longWord;
  22738. C1FIFOUA19INV : longWord;
  22739. C1FIFOCI19bits : TCAN1_C1FIFOCI19;
  22740. C1FIFOCI19 : longWord;
  22741. C1FIFOCI19CLR : longWord;
  22742. C1FIFOCI19SET : longWord;
  22743. C1FIFOCI19INV : longWord;
  22744. C1FIFOCON20bits : TCAN1_C1FIFOCON20;
  22745. C1FIFOCON20 : longWord;
  22746. C1FIFOCON20CLR : longWord;
  22747. C1FIFOCON20SET : longWord;
  22748. C1FIFOCON20INV : longWord;
  22749. C1FIFOINT20bits : TCAN1_C1FIFOINT20;
  22750. C1FIFOINT20 : longWord;
  22751. C1FIFOINT20CLR : longWord;
  22752. C1FIFOINT20SET : longWord;
  22753. C1FIFOINT20INV : longWord;
  22754. C1FIFOUA20 : longWord;
  22755. C1FIFOUA20CLR : longWord;
  22756. C1FIFOUA20SET : longWord;
  22757. C1FIFOUA20INV : longWord;
  22758. C1FIFOCI20bits : TCAN1_C1FIFOCI20;
  22759. C1FIFOCI20 : longWord;
  22760. C1FIFOCI20CLR : longWord;
  22761. C1FIFOCI20SET : longWord;
  22762. C1FIFOCI20INV : longWord;
  22763. C1FIFOCON21bits : TCAN1_C1FIFOCON21;
  22764. C1FIFOCON21 : longWord;
  22765. C1FIFOCON21CLR : longWord;
  22766. C1FIFOCON21SET : longWord;
  22767. C1FIFOCON21INV : longWord;
  22768. C1FIFOINT21bits : TCAN1_C1FIFOINT21;
  22769. C1FIFOINT21 : longWord;
  22770. C1FIFOINT21CLR : longWord;
  22771. C1FIFOINT21SET : longWord;
  22772. C1FIFOINT21INV : longWord;
  22773. C1FIFOUA21 : longWord;
  22774. C1FIFOUA21CLR : longWord;
  22775. C1FIFOUA21SET : longWord;
  22776. C1FIFOUA21INV : longWord;
  22777. C1FIFOCI21bits : TCAN1_C1FIFOCI21;
  22778. C1FIFOCI21 : longWord;
  22779. C1FIFOCI21CLR : longWord;
  22780. C1FIFOCI21SET : longWord;
  22781. C1FIFOCI21INV : longWord;
  22782. C1FIFOCON22bits : TCAN1_C1FIFOCON22;
  22783. C1FIFOCON22 : longWord;
  22784. C1FIFOCON22CLR : longWord;
  22785. C1FIFOCON22SET : longWord;
  22786. C1FIFOCON22INV : longWord;
  22787. C1FIFOINT22bits : TCAN1_C1FIFOINT22;
  22788. C1FIFOINT22 : longWord;
  22789. C1FIFOINT22CLR : longWord;
  22790. C1FIFOINT22SET : longWord;
  22791. C1FIFOINT22INV : longWord;
  22792. C1FIFOUA22 : longWord;
  22793. C1FIFOUA22CLR : longWord;
  22794. C1FIFOUA22SET : longWord;
  22795. C1FIFOUA22INV : longWord;
  22796. C1FIFOCI22bits : TCAN1_C1FIFOCI22;
  22797. C1FIFOCI22 : longWord;
  22798. C1FIFOCI22CLR : longWord;
  22799. C1FIFOCI22SET : longWord;
  22800. C1FIFOCI22INV : longWord;
  22801. C1FIFOCON23bits : TCAN1_C1FIFOCON23;
  22802. C1FIFOCON23 : longWord;
  22803. C1FIFOCON23CLR : longWord;
  22804. C1FIFOCON23SET : longWord;
  22805. C1FIFOCON23INV : longWord;
  22806. C1FIFOINT23bits : TCAN1_C1FIFOINT23;
  22807. C1FIFOINT23 : longWord;
  22808. C1FIFOINT23CLR : longWord;
  22809. C1FIFOINT23SET : longWord;
  22810. C1FIFOINT23INV : longWord;
  22811. C1FIFOUA23 : longWord;
  22812. C1FIFOUA23CLR : longWord;
  22813. C1FIFOUA23SET : longWord;
  22814. C1FIFOUA23INV : longWord;
  22815. C1FIFOCI23bits : TCAN1_C1FIFOCI23;
  22816. C1FIFOCI23 : longWord;
  22817. C1FIFOCI23CLR : longWord;
  22818. C1FIFOCI23SET : longWord;
  22819. C1FIFOCI23INV : longWord;
  22820. C1FIFOCON24bits : TCAN1_C1FIFOCON24;
  22821. C1FIFOCON24 : longWord;
  22822. C1FIFOCON24CLR : longWord;
  22823. C1FIFOCON24SET : longWord;
  22824. C1FIFOCON24INV : longWord;
  22825. C1FIFOINT24bits : TCAN1_C1FIFOINT24;
  22826. C1FIFOINT24 : longWord;
  22827. C1FIFOINT24CLR : longWord;
  22828. C1FIFOINT24SET : longWord;
  22829. C1FIFOINT24INV : longWord;
  22830. C1FIFOUA24 : longWord;
  22831. C1FIFOUA24CLR : longWord;
  22832. C1FIFOUA24SET : longWord;
  22833. C1FIFOUA24INV : longWord;
  22834. C1FIFOCI24bits : TCAN1_C1FIFOCI24;
  22835. C1FIFOCI24 : longWord;
  22836. C1FIFOCI24CLR : longWord;
  22837. C1FIFOCI24SET : longWord;
  22838. C1FIFOCI24INV : longWord;
  22839. C1FIFOCON25bits : TCAN1_C1FIFOCON25;
  22840. C1FIFOCON25 : longWord;
  22841. C1FIFOCON25CLR : longWord;
  22842. C1FIFOCON25SET : longWord;
  22843. C1FIFOCON25INV : longWord;
  22844. C1FIFOINT25bits : TCAN1_C1FIFOINT25;
  22845. C1FIFOINT25 : longWord;
  22846. C1FIFOINT25CLR : longWord;
  22847. C1FIFOINT25SET : longWord;
  22848. C1FIFOINT25INV : longWord;
  22849. C1FIFOUA25 : longWord;
  22850. C1FIFOUA25CLR : longWord;
  22851. C1FIFOUA25SET : longWord;
  22852. C1FIFOUA25INV : longWord;
  22853. C1FIFOCI25bits : TCAN1_C1FIFOCI25;
  22854. C1FIFOCI25 : longWord;
  22855. C1FIFOCI25CLR : longWord;
  22856. C1FIFOCI25SET : longWord;
  22857. C1FIFOCI25INV : longWord;
  22858. C1FIFOCON26bits : TCAN1_C1FIFOCON26;
  22859. C1FIFOCON26 : longWord;
  22860. C1FIFOCON26CLR : longWord;
  22861. C1FIFOCON26SET : longWord;
  22862. C1FIFOCON26INV : longWord;
  22863. C1FIFOINT26bits : TCAN1_C1FIFOINT26;
  22864. C1FIFOINT26 : longWord;
  22865. C1FIFOINT26CLR : longWord;
  22866. C1FIFOINT26SET : longWord;
  22867. C1FIFOINT26INV : longWord;
  22868. C1FIFOUA26 : longWord;
  22869. C1FIFOUA26CLR : longWord;
  22870. C1FIFOUA26SET : longWord;
  22871. C1FIFOUA26INV : longWord;
  22872. C1FIFOCI26bits : TCAN1_C1FIFOCI26;
  22873. C1FIFOCI26 : longWord;
  22874. C1FIFOCI26CLR : longWord;
  22875. C1FIFOCI26SET : longWord;
  22876. C1FIFOCI26INV : longWord;
  22877. C1FIFOCON27bits : TCAN1_C1FIFOCON27;
  22878. C1FIFOCON27 : longWord;
  22879. C1FIFOCON27CLR : longWord;
  22880. C1FIFOCON27SET : longWord;
  22881. C1FIFOCON27INV : longWord;
  22882. C1FIFOINT27bits : TCAN1_C1FIFOINT27;
  22883. C1FIFOINT27 : longWord;
  22884. C1FIFOINT27CLR : longWord;
  22885. C1FIFOINT27SET : longWord;
  22886. C1FIFOINT27INV : longWord;
  22887. C1FIFOUA27 : longWord;
  22888. C1FIFOUA27CLR : longWord;
  22889. C1FIFOUA27SET : longWord;
  22890. C1FIFOUA27INV : longWord;
  22891. C1FIFOCI27bits : TCAN1_C1FIFOCI27;
  22892. C1FIFOCI27 : longWord;
  22893. C1FIFOCI27CLR : longWord;
  22894. C1FIFOCI27SET : longWord;
  22895. C1FIFOCI27INV : longWord;
  22896. C1FIFOCON28bits : TCAN1_C1FIFOCON28;
  22897. C1FIFOCON28 : longWord;
  22898. C1FIFOCON28CLR : longWord;
  22899. C1FIFOCON28SET : longWord;
  22900. C1FIFOCON28INV : longWord;
  22901. C1FIFOINT28bits : TCAN1_C1FIFOINT28;
  22902. C1FIFOINT28 : longWord;
  22903. C1FIFOINT28CLR : longWord;
  22904. C1FIFOINT28SET : longWord;
  22905. C1FIFOINT28INV : longWord;
  22906. C1FIFOUA28 : longWord;
  22907. C1FIFOUA28CLR : longWord;
  22908. C1FIFOUA28SET : longWord;
  22909. C1FIFOUA28INV : longWord;
  22910. C1FIFOCI28bits : TCAN1_C1FIFOCI28;
  22911. C1FIFOCI28 : longWord;
  22912. C1FIFOCI28CLR : longWord;
  22913. C1FIFOCI28SET : longWord;
  22914. C1FIFOCI28INV : longWord;
  22915. C1FIFOCON29bits : TCAN1_C1FIFOCON29;
  22916. C1FIFOCON29 : longWord;
  22917. C1FIFOCON29CLR : longWord;
  22918. C1FIFOCON29SET : longWord;
  22919. C1FIFOCON29INV : longWord;
  22920. C1FIFOINT29bits : TCAN1_C1FIFOINT29;
  22921. C1FIFOINT29 : longWord;
  22922. C1FIFOINT29CLR : longWord;
  22923. C1FIFOINT29SET : longWord;
  22924. C1FIFOINT29INV : longWord;
  22925. C1FIFOUA29 : longWord;
  22926. C1FIFOUA29CLR : longWord;
  22927. C1FIFOUA29SET : longWord;
  22928. C1FIFOUA29INV : longWord;
  22929. C1FIFOCI29bits : TCAN1_C1FIFOCI29;
  22930. C1FIFOCI29 : longWord;
  22931. C1FIFOCI29CLR : longWord;
  22932. C1FIFOCI29SET : longWord;
  22933. C1FIFOCI29INV : longWord;
  22934. C1FIFOCON30bits : TCAN1_C1FIFOCON30;
  22935. C1FIFOCON30 : longWord;
  22936. C1FIFOCON30CLR : longWord;
  22937. C1FIFOCON30SET : longWord;
  22938. C1FIFOCON30INV : longWord;
  22939. C1FIFOINT30bits : TCAN1_C1FIFOINT30;
  22940. C1FIFOINT30 : longWord;
  22941. C1FIFOINT30CLR : longWord;
  22942. C1FIFOINT30SET : longWord;
  22943. C1FIFOINT30INV : longWord;
  22944. C1FIFOUA30 : longWord;
  22945. C1FIFOUA30CLR : longWord;
  22946. C1FIFOUA30SET : longWord;
  22947. C1FIFOUA30INV : longWord;
  22948. C1FIFOCI30bits : TCAN1_C1FIFOCI30;
  22949. C1FIFOCI30 : longWord;
  22950. C1FIFOCI30CLR : longWord;
  22951. C1FIFOCI30SET : longWord;
  22952. C1FIFOCI30INV : longWord;
  22953. C1FIFOCON31bits : TCAN1_C1FIFOCON31;
  22954. C1FIFOCON31 : longWord;
  22955. C1FIFOCON31CLR : longWord;
  22956. C1FIFOCON31SET : longWord;
  22957. C1FIFOCON31INV : longWord;
  22958. C1FIFOINT31bits : TCAN1_C1FIFOINT31;
  22959. C1FIFOINT31 : longWord;
  22960. C1FIFOINT31CLR : longWord;
  22961. C1FIFOINT31SET : longWord;
  22962. C1FIFOINT31INV : longWord;
  22963. C1FIFOUA31 : longWord;
  22964. C1FIFOUA31CLR : longWord;
  22965. C1FIFOUA31SET : longWord;
  22966. C1FIFOUA31INV : longWord;
  22967. C1FIFOCI31bits : TCAN1_C1FIFOCI31;
  22968. C1FIFOCI31 : longWord;
  22969. C1FIFOCI31CLR : longWord;
  22970. C1FIFOCI31SET : longWord;
  22971. C1FIFOCI31INV : longWord;
  22972. end;
  22973. TDEVCFG_DEVCFG3 = record
  22974. private
  22975. function getFCANIO : TBits_1; inline;
  22976. function getFETHIO : TBits_1; inline;
  22977. function getFMIIEN : TBits_1; inline;
  22978. function getFSRSSEL : TBits_3; inline;
  22979. function getFUSBIDIO : TBits_1; inline;
  22980. function getFVBUSONIO : TBits_1; inline;
  22981. function getUSERID : TBits_16; inline;
  22982. function getw : TBits_32; inline;
  22983. procedure setFCANIO(thebits : TBits_1); inline;
  22984. procedure setFETHIO(thebits : TBits_1); inline;
  22985. procedure setFMIIEN(thebits : TBits_1); inline;
  22986. procedure setFSRSSEL(thebits : TBits_3); inline;
  22987. procedure setFUSBIDIO(thebits : TBits_1); inline;
  22988. procedure setFVBUSONIO(thebits : TBits_1); inline;
  22989. procedure setUSERID(thebits : TBits_16); inline;
  22990. procedure setw(thebits : TBits_32); inline;
  22991. public
  22992. procedure clearFCANIO; inline;
  22993. procedure clearFETHIO; inline;
  22994. procedure clearFMIIEN; inline;
  22995. procedure clearFUSBIDIO; inline;
  22996. procedure clearFVBUSONIO; inline;
  22997. procedure setFCANIO; inline;
  22998. procedure setFETHIO; inline;
  22999. procedure setFMIIEN; inline;
  23000. procedure setFUSBIDIO; inline;
  23001. procedure setFVBUSONIO; inline;
  23002. property FCANIO : TBits_1 read getFCANIO write setFCANIO;
  23003. property FETHIO : TBits_1 read getFETHIO write setFETHIO;
  23004. property FMIIEN : TBits_1 read getFMIIEN write setFMIIEN;
  23005. property FSRSSEL : TBits_3 read getFSRSSEL write setFSRSSEL;
  23006. property FUSBIDIO : TBits_1 read getFUSBIDIO write setFUSBIDIO;
  23007. property FVBUSONIO : TBits_1 read getFVBUSONIO write setFVBUSONIO;
  23008. property USERID : TBits_16 read getUSERID write setUSERID;
  23009. property w : TBits_32 read getw write setw;
  23010. end;
  23011. TDEVCFG_DEVCFG2 = record
  23012. private
  23013. function getFPLLIDIV : TBits_3; inline;
  23014. function getFPLLMUL : TBits_3; inline;
  23015. function getFPLLODIV : TBits_3; inline;
  23016. function getUPLLEN : TBits_1; inline;
  23017. function getUPLLIDIV : TBits_3; inline;
  23018. function getw : TBits_32; inline;
  23019. procedure setFPLLIDIV(thebits : TBits_3); inline;
  23020. procedure setFPLLMUL(thebits : TBits_3); inline;
  23021. procedure setFPLLODIV(thebits : TBits_3); inline;
  23022. procedure setUPLLEN(thebits : TBits_1); inline;
  23023. procedure setUPLLIDIV(thebits : TBits_3); inline;
  23024. procedure setw(thebits : TBits_32); inline;
  23025. public
  23026. procedure clearUPLLEN; inline;
  23027. procedure setUPLLEN; inline;
  23028. property FPLLIDIV : TBits_3 read getFPLLIDIV write setFPLLIDIV;
  23029. property FPLLMUL : TBits_3 read getFPLLMUL write setFPLLMUL;
  23030. property FPLLODIV : TBits_3 read getFPLLODIV write setFPLLODIV;
  23031. property UPLLEN : TBits_1 read getUPLLEN write setUPLLEN;
  23032. property UPLLIDIV : TBits_3 read getUPLLIDIV write setUPLLIDIV;
  23033. property w : TBits_32 read getw write setw;
  23034. end;
  23035. TDEVCFG_DEVCFG1 = record
  23036. private
  23037. function getFCKSM : TBits_2; inline;
  23038. function getFNOSC : TBits_3; inline;
  23039. function getFPBDIV : TBits_2; inline;
  23040. function getFSOSCEN : TBits_1; inline;
  23041. function getFWDTEN : TBits_1; inline;
  23042. function getIESO : TBits_1; inline;
  23043. function getOSCIOFNC : TBits_1; inline;
  23044. function getPOSCMOD : TBits_2; inline;
  23045. function getWDTPS : TBits_5; inline;
  23046. function getw : TBits_32; inline;
  23047. procedure setFCKSM(thebits : TBits_2); inline;
  23048. procedure setFNOSC(thebits : TBits_3); inline;
  23049. procedure setFPBDIV(thebits : TBits_2); inline;
  23050. procedure setFSOSCEN(thebits : TBits_1); inline;
  23051. procedure setFWDTEN(thebits : TBits_1); inline;
  23052. procedure setIESO(thebits : TBits_1); inline;
  23053. procedure setOSCIOFNC(thebits : TBits_1); inline;
  23054. procedure setPOSCMOD(thebits : TBits_2); inline;
  23055. procedure setWDTPS(thebits : TBits_5); inline;
  23056. procedure setw(thebits : TBits_32); inline;
  23057. public
  23058. procedure clearFSOSCEN; inline;
  23059. procedure clearFWDTEN; inline;
  23060. procedure clearIESO; inline;
  23061. procedure clearOSCIOFNC; inline;
  23062. procedure setFSOSCEN; inline;
  23063. procedure setFWDTEN; inline;
  23064. procedure setIESO; inline;
  23065. procedure setOSCIOFNC; inline;
  23066. property FCKSM : TBits_2 read getFCKSM write setFCKSM;
  23067. property FNOSC : TBits_3 read getFNOSC write setFNOSC;
  23068. property FPBDIV : TBits_2 read getFPBDIV write setFPBDIV;
  23069. property FSOSCEN : TBits_1 read getFSOSCEN write setFSOSCEN;
  23070. property FWDTEN : TBits_1 read getFWDTEN write setFWDTEN;
  23071. property IESO : TBits_1 read getIESO write setIESO;
  23072. property OSCIOFNC : TBits_1 read getOSCIOFNC write setOSCIOFNC;
  23073. property POSCMOD : TBits_2 read getPOSCMOD write setPOSCMOD;
  23074. property WDTPS : TBits_5 read getWDTPS write setWDTPS;
  23075. property w : TBits_32 read getw write setw;
  23076. end;
  23077. TDEVCFG_DEVCFG0 = record
  23078. private
  23079. function getBWP : TBits_1; inline;
  23080. function getCP : TBits_1; inline;
  23081. function getDEBUG : TBits_2; inline;
  23082. function getFDEBUG : TBits_2; inline;
  23083. function getICESEL : TBits_1; inline;
  23084. function getPWP : TBits_8; inline;
  23085. function getw : TBits_32; inline;
  23086. procedure setBWP(thebits : TBits_1); inline;
  23087. procedure setCP(thebits : TBits_1); inline;
  23088. procedure setDEBUG(thebits : TBits_2); inline;
  23089. procedure setFDEBUG(thebits : TBits_2); inline;
  23090. procedure setICESEL(thebits : TBits_1); inline;
  23091. procedure setPWP(thebits : TBits_8); inline;
  23092. procedure setw(thebits : TBits_32); inline;
  23093. public
  23094. procedure clearBWP; inline;
  23095. procedure clearCP; inline;
  23096. procedure clearICESEL; inline;
  23097. procedure setBWP; inline;
  23098. procedure setCP; inline;
  23099. procedure setICESEL; inline;
  23100. property BWP : TBits_1 read getBWP write setBWP;
  23101. property CP : TBits_1 read getCP write setCP;
  23102. property DEBUG : TBits_2 read getDEBUG write setDEBUG;
  23103. property FDEBUG : TBits_2 read getFDEBUG write setFDEBUG;
  23104. property ICESEL : TBits_1 read getICESEL write setICESEL;
  23105. property PWP : TBits_8 read getPWP write setPWP;
  23106. property w : TBits_32 read getw write setw;
  23107. end;
  23108. const
  23109. _CORE_TIMER_IRQ = 0;
  23110. _CORE_SOFTWARE_0_IRQ = 1;
  23111. _CORE_SOFTWARE_1_IRQ = 2;
  23112. _EXTERNAL_0_IRQ = 3;
  23113. _TIMER_1_IRQ = 4;
  23114. _INPUT_CAPTURE_1_IRQ = 5;
  23115. _OUTPUT_COMPARE_1_IRQ = 6;
  23116. _EXTERNAL_1_IRQ = 7;
  23117. _TIMER_2_IRQ = 8;
  23118. _INPUT_CAPTURE_2_IRQ = 9;
  23119. _OUTPUT_COMPARE_2_IRQ = 10;
  23120. _EXTERNAL_2_IRQ = 11;
  23121. _TIMER_3_IRQ = 12;
  23122. _INPUT_CAPTURE_3_IRQ = 13;
  23123. _OUTPUT_COMPARE_3_IRQ = 14;
  23124. _EXTERNAL_3_IRQ = 15;
  23125. _TIMER_4_IRQ = 16;
  23126. _INPUT_CAPTURE_4_IRQ = 17;
  23127. _OUTPUT_COMPARE_4_IRQ = 18;
  23128. _EXTERNAL_4_IRQ = 19;
  23129. _TIMER_5_IRQ = 20;
  23130. _INPUT_CAPTURE_5_IRQ = 21;
  23131. _OUTPUT_COMPARE_5_IRQ = 22;
  23132. _SPI1_ERR_IRQ = 23;
  23133. _SPI1_RX_IRQ = 24;
  23134. _SPI1_TX_IRQ = 25;
  23135. _I2C1A_ERR_IRQ = 26;
  23136. _I2C3_BUS_IRQ = 26;
  23137. _SPI1A_ERR_IRQ = 26;
  23138. _SPI3_ERR_IRQ = 26;
  23139. _UART1A_ERR_IRQ = 26;
  23140. _UART1_ERR_IRQ = 26;
  23141. _I2C1A_RX_IRQ = 27;
  23142. _I2C3_SLAVE_IRQ = 27;
  23143. _SPI1A_RX_IRQ = 27;
  23144. _SPI3_RX_IRQ = 27;
  23145. _UART1A_RX_IRQ = 27;
  23146. _UART1_RX_IRQ = 27;
  23147. _I2C1A_TX_IRQ = 28;
  23148. _I2C3_MASTER_IRQ = 28;
  23149. _SPI1A_TX_IRQ = 28;
  23150. _SPI3_TX_IRQ = 28;
  23151. _UART1A_TX_IRQ = 28;
  23152. _UART1_TX_IRQ = 28;
  23153. _I2C1_BUS_IRQ = 29;
  23154. _I2C1_SLAVE_IRQ = 30;
  23155. _I2C1_MASTER_IRQ = 31;
  23156. _CHANGE_NOTICE_IRQ = 32;
  23157. _ADC_IRQ = 33;
  23158. _PMP_IRQ = 34;
  23159. _COMPARATOR_1_IRQ = 35;
  23160. _COMPARATOR_2_IRQ = 36;
  23161. _I2C2A_ERR_IRQ = 37;
  23162. _I2C4_BUS_IRQ = 37;
  23163. _SPI2_ERR_IRQ = 37;
  23164. _SPI2A_ERR_IRQ = 37;
  23165. _UART2A_ERR_IRQ = 37;
  23166. _UART3_ERR_IRQ = 37;
  23167. _I2C2A_RX_IRQ = 38;
  23168. _I2C4_SLAVE_IRQ = 38;
  23169. _SPI2_RX_IRQ = 38;
  23170. _SPI2A_RX_IRQ = 38;
  23171. _UART2A_RX_IRQ = 38;
  23172. _UART3_RX_IRQ = 38;
  23173. _I2C2A_TX_IRQ = 39;
  23174. _I2C4_MASTER_IRQ = 39;
  23175. _SPI2A_TX_IRQ = 39;
  23176. _SPI2_TX_IRQ = 39;
  23177. _UART2A_TX_IRQ = 39;
  23178. _UART3_TX_IRQ = 39;
  23179. _I2C3A_ERR_IRQ = 40;
  23180. _I2C5_BUS_IRQ = 40;
  23181. _SPI3A_ERR_IRQ = 40;
  23182. _SPI4_ERR_IRQ = 40;
  23183. _UART2_ERR_IRQ = 40;
  23184. _UART3A_ERR_IRQ = 40;
  23185. _I2C3A_RX_IRQ = 41;
  23186. _I2C5_SLAVE_IRQ = 41;
  23187. _SPI3A_RX_IRQ = 41;
  23188. _SPI4_RX_IRQ = 41;
  23189. _UART2_RX_IRQ = 41;
  23190. _UART3A_RX_IRQ = 41;
  23191. _I2C3A_TX_IRQ = 42;
  23192. _I2C5_MASTER_IRQ = 42;
  23193. _SPI3A_TX_IRQ = 42;
  23194. _SPI4_TX_IRQ = 42;
  23195. _UART2_TX_IRQ = 42;
  23196. _UART3A_TX_IRQ = 42;
  23197. _I2C2_BUS_IRQ = 43;
  23198. _I2C2_SLAVE_IRQ = 44;
  23199. _I2C2_MASTER_IRQ = 45;
  23200. _FAIL_SAFE_MONITOR_IRQ = 46;
  23201. _RTCC_IRQ = 47;
  23202. _DMA0_IRQ = 48;
  23203. _DMA1_IRQ = 49;
  23204. _DMA2_IRQ = 50;
  23205. _DMA3_IRQ = 51;
  23206. _FLASH_CONTROL_IRQ = 56;
  23207. _USB_IRQ = 57;
  23208. _CAN1_IRQ = 58;
  23209. _ETHERNET_IRQ = 60;
  23210. _INPUT_CAPTURE_ERROR_1_IRQ = 61;
  23211. _INPUT_CAPTURE_ERROR_2_IRQ = 62;
  23212. _INPUT_CAPTURE_ERROR_3_IRQ = 63;
  23213. _INPUT_CAPTURE_ERROR_4_IRQ = 64;
  23214. _INPUT_CAPTURE_ERROR_5_IRQ = 65;
  23215. _PMP_ERROR_IRQ = 66;
  23216. _UART1B_ERR_IRQ = 67;
  23217. _UART4_ERR_IRQ = 67;
  23218. _UART1B_RX_IRQ = 68;
  23219. _UART4_RX_IRQ = 68;
  23220. _UART1B_TX_IRQ = 69;
  23221. _UART4_TX_IRQ = 69;
  23222. _UART2B_ERR_IRQ = 70;
  23223. _UART6_ERR_IRQ = 70;
  23224. _UART2B_RX_IRQ = 71;
  23225. _UART6_RX_IRQ = 71;
  23226. _UART2B_TX_IRQ = 72;
  23227. _UART6_TX_IRQ = 72;
  23228. _UART3B_ERR_IRQ = 73;
  23229. _UART5_ERR_IRQ = 73;
  23230. _UART3B_RX_IRQ = 74;
  23231. _UART5_RX_IRQ = 74;
  23232. _UART3B_TX_IRQ = 75;
  23233. _UART5_TX_IRQ = 75;
  23234. const
  23235. ADC10_BASE_ADDRESS = $BF809000;
  23236. var
  23237. ADC10 : TADC10Registers absolute ADC10_BASE_ADDRESS;
  23238. const
  23239. BMX_BASE_ADDRESS = $BF882000;
  23240. var
  23241. BMX : TBMXRegisters absolute BMX_BASE_ADDRESS;
  23242. const
  23243. CAN1_BASE_ADDRESS = $BF88B000;
  23244. var
  23245. CAN1 : TCAN1Registers absolute CAN1_BASE_ADDRESS;
  23246. const
  23247. CFG_BASE_ADDRESS = $BF80F200;
  23248. var
  23249. CFG : TCFGRegisters absolute CFG_BASE_ADDRESS;
  23250. const
  23251. CMP_BASE_ADDRESS = $BF80A000;
  23252. var
  23253. CMP : TCMPRegisters absolute CMP_BASE_ADDRESS;
  23254. const
  23255. CVR_BASE_ADDRESS = $BF809800;
  23256. var
  23257. CVR : TCVRRegisters absolute CVR_BASE_ADDRESS;
  23258. const
  23259. DMAC_BASE_ADDRESS = $BF883000;
  23260. var
  23261. DMAC : TDMACRegisters absolute DMAC_BASE_ADDRESS;
  23262. const
  23263. DMAC0_BASE_ADDRESS = $BF883060;
  23264. var
  23265. DMAC0 : TDMAC0Registers absolute DMAC0_BASE_ADDRESS;
  23266. const
  23267. DMAC1_BASE_ADDRESS = $BF883120;
  23268. var
  23269. DMAC1 : TDMAC1Registers absolute DMAC1_BASE_ADDRESS;
  23270. const
  23271. DMAC2_BASE_ADDRESS = $BF8831E0;
  23272. var
  23273. DMAC2 : TDMAC2Registers absolute DMAC2_BASE_ADDRESS;
  23274. const
  23275. DMAC3_BASE_ADDRESS = $BF8832A0;
  23276. var
  23277. DMAC3 : TDMAC3Registers absolute DMAC3_BASE_ADDRESS;
  23278. const
  23279. ETH_BASE_ADDRESS = $BF889000;
  23280. var
  23281. ETH : TETHRegisters absolute ETH_BASE_ADDRESS;
  23282. const
  23283. I2C1_BASE_ADDRESS = $BF805300;
  23284. var
  23285. I2C1 : TI2C1Registers absolute I2C1_BASE_ADDRESS;
  23286. const
  23287. I2C2_BASE_ADDRESS = $BF805400;
  23288. var
  23289. I2C2 : TI2C2Registers absolute I2C2_BASE_ADDRESS;
  23290. const
  23291. I2C2A_BASE_ADDRESS = $BF805100;
  23292. var
  23293. I2C2A : TI2C2ARegisters absolute I2C2A_BASE_ADDRESS;
  23294. const
  23295. I2C3_BASE_ADDRESS = $BF805000;
  23296. var
  23297. I2C3 : TI2C3Registers absolute I2C3_BASE_ADDRESS;
  23298. const
  23299. I2C5_BASE_ADDRESS = $BF805200;
  23300. var
  23301. I2C5 : TI2C5Registers absolute I2C5_BASE_ADDRESS;
  23302. const
  23303. ICAP1_BASE_ADDRESS = $BF802000;
  23304. var
  23305. ICAP1 : TICAP1Registers absolute ICAP1_BASE_ADDRESS;
  23306. const
  23307. ICAP2_BASE_ADDRESS = $BF802200;
  23308. var
  23309. ICAP2 : TICAP2Registers absolute ICAP2_BASE_ADDRESS;
  23310. const
  23311. ICAP3_BASE_ADDRESS = $BF802400;
  23312. var
  23313. ICAP3 : TICAP3Registers absolute ICAP3_BASE_ADDRESS;
  23314. const
  23315. ICAP4_BASE_ADDRESS = $BF802600;
  23316. var
  23317. ICAP4 : TICAP4Registers absolute ICAP4_BASE_ADDRESS;
  23318. const
  23319. ICAP5_BASE_ADDRESS = $BF802800;
  23320. var
  23321. ICAP5 : TICAP5Registers absolute ICAP5_BASE_ADDRESS;
  23322. const
  23323. INT_BASE_ADDRESS = $BF881000;
  23324. var
  23325. INT : TINTRegisters absolute INT_BASE_ADDRESS;
  23326. const
  23327. NVM_BASE_ADDRESS = $BF80F400;
  23328. var
  23329. NVM : TNVMRegisters absolute NVM_BASE_ADDRESS;
  23330. const
  23331. OCMP1_BASE_ADDRESS = $BF803000;
  23332. var
  23333. OCMP1 : TOCMP1Registers absolute OCMP1_BASE_ADDRESS;
  23334. const
  23335. OCMP2_BASE_ADDRESS = $BF803200;
  23336. var
  23337. OCMP2 : TOCMP2Registers absolute OCMP2_BASE_ADDRESS;
  23338. const
  23339. OCMP3_BASE_ADDRESS = $BF803400;
  23340. var
  23341. OCMP3 : TOCMP3Registers absolute OCMP3_BASE_ADDRESS;
  23342. const
  23343. OCMP4_BASE_ADDRESS = $BF803600;
  23344. var
  23345. OCMP4 : TOCMP4Registers absolute OCMP4_BASE_ADDRESS;
  23346. const
  23347. OCMP5_BASE_ADDRESS = $BF803800;
  23348. var
  23349. OCMP5 : TOCMP5Registers absolute OCMP5_BASE_ADDRESS;
  23350. const
  23351. OSC_BASE_ADDRESS = $BF80F000;
  23352. var
  23353. OSC : TOSCRegisters absolute OSC_BASE_ADDRESS;
  23354. const
  23355. PCACHE_BASE_ADDRESS = $BF884000;
  23356. var
  23357. PCACHE : TPCACHERegisters absolute PCACHE_BASE_ADDRESS;
  23358. const
  23359. PMP_BASE_ADDRESS = $BF807000;
  23360. var
  23361. PMP : TPMPRegisters absolute PMP_BASE_ADDRESS;
  23362. const
  23363. PORTA_BASE_ADDRESS = $BF886000;
  23364. var
  23365. PORTA : TPORTARegisters absolute PORTA_BASE_ADDRESS;
  23366. const
  23367. PORTB_BASE_ADDRESS = $BF886040;
  23368. var
  23369. PORTB : TPORTBRegisters absolute PORTB_BASE_ADDRESS;
  23370. const
  23371. PORTC_BASE_ADDRESS = $BF886080;
  23372. var
  23373. PORTC : TPORTCRegisters absolute PORTC_BASE_ADDRESS;
  23374. const
  23375. PORTD_BASE_ADDRESS = $BF8860C0;
  23376. var
  23377. PORTD : TPORTDRegisters absolute PORTD_BASE_ADDRESS;
  23378. const
  23379. PORTE_BASE_ADDRESS = $BF886100;
  23380. var
  23381. PORTE : TPORTERegisters absolute PORTE_BASE_ADDRESS;
  23382. const
  23383. PORTF_BASE_ADDRESS = $BF886140;
  23384. var
  23385. PORTF : TPORTFRegisters absolute PORTF_BASE_ADDRESS;
  23386. const
  23387. PORTG_BASE_ADDRESS = $BF886180;
  23388. var
  23389. PORTG : TPORTGRegisters absolute PORTG_BASE_ADDRESS;
  23390. const
  23391. RCON_BASE_ADDRESS = $BF80F600;
  23392. var
  23393. RCON : TRCONRegisters absolute RCON_BASE_ADDRESS;
  23394. const
  23395. RTCC_BASE_ADDRESS = $BF800200;
  23396. var
  23397. RTCC : TRTCCRegisters absolute RTCC_BASE_ADDRESS;
  23398. const
  23399. SPI1_BASE_ADDRESS = $BF805E00;
  23400. var
  23401. SPI1 : TSPI1Registers absolute SPI1_BASE_ADDRESS;
  23402. const
  23403. SPI2_BASE_ADDRESS = $BF805A00;
  23404. var
  23405. SPI2 : TSPI2Registers absolute SPI2_BASE_ADDRESS;
  23406. const
  23407. SPI3_BASE_ADDRESS = $BF805800;
  23408. var
  23409. SPI3 : TSPI3Registers absolute SPI3_BASE_ADDRESS;
  23410. const
  23411. SPI4_BASE_ADDRESS = $BF805C00;
  23412. var
  23413. SPI4 : TSPI4Registers absolute SPI4_BASE_ADDRESS;
  23414. const
  23415. TMR1_BASE_ADDRESS = $BF800600;
  23416. var
  23417. TMR1 : TTMR1Registers absolute TMR1_BASE_ADDRESS;
  23418. const
  23419. TMR2_BASE_ADDRESS = $BF800800;
  23420. var
  23421. TMR2 : TTMR2Registers absolute TMR2_BASE_ADDRESS;
  23422. const
  23423. TMR3_BASE_ADDRESS = $BF800A00;
  23424. var
  23425. TMR3 : TTMR3Registers absolute TMR3_BASE_ADDRESS;
  23426. const
  23427. TMR4_BASE_ADDRESS = $BF800C00;
  23428. var
  23429. TMR4 : TTMR4Registers absolute TMR4_BASE_ADDRESS;
  23430. const
  23431. TMR5_BASE_ADDRESS = $BF800E00;
  23432. var
  23433. TMR5 : TTMR5Registers absolute TMR5_BASE_ADDRESS;
  23434. const
  23435. UART1A_BASE_ADDRESS = $BF806000;
  23436. var
  23437. UART1A : TUART1ARegisters absolute UART1A_BASE_ADDRESS;
  23438. const
  23439. UART2_BASE_ADDRESS = $BF806800;
  23440. var
  23441. UART2 : TUART2Registers absolute UART2_BASE_ADDRESS;
  23442. const
  23443. UART2B_BASE_ADDRESS = $BF806600;
  23444. var
  23445. UART2B : TUART2BRegisters absolute UART2B_BASE_ADDRESS;
  23446. const
  23447. UART3_BASE_ADDRESS = $BF806400;
  23448. var
  23449. UART3 : TUART3Registers absolute UART3_BASE_ADDRESS;
  23450. const
  23451. UART4_BASE_ADDRESS = $BF806200;
  23452. var
  23453. UART4 : TUART4Registers absolute UART4_BASE_ADDRESS;
  23454. const
  23455. UART5_BASE_ADDRESS = $BF806A00;
  23456. var
  23457. UART5 : TUART5Registers absolute UART5_BASE_ADDRESS;
  23458. const
  23459. USB_BASE_ADDRESS = $BF885040;
  23460. var
  23461. USB : TUSBRegisters absolute USB_BASE_ADDRESS;
  23462. const
  23463. WDT_BASE_ADDRESS = $BF800000;
  23464. var
  23465. WDT : TWDTRegisters absolute WDT_BASE_ADDRESS;
  23466. const
  23467. _APPI_BASE_ADDRESS = $BF880190;
  23468. var
  23469. _APPI : T_APPIRegisters absolute _APPI_BASE_ADDRESS;
  23470. const
  23471. _APPO_BASE_ADDRESS = $BF880180;
  23472. var
  23473. _APPO : T_APPORegisters absolute _APPO_BASE_ADDRESS;
  23474. const
  23475. _DDPSTAT_BASE_ADDRESS = $BF880140;
  23476. var
  23477. _DDPSTAT : T_DDPSTATRegisters absolute _DDPSTAT_BASE_ADDRESS;
  23478. const
  23479. _STRO_BASE_ADDRESS = $BF880170;
  23480. var
  23481. _STRO : T_STRORegisters absolute _STRO_BASE_ADDRESS;
  23482. implementation
  23483. type
  23484. TDefRegMap = record
  23485. val : longWord;
  23486. clr : longWord;
  23487. &set : longWord;
  23488. inv : longWord;
  23489. end;
  23490. pTDefRegMap = ^TDefRegMap;
  23491. procedure TWDT_WDTCON.setWDTCLR; inline;
  23492. begin
  23493. pTDefRegMap(@Self)^.&set := $00000001;
  23494. end;
  23495. procedure TWDT_WDTCON.clearWDTCLR; inline;
  23496. begin
  23497. pTDefRegMap(@Self)^.clr := $00000001;
  23498. end;
  23499. procedure TWDT_WDTCON.setWDTCLR(thebits : TBits_1); inline;
  23500. begin
  23501. if thebits = 0 then
  23502. pTDefRegMap(@Self)^.clr := $00000001
  23503. else
  23504. pTDefRegMap(@Self)^.&set := $00000001;
  23505. end;
  23506. function TWDT_WDTCON.getWDTCLR : TBits_1; inline;
  23507. begin
  23508. getWDTCLR := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  23509. end;
  23510. procedure TWDT_WDTCON.setSWDTPS(thebits : TBits_5); inline;
  23511. begin
  23512. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF83 or ( thebits shl 2 );
  23513. end;
  23514. function TWDT_WDTCON.getSWDTPS : TBits_5; inline;
  23515. begin
  23516. getSWDTPS := (pTDefRegMap(@Self)^.val and $0000007C) shr 2;
  23517. end;
  23518. procedure TWDT_WDTCON.setON; inline;
  23519. begin
  23520. pTDefRegMap(@Self)^.&set := $00008000;
  23521. end;
  23522. procedure TWDT_WDTCON.clearON; inline;
  23523. begin
  23524. pTDefRegMap(@Self)^.clr := $00008000;
  23525. end;
  23526. procedure TWDT_WDTCON.setON(thebits : TBits_1); inline;
  23527. begin
  23528. if thebits = 0 then
  23529. pTDefRegMap(@Self)^.clr := $00008000
  23530. else
  23531. pTDefRegMap(@Self)^.&set := $00008000;
  23532. end;
  23533. function TWDT_WDTCON.getON : TBits_1; inline;
  23534. begin
  23535. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23536. end;
  23537. procedure TWDT_WDTCON.setSWDTPS0; inline;
  23538. begin
  23539. pTDefRegMap(@Self)^.&set := $00000004;
  23540. end;
  23541. procedure TWDT_WDTCON.clearSWDTPS0; inline;
  23542. begin
  23543. pTDefRegMap(@Self)^.clr := $00000004;
  23544. end;
  23545. procedure TWDT_WDTCON.setSWDTPS0(thebits : TBits_1); inline;
  23546. begin
  23547. if thebits = 0 then
  23548. pTDefRegMap(@Self)^.clr := $00000004
  23549. else
  23550. pTDefRegMap(@Self)^.&set := $00000004;
  23551. end;
  23552. function TWDT_WDTCON.getSWDTPS0 : TBits_1; inline;
  23553. begin
  23554. getSWDTPS0 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  23555. end;
  23556. procedure TWDT_WDTCON.setSWDTPS1; inline;
  23557. begin
  23558. pTDefRegMap(@Self)^.&set := $00000008;
  23559. end;
  23560. procedure TWDT_WDTCON.clearSWDTPS1; inline;
  23561. begin
  23562. pTDefRegMap(@Self)^.clr := $00000008;
  23563. end;
  23564. procedure TWDT_WDTCON.setSWDTPS1(thebits : TBits_1); inline;
  23565. begin
  23566. if thebits = 0 then
  23567. pTDefRegMap(@Self)^.clr := $00000008
  23568. else
  23569. pTDefRegMap(@Self)^.&set := $00000008;
  23570. end;
  23571. function TWDT_WDTCON.getSWDTPS1 : TBits_1; inline;
  23572. begin
  23573. getSWDTPS1 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  23574. end;
  23575. procedure TWDT_WDTCON.setSWDTPS2; inline;
  23576. begin
  23577. pTDefRegMap(@Self)^.&set := $00000010;
  23578. end;
  23579. procedure TWDT_WDTCON.clearSWDTPS2; inline;
  23580. begin
  23581. pTDefRegMap(@Self)^.clr := $00000010;
  23582. end;
  23583. procedure TWDT_WDTCON.setSWDTPS2(thebits : TBits_1); inline;
  23584. begin
  23585. if thebits = 0 then
  23586. pTDefRegMap(@Self)^.clr := $00000010
  23587. else
  23588. pTDefRegMap(@Self)^.&set := $00000010;
  23589. end;
  23590. function TWDT_WDTCON.getSWDTPS2 : TBits_1; inline;
  23591. begin
  23592. getSWDTPS2 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  23593. end;
  23594. procedure TWDT_WDTCON.setSWDTPS3; inline;
  23595. begin
  23596. pTDefRegMap(@Self)^.&set := $00000020;
  23597. end;
  23598. procedure TWDT_WDTCON.clearSWDTPS3; inline;
  23599. begin
  23600. pTDefRegMap(@Self)^.clr := $00000020;
  23601. end;
  23602. procedure TWDT_WDTCON.setSWDTPS3(thebits : TBits_1); inline;
  23603. begin
  23604. if thebits = 0 then
  23605. pTDefRegMap(@Self)^.clr := $00000020
  23606. else
  23607. pTDefRegMap(@Self)^.&set := $00000020;
  23608. end;
  23609. function TWDT_WDTCON.getSWDTPS3 : TBits_1; inline;
  23610. begin
  23611. getSWDTPS3 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  23612. end;
  23613. procedure TWDT_WDTCON.setSWDTPS4; inline;
  23614. begin
  23615. pTDefRegMap(@Self)^.&set := $00000040;
  23616. end;
  23617. procedure TWDT_WDTCON.clearSWDTPS4; inline;
  23618. begin
  23619. pTDefRegMap(@Self)^.clr := $00000040;
  23620. end;
  23621. procedure TWDT_WDTCON.setSWDTPS4(thebits : TBits_1); inline;
  23622. begin
  23623. if thebits = 0 then
  23624. pTDefRegMap(@Self)^.clr := $00000040
  23625. else
  23626. pTDefRegMap(@Self)^.&set := $00000040;
  23627. end;
  23628. function TWDT_WDTCON.getSWDTPS4 : TBits_1; inline;
  23629. begin
  23630. getSWDTPS4 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  23631. end;
  23632. procedure TWDT_WDTCON.setWDTPSTA(thebits : TBits_5); inline;
  23633. begin
  23634. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF83 or ( thebits shl 2 );
  23635. end;
  23636. function TWDT_WDTCON.getWDTPSTA : TBits_5; inline;
  23637. begin
  23638. getWDTPSTA := (pTDefRegMap(@Self)^.val and $0000007C) shr 2;
  23639. end;
  23640. procedure TWDT_WDTCON.setWDTPS(thebits : TBits_5); inline;
  23641. begin
  23642. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF83 or ( thebits shl 2 );
  23643. end;
  23644. function TWDT_WDTCON.getWDTPS : TBits_5; inline;
  23645. begin
  23646. getWDTPS := (pTDefRegMap(@Self)^.val and $0000007C) shr 2;
  23647. end;
  23648. procedure TWDT_WDTCON.setw(thebits : TBits_32); inline;
  23649. begin
  23650. pTDefRegMap(@Self)^.val := thebits;
  23651. end;
  23652. function TWDT_WDTCON.getw : TBits_32; inline;
  23653. begin
  23654. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23655. end;
  23656. procedure TRTCC_RTCCON.setRTCOE; inline;
  23657. begin
  23658. pTDefRegMap(@Self)^.&set := $00000001;
  23659. end;
  23660. procedure TRTCC_RTCCON.clearRTCOE; inline;
  23661. begin
  23662. pTDefRegMap(@Self)^.clr := $00000001;
  23663. end;
  23664. procedure TRTCC_RTCCON.setRTCOE(thebits : TBits_1); inline;
  23665. begin
  23666. if thebits = 0 then
  23667. pTDefRegMap(@Self)^.clr := $00000001
  23668. else
  23669. pTDefRegMap(@Self)^.&set := $00000001;
  23670. end;
  23671. function TRTCC_RTCCON.getRTCOE : TBits_1; inline;
  23672. begin
  23673. getRTCOE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  23674. end;
  23675. procedure TRTCC_RTCCON.setHALFSEC; inline;
  23676. begin
  23677. pTDefRegMap(@Self)^.&set := $00000002;
  23678. end;
  23679. procedure TRTCC_RTCCON.clearHALFSEC; inline;
  23680. begin
  23681. pTDefRegMap(@Self)^.clr := $00000002;
  23682. end;
  23683. procedure TRTCC_RTCCON.setHALFSEC(thebits : TBits_1); inline;
  23684. begin
  23685. if thebits = 0 then
  23686. pTDefRegMap(@Self)^.clr := $00000002
  23687. else
  23688. pTDefRegMap(@Self)^.&set := $00000002;
  23689. end;
  23690. function TRTCC_RTCCON.getHALFSEC : TBits_1; inline;
  23691. begin
  23692. getHALFSEC := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  23693. end;
  23694. procedure TRTCC_RTCCON.setRTCSYNC; inline;
  23695. begin
  23696. pTDefRegMap(@Self)^.&set := $00000004;
  23697. end;
  23698. procedure TRTCC_RTCCON.clearRTCSYNC; inline;
  23699. begin
  23700. pTDefRegMap(@Self)^.clr := $00000004;
  23701. end;
  23702. procedure TRTCC_RTCCON.setRTCSYNC(thebits : TBits_1); inline;
  23703. begin
  23704. if thebits = 0 then
  23705. pTDefRegMap(@Self)^.clr := $00000004
  23706. else
  23707. pTDefRegMap(@Self)^.&set := $00000004;
  23708. end;
  23709. function TRTCC_RTCCON.getRTCSYNC : TBits_1; inline;
  23710. begin
  23711. getRTCSYNC := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  23712. end;
  23713. procedure TRTCC_RTCCON.setRTCWREN; inline;
  23714. begin
  23715. pTDefRegMap(@Self)^.&set := $00000008;
  23716. end;
  23717. procedure TRTCC_RTCCON.clearRTCWREN; inline;
  23718. begin
  23719. pTDefRegMap(@Self)^.clr := $00000008;
  23720. end;
  23721. procedure TRTCC_RTCCON.setRTCWREN(thebits : TBits_1); inline;
  23722. begin
  23723. if thebits = 0 then
  23724. pTDefRegMap(@Self)^.clr := $00000008
  23725. else
  23726. pTDefRegMap(@Self)^.&set := $00000008;
  23727. end;
  23728. function TRTCC_RTCCON.getRTCWREN : TBits_1; inline;
  23729. begin
  23730. getRTCWREN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  23731. end;
  23732. procedure TRTCC_RTCCON.setRTCCLKON; inline;
  23733. begin
  23734. pTDefRegMap(@Self)^.&set := $00000040;
  23735. end;
  23736. procedure TRTCC_RTCCON.clearRTCCLKON; inline;
  23737. begin
  23738. pTDefRegMap(@Self)^.clr := $00000040;
  23739. end;
  23740. procedure TRTCC_RTCCON.setRTCCLKON(thebits : TBits_1); inline;
  23741. begin
  23742. if thebits = 0 then
  23743. pTDefRegMap(@Self)^.clr := $00000040
  23744. else
  23745. pTDefRegMap(@Self)^.&set := $00000040;
  23746. end;
  23747. function TRTCC_RTCCON.getRTCCLKON : TBits_1; inline;
  23748. begin
  23749. getRTCCLKON := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  23750. end;
  23751. procedure TRTCC_RTCCON.setRTSECSEL; inline;
  23752. begin
  23753. pTDefRegMap(@Self)^.&set := $00000080;
  23754. end;
  23755. procedure TRTCC_RTCCON.clearRTSECSEL; inline;
  23756. begin
  23757. pTDefRegMap(@Self)^.clr := $00000080;
  23758. end;
  23759. procedure TRTCC_RTCCON.setRTSECSEL(thebits : TBits_1); inline;
  23760. begin
  23761. if thebits = 0 then
  23762. pTDefRegMap(@Self)^.clr := $00000080
  23763. else
  23764. pTDefRegMap(@Self)^.&set := $00000080;
  23765. end;
  23766. function TRTCC_RTCCON.getRTSECSEL : TBits_1; inline;
  23767. begin
  23768. getRTSECSEL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  23769. end;
  23770. procedure TRTCC_RTCCON.setSIDL; inline;
  23771. begin
  23772. pTDefRegMap(@Self)^.&set := $00002000;
  23773. end;
  23774. procedure TRTCC_RTCCON.clearSIDL; inline;
  23775. begin
  23776. pTDefRegMap(@Self)^.clr := $00002000;
  23777. end;
  23778. procedure TRTCC_RTCCON.setSIDL(thebits : TBits_1); inline;
  23779. begin
  23780. if thebits = 0 then
  23781. pTDefRegMap(@Self)^.clr := $00002000
  23782. else
  23783. pTDefRegMap(@Self)^.&set := $00002000;
  23784. end;
  23785. function TRTCC_RTCCON.getSIDL : TBits_1; inline;
  23786. begin
  23787. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23788. end;
  23789. procedure TRTCC_RTCCON.setON; inline;
  23790. begin
  23791. pTDefRegMap(@Self)^.&set := $00008000;
  23792. end;
  23793. procedure TRTCC_RTCCON.clearON; inline;
  23794. begin
  23795. pTDefRegMap(@Self)^.clr := $00008000;
  23796. end;
  23797. procedure TRTCC_RTCCON.setON(thebits : TBits_1); inline;
  23798. begin
  23799. if thebits = 0 then
  23800. pTDefRegMap(@Self)^.clr := $00008000
  23801. else
  23802. pTDefRegMap(@Self)^.&set := $00008000;
  23803. end;
  23804. function TRTCC_RTCCON.getON : TBits_1; inline;
  23805. begin
  23806. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23807. end;
  23808. procedure TRTCC_RTCCON.setCAL(thebits : TBits_10); inline;
  23809. begin
  23810. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FC00FFFF or ( thebits shl 16 );
  23811. end;
  23812. function TRTCC_RTCCON.getCAL : TBits_10; inline;
  23813. begin
  23814. getCAL := (pTDefRegMap(@Self)^.val and $03FF0000) shr 16;
  23815. end;
  23816. procedure TRTCC_RTCCON.setw(thebits : TBits_32); inline;
  23817. begin
  23818. pTDefRegMap(@Self)^.val := thebits;
  23819. end;
  23820. function TRTCC_RTCCON.getw : TBits_32; inline;
  23821. begin
  23822. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23823. end;
  23824. procedure TRTCC_RTCALRM.setARPT(thebits : TBits_8); inline;
  23825. begin
  23826. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  23827. end;
  23828. function TRTCC_RTCALRM.getARPT : TBits_8; inline;
  23829. begin
  23830. getARPT := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  23831. end;
  23832. procedure TRTCC_RTCALRM.setAMASK(thebits : TBits_4); inline;
  23833. begin
  23834. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  23835. end;
  23836. function TRTCC_RTCALRM.getAMASK : TBits_4; inline;
  23837. begin
  23838. getAMASK := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  23839. end;
  23840. procedure TRTCC_RTCALRM.setALRMSYNC; inline;
  23841. begin
  23842. pTDefRegMap(@Self)^.&set := $00001000;
  23843. end;
  23844. procedure TRTCC_RTCALRM.clearALRMSYNC; inline;
  23845. begin
  23846. pTDefRegMap(@Self)^.clr := $00001000;
  23847. end;
  23848. procedure TRTCC_RTCALRM.setALRMSYNC(thebits : TBits_1); inline;
  23849. begin
  23850. if thebits = 0 then
  23851. pTDefRegMap(@Self)^.clr := $00001000
  23852. else
  23853. pTDefRegMap(@Self)^.&set := $00001000;
  23854. end;
  23855. function TRTCC_RTCALRM.getALRMSYNC : TBits_1; inline;
  23856. begin
  23857. getALRMSYNC := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  23858. end;
  23859. procedure TRTCC_RTCALRM.setPIV; inline;
  23860. begin
  23861. pTDefRegMap(@Self)^.&set := $00002000;
  23862. end;
  23863. procedure TRTCC_RTCALRM.clearPIV; inline;
  23864. begin
  23865. pTDefRegMap(@Self)^.clr := $00002000;
  23866. end;
  23867. procedure TRTCC_RTCALRM.setPIV(thebits : TBits_1); inline;
  23868. begin
  23869. if thebits = 0 then
  23870. pTDefRegMap(@Self)^.clr := $00002000
  23871. else
  23872. pTDefRegMap(@Self)^.&set := $00002000;
  23873. end;
  23874. function TRTCC_RTCALRM.getPIV : TBits_1; inline;
  23875. begin
  23876. getPIV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23877. end;
  23878. procedure TRTCC_RTCALRM.setCHIME; inline;
  23879. begin
  23880. pTDefRegMap(@Self)^.&set := $00004000;
  23881. end;
  23882. procedure TRTCC_RTCALRM.clearCHIME; inline;
  23883. begin
  23884. pTDefRegMap(@Self)^.clr := $00004000;
  23885. end;
  23886. procedure TRTCC_RTCALRM.setCHIME(thebits : TBits_1); inline;
  23887. begin
  23888. if thebits = 0 then
  23889. pTDefRegMap(@Self)^.clr := $00004000
  23890. else
  23891. pTDefRegMap(@Self)^.&set := $00004000;
  23892. end;
  23893. function TRTCC_RTCALRM.getCHIME : TBits_1; inline;
  23894. begin
  23895. getCHIME := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  23896. end;
  23897. procedure TRTCC_RTCALRM.setALRMEN; inline;
  23898. begin
  23899. pTDefRegMap(@Self)^.&set := $00008000;
  23900. end;
  23901. procedure TRTCC_RTCALRM.clearALRMEN; inline;
  23902. begin
  23903. pTDefRegMap(@Self)^.clr := $00008000;
  23904. end;
  23905. procedure TRTCC_RTCALRM.setALRMEN(thebits : TBits_1); inline;
  23906. begin
  23907. if thebits = 0 then
  23908. pTDefRegMap(@Self)^.clr := $00008000
  23909. else
  23910. pTDefRegMap(@Self)^.&set := $00008000;
  23911. end;
  23912. function TRTCC_RTCALRM.getALRMEN : TBits_1; inline;
  23913. begin
  23914. getALRMEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23915. end;
  23916. procedure TRTCC_RTCALRM.setw(thebits : TBits_32); inline;
  23917. begin
  23918. pTDefRegMap(@Self)^.val := thebits;
  23919. end;
  23920. function TRTCC_RTCALRM.getw : TBits_32; inline;
  23921. begin
  23922. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23923. end;
  23924. procedure TRTCC_RTCTIME.setSEC01(thebits : TBits_4); inline;
  23925. begin
  23926. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  23927. end;
  23928. function TRTCC_RTCTIME.getSEC01 : TBits_4; inline;
  23929. begin
  23930. getSEC01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  23931. end;
  23932. procedure TRTCC_RTCTIME.setSEC10(thebits : TBits_4); inline;
  23933. begin
  23934. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  23935. end;
  23936. function TRTCC_RTCTIME.getSEC10 : TBits_4; inline;
  23937. begin
  23938. getSEC10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  23939. end;
  23940. procedure TRTCC_RTCTIME.setMIN01(thebits : TBits_4); inline;
  23941. begin
  23942. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  23943. end;
  23944. function TRTCC_RTCTIME.getMIN01 : TBits_4; inline;
  23945. begin
  23946. getMIN01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  23947. end;
  23948. procedure TRTCC_RTCTIME.setMIN10(thebits : TBits_4); inline;
  23949. begin
  23950. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  23951. end;
  23952. function TRTCC_RTCTIME.getMIN10 : TBits_4; inline;
  23953. begin
  23954. getMIN10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  23955. end;
  23956. procedure TRTCC_RTCTIME.setHR01(thebits : TBits_4); inline;
  23957. begin
  23958. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  23959. end;
  23960. function TRTCC_RTCTIME.getHR01 : TBits_4; inline;
  23961. begin
  23962. getHR01 := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  23963. end;
  23964. procedure TRTCC_RTCTIME.setHR10(thebits : TBits_4); inline;
  23965. begin
  23966. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0FFFFFFF or ( thebits shl 28 );
  23967. end;
  23968. function TRTCC_RTCTIME.getHR10 : TBits_4; inline;
  23969. begin
  23970. getHR10 := (pTDefRegMap(@Self)^.val and $F0000000) shr 28;
  23971. end;
  23972. procedure TRTCC_RTCTIME.setw(thebits : TBits_32); inline;
  23973. begin
  23974. pTDefRegMap(@Self)^.val := thebits;
  23975. end;
  23976. function TRTCC_RTCTIME.getw : TBits_32; inline;
  23977. begin
  23978. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23979. end;
  23980. procedure TRTCC_RTCDATE.setWDAY01(thebits : TBits_4); inline;
  23981. begin
  23982. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  23983. end;
  23984. function TRTCC_RTCDATE.getWDAY01 : TBits_4; inline;
  23985. begin
  23986. getWDAY01 := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  23987. end;
  23988. procedure TRTCC_RTCDATE.setDAY01(thebits : TBits_4); inline;
  23989. begin
  23990. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  23991. end;
  23992. function TRTCC_RTCDATE.getDAY01 : TBits_4; inline;
  23993. begin
  23994. getDAY01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  23995. end;
  23996. procedure TRTCC_RTCDATE.setDAY10(thebits : TBits_4); inline;
  23997. begin
  23998. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  23999. end;
  24000. function TRTCC_RTCDATE.getDAY10 : TBits_4; inline;
  24001. begin
  24002. getDAY10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  24003. end;
  24004. procedure TRTCC_RTCDATE.setMONTH01(thebits : TBits_4); inline;
  24005. begin
  24006. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  24007. end;
  24008. function TRTCC_RTCDATE.getMONTH01 : TBits_4; inline;
  24009. begin
  24010. getMONTH01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  24011. end;
  24012. procedure TRTCC_RTCDATE.setMONTH10(thebits : TBits_4); inline;
  24013. begin
  24014. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  24015. end;
  24016. function TRTCC_RTCDATE.getMONTH10 : TBits_4; inline;
  24017. begin
  24018. getMONTH10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  24019. end;
  24020. procedure TRTCC_RTCDATE.setYEAR01(thebits : TBits_4); inline;
  24021. begin
  24022. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  24023. end;
  24024. function TRTCC_RTCDATE.getYEAR01 : TBits_4; inline;
  24025. begin
  24026. getYEAR01 := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  24027. end;
  24028. procedure TRTCC_RTCDATE.setYEAR10(thebits : TBits_4); inline;
  24029. begin
  24030. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0FFFFFFF or ( thebits shl 28 );
  24031. end;
  24032. function TRTCC_RTCDATE.getYEAR10 : TBits_4; inline;
  24033. begin
  24034. getYEAR10 := (pTDefRegMap(@Self)^.val and $F0000000) shr 28;
  24035. end;
  24036. procedure TRTCC_RTCDATE.setw(thebits : TBits_32); inline;
  24037. begin
  24038. pTDefRegMap(@Self)^.val := thebits;
  24039. end;
  24040. function TRTCC_RTCDATE.getw : TBits_32; inline;
  24041. begin
  24042. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24043. end;
  24044. procedure TRTCC_ALRMTIME.setSEC01(thebits : TBits_4); inline;
  24045. begin
  24046. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  24047. end;
  24048. function TRTCC_ALRMTIME.getSEC01 : TBits_4; inline;
  24049. begin
  24050. getSEC01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  24051. end;
  24052. procedure TRTCC_ALRMTIME.setSEC10(thebits : TBits_4); inline;
  24053. begin
  24054. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  24055. end;
  24056. function TRTCC_ALRMTIME.getSEC10 : TBits_4; inline;
  24057. begin
  24058. getSEC10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  24059. end;
  24060. procedure TRTCC_ALRMTIME.setMIN01(thebits : TBits_4); inline;
  24061. begin
  24062. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  24063. end;
  24064. function TRTCC_ALRMTIME.getMIN01 : TBits_4; inline;
  24065. begin
  24066. getMIN01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  24067. end;
  24068. procedure TRTCC_ALRMTIME.setMIN10(thebits : TBits_4); inline;
  24069. begin
  24070. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  24071. end;
  24072. function TRTCC_ALRMTIME.getMIN10 : TBits_4; inline;
  24073. begin
  24074. getMIN10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  24075. end;
  24076. procedure TRTCC_ALRMTIME.setHR01(thebits : TBits_4); inline;
  24077. begin
  24078. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  24079. end;
  24080. function TRTCC_ALRMTIME.getHR01 : TBits_4; inline;
  24081. begin
  24082. getHR01 := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  24083. end;
  24084. procedure TRTCC_ALRMTIME.setHR10(thebits : TBits_4); inline;
  24085. begin
  24086. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0FFFFFFF or ( thebits shl 28 );
  24087. end;
  24088. function TRTCC_ALRMTIME.getHR10 : TBits_4; inline;
  24089. begin
  24090. getHR10 := (pTDefRegMap(@Self)^.val and $F0000000) shr 28;
  24091. end;
  24092. procedure TRTCC_ALRMTIME.setw(thebits : TBits_32); inline;
  24093. begin
  24094. pTDefRegMap(@Self)^.val := thebits;
  24095. end;
  24096. function TRTCC_ALRMTIME.getw : TBits_32; inline;
  24097. begin
  24098. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24099. end;
  24100. procedure TRTCC_ALRMDATE.setWDAY01(thebits : TBits_4); inline;
  24101. begin
  24102. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  24103. end;
  24104. function TRTCC_ALRMDATE.getWDAY01 : TBits_4; inline;
  24105. begin
  24106. getWDAY01 := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  24107. end;
  24108. procedure TRTCC_ALRMDATE.setDAY01(thebits : TBits_4); inline;
  24109. begin
  24110. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  24111. end;
  24112. function TRTCC_ALRMDATE.getDAY01 : TBits_4; inline;
  24113. begin
  24114. getDAY01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  24115. end;
  24116. procedure TRTCC_ALRMDATE.setDAY10(thebits : TBits_4); inline;
  24117. begin
  24118. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  24119. end;
  24120. function TRTCC_ALRMDATE.getDAY10 : TBits_4; inline;
  24121. begin
  24122. getDAY10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  24123. end;
  24124. procedure TRTCC_ALRMDATE.setMONTH01(thebits : TBits_4); inline;
  24125. begin
  24126. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  24127. end;
  24128. function TRTCC_ALRMDATE.getMONTH01 : TBits_4; inline;
  24129. begin
  24130. getMONTH01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  24131. end;
  24132. procedure TRTCC_ALRMDATE.setMONTH10(thebits : TBits_4); inline;
  24133. begin
  24134. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  24135. end;
  24136. function TRTCC_ALRMDATE.getMONTH10 : TBits_4; inline;
  24137. begin
  24138. getMONTH10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  24139. end;
  24140. procedure TRTCC_ALRMDATE.setw(thebits : TBits_32); inline;
  24141. begin
  24142. pTDefRegMap(@Self)^.val := thebits;
  24143. end;
  24144. function TRTCC_ALRMDATE.getw : TBits_32; inline;
  24145. begin
  24146. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24147. end;
  24148. procedure TTMR1_T1CON.setTCS; inline;
  24149. begin
  24150. pTDefRegMap(@Self)^.&set := $00000002;
  24151. end;
  24152. procedure TTMR1_T1CON.clearTCS; inline;
  24153. begin
  24154. pTDefRegMap(@Self)^.clr := $00000002;
  24155. end;
  24156. procedure TTMR1_T1CON.setTCS(thebits : TBits_1); inline;
  24157. begin
  24158. if thebits = 0 then
  24159. pTDefRegMap(@Self)^.clr := $00000002
  24160. else
  24161. pTDefRegMap(@Self)^.&set := $00000002;
  24162. end;
  24163. function TTMR1_T1CON.getTCS : TBits_1; inline;
  24164. begin
  24165. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  24166. end;
  24167. procedure TTMR1_T1CON.setTSYNC; inline;
  24168. begin
  24169. pTDefRegMap(@Self)^.&set := $00000004;
  24170. end;
  24171. procedure TTMR1_T1CON.clearTSYNC; inline;
  24172. begin
  24173. pTDefRegMap(@Self)^.clr := $00000004;
  24174. end;
  24175. procedure TTMR1_T1CON.setTSYNC(thebits : TBits_1); inline;
  24176. begin
  24177. if thebits = 0 then
  24178. pTDefRegMap(@Self)^.clr := $00000004
  24179. else
  24180. pTDefRegMap(@Self)^.&set := $00000004;
  24181. end;
  24182. function TTMR1_T1CON.getTSYNC : TBits_1; inline;
  24183. begin
  24184. getTSYNC := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  24185. end;
  24186. procedure TTMR1_T1CON.setTCKPS(thebits : TBits_2); inline;
  24187. begin
  24188. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFCF or ( thebits shl 4 );
  24189. end;
  24190. function TTMR1_T1CON.getTCKPS : TBits_2; inline;
  24191. begin
  24192. getTCKPS := (pTDefRegMap(@Self)^.val and $00000030) shr 4;
  24193. end;
  24194. procedure TTMR1_T1CON.setTGATE; inline;
  24195. begin
  24196. pTDefRegMap(@Self)^.&set := $00000080;
  24197. end;
  24198. procedure TTMR1_T1CON.clearTGATE; inline;
  24199. begin
  24200. pTDefRegMap(@Self)^.clr := $00000080;
  24201. end;
  24202. procedure TTMR1_T1CON.setTGATE(thebits : TBits_1); inline;
  24203. begin
  24204. if thebits = 0 then
  24205. pTDefRegMap(@Self)^.clr := $00000080
  24206. else
  24207. pTDefRegMap(@Self)^.&set := $00000080;
  24208. end;
  24209. function TTMR1_T1CON.getTGATE : TBits_1; inline;
  24210. begin
  24211. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24212. end;
  24213. procedure TTMR1_T1CON.setTWIP; inline;
  24214. begin
  24215. pTDefRegMap(@Self)^.&set := $00000800;
  24216. end;
  24217. procedure TTMR1_T1CON.clearTWIP; inline;
  24218. begin
  24219. pTDefRegMap(@Self)^.clr := $00000800;
  24220. end;
  24221. procedure TTMR1_T1CON.setTWIP(thebits : TBits_1); inline;
  24222. begin
  24223. if thebits = 0 then
  24224. pTDefRegMap(@Self)^.clr := $00000800
  24225. else
  24226. pTDefRegMap(@Self)^.&set := $00000800;
  24227. end;
  24228. function TTMR1_T1CON.getTWIP : TBits_1; inline;
  24229. begin
  24230. getTWIP := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  24231. end;
  24232. procedure TTMR1_T1CON.setTWDIS; inline;
  24233. begin
  24234. pTDefRegMap(@Self)^.&set := $00001000;
  24235. end;
  24236. procedure TTMR1_T1CON.clearTWDIS; inline;
  24237. begin
  24238. pTDefRegMap(@Self)^.clr := $00001000;
  24239. end;
  24240. procedure TTMR1_T1CON.setTWDIS(thebits : TBits_1); inline;
  24241. begin
  24242. if thebits = 0 then
  24243. pTDefRegMap(@Self)^.clr := $00001000
  24244. else
  24245. pTDefRegMap(@Self)^.&set := $00001000;
  24246. end;
  24247. function TTMR1_T1CON.getTWDIS : TBits_1; inline;
  24248. begin
  24249. getTWDIS := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  24250. end;
  24251. procedure TTMR1_T1CON.setSIDL; inline;
  24252. begin
  24253. pTDefRegMap(@Self)^.&set := $00002000;
  24254. end;
  24255. procedure TTMR1_T1CON.clearSIDL; inline;
  24256. begin
  24257. pTDefRegMap(@Self)^.clr := $00002000;
  24258. end;
  24259. procedure TTMR1_T1CON.setSIDL(thebits : TBits_1); inline;
  24260. begin
  24261. if thebits = 0 then
  24262. pTDefRegMap(@Self)^.clr := $00002000
  24263. else
  24264. pTDefRegMap(@Self)^.&set := $00002000;
  24265. end;
  24266. function TTMR1_T1CON.getSIDL : TBits_1; inline;
  24267. begin
  24268. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24269. end;
  24270. procedure TTMR1_T1CON.setON; inline;
  24271. begin
  24272. pTDefRegMap(@Self)^.&set := $00008000;
  24273. end;
  24274. procedure TTMR1_T1CON.clearON; inline;
  24275. begin
  24276. pTDefRegMap(@Self)^.clr := $00008000;
  24277. end;
  24278. procedure TTMR1_T1CON.setON(thebits : TBits_1); inline;
  24279. begin
  24280. if thebits = 0 then
  24281. pTDefRegMap(@Self)^.clr := $00008000
  24282. else
  24283. pTDefRegMap(@Self)^.&set := $00008000;
  24284. end;
  24285. function TTMR1_T1CON.getON : TBits_1; inline;
  24286. begin
  24287. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24288. end;
  24289. procedure TTMR1_T1CON.setTCKPS0; inline;
  24290. begin
  24291. pTDefRegMap(@Self)^.&set := $00000010;
  24292. end;
  24293. procedure TTMR1_T1CON.clearTCKPS0; inline;
  24294. begin
  24295. pTDefRegMap(@Self)^.clr := $00000010;
  24296. end;
  24297. procedure TTMR1_T1CON.setTCKPS0(thebits : TBits_1); inline;
  24298. begin
  24299. if thebits = 0 then
  24300. pTDefRegMap(@Self)^.clr := $00000010
  24301. else
  24302. pTDefRegMap(@Self)^.&set := $00000010;
  24303. end;
  24304. function TTMR1_T1CON.getTCKPS0 : TBits_1; inline;
  24305. begin
  24306. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24307. end;
  24308. procedure TTMR1_T1CON.setTCKPS1; inline;
  24309. begin
  24310. pTDefRegMap(@Self)^.&set := $00000020;
  24311. end;
  24312. procedure TTMR1_T1CON.clearTCKPS1; inline;
  24313. begin
  24314. pTDefRegMap(@Self)^.clr := $00000020;
  24315. end;
  24316. procedure TTMR1_T1CON.setTCKPS1(thebits : TBits_1); inline;
  24317. begin
  24318. if thebits = 0 then
  24319. pTDefRegMap(@Self)^.clr := $00000020
  24320. else
  24321. pTDefRegMap(@Self)^.&set := $00000020;
  24322. end;
  24323. function TTMR1_T1CON.getTCKPS1 : TBits_1; inline;
  24324. begin
  24325. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24326. end;
  24327. procedure TTMR1_T1CON.setTSIDL; inline;
  24328. begin
  24329. pTDefRegMap(@Self)^.&set := $00002000;
  24330. end;
  24331. procedure TTMR1_T1CON.clearTSIDL; inline;
  24332. begin
  24333. pTDefRegMap(@Self)^.clr := $00002000;
  24334. end;
  24335. procedure TTMR1_T1CON.setTSIDL(thebits : TBits_1); inline;
  24336. begin
  24337. if thebits = 0 then
  24338. pTDefRegMap(@Self)^.clr := $00002000
  24339. else
  24340. pTDefRegMap(@Self)^.&set := $00002000;
  24341. end;
  24342. function TTMR1_T1CON.getTSIDL : TBits_1; inline;
  24343. begin
  24344. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24345. end;
  24346. procedure TTMR1_T1CON.setTON; inline;
  24347. begin
  24348. pTDefRegMap(@Self)^.&set := $00008000;
  24349. end;
  24350. procedure TTMR1_T1CON.clearTON; inline;
  24351. begin
  24352. pTDefRegMap(@Self)^.clr := $00008000;
  24353. end;
  24354. procedure TTMR1_T1CON.setTON(thebits : TBits_1); inline;
  24355. begin
  24356. if thebits = 0 then
  24357. pTDefRegMap(@Self)^.clr := $00008000
  24358. else
  24359. pTDefRegMap(@Self)^.&set := $00008000;
  24360. end;
  24361. function TTMR1_T1CON.getTON : TBits_1; inline;
  24362. begin
  24363. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24364. end;
  24365. procedure TTMR1_T1CON.setw(thebits : TBits_32); inline;
  24366. begin
  24367. pTDefRegMap(@Self)^.val := thebits;
  24368. end;
  24369. function TTMR1_T1CON.getw : TBits_32; inline;
  24370. begin
  24371. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24372. end;
  24373. procedure TTMR2_T2CON.setTCS; inline;
  24374. begin
  24375. pTDefRegMap(@Self)^.&set := $00000002;
  24376. end;
  24377. procedure TTMR2_T2CON.clearTCS; inline;
  24378. begin
  24379. pTDefRegMap(@Self)^.clr := $00000002;
  24380. end;
  24381. procedure TTMR2_T2CON.setTCS(thebits : TBits_1); inline;
  24382. begin
  24383. if thebits = 0 then
  24384. pTDefRegMap(@Self)^.clr := $00000002
  24385. else
  24386. pTDefRegMap(@Self)^.&set := $00000002;
  24387. end;
  24388. function TTMR2_T2CON.getTCS : TBits_1; inline;
  24389. begin
  24390. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  24391. end;
  24392. procedure TTMR2_T2CON.setT32; inline;
  24393. begin
  24394. pTDefRegMap(@Self)^.&set := $00000008;
  24395. end;
  24396. procedure TTMR2_T2CON.clearT32; inline;
  24397. begin
  24398. pTDefRegMap(@Self)^.clr := $00000008;
  24399. end;
  24400. procedure TTMR2_T2CON.setT32(thebits : TBits_1); inline;
  24401. begin
  24402. if thebits = 0 then
  24403. pTDefRegMap(@Self)^.clr := $00000008
  24404. else
  24405. pTDefRegMap(@Self)^.&set := $00000008;
  24406. end;
  24407. function TTMR2_T2CON.getT32 : TBits_1; inline;
  24408. begin
  24409. getT32 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  24410. end;
  24411. procedure TTMR2_T2CON.setTCKPS(thebits : TBits_3); inline;
  24412. begin
  24413. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  24414. end;
  24415. function TTMR2_T2CON.getTCKPS : TBits_3; inline;
  24416. begin
  24417. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  24418. end;
  24419. procedure TTMR2_T2CON.setTGATE; inline;
  24420. begin
  24421. pTDefRegMap(@Self)^.&set := $00000080;
  24422. end;
  24423. procedure TTMR2_T2CON.clearTGATE; inline;
  24424. begin
  24425. pTDefRegMap(@Self)^.clr := $00000080;
  24426. end;
  24427. procedure TTMR2_T2CON.setTGATE(thebits : TBits_1); inline;
  24428. begin
  24429. if thebits = 0 then
  24430. pTDefRegMap(@Self)^.clr := $00000080
  24431. else
  24432. pTDefRegMap(@Self)^.&set := $00000080;
  24433. end;
  24434. function TTMR2_T2CON.getTGATE : TBits_1; inline;
  24435. begin
  24436. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24437. end;
  24438. procedure TTMR2_T2CON.setSIDL; inline;
  24439. begin
  24440. pTDefRegMap(@Self)^.&set := $00002000;
  24441. end;
  24442. procedure TTMR2_T2CON.clearSIDL; inline;
  24443. begin
  24444. pTDefRegMap(@Self)^.clr := $00002000;
  24445. end;
  24446. procedure TTMR2_T2CON.setSIDL(thebits : TBits_1); inline;
  24447. begin
  24448. if thebits = 0 then
  24449. pTDefRegMap(@Self)^.clr := $00002000
  24450. else
  24451. pTDefRegMap(@Self)^.&set := $00002000;
  24452. end;
  24453. function TTMR2_T2CON.getSIDL : TBits_1; inline;
  24454. begin
  24455. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24456. end;
  24457. procedure TTMR2_T2CON.setON; inline;
  24458. begin
  24459. pTDefRegMap(@Self)^.&set := $00008000;
  24460. end;
  24461. procedure TTMR2_T2CON.clearON; inline;
  24462. begin
  24463. pTDefRegMap(@Self)^.clr := $00008000;
  24464. end;
  24465. procedure TTMR2_T2CON.setON(thebits : TBits_1); inline;
  24466. begin
  24467. if thebits = 0 then
  24468. pTDefRegMap(@Self)^.clr := $00008000
  24469. else
  24470. pTDefRegMap(@Self)^.&set := $00008000;
  24471. end;
  24472. function TTMR2_T2CON.getON : TBits_1; inline;
  24473. begin
  24474. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24475. end;
  24476. procedure TTMR2_T2CON.setTCKPS0; inline;
  24477. begin
  24478. pTDefRegMap(@Self)^.&set := $00000010;
  24479. end;
  24480. procedure TTMR2_T2CON.clearTCKPS0; inline;
  24481. begin
  24482. pTDefRegMap(@Self)^.clr := $00000010;
  24483. end;
  24484. procedure TTMR2_T2CON.setTCKPS0(thebits : TBits_1); inline;
  24485. begin
  24486. if thebits = 0 then
  24487. pTDefRegMap(@Self)^.clr := $00000010
  24488. else
  24489. pTDefRegMap(@Self)^.&set := $00000010;
  24490. end;
  24491. function TTMR2_T2CON.getTCKPS0 : TBits_1; inline;
  24492. begin
  24493. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24494. end;
  24495. procedure TTMR2_T2CON.setTCKPS1; inline;
  24496. begin
  24497. pTDefRegMap(@Self)^.&set := $00000020;
  24498. end;
  24499. procedure TTMR2_T2CON.clearTCKPS1; inline;
  24500. begin
  24501. pTDefRegMap(@Self)^.clr := $00000020;
  24502. end;
  24503. procedure TTMR2_T2CON.setTCKPS1(thebits : TBits_1); inline;
  24504. begin
  24505. if thebits = 0 then
  24506. pTDefRegMap(@Self)^.clr := $00000020
  24507. else
  24508. pTDefRegMap(@Self)^.&set := $00000020;
  24509. end;
  24510. function TTMR2_T2CON.getTCKPS1 : TBits_1; inline;
  24511. begin
  24512. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24513. end;
  24514. procedure TTMR2_T2CON.setTCKPS2; inline;
  24515. begin
  24516. pTDefRegMap(@Self)^.&set := $00000040;
  24517. end;
  24518. procedure TTMR2_T2CON.clearTCKPS2; inline;
  24519. begin
  24520. pTDefRegMap(@Self)^.clr := $00000040;
  24521. end;
  24522. procedure TTMR2_T2CON.setTCKPS2(thebits : TBits_1); inline;
  24523. begin
  24524. if thebits = 0 then
  24525. pTDefRegMap(@Self)^.clr := $00000040
  24526. else
  24527. pTDefRegMap(@Self)^.&set := $00000040;
  24528. end;
  24529. function TTMR2_T2CON.getTCKPS2 : TBits_1; inline;
  24530. begin
  24531. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24532. end;
  24533. procedure TTMR2_T2CON.setTSIDL; inline;
  24534. begin
  24535. pTDefRegMap(@Self)^.&set := $00002000;
  24536. end;
  24537. procedure TTMR2_T2CON.clearTSIDL; inline;
  24538. begin
  24539. pTDefRegMap(@Self)^.clr := $00002000;
  24540. end;
  24541. procedure TTMR2_T2CON.setTSIDL(thebits : TBits_1); inline;
  24542. begin
  24543. if thebits = 0 then
  24544. pTDefRegMap(@Self)^.clr := $00002000
  24545. else
  24546. pTDefRegMap(@Self)^.&set := $00002000;
  24547. end;
  24548. function TTMR2_T2CON.getTSIDL : TBits_1; inline;
  24549. begin
  24550. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24551. end;
  24552. procedure TTMR2_T2CON.setTON; inline;
  24553. begin
  24554. pTDefRegMap(@Self)^.&set := $00008000;
  24555. end;
  24556. procedure TTMR2_T2CON.clearTON; inline;
  24557. begin
  24558. pTDefRegMap(@Self)^.clr := $00008000;
  24559. end;
  24560. procedure TTMR2_T2CON.setTON(thebits : TBits_1); inline;
  24561. begin
  24562. if thebits = 0 then
  24563. pTDefRegMap(@Self)^.clr := $00008000
  24564. else
  24565. pTDefRegMap(@Self)^.&set := $00008000;
  24566. end;
  24567. function TTMR2_T2CON.getTON : TBits_1; inline;
  24568. begin
  24569. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24570. end;
  24571. procedure TTMR2_T2CON.setw(thebits : TBits_32); inline;
  24572. begin
  24573. pTDefRegMap(@Self)^.val := thebits;
  24574. end;
  24575. function TTMR2_T2CON.getw : TBits_32; inline;
  24576. begin
  24577. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24578. end;
  24579. procedure TTMR3_T3CON.setTCS; inline;
  24580. begin
  24581. pTDefRegMap(@Self)^.&set := $00000002;
  24582. end;
  24583. procedure TTMR3_T3CON.clearTCS; inline;
  24584. begin
  24585. pTDefRegMap(@Self)^.clr := $00000002;
  24586. end;
  24587. procedure TTMR3_T3CON.setTCS(thebits : TBits_1); inline;
  24588. begin
  24589. if thebits = 0 then
  24590. pTDefRegMap(@Self)^.clr := $00000002
  24591. else
  24592. pTDefRegMap(@Self)^.&set := $00000002;
  24593. end;
  24594. function TTMR3_T3CON.getTCS : TBits_1; inline;
  24595. begin
  24596. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  24597. end;
  24598. procedure TTMR3_T3CON.setTCKPS(thebits : TBits_3); inline;
  24599. begin
  24600. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  24601. end;
  24602. function TTMR3_T3CON.getTCKPS : TBits_3; inline;
  24603. begin
  24604. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  24605. end;
  24606. procedure TTMR3_T3CON.setTGATE; inline;
  24607. begin
  24608. pTDefRegMap(@Self)^.&set := $00000080;
  24609. end;
  24610. procedure TTMR3_T3CON.clearTGATE; inline;
  24611. begin
  24612. pTDefRegMap(@Self)^.clr := $00000080;
  24613. end;
  24614. procedure TTMR3_T3CON.setTGATE(thebits : TBits_1); inline;
  24615. begin
  24616. if thebits = 0 then
  24617. pTDefRegMap(@Self)^.clr := $00000080
  24618. else
  24619. pTDefRegMap(@Self)^.&set := $00000080;
  24620. end;
  24621. function TTMR3_T3CON.getTGATE : TBits_1; inline;
  24622. begin
  24623. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24624. end;
  24625. procedure TTMR3_T3CON.setSIDL; inline;
  24626. begin
  24627. pTDefRegMap(@Self)^.&set := $00002000;
  24628. end;
  24629. procedure TTMR3_T3CON.clearSIDL; inline;
  24630. begin
  24631. pTDefRegMap(@Self)^.clr := $00002000;
  24632. end;
  24633. procedure TTMR3_T3CON.setSIDL(thebits : TBits_1); inline;
  24634. begin
  24635. if thebits = 0 then
  24636. pTDefRegMap(@Self)^.clr := $00002000
  24637. else
  24638. pTDefRegMap(@Self)^.&set := $00002000;
  24639. end;
  24640. function TTMR3_T3CON.getSIDL : TBits_1; inline;
  24641. begin
  24642. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24643. end;
  24644. procedure TTMR3_T3CON.setON; inline;
  24645. begin
  24646. pTDefRegMap(@Self)^.&set := $00008000;
  24647. end;
  24648. procedure TTMR3_T3CON.clearON; inline;
  24649. begin
  24650. pTDefRegMap(@Self)^.clr := $00008000;
  24651. end;
  24652. procedure TTMR3_T3CON.setON(thebits : TBits_1); inline;
  24653. begin
  24654. if thebits = 0 then
  24655. pTDefRegMap(@Self)^.clr := $00008000
  24656. else
  24657. pTDefRegMap(@Self)^.&set := $00008000;
  24658. end;
  24659. function TTMR3_T3CON.getON : TBits_1; inline;
  24660. begin
  24661. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24662. end;
  24663. procedure TTMR3_T3CON.setTCKPS0; inline;
  24664. begin
  24665. pTDefRegMap(@Self)^.&set := $00000010;
  24666. end;
  24667. procedure TTMR3_T3CON.clearTCKPS0; inline;
  24668. begin
  24669. pTDefRegMap(@Self)^.clr := $00000010;
  24670. end;
  24671. procedure TTMR3_T3CON.setTCKPS0(thebits : TBits_1); inline;
  24672. begin
  24673. if thebits = 0 then
  24674. pTDefRegMap(@Self)^.clr := $00000010
  24675. else
  24676. pTDefRegMap(@Self)^.&set := $00000010;
  24677. end;
  24678. function TTMR3_T3CON.getTCKPS0 : TBits_1; inline;
  24679. begin
  24680. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24681. end;
  24682. procedure TTMR3_T3CON.setTCKPS1; inline;
  24683. begin
  24684. pTDefRegMap(@Self)^.&set := $00000020;
  24685. end;
  24686. procedure TTMR3_T3CON.clearTCKPS1; inline;
  24687. begin
  24688. pTDefRegMap(@Self)^.clr := $00000020;
  24689. end;
  24690. procedure TTMR3_T3CON.setTCKPS1(thebits : TBits_1); inline;
  24691. begin
  24692. if thebits = 0 then
  24693. pTDefRegMap(@Self)^.clr := $00000020
  24694. else
  24695. pTDefRegMap(@Self)^.&set := $00000020;
  24696. end;
  24697. function TTMR3_T3CON.getTCKPS1 : TBits_1; inline;
  24698. begin
  24699. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24700. end;
  24701. procedure TTMR3_T3CON.setTCKPS2; inline;
  24702. begin
  24703. pTDefRegMap(@Self)^.&set := $00000040;
  24704. end;
  24705. procedure TTMR3_T3CON.clearTCKPS2; inline;
  24706. begin
  24707. pTDefRegMap(@Self)^.clr := $00000040;
  24708. end;
  24709. procedure TTMR3_T3CON.setTCKPS2(thebits : TBits_1); inline;
  24710. begin
  24711. if thebits = 0 then
  24712. pTDefRegMap(@Self)^.clr := $00000040
  24713. else
  24714. pTDefRegMap(@Self)^.&set := $00000040;
  24715. end;
  24716. function TTMR3_T3CON.getTCKPS2 : TBits_1; inline;
  24717. begin
  24718. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24719. end;
  24720. procedure TTMR3_T3CON.setTSIDL; inline;
  24721. begin
  24722. pTDefRegMap(@Self)^.&set := $00002000;
  24723. end;
  24724. procedure TTMR3_T3CON.clearTSIDL; inline;
  24725. begin
  24726. pTDefRegMap(@Self)^.clr := $00002000;
  24727. end;
  24728. procedure TTMR3_T3CON.setTSIDL(thebits : TBits_1); inline;
  24729. begin
  24730. if thebits = 0 then
  24731. pTDefRegMap(@Self)^.clr := $00002000
  24732. else
  24733. pTDefRegMap(@Self)^.&set := $00002000;
  24734. end;
  24735. function TTMR3_T3CON.getTSIDL : TBits_1; inline;
  24736. begin
  24737. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24738. end;
  24739. procedure TTMR3_T3CON.setTON; inline;
  24740. begin
  24741. pTDefRegMap(@Self)^.&set := $00008000;
  24742. end;
  24743. procedure TTMR3_T3CON.clearTON; inline;
  24744. begin
  24745. pTDefRegMap(@Self)^.clr := $00008000;
  24746. end;
  24747. procedure TTMR3_T3CON.setTON(thebits : TBits_1); inline;
  24748. begin
  24749. if thebits = 0 then
  24750. pTDefRegMap(@Self)^.clr := $00008000
  24751. else
  24752. pTDefRegMap(@Self)^.&set := $00008000;
  24753. end;
  24754. function TTMR3_T3CON.getTON : TBits_1; inline;
  24755. begin
  24756. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24757. end;
  24758. procedure TTMR3_T3CON.setw(thebits : TBits_32); inline;
  24759. begin
  24760. pTDefRegMap(@Self)^.val := thebits;
  24761. end;
  24762. function TTMR3_T3CON.getw : TBits_32; inline;
  24763. begin
  24764. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24765. end;
  24766. procedure TTMR4_T4CON.setTCS; inline;
  24767. begin
  24768. pTDefRegMap(@Self)^.&set := $00000002;
  24769. end;
  24770. procedure TTMR4_T4CON.clearTCS; inline;
  24771. begin
  24772. pTDefRegMap(@Self)^.clr := $00000002;
  24773. end;
  24774. procedure TTMR4_T4CON.setTCS(thebits : TBits_1); inline;
  24775. begin
  24776. if thebits = 0 then
  24777. pTDefRegMap(@Self)^.clr := $00000002
  24778. else
  24779. pTDefRegMap(@Self)^.&set := $00000002;
  24780. end;
  24781. function TTMR4_T4CON.getTCS : TBits_1; inline;
  24782. begin
  24783. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  24784. end;
  24785. procedure TTMR4_T4CON.setT32; inline;
  24786. begin
  24787. pTDefRegMap(@Self)^.&set := $00000008;
  24788. end;
  24789. procedure TTMR4_T4CON.clearT32; inline;
  24790. begin
  24791. pTDefRegMap(@Self)^.clr := $00000008;
  24792. end;
  24793. procedure TTMR4_T4CON.setT32(thebits : TBits_1); inline;
  24794. begin
  24795. if thebits = 0 then
  24796. pTDefRegMap(@Self)^.clr := $00000008
  24797. else
  24798. pTDefRegMap(@Self)^.&set := $00000008;
  24799. end;
  24800. function TTMR4_T4CON.getT32 : TBits_1; inline;
  24801. begin
  24802. getT32 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  24803. end;
  24804. procedure TTMR4_T4CON.setTCKPS(thebits : TBits_3); inline;
  24805. begin
  24806. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  24807. end;
  24808. function TTMR4_T4CON.getTCKPS : TBits_3; inline;
  24809. begin
  24810. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  24811. end;
  24812. procedure TTMR4_T4CON.setTGATE; inline;
  24813. begin
  24814. pTDefRegMap(@Self)^.&set := $00000080;
  24815. end;
  24816. procedure TTMR4_T4CON.clearTGATE; inline;
  24817. begin
  24818. pTDefRegMap(@Self)^.clr := $00000080;
  24819. end;
  24820. procedure TTMR4_T4CON.setTGATE(thebits : TBits_1); inline;
  24821. begin
  24822. if thebits = 0 then
  24823. pTDefRegMap(@Self)^.clr := $00000080
  24824. else
  24825. pTDefRegMap(@Self)^.&set := $00000080;
  24826. end;
  24827. function TTMR4_T4CON.getTGATE : TBits_1; inline;
  24828. begin
  24829. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24830. end;
  24831. procedure TTMR4_T4CON.setSIDL; inline;
  24832. begin
  24833. pTDefRegMap(@Self)^.&set := $00002000;
  24834. end;
  24835. procedure TTMR4_T4CON.clearSIDL; inline;
  24836. begin
  24837. pTDefRegMap(@Self)^.clr := $00002000;
  24838. end;
  24839. procedure TTMR4_T4CON.setSIDL(thebits : TBits_1); inline;
  24840. begin
  24841. if thebits = 0 then
  24842. pTDefRegMap(@Self)^.clr := $00002000
  24843. else
  24844. pTDefRegMap(@Self)^.&set := $00002000;
  24845. end;
  24846. function TTMR4_T4CON.getSIDL : TBits_1; inline;
  24847. begin
  24848. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24849. end;
  24850. procedure TTMR4_T4CON.setON; inline;
  24851. begin
  24852. pTDefRegMap(@Self)^.&set := $00008000;
  24853. end;
  24854. procedure TTMR4_T4CON.clearON; inline;
  24855. begin
  24856. pTDefRegMap(@Self)^.clr := $00008000;
  24857. end;
  24858. procedure TTMR4_T4CON.setON(thebits : TBits_1); inline;
  24859. begin
  24860. if thebits = 0 then
  24861. pTDefRegMap(@Self)^.clr := $00008000
  24862. else
  24863. pTDefRegMap(@Self)^.&set := $00008000;
  24864. end;
  24865. function TTMR4_T4CON.getON : TBits_1; inline;
  24866. begin
  24867. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24868. end;
  24869. procedure TTMR4_T4CON.setTCKPS0; inline;
  24870. begin
  24871. pTDefRegMap(@Self)^.&set := $00000010;
  24872. end;
  24873. procedure TTMR4_T4CON.clearTCKPS0; inline;
  24874. begin
  24875. pTDefRegMap(@Self)^.clr := $00000010;
  24876. end;
  24877. procedure TTMR4_T4CON.setTCKPS0(thebits : TBits_1); inline;
  24878. begin
  24879. if thebits = 0 then
  24880. pTDefRegMap(@Self)^.clr := $00000010
  24881. else
  24882. pTDefRegMap(@Self)^.&set := $00000010;
  24883. end;
  24884. function TTMR4_T4CON.getTCKPS0 : TBits_1; inline;
  24885. begin
  24886. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24887. end;
  24888. procedure TTMR4_T4CON.setTCKPS1; inline;
  24889. begin
  24890. pTDefRegMap(@Self)^.&set := $00000020;
  24891. end;
  24892. procedure TTMR4_T4CON.clearTCKPS1; inline;
  24893. begin
  24894. pTDefRegMap(@Self)^.clr := $00000020;
  24895. end;
  24896. procedure TTMR4_T4CON.setTCKPS1(thebits : TBits_1); inline;
  24897. begin
  24898. if thebits = 0 then
  24899. pTDefRegMap(@Self)^.clr := $00000020
  24900. else
  24901. pTDefRegMap(@Self)^.&set := $00000020;
  24902. end;
  24903. function TTMR4_T4CON.getTCKPS1 : TBits_1; inline;
  24904. begin
  24905. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24906. end;
  24907. procedure TTMR4_T4CON.setTCKPS2; inline;
  24908. begin
  24909. pTDefRegMap(@Self)^.&set := $00000040;
  24910. end;
  24911. procedure TTMR4_T4CON.clearTCKPS2; inline;
  24912. begin
  24913. pTDefRegMap(@Self)^.clr := $00000040;
  24914. end;
  24915. procedure TTMR4_T4CON.setTCKPS2(thebits : TBits_1); inline;
  24916. begin
  24917. if thebits = 0 then
  24918. pTDefRegMap(@Self)^.clr := $00000040
  24919. else
  24920. pTDefRegMap(@Self)^.&set := $00000040;
  24921. end;
  24922. function TTMR4_T4CON.getTCKPS2 : TBits_1; inline;
  24923. begin
  24924. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24925. end;
  24926. procedure TTMR4_T4CON.setTSIDL; inline;
  24927. begin
  24928. pTDefRegMap(@Self)^.&set := $00002000;
  24929. end;
  24930. procedure TTMR4_T4CON.clearTSIDL; inline;
  24931. begin
  24932. pTDefRegMap(@Self)^.clr := $00002000;
  24933. end;
  24934. procedure TTMR4_T4CON.setTSIDL(thebits : TBits_1); inline;
  24935. begin
  24936. if thebits = 0 then
  24937. pTDefRegMap(@Self)^.clr := $00002000
  24938. else
  24939. pTDefRegMap(@Self)^.&set := $00002000;
  24940. end;
  24941. function TTMR4_T4CON.getTSIDL : TBits_1; inline;
  24942. begin
  24943. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24944. end;
  24945. procedure TTMR4_T4CON.setTON; inline;
  24946. begin
  24947. pTDefRegMap(@Self)^.&set := $00008000;
  24948. end;
  24949. procedure TTMR4_T4CON.clearTON; inline;
  24950. begin
  24951. pTDefRegMap(@Self)^.clr := $00008000;
  24952. end;
  24953. procedure TTMR4_T4CON.setTON(thebits : TBits_1); inline;
  24954. begin
  24955. if thebits = 0 then
  24956. pTDefRegMap(@Self)^.clr := $00008000
  24957. else
  24958. pTDefRegMap(@Self)^.&set := $00008000;
  24959. end;
  24960. function TTMR4_T4CON.getTON : TBits_1; inline;
  24961. begin
  24962. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24963. end;
  24964. procedure TTMR4_T4CON.setw(thebits : TBits_32); inline;
  24965. begin
  24966. pTDefRegMap(@Self)^.val := thebits;
  24967. end;
  24968. function TTMR4_T4CON.getw : TBits_32; inline;
  24969. begin
  24970. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24971. end;
  24972. procedure TTMR5_T5CON.setTCS; inline;
  24973. begin
  24974. pTDefRegMap(@Self)^.&set := $00000002;
  24975. end;
  24976. procedure TTMR5_T5CON.clearTCS; inline;
  24977. begin
  24978. pTDefRegMap(@Self)^.clr := $00000002;
  24979. end;
  24980. procedure TTMR5_T5CON.setTCS(thebits : TBits_1); inline;
  24981. begin
  24982. if thebits = 0 then
  24983. pTDefRegMap(@Self)^.clr := $00000002
  24984. else
  24985. pTDefRegMap(@Self)^.&set := $00000002;
  24986. end;
  24987. function TTMR5_T5CON.getTCS : TBits_1; inline;
  24988. begin
  24989. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  24990. end;
  24991. procedure TTMR5_T5CON.setTCKPS(thebits : TBits_3); inline;
  24992. begin
  24993. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  24994. end;
  24995. function TTMR5_T5CON.getTCKPS : TBits_3; inline;
  24996. begin
  24997. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  24998. end;
  24999. procedure TTMR5_T5CON.setTGATE; inline;
  25000. begin
  25001. pTDefRegMap(@Self)^.&set := $00000080;
  25002. end;
  25003. procedure TTMR5_T5CON.clearTGATE; inline;
  25004. begin
  25005. pTDefRegMap(@Self)^.clr := $00000080;
  25006. end;
  25007. procedure TTMR5_T5CON.setTGATE(thebits : TBits_1); inline;
  25008. begin
  25009. if thebits = 0 then
  25010. pTDefRegMap(@Self)^.clr := $00000080
  25011. else
  25012. pTDefRegMap(@Self)^.&set := $00000080;
  25013. end;
  25014. function TTMR5_T5CON.getTGATE : TBits_1; inline;
  25015. begin
  25016. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  25017. end;
  25018. procedure TTMR5_T5CON.setSIDL; inline;
  25019. begin
  25020. pTDefRegMap(@Self)^.&set := $00002000;
  25021. end;
  25022. procedure TTMR5_T5CON.clearSIDL; inline;
  25023. begin
  25024. pTDefRegMap(@Self)^.clr := $00002000;
  25025. end;
  25026. procedure TTMR5_T5CON.setSIDL(thebits : TBits_1); inline;
  25027. begin
  25028. if thebits = 0 then
  25029. pTDefRegMap(@Self)^.clr := $00002000
  25030. else
  25031. pTDefRegMap(@Self)^.&set := $00002000;
  25032. end;
  25033. function TTMR5_T5CON.getSIDL : TBits_1; inline;
  25034. begin
  25035. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25036. end;
  25037. procedure TTMR5_T5CON.setON; inline;
  25038. begin
  25039. pTDefRegMap(@Self)^.&set := $00008000;
  25040. end;
  25041. procedure TTMR5_T5CON.clearON; inline;
  25042. begin
  25043. pTDefRegMap(@Self)^.clr := $00008000;
  25044. end;
  25045. procedure TTMR5_T5CON.setON(thebits : TBits_1); inline;
  25046. begin
  25047. if thebits = 0 then
  25048. pTDefRegMap(@Self)^.clr := $00008000
  25049. else
  25050. pTDefRegMap(@Self)^.&set := $00008000;
  25051. end;
  25052. function TTMR5_T5CON.getON : TBits_1; inline;
  25053. begin
  25054. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25055. end;
  25056. procedure TTMR5_T5CON.setTCKPS0; inline;
  25057. begin
  25058. pTDefRegMap(@Self)^.&set := $00000010;
  25059. end;
  25060. procedure TTMR5_T5CON.clearTCKPS0; inline;
  25061. begin
  25062. pTDefRegMap(@Self)^.clr := $00000010;
  25063. end;
  25064. procedure TTMR5_T5CON.setTCKPS0(thebits : TBits_1); inline;
  25065. begin
  25066. if thebits = 0 then
  25067. pTDefRegMap(@Self)^.clr := $00000010
  25068. else
  25069. pTDefRegMap(@Self)^.&set := $00000010;
  25070. end;
  25071. function TTMR5_T5CON.getTCKPS0 : TBits_1; inline;
  25072. begin
  25073. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  25074. end;
  25075. procedure TTMR5_T5CON.setTCKPS1; inline;
  25076. begin
  25077. pTDefRegMap(@Self)^.&set := $00000020;
  25078. end;
  25079. procedure TTMR5_T5CON.clearTCKPS1; inline;
  25080. begin
  25081. pTDefRegMap(@Self)^.clr := $00000020;
  25082. end;
  25083. procedure TTMR5_T5CON.setTCKPS1(thebits : TBits_1); inline;
  25084. begin
  25085. if thebits = 0 then
  25086. pTDefRegMap(@Self)^.clr := $00000020
  25087. else
  25088. pTDefRegMap(@Self)^.&set := $00000020;
  25089. end;
  25090. function TTMR5_T5CON.getTCKPS1 : TBits_1; inline;
  25091. begin
  25092. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  25093. end;
  25094. procedure TTMR5_T5CON.setTCKPS2; inline;
  25095. begin
  25096. pTDefRegMap(@Self)^.&set := $00000040;
  25097. end;
  25098. procedure TTMR5_T5CON.clearTCKPS2; inline;
  25099. begin
  25100. pTDefRegMap(@Self)^.clr := $00000040;
  25101. end;
  25102. procedure TTMR5_T5CON.setTCKPS2(thebits : TBits_1); inline;
  25103. begin
  25104. if thebits = 0 then
  25105. pTDefRegMap(@Self)^.clr := $00000040
  25106. else
  25107. pTDefRegMap(@Self)^.&set := $00000040;
  25108. end;
  25109. function TTMR5_T5CON.getTCKPS2 : TBits_1; inline;
  25110. begin
  25111. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  25112. end;
  25113. procedure TTMR5_T5CON.setTSIDL; inline;
  25114. begin
  25115. pTDefRegMap(@Self)^.&set := $00002000;
  25116. end;
  25117. procedure TTMR5_T5CON.clearTSIDL; inline;
  25118. begin
  25119. pTDefRegMap(@Self)^.clr := $00002000;
  25120. end;
  25121. procedure TTMR5_T5CON.setTSIDL(thebits : TBits_1); inline;
  25122. begin
  25123. if thebits = 0 then
  25124. pTDefRegMap(@Self)^.clr := $00002000
  25125. else
  25126. pTDefRegMap(@Self)^.&set := $00002000;
  25127. end;
  25128. function TTMR5_T5CON.getTSIDL : TBits_1; inline;
  25129. begin
  25130. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25131. end;
  25132. procedure TTMR5_T5CON.setTON; inline;
  25133. begin
  25134. pTDefRegMap(@Self)^.&set := $00008000;
  25135. end;
  25136. procedure TTMR5_T5CON.clearTON; inline;
  25137. begin
  25138. pTDefRegMap(@Self)^.clr := $00008000;
  25139. end;
  25140. procedure TTMR5_T5CON.setTON(thebits : TBits_1); inline;
  25141. begin
  25142. if thebits = 0 then
  25143. pTDefRegMap(@Self)^.clr := $00008000
  25144. else
  25145. pTDefRegMap(@Self)^.&set := $00008000;
  25146. end;
  25147. function TTMR5_T5CON.getTON : TBits_1; inline;
  25148. begin
  25149. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25150. end;
  25151. procedure TTMR5_T5CON.setw(thebits : TBits_32); inline;
  25152. begin
  25153. pTDefRegMap(@Self)^.val := thebits;
  25154. end;
  25155. function TTMR5_T5CON.getw : TBits_32; inline;
  25156. begin
  25157. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25158. end;
  25159. procedure TICAP1_IC1CON.setICM(thebits : TBits_3); inline;
  25160. begin
  25161. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  25162. end;
  25163. function TICAP1_IC1CON.getICM : TBits_3; inline;
  25164. begin
  25165. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  25166. end;
  25167. procedure TICAP1_IC1CON.setICBNE; inline;
  25168. begin
  25169. pTDefRegMap(@Self)^.&set := $00000008;
  25170. end;
  25171. procedure TICAP1_IC1CON.clearICBNE; inline;
  25172. begin
  25173. pTDefRegMap(@Self)^.clr := $00000008;
  25174. end;
  25175. procedure TICAP1_IC1CON.setICBNE(thebits : TBits_1); inline;
  25176. begin
  25177. if thebits = 0 then
  25178. pTDefRegMap(@Self)^.clr := $00000008
  25179. else
  25180. pTDefRegMap(@Self)^.&set := $00000008;
  25181. end;
  25182. function TICAP1_IC1CON.getICBNE : TBits_1; inline;
  25183. begin
  25184. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  25185. end;
  25186. procedure TICAP1_IC1CON.setICOV; inline;
  25187. begin
  25188. pTDefRegMap(@Self)^.&set := $00000010;
  25189. end;
  25190. procedure TICAP1_IC1CON.clearICOV; inline;
  25191. begin
  25192. pTDefRegMap(@Self)^.clr := $00000010;
  25193. end;
  25194. procedure TICAP1_IC1CON.setICOV(thebits : TBits_1); inline;
  25195. begin
  25196. if thebits = 0 then
  25197. pTDefRegMap(@Self)^.clr := $00000010
  25198. else
  25199. pTDefRegMap(@Self)^.&set := $00000010;
  25200. end;
  25201. function TICAP1_IC1CON.getICOV : TBits_1; inline;
  25202. begin
  25203. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  25204. end;
  25205. procedure TICAP1_IC1CON.setICI(thebits : TBits_2); inline;
  25206. begin
  25207. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  25208. end;
  25209. function TICAP1_IC1CON.getICI : TBits_2; inline;
  25210. begin
  25211. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  25212. end;
  25213. procedure TICAP1_IC1CON.setICTMR; inline;
  25214. begin
  25215. pTDefRegMap(@Self)^.&set := $00000080;
  25216. end;
  25217. procedure TICAP1_IC1CON.clearICTMR; inline;
  25218. begin
  25219. pTDefRegMap(@Self)^.clr := $00000080;
  25220. end;
  25221. procedure TICAP1_IC1CON.setICTMR(thebits : TBits_1); inline;
  25222. begin
  25223. if thebits = 0 then
  25224. pTDefRegMap(@Self)^.clr := $00000080
  25225. else
  25226. pTDefRegMap(@Self)^.&set := $00000080;
  25227. end;
  25228. function TICAP1_IC1CON.getICTMR : TBits_1; inline;
  25229. begin
  25230. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  25231. end;
  25232. procedure TICAP1_IC1CON.setC32; inline;
  25233. begin
  25234. pTDefRegMap(@Self)^.&set := $00000100;
  25235. end;
  25236. procedure TICAP1_IC1CON.clearC32; inline;
  25237. begin
  25238. pTDefRegMap(@Self)^.clr := $00000100;
  25239. end;
  25240. procedure TICAP1_IC1CON.setC32(thebits : TBits_1); inline;
  25241. begin
  25242. if thebits = 0 then
  25243. pTDefRegMap(@Self)^.clr := $00000100
  25244. else
  25245. pTDefRegMap(@Self)^.&set := $00000100;
  25246. end;
  25247. function TICAP1_IC1CON.getC32 : TBits_1; inline;
  25248. begin
  25249. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  25250. end;
  25251. procedure TICAP1_IC1CON.setFEDGE; inline;
  25252. begin
  25253. pTDefRegMap(@Self)^.&set := $00000200;
  25254. end;
  25255. procedure TICAP1_IC1CON.clearFEDGE; inline;
  25256. begin
  25257. pTDefRegMap(@Self)^.clr := $00000200;
  25258. end;
  25259. procedure TICAP1_IC1CON.setFEDGE(thebits : TBits_1); inline;
  25260. begin
  25261. if thebits = 0 then
  25262. pTDefRegMap(@Self)^.clr := $00000200
  25263. else
  25264. pTDefRegMap(@Self)^.&set := $00000200;
  25265. end;
  25266. function TICAP1_IC1CON.getFEDGE : TBits_1; inline;
  25267. begin
  25268. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  25269. end;
  25270. procedure TICAP1_IC1CON.setSIDL; inline;
  25271. begin
  25272. pTDefRegMap(@Self)^.&set := $00002000;
  25273. end;
  25274. procedure TICAP1_IC1CON.clearSIDL; inline;
  25275. begin
  25276. pTDefRegMap(@Self)^.clr := $00002000;
  25277. end;
  25278. procedure TICAP1_IC1CON.setSIDL(thebits : TBits_1); inline;
  25279. begin
  25280. if thebits = 0 then
  25281. pTDefRegMap(@Self)^.clr := $00002000
  25282. else
  25283. pTDefRegMap(@Self)^.&set := $00002000;
  25284. end;
  25285. function TICAP1_IC1CON.getSIDL : TBits_1; inline;
  25286. begin
  25287. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25288. end;
  25289. procedure TICAP1_IC1CON.setON; inline;
  25290. begin
  25291. pTDefRegMap(@Self)^.&set := $00008000;
  25292. end;
  25293. procedure TICAP1_IC1CON.clearON; inline;
  25294. begin
  25295. pTDefRegMap(@Self)^.clr := $00008000;
  25296. end;
  25297. procedure TICAP1_IC1CON.setON(thebits : TBits_1); inline;
  25298. begin
  25299. if thebits = 0 then
  25300. pTDefRegMap(@Self)^.clr := $00008000
  25301. else
  25302. pTDefRegMap(@Self)^.&set := $00008000;
  25303. end;
  25304. function TICAP1_IC1CON.getON : TBits_1; inline;
  25305. begin
  25306. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25307. end;
  25308. procedure TICAP1_IC1CON.setICM0; inline;
  25309. begin
  25310. pTDefRegMap(@Self)^.&set := $00000001;
  25311. end;
  25312. procedure TICAP1_IC1CON.clearICM0; inline;
  25313. begin
  25314. pTDefRegMap(@Self)^.clr := $00000001;
  25315. end;
  25316. procedure TICAP1_IC1CON.setICM0(thebits : TBits_1); inline;
  25317. begin
  25318. if thebits = 0 then
  25319. pTDefRegMap(@Self)^.clr := $00000001
  25320. else
  25321. pTDefRegMap(@Self)^.&set := $00000001;
  25322. end;
  25323. function TICAP1_IC1CON.getICM0 : TBits_1; inline;
  25324. begin
  25325. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  25326. end;
  25327. procedure TICAP1_IC1CON.setICM1; inline;
  25328. begin
  25329. pTDefRegMap(@Self)^.&set := $00000002;
  25330. end;
  25331. procedure TICAP1_IC1CON.clearICM1; inline;
  25332. begin
  25333. pTDefRegMap(@Self)^.clr := $00000002;
  25334. end;
  25335. procedure TICAP1_IC1CON.setICM1(thebits : TBits_1); inline;
  25336. begin
  25337. if thebits = 0 then
  25338. pTDefRegMap(@Self)^.clr := $00000002
  25339. else
  25340. pTDefRegMap(@Self)^.&set := $00000002;
  25341. end;
  25342. function TICAP1_IC1CON.getICM1 : TBits_1; inline;
  25343. begin
  25344. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  25345. end;
  25346. procedure TICAP1_IC1CON.setICM2; inline;
  25347. begin
  25348. pTDefRegMap(@Self)^.&set := $00000004;
  25349. end;
  25350. procedure TICAP1_IC1CON.clearICM2; inline;
  25351. begin
  25352. pTDefRegMap(@Self)^.clr := $00000004;
  25353. end;
  25354. procedure TICAP1_IC1CON.setICM2(thebits : TBits_1); inline;
  25355. begin
  25356. if thebits = 0 then
  25357. pTDefRegMap(@Self)^.clr := $00000004
  25358. else
  25359. pTDefRegMap(@Self)^.&set := $00000004;
  25360. end;
  25361. function TICAP1_IC1CON.getICM2 : TBits_1; inline;
  25362. begin
  25363. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  25364. end;
  25365. procedure TICAP1_IC1CON.setICI0; inline;
  25366. begin
  25367. pTDefRegMap(@Self)^.&set := $00000020;
  25368. end;
  25369. procedure TICAP1_IC1CON.clearICI0; inline;
  25370. begin
  25371. pTDefRegMap(@Self)^.clr := $00000020;
  25372. end;
  25373. procedure TICAP1_IC1CON.setICI0(thebits : TBits_1); inline;
  25374. begin
  25375. if thebits = 0 then
  25376. pTDefRegMap(@Self)^.clr := $00000020
  25377. else
  25378. pTDefRegMap(@Self)^.&set := $00000020;
  25379. end;
  25380. function TICAP1_IC1CON.getICI0 : TBits_1; inline;
  25381. begin
  25382. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  25383. end;
  25384. procedure TICAP1_IC1CON.setICI1; inline;
  25385. begin
  25386. pTDefRegMap(@Self)^.&set := $00000040;
  25387. end;
  25388. procedure TICAP1_IC1CON.clearICI1; inline;
  25389. begin
  25390. pTDefRegMap(@Self)^.clr := $00000040;
  25391. end;
  25392. procedure TICAP1_IC1CON.setICI1(thebits : TBits_1); inline;
  25393. begin
  25394. if thebits = 0 then
  25395. pTDefRegMap(@Self)^.clr := $00000040
  25396. else
  25397. pTDefRegMap(@Self)^.&set := $00000040;
  25398. end;
  25399. function TICAP1_IC1CON.getICI1 : TBits_1; inline;
  25400. begin
  25401. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  25402. end;
  25403. procedure TICAP1_IC1CON.setICSIDL; inline;
  25404. begin
  25405. pTDefRegMap(@Self)^.&set := $00002000;
  25406. end;
  25407. procedure TICAP1_IC1CON.clearICSIDL; inline;
  25408. begin
  25409. pTDefRegMap(@Self)^.clr := $00002000;
  25410. end;
  25411. procedure TICAP1_IC1CON.setICSIDL(thebits : TBits_1); inline;
  25412. begin
  25413. if thebits = 0 then
  25414. pTDefRegMap(@Self)^.clr := $00002000
  25415. else
  25416. pTDefRegMap(@Self)^.&set := $00002000;
  25417. end;
  25418. function TICAP1_IC1CON.getICSIDL : TBits_1; inline;
  25419. begin
  25420. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25421. end;
  25422. procedure TICAP1_IC1CON.setw(thebits : TBits_32); inline;
  25423. begin
  25424. pTDefRegMap(@Self)^.val := thebits;
  25425. end;
  25426. function TICAP1_IC1CON.getw : TBits_32; inline;
  25427. begin
  25428. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25429. end;
  25430. procedure TICAP2_IC2CON.setICM(thebits : TBits_3); inline;
  25431. begin
  25432. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  25433. end;
  25434. function TICAP2_IC2CON.getICM : TBits_3; inline;
  25435. begin
  25436. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  25437. end;
  25438. procedure TICAP2_IC2CON.setICBNE; inline;
  25439. begin
  25440. pTDefRegMap(@Self)^.&set := $00000008;
  25441. end;
  25442. procedure TICAP2_IC2CON.clearICBNE; inline;
  25443. begin
  25444. pTDefRegMap(@Self)^.clr := $00000008;
  25445. end;
  25446. procedure TICAP2_IC2CON.setICBNE(thebits : TBits_1); inline;
  25447. begin
  25448. if thebits = 0 then
  25449. pTDefRegMap(@Self)^.clr := $00000008
  25450. else
  25451. pTDefRegMap(@Self)^.&set := $00000008;
  25452. end;
  25453. function TICAP2_IC2CON.getICBNE : TBits_1; inline;
  25454. begin
  25455. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  25456. end;
  25457. procedure TICAP2_IC2CON.setICOV; inline;
  25458. begin
  25459. pTDefRegMap(@Self)^.&set := $00000010;
  25460. end;
  25461. procedure TICAP2_IC2CON.clearICOV; inline;
  25462. begin
  25463. pTDefRegMap(@Self)^.clr := $00000010;
  25464. end;
  25465. procedure TICAP2_IC2CON.setICOV(thebits : TBits_1); inline;
  25466. begin
  25467. if thebits = 0 then
  25468. pTDefRegMap(@Self)^.clr := $00000010
  25469. else
  25470. pTDefRegMap(@Self)^.&set := $00000010;
  25471. end;
  25472. function TICAP2_IC2CON.getICOV : TBits_1; inline;
  25473. begin
  25474. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  25475. end;
  25476. procedure TICAP2_IC2CON.setICI(thebits : TBits_2); inline;
  25477. begin
  25478. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  25479. end;
  25480. function TICAP2_IC2CON.getICI : TBits_2; inline;
  25481. begin
  25482. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  25483. end;
  25484. procedure TICAP2_IC2CON.setICTMR; inline;
  25485. begin
  25486. pTDefRegMap(@Self)^.&set := $00000080;
  25487. end;
  25488. procedure TICAP2_IC2CON.clearICTMR; inline;
  25489. begin
  25490. pTDefRegMap(@Self)^.clr := $00000080;
  25491. end;
  25492. procedure TICAP2_IC2CON.setICTMR(thebits : TBits_1); inline;
  25493. begin
  25494. if thebits = 0 then
  25495. pTDefRegMap(@Self)^.clr := $00000080
  25496. else
  25497. pTDefRegMap(@Self)^.&set := $00000080;
  25498. end;
  25499. function TICAP2_IC2CON.getICTMR : TBits_1; inline;
  25500. begin
  25501. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  25502. end;
  25503. procedure TICAP2_IC2CON.setC32; inline;
  25504. begin
  25505. pTDefRegMap(@Self)^.&set := $00000100;
  25506. end;
  25507. procedure TICAP2_IC2CON.clearC32; inline;
  25508. begin
  25509. pTDefRegMap(@Self)^.clr := $00000100;
  25510. end;
  25511. procedure TICAP2_IC2CON.setC32(thebits : TBits_1); inline;
  25512. begin
  25513. if thebits = 0 then
  25514. pTDefRegMap(@Self)^.clr := $00000100
  25515. else
  25516. pTDefRegMap(@Self)^.&set := $00000100;
  25517. end;
  25518. function TICAP2_IC2CON.getC32 : TBits_1; inline;
  25519. begin
  25520. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  25521. end;
  25522. procedure TICAP2_IC2CON.setFEDGE; inline;
  25523. begin
  25524. pTDefRegMap(@Self)^.&set := $00000200;
  25525. end;
  25526. procedure TICAP2_IC2CON.clearFEDGE; inline;
  25527. begin
  25528. pTDefRegMap(@Self)^.clr := $00000200;
  25529. end;
  25530. procedure TICAP2_IC2CON.setFEDGE(thebits : TBits_1); inline;
  25531. begin
  25532. if thebits = 0 then
  25533. pTDefRegMap(@Self)^.clr := $00000200
  25534. else
  25535. pTDefRegMap(@Self)^.&set := $00000200;
  25536. end;
  25537. function TICAP2_IC2CON.getFEDGE : TBits_1; inline;
  25538. begin
  25539. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  25540. end;
  25541. procedure TICAP2_IC2CON.setSIDL; inline;
  25542. begin
  25543. pTDefRegMap(@Self)^.&set := $00002000;
  25544. end;
  25545. procedure TICAP2_IC2CON.clearSIDL; inline;
  25546. begin
  25547. pTDefRegMap(@Self)^.clr := $00002000;
  25548. end;
  25549. procedure TICAP2_IC2CON.setSIDL(thebits : TBits_1); inline;
  25550. begin
  25551. if thebits = 0 then
  25552. pTDefRegMap(@Self)^.clr := $00002000
  25553. else
  25554. pTDefRegMap(@Self)^.&set := $00002000;
  25555. end;
  25556. function TICAP2_IC2CON.getSIDL : TBits_1; inline;
  25557. begin
  25558. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25559. end;
  25560. procedure TICAP2_IC2CON.setON; inline;
  25561. begin
  25562. pTDefRegMap(@Self)^.&set := $00008000;
  25563. end;
  25564. procedure TICAP2_IC2CON.clearON; inline;
  25565. begin
  25566. pTDefRegMap(@Self)^.clr := $00008000;
  25567. end;
  25568. procedure TICAP2_IC2CON.setON(thebits : TBits_1); inline;
  25569. begin
  25570. if thebits = 0 then
  25571. pTDefRegMap(@Self)^.clr := $00008000
  25572. else
  25573. pTDefRegMap(@Self)^.&set := $00008000;
  25574. end;
  25575. function TICAP2_IC2CON.getON : TBits_1; inline;
  25576. begin
  25577. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25578. end;
  25579. procedure TICAP2_IC2CON.setICM0; inline;
  25580. begin
  25581. pTDefRegMap(@Self)^.&set := $00000001;
  25582. end;
  25583. procedure TICAP2_IC2CON.clearICM0; inline;
  25584. begin
  25585. pTDefRegMap(@Self)^.clr := $00000001;
  25586. end;
  25587. procedure TICAP2_IC2CON.setICM0(thebits : TBits_1); inline;
  25588. begin
  25589. if thebits = 0 then
  25590. pTDefRegMap(@Self)^.clr := $00000001
  25591. else
  25592. pTDefRegMap(@Self)^.&set := $00000001;
  25593. end;
  25594. function TICAP2_IC2CON.getICM0 : TBits_1; inline;
  25595. begin
  25596. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  25597. end;
  25598. procedure TICAP2_IC2CON.setICM1; inline;
  25599. begin
  25600. pTDefRegMap(@Self)^.&set := $00000002;
  25601. end;
  25602. procedure TICAP2_IC2CON.clearICM1; inline;
  25603. begin
  25604. pTDefRegMap(@Self)^.clr := $00000002;
  25605. end;
  25606. procedure TICAP2_IC2CON.setICM1(thebits : TBits_1); inline;
  25607. begin
  25608. if thebits = 0 then
  25609. pTDefRegMap(@Self)^.clr := $00000002
  25610. else
  25611. pTDefRegMap(@Self)^.&set := $00000002;
  25612. end;
  25613. function TICAP2_IC2CON.getICM1 : TBits_1; inline;
  25614. begin
  25615. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  25616. end;
  25617. procedure TICAP2_IC2CON.setICM2; inline;
  25618. begin
  25619. pTDefRegMap(@Self)^.&set := $00000004;
  25620. end;
  25621. procedure TICAP2_IC2CON.clearICM2; inline;
  25622. begin
  25623. pTDefRegMap(@Self)^.clr := $00000004;
  25624. end;
  25625. procedure TICAP2_IC2CON.setICM2(thebits : TBits_1); inline;
  25626. begin
  25627. if thebits = 0 then
  25628. pTDefRegMap(@Self)^.clr := $00000004
  25629. else
  25630. pTDefRegMap(@Self)^.&set := $00000004;
  25631. end;
  25632. function TICAP2_IC2CON.getICM2 : TBits_1; inline;
  25633. begin
  25634. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  25635. end;
  25636. procedure TICAP2_IC2CON.setICI0; inline;
  25637. begin
  25638. pTDefRegMap(@Self)^.&set := $00000020;
  25639. end;
  25640. procedure TICAP2_IC2CON.clearICI0; inline;
  25641. begin
  25642. pTDefRegMap(@Self)^.clr := $00000020;
  25643. end;
  25644. procedure TICAP2_IC2CON.setICI0(thebits : TBits_1); inline;
  25645. begin
  25646. if thebits = 0 then
  25647. pTDefRegMap(@Self)^.clr := $00000020
  25648. else
  25649. pTDefRegMap(@Self)^.&set := $00000020;
  25650. end;
  25651. function TICAP2_IC2CON.getICI0 : TBits_1; inline;
  25652. begin
  25653. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  25654. end;
  25655. procedure TICAP2_IC2CON.setICI1; inline;
  25656. begin
  25657. pTDefRegMap(@Self)^.&set := $00000040;
  25658. end;
  25659. procedure TICAP2_IC2CON.clearICI1; inline;
  25660. begin
  25661. pTDefRegMap(@Self)^.clr := $00000040;
  25662. end;
  25663. procedure TICAP2_IC2CON.setICI1(thebits : TBits_1); inline;
  25664. begin
  25665. if thebits = 0 then
  25666. pTDefRegMap(@Self)^.clr := $00000040
  25667. else
  25668. pTDefRegMap(@Self)^.&set := $00000040;
  25669. end;
  25670. function TICAP2_IC2CON.getICI1 : TBits_1; inline;
  25671. begin
  25672. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  25673. end;
  25674. procedure TICAP2_IC2CON.setICSIDL; inline;
  25675. begin
  25676. pTDefRegMap(@Self)^.&set := $00002000;
  25677. end;
  25678. procedure TICAP2_IC2CON.clearICSIDL; inline;
  25679. begin
  25680. pTDefRegMap(@Self)^.clr := $00002000;
  25681. end;
  25682. procedure TICAP2_IC2CON.setICSIDL(thebits : TBits_1); inline;
  25683. begin
  25684. if thebits = 0 then
  25685. pTDefRegMap(@Self)^.clr := $00002000
  25686. else
  25687. pTDefRegMap(@Self)^.&set := $00002000;
  25688. end;
  25689. function TICAP2_IC2CON.getICSIDL : TBits_1; inline;
  25690. begin
  25691. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25692. end;
  25693. procedure TICAP2_IC2CON.setw(thebits : TBits_32); inline;
  25694. begin
  25695. pTDefRegMap(@Self)^.val := thebits;
  25696. end;
  25697. function TICAP2_IC2CON.getw : TBits_32; inline;
  25698. begin
  25699. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25700. end;
  25701. procedure TICAP3_IC3CON.setICM(thebits : TBits_3); inline;
  25702. begin
  25703. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  25704. end;
  25705. function TICAP3_IC3CON.getICM : TBits_3; inline;
  25706. begin
  25707. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  25708. end;
  25709. procedure TICAP3_IC3CON.setICBNE; inline;
  25710. begin
  25711. pTDefRegMap(@Self)^.&set := $00000008;
  25712. end;
  25713. procedure TICAP3_IC3CON.clearICBNE; inline;
  25714. begin
  25715. pTDefRegMap(@Self)^.clr := $00000008;
  25716. end;
  25717. procedure TICAP3_IC3CON.setICBNE(thebits : TBits_1); inline;
  25718. begin
  25719. if thebits = 0 then
  25720. pTDefRegMap(@Self)^.clr := $00000008
  25721. else
  25722. pTDefRegMap(@Self)^.&set := $00000008;
  25723. end;
  25724. function TICAP3_IC3CON.getICBNE : TBits_1; inline;
  25725. begin
  25726. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  25727. end;
  25728. procedure TICAP3_IC3CON.setICOV; inline;
  25729. begin
  25730. pTDefRegMap(@Self)^.&set := $00000010;
  25731. end;
  25732. procedure TICAP3_IC3CON.clearICOV; inline;
  25733. begin
  25734. pTDefRegMap(@Self)^.clr := $00000010;
  25735. end;
  25736. procedure TICAP3_IC3CON.setICOV(thebits : TBits_1); inline;
  25737. begin
  25738. if thebits = 0 then
  25739. pTDefRegMap(@Self)^.clr := $00000010
  25740. else
  25741. pTDefRegMap(@Self)^.&set := $00000010;
  25742. end;
  25743. function TICAP3_IC3CON.getICOV : TBits_1; inline;
  25744. begin
  25745. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  25746. end;
  25747. procedure TICAP3_IC3CON.setICI(thebits : TBits_2); inline;
  25748. begin
  25749. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  25750. end;
  25751. function TICAP3_IC3CON.getICI : TBits_2; inline;
  25752. begin
  25753. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  25754. end;
  25755. procedure TICAP3_IC3CON.setICTMR; inline;
  25756. begin
  25757. pTDefRegMap(@Self)^.&set := $00000080;
  25758. end;
  25759. procedure TICAP3_IC3CON.clearICTMR; inline;
  25760. begin
  25761. pTDefRegMap(@Self)^.clr := $00000080;
  25762. end;
  25763. procedure TICAP3_IC3CON.setICTMR(thebits : TBits_1); inline;
  25764. begin
  25765. if thebits = 0 then
  25766. pTDefRegMap(@Self)^.clr := $00000080
  25767. else
  25768. pTDefRegMap(@Self)^.&set := $00000080;
  25769. end;
  25770. function TICAP3_IC3CON.getICTMR : TBits_1; inline;
  25771. begin
  25772. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  25773. end;
  25774. procedure TICAP3_IC3CON.setC32; inline;
  25775. begin
  25776. pTDefRegMap(@Self)^.&set := $00000100;
  25777. end;
  25778. procedure TICAP3_IC3CON.clearC32; inline;
  25779. begin
  25780. pTDefRegMap(@Self)^.clr := $00000100;
  25781. end;
  25782. procedure TICAP3_IC3CON.setC32(thebits : TBits_1); inline;
  25783. begin
  25784. if thebits = 0 then
  25785. pTDefRegMap(@Self)^.clr := $00000100
  25786. else
  25787. pTDefRegMap(@Self)^.&set := $00000100;
  25788. end;
  25789. function TICAP3_IC3CON.getC32 : TBits_1; inline;
  25790. begin
  25791. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  25792. end;
  25793. procedure TICAP3_IC3CON.setFEDGE; inline;
  25794. begin
  25795. pTDefRegMap(@Self)^.&set := $00000200;
  25796. end;
  25797. procedure TICAP3_IC3CON.clearFEDGE; inline;
  25798. begin
  25799. pTDefRegMap(@Self)^.clr := $00000200;
  25800. end;
  25801. procedure TICAP3_IC3CON.setFEDGE(thebits : TBits_1); inline;
  25802. begin
  25803. if thebits = 0 then
  25804. pTDefRegMap(@Self)^.clr := $00000200
  25805. else
  25806. pTDefRegMap(@Self)^.&set := $00000200;
  25807. end;
  25808. function TICAP3_IC3CON.getFEDGE : TBits_1; inline;
  25809. begin
  25810. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  25811. end;
  25812. procedure TICAP3_IC3CON.setSIDL; inline;
  25813. begin
  25814. pTDefRegMap(@Self)^.&set := $00002000;
  25815. end;
  25816. procedure TICAP3_IC3CON.clearSIDL; inline;
  25817. begin
  25818. pTDefRegMap(@Self)^.clr := $00002000;
  25819. end;
  25820. procedure TICAP3_IC3CON.setSIDL(thebits : TBits_1); inline;
  25821. begin
  25822. if thebits = 0 then
  25823. pTDefRegMap(@Self)^.clr := $00002000
  25824. else
  25825. pTDefRegMap(@Self)^.&set := $00002000;
  25826. end;
  25827. function TICAP3_IC3CON.getSIDL : TBits_1; inline;
  25828. begin
  25829. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25830. end;
  25831. procedure TICAP3_IC3CON.setON; inline;
  25832. begin
  25833. pTDefRegMap(@Self)^.&set := $00008000;
  25834. end;
  25835. procedure TICAP3_IC3CON.clearON; inline;
  25836. begin
  25837. pTDefRegMap(@Self)^.clr := $00008000;
  25838. end;
  25839. procedure TICAP3_IC3CON.setON(thebits : TBits_1); inline;
  25840. begin
  25841. if thebits = 0 then
  25842. pTDefRegMap(@Self)^.clr := $00008000
  25843. else
  25844. pTDefRegMap(@Self)^.&set := $00008000;
  25845. end;
  25846. function TICAP3_IC3CON.getON : TBits_1; inline;
  25847. begin
  25848. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25849. end;
  25850. procedure TICAP3_IC3CON.setICM0; inline;
  25851. begin
  25852. pTDefRegMap(@Self)^.&set := $00000001;
  25853. end;
  25854. procedure TICAP3_IC3CON.clearICM0; inline;
  25855. begin
  25856. pTDefRegMap(@Self)^.clr := $00000001;
  25857. end;
  25858. procedure TICAP3_IC3CON.setICM0(thebits : TBits_1); inline;
  25859. begin
  25860. if thebits = 0 then
  25861. pTDefRegMap(@Self)^.clr := $00000001
  25862. else
  25863. pTDefRegMap(@Self)^.&set := $00000001;
  25864. end;
  25865. function TICAP3_IC3CON.getICM0 : TBits_1; inline;
  25866. begin
  25867. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  25868. end;
  25869. procedure TICAP3_IC3CON.setICM1; inline;
  25870. begin
  25871. pTDefRegMap(@Self)^.&set := $00000002;
  25872. end;
  25873. procedure TICAP3_IC3CON.clearICM1; inline;
  25874. begin
  25875. pTDefRegMap(@Self)^.clr := $00000002;
  25876. end;
  25877. procedure TICAP3_IC3CON.setICM1(thebits : TBits_1); inline;
  25878. begin
  25879. if thebits = 0 then
  25880. pTDefRegMap(@Self)^.clr := $00000002
  25881. else
  25882. pTDefRegMap(@Self)^.&set := $00000002;
  25883. end;
  25884. function TICAP3_IC3CON.getICM1 : TBits_1; inline;
  25885. begin
  25886. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  25887. end;
  25888. procedure TICAP3_IC3CON.setICM2; inline;
  25889. begin
  25890. pTDefRegMap(@Self)^.&set := $00000004;
  25891. end;
  25892. procedure TICAP3_IC3CON.clearICM2; inline;
  25893. begin
  25894. pTDefRegMap(@Self)^.clr := $00000004;
  25895. end;
  25896. procedure TICAP3_IC3CON.setICM2(thebits : TBits_1); inline;
  25897. begin
  25898. if thebits = 0 then
  25899. pTDefRegMap(@Self)^.clr := $00000004
  25900. else
  25901. pTDefRegMap(@Self)^.&set := $00000004;
  25902. end;
  25903. function TICAP3_IC3CON.getICM2 : TBits_1; inline;
  25904. begin
  25905. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  25906. end;
  25907. procedure TICAP3_IC3CON.setICI0; inline;
  25908. begin
  25909. pTDefRegMap(@Self)^.&set := $00000020;
  25910. end;
  25911. procedure TICAP3_IC3CON.clearICI0; inline;
  25912. begin
  25913. pTDefRegMap(@Self)^.clr := $00000020;
  25914. end;
  25915. procedure TICAP3_IC3CON.setICI0(thebits : TBits_1); inline;
  25916. begin
  25917. if thebits = 0 then
  25918. pTDefRegMap(@Self)^.clr := $00000020
  25919. else
  25920. pTDefRegMap(@Self)^.&set := $00000020;
  25921. end;
  25922. function TICAP3_IC3CON.getICI0 : TBits_1; inline;
  25923. begin
  25924. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  25925. end;
  25926. procedure TICAP3_IC3CON.setICI1; inline;
  25927. begin
  25928. pTDefRegMap(@Self)^.&set := $00000040;
  25929. end;
  25930. procedure TICAP3_IC3CON.clearICI1; inline;
  25931. begin
  25932. pTDefRegMap(@Self)^.clr := $00000040;
  25933. end;
  25934. procedure TICAP3_IC3CON.setICI1(thebits : TBits_1); inline;
  25935. begin
  25936. if thebits = 0 then
  25937. pTDefRegMap(@Self)^.clr := $00000040
  25938. else
  25939. pTDefRegMap(@Self)^.&set := $00000040;
  25940. end;
  25941. function TICAP3_IC3CON.getICI1 : TBits_1; inline;
  25942. begin
  25943. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  25944. end;
  25945. procedure TICAP3_IC3CON.setICSIDL; inline;
  25946. begin
  25947. pTDefRegMap(@Self)^.&set := $00002000;
  25948. end;
  25949. procedure TICAP3_IC3CON.clearICSIDL; inline;
  25950. begin
  25951. pTDefRegMap(@Self)^.clr := $00002000;
  25952. end;
  25953. procedure TICAP3_IC3CON.setICSIDL(thebits : TBits_1); inline;
  25954. begin
  25955. if thebits = 0 then
  25956. pTDefRegMap(@Self)^.clr := $00002000
  25957. else
  25958. pTDefRegMap(@Self)^.&set := $00002000;
  25959. end;
  25960. function TICAP3_IC3CON.getICSIDL : TBits_1; inline;
  25961. begin
  25962. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25963. end;
  25964. procedure TICAP3_IC3CON.setw(thebits : TBits_32); inline;
  25965. begin
  25966. pTDefRegMap(@Self)^.val := thebits;
  25967. end;
  25968. function TICAP3_IC3CON.getw : TBits_32; inline;
  25969. begin
  25970. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25971. end;
  25972. procedure TICAP4_IC4CON.setICM(thebits : TBits_3); inline;
  25973. begin
  25974. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  25975. end;
  25976. function TICAP4_IC4CON.getICM : TBits_3; inline;
  25977. begin
  25978. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  25979. end;
  25980. procedure TICAP4_IC4CON.setICBNE; inline;
  25981. begin
  25982. pTDefRegMap(@Self)^.&set := $00000008;
  25983. end;
  25984. procedure TICAP4_IC4CON.clearICBNE; inline;
  25985. begin
  25986. pTDefRegMap(@Self)^.clr := $00000008;
  25987. end;
  25988. procedure TICAP4_IC4CON.setICBNE(thebits : TBits_1); inline;
  25989. begin
  25990. if thebits = 0 then
  25991. pTDefRegMap(@Self)^.clr := $00000008
  25992. else
  25993. pTDefRegMap(@Self)^.&set := $00000008;
  25994. end;
  25995. function TICAP4_IC4CON.getICBNE : TBits_1; inline;
  25996. begin
  25997. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  25998. end;
  25999. procedure TICAP4_IC4CON.setICOV; inline;
  26000. begin
  26001. pTDefRegMap(@Self)^.&set := $00000010;
  26002. end;
  26003. procedure TICAP4_IC4CON.clearICOV; inline;
  26004. begin
  26005. pTDefRegMap(@Self)^.clr := $00000010;
  26006. end;
  26007. procedure TICAP4_IC4CON.setICOV(thebits : TBits_1); inline;
  26008. begin
  26009. if thebits = 0 then
  26010. pTDefRegMap(@Self)^.clr := $00000010
  26011. else
  26012. pTDefRegMap(@Self)^.&set := $00000010;
  26013. end;
  26014. function TICAP4_IC4CON.getICOV : TBits_1; inline;
  26015. begin
  26016. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  26017. end;
  26018. procedure TICAP4_IC4CON.setICI(thebits : TBits_2); inline;
  26019. begin
  26020. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  26021. end;
  26022. function TICAP4_IC4CON.getICI : TBits_2; inline;
  26023. begin
  26024. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  26025. end;
  26026. procedure TICAP4_IC4CON.setICTMR; inline;
  26027. begin
  26028. pTDefRegMap(@Self)^.&set := $00000080;
  26029. end;
  26030. procedure TICAP4_IC4CON.clearICTMR; inline;
  26031. begin
  26032. pTDefRegMap(@Self)^.clr := $00000080;
  26033. end;
  26034. procedure TICAP4_IC4CON.setICTMR(thebits : TBits_1); inline;
  26035. begin
  26036. if thebits = 0 then
  26037. pTDefRegMap(@Self)^.clr := $00000080
  26038. else
  26039. pTDefRegMap(@Self)^.&set := $00000080;
  26040. end;
  26041. function TICAP4_IC4CON.getICTMR : TBits_1; inline;
  26042. begin
  26043. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  26044. end;
  26045. procedure TICAP4_IC4CON.setC32; inline;
  26046. begin
  26047. pTDefRegMap(@Self)^.&set := $00000100;
  26048. end;
  26049. procedure TICAP4_IC4CON.clearC32; inline;
  26050. begin
  26051. pTDefRegMap(@Self)^.clr := $00000100;
  26052. end;
  26053. procedure TICAP4_IC4CON.setC32(thebits : TBits_1); inline;
  26054. begin
  26055. if thebits = 0 then
  26056. pTDefRegMap(@Self)^.clr := $00000100
  26057. else
  26058. pTDefRegMap(@Self)^.&set := $00000100;
  26059. end;
  26060. function TICAP4_IC4CON.getC32 : TBits_1; inline;
  26061. begin
  26062. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  26063. end;
  26064. procedure TICAP4_IC4CON.setFEDGE; inline;
  26065. begin
  26066. pTDefRegMap(@Self)^.&set := $00000200;
  26067. end;
  26068. procedure TICAP4_IC4CON.clearFEDGE; inline;
  26069. begin
  26070. pTDefRegMap(@Self)^.clr := $00000200;
  26071. end;
  26072. procedure TICAP4_IC4CON.setFEDGE(thebits : TBits_1); inline;
  26073. begin
  26074. if thebits = 0 then
  26075. pTDefRegMap(@Self)^.clr := $00000200
  26076. else
  26077. pTDefRegMap(@Self)^.&set := $00000200;
  26078. end;
  26079. function TICAP4_IC4CON.getFEDGE : TBits_1; inline;
  26080. begin
  26081. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  26082. end;
  26083. procedure TICAP4_IC4CON.setSIDL; inline;
  26084. begin
  26085. pTDefRegMap(@Self)^.&set := $00002000;
  26086. end;
  26087. procedure TICAP4_IC4CON.clearSIDL; inline;
  26088. begin
  26089. pTDefRegMap(@Self)^.clr := $00002000;
  26090. end;
  26091. procedure TICAP4_IC4CON.setSIDL(thebits : TBits_1); inline;
  26092. begin
  26093. if thebits = 0 then
  26094. pTDefRegMap(@Self)^.clr := $00002000
  26095. else
  26096. pTDefRegMap(@Self)^.&set := $00002000;
  26097. end;
  26098. function TICAP4_IC4CON.getSIDL : TBits_1; inline;
  26099. begin
  26100. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26101. end;
  26102. procedure TICAP4_IC4CON.setON; inline;
  26103. begin
  26104. pTDefRegMap(@Self)^.&set := $00008000;
  26105. end;
  26106. procedure TICAP4_IC4CON.clearON; inline;
  26107. begin
  26108. pTDefRegMap(@Self)^.clr := $00008000;
  26109. end;
  26110. procedure TICAP4_IC4CON.setON(thebits : TBits_1); inline;
  26111. begin
  26112. if thebits = 0 then
  26113. pTDefRegMap(@Self)^.clr := $00008000
  26114. else
  26115. pTDefRegMap(@Self)^.&set := $00008000;
  26116. end;
  26117. function TICAP4_IC4CON.getON : TBits_1; inline;
  26118. begin
  26119. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  26120. end;
  26121. procedure TICAP4_IC4CON.setICM0; inline;
  26122. begin
  26123. pTDefRegMap(@Self)^.&set := $00000001;
  26124. end;
  26125. procedure TICAP4_IC4CON.clearICM0; inline;
  26126. begin
  26127. pTDefRegMap(@Self)^.clr := $00000001;
  26128. end;
  26129. procedure TICAP4_IC4CON.setICM0(thebits : TBits_1); inline;
  26130. begin
  26131. if thebits = 0 then
  26132. pTDefRegMap(@Self)^.clr := $00000001
  26133. else
  26134. pTDefRegMap(@Self)^.&set := $00000001;
  26135. end;
  26136. function TICAP4_IC4CON.getICM0 : TBits_1; inline;
  26137. begin
  26138. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  26139. end;
  26140. procedure TICAP4_IC4CON.setICM1; inline;
  26141. begin
  26142. pTDefRegMap(@Self)^.&set := $00000002;
  26143. end;
  26144. procedure TICAP4_IC4CON.clearICM1; inline;
  26145. begin
  26146. pTDefRegMap(@Self)^.clr := $00000002;
  26147. end;
  26148. procedure TICAP4_IC4CON.setICM1(thebits : TBits_1); inline;
  26149. begin
  26150. if thebits = 0 then
  26151. pTDefRegMap(@Self)^.clr := $00000002
  26152. else
  26153. pTDefRegMap(@Self)^.&set := $00000002;
  26154. end;
  26155. function TICAP4_IC4CON.getICM1 : TBits_1; inline;
  26156. begin
  26157. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  26158. end;
  26159. procedure TICAP4_IC4CON.setICM2; inline;
  26160. begin
  26161. pTDefRegMap(@Self)^.&set := $00000004;
  26162. end;
  26163. procedure TICAP4_IC4CON.clearICM2; inline;
  26164. begin
  26165. pTDefRegMap(@Self)^.clr := $00000004;
  26166. end;
  26167. procedure TICAP4_IC4CON.setICM2(thebits : TBits_1); inline;
  26168. begin
  26169. if thebits = 0 then
  26170. pTDefRegMap(@Self)^.clr := $00000004
  26171. else
  26172. pTDefRegMap(@Self)^.&set := $00000004;
  26173. end;
  26174. function TICAP4_IC4CON.getICM2 : TBits_1; inline;
  26175. begin
  26176. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  26177. end;
  26178. procedure TICAP4_IC4CON.setICI0; inline;
  26179. begin
  26180. pTDefRegMap(@Self)^.&set := $00000020;
  26181. end;
  26182. procedure TICAP4_IC4CON.clearICI0; inline;
  26183. begin
  26184. pTDefRegMap(@Self)^.clr := $00000020;
  26185. end;
  26186. procedure TICAP4_IC4CON.setICI0(thebits : TBits_1); inline;
  26187. begin
  26188. if thebits = 0 then
  26189. pTDefRegMap(@Self)^.clr := $00000020
  26190. else
  26191. pTDefRegMap(@Self)^.&set := $00000020;
  26192. end;
  26193. function TICAP4_IC4CON.getICI0 : TBits_1; inline;
  26194. begin
  26195. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  26196. end;
  26197. procedure TICAP4_IC4CON.setICI1; inline;
  26198. begin
  26199. pTDefRegMap(@Self)^.&set := $00000040;
  26200. end;
  26201. procedure TICAP4_IC4CON.clearICI1; inline;
  26202. begin
  26203. pTDefRegMap(@Self)^.clr := $00000040;
  26204. end;
  26205. procedure TICAP4_IC4CON.setICI1(thebits : TBits_1); inline;
  26206. begin
  26207. if thebits = 0 then
  26208. pTDefRegMap(@Self)^.clr := $00000040
  26209. else
  26210. pTDefRegMap(@Self)^.&set := $00000040;
  26211. end;
  26212. function TICAP4_IC4CON.getICI1 : TBits_1; inline;
  26213. begin
  26214. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  26215. end;
  26216. procedure TICAP4_IC4CON.setICSIDL; inline;
  26217. begin
  26218. pTDefRegMap(@Self)^.&set := $00002000;
  26219. end;
  26220. procedure TICAP4_IC4CON.clearICSIDL; inline;
  26221. begin
  26222. pTDefRegMap(@Self)^.clr := $00002000;
  26223. end;
  26224. procedure TICAP4_IC4CON.setICSIDL(thebits : TBits_1); inline;
  26225. begin
  26226. if thebits = 0 then
  26227. pTDefRegMap(@Self)^.clr := $00002000
  26228. else
  26229. pTDefRegMap(@Self)^.&set := $00002000;
  26230. end;
  26231. function TICAP4_IC4CON.getICSIDL : TBits_1; inline;
  26232. begin
  26233. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26234. end;
  26235. procedure TICAP4_IC4CON.setw(thebits : TBits_32); inline;
  26236. begin
  26237. pTDefRegMap(@Self)^.val := thebits;
  26238. end;
  26239. function TICAP4_IC4CON.getw : TBits_32; inline;
  26240. begin
  26241. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  26242. end;
  26243. procedure TICAP5_IC5CON.setICM(thebits : TBits_3); inline;
  26244. begin
  26245. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  26246. end;
  26247. function TICAP5_IC5CON.getICM : TBits_3; inline;
  26248. begin
  26249. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  26250. end;
  26251. procedure TICAP5_IC5CON.setICBNE; inline;
  26252. begin
  26253. pTDefRegMap(@Self)^.&set := $00000008;
  26254. end;
  26255. procedure TICAP5_IC5CON.clearICBNE; inline;
  26256. begin
  26257. pTDefRegMap(@Self)^.clr := $00000008;
  26258. end;
  26259. procedure TICAP5_IC5CON.setICBNE(thebits : TBits_1); inline;
  26260. begin
  26261. if thebits = 0 then
  26262. pTDefRegMap(@Self)^.clr := $00000008
  26263. else
  26264. pTDefRegMap(@Self)^.&set := $00000008;
  26265. end;
  26266. function TICAP5_IC5CON.getICBNE : TBits_1; inline;
  26267. begin
  26268. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  26269. end;
  26270. procedure TICAP5_IC5CON.setICOV; inline;
  26271. begin
  26272. pTDefRegMap(@Self)^.&set := $00000010;
  26273. end;
  26274. procedure TICAP5_IC5CON.clearICOV; inline;
  26275. begin
  26276. pTDefRegMap(@Self)^.clr := $00000010;
  26277. end;
  26278. procedure TICAP5_IC5CON.setICOV(thebits : TBits_1); inline;
  26279. begin
  26280. if thebits = 0 then
  26281. pTDefRegMap(@Self)^.clr := $00000010
  26282. else
  26283. pTDefRegMap(@Self)^.&set := $00000010;
  26284. end;
  26285. function TICAP5_IC5CON.getICOV : TBits_1; inline;
  26286. begin
  26287. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  26288. end;
  26289. procedure TICAP5_IC5CON.setICI(thebits : TBits_2); inline;
  26290. begin
  26291. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  26292. end;
  26293. function TICAP5_IC5CON.getICI : TBits_2; inline;
  26294. begin
  26295. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  26296. end;
  26297. procedure TICAP5_IC5CON.setICTMR; inline;
  26298. begin
  26299. pTDefRegMap(@Self)^.&set := $00000080;
  26300. end;
  26301. procedure TICAP5_IC5CON.clearICTMR; inline;
  26302. begin
  26303. pTDefRegMap(@Self)^.clr := $00000080;
  26304. end;
  26305. procedure TICAP5_IC5CON.setICTMR(thebits : TBits_1); inline;
  26306. begin
  26307. if thebits = 0 then
  26308. pTDefRegMap(@Self)^.clr := $00000080
  26309. else
  26310. pTDefRegMap(@Self)^.&set := $00000080;
  26311. end;
  26312. function TICAP5_IC5CON.getICTMR : TBits_1; inline;
  26313. begin
  26314. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  26315. end;
  26316. procedure TICAP5_IC5CON.setC32; inline;
  26317. begin
  26318. pTDefRegMap(@Self)^.&set := $00000100;
  26319. end;
  26320. procedure TICAP5_IC5CON.clearC32; inline;
  26321. begin
  26322. pTDefRegMap(@Self)^.clr := $00000100;
  26323. end;
  26324. procedure TICAP5_IC5CON.setC32(thebits : TBits_1); inline;
  26325. begin
  26326. if thebits = 0 then
  26327. pTDefRegMap(@Self)^.clr := $00000100
  26328. else
  26329. pTDefRegMap(@Self)^.&set := $00000100;
  26330. end;
  26331. function TICAP5_IC5CON.getC32 : TBits_1; inline;
  26332. begin
  26333. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  26334. end;
  26335. procedure TICAP5_IC5CON.setFEDGE; inline;
  26336. begin
  26337. pTDefRegMap(@Self)^.&set := $00000200;
  26338. end;
  26339. procedure TICAP5_IC5CON.clearFEDGE; inline;
  26340. begin
  26341. pTDefRegMap(@Self)^.clr := $00000200;
  26342. end;
  26343. procedure TICAP5_IC5CON.setFEDGE(thebits : TBits_1); inline;
  26344. begin
  26345. if thebits = 0 then
  26346. pTDefRegMap(@Self)^.clr := $00000200
  26347. else
  26348. pTDefRegMap(@Self)^.&set := $00000200;
  26349. end;
  26350. function TICAP5_IC5CON.getFEDGE : TBits_1; inline;
  26351. begin
  26352. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  26353. end;
  26354. procedure TICAP5_IC5CON.setSIDL; inline;
  26355. begin
  26356. pTDefRegMap(@Self)^.&set := $00002000;
  26357. end;
  26358. procedure TICAP5_IC5CON.clearSIDL; inline;
  26359. begin
  26360. pTDefRegMap(@Self)^.clr := $00002000;
  26361. end;
  26362. procedure TICAP5_IC5CON.setSIDL(thebits : TBits_1); inline;
  26363. begin
  26364. if thebits = 0 then
  26365. pTDefRegMap(@Self)^.clr := $00002000
  26366. else
  26367. pTDefRegMap(@Self)^.&set := $00002000;
  26368. end;
  26369. function TICAP5_IC5CON.getSIDL : TBits_1; inline;
  26370. begin
  26371. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26372. end;
  26373. procedure TICAP5_IC5CON.setON; inline;
  26374. begin
  26375. pTDefRegMap(@Self)^.&set := $00008000;
  26376. end;
  26377. procedure TICAP5_IC5CON.clearON; inline;
  26378. begin
  26379. pTDefRegMap(@Self)^.clr := $00008000;
  26380. end;
  26381. procedure TICAP5_IC5CON.setON(thebits : TBits_1); inline;
  26382. begin
  26383. if thebits = 0 then
  26384. pTDefRegMap(@Self)^.clr := $00008000
  26385. else
  26386. pTDefRegMap(@Self)^.&set := $00008000;
  26387. end;
  26388. function TICAP5_IC5CON.getON : TBits_1; inline;
  26389. begin
  26390. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  26391. end;
  26392. procedure TICAP5_IC5CON.setICM0; inline;
  26393. begin
  26394. pTDefRegMap(@Self)^.&set := $00000001;
  26395. end;
  26396. procedure TICAP5_IC5CON.clearICM0; inline;
  26397. begin
  26398. pTDefRegMap(@Self)^.clr := $00000001;
  26399. end;
  26400. procedure TICAP5_IC5CON.setICM0(thebits : TBits_1); inline;
  26401. begin
  26402. if thebits = 0 then
  26403. pTDefRegMap(@Self)^.clr := $00000001
  26404. else
  26405. pTDefRegMap(@Self)^.&set := $00000001;
  26406. end;
  26407. function TICAP5_IC5CON.getICM0 : TBits_1; inline;
  26408. begin
  26409. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  26410. end;
  26411. procedure TICAP5_IC5CON.setICM1; inline;
  26412. begin
  26413. pTDefRegMap(@Self)^.&set := $00000002;
  26414. end;
  26415. procedure TICAP5_IC5CON.clearICM1; inline;
  26416. begin
  26417. pTDefRegMap(@Self)^.clr := $00000002;
  26418. end;
  26419. procedure TICAP5_IC5CON.setICM1(thebits : TBits_1); inline;
  26420. begin
  26421. if thebits = 0 then
  26422. pTDefRegMap(@Self)^.clr := $00000002
  26423. else
  26424. pTDefRegMap(@Self)^.&set := $00000002;
  26425. end;
  26426. function TICAP5_IC5CON.getICM1 : TBits_1; inline;
  26427. begin
  26428. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  26429. end;
  26430. procedure TICAP5_IC5CON.setICM2; inline;
  26431. begin
  26432. pTDefRegMap(@Self)^.&set := $00000004;
  26433. end;
  26434. procedure TICAP5_IC5CON.clearICM2; inline;
  26435. begin
  26436. pTDefRegMap(@Self)^.clr := $00000004;
  26437. end;
  26438. procedure TICAP5_IC5CON.setICM2(thebits : TBits_1); inline;
  26439. begin
  26440. if thebits = 0 then
  26441. pTDefRegMap(@Self)^.clr := $00000004
  26442. else
  26443. pTDefRegMap(@Self)^.&set := $00000004;
  26444. end;
  26445. function TICAP5_IC5CON.getICM2 : TBits_1; inline;
  26446. begin
  26447. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  26448. end;
  26449. procedure TICAP5_IC5CON.setICI0; inline;
  26450. begin
  26451. pTDefRegMap(@Self)^.&set := $00000020;
  26452. end;
  26453. procedure TICAP5_IC5CON.clearICI0; inline;
  26454. begin
  26455. pTDefRegMap(@Self)^.clr := $00000020;
  26456. end;
  26457. procedure TICAP5_IC5CON.setICI0(thebits : TBits_1); inline;
  26458. begin
  26459. if thebits = 0 then
  26460. pTDefRegMap(@Self)^.clr := $00000020
  26461. else
  26462. pTDefRegMap(@Self)^.&set := $00000020;
  26463. end;
  26464. function TICAP5_IC5CON.getICI0 : TBits_1; inline;
  26465. begin
  26466. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  26467. end;
  26468. procedure TICAP5_IC5CON.setICI1; inline;
  26469. begin
  26470. pTDefRegMap(@Self)^.&set := $00000040;
  26471. end;
  26472. procedure TICAP5_IC5CON.clearICI1; inline;
  26473. begin
  26474. pTDefRegMap(@Self)^.clr := $00000040;
  26475. end;
  26476. procedure TICAP5_IC5CON.setICI1(thebits : TBits_1); inline;
  26477. begin
  26478. if thebits = 0 then
  26479. pTDefRegMap(@Self)^.clr := $00000040
  26480. else
  26481. pTDefRegMap(@Self)^.&set := $00000040;
  26482. end;
  26483. function TICAP5_IC5CON.getICI1 : TBits_1; inline;
  26484. begin
  26485. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  26486. end;
  26487. procedure TICAP5_IC5CON.setICSIDL; inline;
  26488. begin
  26489. pTDefRegMap(@Self)^.&set := $00002000;
  26490. end;
  26491. procedure TICAP5_IC5CON.clearICSIDL; inline;
  26492. begin
  26493. pTDefRegMap(@Self)^.clr := $00002000;
  26494. end;
  26495. procedure TICAP5_IC5CON.setICSIDL(thebits : TBits_1); inline;
  26496. begin
  26497. if thebits = 0 then
  26498. pTDefRegMap(@Self)^.clr := $00002000
  26499. else
  26500. pTDefRegMap(@Self)^.&set := $00002000;
  26501. end;
  26502. function TICAP5_IC5CON.getICSIDL : TBits_1; inline;
  26503. begin
  26504. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26505. end;
  26506. procedure TICAP5_IC5CON.setw(thebits : TBits_32); inline;
  26507. begin
  26508. pTDefRegMap(@Self)^.val := thebits;
  26509. end;
  26510. function TICAP5_IC5CON.getw : TBits_32; inline;
  26511. begin
  26512. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  26513. end;
  26514. procedure TOCMP1_OC1CON.setOCM(thebits : TBits_3); inline;
  26515. begin
  26516. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  26517. end;
  26518. function TOCMP1_OC1CON.getOCM : TBits_3; inline;
  26519. begin
  26520. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  26521. end;
  26522. procedure TOCMP1_OC1CON.setOCTSEL; inline;
  26523. begin
  26524. pTDefRegMap(@Self)^.&set := $00000008;
  26525. end;
  26526. procedure TOCMP1_OC1CON.clearOCTSEL; inline;
  26527. begin
  26528. pTDefRegMap(@Self)^.clr := $00000008;
  26529. end;
  26530. procedure TOCMP1_OC1CON.setOCTSEL(thebits : TBits_1); inline;
  26531. begin
  26532. if thebits = 0 then
  26533. pTDefRegMap(@Self)^.clr := $00000008
  26534. else
  26535. pTDefRegMap(@Self)^.&set := $00000008;
  26536. end;
  26537. function TOCMP1_OC1CON.getOCTSEL : TBits_1; inline;
  26538. begin
  26539. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  26540. end;
  26541. procedure TOCMP1_OC1CON.setOCFLT; inline;
  26542. begin
  26543. pTDefRegMap(@Self)^.&set := $00000010;
  26544. end;
  26545. procedure TOCMP1_OC1CON.clearOCFLT; inline;
  26546. begin
  26547. pTDefRegMap(@Self)^.clr := $00000010;
  26548. end;
  26549. procedure TOCMP1_OC1CON.setOCFLT(thebits : TBits_1); inline;
  26550. begin
  26551. if thebits = 0 then
  26552. pTDefRegMap(@Self)^.clr := $00000010
  26553. else
  26554. pTDefRegMap(@Self)^.&set := $00000010;
  26555. end;
  26556. function TOCMP1_OC1CON.getOCFLT : TBits_1; inline;
  26557. begin
  26558. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  26559. end;
  26560. procedure TOCMP1_OC1CON.setOC32; inline;
  26561. begin
  26562. pTDefRegMap(@Self)^.&set := $00000020;
  26563. end;
  26564. procedure TOCMP1_OC1CON.clearOC32; inline;
  26565. begin
  26566. pTDefRegMap(@Self)^.clr := $00000020;
  26567. end;
  26568. procedure TOCMP1_OC1CON.setOC32(thebits : TBits_1); inline;
  26569. begin
  26570. if thebits = 0 then
  26571. pTDefRegMap(@Self)^.clr := $00000020
  26572. else
  26573. pTDefRegMap(@Self)^.&set := $00000020;
  26574. end;
  26575. function TOCMP1_OC1CON.getOC32 : TBits_1; inline;
  26576. begin
  26577. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  26578. end;
  26579. procedure TOCMP1_OC1CON.setSIDL; inline;
  26580. begin
  26581. pTDefRegMap(@Self)^.&set := $00002000;
  26582. end;
  26583. procedure TOCMP1_OC1CON.clearSIDL; inline;
  26584. begin
  26585. pTDefRegMap(@Self)^.clr := $00002000;
  26586. end;
  26587. procedure TOCMP1_OC1CON.setSIDL(thebits : TBits_1); inline;
  26588. begin
  26589. if thebits = 0 then
  26590. pTDefRegMap(@Self)^.clr := $00002000
  26591. else
  26592. pTDefRegMap(@Self)^.&set := $00002000;
  26593. end;
  26594. function TOCMP1_OC1CON.getSIDL : TBits_1; inline;
  26595. begin
  26596. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26597. end;
  26598. procedure TOCMP1_OC1CON.setON; inline;
  26599. begin
  26600. pTDefRegMap(@Self)^.&set := $00008000;
  26601. end;
  26602. procedure TOCMP1_OC1CON.clearON; inline;
  26603. begin
  26604. pTDefRegMap(@Self)^.clr := $00008000;
  26605. end;
  26606. procedure TOCMP1_OC1CON.setON(thebits : TBits_1); inline;
  26607. begin
  26608. if thebits = 0 then
  26609. pTDefRegMap(@Self)^.clr := $00008000
  26610. else
  26611. pTDefRegMap(@Self)^.&set := $00008000;
  26612. end;
  26613. function TOCMP1_OC1CON.getON : TBits_1; inline;
  26614. begin
  26615. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  26616. end;
  26617. procedure TOCMP1_OC1CON.setOCM0; inline;
  26618. begin
  26619. pTDefRegMap(@Self)^.&set := $00000001;
  26620. end;
  26621. procedure TOCMP1_OC1CON.clearOCM0; inline;
  26622. begin
  26623. pTDefRegMap(@Self)^.clr := $00000001;
  26624. end;
  26625. procedure TOCMP1_OC1CON.setOCM0(thebits : TBits_1); inline;
  26626. begin
  26627. if thebits = 0 then
  26628. pTDefRegMap(@Self)^.clr := $00000001
  26629. else
  26630. pTDefRegMap(@Self)^.&set := $00000001;
  26631. end;
  26632. function TOCMP1_OC1CON.getOCM0 : TBits_1; inline;
  26633. begin
  26634. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  26635. end;
  26636. procedure TOCMP1_OC1CON.setOCM1; inline;
  26637. begin
  26638. pTDefRegMap(@Self)^.&set := $00000002;
  26639. end;
  26640. procedure TOCMP1_OC1CON.clearOCM1; inline;
  26641. begin
  26642. pTDefRegMap(@Self)^.clr := $00000002;
  26643. end;
  26644. procedure TOCMP1_OC1CON.setOCM1(thebits : TBits_1); inline;
  26645. begin
  26646. if thebits = 0 then
  26647. pTDefRegMap(@Self)^.clr := $00000002
  26648. else
  26649. pTDefRegMap(@Self)^.&set := $00000002;
  26650. end;
  26651. function TOCMP1_OC1CON.getOCM1 : TBits_1; inline;
  26652. begin
  26653. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  26654. end;
  26655. procedure TOCMP1_OC1CON.setOCM2; inline;
  26656. begin
  26657. pTDefRegMap(@Self)^.&set := $00000004;
  26658. end;
  26659. procedure TOCMP1_OC1CON.clearOCM2; inline;
  26660. begin
  26661. pTDefRegMap(@Self)^.clr := $00000004;
  26662. end;
  26663. procedure TOCMP1_OC1CON.setOCM2(thebits : TBits_1); inline;
  26664. begin
  26665. if thebits = 0 then
  26666. pTDefRegMap(@Self)^.clr := $00000004
  26667. else
  26668. pTDefRegMap(@Self)^.&set := $00000004;
  26669. end;
  26670. function TOCMP1_OC1CON.getOCM2 : TBits_1; inline;
  26671. begin
  26672. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  26673. end;
  26674. procedure TOCMP1_OC1CON.setOCSIDL; inline;
  26675. begin
  26676. pTDefRegMap(@Self)^.&set := $00002000;
  26677. end;
  26678. procedure TOCMP1_OC1CON.clearOCSIDL; inline;
  26679. begin
  26680. pTDefRegMap(@Self)^.clr := $00002000;
  26681. end;
  26682. procedure TOCMP1_OC1CON.setOCSIDL(thebits : TBits_1); inline;
  26683. begin
  26684. if thebits = 0 then
  26685. pTDefRegMap(@Self)^.clr := $00002000
  26686. else
  26687. pTDefRegMap(@Self)^.&set := $00002000;
  26688. end;
  26689. function TOCMP1_OC1CON.getOCSIDL : TBits_1; inline;
  26690. begin
  26691. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26692. end;
  26693. procedure TOCMP1_OC1CON.setw(thebits : TBits_32); inline;
  26694. begin
  26695. pTDefRegMap(@Self)^.val := thebits;
  26696. end;
  26697. function TOCMP1_OC1CON.getw : TBits_32; inline;
  26698. begin
  26699. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  26700. end;
  26701. procedure TOCMP2_OC2CON.setOCM(thebits : TBits_3); inline;
  26702. begin
  26703. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  26704. end;
  26705. function TOCMP2_OC2CON.getOCM : TBits_3; inline;
  26706. begin
  26707. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  26708. end;
  26709. procedure TOCMP2_OC2CON.setOCTSEL; inline;
  26710. begin
  26711. pTDefRegMap(@Self)^.&set := $00000008;
  26712. end;
  26713. procedure TOCMP2_OC2CON.clearOCTSEL; inline;
  26714. begin
  26715. pTDefRegMap(@Self)^.clr := $00000008;
  26716. end;
  26717. procedure TOCMP2_OC2CON.setOCTSEL(thebits : TBits_1); inline;
  26718. begin
  26719. if thebits = 0 then
  26720. pTDefRegMap(@Self)^.clr := $00000008
  26721. else
  26722. pTDefRegMap(@Self)^.&set := $00000008;
  26723. end;
  26724. function TOCMP2_OC2CON.getOCTSEL : TBits_1; inline;
  26725. begin
  26726. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  26727. end;
  26728. procedure TOCMP2_OC2CON.setOCFLT; inline;
  26729. begin
  26730. pTDefRegMap(@Self)^.&set := $00000010;
  26731. end;
  26732. procedure TOCMP2_OC2CON.clearOCFLT; inline;
  26733. begin
  26734. pTDefRegMap(@Self)^.clr := $00000010;
  26735. end;
  26736. procedure TOCMP2_OC2CON.setOCFLT(thebits : TBits_1); inline;
  26737. begin
  26738. if thebits = 0 then
  26739. pTDefRegMap(@Self)^.clr := $00000010
  26740. else
  26741. pTDefRegMap(@Self)^.&set := $00000010;
  26742. end;
  26743. function TOCMP2_OC2CON.getOCFLT : TBits_1; inline;
  26744. begin
  26745. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  26746. end;
  26747. procedure TOCMP2_OC2CON.setOC32; inline;
  26748. begin
  26749. pTDefRegMap(@Self)^.&set := $00000020;
  26750. end;
  26751. procedure TOCMP2_OC2CON.clearOC32; inline;
  26752. begin
  26753. pTDefRegMap(@Self)^.clr := $00000020;
  26754. end;
  26755. procedure TOCMP2_OC2CON.setOC32(thebits : TBits_1); inline;
  26756. begin
  26757. if thebits = 0 then
  26758. pTDefRegMap(@Self)^.clr := $00000020
  26759. else
  26760. pTDefRegMap(@Self)^.&set := $00000020;
  26761. end;
  26762. function TOCMP2_OC2CON.getOC32 : TBits_1; inline;
  26763. begin
  26764. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  26765. end;
  26766. procedure TOCMP2_OC2CON.setSIDL; inline;
  26767. begin
  26768. pTDefRegMap(@Self)^.&set := $00002000;
  26769. end;
  26770. procedure TOCMP2_OC2CON.clearSIDL; inline;
  26771. begin
  26772. pTDefRegMap(@Self)^.clr := $00002000;
  26773. end;
  26774. procedure TOCMP2_OC2CON.setSIDL(thebits : TBits_1); inline;
  26775. begin
  26776. if thebits = 0 then
  26777. pTDefRegMap(@Self)^.clr := $00002000
  26778. else
  26779. pTDefRegMap(@Self)^.&set := $00002000;
  26780. end;
  26781. function TOCMP2_OC2CON.getSIDL : TBits_1; inline;
  26782. begin
  26783. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26784. end;
  26785. procedure TOCMP2_OC2CON.setON; inline;
  26786. begin
  26787. pTDefRegMap(@Self)^.&set := $00008000;
  26788. end;
  26789. procedure TOCMP2_OC2CON.clearON; inline;
  26790. begin
  26791. pTDefRegMap(@Self)^.clr := $00008000;
  26792. end;
  26793. procedure TOCMP2_OC2CON.setON(thebits : TBits_1); inline;
  26794. begin
  26795. if thebits = 0 then
  26796. pTDefRegMap(@Self)^.clr := $00008000
  26797. else
  26798. pTDefRegMap(@Self)^.&set := $00008000;
  26799. end;
  26800. function TOCMP2_OC2CON.getON : TBits_1; inline;
  26801. begin
  26802. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  26803. end;
  26804. procedure TOCMP2_OC2CON.setOCM0; inline;
  26805. begin
  26806. pTDefRegMap(@Self)^.&set := $00000001;
  26807. end;
  26808. procedure TOCMP2_OC2CON.clearOCM0; inline;
  26809. begin
  26810. pTDefRegMap(@Self)^.clr := $00000001;
  26811. end;
  26812. procedure TOCMP2_OC2CON.setOCM0(thebits : TBits_1); inline;
  26813. begin
  26814. if thebits = 0 then
  26815. pTDefRegMap(@Self)^.clr := $00000001
  26816. else
  26817. pTDefRegMap(@Self)^.&set := $00000001;
  26818. end;
  26819. function TOCMP2_OC2CON.getOCM0 : TBits_1; inline;
  26820. begin
  26821. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  26822. end;
  26823. procedure TOCMP2_OC2CON.setOCM1; inline;
  26824. begin
  26825. pTDefRegMap(@Self)^.&set := $00000002;
  26826. end;
  26827. procedure TOCMP2_OC2CON.clearOCM1; inline;
  26828. begin
  26829. pTDefRegMap(@Self)^.clr := $00000002;
  26830. end;
  26831. procedure TOCMP2_OC2CON.setOCM1(thebits : TBits_1); inline;
  26832. begin
  26833. if thebits = 0 then
  26834. pTDefRegMap(@Self)^.clr := $00000002
  26835. else
  26836. pTDefRegMap(@Self)^.&set := $00000002;
  26837. end;
  26838. function TOCMP2_OC2CON.getOCM1 : TBits_1; inline;
  26839. begin
  26840. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  26841. end;
  26842. procedure TOCMP2_OC2CON.setOCM2; inline;
  26843. begin
  26844. pTDefRegMap(@Self)^.&set := $00000004;
  26845. end;
  26846. procedure TOCMP2_OC2CON.clearOCM2; inline;
  26847. begin
  26848. pTDefRegMap(@Self)^.clr := $00000004;
  26849. end;
  26850. procedure TOCMP2_OC2CON.setOCM2(thebits : TBits_1); inline;
  26851. begin
  26852. if thebits = 0 then
  26853. pTDefRegMap(@Self)^.clr := $00000004
  26854. else
  26855. pTDefRegMap(@Self)^.&set := $00000004;
  26856. end;
  26857. function TOCMP2_OC2CON.getOCM2 : TBits_1; inline;
  26858. begin
  26859. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  26860. end;
  26861. procedure TOCMP2_OC2CON.setOCSIDL; inline;
  26862. begin
  26863. pTDefRegMap(@Self)^.&set := $00002000;
  26864. end;
  26865. procedure TOCMP2_OC2CON.clearOCSIDL; inline;
  26866. begin
  26867. pTDefRegMap(@Self)^.clr := $00002000;
  26868. end;
  26869. procedure TOCMP2_OC2CON.setOCSIDL(thebits : TBits_1); inline;
  26870. begin
  26871. if thebits = 0 then
  26872. pTDefRegMap(@Self)^.clr := $00002000
  26873. else
  26874. pTDefRegMap(@Self)^.&set := $00002000;
  26875. end;
  26876. function TOCMP2_OC2CON.getOCSIDL : TBits_1; inline;
  26877. begin
  26878. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26879. end;
  26880. procedure TOCMP2_OC2CON.setw(thebits : TBits_32); inline;
  26881. begin
  26882. pTDefRegMap(@Self)^.val := thebits;
  26883. end;
  26884. function TOCMP2_OC2CON.getw : TBits_32; inline;
  26885. begin
  26886. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  26887. end;
  26888. procedure TOCMP3_OC3CON.setOCM(thebits : TBits_3); inline;
  26889. begin
  26890. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  26891. end;
  26892. function TOCMP3_OC3CON.getOCM : TBits_3; inline;
  26893. begin
  26894. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  26895. end;
  26896. procedure TOCMP3_OC3CON.setOCTSEL; inline;
  26897. begin
  26898. pTDefRegMap(@Self)^.&set := $00000008;
  26899. end;
  26900. procedure TOCMP3_OC3CON.clearOCTSEL; inline;
  26901. begin
  26902. pTDefRegMap(@Self)^.clr := $00000008;
  26903. end;
  26904. procedure TOCMP3_OC3CON.setOCTSEL(thebits : TBits_1); inline;
  26905. begin
  26906. if thebits = 0 then
  26907. pTDefRegMap(@Self)^.clr := $00000008
  26908. else
  26909. pTDefRegMap(@Self)^.&set := $00000008;
  26910. end;
  26911. function TOCMP3_OC3CON.getOCTSEL : TBits_1; inline;
  26912. begin
  26913. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  26914. end;
  26915. procedure TOCMP3_OC3CON.setOCFLT; inline;
  26916. begin
  26917. pTDefRegMap(@Self)^.&set := $00000010;
  26918. end;
  26919. procedure TOCMP3_OC3CON.clearOCFLT; inline;
  26920. begin
  26921. pTDefRegMap(@Self)^.clr := $00000010;
  26922. end;
  26923. procedure TOCMP3_OC3CON.setOCFLT(thebits : TBits_1); inline;
  26924. begin
  26925. if thebits = 0 then
  26926. pTDefRegMap(@Self)^.clr := $00000010
  26927. else
  26928. pTDefRegMap(@Self)^.&set := $00000010;
  26929. end;
  26930. function TOCMP3_OC3CON.getOCFLT : TBits_1; inline;
  26931. begin
  26932. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  26933. end;
  26934. procedure TOCMP3_OC3CON.setOC32; inline;
  26935. begin
  26936. pTDefRegMap(@Self)^.&set := $00000020;
  26937. end;
  26938. procedure TOCMP3_OC3CON.clearOC32; inline;
  26939. begin
  26940. pTDefRegMap(@Self)^.clr := $00000020;
  26941. end;
  26942. procedure TOCMP3_OC3CON.setOC32(thebits : TBits_1); inline;
  26943. begin
  26944. if thebits = 0 then
  26945. pTDefRegMap(@Self)^.clr := $00000020
  26946. else
  26947. pTDefRegMap(@Self)^.&set := $00000020;
  26948. end;
  26949. function TOCMP3_OC3CON.getOC32 : TBits_1; inline;
  26950. begin
  26951. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  26952. end;
  26953. procedure TOCMP3_OC3CON.setSIDL; inline;
  26954. begin
  26955. pTDefRegMap(@Self)^.&set := $00002000;
  26956. end;
  26957. procedure TOCMP3_OC3CON.clearSIDL; inline;
  26958. begin
  26959. pTDefRegMap(@Self)^.clr := $00002000;
  26960. end;
  26961. procedure TOCMP3_OC3CON.setSIDL(thebits : TBits_1); inline;
  26962. begin
  26963. if thebits = 0 then
  26964. pTDefRegMap(@Self)^.clr := $00002000
  26965. else
  26966. pTDefRegMap(@Self)^.&set := $00002000;
  26967. end;
  26968. function TOCMP3_OC3CON.getSIDL : TBits_1; inline;
  26969. begin
  26970. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26971. end;
  26972. procedure TOCMP3_OC3CON.setON; inline;
  26973. begin
  26974. pTDefRegMap(@Self)^.&set := $00008000;
  26975. end;
  26976. procedure TOCMP3_OC3CON.clearON; inline;
  26977. begin
  26978. pTDefRegMap(@Self)^.clr := $00008000;
  26979. end;
  26980. procedure TOCMP3_OC3CON.setON(thebits : TBits_1); inline;
  26981. begin
  26982. if thebits = 0 then
  26983. pTDefRegMap(@Self)^.clr := $00008000
  26984. else
  26985. pTDefRegMap(@Self)^.&set := $00008000;
  26986. end;
  26987. function TOCMP3_OC3CON.getON : TBits_1; inline;
  26988. begin
  26989. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  26990. end;
  26991. procedure TOCMP3_OC3CON.setOCM0; inline;
  26992. begin
  26993. pTDefRegMap(@Self)^.&set := $00000001;
  26994. end;
  26995. procedure TOCMP3_OC3CON.clearOCM0; inline;
  26996. begin
  26997. pTDefRegMap(@Self)^.clr := $00000001;
  26998. end;
  26999. procedure TOCMP3_OC3CON.setOCM0(thebits : TBits_1); inline;
  27000. begin
  27001. if thebits = 0 then
  27002. pTDefRegMap(@Self)^.clr := $00000001
  27003. else
  27004. pTDefRegMap(@Self)^.&set := $00000001;
  27005. end;
  27006. function TOCMP3_OC3CON.getOCM0 : TBits_1; inline;
  27007. begin
  27008. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  27009. end;
  27010. procedure TOCMP3_OC3CON.setOCM1; inline;
  27011. begin
  27012. pTDefRegMap(@Self)^.&set := $00000002;
  27013. end;
  27014. procedure TOCMP3_OC3CON.clearOCM1; inline;
  27015. begin
  27016. pTDefRegMap(@Self)^.clr := $00000002;
  27017. end;
  27018. procedure TOCMP3_OC3CON.setOCM1(thebits : TBits_1); inline;
  27019. begin
  27020. if thebits = 0 then
  27021. pTDefRegMap(@Self)^.clr := $00000002
  27022. else
  27023. pTDefRegMap(@Self)^.&set := $00000002;
  27024. end;
  27025. function TOCMP3_OC3CON.getOCM1 : TBits_1; inline;
  27026. begin
  27027. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  27028. end;
  27029. procedure TOCMP3_OC3CON.setOCM2; inline;
  27030. begin
  27031. pTDefRegMap(@Self)^.&set := $00000004;
  27032. end;
  27033. procedure TOCMP3_OC3CON.clearOCM2; inline;
  27034. begin
  27035. pTDefRegMap(@Self)^.clr := $00000004;
  27036. end;
  27037. procedure TOCMP3_OC3CON.setOCM2(thebits : TBits_1); inline;
  27038. begin
  27039. if thebits = 0 then
  27040. pTDefRegMap(@Self)^.clr := $00000004
  27041. else
  27042. pTDefRegMap(@Self)^.&set := $00000004;
  27043. end;
  27044. function TOCMP3_OC3CON.getOCM2 : TBits_1; inline;
  27045. begin
  27046. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  27047. end;
  27048. procedure TOCMP3_OC3CON.setOCSIDL; inline;
  27049. begin
  27050. pTDefRegMap(@Self)^.&set := $00002000;
  27051. end;
  27052. procedure TOCMP3_OC3CON.clearOCSIDL; inline;
  27053. begin
  27054. pTDefRegMap(@Self)^.clr := $00002000;
  27055. end;
  27056. procedure TOCMP3_OC3CON.setOCSIDL(thebits : TBits_1); inline;
  27057. begin
  27058. if thebits = 0 then
  27059. pTDefRegMap(@Self)^.clr := $00002000
  27060. else
  27061. pTDefRegMap(@Self)^.&set := $00002000;
  27062. end;
  27063. function TOCMP3_OC3CON.getOCSIDL : TBits_1; inline;
  27064. begin
  27065. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  27066. end;
  27067. procedure TOCMP3_OC3CON.setw(thebits : TBits_32); inline;
  27068. begin
  27069. pTDefRegMap(@Self)^.val := thebits;
  27070. end;
  27071. function TOCMP3_OC3CON.getw : TBits_32; inline;
  27072. begin
  27073. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  27074. end;
  27075. procedure TOCMP4_OC4CON.setOCM(thebits : TBits_3); inline;
  27076. begin
  27077. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  27078. end;
  27079. function TOCMP4_OC4CON.getOCM : TBits_3; inline;
  27080. begin
  27081. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  27082. end;
  27083. procedure TOCMP4_OC4CON.setOCTSEL; inline;
  27084. begin
  27085. pTDefRegMap(@Self)^.&set := $00000008;
  27086. end;
  27087. procedure TOCMP4_OC4CON.clearOCTSEL; inline;
  27088. begin
  27089. pTDefRegMap(@Self)^.clr := $00000008;
  27090. end;
  27091. procedure TOCMP4_OC4CON.setOCTSEL(thebits : TBits_1); inline;
  27092. begin
  27093. if thebits = 0 then
  27094. pTDefRegMap(@Self)^.clr := $00000008
  27095. else
  27096. pTDefRegMap(@Self)^.&set := $00000008;
  27097. end;
  27098. function TOCMP4_OC4CON.getOCTSEL : TBits_1; inline;
  27099. begin
  27100. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  27101. end;
  27102. procedure TOCMP4_OC4CON.setOCFLT; inline;
  27103. begin
  27104. pTDefRegMap(@Self)^.&set := $00000010;
  27105. end;
  27106. procedure TOCMP4_OC4CON.clearOCFLT; inline;
  27107. begin
  27108. pTDefRegMap(@Self)^.clr := $00000010;
  27109. end;
  27110. procedure TOCMP4_OC4CON.setOCFLT(thebits : TBits_1); inline;
  27111. begin
  27112. if thebits = 0 then
  27113. pTDefRegMap(@Self)^.clr := $00000010
  27114. else
  27115. pTDefRegMap(@Self)^.&set := $00000010;
  27116. end;
  27117. function TOCMP4_OC4CON.getOCFLT : TBits_1; inline;
  27118. begin
  27119. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  27120. end;
  27121. procedure TOCMP4_OC4CON.setOC32; inline;
  27122. begin
  27123. pTDefRegMap(@Self)^.&set := $00000020;
  27124. end;
  27125. procedure TOCMP4_OC4CON.clearOC32; inline;
  27126. begin
  27127. pTDefRegMap(@Self)^.clr := $00000020;
  27128. end;
  27129. procedure TOCMP4_OC4CON.setOC32(thebits : TBits_1); inline;
  27130. begin
  27131. if thebits = 0 then
  27132. pTDefRegMap(@Self)^.clr := $00000020
  27133. else
  27134. pTDefRegMap(@Self)^.&set := $00000020;
  27135. end;
  27136. function TOCMP4_OC4CON.getOC32 : TBits_1; inline;
  27137. begin
  27138. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  27139. end;
  27140. procedure TOCMP4_OC4CON.setSIDL; inline;
  27141. begin
  27142. pTDefRegMap(@Self)^.&set := $00002000;
  27143. end;
  27144. procedure TOCMP4_OC4CON.clearSIDL; inline;
  27145. begin
  27146. pTDefRegMap(@Self)^.clr := $00002000;
  27147. end;
  27148. procedure TOCMP4_OC4CON.setSIDL(thebits : TBits_1); inline;
  27149. begin
  27150. if thebits = 0 then
  27151. pTDefRegMap(@Self)^.clr := $00002000
  27152. else
  27153. pTDefRegMap(@Self)^.&set := $00002000;
  27154. end;
  27155. function TOCMP4_OC4CON.getSIDL : TBits_1; inline;
  27156. begin
  27157. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  27158. end;
  27159. procedure TOCMP4_OC4CON.setON; inline;
  27160. begin
  27161. pTDefRegMap(@Self)^.&set := $00008000;
  27162. end;
  27163. procedure TOCMP4_OC4CON.clearON; inline;
  27164. begin
  27165. pTDefRegMap(@Self)^.clr := $00008000;
  27166. end;
  27167. procedure TOCMP4_OC4CON.setON(thebits : TBits_1); inline;
  27168. begin
  27169. if thebits = 0 then
  27170. pTDefRegMap(@Self)^.clr := $00008000
  27171. else
  27172. pTDefRegMap(@Self)^.&set := $00008000;
  27173. end;
  27174. function TOCMP4_OC4CON.getON : TBits_1; inline;
  27175. begin
  27176. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  27177. end;
  27178. procedure TOCMP4_OC4CON.setOCM0; inline;
  27179. begin
  27180. pTDefRegMap(@Self)^.&set := $00000001;
  27181. end;
  27182. procedure TOCMP4_OC4CON.clearOCM0; inline;
  27183. begin
  27184. pTDefRegMap(@Self)^.clr := $00000001;
  27185. end;
  27186. procedure TOCMP4_OC4CON.setOCM0(thebits : TBits_1); inline;
  27187. begin
  27188. if thebits = 0 then
  27189. pTDefRegMap(@Self)^.clr := $00000001
  27190. else
  27191. pTDefRegMap(@Self)^.&set := $00000001;
  27192. end;
  27193. function TOCMP4_OC4CON.getOCM0 : TBits_1; inline;
  27194. begin
  27195. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  27196. end;
  27197. procedure TOCMP4_OC4CON.setOCM1; inline;
  27198. begin
  27199. pTDefRegMap(@Self)^.&set := $00000002;
  27200. end;
  27201. procedure TOCMP4_OC4CON.clearOCM1; inline;
  27202. begin
  27203. pTDefRegMap(@Self)^.clr := $00000002;
  27204. end;
  27205. procedure TOCMP4_OC4CON.setOCM1(thebits : TBits_1); inline;
  27206. begin
  27207. if thebits = 0 then
  27208. pTDefRegMap(@Self)^.clr := $00000002
  27209. else
  27210. pTDefRegMap(@Self)^.&set := $00000002;
  27211. end;
  27212. function TOCMP4_OC4CON.getOCM1 : TBits_1; inline;
  27213. begin
  27214. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  27215. end;
  27216. procedure TOCMP4_OC4CON.setOCM2; inline;
  27217. begin
  27218. pTDefRegMap(@Self)^.&set := $00000004;
  27219. end;
  27220. procedure TOCMP4_OC4CON.clearOCM2; inline;
  27221. begin
  27222. pTDefRegMap(@Self)^.clr := $00000004;
  27223. end;
  27224. procedure TOCMP4_OC4CON.setOCM2(thebits : TBits_1); inline;
  27225. begin
  27226. if thebits = 0 then
  27227. pTDefRegMap(@Self)^.clr := $00000004
  27228. else
  27229. pTDefRegMap(@Self)^.&set := $00000004;
  27230. end;
  27231. function TOCMP4_OC4CON.getOCM2 : TBits_1; inline;
  27232. begin
  27233. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  27234. end;
  27235. procedure TOCMP4_OC4CON.setOCSIDL; inline;
  27236. begin
  27237. pTDefRegMap(@Self)^.&set := $00002000;
  27238. end;
  27239. procedure TOCMP4_OC4CON.clearOCSIDL; inline;
  27240. begin
  27241. pTDefRegMap(@Self)^.clr := $00002000;
  27242. end;
  27243. procedure TOCMP4_OC4CON.setOCSIDL(thebits : TBits_1); inline;
  27244. begin
  27245. if thebits = 0 then
  27246. pTDefRegMap(@Self)^.clr := $00002000
  27247. else
  27248. pTDefRegMap(@Self)^.&set := $00002000;
  27249. end;
  27250. function TOCMP4_OC4CON.getOCSIDL : TBits_1; inline;
  27251. begin
  27252. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  27253. end;
  27254. procedure TOCMP4_OC4CON.setw(thebits : TBits_32); inline;
  27255. begin
  27256. pTDefRegMap(@Self)^.val := thebits;
  27257. end;
  27258. function TOCMP4_OC4CON.getw : TBits_32; inline;
  27259. begin
  27260. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  27261. end;
  27262. procedure TOCMP5_OC5CON.setOCM(thebits : TBits_3); inline;
  27263. begin
  27264. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  27265. end;
  27266. function TOCMP5_OC5CON.getOCM : TBits_3; inline;
  27267. begin
  27268. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  27269. end;
  27270. procedure TOCMP5_OC5CON.setOCTSEL; inline;
  27271. begin
  27272. pTDefRegMap(@Self)^.&set := $00000008;
  27273. end;
  27274. procedure TOCMP5_OC5CON.clearOCTSEL; inline;
  27275. begin
  27276. pTDefRegMap(@Self)^.clr := $00000008;
  27277. end;
  27278. procedure TOCMP5_OC5CON.setOCTSEL(thebits : TBits_1); inline;
  27279. begin
  27280. if thebits = 0 then
  27281. pTDefRegMap(@Self)^.clr := $00000008
  27282. else
  27283. pTDefRegMap(@Self)^.&set := $00000008;
  27284. end;
  27285. function TOCMP5_OC5CON.getOCTSEL : TBits_1; inline;
  27286. begin
  27287. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  27288. end;
  27289. procedure TOCMP5_OC5CON.setOCFLT; inline;
  27290. begin
  27291. pTDefRegMap(@Self)^.&set := $00000010;
  27292. end;
  27293. procedure TOCMP5_OC5CON.clearOCFLT; inline;
  27294. begin
  27295. pTDefRegMap(@Self)^.clr := $00000010;
  27296. end;
  27297. procedure TOCMP5_OC5CON.setOCFLT(thebits : TBits_1); inline;
  27298. begin
  27299. if thebits = 0 then
  27300. pTDefRegMap(@Self)^.clr := $00000010
  27301. else
  27302. pTDefRegMap(@Self)^.&set := $00000010;
  27303. end;
  27304. function TOCMP5_OC5CON.getOCFLT : TBits_1; inline;
  27305. begin
  27306. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  27307. end;
  27308. procedure TOCMP5_OC5CON.setOC32; inline;
  27309. begin
  27310. pTDefRegMap(@Self)^.&set := $00000020;
  27311. end;
  27312. procedure TOCMP5_OC5CON.clearOC32; inline;
  27313. begin
  27314. pTDefRegMap(@Self)^.clr := $00000020;
  27315. end;
  27316. procedure TOCMP5_OC5CON.setOC32(thebits : TBits_1); inline;
  27317. begin
  27318. if thebits = 0 then
  27319. pTDefRegMap(@Self)^.clr := $00000020
  27320. else
  27321. pTDefRegMap(@Self)^.&set := $00000020;
  27322. end;
  27323. function TOCMP5_OC5CON.getOC32 : TBits_1; inline;
  27324. begin
  27325. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  27326. end;
  27327. procedure TOCMP5_OC5CON.setSIDL; inline;
  27328. begin
  27329. pTDefRegMap(@Self)^.&set := $00002000;
  27330. end;
  27331. procedure TOCMP5_OC5CON.clearSIDL; inline;
  27332. begin
  27333. pTDefRegMap(@Self)^.clr := $00002000;
  27334. end;
  27335. procedure TOCMP5_OC5CON.setSIDL(thebits : TBits_1); inline;
  27336. begin
  27337. if thebits = 0 then
  27338. pTDefRegMap(@Self)^.clr := $00002000
  27339. else
  27340. pTDefRegMap(@Self)^.&set := $00002000;
  27341. end;
  27342. function TOCMP5_OC5CON.getSIDL : TBits_1; inline;
  27343. begin
  27344. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  27345. end;
  27346. procedure TOCMP5_OC5CON.setON; inline;
  27347. begin
  27348. pTDefRegMap(@Self)^.&set := $00008000;
  27349. end;
  27350. procedure TOCMP5_OC5CON.clearON; inline;
  27351. begin
  27352. pTDefRegMap(@Self)^.clr := $00008000;
  27353. end;
  27354. procedure TOCMP5_OC5CON.setON(thebits : TBits_1); inline;
  27355. begin
  27356. if thebits = 0 then
  27357. pTDefRegMap(@Self)^.clr := $00008000
  27358. else
  27359. pTDefRegMap(@Self)^.&set := $00008000;
  27360. end;
  27361. function TOCMP5_OC5CON.getON : TBits_1; inline;
  27362. begin
  27363. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  27364. end;
  27365. procedure TOCMP5_OC5CON.setOCM0; inline;
  27366. begin
  27367. pTDefRegMap(@Self)^.&set := $00000001;
  27368. end;
  27369. procedure TOCMP5_OC5CON.clearOCM0; inline;
  27370. begin
  27371. pTDefRegMap(@Self)^.clr := $00000001;
  27372. end;
  27373. procedure TOCMP5_OC5CON.setOCM0(thebits : TBits_1); inline;
  27374. begin
  27375. if thebits = 0 then
  27376. pTDefRegMap(@Self)^.clr := $00000001
  27377. else
  27378. pTDefRegMap(@Self)^.&set := $00000001;
  27379. end;
  27380. function TOCMP5_OC5CON.getOCM0 : TBits_1; inline;
  27381. begin
  27382. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  27383. end;
  27384. procedure TOCMP5_OC5CON.setOCM1; inline;
  27385. begin
  27386. pTDefRegMap(@Self)^.&set := $00000002;
  27387. end;
  27388. procedure TOCMP5_OC5CON.clearOCM1; inline;
  27389. begin
  27390. pTDefRegMap(@Self)^.clr := $00000002;
  27391. end;
  27392. procedure TOCMP5_OC5CON.setOCM1(thebits : TBits_1); inline;
  27393. begin
  27394. if thebits = 0 then
  27395. pTDefRegMap(@Self)^.clr := $00000002
  27396. else
  27397. pTDefRegMap(@Self)^.&set := $00000002;
  27398. end;
  27399. function TOCMP5_OC5CON.getOCM1 : TBits_1; inline;
  27400. begin
  27401. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  27402. end;
  27403. procedure TOCMP5_OC5CON.setOCM2; inline;
  27404. begin
  27405. pTDefRegMap(@Self)^.&set := $00000004;
  27406. end;
  27407. procedure TOCMP5_OC5CON.clearOCM2; inline;
  27408. begin
  27409. pTDefRegMap(@Self)^.clr := $00000004;
  27410. end;
  27411. procedure TOCMP5_OC5CON.setOCM2(thebits : TBits_1); inline;
  27412. begin
  27413. if thebits = 0 then
  27414. pTDefRegMap(@Self)^.clr := $00000004
  27415. else
  27416. pTDefRegMap(@Self)^.&set := $00000004;
  27417. end;
  27418. function TOCMP5_OC5CON.getOCM2 : TBits_1; inline;
  27419. begin
  27420. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  27421. end;
  27422. procedure TOCMP5_OC5CON.setOCSIDL; inline;
  27423. begin
  27424. pTDefRegMap(@Self)^.&set := $00002000;
  27425. end;
  27426. procedure TOCMP5_OC5CON.clearOCSIDL; inline;
  27427. begin
  27428. pTDefRegMap(@Self)^.clr := $00002000;
  27429. end;
  27430. procedure TOCMP5_OC5CON.setOCSIDL(thebits : TBits_1); inline;
  27431. begin
  27432. if thebits = 0 then
  27433. pTDefRegMap(@Self)^.clr := $00002000
  27434. else
  27435. pTDefRegMap(@Self)^.&set := $00002000;
  27436. end;
  27437. function TOCMP5_OC5CON.getOCSIDL : TBits_1; inline;
  27438. begin
  27439. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  27440. end;
  27441. procedure TOCMP5_OC5CON.setw(thebits : TBits_32); inline;
  27442. begin
  27443. pTDefRegMap(@Self)^.val := thebits;
  27444. end;
  27445. function TOCMP5_OC5CON.getw : TBits_32; inline;
  27446. begin
  27447. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  27448. end;
  27449. procedure TI2C3_I2C1ACON.setSEN; inline;
  27450. begin
  27451. pTDefRegMap(@Self)^.&set := $00000001;
  27452. end;
  27453. procedure TI2C3_I2C1ACON.clearSEN; inline;
  27454. begin
  27455. pTDefRegMap(@Self)^.clr := $00000001;
  27456. end;
  27457. procedure TI2C3_I2C1ACON.setSEN(thebits : TBits_1); inline;
  27458. begin
  27459. if thebits = 0 then
  27460. pTDefRegMap(@Self)^.clr := $00000001
  27461. else
  27462. pTDefRegMap(@Self)^.&set := $00000001;
  27463. end;
  27464. function TI2C3_I2C1ACON.getSEN : TBits_1; inline;
  27465. begin
  27466. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  27467. end;
  27468. procedure TI2C3_I2C1ACON.setRSEN; inline;
  27469. begin
  27470. pTDefRegMap(@Self)^.&set := $00000002;
  27471. end;
  27472. procedure TI2C3_I2C1ACON.clearRSEN; inline;
  27473. begin
  27474. pTDefRegMap(@Self)^.clr := $00000002;
  27475. end;
  27476. procedure TI2C3_I2C1ACON.setRSEN(thebits : TBits_1); inline;
  27477. begin
  27478. if thebits = 0 then
  27479. pTDefRegMap(@Self)^.clr := $00000002
  27480. else
  27481. pTDefRegMap(@Self)^.&set := $00000002;
  27482. end;
  27483. function TI2C3_I2C1ACON.getRSEN : TBits_1; inline;
  27484. begin
  27485. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  27486. end;
  27487. procedure TI2C3_I2C1ACON.setPEN; inline;
  27488. begin
  27489. pTDefRegMap(@Self)^.&set := $00000004;
  27490. end;
  27491. procedure TI2C3_I2C1ACON.clearPEN; inline;
  27492. begin
  27493. pTDefRegMap(@Self)^.clr := $00000004;
  27494. end;
  27495. procedure TI2C3_I2C1ACON.setPEN(thebits : TBits_1); inline;
  27496. begin
  27497. if thebits = 0 then
  27498. pTDefRegMap(@Self)^.clr := $00000004
  27499. else
  27500. pTDefRegMap(@Self)^.&set := $00000004;
  27501. end;
  27502. function TI2C3_I2C1ACON.getPEN : TBits_1; inline;
  27503. begin
  27504. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  27505. end;
  27506. procedure TI2C3_I2C1ACON.setRCEN; inline;
  27507. begin
  27508. pTDefRegMap(@Self)^.&set := $00000008;
  27509. end;
  27510. procedure TI2C3_I2C1ACON.clearRCEN; inline;
  27511. begin
  27512. pTDefRegMap(@Self)^.clr := $00000008;
  27513. end;
  27514. procedure TI2C3_I2C1ACON.setRCEN(thebits : TBits_1); inline;
  27515. begin
  27516. if thebits = 0 then
  27517. pTDefRegMap(@Self)^.clr := $00000008
  27518. else
  27519. pTDefRegMap(@Self)^.&set := $00000008;
  27520. end;
  27521. function TI2C3_I2C1ACON.getRCEN : TBits_1; inline;
  27522. begin
  27523. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  27524. end;
  27525. procedure TI2C3_I2C1ACON.setACKEN; inline;
  27526. begin
  27527. pTDefRegMap(@Self)^.&set := $00000010;
  27528. end;
  27529. procedure TI2C3_I2C1ACON.clearACKEN; inline;
  27530. begin
  27531. pTDefRegMap(@Self)^.clr := $00000010;
  27532. end;
  27533. procedure TI2C3_I2C1ACON.setACKEN(thebits : TBits_1); inline;
  27534. begin
  27535. if thebits = 0 then
  27536. pTDefRegMap(@Self)^.clr := $00000010
  27537. else
  27538. pTDefRegMap(@Self)^.&set := $00000010;
  27539. end;
  27540. function TI2C3_I2C1ACON.getACKEN : TBits_1; inline;
  27541. begin
  27542. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  27543. end;
  27544. procedure TI2C3_I2C1ACON.setACKDT; inline;
  27545. begin
  27546. pTDefRegMap(@Self)^.&set := $00000020;
  27547. end;
  27548. procedure TI2C3_I2C1ACON.clearACKDT; inline;
  27549. begin
  27550. pTDefRegMap(@Self)^.clr := $00000020;
  27551. end;
  27552. procedure TI2C3_I2C1ACON.setACKDT(thebits : TBits_1); inline;
  27553. begin
  27554. if thebits = 0 then
  27555. pTDefRegMap(@Self)^.clr := $00000020
  27556. else
  27557. pTDefRegMap(@Self)^.&set := $00000020;
  27558. end;
  27559. function TI2C3_I2C1ACON.getACKDT : TBits_1; inline;
  27560. begin
  27561. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  27562. end;
  27563. procedure TI2C3_I2C1ACON.setSTREN; inline;
  27564. begin
  27565. pTDefRegMap(@Self)^.&set := $00000040;
  27566. end;
  27567. procedure TI2C3_I2C1ACON.clearSTREN; inline;
  27568. begin
  27569. pTDefRegMap(@Self)^.clr := $00000040;
  27570. end;
  27571. procedure TI2C3_I2C1ACON.setSTREN(thebits : TBits_1); inline;
  27572. begin
  27573. if thebits = 0 then
  27574. pTDefRegMap(@Self)^.clr := $00000040
  27575. else
  27576. pTDefRegMap(@Self)^.&set := $00000040;
  27577. end;
  27578. function TI2C3_I2C1ACON.getSTREN : TBits_1; inline;
  27579. begin
  27580. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  27581. end;
  27582. procedure TI2C3_I2C1ACON.setGCEN; inline;
  27583. begin
  27584. pTDefRegMap(@Self)^.&set := $00000080;
  27585. end;
  27586. procedure TI2C3_I2C1ACON.clearGCEN; inline;
  27587. begin
  27588. pTDefRegMap(@Self)^.clr := $00000080;
  27589. end;
  27590. procedure TI2C3_I2C1ACON.setGCEN(thebits : TBits_1); inline;
  27591. begin
  27592. if thebits = 0 then
  27593. pTDefRegMap(@Self)^.clr := $00000080
  27594. else
  27595. pTDefRegMap(@Self)^.&set := $00000080;
  27596. end;
  27597. function TI2C3_I2C1ACON.getGCEN : TBits_1; inline;
  27598. begin
  27599. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  27600. end;
  27601. procedure TI2C3_I2C1ACON.setSMEN; inline;
  27602. begin
  27603. pTDefRegMap(@Self)^.&set := $00000100;
  27604. end;
  27605. procedure TI2C3_I2C1ACON.clearSMEN; inline;
  27606. begin
  27607. pTDefRegMap(@Self)^.clr := $00000100;
  27608. end;
  27609. procedure TI2C3_I2C1ACON.setSMEN(thebits : TBits_1); inline;
  27610. begin
  27611. if thebits = 0 then
  27612. pTDefRegMap(@Self)^.clr := $00000100
  27613. else
  27614. pTDefRegMap(@Self)^.&set := $00000100;
  27615. end;
  27616. function TI2C3_I2C1ACON.getSMEN : TBits_1; inline;
  27617. begin
  27618. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  27619. end;
  27620. procedure TI2C3_I2C1ACON.setDISSLW; inline;
  27621. begin
  27622. pTDefRegMap(@Self)^.&set := $00000200;
  27623. end;
  27624. procedure TI2C3_I2C1ACON.clearDISSLW; inline;
  27625. begin
  27626. pTDefRegMap(@Self)^.clr := $00000200;
  27627. end;
  27628. procedure TI2C3_I2C1ACON.setDISSLW(thebits : TBits_1); inline;
  27629. begin
  27630. if thebits = 0 then
  27631. pTDefRegMap(@Self)^.clr := $00000200
  27632. else
  27633. pTDefRegMap(@Self)^.&set := $00000200;
  27634. end;
  27635. function TI2C3_I2C1ACON.getDISSLW : TBits_1; inline;
  27636. begin
  27637. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  27638. end;
  27639. procedure TI2C3_I2C1ACON.setA10M; inline;
  27640. begin
  27641. pTDefRegMap(@Self)^.&set := $00000400;
  27642. end;
  27643. procedure TI2C3_I2C1ACON.clearA10M; inline;
  27644. begin
  27645. pTDefRegMap(@Self)^.clr := $00000400;
  27646. end;
  27647. procedure TI2C3_I2C1ACON.setA10M(thebits : TBits_1); inline;
  27648. begin
  27649. if thebits = 0 then
  27650. pTDefRegMap(@Self)^.clr := $00000400
  27651. else
  27652. pTDefRegMap(@Self)^.&set := $00000400;
  27653. end;
  27654. function TI2C3_I2C1ACON.getA10M : TBits_1; inline;
  27655. begin
  27656. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  27657. end;
  27658. procedure TI2C3_I2C1ACON.setSTRICT; inline;
  27659. begin
  27660. pTDefRegMap(@Self)^.&set := $00000800;
  27661. end;
  27662. procedure TI2C3_I2C1ACON.clearSTRICT; inline;
  27663. begin
  27664. pTDefRegMap(@Self)^.clr := $00000800;
  27665. end;
  27666. procedure TI2C3_I2C1ACON.setSTRICT(thebits : TBits_1); inline;
  27667. begin
  27668. if thebits = 0 then
  27669. pTDefRegMap(@Self)^.clr := $00000800
  27670. else
  27671. pTDefRegMap(@Self)^.&set := $00000800;
  27672. end;
  27673. function TI2C3_I2C1ACON.getSTRICT : TBits_1; inline;
  27674. begin
  27675. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  27676. end;
  27677. procedure TI2C3_I2C1ACON.setSCLREL; inline;
  27678. begin
  27679. pTDefRegMap(@Self)^.&set := $00001000;
  27680. end;
  27681. procedure TI2C3_I2C1ACON.clearSCLREL; inline;
  27682. begin
  27683. pTDefRegMap(@Self)^.clr := $00001000;
  27684. end;
  27685. procedure TI2C3_I2C1ACON.setSCLREL(thebits : TBits_1); inline;
  27686. begin
  27687. if thebits = 0 then
  27688. pTDefRegMap(@Self)^.clr := $00001000
  27689. else
  27690. pTDefRegMap(@Self)^.&set := $00001000;
  27691. end;
  27692. function TI2C3_I2C1ACON.getSCLREL : TBits_1; inline;
  27693. begin
  27694. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  27695. end;
  27696. procedure TI2C3_I2C1ACON.setSIDL; inline;
  27697. begin
  27698. pTDefRegMap(@Self)^.&set := $00002000;
  27699. end;
  27700. procedure TI2C3_I2C1ACON.clearSIDL; inline;
  27701. begin
  27702. pTDefRegMap(@Self)^.clr := $00002000;
  27703. end;
  27704. procedure TI2C3_I2C1ACON.setSIDL(thebits : TBits_1); inline;
  27705. begin
  27706. if thebits = 0 then
  27707. pTDefRegMap(@Self)^.clr := $00002000
  27708. else
  27709. pTDefRegMap(@Self)^.&set := $00002000;
  27710. end;
  27711. function TI2C3_I2C1ACON.getSIDL : TBits_1; inline;
  27712. begin
  27713. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  27714. end;
  27715. procedure TI2C3_I2C1ACON.setON; inline;
  27716. begin
  27717. pTDefRegMap(@Self)^.&set := $00008000;
  27718. end;
  27719. procedure TI2C3_I2C1ACON.clearON; inline;
  27720. begin
  27721. pTDefRegMap(@Self)^.clr := $00008000;
  27722. end;
  27723. procedure TI2C3_I2C1ACON.setON(thebits : TBits_1); inline;
  27724. begin
  27725. if thebits = 0 then
  27726. pTDefRegMap(@Self)^.clr := $00008000
  27727. else
  27728. pTDefRegMap(@Self)^.&set := $00008000;
  27729. end;
  27730. function TI2C3_I2C1ACON.getON : TBits_1; inline;
  27731. begin
  27732. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  27733. end;
  27734. procedure TI2C3_I2C1ACON.setIPMIEN; inline;
  27735. begin
  27736. pTDefRegMap(@Self)^.&set := $00000800;
  27737. end;
  27738. procedure TI2C3_I2C1ACON.clearIPMIEN; inline;
  27739. begin
  27740. pTDefRegMap(@Self)^.clr := $00000800;
  27741. end;
  27742. procedure TI2C3_I2C1ACON.setIPMIEN(thebits : TBits_1); inline;
  27743. begin
  27744. if thebits = 0 then
  27745. pTDefRegMap(@Self)^.clr := $00000800
  27746. else
  27747. pTDefRegMap(@Self)^.&set := $00000800;
  27748. end;
  27749. function TI2C3_I2C1ACON.getIPMIEN : TBits_1; inline;
  27750. begin
  27751. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  27752. end;
  27753. procedure TI2C3_I2C1ACON.setI2CSIDL; inline;
  27754. begin
  27755. pTDefRegMap(@Self)^.&set := $00002000;
  27756. end;
  27757. procedure TI2C3_I2C1ACON.clearI2CSIDL; inline;
  27758. begin
  27759. pTDefRegMap(@Self)^.clr := $00002000;
  27760. end;
  27761. procedure TI2C3_I2C1ACON.setI2CSIDL(thebits : TBits_1); inline;
  27762. begin
  27763. if thebits = 0 then
  27764. pTDefRegMap(@Self)^.clr := $00002000
  27765. else
  27766. pTDefRegMap(@Self)^.&set := $00002000;
  27767. end;
  27768. function TI2C3_I2C1ACON.getI2CSIDL : TBits_1; inline;
  27769. begin
  27770. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  27771. end;
  27772. procedure TI2C3_I2C1ACON.setI2CEN; inline;
  27773. begin
  27774. pTDefRegMap(@Self)^.&set := $00008000;
  27775. end;
  27776. procedure TI2C3_I2C1ACON.clearI2CEN; inline;
  27777. begin
  27778. pTDefRegMap(@Self)^.clr := $00008000;
  27779. end;
  27780. procedure TI2C3_I2C1ACON.setI2CEN(thebits : TBits_1); inline;
  27781. begin
  27782. if thebits = 0 then
  27783. pTDefRegMap(@Self)^.clr := $00008000
  27784. else
  27785. pTDefRegMap(@Self)^.&set := $00008000;
  27786. end;
  27787. function TI2C3_I2C1ACON.getI2CEN : TBits_1; inline;
  27788. begin
  27789. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  27790. end;
  27791. procedure TI2C3_I2C1ACON.setw(thebits : TBits_32); inline;
  27792. begin
  27793. pTDefRegMap(@Self)^.val := thebits;
  27794. end;
  27795. function TI2C3_I2C1ACON.getw : TBits_32; inline;
  27796. begin
  27797. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  27798. end;
  27799. procedure TI2C3_I2C3CON.setSEN; inline;
  27800. begin
  27801. pTDefRegMap(@Self)^.&set := $00000001;
  27802. end;
  27803. procedure TI2C3_I2C3CON.clearSEN; inline;
  27804. begin
  27805. pTDefRegMap(@Self)^.clr := $00000001;
  27806. end;
  27807. procedure TI2C3_I2C3CON.setSEN(thebits : TBits_1); inline;
  27808. begin
  27809. if thebits = 0 then
  27810. pTDefRegMap(@Self)^.clr := $00000001
  27811. else
  27812. pTDefRegMap(@Self)^.&set := $00000001;
  27813. end;
  27814. function TI2C3_I2C3CON.getSEN : TBits_1; inline;
  27815. begin
  27816. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  27817. end;
  27818. procedure TI2C3_I2C3CON.setRSEN; inline;
  27819. begin
  27820. pTDefRegMap(@Self)^.&set := $00000002;
  27821. end;
  27822. procedure TI2C3_I2C3CON.clearRSEN; inline;
  27823. begin
  27824. pTDefRegMap(@Self)^.clr := $00000002;
  27825. end;
  27826. procedure TI2C3_I2C3CON.setRSEN(thebits : TBits_1); inline;
  27827. begin
  27828. if thebits = 0 then
  27829. pTDefRegMap(@Self)^.clr := $00000002
  27830. else
  27831. pTDefRegMap(@Self)^.&set := $00000002;
  27832. end;
  27833. function TI2C3_I2C3CON.getRSEN : TBits_1; inline;
  27834. begin
  27835. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  27836. end;
  27837. procedure TI2C3_I2C3CON.setPEN; inline;
  27838. begin
  27839. pTDefRegMap(@Self)^.&set := $00000004;
  27840. end;
  27841. procedure TI2C3_I2C3CON.clearPEN; inline;
  27842. begin
  27843. pTDefRegMap(@Self)^.clr := $00000004;
  27844. end;
  27845. procedure TI2C3_I2C3CON.setPEN(thebits : TBits_1); inline;
  27846. begin
  27847. if thebits = 0 then
  27848. pTDefRegMap(@Self)^.clr := $00000004
  27849. else
  27850. pTDefRegMap(@Self)^.&set := $00000004;
  27851. end;
  27852. function TI2C3_I2C3CON.getPEN : TBits_1; inline;
  27853. begin
  27854. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  27855. end;
  27856. procedure TI2C3_I2C3CON.setRCEN; inline;
  27857. begin
  27858. pTDefRegMap(@Self)^.&set := $00000008;
  27859. end;
  27860. procedure TI2C3_I2C3CON.clearRCEN; inline;
  27861. begin
  27862. pTDefRegMap(@Self)^.clr := $00000008;
  27863. end;
  27864. procedure TI2C3_I2C3CON.setRCEN(thebits : TBits_1); inline;
  27865. begin
  27866. if thebits = 0 then
  27867. pTDefRegMap(@Self)^.clr := $00000008
  27868. else
  27869. pTDefRegMap(@Self)^.&set := $00000008;
  27870. end;
  27871. function TI2C3_I2C3CON.getRCEN : TBits_1; inline;
  27872. begin
  27873. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  27874. end;
  27875. procedure TI2C3_I2C3CON.setACKEN; inline;
  27876. begin
  27877. pTDefRegMap(@Self)^.&set := $00000010;
  27878. end;
  27879. procedure TI2C3_I2C3CON.clearACKEN; inline;
  27880. begin
  27881. pTDefRegMap(@Self)^.clr := $00000010;
  27882. end;
  27883. procedure TI2C3_I2C3CON.setACKEN(thebits : TBits_1); inline;
  27884. begin
  27885. if thebits = 0 then
  27886. pTDefRegMap(@Self)^.clr := $00000010
  27887. else
  27888. pTDefRegMap(@Self)^.&set := $00000010;
  27889. end;
  27890. function TI2C3_I2C3CON.getACKEN : TBits_1; inline;
  27891. begin
  27892. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  27893. end;
  27894. procedure TI2C3_I2C3CON.setACKDT; inline;
  27895. begin
  27896. pTDefRegMap(@Self)^.&set := $00000020;
  27897. end;
  27898. procedure TI2C3_I2C3CON.clearACKDT; inline;
  27899. begin
  27900. pTDefRegMap(@Self)^.clr := $00000020;
  27901. end;
  27902. procedure TI2C3_I2C3CON.setACKDT(thebits : TBits_1); inline;
  27903. begin
  27904. if thebits = 0 then
  27905. pTDefRegMap(@Self)^.clr := $00000020
  27906. else
  27907. pTDefRegMap(@Self)^.&set := $00000020;
  27908. end;
  27909. function TI2C3_I2C3CON.getACKDT : TBits_1; inline;
  27910. begin
  27911. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  27912. end;
  27913. procedure TI2C3_I2C3CON.setSTREN; inline;
  27914. begin
  27915. pTDefRegMap(@Self)^.&set := $00000040;
  27916. end;
  27917. procedure TI2C3_I2C3CON.clearSTREN; inline;
  27918. begin
  27919. pTDefRegMap(@Self)^.clr := $00000040;
  27920. end;
  27921. procedure TI2C3_I2C3CON.setSTREN(thebits : TBits_1); inline;
  27922. begin
  27923. if thebits = 0 then
  27924. pTDefRegMap(@Self)^.clr := $00000040
  27925. else
  27926. pTDefRegMap(@Self)^.&set := $00000040;
  27927. end;
  27928. function TI2C3_I2C3CON.getSTREN : TBits_1; inline;
  27929. begin
  27930. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  27931. end;
  27932. procedure TI2C3_I2C3CON.setGCEN; inline;
  27933. begin
  27934. pTDefRegMap(@Self)^.&set := $00000080;
  27935. end;
  27936. procedure TI2C3_I2C3CON.clearGCEN; inline;
  27937. begin
  27938. pTDefRegMap(@Self)^.clr := $00000080;
  27939. end;
  27940. procedure TI2C3_I2C3CON.setGCEN(thebits : TBits_1); inline;
  27941. begin
  27942. if thebits = 0 then
  27943. pTDefRegMap(@Self)^.clr := $00000080
  27944. else
  27945. pTDefRegMap(@Self)^.&set := $00000080;
  27946. end;
  27947. function TI2C3_I2C3CON.getGCEN : TBits_1; inline;
  27948. begin
  27949. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  27950. end;
  27951. procedure TI2C3_I2C3CON.setSMEN; inline;
  27952. begin
  27953. pTDefRegMap(@Self)^.&set := $00000100;
  27954. end;
  27955. procedure TI2C3_I2C3CON.clearSMEN; inline;
  27956. begin
  27957. pTDefRegMap(@Self)^.clr := $00000100;
  27958. end;
  27959. procedure TI2C3_I2C3CON.setSMEN(thebits : TBits_1); inline;
  27960. begin
  27961. if thebits = 0 then
  27962. pTDefRegMap(@Self)^.clr := $00000100
  27963. else
  27964. pTDefRegMap(@Self)^.&set := $00000100;
  27965. end;
  27966. function TI2C3_I2C3CON.getSMEN : TBits_1; inline;
  27967. begin
  27968. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  27969. end;
  27970. procedure TI2C3_I2C3CON.setDISSLW; inline;
  27971. begin
  27972. pTDefRegMap(@Self)^.&set := $00000200;
  27973. end;
  27974. procedure TI2C3_I2C3CON.clearDISSLW; inline;
  27975. begin
  27976. pTDefRegMap(@Self)^.clr := $00000200;
  27977. end;
  27978. procedure TI2C3_I2C3CON.setDISSLW(thebits : TBits_1); inline;
  27979. begin
  27980. if thebits = 0 then
  27981. pTDefRegMap(@Self)^.clr := $00000200
  27982. else
  27983. pTDefRegMap(@Self)^.&set := $00000200;
  27984. end;
  27985. function TI2C3_I2C3CON.getDISSLW : TBits_1; inline;
  27986. begin
  27987. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  27988. end;
  27989. procedure TI2C3_I2C3CON.setA10M; inline;
  27990. begin
  27991. pTDefRegMap(@Self)^.&set := $00000400;
  27992. end;
  27993. procedure TI2C3_I2C3CON.clearA10M; inline;
  27994. begin
  27995. pTDefRegMap(@Self)^.clr := $00000400;
  27996. end;
  27997. procedure TI2C3_I2C3CON.setA10M(thebits : TBits_1); inline;
  27998. begin
  27999. if thebits = 0 then
  28000. pTDefRegMap(@Self)^.clr := $00000400
  28001. else
  28002. pTDefRegMap(@Self)^.&set := $00000400;
  28003. end;
  28004. function TI2C3_I2C3CON.getA10M : TBits_1; inline;
  28005. begin
  28006. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  28007. end;
  28008. procedure TI2C3_I2C3CON.setSTRICT; inline;
  28009. begin
  28010. pTDefRegMap(@Self)^.&set := $00000800;
  28011. end;
  28012. procedure TI2C3_I2C3CON.clearSTRICT; inline;
  28013. begin
  28014. pTDefRegMap(@Self)^.clr := $00000800;
  28015. end;
  28016. procedure TI2C3_I2C3CON.setSTRICT(thebits : TBits_1); inline;
  28017. begin
  28018. if thebits = 0 then
  28019. pTDefRegMap(@Self)^.clr := $00000800
  28020. else
  28021. pTDefRegMap(@Self)^.&set := $00000800;
  28022. end;
  28023. function TI2C3_I2C3CON.getSTRICT : TBits_1; inline;
  28024. begin
  28025. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  28026. end;
  28027. procedure TI2C3_I2C3CON.setSCLREL; inline;
  28028. begin
  28029. pTDefRegMap(@Self)^.&set := $00001000;
  28030. end;
  28031. procedure TI2C3_I2C3CON.clearSCLREL; inline;
  28032. begin
  28033. pTDefRegMap(@Self)^.clr := $00001000;
  28034. end;
  28035. procedure TI2C3_I2C3CON.setSCLREL(thebits : TBits_1); inline;
  28036. begin
  28037. if thebits = 0 then
  28038. pTDefRegMap(@Self)^.clr := $00001000
  28039. else
  28040. pTDefRegMap(@Self)^.&set := $00001000;
  28041. end;
  28042. function TI2C3_I2C3CON.getSCLREL : TBits_1; inline;
  28043. begin
  28044. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  28045. end;
  28046. procedure TI2C3_I2C3CON.setSIDL; inline;
  28047. begin
  28048. pTDefRegMap(@Self)^.&set := $00002000;
  28049. end;
  28050. procedure TI2C3_I2C3CON.clearSIDL; inline;
  28051. begin
  28052. pTDefRegMap(@Self)^.clr := $00002000;
  28053. end;
  28054. procedure TI2C3_I2C3CON.setSIDL(thebits : TBits_1); inline;
  28055. begin
  28056. if thebits = 0 then
  28057. pTDefRegMap(@Self)^.clr := $00002000
  28058. else
  28059. pTDefRegMap(@Self)^.&set := $00002000;
  28060. end;
  28061. function TI2C3_I2C3CON.getSIDL : TBits_1; inline;
  28062. begin
  28063. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  28064. end;
  28065. procedure TI2C3_I2C3CON.setON; inline;
  28066. begin
  28067. pTDefRegMap(@Self)^.&set := $00008000;
  28068. end;
  28069. procedure TI2C3_I2C3CON.clearON; inline;
  28070. begin
  28071. pTDefRegMap(@Self)^.clr := $00008000;
  28072. end;
  28073. procedure TI2C3_I2C3CON.setON(thebits : TBits_1); inline;
  28074. begin
  28075. if thebits = 0 then
  28076. pTDefRegMap(@Self)^.clr := $00008000
  28077. else
  28078. pTDefRegMap(@Self)^.&set := $00008000;
  28079. end;
  28080. function TI2C3_I2C3CON.getON : TBits_1; inline;
  28081. begin
  28082. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  28083. end;
  28084. procedure TI2C3_I2C3CON.setIPMIEN; inline;
  28085. begin
  28086. pTDefRegMap(@Self)^.&set := $00000800;
  28087. end;
  28088. procedure TI2C3_I2C3CON.clearIPMIEN; inline;
  28089. begin
  28090. pTDefRegMap(@Self)^.clr := $00000800;
  28091. end;
  28092. procedure TI2C3_I2C3CON.setIPMIEN(thebits : TBits_1); inline;
  28093. begin
  28094. if thebits = 0 then
  28095. pTDefRegMap(@Self)^.clr := $00000800
  28096. else
  28097. pTDefRegMap(@Self)^.&set := $00000800;
  28098. end;
  28099. function TI2C3_I2C3CON.getIPMIEN : TBits_1; inline;
  28100. begin
  28101. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  28102. end;
  28103. procedure TI2C3_I2C3CON.setI2CSIDL; inline;
  28104. begin
  28105. pTDefRegMap(@Self)^.&set := $00002000;
  28106. end;
  28107. procedure TI2C3_I2C3CON.clearI2CSIDL; inline;
  28108. begin
  28109. pTDefRegMap(@Self)^.clr := $00002000;
  28110. end;
  28111. procedure TI2C3_I2C3CON.setI2CSIDL(thebits : TBits_1); inline;
  28112. begin
  28113. if thebits = 0 then
  28114. pTDefRegMap(@Self)^.clr := $00002000
  28115. else
  28116. pTDefRegMap(@Self)^.&set := $00002000;
  28117. end;
  28118. function TI2C3_I2C3CON.getI2CSIDL : TBits_1; inline;
  28119. begin
  28120. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  28121. end;
  28122. procedure TI2C3_I2C3CON.setI2CEN; inline;
  28123. begin
  28124. pTDefRegMap(@Self)^.&set := $00008000;
  28125. end;
  28126. procedure TI2C3_I2C3CON.clearI2CEN; inline;
  28127. begin
  28128. pTDefRegMap(@Self)^.clr := $00008000;
  28129. end;
  28130. procedure TI2C3_I2C3CON.setI2CEN(thebits : TBits_1); inline;
  28131. begin
  28132. if thebits = 0 then
  28133. pTDefRegMap(@Self)^.clr := $00008000
  28134. else
  28135. pTDefRegMap(@Self)^.&set := $00008000;
  28136. end;
  28137. function TI2C3_I2C3CON.getI2CEN : TBits_1; inline;
  28138. begin
  28139. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  28140. end;
  28141. procedure TI2C3_I2C3CON.setw(thebits : TBits_32); inline;
  28142. begin
  28143. pTDefRegMap(@Self)^.val := thebits;
  28144. end;
  28145. function TI2C3_I2C3CON.getw : TBits_32; inline;
  28146. begin
  28147. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  28148. end;
  28149. procedure TI2C3_I2C1ASTAT.setTBF; inline;
  28150. begin
  28151. pTDefRegMap(@Self)^.&set := $00000001;
  28152. end;
  28153. procedure TI2C3_I2C1ASTAT.clearTBF; inline;
  28154. begin
  28155. pTDefRegMap(@Self)^.clr := $00000001;
  28156. end;
  28157. procedure TI2C3_I2C1ASTAT.setTBF(thebits : TBits_1); inline;
  28158. begin
  28159. if thebits = 0 then
  28160. pTDefRegMap(@Self)^.clr := $00000001
  28161. else
  28162. pTDefRegMap(@Self)^.&set := $00000001;
  28163. end;
  28164. function TI2C3_I2C1ASTAT.getTBF : TBits_1; inline;
  28165. begin
  28166. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  28167. end;
  28168. procedure TI2C3_I2C1ASTAT.setRBF; inline;
  28169. begin
  28170. pTDefRegMap(@Self)^.&set := $00000002;
  28171. end;
  28172. procedure TI2C3_I2C1ASTAT.clearRBF; inline;
  28173. begin
  28174. pTDefRegMap(@Self)^.clr := $00000002;
  28175. end;
  28176. procedure TI2C3_I2C1ASTAT.setRBF(thebits : TBits_1); inline;
  28177. begin
  28178. if thebits = 0 then
  28179. pTDefRegMap(@Self)^.clr := $00000002
  28180. else
  28181. pTDefRegMap(@Self)^.&set := $00000002;
  28182. end;
  28183. function TI2C3_I2C1ASTAT.getRBF : TBits_1; inline;
  28184. begin
  28185. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  28186. end;
  28187. procedure TI2C3_I2C1ASTAT.setR_W; inline;
  28188. begin
  28189. pTDefRegMap(@Self)^.&set := $00000004;
  28190. end;
  28191. procedure TI2C3_I2C1ASTAT.clearR_W; inline;
  28192. begin
  28193. pTDefRegMap(@Self)^.clr := $00000004;
  28194. end;
  28195. procedure TI2C3_I2C1ASTAT.setR_W(thebits : TBits_1); inline;
  28196. begin
  28197. if thebits = 0 then
  28198. pTDefRegMap(@Self)^.clr := $00000004
  28199. else
  28200. pTDefRegMap(@Self)^.&set := $00000004;
  28201. end;
  28202. function TI2C3_I2C1ASTAT.getR_W : TBits_1; inline;
  28203. begin
  28204. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  28205. end;
  28206. procedure TI2C3_I2C1ASTAT.setS; inline;
  28207. begin
  28208. pTDefRegMap(@Self)^.&set := $00000008;
  28209. end;
  28210. procedure TI2C3_I2C1ASTAT.clearS; inline;
  28211. begin
  28212. pTDefRegMap(@Self)^.clr := $00000008;
  28213. end;
  28214. procedure TI2C3_I2C1ASTAT.setS(thebits : TBits_1); inline;
  28215. begin
  28216. if thebits = 0 then
  28217. pTDefRegMap(@Self)^.clr := $00000008
  28218. else
  28219. pTDefRegMap(@Self)^.&set := $00000008;
  28220. end;
  28221. function TI2C3_I2C1ASTAT.getS : TBits_1; inline;
  28222. begin
  28223. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  28224. end;
  28225. procedure TI2C3_I2C1ASTAT.setP; inline;
  28226. begin
  28227. pTDefRegMap(@Self)^.&set := $00000010;
  28228. end;
  28229. procedure TI2C3_I2C1ASTAT.clearP; inline;
  28230. begin
  28231. pTDefRegMap(@Self)^.clr := $00000010;
  28232. end;
  28233. procedure TI2C3_I2C1ASTAT.setP(thebits : TBits_1); inline;
  28234. begin
  28235. if thebits = 0 then
  28236. pTDefRegMap(@Self)^.clr := $00000010
  28237. else
  28238. pTDefRegMap(@Self)^.&set := $00000010;
  28239. end;
  28240. function TI2C3_I2C1ASTAT.getP : TBits_1; inline;
  28241. begin
  28242. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  28243. end;
  28244. procedure TI2C3_I2C1ASTAT.setD_A; inline;
  28245. begin
  28246. pTDefRegMap(@Self)^.&set := $00000020;
  28247. end;
  28248. procedure TI2C3_I2C1ASTAT.clearD_A; inline;
  28249. begin
  28250. pTDefRegMap(@Self)^.clr := $00000020;
  28251. end;
  28252. procedure TI2C3_I2C1ASTAT.setD_A(thebits : TBits_1); inline;
  28253. begin
  28254. if thebits = 0 then
  28255. pTDefRegMap(@Self)^.clr := $00000020
  28256. else
  28257. pTDefRegMap(@Self)^.&set := $00000020;
  28258. end;
  28259. function TI2C3_I2C1ASTAT.getD_A : TBits_1; inline;
  28260. begin
  28261. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  28262. end;
  28263. procedure TI2C3_I2C1ASTAT.setI2COV; inline;
  28264. begin
  28265. pTDefRegMap(@Self)^.&set := $00000040;
  28266. end;
  28267. procedure TI2C3_I2C1ASTAT.clearI2COV; inline;
  28268. begin
  28269. pTDefRegMap(@Self)^.clr := $00000040;
  28270. end;
  28271. procedure TI2C3_I2C1ASTAT.setI2COV(thebits : TBits_1); inline;
  28272. begin
  28273. if thebits = 0 then
  28274. pTDefRegMap(@Self)^.clr := $00000040
  28275. else
  28276. pTDefRegMap(@Self)^.&set := $00000040;
  28277. end;
  28278. function TI2C3_I2C1ASTAT.getI2COV : TBits_1; inline;
  28279. begin
  28280. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  28281. end;
  28282. procedure TI2C3_I2C1ASTAT.setIWCOL; inline;
  28283. begin
  28284. pTDefRegMap(@Self)^.&set := $00000080;
  28285. end;
  28286. procedure TI2C3_I2C1ASTAT.clearIWCOL; inline;
  28287. begin
  28288. pTDefRegMap(@Self)^.clr := $00000080;
  28289. end;
  28290. procedure TI2C3_I2C1ASTAT.setIWCOL(thebits : TBits_1); inline;
  28291. begin
  28292. if thebits = 0 then
  28293. pTDefRegMap(@Self)^.clr := $00000080
  28294. else
  28295. pTDefRegMap(@Self)^.&set := $00000080;
  28296. end;
  28297. function TI2C3_I2C1ASTAT.getIWCOL : TBits_1; inline;
  28298. begin
  28299. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  28300. end;
  28301. procedure TI2C3_I2C1ASTAT.setADD10; inline;
  28302. begin
  28303. pTDefRegMap(@Self)^.&set := $00000100;
  28304. end;
  28305. procedure TI2C3_I2C1ASTAT.clearADD10; inline;
  28306. begin
  28307. pTDefRegMap(@Self)^.clr := $00000100;
  28308. end;
  28309. procedure TI2C3_I2C1ASTAT.setADD10(thebits : TBits_1); inline;
  28310. begin
  28311. if thebits = 0 then
  28312. pTDefRegMap(@Self)^.clr := $00000100
  28313. else
  28314. pTDefRegMap(@Self)^.&set := $00000100;
  28315. end;
  28316. function TI2C3_I2C1ASTAT.getADD10 : TBits_1; inline;
  28317. begin
  28318. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  28319. end;
  28320. procedure TI2C3_I2C1ASTAT.setGCSTAT; inline;
  28321. begin
  28322. pTDefRegMap(@Self)^.&set := $00000200;
  28323. end;
  28324. procedure TI2C3_I2C1ASTAT.clearGCSTAT; inline;
  28325. begin
  28326. pTDefRegMap(@Self)^.clr := $00000200;
  28327. end;
  28328. procedure TI2C3_I2C1ASTAT.setGCSTAT(thebits : TBits_1); inline;
  28329. begin
  28330. if thebits = 0 then
  28331. pTDefRegMap(@Self)^.clr := $00000200
  28332. else
  28333. pTDefRegMap(@Self)^.&set := $00000200;
  28334. end;
  28335. function TI2C3_I2C1ASTAT.getGCSTAT : TBits_1; inline;
  28336. begin
  28337. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  28338. end;
  28339. procedure TI2C3_I2C1ASTAT.setBCL; inline;
  28340. begin
  28341. pTDefRegMap(@Self)^.&set := $00000400;
  28342. end;
  28343. procedure TI2C3_I2C1ASTAT.clearBCL; inline;
  28344. begin
  28345. pTDefRegMap(@Self)^.clr := $00000400;
  28346. end;
  28347. procedure TI2C3_I2C1ASTAT.setBCL(thebits : TBits_1); inline;
  28348. begin
  28349. if thebits = 0 then
  28350. pTDefRegMap(@Self)^.clr := $00000400
  28351. else
  28352. pTDefRegMap(@Self)^.&set := $00000400;
  28353. end;
  28354. function TI2C3_I2C1ASTAT.getBCL : TBits_1; inline;
  28355. begin
  28356. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  28357. end;
  28358. procedure TI2C3_I2C1ASTAT.setTRSTAT; inline;
  28359. begin
  28360. pTDefRegMap(@Self)^.&set := $00004000;
  28361. end;
  28362. procedure TI2C3_I2C1ASTAT.clearTRSTAT; inline;
  28363. begin
  28364. pTDefRegMap(@Self)^.clr := $00004000;
  28365. end;
  28366. procedure TI2C3_I2C1ASTAT.setTRSTAT(thebits : TBits_1); inline;
  28367. begin
  28368. if thebits = 0 then
  28369. pTDefRegMap(@Self)^.clr := $00004000
  28370. else
  28371. pTDefRegMap(@Self)^.&set := $00004000;
  28372. end;
  28373. function TI2C3_I2C1ASTAT.getTRSTAT : TBits_1; inline;
  28374. begin
  28375. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  28376. end;
  28377. procedure TI2C3_I2C1ASTAT.setACKSTAT; inline;
  28378. begin
  28379. pTDefRegMap(@Self)^.&set := $00008000;
  28380. end;
  28381. procedure TI2C3_I2C1ASTAT.clearACKSTAT; inline;
  28382. begin
  28383. pTDefRegMap(@Self)^.clr := $00008000;
  28384. end;
  28385. procedure TI2C3_I2C1ASTAT.setACKSTAT(thebits : TBits_1); inline;
  28386. begin
  28387. if thebits = 0 then
  28388. pTDefRegMap(@Self)^.clr := $00008000
  28389. else
  28390. pTDefRegMap(@Self)^.&set := $00008000;
  28391. end;
  28392. function TI2C3_I2C1ASTAT.getACKSTAT : TBits_1; inline;
  28393. begin
  28394. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  28395. end;
  28396. procedure TI2C3_I2C1ASTAT.setI2CPOV; inline;
  28397. begin
  28398. pTDefRegMap(@Self)^.&set := $00000040;
  28399. end;
  28400. procedure TI2C3_I2C1ASTAT.clearI2CPOV; inline;
  28401. begin
  28402. pTDefRegMap(@Self)^.clr := $00000040;
  28403. end;
  28404. procedure TI2C3_I2C1ASTAT.setI2CPOV(thebits : TBits_1); inline;
  28405. begin
  28406. if thebits = 0 then
  28407. pTDefRegMap(@Self)^.clr := $00000040
  28408. else
  28409. pTDefRegMap(@Self)^.&set := $00000040;
  28410. end;
  28411. function TI2C3_I2C1ASTAT.getI2CPOV : TBits_1; inline;
  28412. begin
  28413. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  28414. end;
  28415. procedure TI2C3_I2C1ASTAT.setw(thebits : TBits_32); inline;
  28416. begin
  28417. pTDefRegMap(@Self)^.val := thebits;
  28418. end;
  28419. function TI2C3_I2C1ASTAT.getw : TBits_32; inline;
  28420. begin
  28421. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  28422. end;
  28423. procedure TI2C3_I2C3STAT.setTBF; inline;
  28424. begin
  28425. pTDefRegMap(@Self)^.&set := $00000001;
  28426. end;
  28427. procedure TI2C3_I2C3STAT.clearTBF; inline;
  28428. begin
  28429. pTDefRegMap(@Self)^.clr := $00000001;
  28430. end;
  28431. procedure TI2C3_I2C3STAT.setTBF(thebits : TBits_1); inline;
  28432. begin
  28433. if thebits = 0 then
  28434. pTDefRegMap(@Self)^.clr := $00000001
  28435. else
  28436. pTDefRegMap(@Self)^.&set := $00000001;
  28437. end;
  28438. function TI2C3_I2C3STAT.getTBF : TBits_1; inline;
  28439. begin
  28440. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  28441. end;
  28442. procedure TI2C3_I2C3STAT.setRBF; inline;
  28443. begin
  28444. pTDefRegMap(@Self)^.&set := $00000002;
  28445. end;
  28446. procedure TI2C3_I2C3STAT.clearRBF; inline;
  28447. begin
  28448. pTDefRegMap(@Self)^.clr := $00000002;
  28449. end;
  28450. procedure TI2C3_I2C3STAT.setRBF(thebits : TBits_1); inline;
  28451. begin
  28452. if thebits = 0 then
  28453. pTDefRegMap(@Self)^.clr := $00000002
  28454. else
  28455. pTDefRegMap(@Self)^.&set := $00000002;
  28456. end;
  28457. function TI2C3_I2C3STAT.getRBF : TBits_1; inline;
  28458. begin
  28459. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  28460. end;
  28461. procedure TI2C3_I2C3STAT.setR_W; inline;
  28462. begin
  28463. pTDefRegMap(@Self)^.&set := $00000004;
  28464. end;
  28465. procedure TI2C3_I2C3STAT.clearR_W; inline;
  28466. begin
  28467. pTDefRegMap(@Self)^.clr := $00000004;
  28468. end;
  28469. procedure TI2C3_I2C3STAT.setR_W(thebits : TBits_1); inline;
  28470. begin
  28471. if thebits = 0 then
  28472. pTDefRegMap(@Self)^.clr := $00000004
  28473. else
  28474. pTDefRegMap(@Self)^.&set := $00000004;
  28475. end;
  28476. function TI2C3_I2C3STAT.getR_W : TBits_1; inline;
  28477. begin
  28478. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  28479. end;
  28480. procedure TI2C3_I2C3STAT.setS; inline;
  28481. begin
  28482. pTDefRegMap(@Self)^.&set := $00000008;
  28483. end;
  28484. procedure TI2C3_I2C3STAT.clearS; inline;
  28485. begin
  28486. pTDefRegMap(@Self)^.clr := $00000008;
  28487. end;
  28488. procedure TI2C3_I2C3STAT.setS(thebits : TBits_1); inline;
  28489. begin
  28490. if thebits = 0 then
  28491. pTDefRegMap(@Self)^.clr := $00000008
  28492. else
  28493. pTDefRegMap(@Self)^.&set := $00000008;
  28494. end;
  28495. function TI2C3_I2C3STAT.getS : TBits_1; inline;
  28496. begin
  28497. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  28498. end;
  28499. procedure TI2C3_I2C3STAT.setP; inline;
  28500. begin
  28501. pTDefRegMap(@Self)^.&set := $00000010;
  28502. end;
  28503. procedure TI2C3_I2C3STAT.clearP; inline;
  28504. begin
  28505. pTDefRegMap(@Self)^.clr := $00000010;
  28506. end;
  28507. procedure TI2C3_I2C3STAT.setP(thebits : TBits_1); inline;
  28508. begin
  28509. if thebits = 0 then
  28510. pTDefRegMap(@Self)^.clr := $00000010
  28511. else
  28512. pTDefRegMap(@Self)^.&set := $00000010;
  28513. end;
  28514. function TI2C3_I2C3STAT.getP : TBits_1; inline;
  28515. begin
  28516. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  28517. end;
  28518. procedure TI2C3_I2C3STAT.setD_A; inline;
  28519. begin
  28520. pTDefRegMap(@Self)^.&set := $00000020;
  28521. end;
  28522. procedure TI2C3_I2C3STAT.clearD_A; inline;
  28523. begin
  28524. pTDefRegMap(@Self)^.clr := $00000020;
  28525. end;
  28526. procedure TI2C3_I2C3STAT.setD_A(thebits : TBits_1); inline;
  28527. begin
  28528. if thebits = 0 then
  28529. pTDefRegMap(@Self)^.clr := $00000020
  28530. else
  28531. pTDefRegMap(@Self)^.&set := $00000020;
  28532. end;
  28533. function TI2C3_I2C3STAT.getD_A : TBits_1; inline;
  28534. begin
  28535. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  28536. end;
  28537. procedure TI2C3_I2C3STAT.setI2COV; inline;
  28538. begin
  28539. pTDefRegMap(@Self)^.&set := $00000040;
  28540. end;
  28541. procedure TI2C3_I2C3STAT.clearI2COV; inline;
  28542. begin
  28543. pTDefRegMap(@Self)^.clr := $00000040;
  28544. end;
  28545. procedure TI2C3_I2C3STAT.setI2COV(thebits : TBits_1); inline;
  28546. begin
  28547. if thebits = 0 then
  28548. pTDefRegMap(@Self)^.clr := $00000040
  28549. else
  28550. pTDefRegMap(@Self)^.&set := $00000040;
  28551. end;
  28552. function TI2C3_I2C3STAT.getI2COV : TBits_1; inline;
  28553. begin
  28554. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  28555. end;
  28556. procedure TI2C3_I2C3STAT.setIWCOL; inline;
  28557. begin
  28558. pTDefRegMap(@Self)^.&set := $00000080;
  28559. end;
  28560. procedure TI2C3_I2C3STAT.clearIWCOL; inline;
  28561. begin
  28562. pTDefRegMap(@Self)^.clr := $00000080;
  28563. end;
  28564. procedure TI2C3_I2C3STAT.setIWCOL(thebits : TBits_1); inline;
  28565. begin
  28566. if thebits = 0 then
  28567. pTDefRegMap(@Self)^.clr := $00000080
  28568. else
  28569. pTDefRegMap(@Self)^.&set := $00000080;
  28570. end;
  28571. function TI2C3_I2C3STAT.getIWCOL : TBits_1; inline;
  28572. begin
  28573. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  28574. end;
  28575. procedure TI2C3_I2C3STAT.setADD10; inline;
  28576. begin
  28577. pTDefRegMap(@Self)^.&set := $00000100;
  28578. end;
  28579. procedure TI2C3_I2C3STAT.clearADD10; inline;
  28580. begin
  28581. pTDefRegMap(@Self)^.clr := $00000100;
  28582. end;
  28583. procedure TI2C3_I2C3STAT.setADD10(thebits : TBits_1); inline;
  28584. begin
  28585. if thebits = 0 then
  28586. pTDefRegMap(@Self)^.clr := $00000100
  28587. else
  28588. pTDefRegMap(@Self)^.&set := $00000100;
  28589. end;
  28590. function TI2C3_I2C3STAT.getADD10 : TBits_1; inline;
  28591. begin
  28592. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  28593. end;
  28594. procedure TI2C3_I2C3STAT.setGCSTAT; inline;
  28595. begin
  28596. pTDefRegMap(@Self)^.&set := $00000200;
  28597. end;
  28598. procedure TI2C3_I2C3STAT.clearGCSTAT; inline;
  28599. begin
  28600. pTDefRegMap(@Self)^.clr := $00000200;
  28601. end;
  28602. procedure TI2C3_I2C3STAT.setGCSTAT(thebits : TBits_1); inline;
  28603. begin
  28604. if thebits = 0 then
  28605. pTDefRegMap(@Self)^.clr := $00000200
  28606. else
  28607. pTDefRegMap(@Self)^.&set := $00000200;
  28608. end;
  28609. function TI2C3_I2C3STAT.getGCSTAT : TBits_1; inline;
  28610. begin
  28611. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  28612. end;
  28613. procedure TI2C3_I2C3STAT.setBCL; inline;
  28614. begin
  28615. pTDefRegMap(@Self)^.&set := $00000400;
  28616. end;
  28617. procedure TI2C3_I2C3STAT.clearBCL; inline;
  28618. begin
  28619. pTDefRegMap(@Self)^.clr := $00000400;
  28620. end;
  28621. procedure TI2C3_I2C3STAT.setBCL(thebits : TBits_1); inline;
  28622. begin
  28623. if thebits = 0 then
  28624. pTDefRegMap(@Self)^.clr := $00000400
  28625. else
  28626. pTDefRegMap(@Self)^.&set := $00000400;
  28627. end;
  28628. function TI2C3_I2C3STAT.getBCL : TBits_1; inline;
  28629. begin
  28630. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  28631. end;
  28632. procedure TI2C3_I2C3STAT.setTRSTAT; inline;
  28633. begin
  28634. pTDefRegMap(@Self)^.&set := $00004000;
  28635. end;
  28636. procedure TI2C3_I2C3STAT.clearTRSTAT; inline;
  28637. begin
  28638. pTDefRegMap(@Self)^.clr := $00004000;
  28639. end;
  28640. procedure TI2C3_I2C3STAT.setTRSTAT(thebits : TBits_1); inline;
  28641. begin
  28642. if thebits = 0 then
  28643. pTDefRegMap(@Self)^.clr := $00004000
  28644. else
  28645. pTDefRegMap(@Self)^.&set := $00004000;
  28646. end;
  28647. function TI2C3_I2C3STAT.getTRSTAT : TBits_1; inline;
  28648. begin
  28649. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  28650. end;
  28651. procedure TI2C3_I2C3STAT.setACKSTAT; inline;
  28652. begin
  28653. pTDefRegMap(@Self)^.&set := $00008000;
  28654. end;
  28655. procedure TI2C3_I2C3STAT.clearACKSTAT; inline;
  28656. begin
  28657. pTDefRegMap(@Self)^.clr := $00008000;
  28658. end;
  28659. procedure TI2C3_I2C3STAT.setACKSTAT(thebits : TBits_1); inline;
  28660. begin
  28661. if thebits = 0 then
  28662. pTDefRegMap(@Self)^.clr := $00008000
  28663. else
  28664. pTDefRegMap(@Self)^.&set := $00008000;
  28665. end;
  28666. function TI2C3_I2C3STAT.getACKSTAT : TBits_1; inline;
  28667. begin
  28668. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  28669. end;
  28670. procedure TI2C3_I2C3STAT.setI2CPOV; inline;
  28671. begin
  28672. pTDefRegMap(@Self)^.&set := $00000040;
  28673. end;
  28674. procedure TI2C3_I2C3STAT.clearI2CPOV; inline;
  28675. begin
  28676. pTDefRegMap(@Self)^.clr := $00000040;
  28677. end;
  28678. procedure TI2C3_I2C3STAT.setI2CPOV(thebits : TBits_1); inline;
  28679. begin
  28680. if thebits = 0 then
  28681. pTDefRegMap(@Self)^.clr := $00000040
  28682. else
  28683. pTDefRegMap(@Self)^.&set := $00000040;
  28684. end;
  28685. function TI2C3_I2C3STAT.getI2CPOV : TBits_1; inline;
  28686. begin
  28687. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  28688. end;
  28689. procedure TI2C3_I2C3STAT.setw(thebits : TBits_32); inline;
  28690. begin
  28691. pTDefRegMap(@Self)^.val := thebits;
  28692. end;
  28693. function TI2C3_I2C3STAT.getw : TBits_32; inline;
  28694. begin
  28695. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  28696. end;
  28697. procedure TI2C2A_I2C2ACON.setSEN; inline;
  28698. begin
  28699. pTDefRegMap(@Self)^.&set := $00000001;
  28700. end;
  28701. procedure TI2C2A_I2C2ACON.clearSEN; inline;
  28702. begin
  28703. pTDefRegMap(@Self)^.clr := $00000001;
  28704. end;
  28705. procedure TI2C2A_I2C2ACON.setSEN(thebits : TBits_1); inline;
  28706. begin
  28707. if thebits = 0 then
  28708. pTDefRegMap(@Self)^.clr := $00000001
  28709. else
  28710. pTDefRegMap(@Self)^.&set := $00000001;
  28711. end;
  28712. function TI2C2A_I2C2ACON.getSEN : TBits_1; inline;
  28713. begin
  28714. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  28715. end;
  28716. procedure TI2C2A_I2C2ACON.setRSEN; inline;
  28717. begin
  28718. pTDefRegMap(@Self)^.&set := $00000002;
  28719. end;
  28720. procedure TI2C2A_I2C2ACON.clearRSEN; inline;
  28721. begin
  28722. pTDefRegMap(@Self)^.clr := $00000002;
  28723. end;
  28724. procedure TI2C2A_I2C2ACON.setRSEN(thebits : TBits_1); inline;
  28725. begin
  28726. if thebits = 0 then
  28727. pTDefRegMap(@Self)^.clr := $00000002
  28728. else
  28729. pTDefRegMap(@Self)^.&set := $00000002;
  28730. end;
  28731. function TI2C2A_I2C2ACON.getRSEN : TBits_1; inline;
  28732. begin
  28733. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  28734. end;
  28735. procedure TI2C2A_I2C2ACON.setPEN; inline;
  28736. begin
  28737. pTDefRegMap(@Self)^.&set := $00000004;
  28738. end;
  28739. procedure TI2C2A_I2C2ACON.clearPEN; inline;
  28740. begin
  28741. pTDefRegMap(@Self)^.clr := $00000004;
  28742. end;
  28743. procedure TI2C2A_I2C2ACON.setPEN(thebits : TBits_1); inline;
  28744. begin
  28745. if thebits = 0 then
  28746. pTDefRegMap(@Self)^.clr := $00000004
  28747. else
  28748. pTDefRegMap(@Self)^.&set := $00000004;
  28749. end;
  28750. function TI2C2A_I2C2ACON.getPEN : TBits_1; inline;
  28751. begin
  28752. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  28753. end;
  28754. procedure TI2C2A_I2C2ACON.setRCEN; inline;
  28755. begin
  28756. pTDefRegMap(@Self)^.&set := $00000008;
  28757. end;
  28758. procedure TI2C2A_I2C2ACON.clearRCEN; inline;
  28759. begin
  28760. pTDefRegMap(@Self)^.clr := $00000008;
  28761. end;
  28762. procedure TI2C2A_I2C2ACON.setRCEN(thebits : TBits_1); inline;
  28763. begin
  28764. if thebits = 0 then
  28765. pTDefRegMap(@Self)^.clr := $00000008
  28766. else
  28767. pTDefRegMap(@Self)^.&set := $00000008;
  28768. end;
  28769. function TI2C2A_I2C2ACON.getRCEN : TBits_1; inline;
  28770. begin
  28771. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  28772. end;
  28773. procedure TI2C2A_I2C2ACON.setACKEN; inline;
  28774. begin
  28775. pTDefRegMap(@Self)^.&set := $00000010;
  28776. end;
  28777. procedure TI2C2A_I2C2ACON.clearACKEN; inline;
  28778. begin
  28779. pTDefRegMap(@Self)^.clr := $00000010;
  28780. end;
  28781. procedure TI2C2A_I2C2ACON.setACKEN(thebits : TBits_1); inline;
  28782. begin
  28783. if thebits = 0 then
  28784. pTDefRegMap(@Self)^.clr := $00000010
  28785. else
  28786. pTDefRegMap(@Self)^.&set := $00000010;
  28787. end;
  28788. function TI2C2A_I2C2ACON.getACKEN : TBits_1; inline;
  28789. begin
  28790. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  28791. end;
  28792. procedure TI2C2A_I2C2ACON.setACKDT; inline;
  28793. begin
  28794. pTDefRegMap(@Self)^.&set := $00000020;
  28795. end;
  28796. procedure TI2C2A_I2C2ACON.clearACKDT; inline;
  28797. begin
  28798. pTDefRegMap(@Self)^.clr := $00000020;
  28799. end;
  28800. procedure TI2C2A_I2C2ACON.setACKDT(thebits : TBits_1); inline;
  28801. begin
  28802. if thebits = 0 then
  28803. pTDefRegMap(@Self)^.clr := $00000020
  28804. else
  28805. pTDefRegMap(@Self)^.&set := $00000020;
  28806. end;
  28807. function TI2C2A_I2C2ACON.getACKDT : TBits_1; inline;
  28808. begin
  28809. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  28810. end;
  28811. procedure TI2C2A_I2C2ACON.setSTREN; inline;
  28812. begin
  28813. pTDefRegMap(@Self)^.&set := $00000040;
  28814. end;
  28815. procedure TI2C2A_I2C2ACON.clearSTREN; inline;
  28816. begin
  28817. pTDefRegMap(@Self)^.clr := $00000040;
  28818. end;
  28819. procedure TI2C2A_I2C2ACON.setSTREN(thebits : TBits_1); inline;
  28820. begin
  28821. if thebits = 0 then
  28822. pTDefRegMap(@Self)^.clr := $00000040
  28823. else
  28824. pTDefRegMap(@Self)^.&set := $00000040;
  28825. end;
  28826. function TI2C2A_I2C2ACON.getSTREN : TBits_1; inline;
  28827. begin
  28828. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  28829. end;
  28830. procedure TI2C2A_I2C2ACON.setGCEN; inline;
  28831. begin
  28832. pTDefRegMap(@Self)^.&set := $00000080;
  28833. end;
  28834. procedure TI2C2A_I2C2ACON.clearGCEN; inline;
  28835. begin
  28836. pTDefRegMap(@Self)^.clr := $00000080;
  28837. end;
  28838. procedure TI2C2A_I2C2ACON.setGCEN(thebits : TBits_1); inline;
  28839. begin
  28840. if thebits = 0 then
  28841. pTDefRegMap(@Self)^.clr := $00000080
  28842. else
  28843. pTDefRegMap(@Self)^.&set := $00000080;
  28844. end;
  28845. function TI2C2A_I2C2ACON.getGCEN : TBits_1; inline;
  28846. begin
  28847. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  28848. end;
  28849. procedure TI2C2A_I2C2ACON.setSMEN; inline;
  28850. begin
  28851. pTDefRegMap(@Self)^.&set := $00000100;
  28852. end;
  28853. procedure TI2C2A_I2C2ACON.clearSMEN; inline;
  28854. begin
  28855. pTDefRegMap(@Self)^.clr := $00000100;
  28856. end;
  28857. procedure TI2C2A_I2C2ACON.setSMEN(thebits : TBits_1); inline;
  28858. begin
  28859. if thebits = 0 then
  28860. pTDefRegMap(@Self)^.clr := $00000100
  28861. else
  28862. pTDefRegMap(@Self)^.&set := $00000100;
  28863. end;
  28864. function TI2C2A_I2C2ACON.getSMEN : TBits_1; inline;
  28865. begin
  28866. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  28867. end;
  28868. procedure TI2C2A_I2C2ACON.setDISSLW; inline;
  28869. begin
  28870. pTDefRegMap(@Self)^.&set := $00000200;
  28871. end;
  28872. procedure TI2C2A_I2C2ACON.clearDISSLW; inline;
  28873. begin
  28874. pTDefRegMap(@Self)^.clr := $00000200;
  28875. end;
  28876. procedure TI2C2A_I2C2ACON.setDISSLW(thebits : TBits_1); inline;
  28877. begin
  28878. if thebits = 0 then
  28879. pTDefRegMap(@Self)^.clr := $00000200
  28880. else
  28881. pTDefRegMap(@Self)^.&set := $00000200;
  28882. end;
  28883. function TI2C2A_I2C2ACON.getDISSLW : TBits_1; inline;
  28884. begin
  28885. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  28886. end;
  28887. procedure TI2C2A_I2C2ACON.setA10M; inline;
  28888. begin
  28889. pTDefRegMap(@Self)^.&set := $00000400;
  28890. end;
  28891. procedure TI2C2A_I2C2ACON.clearA10M; inline;
  28892. begin
  28893. pTDefRegMap(@Self)^.clr := $00000400;
  28894. end;
  28895. procedure TI2C2A_I2C2ACON.setA10M(thebits : TBits_1); inline;
  28896. begin
  28897. if thebits = 0 then
  28898. pTDefRegMap(@Self)^.clr := $00000400
  28899. else
  28900. pTDefRegMap(@Self)^.&set := $00000400;
  28901. end;
  28902. function TI2C2A_I2C2ACON.getA10M : TBits_1; inline;
  28903. begin
  28904. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  28905. end;
  28906. procedure TI2C2A_I2C2ACON.setSTRICT; inline;
  28907. begin
  28908. pTDefRegMap(@Self)^.&set := $00000800;
  28909. end;
  28910. procedure TI2C2A_I2C2ACON.clearSTRICT; inline;
  28911. begin
  28912. pTDefRegMap(@Self)^.clr := $00000800;
  28913. end;
  28914. procedure TI2C2A_I2C2ACON.setSTRICT(thebits : TBits_1); inline;
  28915. begin
  28916. if thebits = 0 then
  28917. pTDefRegMap(@Self)^.clr := $00000800
  28918. else
  28919. pTDefRegMap(@Self)^.&set := $00000800;
  28920. end;
  28921. function TI2C2A_I2C2ACON.getSTRICT : TBits_1; inline;
  28922. begin
  28923. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  28924. end;
  28925. procedure TI2C2A_I2C2ACON.setSCLREL; inline;
  28926. begin
  28927. pTDefRegMap(@Self)^.&set := $00001000;
  28928. end;
  28929. procedure TI2C2A_I2C2ACON.clearSCLREL; inline;
  28930. begin
  28931. pTDefRegMap(@Self)^.clr := $00001000;
  28932. end;
  28933. procedure TI2C2A_I2C2ACON.setSCLREL(thebits : TBits_1); inline;
  28934. begin
  28935. if thebits = 0 then
  28936. pTDefRegMap(@Self)^.clr := $00001000
  28937. else
  28938. pTDefRegMap(@Self)^.&set := $00001000;
  28939. end;
  28940. function TI2C2A_I2C2ACON.getSCLREL : TBits_1; inline;
  28941. begin
  28942. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  28943. end;
  28944. procedure TI2C2A_I2C2ACON.setSIDL; inline;
  28945. begin
  28946. pTDefRegMap(@Self)^.&set := $00002000;
  28947. end;
  28948. procedure TI2C2A_I2C2ACON.clearSIDL; inline;
  28949. begin
  28950. pTDefRegMap(@Self)^.clr := $00002000;
  28951. end;
  28952. procedure TI2C2A_I2C2ACON.setSIDL(thebits : TBits_1); inline;
  28953. begin
  28954. if thebits = 0 then
  28955. pTDefRegMap(@Self)^.clr := $00002000
  28956. else
  28957. pTDefRegMap(@Self)^.&set := $00002000;
  28958. end;
  28959. function TI2C2A_I2C2ACON.getSIDL : TBits_1; inline;
  28960. begin
  28961. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  28962. end;
  28963. procedure TI2C2A_I2C2ACON.setON; inline;
  28964. begin
  28965. pTDefRegMap(@Self)^.&set := $00008000;
  28966. end;
  28967. procedure TI2C2A_I2C2ACON.clearON; inline;
  28968. begin
  28969. pTDefRegMap(@Self)^.clr := $00008000;
  28970. end;
  28971. procedure TI2C2A_I2C2ACON.setON(thebits : TBits_1); inline;
  28972. begin
  28973. if thebits = 0 then
  28974. pTDefRegMap(@Self)^.clr := $00008000
  28975. else
  28976. pTDefRegMap(@Self)^.&set := $00008000;
  28977. end;
  28978. function TI2C2A_I2C2ACON.getON : TBits_1; inline;
  28979. begin
  28980. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  28981. end;
  28982. procedure TI2C2A_I2C2ACON.setIPMIEN; inline;
  28983. begin
  28984. pTDefRegMap(@Self)^.&set := $00000800;
  28985. end;
  28986. procedure TI2C2A_I2C2ACON.clearIPMIEN; inline;
  28987. begin
  28988. pTDefRegMap(@Self)^.clr := $00000800;
  28989. end;
  28990. procedure TI2C2A_I2C2ACON.setIPMIEN(thebits : TBits_1); inline;
  28991. begin
  28992. if thebits = 0 then
  28993. pTDefRegMap(@Self)^.clr := $00000800
  28994. else
  28995. pTDefRegMap(@Self)^.&set := $00000800;
  28996. end;
  28997. function TI2C2A_I2C2ACON.getIPMIEN : TBits_1; inline;
  28998. begin
  28999. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  29000. end;
  29001. procedure TI2C2A_I2C2ACON.setI2CSIDL; inline;
  29002. begin
  29003. pTDefRegMap(@Self)^.&set := $00002000;
  29004. end;
  29005. procedure TI2C2A_I2C2ACON.clearI2CSIDL; inline;
  29006. begin
  29007. pTDefRegMap(@Self)^.clr := $00002000;
  29008. end;
  29009. procedure TI2C2A_I2C2ACON.setI2CSIDL(thebits : TBits_1); inline;
  29010. begin
  29011. if thebits = 0 then
  29012. pTDefRegMap(@Self)^.clr := $00002000
  29013. else
  29014. pTDefRegMap(@Self)^.&set := $00002000;
  29015. end;
  29016. function TI2C2A_I2C2ACON.getI2CSIDL : TBits_1; inline;
  29017. begin
  29018. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  29019. end;
  29020. procedure TI2C2A_I2C2ACON.setI2CEN; inline;
  29021. begin
  29022. pTDefRegMap(@Self)^.&set := $00008000;
  29023. end;
  29024. procedure TI2C2A_I2C2ACON.clearI2CEN; inline;
  29025. begin
  29026. pTDefRegMap(@Self)^.clr := $00008000;
  29027. end;
  29028. procedure TI2C2A_I2C2ACON.setI2CEN(thebits : TBits_1); inline;
  29029. begin
  29030. if thebits = 0 then
  29031. pTDefRegMap(@Self)^.clr := $00008000
  29032. else
  29033. pTDefRegMap(@Self)^.&set := $00008000;
  29034. end;
  29035. function TI2C2A_I2C2ACON.getI2CEN : TBits_1; inline;
  29036. begin
  29037. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  29038. end;
  29039. procedure TI2C2A_I2C2ACON.setw(thebits : TBits_32); inline;
  29040. begin
  29041. pTDefRegMap(@Self)^.val := thebits;
  29042. end;
  29043. function TI2C2A_I2C2ACON.getw : TBits_32; inline;
  29044. begin
  29045. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  29046. end;
  29047. procedure TI2C2A_I2C4CON.setSEN; inline;
  29048. begin
  29049. pTDefRegMap(@Self)^.&set := $00000001;
  29050. end;
  29051. procedure TI2C2A_I2C4CON.clearSEN; inline;
  29052. begin
  29053. pTDefRegMap(@Self)^.clr := $00000001;
  29054. end;
  29055. procedure TI2C2A_I2C4CON.setSEN(thebits : TBits_1); inline;
  29056. begin
  29057. if thebits = 0 then
  29058. pTDefRegMap(@Self)^.clr := $00000001
  29059. else
  29060. pTDefRegMap(@Self)^.&set := $00000001;
  29061. end;
  29062. function TI2C2A_I2C4CON.getSEN : TBits_1; inline;
  29063. begin
  29064. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  29065. end;
  29066. procedure TI2C2A_I2C4CON.setRSEN; inline;
  29067. begin
  29068. pTDefRegMap(@Self)^.&set := $00000002;
  29069. end;
  29070. procedure TI2C2A_I2C4CON.clearRSEN; inline;
  29071. begin
  29072. pTDefRegMap(@Self)^.clr := $00000002;
  29073. end;
  29074. procedure TI2C2A_I2C4CON.setRSEN(thebits : TBits_1); inline;
  29075. begin
  29076. if thebits = 0 then
  29077. pTDefRegMap(@Self)^.clr := $00000002
  29078. else
  29079. pTDefRegMap(@Self)^.&set := $00000002;
  29080. end;
  29081. function TI2C2A_I2C4CON.getRSEN : TBits_1; inline;
  29082. begin
  29083. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  29084. end;
  29085. procedure TI2C2A_I2C4CON.setPEN; inline;
  29086. begin
  29087. pTDefRegMap(@Self)^.&set := $00000004;
  29088. end;
  29089. procedure TI2C2A_I2C4CON.clearPEN; inline;
  29090. begin
  29091. pTDefRegMap(@Self)^.clr := $00000004;
  29092. end;
  29093. procedure TI2C2A_I2C4CON.setPEN(thebits : TBits_1); inline;
  29094. begin
  29095. if thebits = 0 then
  29096. pTDefRegMap(@Self)^.clr := $00000004
  29097. else
  29098. pTDefRegMap(@Self)^.&set := $00000004;
  29099. end;
  29100. function TI2C2A_I2C4CON.getPEN : TBits_1; inline;
  29101. begin
  29102. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  29103. end;
  29104. procedure TI2C2A_I2C4CON.setRCEN; inline;
  29105. begin
  29106. pTDefRegMap(@Self)^.&set := $00000008;
  29107. end;
  29108. procedure TI2C2A_I2C4CON.clearRCEN; inline;
  29109. begin
  29110. pTDefRegMap(@Self)^.clr := $00000008;
  29111. end;
  29112. procedure TI2C2A_I2C4CON.setRCEN(thebits : TBits_1); inline;
  29113. begin
  29114. if thebits = 0 then
  29115. pTDefRegMap(@Self)^.clr := $00000008
  29116. else
  29117. pTDefRegMap(@Self)^.&set := $00000008;
  29118. end;
  29119. function TI2C2A_I2C4CON.getRCEN : TBits_1; inline;
  29120. begin
  29121. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  29122. end;
  29123. procedure TI2C2A_I2C4CON.setACKEN; inline;
  29124. begin
  29125. pTDefRegMap(@Self)^.&set := $00000010;
  29126. end;
  29127. procedure TI2C2A_I2C4CON.clearACKEN; inline;
  29128. begin
  29129. pTDefRegMap(@Self)^.clr := $00000010;
  29130. end;
  29131. procedure TI2C2A_I2C4CON.setACKEN(thebits : TBits_1); inline;
  29132. begin
  29133. if thebits = 0 then
  29134. pTDefRegMap(@Self)^.clr := $00000010
  29135. else
  29136. pTDefRegMap(@Self)^.&set := $00000010;
  29137. end;
  29138. function TI2C2A_I2C4CON.getACKEN : TBits_1; inline;
  29139. begin
  29140. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  29141. end;
  29142. procedure TI2C2A_I2C4CON.setACKDT; inline;
  29143. begin
  29144. pTDefRegMap(@Self)^.&set := $00000020;
  29145. end;
  29146. procedure TI2C2A_I2C4CON.clearACKDT; inline;
  29147. begin
  29148. pTDefRegMap(@Self)^.clr := $00000020;
  29149. end;
  29150. procedure TI2C2A_I2C4CON.setACKDT(thebits : TBits_1); inline;
  29151. begin
  29152. if thebits = 0 then
  29153. pTDefRegMap(@Self)^.clr := $00000020
  29154. else
  29155. pTDefRegMap(@Self)^.&set := $00000020;
  29156. end;
  29157. function TI2C2A_I2C4CON.getACKDT : TBits_1; inline;
  29158. begin
  29159. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  29160. end;
  29161. procedure TI2C2A_I2C4CON.setSTREN; inline;
  29162. begin
  29163. pTDefRegMap(@Self)^.&set := $00000040;
  29164. end;
  29165. procedure TI2C2A_I2C4CON.clearSTREN; inline;
  29166. begin
  29167. pTDefRegMap(@Self)^.clr := $00000040;
  29168. end;
  29169. procedure TI2C2A_I2C4CON.setSTREN(thebits : TBits_1); inline;
  29170. begin
  29171. if thebits = 0 then
  29172. pTDefRegMap(@Self)^.clr := $00000040
  29173. else
  29174. pTDefRegMap(@Self)^.&set := $00000040;
  29175. end;
  29176. function TI2C2A_I2C4CON.getSTREN : TBits_1; inline;
  29177. begin
  29178. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29179. end;
  29180. procedure TI2C2A_I2C4CON.setGCEN; inline;
  29181. begin
  29182. pTDefRegMap(@Self)^.&set := $00000080;
  29183. end;
  29184. procedure TI2C2A_I2C4CON.clearGCEN; inline;
  29185. begin
  29186. pTDefRegMap(@Self)^.clr := $00000080;
  29187. end;
  29188. procedure TI2C2A_I2C4CON.setGCEN(thebits : TBits_1); inline;
  29189. begin
  29190. if thebits = 0 then
  29191. pTDefRegMap(@Self)^.clr := $00000080
  29192. else
  29193. pTDefRegMap(@Self)^.&set := $00000080;
  29194. end;
  29195. function TI2C2A_I2C4CON.getGCEN : TBits_1; inline;
  29196. begin
  29197. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  29198. end;
  29199. procedure TI2C2A_I2C4CON.setSMEN; inline;
  29200. begin
  29201. pTDefRegMap(@Self)^.&set := $00000100;
  29202. end;
  29203. procedure TI2C2A_I2C4CON.clearSMEN; inline;
  29204. begin
  29205. pTDefRegMap(@Self)^.clr := $00000100;
  29206. end;
  29207. procedure TI2C2A_I2C4CON.setSMEN(thebits : TBits_1); inline;
  29208. begin
  29209. if thebits = 0 then
  29210. pTDefRegMap(@Self)^.clr := $00000100
  29211. else
  29212. pTDefRegMap(@Self)^.&set := $00000100;
  29213. end;
  29214. function TI2C2A_I2C4CON.getSMEN : TBits_1; inline;
  29215. begin
  29216. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  29217. end;
  29218. procedure TI2C2A_I2C4CON.setDISSLW; inline;
  29219. begin
  29220. pTDefRegMap(@Self)^.&set := $00000200;
  29221. end;
  29222. procedure TI2C2A_I2C4CON.clearDISSLW; inline;
  29223. begin
  29224. pTDefRegMap(@Self)^.clr := $00000200;
  29225. end;
  29226. procedure TI2C2A_I2C4CON.setDISSLW(thebits : TBits_1); inline;
  29227. begin
  29228. if thebits = 0 then
  29229. pTDefRegMap(@Self)^.clr := $00000200
  29230. else
  29231. pTDefRegMap(@Self)^.&set := $00000200;
  29232. end;
  29233. function TI2C2A_I2C4CON.getDISSLW : TBits_1; inline;
  29234. begin
  29235. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  29236. end;
  29237. procedure TI2C2A_I2C4CON.setA10M; inline;
  29238. begin
  29239. pTDefRegMap(@Self)^.&set := $00000400;
  29240. end;
  29241. procedure TI2C2A_I2C4CON.clearA10M; inline;
  29242. begin
  29243. pTDefRegMap(@Self)^.clr := $00000400;
  29244. end;
  29245. procedure TI2C2A_I2C4CON.setA10M(thebits : TBits_1); inline;
  29246. begin
  29247. if thebits = 0 then
  29248. pTDefRegMap(@Self)^.clr := $00000400
  29249. else
  29250. pTDefRegMap(@Self)^.&set := $00000400;
  29251. end;
  29252. function TI2C2A_I2C4CON.getA10M : TBits_1; inline;
  29253. begin
  29254. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  29255. end;
  29256. procedure TI2C2A_I2C4CON.setSTRICT; inline;
  29257. begin
  29258. pTDefRegMap(@Self)^.&set := $00000800;
  29259. end;
  29260. procedure TI2C2A_I2C4CON.clearSTRICT; inline;
  29261. begin
  29262. pTDefRegMap(@Self)^.clr := $00000800;
  29263. end;
  29264. procedure TI2C2A_I2C4CON.setSTRICT(thebits : TBits_1); inline;
  29265. begin
  29266. if thebits = 0 then
  29267. pTDefRegMap(@Self)^.clr := $00000800
  29268. else
  29269. pTDefRegMap(@Self)^.&set := $00000800;
  29270. end;
  29271. function TI2C2A_I2C4CON.getSTRICT : TBits_1; inline;
  29272. begin
  29273. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  29274. end;
  29275. procedure TI2C2A_I2C4CON.setSCLREL; inline;
  29276. begin
  29277. pTDefRegMap(@Self)^.&set := $00001000;
  29278. end;
  29279. procedure TI2C2A_I2C4CON.clearSCLREL; inline;
  29280. begin
  29281. pTDefRegMap(@Self)^.clr := $00001000;
  29282. end;
  29283. procedure TI2C2A_I2C4CON.setSCLREL(thebits : TBits_1); inline;
  29284. begin
  29285. if thebits = 0 then
  29286. pTDefRegMap(@Self)^.clr := $00001000
  29287. else
  29288. pTDefRegMap(@Self)^.&set := $00001000;
  29289. end;
  29290. function TI2C2A_I2C4CON.getSCLREL : TBits_1; inline;
  29291. begin
  29292. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  29293. end;
  29294. procedure TI2C2A_I2C4CON.setSIDL; inline;
  29295. begin
  29296. pTDefRegMap(@Self)^.&set := $00002000;
  29297. end;
  29298. procedure TI2C2A_I2C4CON.clearSIDL; inline;
  29299. begin
  29300. pTDefRegMap(@Self)^.clr := $00002000;
  29301. end;
  29302. procedure TI2C2A_I2C4CON.setSIDL(thebits : TBits_1); inline;
  29303. begin
  29304. if thebits = 0 then
  29305. pTDefRegMap(@Self)^.clr := $00002000
  29306. else
  29307. pTDefRegMap(@Self)^.&set := $00002000;
  29308. end;
  29309. function TI2C2A_I2C4CON.getSIDL : TBits_1; inline;
  29310. begin
  29311. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  29312. end;
  29313. procedure TI2C2A_I2C4CON.setON; inline;
  29314. begin
  29315. pTDefRegMap(@Self)^.&set := $00008000;
  29316. end;
  29317. procedure TI2C2A_I2C4CON.clearON; inline;
  29318. begin
  29319. pTDefRegMap(@Self)^.clr := $00008000;
  29320. end;
  29321. procedure TI2C2A_I2C4CON.setON(thebits : TBits_1); inline;
  29322. begin
  29323. if thebits = 0 then
  29324. pTDefRegMap(@Self)^.clr := $00008000
  29325. else
  29326. pTDefRegMap(@Self)^.&set := $00008000;
  29327. end;
  29328. function TI2C2A_I2C4CON.getON : TBits_1; inline;
  29329. begin
  29330. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  29331. end;
  29332. procedure TI2C2A_I2C4CON.setIPMIEN; inline;
  29333. begin
  29334. pTDefRegMap(@Self)^.&set := $00000800;
  29335. end;
  29336. procedure TI2C2A_I2C4CON.clearIPMIEN; inline;
  29337. begin
  29338. pTDefRegMap(@Self)^.clr := $00000800;
  29339. end;
  29340. procedure TI2C2A_I2C4CON.setIPMIEN(thebits : TBits_1); inline;
  29341. begin
  29342. if thebits = 0 then
  29343. pTDefRegMap(@Self)^.clr := $00000800
  29344. else
  29345. pTDefRegMap(@Self)^.&set := $00000800;
  29346. end;
  29347. function TI2C2A_I2C4CON.getIPMIEN : TBits_1; inline;
  29348. begin
  29349. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  29350. end;
  29351. procedure TI2C2A_I2C4CON.setI2CSIDL; inline;
  29352. begin
  29353. pTDefRegMap(@Self)^.&set := $00002000;
  29354. end;
  29355. procedure TI2C2A_I2C4CON.clearI2CSIDL; inline;
  29356. begin
  29357. pTDefRegMap(@Self)^.clr := $00002000;
  29358. end;
  29359. procedure TI2C2A_I2C4CON.setI2CSIDL(thebits : TBits_1); inline;
  29360. begin
  29361. if thebits = 0 then
  29362. pTDefRegMap(@Self)^.clr := $00002000
  29363. else
  29364. pTDefRegMap(@Self)^.&set := $00002000;
  29365. end;
  29366. function TI2C2A_I2C4CON.getI2CSIDL : TBits_1; inline;
  29367. begin
  29368. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  29369. end;
  29370. procedure TI2C2A_I2C4CON.setI2CEN; inline;
  29371. begin
  29372. pTDefRegMap(@Self)^.&set := $00008000;
  29373. end;
  29374. procedure TI2C2A_I2C4CON.clearI2CEN; inline;
  29375. begin
  29376. pTDefRegMap(@Self)^.clr := $00008000;
  29377. end;
  29378. procedure TI2C2A_I2C4CON.setI2CEN(thebits : TBits_1); inline;
  29379. begin
  29380. if thebits = 0 then
  29381. pTDefRegMap(@Self)^.clr := $00008000
  29382. else
  29383. pTDefRegMap(@Self)^.&set := $00008000;
  29384. end;
  29385. function TI2C2A_I2C4CON.getI2CEN : TBits_1; inline;
  29386. begin
  29387. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  29388. end;
  29389. procedure TI2C2A_I2C4CON.setw(thebits : TBits_32); inline;
  29390. begin
  29391. pTDefRegMap(@Self)^.val := thebits;
  29392. end;
  29393. function TI2C2A_I2C4CON.getw : TBits_32; inline;
  29394. begin
  29395. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  29396. end;
  29397. procedure TI2C2A_I2C2ASTAT.setTBF; inline;
  29398. begin
  29399. pTDefRegMap(@Self)^.&set := $00000001;
  29400. end;
  29401. procedure TI2C2A_I2C2ASTAT.clearTBF; inline;
  29402. begin
  29403. pTDefRegMap(@Self)^.clr := $00000001;
  29404. end;
  29405. procedure TI2C2A_I2C2ASTAT.setTBF(thebits : TBits_1); inline;
  29406. begin
  29407. if thebits = 0 then
  29408. pTDefRegMap(@Self)^.clr := $00000001
  29409. else
  29410. pTDefRegMap(@Self)^.&set := $00000001;
  29411. end;
  29412. function TI2C2A_I2C2ASTAT.getTBF : TBits_1; inline;
  29413. begin
  29414. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  29415. end;
  29416. procedure TI2C2A_I2C2ASTAT.setRBF; inline;
  29417. begin
  29418. pTDefRegMap(@Self)^.&set := $00000002;
  29419. end;
  29420. procedure TI2C2A_I2C2ASTAT.clearRBF; inline;
  29421. begin
  29422. pTDefRegMap(@Self)^.clr := $00000002;
  29423. end;
  29424. procedure TI2C2A_I2C2ASTAT.setRBF(thebits : TBits_1); inline;
  29425. begin
  29426. if thebits = 0 then
  29427. pTDefRegMap(@Self)^.clr := $00000002
  29428. else
  29429. pTDefRegMap(@Self)^.&set := $00000002;
  29430. end;
  29431. function TI2C2A_I2C2ASTAT.getRBF : TBits_1; inline;
  29432. begin
  29433. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  29434. end;
  29435. procedure TI2C2A_I2C2ASTAT.setR_W; inline;
  29436. begin
  29437. pTDefRegMap(@Self)^.&set := $00000004;
  29438. end;
  29439. procedure TI2C2A_I2C2ASTAT.clearR_W; inline;
  29440. begin
  29441. pTDefRegMap(@Self)^.clr := $00000004;
  29442. end;
  29443. procedure TI2C2A_I2C2ASTAT.setR_W(thebits : TBits_1); inline;
  29444. begin
  29445. if thebits = 0 then
  29446. pTDefRegMap(@Self)^.clr := $00000004
  29447. else
  29448. pTDefRegMap(@Self)^.&set := $00000004;
  29449. end;
  29450. function TI2C2A_I2C2ASTAT.getR_W : TBits_1; inline;
  29451. begin
  29452. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  29453. end;
  29454. procedure TI2C2A_I2C2ASTAT.setS; inline;
  29455. begin
  29456. pTDefRegMap(@Self)^.&set := $00000008;
  29457. end;
  29458. procedure TI2C2A_I2C2ASTAT.clearS; inline;
  29459. begin
  29460. pTDefRegMap(@Self)^.clr := $00000008;
  29461. end;
  29462. procedure TI2C2A_I2C2ASTAT.setS(thebits : TBits_1); inline;
  29463. begin
  29464. if thebits = 0 then
  29465. pTDefRegMap(@Self)^.clr := $00000008
  29466. else
  29467. pTDefRegMap(@Self)^.&set := $00000008;
  29468. end;
  29469. function TI2C2A_I2C2ASTAT.getS : TBits_1; inline;
  29470. begin
  29471. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  29472. end;
  29473. procedure TI2C2A_I2C2ASTAT.setP; inline;
  29474. begin
  29475. pTDefRegMap(@Self)^.&set := $00000010;
  29476. end;
  29477. procedure TI2C2A_I2C2ASTAT.clearP; inline;
  29478. begin
  29479. pTDefRegMap(@Self)^.clr := $00000010;
  29480. end;
  29481. procedure TI2C2A_I2C2ASTAT.setP(thebits : TBits_1); inline;
  29482. begin
  29483. if thebits = 0 then
  29484. pTDefRegMap(@Self)^.clr := $00000010
  29485. else
  29486. pTDefRegMap(@Self)^.&set := $00000010;
  29487. end;
  29488. function TI2C2A_I2C2ASTAT.getP : TBits_1; inline;
  29489. begin
  29490. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  29491. end;
  29492. procedure TI2C2A_I2C2ASTAT.setD_A; inline;
  29493. begin
  29494. pTDefRegMap(@Self)^.&set := $00000020;
  29495. end;
  29496. procedure TI2C2A_I2C2ASTAT.clearD_A; inline;
  29497. begin
  29498. pTDefRegMap(@Self)^.clr := $00000020;
  29499. end;
  29500. procedure TI2C2A_I2C2ASTAT.setD_A(thebits : TBits_1); inline;
  29501. begin
  29502. if thebits = 0 then
  29503. pTDefRegMap(@Self)^.clr := $00000020
  29504. else
  29505. pTDefRegMap(@Self)^.&set := $00000020;
  29506. end;
  29507. function TI2C2A_I2C2ASTAT.getD_A : TBits_1; inline;
  29508. begin
  29509. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  29510. end;
  29511. procedure TI2C2A_I2C2ASTAT.setI2COV; inline;
  29512. begin
  29513. pTDefRegMap(@Self)^.&set := $00000040;
  29514. end;
  29515. procedure TI2C2A_I2C2ASTAT.clearI2COV; inline;
  29516. begin
  29517. pTDefRegMap(@Self)^.clr := $00000040;
  29518. end;
  29519. procedure TI2C2A_I2C2ASTAT.setI2COV(thebits : TBits_1); inline;
  29520. begin
  29521. if thebits = 0 then
  29522. pTDefRegMap(@Self)^.clr := $00000040
  29523. else
  29524. pTDefRegMap(@Self)^.&set := $00000040;
  29525. end;
  29526. function TI2C2A_I2C2ASTAT.getI2COV : TBits_1; inline;
  29527. begin
  29528. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29529. end;
  29530. procedure TI2C2A_I2C2ASTAT.setIWCOL; inline;
  29531. begin
  29532. pTDefRegMap(@Self)^.&set := $00000080;
  29533. end;
  29534. procedure TI2C2A_I2C2ASTAT.clearIWCOL; inline;
  29535. begin
  29536. pTDefRegMap(@Self)^.clr := $00000080;
  29537. end;
  29538. procedure TI2C2A_I2C2ASTAT.setIWCOL(thebits : TBits_1); inline;
  29539. begin
  29540. if thebits = 0 then
  29541. pTDefRegMap(@Self)^.clr := $00000080
  29542. else
  29543. pTDefRegMap(@Self)^.&set := $00000080;
  29544. end;
  29545. function TI2C2A_I2C2ASTAT.getIWCOL : TBits_1; inline;
  29546. begin
  29547. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  29548. end;
  29549. procedure TI2C2A_I2C2ASTAT.setADD10; inline;
  29550. begin
  29551. pTDefRegMap(@Self)^.&set := $00000100;
  29552. end;
  29553. procedure TI2C2A_I2C2ASTAT.clearADD10; inline;
  29554. begin
  29555. pTDefRegMap(@Self)^.clr := $00000100;
  29556. end;
  29557. procedure TI2C2A_I2C2ASTAT.setADD10(thebits : TBits_1); inline;
  29558. begin
  29559. if thebits = 0 then
  29560. pTDefRegMap(@Self)^.clr := $00000100
  29561. else
  29562. pTDefRegMap(@Self)^.&set := $00000100;
  29563. end;
  29564. function TI2C2A_I2C2ASTAT.getADD10 : TBits_1; inline;
  29565. begin
  29566. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  29567. end;
  29568. procedure TI2C2A_I2C2ASTAT.setGCSTAT; inline;
  29569. begin
  29570. pTDefRegMap(@Self)^.&set := $00000200;
  29571. end;
  29572. procedure TI2C2A_I2C2ASTAT.clearGCSTAT; inline;
  29573. begin
  29574. pTDefRegMap(@Self)^.clr := $00000200;
  29575. end;
  29576. procedure TI2C2A_I2C2ASTAT.setGCSTAT(thebits : TBits_1); inline;
  29577. begin
  29578. if thebits = 0 then
  29579. pTDefRegMap(@Self)^.clr := $00000200
  29580. else
  29581. pTDefRegMap(@Self)^.&set := $00000200;
  29582. end;
  29583. function TI2C2A_I2C2ASTAT.getGCSTAT : TBits_1; inline;
  29584. begin
  29585. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  29586. end;
  29587. procedure TI2C2A_I2C2ASTAT.setBCL; inline;
  29588. begin
  29589. pTDefRegMap(@Self)^.&set := $00000400;
  29590. end;
  29591. procedure TI2C2A_I2C2ASTAT.clearBCL; inline;
  29592. begin
  29593. pTDefRegMap(@Self)^.clr := $00000400;
  29594. end;
  29595. procedure TI2C2A_I2C2ASTAT.setBCL(thebits : TBits_1); inline;
  29596. begin
  29597. if thebits = 0 then
  29598. pTDefRegMap(@Self)^.clr := $00000400
  29599. else
  29600. pTDefRegMap(@Self)^.&set := $00000400;
  29601. end;
  29602. function TI2C2A_I2C2ASTAT.getBCL : TBits_1; inline;
  29603. begin
  29604. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  29605. end;
  29606. procedure TI2C2A_I2C2ASTAT.setTRSTAT; inline;
  29607. begin
  29608. pTDefRegMap(@Self)^.&set := $00004000;
  29609. end;
  29610. procedure TI2C2A_I2C2ASTAT.clearTRSTAT; inline;
  29611. begin
  29612. pTDefRegMap(@Self)^.clr := $00004000;
  29613. end;
  29614. procedure TI2C2A_I2C2ASTAT.setTRSTAT(thebits : TBits_1); inline;
  29615. begin
  29616. if thebits = 0 then
  29617. pTDefRegMap(@Self)^.clr := $00004000
  29618. else
  29619. pTDefRegMap(@Self)^.&set := $00004000;
  29620. end;
  29621. function TI2C2A_I2C2ASTAT.getTRSTAT : TBits_1; inline;
  29622. begin
  29623. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  29624. end;
  29625. procedure TI2C2A_I2C2ASTAT.setACKSTAT; inline;
  29626. begin
  29627. pTDefRegMap(@Self)^.&set := $00008000;
  29628. end;
  29629. procedure TI2C2A_I2C2ASTAT.clearACKSTAT; inline;
  29630. begin
  29631. pTDefRegMap(@Self)^.clr := $00008000;
  29632. end;
  29633. procedure TI2C2A_I2C2ASTAT.setACKSTAT(thebits : TBits_1); inline;
  29634. begin
  29635. if thebits = 0 then
  29636. pTDefRegMap(@Self)^.clr := $00008000
  29637. else
  29638. pTDefRegMap(@Self)^.&set := $00008000;
  29639. end;
  29640. function TI2C2A_I2C2ASTAT.getACKSTAT : TBits_1; inline;
  29641. begin
  29642. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  29643. end;
  29644. procedure TI2C2A_I2C2ASTAT.setI2CPOV; inline;
  29645. begin
  29646. pTDefRegMap(@Self)^.&set := $00000040;
  29647. end;
  29648. procedure TI2C2A_I2C2ASTAT.clearI2CPOV; inline;
  29649. begin
  29650. pTDefRegMap(@Self)^.clr := $00000040;
  29651. end;
  29652. procedure TI2C2A_I2C2ASTAT.setI2CPOV(thebits : TBits_1); inline;
  29653. begin
  29654. if thebits = 0 then
  29655. pTDefRegMap(@Self)^.clr := $00000040
  29656. else
  29657. pTDefRegMap(@Self)^.&set := $00000040;
  29658. end;
  29659. function TI2C2A_I2C2ASTAT.getI2CPOV : TBits_1; inline;
  29660. begin
  29661. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29662. end;
  29663. procedure TI2C2A_I2C2ASTAT.setw(thebits : TBits_32); inline;
  29664. begin
  29665. pTDefRegMap(@Self)^.val := thebits;
  29666. end;
  29667. function TI2C2A_I2C2ASTAT.getw : TBits_32; inline;
  29668. begin
  29669. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  29670. end;
  29671. procedure TI2C2A_I2C4STAT.setTBF; inline;
  29672. begin
  29673. pTDefRegMap(@Self)^.&set := $00000001;
  29674. end;
  29675. procedure TI2C2A_I2C4STAT.clearTBF; inline;
  29676. begin
  29677. pTDefRegMap(@Self)^.clr := $00000001;
  29678. end;
  29679. procedure TI2C2A_I2C4STAT.setTBF(thebits : TBits_1); inline;
  29680. begin
  29681. if thebits = 0 then
  29682. pTDefRegMap(@Self)^.clr := $00000001
  29683. else
  29684. pTDefRegMap(@Self)^.&set := $00000001;
  29685. end;
  29686. function TI2C2A_I2C4STAT.getTBF : TBits_1; inline;
  29687. begin
  29688. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  29689. end;
  29690. procedure TI2C2A_I2C4STAT.setRBF; inline;
  29691. begin
  29692. pTDefRegMap(@Self)^.&set := $00000002;
  29693. end;
  29694. procedure TI2C2A_I2C4STAT.clearRBF; inline;
  29695. begin
  29696. pTDefRegMap(@Self)^.clr := $00000002;
  29697. end;
  29698. procedure TI2C2A_I2C4STAT.setRBF(thebits : TBits_1); inline;
  29699. begin
  29700. if thebits = 0 then
  29701. pTDefRegMap(@Self)^.clr := $00000002
  29702. else
  29703. pTDefRegMap(@Self)^.&set := $00000002;
  29704. end;
  29705. function TI2C2A_I2C4STAT.getRBF : TBits_1; inline;
  29706. begin
  29707. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  29708. end;
  29709. procedure TI2C2A_I2C4STAT.setR_W; inline;
  29710. begin
  29711. pTDefRegMap(@Self)^.&set := $00000004;
  29712. end;
  29713. procedure TI2C2A_I2C4STAT.clearR_W; inline;
  29714. begin
  29715. pTDefRegMap(@Self)^.clr := $00000004;
  29716. end;
  29717. procedure TI2C2A_I2C4STAT.setR_W(thebits : TBits_1); inline;
  29718. begin
  29719. if thebits = 0 then
  29720. pTDefRegMap(@Self)^.clr := $00000004
  29721. else
  29722. pTDefRegMap(@Self)^.&set := $00000004;
  29723. end;
  29724. function TI2C2A_I2C4STAT.getR_W : TBits_1; inline;
  29725. begin
  29726. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  29727. end;
  29728. procedure TI2C2A_I2C4STAT.setS; inline;
  29729. begin
  29730. pTDefRegMap(@Self)^.&set := $00000008;
  29731. end;
  29732. procedure TI2C2A_I2C4STAT.clearS; inline;
  29733. begin
  29734. pTDefRegMap(@Self)^.clr := $00000008;
  29735. end;
  29736. procedure TI2C2A_I2C4STAT.setS(thebits : TBits_1); inline;
  29737. begin
  29738. if thebits = 0 then
  29739. pTDefRegMap(@Self)^.clr := $00000008
  29740. else
  29741. pTDefRegMap(@Self)^.&set := $00000008;
  29742. end;
  29743. function TI2C2A_I2C4STAT.getS : TBits_1; inline;
  29744. begin
  29745. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  29746. end;
  29747. procedure TI2C2A_I2C4STAT.setP; inline;
  29748. begin
  29749. pTDefRegMap(@Self)^.&set := $00000010;
  29750. end;
  29751. procedure TI2C2A_I2C4STAT.clearP; inline;
  29752. begin
  29753. pTDefRegMap(@Self)^.clr := $00000010;
  29754. end;
  29755. procedure TI2C2A_I2C4STAT.setP(thebits : TBits_1); inline;
  29756. begin
  29757. if thebits = 0 then
  29758. pTDefRegMap(@Self)^.clr := $00000010
  29759. else
  29760. pTDefRegMap(@Self)^.&set := $00000010;
  29761. end;
  29762. function TI2C2A_I2C4STAT.getP : TBits_1; inline;
  29763. begin
  29764. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  29765. end;
  29766. procedure TI2C2A_I2C4STAT.setD_A; inline;
  29767. begin
  29768. pTDefRegMap(@Self)^.&set := $00000020;
  29769. end;
  29770. procedure TI2C2A_I2C4STAT.clearD_A; inline;
  29771. begin
  29772. pTDefRegMap(@Self)^.clr := $00000020;
  29773. end;
  29774. procedure TI2C2A_I2C4STAT.setD_A(thebits : TBits_1); inline;
  29775. begin
  29776. if thebits = 0 then
  29777. pTDefRegMap(@Self)^.clr := $00000020
  29778. else
  29779. pTDefRegMap(@Self)^.&set := $00000020;
  29780. end;
  29781. function TI2C2A_I2C4STAT.getD_A : TBits_1; inline;
  29782. begin
  29783. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  29784. end;
  29785. procedure TI2C2A_I2C4STAT.setI2COV; inline;
  29786. begin
  29787. pTDefRegMap(@Self)^.&set := $00000040;
  29788. end;
  29789. procedure TI2C2A_I2C4STAT.clearI2COV; inline;
  29790. begin
  29791. pTDefRegMap(@Self)^.clr := $00000040;
  29792. end;
  29793. procedure TI2C2A_I2C4STAT.setI2COV(thebits : TBits_1); inline;
  29794. begin
  29795. if thebits = 0 then
  29796. pTDefRegMap(@Self)^.clr := $00000040
  29797. else
  29798. pTDefRegMap(@Self)^.&set := $00000040;
  29799. end;
  29800. function TI2C2A_I2C4STAT.getI2COV : TBits_1; inline;
  29801. begin
  29802. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29803. end;
  29804. procedure TI2C2A_I2C4STAT.setIWCOL; inline;
  29805. begin
  29806. pTDefRegMap(@Self)^.&set := $00000080;
  29807. end;
  29808. procedure TI2C2A_I2C4STAT.clearIWCOL; inline;
  29809. begin
  29810. pTDefRegMap(@Self)^.clr := $00000080;
  29811. end;
  29812. procedure TI2C2A_I2C4STAT.setIWCOL(thebits : TBits_1); inline;
  29813. begin
  29814. if thebits = 0 then
  29815. pTDefRegMap(@Self)^.clr := $00000080
  29816. else
  29817. pTDefRegMap(@Self)^.&set := $00000080;
  29818. end;
  29819. function TI2C2A_I2C4STAT.getIWCOL : TBits_1; inline;
  29820. begin
  29821. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  29822. end;
  29823. procedure TI2C2A_I2C4STAT.setADD10; inline;
  29824. begin
  29825. pTDefRegMap(@Self)^.&set := $00000100;
  29826. end;
  29827. procedure TI2C2A_I2C4STAT.clearADD10; inline;
  29828. begin
  29829. pTDefRegMap(@Self)^.clr := $00000100;
  29830. end;
  29831. procedure TI2C2A_I2C4STAT.setADD10(thebits : TBits_1); inline;
  29832. begin
  29833. if thebits = 0 then
  29834. pTDefRegMap(@Self)^.clr := $00000100
  29835. else
  29836. pTDefRegMap(@Self)^.&set := $00000100;
  29837. end;
  29838. function TI2C2A_I2C4STAT.getADD10 : TBits_1; inline;
  29839. begin
  29840. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  29841. end;
  29842. procedure TI2C2A_I2C4STAT.setGCSTAT; inline;
  29843. begin
  29844. pTDefRegMap(@Self)^.&set := $00000200;
  29845. end;
  29846. procedure TI2C2A_I2C4STAT.clearGCSTAT; inline;
  29847. begin
  29848. pTDefRegMap(@Self)^.clr := $00000200;
  29849. end;
  29850. procedure TI2C2A_I2C4STAT.setGCSTAT(thebits : TBits_1); inline;
  29851. begin
  29852. if thebits = 0 then
  29853. pTDefRegMap(@Self)^.clr := $00000200
  29854. else
  29855. pTDefRegMap(@Self)^.&set := $00000200;
  29856. end;
  29857. function TI2C2A_I2C4STAT.getGCSTAT : TBits_1; inline;
  29858. begin
  29859. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  29860. end;
  29861. procedure TI2C2A_I2C4STAT.setBCL; inline;
  29862. begin
  29863. pTDefRegMap(@Self)^.&set := $00000400;
  29864. end;
  29865. procedure TI2C2A_I2C4STAT.clearBCL; inline;
  29866. begin
  29867. pTDefRegMap(@Self)^.clr := $00000400;
  29868. end;
  29869. procedure TI2C2A_I2C4STAT.setBCL(thebits : TBits_1); inline;
  29870. begin
  29871. if thebits = 0 then
  29872. pTDefRegMap(@Self)^.clr := $00000400
  29873. else
  29874. pTDefRegMap(@Self)^.&set := $00000400;
  29875. end;
  29876. function TI2C2A_I2C4STAT.getBCL : TBits_1; inline;
  29877. begin
  29878. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  29879. end;
  29880. procedure TI2C2A_I2C4STAT.setTRSTAT; inline;
  29881. begin
  29882. pTDefRegMap(@Self)^.&set := $00004000;
  29883. end;
  29884. procedure TI2C2A_I2C4STAT.clearTRSTAT; inline;
  29885. begin
  29886. pTDefRegMap(@Self)^.clr := $00004000;
  29887. end;
  29888. procedure TI2C2A_I2C4STAT.setTRSTAT(thebits : TBits_1); inline;
  29889. begin
  29890. if thebits = 0 then
  29891. pTDefRegMap(@Self)^.clr := $00004000
  29892. else
  29893. pTDefRegMap(@Self)^.&set := $00004000;
  29894. end;
  29895. function TI2C2A_I2C4STAT.getTRSTAT : TBits_1; inline;
  29896. begin
  29897. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  29898. end;
  29899. procedure TI2C2A_I2C4STAT.setACKSTAT; inline;
  29900. begin
  29901. pTDefRegMap(@Self)^.&set := $00008000;
  29902. end;
  29903. procedure TI2C2A_I2C4STAT.clearACKSTAT; inline;
  29904. begin
  29905. pTDefRegMap(@Self)^.clr := $00008000;
  29906. end;
  29907. procedure TI2C2A_I2C4STAT.setACKSTAT(thebits : TBits_1); inline;
  29908. begin
  29909. if thebits = 0 then
  29910. pTDefRegMap(@Self)^.clr := $00008000
  29911. else
  29912. pTDefRegMap(@Self)^.&set := $00008000;
  29913. end;
  29914. function TI2C2A_I2C4STAT.getACKSTAT : TBits_1; inline;
  29915. begin
  29916. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  29917. end;
  29918. procedure TI2C2A_I2C4STAT.setI2CPOV; inline;
  29919. begin
  29920. pTDefRegMap(@Self)^.&set := $00000040;
  29921. end;
  29922. procedure TI2C2A_I2C4STAT.clearI2CPOV; inline;
  29923. begin
  29924. pTDefRegMap(@Self)^.clr := $00000040;
  29925. end;
  29926. procedure TI2C2A_I2C4STAT.setI2CPOV(thebits : TBits_1); inline;
  29927. begin
  29928. if thebits = 0 then
  29929. pTDefRegMap(@Self)^.clr := $00000040
  29930. else
  29931. pTDefRegMap(@Self)^.&set := $00000040;
  29932. end;
  29933. function TI2C2A_I2C4STAT.getI2CPOV : TBits_1; inline;
  29934. begin
  29935. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29936. end;
  29937. procedure TI2C2A_I2C4STAT.setw(thebits : TBits_32); inline;
  29938. begin
  29939. pTDefRegMap(@Self)^.val := thebits;
  29940. end;
  29941. function TI2C2A_I2C4STAT.getw : TBits_32; inline;
  29942. begin
  29943. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  29944. end;
  29945. procedure TI2C5_I2C3ACON.setSEN; inline;
  29946. begin
  29947. pTDefRegMap(@Self)^.&set := $00000001;
  29948. end;
  29949. procedure TI2C5_I2C3ACON.clearSEN; inline;
  29950. begin
  29951. pTDefRegMap(@Self)^.clr := $00000001;
  29952. end;
  29953. procedure TI2C5_I2C3ACON.setSEN(thebits : TBits_1); inline;
  29954. begin
  29955. if thebits = 0 then
  29956. pTDefRegMap(@Self)^.clr := $00000001
  29957. else
  29958. pTDefRegMap(@Self)^.&set := $00000001;
  29959. end;
  29960. function TI2C5_I2C3ACON.getSEN : TBits_1; inline;
  29961. begin
  29962. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  29963. end;
  29964. procedure TI2C5_I2C3ACON.setRSEN; inline;
  29965. begin
  29966. pTDefRegMap(@Self)^.&set := $00000002;
  29967. end;
  29968. procedure TI2C5_I2C3ACON.clearRSEN; inline;
  29969. begin
  29970. pTDefRegMap(@Self)^.clr := $00000002;
  29971. end;
  29972. procedure TI2C5_I2C3ACON.setRSEN(thebits : TBits_1); inline;
  29973. begin
  29974. if thebits = 0 then
  29975. pTDefRegMap(@Self)^.clr := $00000002
  29976. else
  29977. pTDefRegMap(@Self)^.&set := $00000002;
  29978. end;
  29979. function TI2C5_I2C3ACON.getRSEN : TBits_1; inline;
  29980. begin
  29981. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  29982. end;
  29983. procedure TI2C5_I2C3ACON.setPEN; inline;
  29984. begin
  29985. pTDefRegMap(@Self)^.&set := $00000004;
  29986. end;
  29987. procedure TI2C5_I2C3ACON.clearPEN; inline;
  29988. begin
  29989. pTDefRegMap(@Self)^.clr := $00000004;
  29990. end;
  29991. procedure TI2C5_I2C3ACON.setPEN(thebits : TBits_1); inline;
  29992. begin
  29993. if thebits = 0 then
  29994. pTDefRegMap(@Self)^.clr := $00000004
  29995. else
  29996. pTDefRegMap(@Self)^.&set := $00000004;
  29997. end;
  29998. function TI2C5_I2C3ACON.getPEN : TBits_1; inline;
  29999. begin
  30000. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  30001. end;
  30002. procedure TI2C5_I2C3ACON.setRCEN; inline;
  30003. begin
  30004. pTDefRegMap(@Self)^.&set := $00000008;
  30005. end;
  30006. procedure TI2C5_I2C3ACON.clearRCEN; inline;
  30007. begin
  30008. pTDefRegMap(@Self)^.clr := $00000008;
  30009. end;
  30010. procedure TI2C5_I2C3ACON.setRCEN(thebits : TBits_1); inline;
  30011. begin
  30012. if thebits = 0 then
  30013. pTDefRegMap(@Self)^.clr := $00000008
  30014. else
  30015. pTDefRegMap(@Self)^.&set := $00000008;
  30016. end;
  30017. function TI2C5_I2C3ACON.getRCEN : TBits_1; inline;
  30018. begin
  30019. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  30020. end;
  30021. procedure TI2C5_I2C3ACON.setACKEN; inline;
  30022. begin
  30023. pTDefRegMap(@Self)^.&set := $00000010;
  30024. end;
  30025. procedure TI2C5_I2C3ACON.clearACKEN; inline;
  30026. begin
  30027. pTDefRegMap(@Self)^.clr := $00000010;
  30028. end;
  30029. procedure TI2C5_I2C3ACON.setACKEN(thebits : TBits_1); inline;
  30030. begin
  30031. if thebits = 0 then
  30032. pTDefRegMap(@Self)^.clr := $00000010
  30033. else
  30034. pTDefRegMap(@Self)^.&set := $00000010;
  30035. end;
  30036. function TI2C5_I2C3ACON.getACKEN : TBits_1; inline;
  30037. begin
  30038. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  30039. end;
  30040. procedure TI2C5_I2C3ACON.setACKDT; inline;
  30041. begin
  30042. pTDefRegMap(@Self)^.&set := $00000020;
  30043. end;
  30044. procedure TI2C5_I2C3ACON.clearACKDT; inline;
  30045. begin
  30046. pTDefRegMap(@Self)^.clr := $00000020;
  30047. end;
  30048. procedure TI2C5_I2C3ACON.setACKDT(thebits : TBits_1); inline;
  30049. begin
  30050. if thebits = 0 then
  30051. pTDefRegMap(@Self)^.clr := $00000020
  30052. else
  30053. pTDefRegMap(@Self)^.&set := $00000020;
  30054. end;
  30055. function TI2C5_I2C3ACON.getACKDT : TBits_1; inline;
  30056. begin
  30057. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  30058. end;
  30059. procedure TI2C5_I2C3ACON.setSTREN; inline;
  30060. begin
  30061. pTDefRegMap(@Self)^.&set := $00000040;
  30062. end;
  30063. procedure TI2C5_I2C3ACON.clearSTREN; inline;
  30064. begin
  30065. pTDefRegMap(@Self)^.clr := $00000040;
  30066. end;
  30067. procedure TI2C5_I2C3ACON.setSTREN(thebits : TBits_1); inline;
  30068. begin
  30069. if thebits = 0 then
  30070. pTDefRegMap(@Self)^.clr := $00000040
  30071. else
  30072. pTDefRegMap(@Self)^.&set := $00000040;
  30073. end;
  30074. function TI2C5_I2C3ACON.getSTREN : TBits_1; inline;
  30075. begin
  30076. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  30077. end;
  30078. procedure TI2C5_I2C3ACON.setGCEN; inline;
  30079. begin
  30080. pTDefRegMap(@Self)^.&set := $00000080;
  30081. end;
  30082. procedure TI2C5_I2C3ACON.clearGCEN; inline;
  30083. begin
  30084. pTDefRegMap(@Self)^.clr := $00000080;
  30085. end;
  30086. procedure TI2C5_I2C3ACON.setGCEN(thebits : TBits_1); inline;
  30087. begin
  30088. if thebits = 0 then
  30089. pTDefRegMap(@Self)^.clr := $00000080
  30090. else
  30091. pTDefRegMap(@Self)^.&set := $00000080;
  30092. end;
  30093. function TI2C5_I2C3ACON.getGCEN : TBits_1; inline;
  30094. begin
  30095. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  30096. end;
  30097. procedure TI2C5_I2C3ACON.setSMEN; inline;
  30098. begin
  30099. pTDefRegMap(@Self)^.&set := $00000100;
  30100. end;
  30101. procedure TI2C5_I2C3ACON.clearSMEN; inline;
  30102. begin
  30103. pTDefRegMap(@Self)^.clr := $00000100;
  30104. end;
  30105. procedure TI2C5_I2C3ACON.setSMEN(thebits : TBits_1); inline;
  30106. begin
  30107. if thebits = 0 then
  30108. pTDefRegMap(@Self)^.clr := $00000100
  30109. else
  30110. pTDefRegMap(@Self)^.&set := $00000100;
  30111. end;
  30112. function TI2C5_I2C3ACON.getSMEN : TBits_1; inline;
  30113. begin
  30114. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  30115. end;
  30116. procedure TI2C5_I2C3ACON.setDISSLW; inline;
  30117. begin
  30118. pTDefRegMap(@Self)^.&set := $00000200;
  30119. end;
  30120. procedure TI2C5_I2C3ACON.clearDISSLW; inline;
  30121. begin
  30122. pTDefRegMap(@Self)^.clr := $00000200;
  30123. end;
  30124. procedure TI2C5_I2C3ACON.setDISSLW(thebits : TBits_1); inline;
  30125. begin
  30126. if thebits = 0 then
  30127. pTDefRegMap(@Self)^.clr := $00000200
  30128. else
  30129. pTDefRegMap(@Self)^.&set := $00000200;
  30130. end;
  30131. function TI2C5_I2C3ACON.getDISSLW : TBits_1; inline;
  30132. begin
  30133. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  30134. end;
  30135. procedure TI2C5_I2C3ACON.setA10M; inline;
  30136. begin
  30137. pTDefRegMap(@Self)^.&set := $00000400;
  30138. end;
  30139. procedure TI2C5_I2C3ACON.clearA10M; inline;
  30140. begin
  30141. pTDefRegMap(@Self)^.clr := $00000400;
  30142. end;
  30143. procedure TI2C5_I2C3ACON.setA10M(thebits : TBits_1); inline;
  30144. begin
  30145. if thebits = 0 then
  30146. pTDefRegMap(@Self)^.clr := $00000400
  30147. else
  30148. pTDefRegMap(@Self)^.&set := $00000400;
  30149. end;
  30150. function TI2C5_I2C3ACON.getA10M : TBits_1; inline;
  30151. begin
  30152. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  30153. end;
  30154. procedure TI2C5_I2C3ACON.setSTRICT; inline;
  30155. begin
  30156. pTDefRegMap(@Self)^.&set := $00000800;
  30157. end;
  30158. procedure TI2C5_I2C3ACON.clearSTRICT; inline;
  30159. begin
  30160. pTDefRegMap(@Self)^.clr := $00000800;
  30161. end;
  30162. procedure TI2C5_I2C3ACON.setSTRICT(thebits : TBits_1); inline;
  30163. begin
  30164. if thebits = 0 then
  30165. pTDefRegMap(@Self)^.clr := $00000800
  30166. else
  30167. pTDefRegMap(@Self)^.&set := $00000800;
  30168. end;
  30169. function TI2C5_I2C3ACON.getSTRICT : TBits_1; inline;
  30170. begin
  30171. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  30172. end;
  30173. procedure TI2C5_I2C3ACON.setSCLREL; inline;
  30174. begin
  30175. pTDefRegMap(@Self)^.&set := $00001000;
  30176. end;
  30177. procedure TI2C5_I2C3ACON.clearSCLREL; inline;
  30178. begin
  30179. pTDefRegMap(@Self)^.clr := $00001000;
  30180. end;
  30181. procedure TI2C5_I2C3ACON.setSCLREL(thebits : TBits_1); inline;
  30182. begin
  30183. if thebits = 0 then
  30184. pTDefRegMap(@Self)^.clr := $00001000
  30185. else
  30186. pTDefRegMap(@Self)^.&set := $00001000;
  30187. end;
  30188. function TI2C5_I2C3ACON.getSCLREL : TBits_1; inline;
  30189. begin
  30190. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  30191. end;
  30192. procedure TI2C5_I2C3ACON.setSIDL; inline;
  30193. begin
  30194. pTDefRegMap(@Self)^.&set := $00002000;
  30195. end;
  30196. procedure TI2C5_I2C3ACON.clearSIDL; inline;
  30197. begin
  30198. pTDefRegMap(@Self)^.clr := $00002000;
  30199. end;
  30200. procedure TI2C5_I2C3ACON.setSIDL(thebits : TBits_1); inline;
  30201. begin
  30202. if thebits = 0 then
  30203. pTDefRegMap(@Self)^.clr := $00002000
  30204. else
  30205. pTDefRegMap(@Self)^.&set := $00002000;
  30206. end;
  30207. function TI2C5_I2C3ACON.getSIDL : TBits_1; inline;
  30208. begin
  30209. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  30210. end;
  30211. procedure TI2C5_I2C3ACON.setON; inline;
  30212. begin
  30213. pTDefRegMap(@Self)^.&set := $00008000;
  30214. end;
  30215. procedure TI2C5_I2C3ACON.clearON; inline;
  30216. begin
  30217. pTDefRegMap(@Self)^.clr := $00008000;
  30218. end;
  30219. procedure TI2C5_I2C3ACON.setON(thebits : TBits_1); inline;
  30220. begin
  30221. if thebits = 0 then
  30222. pTDefRegMap(@Self)^.clr := $00008000
  30223. else
  30224. pTDefRegMap(@Self)^.&set := $00008000;
  30225. end;
  30226. function TI2C5_I2C3ACON.getON : TBits_1; inline;
  30227. begin
  30228. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30229. end;
  30230. procedure TI2C5_I2C3ACON.setIPMIEN; inline;
  30231. begin
  30232. pTDefRegMap(@Self)^.&set := $00000800;
  30233. end;
  30234. procedure TI2C5_I2C3ACON.clearIPMIEN; inline;
  30235. begin
  30236. pTDefRegMap(@Self)^.clr := $00000800;
  30237. end;
  30238. procedure TI2C5_I2C3ACON.setIPMIEN(thebits : TBits_1); inline;
  30239. begin
  30240. if thebits = 0 then
  30241. pTDefRegMap(@Self)^.clr := $00000800
  30242. else
  30243. pTDefRegMap(@Self)^.&set := $00000800;
  30244. end;
  30245. function TI2C5_I2C3ACON.getIPMIEN : TBits_1; inline;
  30246. begin
  30247. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  30248. end;
  30249. procedure TI2C5_I2C3ACON.setI2CSIDL; inline;
  30250. begin
  30251. pTDefRegMap(@Self)^.&set := $00002000;
  30252. end;
  30253. procedure TI2C5_I2C3ACON.clearI2CSIDL; inline;
  30254. begin
  30255. pTDefRegMap(@Self)^.clr := $00002000;
  30256. end;
  30257. procedure TI2C5_I2C3ACON.setI2CSIDL(thebits : TBits_1); inline;
  30258. begin
  30259. if thebits = 0 then
  30260. pTDefRegMap(@Self)^.clr := $00002000
  30261. else
  30262. pTDefRegMap(@Self)^.&set := $00002000;
  30263. end;
  30264. function TI2C5_I2C3ACON.getI2CSIDL : TBits_1; inline;
  30265. begin
  30266. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  30267. end;
  30268. procedure TI2C5_I2C3ACON.setI2CEN; inline;
  30269. begin
  30270. pTDefRegMap(@Self)^.&set := $00008000;
  30271. end;
  30272. procedure TI2C5_I2C3ACON.clearI2CEN; inline;
  30273. begin
  30274. pTDefRegMap(@Self)^.clr := $00008000;
  30275. end;
  30276. procedure TI2C5_I2C3ACON.setI2CEN(thebits : TBits_1); inline;
  30277. begin
  30278. if thebits = 0 then
  30279. pTDefRegMap(@Self)^.clr := $00008000
  30280. else
  30281. pTDefRegMap(@Self)^.&set := $00008000;
  30282. end;
  30283. function TI2C5_I2C3ACON.getI2CEN : TBits_1; inline;
  30284. begin
  30285. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30286. end;
  30287. procedure TI2C5_I2C3ACON.setw(thebits : TBits_32); inline;
  30288. begin
  30289. pTDefRegMap(@Self)^.val := thebits;
  30290. end;
  30291. function TI2C5_I2C3ACON.getw : TBits_32; inline;
  30292. begin
  30293. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  30294. end;
  30295. procedure TI2C5_I2C5CON.setSEN; inline;
  30296. begin
  30297. pTDefRegMap(@Self)^.&set := $00000001;
  30298. end;
  30299. procedure TI2C5_I2C5CON.clearSEN; inline;
  30300. begin
  30301. pTDefRegMap(@Self)^.clr := $00000001;
  30302. end;
  30303. procedure TI2C5_I2C5CON.setSEN(thebits : TBits_1); inline;
  30304. begin
  30305. if thebits = 0 then
  30306. pTDefRegMap(@Self)^.clr := $00000001
  30307. else
  30308. pTDefRegMap(@Self)^.&set := $00000001;
  30309. end;
  30310. function TI2C5_I2C5CON.getSEN : TBits_1; inline;
  30311. begin
  30312. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  30313. end;
  30314. procedure TI2C5_I2C5CON.setRSEN; inline;
  30315. begin
  30316. pTDefRegMap(@Self)^.&set := $00000002;
  30317. end;
  30318. procedure TI2C5_I2C5CON.clearRSEN; inline;
  30319. begin
  30320. pTDefRegMap(@Self)^.clr := $00000002;
  30321. end;
  30322. procedure TI2C5_I2C5CON.setRSEN(thebits : TBits_1); inline;
  30323. begin
  30324. if thebits = 0 then
  30325. pTDefRegMap(@Self)^.clr := $00000002
  30326. else
  30327. pTDefRegMap(@Self)^.&set := $00000002;
  30328. end;
  30329. function TI2C5_I2C5CON.getRSEN : TBits_1; inline;
  30330. begin
  30331. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  30332. end;
  30333. procedure TI2C5_I2C5CON.setPEN; inline;
  30334. begin
  30335. pTDefRegMap(@Self)^.&set := $00000004;
  30336. end;
  30337. procedure TI2C5_I2C5CON.clearPEN; inline;
  30338. begin
  30339. pTDefRegMap(@Self)^.clr := $00000004;
  30340. end;
  30341. procedure TI2C5_I2C5CON.setPEN(thebits : TBits_1); inline;
  30342. begin
  30343. if thebits = 0 then
  30344. pTDefRegMap(@Self)^.clr := $00000004
  30345. else
  30346. pTDefRegMap(@Self)^.&set := $00000004;
  30347. end;
  30348. function TI2C5_I2C5CON.getPEN : TBits_1; inline;
  30349. begin
  30350. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  30351. end;
  30352. procedure TI2C5_I2C5CON.setRCEN; inline;
  30353. begin
  30354. pTDefRegMap(@Self)^.&set := $00000008;
  30355. end;
  30356. procedure TI2C5_I2C5CON.clearRCEN; inline;
  30357. begin
  30358. pTDefRegMap(@Self)^.clr := $00000008;
  30359. end;
  30360. procedure TI2C5_I2C5CON.setRCEN(thebits : TBits_1); inline;
  30361. begin
  30362. if thebits = 0 then
  30363. pTDefRegMap(@Self)^.clr := $00000008
  30364. else
  30365. pTDefRegMap(@Self)^.&set := $00000008;
  30366. end;
  30367. function TI2C5_I2C5CON.getRCEN : TBits_1; inline;
  30368. begin
  30369. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  30370. end;
  30371. procedure TI2C5_I2C5CON.setACKEN; inline;
  30372. begin
  30373. pTDefRegMap(@Self)^.&set := $00000010;
  30374. end;
  30375. procedure TI2C5_I2C5CON.clearACKEN; inline;
  30376. begin
  30377. pTDefRegMap(@Self)^.clr := $00000010;
  30378. end;
  30379. procedure TI2C5_I2C5CON.setACKEN(thebits : TBits_1); inline;
  30380. begin
  30381. if thebits = 0 then
  30382. pTDefRegMap(@Self)^.clr := $00000010
  30383. else
  30384. pTDefRegMap(@Self)^.&set := $00000010;
  30385. end;
  30386. function TI2C5_I2C5CON.getACKEN : TBits_1; inline;
  30387. begin
  30388. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  30389. end;
  30390. procedure TI2C5_I2C5CON.setACKDT; inline;
  30391. begin
  30392. pTDefRegMap(@Self)^.&set := $00000020;
  30393. end;
  30394. procedure TI2C5_I2C5CON.clearACKDT; inline;
  30395. begin
  30396. pTDefRegMap(@Self)^.clr := $00000020;
  30397. end;
  30398. procedure TI2C5_I2C5CON.setACKDT(thebits : TBits_1); inline;
  30399. begin
  30400. if thebits = 0 then
  30401. pTDefRegMap(@Self)^.clr := $00000020
  30402. else
  30403. pTDefRegMap(@Self)^.&set := $00000020;
  30404. end;
  30405. function TI2C5_I2C5CON.getACKDT : TBits_1; inline;
  30406. begin
  30407. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  30408. end;
  30409. procedure TI2C5_I2C5CON.setSTREN; inline;
  30410. begin
  30411. pTDefRegMap(@Self)^.&set := $00000040;
  30412. end;
  30413. procedure TI2C5_I2C5CON.clearSTREN; inline;
  30414. begin
  30415. pTDefRegMap(@Self)^.clr := $00000040;
  30416. end;
  30417. procedure TI2C5_I2C5CON.setSTREN(thebits : TBits_1); inline;
  30418. begin
  30419. if thebits = 0 then
  30420. pTDefRegMap(@Self)^.clr := $00000040
  30421. else
  30422. pTDefRegMap(@Self)^.&set := $00000040;
  30423. end;
  30424. function TI2C5_I2C5CON.getSTREN : TBits_1; inline;
  30425. begin
  30426. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  30427. end;
  30428. procedure TI2C5_I2C5CON.setGCEN; inline;
  30429. begin
  30430. pTDefRegMap(@Self)^.&set := $00000080;
  30431. end;
  30432. procedure TI2C5_I2C5CON.clearGCEN; inline;
  30433. begin
  30434. pTDefRegMap(@Self)^.clr := $00000080;
  30435. end;
  30436. procedure TI2C5_I2C5CON.setGCEN(thebits : TBits_1); inline;
  30437. begin
  30438. if thebits = 0 then
  30439. pTDefRegMap(@Self)^.clr := $00000080
  30440. else
  30441. pTDefRegMap(@Self)^.&set := $00000080;
  30442. end;
  30443. function TI2C5_I2C5CON.getGCEN : TBits_1; inline;
  30444. begin
  30445. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  30446. end;
  30447. procedure TI2C5_I2C5CON.setSMEN; inline;
  30448. begin
  30449. pTDefRegMap(@Self)^.&set := $00000100;
  30450. end;
  30451. procedure TI2C5_I2C5CON.clearSMEN; inline;
  30452. begin
  30453. pTDefRegMap(@Self)^.clr := $00000100;
  30454. end;
  30455. procedure TI2C5_I2C5CON.setSMEN(thebits : TBits_1); inline;
  30456. begin
  30457. if thebits = 0 then
  30458. pTDefRegMap(@Self)^.clr := $00000100
  30459. else
  30460. pTDefRegMap(@Self)^.&set := $00000100;
  30461. end;
  30462. function TI2C5_I2C5CON.getSMEN : TBits_1; inline;
  30463. begin
  30464. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  30465. end;
  30466. procedure TI2C5_I2C5CON.setDISSLW; inline;
  30467. begin
  30468. pTDefRegMap(@Self)^.&set := $00000200;
  30469. end;
  30470. procedure TI2C5_I2C5CON.clearDISSLW; inline;
  30471. begin
  30472. pTDefRegMap(@Self)^.clr := $00000200;
  30473. end;
  30474. procedure TI2C5_I2C5CON.setDISSLW(thebits : TBits_1); inline;
  30475. begin
  30476. if thebits = 0 then
  30477. pTDefRegMap(@Self)^.clr := $00000200
  30478. else
  30479. pTDefRegMap(@Self)^.&set := $00000200;
  30480. end;
  30481. function TI2C5_I2C5CON.getDISSLW : TBits_1; inline;
  30482. begin
  30483. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  30484. end;
  30485. procedure TI2C5_I2C5CON.setA10M; inline;
  30486. begin
  30487. pTDefRegMap(@Self)^.&set := $00000400;
  30488. end;
  30489. procedure TI2C5_I2C5CON.clearA10M; inline;
  30490. begin
  30491. pTDefRegMap(@Self)^.clr := $00000400;
  30492. end;
  30493. procedure TI2C5_I2C5CON.setA10M(thebits : TBits_1); inline;
  30494. begin
  30495. if thebits = 0 then
  30496. pTDefRegMap(@Self)^.clr := $00000400
  30497. else
  30498. pTDefRegMap(@Self)^.&set := $00000400;
  30499. end;
  30500. function TI2C5_I2C5CON.getA10M : TBits_1; inline;
  30501. begin
  30502. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  30503. end;
  30504. procedure TI2C5_I2C5CON.setSTRICT; inline;
  30505. begin
  30506. pTDefRegMap(@Self)^.&set := $00000800;
  30507. end;
  30508. procedure TI2C5_I2C5CON.clearSTRICT; inline;
  30509. begin
  30510. pTDefRegMap(@Self)^.clr := $00000800;
  30511. end;
  30512. procedure TI2C5_I2C5CON.setSTRICT(thebits : TBits_1); inline;
  30513. begin
  30514. if thebits = 0 then
  30515. pTDefRegMap(@Self)^.clr := $00000800
  30516. else
  30517. pTDefRegMap(@Self)^.&set := $00000800;
  30518. end;
  30519. function TI2C5_I2C5CON.getSTRICT : TBits_1; inline;
  30520. begin
  30521. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  30522. end;
  30523. procedure TI2C5_I2C5CON.setSCLREL; inline;
  30524. begin
  30525. pTDefRegMap(@Self)^.&set := $00001000;
  30526. end;
  30527. procedure TI2C5_I2C5CON.clearSCLREL; inline;
  30528. begin
  30529. pTDefRegMap(@Self)^.clr := $00001000;
  30530. end;
  30531. procedure TI2C5_I2C5CON.setSCLREL(thebits : TBits_1); inline;
  30532. begin
  30533. if thebits = 0 then
  30534. pTDefRegMap(@Self)^.clr := $00001000
  30535. else
  30536. pTDefRegMap(@Self)^.&set := $00001000;
  30537. end;
  30538. function TI2C5_I2C5CON.getSCLREL : TBits_1; inline;
  30539. begin
  30540. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  30541. end;
  30542. procedure TI2C5_I2C5CON.setSIDL; inline;
  30543. begin
  30544. pTDefRegMap(@Self)^.&set := $00002000;
  30545. end;
  30546. procedure TI2C5_I2C5CON.clearSIDL; inline;
  30547. begin
  30548. pTDefRegMap(@Self)^.clr := $00002000;
  30549. end;
  30550. procedure TI2C5_I2C5CON.setSIDL(thebits : TBits_1); inline;
  30551. begin
  30552. if thebits = 0 then
  30553. pTDefRegMap(@Self)^.clr := $00002000
  30554. else
  30555. pTDefRegMap(@Self)^.&set := $00002000;
  30556. end;
  30557. function TI2C5_I2C5CON.getSIDL : TBits_1; inline;
  30558. begin
  30559. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  30560. end;
  30561. procedure TI2C5_I2C5CON.setON; inline;
  30562. begin
  30563. pTDefRegMap(@Self)^.&set := $00008000;
  30564. end;
  30565. procedure TI2C5_I2C5CON.clearON; inline;
  30566. begin
  30567. pTDefRegMap(@Self)^.clr := $00008000;
  30568. end;
  30569. procedure TI2C5_I2C5CON.setON(thebits : TBits_1); inline;
  30570. begin
  30571. if thebits = 0 then
  30572. pTDefRegMap(@Self)^.clr := $00008000
  30573. else
  30574. pTDefRegMap(@Self)^.&set := $00008000;
  30575. end;
  30576. function TI2C5_I2C5CON.getON : TBits_1; inline;
  30577. begin
  30578. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30579. end;
  30580. procedure TI2C5_I2C5CON.setIPMIEN; inline;
  30581. begin
  30582. pTDefRegMap(@Self)^.&set := $00000800;
  30583. end;
  30584. procedure TI2C5_I2C5CON.clearIPMIEN; inline;
  30585. begin
  30586. pTDefRegMap(@Self)^.clr := $00000800;
  30587. end;
  30588. procedure TI2C5_I2C5CON.setIPMIEN(thebits : TBits_1); inline;
  30589. begin
  30590. if thebits = 0 then
  30591. pTDefRegMap(@Self)^.clr := $00000800
  30592. else
  30593. pTDefRegMap(@Self)^.&set := $00000800;
  30594. end;
  30595. function TI2C5_I2C5CON.getIPMIEN : TBits_1; inline;
  30596. begin
  30597. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  30598. end;
  30599. procedure TI2C5_I2C5CON.setI2CSIDL; inline;
  30600. begin
  30601. pTDefRegMap(@Self)^.&set := $00002000;
  30602. end;
  30603. procedure TI2C5_I2C5CON.clearI2CSIDL; inline;
  30604. begin
  30605. pTDefRegMap(@Self)^.clr := $00002000;
  30606. end;
  30607. procedure TI2C5_I2C5CON.setI2CSIDL(thebits : TBits_1); inline;
  30608. begin
  30609. if thebits = 0 then
  30610. pTDefRegMap(@Self)^.clr := $00002000
  30611. else
  30612. pTDefRegMap(@Self)^.&set := $00002000;
  30613. end;
  30614. function TI2C5_I2C5CON.getI2CSIDL : TBits_1; inline;
  30615. begin
  30616. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  30617. end;
  30618. procedure TI2C5_I2C5CON.setI2CEN; inline;
  30619. begin
  30620. pTDefRegMap(@Self)^.&set := $00008000;
  30621. end;
  30622. procedure TI2C5_I2C5CON.clearI2CEN; inline;
  30623. begin
  30624. pTDefRegMap(@Self)^.clr := $00008000;
  30625. end;
  30626. procedure TI2C5_I2C5CON.setI2CEN(thebits : TBits_1); inline;
  30627. begin
  30628. if thebits = 0 then
  30629. pTDefRegMap(@Self)^.clr := $00008000
  30630. else
  30631. pTDefRegMap(@Self)^.&set := $00008000;
  30632. end;
  30633. function TI2C5_I2C5CON.getI2CEN : TBits_1; inline;
  30634. begin
  30635. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30636. end;
  30637. procedure TI2C5_I2C5CON.setw(thebits : TBits_32); inline;
  30638. begin
  30639. pTDefRegMap(@Self)^.val := thebits;
  30640. end;
  30641. function TI2C5_I2C5CON.getw : TBits_32; inline;
  30642. begin
  30643. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  30644. end;
  30645. procedure TI2C5_I2C3ASTAT.setTBF; inline;
  30646. begin
  30647. pTDefRegMap(@Self)^.&set := $00000001;
  30648. end;
  30649. procedure TI2C5_I2C3ASTAT.clearTBF; inline;
  30650. begin
  30651. pTDefRegMap(@Self)^.clr := $00000001;
  30652. end;
  30653. procedure TI2C5_I2C3ASTAT.setTBF(thebits : TBits_1); inline;
  30654. begin
  30655. if thebits = 0 then
  30656. pTDefRegMap(@Self)^.clr := $00000001
  30657. else
  30658. pTDefRegMap(@Self)^.&set := $00000001;
  30659. end;
  30660. function TI2C5_I2C3ASTAT.getTBF : TBits_1; inline;
  30661. begin
  30662. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  30663. end;
  30664. procedure TI2C5_I2C3ASTAT.setRBF; inline;
  30665. begin
  30666. pTDefRegMap(@Self)^.&set := $00000002;
  30667. end;
  30668. procedure TI2C5_I2C3ASTAT.clearRBF; inline;
  30669. begin
  30670. pTDefRegMap(@Self)^.clr := $00000002;
  30671. end;
  30672. procedure TI2C5_I2C3ASTAT.setRBF(thebits : TBits_1); inline;
  30673. begin
  30674. if thebits = 0 then
  30675. pTDefRegMap(@Self)^.clr := $00000002
  30676. else
  30677. pTDefRegMap(@Self)^.&set := $00000002;
  30678. end;
  30679. function TI2C5_I2C3ASTAT.getRBF : TBits_1; inline;
  30680. begin
  30681. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  30682. end;
  30683. procedure TI2C5_I2C3ASTAT.setR_W; inline;
  30684. begin
  30685. pTDefRegMap(@Self)^.&set := $00000004;
  30686. end;
  30687. procedure TI2C5_I2C3ASTAT.clearR_W; inline;
  30688. begin
  30689. pTDefRegMap(@Self)^.clr := $00000004;
  30690. end;
  30691. procedure TI2C5_I2C3ASTAT.setR_W(thebits : TBits_1); inline;
  30692. begin
  30693. if thebits = 0 then
  30694. pTDefRegMap(@Self)^.clr := $00000004
  30695. else
  30696. pTDefRegMap(@Self)^.&set := $00000004;
  30697. end;
  30698. function TI2C5_I2C3ASTAT.getR_W : TBits_1; inline;
  30699. begin
  30700. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  30701. end;
  30702. procedure TI2C5_I2C3ASTAT.setS; inline;
  30703. begin
  30704. pTDefRegMap(@Self)^.&set := $00000008;
  30705. end;
  30706. procedure TI2C5_I2C3ASTAT.clearS; inline;
  30707. begin
  30708. pTDefRegMap(@Self)^.clr := $00000008;
  30709. end;
  30710. procedure TI2C5_I2C3ASTAT.setS(thebits : TBits_1); inline;
  30711. begin
  30712. if thebits = 0 then
  30713. pTDefRegMap(@Self)^.clr := $00000008
  30714. else
  30715. pTDefRegMap(@Self)^.&set := $00000008;
  30716. end;
  30717. function TI2C5_I2C3ASTAT.getS : TBits_1; inline;
  30718. begin
  30719. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  30720. end;
  30721. procedure TI2C5_I2C3ASTAT.setP; inline;
  30722. begin
  30723. pTDefRegMap(@Self)^.&set := $00000010;
  30724. end;
  30725. procedure TI2C5_I2C3ASTAT.clearP; inline;
  30726. begin
  30727. pTDefRegMap(@Self)^.clr := $00000010;
  30728. end;
  30729. procedure TI2C5_I2C3ASTAT.setP(thebits : TBits_1); inline;
  30730. begin
  30731. if thebits = 0 then
  30732. pTDefRegMap(@Self)^.clr := $00000010
  30733. else
  30734. pTDefRegMap(@Self)^.&set := $00000010;
  30735. end;
  30736. function TI2C5_I2C3ASTAT.getP : TBits_1; inline;
  30737. begin
  30738. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  30739. end;
  30740. procedure TI2C5_I2C3ASTAT.setD_A; inline;
  30741. begin
  30742. pTDefRegMap(@Self)^.&set := $00000020;
  30743. end;
  30744. procedure TI2C5_I2C3ASTAT.clearD_A; inline;
  30745. begin
  30746. pTDefRegMap(@Self)^.clr := $00000020;
  30747. end;
  30748. procedure TI2C5_I2C3ASTAT.setD_A(thebits : TBits_1); inline;
  30749. begin
  30750. if thebits = 0 then
  30751. pTDefRegMap(@Self)^.clr := $00000020
  30752. else
  30753. pTDefRegMap(@Self)^.&set := $00000020;
  30754. end;
  30755. function TI2C5_I2C3ASTAT.getD_A : TBits_1; inline;
  30756. begin
  30757. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  30758. end;
  30759. procedure TI2C5_I2C3ASTAT.setI2COV; inline;
  30760. begin
  30761. pTDefRegMap(@Self)^.&set := $00000040;
  30762. end;
  30763. procedure TI2C5_I2C3ASTAT.clearI2COV; inline;
  30764. begin
  30765. pTDefRegMap(@Self)^.clr := $00000040;
  30766. end;
  30767. procedure TI2C5_I2C3ASTAT.setI2COV(thebits : TBits_1); inline;
  30768. begin
  30769. if thebits = 0 then
  30770. pTDefRegMap(@Self)^.clr := $00000040
  30771. else
  30772. pTDefRegMap(@Self)^.&set := $00000040;
  30773. end;
  30774. function TI2C5_I2C3ASTAT.getI2COV : TBits_1; inline;
  30775. begin
  30776. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  30777. end;
  30778. procedure TI2C5_I2C3ASTAT.setIWCOL; inline;
  30779. begin
  30780. pTDefRegMap(@Self)^.&set := $00000080;
  30781. end;
  30782. procedure TI2C5_I2C3ASTAT.clearIWCOL; inline;
  30783. begin
  30784. pTDefRegMap(@Self)^.clr := $00000080;
  30785. end;
  30786. procedure TI2C5_I2C3ASTAT.setIWCOL(thebits : TBits_1); inline;
  30787. begin
  30788. if thebits = 0 then
  30789. pTDefRegMap(@Self)^.clr := $00000080
  30790. else
  30791. pTDefRegMap(@Self)^.&set := $00000080;
  30792. end;
  30793. function TI2C5_I2C3ASTAT.getIWCOL : TBits_1; inline;
  30794. begin
  30795. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  30796. end;
  30797. procedure TI2C5_I2C3ASTAT.setADD10; inline;
  30798. begin
  30799. pTDefRegMap(@Self)^.&set := $00000100;
  30800. end;
  30801. procedure TI2C5_I2C3ASTAT.clearADD10; inline;
  30802. begin
  30803. pTDefRegMap(@Self)^.clr := $00000100;
  30804. end;
  30805. procedure TI2C5_I2C3ASTAT.setADD10(thebits : TBits_1); inline;
  30806. begin
  30807. if thebits = 0 then
  30808. pTDefRegMap(@Self)^.clr := $00000100
  30809. else
  30810. pTDefRegMap(@Self)^.&set := $00000100;
  30811. end;
  30812. function TI2C5_I2C3ASTAT.getADD10 : TBits_1; inline;
  30813. begin
  30814. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  30815. end;
  30816. procedure TI2C5_I2C3ASTAT.setGCSTAT; inline;
  30817. begin
  30818. pTDefRegMap(@Self)^.&set := $00000200;
  30819. end;
  30820. procedure TI2C5_I2C3ASTAT.clearGCSTAT; inline;
  30821. begin
  30822. pTDefRegMap(@Self)^.clr := $00000200;
  30823. end;
  30824. procedure TI2C5_I2C3ASTAT.setGCSTAT(thebits : TBits_1); inline;
  30825. begin
  30826. if thebits = 0 then
  30827. pTDefRegMap(@Self)^.clr := $00000200
  30828. else
  30829. pTDefRegMap(@Self)^.&set := $00000200;
  30830. end;
  30831. function TI2C5_I2C3ASTAT.getGCSTAT : TBits_1; inline;
  30832. begin
  30833. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  30834. end;
  30835. procedure TI2C5_I2C3ASTAT.setBCL; inline;
  30836. begin
  30837. pTDefRegMap(@Self)^.&set := $00000400;
  30838. end;
  30839. procedure TI2C5_I2C3ASTAT.clearBCL; inline;
  30840. begin
  30841. pTDefRegMap(@Self)^.clr := $00000400;
  30842. end;
  30843. procedure TI2C5_I2C3ASTAT.setBCL(thebits : TBits_1); inline;
  30844. begin
  30845. if thebits = 0 then
  30846. pTDefRegMap(@Self)^.clr := $00000400
  30847. else
  30848. pTDefRegMap(@Self)^.&set := $00000400;
  30849. end;
  30850. function TI2C5_I2C3ASTAT.getBCL : TBits_1; inline;
  30851. begin
  30852. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  30853. end;
  30854. procedure TI2C5_I2C3ASTAT.setTRSTAT; inline;
  30855. begin
  30856. pTDefRegMap(@Self)^.&set := $00004000;
  30857. end;
  30858. procedure TI2C5_I2C3ASTAT.clearTRSTAT; inline;
  30859. begin
  30860. pTDefRegMap(@Self)^.clr := $00004000;
  30861. end;
  30862. procedure TI2C5_I2C3ASTAT.setTRSTAT(thebits : TBits_1); inline;
  30863. begin
  30864. if thebits = 0 then
  30865. pTDefRegMap(@Self)^.clr := $00004000
  30866. else
  30867. pTDefRegMap(@Self)^.&set := $00004000;
  30868. end;
  30869. function TI2C5_I2C3ASTAT.getTRSTAT : TBits_1; inline;
  30870. begin
  30871. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  30872. end;
  30873. procedure TI2C5_I2C3ASTAT.setACKSTAT; inline;
  30874. begin
  30875. pTDefRegMap(@Self)^.&set := $00008000;
  30876. end;
  30877. procedure TI2C5_I2C3ASTAT.clearACKSTAT; inline;
  30878. begin
  30879. pTDefRegMap(@Self)^.clr := $00008000;
  30880. end;
  30881. procedure TI2C5_I2C3ASTAT.setACKSTAT(thebits : TBits_1); inline;
  30882. begin
  30883. if thebits = 0 then
  30884. pTDefRegMap(@Self)^.clr := $00008000
  30885. else
  30886. pTDefRegMap(@Self)^.&set := $00008000;
  30887. end;
  30888. function TI2C5_I2C3ASTAT.getACKSTAT : TBits_1; inline;
  30889. begin
  30890. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30891. end;
  30892. procedure TI2C5_I2C3ASTAT.setI2CPOV; inline;
  30893. begin
  30894. pTDefRegMap(@Self)^.&set := $00000040;
  30895. end;
  30896. procedure TI2C5_I2C3ASTAT.clearI2CPOV; inline;
  30897. begin
  30898. pTDefRegMap(@Self)^.clr := $00000040;
  30899. end;
  30900. procedure TI2C5_I2C3ASTAT.setI2CPOV(thebits : TBits_1); inline;
  30901. begin
  30902. if thebits = 0 then
  30903. pTDefRegMap(@Self)^.clr := $00000040
  30904. else
  30905. pTDefRegMap(@Self)^.&set := $00000040;
  30906. end;
  30907. function TI2C5_I2C3ASTAT.getI2CPOV : TBits_1; inline;
  30908. begin
  30909. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  30910. end;
  30911. procedure TI2C5_I2C3ASTAT.setw(thebits : TBits_32); inline;
  30912. begin
  30913. pTDefRegMap(@Self)^.val := thebits;
  30914. end;
  30915. function TI2C5_I2C3ASTAT.getw : TBits_32; inline;
  30916. begin
  30917. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  30918. end;
  30919. procedure TI2C5_I2C5STAT.setTBF; inline;
  30920. begin
  30921. pTDefRegMap(@Self)^.&set := $00000001;
  30922. end;
  30923. procedure TI2C5_I2C5STAT.clearTBF; inline;
  30924. begin
  30925. pTDefRegMap(@Self)^.clr := $00000001;
  30926. end;
  30927. procedure TI2C5_I2C5STAT.setTBF(thebits : TBits_1); inline;
  30928. begin
  30929. if thebits = 0 then
  30930. pTDefRegMap(@Self)^.clr := $00000001
  30931. else
  30932. pTDefRegMap(@Self)^.&set := $00000001;
  30933. end;
  30934. function TI2C5_I2C5STAT.getTBF : TBits_1; inline;
  30935. begin
  30936. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  30937. end;
  30938. procedure TI2C5_I2C5STAT.setRBF; inline;
  30939. begin
  30940. pTDefRegMap(@Self)^.&set := $00000002;
  30941. end;
  30942. procedure TI2C5_I2C5STAT.clearRBF; inline;
  30943. begin
  30944. pTDefRegMap(@Self)^.clr := $00000002;
  30945. end;
  30946. procedure TI2C5_I2C5STAT.setRBF(thebits : TBits_1); inline;
  30947. begin
  30948. if thebits = 0 then
  30949. pTDefRegMap(@Self)^.clr := $00000002
  30950. else
  30951. pTDefRegMap(@Self)^.&set := $00000002;
  30952. end;
  30953. function TI2C5_I2C5STAT.getRBF : TBits_1; inline;
  30954. begin
  30955. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  30956. end;
  30957. procedure TI2C5_I2C5STAT.setR_W; inline;
  30958. begin
  30959. pTDefRegMap(@Self)^.&set := $00000004;
  30960. end;
  30961. procedure TI2C5_I2C5STAT.clearR_W; inline;
  30962. begin
  30963. pTDefRegMap(@Self)^.clr := $00000004;
  30964. end;
  30965. procedure TI2C5_I2C5STAT.setR_W(thebits : TBits_1); inline;
  30966. begin
  30967. if thebits = 0 then
  30968. pTDefRegMap(@Self)^.clr := $00000004
  30969. else
  30970. pTDefRegMap(@Self)^.&set := $00000004;
  30971. end;
  30972. function TI2C5_I2C5STAT.getR_W : TBits_1; inline;
  30973. begin
  30974. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  30975. end;
  30976. procedure TI2C5_I2C5STAT.setS; inline;
  30977. begin
  30978. pTDefRegMap(@Self)^.&set := $00000008;
  30979. end;
  30980. procedure TI2C5_I2C5STAT.clearS; inline;
  30981. begin
  30982. pTDefRegMap(@Self)^.clr := $00000008;
  30983. end;
  30984. procedure TI2C5_I2C5STAT.setS(thebits : TBits_1); inline;
  30985. begin
  30986. if thebits = 0 then
  30987. pTDefRegMap(@Self)^.clr := $00000008
  30988. else
  30989. pTDefRegMap(@Self)^.&set := $00000008;
  30990. end;
  30991. function TI2C5_I2C5STAT.getS : TBits_1; inline;
  30992. begin
  30993. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  30994. end;
  30995. procedure TI2C5_I2C5STAT.setP; inline;
  30996. begin
  30997. pTDefRegMap(@Self)^.&set := $00000010;
  30998. end;
  30999. procedure TI2C5_I2C5STAT.clearP; inline;
  31000. begin
  31001. pTDefRegMap(@Self)^.clr := $00000010;
  31002. end;
  31003. procedure TI2C5_I2C5STAT.setP(thebits : TBits_1); inline;
  31004. begin
  31005. if thebits = 0 then
  31006. pTDefRegMap(@Self)^.clr := $00000010
  31007. else
  31008. pTDefRegMap(@Self)^.&set := $00000010;
  31009. end;
  31010. function TI2C5_I2C5STAT.getP : TBits_1; inline;
  31011. begin
  31012. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  31013. end;
  31014. procedure TI2C5_I2C5STAT.setD_A; inline;
  31015. begin
  31016. pTDefRegMap(@Self)^.&set := $00000020;
  31017. end;
  31018. procedure TI2C5_I2C5STAT.clearD_A; inline;
  31019. begin
  31020. pTDefRegMap(@Self)^.clr := $00000020;
  31021. end;
  31022. procedure TI2C5_I2C5STAT.setD_A(thebits : TBits_1); inline;
  31023. begin
  31024. if thebits = 0 then
  31025. pTDefRegMap(@Self)^.clr := $00000020
  31026. else
  31027. pTDefRegMap(@Self)^.&set := $00000020;
  31028. end;
  31029. function TI2C5_I2C5STAT.getD_A : TBits_1; inline;
  31030. begin
  31031. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  31032. end;
  31033. procedure TI2C5_I2C5STAT.setI2COV; inline;
  31034. begin
  31035. pTDefRegMap(@Self)^.&set := $00000040;
  31036. end;
  31037. procedure TI2C5_I2C5STAT.clearI2COV; inline;
  31038. begin
  31039. pTDefRegMap(@Self)^.clr := $00000040;
  31040. end;
  31041. procedure TI2C5_I2C5STAT.setI2COV(thebits : TBits_1); inline;
  31042. begin
  31043. if thebits = 0 then
  31044. pTDefRegMap(@Self)^.clr := $00000040
  31045. else
  31046. pTDefRegMap(@Self)^.&set := $00000040;
  31047. end;
  31048. function TI2C5_I2C5STAT.getI2COV : TBits_1; inline;
  31049. begin
  31050. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31051. end;
  31052. procedure TI2C5_I2C5STAT.setIWCOL; inline;
  31053. begin
  31054. pTDefRegMap(@Self)^.&set := $00000080;
  31055. end;
  31056. procedure TI2C5_I2C5STAT.clearIWCOL; inline;
  31057. begin
  31058. pTDefRegMap(@Self)^.clr := $00000080;
  31059. end;
  31060. procedure TI2C5_I2C5STAT.setIWCOL(thebits : TBits_1); inline;
  31061. begin
  31062. if thebits = 0 then
  31063. pTDefRegMap(@Self)^.clr := $00000080
  31064. else
  31065. pTDefRegMap(@Self)^.&set := $00000080;
  31066. end;
  31067. function TI2C5_I2C5STAT.getIWCOL : TBits_1; inline;
  31068. begin
  31069. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  31070. end;
  31071. procedure TI2C5_I2C5STAT.setADD10; inline;
  31072. begin
  31073. pTDefRegMap(@Self)^.&set := $00000100;
  31074. end;
  31075. procedure TI2C5_I2C5STAT.clearADD10; inline;
  31076. begin
  31077. pTDefRegMap(@Self)^.clr := $00000100;
  31078. end;
  31079. procedure TI2C5_I2C5STAT.setADD10(thebits : TBits_1); inline;
  31080. begin
  31081. if thebits = 0 then
  31082. pTDefRegMap(@Self)^.clr := $00000100
  31083. else
  31084. pTDefRegMap(@Self)^.&set := $00000100;
  31085. end;
  31086. function TI2C5_I2C5STAT.getADD10 : TBits_1; inline;
  31087. begin
  31088. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  31089. end;
  31090. procedure TI2C5_I2C5STAT.setGCSTAT; inline;
  31091. begin
  31092. pTDefRegMap(@Self)^.&set := $00000200;
  31093. end;
  31094. procedure TI2C5_I2C5STAT.clearGCSTAT; inline;
  31095. begin
  31096. pTDefRegMap(@Self)^.clr := $00000200;
  31097. end;
  31098. procedure TI2C5_I2C5STAT.setGCSTAT(thebits : TBits_1); inline;
  31099. begin
  31100. if thebits = 0 then
  31101. pTDefRegMap(@Self)^.clr := $00000200
  31102. else
  31103. pTDefRegMap(@Self)^.&set := $00000200;
  31104. end;
  31105. function TI2C5_I2C5STAT.getGCSTAT : TBits_1; inline;
  31106. begin
  31107. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  31108. end;
  31109. procedure TI2C5_I2C5STAT.setBCL; inline;
  31110. begin
  31111. pTDefRegMap(@Self)^.&set := $00000400;
  31112. end;
  31113. procedure TI2C5_I2C5STAT.clearBCL; inline;
  31114. begin
  31115. pTDefRegMap(@Self)^.clr := $00000400;
  31116. end;
  31117. procedure TI2C5_I2C5STAT.setBCL(thebits : TBits_1); inline;
  31118. begin
  31119. if thebits = 0 then
  31120. pTDefRegMap(@Self)^.clr := $00000400
  31121. else
  31122. pTDefRegMap(@Self)^.&set := $00000400;
  31123. end;
  31124. function TI2C5_I2C5STAT.getBCL : TBits_1; inline;
  31125. begin
  31126. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  31127. end;
  31128. procedure TI2C5_I2C5STAT.setTRSTAT; inline;
  31129. begin
  31130. pTDefRegMap(@Self)^.&set := $00004000;
  31131. end;
  31132. procedure TI2C5_I2C5STAT.clearTRSTAT; inline;
  31133. begin
  31134. pTDefRegMap(@Self)^.clr := $00004000;
  31135. end;
  31136. procedure TI2C5_I2C5STAT.setTRSTAT(thebits : TBits_1); inline;
  31137. begin
  31138. if thebits = 0 then
  31139. pTDefRegMap(@Self)^.clr := $00004000
  31140. else
  31141. pTDefRegMap(@Self)^.&set := $00004000;
  31142. end;
  31143. function TI2C5_I2C5STAT.getTRSTAT : TBits_1; inline;
  31144. begin
  31145. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  31146. end;
  31147. procedure TI2C5_I2C5STAT.setACKSTAT; inline;
  31148. begin
  31149. pTDefRegMap(@Self)^.&set := $00008000;
  31150. end;
  31151. procedure TI2C5_I2C5STAT.clearACKSTAT; inline;
  31152. begin
  31153. pTDefRegMap(@Self)^.clr := $00008000;
  31154. end;
  31155. procedure TI2C5_I2C5STAT.setACKSTAT(thebits : TBits_1); inline;
  31156. begin
  31157. if thebits = 0 then
  31158. pTDefRegMap(@Self)^.clr := $00008000
  31159. else
  31160. pTDefRegMap(@Self)^.&set := $00008000;
  31161. end;
  31162. function TI2C5_I2C5STAT.getACKSTAT : TBits_1; inline;
  31163. begin
  31164. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  31165. end;
  31166. procedure TI2C5_I2C5STAT.setI2CPOV; inline;
  31167. begin
  31168. pTDefRegMap(@Self)^.&set := $00000040;
  31169. end;
  31170. procedure TI2C5_I2C5STAT.clearI2CPOV; inline;
  31171. begin
  31172. pTDefRegMap(@Self)^.clr := $00000040;
  31173. end;
  31174. procedure TI2C5_I2C5STAT.setI2CPOV(thebits : TBits_1); inline;
  31175. begin
  31176. if thebits = 0 then
  31177. pTDefRegMap(@Self)^.clr := $00000040
  31178. else
  31179. pTDefRegMap(@Self)^.&set := $00000040;
  31180. end;
  31181. function TI2C5_I2C5STAT.getI2CPOV : TBits_1; inline;
  31182. begin
  31183. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31184. end;
  31185. procedure TI2C5_I2C5STAT.setw(thebits : TBits_32); inline;
  31186. begin
  31187. pTDefRegMap(@Self)^.val := thebits;
  31188. end;
  31189. function TI2C5_I2C5STAT.getw : TBits_32; inline;
  31190. begin
  31191. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  31192. end;
  31193. procedure TI2C1_I2C1CON.setSEN; inline;
  31194. begin
  31195. pTDefRegMap(@Self)^.&set := $00000001;
  31196. end;
  31197. procedure TI2C1_I2C1CON.clearSEN; inline;
  31198. begin
  31199. pTDefRegMap(@Self)^.clr := $00000001;
  31200. end;
  31201. procedure TI2C1_I2C1CON.setSEN(thebits : TBits_1); inline;
  31202. begin
  31203. if thebits = 0 then
  31204. pTDefRegMap(@Self)^.clr := $00000001
  31205. else
  31206. pTDefRegMap(@Self)^.&set := $00000001;
  31207. end;
  31208. function TI2C1_I2C1CON.getSEN : TBits_1; inline;
  31209. begin
  31210. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  31211. end;
  31212. procedure TI2C1_I2C1CON.setRSEN; inline;
  31213. begin
  31214. pTDefRegMap(@Self)^.&set := $00000002;
  31215. end;
  31216. procedure TI2C1_I2C1CON.clearRSEN; inline;
  31217. begin
  31218. pTDefRegMap(@Self)^.clr := $00000002;
  31219. end;
  31220. procedure TI2C1_I2C1CON.setRSEN(thebits : TBits_1); inline;
  31221. begin
  31222. if thebits = 0 then
  31223. pTDefRegMap(@Self)^.clr := $00000002
  31224. else
  31225. pTDefRegMap(@Self)^.&set := $00000002;
  31226. end;
  31227. function TI2C1_I2C1CON.getRSEN : TBits_1; inline;
  31228. begin
  31229. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  31230. end;
  31231. procedure TI2C1_I2C1CON.setPEN; inline;
  31232. begin
  31233. pTDefRegMap(@Self)^.&set := $00000004;
  31234. end;
  31235. procedure TI2C1_I2C1CON.clearPEN; inline;
  31236. begin
  31237. pTDefRegMap(@Self)^.clr := $00000004;
  31238. end;
  31239. procedure TI2C1_I2C1CON.setPEN(thebits : TBits_1); inline;
  31240. begin
  31241. if thebits = 0 then
  31242. pTDefRegMap(@Self)^.clr := $00000004
  31243. else
  31244. pTDefRegMap(@Self)^.&set := $00000004;
  31245. end;
  31246. function TI2C1_I2C1CON.getPEN : TBits_1; inline;
  31247. begin
  31248. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  31249. end;
  31250. procedure TI2C1_I2C1CON.setRCEN; inline;
  31251. begin
  31252. pTDefRegMap(@Self)^.&set := $00000008;
  31253. end;
  31254. procedure TI2C1_I2C1CON.clearRCEN; inline;
  31255. begin
  31256. pTDefRegMap(@Self)^.clr := $00000008;
  31257. end;
  31258. procedure TI2C1_I2C1CON.setRCEN(thebits : TBits_1); inline;
  31259. begin
  31260. if thebits = 0 then
  31261. pTDefRegMap(@Self)^.clr := $00000008
  31262. else
  31263. pTDefRegMap(@Self)^.&set := $00000008;
  31264. end;
  31265. function TI2C1_I2C1CON.getRCEN : TBits_1; inline;
  31266. begin
  31267. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  31268. end;
  31269. procedure TI2C1_I2C1CON.setACKEN; inline;
  31270. begin
  31271. pTDefRegMap(@Self)^.&set := $00000010;
  31272. end;
  31273. procedure TI2C1_I2C1CON.clearACKEN; inline;
  31274. begin
  31275. pTDefRegMap(@Self)^.clr := $00000010;
  31276. end;
  31277. procedure TI2C1_I2C1CON.setACKEN(thebits : TBits_1); inline;
  31278. begin
  31279. if thebits = 0 then
  31280. pTDefRegMap(@Self)^.clr := $00000010
  31281. else
  31282. pTDefRegMap(@Self)^.&set := $00000010;
  31283. end;
  31284. function TI2C1_I2C1CON.getACKEN : TBits_1; inline;
  31285. begin
  31286. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  31287. end;
  31288. procedure TI2C1_I2C1CON.setACKDT; inline;
  31289. begin
  31290. pTDefRegMap(@Self)^.&set := $00000020;
  31291. end;
  31292. procedure TI2C1_I2C1CON.clearACKDT; inline;
  31293. begin
  31294. pTDefRegMap(@Self)^.clr := $00000020;
  31295. end;
  31296. procedure TI2C1_I2C1CON.setACKDT(thebits : TBits_1); inline;
  31297. begin
  31298. if thebits = 0 then
  31299. pTDefRegMap(@Self)^.clr := $00000020
  31300. else
  31301. pTDefRegMap(@Self)^.&set := $00000020;
  31302. end;
  31303. function TI2C1_I2C1CON.getACKDT : TBits_1; inline;
  31304. begin
  31305. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  31306. end;
  31307. procedure TI2C1_I2C1CON.setSTREN; inline;
  31308. begin
  31309. pTDefRegMap(@Self)^.&set := $00000040;
  31310. end;
  31311. procedure TI2C1_I2C1CON.clearSTREN; inline;
  31312. begin
  31313. pTDefRegMap(@Self)^.clr := $00000040;
  31314. end;
  31315. procedure TI2C1_I2C1CON.setSTREN(thebits : TBits_1); inline;
  31316. begin
  31317. if thebits = 0 then
  31318. pTDefRegMap(@Self)^.clr := $00000040
  31319. else
  31320. pTDefRegMap(@Self)^.&set := $00000040;
  31321. end;
  31322. function TI2C1_I2C1CON.getSTREN : TBits_1; inline;
  31323. begin
  31324. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31325. end;
  31326. procedure TI2C1_I2C1CON.setGCEN; inline;
  31327. begin
  31328. pTDefRegMap(@Self)^.&set := $00000080;
  31329. end;
  31330. procedure TI2C1_I2C1CON.clearGCEN; inline;
  31331. begin
  31332. pTDefRegMap(@Self)^.clr := $00000080;
  31333. end;
  31334. procedure TI2C1_I2C1CON.setGCEN(thebits : TBits_1); inline;
  31335. begin
  31336. if thebits = 0 then
  31337. pTDefRegMap(@Self)^.clr := $00000080
  31338. else
  31339. pTDefRegMap(@Self)^.&set := $00000080;
  31340. end;
  31341. function TI2C1_I2C1CON.getGCEN : TBits_1; inline;
  31342. begin
  31343. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  31344. end;
  31345. procedure TI2C1_I2C1CON.setSMEN; inline;
  31346. begin
  31347. pTDefRegMap(@Self)^.&set := $00000100;
  31348. end;
  31349. procedure TI2C1_I2C1CON.clearSMEN; inline;
  31350. begin
  31351. pTDefRegMap(@Self)^.clr := $00000100;
  31352. end;
  31353. procedure TI2C1_I2C1CON.setSMEN(thebits : TBits_1); inline;
  31354. begin
  31355. if thebits = 0 then
  31356. pTDefRegMap(@Self)^.clr := $00000100
  31357. else
  31358. pTDefRegMap(@Self)^.&set := $00000100;
  31359. end;
  31360. function TI2C1_I2C1CON.getSMEN : TBits_1; inline;
  31361. begin
  31362. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  31363. end;
  31364. procedure TI2C1_I2C1CON.setDISSLW; inline;
  31365. begin
  31366. pTDefRegMap(@Self)^.&set := $00000200;
  31367. end;
  31368. procedure TI2C1_I2C1CON.clearDISSLW; inline;
  31369. begin
  31370. pTDefRegMap(@Self)^.clr := $00000200;
  31371. end;
  31372. procedure TI2C1_I2C1CON.setDISSLW(thebits : TBits_1); inline;
  31373. begin
  31374. if thebits = 0 then
  31375. pTDefRegMap(@Self)^.clr := $00000200
  31376. else
  31377. pTDefRegMap(@Self)^.&set := $00000200;
  31378. end;
  31379. function TI2C1_I2C1CON.getDISSLW : TBits_1; inline;
  31380. begin
  31381. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  31382. end;
  31383. procedure TI2C1_I2C1CON.setA10M; inline;
  31384. begin
  31385. pTDefRegMap(@Self)^.&set := $00000400;
  31386. end;
  31387. procedure TI2C1_I2C1CON.clearA10M; inline;
  31388. begin
  31389. pTDefRegMap(@Self)^.clr := $00000400;
  31390. end;
  31391. procedure TI2C1_I2C1CON.setA10M(thebits : TBits_1); inline;
  31392. begin
  31393. if thebits = 0 then
  31394. pTDefRegMap(@Self)^.clr := $00000400
  31395. else
  31396. pTDefRegMap(@Self)^.&set := $00000400;
  31397. end;
  31398. function TI2C1_I2C1CON.getA10M : TBits_1; inline;
  31399. begin
  31400. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  31401. end;
  31402. procedure TI2C1_I2C1CON.setSTRICT; inline;
  31403. begin
  31404. pTDefRegMap(@Self)^.&set := $00000800;
  31405. end;
  31406. procedure TI2C1_I2C1CON.clearSTRICT; inline;
  31407. begin
  31408. pTDefRegMap(@Self)^.clr := $00000800;
  31409. end;
  31410. procedure TI2C1_I2C1CON.setSTRICT(thebits : TBits_1); inline;
  31411. begin
  31412. if thebits = 0 then
  31413. pTDefRegMap(@Self)^.clr := $00000800
  31414. else
  31415. pTDefRegMap(@Self)^.&set := $00000800;
  31416. end;
  31417. function TI2C1_I2C1CON.getSTRICT : TBits_1; inline;
  31418. begin
  31419. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  31420. end;
  31421. procedure TI2C1_I2C1CON.setSCLREL; inline;
  31422. begin
  31423. pTDefRegMap(@Self)^.&set := $00001000;
  31424. end;
  31425. procedure TI2C1_I2C1CON.clearSCLREL; inline;
  31426. begin
  31427. pTDefRegMap(@Self)^.clr := $00001000;
  31428. end;
  31429. procedure TI2C1_I2C1CON.setSCLREL(thebits : TBits_1); inline;
  31430. begin
  31431. if thebits = 0 then
  31432. pTDefRegMap(@Self)^.clr := $00001000
  31433. else
  31434. pTDefRegMap(@Self)^.&set := $00001000;
  31435. end;
  31436. function TI2C1_I2C1CON.getSCLREL : TBits_1; inline;
  31437. begin
  31438. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  31439. end;
  31440. procedure TI2C1_I2C1CON.setSIDL; inline;
  31441. begin
  31442. pTDefRegMap(@Self)^.&set := $00002000;
  31443. end;
  31444. procedure TI2C1_I2C1CON.clearSIDL; inline;
  31445. begin
  31446. pTDefRegMap(@Self)^.clr := $00002000;
  31447. end;
  31448. procedure TI2C1_I2C1CON.setSIDL(thebits : TBits_1); inline;
  31449. begin
  31450. if thebits = 0 then
  31451. pTDefRegMap(@Self)^.clr := $00002000
  31452. else
  31453. pTDefRegMap(@Self)^.&set := $00002000;
  31454. end;
  31455. function TI2C1_I2C1CON.getSIDL : TBits_1; inline;
  31456. begin
  31457. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  31458. end;
  31459. procedure TI2C1_I2C1CON.setON; inline;
  31460. begin
  31461. pTDefRegMap(@Self)^.&set := $00008000;
  31462. end;
  31463. procedure TI2C1_I2C1CON.clearON; inline;
  31464. begin
  31465. pTDefRegMap(@Self)^.clr := $00008000;
  31466. end;
  31467. procedure TI2C1_I2C1CON.setON(thebits : TBits_1); inline;
  31468. begin
  31469. if thebits = 0 then
  31470. pTDefRegMap(@Self)^.clr := $00008000
  31471. else
  31472. pTDefRegMap(@Self)^.&set := $00008000;
  31473. end;
  31474. function TI2C1_I2C1CON.getON : TBits_1; inline;
  31475. begin
  31476. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  31477. end;
  31478. procedure TI2C1_I2C1CON.setIPMIEN; inline;
  31479. begin
  31480. pTDefRegMap(@Self)^.&set := $00000800;
  31481. end;
  31482. procedure TI2C1_I2C1CON.clearIPMIEN; inline;
  31483. begin
  31484. pTDefRegMap(@Self)^.clr := $00000800;
  31485. end;
  31486. procedure TI2C1_I2C1CON.setIPMIEN(thebits : TBits_1); inline;
  31487. begin
  31488. if thebits = 0 then
  31489. pTDefRegMap(@Self)^.clr := $00000800
  31490. else
  31491. pTDefRegMap(@Self)^.&set := $00000800;
  31492. end;
  31493. function TI2C1_I2C1CON.getIPMIEN : TBits_1; inline;
  31494. begin
  31495. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  31496. end;
  31497. procedure TI2C1_I2C1CON.setI2CSIDL; inline;
  31498. begin
  31499. pTDefRegMap(@Self)^.&set := $00002000;
  31500. end;
  31501. procedure TI2C1_I2C1CON.clearI2CSIDL; inline;
  31502. begin
  31503. pTDefRegMap(@Self)^.clr := $00002000;
  31504. end;
  31505. procedure TI2C1_I2C1CON.setI2CSIDL(thebits : TBits_1); inline;
  31506. begin
  31507. if thebits = 0 then
  31508. pTDefRegMap(@Self)^.clr := $00002000
  31509. else
  31510. pTDefRegMap(@Self)^.&set := $00002000;
  31511. end;
  31512. function TI2C1_I2C1CON.getI2CSIDL : TBits_1; inline;
  31513. begin
  31514. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  31515. end;
  31516. procedure TI2C1_I2C1CON.setI2CEN; inline;
  31517. begin
  31518. pTDefRegMap(@Self)^.&set := $00008000;
  31519. end;
  31520. procedure TI2C1_I2C1CON.clearI2CEN; inline;
  31521. begin
  31522. pTDefRegMap(@Self)^.clr := $00008000;
  31523. end;
  31524. procedure TI2C1_I2C1CON.setI2CEN(thebits : TBits_1); inline;
  31525. begin
  31526. if thebits = 0 then
  31527. pTDefRegMap(@Self)^.clr := $00008000
  31528. else
  31529. pTDefRegMap(@Self)^.&set := $00008000;
  31530. end;
  31531. function TI2C1_I2C1CON.getI2CEN : TBits_1; inline;
  31532. begin
  31533. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  31534. end;
  31535. procedure TI2C1_I2C1CON.setw(thebits : TBits_32); inline;
  31536. begin
  31537. pTDefRegMap(@Self)^.val := thebits;
  31538. end;
  31539. function TI2C1_I2C1CON.getw : TBits_32; inline;
  31540. begin
  31541. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  31542. end;
  31543. procedure TI2C1_I2C1STAT.setTBF; inline;
  31544. begin
  31545. pTDefRegMap(@Self)^.&set := $00000001;
  31546. end;
  31547. procedure TI2C1_I2C1STAT.clearTBF; inline;
  31548. begin
  31549. pTDefRegMap(@Self)^.clr := $00000001;
  31550. end;
  31551. procedure TI2C1_I2C1STAT.setTBF(thebits : TBits_1); inline;
  31552. begin
  31553. if thebits = 0 then
  31554. pTDefRegMap(@Self)^.clr := $00000001
  31555. else
  31556. pTDefRegMap(@Self)^.&set := $00000001;
  31557. end;
  31558. function TI2C1_I2C1STAT.getTBF : TBits_1; inline;
  31559. begin
  31560. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  31561. end;
  31562. procedure TI2C1_I2C1STAT.setRBF; inline;
  31563. begin
  31564. pTDefRegMap(@Self)^.&set := $00000002;
  31565. end;
  31566. procedure TI2C1_I2C1STAT.clearRBF; inline;
  31567. begin
  31568. pTDefRegMap(@Self)^.clr := $00000002;
  31569. end;
  31570. procedure TI2C1_I2C1STAT.setRBF(thebits : TBits_1); inline;
  31571. begin
  31572. if thebits = 0 then
  31573. pTDefRegMap(@Self)^.clr := $00000002
  31574. else
  31575. pTDefRegMap(@Self)^.&set := $00000002;
  31576. end;
  31577. function TI2C1_I2C1STAT.getRBF : TBits_1; inline;
  31578. begin
  31579. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  31580. end;
  31581. procedure TI2C1_I2C1STAT.setR_W; inline;
  31582. begin
  31583. pTDefRegMap(@Self)^.&set := $00000004;
  31584. end;
  31585. procedure TI2C1_I2C1STAT.clearR_W; inline;
  31586. begin
  31587. pTDefRegMap(@Self)^.clr := $00000004;
  31588. end;
  31589. procedure TI2C1_I2C1STAT.setR_W(thebits : TBits_1); inline;
  31590. begin
  31591. if thebits = 0 then
  31592. pTDefRegMap(@Self)^.clr := $00000004
  31593. else
  31594. pTDefRegMap(@Self)^.&set := $00000004;
  31595. end;
  31596. function TI2C1_I2C1STAT.getR_W : TBits_1; inline;
  31597. begin
  31598. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  31599. end;
  31600. procedure TI2C1_I2C1STAT.setS; inline;
  31601. begin
  31602. pTDefRegMap(@Self)^.&set := $00000008;
  31603. end;
  31604. procedure TI2C1_I2C1STAT.clearS; inline;
  31605. begin
  31606. pTDefRegMap(@Self)^.clr := $00000008;
  31607. end;
  31608. procedure TI2C1_I2C1STAT.setS(thebits : TBits_1); inline;
  31609. begin
  31610. if thebits = 0 then
  31611. pTDefRegMap(@Self)^.clr := $00000008
  31612. else
  31613. pTDefRegMap(@Self)^.&set := $00000008;
  31614. end;
  31615. function TI2C1_I2C1STAT.getS : TBits_1; inline;
  31616. begin
  31617. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  31618. end;
  31619. procedure TI2C1_I2C1STAT.setP; inline;
  31620. begin
  31621. pTDefRegMap(@Self)^.&set := $00000010;
  31622. end;
  31623. procedure TI2C1_I2C1STAT.clearP; inline;
  31624. begin
  31625. pTDefRegMap(@Self)^.clr := $00000010;
  31626. end;
  31627. procedure TI2C1_I2C1STAT.setP(thebits : TBits_1); inline;
  31628. begin
  31629. if thebits = 0 then
  31630. pTDefRegMap(@Self)^.clr := $00000010
  31631. else
  31632. pTDefRegMap(@Self)^.&set := $00000010;
  31633. end;
  31634. function TI2C1_I2C1STAT.getP : TBits_1; inline;
  31635. begin
  31636. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  31637. end;
  31638. procedure TI2C1_I2C1STAT.setD_A; inline;
  31639. begin
  31640. pTDefRegMap(@Self)^.&set := $00000020;
  31641. end;
  31642. procedure TI2C1_I2C1STAT.clearD_A; inline;
  31643. begin
  31644. pTDefRegMap(@Self)^.clr := $00000020;
  31645. end;
  31646. procedure TI2C1_I2C1STAT.setD_A(thebits : TBits_1); inline;
  31647. begin
  31648. if thebits = 0 then
  31649. pTDefRegMap(@Self)^.clr := $00000020
  31650. else
  31651. pTDefRegMap(@Self)^.&set := $00000020;
  31652. end;
  31653. function TI2C1_I2C1STAT.getD_A : TBits_1; inline;
  31654. begin
  31655. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  31656. end;
  31657. procedure TI2C1_I2C1STAT.setI2COV; inline;
  31658. begin
  31659. pTDefRegMap(@Self)^.&set := $00000040;
  31660. end;
  31661. procedure TI2C1_I2C1STAT.clearI2COV; inline;
  31662. begin
  31663. pTDefRegMap(@Self)^.clr := $00000040;
  31664. end;
  31665. procedure TI2C1_I2C1STAT.setI2COV(thebits : TBits_1); inline;
  31666. begin
  31667. if thebits = 0 then
  31668. pTDefRegMap(@Self)^.clr := $00000040
  31669. else
  31670. pTDefRegMap(@Self)^.&set := $00000040;
  31671. end;
  31672. function TI2C1_I2C1STAT.getI2COV : TBits_1; inline;
  31673. begin
  31674. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31675. end;
  31676. procedure TI2C1_I2C1STAT.setIWCOL; inline;
  31677. begin
  31678. pTDefRegMap(@Self)^.&set := $00000080;
  31679. end;
  31680. procedure TI2C1_I2C1STAT.clearIWCOL; inline;
  31681. begin
  31682. pTDefRegMap(@Self)^.clr := $00000080;
  31683. end;
  31684. procedure TI2C1_I2C1STAT.setIWCOL(thebits : TBits_1); inline;
  31685. begin
  31686. if thebits = 0 then
  31687. pTDefRegMap(@Self)^.clr := $00000080
  31688. else
  31689. pTDefRegMap(@Self)^.&set := $00000080;
  31690. end;
  31691. function TI2C1_I2C1STAT.getIWCOL : TBits_1; inline;
  31692. begin
  31693. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  31694. end;
  31695. procedure TI2C1_I2C1STAT.setADD10; inline;
  31696. begin
  31697. pTDefRegMap(@Self)^.&set := $00000100;
  31698. end;
  31699. procedure TI2C1_I2C1STAT.clearADD10; inline;
  31700. begin
  31701. pTDefRegMap(@Self)^.clr := $00000100;
  31702. end;
  31703. procedure TI2C1_I2C1STAT.setADD10(thebits : TBits_1); inline;
  31704. begin
  31705. if thebits = 0 then
  31706. pTDefRegMap(@Self)^.clr := $00000100
  31707. else
  31708. pTDefRegMap(@Self)^.&set := $00000100;
  31709. end;
  31710. function TI2C1_I2C1STAT.getADD10 : TBits_1; inline;
  31711. begin
  31712. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  31713. end;
  31714. procedure TI2C1_I2C1STAT.setGCSTAT; inline;
  31715. begin
  31716. pTDefRegMap(@Self)^.&set := $00000200;
  31717. end;
  31718. procedure TI2C1_I2C1STAT.clearGCSTAT; inline;
  31719. begin
  31720. pTDefRegMap(@Self)^.clr := $00000200;
  31721. end;
  31722. procedure TI2C1_I2C1STAT.setGCSTAT(thebits : TBits_1); inline;
  31723. begin
  31724. if thebits = 0 then
  31725. pTDefRegMap(@Self)^.clr := $00000200
  31726. else
  31727. pTDefRegMap(@Self)^.&set := $00000200;
  31728. end;
  31729. function TI2C1_I2C1STAT.getGCSTAT : TBits_1; inline;
  31730. begin
  31731. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  31732. end;
  31733. procedure TI2C1_I2C1STAT.setBCL; inline;
  31734. begin
  31735. pTDefRegMap(@Self)^.&set := $00000400;
  31736. end;
  31737. procedure TI2C1_I2C1STAT.clearBCL; inline;
  31738. begin
  31739. pTDefRegMap(@Self)^.clr := $00000400;
  31740. end;
  31741. procedure TI2C1_I2C1STAT.setBCL(thebits : TBits_1); inline;
  31742. begin
  31743. if thebits = 0 then
  31744. pTDefRegMap(@Self)^.clr := $00000400
  31745. else
  31746. pTDefRegMap(@Self)^.&set := $00000400;
  31747. end;
  31748. function TI2C1_I2C1STAT.getBCL : TBits_1; inline;
  31749. begin
  31750. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  31751. end;
  31752. procedure TI2C1_I2C1STAT.setTRSTAT; inline;
  31753. begin
  31754. pTDefRegMap(@Self)^.&set := $00004000;
  31755. end;
  31756. procedure TI2C1_I2C1STAT.clearTRSTAT; inline;
  31757. begin
  31758. pTDefRegMap(@Self)^.clr := $00004000;
  31759. end;
  31760. procedure TI2C1_I2C1STAT.setTRSTAT(thebits : TBits_1); inline;
  31761. begin
  31762. if thebits = 0 then
  31763. pTDefRegMap(@Self)^.clr := $00004000
  31764. else
  31765. pTDefRegMap(@Self)^.&set := $00004000;
  31766. end;
  31767. function TI2C1_I2C1STAT.getTRSTAT : TBits_1; inline;
  31768. begin
  31769. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  31770. end;
  31771. procedure TI2C1_I2C1STAT.setACKSTAT; inline;
  31772. begin
  31773. pTDefRegMap(@Self)^.&set := $00008000;
  31774. end;
  31775. procedure TI2C1_I2C1STAT.clearACKSTAT; inline;
  31776. begin
  31777. pTDefRegMap(@Self)^.clr := $00008000;
  31778. end;
  31779. procedure TI2C1_I2C1STAT.setACKSTAT(thebits : TBits_1); inline;
  31780. begin
  31781. if thebits = 0 then
  31782. pTDefRegMap(@Self)^.clr := $00008000
  31783. else
  31784. pTDefRegMap(@Self)^.&set := $00008000;
  31785. end;
  31786. function TI2C1_I2C1STAT.getACKSTAT : TBits_1; inline;
  31787. begin
  31788. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  31789. end;
  31790. procedure TI2C1_I2C1STAT.setI2CPOV; inline;
  31791. begin
  31792. pTDefRegMap(@Self)^.&set := $00000040;
  31793. end;
  31794. procedure TI2C1_I2C1STAT.clearI2CPOV; inline;
  31795. begin
  31796. pTDefRegMap(@Self)^.clr := $00000040;
  31797. end;
  31798. procedure TI2C1_I2C1STAT.setI2CPOV(thebits : TBits_1); inline;
  31799. begin
  31800. if thebits = 0 then
  31801. pTDefRegMap(@Self)^.clr := $00000040
  31802. else
  31803. pTDefRegMap(@Self)^.&set := $00000040;
  31804. end;
  31805. function TI2C1_I2C1STAT.getI2CPOV : TBits_1; inline;
  31806. begin
  31807. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31808. end;
  31809. procedure TI2C1_I2C1STAT.setw(thebits : TBits_32); inline;
  31810. begin
  31811. pTDefRegMap(@Self)^.val := thebits;
  31812. end;
  31813. function TI2C1_I2C1STAT.getw : TBits_32; inline;
  31814. begin
  31815. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  31816. end;
  31817. procedure TI2C2_I2C2CON.setSEN; inline;
  31818. begin
  31819. pTDefRegMap(@Self)^.&set := $00000001;
  31820. end;
  31821. procedure TI2C2_I2C2CON.clearSEN; inline;
  31822. begin
  31823. pTDefRegMap(@Self)^.clr := $00000001;
  31824. end;
  31825. procedure TI2C2_I2C2CON.setSEN(thebits : TBits_1); inline;
  31826. begin
  31827. if thebits = 0 then
  31828. pTDefRegMap(@Self)^.clr := $00000001
  31829. else
  31830. pTDefRegMap(@Self)^.&set := $00000001;
  31831. end;
  31832. function TI2C2_I2C2CON.getSEN : TBits_1; inline;
  31833. begin
  31834. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  31835. end;
  31836. procedure TI2C2_I2C2CON.setRSEN; inline;
  31837. begin
  31838. pTDefRegMap(@Self)^.&set := $00000002;
  31839. end;
  31840. procedure TI2C2_I2C2CON.clearRSEN; inline;
  31841. begin
  31842. pTDefRegMap(@Self)^.clr := $00000002;
  31843. end;
  31844. procedure TI2C2_I2C2CON.setRSEN(thebits : TBits_1); inline;
  31845. begin
  31846. if thebits = 0 then
  31847. pTDefRegMap(@Self)^.clr := $00000002
  31848. else
  31849. pTDefRegMap(@Self)^.&set := $00000002;
  31850. end;
  31851. function TI2C2_I2C2CON.getRSEN : TBits_1; inline;
  31852. begin
  31853. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  31854. end;
  31855. procedure TI2C2_I2C2CON.setPEN; inline;
  31856. begin
  31857. pTDefRegMap(@Self)^.&set := $00000004;
  31858. end;
  31859. procedure TI2C2_I2C2CON.clearPEN; inline;
  31860. begin
  31861. pTDefRegMap(@Self)^.clr := $00000004;
  31862. end;
  31863. procedure TI2C2_I2C2CON.setPEN(thebits : TBits_1); inline;
  31864. begin
  31865. if thebits = 0 then
  31866. pTDefRegMap(@Self)^.clr := $00000004
  31867. else
  31868. pTDefRegMap(@Self)^.&set := $00000004;
  31869. end;
  31870. function TI2C2_I2C2CON.getPEN : TBits_1; inline;
  31871. begin
  31872. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  31873. end;
  31874. procedure TI2C2_I2C2CON.setRCEN; inline;
  31875. begin
  31876. pTDefRegMap(@Self)^.&set := $00000008;
  31877. end;
  31878. procedure TI2C2_I2C2CON.clearRCEN; inline;
  31879. begin
  31880. pTDefRegMap(@Self)^.clr := $00000008;
  31881. end;
  31882. procedure TI2C2_I2C2CON.setRCEN(thebits : TBits_1); inline;
  31883. begin
  31884. if thebits = 0 then
  31885. pTDefRegMap(@Self)^.clr := $00000008
  31886. else
  31887. pTDefRegMap(@Self)^.&set := $00000008;
  31888. end;
  31889. function TI2C2_I2C2CON.getRCEN : TBits_1; inline;
  31890. begin
  31891. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  31892. end;
  31893. procedure TI2C2_I2C2CON.setACKEN; inline;
  31894. begin
  31895. pTDefRegMap(@Self)^.&set := $00000010;
  31896. end;
  31897. procedure TI2C2_I2C2CON.clearACKEN; inline;
  31898. begin
  31899. pTDefRegMap(@Self)^.clr := $00000010;
  31900. end;
  31901. procedure TI2C2_I2C2CON.setACKEN(thebits : TBits_1); inline;
  31902. begin
  31903. if thebits = 0 then
  31904. pTDefRegMap(@Self)^.clr := $00000010
  31905. else
  31906. pTDefRegMap(@Self)^.&set := $00000010;
  31907. end;
  31908. function TI2C2_I2C2CON.getACKEN : TBits_1; inline;
  31909. begin
  31910. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  31911. end;
  31912. procedure TI2C2_I2C2CON.setACKDT; inline;
  31913. begin
  31914. pTDefRegMap(@Self)^.&set := $00000020;
  31915. end;
  31916. procedure TI2C2_I2C2CON.clearACKDT; inline;
  31917. begin
  31918. pTDefRegMap(@Self)^.clr := $00000020;
  31919. end;
  31920. procedure TI2C2_I2C2CON.setACKDT(thebits : TBits_1); inline;
  31921. begin
  31922. if thebits = 0 then
  31923. pTDefRegMap(@Self)^.clr := $00000020
  31924. else
  31925. pTDefRegMap(@Self)^.&set := $00000020;
  31926. end;
  31927. function TI2C2_I2C2CON.getACKDT : TBits_1; inline;
  31928. begin
  31929. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  31930. end;
  31931. procedure TI2C2_I2C2CON.setSTREN; inline;
  31932. begin
  31933. pTDefRegMap(@Self)^.&set := $00000040;
  31934. end;
  31935. procedure TI2C2_I2C2CON.clearSTREN; inline;
  31936. begin
  31937. pTDefRegMap(@Self)^.clr := $00000040;
  31938. end;
  31939. procedure TI2C2_I2C2CON.setSTREN(thebits : TBits_1); inline;
  31940. begin
  31941. if thebits = 0 then
  31942. pTDefRegMap(@Self)^.clr := $00000040
  31943. else
  31944. pTDefRegMap(@Self)^.&set := $00000040;
  31945. end;
  31946. function TI2C2_I2C2CON.getSTREN : TBits_1; inline;
  31947. begin
  31948. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31949. end;
  31950. procedure TI2C2_I2C2CON.setGCEN; inline;
  31951. begin
  31952. pTDefRegMap(@Self)^.&set := $00000080;
  31953. end;
  31954. procedure TI2C2_I2C2CON.clearGCEN; inline;
  31955. begin
  31956. pTDefRegMap(@Self)^.clr := $00000080;
  31957. end;
  31958. procedure TI2C2_I2C2CON.setGCEN(thebits : TBits_1); inline;
  31959. begin
  31960. if thebits = 0 then
  31961. pTDefRegMap(@Self)^.clr := $00000080
  31962. else
  31963. pTDefRegMap(@Self)^.&set := $00000080;
  31964. end;
  31965. function TI2C2_I2C2CON.getGCEN : TBits_1; inline;
  31966. begin
  31967. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  31968. end;
  31969. procedure TI2C2_I2C2CON.setSMEN; inline;
  31970. begin
  31971. pTDefRegMap(@Self)^.&set := $00000100;
  31972. end;
  31973. procedure TI2C2_I2C2CON.clearSMEN; inline;
  31974. begin
  31975. pTDefRegMap(@Self)^.clr := $00000100;
  31976. end;
  31977. procedure TI2C2_I2C2CON.setSMEN(thebits : TBits_1); inline;
  31978. begin
  31979. if thebits = 0 then
  31980. pTDefRegMap(@Self)^.clr := $00000100
  31981. else
  31982. pTDefRegMap(@Self)^.&set := $00000100;
  31983. end;
  31984. function TI2C2_I2C2CON.getSMEN : TBits_1; inline;
  31985. begin
  31986. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  31987. end;
  31988. procedure TI2C2_I2C2CON.setDISSLW; inline;
  31989. begin
  31990. pTDefRegMap(@Self)^.&set := $00000200;
  31991. end;
  31992. procedure TI2C2_I2C2CON.clearDISSLW; inline;
  31993. begin
  31994. pTDefRegMap(@Self)^.clr := $00000200;
  31995. end;
  31996. procedure TI2C2_I2C2CON.setDISSLW(thebits : TBits_1); inline;
  31997. begin
  31998. if thebits = 0 then
  31999. pTDefRegMap(@Self)^.clr := $00000200
  32000. else
  32001. pTDefRegMap(@Self)^.&set := $00000200;
  32002. end;
  32003. function TI2C2_I2C2CON.getDISSLW : TBits_1; inline;
  32004. begin
  32005. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  32006. end;
  32007. procedure TI2C2_I2C2CON.setA10M; inline;
  32008. begin
  32009. pTDefRegMap(@Self)^.&set := $00000400;
  32010. end;
  32011. procedure TI2C2_I2C2CON.clearA10M; inline;
  32012. begin
  32013. pTDefRegMap(@Self)^.clr := $00000400;
  32014. end;
  32015. procedure TI2C2_I2C2CON.setA10M(thebits : TBits_1); inline;
  32016. begin
  32017. if thebits = 0 then
  32018. pTDefRegMap(@Self)^.clr := $00000400
  32019. else
  32020. pTDefRegMap(@Self)^.&set := $00000400;
  32021. end;
  32022. function TI2C2_I2C2CON.getA10M : TBits_1; inline;
  32023. begin
  32024. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  32025. end;
  32026. procedure TI2C2_I2C2CON.setSTRICT; inline;
  32027. begin
  32028. pTDefRegMap(@Self)^.&set := $00000800;
  32029. end;
  32030. procedure TI2C2_I2C2CON.clearSTRICT; inline;
  32031. begin
  32032. pTDefRegMap(@Self)^.clr := $00000800;
  32033. end;
  32034. procedure TI2C2_I2C2CON.setSTRICT(thebits : TBits_1); inline;
  32035. begin
  32036. if thebits = 0 then
  32037. pTDefRegMap(@Self)^.clr := $00000800
  32038. else
  32039. pTDefRegMap(@Self)^.&set := $00000800;
  32040. end;
  32041. function TI2C2_I2C2CON.getSTRICT : TBits_1; inline;
  32042. begin
  32043. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  32044. end;
  32045. procedure TI2C2_I2C2CON.setSCLREL; inline;
  32046. begin
  32047. pTDefRegMap(@Self)^.&set := $00001000;
  32048. end;
  32049. procedure TI2C2_I2C2CON.clearSCLREL; inline;
  32050. begin
  32051. pTDefRegMap(@Self)^.clr := $00001000;
  32052. end;
  32053. procedure TI2C2_I2C2CON.setSCLREL(thebits : TBits_1); inline;
  32054. begin
  32055. if thebits = 0 then
  32056. pTDefRegMap(@Self)^.clr := $00001000
  32057. else
  32058. pTDefRegMap(@Self)^.&set := $00001000;
  32059. end;
  32060. function TI2C2_I2C2CON.getSCLREL : TBits_1; inline;
  32061. begin
  32062. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  32063. end;
  32064. procedure TI2C2_I2C2CON.setSIDL; inline;
  32065. begin
  32066. pTDefRegMap(@Self)^.&set := $00002000;
  32067. end;
  32068. procedure TI2C2_I2C2CON.clearSIDL; inline;
  32069. begin
  32070. pTDefRegMap(@Self)^.clr := $00002000;
  32071. end;
  32072. procedure TI2C2_I2C2CON.setSIDL(thebits : TBits_1); inline;
  32073. begin
  32074. if thebits = 0 then
  32075. pTDefRegMap(@Self)^.clr := $00002000
  32076. else
  32077. pTDefRegMap(@Self)^.&set := $00002000;
  32078. end;
  32079. function TI2C2_I2C2CON.getSIDL : TBits_1; inline;
  32080. begin
  32081. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  32082. end;
  32083. procedure TI2C2_I2C2CON.setON; inline;
  32084. begin
  32085. pTDefRegMap(@Self)^.&set := $00008000;
  32086. end;
  32087. procedure TI2C2_I2C2CON.clearON; inline;
  32088. begin
  32089. pTDefRegMap(@Self)^.clr := $00008000;
  32090. end;
  32091. procedure TI2C2_I2C2CON.setON(thebits : TBits_1); inline;
  32092. begin
  32093. if thebits = 0 then
  32094. pTDefRegMap(@Self)^.clr := $00008000
  32095. else
  32096. pTDefRegMap(@Self)^.&set := $00008000;
  32097. end;
  32098. function TI2C2_I2C2CON.getON : TBits_1; inline;
  32099. begin
  32100. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  32101. end;
  32102. procedure TI2C2_I2C2CON.setIPMIEN; inline;
  32103. begin
  32104. pTDefRegMap(@Self)^.&set := $00000800;
  32105. end;
  32106. procedure TI2C2_I2C2CON.clearIPMIEN; inline;
  32107. begin
  32108. pTDefRegMap(@Self)^.clr := $00000800;
  32109. end;
  32110. procedure TI2C2_I2C2CON.setIPMIEN(thebits : TBits_1); inline;
  32111. begin
  32112. if thebits = 0 then
  32113. pTDefRegMap(@Self)^.clr := $00000800
  32114. else
  32115. pTDefRegMap(@Self)^.&set := $00000800;
  32116. end;
  32117. function TI2C2_I2C2CON.getIPMIEN : TBits_1; inline;
  32118. begin
  32119. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  32120. end;
  32121. procedure TI2C2_I2C2CON.setI2CSIDL; inline;
  32122. begin
  32123. pTDefRegMap(@Self)^.&set := $00002000;
  32124. end;
  32125. procedure TI2C2_I2C2CON.clearI2CSIDL; inline;
  32126. begin
  32127. pTDefRegMap(@Self)^.clr := $00002000;
  32128. end;
  32129. procedure TI2C2_I2C2CON.setI2CSIDL(thebits : TBits_1); inline;
  32130. begin
  32131. if thebits = 0 then
  32132. pTDefRegMap(@Self)^.clr := $00002000
  32133. else
  32134. pTDefRegMap(@Self)^.&set := $00002000;
  32135. end;
  32136. function TI2C2_I2C2CON.getI2CSIDL : TBits_1; inline;
  32137. begin
  32138. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  32139. end;
  32140. procedure TI2C2_I2C2CON.setI2CEN; inline;
  32141. begin
  32142. pTDefRegMap(@Self)^.&set := $00008000;
  32143. end;
  32144. procedure TI2C2_I2C2CON.clearI2CEN; inline;
  32145. begin
  32146. pTDefRegMap(@Self)^.clr := $00008000;
  32147. end;
  32148. procedure TI2C2_I2C2CON.setI2CEN(thebits : TBits_1); inline;
  32149. begin
  32150. if thebits = 0 then
  32151. pTDefRegMap(@Self)^.clr := $00008000
  32152. else
  32153. pTDefRegMap(@Self)^.&set := $00008000;
  32154. end;
  32155. function TI2C2_I2C2CON.getI2CEN : TBits_1; inline;
  32156. begin
  32157. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  32158. end;
  32159. procedure TI2C2_I2C2CON.setw(thebits : TBits_32); inline;
  32160. begin
  32161. pTDefRegMap(@Self)^.val := thebits;
  32162. end;
  32163. function TI2C2_I2C2CON.getw : TBits_32; inline;
  32164. begin
  32165. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  32166. end;
  32167. procedure TI2C2_I2C2STAT.setTBF; inline;
  32168. begin
  32169. pTDefRegMap(@Self)^.&set := $00000001;
  32170. end;
  32171. procedure TI2C2_I2C2STAT.clearTBF; inline;
  32172. begin
  32173. pTDefRegMap(@Self)^.clr := $00000001;
  32174. end;
  32175. procedure TI2C2_I2C2STAT.setTBF(thebits : TBits_1); inline;
  32176. begin
  32177. if thebits = 0 then
  32178. pTDefRegMap(@Self)^.clr := $00000001
  32179. else
  32180. pTDefRegMap(@Self)^.&set := $00000001;
  32181. end;
  32182. function TI2C2_I2C2STAT.getTBF : TBits_1; inline;
  32183. begin
  32184. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  32185. end;
  32186. procedure TI2C2_I2C2STAT.setRBF; inline;
  32187. begin
  32188. pTDefRegMap(@Self)^.&set := $00000002;
  32189. end;
  32190. procedure TI2C2_I2C2STAT.clearRBF; inline;
  32191. begin
  32192. pTDefRegMap(@Self)^.clr := $00000002;
  32193. end;
  32194. procedure TI2C2_I2C2STAT.setRBF(thebits : TBits_1); inline;
  32195. begin
  32196. if thebits = 0 then
  32197. pTDefRegMap(@Self)^.clr := $00000002
  32198. else
  32199. pTDefRegMap(@Self)^.&set := $00000002;
  32200. end;
  32201. function TI2C2_I2C2STAT.getRBF : TBits_1; inline;
  32202. begin
  32203. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  32204. end;
  32205. procedure TI2C2_I2C2STAT.setR_W; inline;
  32206. begin
  32207. pTDefRegMap(@Self)^.&set := $00000004;
  32208. end;
  32209. procedure TI2C2_I2C2STAT.clearR_W; inline;
  32210. begin
  32211. pTDefRegMap(@Self)^.clr := $00000004;
  32212. end;
  32213. procedure TI2C2_I2C2STAT.setR_W(thebits : TBits_1); inline;
  32214. begin
  32215. if thebits = 0 then
  32216. pTDefRegMap(@Self)^.clr := $00000004
  32217. else
  32218. pTDefRegMap(@Self)^.&set := $00000004;
  32219. end;
  32220. function TI2C2_I2C2STAT.getR_W : TBits_1; inline;
  32221. begin
  32222. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  32223. end;
  32224. procedure TI2C2_I2C2STAT.setS; inline;
  32225. begin
  32226. pTDefRegMap(@Self)^.&set := $00000008;
  32227. end;
  32228. procedure TI2C2_I2C2STAT.clearS; inline;
  32229. begin
  32230. pTDefRegMap(@Self)^.clr := $00000008;
  32231. end;
  32232. procedure TI2C2_I2C2STAT.setS(thebits : TBits_1); inline;
  32233. begin
  32234. if thebits = 0 then
  32235. pTDefRegMap(@Self)^.clr := $00000008
  32236. else
  32237. pTDefRegMap(@Self)^.&set := $00000008;
  32238. end;
  32239. function TI2C2_I2C2STAT.getS : TBits_1; inline;
  32240. begin
  32241. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  32242. end;
  32243. procedure TI2C2_I2C2STAT.setP; inline;
  32244. begin
  32245. pTDefRegMap(@Self)^.&set := $00000010;
  32246. end;
  32247. procedure TI2C2_I2C2STAT.clearP; inline;
  32248. begin
  32249. pTDefRegMap(@Self)^.clr := $00000010;
  32250. end;
  32251. procedure TI2C2_I2C2STAT.setP(thebits : TBits_1); inline;
  32252. begin
  32253. if thebits = 0 then
  32254. pTDefRegMap(@Self)^.clr := $00000010
  32255. else
  32256. pTDefRegMap(@Self)^.&set := $00000010;
  32257. end;
  32258. function TI2C2_I2C2STAT.getP : TBits_1; inline;
  32259. begin
  32260. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  32261. end;
  32262. procedure TI2C2_I2C2STAT.setD_A; inline;
  32263. begin
  32264. pTDefRegMap(@Self)^.&set := $00000020;
  32265. end;
  32266. procedure TI2C2_I2C2STAT.clearD_A; inline;
  32267. begin
  32268. pTDefRegMap(@Self)^.clr := $00000020;
  32269. end;
  32270. procedure TI2C2_I2C2STAT.setD_A(thebits : TBits_1); inline;
  32271. begin
  32272. if thebits = 0 then
  32273. pTDefRegMap(@Self)^.clr := $00000020
  32274. else
  32275. pTDefRegMap(@Self)^.&set := $00000020;
  32276. end;
  32277. function TI2C2_I2C2STAT.getD_A : TBits_1; inline;
  32278. begin
  32279. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  32280. end;
  32281. procedure TI2C2_I2C2STAT.setI2COV; inline;
  32282. begin
  32283. pTDefRegMap(@Self)^.&set := $00000040;
  32284. end;
  32285. procedure TI2C2_I2C2STAT.clearI2COV; inline;
  32286. begin
  32287. pTDefRegMap(@Self)^.clr := $00000040;
  32288. end;
  32289. procedure TI2C2_I2C2STAT.setI2COV(thebits : TBits_1); inline;
  32290. begin
  32291. if thebits = 0 then
  32292. pTDefRegMap(@Self)^.clr := $00000040
  32293. else
  32294. pTDefRegMap(@Self)^.&set := $00000040;
  32295. end;
  32296. function TI2C2_I2C2STAT.getI2COV : TBits_1; inline;
  32297. begin
  32298. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  32299. end;
  32300. procedure TI2C2_I2C2STAT.setIWCOL; inline;
  32301. begin
  32302. pTDefRegMap(@Self)^.&set := $00000080;
  32303. end;
  32304. procedure TI2C2_I2C2STAT.clearIWCOL; inline;
  32305. begin
  32306. pTDefRegMap(@Self)^.clr := $00000080;
  32307. end;
  32308. procedure TI2C2_I2C2STAT.setIWCOL(thebits : TBits_1); inline;
  32309. begin
  32310. if thebits = 0 then
  32311. pTDefRegMap(@Self)^.clr := $00000080
  32312. else
  32313. pTDefRegMap(@Self)^.&set := $00000080;
  32314. end;
  32315. function TI2C2_I2C2STAT.getIWCOL : TBits_1; inline;
  32316. begin
  32317. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  32318. end;
  32319. procedure TI2C2_I2C2STAT.setADD10; inline;
  32320. begin
  32321. pTDefRegMap(@Self)^.&set := $00000100;
  32322. end;
  32323. procedure TI2C2_I2C2STAT.clearADD10; inline;
  32324. begin
  32325. pTDefRegMap(@Self)^.clr := $00000100;
  32326. end;
  32327. procedure TI2C2_I2C2STAT.setADD10(thebits : TBits_1); inline;
  32328. begin
  32329. if thebits = 0 then
  32330. pTDefRegMap(@Self)^.clr := $00000100
  32331. else
  32332. pTDefRegMap(@Self)^.&set := $00000100;
  32333. end;
  32334. function TI2C2_I2C2STAT.getADD10 : TBits_1; inline;
  32335. begin
  32336. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  32337. end;
  32338. procedure TI2C2_I2C2STAT.setGCSTAT; inline;
  32339. begin
  32340. pTDefRegMap(@Self)^.&set := $00000200;
  32341. end;
  32342. procedure TI2C2_I2C2STAT.clearGCSTAT; inline;
  32343. begin
  32344. pTDefRegMap(@Self)^.clr := $00000200;
  32345. end;
  32346. procedure TI2C2_I2C2STAT.setGCSTAT(thebits : TBits_1); inline;
  32347. begin
  32348. if thebits = 0 then
  32349. pTDefRegMap(@Self)^.clr := $00000200
  32350. else
  32351. pTDefRegMap(@Self)^.&set := $00000200;
  32352. end;
  32353. function TI2C2_I2C2STAT.getGCSTAT : TBits_1; inline;
  32354. begin
  32355. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  32356. end;
  32357. procedure TI2C2_I2C2STAT.setBCL; inline;
  32358. begin
  32359. pTDefRegMap(@Self)^.&set := $00000400;
  32360. end;
  32361. procedure TI2C2_I2C2STAT.clearBCL; inline;
  32362. begin
  32363. pTDefRegMap(@Self)^.clr := $00000400;
  32364. end;
  32365. procedure TI2C2_I2C2STAT.setBCL(thebits : TBits_1); inline;
  32366. begin
  32367. if thebits = 0 then
  32368. pTDefRegMap(@Self)^.clr := $00000400
  32369. else
  32370. pTDefRegMap(@Self)^.&set := $00000400;
  32371. end;
  32372. function TI2C2_I2C2STAT.getBCL : TBits_1; inline;
  32373. begin
  32374. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  32375. end;
  32376. procedure TI2C2_I2C2STAT.setTRSTAT; inline;
  32377. begin
  32378. pTDefRegMap(@Self)^.&set := $00004000;
  32379. end;
  32380. procedure TI2C2_I2C2STAT.clearTRSTAT; inline;
  32381. begin
  32382. pTDefRegMap(@Self)^.clr := $00004000;
  32383. end;
  32384. procedure TI2C2_I2C2STAT.setTRSTAT(thebits : TBits_1); inline;
  32385. begin
  32386. if thebits = 0 then
  32387. pTDefRegMap(@Self)^.clr := $00004000
  32388. else
  32389. pTDefRegMap(@Self)^.&set := $00004000;
  32390. end;
  32391. function TI2C2_I2C2STAT.getTRSTAT : TBits_1; inline;
  32392. begin
  32393. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  32394. end;
  32395. procedure TI2C2_I2C2STAT.setACKSTAT; inline;
  32396. begin
  32397. pTDefRegMap(@Self)^.&set := $00008000;
  32398. end;
  32399. procedure TI2C2_I2C2STAT.clearACKSTAT; inline;
  32400. begin
  32401. pTDefRegMap(@Self)^.clr := $00008000;
  32402. end;
  32403. procedure TI2C2_I2C2STAT.setACKSTAT(thebits : TBits_1); inline;
  32404. begin
  32405. if thebits = 0 then
  32406. pTDefRegMap(@Self)^.clr := $00008000
  32407. else
  32408. pTDefRegMap(@Self)^.&set := $00008000;
  32409. end;
  32410. function TI2C2_I2C2STAT.getACKSTAT : TBits_1; inline;
  32411. begin
  32412. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  32413. end;
  32414. procedure TI2C2_I2C2STAT.setI2CPOV; inline;
  32415. begin
  32416. pTDefRegMap(@Self)^.&set := $00000040;
  32417. end;
  32418. procedure TI2C2_I2C2STAT.clearI2CPOV; inline;
  32419. begin
  32420. pTDefRegMap(@Self)^.clr := $00000040;
  32421. end;
  32422. procedure TI2C2_I2C2STAT.setI2CPOV(thebits : TBits_1); inline;
  32423. begin
  32424. if thebits = 0 then
  32425. pTDefRegMap(@Self)^.clr := $00000040
  32426. else
  32427. pTDefRegMap(@Self)^.&set := $00000040;
  32428. end;
  32429. function TI2C2_I2C2STAT.getI2CPOV : TBits_1; inline;
  32430. begin
  32431. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  32432. end;
  32433. procedure TI2C2_I2C2STAT.setw(thebits : TBits_32); inline;
  32434. begin
  32435. pTDefRegMap(@Self)^.val := thebits;
  32436. end;
  32437. function TI2C2_I2C2STAT.getw : TBits_32; inline;
  32438. begin
  32439. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  32440. end;
  32441. procedure TSPI3_SPI1ACON.setSRXISEL(thebits : TBits_2); inline;
  32442. begin
  32443. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  32444. end;
  32445. function TSPI3_SPI1ACON.getSRXISEL : TBits_2; inline;
  32446. begin
  32447. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  32448. end;
  32449. procedure TSPI3_SPI1ACON.setSTXISEL(thebits : TBits_2); inline;
  32450. begin
  32451. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  32452. end;
  32453. function TSPI3_SPI1ACON.getSTXISEL : TBits_2; inline;
  32454. begin
  32455. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  32456. end;
  32457. procedure TSPI3_SPI1ACON.setMSTEN; inline;
  32458. begin
  32459. pTDefRegMap(@Self)^.&set := $00000020;
  32460. end;
  32461. procedure TSPI3_SPI1ACON.clearMSTEN; inline;
  32462. begin
  32463. pTDefRegMap(@Self)^.clr := $00000020;
  32464. end;
  32465. procedure TSPI3_SPI1ACON.setMSTEN(thebits : TBits_1); inline;
  32466. begin
  32467. if thebits = 0 then
  32468. pTDefRegMap(@Self)^.clr := $00000020
  32469. else
  32470. pTDefRegMap(@Self)^.&set := $00000020;
  32471. end;
  32472. function TSPI3_SPI1ACON.getMSTEN : TBits_1; inline;
  32473. begin
  32474. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  32475. end;
  32476. procedure TSPI3_SPI1ACON.setCKP; inline;
  32477. begin
  32478. pTDefRegMap(@Self)^.&set := $00000040;
  32479. end;
  32480. procedure TSPI3_SPI1ACON.clearCKP; inline;
  32481. begin
  32482. pTDefRegMap(@Self)^.clr := $00000040;
  32483. end;
  32484. procedure TSPI3_SPI1ACON.setCKP(thebits : TBits_1); inline;
  32485. begin
  32486. if thebits = 0 then
  32487. pTDefRegMap(@Self)^.clr := $00000040
  32488. else
  32489. pTDefRegMap(@Self)^.&set := $00000040;
  32490. end;
  32491. function TSPI3_SPI1ACON.getCKP : TBits_1; inline;
  32492. begin
  32493. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  32494. end;
  32495. procedure TSPI3_SPI1ACON.setSSEN; inline;
  32496. begin
  32497. pTDefRegMap(@Self)^.&set := $00000080;
  32498. end;
  32499. procedure TSPI3_SPI1ACON.clearSSEN; inline;
  32500. begin
  32501. pTDefRegMap(@Self)^.clr := $00000080;
  32502. end;
  32503. procedure TSPI3_SPI1ACON.setSSEN(thebits : TBits_1); inline;
  32504. begin
  32505. if thebits = 0 then
  32506. pTDefRegMap(@Self)^.clr := $00000080
  32507. else
  32508. pTDefRegMap(@Self)^.&set := $00000080;
  32509. end;
  32510. function TSPI3_SPI1ACON.getSSEN : TBits_1; inline;
  32511. begin
  32512. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  32513. end;
  32514. procedure TSPI3_SPI1ACON.setCKE; inline;
  32515. begin
  32516. pTDefRegMap(@Self)^.&set := $00000100;
  32517. end;
  32518. procedure TSPI3_SPI1ACON.clearCKE; inline;
  32519. begin
  32520. pTDefRegMap(@Self)^.clr := $00000100;
  32521. end;
  32522. procedure TSPI3_SPI1ACON.setCKE(thebits : TBits_1); inline;
  32523. begin
  32524. if thebits = 0 then
  32525. pTDefRegMap(@Self)^.clr := $00000100
  32526. else
  32527. pTDefRegMap(@Self)^.&set := $00000100;
  32528. end;
  32529. function TSPI3_SPI1ACON.getCKE : TBits_1; inline;
  32530. begin
  32531. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  32532. end;
  32533. procedure TSPI3_SPI1ACON.setSMP; inline;
  32534. begin
  32535. pTDefRegMap(@Self)^.&set := $00000200;
  32536. end;
  32537. procedure TSPI3_SPI1ACON.clearSMP; inline;
  32538. begin
  32539. pTDefRegMap(@Self)^.clr := $00000200;
  32540. end;
  32541. procedure TSPI3_SPI1ACON.setSMP(thebits : TBits_1); inline;
  32542. begin
  32543. if thebits = 0 then
  32544. pTDefRegMap(@Self)^.clr := $00000200
  32545. else
  32546. pTDefRegMap(@Self)^.&set := $00000200;
  32547. end;
  32548. function TSPI3_SPI1ACON.getSMP : TBits_1; inline;
  32549. begin
  32550. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  32551. end;
  32552. procedure TSPI3_SPI1ACON.setMODE16; inline;
  32553. begin
  32554. pTDefRegMap(@Self)^.&set := $00000400;
  32555. end;
  32556. procedure TSPI3_SPI1ACON.clearMODE16; inline;
  32557. begin
  32558. pTDefRegMap(@Self)^.clr := $00000400;
  32559. end;
  32560. procedure TSPI3_SPI1ACON.setMODE16(thebits : TBits_1); inline;
  32561. begin
  32562. if thebits = 0 then
  32563. pTDefRegMap(@Self)^.clr := $00000400
  32564. else
  32565. pTDefRegMap(@Self)^.&set := $00000400;
  32566. end;
  32567. function TSPI3_SPI1ACON.getMODE16 : TBits_1; inline;
  32568. begin
  32569. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  32570. end;
  32571. procedure TSPI3_SPI1ACON.setMODE32; inline;
  32572. begin
  32573. pTDefRegMap(@Self)^.&set := $00000800;
  32574. end;
  32575. procedure TSPI3_SPI1ACON.clearMODE32; inline;
  32576. begin
  32577. pTDefRegMap(@Self)^.clr := $00000800;
  32578. end;
  32579. procedure TSPI3_SPI1ACON.setMODE32(thebits : TBits_1); inline;
  32580. begin
  32581. if thebits = 0 then
  32582. pTDefRegMap(@Self)^.clr := $00000800
  32583. else
  32584. pTDefRegMap(@Self)^.&set := $00000800;
  32585. end;
  32586. function TSPI3_SPI1ACON.getMODE32 : TBits_1; inline;
  32587. begin
  32588. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  32589. end;
  32590. procedure TSPI3_SPI1ACON.setDISSDO; inline;
  32591. begin
  32592. pTDefRegMap(@Self)^.&set := $00001000;
  32593. end;
  32594. procedure TSPI3_SPI1ACON.clearDISSDO; inline;
  32595. begin
  32596. pTDefRegMap(@Self)^.clr := $00001000;
  32597. end;
  32598. procedure TSPI3_SPI1ACON.setDISSDO(thebits : TBits_1); inline;
  32599. begin
  32600. if thebits = 0 then
  32601. pTDefRegMap(@Self)^.clr := $00001000
  32602. else
  32603. pTDefRegMap(@Self)^.&set := $00001000;
  32604. end;
  32605. function TSPI3_SPI1ACON.getDISSDO : TBits_1; inline;
  32606. begin
  32607. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  32608. end;
  32609. procedure TSPI3_SPI1ACON.setSIDL; inline;
  32610. begin
  32611. pTDefRegMap(@Self)^.&set := $00002000;
  32612. end;
  32613. procedure TSPI3_SPI1ACON.clearSIDL; inline;
  32614. begin
  32615. pTDefRegMap(@Self)^.clr := $00002000;
  32616. end;
  32617. procedure TSPI3_SPI1ACON.setSIDL(thebits : TBits_1); inline;
  32618. begin
  32619. if thebits = 0 then
  32620. pTDefRegMap(@Self)^.clr := $00002000
  32621. else
  32622. pTDefRegMap(@Self)^.&set := $00002000;
  32623. end;
  32624. function TSPI3_SPI1ACON.getSIDL : TBits_1; inline;
  32625. begin
  32626. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  32627. end;
  32628. procedure TSPI3_SPI1ACON.setON; inline;
  32629. begin
  32630. pTDefRegMap(@Self)^.&set := $00008000;
  32631. end;
  32632. procedure TSPI3_SPI1ACON.clearON; inline;
  32633. begin
  32634. pTDefRegMap(@Self)^.clr := $00008000;
  32635. end;
  32636. procedure TSPI3_SPI1ACON.setON(thebits : TBits_1); inline;
  32637. begin
  32638. if thebits = 0 then
  32639. pTDefRegMap(@Self)^.clr := $00008000
  32640. else
  32641. pTDefRegMap(@Self)^.&set := $00008000;
  32642. end;
  32643. function TSPI3_SPI1ACON.getON : TBits_1; inline;
  32644. begin
  32645. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  32646. end;
  32647. procedure TSPI3_SPI1ACON.setENHBUF; inline;
  32648. begin
  32649. pTDefRegMap(@Self)^.&set := $00010000;
  32650. end;
  32651. procedure TSPI3_SPI1ACON.clearENHBUF; inline;
  32652. begin
  32653. pTDefRegMap(@Self)^.clr := $00010000;
  32654. end;
  32655. procedure TSPI3_SPI1ACON.setENHBUF(thebits : TBits_1); inline;
  32656. begin
  32657. if thebits = 0 then
  32658. pTDefRegMap(@Self)^.clr := $00010000
  32659. else
  32660. pTDefRegMap(@Self)^.&set := $00010000;
  32661. end;
  32662. function TSPI3_SPI1ACON.getENHBUF : TBits_1; inline;
  32663. begin
  32664. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  32665. end;
  32666. procedure TSPI3_SPI1ACON.setSPIFE; inline;
  32667. begin
  32668. pTDefRegMap(@Self)^.&set := $00020000;
  32669. end;
  32670. procedure TSPI3_SPI1ACON.clearSPIFE; inline;
  32671. begin
  32672. pTDefRegMap(@Self)^.clr := $00020000;
  32673. end;
  32674. procedure TSPI3_SPI1ACON.setSPIFE(thebits : TBits_1); inline;
  32675. begin
  32676. if thebits = 0 then
  32677. pTDefRegMap(@Self)^.clr := $00020000
  32678. else
  32679. pTDefRegMap(@Self)^.&set := $00020000;
  32680. end;
  32681. function TSPI3_SPI1ACON.getSPIFE : TBits_1; inline;
  32682. begin
  32683. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  32684. end;
  32685. procedure TSPI3_SPI1ACON.setFRMCNT(thebits : TBits_3); inline;
  32686. begin
  32687. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  32688. end;
  32689. function TSPI3_SPI1ACON.getFRMCNT : TBits_3; inline;
  32690. begin
  32691. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  32692. end;
  32693. procedure TSPI3_SPI1ACON.setFRMSYPW; inline;
  32694. begin
  32695. pTDefRegMap(@Self)^.&set := $08000000;
  32696. end;
  32697. procedure TSPI3_SPI1ACON.clearFRMSYPW; inline;
  32698. begin
  32699. pTDefRegMap(@Self)^.clr := $08000000;
  32700. end;
  32701. procedure TSPI3_SPI1ACON.setFRMSYPW(thebits : TBits_1); inline;
  32702. begin
  32703. if thebits = 0 then
  32704. pTDefRegMap(@Self)^.clr := $08000000
  32705. else
  32706. pTDefRegMap(@Self)^.&set := $08000000;
  32707. end;
  32708. function TSPI3_SPI1ACON.getFRMSYPW : TBits_1; inline;
  32709. begin
  32710. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  32711. end;
  32712. procedure TSPI3_SPI1ACON.setMSSEN; inline;
  32713. begin
  32714. pTDefRegMap(@Self)^.&set := $10000000;
  32715. end;
  32716. procedure TSPI3_SPI1ACON.clearMSSEN; inline;
  32717. begin
  32718. pTDefRegMap(@Self)^.clr := $10000000;
  32719. end;
  32720. procedure TSPI3_SPI1ACON.setMSSEN(thebits : TBits_1); inline;
  32721. begin
  32722. if thebits = 0 then
  32723. pTDefRegMap(@Self)^.clr := $10000000
  32724. else
  32725. pTDefRegMap(@Self)^.&set := $10000000;
  32726. end;
  32727. function TSPI3_SPI1ACON.getMSSEN : TBits_1; inline;
  32728. begin
  32729. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  32730. end;
  32731. procedure TSPI3_SPI1ACON.setFRMPOL; inline;
  32732. begin
  32733. pTDefRegMap(@Self)^.&set := $20000000;
  32734. end;
  32735. procedure TSPI3_SPI1ACON.clearFRMPOL; inline;
  32736. begin
  32737. pTDefRegMap(@Self)^.clr := $20000000;
  32738. end;
  32739. procedure TSPI3_SPI1ACON.setFRMPOL(thebits : TBits_1); inline;
  32740. begin
  32741. if thebits = 0 then
  32742. pTDefRegMap(@Self)^.clr := $20000000
  32743. else
  32744. pTDefRegMap(@Self)^.&set := $20000000;
  32745. end;
  32746. function TSPI3_SPI1ACON.getFRMPOL : TBits_1; inline;
  32747. begin
  32748. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  32749. end;
  32750. procedure TSPI3_SPI1ACON.setFRMSYNC; inline;
  32751. begin
  32752. pTDefRegMap(@Self)^.&set := $40000000;
  32753. end;
  32754. procedure TSPI3_SPI1ACON.clearFRMSYNC; inline;
  32755. begin
  32756. pTDefRegMap(@Self)^.clr := $40000000;
  32757. end;
  32758. procedure TSPI3_SPI1ACON.setFRMSYNC(thebits : TBits_1); inline;
  32759. begin
  32760. if thebits = 0 then
  32761. pTDefRegMap(@Self)^.clr := $40000000
  32762. else
  32763. pTDefRegMap(@Self)^.&set := $40000000;
  32764. end;
  32765. function TSPI3_SPI1ACON.getFRMSYNC : TBits_1; inline;
  32766. begin
  32767. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  32768. end;
  32769. procedure TSPI3_SPI1ACON.setFRMEN; inline;
  32770. begin
  32771. pTDefRegMap(@Self)^.&set := $80000000;
  32772. end;
  32773. procedure TSPI3_SPI1ACON.clearFRMEN; inline;
  32774. begin
  32775. pTDefRegMap(@Self)^.clr := $80000000;
  32776. end;
  32777. procedure TSPI3_SPI1ACON.setFRMEN(thebits : TBits_1); inline;
  32778. begin
  32779. if thebits = 0 then
  32780. pTDefRegMap(@Self)^.clr := $80000000
  32781. else
  32782. pTDefRegMap(@Self)^.&set := $80000000;
  32783. end;
  32784. function TSPI3_SPI1ACON.getFRMEN : TBits_1; inline;
  32785. begin
  32786. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  32787. end;
  32788. procedure TSPI3_SPI1ACON.setw(thebits : TBits_32); inline;
  32789. begin
  32790. pTDefRegMap(@Self)^.val := thebits;
  32791. end;
  32792. function TSPI3_SPI1ACON.getw : TBits_32; inline;
  32793. begin
  32794. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  32795. end;
  32796. procedure TSPI3_SPI3CON.setSRXISEL(thebits : TBits_2); inline;
  32797. begin
  32798. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  32799. end;
  32800. function TSPI3_SPI3CON.getSRXISEL : TBits_2; inline;
  32801. begin
  32802. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  32803. end;
  32804. procedure TSPI3_SPI3CON.setSTXISEL(thebits : TBits_2); inline;
  32805. begin
  32806. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  32807. end;
  32808. function TSPI3_SPI3CON.getSTXISEL : TBits_2; inline;
  32809. begin
  32810. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  32811. end;
  32812. procedure TSPI3_SPI3CON.setMSTEN; inline;
  32813. begin
  32814. pTDefRegMap(@Self)^.&set := $00000020;
  32815. end;
  32816. procedure TSPI3_SPI3CON.clearMSTEN; inline;
  32817. begin
  32818. pTDefRegMap(@Self)^.clr := $00000020;
  32819. end;
  32820. procedure TSPI3_SPI3CON.setMSTEN(thebits : TBits_1); inline;
  32821. begin
  32822. if thebits = 0 then
  32823. pTDefRegMap(@Self)^.clr := $00000020
  32824. else
  32825. pTDefRegMap(@Self)^.&set := $00000020;
  32826. end;
  32827. function TSPI3_SPI3CON.getMSTEN : TBits_1; inline;
  32828. begin
  32829. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  32830. end;
  32831. procedure TSPI3_SPI3CON.setCKP; inline;
  32832. begin
  32833. pTDefRegMap(@Self)^.&set := $00000040;
  32834. end;
  32835. procedure TSPI3_SPI3CON.clearCKP; inline;
  32836. begin
  32837. pTDefRegMap(@Self)^.clr := $00000040;
  32838. end;
  32839. procedure TSPI3_SPI3CON.setCKP(thebits : TBits_1); inline;
  32840. begin
  32841. if thebits = 0 then
  32842. pTDefRegMap(@Self)^.clr := $00000040
  32843. else
  32844. pTDefRegMap(@Self)^.&set := $00000040;
  32845. end;
  32846. function TSPI3_SPI3CON.getCKP : TBits_1; inline;
  32847. begin
  32848. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  32849. end;
  32850. procedure TSPI3_SPI3CON.setSSEN; inline;
  32851. begin
  32852. pTDefRegMap(@Self)^.&set := $00000080;
  32853. end;
  32854. procedure TSPI3_SPI3CON.clearSSEN; inline;
  32855. begin
  32856. pTDefRegMap(@Self)^.clr := $00000080;
  32857. end;
  32858. procedure TSPI3_SPI3CON.setSSEN(thebits : TBits_1); inline;
  32859. begin
  32860. if thebits = 0 then
  32861. pTDefRegMap(@Self)^.clr := $00000080
  32862. else
  32863. pTDefRegMap(@Self)^.&set := $00000080;
  32864. end;
  32865. function TSPI3_SPI3CON.getSSEN : TBits_1; inline;
  32866. begin
  32867. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  32868. end;
  32869. procedure TSPI3_SPI3CON.setCKE; inline;
  32870. begin
  32871. pTDefRegMap(@Self)^.&set := $00000100;
  32872. end;
  32873. procedure TSPI3_SPI3CON.clearCKE; inline;
  32874. begin
  32875. pTDefRegMap(@Self)^.clr := $00000100;
  32876. end;
  32877. procedure TSPI3_SPI3CON.setCKE(thebits : TBits_1); inline;
  32878. begin
  32879. if thebits = 0 then
  32880. pTDefRegMap(@Self)^.clr := $00000100
  32881. else
  32882. pTDefRegMap(@Self)^.&set := $00000100;
  32883. end;
  32884. function TSPI3_SPI3CON.getCKE : TBits_1; inline;
  32885. begin
  32886. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  32887. end;
  32888. procedure TSPI3_SPI3CON.setSMP; inline;
  32889. begin
  32890. pTDefRegMap(@Self)^.&set := $00000200;
  32891. end;
  32892. procedure TSPI3_SPI3CON.clearSMP; inline;
  32893. begin
  32894. pTDefRegMap(@Self)^.clr := $00000200;
  32895. end;
  32896. procedure TSPI3_SPI3CON.setSMP(thebits : TBits_1); inline;
  32897. begin
  32898. if thebits = 0 then
  32899. pTDefRegMap(@Self)^.clr := $00000200
  32900. else
  32901. pTDefRegMap(@Self)^.&set := $00000200;
  32902. end;
  32903. function TSPI3_SPI3CON.getSMP : TBits_1; inline;
  32904. begin
  32905. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  32906. end;
  32907. procedure TSPI3_SPI3CON.setMODE16; inline;
  32908. begin
  32909. pTDefRegMap(@Self)^.&set := $00000400;
  32910. end;
  32911. procedure TSPI3_SPI3CON.clearMODE16; inline;
  32912. begin
  32913. pTDefRegMap(@Self)^.clr := $00000400;
  32914. end;
  32915. procedure TSPI3_SPI3CON.setMODE16(thebits : TBits_1); inline;
  32916. begin
  32917. if thebits = 0 then
  32918. pTDefRegMap(@Self)^.clr := $00000400
  32919. else
  32920. pTDefRegMap(@Self)^.&set := $00000400;
  32921. end;
  32922. function TSPI3_SPI3CON.getMODE16 : TBits_1; inline;
  32923. begin
  32924. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  32925. end;
  32926. procedure TSPI3_SPI3CON.setMODE32; inline;
  32927. begin
  32928. pTDefRegMap(@Self)^.&set := $00000800;
  32929. end;
  32930. procedure TSPI3_SPI3CON.clearMODE32; inline;
  32931. begin
  32932. pTDefRegMap(@Self)^.clr := $00000800;
  32933. end;
  32934. procedure TSPI3_SPI3CON.setMODE32(thebits : TBits_1); inline;
  32935. begin
  32936. if thebits = 0 then
  32937. pTDefRegMap(@Self)^.clr := $00000800
  32938. else
  32939. pTDefRegMap(@Self)^.&set := $00000800;
  32940. end;
  32941. function TSPI3_SPI3CON.getMODE32 : TBits_1; inline;
  32942. begin
  32943. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  32944. end;
  32945. procedure TSPI3_SPI3CON.setDISSDO; inline;
  32946. begin
  32947. pTDefRegMap(@Self)^.&set := $00001000;
  32948. end;
  32949. procedure TSPI3_SPI3CON.clearDISSDO; inline;
  32950. begin
  32951. pTDefRegMap(@Self)^.clr := $00001000;
  32952. end;
  32953. procedure TSPI3_SPI3CON.setDISSDO(thebits : TBits_1); inline;
  32954. begin
  32955. if thebits = 0 then
  32956. pTDefRegMap(@Self)^.clr := $00001000
  32957. else
  32958. pTDefRegMap(@Self)^.&set := $00001000;
  32959. end;
  32960. function TSPI3_SPI3CON.getDISSDO : TBits_1; inline;
  32961. begin
  32962. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  32963. end;
  32964. procedure TSPI3_SPI3CON.setSIDL; inline;
  32965. begin
  32966. pTDefRegMap(@Self)^.&set := $00002000;
  32967. end;
  32968. procedure TSPI3_SPI3CON.clearSIDL; inline;
  32969. begin
  32970. pTDefRegMap(@Self)^.clr := $00002000;
  32971. end;
  32972. procedure TSPI3_SPI3CON.setSIDL(thebits : TBits_1); inline;
  32973. begin
  32974. if thebits = 0 then
  32975. pTDefRegMap(@Self)^.clr := $00002000
  32976. else
  32977. pTDefRegMap(@Self)^.&set := $00002000;
  32978. end;
  32979. function TSPI3_SPI3CON.getSIDL : TBits_1; inline;
  32980. begin
  32981. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  32982. end;
  32983. procedure TSPI3_SPI3CON.setON; inline;
  32984. begin
  32985. pTDefRegMap(@Self)^.&set := $00008000;
  32986. end;
  32987. procedure TSPI3_SPI3CON.clearON; inline;
  32988. begin
  32989. pTDefRegMap(@Self)^.clr := $00008000;
  32990. end;
  32991. procedure TSPI3_SPI3CON.setON(thebits : TBits_1); inline;
  32992. begin
  32993. if thebits = 0 then
  32994. pTDefRegMap(@Self)^.clr := $00008000
  32995. else
  32996. pTDefRegMap(@Self)^.&set := $00008000;
  32997. end;
  32998. function TSPI3_SPI3CON.getON : TBits_1; inline;
  32999. begin
  33000. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  33001. end;
  33002. procedure TSPI3_SPI3CON.setENHBUF; inline;
  33003. begin
  33004. pTDefRegMap(@Self)^.&set := $00010000;
  33005. end;
  33006. procedure TSPI3_SPI3CON.clearENHBUF; inline;
  33007. begin
  33008. pTDefRegMap(@Self)^.clr := $00010000;
  33009. end;
  33010. procedure TSPI3_SPI3CON.setENHBUF(thebits : TBits_1); inline;
  33011. begin
  33012. if thebits = 0 then
  33013. pTDefRegMap(@Self)^.clr := $00010000
  33014. else
  33015. pTDefRegMap(@Self)^.&set := $00010000;
  33016. end;
  33017. function TSPI3_SPI3CON.getENHBUF : TBits_1; inline;
  33018. begin
  33019. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  33020. end;
  33021. procedure TSPI3_SPI3CON.setSPIFE; inline;
  33022. begin
  33023. pTDefRegMap(@Self)^.&set := $00020000;
  33024. end;
  33025. procedure TSPI3_SPI3CON.clearSPIFE; inline;
  33026. begin
  33027. pTDefRegMap(@Self)^.clr := $00020000;
  33028. end;
  33029. procedure TSPI3_SPI3CON.setSPIFE(thebits : TBits_1); inline;
  33030. begin
  33031. if thebits = 0 then
  33032. pTDefRegMap(@Self)^.clr := $00020000
  33033. else
  33034. pTDefRegMap(@Self)^.&set := $00020000;
  33035. end;
  33036. function TSPI3_SPI3CON.getSPIFE : TBits_1; inline;
  33037. begin
  33038. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  33039. end;
  33040. procedure TSPI3_SPI3CON.setFRMCNT(thebits : TBits_3); inline;
  33041. begin
  33042. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  33043. end;
  33044. function TSPI3_SPI3CON.getFRMCNT : TBits_3; inline;
  33045. begin
  33046. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  33047. end;
  33048. procedure TSPI3_SPI3CON.setFRMSYPW; inline;
  33049. begin
  33050. pTDefRegMap(@Self)^.&set := $08000000;
  33051. end;
  33052. procedure TSPI3_SPI3CON.clearFRMSYPW; inline;
  33053. begin
  33054. pTDefRegMap(@Self)^.clr := $08000000;
  33055. end;
  33056. procedure TSPI3_SPI3CON.setFRMSYPW(thebits : TBits_1); inline;
  33057. begin
  33058. if thebits = 0 then
  33059. pTDefRegMap(@Self)^.clr := $08000000
  33060. else
  33061. pTDefRegMap(@Self)^.&set := $08000000;
  33062. end;
  33063. function TSPI3_SPI3CON.getFRMSYPW : TBits_1; inline;
  33064. begin
  33065. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  33066. end;
  33067. procedure TSPI3_SPI3CON.setMSSEN; inline;
  33068. begin
  33069. pTDefRegMap(@Self)^.&set := $10000000;
  33070. end;
  33071. procedure TSPI3_SPI3CON.clearMSSEN; inline;
  33072. begin
  33073. pTDefRegMap(@Self)^.clr := $10000000;
  33074. end;
  33075. procedure TSPI3_SPI3CON.setMSSEN(thebits : TBits_1); inline;
  33076. begin
  33077. if thebits = 0 then
  33078. pTDefRegMap(@Self)^.clr := $10000000
  33079. else
  33080. pTDefRegMap(@Self)^.&set := $10000000;
  33081. end;
  33082. function TSPI3_SPI3CON.getMSSEN : TBits_1; inline;
  33083. begin
  33084. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  33085. end;
  33086. procedure TSPI3_SPI3CON.setFRMPOL; inline;
  33087. begin
  33088. pTDefRegMap(@Self)^.&set := $20000000;
  33089. end;
  33090. procedure TSPI3_SPI3CON.clearFRMPOL; inline;
  33091. begin
  33092. pTDefRegMap(@Self)^.clr := $20000000;
  33093. end;
  33094. procedure TSPI3_SPI3CON.setFRMPOL(thebits : TBits_1); inline;
  33095. begin
  33096. if thebits = 0 then
  33097. pTDefRegMap(@Self)^.clr := $20000000
  33098. else
  33099. pTDefRegMap(@Self)^.&set := $20000000;
  33100. end;
  33101. function TSPI3_SPI3CON.getFRMPOL : TBits_1; inline;
  33102. begin
  33103. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  33104. end;
  33105. procedure TSPI3_SPI3CON.setFRMSYNC; inline;
  33106. begin
  33107. pTDefRegMap(@Self)^.&set := $40000000;
  33108. end;
  33109. procedure TSPI3_SPI3CON.clearFRMSYNC; inline;
  33110. begin
  33111. pTDefRegMap(@Self)^.clr := $40000000;
  33112. end;
  33113. procedure TSPI3_SPI3CON.setFRMSYNC(thebits : TBits_1); inline;
  33114. begin
  33115. if thebits = 0 then
  33116. pTDefRegMap(@Self)^.clr := $40000000
  33117. else
  33118. pTDefRegMap(@Self)^.&set := $40000000;
  33119. end;
  33120. function TSPI3_SPI3CON.getFRMSYNC : TBits_1; inline;
  33121. begin
  33122. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  33123. end;
  33124. procedure TSPI3_SPI3CON.setFRMEN; inline;
  33125. begin
  33126. pTDefRegMap(@Self)^.&set := $80000000;
  33127. end;
  33128. procedure TSPI3_SPI3CON.clearFRMEN; inline;
  33129. begin
  33130. pTDefRegMap(@Self)^.clr := $80000000;
  33131. end;
  33132. procedure TSPI3_SPI3CON.setFRMEN(thebits : TBits_1); inline;
  33133. begin
  33134. if thebits = 0 then
  33135. pTDefRegMap(@Self)^.clr := $80000000
  33136. else
  33137. pTDefRegMap(@Self)^.&set := $80000000;
  33138. end;
  33139. function TSPI3_SPI3CON.getFRMEN : TBits_1; inline;
  33140. begin
  33141. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  33142. end;
  33143. procedure TSPI3_SPI3CON.setw(thebits : TBits_32); inline;
  33144. begin
  33145. pTDefRegMap(@Self)^.val := thebits;
  33146. end;
  33147. function TSPI3_SPI3CON.getw : TBits_32; inline;
  33148. begin
  33149. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  33150. end;
  33151. procedure TSPI3_SPI1ASTAT.setSPIRBF; inline;
  33152. begin
  33153. pTDefRegMap(@Self)^.&set := $00000001;
  33154. end;
  33155. procedure TSPI3_SPI1ASTAT.clearSPIRBF; inline;
  33156. begin
  33157. pTDefRegMap(@Self)^.clr := $00000001;
  33158. end;
  33159. procedure TSPI3_SPI1ASTAT.setSPIRBF(thebits : TBits_1); inline;
  33160. begin
  33161. if thebits = 0 then
  33162. pTDefRegMap(@Self)^.clr := $00000001
  33163. else
  33164. pTDefRegMap(@Self)^.&set := $00000001;
  33165. end;
  33166. function TSPI3_SPI1ASTAT.getSPIRBF : TBits_1; inline;
  33167. begin
  33168. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  33169. end;
  33170. procedure TSPI3_SPI1ASTAT.setSPITBF; inline;
  33171. begin
  33172. pTDefRegMap(@Self)^.&set := $00000002;
  33173. end;
  33174. procedure TSPI3_SPI1ASTAT.clearSPITBF; inline;
  33175. begin
  33176. pTDefRegMap(@Self)^.clr := $00000002;
  33177. end;
  33178. procedure TSPI3_SPI1ASTAT.setSPITBF(thebits : TBits_1); inline;
  33179. begin
  33180. if thebits = 0 then
  33181. pTDefRegMap(@Self)^.clr := $00000002
  33182. else
  33183. pTDefRegMap(@Self)^.&set := $00000002;
  33184. end;
  33185. function TSPI3_SPI1ASTAT.getSPITBF : TBits_1; inline;
  33186. begin
  33187. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  33188. end;
  33189. procedure TSPI3_SPI1ASTAT.setSPITBE; inline;
  33190. begin
  33191. pTDefRegMap(@Self)^.&set := $00000008;
  33192. end;
  33193. procedure TSPI3_SPI1ASTAT.clearSPITBE; inline;
  33194. begin
  33195. pTDefRegMap(@Self)^.clr := $00000008;
  33196. end;
  33197. procedure TSPI3_SPI1ASTAT.setSPITBE(thebits : TBits_1); inline;
  33198. begin
  33199. if thebits = 0 then
  33200. pTDefRegMap(@Self)^.clr := $00000008
  33201. else
  33202. pTDefRegMap(@Self)^.&set := $00000008;
  33203. end;
  33204. function TSPI3_SPI1ASTAT.getSPITBE : TBits_1; inline;
  33205. begin
  33206. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  33207. end;
  33208. procedure TSPI3_SPI1ASTAT.setSPIRBE; inline;
  33209. begin
  33210. pTDefRegMap(@Self)^.&set := $00000020;
  33211. end;
  33212. procedure TSPI3_SPI1ASTAT.clearSPIRBE; inline;
  33213. begin
  33214. pTDefRegMap(@Self)^.clr := $00000020;
  33215. end;
  33216. procedure TSPI3_SPI1ASTAT.setSPIRBE(thebits : TBits_1); inline;
  33217. begin
  33218. if thebits = 0 then
  33219. pTDefRegMap(@Self)^.clr := $00000020
  33220. else
  33221. pTDefRegMap(@Self)^.&set := $00000020;
  33222. end;
  33223. function TSPI3_SPI1ASTAT.getSPIRBE : TBits_1; inline;
  33224. begin
  33225. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  33226. end;
  33227. procedure TSPI3_SPI1ASTAT.setSPIROV; inline;
  33228. begin
  33229. pTDefRegMap(@Self)^.&set := $00000040;
  33230. end;
  33231. procedure TSPI3_SPI1ASTAT.clearSPIROV; inline;
  33232. begin
  33233. pTDefRegMap(@Self)^.clr := $00000040;
  33234. end;
  33235. procedure TSPI3_SPI1ASTAT.setSPIROV(thebits : TBits_1); inline;
  33236. begin
  33237. if thebits = 0 then
  33238. pTDefRegMap(@Self)^.clr := $00000040
  33239. else
  33240. pTDefRegMap(@Self)^.&set := $00000040;
  33241. end;
  33242. function TSPI3_SPI1ASTAT.getSPIROV : TBits_1; inline;
  33243. begin
  33244. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  33245. end;
  33246. procedure TSPI3_SPI1ASTAT.setSRMT; inline;
  33247. begin
  33248. pTDefRegMap(@Self)^.&set := $00000080;
  33249. end;
  33250. procedure TSPI3_SPI1ASTAT.clearSRMT; inline;
  33251. begin
  33252. pTDefRegMap(@Self)^.clr := $00000080;
  33253. end;
  33254. procedure TSPI3_SPI1ASTAT.setSRMT(thebits : TBits_1); inline;
  33255. begin
  33256. if thebits = 0 then
  33257. pTDefRegMap(@Self)^.clr := $00000080
  33258. else
  33259. pTDefRegMap(@Self)^.&set := $00000080;
  33260. end;
  33261. function TSPI3_SPI1ASTAT.getSRMT : TBits_1; inline;
  33262. begin
  33263. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  33264. end;
  33265. procedure TSPI3_SPI1ASTAT.setSPITUR; inline;
  33266. begin
  33267. pTDefRegMap(@Self)^.&set := $00000100;
  33268. end;
  33269. procedure TSPI3_SPI1ASTAT.clearSPITUR; inline;
  33270. begin
  33271. pTDefRegMap(@Self)^.clr := $00000100;
  33272. end;
  33273. procedure TSPI3_SPI1ASTAT.setSPITUR(thebits : TBits_1); inline;
  33274. begin
  33275. if thebits = 0 then
  33276. pTDefRegMap(@Self)^.clr := $00000100
  33277. else
  33278. pTDefRegMap(@Self)^.&set := $00000100;
  33279. end;
  33280. function TSPI3_SPI1ASTAT.getSPITUR : TBits_1; inline;
  33281. begin
  33282. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  33283. end;
  33284. procedure TSPI3_SPI1ASTAT.setSPIBUSY; inline;
  33285. begin
  33286. pTDefRegMap(@Self)^.&set := $00000800;
  33287. end;
  33288. procedure TSPI3_SPI1ASTAT.clearSPIBUSY; inline;
  33289. begin
  33290. pTDefRegMap(@Self)^.clr := $00000800;
  33291. end;
  33292. procedure TSPI3_SPI1ASTAT.setSPIBUSY(thebits : TBits_1); inline;
  33293. begin
  33294. if thebits = 0 then
  33295. pTDefRegMap(@Self)^.clr := $00000800
  33296. else
  33297. pTDefRegMap(@Self)^.&set := $00000800;
  33298. end;
  33299. function TSPI3_SPI1ASTAT.getSPIBUSY : TBits_1; inline;
  33300. begin
  33301. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  33302. end;
  33303. procedure TSPI3_SPI1ASTAT.setTXBUFELM(thebits : TBits_5); inline;
  33304. begin
  33305. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  33306. end;
  33307. function TSPI3_SPI1ASTAT.getTXBUFELM : TBits_5; inline;
  33308. begin
  33309. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  33310. end;
  33311. procedure TSPI3_SPI1ASTAT.setRXBUFELM(thebits : TBits_5); inline;
  33312. begin
  33313. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  33314. end;
  33315. function TSPI3_SPI1ASTAT.getRXBUFELM : TBits_5; inline;
  33316. begin
  33317. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  33318. end;
  33319. procedure TSPI3_SPI1ASTAT.setw(thebits : TBits_32); inline;
  33320. begin
  33321. pTDefRegMap(@Self)^.val := thebits;
  33322. end;
  33323. function TSPI3_SPI1ASTAT.getw : TBits_32; inline;
  33324. begin
  33325. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  33326. end;
  33327. procedure TSPI3_SPI3STAT.setSPIRBF; inline;
  33328. begin
  33329. pTDefRegMap(@Self)^.&set := $00000001;
  33330. end;
  33331. procedure TSPI3_SPI3STAT.clearSPIRBF; inline;
  33332. begin
  33333. pTDefRegMap(@Self)^.clr := $00000001;
  33334. end;
  33335. procedure TSPI3_SPI3STAT.setSPIRBF(thebits : TBits_1); inline;
  33336. begin
  33337. if thebits = 0 then
  33338. pTDefRegMap(@Self)^.clr := $00000001
  33339. else
  33340. pTDefRegMap(@Self)^.&set := $00000001;
  33341. end;
  33342. function TSPI3_SPI3STAT.getSPIRBF : TBits_1; inline;
  33343. begin
  33344. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  33345. end;
  33346. procedure TSPI3_SPI3STAT.setSPITBF; inline;
  33347. begin
  33348. pTDefRegMap(@Self)^.&set := $00000002;
  33349. end;
  33350. procedure TSPI3_SPI3STAT.clearSPITBF; inline;
  33351. begin
  33352. pTDefRegMap(@Self)^.clr := $00000002;
  33353. end;
  33354. procedure TSPI3_SPI3STAT.setSPITBF(thebits : TBits_1); inline;
  33355. begin
  33356. if thebits = 0 then
  33357. pTDefRegMap(@Self)^.clr := $00000002
  33358. else
  33359. pTDefRegMap(@Self)^.&set := $00000002;
  33360. end;
  33361. function TSPI3_SPI3STAT.getSPITBF : TBits_1; inline;
  33362. begin
  33363. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  33364. end;
  33365. procedure TSPI3_SPI3STAT.setSPITBE; inline;
  33366. begin
  33367. pTDefRegMap(@Self)^.&set := $00000008;
  33368. end;
  33369. procedure TSPI3_SPI3STAT.clearSPITBE; inline;
  33370. begin
  33371. pTDefRegMap(@Self)^.clr := $00000008;
  33372. end;
  33373. procedure TSPI3_SPI3STAT.setSPITBE(thebits : TBits_1); inline;
  33374. begin
  33375. if thebits = 0 then
  33376. pTDefRegMap(@Self)^.clr := $00000008
  33377. else
  33378. pTDefRegMap(@Self)^.&set := $00000008;
  33379. end;
  33380. function TSPI3_SPI3STAT.getSPITBE : TBits_1; inline;
  33381. begin
  33382. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  33383. end;
  33384. procedure TSPI3_SPI3STAT.setSPIRBE; inline;
  33385. begin
  33386. pTDefRegMap(@Self)^.&set := $00000020;
  33387. end;
  33388. procedure TSPI3_SPI3STAT.clearSPIRBE; inline;
  33389. begin
  33390. pTDefRegMap(@Self)^.clr := $00000020;
  33391. end;
  33392. procedure TSPI3_SPI3STAT.setSPIRBE(thebits : TBits_1); inline;
  33393. begin
  33394. if thebits = 0 then
  33395. pTDefRegMap(@Self)^.clr := $00000020
  33396. else
  33397. pTDefRegMap(@Self)^.&set := $00000020;
  33398. end;
  33399. function TSPI3_SPI3STAT.getSPIRBE : TBits_1; inline;
  33400. begin
  33401. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  33402. end;
  33403. procedure TSPI3_SPI3STAT.setSPIROV; inline;
  33404. begin
  33405. pTDefRegMap(@Self)^.&set := $00000040;
  33406. end;
  33407. procedure TSPI3_SPI3STAT.clearSPIROV; inline;
  33408. begin
  33409. pTDefRegMap(@Self)^.clr := $00000040;
  33410. end;
  33411. procedure TSPI3_SPI3STAT.setSPIROV(thebits : TBits_1); inline;
  33412. begin
  33413. if thebits = 0 then
  33414. pTDefRegMap(@Self)^.clr := $00000040
  33415. else
  33416. pTDefRegMap(@Self)^.&set := $00000040;
  33417. end;
  33418. function TSPI3_SPI3STAT.getSPIROV : TBits_1; inline;
  33419. begin
  33420. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  33421. end;
  33422. procedure TSPI3_SPI3STAT.setSRMT; inline;
  33423. begin
  33424. pTDefRegMap(@Self)^.&set := $00000080;
  33425. end;
  33426. procedure TSPI3_SPI3STAT.clearSRMT; inline;
  33427. begin
  33428. pTDefRegMap(@Self)^.clr := $00000080;
  33429. end;
  33430. procedure TSPI3_SPI3STAT.setSRMT(thebits : TBits_1); inline;
  33431. begin
  33432. if thebits = 0 then
  33433. pTDefRegMap(@Self)^.clr := $00000080
  33434. else
  33435. pTDefRegMap(@Self)^.&set := $00000080;
  33436. end;
  33437. function TSPI3_SPI3STAT.getSRMT : TBits_1; inline;
  33438. begin
  33439. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  33440. end;
  33441. procedure TSPI3_SPI3STAT.setSPITUR; inline;
  33442. begin
  33443. pTDefRegMap(@Self)^.&set := $00000100;
  33444. end;
  33445. procedure TSPI3_SPI3STAT.clearSPITUR; inline;
  33446. begin
  33447. pTDefRegMap(@Self)^.clr := $00000100;
  33448. end;
  33449. procedure TSPI3_SPI3STAT.setSPITUR(thebits : TBits_1); inline;
  33450. begin
  33451. if thebits = 0 then
  33452. pTDefRegMap(@Self)^.clr := $00000100
  33453. else
  33454. pTDefRegMap(@Self)^.&set := $00000100;
  33455. end;
  33456. function TSPI3_SPI3STAT.getSPITUR : TBits_1; inline;
  33457. begin
  33458. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  33459. end;
  33460. procedure TSPI3_SPI3STAT.setSPIBUSY; inline;
  33461. begin
  33462. pTDefRegMap(@Self)^.&set := $00000800;
  33463. end;
  33464. procedure TSPI3_SPI3STAT.clearSPIBUSY; inline;
  33465. begin
  33466. pTDefRegMap(@Self)^.clr := $00000800;
  33467. end;
  33468. procedure TSPI3_SPI3STAT.setSPIBUSY(thebits : TBits_1); inline;
  33469. begin
  33470. if thebits = 0 then
  33471. pTDefRegMap(@Self)^.clr := $00000800
  33472. else
  33473. pTDefRegMap(@Self)^.&set := $00000800;
  33474. end;
  33475. function TSPI3_SPI3STAT.getSPIBUSY : TBits_1; inline;
  33476. begin
  33477. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  33478. end;
  33479. procedure TSPI3_SPI3STAT.setTXBUFELM(thebits : TBits_5); inline;
  33480. begin
  33481. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  33482. end;
  33483. function TSPI3_SPI3STAT.getTXBUFELM : TBits_5; inline;
  33484. begin
  33485. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  33486. end;
  33487. procedure TSPI3_SPI3STAT.setRXBUFELM(thebits : TBits_5); inline;
  33488. begin
  33489. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  33490. end;
  33491. function TSPI3_SPI3STAT.getRXBUFELM : TBits_5; inline;
  33492. begin
  33493. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  33494. end;
  33495. procedure TSPI3_SPI3STAT.setw(thebits : TBits_32); inline;
  33496. begin
  33497. pTDefRegMap(@Self)^.val := thebits;
  33498. end;
  33499. function TSPI3_SPI3STAT.getw : TBits_32; inline;
  33500. begin
  33501. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  33502. end;
  33503. procedure TSPI2_SPI2ACON.setSRXISEL(thebits : TBits_2); inline;
  33504. begin
  33505. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  33506. end;
  33507. function TSPI2_SPI2ACON.getSRXISEL : TBits_2; inline;
  33508. begin
  33509. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  33510. end;
  33511. procedure TSPI2_SPI2ACON.setSTXISEL(thebits : TBits_2); inline;
  33512. begin
  33513. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  33514. end;
  33515. function TSPI2_SPI2ACON.getSTXISEL : TBits_2; inline;
  33516. begin
  33517. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  33518. end;
  33519. procedure TSPI2_SPI2ACON.setMSTEN; inline;
  33520. begin
  33521. pTDefRegMap(@Self)^.&set := $00000020;
  33522. end;
  33523. procedure TSPI2_SPI2ACON.clearMSTEN; inline;
  33524. begin
  33525. pTDefRegMap(@Self)^.clr := $00000020;
  33526. end;
  33527. procedure TSPI2_SPI2ACON.setMSTEN(thebits : TBits_1); inline;
  33528. begin
  33529. if thebits = 0 then
  33530. pTDefRegMap(@Self)^.clr := $00000020
  33531. else
  33532. pTDefRegMap(@Self)^.&set := $00000020;
  33533. end;
  33534. function TSPI2_SPI2ACON.getMSTEN : TBits_1; inline;
  33535. begin
  33536. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  33537. end;
  33538. procedure TSPI2_SPI2ACON.setCKP; inline;
  33539. begin
  33540. pTDefRegMap(@Self)^.&set := $00000040;
  33541. end;
  33542. procedure TSPI2_SPI2ACON.clearCKP; inline;
  33543. begin
  33544. pTDefRegMap(@Self)^.clr := $00000040;
  33545. end;
  33546. procedure TSPI2_SPI2ACON.setCKP(thebits : TBits_1); inline;
  33547. begin
  33548. if thebits = 0 then
  33549. pTDefRegMap(@Self)^.clr := $00000040
  33550. else
  33551. pTDefRegMap(@Self)^.&set := $00000040;
  33552. end;
  33553. function TSPI2_SPI2ACON.getCKP : TBits_1; inline;
  33554. begin
  33555. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  33556. end;
  33557. procedure TSPI2_SPI2ACON.setSSEN; inline;
  33558. begin
  33559. pTDefRegMap(@Self)^.&set := $00000080;
  33560. end;
  33561. procedure TSPI2_SPI2ACON.clearSSEN; inline;
  33562. begin
  33563. pTDefRegMap(@Self)^.clr := $00000080;
  33564. end;
  33565. procedure TSPI2_SPI2ACON.setSSEN(thebits : TBits_1); inline;
  33566. begin
  33567. if thebits = 0 then
  33568. pTDefRegMap(@Self)^.clr := $00000080
  33569. else
  33570. pTDefRegMap(@Self)^.&set := $00000080;
  33571. end;
  33572. function TSPI2_SPI2ACON.getSSEN : TBits_1; inline;
  33573. begin
  33574. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  33575. end;
  33576. procedure TSPI2_SPI2ACON.setCKE; inline;
  33577. begin
  33578. pTDefRegMap(@Self)^.&set := $00000100;
  33579. end;
  33580. procedure TSPI2_SPI2ACON.clearCKE; inline;
  33581. begin
  33582. pTDefRegMap(@Self)^.clr := $00000100;
  33583. end;
  33584. procedure TSPI2_SPI2ACON.setCKE(thebits : TBits_1); inline;
  33585. begin
  33586. if thebits = 0 then
  33587. pTDefRegMap(@Self)^.clr := $00000100
  33588. else
  33589. pTDefRegMap(@Self)^.&set := $00000100;
  33590. end;
  33591. function TSPI2_SPI2ACON.getCKE : TBits_1; inline;
  33592. begin
  33593. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  33594. end;
  33595. procedure TSPI2_SPI2ACON.setSMP; inline;
  33596. begin
  33597. pTDefRegMap(@Self)^.&set := $00000200;
  33598. end;
  33599. procedure TSPI2_SPI2ACON.clearSMP; inline;
  33600. begin
  33601. pTDefRegMap(@Self)^.clr := $00000200;
  33602. end;
  33603. procedure TSPI2_SPI2ACON.setSMP(thebits : TBits_1); inline;
  33604. begin
  33605. if thebits = 0 then
  33606. pTDefRegMap(@Self)^.clr := $00000200
  33607. else
  33608. pTDefRegMap(@Self)^.&set := $00000200;
  33609. end;
  33610. function TSPI2_SPI2ACON.getSMP : TBits_1; inline;
  33611. begin
  33612. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  33613. end;
  33614. procedure TSPI2_SPI2ACON.setMODE16; inline;
  33615. begin
  33616. pTDefRegMap(@Self)^.&set := $00000400;
  33617. end;
  33618. procedure TSPI2_SPI2ACON.clearMODE16; inline;
  33619. begin
  33620. pTDefRegMap(@Self)^.clr := $00000400;
  33621. end;
  33622. procedure TSPI2_SPI2ACON.setMODE16(thebits : TBits_1); inline;
  33623. begin
  33624. if thebits = 0 then
  33625. pTDefRegMap(@Self)^.clr := $00000400
  33626. else
  33627. pTDefRegMap(@Self)^.&set := $00000400;
  33628. end;
  33629. function TSPI2_SPI2ACON.getMODE16 : TBits_1; inline;
  33630. begin
  33631. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  33632. end;
  33633. procedure TSPI2_SPI2ACON.setMODE32; inline;
  33634. begin
  33635. pTDefRegMap(@Self)^.&set := $00000800;
  33636. end;
  33637. procedure TSPI2_SPI2ACON.clearMODE32; inline;
  33638. begin
  33639. pTDefRegMap(@Self)^.clr := $00000800;
  33640. end;
  33641. procedure TSPI2_SPI2ACON.setMODE32(thebits : TBits_1); inline;
  33642. begin
  33643. if thebits = 0 then
  33644. pTDefRegMap(@Self)^.clr := $00000800
  33645. else
  33646. pTDefRegMap(@Self)^.&set := $00000800;
  33647. end;
  33648. function TSPI2_SPI2ACON.getMODE32 : TBits_1; inline;
  33649. begin
  33650. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  33651. end;
  33652. procedure TSPI2_SPI2ACON.setDISSDO; inline;
  33653. begin
  33654. pTDefRegMap(@Self)^.&set := $00001000;
  33655. end;
  33656. procedure TSPI2_SPI2ACON.clearDISSDO; inline;
  33657. begin
  33658. pTDefRegMap(@Self)^.clr := $00001000;
  33659. end;
  33660. procedure TSPI2_SPI2ACON.setDISSDO(thebits : TBits_1); inline;
  33661. begin
  33662. if thebits = 0 then
  33663. pTDefRegMap(@Self)^.clr := $00001000
  33664. else
  33665. pTDefRegMap(@Self)^.&set := $00001000;
  33666. end;
  33667. function TSPI2_SPI2ACON.getDISSDO : TBits_1; inline;
  33668. begin
  33669. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  33670. end;
  33671. procedure TSPI2_SPI2ACON.setSIDL; inline;
  33672. begin
  33673. pTDefRegMap(@Self)^.&set := $00002000;
  33674. end;
  33675. procedure TSPI2_SPI2ACON.clearSIDL; inline;
  33676. begin
  33677. pTDefRegMap(@Self)^.clr := $00002000;
  33678. end;
  33679. procedure TSPI2_SPI2ACON.setSIDL(thebits : TBits_1); inline;
  33680. begin
  33681. if thebits = 0 then
  33682. pTDefRegMap(@Self)^.clr := $00002000
  33683. else
  33684. pTDefRegMap(@Self)^.&set := $00002000;
  33685. end;
  33686. function TSPI2_SPI2ACON.getSIDL : TBits_1; inline;
  33687. begin
  33688. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  33689. end;
  33690. procedure TSPI2_SPI2ACON.setON; inline;
  33691. begin
  33692. pTDefRegMap(@Self)^.&set := $00008000;
  33693. end;
  33694. procedure TSPI2_SPI2ACON.clearON; inline;
  33695. begin
  33696. pTDefRegMap(@Self)^.clr := $00008000;
  33697. end;
  33698. procedure TSPI2_SPI2ACON.setON(thebits : TBits_1); inline;
  33699. begin
  33700. if thebits = 0 then
  33701. pTDefRegMap(@Self)^.clr := $00008000
  33702. else
  33703. pTDefRegMap(@Self)^.&set := $00008000;
  33704. end;
  33705. function TSPI2_SPI2ACON.getON : TBits_1; inline;
  33706. begin
  33707. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  33708. end;
  33709. procedure TSPI2_SPI2ACON.setENHBUF; inline;
  33710. begin
  33711. pTDefRegMap(@Self)^.&set := $00010000;
  33712. end;
  33713. procedure TSPI2_SPI2ACON.clearENHBUF; inline;
  33714. begin
  33715. pTDefRegMap(@Self)^.clr := $00010000;
  33716. end;
  33717. procedure TSPI2_SPI2ACON.setENHBUF(thebits : TBits_1); inline;
  33718. begin
  33719. if thebits = 0 then
  33720. pTDefRegMap(@Self)^.clr := $00010000
  33721. else
  33722. pTDefRegMap(@Self)^.&set := $00010000;
  33723. end;
  33724. function TSPI2_SPI2ACON.getENHBUF : TBits_1; inline;
  33725. begin
  33726. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  33727. end;
  33728. procedure TSPI2_SPI2ACON.setSPIFE; inline;
  33729. begin
  33730. pTDefRegMap(@Self)^.&set := $00020000;
  33731. end;
  33732. procedure TSPI2_SPI2ACON.clearSPIFE; inline;
  33733. begin
  33734. pTDefRegMap(@Self)^.clr := $00020000;
  33735. end;
  33736. procedure TSPI2_SPI2ACON.setSPIFE(thebits : TBits_1); inline;
  33737. begin
  33738. if thebits = 0 then
  33739. pTDefRegMap(@Self)^.clr := $00020000
  33740. else
  33741. pTDefRegMap(@Self)^.&set := $00020000;
  33742. end;
  33743. function TSPI2_SPI2ACON.getSPIFE : TBits_1; inline;
  33744. begin
  33745. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  33746. end;
  33747. procedure TSPI2_SPI2ACON.setFRMCNT(thebits : TBits_3); inline;
  33748. begin
  33749. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  33750. end;
  33751. function TSPI2_SPI2ACON.getFRMCNT : TBits_3; inline;
  33752. begin
  33753. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  33754. end;
  33755. procedure TSPI2_SPI2ACON.setFRMSYPW; inline;
  33756. begin
  33757. pTDefRegMap(@Self)^.&set := $08000000;
  33758. end;
  33759. procedure TSPI2_SPI2ACON.clearFRMSYPW; inline;
  33760. begin
  33761. pTDefRegMap(@Self)^.clr := $08000000;
  33762. end;
  33763. procedure TSPI2_SPI2ACON.setFRMSYPW(thebits : TBits_1); inline;
  33764. begin
  33765. if thebits = 0 then
  33766. pTDefRegMap(@Self)^.clr := $08000000
  33767. else
  33768. pTDefRegMap(@Self)^.&set := $08000000;
  33769. end;
  33770. function TSPI2_SPI2ACON.getFRMSYPW : TBits_1; inline;
  33771. begin
  33772. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  33773. end;
  33774. procedure TSPI2_SPI2ACON.setMSSEN; inline;
  33775. begin
  33776. pTDefRegMap(@Self)^.&set := $10000000;
  33777. end;
  33778. procedure TSPI2_SPI2ACON.clearMSSEN; inline;
  33779. begin
  33780. pTDefRegMap(@Self)^.clr := $10000000;
  33781. end;
  33782. procedure TSPI2_SPI2ACON.setMSSEN(thebits : TBits_1); inline;
  33783. begin
  33784. if thebits = 0 then
  33785. pTDefRegMap(@Self)^.clr := $10000000
  33786. else
  33787. pTDefRegMap(@Self)^.&set := $10000000;
  33788. end;
  33789. function TSPI2_SPI2ACON.getMSSEN : TBits_1; inline;
  33790. begin
  33791. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  33792. end;
  33793. procedure TSPI2_SPI2ACON.setFRMPOL; inline;
  33794. begin
  33795. pTDefRegMap(@Self)^.&set := $20000000;
  33796. end;
  33797. procedure TSPI2_SPI2ACON.clearFRMPOL; inline;
  33798. begin
  33799. pTDefRegMap(@Self)^.clr := $20000000;
  33800. end;
  33801. procedure TSPI2_SPI2ACON.setFRMPOL(thebits : TBits_1); inline;
  33802. begin
  33803. if thebits = 0 then
  33804. pTDefRegMap(@Self)^.clr := $20000000
  33805. else
  33806. pTDefRegMap(@Self)^.&set := $20000000;
  33807. end;
  33808. function TSPI2_SPI2ACON.getFRMPOL : TBits_1; inline;
  33809. begin
  33810. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  33811. end;
  33812. procedure TSPI2_SPI2ACON.setFRMSYNC; inline;
  33813. begin
  33814. pTDefRegMap(@Self)^.&set := $40000000;
  33815. end;
  33816. procedure TSPI2_SPI2ACON.clearFRMSYNC; inline;
  33817. begin
  33818. pTDefRegMap(@Self)^.clr := $40000000;
  33819. end;
  33820. procedure TSPI2_SPI2ACON.setFRMSYNC(thebits : TBits_1); inline;
  33821. begin
  33822. if thebits = 0 then
  33823. pTDefRegMap(@Self)^.clr := $40000000
  33824. else
  33825. pTDefRegMap(@Self)^.&set := $40000000;
  33826. end;
  33827. function TSPI2_SPI2ACON.getFRMSYNC : TBits_1; inline;
  33828. begin
  33829. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  33830. end;
  33831. procedure TSPI2_SPI2ACON.setFRMEN; inline;
  33832. begin
  33833. pTDefRegMap(@Self)^.&set := $80000000;
  33834. end;
  33835. procedure TSPI2_SPI2ACON.clearFRMEN; inline;
  33836. begin
  33837. pTDefRegMap(@Self)^.clr := $80000000;
  33838. end;
  33839. procedure TSPI2_SPI2ACON.setFRMEN(thebits : TBits_1); inline;
  33840. begin
  33841. if thebits = 0 then
  33842. pTDefRegMap(@Self)^.clr := $80000000
  33843. else
  33844. pTDefRegMap(@Self)^.&set := $80000000;
  33845. end;
  33846. function TSPI2_SPI2ACON.getFRMEN : TBits_1; inline;
  33847. begin
  33848. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  33849. end;
  33850. procedure TSPI2_SPI2ACON.setw(thebits : TBits_32); inline;
  33851. begin
  33852. pTDefRegMap(@Self)^.val := thebits;
  33853. end;
  33854. function TSPI2_SPI2ACON.getw : TBits_32; inline;
  33855. begin
  33856. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  33857. end;
  33858. procedure TSPI2_SPI2CON.setSRXISEL(thebits : TBits_2); inline;
  33859. begin
  33860. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  33861. end;
  33862. function TSPI2_SPI2CON.getSRXISEL : TBits_2; inline;
  33863. begin
  33864. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  33865. end;
  33866. procedure TSPI2_SPI2CON.setSTXISEL(thebits : TBits_2); inline;
  33867. begin
  33868. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  33869. end;
  33870. function TSPI2_SPI2CON.getSTXISEL : TBits_2; inline;
  33871. begin
  33872. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  33873. end;
  33874. procedure TSPI2_SPI2CON.setMSTEN; inline;
  33875. begin
  33876. pTDefRegMap(@Self)^.&set := $00000020;
  33877. end;
  33878. procedure TSPI2_SPI2CON.clearMSTEN; inline;
  33879. begin
  33880. pTDefRegMap(@Self)^.clr := $00000020;
  33881. end;
  33882. procedure TSPI2_SPI2CON.setMSTEN(thebits : TBits_1); inline;
  33883. begin
  33884. if thebits = 0 then
  33885. pTDefRegMap(@Self)^.clr := $00000020
  33886. else
  33887. pTDefRegMap(@Self)^.&set := $00000020;
  33888. end;
  33889. function TSPI2_SPI2CON.getMSTEN : TBits_1; inline;
  33890. begin
  33891. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  33892. end;
  33893. procedure TSPI2_SPI2CON.setCKP; inline;
  33894. begin
  33895. pTDefRegMap(@Self)^.&set := $00000040;
  33896. end;
  33897. procedure TSPI2_SPI2CON.clearCKP; inline;
  33898. begin
  33899. pTDefRegMap(@Self)^.clr := $00000040;
  33900. end;
  33901. procedure TSPI2_SPI2CON.setCKP(thebits : TBits_1); inline;
  33902. begin
  33903. if thebits = 0 then
  33904. pTDefRegMap(@Self)^.clr := $00000040
  33905. else
  33906. pTDefRegMap(@Self)^.&set := $00000040;
  33907. end;
  33908. function TSPI2_SPI2CON.getCKP : TBits_1; inline;
  33909. begin
  33910. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  33911. end;
  33912. procedure TSPI2_SPI2CON.setSSEN; inline;
  33913. begin
  33914. pTDefRegMap(@Self)^.&set := $00000080;
  33915. end;
  33916. procedure TSPI2_SPI2CON.clearSSEN; inline;
  33917. begin
  33918. pTDefRegMap(@Self)^.clr := $00000080;
  33919. end;
  33920. procedure TSPI2_SPI2CON.setSSEN(thebits : TBits_1); inline;
  33921. begin
  33922. if thebits = 0 then
  33923. pTDefRegMap(@Self)^.clr := $00000080
  33924. else
  33925. pTDefRegMap(@Self)^.&set := $00000080;
  33926. end;
  33927. function TSPI2_SPI2CON.getSSEN : TBits_1; inline;
  33928. begin
  33929. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  33930. end;
  33931. procedure TSPI2_SPI2CON.setCKE; inline;
  33932. begin
  33933. pTDefRegMap(@Self)^.&set := $00000100;
  33934. end;
  33935. procedure TSPI2_SPI2CON.clearCKE; inline;
  33936. begin
  33937. pTDefRegMap(@Self)^.clr := $00000100;
  33938. end;
  33939. procedure TSPI2_SPI2CON.setCKE(thebits : TBits_1); inline;
  33940. begin
  33941. if thebits = 0 then
  33942. pTDefRegMap(@Self)^.clr := $00000100
  33943. else
  33944. pTDefRegMap(@Self)^.&set := $00000100;
  33945. end;
  33946. function TSPI2_SPI2CON.getCKE : TBits_1; inline;
  33947. begin
  33948. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  33949. end;
  33950. procedure TSPI2_SPI2CON.setSMP; inline;
  33951. begin
  33952. pTDefRegMap(@Self)^.&set := $00000200;
  33953. end;
  33954. procedure TSPI2_SPI2CON.clearSMP; inline;
  33955. begin
  33956. pTDefRegMap(@Self)^.clr := $00000200;
  33957. end;
  33958. procedure TSPI2_SPI2CON.setSMP(thebits : TBits_1); inline;
  33959. begin
  33960. if thebits = 0 then
  33961. pTDefRegMap(@Self)^.clr := $00000200
  33962. else
  33963. pTDefRegMap(@Self)^.&set := $00000200;
  33964. end;
  33965. function TSPI2_SPI2CON.getSMP : TBits_1; inline;
  33966. begin
  33967. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  33968. end;
  33969. procedure TSPI2_SPI2CON.setMODE16; inline;
  33970. begin
  33971. pTDefRegMap(@Self)^.&set := $00000400;
  33972. end;
  33973. procedure TSPI2_SPI2CON.clearMODE16; inline;
  33974. begin
  33975. pTDefRegMap(@Self)^.clr := $00000400;
  33976. end;
  33977. procedure TSPI2_SPI2CON.setMODE16(thebits : TBits_1); inline;
  33978. begin
  33979. if thebits = 0 then
  33980. pTDefRegMap(@Self)^.clr := $00000400
  33981. else
  33982. pTDefRegMap(@Self)^.&set := $00000400;
  33983. end;
  33984. function TSPI2_SPI2CON.getMODE16 : TBits_1; inline;
  33985. begin
  33986. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  33987. end;
  33988. procedure TSPI2_SPI2CON.setMODE32; inline;
  33989. begin
  33990. pTDefRegMap(@Self)^.&set := $00000800;
  33991. end;
  33992. procedure TSPI2_SPI2CON.clearMODE32; inline;
  33993. begin
  33994. pTDefRegMap(@Self)^.clr := $00000800;
  33995. end;
  33996. procedure TSPI2_SPI2CON.setMODE32(thebits : TBits_1); inline;
  33997. begin
  33998. if thebits = 0 then
  33999. pTDefRegMap(@Self)^.clr := $00000800
  34000. else
  34001. pTDefRegMap(@Self)^.&set := $00000800;
  34002. end;
  34003. function TSPI2_SPI2CON.getMODE32 : TBits_1; inline;
  34004. begin
  34005. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  34006. end;
  34007. procedure TSPI2_SPI2CON.setDISSDO; inline;
  34008. begin
  34009. pTDefRegMap(@Self)^.&set := $00001000;
  34010. end;
  34011. procedure TSPI2_SPI2CON.clearDISSDO; inline;
  34012. begin
  34013. pTDefRegMap(@Self)^.clr := $00001000;
  34014. end;
  34015. procedure TSPI2_SPI2CON.setDISSDO(thebits : TBits_1); inline;
  34016. begin
  34017. if thebits = 0 then
  34018. pTDefRegMap(@Self)^.clr := $00001000
  34019. else
  34020. pTDefRegMap(@Self)^.&set := $00001000;
  34021. end;
  34022. function TSPI2_SPI2CON.getDISSDO : TBits_1; inline;
  34023. begin
  34024. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  34025. end;
  34026. procedure TSPI2_SPI2CON.setSIDL; inline;
  34027. begin
  34028. pTDefRegMap(@Self)^.&set := $00002000;
  34029. end;
  34030. procedure TSPI2_SPI2CON.clearSIDL; inline;
  34031. begin
  34032. pTDefRegMap(@Self)^.clr := $00002000;
  34033. end;
  34034. procedure TSPI2_SPI2CON.setSIDL(thebits : TBits_1); inline;
  34035. begin
  34036. if thebits = 0 then
  34037. pTDefRegMap(@Self)^.clr := $00002000
  34038. else
  34039. pTDefRegMap(@Self)^.&set := $00002000;
  34040. end;
  34041. function TSPI2_SPI2CON.getSIDL : TBits_1; inline;
  34042. begin
  34043. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  34044. end;
  34045. procedure TSPI2_SPI2CON.setON; inline;
  34046. begin
  34047. pTDefRegMap(@Self)^.&set := $00008000;
  34048. end;
  34049. procedure TSPI2_SPI2CON.clearON; inline;
  34050. begin
  34051. pTDefRegMap(@Self)^.clr := $00008000;
  34052. end;
  34053. procedure TSPI2_SPI2CON.setON(thebits : TBits_1); inline;
  34054. begin
  34055. if thebits = 0 then
  34056. pTDefRegMap(@Self)^.clr := $00008000
  34057. else
  34058. pTDefRegMap(@Self)^.&set := $00008000;
  34059. end;
  34060. function TSPI2_SPI2CON.getON : TBits_1; inline;
  34061. begin
  34062. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  34063. end;
  34064. procedure TSPI2_SPI2CON.setENHBUF; inline;
  34065. begin
  34066. pTDefRegMap(@Self)^.&set := $00010000;
  34067. end;
  34068. procedure TSPI2_SPI2CON.clearENHBUF; inline;
  34069. begin
  34070. pTDefRegMap(@Self)^.clr := $00010000;
  34071. end;
  34072. procedure TSPI2_SPI2CON.setENHBUF(thebits : TBits_1); inline;
  34073. begin
  34074. if thebits = 0 then
  34075. pTDefRegMap(@Self)^.clr := $00010000
  34076. else
  34077. pTDefRegMap(@Self)^.&set := $00010000;
  34078. end;
  34079. function TSPI2_SPI2CON.getENHBUF : TBits_1; inline;
  34080. begin
  34081. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  34082. end;
  34083. procedure TSPI2_SPI2CON.setSPIFE; inline;
  34084. begin
  34085. pTDefRegMap(@Self)^.&set := $00020000;
  34086. end;
  34087. procedure TSPI2_SPI2CON.clearSPIFE; inline;
  34088. begin
  34089. pTDefRegMap(@Self)^.clr := $00020000;
  34090. end;
  34091. procedure TSPI2_SPI2CON.setSPIFE(thebits : TBits_1); inline;
  34092. begin
  34093. if thebits = 0 then
  34094. pTDefRegMap(@Self)^.clr := $00020000
  34095. else
  34096. pTDefRegMap(@Self)^.&set := $00020000;
  34097. end;
  34098. function TSPI2_SPI2CON.getSPIFE : TBits_1; inline;
  34099. begin
  34100. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  34101. end;
  34102. procedure TSPI2_SPI2CON.setFRMCNT(thebits : TBits_3); inline;
  34103. begin
  34104. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  34105. end;
  34106. function TSPI2_SPI2CON.getFRMCNT : TBits_3; inline;
  34107. begin
  34108. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  34109. end;
  34110. procedure TSPI2_SPI2CON.setFRMSYPW; inline;
  34111. begin
  34112. pTDefRegMap(@Self)^.&set := $08000000;
  34113. end;
  34114. procedure TSPI2_SPI2CON.clearFRMSYPW; inline;
  34115. begin
  34116. pTDefRegMap(@Self)^.clr := $08000000;
  34117. end;
  34118. procedure TSPI2_SPI2CON.setFRMSYPW(thebits : TBits_1); inline;
  34119. begin
  34120. if thebits = 0 then
  34121. pTDefRegMap(@Self)^.clr := $08000000
  34122. else
  34123. pTDefRegMap(@Self)^.&set := $08000000;
  34124. end;
  34125. function TSPI2_SPI2CON.getFRMSYPW : TBits_1; inline;
  34126. begin
  34127. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  34128. end;
  34129. procedure TSPI2_SPI2CON.setMSSEN; inline;
  34130. begin
  34131. pTDefRegMap(@Self)^.&set := $10000000;
  34132. end;
  34133. procedure TSPI2_SPI2CON.clearMSSEN; inline;
  34134. begin
  34135. pTDefRegMap(@Self)^.clr := $10000000;
  34136. end;
  34137. procedure TSPI2_SPI2CON.setMSSEN(thebits : TBits_1); inline;
  34138. begin
  34139. if thebits = 0 then
  34140. pTDefRegMap(@Self)^.clr := $10000000
  34141. else
  34142. pTDefRegMap(@Self)^.&set := $10000000;
  34143. end;
  34144. function TSPI2_SPI2CON.getMSSEN : TBits_1; inline;
  34145. begin
  34146. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  34147. end;
  34148. procedure TSPI2_SPI2CON.setFRMPOL; inline;
  34149. begin
  34150. pTDefRegMap(@Self)^.&set := $20000000;
  34151. end;
  34152. procedure TSPI2_SPI2CON.clearFRMPOL; inline;
  34153. begin
  34154. pTDefRegMap(@Self)^.clr := $20000000;
  34155. end;
  34156. procedure TSPI2_SPI2CON.setFRMPOL(thebits : TBits_1); inline;
  34157. begin
  34158. if thebits = 0 then
  34159. pTDefRegMap(@Self)^.clr := $20000000
  34160. else
  34161. pTDefRegMap(@Self)^.&set := $20000000;
  34162. end;
  34163. function TSPI2_SPI2CON.getFRMPOL : TBits_1; inline;
  34164. begin
  34165. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  34166. end;
  34167. procedure TSPI2_SPI2CON.setFRMSYNC; inline;
  34168. begin
  34169. pTDefRegMap(@Self)^.&set := $40000000;
  34170. end;
  34171. procedure TSPI2_SPI2CON.clearFRMSYNC; inline;
  34172. begin
  34173. pTDefRegMap(@Self)^.clr := $40000000;
  34174. end;
  34175. procedure TSPI2_SPI2CON.setFRMSYNC(thebits : TBits_1); inline;
  34176. begin
  34177. if thebits = 0 then
  34178. pTDefRegMap(@Self)^.clr := $40000000
  34179. else
  34180. pTDefRegMap(@Self)^.&set := $40000000;
  34181. end;
  34182. function TSPI2_SPI2CON.getFRMSYNC : TBits_1; inline;
  34183. begin
  34184. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  34185. end;
  34186. procedure TSPI2_SPI2CON.setFRMEN; inline;
  34187. begin
  34188. pTDefRegMap(@Self)^.&set := $80000000;
  34189. end;
  34190. procedure TSPI2_SPI2CON.clearFRMEN; inline;
  34191. begin
  34192. pTDefRegMap(@Self)^.clr := $80000000;
  34193. end;
  34194. procedure TSPI2_SPI2CON.setFRMEN(thebits : TBits_1); inline;
  34195. begin
  34196. if thebits = 0 then
  34197. pTDefRegMap(@Self)^.clr := $80000000
  34198. else
  34199. pTDefRegMap(@Self)^.&set := $80000000;
  34200. end;
  34201. function TSPI2_SPI2CON.getFRMEN : TBits_1; inline;
  34202. begin
  34203. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  34204. end;
  34205. procedure TSPI2_SPI2CON.setw(thebits : TBits_32); inline;
  34206. begin
  34207. pTDefRegMap(@Self)^.val := thebits;
  34208. end;
  34209. function TSPI2_SPI2CON.getw : TBits_32; inline;
  34210. begin
  34211. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  34212. end;
  34213. procedure TSPI2_SPI2ASTAT.setSPIRBF; inline;
  34214. begin
  34215. pTDefRegMap(@Self)^.&set := $00000001;
  34216. end;
  34217. procedure TSPI2_SPI2ASTAT.clearSPIRBF; inline;
  34218. begin
  34219. pTDefRegMap(@Self)^.clr := $00000001;
  34220. end;
  34221. procedure TSPI2_SPI2ASTAT.setSPIRBF(thebits : TBits_1); inline;
  34222. begin
  34223. if thebits = 0 then
  34224. pTDefRegMap(@Self)^.clr := $00000001
  34225. else
  34226. pTDefRegMap(@Self)^.&set := $00000001;
  34227. end;
  34228. function TSPI2_SPI2ASTAT.getSPIRBF : TBits_1; inline;
  34229. begin
  34230. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  34231. end;
  34232. procedure TSPI2_SPI2ASTAT.setSPITBF; inline;
  34233. begin
  34234. pTDefRegMap(@Self)^.&set := $00000002;
  34235. end;
  34236. procedure TSPI2_SPI2ASTAT.clearSPITBF; inline;
  34237. begin
  34238. pTDefRegMap(@Self)^.clr := $00000002;
  34239. end;
  34240. procedure TSPI2_SPI2ASTAT.setSPITBF(thebits : TBits_1); inline;
  34241. begin
  34242. if thebits = 0 then
  34243. pTDefRegMap(@Self)^.clr := $00000002
  34244. else
  34245. pTDefRegMap(@Self)^.&set := $00000002;
  34246. end;
  34247. function TSPI2_SPI2ASTAT.getSPITBF : TBits_1; inline;
  34248. begin
  34249. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  34250. end;
  34251. procedure TSPI2_SPI2ASTAT.setSPITBE; inline;
  34252. begin
  34253. pTDefRegMap(@Self)^.&set := $00000008;
  34254. end;
  34255. procedure TSPI2_SPI2ASTAT.clearSPITBE; inline;
  34256. begin
  34257. pTDefRegMap(@Self)^.clr := $00000008;
  34258. end;
  34259. procedure TSPI2_SPI2ASTAT.setSPITBE(thebits : TBits_1); inline;
  34260. begin
  34261. if thebits = 0 then
  34262. pTDefRegMap(@Self)^.clr := $00000008
  34263. else
  34264. pTDefRegMap(@Self)^.&set := $00000008;
  34265. end;
  34266. function TSPI2_SPI2ASTAT.getSPITBE : TBits_1; inline;
  34267. begin
  34268. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  34269. end;
  34270. procedure TSPI2_SPI2ASTAT.setSPIRBE; inline;
  34271. begin
  34272. pTDefRegMap(@Self)^.&set := $00000020;
  34273. end;
  34274. procedure TSPI2_SPI2ASTAT.clearSPIRBE; inline;
  34275. begin
  34276. pTDefRegMap(@Self)^.clr := $00000020;
  34277. end;
  34278. procedure TSPI2_SPI2ASTAT.setSPIRBE(thebits : TBits_1); inline;
  34279. begin
  34280. if thebits = 0 then
  34281. pTDefRegMap(@Self)^.clr := $00000020
  34282. else
  34283. pTDefRegMap(@Self)^.&set := $00000020;
  34284. end;
  34285. function TSPI2_SPI2ASTAT.getSPIRBE : TBits_1; inline;
  34286. begin
  34287. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  34288. end;
  34289. procedure TSPI2_SPI2ASTAT.setSPIROV; inline;
  34290. begin
  34291. pTDefRegMap(@Self)^.&set := $00000040;
  34292. end;
  34293. procedure TSPI2_SPI2ASTAT.clearSPIROV; inline;
  34294. begin
  34295. pTDefRegMap(@Self)^.clr := $00000040;
  34296. end;
  34297. procedure TSPI2_SPI2ASTAT.setSPIROV(thebits : TBits_1); inline;
  34298. begin
  34299. if thebits = 0 then
  34300. pTDefRegMap(@Self)^.clr := $00000040
  34301. else
  34302. pTDefRegMap(@Self)^.&set := $00000040;
  34303. end;
  34304. function TSPI2_SPI2ASTAT.getSPIROV : TBits_1; inline;
  34305. begin
  34306. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  34307. end;
  34308. procedure TSPI2_SPI2ASTAT.setSRMT; inline;
  34309. begin
  34310. pTDefRegMap(@Self)^.&set := $00000080;
  34311. end;
  34312. procedure TSPI2_SPI2ASTAT.clearSRMT; inline;
  34313. begin
  34314. pTDefRegMap(@Self)^.clr := $00000080;
  34315. end;
  34316. procedure TSPI2_SPI2ASTAT.setSRMT(thebits : TBits_1); inline;
  34317. begin
  34318. if thebits = 0 then
  34319. pTDefRegMap(@Self)^.clr := $00000080
  34320. else
  34321. pTDefRegMap(@Self)^.&set := $00000080;
  34322. end;
  34323. function TSPI2_SPI2ASTAT.getSRMT : TBits_1; inline;
  34324. begin
  34325. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  34326. end;
  34327. procedure TSPI2_SPI2ASTAT.setSPITUR; inline;
  34328. begin
  34329. pTDefRegMap(@Self)^.&set := $00000100;
  34330. end;
  34331. procedure TSPI2_SPI2ASTAT.clearSPITUR; inline;
  34332. begin
  34333. pTDefRegMap(@Self)^.clr := $00000100;
  34334. end;
  34335. procedure TSPI2_SPI2ASTAT.setSPITUR(thebits : TBits_1); inline;
  34336. begin
  34337. if thebits = 0 then
  34338. pTDefRegMap(@Self)^.clr := $00000100
  34339. else
  34340. pTDefRegMap(@Self)^.&set := $00000100;
  34341. end;
  34342. function TSPI2_SPI2ASTAT.getSPITUR : TBits_1; inline;
  34343. begin
  34344. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  34345. end;
  34346. procedure TSPI2_SPI2ASTAT.setSPIBUSY; inline;
  34347. begin
  34348. pTDefRegMap(@Self)^.&set := $00000800;
  34349. end;
  34350. procedure TSPI2_SPI2ASTAT.clearSPIBUSY; inline;
  34351. begin
  34352. pTDefRegMap(@Self)^.clr := $00000800;
  34353. end;
  34354. procedure TSPI2_SPI2ASTAT.setSPIBUSY(thebits : TBits_1); inline;
  34355. begin
  34356. if thebits = 0 then
  34357. pTDefRegMap(@Self)^.clr := $00000800
  34358. else
  34359. pTDefRegMap(@Self)^.&set := $00000800;
  34360. end;
  34361. function TSPI2_SPI2ASTAT.getSPIBUSY : TBits_1; inline;
  34362. begin
  34363. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  34364. end;
  34365. procedure TSPI2_SPI2ASTAT.setTXBUFELM(thebits : TBits_5); inline;
  34366. begin
  34367. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  34368. end;
  34369. function TSPI2_SPI2ASTAT.getTXBUFELM : TBits_5; inline;
  34370. begin
  34371. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  34372. end;
  34373. procedure TSPI2_SPI2ASTAT.setRXBUFELM(thebits : TBits_5); inline;
  34374. begin
  34375. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  34376. end;
  34377. function TSPI2_SPI2ASTAT.getRXBUFELM : TBits_5; inline;
  34378. begin
  34379. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  34380. end;
  34381. procedure TSPI2_SPI2ASTAT.setw(thebits : TBits_32); inline;
  34382. begin
  34383. pTDefRegMap(@Self)^.val := thebits;
  34384. end;
  34385. function TSPI2_SPI2ASTAT.getw : TBits_32; inline;
  34386. begin
  34387. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  34388. end;
  34389. procedure TSPI2_SPI2STAT.setSPIRBF; inline;
  34390. begin
  34391. pTDefRegMap(@Self)^.&set := $00000001;
  34392. end;
  34393. procedure TSPI2_SPI2STAT.clearSPIRBF; inline;
  34394. begin
  34395. pTDefRegMap(@Self)^.clr := $00000001;
  34396. end;
  34397. procedure TSPI2_SPI2STAT.setSPIRBF(thebits : TBits_1); inline;
  34398. begin
  34399. if thebits = 0 then
  34400. pTDefRegMap(@Self)^.clr := $00000001
  34401. else
  34402. pTDefRegMap(@Self)^.&set := $00000001;
  34403. end;
  34404. function TSPI2_SPI2STAT.getSPIRBF : TBits_1; inline;
  34405. begin
  34406. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  34407. end;
  34408. procedure TSPI2_SPI2STAT.setSPITBF; inline;
  34409. begin
  34410. pTDefRegMap(@Self)^.&set := $00000002;
  34411. end;
  34412. procedure TSPI2_SPI2STAT.clearSPITBF; inline;
  34413. begin
  34414. pTDefRegMap(@Self)^.clr := $00000002;
  34415. end;
  34416. procedure TSPI2_SPI2STAT.setSPITBF(thebits : TBits_1); inline;
  34417. begin
  34418. if thebits = 0 then
  34419. pTDefRegMap(@Self)^.clr := $00000002
  34420. else
  34421. pTDefRegMap(@Self)^.&set := $00000002;
  34422. end;
  34423. function TSPI2_SPI2STAT.getSPITBF : TBits_1; inline;
  34424. begin
  34425. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  34426. end;
  34427. procedure TSPI2_SPI2STAT.setSPITBE; inline;
  34428. begin
  34429. pTDefRegMap(@Self)^.&set := $00000008;
  34430. end;
  34431. procedure TSPI2_SPI2STAT.clearSPITBE; inline;
  34432. begin
  34433. pTDefRegMap(@Self)^.clr := $00000008;
  34434. end;
  34435. procedure TSPI2_SPI2STAT.setSPITBE(thebits : TBits_1); inline;
  34436. begin
  34437. if thebits = 0 then
  34438. pTDefRegMap(@Self)^.clr := $00000008
  34439. else
  34440. pTDefRegMap(@Self)^.&set := $00000008;
  34441. end;
  34442. function TSPI2_SPI2STAT.getSPITBE : TBits_1; inline;
  34443. begin
  34444. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  34445. end;
  34446. procedure TSPI2_SPI2STAT.setSPIRBE; inline;
  34447. begin
  34448. pTDefRegMap(@Self)^.&set := $00000020;
  34449. end;
  34450. procedure TSPI2_SPI2STAT.clearSPIRBE; inline;
  34451. begin
  34452. pTDefRegMap(@Self)^.clr := $00000020;
  34453. end;
  34454. procedure TSPI2_SPI2STAT.setSPIRBE(thebits : TBits_1); inline;
  34455. begin
  34456. if thebits = 0 then
  34457. pTDefRegMap(@Self)^.clr := $00000020
  34458. else
  34459. pTDefRegMap(@Self)^.&set := $00000020;
  34460. end;
  34461. function TSPI2_SPI2STAT.getSPIRBE : TBits_1; inline;
  34462. begin
  34463. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  34464. end;
  34465. procedure TSPI2_SPI2STAT.setSPIROV; inline;
  34466. begin
  34467. pTDefRegMap(@Self)^.&set := $00000040;
  34468. end;
  34469. procedure TSPI2_SPI2STAT.clearSPIROV; inline;
  34470. begin
  34471. pTDefRegMap(@Self)^.clr := $00000040;
  34472. end;
  34473. procedure TSPI2_SPI2STAT.setSPIROV(thebits : TBits_1); inline;
  34474. begin
  34475. if thebits = 0 then
  34476. pTDefRegMap(@Self)^.clr := $00000040
  34477. else
  34478. pTDefRegMap(@Self)^.&set := $00000040;
  34479. end;
  34480. function TSPI2_SPI2STAT.getSPIROV : TBits_1; inline;
  34481. begin
  34482. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  34483. end;
  34484. procedure TSPI2_SPI2STAT.setSRMT; inline;
  34485. begin
  34486. pTDefRegMap(@Self)^.&set := $00000080;
  34487. end;
  34488. procedure TSPI2_SPI2STAT.clearSRMT; inline;
  34489. begin
  34490. pTDefRegMap(@Self)^.clr := $00000080;
  34491. end;
  34492. procedure TSPI2_SPI2STAT.setSRMT(thebits : TBits_1); inline;
  34493. begin
  34494. if thebits = 0 then
  34495. pTDefRegMap(@Self)^.clr := $00000080
  34496. else
  34497. pTDefRegMap(@Self)^.&set := $00000080;
  34498. end;
  34499. function TSPI2_SPI2STAT.getSRMT : TBits_1; inline;
  34500. begin
  34501. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  34502. end;
  34503. procedure TSPI2_SPI2STAT.setSPITUR; inline;
  34504. begin
  34505. pTDefRegMap(@Self)^.&set := $00000100;
  34506. end;
  34507. procedure TSPI2_SPI2STAT.clearSPITUR; inline;
  34508. begin
  34509. pTDefRegMap(@Self)^.clr := $00000100;
  34510. end;
  34511. procedure TSPI2_SPI2STAT.setSPITUR(thebits : TBits_1); inline;
  34512. begin
  34513. if thebits = 0 then
  34514. pTDefRegMap(@Self)^.clr := $00000100
  34515. else
  34516. pTDefRegMap(@Self)^.&set := $00000100;
  34517. end;
  34518. function TSPI2_SPI2STAT.getSPITUR : TBits_1; inline;
  34519. begin
  34520. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  34521. end;
  34522. procedure TSPI2_SPI2STAT.setSPIBUSY; inline;
  34523. begin
  34524. pTDefRegMap(@Self)^.&set := $00000800;
  34525. end;
  34526. procedure TSPI2_SPI2STAT.clearSPIBUSY; inline;
  34527. begin
  34528. pTDefRegMap(@Self)^.clr := $00000800;
  34529. end;
  34530. procedure TSPI2_SPI2STAT.setSPIBUSY(thebits : TBits_1); inline;
  34531. begin
  34532. if thebits = 0 then
  34533. pTDefRegMap(@Self)^.clr := $00000800
  34534. else
  34535. pTDefRegMap(@Self)^.&set := $00000800;
  34536. end;
  34537. function TSPI2_SPI2STAT.getSPIBUSY : TBits_1; inline;
  34538. begin
  34539. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  34540. end;
  34541. procedure TSPI2_SPI2STAT.setTXBUFELM(thebits : TBits_5); inline;
  34542. begin
  34543. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  34544. end;
  34545. function TSPI2_SPI2STAT.getTXBUFELM : TBits_5; inline;
  34546. begin
  34547. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  34548. end;
  34549. procedure TSPI2_SPI2STAT.setRXBUFELM(thebits : TBits_5); inline;
  34550. begin
  34551. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  34552. end;
  34553. function TSPI2_SPI2STAT.getRXBUFELM : TBits_5; inline;
  34554. begin
  34555. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  34556. end;
  34557. procedure TSPI2_SPI2STAT.setw(thebits : TBits_32); inline;
  34558. begin
  34559. pTDefRegMap(@Self)^.val := thebits;
  34560. end;
  34561. function TSPI2_SPI2STAT.getw : TBits_32; inline;
  34562. begin
  34563. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  34564. end;
  34565. procedure TSPI4_SPI3ACON.setSRXISEL(thebits : TBits_2); inline;
  34566. begin
  34567. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  34568. end;
  34569. function TSPI4_SPI3ACON.getSRXISEL : TBits_2; inline;
  34570. begin
  34571. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  34572. end;
  34573. procedure TSPI4_SPI3ACON.setSTXISEL(thebits : TBits_2); inline;
  34574. begin
  34575. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  34576. end;
  34577. function TSPI4_SPI3ACON.getSTXISEL : TBits_2; inline;
  34578. begin
  34579. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  34580. end;
  34581. procedure TSPI4_SPI3ACON.setMSTEN; inline;
  34582. begin
  34583. pTDefRegMap(@Self)^.&set := $00000020;
  34584. end;
  34585. procedure TSPI4_SPI3ACON.clearMSTEN; inline;
  34586. begin
  34587. pTDefRegMap(@Self)^.clr := $00000020;
  34588. end;
  34589. procedure TSPI4_SPI3ACON.setMSTEN(thebits : TBits_1); inline;
  34590. begin
  34591. if thebits = 0 then
  34592. pTDefRegMap(@Self)^.clr := $00000020
  34593. else
  34594. pTDefRegMap(@Self)^.&set := $00000020;
  34595. end;
  34596. function TSPI4_SPI3ACON.getMSTEN : TBits_1; inline;
  34597. begin
  34598. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  34599. end;
  34600. procedure TSPI4_SPI3ACON.setCKP; inline;
  34601. begin
  34602. pTDefRegMap(@Self)^.&set := $00000040;
  34603. end;
  34604. procedure TSPI4_SPI3ACON.clearCKP; inline;
  34605. begin
  34606. pTDefRegMap(@Self)^.clr := $00000040;
  34607. end;
  34608. procedure TSPI4_SPI3ACON.setCKP(thebits : TBits_1); inline;
  34609. begin
  34610. if thebits = 0 then
  34611. pTDefRegMap(@Self)^.clr := $00000040
  34612. else
  34613. pTDefRegMap(@Self)^.&set := $00000040;
  34614. end;
  34615. function TSPI4_SPI3ACON.getCKP : TBits_1; inline;
  34616. begin
  34617. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  34618. end;
  34619. procedure TSPI4_SPI3ACON.setSSEN; inline;
  34620. begin
  34621. pTDefRegMap(@Self)^.&set := $00000080;
  34622. end;
  34623. procedure TSPI4_SPI3ACON.clearSSEN; inline;
  34624. begin
  34625. pTDefRegMap(@Self)^.clr := $00000080;
  34626. end;
  34627. procedure TSPI4_SPI3ACON.setSSEN(thebits : TBits_1); inline;
  34628. begin
  34629. if thebits = 0 then
  34630. pTDefRegMap(@Self)^.clr := $00000080
  34631. else
  34632. pTDefRegMap(@Self)^.&set := $00000080;
  34633. end;
  34634. function TSPI4_SPI3ACON.getSSEN : TBits_1; inline;
  34635. begin
  34636. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  34637. end;
  34638. procedure TSPI4_SPI3ACON.setCKE; inline;
  34639. begin
  34640. pTDefRegMap(@Self)^.&set := $00000100;
  34641. end;
  34642. procedure TSPI4_SPI3ACON.clearCKE; inline;
  34643. begin
  34644. pTDefRegMap(@Self)^.clr := $00000100;
  34645. end;
  34646. procedure TSPI4_SPI3ACON.setCKE(thebits : TBits_1); inline;
  34647. begin
  34648. if thebits = 0 then
  34649. pTDefRegMap(@Self)^.clr := $00000100
  34650. else
  34651. pTDefRegMap(@Self)^.&set := $00000100;
  34652. end;
  34653. function TSPI4_SPI3ACON.getCKE : TBits_1; inline;
  34654. begin
  34655. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  34656. end;
  34657. procedure TSPI4_SPI3ACON.setSMP; inline;
  34658. begin
  34659. pTDefRegMap(@Self)^.&set := $00000200;
  34660. end;
  34661. procedure TSPI4_SPI3ACON.clearSMP; inline;
  34662. begin
  34663. pTDefRegMap(@Self)^.clr := $00000200;
  34664. end;
  34665. procedure TSPI4_SPI3ACON.setSMP(thebits : TBits_1); inline;
  34666. begin
  34667. if thebits = 0 then
  34668. pTDefRegMap(@Self)^.clr := $00000200
  34669. else
  34670. pTDefRegMap(@Self)^.&set := $00000200;
  34671. end;
  34672. function TSPI4_SPI3ACON.getSMP : TBits_1; inline;
  34673. begin
  34674. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  34675. end;
  34676. procedure TSPI4_SPI3ACON.setMODE16; inline;
  34677. begin
  34678. pTDefRegMap(@Self)^.&set := $00000400;
  34679. end;
  34680. procedure TSPI4_SPI3ACON.clearMODE16; inline;
  34681. begin
  34682. pTDefRegMap(@Self)^.clr := $00000400;
  34683. end;
  34684. procedure TSPI4_SPI3ACON.setMODE16(thebits : TBits_1); inline;
  34685. begin
  34686. if thebits = 0 then
  34687. pTDefRegMap(@Self)^.clr := $00000400
  34688. else
  34689. pTDefRegMap(@Self)^.&set := $00000400;
  34690. end;
  34691. function TSPI4_SPI3ACON.getMODE16 : TBits_1; inline;
  34692. begin
  34693. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  34694. end;
  34695. procedure TSPI4_SPI3ACON.setMODE32; inline;
  34696. begin
  34697. pTDefRegMap(@Self)^.&set := $00000800;
  34698. end;
  34699. procedure TSPI4_SPI3ACON.clearMODE32; inline;
  34700. begin
  34701. pTDefRegMap(@Self)^.clr := $00000800;
  34702. end;
  34703. procedure TSPI4_SPI3ACON.setMODE32(thebits : TBits_1); inline;
  34704. begin
  34705. if thebits = 0 then
  34706. pTDefRegMap(@Self)^.clr := $00000800
  34707. else
  34708. pTDefRegMap(@Self)^.&set := $00000800;
  34709. end;
  34710. function TSPI4_SPI3ACON.getMODE32 : TBits_1; inline;
  34711. begin
  34712. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  34713. end;
  34714. procedure TSPI4_SPI3ACON.setDISSDO; inline;
  34715. begin
  34716. pTDefRegMap(@Self)^.&set := $00001000;
  34717. end;
  34718. procedure TSPI4_SPI3ACON.clearDISSDO; inline;
  34719. begin
  34720. pTDefRegMap(@Self)^.clr := $00001000;
  34721. end;
  34722. procedure TSPI4_SPI3ACON.setDISSDO(thebits : TBits_1); inline;
  34723. begin
  34724. if thebits = 0 then
  34725. pTDefRegMap(@Self)^.clr := $00001000
  34726. else
  34727. pTDefRegMap(@Self)^.&set := $00001000;
  34728. end;
  34729. function TSPI4_SPI3ACON.getDISSDO : TBits_1; inline;
  34730. begin
  34731. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  34732. end;
  34733. procedure TSPI4_SPI3ACON.setSIDL; inline;
  34734. begin
  34735. pTDefRegMap(@Self)^.&set := $00002000;
  34736. end;
  34737. procedure TSPI4_SPI3ACON.clearSIDL; inline;
  34738. begin
  34739. pTDefRegMap(@Self)^.clr := $00002000;
  34740. end;
  34741. procedure TSPI4_SPI3ACON.setSIDL(thebits : TBits_1); inline;
  34742. begin
  34743. if thebits = 0 then
  34744. pTDefRegMap(@Self)^.clr := $00002000
  34745. else
  34746. pTDefRegMap(@Self)^.&set := $00002000;
  34747. end;
  34748. function TSPI4_SPI3ACON.getSIDL : TBits_1; inline;
  34749. begin
  34750. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  34751. end;
  34752. procedure TSPI4_SPI3ACON.setON; inline;
  34753. begin
  34754. pTDefRegMap(@Self)^.&set := $00008000;
  34755. end;
  34756. procedure TSPI4_SPI3ACON.clearON; inline;
  34757. begin
  34758. pTDefRegMap(@Self)^.clr := $00008000;
  34759. end;
  34760. procedure TSPI4_SPI3ACON.setON(thebits : TBits_1); inline;
  34761. begin
  34762. if thebits = 0 then
  34763. pTDefRegMap(@Self)^.clr := $00008000
  34764. else
  34765. pTDefRegMap(@Self)^.&set := $00008000;
  34766. end;
  34767. function TSPI4_SPI3ACON.getON : TBits_1; inline;
  34768. begin
  34769. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  34770. end;
  34771. procedure TSPI4_SPI3ACON.setENHBUF; inline;
  34772. begin
  34773. pTDefRegMap(@Self)^.&set := $00010000;
  34774. end;
  34775. procedure TSPI4_SPI3ACON.clearENHBUF; inline;
  34776. begin
  34777. pTDefRegMap(@Self)^.clr := $00010000;
  34778. end;
  34779. procedure TSPI4_SPI3ACON.setENHBUF(thebits : TBits_1); inline;
  34780. begin
  34781. if thebits = 0 then
  34782. pTDefRegMap(@Self)^.clr := $00010000
  34783. else
  34784. pTDefRegMap(@Self)^.&set := $00010000;
  34785. end;
  34786. function TSPI4_SPI3ACON.getENHBUF : TBits_1; inline;
  34787. begin
  34788. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  34789. end;
  34790. procedure TSPI4_SPI3ACON.setSPIFE; inline;
  34791. begin
  34792. pTDefRegMap(@Self)^.&set := $00020000;
  34793. end;
  34794. procedure TSPI4_SPI3ACON.clearSPIFE; inline;
  34795. begin
  34796. pTDefRegMap(@Self)^.clr := $00020000;
  34797. end;
  34798. procedure TSPI4_SPI3ACON.setSPIFE(thebits : TBits_1); inline;
  34799. begin
  34800. if thebits = 0 then
  34801. pTDefRegMap(@Self)^.clr := $00020000
  34802. else
  34803. pTDefRegMap(@Self)^.&set := $00020000;
  34804. end;
  34805. function TSPI4_SPI3ACON.getSPIFE : TBits_1; inline;
  34806. begin
  34807. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  34808. end;
  34809. procedure TSPI4_SPI3ACON.setFRMCNT(thebits : TBits_3); inline;
  34810. begin
  34811. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  34812. end;
  34813. function TSPI4_SPI3ACON.getFRMCNT : TBits_3; inline;
  34814. begin
  34815. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  34816. end;
  34817. procedure TSPI4_SPI3ACON.setFRMSYPW; inline;
  34818. begin
  34819. pTDefRegMap(@Self)^.&set := $08000000;
  34820. end;
  34821. procedure TSPI4_SPI3ACON.clearFRMSYPW; inline;
  34822. begin
  34823. pTDefRegMap(@Self)^.clr := $08000000;
  34824. end;
  34825. procedure TSPI4_SPI3ACON.setFRMSYPW(thebits : TBits_1); inline;
  34826. begin
  34827. if thebits = 0 then
  34828. pTDefRegMap(@Self)^.clr := $08000000
  34829. else
  34830. pTDefRegMap(@Self)^.&set := $08000000;
  34831. end;
  34832. function TSPI4_SPI3ACON.getFRMSYPW : TBits_1; inline;
  34833. begin
  34834. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  34835. end;
  34836. procedure TSPI4_SPI3ACON.setMSSEN; inline;
  34837. begin
  34838. pTDefRegMap(@Self)^.&set := $10000000;
  34839. end;
  34840. procedure TSPI4_SPI3ACON.clearMSSEN; inline;
  34841. begin
  34842. pTDefRegMap(@Self)^.clr := $10000000;
  34843. end;
  34844. procedure TSPI4_SPI3ACON.setMSSEN(thebits : TBits_1); inline;
  34845. begin
  34846. if thebits = 0 then
  34847. pTDefRegMap(@Self)^.clr := $10000000
  34848. else
  34849. pTDefRegMap(@Self)^.&set := $10000000;
  34850. end;
  34851. function TSPI4_SPI3ACON.getMSSEN : TBits_1; inline;
  34852. begin
  34853. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  34854. end;
  34855. procedure TSPI4_SPI3ACON.setFRMPOL; inline;
  34856. begin
  34857. pTDefRegMap(@Self)^.&set := $20000000;
  34858. end;
  34859. procedure TSPI4_SPI3ACON.clearFRMPOL; inline;
  34860. begin
  34861. pTDefRegMap(@Self)^.clr := $20000000;
  34862. end;
  34863. procedure TSPI4_SPI3ACON.setFRMPOL(thebits : TBits_1); inline;
  34864. begin
  34865. if thebits = 0 then
  34866. pTDefRegMap(@Self)^.clr := $20000000
  34867. else
  34868. pTDefRegMap(@Self)^.&set := $20000000;
  34869. end;
  34870. function TSPI4_SPI3ACON.getFRMPOL : TBits_1; inline;
  34871. begin
  34872. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  34873. end;
  34874. procedure TSPI4_SPI3ACON.setFRMSYNC; inline;
  34875. begin
  34876. pTDefRegMap(@Self)^.&set := $40000000;
  34877. end;
  34878. procedure TSPI4_SPI3ACON.clearFRMSYNC; inline;
  34879. begin
  34880. pTDefRegMap(@Self)^.clr := $40000000;
  34881. end;
  34882. procedure TSPI4_SPI3ACON.setFRMSYNC(thebits : TBits_1); inline;
  34883. begin
  34884. if thebits = 0 then
  34885. pTDefRegMap(@Self)^.clr := $40000000
  34886. else
  34887. pTDefRegMap(@Self)^.&set := $40000000;
  34888. end;
  34889. function TSPI4_SPI3ACON.getFRMSYNC : TBits_1; inline;
  34890. begin
  34891. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  34892. end;
  34893. procedure TSPI4_SPI3ACON.setFRMEN; inline;
  34894. begin
  34895. pTDefRegMap(@Self)^.&set := $80000000;
  34896. end;
  34897. procedure TSPI4_SPI3ACON.clearFRMEN; inline;
  34898. begin
  34899. pTDefRegMap(@Self)^.clr := $80000000;
  34900. end;
  34901. procedure TSPI4_SPI3ACON.setFRMEN(thebits : TBits_1); inline;
  34902. begin
  34903. if thebits = 0 then
  34904. pTDefRegMap(@Self)^.clr := $80000000
  34905. else
  34906. pTDefRegMap(@Self)^.&set := $80000000;
  34907. end;
  34908. function TSPI4_SPI3ACON.getFRMEN : TBits_1; inline;
  34909. begin
  34910. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  34911. end;
  34912. procedure TSPI4_SPI3ACON.setw(thebits : TBits_32); inline;
  34913. begin
  34914. pTDefRegMap(@Self)^.val := thebits;
  34915. end;
  34916. function TSPI4_SPI3ACON.getw : TBits_32; inline;
  34917. begin
  34918. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  34919. end;
  34920. procedure TSPI4_SPI4CON.setSRXISEL(thebits : TBits_2); inline;
  34921. begin
  34922. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  34923. end;
  34924. function TSPI4_SPI4CON.getSRXISEL : TBits_2; inline;
  34925. begin
  34926. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  34927. end;
  34928. procedure TSPI4_SPI4CON.setSTXISEL(thebits : TBits_2); inline;
  34929. begin
  34930. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  34931. end;
  34932. function TSPI4_SPI4CON.getSTXISEL : TBits_2; inline;
  34933. begin
  34934. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  34935. end;
  34936. procedure TSPI4_SPI4CON.setMSTEN; inline;
  34937. begin
  34938. pTDefRegMap(@Self)^.&set := $00000020;
  34939. end;
  34940. procedure TSPI4_SPI4CON.clearMSTEN; inline;
  34941. begin
  34942. pTDefRegMap(@Self)^.clr := $00000020;
  34943. end;
  34944. procedure TSPI4_SPI4CON.setMSTEN(thebits : TBits_1); inline;
  34945. begin
  34946. if thebits = 0 then
  34947. pTDefRegMap(@Self)^.clr := $00000020
  34948. else
  34949. pTDefRegMap(@Self)^.&set := $00000020;
  34950. end;
  34951. function TSPI4_SPI4CON.getMSTEN : TBits_1; inline;
  34952. begin
  34953. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  34954. end;
  34955. procedure TSPI4_SPI4CON.setCKP; inline;
  34956. begin
  34957. pTDefRegMap(@Self)^.&set := $00000040;
  34958. end;
  34959. procedure TSPI4_SPI4CON.clearCKP; inline;
  34960. begin
  34961. pTDefRegMap(@Self)^.clr := $00000040;
  34962. end;
  34963. procedure TSPI4_SPI4CON.setCKP(thebits : TBits_1); inline;
  34964. begin
  34965. if thebits = 0 then
  34966. pTDefRegMap(@Self)^.clr := $00000040
  34967. else
  34968. pTDefRegMap(@Self)^.&set := $00000040;
  34969. end;
  34970. function TSPI4_SPI4CON.getCKP : TBits_1; inline;
  34971. begin
  34972. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  34973. end;
  34974. procedure TSPI4_SPI4CON.setSSEN; inline;
  34975. begin
  34976. pTDefRegMap(@Self)^.&set := $00000080;
  34977. end;
  34978. procedure TSPI4_SPI4CON.clearSSEN; inline;
  34979. begin
  34980. pTDefRegMap(@Self)^.clr := $00000080;
  34981. end;
  34982. procedure TSPI4_SPI4CON.setSSEN(thebits : TBits_1); inline;
  34983. begin
  34984. if thebits = 0 then
  34985. pTDefRegMap(@Self)^.clr := $00000080
  34986. else
  34987. pTDefRegMap(@Self)^.&set := $00000080;
  34988. end;
  34989. function TSPI4_SPI4CON.getSSEN : TBits_1; inline;
  34990. begin
  34991. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  34992. end;
  34993. procedure TSPI4_SPI4CON.setCKE; inline;
  34994. begin
  34995. pTDefRegMap(@Self)^.&set := $00000100;
  34996. end;
  34997. procedure TSPI4_SPI4CON.clearCKE; inline;
  34998. begin
  34999. pTDefRegMap(@Self)^.clr := $00000100;
  35000. end;
  35001. procedure TSPI4_SPI4CON.setCKE(thebits : TBits_1); inline;
  35002. begin
  35003. if thebits = 0 then
  35004. pTDefRegMap(@Self)^.clr := $00000100
  35005. else
  35006. pTDefRegMap(@Self)^.&set := $00000100;
  35007. end;
  35008. function TSPI4_SPI4CON.getCKE : TBits_1; inline;
  35009. begin
  35010. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  35011. end;
  35012. procedure TSPI4_SPI4CON.setSMP; inline;
  35013. begin
  35014. pTDefRegMap(@Self)^.&set := $00000200;
  35015. end;
  35016. procedure TSPI4_SPI4CON.clearSMP; inline;
  35017. begin
  35018. pTDefRegMap(@Self)^.clr := $00000200;
  35019. end;
  35020. procedure TSPI4_SPI4CON.setSMP(thebits : TBits_1); inline;
  35021. begin
  35022. if thebits = 0 then
  35023. pTDefRegMap(@Self)^.clr := $00000200
  35024. else
  35025. pTDefRegMap(@Self)^.&set := $00000200;
  35026. end;
  35027. function TSPI4_SPI4CON.getSMP : TBits_1; inline;
  35028. begin
  35029. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  35030. end;
  35031. procedure TSPI4_SPI4CON.setMODE16; inline;
  35032. begin
  35033. pTDefRegMap(@Self)^.&set := $00000400;
  35034. end;
  35035. procedure TSPI4_SPI4CON.clearMODE16; inline;
  35036. begin
  35037. pTDefRegMap(@Self)^.clr := $00000400;
  35038. end;
  35039. procedure TSPI4_SPI4CON.setMODE16(thebits : TBits_1); inline;
  35040. begin
  35041. if thebits = 0 then
  35042. pTDefRegMap(@Self)^.clr := $00000400
  35043. else
  35044. pTDefRegMap(@Self)^.&set := $00000400;
  35045. end;
  35046. function TSPI4_SPI4CON.getMODE16 : TBits_1; inline;
  35047. begin
  35048. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  35049. end;
  35050. procedure TSPI4_SPI4CON.setMODE32; inline;
  35051. begin
  35052. pTDefRegMap(@Self)^.&set := $00000800;
  35053. end;
  35054. procedure TSPI4_SPI4CON.clearMODE32; inline;
  35055. begin
  35056. pTDefRegMap(@Self)^.clr := $00000800;
  35057. end;
  35058. procedure TSPI4_SPI4CON.setMODE32(thebits : TBits_1); inline;
  35059. begin
  35060. if thebits = 0 then
  35061. pTDefRegMap(@Self)^.clr := $00000800
  35062. else
  35063. pTDefRegMap(@Self)^.&set := $00000800;
  35064. end;
  35065. function TSPI4_SPI4CON.getMODE32 : TBits_1; inline;
  35066. begin
  35067. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  35068. end;
  35069. procedure TSPI4_SPI4CON.setDISSDO; inline;
  35070. begin
  35071. pTDefRegMap(@Self)^.&set := $00001000;
  35072. end;
  35073. procedure TSPI4_SPI4CON.clearDISSDO; inline;
  35074. begin
  35075. pTDefRegMap(@Self)^.clr := $00001000;
  35076. end;
  35077. procedure TSPI4_SPI4CON.setDISSDO(thebits : TBits_1); inline;
  35078. begin
  35079. if thebits = 0 then
  35080. pTDefRegMap(@Self)^.clr := $00001000
  35081. else
  35082. pTDefRegMap(@Self)^.&set := $00001000;
  35083. end;
  35084. function TSPI4_SPI4CON.getDISSDO : TBits_1; inline;
  35085. begin
  35086. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  35087. end;
  35088. procedure TSPI4_SPI4CON.setSIDL; inline;
  35089. begin
  35090. pTDefRegMap(@Self)^.&set := $00002000;
  35091. end;
  35092. procedure TSPI4_SPI4CON.clearSIDL; inline;
  35093. begin
  35094. pTDefRegMap(@Self)^.clr := $00002000;
  35095. end;
  35096. procedure TSPI4_SPI4CON.setSIDL(thebits : TBits_1); inline;
  35097. begin
  35098. if thebits = 0 then
  35099. pTDefRegMap(@Self)^.clr := $00002000
  35100. else
  35101. pTDefRegMap(@Self)^.&set := $00002000;
  35102. end;
  35103. function TSPI4_SPI4CON.getSIDL : TBits_1; inline;
  35104. begin
  35105. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  35106. end;
  35107. procedure TSPI4_SPI4CON.setON; inline;
  35108. begin
  35109. pTDefRegMap(@Self)^.&set := $00008000;
  35110. end;
  35111. procedure TSPI4_SPI4CON.clearON; inline;
  35112. begin
  35113. pTDefRegMap(@Self)^.clr := $00008000;
  35114. end;
  35115. procedure TSPI4_SPI4CON.setON(thebits : TBits_1); inline;
  35116. begin
  35117. if thebits = 0 then
  35118. pTDefRegMap(@Self)^.clr := $00008000
  35119. else
  35120. pTDefRegMap(@Self)^.&set := $00008000;
  35121. end;
  35122. function TSPI4_SPI4CON.getON : TBits_1; inline;
  35123. begin
  35124. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  35125. end;
  35126. procedure TSPI4_SPI4CON.setENHBUF; inline;
  35127. begin
  35128. pTDefRegMap(@Self)^.&set := $00010000;
  35129. end;
  35130. procedure TSPI4_SPI4CON.clearENHBUF; inline;
  35131. begin
  35132. pTDefRegMap(@Self)^.clr := $00010000;
  35133. end;
  35134. procedure TSPI4_SPI4CON.setENHBUF(thebits : TBits_1); inline;
  35135. begin
  35136. if thebits = 0 then
  35137. pTDefRegMap(@Self)^.clr := $00010000
  35138. else
  35139. pTDefRegMap(@Self)^.&set := $00010000;
  35140. end;
  35141. function TSPI4_SPI4CON.getENHBUF : TBits_1; inline;
  35142. begin
  35143. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  35144. end;
  35145. procedure TSPI4_SPI4CON.setSPIFE; inline;
  35146. begin
  35147. pTDefRegMap(@Self)^.&set := $00020000;
  35148. end;
  35149. procedure TSPI4_SPI4CON.clearSPIFE; inline;
  35150. begin
  35151. pTDefRegMap(@Self)^.clr := $00020000;
  35152. end;
  35153. procedure TSPI4_SPI4CON.setSPIFE(thebits : TBits_1); inline;
  35154. begin
  35155. if thebits = 0 then
  35156. pTDefRegMap(@Self)^.clr := $00020000
  35157. else
  35158. pTDefRegMap(@Self)^.&set := $00020000;
  35159. end;
  35160. function TSPI4_SPI4CON.getSPIFE : TBits_1; inline;
  35161. begin
  35162. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  35163. end;
  35164. procedure TSPI4_SPI4CON.setFRMCNT(thebits : TBits_3); inline;
  35165. begin
  35166. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  35167. end;
  35168. function TSPI4_SPI4CON.getFRMCNT : TBits_3; inline;
  35169. begin
  35170. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  35171. end;
  35172. procedure TSPI4_SPI4CON.setFRMSYPW; inline;
  35173. begin
  35174. pTDefRegMap(@Self)^.&set := $08000000;
  35175. end;
  35176. procedure TSPI4_SPI4CON.clearFRMSYPW; inline;
  35177. begin
  35178. pTDefRegMap(@Self)^.clr := $08000000;
  35179. end;
  35180. procedure TSPI4_SPI4CON.setFRMSYPW(thebits : TBits_1); inline;
  35181. begin
  35182. if thebits = 0 then
  35183. pTDefRegMap(@Self)^.clr := $08000000
  35184. else
  35185. pTDefRegMap(@Self)^.&set := $08000000;
  35186. end;
  35187. function TSPI4_SPI4CON.getFRMSYPW : TBits_1; inline;
  35188. begin
  35189. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  35190. end;
  35191. procedure TSPI4_SPI4CON.setMSSEN; inline;
  35192. begin
  35193. pTDefRegMap(@Self)^.&set := $10000000;
  35194. end;
  35195. procedure TSPI4_SPI4CON.clearMSSEN; inline;
  35196. begin
  35197. pTDefRegMap(@Self)^.clr := $10000000;
  35198. end;
  35199. procedure TSPI4_SPI4CON.setMSSEN(thebits : TBits_1); inline;
  35200. begin
  35201. if thebits = 0 then
  35202. pTDefRegMap(@Self)^.clr := $10000000
  35203. else
  35204. pTDefRegMap(@Self)^.&set := $10000000;
  35205. end;
  35206. function TSPI4_SPI4CON.getMSSEN : TBits_1; inline;
  35207. begin
  35208. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  35209. end;
  35210. procedure TSPI4_SPI4CON.setFRMPOL; inline;
  35211. begin
  35212. pTDefRegMap(@Self)^.&set := $20000000;
  35213. end;
  35214. procedure TSPI4_SPI4CON.clearFRMPOL; inline;
  35215. begin
  35216. pTDefRegMap(@Self)^.clr := $20000000;
  35217. end;
  35218. procedure TSPI4_SPI4CON.setFRMPOL(thebits : TBits_1); inline;
  35219. begin
  35220. if thebits = 0 then
  35221. pTDefRegMap(@Self)^.clr := $20000000
  35222. else
  35223. pTDefRegMap(@Self)^.&set := $20000000;
  35224. end;
  35225. function TSPI4_SPI4CON.getFRMPOL : TBits_1; inline;
  35226. begin
  35227. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  35228. end;
  35229. procedure TSPI4_SPI4CON.setFRMSYNC; inline;
  35230. begin
  35231. pTDefRegMap(@Self)^.&set := $40000000;
  35232. end;
  35233. procedure TSPI4_SPI4CON.clearFRMSYNC; inline;
  35234. begin
  35235. pTDefRegMap(@Self)^.clr := $40000000;
  35236. end;
  35237. procedure TSPI4_SPI4CON.setFRMSYNC(thebits : TBits_1); inline;
  35238. begin
  35239. if thebits = 0 then
  35240. pTDefRegMap(@Self)^.clr := $40000000
  35241. else
  35242. pTDefRegMap(@Self)^.&set := $40000000;
  35243. end;
  35244. function TSPI4_SPI4CON.getFRMSYNC : TBits_1; inline;
  35245. begin
  35246. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  35247. end;
  35248. procedure TSPI4_SPI4CON.setFRMEN; inline;
  35249. begin
  35250. pTDefRegMap(@Self)^.&set := $80000000;
  35251. end;
  35252. procedure TSPI4_SPI4CON.clearFRMEN; inline;
  35253. begin
  35254. pTDefRegMap(@Self)^.clr := $80000000;
  35255. end;
  35256. procedure TSPI4_SPI4CON.setFRMEN(thebits : TBits_1); inline;
  35257. begin
  35258. if thebits = 0 then
  35259. pTDefRegMap(@Self)^.clr := $80000000
  35260. else
  35261. pTDefRegMap(@Self)^.&set := $80000000;
  35262. end;
  35263. function TSPI4_SPI4CON.getFRMEN : TBits_1; inline;
  35264. begin
  35265. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  35266. end;
  35267. procedure TSPI4_SPI4CON.setw(thebits : TBits_32); inline;
  35268. begin
  35269. pTDefRegMap(@Self)^.val := thebits;
  35270. end;
  35271. function TSPI4_SPI4CON.getw : TBits_32; inline;
  35272. begin
  35273. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  35274. end;
  35275. procedure TSPI4_SPI3ASTAT.setSPIRBF; inline;
  35276. begin
  35277. pTDefRegMap(@Self)^.&set := $00000001;
  35278. end;
  35279. procedure TSPI4_SPI3ASTAT.clearSPIRBF; inline;
  35280. begin
  35281. pTDefRegMap(@Self)^.clr := $00000001;
  35282. end;
  35283. procedure TSPI4_SPI3ASTAT.setSPIRBF(thebits : TBits_1); inline;
  35284. begin
  35285. if thebits = 0 then
  35286. pTDefRegMap(@Self)^.clr := $00000001
  35287. else
  35288. pTDefRegMap(@Self)^.&set := $00000001;
  35289. end;
  35290. function TSPI4_SPI3ASTAT.getSPIRBF : TBits_1; inline;
  35291. begin
  35292. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  35293. end;
  35294. procedure TSPI4_SPI3ASTAT.setSPITBF; inline;
  35295. begin
  35296. pTDefRegMap(@Self)^.&set := $00000002;
  35297. end;
  35298. procedure TSPI4_SPI3ASTAT.clearSPITBF; inline;
  35299. begin
  35300. pTDefRegMap(@Self)^.clr := $00000002;
  35301. end;
  35302. procedure TSPI4_SPI3ASTAT.setSPITBF(thebits : TBits_1); inline;
  35303. begin
  35304. if thebits = 0 then
  35305. pTDefRegMap(@Self)^.clr := $00000002
  35306. else
  35307. pTDefRegMap(@Self)^.&set := $00000002;
  35308. end;
  35309. function TSPI4_SPI3ASTAT.getSPITBF : TBits_1; inline;
  35310. begin
  35311. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  35312. end;
  35313. procedure TSPI4_SPI3ASTAT.setSPITBE; inline;
  35314. begin
  35315. pTDefRegMap(@Self)^.&set := $00000008;
  35316. end;
  35317. procedure TSPI4_SPI3ASTAT.clearSPITBE; inline;
  35318. begin
  35319. pTDefRegMap(@Self)^.clr := $00000008;
  35320. end;
  35321. procedure TSPI4_SPI3ASTAT.setSPITBE(thebits : TBits_1); inline;
  35322. begin
  35323. if thebits = 0 then
  35324. pTDefRegMap(@Self)^.clr := $00000008
  35325. else
  35326. pTDefRegMap(@Self)^.&set := $00000008;
  35327. end;
  35328. function TSPI4_SPI3ASTAT.getSPITBE : TBits_1; inline;
  35329. begin
  35330. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  35331. end;
  35332. procedure TSPI4_SPI3ASTAT.setSPIRBE; inline;
  35333. begin
  35334. pTDefRegMap(@Self)^.&set := $00000020;
  35335. end;
  35336. procedure TSPI4_SPI3ASTAT.clearSPIRBE; inline;
  35337. begin
  35338. pTDefRegMap(@Self)^.clr := $00000020;
  35339. end;
  35340. procedure TSPI4_SPI3ASTAT.setSPIRBE(thebits : TBits_1); inline;
  35341. begin
  35342. if thebits = 0 then
  35343. pTDefRegMap(@Self)^.clr := $00000020
  35344. else
  35345. pTDefRegMap(@Self)^.&set := $00000020;
  35346. end;
  35347. function TSPI4_SPI3ASTAT.getSPIRBE : TBits_1; inline;
  35348. begin
  35349. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  35350. end;
  35351. procedure TSPI4_SPI3ASTAT.setSPIROV; inline;
  35352. begin
  35353. pTDefRegMap(@Self)^.&set := $00000040;
  35354. end;
  35355. procedure TSPI4_SPI3ASTAT.clearSPIROV; inline;
  35356. begin
  35357. pTDefRegMap(@Self)^.clr := $00000040;
  35358. end;
  35359. procedure TSPI4_SPI3ASTAT.setSPIROV(thebits : TBits_1); inline;
  35360. begin
  35361. if thebits = 0 then
  35362. pTDefRegMap(@Self)^.clr := $00000040
  35363. else
  35364. pTDefRegMap(@Self)^.&set := $00000040;
  35365. end;
  35366. function TSPI4_SPI3ASTAT.getSPIROV : TBits_1; inline;
  35367. begin
  35368. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  35369. end;
  35370. procedure TSPI4_SPI3ASTAT.setSRMT; inline;
  35371. begin
  35372. pTDefRegMap(@Self)^.&set := $00000080;
  35373. end;
  35374. procedure TSPI4_SPI3ASTAT.clearSRMT; inline;
  35375. begin
  35376. pTDefRegMap(@Self)^.clr := $00000080;
  35377. end;
  35378. procedure TSPI4_SPI3ASTAT.setSRMT(thebits : TBits_1); inline;
  35379. begin
  35380. if thebits = 0 then
  35381. pTDefRegMap(@Self)^.clr := $00000080
  35382. else
  35383. pTDefRegMap(@Self)^.&set := $00000080;
  35384. end;
  35385. function TSPI4_SPI3ASTAT.getSRMT : TBits_1; inline;
  35386. begin
  35387. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  35388. end;
  35389. procedure TSPI4_SPI3ASTAT.setSPITUR; inline;
  35390. begin
  35391. pTDefRegMap(@Self)^.&set := $00000100;
  35392. end;
  35393. procedure TSPI4_SPI3ASTAT.clearSPITUR; inline;
  35394. begin
  35395. pTDefRegMap(@Self)^.clr := $00000100;
  35396. end;
  35397. procedure TSPI4_SPI3ASTAT.setSPITUR(thebits : TBits_1); inline;
  35398. begin
  35399. if thebits = 0 then
  35400. pTDefRegMap(@Self)^.clr := $00000100
  35401. else
  35402. pTDefRegMap(@Self)^.&set := $00000100;
  35403. end;
  35404. function TSPI4_SPI3ASTAT.getSPITUR : TBits_1; inline;
  35405. begin
  35406. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  35407. end;
  35408. procedure TSPI4_SPI3ASTAT.setSPIBUSY; inline;
  35409. begin
  35410. pTDefRegMap(@Self)^.&set := $00000800;
  35411. end;
  35412. procedure TSPI4_SPI3ASTAT.clearSPIBUSY; inline;
  35413. begin
  35414. pTDefRegMap(@Self)^.clr := $00000800;
  35415. end;
  35416. procedure TSPI4_SPI3ASTAT.setSPIBUSY(thebits : TBits_1); inline;
  35417. begin
  35418. if thebits = 0 then
  35419. pTDefRegMap(@Self)^.clr := $00000800
  35420. else
  35421. pTDefRegMap(@Self)^.&set := $00000800;
  35422. end;
  35423. function TSPI4_SPI3ASTAT.getSPIBUSY : TBits_1; inline;
  35424. begin
  35425. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  35426. end;
  35427. procedure TSPI4_SPI3ASTAT.setTXBUFELM(thebits : TBits_5); inline;
  35428. begin
  35429. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  35430. end;
  35431. function TSPI4_SPI3ASTAT.getTXBUFELM : TBits_5; inline;
  35432. begin
  35433. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  35434. end;
  35435. procedure TSPI4_SPI3ASTAT.setRXBUFELM(thebits : TBits_5); inline;
  35436. begin
  35437. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  35438. end;
  35439. function TSPI4_SPI3ASTAT.getRXBUFELM : TBits_5; inline;
  35440. begin
  35441. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  35442. end;
  35443. procedure TSPI4_SPI3ASTAT.setw(thebits : TBits_32); inline;
  35444. begin
  35445. pTDefRegMap(@Self)^.val := thebits;
  35446. end;
  35447. function TSPI4_SPI3ASTAT.getw : TBits_32; inline;
  35448. begin
  35449. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  35450. end;
  35451. procedure TSPI4_SPI4STAT.setSPIRBF; inline;
  35452. begin
  35453. pTDefRegMap(@Self)^.&set := $00000001;
  35454. end;
  35455. procedure TSPI4_SPI4STAT.clearSPIRBF; inline;
  35456. begin
  35457. pTDefRegMap(@Self)^.clr := $00000001;
  35458. end;
  35459. procedure TSPI4_SPI4STAT.setSPIRBF(thebits : TBits_1); inline;
  35460. begin
  35461. if thebits = 0 then
  35462. pTDefRegMap(@Self)^.clr := $00000001
  35463. else
  35464. pTDefRegMap(@Self)^.&set := $00000001;
  35465. end;
  35466. function TSPI4_SPI4STAT.getSPIRBF : TBits_1; inline;
  35467. begin
  35468. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  35469. end;
  35470. procedure TSPI4_SPI4STAT.setSPITBF; inline;
  35471. begin
  35472. pTDefRegMap(@Self)^.&set := $00000002;
  35473. end;
  35474. procedure TSPI4_SPI4STAT.clearSPITBF; inline;
  35475. begin
  35476. pTDefRegMap(@Self)^.clr := $00000002;
  35477. end;
  35478. procedure TSPI4_SPI4STAT.setSPITBF(thebits : TBits_1); inline;
  35479. begin
  35480. if thebits = 0 then
  35481. pTDefRegMap(@Self)^.clr := $00000002
  35482. else
  35483. pTDefRegMap(@Self)^.&set := $00000002;
  35484. end;
  35485. function TSPI4_SPI4STAT.getSPITBF : TBits_1; inline;
  35486. begin
  35487. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  35488. end;
  35489. procedure TSPI4_SPI4STAT.setSPITBE; inline;
  35490. begin
  35491. pTDefRegMap(@Self)^.&set := $00000008;
  35492. end;
  35493. procedure TSPI4_SPI4STAT.clearSPITBE; inline;
  35494. begin
  35495. pTDefRegMap(@Self)^.clr := $00000008;
  35496. end;
  35497. procedure TSPI4_SPI4STAT.setSPITBE(thebits : TBits_1); inline;
  35498. begin
  35499. if thebits = 0 then
  35500. pTDefRegMap(@Self)^.clr := $00000008
  35501. else
  35502. pTDefRegMap(@Self)^.&set := $00000008;
  35503. end;
  35504. function TSPI4_SPI4STAT.getSPITBE : TBits_1; inline;
  35505. begin
  35506. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  35507. end;
  35508. procedure TSPI4_SPI4STAT.setSPIRBE; inline;
  35509. begin
  35510. pTDefRegMap(@Self)^.&set := $00000020;
  35511. end;
  35512. procedure TSPI4_SPI4STAT.clearSPIRBE; inline;
  35513. begin
  35514. pTDefRegMap(@Self)^.clr := $00000020;
  35515. end;
  35516. procedure TSPI4_SPI4STAT.setSPIRBE(thebits : TBits_1); inline;
  35517. begin
  35518. if thebits = 0 then
  35519. pTDefRegMap(@Self)^.clr := $00000020
  35520. else
  35521. pTDefRegMap(@Self)^.&set := $00000020;
  35522. end;
  35523. function TSPI4_SPI4STAT.getSPIRBE : TBits_1; inline;
  35524. begin
  35525. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  35526. end;
  35527. procedure TSPI4_SPI4STAT.setSPIROV; inline;
  35528. begin
  35529. pTDefRegMap(@Self)^.&set := $00000040;
  35530. end;
  35531. procedure TSPI4_SPI4STAT.clearSPIROV; inline;
  35532. begin
  35533. pTDefRegMap(@Self)^.clr := $00000040;
  35534. end;
  35535. procedure TSPI4_SPI4STAT.setSPIROV(thebits : TBits_1); inline;
  35536. begin
  35537. if thebits = 0 then
  35538. pTDefRegMap(@Self)^.clr := $00000040
  35539. else
  35540. pTDefRegMap(@Self)^.&set := $00000040;
  35541. end;
  35542. function TSPI4_SPI4STAT.getSPIROV : TBits_1; inline;
  35543. begin
  35544. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  35545. end;
  35546. procedure TSPI4_SPI4STAT.setSRMT; inline;
  35547. begin
  35548. pTDefRegMap(@Self)^.&set := $00000080;
  35549. end;
  35550. procedure TSPI4_SPI4STAT.clearSRMT; inline;
  35551. begin
  35552. pTDefRegMap(@Self)^.clr := $00000080;
  35553. end;
  35554. procedure TSPI4_SPI4STAT.setSRMT(thebits : TBits_1); inline;
  35555. begin
  35556. if thebits = 0 then
  35557. pTDefRegMap(@Self)^.clr := $00000080
  35558. else
  35559. pTDefRegMap(@Self)^.&set := $00000080;
  35560. end;
  35561. function TSPI4_SPI4STAT.getSRMT : TBits_1; inline;
  35562. begin
  35563. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  35564. end;
  35565. procedure TSPI4_SPI4STAT.setSPITUR; inline;
  35566. begin
  35567. pTDefRegMap(@Self)^.&set := $00000100;
  35568. end;
  35569. procedure TSPI4_SPI4STAT.clearSPITUR; inline;
  35570. begin
  35571. pTDefRegMap(@Self)^.clr := $00000100;
  35572. end;
  35573. procedure TSPI4_SPI4STAT.setSPITUR(thebits : TBits_1); inline;
  35574. begin
  35575. if thebits = 0 then
  35576. pTDefRegMap(@Self)^.clr := $00000100
  35577. else
  35578. pTDefRegMap(@Self)^.&set := $00000100;
  35579. end;
  35580. function TSPI4_SPI4STAT.getSPITUR : TBits_1; inline;
  35581. begin
  35582. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  35583. end;
  35584. procedure TSPI4_SPI4STAT.setSPIBUSY; inline;
  35585. begin
  35586. pTDefRegMap(@Self)^.&set := $00000800;
  35587. end;
  35588. procedure TSPI4_SPI4STAT.clearSPIBUSY; inline;
  35589. begin
  35590. pTDefRegMap(@Self)^.clr := $00000800;
  35591. end;
  35592. procedure TSPI4_SPI4STAT.setSPIBUSY(thebits : TBits_1); inline;
  35593. begin
  35594. if thebits = 0 then
  35595. pTDefRegMap(@Self)^.clr := $00000800
  35596. else
  35597. pTDefRegMap(@Self)^.&set := $00000800;
  35598. end;
  35599. function TSPI4_SPI4STAT.getSPIBUSY : TBits_1; inline;
  35600. begin
  35601. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  35602. end;
  35603. procedure TSPI4_SPI4STAT.setTXBUFELM(thebits : TBits_5); inline;
  35604. begin
  35605. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  35606. end;
  35607. function TSPI4_SPI4STAT.getTXBUFELM : TBits_5; inline;
  35608. begin
  35609. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  35610. end;
  35611. procedure TSPI4_SPI4STAT.setRXBUFELM(thebits : TBits_5); inline;
  35612. begin
  35613. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  35614. end;
  35615. function TSPI4_SPI4STAT.getRXBUFELM : TBits_5; inline;
  35616. begin
  35617. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  35618. end;
  35619. procedure TSPI4_SPI4STAT.setw(thebits : TBits_32); inline;
  35620. begin
  35621. pTDefRegMap(@Self)^.val := thebits;
  35622. end;
  35623. function TSPI4_SPI4STAT.getw : TBits_32; inline;
  35624. begin
  35625. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  35626. end;
  35627. procedure TSPI1_SPI1CON.setSRXISEL(thebits : TBits_2); inline;
  35628. begin
  35629. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  35630. end;
  35631. function TSPI1_SPI1CON.getSRXISEL : TBits_2; inline;
  35632. begin
  35633. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  35634. end;
  35635. procedure TSPI1_SPI1CON.setSTXISEL(thebits : TBits_2); inline;
  35636. begin
  35637. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  35638. end;
  35639. function TSPI1_SPI1CON.getSTXISEL : TBits_2; inline;
  35640. begin
  35641. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  35642. end;
  35643. procedure TSPI1_SPI1CON.setMSTEN; inline;
  35644. begin
  35645. pTDefRegMap(@Self)^.&set := $00000020;
  35646. end;
  35647. procedure TSPI1_SPI1CON.clearMSTEN; inline;
  35648. begin
  35649. pTDefRegMap(@Self)^.clr := $00000020;
  35650. end;
  35651. procedure TSPI1_SPI1CON.setMSTEN(thebits : TBits_1); inline;
  35652. begin
  35653. if thebits = 0 then
  35654. pTDefRegMap(@Self)^.clr := $00000020
  35655. else
  35656. pTDefRegMap(@Self)^.&set := $00000020;
  35657. end;
  35658. function TSPI1_SPI1CON.getMSTEN : TBits_1; inline;
  35659. begin
  35660. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  35661. end;
  35662. procedure TSPI1_SPI1CON.setCKP; inline;
  35663. begin
  35664. pTDefRegMap(@Self)^.&set := $00000040;
  35665. end;
  35666. procedure TSPI1_SPI1CON.clearCKP; inline;
  35667. begin
  35668. pTDefRegMap(@Self)^.clr := $00000040;
  35669. end;
  35670. procedure TSPI1_SPI1CON.setCKP(thebits : TBits_1); inline;
  35671. begin
  35672. if thebits = 0 then
  35673. pTDefRegMap(@Self)^.clr := $00000040
  35674. else
  35675. pTDefRegMap(@Self)^.&set := $00000040;
  35676. end;
  35677. function TSPI1_SPI1CON.getCKP : TBits_1; inline;
  35678. begin
  35679. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  35680. end;
  35681. procedure TSPI1_SPI1CON.setSSEN; inline;
  35682. begin
  35683. pTDefRegMap(@Self)^.&set := $00000080;
  35684. end;
  35685. procedure TSPI1_SPI1CON.clearSSEN; inline;
  35686. begin
  35687. pTDefRegMap(@Self)^.clr := $00000080;
  35688. end;
  35689. procedure TSPI1_SPI1CON.setSSEN(thebits : TBits_1); inline;
  35690. begin
  35691. if thebits = 0 then
  35692. pTDefRegMap(@Self)^.clr := $00000080
  35693. else
  35694. pTDefRegMap(@Self)^.&set := $00000080;
  35695. end;
  35696. function TSPI1_SPI1CON.getSSEN : TBits_1; inline;
  35697. begin
  35698. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  35699. end;
  35700. procedure TSPI1_SPI1CON.setCKE; inline;
  35701. begin
  35702. pTDefRegMap(@Self)^.&set := $00000100;
  35703. end;
  35704. procedure TSPI1_SPI1CON.clearCKE; inline;
  35705. begin
  35706. pTDefRegMap(@Self)^.clr := $00000100;
  35707. end;
  35708. procedure TSPI1_SPI1CON.setCKE(thebits : TBits_1); inline;
  35709. begin
  35710. if thebits = 0 then
  35711. pTDefRegMap(@Self)^.clr := $00000100
  35712. else
  35713. pTDefRegMap(@Self)^.&set := $00000100;
  35714. end;
  35715. function TSPI1_SPI1CON.getCKE : TBits_1; inline;
  35716. begin
  35717. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  35718. end;
  35719. procedure TSPI1_SPI1CON.setSMP; inline;
  35720. begin
  35721. pTDefRegMap(@Self)^.&set := $00000200;
  35722. end;
  35723. procedure TSPI1_SPI1CON.clearSMP; inline;
  35724. begin
  35725. pTDefRegMap(@Self)^.clr := $00000200;
  35726. end;
  35727. procedure TSPI1_SPI1CON.setSMP(thebits : TBits_1); inline;
  35728. begin
  35729. if thebits = 0 then
  35730. pTDefRegMap(@Self)^.clr := $00000200
  35731. else
  35732. pTDefRegMap(@Self)^.&set := $00000200;
  35733. end;
  35734. function TSPI1_SPI1CON.getSMP : TBits_1; inline;
  35735. begin
  35736. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  35737. end;
  35738. procedure TSPI1_SPI1CON.setMODE16; inline;
  35739. begin
  35740. pTDefRegMap(@Self)^.&set := $00000400;
  35741. end;
  35742. procedure TSPI1_SPI1CON.clearMODE16; inline;
  35743. begin
  35744. pTDefRegMap(@Self)^.clr := $00000400;
  35745. end;
  35746. procedure TSPI1_SPI1CON.setMODE16(thebits : TBits_1); inline;
  35747. begin
  35748. if thebits = 0 then
  35749. pTDefRegMap(@Self)^.clr := $00000400
  35750. else
  35751. pTDefRegMap(@Self)^.&set := $00000400;
  35752. end;
  35753. function TSPI1_SPI1CON.getMODE16 : TBits_1; inline;
  35754. begin
  35755. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  35756. end;
  35757. procedure TSPI1_SPI1CON.setMODE32; inline;
  35758. begin
  35759. pTDefRegMap(@Self)^.&set := $00000800;
  35760. end;
  35761. procedure TSPI1_SPI1CON.clearMODE32; inline;
  35762. begin
  35763. pTDefRegMap(@Self)^.clr := $00000800;
  35764. end;
  35765. procedure TSPI1_SPI1CON.setMODE32(thebits : TBits_1); inline;
  35766. begin
  35767. if thebits = 0 then
  35768. pTDefRegMap(@Self)^.clr := $00000800
  35769. else
  35770. pTDefRegMap(@Self)^.&set := $00000800;
  35771. end;
  35772. function TSPI1_SPI1CON.getMODE32 : TBits_1; inline;
  35773. begin
  35774. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  35775. end;
  35776. procedure TSPI1_SPI1CON.setDISSDO; inline;
  35777. begin
  35778. pTDefRegMap(@Self)^.&set := $00001000;
  35779. end;
  35780. procedure TSPI1_SPI1CON.clearDISSDO; inline;
  35781. begin
  35782. pTDefRegMap(@Self)^.clr := $00001000;
  35783. end;
  35784. procedure TSPI1_SPI1CON.setDISSDO(thebits : TBits_1); inline;
  35785. begin
  35786. if thebits = 0 then
  35787. pTDefRegMap(@Self)^.clr := $00001000
  35788. else
  35789. pTDefRegMap(@Self)^.&set := $00001000;
  35790. end;
  35791. function TSPI1_SPI1CON.getDISSDO : TBits_1; inline;
  35792. begin
  35793. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  35794. end;
  35795. procedure TSPI1_SPI1CON.setSIDL; inline;
  35796. begin
  35797. pTDefRegMap(@Self)^.&set := $00002000;
  35798. end;
  35799. procedure TSPI1_SPI1CON.clearSIDL; inline;
  35800. begin
  35801. pTDefRegMap(@Self)^.clr := $00002000;
  35802. end;
  35803. procedure TSPI1_SPI1CON.setSIDL(thebits : TBits_1); inline;
  35804. begin
  35805. if thebits = 0 then
  35806. pTDefRegMap(@Self)^.clr := $00002000
  35807. else
  35808. pTDefRegMap(@Self)^.&set := $00002000;
  35809. end;
  35810. function TSPI1_SPI1CON.getSIDL : TBits_1; inline;
  35811. begin
  35812. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  35813. end;
  35814. procedure TSPI1_SPI1CON.setON; inline;
  35815. begin
  35816. pTDefRegMap(@Self)^.&set := $00008000;
  35817. end;
  35818. procedure TSPI1_SPI1CON.clearON; inline;
  35819. begin
  35820. pTDefRegMap(@Self)^.clr := $00008000;
  35821. end;
  35822. procedure TSPI1_SPI1CON.setON(thebits : TBits_1); inline;
  35823. begin
  35824. if thebits = 0 then
  35825. pTDefRegMap(@Self)^.clr := $00008000
  35826. else
  35827. pTDefRegMap(@Self)^.&set := $00008000;
  35828. end;
  35829. function TSPI1_SPI1CON.getON : TBits_1; inline;
  35830. begin
  35831. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  35832. end;
  35833. procedure TSPI1_SPI1CON.setENHBUF; inline;
  35834. begin
  35835. pTDefRegMap(@Self)^.&set := $00010000;
  35836. end;
  35837. procedure TSPI1_SPI1CON.clearENHBUF; inline;
  35838. begin
  35839. pTDefRegMap(@Self)^.clr := $00010000;
  35840. end;
  35841. procedure TSPI1_SPI1CON.setENHBUF(thebits : TBits_1); inline;
  35842. begin
  35843. if thebits = 0 then
  35844. pTDefRegMap(@Self)^.clr := $00010000
  35845. else
  35846. pTDefRegMap(@Self)^.&set := $00010000;
  35847. end;
  35848. function TSPI1_SPI1CON.getENHBUF : TBits_1; inline;
  35849. begin
  35850. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  35851. end;
  35852. procedure TSPI1_SPI1CON.setSPIFE; inline;
  35853. begin
  35854. pTDefRegMap(@Self)^.&set := $00020000;
  35855. end;
  35856. procedure TSPI1_SPI1CON.clearSPIFE; inline;
  35857. begin
  35858. pTDefRegMap(@Self)^.clr := $00020000;
  35859. end;
  35860. procedure TSPI1_SPI1CON.setSPIFE(thebits : TBits_1); inline;
  35861. begin
  35862. if thebits = 0 then
  35863. pTDefRegMap(@Self)^.clr := $00020000
  35864. else
  35865. pTDefRegMap(@Self)^.&set := $00020000;
  35866. end;
  35867. function TSPI1_SPI1CON.getSPIFE : TBits_1; inline;
  35868. begin
  35869. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  35870. end;
  35871. procedure TSPI1_SPI1CON.setFRMCNT(thebits : TBits_3); inline;
  35872. begin
  35873. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  35874. end;
  35875. function TSPI1_SPI1CON.getFRMCNT : TBits_3; inline;
  35876. begin
  35877. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  35878. end;
  35879. procedure TSPI1_SPI1CON.setFRMSYPW; inline;
  35880. begin
  35881. pTDefRegMap(@Self)^.&set := $08000000;
  35882. end;
  35883. procedure TSPI1_SPI1CON.clearFRMSYPW; inline;
  35884. begin
  35885. pTDefRegMap(@Self)^.clr := $08000000;
  35886. end;
  35887. procedure TSPI1_SPI1CON.setFRMSYPW(thebits : TBits_1); inline;
  35888. begin
  35889. if thebits = 0 then
  35890. pTDefRegMap(@Self)^.clr := $08000000
  35891. else
  35892. pTDefRegMap(@Self)^.&set := $08000000;
  35893. end;
  35894. function TSPI1_SPI1CON.getFRMSYPW : TBits_1; inline;
  35895. begin
  35896. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  35897. end;
  35898. procedure TSPI1_SPI1CON.setMSSEN; inline;
  35899. begin
  35900. pTDefRegMap(@Self)^.&set := $10000000;
  35901. end;
  35902. procedure TSPI1_SPI1CON.clearMSSEN; inline;
  35903. begin
  35904. pTDefRegMap(@Self)^.clr := $10000000;
  35905. end;
  35906. procedure TSPI1_SPI1CON.setMSSEN(thebits : TBits_1); inline;
  35907. begin
  35908. if thebits = 0 then
  35909. pTDefRegMap(@Self)^.clr := $10000000
  35910. else
  35911. pTDefRegMap(@Self)^.&set := $10000000;
  35912. end;
  35913. function TSPI1_SPI1CON.getMSSEN : TBits_1; inline;
  35914. begin
  35915. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  35916. end;
  35917. procedure TSPI1_SPI1CON.setFRMPOL; inline;
  35918. begin
  35919. pTDefRegMap(@Self)^.&set := $20000000;
  35920. end;
  35921. procedure TSPI1_SPI1CON.clearFRMPOL; inline;
  35922. begin
  35923. pTDefRegMap(@Self)^.clr := $20000000;
  35924. end;
  35925. procedure TSPI1_SPI1CON.setFRMPOL(thebits : TBits_1); inline;
  35926. begin
  35927. if thebits = 0 then
  35928. pTDefRegMap(@Self)^.clr := $20000000
  35929. else
  35930. pTDefRegMap(@Self)^.&set := $20000000;
  35931. end;
  35932. function TSPI1_SPI1CON.getFRMPOL : TBits_1; inline;
  35933. begin
  35934. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  35935. end;
  35936. procedure TSPI1_SPI1CON.setFRMSYNC; inline;
  35937. begin
  35938. pTDefRegMap(@Self)^.&set := $40000000;
  35939. end;
  35940. procedure TSPI1_SPI1CON.clearFRMSYNC; inline;
  35941. begin
  35942. pTDefRegMap(@Self)^.clr := $40000000;
  35943. end;
  35944. procedure TSPI1_SPI1CON.setFRMSYNC(thebits : TBits_1); inline;
  35945. begin
  35946. if thebits = 0 then
  35947. pTDefRegMap(@Self)^.clr := $40000000
  35948. else
  35949. pTDefRegMap(@Self)^.&set := $40000000;
  35950. end;
  35951. function TSPI1_SPI1CON.getFRMSYNC : TBits_1; inline;
  35952. begin
  35953. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  35954. end;
  35955. procedure TSPI1_SPI1CON.setFRMEN; inline;
  35956. begin
  35957. pTDefRegMap(@Self)^.&set := $80000000;
  35958. end;
  35959. procedure TSPI1_SPI1CON.clearFRMEN; inline;
  35960. begin
  35961. pTDefRegMap(@Self)^.clr := $80000000;
  35962. end;
  35963. procedure TSPI1_SPI1CON.setFRMEN(thebits : TBits_1); inline;
  35964. begin
  35965. if thebits = 0 then
  35966. pTDefRegMap(@Self)^.clr := $80000000
  35967. else
  35968. pTDefRegMap(@Self)^.&set := $80000000;
  35969. end;
  35970. function TSPI1_SPI1CON.getFRMEN : TBits_1; inline;
  35971. begin
  35972. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  35973. end;
  35974. procedure TSPI1_SPI1CON.setw(thebits : TBits_32); inline;
  35975. begin
  35976. pTDefRegMap(@Self)^.val := thebits;
  35977. end;
  35978. function TSPI1_SPI1CON.getw : TBits_32; inline;
  35979. begin
  35980. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  35981. end;
  35982. procedure TSPI1_SPI1STAT.setSPIRBF; inline;
  35983. begin
  35984. pTDefRegMap(@Self)^.&set := $00000001;
  35985. end;
  35986. procedure TSPI1_SPI1STAT.clearSPIRBF; inline;
  35987. begin
  35988. pTDefRegMap(@Self)^.clr := $00000001;
  35989. end;
  35990. procedure TSPI1_SPI1STAT.setSPIRBF(thebits : TBits_1); inline;
  35991. begin
  35992. if thebits = 0 then
  35993. pTDefRegMap(@Self)^.clr := $00000001
  35994. else
  35995. pTDefRegMap(@Self)^.&set := $00000001;
  35996. end;
  35997. function TSPI1_SPI1STAT.getSPIRBF : TBits_1; inline;
  35998. begin
  35999. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  36000. end;
  36001. procedure TSPI1_SPI1STAT.setSPITBF; inline;
  36002. begin
  36003. pTDefRegMap(@Self)^.&set := $00000002;
  36004. end;
  36005. procedure TSPI1_SPI1STAT.clearSPITBF; inline;
  36006. begin
  36007. pTDefRegMap(@Self)^.clr := $00000002;
  36008. end;
  36009. procedure TSPI1_SPI1STAT.setSPITBF(thebits : TBits_1); inline;
  36010. begin
  36011. if thebits = 0 then
  36012. pTDefRegMap(@Self)^.clr := $00000002
  36013. else
  36014. pTDefRegMap(@Self)^.&set := $00000002;
  36015. end;
  36016. function TSPI1_SPI1STAT.getSPITBF : TBits_1; inline;
  36017. begin
  36018. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  36019. end;
  36020. procedure TSPI1_SPI1STAT.setSPITBE; inline;
  36021. begin
  36022. pTDefRegMap(@Self)^.&set := $00000008;
  36023. end;
  36024. procedure TSPI1_SPI1STAT.clearSPITBE; inline;
  36025. begin
  36026. pTDefRegMap(@Self)^.clr := $00000008;
  36027. end;
  36028. procedure TSPI1_SPI1STAT.setSPITBE(thebits : TBits_1); inline;
  36029. begin
  36030. if thebits = 0 then
  36031. pTDefRegMap(@Self)^.clr := $00000008
  36032. else
  36033. pTDefRegMap(@Self)^.&set := $00000008;
  36034. end;
  36035. function TSPI1_SPI1STAT.getSPITBE : TBits_1; inline;
  36036. begin
  36037. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  36038. end;
  36039. procedure TSPI1_SPI1STAT.setSPIRBE; inline;
  36040. begin
  36041. pTDefRegMap(@Self)^.&set := $00000020;
  36042. end;
  36043. procedure TSPI1_SPI1STAT.clearSPIRBE; inline;
  36044. begin
  36045. pTDefRegMap(@Self)^.clr := $00000020;
  36046. end;
  36047. procedure TSPI1_SPI1STAT.setSPIRBE(thebits : TBits_1); inline;
  36048. begin
  36049. if thebits = 0 then
  36050. pTDefRegMap(@Self)^.clr := $00000020
  36051. else
  36052. pTDefRegMap(@Self)^.&set := $00000020;
  36053. end;
  36054. function TSPI1_SPI1STAT.getSPIRBE : TBits_1; inline;
  36055. begin
  36056. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  36057. end;
  36058. procedure TSPI1_SPI1STAT.setSPIROV; inline;
  36059. begin
  36060. pTDefRegMap(@Self)^.&set := $00000040;
  36061. end;
  36062. procedure TSPI1_SPI1STAT.clearSPIROV; inline;
  36063. begin
  36064. pTDefRegMap(@Self)^.clr := $00000040;
  36065. end;
  36066. procedure TSPI1_SPI1STAT.setSPIROV(thebits : TBits_1); inline;
  36067. begin
  36068. if thebits = 0 then
  36069. pTDefRegMap(@Self)^.clr := $00000040
  36070. else
  36071. pTDefRegMap(@Self)^.&set := $00000040;
  36072. end;
  36073. function TSPI1_SPI1STAT.getSPIROV : TBits_1; inline;
  36074. begin
  36075. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  36076. end;
  36077. procedure TSPI1_SPI1STAT.setSRMT; inline;
  36078. begin
  36079. pTDefRegMap(@Self)^.&set := $00000080;
  36080. end;
  36081. procedure TSPI1_SPI1STAT.clearSRMT; inline;
  36082. begin
  36083. pTDefRegMap(@Self)^.clr := $00000080;
  36084. end;
  36085. procedure TSPI1_SPI1STAT.setSRMT(thebits : TBits_1); inline;
  36086. begin
  36087. if thebits = 0 then
  36088. pTDefRegMap(@Self)^.clr := $00000080
  36089. else
  36090. pTDefRegMap(@Self)^.&set := $00000080;
  36091. end;
  36092. function TSPI1_SPI1STAT.getSRMT : TBits_1; inline;
  36093. begin
  36094. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  36095. end;
  36096. procedure TSPI1_SPI1STAT.setSPITUR; inline;
  36097. begin
  36098. pTDefRegMap(@Self)^.&set := $00000100;
  36099. end;
  36100. procedure TSPI1_SPI1STAT.clearSPITUR; inline;
  36101. begin
  36102. pTDefRegMap(@Self)^.clr := $00000100;
  36103. end;
  36104. procedure TSPI1_SPI1STAT.setSPITUR(thebits : TBits_1); inline;
  36105. begin
  36106. if thebits = 0 then
  36107. pTDefRegMap(@Self)^.clr := $00000100
  36108. else
  36109. pTDefRegMap(@Self)^.&set := $00000100;
  36110. end;
  36111. function TSPI1_SPI1STAT.getSPITUR : TBits_1; inline;
  36112. begin
  36113. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  36114. end;
  36115. procedure TSPI1_SPI1STAT.setSPIBUSY; inline;
  36116. begin
  36117. pTDefRegMap(@Self)^.&set := $00000800;
  36118. end;
  36119. procedure TSPI1_SPI1STAT.clearSPIBUSY; inline;
  36120. begin
  36121. pTDefRegMap(@Self)^.clr := $00000800;
  36122. end;
  36123. procedure TSPI1_SPI1STAT.setSPIBUSY(thebits : TBits_1); inline;
  36124. begin
  36125. if thebits = 0 then
  36126. pTDefRegMap(@Self)^.clr := $00000800
  36127. else
  36128. pTDefRegMap(@Self)^.&set := $00000800;
  36129. end;
  36130. function TSPI1_SPI1STAT.getSPIBUSY : TBits_1; inline;
  36131. begin
  36132. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  36133. end;
  36134. procedure TSPI1_SPI1STAT.setTXBUFELM(thebits : TBits_5); inline;
  36135. begin
  36136. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  36137. end;
  36138. function TSPI1_SPI1STAT.getTXBUFELM : TBits_5; inline;
  36139. begin
  36140. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  36141. end;
  36142. procedure TSPI1_SPI1STAT.setRXBUFELM(thebits : TBits_5); inline;
  36143. begin
  36144. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  36145. end;
  36146. function TSPI1_SPI1STAT.getRXBUFELM : TBits_5; inline;
  36147. begin
  36148. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  36149. end;
  36150. procedure TSPI1_SPI1STAT.setw(thebits : TBits_32); inline;
  36151. begin
  36152. pTDefRegMap(@Self)^.val := thebits;
  36153. end;
  36154. function TSPI1_SPI1STAT.getw : TBits_32; inline;
  36155. begin
  36156. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  36157. end;
  36158. procedure TUART1A_U1AMODE.setSTSEL; inline;
  36159. begin
  36160. pTDefRegMap(@Self)^.&set := $00000001;
  36161. end;
  36162. procedure TUART1A_U1AMODE.clearSTSEL; inline;
  36163. begin
  36164. pTDefRegMap(@Self)^.clr := $00000001;
  36165. end;
  36166. procedure TUART1A_U1AMODE.setSTSEL(thebits : TBits_1); inline;
  36167. begin
  36168. if thebits = 0 then
  36169. pTDefRegMap(@Self)^.clr := $00000001
  36170. else
  36171. pTDefRegMap(@Self)^.&set := $00000001;
  36172. end;
  36173. function TUART1A_U1AMODE.getSTSEL : TBits_1; inline;
  36174. begin
  36175. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  36176. end;
  36177. procedure TUART1A_U1AMODE.setPDSEL(thebits : TBits_2); inline;
  36178. begin
  36179. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  36180. end;
  36181. function TUART1A_U1AMODE.getPDSEL : TBits_2; inline;
  36182. begin
  36183. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  36184. end;
  36185. procedure TUART1A_U1AMODE.setBRGH; inline;
  36186. begin
  36187. pTDefRegMap(@Self)^.&set := $00000008;
  36188. end;
  36189. procedure TUART1A_U1AMODE.clearBRGH; inline;
  36190. begin
  36191. pTDefRegMap(@Self)^.clr := $00000008;
  36192. end;
  36193. procedure TUART1A_U1AMODE.setBRGH(thebits : TBits_1); inline;
  36194. begin
  36195. if thebits = 0 then
  36196. pTDefRegMap(@Self)^.clr := $00000008
  36197. else
  36198. pTDefRegMap(@Self)^.&set := $00000008;
  36199. end;
  36200. function TUART1A_U1AMODE.getBRGH : TBits_1; inline;
  36201. begin
  36202. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  36203. end;
  36204. procedure TUART1A_U1AMODE.setRXINV; inline;
  36205. begin
  36206. pTDefRegMap(@Self)^.&set := $00000010;
  36207. end;
  36208. procedure TUART1A_U1AMODE.clearRXINV; inline;
  36209. begin
  36210. pTDefRegMap(@Self)^.clr := $00000010;
  36211. end;
  36212. procedure TUART1A_U1AMODE.setRXINV(thebits : TBits_1); inline;
  36213. begin
  36214. if thebits = 0 then
  36215. pTDefRegMap(@Self)^.clr := $00000010
  36216. else
  36217. pTDefRegMap(@Self)^.&set := $00000010;
  36218. end;
  36219. function TUART1A_U1AMODE.getRXINV : TBits_1; inline;
  36220. begin
  36221. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  36222. end;
  36223. procedure TUART1A_U1AMODE.setABAUD; inline;
  36224. begin
  36225. pTDefRegMap(@Self)^.&set := $00000020;
  36226. end;
  36227. procedure TUART1A_U1AMODE.clearABAUD; inline;
  36228. begin
  36229. pTDefRegMap(@Self)^.clr := $00000020;
  36230. end;
  36231. procedure TUART1A_U1AMODE.setABAUD(thebits : TBits_1); inline;
  36232. begin
  36233. if thebits = 0 then
  36234. pTDefRegMap(@Self)^.clr := $00000020
  36235. else
  36236. pTDefRegMap(@Self)^.&set := $00000020;
  36237. end;
  36238. function TUART1A_U1AMODE.getABAUD : TBits_1; inline;
  36239. begin
  36240. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  36241. end;
  36242. procedure TUART1A_U1AMODE.setLPBACK; inline;
  36243. begin
  36244. pTDefRegMap(@Self)^.&set := $00000040;
  36245. end;
  36246. procedure TUART1A_U1AMODE.clearLPBACK; inline;
  36247. begin
  36248. pTDefRegMap(@Self)^.clr := $00000040;
  36249. end;
  36250. procedure TUART1A_U1AMODE.setLPBACK(thebits : TBits_1); inline;
  36251. begin
  36252. if thebits = 0 then
  36253. pTDefRegMap(@Self)^.clr := $00000040
  36254. else
  36255. pTDefRegMap(@Self)^.&set := $00000040;
  36256. end;
  36257. function TUART1A_U1AMODE.getLPBACK : TBits_1; inline;
  36258. begin
  36259. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  36260. end;
  36261. procedure TUART1A_U1AMODE.setWAKE; inline;
  36262. begin
  36263. pTDefRegMap(@Self)^.&set := $00000080;
  36264. end;
  36265. procedure TUART1A_U1AMODE.clearWAKE; inline;
  36266. begin
  36267. pTDefRegMap(@Self)^.clr := $00000080;
  36268. end;
  36269. procedure TUART1A_U1AMODE.setWAKE(thebits : TBits_1); inline;
  36270. begin
  36271. if thebits = 0 then
  36272. pTDefRegMap(@Self)^.clr := $00000080
  36273. else
  36274. pTDefRegMap(@Self)^.&set := $00000080;
  36275. end;
  36276. function TUART1A_U1AMODE.getWAKE : TBits_1; inline;
  36277. begin
  36278. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  36279. end;
  36280. procedure TUART1A_U1AMODE.setUEN(thebits : TBits_2); inline;
  36281. begin
  36282. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  36283. end;
  36284. function TUART1A_U1AMODE.getUEN : TBits_2; inline;
  36285. begin
  36286. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  36287. end;
  36288. procedure TUART1A_U1AMODE.setRTSMD; inline;
  36289. begin
  36290. pTDefRegMap(@Self)^.&set := $00000800;
  36291. end;
  36292. procedure TUART1A_U1AMODE.clearRTSMD; inline;
  36293. begin
  36294. pTDefRegMap(@Self)^.clr := $00000800;
  36295. end;
  36296. procedure TUART1A_U1AMODE.setRTSMD(thebits : TBits_1); inline;
  36297. begin
  36298. if thebits = 0 then
  36299. pTDefRegMap(@Self)^.clr := $00000800
  36300. else
  36301. pTDefRegMap(@Self)^.&set := $00000800;
  36302. end;
  36303. function TUART1A_U1AMODE.getRTSMD : TBits_1; inline;
  36304. begin
  36305. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  36306. end;
  36307. procedure TUART1A_U1AMODE.setIREN; inline;
  36308. begin
  36309. pTDefRegMap(@Self)^.&set := $00001000;
  36310. end;
  36311. procedure TUART1A_U1AMODE.clearIREN; inline;
  36312. begin
  36313. pTDefRegMap(@Self)^.clr := $00001000;
  36314. end;
  36315. procedure TUART1A_U1AMODE.setIREN(thebits : TBits_1); inline;
  36316. begin
  36317. if thebits = 0 then
  36318. pTDefRegMap(@Self)^.clr := $00001000
  36319. else
  36320. pTDefRegMap(@Self)^.&set := $00001000;
  36321. end;
  36322. function TUART1A_U1AMODE.getIREN : TBits_1; inline;
  36323. begin
  36324. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  36325. end;
  36326. procedure TUART1A_U1AMODE.setSIDL; inline;
  36327. begin
  36328. pTDefRegMap(@Self)^.&set := $00002000;
  36329. end;
  36330. procedure TUART1A_U1AMODE.clearSIDL; inline;
  36331. begin
  36332. pTDefRegMap(@Self)^.clr := $00002000;
  36333. end;
  36334. procedure TUART1A_U1AMODE.setSIDL(thebits : TBits_1); inline;
  36335. begin
  36336. if thebits = 0 then
  36337. pTDefRegMap(@Self)^.clr := $00002000
  36338. else
  36339. pTDefRegMap(@Self)^.&set := $00002000;
  36340. end;
  36341. function TUART1A_U1AMODE.getSIDL : TBits_1; inline;
  36342. begin
  36343. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  36344. end;
  36345. procedure TUART1A_U1AMODE.setON; inline;
  36346. begin
  36347. pTDefRegMap(@Self)^.&set := $00008000;
  36348. end;
  36349. procedure TUART1A_U1AMODE.clearON; inline;
  36350. begin
  36351. pTDefRegMap(@Self)^.clr := $00008000;
  36352. end;
  36353. procedure TUART1A_U1AMODE.setON(thebits : TBits_1); inline;
  36354. begin
  36355. if thebits = 0 then
  36356. pTDefRegMap(@Self)^.clr := $00008000
  36357. else
  36358. pTDefRegMap(@Self)^.&set := $00008000;
  36359. end;
  36360. function TUART1A_U1AMODE.getON : TBits_1; inline;
  36361. begin
  36362. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  36363. end;
  36364. procedure TUART1A_U1AMODE.setPDSEL0; inline;
  36365. begin
  36366. pTDefRegMap(@Self)^.&set := $00000002;
  36367. end;
  36368. procedure TUART1A_U1AMODE.clearPDSEL0; inline;
  36369. begin
  36370. pTDefRegMap(@Self)^.clr := $00000002;
  36371. end;
  36372. procedure TUART1A_U1AMODE.setPDSEL0(thebits : TBits_1); inline;
  36373. begin
  36374. if thebits = 0 then
  36375. pTDefRegMap(@Self)^.clr := $00000002
  36376. else
  36377. pTDefRegMap(@Self)^.&set := $00000002;
  36378. end;
  36379. function TUART1A_U1AMODE.getPDSEL0 : TBits_1; inline;
  36380. begin
  36381. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  36382. end;
  36383. procedure TUART1A_U1AMODE.setPDSEL1; inline;
  36384. begin
  36385. pTDefRegMap(@Self)^.&set := $00000004;
  36386. end;
  36387. procedure TUART1A_U1AMODE.clearPDSEL1; inline;
  36388. begin
  36389. pTDefRegMap(@Self)^.clr := $00000004;
  36390. end;
  36391. procedure TUART1A_U1AMODE.setPDSEL1(thebits : TBits_1); inline;
  36392. begin
  36393. if thebits = 0 then
  36394. pTDefRegMap(@Self)^.clr := $00000004
  36395. else
  36396. pTDefRegMap(@Self)^.&set := $00000004;
  36397. end;
  36398. function TUART1A_U1AMODE.getPDSEL1 : TBits_1; inline;
  36399. begin
  36400. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  36401. end;
  36402. procedure TUART1A_U1AMODE.setUEN0; inline;
  36403. begin
  36404. pTDefRegMap(@Self)^.&set := $00000100;
  36405. end;
  36406. procedure TUART1A_U1AMODE.clearUEN0; inline;
  36407. begin
  36408. pTDefRegMap(@Self)^.clr := $00000100;
  36409. end;
  36410. procedure TUART1A_U1AMODE.setUEN0(thebits : TBits_1); inline;
  36411. begin
  36412. if thebits = 0 then
  36413. pTDefRegMap(@Self)^.clr := $00000100
  36414. else
  36415. pTDefRegMap(@Self)^.&set := $00000100;
  36416. end;
  36417. function TUART1A_U1AMODE.getUEN0 : TBits_1; inline;
  36418. begin
  36419. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  36420. end;
  36421. procedure TUART1A_U1AMODE.setUEN1; inline;
  36422. begin
  36423. pTDefRegMap(@Self)^.&set := $00000200;
  36424. end;
  36425. procedure TUART1A_U1AMODE.clearUEN1; inline;
  36426. begin
  36427. pTDefRegMap(@Self)^.clr := $00000200;
  36428. end;
  36429. procedure TUART1A_U1AMODE.setUEN1(thebits : TBits_1); inline;
  36430. begin
  36431. if thebits = 0 then
  36432. pTDefRegMap(@Self)^.clr := $00000200
  36433. else
  36434. pTDefRegMap(@Self)^.&set := $00000200;
  36435. end;
  36436. function TUART1A_U1AMODE.getUEN1 : TBits_1; inline;
  36437. begin
  36438. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  36439. end;
  36440. procedure TUART1A_U1AMODE.setUSIDL; inline;
  36441. begin
  36442. pTDefRegMap(@Self)^.&set := $00002000;
  36443. end;
  36444. procedure TUART1A_U1AMODE.clearUSIDL; inline;
  36445. begin
  36446. pTDefRegMap(@Self)^.clr := $00002000;
  36447. end;
  36448. procedure TUART1A_U1AMODE.setUSIDL(thebits : TBits_1); inline;
  36449. begin
  36450. if thebits = 0 then
  36451. pTDefRegMap(@Self)^.clr := $00002000
  36452. else
  36453. pTDefRegMap(@Self)^.&set := $00002000;
  36454. end;
  36455. function TUART1A_U1AMODE.getUSIDL : TBits_1; inline;
  36456. begin
  36457. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  36458. end;
  36459. procedure TUART1A_U1AMODE.setUARTEN; inline;
  36460. begin
  36461. pTDefRegMap(@Self)^.&set := $00008000;
  36462. end;
  36463. procedure TUART1A_U1AMODE.clearUARTEN; inline;
  36464. begin
  36465. pTDefRegMap(@Self)^.clr := $00008000;
  36466. end;
  36467. procedure TUART1A_U1AMODE.setUARTEN(thebits : TBits_1); inline;
  36468. begin
  36469. if thebits = 0 then
  36470. pTDefRegMap(@Self)^.clr := $00008000
  36471. else
  36472. pTDefRegMap(@Self)^.&set := $00008000;
  36473. end;
  36474. function TUART1A_U1AMODE.getUARTEN : TBits_1; inline;
  36475. begin
  36476. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  36477. end;
  36478. procedure TUART1A_U1AMODE.setw(thebits : TBits_32); inline;
  36479. begin
  36480. pTDefRegMap(@Self)^.val := thebits;
  36481. end;
  36482. function TUART1A_U1AMODE.getw : TBits_32; inline;
  36483. begin
  36484. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  36485. end;
  36486. procedure TUART1A_U1MODE.setSTSEL; inline;
  36487. begin
  36488. pTDefRegMap(@Self)^.&set := $00000001;
  36489. end;
  36490. procedure TUART1A_U1MODE.clearSTSEL; inline;
  36491. begin
  36492. pTDefRegMap(@Self)^.clr := $00000001;
  36493. end;
  36494. procedure TUART1A_U1MODE.setSTSEL(thebits : TBits_1); inline;
  36495. begin
  36496. if thebits = 0 then
  36497. pTDefRegMap(@Self)^.clr := $00000001
  36498. else
  36499. pTDefRegMap(@Self)^.&set := $00000001;
  36500. end;
  36501. function TUART1A_U1MODE.getSTSEL : TBits_1; inline;
  36502. begin
  36503. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  36504. end;
  36505. procedure TUART1A_U1MODE.setPDSEL(thebits : TBits_2); inline;
  36506. begin
  36507. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  36508. end;
  36509. function TUART1A_U1MODE.getPDSEL : TBits_2; inline;
  36510. begin
  36511. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  36512. end;
  36513. procedure TUART1A_U1MODE.setBRGH; inline;
  36514. begin
  36515. pTDefRegMap(@Self)^.&set := $00000008;
  36516. end;
  36517. procedure TUART1A_U1MODE.clearBRGH; inline;
  36518. begin
  36519. pTDefRegMap(@Self)^.clr := $00000008;
  36520. end;
  36521. procedure TUART1A_U1MODE.setBRGH(thebits : TBits_1); inline;
  36522. begin
  36523. if thebits = 0 then
  36524. pTDefRegMap(@Self)^.clr := $00000008
  36525. else
  36526. pTDefRegMap(@Self)^.&set := $00000008;
  36527. end;
  36528. function TUART1A_U1MODE.getBRGH : TBits_1; inline;
  36529. begin
  36530. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  36531. end;
  36532. procedure TUART1A_U1MODE.setRXINV; inline;
  36533. begin
  36534. pTDefRegMap(@Self)^.&set := $00000010;
  36535. end;
  36536. procedure TUART1A_U1MODE.clearRXINV; inline;
  36537. begin
  36538. pTDefRegMap(@Self)^.clr := $00000010;
  36539. end;
  36540. procedure TUART1A_U1MODE.setRXINV(thebits : TBits_1); inline;
  36541. begin
  36542. if thebits = 0 then
  36543. pTDefRegMap(@Self)^.clr := $00000010
  36544. else
  36545. pTDefRegMap(@Self)^.&set := $00000010;
  36546. end;
  36547. function TUART1A_U1MODE.getRXINV : TBits_1; inline;
  36548. begin
  36549. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  36550. end;
  36551. procedure TUART1A_U1MODE.setABAUD; inline;
  36552. begin
  36553. pTDefRegMap(@Self)^.&set := $00000020;
  36554. end;
  36555. procedure TUART1A_U1MODE.clearABAUD; inline;
  36556. begin
  36557. pTDefRegMap(@Self)^.clr := $00000020;
  36558. end;
  36559. procedure TUART1A_U1MODE.setABAUD(thebits : TBits_1); inline;
  36560. begin
  36561. if thebits = 0 then
  36562. pTDefRegMap(@Self)^.clr := $00000020
  36563. else
  36564. pTDefRegMap(@Self)^.&set := $00000020;
  36565. end;
  36566. function TUART1A_U1MODE.getABAUD : TBits_1; inline;
  36567. begin
  36568. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  36569. end;
  36570. procedure TUART1A_U1MODE.setLPBACK; inline;
  36571. begin
  36572. pTDefRegMap(@Self)^.&set := $00000040;
  36573. end;
  36574. procedure TUART1A_U1MODE.clearLPBACK; inline;
  36575. begin
  36576. pTDefRegMap(@Self)^.clr := $00000040;
  36577. end;
  36578. procedure TUART1A_U1MODE.setLPBACK(thebits : TBits_1); inline;
  36579. begin
  36580. if thebits = 0 then
  36581. pTDefRegMap(@Self)^.clr := $00000040
  36582. else
  36583. pTDefRegMap(@Self)^.&set := $00000040;
  36584. end;
  36585. function TUART1A_U1MODE.getLPBACK : TBits_1; inline;
  36586. begin
  36587. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  36588. end;
  36589. procedure TUART1A_U1MODE.setWAKE; inline;
  36590. begin
  36591. pTDefRegMap(@Self)^.&set := $00000080;
  36592. end;
  36593. procedure TUART1A_U1MODE.clearWAKE; inline;
  36594. begin
  36595. pTDefRegMap(@Self)^.clr := $00000080;
  36596. end;
  36597. procedure TUART1A_U1MODE.setWAKE(thebits : TBits_1); inline;
  36598. begin
  36599. if thebits = 0 then
  36600. pTDefRegMap(@Self)^.clr := $00000080
  36601. else
  36602. pTDefRegMap(@Self)^.&set := $00000080;
  36603. end;
  36604. function TUART1A_U1MODE.getWAKE : TBits_1; inline;
  36605. begin
  36606. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  36607. end;
  36608. procedure TUART1A_U1MODE.setUEN(thebits : TBits_2); inline;
  36609. begin
  36610. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  36611. end;
  36612. function TUART1A_U1MODE.getUEN : TBits_2; inline;
  36613. begin
  36614. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  36615. end;
  36616. procedure TUART1A_U1MODE.setRTSMD; inline;
  36617. begin
  36618. pTDefRegMap(@Self)^.&set := $00000800;
  36619. end;
  36620. procedure TUART1A_U1MODE.clearRTSMD; inline;
  36621. begin
  36622. pTDefRegMap(@Self)^.clr := $00000800;
  36623. end;
  36624. procedure TUART1A_U1MODE.setRTSMD(thebits : TBits_1); inline;
  36625. begin
  36626. if thebits = 0 then
  36627. pTDefRegMap(@Self)^.clr := $00000800
  36628. else
  36629. pTDefRegMap(@Self)^.&set := $00000800;
  36630. end;
  36631. function TUART1A_U1MODE.getRTSMD : TBits_1; inline;
  36632. begin
  36633. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  36634. end;
  36635. procedure TUART1A_U1MODE.setIREN; inline;
  36636. begin
  36637. pTDefRegMap(@Self)^.&set := $00001000;
  36638. end;
  36639. procedure TUART1A_U1MODE.clearIREN; inline;
  36640. begin
  36641. pTDefRegMap(@Self)^.clr := $00001000;
  36642. end;
  36643. procedure TUART1A_U1MODE.setIREN(thebits : TBits_1); inline;
  36644. begin
  36645. if thebits = 0 then
  36646. pTDefRegMap(@Self)^.clr := $00001000
  36647. else
  36648. pTDefRegMap(@Self)^.&set := $00001000;
  36649. end;
  36650. function TUART1A_U1MODE.getIREN : TBits_1; inline;
  36651. begin
  36652. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  36653. end;
  36654. procedure TUART1A_U1MODE.setSIDL; inline;
  36655. begin
  36656. pTDefRegMap(@Self)^.&set := $00002000;
  36657. end;
  36658. procedure TUART1A_U1MODE.clearSIDL; inline;
  36659. begin
  36660. pTDefRegMap(@Self)^.clr := $00002000;
  36661. end;
  36662. procedure TUART1A_U1MODE.setSIDL(thebits : TBits_1); inline;
  36663. begin
  36664. if thebits = 0 then
  36665. pTDefRegMap(@Self)^.clr := $00002000
  36666. else
  36667. pTDefRegMap(@Self)^.&set := $00002000;
  36668. end;
  36669. function TUART1A_U1MODE.getSIDL : TBits_1; inline;
  36670. begin
  36671. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  36672. end;
  36673. procedure TUART1A_U1MODE.setON; inline;
  36674. begin
  36675. pTDefRegMap(@Self)^.&set := $00008000;
  36676. end;
  36677. procedure TUART1A_U1MODE.clearON; inline;
  36678. begin
  36679. pTDefRegMap(@Self)^.clr := $00008000;
  36680. end;
  36681. procedure TUART1A_U1MODE.setON(thebits : TBits_1); inline;
  36682. begin
  36683. if thebits = 0 then
  36684. pTDefRegMap(@Self)^.clr := $00008000
  36685. else
  36686. pTDefRegMap(@Self)^.&set := $00008000;
  36687. end;
  36688. function TUART1A_U1MODE.getON : TBits_1; inline;
  36689. begin
  36690. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  36691. end;
  36692. procedure TUART1A_U1MODE.setPDSEL0; inline;
  36693. begin
  36694. pTDefRegMap(@Self)^.&set := $00000002;
  36695. end;
  36696. procedure TUART1A_U1MODE.clearPDSEL0; inline;
  36697. begin
  36698. pTDefRegMap(@Self)^.clr := $00000002;
  36699. end;
  36700. procedure TUART1A_U1MODE.setPDSEL0(thebits : TBits_1); inline;
  36701. begin
  36702. if thebits = 0 then
  36703. pTDefRegMap(@Self)^.clr := $00000002
  36704. else
  36705. pTDefRegMap(@Self)^.&set := $00000002;
  36706. end;
  36707. function TUART1A_U1MODE.getPDSEL0 : TBits_1; inline;
  36708. begin
  36709. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  36710. end;
  36711. procedure TUART1A_U1MODE.setPDSEL1; inline;
  36712. begin
  36713. pTDefRegMap(@Self)^.&set := $00000004;
  36714. end;
  36715. procedure TUART1A_U1MODE.clearPDSEL1; inline;
  36716. begin
  36717. pTDefRegMap(@Self)^.clr := $00000004;
  36718. end;
  36719. procedure TUART1A_U1MODE.setPDSEL1(thebits : TBits_1); inline;
  36720. begin
  36721. if thebits = 0 then
  36722. pTDefRegMap(@Self)^.clr := $00000004
  36723. else
  36724. pTDefRegMap(@Self)^.&set := $00000004;
  36725. end;
  36726. function TUART1A_U1MODE.getPDSEL1 : TBits_1; inline;
  36727. begin
  36728. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  36729. end;
  36730. procedure TUART1A_U1MODE.setUEN0; inline;
  36731. begin
  36732. pTDefRegMap(@Self)^.&set := $00000100;
  36733. end;
  36734. procedure TUART1A_U1MODE.clearUEN0; inline;
  36735. begin
  36736. pTDefRegMap(@Self)^.clr := $00000100;
  36737. end;
  36738. procedure TUART1A_U1MODE.setUEN0(thebits : TBits_1); inline;
  36739. begin
  36740. if thebits = 0 then
  36741. pTDefRegMap(@Self)^.clr := $00000100
  36742. else
  36743. pTDefRegMap(@Self)^.&set := $00000100;
  36744. end;
  36745. function TUART1A_U1MODE.getUEN0 : TBits_1; inline;
  36746. begin
  36747. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  36748. end;
  36749. procedure TUART1A_U1MODE.setUEN1; inline;
  36750. begin
  36751. pTDefRegMap(@Self)^.&set := $00000200;
  36752. end;
  36753. procedure TUART1A_U1MODE.clearUEN1; inline;
  36754. begin
  36755. pTDefRegMap(@Self)^.clr := $00000200;
  36756. end;
  36757. procedure TUART1A_U1MODE.setUEN1(thebits : TBits_1); inline;
  36758. begin
  36759. if thebits = 0 then
  36760. pTDefRegMap(@Self)^.clr := $00000200
  36761. else
  36762. pTDefRegMap(@Self)^.&set := $00000200;
  36763. end;
  36764. function TUART1A_U1MODE.getUEN1 : TBits_1; inline;
  36765. begin
  36766. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  36767. end;
  36768. procedure TUART1A_U1MODE.setUSIDL; inline;
  36769. begin
  36770. pTDefRegMap(@Self)^.&set := $00002000;
  36771. end;
  36772. procedure TUART1A_U1MODE.clearUSIDL; inline;
  36773. begin
  36774. pTDefRegMap(@Self)^.clr := $00002000;
  36775. end;
  36776. procedure TUART1A_U1MODE.setUSIDL(thebits : TBits_1); inline;
  36777. begin
  36778. if thebits = 0 then
  36779. pTDefRegMap(@Self)^.clr := $00002000
  36780. else
  36781. pTDefRegMap(@Self)^.&set := $00002000;
  36782. end;
  36783. function TUART1A_U1MODE.getUSIDL : TBits_1; inline;
  36784. begin
  36785. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  36786. end;
  36787. procedure TUART1A_U1MODE.setUARTEN; inline;
  36788. begin
  36789. pTDefRegMap(@Self)^.&set := $00008000;
  36790. end;
  36791. procedure TUART1A_U1MODE.clearUARTEN; inline;
  36792. begin
  36793. pTDefRegMap(@Self)^.clr := $00008000;
  36794. end;
  36795. procedure TUART1A_U1MODE.setUARTEN(thebits : TBits_1); inline;
  36796. begin
  36797. if thebits = 0 then
  36798. pTDefRegMap(@Self)^.clr := $00008000
  36799. else
  36800. pTDefRegMap(@Self)^.&set := $00008000;
  36801. end;
  36802. function TUART1A_U1MODE.getUARTEN : TBits_1; inline;
  36803. begin
  36804. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  36805. end;
  36806. procedure TUART1A_U1MODE.setw(thebits : TBits_32); inline;
  36807. begin
  36808. pTDefRegMap(@Self)^.val := thebits;
  36809. end;
  36810. function TUART1A_U1MODE.getw : TBits_32; inline;
  36811. begin
  36812. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  36813. end;
  36814. procedure TUART1A_U1ASTA.setURXDA; inline;
  36815. begin
  36816. pTDefRegMap(@Self)^.&set := $00000001;
  36817. end;
  36818. procedure TUART1A_U1ASTA.clearURXDA; inline;
  36819. begin
  36820. pTDefRegMap(@Self)^.clr := $00000001;
  36821. end;
  36822. procedure TUART1A_U1ASTA.setURXDA(thebits : TBits_1); inline;
  36823. begin
  36824. if thebits = 0 then
  36825. pTDefRegMap(@Self)^.clr := $00000001
  36826. else
  36827. pTDefRegMap(@Self)^.&set := $00000001;
  36828. end;
  36829. function TUART1A_U1ASTA.getURXDA : TBits_1; inline;
  36830. begin
  36831. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  36832. end;
  36833. procedure TUART1A_U1ASTA.setOERR; inline;
  36834. begin
  36835. pTDefRegMap(@Self)^.&set := $00000002;
  36836. end;
  36837. procedure TUART1A_U1ASTA.clearOERR; inline;
  36838. begin
  36839. pTDefRegMap(@Self)^.clr := $00000002;
  36840. end;
  36841. procedure TUART1A_U1ASTA.setOERR(thebits : TBits_1); inline;
  36842. begin
  36843. if thebits = 0 then
  36844. pTDefRegMap(@Self)^.clr := $00000002
  36845. else
  36846. pTDefRegMap(@Self)^.&set := $00000002;
  36847. end;
  36848. function TUART1A_U1ASTA.getOERR : TBits_1; inline;
  36849. begin
  36850. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  36851. end;
  36852. procedure TUART1A_U1ASTA.setFERR; inline;
  36853. begin
  36854. pTDefRegMap(@Self)^.&set := $00000004;
  36855. end;
  36856. procedure TUART1A_U1ASTA.clearFERR; inline;
  36857. begin
  36858. pTDefRegMap(@Self)^.clr := $00000004;
  36859. end;
  36860. procedure TUART1A_U1ASTA.setFERR(thebits : TBits_1); inline;
  36861. begin
  36862. if thebits = 0 then
  36863. pTDefRegMap(@Self)^.clr := $00000004
  36864. else
  36865. pTDefRegMap(@Self)^.&set := $00000004;
  36866. end;
  36867. function TUART1A_U1ASTA.getFERR : TBits_1; inline;
  36868. begin
  36869. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  36870. end;
  36871. procedure TUART1A_U1ASTA.setPERR; inline;
  36872. begin
  36873. pTDefRegMap(@Self)^.&set := $00000008;
  36874. end;
  36875. procedure TUART1A_U1ASTA.clearPERR; inline;
  36876. begin
  36877. pTDefRegMap(@Self)^.clr := $00000008;
  36878. end;
  36879. procedure TUART1A_U1ASTA.setPERR(thebits : TBits_1); inline;
  36880. begin
  36881. if thebits = 0 then
  36882. pTDefRegMap(@Self)^.clr := $00000008
  36883. else
  36884. pTDefRegMap(@Self)^.&set := $00000008;
  36885. end;
  36886. function TUART1A_U1ASTA.getPERR : TBits_1; inline;
  36887. begin
  36888. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  36889. end;
  36890. procedure TUART1A_U1ASTA.setRIDLE; inline;
  36891. begin
  36892. pTDefRegMap(@Self)^.&set := $00000010;
  36893. end;
  36894. procedure TUART1A_U1ASTA.clearRIDLE; inline;
  36895. begin
  36896. pTDefRegMap(@Self)^.clr := $00000010;
  36897. end;
  36898. procedure TUART1A_U1ASTA.setRIDLE(thebits : TBits_1); inline;
  36899. begin
  36900. if thebits = 0 then
  36901. pTDefRegMap(@Self)^.clr := $00000010
  36902. else
  36903. pTDefRegMap(@Self)^.&set := $00000010;
  36904. end;
  36905. function TUART1A_U1ASTA.getRIDLE : TBits_1; inline;
  36906. begin
  36907. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  36908. end;
  36909. procedure TUART1A_U1ASTA.setADDEN; inline;
  36910. begin
  36911. pTDefRegMap(@Self)^.&set := $00000020;
  36912. end;
  36913. procedure TUART1A_U1ASTA.clearADDEN; inline;
  36914. begin
  36915. pTDefRegMap(@Self)^.clr := $00000020;
  36916. end;
  36917. procedure TUART1A_U1ASTA.setADDEN(thebits : TBits_1); inline;
  36918. begin
  36919. if thebits = 0 then
  36920. pTDefRegMap(@Self)^.clr := $00000020
  36921. else
  36922. pTDefRegMap(@Self)^.&set := $00000020;
  36923. end;
  36924. function TUART1A_U1ASTA.getADDEN : TBits_1; inline;
  36925. begin
  36926. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  36927. end;
  36928. procedure TUART1A_U1ASTA.setURXISEL(thebits : TBits_2); inline;
  36929. begin
  36930. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  36931. end;
  36932. function TUART1A_U1ASTA.getURXISEL : TBits_2; inline;
  36933. begin
  36934. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  36935. end;
  36936. procedure TUART1A_U1ASTA.setTRMT; inline;
  36937. begin
  36938. pTDefRegMap(@Self)^.&set := $00000100;
  36939. end;
  36940. procedure TUART1A_U1ASTA.clearTRMT; inline;
  36941. begin
  36942. pTDefRegMap(@Self)^.clr := $00000100;
  36943. end;
  36944. procedure TUART1A_U1ASTA.setTRMT(thebits : TBits_1); inline;
  36945. begin
  36946. if thebits = 0 then
  36947. pTDefRegMap(@Self)^.clr := $00000100
  36948. else
  36949. pTDefRegMap(@Self)^.&set := $00000100;
  36950. end;
  36951. function TUART1A_U1ASTA.getTRMT : TBits_1; inline;
  36952. begin
  36953. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  36954. end;
  36955. procedure TUART1A_U1ASTA.setUTXBF; inline;
  36956. begin
  36957. pTDefRegMap(@Self)^.&set := $00000200;
  36958. end;
  36959. procedure TUART1A_U1ASTA.clearUTXBF; inline;
  36960. begin
  36961. pTDefRegMap(@Self)^.clr := $00000200;
  36962. end;
  36963. procedure TUART1A_U1ASTA.setUTXBF(thebits : TBits_1); inline;
  36964. begin
  36965. if thebits = 0 then
  36966. pTDefRegMap(@Self)^.clr := $00000200
  36967. else
  36968. pTDefRegMap(@Self)^.&set := $00000200;
  36969. end;
  36970. function TUART1A_U1ASTA.getUTXBF : TBits_1; inline;
  36971. begin
  36972. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  36973. end;
  36974. procedure TUART1A_U1ASTA.setUTXEN; inline;
  36975. begin
  36976. pTDefRegMap(@Self)^.&set := $00000400;
  36977. end;
  36978. procedure TUART1A_U1ASTA.clearUTXEN; inline;
  36979. begin
  36980. pTDefRegMap(@Self)^.clr := $00000400;
  36981. end;
  36982. procedure TUART1A_U1ASTA.setUTXEN(thebits : TBits_1); inline;
  36983. begin
  36984. if thebits = 0 then
  36985. pTDefRegMap(@Self)^.clr := $00000400
  36986. else
  36987. pTDefRegMap(@Self)^.&set := $00000400;
  36988. end;
  36989. function TUART1A_U1ASTA.getUTXEN : TBits_1; inline;
  36990. begin
  36991. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  36992. end;
  36993. procedure TUART1A_U1ASTA.setUTXBRK; inline;
  36994. begin
  36995. pTDefRegMap(@Self)^.&set := $00000800;
  36996. end;
  36997. procedure TUART1A_U1ASTA.clearUTXBRK; inline;
  36998. begin
  36999. pTDefRegMap(@Self)^.clr := $00000800;
  37000. end;
  37001. procedure TUART1A_U1ASTA.setUTXBRK(thebits : TBits_1); inline;
  37002. begin
  37003. if thebits = 0 then
  37004. pTDefRegMap(@Self)^.clr := $00000800
  37005. else
  37006. pTDefRegMap(@Self)^.&set := $00000800;
  37007. end;
  37008. function TUART1A_U1ASTA.getUTXBRK : TBits_1; inline;
  37009. begin
  37010. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  37011. end;
  37012. procedure TUART1A_U1ASTA.setURXEN; inline;
  37013. begin
  37014. pTDefRegMap(@Self)^.&set := $00001000;
  37015. end;
  37016. procedure TUART1A_U1ASTA.clearURXEN; inline;
  37017. begin
  37018. pTDefRegMap(@Self)^.clr := $00001000;
  37019. end;
  37020. procedure TUART1A_U1ASTA.setURXEN(thebits : TBits_1); inline;
  37021. begin
  37022. if thebits = 0 then
  37023. pTDefRegMap(@Self)^.clr := $00001000
  37024. else
  37025. pTDefRegMap(@Self)^.&set := $00001000;
  37026. end;
  37027. function TUART1A_U1ASTA.getURXEN : TBits_1; inline;
  37028. begin
  37029. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  37030. end;
  37031. procedure TUART1A_U1ASTA.setUTXINV; inline;
  37032. begin
  37033. pTDefRegMap(@Self)^.&set := $00002000;
  37034. end;
  37035. procedure TUART1A_U1ASTA.clearUTXINV; inline;
  37036. begin
  37037. pTDefRegMap(@Self)^.clr := $00002000;
  37038. end;
  37039. procedure TUART1A_U1ASTA.setUTXINV(thebits : TBits_1); inline;
  37040. begin
  37041. if thebits = 0 then
  37042. pTDefRegMap(@Self)^.clr := $00002000
  37043. else
  37044. pTDefRegMap(@Self)^.&set := $00002000;
  37045. end;
  37046. function TUART1A_U1ASTA.getUTXINV : TBits_1; inline;
  37047. begin
  37048. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  37049. end;
  37050. procedure TUART1A_U1ASTA.setUTXISEL(thebits : TBits_2); inline;
  37051. begin
  37052. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  37053. end;
  37054. function TUART1A_U1ASTA.getUTXISEL : TBits_2; inline;
  37055. begin
  37056. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  37057. end;
  37058. procedure TUART1A_U1ASTA.setADDR(thebits : TBits_8); inline;
  37059. begin
  37060. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  37061. end;
  37062. function TUART1A_U1ASTA.getADDR : TBits_8; inline;
  37063. begin
  37064. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  37065. end;
  37066. procedure TUART1A_U1ASTA.setADM_EN; inline;
  37067. begin
  37068. pTDefRegMap(@Self)^.&set := $01000000;
  37069. end;
  37070. procedure TUART1A_U1ASTA.clearADM_EN; inline;
  37071. begin
  37072. pTDefRegMap(@Self)^.clr := $01000000;
  37073. end;
  37074. procedure TUART1A_U1ASTA.setADM_EN(thebits : TBits_1); inline;
  37075. begin
  37076. if thebits = 0 then
  37077. pTDefRegMap(@Self)^.clr := $01000000
  37078. else
  37079. pTDefRegMap(@Self)^.&set := $01000000;
  37080. end;
  37081. function TUART1A_U1ASTA.getADM_EN : TBits_1; inline;
  37082. begin
  37083. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  37084. end;
  37085. procedure TUART1A_U1ASTA.setURXISEL0; inline;
  37086. begin
  37087. pTDefRegMap(@Self)^.&set := $00000040;
  37088. end;
  37089. procedure TUART1A_U1ASTA.clearURXISEL0; inline;
  37090. begin
  37091. pTDefRegMap(@Self)^.clr := $00000040;
  37092. end;
  37093. procedure TUART1A_U1ASTA.setURXISEL0(thebits : TBits_1); inline;
  37094. begin
  37095. if thebits = 0 then
  37096. pTDefRegMap(@Self)^.clr := $00000040
  37097. else
  37098. pTDefRegMap(@Self)^.&set := $00000040;
  37099. end;
  37100. function TUART1A_U1ASTA.getURXISEL0 : TBits_1; inline;
  37101. begin
  37102. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  37103. end;
  37104. procedure TUART1A_U1ASTA.setURXISEL1; inline;
  37105. begin
  37106. pTDefRegMap(@Self)^.&set := $00000080;
  37107. end;
  37108. procedure TUART1A_U1ASTA.clearURXISEL1; inline;
  37109. begin
  37110. pTDefRegMap(@Self)^.clr := $00000080;
  37111. end;
  37112. procedure TUART1A_U1ASTA.setURXISEL1(thebits : TBits_1); inline;
  37113. begin
  37114. if thebits = 0 then
  37115. pTDefRegMap(@Self)^.clr := $00000080
  37116. else
  37117. pTDefRegMap(@Self)^.&set := $00000080;
  37118. end;
  37119. function TUART1A_U1ASTA.getURXISEL1 : TBits_1; inline;
  37120. begin
  37121. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  37122. end;
  37123. procedure TUART1A_U1ASTA.setUTXISEL0; inline;
  37124. begin
  37125. pTDefRegMap(@Self)^.&set := $00004000;
  37126. end;
  37127. procedure TUART1A_U1ASTA.clearUTXISEL0; inline;
  37128. begin
  37129. pTDefRegMap(@Self)^.clr := $00004000;
  37130. end;
  37131. procedure TUART1A_U1ASTA.setUTXISEL0(thebits : TBits_1); inline;
  37132. begin
  37133. if thebits = 0 then
  37134. pTDefRegMap(@Self)^.clr := $00004000
  37135. else
  37136. pTDefRegMap(@Self)^.&set := $00004000;
  37137. end;
  37138. function TUART1A_U1ASTA.getUTXISEL0 : TBits_1; inline;
  37139. begin
  37140. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  37141. end;
  37142. procedure TUART1A_U1ASTA.setUTXISEL1; inline;
  37143. begin
  37144. pTDefRegMap(@Self)^.&set := $00008000;
  37145. end;
  37146. procedure TUART1A_U1ASTA.clearUTXISEL1; inline;
  37147. begin
  37148. pTDefRegMap(@Self)^.clr := $00008000;
  37149. end;
  37150. procedure TUART1A_U1ASTA.setUTXISEL1(thebits : TBits_1); inline;
  37151. begin
  37152. if thebits = 0 then
  37153. pTDefRegMap(@Self)^.clr := $00008000
  37154. else
  37155. pTDefRegMap(@Self)^.&set := $00008000;
  37156. end;
  37157. function TUART1A_U1ASTA.getUTXISEL1 : TBits_1; inline;
  37158. begin
  37159. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37160. end;
  37161. procedure TUART1A_U1ASTA.setUTXSEL(thebits : TBits_2); inline;
  37162. begin
  37163. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  37164. end;
  37165. function TUART1A_U1ASTA.getUTXSEL : TBits_2; inline;
  37166. begin
  37167. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  37168. end;
  37169. procedure TUART1A_U1ASTA.setw(thebits : TBits_32); inline;
  37170. begin
  37171. pTDefRegMap(@Self)^.val := thebits;
  37172. end;
  37173. function TUART1A_U1ASTA.getw : TBits_32; inline;
  37174. begin
  37175. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  37176. end;
  37177. procedure TUART1A_U1STA.setURXDA; inline;
  37178. begin
  37179. pTDefRegMap(@Self)^.&set := $00000001;
  37180. end;
  37181. procedure TUART1A_U1STA.clearURXDA; inline;
  37182. begin
  37183. pTDefRegMap(@Self)^.clr := $00000001;
  37184. end;
  37185. procedure TUART1A_U1STA.setURXDA(thebits : TBits_1); inline;
  37186. begin
  37187. if thebits = 0 then
  37188. pTDefRegMap(@Self)^.clr := $00000001
  37189. else
  37190. pTDefRegMap(@Self)^.&set := $00000001;
  37191. end;
  37192. function TUART1A_U1STA.getURXDA : TBits_1; inline;
  37193. begin
  37194. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  37195. end;
  37196. procedure TUART1A_U1STA.setOERR; inline;
  37197. begin
  37198. pTDefRegMap(@Self)^.&set := $00000002;
  37199. end;
  37200. procedure TUART1A_U1STA.clearOERR; inline;
  37201. begin
  37202. pTDefRegMap(@Self)^.clr := $00000002;
  37203. end;
  37204. procedure TUART1A_U1STA.setOERR(thebits : TBits_1); inline;
  37205. begin
  37206. if thebits = 0 then
  37207. pTDefRegMap(@Self)^.clr := $00000002
  37208. else
  37209. pTDefRegMap(@Self)^.&set := $00000002;
  37210. end;
  37211. function TUART1A_U1STA.getOERR : TBits_1; inline;
  37212. begin
  37213. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  37214. end;
  37215. procedure TUART1A_U1STA.setFERR; inline;
  37216. begin
  37217. pTDefRegMap(@Self)^.&set := $00000004;
  37218. end;
  37219. procedure TUART1A_U1STA.clearFERR; inline;
  37220. begin
  37221. pTDefRegMap(@Self)^.clr := $00000004;
  37222. end;
  37223. procedure TUART1A_U1STA.setFERR(thebits : TBits_1); inline;
  37224. begin
  37225. if thebits = 0 then
  37226. pTDefRegMap(@Self)^.clr := $00000004
  37227. else
  37228. pTDefRegMap(@Self)^.&set := $00000004;
  37229. end;
  37230. function TUART1A_U1STA.getFERR : TBits_1; inline;
  37231. begin
  37232. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  37233. end;
  37234. procedure TUART1A_U1STA.setPERR; inline;
  37235. begin
  37236. pTDefRegMap(@Self)^.&set := $00000008;
  37237. end;
  37238. procedure TUART1A_U1STA.clearPERR; inline;
  37239. begin
  37240. pTDefRegMap(@Self)^.clr := $00000008;
  37241. end;
  37242. procedure TUART1A_U1STA.setPERR(thebits : TBits_1); inline;
  37243. begin
  37244. if thebits = 0 then
  37245. pTDefRegMap(@Self)^.clr := $00000008
  37246. else
  37247. pTDefRegMap(@Self)^.&set := $00000008;
  37248. end;
  37249. function TUART1A_U1STA.getPERR : TBits_1; inline;
  37250. begin
  37251. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  37252. end;
  37253. procedure TUART1A_U1STA.setRIDLE; inline;
  37254. begin
  37255. pTDefRegMap(@Self)^.&set := $00000010;
  37256. end;
  37257. procedure TUART1A_U1STA.clearRIDLE; inline;
  37258. begin
  37259. pTDefRegMap(@Self)^.clr := $00000010;
  37260. end;
  37261. procedure TUART1A_U1STA.setRIDLE(thebits : TBits_1); inline;
  37262. begin
  37263. if thebits = 0 then
  37264. pTDefRegMap(@Self)^.clr := $00000010
  37265. else
  37266. pTDefRegMap(@Self)^.&set := $00000010;
  37267. end;
  37268. function TUART1A_U1STA.getRIDLE : TBits_1; inline;
  37269. begin
  37270. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  37271. end;
  37272. procedure TUART1A_U1STA.setADDEN; inline;
  37273. begin
  37274. pTDefRegMap(@Self)^.&set := $00000020;
  37275. end;
  37276. procedure TUART1A_U1STA.clearADDEN; inline;
  37277. begin
  37278. pTDefRegMap(@Self)^.clr := $00000020;
  37279. end;
  37280. procedure TUART1A_U1STA.setADDEN(thebits : TBits_1); inline;
  37281. begin
  37282. if thebits = 0 then
  37283. pTDefRegMap(@Self)^.clr := $00000020
  37284. else
  37285. pTDefRegMap(@Self)^.&set := $00000020;
  37286. end;
  37287. function TUART1A_U1STA.getADDEN : TBits_1; inline;
  37288. begin
  37289. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  37290. end;
  37291. procedure TUART1A_U1STA.setURXISEL(thebits : TBits_2); inline;
  37292. begin
  37293. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  37294. end;
  37295. function TUART1A_U1STA.getURXISEL : TBits_2; inline;
  37296. begin
  37297. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  37298. end;
  37299. procedure TUART1A_U1STA.setTRMT; inline;
  37300. begin
  37301. pTDefRegMap(@Self)^.&set := $00000100;
  37302. end;
  37303. procedure TUART1A_U1STA.clearTRMT; inline;
  37304. begin
  37305. pTDefRegMap(@Self)^.clr := $00000100;
  37306. end;
  37307. procedure TUART1A_U1STA.setTRMT(thebits : TBits_1); inline;
  37308. begin
  37309. if thebits = 0 then
  37310. pTDefRegMap(@Self)^.clr := $00000100
  37311. else
  37312. pTDefRegMap(@Self)^.&set := $00000100;
  37313. end;
  37314. function TUART1A_U1STA.getTRMT : TBits_1; inline;
  37315. begin
  37316. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  37317. end;
  37318. procedure TUART1A_U1STA.setUTXBF; inline;
  37319. begin
  37320. pTDefRegMap(@Self)^.&set := $00000200;
  37321. end;
  37322. procedure TUART1A_U1STA.clearUTXBF; inline;
  37323. begin
  37324. pTDefRegMap(@Self)^.clr := $00000200;
  37325. end;
  37326. procedure TUART1A_U1STA.setUTXBF(thebits : TBits_1); inline;
  37327. begin
  37328. if thebits = 0 then
  37329. pTDefRegMap(@Self)^.clr := $00000200
  37330. else
  37331. pTDefRegMap(@Self)^.&set := $00000200;
  37332. end;
  37333. function TUART1A_U1STA.getUTXBF : TBits_1; inline;
  37334. begin
  37335. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  37336. end;
  37337. procedure TUART1A_U1STA.setUTXEN; inline;
  37338. begin
  37339. pTDefRegMap(@Self)^.&set := $00000400;
  37340. end;
  37341. procedure TUART1A_U1STA.clearUTXEN; inline;
  37342. begin
  37343. pTDefRegMap(@Self)^.clr := $00000400;
  37344. end;
  37345. procedure TUART1A_U1STA.setUTXEN(thebits : TBits_1); inline;
  37346. begin
  37347. if thebits = 0 then
  37348. pTDefRegMap(@Self)^.clr := $00000400
  37349. else
  37350. pTDefRegMap(@Self)^.&set := $00000400;
  37351. end;
  37352. function TUART1A_U1STA.getUTXEN : TBits_1; inline;
  37353. begin
  37354. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  37355. end;
  37356. procedure TUART1A_U1STA.setUTXBRK; inline;
  37357. begin
  37358. pTDefRegMap(@Self)^.&set := $00000800;
  37359. end;
  37360. procedure TUART1A_U1STA.clearUTXBRK; inline;
  37361. begin
  37362. pTDefRegMap(@Self)^.clr := $00000800;
  37363. end;
  37364. procedure TUART1A_U1STA.setUTXBRK(thebits : TBits_1); inline;
  37365. begin
  37366. if thebits = 0 then
  37367. pTDefRegMap(@Self)^.clr := $00000800
  37368. else
  37369. pTDefRegMap(@Self)^.&set := $00000800;
  37370. end;
  37371. function TUART1A_U1STA.getUTXBRK : TBits_1; inline;
  37372. begin
  37373. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  37374. end;
  37375. procedure TUART1A_U1STA.setURXEN; inline;
  37376. begin
  37377. pTDefRegMap(@Self)^.&set := $00001000;
  37378. end;
  37379. procedure TUART1A_U1STA.clearURXEN; inline;
  37380. begin
  37381. pTDefRegMap(@Self)^.clr := $00001000;
  37382. end;
  37383. procedure TUART1A_U1STA.setURXEN(thebits : TBits_1); inline;
  37384. begin
  37385. if thebits = 0 then
  37386. pTDefRegMap(@Self)^.clr := $00001000
  37387. else
  37388. pTDefRegMap(@Self)^.&set := $00001000;
  37389. end;
  37390. function TUART1A_U1STA.getURXEN : TBits_1; inline;
  37391. begin
  37392. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  37393. end;
  37394. procedure TUART1A_U1STA.setUTXINV; inline;
  37395. begin
  37396. pTDefRegMap(@Self)^.&set := $00002000;
  37397. end;
  37398. procedure TUART1A_U1STA.clearUTXINV; inline;
  37399. begin
  37400. pTDefRegMap(@Self)^.clr := $00002000;
  37401. end;
  37402. procedure TUART1A_U1STA.setUTXINV(thebits : TBits_1); inline;
  37403. begin
  37404. if thebits = 0 then
  37405. pTDefRegMap(@Self)^.clr := $00002000
  37406. else
  37407. pTDefRegMap(@Self)^.&set := $00002000;
  37408. end;
  37409. function TUART1A_U1STA.getUTXINV : TBits_1; inline;
  37410. begin
  37411. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  37412. end;
  37413. procedure TUART1A_U1STA.setUTXISEL(thebits : TBits_2); inline;
  37414. begin
  37415. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  37416. end;
  37417. function TUART1A_U1STA.getUTXISEL : TBits_2; inline;
  37418. begin
  37419. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  37420. end;
  37421. procedure TUART1A_U1STA.setADDR(thebits : TBits_8); inline;
  37422. begin
  37423. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  37424. end;
  37425. function TUART1A_U1STA.getADDR : TBits_8; inline;
  37426. begin
  37427. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  37428. end;
  37429. procedure TUART1A_U1STA.setADM_EN; inline;
  37430. begin
  37431. pTDefRegMap(@Self)^.&set := $01000000;
  37432. end;
  37433. procedure TUART1A_U1STA.clearADM_EN; inline;
  37434. begin
  37435. pTDefRegMap(@Self)^.clr := $01000000;
  37436. end;
  37437. procedure TUART1A_U1STA.setADM_EN(thebits : TBits_1); inline;
  37438. begin
  37439. if thebits = 0 then
  37440. pTDefRegMap(@Self)^.clr := $01000000
  37441. else
  37442. pTDefRegMap(@Self)^.&set := $01000000;
  37443. end;
  37444. function TUART1A_U1STA.getADM_EN : TBits_1; inline;
  37445. begin
  37446. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  37447. end;
  37448. procedure TUART1A_U1STA.setURXISEL0; inline;
  37449. begin
  37450. pTDefRegMap(@Self)^.&set := $00000040;
  37451. end;
  37452. procedure TUART1A_U1STA.clearURXISEL0; inline;
  37453. begin
  37454. pTDefRegMap(@Self)^.clr := $00000040;
  37455. end;
  37456. procedure TUART1A_U1STA.setURXISEL0(thebits : TBits_1); inline;
  37457. begin
  37458. if thebits = 0 then
  37459. pTDefRegMap(@Self)^.clr := $00000040
  37460. else
  37461. pTDefRegMap(@Self)^.&set := $00000040;
  37462. end;
  37463. function TUART1A_U1STA.getURXISEL0 : TBits_1; inline;
  37464. begin
  37465. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  37466. end;
  37467. procedure TUART1A_U1STA.setURXISEL1; inline;
  37468. begin
  37469. pTDefRegMap(@Self)^.&set := $00000080;
  37470. end;
  37471. procedure TUART1A_U1STA.clearURXISEL1; inline;
  37472. begin
  37473. pTDefRegMap(@Self)^.clr := $00000080;
  37474. end;
  37475. procedure TUART1A_U1STA.setURXISEL1(thebits : TBits_1); inline;
  37476. begin
  37477. if thebits = 0 then
  37478. pTDefRegMap(@Self)^.clr := $00000080
  37479. else
  37480. pTDefRegMap(@Self)^.&set := $00000080;
  37481. end;
  37482. function TUART1A_U1STA.getURXISEL1 : TBits_1; inline;
  37483. begin
  37484. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  37485. end;
  37486. procedure TUART1A_U1STA.setUTXISEL0; inline;
  37487. begin
  37488. pTDefRegMap(@Self)^.&set := $00004000;
  37489. end;
  37490. procedure TUART1A_U1STA.clearUTXISEL0; inline;
  37491. begin
  37492. pTDefRegMap(@Self)^.clr := $00004000;
  37493. end;
  37494. procedure TUART1A_U1STA.setUTXISEL0(thebits : TBits_1); inline;
  37495. begin
  37496. if thebits = 0 then
  37497. pTDefRegMap(@Self)^.clr := $00004000
  37498. else
  37499. pTDefRegMap(@Self)^.&set := $00004000;
  37500. end;
  37501. function TUART1A_U1STA.getUTXISEL0 : TBits_1; inline;
  37502. begin
  37503. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  37504. end;
  37505. procedure TUART1A_U1STA.setUTXISEL1; inline;
  37506. begin
  37507. pTDefRegMap(@Self)^.&set := $00008000;
  37508. end;
  37509. procedure TUART1A_U1STA.clearUTXISEL1; inline;
  37510. begin
  37511. pTDefRegMap(@Self)^.clr := $00008000;
  37512. end;
  37513. procedure TUART1A_U1STA.setUTXISEL1(thebits : TBits_1); inline;
  37514. begin
  37515. if thebits = 0 then
  37516. pTDefRegMap(@Self)^.clr := $00008000
  37517. else
  37518. pTDefRegMap(@Self)^.&set := $00008000;
  37519. end;
  37520. function TUART1A_U1STA.getUTXISEL1 : TBits_1; inline;
  37521. begin
  37522. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37523. end;
  37524. procedure TUART1A_U1STA.setUTXSEL(thebits : TBits_2); inline;
  37525. begin
  37526. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  37527. end;
  37528. function TUART1A_U1STA.getUTXSEL : TBits_2; inline;
  37529. begin
  37530. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  37531. end;
  37532. procedure TUART1A_U1STA.setw(thebits : TBits_32); inline;
  37533. begin
  37534. pTDefRegMap(@Self)^.val := thebits;
  37535. end;
  37536. function TUART1A_U1STA.getw : TBits_32; inline;
  37537. begin
  37538. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  37539. end;
  37540. procedure TUART4_U1BMODE.setSTSEL; inline;
  37541. begin
  37542. pTDefRegMap(@Self)^.&set := $00000001;
  37543. end;
  37544. procedure TUART4_U1BMODE.clearSTSEL; inline;
  37545. begin
  37546. pTDefRegMap(@Self)^.clr := $00000001;
  37547. end;
  37548. procedure TUART4_U1BMODE.setSTSEL(thebits : TBits_1); inline;
  37549. begin
  37550. if thebits = 0 then
  37551. pTDefRegMap(@Self)^.clr := $00000001
  37552. else
  37553. pTDefRegMap(@Self)^.&set := $00000001;
  37554. end;
  37555. function TUART4_U1BMODE.getSTSEL : TBits_1; inline;
  37556. begin
  37557. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  37558. end;
  37559. procedure TUART4_U1BMODE.setPDSEL(thebits : TBits_2); inline;
  37560. begin
  37561. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  37562. end;
  37563. function TUART4_U1BMODE.getPDSEL : TBits_2; inline;
  37564. begin
  37565. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  37566. end;
  37567. procedure TUART4_U1BMODE.setBRGH; inline;
  37568. begin
  37569. pTDefRegMap(@Self)^.&set := $00000008;
  37570. end;
  37571. procedure TUART4_U1BMODE.clearBRGH; inline;
  37572. begin
  37573. pTDefRegMap(@Self)^.clr := $00000008;
  37574. end;
  37575. procedure TUART4_U1BMODE.setBRGH(thebits : TBits_1); inline;
  37576. begin
  37577. if thebits = 0 then
  37578. pTDefRegMap(@Self)^.clr := $00000008
  37579. else
  37580. pTDefRegMap(@Self)^.&set := $00000008;
  37581. end;
  37582. function TUART4_U1BMODE.getBRGH : TBits_1; inline;
  37583. begin
  37584. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  37585. end;
  37586. procedure TUART4_U1BMODE.setRXINV; inline;
  37587. begin
  37588. pTDefRegMap(@Self)^.&set := $00000010;
  37589. end;
  37590. procedure TUART4_U1BMODE.clearRXINV; inline;
  37591. begin
  37592. pTDefRegMap(@Self)^.clr := $00000010;
  37593. end;
  37594. procedure TUART4_U1BMODE.setRXINV(thebits : TBits_1); inline;
  37595. begin
  37596. if thebits = 0 then
  37597. pTDefRegMap(@Self)^.clr := $00000010
  37598. else
  37599. pTDefRegMap(@Self)^.&set := $00000010;
  37600. end;
  37601. function TUART4_U1BMODE.getRXINV : TBits_1; inline;
  37602. begin
  37603. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  37604. end;
  37605. procedure TUART4_U1BMODE.setABAUD; inline;
  37606. begin
  37607. pTDefRegMap(@Self)^.&set := $00000020;
  37608. end;
  37609. procedure TUART4_U1BMODE.clearABAUD; inline;
  37610. begin
  37611. pTDefRegMap(@Self)^.clr := $00000020;
  37612. end;
  37613. procedure TUART4_U1BMODE.setABAUD(thebits : TBits_1); inline;
  37614. begin
  37615. if thebits = 0 then
  37616. pTDefRegMap(@Self)^.clr := $00000020
  37617. else
  37618. pTDefRegMap(@Self)^.&set := $00000020;
  37619. end;
  37620. function TUART4_U1BMODE.getABAUD : TBits_1; inline;
  37621. begin
  37622. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  37623. end;
  37624. procedure TUART4_U1BMODE.setLPBACK; inline;
  37625. begin
  37626. pTDefRegMap(@Self)^.&set := $00000040;
  37627. end;
  37628. procedure TUART4_U1BMODE.clearLPBACK; inline;
  37629. begin
  37630. pTDefRegMap(@Self)^.clr := $00000040;
  37631. end;
  37632. procedure TUART4_U1BMODE.setLPBACK(thebits : TBits_1); inline;
  37633. begin
  37634. if thebits = 0 then
  37635. pTDefRegMap(@Self)^.clr := $00000040
  37636. else
  37637. pTDefRegMap(@Self)^.&set := $00000040;
  37638. end;
  37639. function TUART4_U1BMODE.getLPBACK : TBits_1; inline;
  37640. begin
  37641. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  37642. end;
  37643. procedure TUART4_U1BMODE.setWAKE; inline;
  37644. begin
  37645. pTDefRegMap(@Self)^.&set := $00000080;
  37646. end;
  37647. procedure TUART4_U1BMODE.clearWAKE; inline;
  37648. begin
  37649. pTDefRegMap(@Self)^.clr := $00000080;
  37650. end;
  37651. procedure TUART4_U1BMODE.setWAKE(thebits : TBits_1); inline;
  37652. begin
  37653. if thebits = 0 then
  37654. pTDefRegMap(@Self)^.clr := $00000080
  37655. else
  37656. pTDefRegMap(@Self)^.&set := $00000080;
  37657. end;
  37658. function TUART4_U1BMODE.getWAKE : TBits_1; inline;
  37659. begin
  37660. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  37661. end;
  37662. procedure TUART4_U1BMODE.setIREN; inline;
  37663. begin
  37664. pTDefRegMap(@Self)^.&set := $00001000;
  37665. end;
  37666. procedure TUART4_U1BMODE.clearIREN; inline;
  37667. begin
  37668. pTDefRegMap(@Self)^.clr := $00001000;
  37669. end;
  37670. procedure TUART4_U1BMODE.setIREN(thebits : TBits_1); inline;
  37671. begin
  37672. if thebits = 0 then
  37673. pTDefRegMap(@Self)^.clr := $00001000
  37674. else
  37675. pTDefRegMap(@Self)^.&set := $00001000;
  37676. end;
  37677. function TUART4_U1BMODE.getIREN : TBits_1; inline;
  37678. begin
  37679. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  37680. end;
  37681. procedure TUART4_U1BMODE.setSIDL; inline;
  37682. begin
  37683. pTDefRegMap(@Self)^.&set := $00002000;
  37684. end;
  37685. procedure TUART4_U1BMODE.clearSIDL; inline;
  37686. begin
  37687. pTDefRegMap(@Self)^.clr := $00002000;
  37688. end;
  37689. procedure TUART4_U1BMODE.setSIDL(thebits : TBits_1); inline;
  37690. begin
  37691. if thebits = 0 then
  37692. pTDefRegMap(@Self)^.clr := $00002000
  37693. else
  37694. pTDefRegMap(@Self)^.&set := $00002000;
  37695. end;
  37696. function TUART4_U1BMODE.getSIDL : TBits_1; inline;
  37697. begin
  37698. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  37699. end;
  37700. procedure TUART4_U1BMODE.setON; inline;
  37701. begin
  37702. pTDefRegMap(@Self)^.&set := $00008000;
  37703. end;
  37704. procedure TUART4_U1BMODE.clearON; inline;
  37705. begin
  37706. pTDefRegMap(@Self)^.clr := $00008000;
  37707. end;
  37708. procedure TUART4_U1BMODE.setON(thebits : TBits_1); inline;
  37709. begin
  37710. if thebits = 0 then
  37711. pTDefRegMap(@Self)^.clr := $00008000
  37712. else
  37713. pTDefRegMap(@Self)^.&set := $00008000;
  37714. end;
  37715. function TUART4_U1BMODE.getON : TBits_1; inline;
  37716. begin
  37717. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37718. end;
  37719. procedure TUART4_U1BMODE.setPDSEL0; inline;
  37720. begin
  37721. pTDefRegMap(@Self)^.&set := $00000002;
  37722. end;
  37723. procedure TUART4_U1BMODE.clearPDSEL0; inline;
  37724. begin
  37725. pTDefRegMap(@Self)^.clr := $00000002;
  37726. end;
  37727. procedure TUART4_U1BMODE.setPDSEL0(thebits : TBits_1); inline;
  37728. begin
  37729. if thebits = 0 then
  37730. pTDefRegMap(@Self)^.clr := $00000002
  37731. else
  37732. pTDefRegMap(@Self)^.&set := $00000002;
  37733. end;
  37734. function TUART4_U1BMODE.getPDSEL0 : TBits_1; inline;
  37735. begin
  37736. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  37737. end;
  37738. procedure TUART4_U1BMODE.setPDSEL1; inline;
  37739. begin
  37740. pTDefRegMap(@Self)^.&set := $00000004;
  37741. end;
  37742. procedure TUART4_U1BMODE.clearPDSEL1; inline;
  37743. begin
  37744. pTDefRegMap(@Self)^.clr := $00000004;
  37745. end;
  37746. procedure TUART4_U1BMODE.setPDSEL1(thebits : TBits_1); inline;
  37747. begin
  37748. if thebits = 0 then
  37749. pTDefRegMap(@Self)^.clr := $00000004
  37750. else
  37751. pTDefRegMap(@Self)^.&set := $00000004;
  37752. end;
  37753. function TUART4_U1BMODE.getPDSEL1 : TBits_1; inline;
  37754. begin
  37755. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  37756. end;
  37757. procedure TUART4_U1BMODE.setUSIDL; inline;
  37758. begin
  37759. pTDefRegMap(@Self)^.&set := $00002000;
  37760. end;
  37761. procedure TUART4_U1BMODE.clearUSIDL; inline;
  37762. begin
  37763. pTDefRegMap(@Self)^.clr := $00002000;
  37764. end;
  37765. procedure TUART4_U1BMODE.setUSIDL(thebits : TBits_1); inline;
  37766. begin
  37767. if thebits = 0 then
  37768. pTDefRegMap(@Self)^.clr := $00002000
  37769. else
  37770. pTDefRegMap(@Self)^.&set := $00002000;
  37771. end;
  37772. function TUART4_U1BMODE.getUSIDL : TBits_1; inline;
  37773. begin
  37774. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  37775. end;
  37776. procedure TUART4_U1BMODE.setUARTEN; inline;
  37777. begin
  37778. pTDefRegMap(@Self)^.&set := $00008000;
  37779. end;
  37780. procedure TUART4_U1BMODE.clearUARTEN; inline;
  37781. begin
  37782. pTDefRegMap(@Self)^.clr := $00008000;
  37783. end;
  37784. procedure TUART4_U1BMODE.setUARTEN(thebits : TBits_1); inline;
  37785. begin
  37786. if thebits = 0 then
  37787. pTDefRegMap(@Self)^.clr := $00008000
  37788. else
  37789. pTDefRegMap(@Self)^.&set := $00008000;
  37790. end;
  37791. function TUART4_U1BMODE.getUARTEN : TBits_1; inline;
  37792. begin
  37793. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37794. end;
  37795. procedure TUART4_U1BMODE.setw(thebits : TBits_32); inline;
  37796. begin
  37797. pTDefRegMap(@Self)^.val := thebits;
  37798. end;
  37799. function TUART4_U1BMODE.getw : TBits_32; inline;
  37800. begin
  37801. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  37802. end;
  37803. procedure TUART4_U4MODE.setSTSEL; inline;
  37804. begin
  37805. pTDefRegMap(@Self)^.&set := $00000001;
  37806. end;
  37807. procedure TUART4_U4MODE.clearSTSEL; inline;
  37808. begin
  37809. pTDefRegMap(@Self)^.clr := $00000001;
  37810. end;
  37811. procedure TUART4_U4MODE.setSTSEL(thebits : TBits_1); inline;
  37812. begin
  37813. if thebits = 0 then
  37814. pTDefRegMap(@Self)^.clr := $00000001
  37815. else
  37816. pTDefRegMap(@Self)^.&set := $00000001;
  37817. end;
  37818. function TUART4_U4MODE.getSTSEL : TBits_1; inline;
  37819. begin
  37820. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  37821. end;
  37822. procedure TUART4_U4MODE.setPDSEL(thebits : TBits_2); inline;
  37823. begin
  37824. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  37825. end;
  37826. function TUART4_U4MODE.getPDSEL : TBits_2; inline;
  37827. begin
  37828. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  37829. end;
  37830. procedure TUART4_U4MODE.setBRGH; inline;
  37831. begin
  37832. pTDefRegMap(@Self)^.&set := $00000008;
  37833. end;
  37834. procedure TUART4_U4MODE.clearBRGH; inline;
  37835. begin
  37836. pTDefRegMap(@Self)^.clr := $00000008;
  37837. end;
  37838. procedure TUART4_U4MODE.setBRGH(thebits : TBits_1); inline;
  37839. begin
  37840. if thebits = 0 then
  37841. pTDefRegMap(@Self)^.clr := $00000008
  37842. else
  37843. pTDefRegMap(@Self)^.&set := $00000008;
  37844. end;
  37845. function TUART4_U4MODE.getBRGH : TBits_1; inline;
  37846. begin
  37847. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  37848. end;
  37849. procedure TUART4_U4MODE.setRXINV; inline;
  37850. begin
  37851. pTDefRegMap(@Self)^.&set := $00000010;
  37852. end;
  37853. procedure TUART4_U4MODE.clearRXINV; inline;
  37854. begin
  37855. pTDefRegMap(@Self)^.clr := $00000010;
  37856. end;
  37857. procedure TUART4_U4MODE.setRXINV(thebits : TBits_1); inline;
  37858. begin
  37859. if thebits = 0 then
  37860. pTDefRegMap(@Self)^.clr := $00000010
  37861. else
  37862. pTDefRegMap(@Self)^.&set := $00000010;
  37863. end;
  37864. function TUART4_U4MODE.getRXINV : TBits_1; inline;
  37865. begin
  37866. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  37867. end;
  37868. procedure TUART4_U4MODE.setABAUD; inline;
  37869. begin
  37870. pTDefRegMap(@Self)^.&set := $00000020;
  37871. end;
  37872. procedure TUART4_U4MODE.clearABAUD; inline;
  37873. begin
  37874. pTDefRegMap(@Self)^.clr := $00000020;
  37875. end;
  37876. procedure TUART4_U4MODE.setABAUD(thebits : TBits_1); inline;
  37877. begin
  37878. if thebits = 0 then
  37879. pTDefRegMap(@Self)^.clr := $00000020
  37880. else
  37881. pTDefRegMap(@Self)^.&set := $00000020;
  37882. end;
  37883. function TUART4_U4MODE.getABAUD : TBits_1; inline;
  37884. begin
  37885. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  37886. end;
  37887. procedure TUART4_U4MODE.setLPBACK; inline;
  37888. begin
  37889. pTDefRegMap(@Self)^.&set := $00000040;
  37890. end;
  37891. procedure TUART4_U4MODE.clearLPBACK; inline;
  37892. begin
  37893. pTDefRegMap(@Self)^.clr := $00000040;
  37894. end;
  37895. procedure TUART4_U4MODE.setLPBACK(thebits : TBits_1); inline;
  37896. begin
  37897. if thebits = 0 then
  37898. pTDefRegMap(@Self)^.clr := $00000040
  37899. else
  37900. pTDefRegMap(@Self)^.&set := $00000040;
  37901. end;
  37902. function TUART4_U4MODE.getLPBACK : TBits_1; inline;
  37903. begin
  37904. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  37905. end;
  37906. procedure TUART4_U4MODE.setWAKE; inline;
  37907. begin
  37908. pTDefRegMap(@Self)^.&set := $00000080;
  37909. end;
  37910. procedure TUART4_U4MODE.clearWAKE; inline;
  37911. begin
  37912. pTDefRegMap(@Self)^.clr := $00000080;
  37913. end;
  37914. procedure TUART4_U4MODE.setWAKE(thebits : TBits_1); inline;
  37915. begin
  37916. if thebits = 0 then
  37917. pTDefRegMap(@Self)^.clr := $00000080
  37918. else
  37919. pTDefRegMap(@Self)^.&set := $00000080;
  37920. end;
  37921. function TUART4_U4MODE.getWAKE : TBits_1; inline;
  37922. begin
  37923. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  37924. end;
  37925. procedure TUART4_U4MODE.setIREN; inline;
  37926. begin
  37927. pTDefRegMap(@Self)^.&set := $00001000;
  37928. end;
  37929. procedure TUART4_U4MODE.clearIREN; inline;
  37930. begin
  37931. pTDefRegMap(@Self)^.clr := $00001000;
  37932. end;
  37933. procedure TUART4_U4MODE.setIREN(thebits : TBits_1); inline;
  37934. begin
  37935. if thebits = 0 then
  37936. pTDefRegMap(@Self)^.clr := $00001000
  37937. else
  37938. pTDefRegMap(@Self)^.&set := $00001000;
  37939. end;
  37940. function TUART4_U4MODE.getIREN : TBits_1; inline;
  37941. begin
  37942. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  37943. end;
  37944. procedure TUART4_U4MODE.setSIDL; inline;
  37945. begin
  37946. pTDefRegMap(@Self)^.&set := $00002000;
  37947. end;
  37948. procedure TUART4_U4MODE.clearSIDL; inline;
  37949. begin
  37950. pTDefRegMap(@Self)^.clr := $00002000;
  37951. end;
  37952. procedure TUART4_U4MODE.setSIDL(thebits : TBits_1); inline;
  37953. begin
  37954. if thebits = 0 then
  37955. pTDefRegMap(@Self)^.clr := $00002000
  37956. else
  37957. pTDefRegMap(@Self)^.&set := $00002000;
  37958. end;
  37959. function TUART4_U4MODE.getSIDL : TBits_1; inline;
  37960. begin
  37961. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  37962. end;
  37963. procedure TUART4_U4MODE.setON; inline;
  37964. begin
  37965. pTDefRegMap(@Self)^.&set := $00008000;
  37966. end;
  37967. procedure TUART4_U4MODE.clearON; inline;
  37968. begin
  37969. pTDefRegMap(@Self)^.clr := $00008000;
  37970. end;
  37971. procedure TUART4_U4MODE.setON(thebits : TBits_1); inline;
  37972. begin
  37973. if thebits = 0 then
  37974. pTDefRegMap(@Self)^.clr := $00008000
  37975. else
  37976. pTDefRegMap(@Self)^.&set := $00008000;
  37977. end;
  37978. function TUART4_U4MODE.getON : TBits_1; inline;
  37979. begin
  37980. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37981. end;
  37982. procedure TUART4_U4MODE.setPDSEL0; inline;
  37983. begin
  37984. pTDefRegMap(@Self)^.&set := $00000002;
  37985. end;
  37986. procedure TUART4_U4MODE.clearPDSEL0; inline;
  37987. begin
  37988. pTDefRegMap(@Self)^.clr := $00000002;
  37989. end;
  37990. procedure TUART4_U4MODE.setPDSEL0(thebits : TBits_1); inline;
  37991. begin
  37992. if thebits = 0 then
  37993. pTDefRegMap(@Self)^.clr := $00000002
  37994. else
  37995. pTDefRegMap(@Self)^.&set := $00000002;
  37996. end;
  37997. function TUART4_U4MODE.getPDSEL0 : TBits_1; inline;
  37998. begin
  37999. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  38000. end;
  38001. procedure TUART4_U4MODE.setPDSEL1; inline;
  38002. begin
  38003. pTDefRegMap(@Self)^.&set := $00000004;
  38004. end;
  38005. procedure TUART4_U4MODE.clearPDSEL1; inline;
  38006. begin
  38007. pTDefRegMap(@Self)^.clr := $00000004;
  38008. end;
  38009. procedure TUART4_U4MODE.setPDSEL1(thebits : TBits_1); inline;
  38010. begin
  38011. if thebits = 0 then
  38012. pTDefRegMap(@Self)^.clr := $00000004
  38013. else
  38014. pTDefRegMap(@Self)^.&set := $00000004;
  38015. end;
  38016. function TUART4_U4MODE.getPDSEL1 : TBits_1; inline;
  38017. begin
  38018. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  38019. end;
  38020. procedure TUART4_U4MODE.setUSIDL; inline;
  38021. begin
  38022. pTDefRegMap(@Self)^.&set := $00002000;
  38023. end;
  38024. procedure TUART4_U4MODE.clearUSIDL; inline;
  38025. begin
  38026. pTDefRegMap(@Self)^.clr := $00002000;
  38027. end;
  38028. procedure TUART4_U4MODE.setUSIDL(thebits : TBits_1); inline;
  38029. begin
  38030. if thebits = 0 then
  38031. pTDefRegMap(@Self)^.clr := $00002000
  38032. else
  38033. pTDefRegMap(@Self)^.&set := $00002000;
  38034. end;
  38035. function TUART4_U4MODE.getUSIDL : TBits_1; inline;
  38036. begin
  38037. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  38038. end;
  38039. procedure TUART4_U4MODE.setUARTEN; inline;
  38040. begin
  38041. pTDefRegMap(@Self)^.&set := $00008000;
  38042. end;
  38043. procedure TUART4_U4MODE.clearUARTEN; inline;
  38044. begin
  38045. pTDefRegMap(@Self)^.clr := $00008000;
  38046. end;
  38047. procedure TUART4_U4MODE.setUARTEN(thebits : TBits_1); inline;
  38048. begin
  38049. if thebits = 0 then
  38050. pTDefRegMap(@Self)^.clr := $00008000
  38051. else
  38052. pTDefRegMap(@Self)^.&set := $00008000;
  38053. end;
  38054. function TUART4_U4MODE.getUARTEN : TBits_1; inline;
  38055. begin
  38056. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  38057. end;
  38058. procedure TUART4_U4MODE.setw(thebits : TBits_32); inline;
  38059. begin
  38060. pTDefRegMap(@Self)^.val := thebits;
  38061. end;
  38062. function TUART4_U4MODE.getw : TBits_32; inline;
  38063. begin
  38064. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  38065. end;
  38066. procedure TUART4_U1BSTA.setURXDA; inline;
  38067. begin
  38068. pTDefRegMap(@Self)^.&set := $00000001;
  38069. end;
  38070. procedure TUART4_U1BSTA.clearURXDA; inline;
  38071. begin
  38072. pTDefRegMap(@Self)^.clr := $00000001;
  38073. end;
  38074. procedure TUART4_U1BSTA.setURXDA(thebits : TBits_1); inline;
  38075. begin
  38076. if thebits = 0 then
  38077. pTDefRegMap(@Self)^.clr := $00000001
  38078. else
  38079. pTDefRegMap(@Self)^.&set := $00000001;
  38080. end;
  38081. function TUART4_U1BSTA.getURXDA : TBits_1; inline;
  38082. begin
  38083. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  38084. end;
  38085. procedure TUART4_U1BSTA.setOERR; inline;
  38086. begin
  38087. pTDefRegMap(@Self)^.&set := $00000002;
  38088. end;
  38089. procedure TUART4_U1BSTA.clearOERR; inline;
  38090. begin
  38091. pTDefRegMap(@Self)^.clr := $00000002;
  38092. end;
  38093. procedure TUART4_U1BSTA.setOERR(thebits : TBits_1); inline;
  38094. begin
  38095. if thebits = 0 then
  38096. pTDefRegMap(@Self)^.clr := $00000002
  38097. else
  38098. pTDefRegMap(@Self)^.&set := $00000002;
  38099. end;
  38100. function TUART4_U1BSTA.getOERR : TBits_1; inline;
  38101. begin
  38102. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  38103. end;
  38104. procedure TUART4_U1BSTA.setFERR; inline;
  38105. begin
  38106. pTDefRegMap(@Self)^.&set := $00000004;
  38107. end;
  38108. procedure TUART4_U1BSTA.clearFERR; inline;
  38109. begin
  38110. pTDefRegMap(@Self)^.clr := $00000004;
  38111. end;
  38112. procedure TUART4_U1BSTA.setFERR(thebits : TBits_1); inline;
  38113. begin
  38114. if thebits = 0 then
  38115. pTDefRegMap(@Self)^.clr := $00000004
  38116. else
  38117. pTDefRegMap(@Self)^.&set := $00000004;
  38118. end;
  38119. function TUART4_U1BSTA.getFERR : TBits_1; inline;
  38120. begin
  38121. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  38122. end;
  38123. procedure TUART4_U1BSTA.setPERR; inline;
  38124. begin
  38125. pTDefRegMap(@Self)^.&set := $00000008;
  38126. end;
  38127. procedure TUART4_U1BSTA.clearPERR; inline;
  38128. begin
  38129. pTDefRegMap(@Self)^.clr := $00000008;
  38130. end;
  38131. procedure TUART4_U1BSTA.setPERR(thebits : TBits_1); inline;
  38132. begin
  38133. if thebits = 0 then
  38134. pTDefRegMap(@Self)^.clr := $00000008
  38135. else
  38136. pTDefRegMap(@Self)^.&set := $00000008;
  38137. end;
  38138. function TUART4_U1BSTA.getPERR : TBits_1; inline;
  38139. begin
  38140. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  38141. end;
  38142. procedure TUART4_U1BSTA.setRIDLE; inline;
  38143. begin
  38144. pTDefRegMap(@Self)^.&set := $00000010;
  38145. end;
  38146. procedure TUART4_U1BSTA.clearRIDLE; inline;
  38147. begin
  38148. pTDefRegMap(@Self)^.clr := $00000010;
  38149. end;
  38150. procedure TUART4_U1BSTA.setRIDLE(thebits : TBits_1); inline;
  38151. begin
  38152. if thebits = 0 then
  38153. pTDefRegMap(@Self)^.clr := $00000010
  38154. else
  38155. pTDefRegMap(@Self)^.&set := $00000010;
  38156. end;
  38157. function TUART4_U1BSTA.getRIDLE : TBits_1; inline;
  38158. begin
  38159. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  38160. end;
  38161. procedure TUART4_U1BSTA.setADDEN; inline;
  38162. begin
  38163. pTDefRegMap(@Self)^.&set := $00000020;
  38164. end;
  38165. procedure TUART4_U1BSTA.clearADDEN; inline;
  38166. begin
  38167. pTDefRegMap(@Self)^.clr := $00000020;
  38168. end;
  38169. procedure TUART4_U1BSTA.setADDEN(thebits : TBits_1); inline;
  38170. begin
  38171. if thebits = 0 then
  38172. pTDefRegMap(@Self)^.clr := $00000020
  38173. else
  38174. pTDefRegMap(@Self)^.&set := $00000020;
  38175. end;
  38176. function TUART4_U1BSTA.getADDEN : TBits_1; inline;
  38177. begin
  38178. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  38179. end;
  38180. procedure TUART4_U1BSTA.setURXISEL(thebits : TBits_2); inline;
  38181. begin
  38182. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  38183. end;
  38184. function TUART4_U1BSTA.getURXISEL : TBits_2; inline;
  38185. begin
  38186. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  38187. end;
  38188. procedure TUART4_U1BSTA.setTRMT; inline;
  38189. begin
  38190. pTDefRegMap(@Self)^.&set := $00000100;
  38191. end;
  38192. procedure TUART4_U1BSTA.clearTRMT; inline;
  38193. begin
  38194. pTDefRegMap(@Self)^.clr := $00000100;
  38195. end;
  38196. procedure TUART4_U1BSTA.setTRMT(thebits : TBits_1); inline;
  38197. begin
  38198. if thebits = 0 then
  38199. pTDefRegMap(@Self)^.clr := $00000100
  38200. else
  38201. pTDefRegMap(@Self)^.&set := $00000100;
  38202. end;
  38203. function TUART4_U1BSTA.getTRMT : TBits_1; inline;
  38204. begin
  38205. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  38206. end;
  38207. procedure TUART4_U1BSTA.setUTXBF; inline;
  38208. begin
  38209. pTDefRegMap(@Self)^.&set := $00000200;
  38210. end;
  38211. procedure TUART4_U1BSTA.clearUTXBF; inline;
  38212. begin
  38213. pTDefRegMap(@Self)^.clr := $00000200;
  38214. end;
  38215. procedure TUART4_U1BSTA.setUTXBF(thebits : TBits_1); inline;
  38216. begin
  38217. if thebits = 0 then
  38218. pTDefRegMap(@Self)^.clr := $00000200
  38219. else
  38220. pTDefRegMap(@Self)^.&set := $00000200;
  38221. end;
  38222. function TUART4_U1BSTA.getUTXBF : TBits_1; inline;
  38223. begin
  38224. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  38225. end;
  38226. procedure TUART4_U1BSTA.setUTXEN; inline;
  38227. begin
  38228. pTDefRegMap(@Self)^.&set := $00000400;
  38229. end;
  38230. procedure TUART4_U1BSTA.clearUTXEN; inline;
  38231. begin
  38232. pTDefRegMap(@Self)^.clr := $00000400;
  38233. end;
  38234. procedure TUART4_U1BSTA.setUTXEN(thebits : TBits_1); inline;
  38235. begin
  38236. if thebits = 0 then
  38237. pTDefRegMap(@Self)^.clr := $00000400
  38238. else
  38239. pTDefRegMap(@Self)^.&set := $00000400;
  38240. end;
  38241. function TUART4_U1BSTA.getUTXEN : TBits_1; inline;
  38242. begin
  38243. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  38244. end;
  38245. procedure TUART4_U1BSTA.setUTXBRK; inline;
  38246. begin
  38247. pTDefRegMap(@Self)^.&set := $00000800;
  38248. end;
  38249. procedure TUART4_U1BSTA.clearUTXBRK; inline;
  38250. begin
  38251. pTDefRegMap(@Self)^.clr := $00000800;
  38252. end;
  38253. procedure TUART4_U1BSTA.setUTXBRK(thebits : TBits_1); inline;
  38254. begin
  38255. if thebits = 0 then
  38256. pTDefRegMap(@Self)^.clr := $00000800
  38257. else
  38258. pTDefRegMap(@Self)^.&set := $00000800;
  38259. end;
  38260. function TUART4_U1BSTA.getUTXBRK : TBits_1; inline;
  38261. begin
  38262. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  38263. end;
  38264. procedure TUART4_U1BSTA.setURXEN; inline;
  38265. begin
  38266. pTDefRegMap(@Self)^.&set := $00001000;
  38267. end;
  38268. procedure TUART4_U1BSTA.clearURXEN; inline;
  38269. begin
  38270. pTDefRegMap(@Self)^.clr := $00001000;
  38271. end;
  38272. procedure TUART4_U1BSTA.setURXEN(thebits : TBits_1); inline;
  38273. begin
  38274. if thebits = 0 then
  38275. pTDefRegMap(@Self)^.clr := $00001000
  38276. else
  38277. pTDefRegMap(@Self)^.&set := $00001000;
  38278. end;
  38279. function TUART4_U1BSTA.getURXEN : TBits_1; inline;
  38280. begin
  38281. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  38282. end;
  38283. procedure TUART4_U1BSTA.setUTXINV; inline;
  38284. begin
  38285. pTDefRegMap(@Self)^.&set := $00002000;
  38286. end;
  38287. procedure TUART4_U1BSTA.clearUTXINV; inline;
  38288. begin
  38289. pTDefRegMap(@Self)^.clr := $00002000;
  38290. end;
  38291. procedure TUART4_U1BSTA.setUTXINV(thebits : TBits_1); inline;
  38292. begin
  38293. if thebits = 0 then
  38294. pTDefRegMap(@Self)^.clr := $00002000
  38295. else
  38296. pTDefRegMap(@Self)^.&set := $00002000;
  38297. end;
  38298. function TUART4_U1BSTA.getUTXINV : TBits_1; inline;
  38299. begin
  38300. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  38301. end;
  38302. procedure TUART4_U1BSTA.setUTXISEL(thebits : TBits_2); inline;
  38303. begin
  38304. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  38305. end;
  38306. function TUART4_U1BSTA.getUTXISEL : TBits_2; inline;
  38307. begin
  38308. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  38309. end;
  38310. procedure TUART4_U1BSTA.setADDR(thebits : TBits_8); inline;
  38311. begin
  38312. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  38313. end;
  38314. function TUART4_U1BSTA.getADDR : TBits_8; inline;
  38315. begin
  38316. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  38317. end;
  38318. procedure TUART4_U1BSTA.setADM_EN; inline;
  38319. begin
  38320. pTDefRegMap(@Self)^.&set := $01000000;
  38321. end;
  38322. procedure TUART4_U1BSTA.clearADM_EN; inline;
  38323. begin
  38324. pTDefRegMap(@Self)^.clr := $01000000;
  38325. end;
  38326. procedure TUART4_U1BSTA.setADM_EN(thebits : TBits_1); inline;
  38327. begin
  38328. if thebits = 0 then
  38329. pTDefRegMap(@Self)^.clr := $01000000
  38330. else
  38331. pTDefRegMap(@Self)^.&set := $01000000;
  38332. end;
  38333. function TUART4_U1BSTA.getADM_EN : TBits_1; inline;
  38334. begin
  38335. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  38336. end;
  38337. procedure TUART4_U1BSTA.setURXISEL0; inline;
  38338. begin
  38339. pTDefRegMap(@Self)^.&set := $00000040;
  38340. end;
  38341. procedure TUART4_U1BSTA.clearURXISEL0; inline;
  38342. begin
  38343. pTDefRegMap(@Self)^.clr := $00000040;
  38344. end;
  38345. procedure TUART4_U1BSTA.setURXISEL0(thebits : TBits_1); inline;
  38346. begin
  38347. if thebits = 0 then
  38348. pTDefRegMap(@Self)^.clr := $00000040
  38349. else
  38350. pTDefRegMap(@Self)^.&set := $00000040;
  38351. end;
  38352. function TUART4_U1BSTA.getURXISEL0 : TBits_1; inline;
  38353. begin
  38354. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  38355. end;
  38356. procedure TUART4_U1BSTA.setURXISEL1; inline;
  38357. begin
  38358. pTDefRegMap(@Self)^.&set := $00000080;
  38359. end;
  38360. procedure TUART4_U1BSTA.clearURXISEL1; inline;
  38361. begin
  38362. pTDefRegMap(@Self)^.clr := $00000080;
  38363. end;
  38364. procedure TUART4_U1BSTA.setURXISEL1(thebits : TBits_1); inline;
  38365. begin
  38366. if thebits = 0 then
  38367. pTDefRegMap(@Self)^.clr := $00000080
  38368. else
  38369. pTDefRegMap(@Self)^.&set := $00000080;
  38370. end;
  38371. function TUART4_U1BSTA.getURXISEL1 : TBits_1; inline;
  38372. begin
  38373. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  38374. end;
  38375. procedure TUART4_U1BSTA.setUTXISEL0; inline;
  38376. begin
  38377. pTDefRegMap(@Self)^.&set := $00004000;
  38378. end;
  38379. procedure TUART4_U1BSTA.clearUTXISEL0; inline;
  38380. begin
  38381. pTDefRegMap(@Self)^.clr := $00004000;
  38382. end;
  38383. procedure TUART4_U1BSTA.setUTXISEL0(thebits : TBits_1); inline;
  38384. begin
  38385. if thebits = 0 then
  38386. pTDefRegMap(@Self)^.clr := $00004000
  38387. else
  38388. pTDefRegMap(@Self)^.&set := $00004000;
  38389. end;
  38390. function TUART4_U1BSTA.getUTXISEL0 : TBits_1; inline;
  38391. begin
  38392. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  38393. end;
  38394. procedure TUART4_U1BSTA.setUTXISEL1; inline;
  38395. begin
  38396. pTDefRegMap(@Self)^.&set := $00008000;
  38397. end;
  38398. procedure TUART4_U1BSTA.clearUTXISEL1; inline;
  38399. begin
  38400. pTDefRegMap(@Self)^.clr := $00008000;
  38401. end;
  38402. procedure TUART4_U1BSTA.setUTXISEL1(thebits : TBits_1); inline;
  38403. begin
  38404. if thebits = 0 then
  38405. pTDefRegMap(@Self)^.clr := $00008000
  38406. else
  38407. pTDefRegMap(@Self)^.&set := $00008000;
  38408. end;
  38409. function TUART4_U1BSTA.getUTXISEL1 : TBits_1; inline;
  38410. begin
  38411. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  38412. end;
  38413. procedure TUART4_U1BSTA.setUTXSEL(thebits : TBits_2); inline;
  38414. begin
  38415. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  38416. end;
  38417. function TUART4_U1BSTA.getUTXSEL : TBits_2; inline;
  38418. begin
  38419. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  38420. end;
  38421. procedure TUART4_U1BSTA.setw(thebits : TBits_32); inline;
  38422. begin
  38423. pTDefRegMap(@Self)^.val := thebits;
  38424. end;
  38425. function TUART4_U1BSTA.getw : TBits_32; inline;
  38426. begin
  38427. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  38428. end;
  38429. procedure TUART4_U4STA.setURXDA; inline;
  38430. begin
  38431. pTDefRegMap(@Self)^.&set := $00000001;
  38432. end;
  38433. procedure TUART4_U4STA.clearURXDA; inline;
  38434. begin
  38435. pTDefRegMap(@Self)^.clr := $00000001;
  38436. end;
  38437. procedure TUART4_U4STA.setURXDA(thebits : TBits_1); inline;
  38438. begin
  38439. if thebits = 0 then
  38440. pTDefRegMap(@Self)^.clr := $00000001
  38441. else
  38442. pTDefRegMap(@Self)^.&set := $00000001;
  38443. end;
  38444. function TUART4_U4STA.getURXDA : TBits_1; inline;
  38445. begin
  38446. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  38447. end;
  38448. procedure TUART4_U4STA.setOERR; inline;
  38449. begin
  38450. pTDefRegMap(@Self)^.&set := $00000002;
  38451. end;
  38452. procedure TUART4_U4STA.clearOERR; inline;
  38453. begin
  38454. pTDefRegMap(@Self)^.clr := $00000002;
  38455. end;
  38456. procedure TUART4_U4STA.setOERR(thebits : TBits_1); inline;
  38457. begin
  38458. if thebits = 0 then
  38459. pTDefRegMap(@Self)^.clr := $00000002
  38460. else
  38461. pTDefRegMap(@Self)^.&set := $00000002;
  38462. end;
  38463. function TUART4_U4STA.getOERR : TBits_1; inline;
  38464. begin
  38465. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  38466. end;
  38467. procedure TUART4_U4STA.setFERR; inline;
  38468. begin
  38469. pTDefRegMap(@Self)^.&set := $00000004;
  38470. end;
  38471. procedure TUART4_U4STA.clearFERR; inline;
  38472. begin
  38473. pTDefRegMap(@Self)^.clr := $00000004;
  38474. end;
  38475. procedure TUART4_U4STA.setFERR(thebits : TBits_1); inline;
  38476. begin
  38477. if thebits = 0 then
  38478. pTDefRegMap(@Self)^.clr := $00000004
  38479. else
  38480. pTDefRegMap(@Self)^.&set := $00000004;
  38481. end;
  38482. function TUART4_U4STA.getFERR : TBits_1; inline;
  38483. begin
  38484. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  38485. end;
  38486. procedure TUART4_U4STA.setPERR; inline;
  38487. begin
  38488. pTDefRegMap(@Self)^.&set := $00000008;
  38489. end;
  38490. procedure TUART4_U4STA.clearPERR; inline;
  38491. begin
  38492. pTDefRegMap(@Self)^.clr := $00000008;
  38493. end;
  38494. procedure TUART4_U4STA.setPERR(thebits : TBits_1); inline;
  38495. begin
  38496. if thebits = 0 then
  38497. pTDefRegMap(@Self)^.clr := $00000008
  38498. else
  38499. pTDefRegMap(@Self)^.&set := $00000008;
  38500. end;
  38501. function TUART4_U4STA.getPERR : TBits_1; inline;
  38502. begin
  38503. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  38504. end;
  38505. procedure TUART4_U4STA.setRIDLE; inline;
  38506. begin
  38507. pTDefRegMap(@Self)^.&set := $00000010;
  38508. end;
  38509. procedure TUART4_U4STA.clearRIDLE; inline;
  38510. begin
  38511. pTDefRegMap(@Self)^.clr := $00000010;
  38512. end;
  38513. procedure TUART4_U4STA.setRIDLE(thebits : TBits_1); inline;
  38514. begin
  38515. if thebits = 0 then
  38516. pTDefRegMap(@Self)^.clr := $00000010
  38517. else
  38518. pTDefRegMap(@Self)^.&set := $00000010;
  38519. end;
  38520. function TUART4_U4STA.getRIDLE : TBits_1; inline;
  38521. begin
  38522. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  38523. end;
  38524. procedure TUART4_U4STA.setADDEN; inline;
  38525. begin
  38526. pTDefRegMap(@Self)^.&set := $00000020;
  38527. end;
  38528. procedure TUART4_U4STA.clearADDEN; inline;
  38529. begin
  38530. pTDefRegMap(@Self)^.clr := $00000020;
  38531. end;
  38532. procedure TUART4_U4STA.setADDEN(thebits : TBits_1); inline;
  38533. begin
  38534. if thebits = 0 then
  38535. pTDefRegMap(@Self)^.clr := $00000020
  38536. else
  38537. pTDefRegMap(@Self)^.&set := $00000020;
  38538. end;
  38539. function TUART4_U4STA.getADDEN : TBits_1; inline;
  38540. begin
  38541. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  38542. end;
  38543. procedure TUART4_U4STA.setURXISEL(thebits : TBits_2); inline;
  38544. begin
  38545. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  38546. end;
  38547. function TUART4_U4STA.getURXISEL : TBits_2; inline;
  38548. begin
  38549. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  38550. end;
  38551. procedure TUART4_U4STA.setTRMT; inline;
  38552. begin
  38553. pTDefRegMap(@Self)^.&set := $00000100;
  38554. end;
  38555. procedure TUART4_U4STA.clearTRMT; inline;
  38556. begin
  38557. pTDefRegMap(@Self)^.clr := $00000100;
  38558. end;
  38559. procedure TUART4_U4STA.setTRMT(thebits : TBits_1); inline;
  38560. begin
  38561. if thebits = 0 then
  38562. pTDefRegMap(@Self)^.clr := $00000100
  38563. else
  38564. pTDefRegMap(@Self)^.&set := $00000100;
  38565. end;
  38566. function TUART4_U4STA.getTRMT : TBits_1; inline;
  38567. begin
  38568. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  38569. end;
  38570. procedure TUART4_U4STA.setUTXBF; inline;
  38571. begin
  38572. pTDefRegMap(@Self)^.&set := $00000200;
  38573. end;
  38574. procedure TUART4_U4STA.clearUTXBF; inline;
  38575. begin
  38576. pTDefRegMap(@Self)^.clr := $00000200;
  38577. end;
  38578. procedure TUART4_U4STA.setUTXBF(thebits : TBits_1); inline;
  38579. begin
  38580. if thebits = 0 then
  38581. pTDefRegMap(@Self)^.clr := $00000200
  38582. else
  38583. pTDefRegMap(@Self)^.&set := $00000200;
  38584. end;
  38585. function TUART4_U4STA.getUTXBF : TBits_1; inline;
  38586. begin
  38587. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  38588. end;
  38589. procedure TUART4_U4STA.setUTXEN; inline;
  38590. begin
  38591. pTDefRegMap(@Self)^.&set := $00000400;
  38592. end;
  38593. procedure TUART4_U4STA.clearUTXEN; inline;
  38594. begin
  38595. pTDefRegMap(@Self)^.clr := $00000400;
  38596. end;
  38597. procedure TUART4_U4STA.setUTXEN(thebits : TBits_1); inline;
  38598. begin
  38599. if thebits = 0 then
  38600. pTDefRegMap(@Self)^.clr := $00000400
  38601. else
  38602. pTDefRegMap(@Self)^.&set := $00000400;
  38603. end;
  38604. function TUART4_U4STA.getUTXEN : TBits_1; inline;
  38605. begin
  38606. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  38607. end;
  38608. procedure TUART4_U4STA.setUTXBRK; inline;
  38609. begin
  38610. pTDefRegMap(@Self)^.&set := $00000800;
  38611. end;
  38612. procedure TUART4_U4STA.clearUTXBRK; inline;
  38613. begin
  38614. pTDefRegMap(@Self)^.clr := $00000800;
  38615. end;
  38616. procedure TUART4_U4STA.setUTXBRK(thebits : TBits_1); inline;
  38617. begin
  38618. if thebits = 0 then
  38619. pTDefRegMap(@Self)^.clr := $00000800
  38620. else
  38621. pTDefRegMap(@Self)^.&set := $00000800;
  38622. end;
  38623. function TUART4_U4STA.getUTXBRK : TBits_1; inline;
  38624. begin
  38625. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  38626. end;
  38627. procedure TUART4_U4STA.setURXEN; inline;
  38628. begin
  38629. pTDefRegMap(@Self)^.&set := $00001000;
  38630. end;
  38631. procedure TUART4_U4STA.clearURXEN; inline;
  38632. begin
  38633. pTDefRegMap(@Self)^.clr := $00001000;
  38634. end;
  38635. procedure TUART4_U4STA.setURXEN(thebits : TBits_1); inline;
  38636. begin
  38637. if thebits = 0 then
  38638. pTDefRegMap(@Self)^.clr := $00001000
  38639. else
  38640. pTDefRegMap(@Self)^.&set := $00001000;
  38641. end;
  38642. function TUART4_U4STA.getURXEN : TBits_1; inline;
  38643. begin
  38644. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  38645. end;
  38646. procedure TUART4_U4STA.setUTXINV; inline;
  38647. begin
  38648. pTDefRegMap(@Self)^.&set := $00002000;
  38649. end;
  38650. procedure TUART4_U4STA.clearUTXINV; inline;
  38651. begin
  38652. pTDefRegMap(@Self)^.clr := $00002000;
  38653. end;
  38654. procedure TUART4_U4STA.setUTXINV(thebits : TBits_1); inline;
  38655. begin
  38656. if thebits = 0 then
  38657. pTDefRegMap(@Self)^.clr := $00002000
  38658. else
  38659. pTDefRegMap(@Self)^.&set := $00002000;
  38660. end;
  38661. function TUART4_U4STA.getUTXINV : TBits_1; inline;
  38662. begin
  38663. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  38664. end;
  38665. procedure TUART4_U4STA.setUTXISEL(thebits : TBits_2); inline;
  38666. begin
  38667. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  38668. end;
  38669. function TUART4_U4STA.getUTXISEL : TBits_2; inline;
  38670. begin
  38671. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  38672. end;
  38673. procedure TUART4_U4STA.setADDR(thebits : TBits_8); inline;
  38674. begin
  38675. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  38676. end;
  38677. function TUART4_U4STA.getADDR : TBits_8; inline;
  38678. begin
  38679. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  38680. end;
  38681. procedure TUART4_U4STA.setADM_EN; inline;
  38682. begin
  38683. pTDefRegMap(@Self)^.&set := $01000000;
  38684. end;
  38685. procedure TUART4_U4STA.clearADM_EN; inline;
  38686. begin
  38687. pTDefRegMap(@Self)^.clr := $01000000;
  38688. end;
  38689. procedure TUART4_U4STA.setADM_EN(thebits : TBits_1); inline;
  38690. begin
  38691. if thebits = 0 then
  38692. pTDefRegMap(@Self)^.clr := $01000000
  38693. else
  38694. pTDefRegMap(@Self)^.&set := $01000000;
  38695. end;
  38696. function TUART4_U4STA.getADM_EN : TBits_1; inline;
  38697. begin
  38698. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  38699. end;
  38700. procedure TUART4_U4STA.setURXISEL0; inline;
  38701. begin
  38702. pTDefRegMap(@Self)^.&set := $00000040;
  38703. end;
  38704. procedure TUART4_U4STA.clearURXISEL0; inline;
  38705. begin
  38706. pTDefRegMap(@Self)^.clr := $00000040;
  38707. end;
  38708. procedure TUART4_U4STA.setURXISEL0(thebits : TBits_1); inline;
  38709. begin
  38710. if thebits = 0 then
  38711. pTDefRegMap(@Self)^.clr := $00000040
  38712. else
  38713. pTDefRegMap(@Self)^.&set := $00000040;
  38714. end;
  38715. function TUART4_U4STA.getURXISEL0 : TBits_1; inline;
  38716. begin
  38717. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  38718. end;
  38719. procedure TUART4_U4STA.setURXISEL1; inline;
  38720. begin
  38721. pTDefRegMap(@Self)^.&set := $00000080;
  38722. end;
  38723. procedure TUART4_U4STA.clearURXISEL1; inline;
  38724. begin
  38725. pTDefRegMap(@Self)^.clr := $00000080;
  38726. end;
  38727. procedure TUART4_U4STA.setURXISEL1(thebits : TBits_1); inline;
  38728. begin
  38729. if thebits = 0 then
  38730. pTDefRegMap(@Self)^.clr := $00000080
  38731. else
  38732. pTDefRegMap(@Self)^.&set := $00000080;
  38733. end;
  38734. function TUART4_U4STA.getURXISEL1 : TBits_1; inline;
  38735. begin
  38736. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  38737. end;
  38738. procedure TUART4_U4STA.setUTXISEL0; inline;
  38739. begin
  38740. pTDefRegMap(@Self)^.&set := $00004000;
  38741. end;
  38742. procedure TUART4_U4STA.clearUTXISEL0; inline;
  38743. begin
  38744. pTDefRegMap(@Self)^.clr := $00004000;
  38745. end;
  38746. procedure TUART4_U4STA.setUTXISEL0(thebits : TBits_1); inline;
  38747. begin
  38748. if thebits = 0 then
  38749. pTDefRegMap(@Self)^.clr := $00004000
  38750. else
  38751. pTDefRegMap(@Self)^.&set := $00004000;
  38752. end;
  38753. function TUART4_U4STA.getUTXISEL0 : TBits_1; inline;
  38754. begin
  38755. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  38756. end;
  38757. procedure TUART4_U4STA.setUTXISEL1; inline;
  38758. begin
  38759. pTDefRegMap(@Self)^.&set := $00008000;
  38760. end;
  38761. procedure TUART4_U4STA.clearUTXISEL1; inline;
  38762. begin
  38763. pTDefRegMap(@Self)^.clr := $00008000;
  38764. end;
  38765. procedure TUART4_U4STA.setUTXISEL1(thebits : TBits_1); inline;
  38766. begin
  38767. if thebits = 0 then
  38768. pTDefRegMap(@Self)^.clr := $00008000
  38769. else
  38770. pTDefRegMap(@Self)^.&set := $00008000;
  38771. end;
  38772. function TUART4_U4STA.getUTXISEL1 : TBits_1; inline;
  38773. begin
  38774. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  38775. end;
  38776. procedure TUART4_U4STA.setUTXSEL(thebits : TBits_2); inline;
  38777. begin
  38778. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  38779. end;
  38780. function TUART4_U4STA.getUTXSEL : TBits_2; inline;
  38781. begin
  38782. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  38783. end;
  38784. procedure TUART4_U4STA.setw(thebits : TBits_32); inline;
  38785. begin
  38786. pTDefRegMap(@Self)^.val := thebits;
  38787. end;
  38788. function TUART4_U4STA.getw : TBits_32; inline;
  38789. begin
  38790. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  38791. end;
  38792. procedure TUART3_U2AMODE.setSTSEL; inline;
  38793. begin
  38794. pTDefRegMap(@Self)^.&set := $00000001;
  38795. end;
  38796. procedure TUART3_U2AMODE.clearSTSEL; inline;
  38797. begin
  38798. pTDefRegMap(@Self)^.clr := $00000001;
  38799. end;
  38800. procedure TUART3_U2AMODE.setSTSEL(thebits : TBits_1); inline;
  38801. begin
  38802. if thebits = 0 then
  38803. pTDefRegMap(@Self)^.clr := $00000001
  38804. else
  38805. pTDefRegMap(@Self)^.&set := $00000001;
  38806. end;
  38807. function TUART3_U2AMODE.getSTSEL : TBits_1; inline;
  38808. begin
  38809. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  38810. end;
  38811. procedure TUART3_U2AMODE.setPDSEL(thebits : TBits_2); inline;
  38812. begin
  38813. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  38814. end;
  38815. function TUART3_U2AMODE.getPDSEL : TBits_2; inline;
  38816. begin
  38817. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  38818. end;
  38819. procedure TUART3_U2AMODE.setBRGH; inline;
  38820. begin
  38821. pTDefRegMap(@Self)^.&set := $00000008;
  38822. end;
  38823. procedure TUART3_U2AMODE.clearBRGH; inline;
  38824. begin
  38825. pTDefRegMap(@Self)^.clr := $00000008;
  38826. end;
  38827. procedure TUART3_U2AMODE.setBRGH(thebits : TBits_1); inline;
  38828. begin
  38829. if thebits = 0 then
  38830. pTDefRegMap(@Self)^.clr := $00000008
  38831. else
  38832. pTDefRegMap(@Self)^.&set := $00000008;
  38833. end;
  38834. function TUART3_U2AMODE.getBRGH : TBits_1; inline;
  38835. begin
  38836. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  38837. end;
  38838. procedure TUART3_U2AMODE.setRXINV; inline;
  38839. begin
  38840. pTDefRegMap(@Self)^.&set := $00000010;
  38841. end;
  38842. procedure TUART3_U2AMODE.clearRXINV; inline;
  38843. begin
  38844. pTDefRegMap(@Self)^.clr := $00000010;
  38845. end;
  38846. procedure TUART3_U2AMODE.setRXINV(thebits : TBits_1); inline;
  38847. begin
  38848. if thebits = 0 then
  38849. pTDefRegMap(@Self)^.clr := $00000010
  38850. else
  38851. pTDefRegMap(@Self)^.&set := $00000010;
  38852. end;
  38853. function TUART3_U2AMODE.getRXINV : TBits_1; inline;
  38854. begin
  38855. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  38856. end;
  38857. procedure TUART3_U2AMODE.setABAUD; inline;
  38858. begin
  38859. pTDefRegMap(@Self)^.&set := $00000020;
  38860. end;
  38861. procedure TUART3_U2AMODE.clearABAUD; inline;
  38862. begin
  38863. pTDefRegMap(@Self)^.clr := $00000020;
  38864. end;
  38865. procedure TUART3_U2AMODE.setABAUD(thebits : TBits_1); inline;
  38866. begin
  38867. if thebits = 0 then
  38868. pTDefRegMap(@Self)^.clr := $00000020
  38869. else
  38870. pTDefRegMap(@Self)^.&set := $00000020;
  38871. end;
  38872. function TUART3_U2AMODE.getABAUD : TBits_1; inline;
  38873. begin
  38874. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  38875. end;
  38876. procedure TUART3_U2AMODE.setLPBACK; inline;
  38877. begin
  38878. pTDefRegMap(@Self)^.&set := $00000040;
  38879. end;
  38880. procedure TUART3_U2AMODE.clearLPBACK; inline;
  38881. begin
  38882. pTDefRegMap(@Self)^.clr := $00000040;
  38883. end;
  38884. procedure TUART3_U2AMODE.setLPBACK(thebits : TBits_1); inline;
  38885. begin
  38886. if thebits = 0 then
  38887. pTDefRegMap(@Self)^.clr := $00000040
  38888. else
  38889. pTDefRegMap(@Self)^.&set := $00000040;
  38890. end;
  38891. function TUART3_U2AMODE.getLPBACK : TBits_1; inline;
  38892. begin
  38893. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  38894. end;
  38895. procedure TUART3_U2AMODE.setWAKE; inline;
  38896. begin
  38897. pTDefRegMap(@Self)^.&set := $00000080;
  38898. end;
  38899. procedure TUART3_U2AMODE.clearWAKE; inline;
  38900. begin
  38901. pTDefRegMap(@Self)^.clr := $00000080;
  38902. end;
  38903. procedure TUART3_U2AMODE.setWAKE(thebits : TBits_1); inline;
  38904. begin
  38905. if thebits = 0 then
  38906. pTDefRegMap(@Self)^.clr := $00000080
  38907. else
  38908. pTDefRegMap(@Self)^.&set := $00000080;
  38909. end;
  38910. function TUART3_U2AMODE.getWAKE : TBits_1; inline;
  38911. begin
  38912. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  38913. end;
  38914. procedure TUART3_U2AMODE.setUEN(thebits : TBits_2); inline;
  38915. begin
  38916. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  38917. end;
  38918. function TUART3_U2AMODE.getUEN : TBits_2; inline;
  38919. begin
  38920. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  38921. end;
  38922. procedure TUART3_U2AMODE.setRTSMD; inline;
  38923. begin
  38924. pTDefRegMap(@Self)^.&set := $00000800;
  38925. end;
  38926. procedure TUART3_U2AMODE.clearRTSMD; inline;
  38927. begin
  38928. pTDefRegMap(@Self)^.clr := $00000800;
  38929. end;
  38930. procedure TUART3_U2AMODE.setRTSMD(thebits : TBits_1); inline;
  38931. begin
  38932. if thebits = 0 then
  38933. pTDefRegMap(@Self)^.clr := $00000800
  38934. else
  38935. pTDefRegMap(@Self)^.&set := $00000800;
  38936. end;
  38937. function TUART3_U2AMODE.getRTSMD : TBits_1; inline;
  38938. begin
  38939. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  38940. end;
  38941. procedure TUART3_U2AMODE.setIREN; inline;
  38942. begin
  38943. pTDefRegMap(@Self)^.&set := $00001000;
  38944. end;
  38945. procedure TUART3_U2AMODE.clearIREN; inline;
  38946. begin
  38947. pTDefRegMap(@Self)^.clr := $00001000;
  38948. end;
  38949. procedure TUART3_U2AMODE.setIREN(thebits : TBits_1); inline;
  38950. begin
  38951. if thebits = 0 then
  38952. pTDefRegMap(@Self)^.clr := $00001000
  38953. else
  38954. pTDefRegMap(@Self)^.&set := $00001000;
  38955. end;
  38956. function TUART3_U2AMODE.getIREN : TBits_1; inline;
  38957. begin
  38958. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  38959. end;
  38960. procedure TUART3_U2AMODE.setSIDL; inline;
  38961. begin
  38962. pTDefRegMap(@Self)^.&set := $00002000;
  38963. end;
  38964. procedure TUART3_U2AMODE.clearSIDL; inline;
  38965. begin
  38966. pTDefRegMap(@Self)^.clr := $00002000;
  38967. end;
  38968. procedure TUART3_U2AMODE.setSIDL(thebits : TBits_1); inline;
  38969. begin
  38970. if thebits = 0 then
  38971. pTDefRegMap(@Self)^.clr := $00002000
  38972. else
  38973. pTDefRegMap(@Self)^.&set := $00002000;
  38974. end;
  38975. function TUART3_U2AMODE.getSIDL : TBits_1; inline;
  38976. begin
  38977. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  38978. end;
  38979. procedure TUART3_U2AMODE.setON; inline;
  38980. begin
  38981. pTDefRegMap(@Self)^.&set := $00008000;
  38982. end;
  38983. procedure TUART3_U2AMODE.clearON; inline;
  38984. begin
  38985. pTDefRegMap(@Self)^.clr := $00008000;
  38986. end;
  38987. procedure TUART3_U2AMODE.setON(thebits : TBits_1); inline;
  38988. begin
  38989. if thebits = 0 then
  38990. pTDefRegMap(@Self)^.clr := $00008000
  38991. else
  38992. pTDefRegMap(@Self)^.&set := $00008000;
  38993. end;
  38994. function TUART3_U2AMODE.getON : TBits_1; inline;
  38995. begin
  38996. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  38997. end;
  38998. procedure TUART3_U2AMODE.setPDSEL0; inline;
  38999. begin
  39000. pTDefRegMap(@Self)^.&set := $00000002;
  39001. end;
  39002. procedure TUART3_U2AMODE.clearPDSEL0; inline;
  39003. begin
  39004. pTDefRegMap(@Self)^.clr := $00000002;
  39005. end;
  39006. procedure TUART3_U2AMODE.setPDSEL0(thebits : TBits_1); inline;
  39007. begin
  39008. if thebits = 0 then
  39009. pTDefRegMap(@Self)^.clr := $00000002
  39010. else
  39011. pTDefRegMap(@Self)^.&set := $00000002;
  39012. end;
  39013. function TUART3_U2AMODE.getPDSEL0 : TBits_1; inline;
  39014. begin
  39015. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  39016. end;
  39017. procedure TUART3_U2AMODE.setPDSEL1; inline;
  39018. begin
  39019. pTDefRegMap(@Self)^.&set := $00000004;
  39020. end;
  39021. procedure TUART3_U2AMODE.clearPDSEL1; inline;
  39022. begin
  39023. pTDefRegMap(@Self)^.clr := $00000004;
  39024. end;
  39025. procedure TUART3_U2AMODE.setPDSEL1(thebits : TBits_1); inline;
  39026. begin
  39027. if thebits = 0 then
  39028. pTDefRegMap(@Self)^.clr := $00000004
  39029. else
  39030. pTDefRegMap(@Self)^.&set := $00000004;
  39031. end;
  39032. function TUART3_U2AMODE.getPDSEL1 : TBits_1; inline;
  39033. begin
  39034. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  39035. end;
  39036. procedure TUART3_U2AMODE.setUEN0; inline;
  39037. begin
  39038. pTDefRegMap(@Self)^.&set := $00000100;
  39039. end;
  39040. procedure TUART3_U2AMODE.clearUEN0; inline;
  39041. begin
  39042. pTDefRegMap(@Self)^.clr := $00000100;
  39043. end;
  39044. procedure TUART3_U2AMODE.setUEN0(thebits : TBits_1); inline;
  39045. begin
  39046. if thebits = 0 then
  39047. pTDefRegMap(@Self)^.clr := $00000100
  39048. else
  39049. pTDefRegMap(@Self)^.&set := $00000100;
  39050. end;
  39051. function TUART3_U2AMODE.getUEN0 : TBits_1; inline;
  39052. begin
  39053. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  39054. end;
  39055. procedure TUART3_U2AMODE.setUEN1; inline;
  39056. begin
  39057. pTDefRegMap(@Self)^.&set := $00000200;
  39058. end;
  39059. procedure TUART3_U2AMODE.clearUEN1; inline;
  39060. begin
  39061. pTDefRegMap(@Self)^.clr := $00000200;
  39062. end;
  39063. procedure TUART3_U2AMODE.setUEN1(thebits : TBits_1); inline;
  39064. begin
  39065. if thebits = 0 then
  39066. pTDefRegMap(@Self)^.clr := $00000200
  39067. else
  39068. pTDefRegMap(@Self)^.&set := $00000200;
  39069. end;
  39070. function TUART3_U2AMODE.getUEN1 : TBits_1; inline;
  39071. begin
  39072. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  39073. end;
  39074. procedure TUART3_U2AMODE.setUSIDL; inline;
  39075. begin
  39076. pTDefRegMap(@Self)^.&set := $00002000;
  39077. end;
  39078. procedure TUART3_U2AMODE.clearUSIDL; inline;
  39079. begin
  39080. pTDefRegMap(@Self)^.clr := $00002000;
  39081. end;
  39082. procedure TUART3_U2AMODE.setUSIDL(thebits : TBits_1); inline;
  39083. begin
  39084. if thebits = 0 then
  39085. pTDefRegMap(@Self)^.clr := $00002000
  39086. else
  39087. pTDefRegMap(@Self)^.&set := $00002000;
  39088. end;
  39089. function TUART3_U2AMODE.getUSIDL : TBits_1; inline;
  39090. begin
  39091. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  39092. end;
  39093. procedure TUART3_U2AMODE.setUARTEN; inline;
  39094. begin
  39095. pTDefRegMap(@Self)^.&set := $00008000;
  39096. end;
  39097. procedure TUART3_U2AMODE.clearUARTEN; inline;
  39098. begin
  39099. pTDefRegMap(@Self)^.clr := $00008000;
  39100. end;
  39101. procedure TUART3_U2AMODE.setUARTEN(thebits : TBits_1); inline;
  39102. begin
  39103. if thebits = 0 then
  39104. pTDefRegMap(@Self)^.clr := $00008000
  39105. else
  39106. pTDefRegMap(@Self)^.&set := $00008000;
  39107. end;
  39108. function TUART3_U2AMODE.getUARTEN : TBits_1; inline;
  39109. begin
  39110. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  39111. end;
  39112. procedure TUART3_U2AMODE.setw(thebits : TBits_32); inline;
  39113. begin
  39114. pTDefRegMap(@Self)^.val := thebits;
  39115. end;
  39116. function TUART3_U2AMODE.getw : TBits_32; inline;
  39117. begin
  39118. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  39119. end;
  39120. procedure TUART3_U3MODE.setSTSEL; inline;
  39121. begin
  39122. pTDefRegMap(@Self)^.&set := $00000001;
  39123. end;
  39124. procedure TUART3_U3MODE.clearSTSEL; inline;
  39125. begin
  39126. pTDefRegMap(@Self)^.clr := $00000001;
  39127. end;
  39128. procedure TUART3_U3MODE.setSTSEL(thebits : TBits_1); inline;
  39129. begin
  39130. if thebits = 0 then
  39131. pTDefRegMap(@Self)^.clr := $00000001
  39132. else
  39133. pTDefRegMap(@Self)^.&set := $00000001;
  39134. end;
  39135. function TUART3_U3MODE.getSTSEL : TBits_1; inline;
  39136. begin
  39137. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  39138. end;
  39139. procedure TUART3_U3MODE.setPDSEL(thebits : TBits_2); inline;
  39140. begin
  39141. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  39142. end;
  39143. function TUART3_U3MODE.getPDSEL : TBits_2; inline;
  39144. begin
  39145. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  39146. end;
  39147. procedure TUART3_U3MODE.setBRGH; inline;
  39148. begin
  39149. pTDefRegMap(@Self)^.&set := $00000008;
  39150. end;
  39151. procedure TUART3_U3MODE.clearBRGH; inline;
  39152. begin
  39153. pTDefRegMap(@Self)^.clr := $00000008;
  39154. end;
  39155. procedure TUART3_U3MODE.setBRGH(thebits : TBits_1); inline;
  39156. begin
  39157. if thebits = 0 then
  39158. pTDefRegMap(@Self)^.clr := $00000008
  39159. else
  39160. pTDefRegMap(@Self)^.&set := $00000008;
  39161. end;
  39162. function TUART3_U3MODE.getBRGH : TBits_1; inline;
  39163. begin
  39164. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  39165. end;
  39166. procedure TUART3_U3MODE.setRXINV; inline;
  39167. begin
  39168. pTDefRegMap(@Self)^.&set := $00000010;
  39169. end;
  39170. procedure TUART3_U3MODE.clearRXINV; inline;
  39171. begin
  39172. pTDefRegMap(@Self)^.clr := $00000010;
  39173. end;
  39174. procedure TUART3_U3MODE.setRXINV(thebits : TBits_1); inline;
  39175. begin
  39176. if thebits = 0 then
  39177. pTDefRegMap(@Self)^.clr := $00000010
  39178. else
  39179. pTDefRegMap(@Self)^.&set := $00000010;
  39180. end;
  39181. function TUART3_U3MODE.getRXINV : TBits_1; inline;
  39182. begin
  39183. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  39184. end;
  39185. procedure TUART3_U3MODE.setABAUD; inline;
  39186. begin
  39187. pTDefRegMap(@Self)^.&set := $00000020;
  39188. end;
  39189. procedure TUART3_U3MODE.clearABAUD; inline;
  39190. begin
  39191. pTDefRegMap(@Self)^.clr := $00000020;
  39192. end;
  39193. procedure TUART3_U3MODE.setABAUD(thebits : TBits_1); inline;
  39194. begin
  39195. if thebits = 0 then
  39196. pTDefRegMap(@Self)^.clr := $00000020
  39197. else
  39198. pTDefRegMap(@Self)^.&set := $00000020;
  39199. end;
  39200. function TUART3_U3MODE.getABAUD : TBits_1; inline;
  39201. begin
  39202. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  39203. end;
  39204. procedure TUART3_U3MODE.setLPBACK; inline;
  39205. begin
  39206. pTDefRegMap(@Self)^.&set := $00000040;
  39207. end;
  39208. procedure TUART3_U3MODE.clearLPBACK; inline;
  39209. begin
  39210. pTDefRegMap(@Self)^.clr := $00000040;
  39211. end;
  39212. procedure TUART3_U3MODE.setLPBACK(thebits : TBits_1); inline;
  39213. begin
  39214. if thebits = 0 then
  39215. pTDefRegMap(@Self)^.clr := $00000040
  39216. else
  39217. pTDefRegMap(@Self)^.&set := $00000040;
  39218. end;
  39219. function TUART3_U3MODE.getLPBACK : TBits_1; inline;
  39220. begin
  39221. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  39222. end;
  39223. procedure TUART3_U3MODE.setWAKE; inline;
  39224. begin
  39225. pTDefRegMap(@Self)^.&set := $00000080;
  39226. end;
  39227. procedure TUART3_U3MODE.clearWAKE; inline;
  39228. begin
  39229. pTDefRegMap(@Self)^.clr := $00000080;
  39230. end;
  39231. procedure TUART3_U3MODE.setWAKE(thebits : TBits_1); inline;
  39232. begin
  39233. if thebits = 0 then
  39234. pTDefRegMap(@Self)^.clr := $00000080
  39235. else
  39236. pTDefRegMap(@Self)^.&set := $00000080;
  39237. end;
  39238. function TUART3_U3MODE.getWAKE : TBits_1; inline;
  39239. begin
  39240. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  39241. end;
  39242. procedure TUART3_U3MODE.setUEN(thebits : TBits_2); inline;
  39243. begin
  39244. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  39245. end;
  39246. function TUART3_U3MODE.getUEN : TBits_2; inline;
  39247. begin
  39248. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  39249. end;
  39250. procedure TUART3_U3MODE.setRTSMD; inline;
  39251. begin
  39252. pTDefRegMap(@Self)^.&set := $00000800;
  39253. end;
  39254. procedure TUART3_U3MODE.clearRTSMD; inline;
  39255. begin
  39256. pTDefRegMap(@Self)^.clr := $00000800;
  39257. end;
  39258. procedure TUART3_U3MODE.setRTSMD(thebits : TBits_1); inline;
  39259. begin
  39260. if thebits = 0 then
  39261. pTDefRegMap(@Self)^.clr := $00000800
  39262. else
  39263. pTDefRegMap(@Self)^.&set := $00000800;
  39264. end;
  39265. function TUART3_U3MODE.getRTSMD : TBits_1; inline;
  39266. begin
  39267. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  39268. end;
  39269. procedure TUART3_U3MODE.setIREN; inline;
  39270. begin
  39271. pTDefRegMap(@Self)^.&set := $00001000;
  39272. end;
  39273. procedure TUART3_U3MODE.clearIREN; inline;
  39274. begin
  39275. pTDefRegMap(@Self)^.clr := $00001000;
  39276. end;
  39277. procedure TUART3_U3MODE.setIREN(thebits : TBits_1); inline;
  39278. begin
  39279. if thebits = 0 then
  39280. pTDefRegMap(@Self)^.clr := $00001000
  39281. else
  39282. pTDefRegMap(@Self)^.&set := $00001000;
  39283. end;
  39284. function TUART3_U3MODE.getIREN : TBits_1; inline;
  39285. begin
  39286. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  39287. end;
  39288. procedure TUART3_U3MODE.setSIDL; inline;
  39289. begin
  39290. pTDefRegMap(@Self)^.&set := $00002000;
  39291. end;
  39292. procedure TUART3_U3MODE.clearSIDL; inline;
  39293. begin
  39294. pTDefRegMap(@Self)^.clr := $00002000;
  39295. end;
  39296. procedure TUART3_U3MODE.setSIDL(thebits : TBits_1); inline;
  39297. begin
  39298. if thebits = 0 then
  39299. pTDefRegMap(@Self)^.clr := $00002000
  39300. else
  39301. pTDefRegMap(@Self)^.&set := $00002000;
  39302. end;
  39303. function TUART3_U3MODE.getSIDL : TBits_1; inline;
  39304. begin
  39305. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  39306. end;
  39307. procedure TUART3_U3MODE.setON; inline;
  39308. begin
  39309. pTDefRegMap(@Self)^.&set := $00008000;
  39310. end;
  39311. procedure TUART3_U3MODE.clearON; inline;
  39312. begin
  39313. pTDefRegMap(@Self)^.clr := $00008000;
  39314. end;
  39315. procedure TUART3_U3MODE.setON(thebits : TBits_1); inline;
  39316. begin
  39317. if thebits = 0 then
  39318. pTDefRegMap(@Self)^.clr := $00008000
  39319. else
  39320. pTDefRegMap(@Self)^.&set := $00008000;
  39321. end;
  39322. function TUART3_U3MODE.getON : TBits_1; inline;
  39323. begin
  39324. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  39325. end;
  39326. procedure TUART3_U3MODE.setPDSEL0; inline;
  39327. begin
  39328. pTDefRegMap(@Self)^.&set := $00000002;
  39329. end;
  39330. procedure TUART3_U3MODE.clearPDSEL0; inline;
  39331. begin
  39332. pTDefRegMap(@Self)^.clr := $00000002;
  39333. end;
  39334. procedure TUART3_U3MODE.setPDSEL0(thebits : TBits_1); inline;
  39335. begin
  39336. if thebits = 0 then
  39337. pTDefRegMap(@Self)^.clr := $00000002
  39338. else
  39339. pTDefRegMap(@Self)^.&set := $00000002;
  39340. end;
  39341. function TUART3_U3MODE.getPDSEL0 : TBits_1; inline;
  39342. begin
  39343. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  39344. end;
  39345. procedure TUART3_U3MODE.setPDSEL1; inline;
  39346. begin
  39347. pTDefRegMap(@Self)^.&set := $00000004;
  39348. end;
  39349. procedure TUART3_U3MODE.clearPDSEL1; inline;
  39350. begin
  39351. pTDefRegMap(@Self)^.clr := $00000004;
  39352. end;
  39353. procedure TUART3_U3MODE.setPDSEL1(thebits : TBits_1); inline;
  39354. begin
  39355. if thebits = 0 then
  39356. pTDefRegMap(@Self)^.clr := $00000004
  39357. else
  39358. pTDefRegMap(@Self)^.&set := $00000004;
  39359. end;
  39360. function TUART3_U3MODE.getPDSEL1 : TBits_1; inline;
  39361. begin
  39362. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  39363. end;
  39364. procedure TUART3_U3MODE.setUEN0; inline;
  39365. begin
  39366. pTDefRegMap(@Self)^.&set := $00000100;
  39367. end;
  39368. procedure TUART3_U3MODE.clearUEN0; inline;
  39369. begin
  39370. pTDefRegMap(@Self)^.clr := $00000100;
  39371. end;
  39372. procedure TUART3_U3MODE.setUEN0(thebits : TBits_1); inline;
  39373. begin
  39374. if thebits = 0 then
  39375. pTDefRegMap(@Self)^.clr := $00000100
  39376. else
  39377. pTDefRegMap(@Self)^.&set := $00000100;
  39378. end;
  39379. function TUART3_U3MODE.getUEN0 : TBits_1; inline;
  39380. begin
  39381. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  39382. end;
  39383. procedure TUART3_U3MODE.setUEN1; inline;
  39384. begin
  39385. pTDefRegMap(@Self)^.&set := $00000200;
  39386. end;
  39387. procedure TUART3_U3MODE.clearUEN1; inline;
  39388. begin
  39389. pTDefRegMap(@Self)^.clr := $00000200;
  39390. end;
  39391. procedure TUART3_U3MODE.setUEN1(thebits : TBits_1); inline;
  39392. begin
  39393. if thebits = 0 then
  39394. pTDefRegMap(@Self)^.clr := $00000200
  39395. else
  39396. pTDefRegMap(@Self)^.&set := $00000200;
  39397. end;
  39398. function TUART3_U3MODE.getUEN1 : TBits_1; inline;
  39399. begin
  39400. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  39401. end;
  39402. procedure TUART3_U3MODE.setUSIDL; inline;
  39403. begin
  39404. pTDefRegMap(@Self)^.&set := $00002000;
  39405. end;
  39406. procedure TUART3_U3MODE.clearUSIDL; inline;
  39407. begin
  39408. pTDefRegMap(@Self)^.clr := $00002000;
  39409. end;
  39410. procedure TUART3_U3MODE.setUSIDL(thebits : TBits_1); inline;
  39411. begin
  39412. if thebits = 0 then
  39413. pTDefRegMap(@Self)^.clr := $00002000
  39414. else
  39415. pTDefRegMap(@Self)^.&set := $00002000;
  39416. end;
  39417. function TUART3_U3MODE.getUSIDL : TBits_1; inline;
  39418. begin
  39419. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  39420. end;
  39421. procedure TUART3_U3MODE.setUARTEN; inline;
  39422. begin
  39423. pTDefRegMap(@Self)^.&set := $00008000;
  39424. end;
  39425. procedure TUART3_U3MODE.clearUARTEN; inline;
  39426. begin
  39427. pTDefRegMap(@Self)^.clr := $00008000;
  39428. end;
  39429. procedure TUART3_U3MODE.setUARTEN(thebits : TBits_1); inline;
  39430. begin
  39431. if thebits = 0 then
  39432. pTDefRegMap(@Self)^.clr := $00008000
  39433. else
  39434. pTDefRegMap(@Self)^.&set := $00008000;
  39435. end;
  39436. function TUART3_U3MODE.getUARTEN : TBits_1; inline;
  39437. begin
  39438. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  39439. end;
  39440. procedure TUART3_U3MODE.setw(thebits : TBits_32); inline;
  39441. begin
  39442. pTDefRegMap(@Self)^.val := thebits;
  39443. end;
  39444. function TUART3_U3MODE.getw : TBits_32; inline;
  39445. begin
  39446. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  39447. end;
  39448. procedure TUART3_U2ASTA.setURXDA; inline;
  39449. begin
  39450. pTDefRegMap(@Self)^.&set := $00000001;
  39451. end;
  39452. procedure TUART3_U2ASTA.clearURXDA; inline;
  39453. begin
  39454. pTDefRegMap(@Self)^.clr := $00000001;
  39455. end;
  39456. procedure TUART3_U2ASTA.setURXDA(thebits : TBits_1); inline;
  39457. begin
  39458. if thebits = 0 then
  39459. pTDefRegMap(@Self)^.clr := $00000001
  39460. else
  39461. pTDefRegMap(@Self)^.&set := $00000001;
  39462. end;
  39463. function TUART3_U2ASTA.getURXDA : TBits_1; inline;
  39464. begin
  39465. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  39466. end;
  39467. procedure TUART3_U2ASTA.setOERR; inline;
  39468. begin
  39469. pTDefRegMap(@Self)^.&set := $00000002;
  39470. end;
  39471. procedure TUART3_U2ASTA.clearOERR; inline;
  39472. begin
  39473. pTDefRegMap(@Self)^.clr := $00000002;
  39474. end;
  39475. procedure TUART3_U2ASTA.setOERR(thebits : TBits_1); inline;
  39476. begin
  39477. if thebits = 0 then
  39478. pTDefRegMap(@Self)^.clr := $00000002
  39479. else
  39480. pTDefRegMap(@Self)^.&set := $00000002;
  39481. end;
  39482. function TUART3_U2ASTA.getOERR : TBits_1; inline;
  39483. begin
  39484. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  39485. end;
  39486. procedure TUART3_U2ASTA.setFERR; inline;
  39487. begin
  39488. pTDefRegMap(@Self)^.&set := $00000004;
  39489. end;
  39490. procedure TUART3_U2ASTA.clearFERR; inline;
  39491. begin
  39492. pTDefRegMap(@Self)^.clr := $00000004;
  39493. end;
  39494. procedure TUART3_U2ASTA.setFERR(thebits : TBits_1); inline;
  39495. begin
  39496. if thebits = 0 then
  39497. pTDefRegMap(@Self)^.clr := $00000004
  39498. else
  39499. pTDefRegMap(@Self)^.&set := $00000004;
  39500. end;
  39501. function TUART3_U2ASTA.getFERR : TBits_1; inline;
  39502. begin
  39503. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  39504. end;
  39505. procedure TUART3_U2ASTA.setPERR; inline;
  39506. begin
  39507. pTDefRegMap(@Self)^.&set := $00000008;
  39508. end;
  39509. procedure TUART3_U2ASTA.clearPERR; inline;
  39510. begin
  39511. pTDefRegMap(@Self)^.clr := $00000008;
  39512. end;
  39513. procedure TUART3_U2ASTA.setPERR(thebits : TBits_1); inline;
  39514. begin
  39515. if thebits = 0 then
  39516. pTDefRegMap(@Self)^.clr := $00000008
  39517. else
  39518. pTDefRegMap(@Self)^.&set := $00000008;
  39519. end;
  39520. function TUART3_U2ASTA.getPERR : TBits_1; inline;
  39521. begin
  39522. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  39523. end;
  39524. procedure TUART3_U2ASTA.setRIDLE; inline;
  39525. begin
  39526. pTDefRegMap(@Self)^.&set := $00000010;
  39527. end;
  39528. procedure TUART3_U2ASTA.clearRIDLE; inline;
  39529. begin
  39530. pTDefRegMap(@Self)^.clr := $00000010;
  39531. end;
  39532. procedure TUART3_U2ASTA.setRIDLE(thebits : TBits_1); inline;
  39533. begin
  39534. if thebits = 0 then
  39535. pTDefRegMap(@Self)^.clr := $00000010
  39536. else
  39537. pTDefRegMap(@Self)^.&set := $00000010;
  39538. end;
  39539. function TUART3_U2ASTA.getRIDLE : TBits_1; inline;
  39540. begin
  39541. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  39542. end;
  39543. procedure TUART3_U2ASTA.setADDEN; inline;
  39544. begin
  39545. pTDefRegMap(@Self)^.&set := $00000020;
  39546. end;
  39547. procedure TUART3_U2ASTA.clearADDEN; inline;
  39548. begin
  39549. pTDefRegMap(@Self)^.clr := $00000020;
  39550. end;
  39551. procedure TUART3_U2ASTA.setADDEN(thebits : TBits_1); inline;
  39552. begin
  39553. if thebits = 0 then
  39554. pTDefRegMap(@Self)^.clr := $00000020
  39555. else
  39556. pTDefRegMap(@Self)^.&set := $00000020;
  39557. end;
  39558. function TUART3_U2ASTA.getADDEN : TBits_1; inline;
  39559. begin
  39560. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  39561. end;
  39562. procedure TUART3_U2ASTA.setURXISEL(thebits : TBits_2); inline;
  39563. begin
  39564. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  39565. end;
  39566. function TUART3_U2ASTA.getURXISEL : TBits_2; inline;
  39567. begin
  39568. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  39569. end;
  39570. procedure TUART3_U2ASTA.setTRMT; inline;
  39571. begin
  39572. pTDefRegMap(@Self)^.&set := $00000100;
  39573. end;
  39574. procedure TUART3_U2ASTA.clearTRMT; inline;
  39575. begin
  39576. pTDefRegMap(@Self)^.clr := $00000100;
  39577. end;
  39578. procedure TUART3_U2ASTA.setTRMT(thebits : TBits_1); inline;
  39579. begin
  39580. if thebits = 0 then
  39581. pTDefRegMap(@Self)^.clr := $00000100
  39582. else
  39583. pTDefRegMap(@Self)^.&set := $00000100;
  39584. end;
  39585. function TUART3_U2ASTA.getTRMT : TBits_1; inline;
  39586. begin
  39587. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  39588. end;
  39589. procedure TUART3_U2ASTA.setUTXBF; inline;
  39590. begin
  39591. pTDefRegMap(@Self)^.&set := $00000200;
  39592. end;
  39593. procedure TUART3_U2ASTA.clearUTXBF; inline;
  39594. begin
  39595. pTDefRegMap(@Self)^.clr := $00000200;
  39596. end;
  39597. procedure TUART3_U2ASTA.setUTXBF(thebits : TBits_1); inline;
  39598. begin
  39599. if thebits = 0 then
  39600. pTDefRegMap(@Self)^.clr := $00000200
  39601. else
  39602. pTDefRegMap(@Self)^.&set := $00000200;
  39603. end;
  39604. function TUART3_U2ASTA.getUTXBF : TBits_1; inline;
  39605. begin
  39606. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  39607. end;
  39608. procedure TUART3_U2ASTA.setUTXEN; inline;
  39609. begin
  39610. pTDefRegMap(@Self)^.&set := $00000400;
  39611. end;
  39612. procedure TUART3_U2ASTA.clearUTXEN; inline;
  39613. begin
  39614. pTDefRegMap(@Self)^.clr := $00000400;
  39615. end;
  39616. procedure TUART3_U2ASTA.setUTXEN(thebits : TBits_1); inline;
  39617. begin
  39618. if thebits = 0 then
  39619. pTDefRegMap(@Self)^.clr := $00000400
  39620. else
  39621. pTDefRegMap(@Self)^.&set := $00000400;
  39622. end;
  39623. function TUART3_U2ASTA.getUTXEN : TBits_1; inline;
  39624. begin
  39625. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  39626. end;
  39627. procedure TUART3_U2ASTA.setUTXBRK; inline;
  39628. begin
  39629. pTDefRegMap(@Self)^.&set := $00000800;
  39630. end;
  39631. procedure TUART3_U2ASTA.clearUTXBRK; inline;
  39632. begin
  39633. pTDefRegMap(@Self)^.clr := $00000800;
  39634. end;
  39635. procedure TUART3_U2ASTA.setUTXBRK(thebits : TBits_1); inline;
  39636. begin
  39637. if thebits = 0 then
  39638. pTDefRegMap(@Self)^.clr := $00000800
  39639. else
  39640. pTDefRegMap(@Self)^.&set := $00000800;
  39641. end;
  39642. function TUART3_U2ASTA.getUTXBRK : TBits_1; inline;
  39643. begin
  39644. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  39645. end;
  39646. procedure TUART3_U2ASTA.setURXEN; inline;
  39647. begin
  39648. pTDefRegMap(@Self)^.&set := $00001000;
  39649. end;
  39650. procedure TUART3_U2ASTA.clearURXEN; inline;
  39651. begin
  39652. pTDefRegMap(@Self)^.clr := $00001000;
  39653. end;
  39654. procedure TUART3_U2ASTA.setURXEN(thebits : TBits_1); inline;
  39655. begin
  39656. if thebits = 0 then
  39657. pTDefRegMap(@Self)^.clr := $00001000
  39658. else
  39659. pTDefRegMap(@Self)^.&set := $00001000;
  39660. end;
  39661. function TUART3_U2ASTA.getURXEN : TBits_1; inline;
  39662. begin
  39663. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  39664. end;
  39665. procedure TUART3_U2ASTA.setUTXINV; inline;
  39666. begin
  39667. pTDefRegMap(@Self)^.&set := $00002000;
  39668. end;
  39669. procedure TUART3_U2ASTA.clearUTXINV; inline;
  39670. begin
  39671. pTDefRegMap(@Self)^.clr := $00002000;
  39672. end;
  39673. procedure TUART3_U2ASTA.setUTXINV(thebits : TBits_1); inline;
  39674. begin
  39675. if thebits = 0 then
  39676. pTDefRegMap(@Self)^.clr := $00002000
  39677. else
  39678. pTDefRegMap(@Self)^.&set := $00002000;
  39679. end;
  39680. function TUART3_U2ASTA.getUTXINV : TBits_1; inline;
  39681. begin
  39682. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  39683. end;
  39684. procedure TUART3_U2ASTA.setUTXISEL(thebits : TBits_2); inline;
  39685. begin
  39686. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  39687. end;
  39688. function TUART3_U2ASTA.getUTXISEL : TBits_2; inline;
  39689. begin
  39690. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  39691. end;
  39692. procedure TUART3_U2ASTA.setADDR(thebits : TBits_8); inline;
  39693. begin
  39694. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  39695. end;
  39696. function TUART3_U2ASTA.getADDR : TBits_8; inline;
  39697. begin
  39698. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  39699. end;
  39700. procedure TUART3_U2ASTA.setADM_EN; inline;
  39701. begin
  39702. pTDefRegMap(@Self)^.&set := $01000000;
  39703. end;
  39704. procedure TUART3_U2ASTA.clearADM_EN; inline;
  39705. begin
  39706. pTDefRegMap(@Self)^.clr := $01000000;
  39707. end;
  39708. procedure TUART3_U2ASTA.setADM_EN(thebits : TBits_1); inline;
  39709. begin
  39710. if thebits = 0 then
  39711. pTDefRegMap(@Self)^.clr := $01000000
  39712. else
  39713. pTDefRegMap(@Self)^.&set := $01000000;
  39714. end;
  39715. function TUART3_U2ASTA.getADM_EN : TBits_1; inline;
  39716. begin
  39717. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  39718. end;
  39719. procedure TUART3_U2ASTA.setURXISEL0; inline;
  39720. begin
  39721. pTDefRegMap(@Self)^.&set := $00000040;
  39722. end;
  39723. procedure TUART3_U2ASTA.clearURXISEL0; inline;
  39724. begin
  39725. pTDefRegMap(@Self)^.clr := $00000040;
  39726. end;
  39727. procedure TUART3_U2ASTA.setURXISEL0(thebits : TBits_1); inline;
  39728. begin
  39729. if thebits = 0 then
  39730. pTDefRegMap(@Self)^.clr := $00000040
  39731. else
  39732. pTDefRegMap(@Self)^.&set := $00000040;
  39733. end;
  39734. function TUART3_U2ASTA.getURXISEL0 : TBits_1; inline;
  39735. begin
  39736. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  39737. end;
  39738. procedure TUART3_U2ASTA.setURXISEL1; inline;
  39739. begin
  39740. pTDefRegMap(@Self)^.&set := $00000080;
  39741. end;
  39742. procedure TUART3_U2ASTA.clearURXISEL1; inline;
  39743. begin
  39744. pTDefRegMap(@Self)^.clr := $00000080;
  39745. end;
  39746. procedure TUART3_U2ASTA.setURXISEL1(thebits : TBits_1); inline;
  39747. begin
  39748. if thebits = 0 then
  39749. pTDefRegMap(@Self)^.clr := $00000080
  39750. else
  39751. pTDefRegMap(@Self)^.&set := $00000080;
  39752. end;
  39753. function TUART3_U2ASTA.getURXISEL1 : TBits_1; inline;
  39754. begin
  39755. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  39756. end;
  39757. procedure TUART3_U2ASTA.setUTXISEL0; inline;
  39758. begin
  39759. pTDefRegMap(@Self)^.&set := $00004000;
  39760. end;
  39761. procedure TUART3_U2ASTA.clearUTXISEL0; inline;
  39762. begin
  39763. pTDefRegMap(@Self)^.clr := $00004000;
  39764. end;
  39765. procedure TUART3_U2ASTA.setUTXISEL0(thebits : TBits_1); inline;
  39766. begin
  39767. if thebits = 0 then
  39768. pTDefRegMap(@Self)^.clr := $00004000
  39769. else
  39770. pTDefRegMap(@Self)^.&set := $00004000;
  39771. end;
  39772. function TUART3_U2ASTA.getUTXISEL0 : TBits_1; inline;
  39773. begin
  39774. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  39775. end;
  39776. procedure TUART3_U2ASTA.setUTXISEL1; inline;
  39777. begin
  39778. pTDefRegMap(@Self)^.&set := $00008000;
  39779. end;
  39780. procedure TUART3_U2ASTA.clearUTXISEL1; inline;
  39781. begin
  39782. pTDefRegMap(@Self)^.clr := $00008000;
  39783. end;
  39784. procedure TUART3_U2ASTA.setUTXISEL1(thebits : TBits_1); inline;
  39785. begin
  39786. if thebits = 0 then
  39787. pTDefRegMap(@Self)^.clr := $00008000
  39788. else
  39789. pTDefRegMap(@Self)^.&set := $00008000;
  39790. end;
  39791. function TUART3_U2ASTA.getUTXISEL1 : TBits_1; inline;
  39792. begin
  39793. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  39794. end;
  39795. procedure TUART3_U2ASTA.setUTXSEL(thebits : TBits_2); inline;
  39796. begin
  39797. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  39798. end;
  39799. function TUART3_U2ASTA.getUTXSEL : TBits_2; inline;
  39800. begin
  39801. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  39802. end;
  39803. procedure TUART3_U2ASTA.setw(thebits : TBits_32); inline;
  39804. begin
  39805. pTDefRegMap(@Self)^.val := thebits;
  39806. end;
  39807. function TUART3_U2ASTA.getw : TBits_32; inline;
  39808. begin
  39809. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  39810. end;
  39811. procedure TUART3_U3STA.setURXDA; inline;
  39812. begin
  39813. pTDefRegMap(@Self)^.&set := $00000001;
  39814. end;
  39815. procedure TUART3_U3STA.clearURXDA; inline;
  39816. begin
  39817. pTDefRegMap(@Self)^.clr := $00000001;
  39818. end;
  39819. procedure TUART3_U3STA.setURXDA(thebits : TBits_1); inline;
  39820. begin
  39821. if thebits = 0 then
  39822. pTDefRegMap(@Self)^.clr := $00000001
  39823. else
  39824. pTDefRegMap(@Self)^.&set := $00000001;
  39825. end;
  39826. function TUART3_U3STA.getURXDA : TBits_1; inline;
  39827. begin
  39828. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  39829. end;
  39830. procedure TUART3_U3STA.setOERR; inline;
  39831. begin
  39832. pTDefRegMap(@Self)^.&set := $00000002;
  39833. end;
  39834. procedure TUART3_U3STA.clearOERR; inline;
  39835. begin
  39836. pTDefRegMap(@Self)^.clr := $00000002;
  39837. end;
  39838. procedure TUART3_U3STA.setOERR(thebits : TBits_1); inline;
  39839. begin
  39840. if thebits = 0 then
  39841. pTDefRegMap(@Self)^.clr := $00000002
  39842. else
  39843. pTDefRegMap(@Self)^.&set := $00000002;
  39844. end;
  39845. function TUART3_U3STA.getOERR : TBits_1; inline;
  39846. begin
  39847. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  39848. end;
  39849. procedure TUART3_U3STA.setFERR; inline;
  39850. begin
  39851. pTDefRegMap(@Self)^.&set := $00000004;
  39852. end;
  39853. procedure TUART3_U3STA.clearFERR; inline;
  39854. begin
  39855. pTDefRegMap(@Self)^.clr := $00000004;
  39856. end;
  39857. procedure TUART3_U3STA.setFERR(thebits : TBits_1); inline;
  39858. begin
  39859. if thebits = 0 then
  39860. pTDefRegMap(@Self)^.clr := $00000004
  39861. else
  39862. pTDefRegMap(@Self)^.&set := $00000004;
  39863. end;
  39864. function TUART3_U3STA.getFERR : TBits_1; inline;
  39865. begin
  39866. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  39867. end;
  39868. procedure TUART3_U3STA.setPERR; inline;
  39869. begin
  39870. pTDefRegMap(@Self)^.&set := $00000008;
  39871. end;
  39872. procedure TUART3_U3STA.clearPERR; inline;
  39873. begin
  39874. pTDefRegMap(@Self)^.clr := $00000008;
  39875. end;
  39876. procedure TUART3_U3STA.setPERR(thebits : TBits_1); inline;
  39877. begin
  39878. if thebits = 0 then
  39879. pTDefRegMap(@Self)^.clr := $00000008
  39880. else
  39881. pTDefRegMap(@Self)^.&set := $00000008;
  39882. end;
  39883. function TUART3_U3STA.getPERR : TBits_1; inline;
  39884. begin
  39885. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  39886. end;
  39887. procedure TUART3_U3STA.setRIDLE; inline;
  39888. begin
  39889. pTDefRegMap(@Self)^.&set := $00000010;
  39890. end;
  39891. procedure TUART3_U3STA.clearRIDLE; inline;
  39892. begin
  39893. pTDefRegMap(@Self)^.clr := $00000010;
  39894. end;
  39895. procedure TUART3_U3STA.setRIDLE(thebits : TBits_1); inline;
  39896. begin
  39897. if thebits = 0 then
  39898. pTDefRegMap(@Self)^.clr := $00000010
  39899. else
  39900. pTDefRegMap(@Self)^.&set := $00000010;
  39901. end;
  39902. function TUART3_U3STA.getRIDLE : TBits_1; inline;
  39903. begin
  39904. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  39905. end;
  39906. procedure TUART3_U3STA.setADDEN; inline;
  39907. begin
  39908. pTDefRegMap(@Self)^.&set := $00000020;
  39909. end;
  39910. procedure TUART3_U3STA.clearADDEN; inline;
  39911. begin
  39912. pTDefRegMap(@Self)^.clr := $00000020;
  39913. end;
  39914. procedure TUART3_U3STA.setADDEN(thebits : TBits_1); inline;
  39915. begin
  39916. if thebits = 0 then
  39917. pTDefRegMap(@Self)^.clr := $00000020
  39918. else
  39919. pTDefRegMap(@Self)^.&set := $00000020;
  39920. end;
  39921. function TUART3_U3STA.getADDEN : TBits_1; inline;
  39922. begin
  39923. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  39924. end;
  39925. procedure TUART3_U3STA.setURXISEL(thebits : TBits_2); inline;
  39926. begin
  39927. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  39928. end;
  39929. function TUART3_U3STA.getURXISEL : TBits_2; inline;
  39930. begin
  39931. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  39932. end;
  39933. procedure TUART3_U3STA.setTRMT; inline;
  39934. begin
  39935. pTDefRegMap(@Self)^.&set := $00000100;
  39936. end;
  39937. procedure TUART3_U3STA.clearTRMT; inline;
  39938. begin
  39939. pTDefRegMap(@Self)^.clr := $00000100;
  39940. end;
  39941. procedure TUART3_U3STA.setTRMT(thebits : TBits_1); inline;
  39942. begin
  39943. if thebits = 0 then
  39944. pTDefRegMap(@Self)^.clr := $00000100
  39945. else
  39946. pTDefRegMap(@Self)^.&set := $00000100;
  39947. end;
  39948. function TUART3_U3STA.getTRMT : TBits_1; inline;
  39949. begin
  39950. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  39951. end;
  39952. procedure TUART3_U3STA.setUTXBF; inline;
  39953. begin
  39954. pTDefRegMap(@Self)^.&set := $00000200;
  39955. end;
  39956. procedure TUART3_U3STA.clearUTXBF; inline;
  39957. begin
  39958. pTDefRegMap(@Self)^.clr := $00000200;
  39959. end;
  39960. procedure TUART3_U3STA.setUTXBF(thebits : TBits_1); inline;
  39961. begin
  39962. if thebits = 0 then
  39963. pTDefRegMap(@Self)^.clr := $00000200
  39964. else
  39965. pTDefRegMap(@Self)^.&set := $00000200;
  39966. end;
  39967. function TUART3_U3STA.getUTXBF : TBits_1; inline;
  39968. begin
  39969. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  39970. end;
  39971. procedure TUART3_U3STA.setUTXEN; inline;
  39972. begin
  39973. pTDefRegMap(@Self)^.&set := $00000400;
  39974. end;
  39975. procedure TUART3_U3STA.clearUTXEN; inline;
  39976. begin
  39977. pTDefRegMap(@Self)^.clr := $00000400;
  39978. end;
  39979. procedure TUART3_U3STA.setUTXEN(thebits : TBits_1); inline;
  39980. begin
  39981. if thebits = 0 then
  39982. pTDefRegMap(@Self)^.clr := $00000400
  39983. else
  39984. pTDefRegMap(@Self)^.&set := $00000400;
  39985. end;
  39986. function TUART3_U3STA.getUTXEN : TBits_1; inline;
  39987. begin
  39988. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  39989. end;
  39990. procedure TUART3_U3STA.setUTXBRK; inline;
  39991. begin
  39992. pTDefRegMap(@Self)^.&set := $00000800;
  39993. end;
  39994. procedure TUART3_U3STA.clearUTXBRK; inline;
  39995. begin
  39996. pTDefRegMap(@Self)^.clr := $00000800;
  39997. end;
  39998. procedure TUART3_U3STA.setUTXBRK(thebits : TBits_1); inline;
  39999. begin
  40000. if thebits = 0 then
  40001. pTDefRegMap(@Self)^.clr := $00000800
  40002. else
  40003. pTDefRegMap(@Self)^.&set := $00000800;
  40004. end;
  40005. function TUART3_U3STA.getUTXBRK : TBits_1; inline;
  40006. begin
  40007. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  40008. end;
  40009. procedure TUART3_U3STA.setURXEN; inline;
  40010. begin
  40011. pTDefRegMap(@Self)^.&set := $00001000;
  40012. end;
  40013. procedure TUART3_U3STA.clearURXEN; inline;
  40014. begin
  40015. pTDefRegMap(@Self)^.clr := $00001000;
  40016. end;
  40017. procedure TUART3_U3STA.setURXEN(thebits : TBits_1); inline;
  40018. begin
  40019. if thebits = 0 then
  40020. pTDefRegMap(@Self)^.clr := $00001000
  40021. else
  40022. pTDefRegMap(@Self)^.&set := $00001000;
  40023. end;
  40024. function TUART3_U3STA.getURXEN : TBits_1; inline;
  40025. begin
  40026. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  40027. end;
  40028. procedure TUART3_U3STA.setUTXINV; inline;
  40029. begin
  40030. pTDefRegMap(@Self)^.&set := $00002000;
  40031. end;
  40032. procedure TUART3_U3STA.clearUTXINV; inline;
  40033. begin
  40034. pTDefRegMap(@Self)^.clr := $00002000;
  40035. end;
  40036. procedure TUART3_U3STA.setUTXINV(thebits : TBits_1); inline;
  40037. begin
  40038. if thebits = 0 then
  40039. pTDefRegMap(@Self)^.clr := $00002000
  40040. else
  40041. pTDefRegMap(@Self)^.&set := $00002000;
  40042. end;
  40043. function TUART3_U3STA.getUTXINV : TBits_1; inline;
  40044. begin
  40045. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  40046. end;
  40047. procedure TUART3_U3STA.setUTXISEL(thebits : TBits_2); inline;
  40048. begin
  40049. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  40050. end;
  40051. function TUART3_U3STA.getUTXISEL : TBits_2; inline;
  40052. begin
  40053. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  40054. end;
  40055. procedure TUART3_U3STA.setADDR(thebits : TBits_8); inline;
  40056. begin
  40057. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  40058. end;
  40059. function TUART3_U3STA.getADDR : TBits_8; inline;
  40060. begin
  40061. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  40062. end;
  40063. procedure TUART3_U3STA.setADM_EN; inline;
  40064. begin
  40065. pTDefRegMap(@Self)^.&set := $01000000;
  40066. end;
  40067. procedure TUART3_U3STA.clearADM_EN; inline;
  40068. begin
  40069. pTDefRegMap(@Self)^.clr := $01000000;
  40070. end;
  40071. procedure TUART3_U3STA.setADM_EN(thebits : TBits_1); inline;
  40072. begin
  40073. if thebits = 0 then
  40074. pTDefRegMap(@Self)^.clr := $01000000
  40075. else
  40076. pTDefRegMap(@Self)^.&set := $01000000;
  40077. end;
  40078. function TUART3_U3STA.getADM_EN : TBits_1; inline;
  40079. begin
  40080. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  40081. end;
  40082. procedure TUART3_U3STA.setURXISEL0; inline;
  40083. begin
  40084. pTDefRegMap(@Self)^.&set := $00000040;
  40085. end;
  40086. procedure TUART3_U3STA.clearURXISEL0; inline;
  40087. begin
  40088. pTDefRegMap(@Self)^.clr := $00000040;
  40089. end;
  40090. procedure TUART3_U3STA.setURXISEL0(thebits : TBits_1); inline;
  40091. begin
  40092. if thebits = 0 then
  40093. pTDefRegMap(@Self)^.clr := $00000040
  40094. else
  40095. pTDefRegMap(@Self)^.&set := $00000040;
  40096. end;
  40097. function TUART3_U3STA.getURXISEL0 : TBits_1; inline;
  40098. begin
  40099. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  40100. end;
  40101. procedure TUART3_U3STA.setURXISEL1; inline;
  40102. begin
  40103. pTDefRegMap(@Self)^.&set := $00000080;
  40104. end;
  40105. procedure TUART3_U3STA.clearURXISEL1; inline;
  40106. begin
  40107. pTDefRegMap(@Self)^.clr := $00000080;
  40108. end;
  40109. procedure TUART3_U3STA.setURXISEL1(thebits : TBits_1); inline;
  40110. begin
  40111. if thebits = 0 then
  40112. pTDefRegMap(@Self)^.clr := $00000080
  40113. else
  40114. pTDefRegMap(@Self)^.&set := $00000080;
  40115. end;
  40116. function TUART3_U3STA.getURXISEL1 : TBits_1; inline;
  40117. begin
  40118. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  40119. end;
  40120. procedure TUART3_U3STA.setUTXISEL0; inline;
  40121. begin
  40122. pTDefRegMap(@Self)^.&set := $00004000;
  40123. end;
  40124. procedure TUART3_U3STA.clearUTXISEL0; inline;
  40125. begin
  40126. pTDefRegMap(@Self)^.clr := $00004000;
  40127. end;
  40128. procedure TUART3_U3STA.setUTXISEL0(thebits : TBits_1); inline;
  40129. begin
  40130. if thebits = 0 then
  40131. pTDefRegMap(@Self)^.clr := $00004000
  40132. else
  40133. pTDefRegMap(@Self)^.&set := $00004000;
  40134. end;
  40135. function TUART3_U3STA.getUTXISEL0 : TBits_1; inline;
  40136. begin
  40137. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  40138. end;
  40139. procedure TUART3_U3STA.setUTXISEL1; inline;
  40140. begin
  40141. pTDefRegMap(@Self)^.&set := $00008000;
  40142. end;
  40143. procedure TUART3_U3STA.clearUTXISEL1; inline;
  40144. begin
  40145. pTDefRegMap(@Self)^.clr := $00008000;
  40146. end;
  40147. procedure TUART3_U3STA.setUTXISEL1(thebits : TBits_1); inline;
  40148. begin
  40149. if thebits = 0 then
  40150. pTDefRegMap(@Self)^.clr := $00008000
  40151. else
  40152. pTDefRegMap(@Self)^.&set := $00008000;
  40153. end;
  40154. function TUART3_U3STA.getUTXISEL1 : TBits_1; inline;
  40155. begin
  40156. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  40157. end;
  40158. procedure TUART3_U3STA.setUTXSEL(thebits : TBits_2); inline;
  40159. begin
  40160. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  40161. end;
  40162. function TUART3_U3STA.getUTXSEL : TBits_2; inline;
  40163. begin
  40164. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  40165. end;
  40166. procedure TUART3_U3STA.setw(thebits : TBits_32); inline;
  40167. begin
  40168. pTDefRegMap(@Self)^.val := thebits;
  40169. end;
  40170. function TUART3_U3STA.getw : TBits_32; inline;
  40171. begin
  40172. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  40173. end;
  40174. procedure TUART2B_U2BMODE.setSTSEL; inline;
  40175. begin
  40176. pTDefRegMap(@Self)^.&set := $00000001;
  40177. end;
  40178. procedure TUART2B_U2BMODE.clearSTSEL; inline;
  40179. begin
  40180. pTDefRegMap(@Self)^.clr := $00000001;
  40181. end;
  40182. procedure TUART2B_U2BMODE.setSTSEL(thebits : TBits_1); inline;
  40183. begin
  40184. if thebits = 0 then
  40185. pTDefRegMap(@Self)^.clr := $00000001
  40186. else
  40187. pTDefRegMap(@Self)^.&set := $00000001;
  40188. end;
  40189. function TUART2B_U2BMODE.getSTSEL : TBits_1; inline;
  40190. begin
  40191. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  40192. end;
  40193. procedure TUART2B_U2BMODE.setPDSEL(thebits : TBits_2); inline;
  40194. begin
  40195. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  40196. end;
  40197. function TUART2B_U2BMODE.getPDSEL : TBits_2; inline;
  40198. begin
  40199. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  40200. end;
  40201. procedure TUART2B_U2BMODE.setBRGH; inline;
  40202. begin
  40203. pTDefRegMap(@Self)^.&set := $00000008;
  40204. end;
  40205. procedure TUART2B_U2BMODE.clearBRGH; inline;
  40206. begin
  40207. pTDefRegMap(@Self)^.clr := $00000008;
  40208. end;
  40209. procedure TUART2B_U2BMODE.setBRGH(thebits : TBits_1); inline;
  40210. begin
  40211. if thebits = 0 then
  40212. pTDefRegMap(@Self)^.clr := $00000008
  40213. else
  40214. pTDefRegMap(@Self)^.&set := $00000008;
  40215. end;
  40216. function TUART2B_U2BMODE.getBRGH : TBits_1; inline;
  40217. begin
  40218. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  40219. end;
  40220. procedure TUART2B_U2BMODE.setRXINV; inline;
  40221. begin
  40222. pTDefRegMap(@Self)^.&set := $00000010;
  40223. end;
  40224. procedure TUART2B_U2BMODE.clearRXINV; inline;
  40225. begin
  40226. pTDefRegMap(@Self)^.clr := $00000010;
  40227. end;
  40228. procedure TUART2B_U2BMODE.setRXINV(thebits : TBits_1); inline;
  40229. begin
  40230. if thebits = 0 then
  40231. pTDefRegMap(@Self)^.clr := $00000010
  40232. else
  40233. pTDefRegMap(@Self)^.&set := $00000010;
  40234. end;
  40235. function TUART2B_U2BMODE.getRXINV : TBits_1; inline;
  40236. begin
  40237. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  40238. end;
  40239. procedure TUART2B_U2BMODE.setABAUD; inline;
  40240. begin
  40241. pTDefRegMap(@Self)^.&set := $00000020;
  40242. end;
  40243. procedure TUART2B_U2BMODE.clearABAUD; inline;
  40244. begin
  40245. pTDefRegMap(@Self)^.clr := $00000020;
  40246. end;
  40247. procedure TUART2B_U2BMODE.setABAUD(thebits : TBits_1); inline;
  40248. begin
  40249. if thebits = 0 then
  40250. pTDefRegMap(@Self)^.clr := $00000020
  40251. else
  40252. pTDefRegMap(@Self)^.&set := $00000020;
  40253. end;
  40254. function TUART2B_U2BMODE.getABAUD : TBits_1; inline;
  40255. begin
  40256. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  40257. end;
  40258. procedure TUART2B_U2BMODE.setLPBACK; inline;
  40259. begin
  40260. pTDefRegMap(@Self)^.&set := $00000040;
  40261. end;
  40262. procedure TUART2B_U2BMODE.clearLPBACK; inline;
  40263. begin
  40264. pTDefRegMap(@Self)^.clr := $00000040;
  40265. end;
  40266. procedure TUART2B_U2BMODE.setLPBACK(thebits : TBits_1); inline;
  40267. begin
  40268. if thebits = 0 then
  40269. pTDefRegMap(@Self)^.clr := $00000040
  40270. else
  40271. pTDefRegMap(@Self)^.&set := $00000040;
  40272. end;
  40273. function TUART2B_U2BMODE.getLPBACK : TBits_1; inline;
  40274. begin
  40275. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  40276. end;
  40277. procedure TUART2B_U2BMODE.setWAKE; inline;
  40278. begin
  40279. pTDefRegMap(@Self)^.&set := $00000080;
  40280. end;
  40281. procedure TUART2B_U2BMODE.clearWAKE; inline;
  40282. begin
  40283. pTDefRegMap(@Self)^.clr := $00000080;
  40284. end;
  40285. procedure TUART2B_U2BMODE.setWAKE(thebits : TBits_1); inline;
  40286. begin
  40287. if thebits = 0 then
  40288. pTDefRegMap(@Self)^.clr := $00000080
  40289. else
  40290. pTDefRegMap(@Self)^.&set := $00000080;
  40291. end;
  40292. function TUART2B_U2BMODE.getWAKE : TBits_1; inline;
  40293. begin
  40294. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  40295. end;
  40296. procedure TUART2B_U2BMODE.setIREN; inline;
  40297. begin
  40298. pTDefRegMap(@Self)^.&set := $00001000;
  40299. end;
  40300. procedure TUART2B_U2BMODE.clearIREN; inline;
  40301. begin
  40302. pTDefRegMap(@Self)^.clr := $00001000;
  40303. end;
  40304. procedure TUART2B_U2BMODE.setIREN(thebits : TBits_1); inline;
  40305. begin
  40306. if thebits = 0 then
  40307. pTDefRegMap(@Self)^.clr := $00001000
  40308. else
  40309. pTDefRegMap(@Self)^.&set := $00001000;
  40310. end;
  40311. function TUART2B_U2BMODE.getIREN : TBits_1; inline;
  40312. begin
  40313. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  40314. end;
  40315. procedure TUART2B_U2BMODE.setSIDL; inline;
  40316. begin
  40317. pTDefRegMap(@Self)^.&set := $00002000;
  40318. end;
  40319. procedure TUART2B_U2BMODE.clearSIDL; inline;
  40320. begin
  40321. pTDefRegMap(@Self)^.clr := $00002000;
  40322. end;
  40323. procedure TUART2B_U2BMODE.setSIDL(thebits : TBits_1); inline;
  40324. begin
  40325. if thebits = 0 then
  40326. pTDefRegMap(@Self)^.clr := $00002000
  40327. else
  40328. pTDefRegMap(@Self)^.&set := $00002000;
  40329. end;
  40330. function TUART2B_U2BMODE.getSIDL : TBits_1; inline;
  40331. begin
  40332. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  40333. end;
  40334. procedure TUART2B_U2BMODE.setON; inline;
  40335. begin
  40336. pTDefRegMap(@Self)^.&set := $00008000;
  40337. end;
  40338. procedure TUART2B_U2BMODE.clearON; inline;
  40339. begin
  40340. pTDefRegMap(@Self)^.clr := $00008000;
  40341. end;
  40342. procedure TUART2B_U2BMODE.setON(thebits : TBits_1); inline;
  40343. begin
  40344. if thebits = 0 then
  40345. pTDefRegMap(@Self)^.clr := $00008000
  40346. else
  40347. pTDefRegMap(@Self)^.&set := $00008000;
  40348. end;
  40349. function TUART2B_U2BMODE.getON : TBits_1; inline;
  40350. begin
  40351. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  40352. end;
  40353. procedure TUART2B_U2BMODE.setPDSEL0; inline;
  40354. begin
  40355. pTDefRegMap(@Self)^.&set := $00000002;
  40356. end;
  40357. procedure TUART2B_U2BMODE.clearPDSEL0; inline;
  40358. begin
  40359. pTDefRegMap(@Self)^.clr := $00000002;
  40360. end;
  40361. procedure TUART2B_U2BMODE.setPDSEL0(thebits : TBits_1); inline;
  40362. begin
  40363. if thebits = 0 then
  40364. pTDefRegMap(@Self)^.clr := $00000002
  40365. else
  40366. pTDefRegMap(@Self)^.&set := $00000002;
  40367. end;
  40368. function TUART2B_U2BMODE.getPDSEL0 : TBits_1; inline;
  40369. begin
  40370. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  40371. end;
  40372. procedure TUART2B_U2BMODE.setPDSEL1; inline;
  40373. begin
  40374. pTDefRegMap(@Self)^.&set := $00000004;
  40375. end;
  40376. procedure TUART2B_U2BMODE.clearPDSEL1; inline;
  40377. begin
  40378. pTDefRegMap(@Self)^.clr := $00000004;
  40379. end;
  40380. procedure TUART2B_U2BMODE.setPDSEL1(thebits : TBits_1); inline;
  40381. begin
  40382. if thebits = 0 then
  40383. pTDefRegMap(@Self)^.clr := $00000004
  40384. else
  40385. pTDefRegMap(@Self)^.&set := $00000004;
  40386. end;
  40387. function TUART2B_U2BMODE.getPDSEL1 : TBits_1; inline;
  40388. begin
  40389. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  40390. end;
  40391. procedure TUART2B_U2BMODE.setUSIDL; inline;
  40392. begin
  40393. pTDefRegMap(@Self)^.&set := $00002000;
  40394. end;
  40395. procedure TUART2B_U2BMODE.clearUSIDL; inline;
  40396. begin
  40397. pTDefRegMap(@Self)^.clr := $00002000;
  40398. end;
  40399. procedure TUART2B_U2BMODE.setUSIDL(thebits : TBits_1); inline;
  40400. begin
  40401. if thebits = 0 then
  40402. pTDefRegMap(@Self)^.clr := $00002000
  40403. else
  40404. pTDefRegMap(@Self)^.&set := $00002000;
  40405. end;
  40406. function TUART2B_U2BMODE.getUSIDL : TBits_1; inline;
  40407. begin
  40408. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  40409. end;
  40410. procedure TUART2B_U2BMODE.setUARTEN; inline;
  40411. begin
  40412. pTDefRegMap(@Self)^.&set := $00008000;
  40413. end;
  40414. procedure TUART2B_U2BMODE.clearUARTEN; inline;
  40415. begin
  40416. pTDefRegMap(@Self)^.clr := $00008000;
  40417. end;
  40418. procedure TUART2B_U2BMODE.setUARTEN(thebits : TBits_1); inline;
  40419. begin
  40420. if thebits = 0 then
  40421. pTDefRegMap(@Self)^.clr := $00008000
  40422. else
  40423. pTDefRegMap(@Self)^.&set := $00008000;
  40424. end;
  40425. function TUART2B_U2BMODE.getUARTEN : TBits_1; inline;
  40426. begin
  40427. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  40428. end;
  40429. procedure TUART2B_U2BMODE.setw(thebits : TBits_32); inline;
  40430. begin
  40431. pTDefRegMap(@Self)^.val := thebits;
  40432. end;
  40433. function TUART2B_U2BMODE.getw : TBits_32; inline;
  40434. begin
  40435. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  40436. end;
  40437. procedure TUART2B_U6MODE.setSTSEL; inline;
  40438. begin
  40439. pTDefRegMap(@Self)^.&set := $00000001;
  40440. end;
  40441. procedure TUART2B_U6MODE.clearSTSEL; inline;
  40442. begin
  40443. pTDefRegMap(@Self)^.clr := $00000001;
  40444. end;
  40445. procedure TUART2B_U6MODE.setSTSEL(thebits : TBits_1); inline;
  40446. begin
  40447. if thebits = 0 then
  40448. pTDefRegMap(@Self)^.clr := $00000001
  40449. else
  40450. pTDefRegMap(@Self)^.&set := $00000001;
  40451. end;
  40452. function TUART2B_U6MODE.getSTSEL : TBits_1; inline;
  40453. begin
  40454. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  40455. end;
  40456. procedure TUART2B_U6MODE.setPDSEL(thebits : TBits_2); inline;
  40457. begin
  40458. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  40459. end;
  40460. function TUART2B_U6MODE.getPDSEL : TBits_2; inline;
  40461. begin
  40462. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  40463. end;
  40464. procedure TUART2B_U6MODE.setBRGH; inline;
  40465. begin
  40466. pTDefRegMap(@Self)^.&set := $00000008;
  40467. end;
  40468. procedure TUART2B_U6MODE.clearBRGH; inline;
  40469. begin
  40470. pTDefRegMap(@Self)^.clr := $00000008;
  40471. end;
  40472. procedure TUART2B_U6MODE.setBRGH(thebits : TBits_1); inline;
  40473. begin
  40474. if thebits = 0 then
  40475. pTDefRegMap(@Self)^.clr := $00000008
  40476. else
  40477. pTDefRegMap(@Self)^.&set := $00000008;
  40478. end;
  40479. function TUART2B_U6MODE.getBRGH : TBits_1; inline;
  40480. begin
  40481. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  40482. end;
  40483. procedure TUART2B_U6MODE.setRXINV; inline;
  40484. begin
  40485. pTDefRegMap(@Self)^.&set := $00000010;
  40486. end;
  40487. procedure TUART2B_U6MODE.clearRXINV; inline;
  40488. begin
  40489. pTDefRegMap(@Self)^.clr := $00000010;
  40490. end;
  40491. procedure TUART2B_U6MODE.setRXINV(thebits : TBits_1); inline;
  40492. begin
  40493. if thebits = 0 then
  40494. pTDefRegMap(@Self)^.clr := $00000010
  40495. else
  40496. pTDefRegMap(@Self)^.&set := $00000010;
  40497. end;
  40498. function TUART2B_U6MODE.getRXINV : TBits_1; inline;
  40499. begin
  40500. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  40501. end;
  40502. procedure TUART2B_U6MODE.setABAUD; inline;
  40503. begin
  40504. pTDefRegMap(@Self)^.&set := $00000020;
  40505. end;
  40506. procedure TUART2B_U6MODE.clearABAUD; inline;
  40507. begin
  40508. pTDefRegMap(@Self)^.clr := $00000020;
  40509. end;
  40510. procedure TUART2B_U6MODE.setABAUD(thebits : TBits_1); inline;
  40511. begin
  40512. if thebits = 0 then
  40513. pTDefRegMap(@Self)^.clr := $00000020
  40514. else
  40515. pTDefRegMap(@Self)^.&set := $00000020;
  40516. end;
  40517. function TUART2B_U6MODE.getABAUD : TBits_1; inline;
  40518. begin
  40519. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  40520. end;
  40521. procedure TUART2B_U6MODE.setLPBACK; inline;
  40522. begin
  40523. pTDefRegMap(@Self)^.&set := $00000040;
  40524. end;
  40525. procedure TUART2B_U6MODE.clearLPBACK; inline;
  40526. begin
  40527. pTDefRegMap(@Self)^.clr := $00000040;
  40528. end;
  40529. procedure TUART2B_U6MODE.setLPBACK(thebits : TBits_1); inline;
  40530. begin
  40531. if thebits = 0 then
  40532. pTDefRegMap(@Self)^.clr := $00000040
  40533. else
  40534. pTDefRegMap(@Self)^.&set := $00000040;
  40535. end;
  40536. function TUART2B_U6MODE.getLPBACK : TBits_1; inline;
  40537. begin
  40538. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  40539. end;
  40540. procedure TUART2B_U6MODE.setWAKE; inline;
  40541. begin
  40542. pTDefRegMap(@Self)^.&set := $00000080;
  40543. end;
  40544. procedure TUART2B_U6MODE.clearWAKE; inline;
  40545. begin
  40546. pTDefRegMap(@Self)^.clr := $00000080;
  40547. end;
  40548. procedure TUART2B_U6MODE.setWAKE(thebits : TBits_1); inline;
  40549. begin
  40550. if thebits = 0 then
  40551. pTDefRegMap(@Self)^.clr := $00000080
  40552. else
  40553. pTDefRegMap(@Self)^.&set := $00000080;
  40554. end;
  40555. function TUART2B_U6MODE.getWAKE : TBits_1; inline;
  40556. begin
  40557. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  40558. end;
  40559. procedure TUART2B_U6MODE.setIREN; inline;
  40560. begin
  40561. pTDefRegMap(@Self)^.&set := $00001000;
  40562. end;
  40563. procedure TUART2B_U6MODE.clearIREN; inline;
  40564. begin
  40565. pTDefRegMap(@Self)^.clr := $00001000;
  40566. end;
  40567. procedure TUART2B_U6MODE.setIREN(thebits : TBits_1); inline;
  40568. begin
  40569. if thebits = 0 then
  40570. pTDefRegMap(@Self)^.clr := $00001000
  40571. else
  40572. pTDefRegMap(@Self)^.&set := $00001000;
  40573. end;
  40574. function TUART2B_U6MODE.getIREN : TBits_1; inline;
  40575. begin
  40576. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  40577. end;
  40578. procedure TUART2B_U6MODE.setSIDL; inline;
  40579. begin
  40580. pTDefRegMap(@Self)^.&set := $00002000;
  40581. end;
  40582. procedure TUART2B_U6MODE.clearSIDL; inline;
  40583. begin
  40584. pTDefRegMap(@Self)^.clr := $00002000;
  40585. end;
  40586. procedure TUART2B_U6MODE.setSIDL(thebits : TBits_1); inline;
  40587. begin
  40588. if thebits = 0 then
  40589. pTDefRegMap(@Self)^.clr := $00002000
  40590. else
  40591. pTDefRegMap(@Self)^.&set := $00002000;
  40592. end;
  40593. function TUART2B_U6MODE.getSIDL : TBits_1; inline;
  40594. begin
  40595. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  40596. end;
  40597. procedure TUART2B_U6MODE.setON; inline;
  40598. begin
  40599. pTDefRegMap(@Self)^.&set := $00008000;
  40600. end;
  40601. procedure TUART2B_U6MODE.clearON; inline;
  40602. begin
  40603. pTDefRegMap(@Self)^.clr := $00008000;
  40604. end;
  40605. procedure TUART2B_U6MODE.setON(thebits : TBits_1); inline;
  40606. begin
  40607. if thebits = 0 then
  40608. pTDefRegMap(@Self)^.clr := $00008000
  40609. else
  40610. pTDefRegMap(@Self)^.&set := $00008000;
  40611. end;
  40612. function TUART2B_U6MODE.getON : TBits_1; inline;
  40613. begin
  40614. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  40615. end;
  40616. procedure TUART2B_U6MODE.setPDSEL0; inline;
  40617. begin
  40618. pTDefRegMap(@Self)^.&set := $00000002;
  40619. end;
  40620. procedure TUART2B_U6MODE.clearPDSEL0; inline;
  40621. begin
  40622. pTDefRegMap(@Self)^.clr := $00000002;
  40623. end;
  40624. procedure TUART2B_U6MODE.setPDSEL0(thebits : TBits_1); inline;
  40625. begin
  40626. if thebits = 0 then
  40627. pTDefRegMap(@Self)^.clr := $00000002
  40628. else
  40629. pTDefRegMap(@Self)^.&set := $00000002;
  40630. end;
  40631. function TUART2B_U6MODE.getPDSEL0 : TBits_1; inline;
  40632. begin
  40633. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  40634. end;
  40635. procedure TUART2B_U6MODE.setPDSEL1; inline;
  40636. begin
  40637. pTDefRegMap(@Self)^.&set := $00000004;
  40638. end;
  40639. procedure TUART2B_U6MODE.clearPDSEL1; inline;
  40640. begin
  40641. pTDefRegMap(@Self)^.clr := $00000004;
  40642. end;
  40643. procedure TUART2B_U6MODE.setPDSEL1(thebits : TBits_1); inline;
  40644. begin
  40645. if thebits = 0 then
  40646. pTDefRegMap(@Self)^.clr := $00000004
  40647. else
  40648. pTDefRegMap(@Self)^.&set := $00000004;
  40649. end;
  40650. function TUART2B_U6MODE.getPDSEL1 : TBits_1; inline;
  40651. begin
  40652. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  40653. end;
  40654. procedure TUART2B_U6MODE.setUSIDL; inline;
  40655. begin
  40656. pTDefRegMap(@Self)^.&set := $00002000;
  40657. end;
  40658. procedure TUART2B_U6MODE.clearUSIDL; inline;
  40659. begin
  40660. pTDefRegMap(@Self)^.clr := $00002000;
  40661. end;
  40662. procedure TUART2B_U6MODE.setUSIDL(thebits : TBits_1); inline;
  40663. begin
  40664. if thebits = 0 then
  40665. pTDefRegMap(@Self)^.clr := $00002000
  40666. else
  40667. pTDefRegMap(@Self)^.&set := $00002000;
  40668. end;
  40669. function TUART2B_U6MODE.getUSIDL : TBits_1; inline;
  40670. begin
  40671. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  40672. end;
  40673. procedure TUART2B_U6MODE.setUARTEN; inline;
  40674. begin
  40675. pTDefRegMap(@Self)^.&set := $00008000;
  40676. end;
  40677. procedure TUART2B_U6MODE.clearUARTEN; inline;
  40678. begin
  40679. pTDefRegMap(@Self)^.clr := $00008000;
  40680. end;
  40681. procedure TUART2B_U6MODE.setUARTEN(thebits : TBits_1); inline;
  40682. begin
  40683. if thebits = 0 then
  40684. pTDefRegMap(@Self)^.clr := $00008000
  40685. else
  40686. pTDefRegMap(@Self)^.&set := $00008000;
  40687. end;
  40688. function TUART2B_U6MODE.getUARTEN : TBits_1; inline;
  40689. begin
  40690. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  40691. end;
  40692. procedure TUART2B_U6MODE.setw(thebits : TBits_32); inline;
  40693. begin
  40694. pTDefRegMap(@Self)^.val := thebits;
  40695. end;
  40696. function TUART2B_U6MODE.getw : TBits_32; inline;
  40697. begin
  40698. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  40699. end;
  40700. procedure TUART2B_U2BSTA.setURXDA; inline;
  40701. begin
  40702. pTDefRegMap(@Self)^.&set := $00000001;
  40703. end;
  40704. procedure TUART2B_U2BSTA.clearURXDA; inline;
  40705. begin
  40706. pTDefRegMap(@Self)^.clr := $00000001;
  40707. end;
  40708. procedure TUART2B_U2BSTA.setURXDA(thebits : TBits_1); inline;
  40709. begin
  40710. if thebits = 0 then
  40711. pTDefRegMap(@Self)^.clr := $00000001
  40712. else
  40713. pTDefRegMap(@Self)^.&set := $00000001;
  40714. end;
  40715. function TUART2B_U2BSTA.getURXDA : TBits_1; inline;
  40716. begin
  40717. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  40718. end;
  40719. procedure TUART2B_U2BSTA.setOERR; inline;
  40720. begin
  40721. pTDefRegMap(@Self)^.&set := $00000002;
  40722. end;
  40723. procedure TUART2B_U2BSTA.clearOERR; inline;
  40724. begin
  40725. pTDefRegMap(@Self)^.clr := $00000002;
  40726. end;
  40727. procedure TUART2B_U2BSTA.setOERR(thebits : TBits_1); inline;
  40728. begin
  40729. if thebits = 0 then
  40730. pTDefRegMap(@Self)^.clr := $00000002
  40731. else
  40732. pTDefRegMap(@Self)^.&set := $00000002;
  40733. end;
  40734. function TUART2B_U2BSTA.getOERR : TBits_1; inline;
  40735. begin
  40736. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  40737. end;
  40738. procedure TUART2B_U2BSTA.setFERR; inline;
  40739. begin
  40740. pTDefRegMap(@Self)^.&set := $00000004;
  40741. end;
  40742. procedure TUART2B_U2BSTA.clearFERR; inline;
  40743. begin
  40744. pTDefRegMap(@Self)^.clr := $00000004;
  40745. end;
  40746. procedure TUART2B_U2BSTA.setFERR(thebits : TBits_1); inline;
  40747. begin
  40748. if thebits = 0 then
  40749. pTDefRegMap(@Self)^.clr := $00000004
  40750. else
  40751. pTDefRegMap(@Self)^.&set := $00000004;
  40752. end;
  40753. function TUART2B_U2BSTA.getFERR : TBits_1; inline;
  40754. begin
  40755. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  40756. end;
  40757. procedure TUART2B_U2BSTA.setPERR; inline;
  40758. begin
  40759. pTDefRegMap(@Self)^.&set := $00000008;
  40760. end;
  40761. procedure TUART2B_U2BSTA.clearPERR; inline;
  40762. begin
  40763. pTDefRegMap(@Self)^.clr := $00000008;
  40764. end;
  40765. procedure TUART2B_U2BSTA.setPERR(thebits : TBits_1); inline;
  40766. begin
  40767. if thebits = 0 then
  40768. pTDefRegMap(@Self)^.clr := $00000008
  40769. else
  40770. pTDefRegMap(@Self)^.&set := $00000008;
  40771. end;
  40772. function TUART2B_U2BSTA.getPERR : TBits_1; inline;
  40773. begin
  40774. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  40775. end;
  40776. procedure TUART2B_U2BSTA.setRIDLE; inline;
  40777. begin
  40778. pTDefRegMap(@Self)^.&set := $00000010;
  40779. end;
  40780. procedure TUART2B_U2BSTA.clearRIDLE; inline;
  40781. begin
  40782. pTDefRegMap(@Self)^.clr := $00000010;
  40783. end;
  40784. procedure TUART2B_U2BSTA.setRIDLE(thebits : TBits_1); inline;
  40785. begin
  40786. if thebits = 0 then
  40787. pTDefRegMap(@Self)^.clr := $00000010
  40788. else
  40789. pTDefRegMap(@Self)^.&set := $00000010;
  40790. end;
  40791. function TUART2B_U2BSTA.getRIDLE : TBits_1; inline;
  40792. begin
  40793. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  40794. end;
  40795. procedure TUART2B_U2BSTA.setADDEN; inline;
  40796. begin
  40797. pTDefRegMap(@Self)^.&set := $00000020;
  40798. end;
  40799. procedure TUART2B_U2BSTA.clearADDEN; inline;
  40800. begin
  40801. pTDefRegMap(@Self)^.clr := $00000020;
  40802. end;
  40803. procedure TUART2B_U2BSTA.setADDEN(thebits : TBits_1); inline;
  40804. begin
  40805. if thebits = 0 then
  40806. pTDefRegMap(@Self)^.clr := $00000020
  40807. else
  40808. pTDefRegMap(@Self)^.&set := $00000020;
  40809. end;
  40810. function TUART2B_U2BSTA.getADDEN : TBits_1; inline;
  40811. begin
  40812. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  40813. end;
  40814. procedure TUART2B_U2BSTA.setURXISEL(thebits : TBits_2); inline;
  40815. begin
  40816. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  40817. end;
  40818. function TUART2B_U2BSTA.getURXISEL : TBits_2; inline;
  40819. begin
  40820. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  40821. end;
  40822. procedure TUART2B_U2BSTA.setTRMT; inline;
  40823. begin
  40824. pTDefRegMap(@Self)^.&set := $00000100;
  40825. end;
  40826. procedure TUART2B_U2BSTA.clearTRMT; inline;
  40827. begin
  40828. pTDefRegMap(@Self)^.clr := $00000100;
  40829. end;
  40830. procedure TUART2B_U2BSTA.setTRMT(thebits : TBits_1); inline;
  40831. begin
  40832. if thebits = 0 then
  40833. pTDefRegMap(@Self)^.clr := $00000100
  40834. else
  40835. pTDefRegMap(@Self)^.&set := $00000100;
  40836. end;
  40837. function TUART2B_U2BSTA.getTRMT : TBits_1; inline;
  40838. begin
  40839. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  40840. end;
  40841. procedure TUART2B_U2BSTA.setUTXBF; inline;
  40842. begin
  40843. pTDefRegMap(@Self)^.&set := $00000200;
  40844. end;
  40845. procedure TUART2B_U2BSTA.clearUTXBF; inline;
  40846. begin
  40847. pTDefRegMap(@Self)^.clr := $00000200;
  40848. end;
  40849. procedure TUART2B_U2BSTA.setUTXBF(thebits : TBits_1); inline;
  40850. begin
  40851. if thebits = 0 then
  40852. pTDefRegMap(@Self)^.clr := $00000200
  40853. else
  40854. pTDefRegMap(@Self)^.&set := $00000200;
  40855. end;
  40856. function TUART2B_U2BSTA.getUTXBF : TBits_1; inline;
  40857. begin
  40858. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  40859. end;
  40860. procedure TUART2B_U2BSTA.setUTXEN; inline;
  40861. begin
  40862. pTDefRegMap(@Self)^.&set := $00000400;
  40863. end;
  40864. procedure TUART2B_U2BSTA.clearUTXEN; inline;
  40865. begin
  40866. pTDefRegMap(@Self)^.clr := $00000400;
  40867. end;
  40868. procedure TUART2B_U2BSTA.setUTXEN(thebits : TBits_1); inline;
  40869. begin
  40870. if thebits = 0 then
  40871. pTDefRegMap(@Self)^.clr := $00000400
  40872. else
  40873. pTDefRegMap(@Self)^.&set := $00000400;
  40874. end;
  40875. function TUART2B_U2BSTA.getUTXEN : TBits_1; inline;
  40876. begin
  40877. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  40878. end;
  40879. procedure TUART2B_U2BSTA.setUTXBRK; inline;
  40880. begin
  40881. pTDefRegMap(@Self)^.&set := $00000800;
  40882. end;
  40883. procedure TUART2B_U2BSTA.clearUTXBRK; inline;
  40884. begin
  40885. pTDefRegMap(@Self)^.clr := $00000800;
  40886. end;
  40887. procedure TUART2B_U2BSTA.setUTXBRK(thebits : TBits_1); inline;
  40888. begin
  40889. if thebits = 0 then
  40890. pTDefRegMap(@Self)^.clr := $00000800
  40891. else
  40892. pTDefRegMap(@Self)^.&set := $00000800;
  40893. end;
  40894. function TUART2B_U2BSTA.getUTXBRK : TBits_1; inline;
  40895. begin
  40896. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  40897. end;
  40898. procedure TUART2B_U2BSTA.setURXEN; inline;
  40899. begin
  40900. pTDefRegMap(@Self)^.&set := $00001000;
  40901. end;
  40902. procedure TUART2B_U2BSTA.clearURXEN; inline;
  40903. begin
  40904. pTDefRegMap(@Self)^.clr := $00001000;
  40905. end;
  40906. procedure TUART2B_U2BSTA.setURXEN(thebits : TBits_1); inline;
  40907. begin
  40908. if thebits = 0 then
  40909. pTDefRegMap(@Self)^.clr := $00001000
  40910. else
  40911. pTDefRegMap(@Self)^.&set := $00001000;
  40912. end;
  40913. function TUART2B_U2BSTA.getURXEN : TBits_1; inline;
  40914. begin
  40915. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  40916. end;
  40917. procedure TUART2B_U2BSTA.setUTXINV; inline;
  40918. begin
  40919. pTDefRegMap(@Self)^.&set := $00002000;
  40920. end;
  40921. procedure TUART2B_U2BSTA.clearUTXINV; inline;
  40922. begin
  40923. pTDefRegMap(@Self)^.clr := $00002000;
  40924. end;
  40925. procedure TUART2B_U2BSTA.setUTXINV(thebits : TBits_1); inline;
  40926. begin
  40927. if thebits = 0 then
  40928. pTDefRegMap(@Self)^.clr := $00002000
  40929. else
  40930. pTDefRegMap(@Self)^.&set := $00002000;
  40931. end;
  40932. function TUART2B_U2BSTA.getUTXINV : TBits_1; inline;
  40933. begin
  40934. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  40935. end;
  40936. procedure TUART2B_U2BSTA.setUTXISEL(thebits : TBits_2); inline;
  40937. begin
  40938. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  40939. end;
  40940. function TUART2B_U2BSTA.getUTXISEL : TBits_2; inline;
  40941. begin
  40942. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  40943. end;
  40944. procedure TUART2B_U2BSTA.setADDR(thebits : TBits_8); inline;
  40945. begin
  40946. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  40947. end;
  40948. function TUART2B_U2BSTA.getADDR : TBits_8; inline;
  40949. begin
  40950. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  40951. end;
  40952. procedure TUART2B_U2BSTA.setADM_EN; inline;
  40953. begin
  40954. pTDefRegMap(@Self)^.&set := $01000000;
  40955. end;
  40956. procedure TUART2B_U2BSTA.clearADM_EN; inline;
  40957. begin
  40958. pTDefRegMap(@Self)^.clr := $01000000;
  40959. end;
  40960. procedure TUART2B_U2BSTA.setADM_EN(thebits : TBits_1); inline;
  40961. begin
  40962. if thebits = 0 then
  40963. pTDefRegMap(@Self)^.clr := $01000000
  40964. else
  40965. pTDefRegMap(@Self)^.&set := $01000000;
  40966. end;
  40967. function TUART2B_U2BSTA.getADM_EN : TBits_1; inline;
  40968. begin
  40969. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  40970. end;
  40971. procedure TUART2B_U2BSTA.setURXISEL0; inline;
  40972. begin
  40973. pTDefRegMap(@Self)^.&set := $00000040;
  40974. end;
  40975. procedure TUART2B_U2BSTA.clearURXISEL0; inline;
  40976. begin
  40977. pTDefRegMap(@Self)^.clr := $00000040;
  40978. end;
  40979. procedure TUART2B_U2BSTA.setURXISEL0(thebits : TBits_1); inline;
  40980. begin
  40981. if thebits = 0 then
  40982. pTDefRegMap(@Self)^.clr := $00000040
  40983. else
  40984. pTDefRegMap(@Self)^.&set := $00000040;
  40985. end;
  40986. function TUART2B_U2BSTA.getURXISEL0 : TBits_1; inline;
  40987. begin
  40988. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  40989. end;
  40990. procedure TUART2B_U2BSTA.setURXISEL1; inline;
  40991. begin
  40992. pTDefRegMap(@Self)^.&set := $00000080;
  40993. end;
  40994. procedure TUART2B_U2BSTA.clearURXISEL1; inline;
  40995. begin
  40996. pTDefRegMap(@Self)^.clr := $00000080;
  40997. end;
  40998. procedure TUART2B_U2BSTA.setURXISEL1(thebits : TBits_1); inline;
  40999. begin
  41000. if thebits = 0 then
  41001. pTDefRegMap(@Self)^.clr := $00000080
  41002. else
  41003. pTDefRegMap(@Self)^.&set := $00000080;
  41004. end;
  41005. function TUART2B_U2BSTA.getURXISEL1 : TBits_1; inline;
  41006. begin
  41007. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  41008. end;
  41009. procedure TUART2B_U2BSTA.setUTXISEL0; inline;
  41010. begin
  41011. pTDefRegMap(@Self)^.&set := $00004000;
  41012. end;
  41013. procedure TUART2B_U2BSTA.clearUTXISEL0; inline;
  41014. begin
  41015. pTDefRegMap(@Self)^.clr := $00004000;
  41016. end;
  41017. procedure TUART2B_U2BSTA.setUTXISEL0(thebits : TBits_1); inline;
  41018. begin
  41019. if thebits = 0 then
  41020. pTDefRegMap(@Self)^.clr := $00004000
  41021. else
  41022. pTDefRegMap(@Self)^.&set := $00004000;
  41023. end;
  41024. function TUART2B_U2BSTA.getUTXISEL0 : TBits_1; inline;
  41025. begin
  41026. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  41027. end;
  41028. procedure TUART2B_U2BSTA.setUTXISEL1; inline;
  41029. begin
  41030. pTDefRegMap(@Self)^.&set := $00008000;
  41031. end;
  41032. procedure TUART2B_U2BSTA.clearUTXISEL1; inline;
  41033. begin
  41034. pTDefRegMap(@Self)^.clr := $00008000;
  41035. end;
  41036. procedure TUART2B_U2BSTA.setUTXISEL1(thebits : TBits_1); inline;
  41037. begin
  41038. if thebits = 0 then
  41039. pTDefRegMap(@Self)^.clr := $00008000
  41040. else
  41041. pTDefRegMap(@Self)^.&set := $00008000;
  41042. end;
  41043. function TUART2B_U2BSTA.getUTXISEL1 : TBits_1; inline;
  41044. begin
  41045. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  41046. end;
  41047. procedure TUART2B_U2BSTA.setUTXSEL(thebits : TBits_2); inline;
  41048. begin
  41049. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  41050. end;
  41051. function TUART2B_U2BSTA.getUTXSEL : TBits_2; inline;
  41052. begin
  41053. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  41054. end;
  41055. procedure TUART2B_U2BSTA.setw(thebits : TBits_32); inline;
  41056. begin
  41057. pTDefRegMap(@Self)^.val := thebits;
  41058. end;
  41059. function TUART2B_U2BSTA.getw : TBits_32; inline;
  41060. begin
  41061. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  41062. end;
  41063. procedure TUART2B_U6STA.setURXDA; inline;
  41064. begin
  41065. pTDefRegMap(@Self)^.&set := $00000001;
  41066. end;
  41067. procedure TUART2B_U6STA.clearURXDA; inline;
  41068. begin
  41069. pTDefRegMap(@Self)^.clr := $00000001;
  41070. end;
  41071. procedure TUART2B_U6STA.setURXDA(thebits : TBits_1); inline;
  41072. begin
  41073. if thebits = 0 then
  41074. pTDefRegMap(@Self)^.clr := $00000001
  41075. else
  41076. pTDefRegMap(@Self)^.&set := $00000001;
  41077. end;
  41078. function TUART2B_U6STA.getURXDA : TBits_1; inline;
  41079. begin
  41080. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  41081. end;
  41082. procedure TUART2B_U6STA.setOERR; inline;
  41083. begin
  41084. pTDefRegMap(@Self)^.&set := $00000002;
  41085. end;
  41086. procedure TUART2B_U6STA.clearOERR; inline;
  41087. begin
  41088. pTDefRegMap(@Self)^.clr := $00000002;
  41089. end;
  41090. procedure TUART2B_U6STA.setOERR(thebits : TBits_1); inline;
  41091. begin
  41092. if thebits = 0 then
  41093. pTDefRegMap(@Self)^.clr := $00000002
  41094. else
  41095. pTDefRegMap(@Self)^.&set := $00000002;
  41096. end;
  41097. function TUART2B_U6STA.getOERR : TBits_1; inline;
  41098. begin
  41099. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  41100. end;
  41101. procedure TUART2B_U6STA.setFERR; inline;
  41102. begin
  41103. pTDefRegMap(@Self)^.&set := $00000004;
  41104. end;
  41105. procedure TUART2B_U6STA.clearFERR; inline;
  41106. begin
  41107. pTDefRegMap(@Self)^.clr := $00000004;
  41108. end;
  41109. procedure TUART2B_U6STA.setFERR(thebits : TBits_1); inline;
  41110. begin
  41111. if thebits = 0 then
  41112. pTDefRegMap(@Self)^.clr := $00000004
  41113. else
  41114. pTDefRegMap(@Self)^.&set := $00000004;
  41115. end;
  41116. function TUART2B_U6STA.getFERR : TBits_1; inline;
  41117. begin
  41118. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  41119. end;
  41120. procedure TUART2B_U6STA.setPERR; inline;
  41121. begin
  41122. pTDefRegMap(@Self)^.&set := $00000008;
  41123. end;
  41124. procedure TUART2B_U6STA.clearPERR; inline;
  41125. begin
  41126. pTDefRegMap(@Self)^.clr := $00000008;
  41127. end;
  41128. procedure TUART2B_U6STA.setPERR(thebits : TBits_1); inline;
  41129. begin
  41130. if thebits = 0 then
  41131. pTDefRegMap(@Self)^.clr := $00000008
  41132. else
  41133. pTDefRegMap(@Self)^.&set := $00000008;
  41134. end;
  41135. function TUART2B_U6STA.getPERR : TBits_1; inline;
  41136. begin
  41137. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  41138. end;
  41139. procedure TUART2B_U6STA.setRIDLE; inline;
  41140. begin
  41141. pTDefRegMap(@Self)^.&set := $00000010;
  41142. end;
  41143. procedure TUART2B_U6STA.clearRIDLE; inline;
  41144. begin
  41145. pTDefRegMap(@Self)^.clr := $00000010;
  41146. end;
  41147. procedure TUART2B_U6STA.setRIDLE(thebits : TBits_1); inline;
  41148. begin
  41149. if thebits = 0 then
  41150. pTDefRegMap(@Self)^.clr := $00000010
  41151. else
  41152. pTDefRegMap(@Self)^.&set := $00000010;
  41153. end;
  41154. function TUART2B_U6STA.getRIDLE : TBits_1; inline;
  41155. begin
  41156. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  41157. end;
  41158. procedure TUART2B_U6STA.setADDEN; inline;
  41159. begin
  41160. pTDefRegMap(@Self)^.&set := $00000020;
  41161. end;
  41162. procedure TUART2B_U6STA.clearADDEN; inline;
  41163. begin
  41164. pTDefRegMap(@Self)^.clr := $00000020;
  41165. end;
  41166. procedure TUART2B_U6STA.setADDEN(thebits : TBits_1); inline;
  41167. begin
  41168. if thebits = 0 then
  41169. pTDefRegMap(@Self)^.clr := $00000020
  41170. else
  41171. pTDefRegMap(@Self)^.&set := $00000020;
  41172. end;
  41173. function TUART2B_U6STA.getADDEN : TBits_1; inline;
  41174. begin
  41175. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  41176. end;
  41177. procedure TUART2B_U6STA.setURXISEL(thebits : TBits_2); inline;
  41178. begin
  41179. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  41180. end;
  41181. function TUART2B_U6STA.getURXISEL : TBits_2; inline;
  41182. begin
  41183. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  41184. end;
  41185. procedure TUART2B_U6STA.setTRMT; inline;
  41186. begin
  41187. pTDefRegMap(@Self)^.&set := $00000100;
  41188. end;
  41189. procedure TUART2B_U6STA.clearTRMT; inline;
  41190. begin
  41191. pTDefRegMap(@Self)^.clr := $00000100;
  41192. end;
  41193. procedure TUART2B_U6STA.setTRMT(thebits : TBits_1); inline;
  41194. begin
  41195. if thebits = 0 then
  41196. pTDefRegMap(@Self)^.clr := $00000100
  41197. else
  41198. pTDefRegMap(@Self)^.&set := $00000100;
  41199. end;
  41200. function TUART2B_U6STA.getTRMT : TBits_1; inline;
  41201. begin
  41202. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  41203. end;
  41204. procedure TUART2B_U6STA.setUTXBF; inline;
  41205. begin
  41206. pTDefRegMap(@Self)^.&set := $00000200;
  41207. end;
  41208. procedure TUART2B_U6STA.clearUTXBF; inline;
  41209. begin
  41210. pTDefRegMap(@Self)^.clr := $00000200;
  41211. end;
  41212. procedure TUART2B_U6STA.setUTXBF(thebits : TBits_1); inline;
  41213. begin
  41214. if thebits = 0 then
  41215. pTDefRegMap(@Self)^.clr := $00000200
  41216. else
  41217. pTDefRegMap(@Self)^.&set := $00000200;
  41218. end;
  41219. function TUART2B_U6STA.getUTXBF : TBits_1; inline;
  41220. begin
  41221. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  41222. end;
  41223. procedure TUART2B_U6STA.setUTXEN; inline;
  41224. begin
  41225. pTDefRegMap(@Self)^.&set := $00000400;
  41226. end;
  41227. procedure TUART2B_U6STA.clearUTXEN; inline;
  41228. begin
  41229. pTDefRegMap(@Self)^.clr := $00000400;
  41230. end;
  41231. procedure TUART2B_U6STA.setUTXEN(thebits : TBits_1); inline;
  41232. begin
  41233. if thebits = 0 then
  41234. pTDefRegMap(@Self)^.clr := $00000400
  41235. else
  41236. pTDefRegMap(@Self)^.&set := $00000400;
  41237. end;
  41238. function TUART2B_U6STA.getUTXEN : TBits_1; inline;
  41239. begin
  41240. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  41241. end;
  41242. procedure TUART2B_U6STA.setUTXBRK; inline;
  41243. begin
  41244. pTDefRegMap(@Self)^.&set := $00000800;
  41245. end;
  41246. procedure TUART2B_U6STA.clearUTXBRK; inline;
  41247. begin
  41248. pTDefRegMap(@Self)^.clr := $00000800;
  41249. end;
  41250. procedure TUART2B_U6STA.setUTXBRK(thebits : TBits_1); inline;
  41251. begin
  41252. if thebits = 0 then
  41253. pTDefRegMap(@Self)^.clr := $00000800
  41254. else
  41255. pTDefRegMap(@Self)^.&set := $00000800;
  41256. end;
  41257. function TUART2B_U6STA.getUTXBRK : TBits_1; inline;
  41258. begin
  41259. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  41260. end;
  41261. procedure TUART2B_U6STA.setURXEN; inline;
  41262. begin
  41263. pTDefRegMap(@Self)^.&set := $00001000;
  41264. end;
  41265. procedure TUART2B_U6STA.clearURXEN; inline;
  41266. begin
  41267. pTDefRegMap(@Self)^.clr := $00001000;
  41268. end;
  41269. procedure TUART2B_U6STA.setURXEN(thebits : TBits_1); inline;
  41270. begin
  41271. if thebits = 0 then
  41272. pTDefRegMap(@Self)^.clr := $00001000
  41273. else
  41274. pTDefRegMap(@Self)^.&set := $00001000;
  41275. end;
  41276. function TUART2B_U6STA.getURXEN : TBits_1; inline;
  41277. begin
  41278. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  41279. end;
  41280. procedure TUART2B_U6STA.setUTXINV; inline;
  41281. begin
  41282. pTDefRegMap(@Self)^.&set := $00002000;
  41283. end;
  41284. procedure TUART2B_U6STA.clearUTXINV; inline;
  41285. begin
  41286. pTDefRegMap(@Self)^.clr := $00002000;
  41287. end;
  41288. procedure TUART2B_U6STA.setUTXINV(thebits : TBits_1); inline;
  41289. begin
  41290. if thebits = 0 then
  41291. pTDefRegMap(@Self)^.clr := $00002000
  41292. else
  41293. pTDefRegMap(@Self)^.&set := $00002000;
  41294. end;
  41295. function TUART2B_U6STA.getUTXINV : TBits_1; inline;
  41296. begin
  41297. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  41298. end;
  41299. procedure TUART2B_U6STA.setUTXISEL(thebits : TBits_2); inline;
  41300. begin
  41301. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  41302. end;
  41303. function TUART2B_U6STA.getUTXISEL : TBits_2; inline;
  41304. begin
  41305. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  41306. end;
  41307. procedure TUART2B_U6STA.setADDR(thebits : TBits_8); inline;
  41308. begin
  41309. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  41310. end;
  41311. function TUART2B_U6STA.getADDR : TBits_8; inline;
  41312. begin
  41313. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  41314. end;
  41315. procedure TUART2B_U6STA.setADM_EN; inline;
  41316. begin
  41317. pTDefRegMap(@Self)^.&set := $01000000;
  41318. end;
  41319. procedure TUART2B_U6STA.clearADM_EN; inline;
  41320. begin
  41321. pTDefRegMap(@Self)^.clr := $01000000;
  41322. end;
  41323. procedure TUART2B_U6STA.setADM_EN(thebits : TBits_1); inline;
  41324. begin
  41325. if thebits = 0 then
  41326. pTDefRegMap(@Self)^.clr := $01000000
  41327. else
  41328. pTDefRegMap(@Self)^.&set := $01000000;
  41329. end;
  41330. function TUART2B_U6STA.getADM_EN : TBits_1; inline;
  41331. begin
  41332. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  41333. end;
  41334. procedure TUART2B_U6STA.setURXISEL0; inline;
  41335. begin
  41336. pTDefRegMap(@Self)^.&set := $00000040;
  41337. end;
  41338. procedure TUART2B_U6STA.clearURXISEL0; inline;
  41339. begin
  41340. pTDefRegMap(@Self)^.clr := $00000040;
  41341. end;
  41342. procedure TUART2B_U6STA.setURXISEL0(thebits : TBits_1); inline;
  41343. begin
  41344. if thebits = 0 then
  41345. pTDefRegMap(@Self)^.clr := $00000040
  41346. else
  41347. pTDefRegMap(@Self)^.&set := $00000040;
  41348. end;
  41349. function TUART2B_U6STA.getURXISEL0 : TBits_1; inline;
  41350. begin
  41351. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  41352. end;
  41353. procedure TUART2B_U6STA.setURXISEL1; inline;
  41354. begin
  41355. pTDefRegMap(@Self)^.&set := $00000080;
  41356. end;
  41357. procedure TUART2B_U6STA.clearURXISEL1; inline;
  41358. begin
  41359. pTDefRegMap(@Self)^.clr := $00000080;
  41360. end;
  41361. procedure TUART2B_U6STA.setURXISEL1(thebits : TBits_1); inline;
  41362. begin
  41363. if thebits = 0 then
  41364. pTDefRegMap(@Self)^.clr := $00000080
  41365. else
  41366. pTDefRegMap(@Self)^.&set := $00000080;
  41367. end;
  41368. function TUART2B_U6STA.getURXISEL1 : TBits_1; inline;
  41369. begin
  41370. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  41371. end;
  41372. procedure TUART2B_U6STA.setUTXISEL0; inline;
  41373. begin
  41374. pTDefRegMap(@Self)^.&set := $00004000;
  41375. end;
  41376. procedure TUART2B_U6STA.clearUTXISEL0; inline;
  41377. begin
  41378. pTDefRegMap(@Self)^.clr := $00004000;
  41379. end;
  41380. procedure TUART2B_U6STA.setUTXISEL0(thebits : TBits_1); inline;
  41381. begin
  41382. if thebits = 0 then
  41383. pTDefRegMap(@Self)^.clr := $00004000
  41384. else
  41385. pTDefRegMap(@Self)^.&set := $00004000;
  41386. end;
  41387. function TUART2B_U6STA.getUTXISEL0 : TBits_1; inline;
  41388. begin
  41389. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  41390. end;
  41391. procedure TUART2B_U6STA.setUTXISEL1; inline;
  41392. begin
  41393. pTDefRegMap(@Self)^.&set := $00008000;
  41394. end;
  41395. procedure TUART2B_U6STA.clearUTXISEL1; inline;
  41396. begin
  41397. pTDefRegMap(@Self)^.clr := $00008000;
  41398. end;
  41399. procedure TUART2B_U6STA.setUTXISEL1(thebits : TBits_1); inline;
  41400. begin
  41401. if thebits = 0 then
  41402. pTDefRegMap(@Self)^.clr := $00008000
  41403. else
  41404. pTDefRegMap(@Self)^.&set := $00008000;
  41405. end;
  41406. function TUART2B_U6STA.getUTXISEL1 : TBits_1; inline;
  41407. begin
  41408. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  41409. end;
  41410. procedure TUART2B_U6STA.setUTXSEL(thebits : TBits_2); inline;
  41411. begin
  41412. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  41413. end;
  41414. function TUART2B_U6STA.getUTXSEL : TBits_2; inline;
  41415. begin
  41416. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  41417. end;
  41418. procedure TUART2B_U6STA.setw(thebits : TBits_32); inline;
  41419. begin
  41420. pTDefRegMap(@Self)^.val := thebits;
  41421. end;
  41422. function TUART2B_U6STA.getw : TBits_32; inline;
  41423. begin
  41424. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  41425. end;
  41426. procedure TUART2_U2MODE.setSTSEL; inline;
  41427. begin
  41428. pTDefRegMap(@Self)^.&set := $00000001;
  41429. end;
  41430. procedure TUART2_U2MODE.clearSTSEL; inline;
  41431. begin
  41432. pTDefRegMap(@Self)^.clr := $00000001;
  41433. end;
  41434. procedure TUART2_U2MODE.setSTSEL(thebits : TBits_1); inline;
  41435. begin
  41436. if thebits = 0 then
  41437. pTDefRegMap(@Self)^.clr := $00000001
  41438. else
  41439. pTDefRegMap(@Self)^.&set := $00000001;
  41440. end;
  41441. function TUART2_U2MODE.getSTSEL : TBits_1; inline;
  41442. begin
  41443. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  41444. end;
  41445. procedure TUART2_U2MODE.setPDSEL(thebits : TBits_2); inline;
  41446. begin
  41447. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  41448. end;
  41449. function TUART2_U2MODE.getPDSEL : TBits_2; inline;
  41450. begin
  41451. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  41452. end;
  41453. procedure TUART2_U2MODE.setBRGH; inline;
  41454. begin
  41455. pTDefRegMap(@Self)^.&set := $00000008;
  41456. end;
  41457. procedure TUART2_U2MODE.clearBRGH; inline;
  41458. begin
  41459. pTDefRegMap(@Self)^.clr := $00000008;
  41460. end;
  41461. procedure TUART2_U2MODE.setBRGH(thebits : TBits_1); inline;
  41462. begin
  41463. if thebits = 0 then
  41464. pTDefRegMap(@Self)^.clr := $00000008
  41465. else
  41466. pTDefRegMap(@Self)^.&set := $00000008;
  41467. end;
  41468. function TUART2_U2MODE.getBRGH : TBits_1; inline;
  41469. begin
  41470. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  41471. end;
  41472. procedure TUART2_U2MODE.setRXINV; inline;
  41473. begin
  41474. pTDefRegMap(@Self)^.&set := $00000010;
  41475. end;
  41476. procedure TUART2_U2MODE.clearRXINV; inline;
  41477. begin
  41478. pTDefRegMap(@Self)^.clr := $00000010;
  41479. end;
  41480. procedure TUART2_U2MODE.setRXINV(thebits : TBits_1); inline;
  41481. begin
  41482. if thebits = 0 then
  41483. pTDefRegMap(@Self)^.clr := $00000010
  41484. else
  41485. pTDefRegMap(@Self)^.&set := $00000010;
  41486. end;
  41487. function TUART2_U2MODE.getRXINV : TBits_1; inline;
  41488. begin
  41489. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  41490. end;
  41491. procedure TUART2_U2MODE.setABAUD; inline;
  41492. begin
  41493. pTDefRegMap(@Self)^.&set := $00000020;
  41494. end;
  41495. procedure TUART2_U2MODE.clearABAUD; inline;
  41496. begin
  41497. pTDefRegMap(@Self)^.clr := $00000020;
  41498. end;
  41499. procedure TUART2_U2MODE.setABAUD(thebits : TBits_1); inline;
  41500. begin
  41501. if thebits = 0 then
  41502. pTDefRegMap(@Self)^.clr := $00000020
  41503. else
  41504. pTDefRegMap(@Self)^.&set := $00000020;
  41505. end;
  41506. function TUART2_U2MODE.getABAUD : TBits_1; inline;
  41507. begin
  41508. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  41509. end;
  41510. procedure TUART2_U2MODE.setLPBACK; inline;
  41511. begin
  41512. pTDefRegMap(@Self)^.&set := $00000040;
  41513. end;
  41514. procedure TUART2_U2MODE.clearLPBACK; inline;
  41515. begin
  41516. pTDefRegMap(@Self)^.clr := $00000040;
  41517. end;
  41518. procedure TUART2_U2MODE.setLPBACK(thebits : TBits_1); inline;
  41519. begin
  41520. if thebits = 0 then
  41521. pTDefRegMap(@Self)^.clr := $00000040
  41522. else
  41523. pTDefRegMap(@Self)^.&set := $00000040;
  41524. end;
  41525. function TUART2_U2MODE.getLPBACK : TBits_1; inline;
  41526. begin
  41527. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  41528. end;
  41529. procedure TUART2_U2MODE.setWAKE; inline;
  41530. begin
  41531. pTDefRegMap(@Self)^.&set := $00000080;
  41532. end;
  41533. procedure TUART2_U2MODE.clearWAKE; inline;
  41534. begin
  41535. pTDefRegMap(@Self)^.clr := $00000080;
  41536. end;
  41537. procedure TUART2_U2MODE.setWAKE(thebits : TBits_1); inline;
  41538. begin
  41539. if thebits = 0 then
  41540. pTDefRegMap(@Self)^.clr := $00000080
  41541. else
  41542. pTDefRegMap(@Self)^.&set := $00000080;
  41543. end;
  41544. function TUART2_U2MODE.getWAKE : TBits_1; inline;
  41545. begin
  41546. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  41547. end;
  41548. procedure TUART2_U2MODE.setUEN(thebits : TBits_2); inline;
  41549. begin
  41550. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  41551. end;
  41552. function TUART2_U2MODE.getUEN : TBits_2; inline;
  41553. begin
  41554. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  41555. end;
  41556. procedure TUART2_U2MODE.setRTSMD; inline;
  41557. begin
  41558. pTDefRegMap(@Self)^.&set := $00000800;
  41559. end;
  41560. procedure TUART2_U2MODE.clearRTSMD; inline;
  41561. begin
  41562. pTDefRegMap(@Self)^.clr := $00000800;
  41563. end;
  41564. procedure TUART2_U2MODE.setRTSMD(thebits : TBits_1); inline;
  41565. begin
  41566. if thebits = 0 then
  41567. pTDefRegMap(@Self)^.clr := $00000800
  41568. else
  41569. pTDefRegMap(@Self)^.&set := $00000800;
  41570. end;
  41571. function TUART2_U2MODE.getRTSMD : TBits_1; inline;
  41572. begin
  41573. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  41574. end;
  41575. procedure TUART2_U2MODE.setIREN; inline;
  41576. begin
  41577. pTDefRegMap(@Self)^.&set := $00001000;
  41578. end;
  41579. procedure TUART2_U2MODE.clearIREN; inline;
  41580. begin
  41581. pTDefRegMap(@Self)^.clr := $00001000;
  41582. end;
  41583. procedure TUART2_U2MODE.setIREN(thebits : TBits_1); inline;
  41584. begin
  41585. if thebits = 0 then
  41586. pTDefRegMap(@Self)^.clr := $00001000
  41587. else
  41588. pTDefRegMap(@Self)^.&set := $00001000;
  41589. end;
  41590. function TUART2_U2MODE.getIREN : TBits_1; inline;
  41591. begin
  41592. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  41593. end;
  41594. procedure TUART2_U2MODE.setSIDL; inline;
  41595. begin
  41596. pTDefRegMap(@Self)^.&set := $00002000;
  41597. end;
  41598. procedure TUART2_U2MODE.clearSIDL; inline;
  41599. begin
  41600. pTDefRegMap(@Self)^.clr := $00002000;
  41601. end;
  41602. procedure TUART2_U2MODE.setSIDL(thebits : TBits_1); inline;
  41603. begin
  41604. if thebits = 0 then
  41605. pTDefRegMap(@Self)^.clr := $00002000
  41606. else
  41607. pTDefRegMap(@Self)^.&set := $00002000;
  41608. end;
  41609. function TUART2_U2MODE.getSIDL : TBits_1; inline;
  41610. begin
  41611. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  41612. end;
  41613. procedure TUART2_U2MODE.setON; inline;
  41614. begin
  41615. pTDefRegMap(@Self)^.&set := $00008000;
  41616. end;
  41617. procedure TUART2_U2MODE.clearON; inline;
  41618. begin
  41619. pTDefRegMap(@Self)^.clr := $00008000;
  41620. end;
  41621. procedure TUART2_U2MODE.setON(thebits : TBits_1); inline;
  41622. begin
  41623. if thebits = 0 then
  41624. pTDefRegMap(@Self)^.clr := $00008000
  41625. else
  41626. pTDefRegMap(@Self)^.&set := $00008000;
  41627. end;
  41628. function TUART2_U2MODE.getON : TBits_1; inline;
  41629. begin
  41630. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  41631. end;
  41632. procedure TUART2_U2MODE.setPDSEL0; inline;
  41633. begin
  41634. pTDefRegMap(@Self)^.&set := $00000002;
  41635. end;
  41636. procedure TUART2_U2MODE.clearPDSEL0; inline;
  41637. begin
  41638. pTDefRegMap(@Self)^.clr := $00000002;
  41639. end;
  41640. procedure TUART2_U2MODE.setPDSEL0(thebits : TBits_1); inline;
  41641. begin
  41642. if thebits = 0 then
  41643. pTDefRegMap(@Self)^.clr := $00000002
  41644. else
  41645. pTDefRegMap(@Self)^.&set := $00000002;
  41646. end;
  41647. function TUART2_U2MODE.getPDSEL0 : TBits_1; inline;
  41648. begin
  41649. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  41650. end;
  41651. procedure TUART2_U2MODE.setPDSEL1; inline;
  41652. begin
  41653. pTDefRegMap(@Self)^.&set := $00000004;
  41654. end;
  41655. procedure TUART2_U2MODE.clearPDSEL1; inline;
  41656. begin
  41657. pTDefRegMap(@Self)^.clr := $00000004;
  41658. end;
  41659. procedure TUART2_U2MODE.setPDSEL1(thebits : TBits_1); inline;
  41660. begin
  41661. if thebits = 0 then
  41662. pTDefRegMap(@Self)^.clr := $00000004
  41663. else
  41664. pTDefRegMap(@Self)^.&set := $00000004;
  41665. end;
  41666. function TUART2_U2MODE.getPDSEL1 : TBits_1; inline;
  41667. begin
  41668. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  41669. end;
  41670. procedure TUART2_U2MODE.setUEN0; inline;
  41671. begin
  41672. pTDefRegMap(@Self)^.&set := $00000100;
  41673. end;
  41674. procedure TUART2_U2MODE.clearUEN0; inline;
  41675. begin
  41676. pTDefRegMap(@Self)^.clr := $00000100;
  41677. end;
  41678. procedure TUART2_U2MODE.setUEN0(thebits : TBits_1); inline;
  41679. begin
  41680. if thebits = 0 then
  41681. pTDefRegMap(@Self)^.clr := $00000100
  41682. else
  41683. pTDefRegMap(@Self)^.&set := $00000100;
  41684. end;
  41685. function TUART2_U2MODE.getUEN0 : TBits_1; inline;
  41686. begin
  41687. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  41688. end;
  41689. procedure TUART2_U2MODE.setUEN1; inline;
  41690. begin
  41691. pTDefRegMap(@Self)^.&set := $00000200;
  41692. end;
  41693. procedure TUART2_U2MODE.clearUEN1; inline;
  41694. begin
  41695. pTDefRegMap(@Self)^.clr := $00000200;
  41696. end;
  41697. procedure TUART2_U2MODE.setUEN1(thebits : TBits_1); inline;
  41698. begin
  41699. if thebits = 0 then
  41700. pTDefRegMap(@Self)^.clr := $00000200
  41701. else
  41702. pTDefRegMap(@Self)^.&set := $00000200;
  41703. end;
  41704. function TUART2_U2MODE.getUEN1 : TBits_1; inline;
  41705. begin
  41706. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  41707. end;
  41708. procedure TUART2_U2MODE.setUSIDL; inline;
  41709. begin
  41710. pTDefRegMap(@Self)^.&set := $00002000;
  41711. end;
  41712. procedure TUART2_U2MODE.clearUSIDL; inline;
  41713. begin
  41714. pTDefRegMap(@Self)^.clr := $00002000;
  41715. end;
  41716. procedure TUART2_U2MODE.setUSIDL(thebits : TBits_1); inline;
  41717. begin
  41718. if thebits = 0 then
  41719. pTDefRegMap(@Self)^.clr := $00002000
  41720. else
  41721. pTDefRegMap(@Self)^.&set := $00002000;
  41722. end;
  41723. function TUART2_U2MODE.getUSIDL : TBits_1; inline;
  41724. begin
  41725. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  41726. end;
  41727. procedure TUART2_U2MODE.setUARTEN; inline;
  41728. begin
  41729. pTDefRegMap(@Self)^.&set := $00008000;
  41730. end;
  41731. procedure TUART2_U2MODE.clearUARTEN; inline;
  41732. begin
  41733. pTDefRegMap(@Self)^.clr := $00008000;
  41734. end;
  41735. procedure TUART2_U2MODE.setUARTEN(thebits : TBits_1); inline;
  41736. begin
  41737. if thebits = 0 then
  41738. pTDefRegMap(@Self)^.clr := $00008000
  41739. else
  41740. pTDefRegMap(@Self)^.&set := $00008000;
  41741. end;
  41742. function TUART2_U2MODE.getUARTEN : TBits_1; inline;
  41743. begin
  41744. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  41745. end;
  41746. procedure TUART2_U2MODE.setw(thebits : TBits_32); inline;
  41747. begin
  41748. pTDefRegMap(@Self)^.val := thebits;
  41749. end;
  41750. function TUART2_U2MODE.getw : TBits_32; inline;
  41751. begin
  41752. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  41753. end;
  41754. procedure TUART2_U3AMODE.setSTSEL; inline;
  41755. begin
  41756. pTDefRegMap(@Self)^.&set := $00000001;
  41757. end;
  41758. procedure TUART2_U3AMODE.clearSTSEL; inline;
  41759. begin
  41760. pTDefRegMap(@Self)^.clr := $00000001;
  41761. end;
  41762. procedure TUART2_U3AMODE.setSTSEL(thebits : TBits_1); inline;
  41763. begin
  41764. if thebits = 0 then
  41765. pTDefRegMap(@Self)^.clr := $00000001
  41766. else
  41767. pTDefRegMap(@Self)^.&set := $00000001;
  41768. end;
  41769. function TUART2_U3AMODE.getSTSEL : TBits_1; inline;
  41770. begin
  41771. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  41772. end;
  41773. procedure TUART2_U3AMODE.setPDSEL(thebits : TBits_2); inline;
  41774. begin
  41775. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  41776. end;
  41777. function TUART2_U3AMODE.getPDSEL : TBits_2; inline;
  41778. begin
  41779. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  41780. end;
  41781. procedure TUART2_U3AMODE.setBRGH; inline;
  41782. begin
  41783. pTDefRegMap(@Self)^.&set := $00000008;
  41784. end;
  41785. procedure TUART2_U3AMODE.clearBRGH; inline;
  41786. begin
  41787. pTDefRegMap(@Self)^.clr := $00000008;
  41788. end;
  41789. procedure TUART2_U3AMODE.setBRGH(thebits : TBits_1); inline;
  41790. begin
  41791. if thebits = 0 then
  41792. pTDefRegMap(@Self)^.clr := $00000008
  41793. else
  41794. pTDefRegMap(@Self)^.&set := $00000008;
  41795. end;
  41796. function TUART2_U3AMODE.getBRGH : TBits_1; inline;
  41797. begin
  41798. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  41799. end;
  41800. procedure TUART2_U3AMODE.setRXINV; inline;
  41801. begin
  41802. pTDefRegMap(@Self)^.&set := $00000010;
  41803. end;
  41804. procedure TUART2_U3AMODE.clearRXINV; inline;
  41805. begin
  41806. pTDefRegMap(@Self)^.clr := $00000010;
  41807. end;
  41808. procedure TUART2_U3AMODE.setRXINV(thebits : TBits_1); inline;
  41809. begin
  41810. if thebits = 0 then
  41811. pTDefRegMap(@Self)^.clr := $00000010
  41812. else
  41813. pTDefRegMap(@Self)^.&set := $00000010;
  41814. end;
  41815. function TUART2_U3AMODE.getRXINV : TBits_1; inline;
  41816. begin
  41817. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  41818. end;
  41819. procedure TUART2_U3AMODE.setABAUD; inline;
  41820. begin
  41821. pTDefRegMap(@Self)^.&set := $00000020;
  41822. end;
  41823. procedure TUART2_U3AMODE.clearABAUD; inline;
  41824. begin
  41825. pTDefRegMap(@Self)^.clr := $00000020;
  41826. end;
  41827. procedure TUART2_U3AMODE.setABAUD(thebits : TBits_1); inline;
  41828. begin
  41829. if thebits = 0 then
  41830. pTDefRegMap(@Self)^.clr := $00000020
  41831. else
  41832. pTDefRegMap(@Self)^.&set := $00000020;
  41833. end;
  41834. function TUART2_U3AMODE.getABAUD : TBits_1; inline;
  41835. begin
  41836. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  41837. end;
  41838. procedure TUART2_U3AMODE.setLPBACK; inline;
  41839. begin
  41840. pTDefRegMap(@Self)^.&set := $00000040;
  41841. end;
  41842. procedure TUART2_U3AMODE.clearLPBACK; inline;
  41843. begin
  41844. pTDefRegMap(@Self)^.clr := $00000040;
  41845. end;
  41846. procedure TUART2_U3AMODE.setLPBACK(thebits : TBits_1); inline;
  41847. begin
  41848. if thebits = 0 then
  41849. pTDefRegMap(@Self)^.clr := $00000040
  41850. else
  41851. pTDefRegMap(@Self)^.&set := $00000040;
  41852. end;
  41853. function TUART2_U3AMODE.getLPBACK : TBits_1; inline;
  41854. begin
  41855. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  41856. end;
  41857. procedure TUART2_U3AMODE.setWAKE; inline;
  41858. begin
  41859. pTDefRegMap(@Self)^.&set := $00000080;
  41860. end;
  41861. procedure TUART2_U3AMODE.clearWAKE; inline;
  41862. begin
  41863. pTDefRegMap(@Self)^.clr := $00000080;
  41864. end;
  41865. procedure TUART2_U3AMODE.setWAKE(thebits : TBits_1); inline;
  41866. begin
  41867. if thebits = 0 then
  41868. pTDefRegMap(@Self)^.clr := $00000080
  41869. else
  41870. pTDefRegMap(@Self)^.&set := $00000080;
  41871. end;
  41872. function TUART2_U3AMODE.getWAKE : TBits_1; inline;
  41873. begin
  41874. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  41875. end;
  41876. procedure TUART2_U3AMODE.setUEN(thebits : TBits_2); inline;
  41877. begin
  41878. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  41879. end;
  41880. function TUART2_U3AMODE.getUEN : TBits_2; inline;
  41881. begin
  41882. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  41883. end;
  41884. procedure TUART2_U3AMODE.setRTSMD; inline;
  41885. begin
  41886. pTDefRegMap(@Self)^.&set := $00000800;
  41887. end;
  41888. procedure TUART2_U3AMODE.clearRTSMD; inline;
  41889. begin
  41890. pTDefRegMap(@Self)^.clr := $00000800;
  41891. end;
  41892. procedure TUART2_U3AMODE.setRTSMD(thebits : TBits_1); inline;
  41893. begin
  41894. if thebits = 0 then
  41895. pTDefRegMap(@Self)^.clr := $00000800
  41896. else
  41897. pTDefRegMap(@Self)^.&set := $00000800;
  41898. end;
  41899. function TUART2_U3AMODE.getRTSMD : TBits_1; inline;
  41900. begin
  41901. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  41902. end;
  41903. procedure TUART2_U3AMODE.setIREN; inline;
  41904. begin
  41905. pTDefRegMap(@Self)^.&set := $00001000;
  41906. end;
  41907. procedure TUART2_U3AMODE.clearIREN; inline;
  41908. begin
  41909. pTDefRegMap(@Self)^.clr := $00001000;
  41910. end;
  41911. procedure TUART2_U3AMODE.setIREN(thebits : TBits_1); inline;
  41912. begin
  41913. if thebits = 0 then
  41914. pTDefRegMap(@Self)^.clr := $00001000
  41915. else
  41916. pTDefRegMap(@Self)^.&set := $00001000;
  41917. end;
  41918. function TUART2_U3AMODE.getIREN : TBits_1; inline;
  41919. begin
  41920. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  41921. end;
  41922. procedure TUART2_U3AMODE.setSIDL; inline;
  41923. begin
  41924. pTDefRegMap(@Self)^.&set := $00002000;
  41925. end;
  41926. procedure TUART2_U3AMODE.clearSIDL; inline;
  41927. begin
  41928. pTDefRegMap(@Self)^.clr := $00002000;
  41929. end;
  41930. procedure TUART2_U3AMODE.setSIDL(thebits : TBits_1); inline;
  41931. begin
  41932. if thebits = 0 then
  41933. pTDefRegMap(@Self)^.clr := $00002000
  41934. else
  41935. pTDefRegMap(@Self)^.&set := $00002000;
  41936. end;
  41937. function TUART2_U3AMODE.getSIDL : TBits_1; inline;
  41938. begin
  41939. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  41940. end;
  41941. procedure TUART2_U3AMODE.setON; inline;
  41942. begin
  41943. pTDefRegMap(@Self)^.&set := $00008000;
  41944. end;
  41945. procedure TUART2_U3AMODE.clearON; inline;
  41946. begin
  41947. pTDefRegMap(@Self)^.clr := $00008000;
  41948. end;
  41949. procedure TUART2_U3AMODE.setON(thebits : TBits_1); inline;
  41950. begin
  41951. if thebits = 0 then
  41952. pTDefRegMap(@Self)^.clr := $00008000
  41953. else
  41954. pTDefRegMap(@Self)^.&set := $00008000;
  41955. end;
  41956. function TUART2_U3AMODE.getON : TBits_1; inline;
  41957. begin
  41958. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  41959. end;
  41960. procedure TUART2_U3AMODE.setPDSEL0; inline;
  41961. begin
  41962. pTDefRegMap(@Self)^.&set := $00000002;
  41963. end;
  41964. procedure TUART2_U3AMODE.clearPDSEL0; inline;
  41965. begin
  41966. pTDefRegMap(@Self)^.clr := $00000002;
  41967. end;
  41968. procedure TUART2_U3AMODE.setPDSEL0(thebits : TBits_1); inline;
  41969. begin
  41970. if thebits = 0 then
  41971. pTDefRegMap(@Self)^.clr := $00000002
  41972. else
  41973. pTDefRegMap(@Self)^.&set := $00000002;
  41974. end;
  41975. function TUART2_U3AMODE.getPDSEL0 : TBits_1; inline;
  41976. begin
  41977. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  41978. end;
  41979. procedure TUART2_U3AMODE.setPDSEL1; inline;
  41980. begin
  41981. pTDefRegMap(@Self)^.&set := $00000004;
  41982. end;
  41983. procedure TUART2_U3AMODE.clearPDSEL1; inline;
  41984. begin
  41985. pTDefRegMap(@Self)^.clr := $00000004;
  41986. end;
  41987. procedure TUART2_U3AMODE.setPDSEL1(thebits : TBits_1); inline;
  41988. begin
  41989. if thebits = 0 then
  41990. pTDefRegMap(@Self)^.clr := $00000004
  41991. else
  41992. pTDefRegMap(@Self)^.&set := $00000004;
  41993. end;
  41994. function TUART2_U3AMODE.getPDSEL1 : TBits_1; inline;
  41995. begin
  41996. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  41997. end;
  41998. procedure TUART2_U3AMODE.setUEN0; inline;
  41999. begin
  42000. pTDefRegMap(@Self)^.&set := $00000100;
  42001. end;
  42002. procedure TUART2_U3AMODE.clearUEN0; inline;
  42003. begin
  42004. pTDefRegMap(@Self)^.clr := $00000100;
  42005. end;
  42006. procedure TUART2_U3AMODE.setUEN0(thebits : TBits_1); inline;
  42007. begin
  42008. if thebits = 0 then
  42009. pTDefRegMap(@Self)^.clr := $00000100
  42010. else
  42011. pTDefRegMap(@Self)^.&set := $00000100;
  42012. end;
  42013. function TUART2_U3AMODE.getUEN0 : TBits_1; inline;
  42014. begin
  42015. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  42016. end;
  42017. procedure TUART2_U3AMODE.setUEN1; inline;
  42018. begin
  42019. pTDefRegMap(@Self)^.&set := $00000200;
  42020. end;
  42021. procedure TUART2_U3AMODE.clearUEN1; inline;
  42022. begin
  42023. pTDefRegMap(@Self)^.clr := $00000200;
  42024. end;
  42025. procedure TUART2_U3AMODE.setUEN1(thebits : TBits_1); inline;
  42026. begin
  42027. if thebits = 0 then
  42028. pTDefRegMap(@Self)^.clr := $00000200
  42029. else
  42030. pTDefRegMap(@Self)^.&set := $00000200;
  42031. end;
  42032. function TUART2_U3AMODE.getUEN1 : TBits_1; inline;
  42033. begin
  42034. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  42035. end;
  42036. procedure TUART2_U3AMODE.setUSIDL; inline;
  42037. begin
  42038. pTDefRegMap(@Self)^.&set := $00002000;
  42039. end;
  42040. procedure TUART2_U3AMODE.clearUSIDL; inline;
  42041. begin
  42042. pTDefRegMap(@Self)^.clr := $00002000;
  42043. end;
  42044. procedure TUART2_U3AMODE.setUSIDL(thebits : TBits_1); inline;
  42045. begin
  42046. if thebits = 0 then
  42047. pTDefRegMap(@Self)^.clr := $00002000
  42048. else
  42049. pTDefRegMap(@Self)^.&set := $00002000;
  42050. end;
  42051. function TUART2_U3AMODE.getUSIDL : TBits_1; inline;
  42052. begin
  42053. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  42054. end;
  42055. procedure TUART2_U3AMODE.setUARTEN; inline;
  42056. begin
  42057. pTDefRegMap(@Self)^.&set := $00008000;
  42058. end;
  42059. procedure TUART2_U3AMODE.clearUARTEN; inline;
  42060. begin
  42061. pTDefRegMap(@Self)^.clr := $00008000;
  42062. end;
  42063. procedure TUART2_U3AMODE.setUARTEN(thebits : TBits_1); inline;
  42064. begin
  42065. if thebits = 0 then
  42066. pTDefRegMap(@Self)^.clr := $00008000
  42067. else
  42068. pTDefRegMap(@Self)^.&set := $00008000;
  42069. end;
  42070. function TUART2_U3AMODE.getUARTEN : TBits_1; inline;
  42071. begin
  42072. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  42073. end;
  42074. procedure TUART2_U3AMODE.setw(thebits : TBits_32); inline;
  42075. begin
  42076. pTDefRegMap(@Self)^.val := thebits;
  42077. end;
  42078. function TUART2_U3AMODE.getw : TBits_32; inline;
  42079. begin
  42080. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  42081. end;
  42082. procedure TUART2_U2STA.setURXDA; inline;
  42083. begin
  42084. pTDefRegMap(@Self)^.&set := $00000001;
  42085. end;
  42086. procedure TUART2_U2STA.clearURXDA; inline;
  42087. begin
  42088. pTDefRegMap(@Self)^.clr := $00000001;
  42089. end;
  42090. procedure TUART2_U2STA.setURXDA(thebits : TBits_1); inline;
  42091. begin
  42092. if thebits = 0 then
  42093. pTDefRegMap(@Self)^.clr := $00000001
  42094. else
  42095. pTDefRegMap(@Self)^.&set := $00000001;
  42096. end;
  42097. function TUART2_U2STA.getURXDA : TBits_1; inline;
  42098. begin
  42099. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  42100. end;
  42101. procedure TUART2_U2STA.setOERR; inline;
  42102. begin
  42103. pTDefRegMap(@Self)^.&set := $00000002;
  42104. end;
  42105. procedure TUART2_U2STA.clearOERR; inline;
  42106. begin
  42107. pTDefRegMap(@Self)^.clr := $00000002;
  42108. end;
  42109. procedure TUART2_U2STA.setOERR(thebits : TBits_1); inline;
  42110. begin
  42111. if thebits = 0 then
  42112. pTDefRegMap(@Self)^.clr := $00000002
  42113. else
  42114. pTDefRegMap(@Self)^.&set := $00000002;
  42115. end;
  42116. function TUART2_U2STA.getOERR : TBits_1; inline;
  42117. begin
  42118. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  42119. end;
  42120. procedure TUART2_U2STA.setFERR; inline;
  42121. begin
  42122. pTDefRegMap(@Self)^.&set := $00000004;
  42123. end;
  42124. procedure TUART2_U2STA.clearFERR; inline;
  42125. begin
  42126. pTDefRegMap(@Self)^.clr := $00000004;
  42127. end;
  42128. procedure TUART2_U2STA.setFERR(thebits : TBits_1); inline;
  42129. begin
  42130. if thebits = 0 then
  42131. pTDefRegMap(@Self)^.clr := $00000004
  42132. else
  42133. pTDefRegMap(@Self)^.&set := $00000004;
  42134. end;
  42135. function TUART2_U2STA.getFERR : TBits_1; inline;
  42136. begin
  42137. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  42138. end;
  42139. procedure TUART2_U2STA.setPERR; inline;
  42140. begin
  42141. pTDefRegMap(@Self)^.&set := $00000008;
  42142. end;
  42143. procedure TUART2_U2STA.clearPERR; inline;
  42144. begin
  42145. pTDefRegMap(@Self)^.clr := $00000008;
  42146. end;
  42147. procedure TUART2_U2STA.setPERR(thebits : TBits_1); inline;
  42148. begin
  42149. if thebits = 0 then
  42150. pTDefRegMap(@Self)^.clr := $00000008
  42151. else
  42152. pTDefRegMap(@Self)^.&set := $00000008;
  42153. end;
  42154. function TUART2_U2STA.getPERR : TBits_1; inline;
  42155. begin
  42156. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  42157. end;
  42158. procedure TUART2_U2STA.setRIDLE; inline;
  42159. begin
  42160. pTDefRegMap(@Self)^.&set := $00000010;
  42161. end;
  42162. procedure TUART2_U2STA.clearRIDLE; inline;
  42163. begin
  42164. pTDefRegMap(@Self)^.clr := $00000010;
  42165. end;
  42166. procedure TUART2_U2STA.setRIDLE(thebits : TBits_1); inline;
  42167. begin
  42168. if thebits = 0 then
  42169. pTDefRegMap(@Self)^.clr := $00000010
  42170. else
  42171. pTDefRegMap(@Self)^.&set := $00000010;
  42172. end;
  42173. function TUART2_U2STA.getRIDLE : TBits_1; inline;
  42174. begin
  42175. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  42176. end;
  42177. procedure TUART2_U2STA.setADDEN; inline;
  42178. begin
  42179. pTDefRegMap(@Self)^.&set := $00000020;
  42180. end;
  42181. procedure TUART2_U2STA.clearADDEN; inline;
  42182. begin
  42183. pTDefRegMap(@Self)^.clr := $00000020;
  42184. end;
  42185. procedure TUART2_U2STA.setADDEN(thebits : TBits_1); inline;
  42186. begin
  42187. if thebits = 0 then
  42188. pTDefRegMap(@Self)^.clr := $00000020
  42189. else
  42190. pTDefRegMap(@Self)^.&set := $00000020;
  42191. end;
  42192. function TUART2_U2STA.getADDEN : TBits_1; inline;
  42193. begin
  42194. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  42195. end;
  42196. procedure TUART2_U2STA.setURXISEL(thebits : TBits_2); inline;
  42197. begin
  42198. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  42199. end;
  42200. function TUART2_U2STA.getURXISEL : TBits_2; inline;
  42201. begin
  42202. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  42203. end;
  42204. procedure TUART2_U2STA.setTRMT; inline;
  42205. begin
  42206. pTDefRegMap(@Self)^.&set := $00000100;
  42207. end;
  42208. procedure TUART2_U2STA.clearTRMT; inline;
  42209. begin
  42210. pTDefRegMap(@Self)^.clr := $00000100;
  42211. end;
  42212. procedure TUART2_U2STA.setTRMT(thebits : TBits_1); inline;
  42213. begin
  42214. if thebits = 0 then
  42215. pTDefRegMap(@Self)^.clr := $00000100
  42216. else
  42217. pTDefRegMap(@Self)^.&set := $00000100;
  42218. end;
  42219. function TUART2_U2STA.getTRMT : TBits_1; inline;
  42220. begin
  42221. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  42222. end;
  42223. procedure TUART2_U2STA.setUTXBF; inline;
  42224. begin
  42225. pTDefRegMap(@Self)^.&set := $00000200;
  42226. end;
  42227. procedure TUART2_U2STA.clearUTXBF; inline;
  42228. begin
  42229. pTDefRegMap(@Self)^.clr := $00000200;
  42230. end;
  42231. procedure TUART2_U2STA.setUTXBF(thebits : TBits_1); inline;
  42232. begin
  42233. if thebits = 0 then
  42234. pTDefRegMap(@Self)^.clr := $00000200
  42235. else
  42236. pTDefRegMap(@Self)^.&set := $00000200;
  42237. end;
  42238. function TUART2_U2STA.getUTXBF : TBits_1; inline;
  42239. begin
  42240. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  42241. end;
  42242. procedure TUART2_U2STA.setUTXEN; inline;
  42243. begin
  42244. pTDefRegMap(@Self)^.&set := $00000400;
  42245. end;
  42246. procedure TUART2_U2STA.clearUTXEN; inline;
  42247. begin
  42248. pTDefRegMap(@Self)^.clr := $00000400;
  42249. end;
  42250. procedure TUART2_U2STA.setUTXEN(thebits : TBits_1); inline;
  42251. begin
  42252. if thebits = 0 then
  42253. pTDefRegMap(@Self)^.clr := $00000400
  42254. else
  42255. pTDefRegMap(@Self)^.&set := $00000400;
  42256. end;
  42257. function TUART2_U2STA.getUTXEN : TBits_1; inline;
  42258. begin
  42259. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  42260. end;
  42261. procedure TUART2_U2STA.setUTXBRK; inline;
  42262. begin
  42263. pTDefRegMap(@Self)^.&set := $00000800;
  42264. end;
  42265. procedure TUART2_U2STA.clearUTXBRK; inline;
  42266. begin
  42267. pTDefRegMap(@Self)^.clr := $00000800;
  42268. end;
  42269. procedure TUART2_U2STA.setUTXBRK(thebits : TBits_1); inline;
  42270. begin
  42271. if thebits = 0 then
  42272. pTDefRegMap(@Self)^.clr := $00000800
  42273. else
  42274. pTDefRegMap(@Self)^.&set := $00000800;
  42275. end;
  42276. function TUART2_U2STA.getUTXBRK : TBits_1; inline;
  42277. begin
  42278. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  42279. end;
  42280. procedure TUART2_U2STA.setURXEN; inline;
  42281. begin
  42282. pTDefRegMap(@Self)^.&set := $00001000;
  42283. end;
  42284. procedure TUART2_U2STA.clearURXEN; inline;
  42285. begin
  42286. pTDefRegMap(@Self)^.clr := $00001000;
  42287. end;
  42288. procedure TUART2_U2STA.setURXEN(thebits : TBits_1); inline;
  42289. begin
  42290. if thebits = 0 then
  42291. pTDefRegMap(@Self)^.clr := $00001000
  42292. else
  42293. pTDefRegMap(@Self)^.&set := $00001000;
  42294. end;
  42295. function TUART2_U2STA.getURXEN : TBits_1; inline;
  42296. begin
  42297. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  42298. end;
  42299. procedure TUART2_U2STA.setUTXINV; inline;
  42300. begin
  42301. pTDefRegMap(@Self)^.&set := $00002000;
  42302. end;
  42303. procedure TUART2_U2STA.clearUTXINV; inline;
  42304. begin
  42305. pTDefRegMap(@Self)^.clr := $00002000;
  42306. end;
  42307. procedure TUART2_U2STA.setUTXINV(thebits : TBits_1); inline;
  42308. begin
  42309. if thebits = 0 then
  42310. pTDefRegMap(@Self)^.clr := $00002000
  42311. else
  42312. pTDefRegMap(@Self)^.&set := $00002000;
  42313. end;
  42314. function TUART2_U2STA.getUTXINV : TBits_1; inline;
  42315. begin
  42316. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  42317. end;
  42318. procedure TUART2_U2STA.setUTXISEL(thebits : TBits_2); inline;
  42319. begin
  42320. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  42321. end;
  42322. function TUART2_U2STA.getUTXISEL : TBits_2; inline;
  42323. begin
  42324. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  42325. end;
  42326. procedure TUART2_U2STA.setADDR(thebits : TBits_8); inline;
  42327. begin
  42328. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  42329. end;
  42330. function TUART2_U2STA.getADDR : TBits_8; inline;
  42331. begin
  42332. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  42333. end;
  42334. procedure TUART2_U2STA.setADM_EN; inline;
  42335. begin
  42336. pTDefRegMap(@Self)^.&set := $01000000;
  42337. end;
  42338. procedure TUART2_U2STA.clearADM_EN; inline;
  42339. begin
  42340. pTDefRegMap(@Self)^.clr := $01000000;
  42341. end;
  42342. procedure TUART2_U2STA.setADM_EN(thebits : TBits_1); inline;
  42343. begin
  42344. if thebits = 0 then
  42345. pTDefRegMap(@Self)^.clr := $01000000
  42346. else
  42347. pTDefRegMap(@Self)^.&set := $01000000;
  42348. end;
  42349. function TUART2_U2STA.getADM_EN : TBits_1; inline;
  42350. begin
  42351. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  42352. end;
  42353. procedure TUART2_U2STA.setURXISEL0; inline;
  42354. begin
  42355. pTDefRegMap(@Self)^.&set := $00000040;
  42356. end;
  42357. procedure TUART2_U2STA.clearURXISEL0; inline;
  42358. begin
  42359. pTDefRegMap(@Self)^.clr := $00000040;
  42360. end;
  42361. procedure TUART2_U2STA.setURXISEL0(thebits : TBits_1); inline;
  42362. begin
  42363. if thebits = 0 then
  42364. pTDefRegMap(@Self)^.clr := $00000040
  42365. else
  42366. pTDefRegMap(@Self)^.&set := $00000040;
  42367. end;
  42368. function TUART2_U2STA.getURXISEL0 : TBits_1; inline;
  42369. begin
  42370. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  42371. end;
  42372. procedure TUART2_U2STA.setURXISEL1; inline;
  42373. begin
  42374. pTDefRegMap(@Self)^.&set := $00000080;
  42375. end;
  42376. procedure TUART2_U2STA.clearURXISEL1; inline;
  42377. begin
  42378. pTDefRegMap(@Self)^.clr := $00000080;
  42379. end;
  42380. procedure TUART2_U2STA.setURXISEL1(thebits : TBits_1); inline;
  42381. begin
  42382. if thebits = 0 then
  42383. pTDefRegMap(@Self)^.clr := $00000080
  42384. else
  42385. pTDefRegMap(@Self)^.&set := $00000080;
  42386. end;
  42387. function TUART2_U2STA.getURXISEL1 : TBits_1; inline;
  42388. begin
  42389. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  42390. end;
  42391. procedure TUART2_U2STA.setUTXISEL0; inline;
  42392. begin
  42393. pTDefRegMap(@Self)^.&set := $00004000;
  42394. end;
  42395. procedure TUART2_U2STA.clearUTXISEL0; inline;
  42396. begin
  42397. pTDefRegMap(@Self)^.clr := $00004000;
  42398. end;
  42399. procedure TUART2_U2STA.setUTXISEL0(thebits : TBits_1); inline;
  42400. begin
  42401. if thebits = 0 then
  42402. pTDefRegMap(@Self)^.clr := $00004000
  42403. else
  42404. pTDefRegMap(@Self)^.&set := $00004000;
  42405. end;
  42406. function TUART2_U2STA.getUTXISEL0 : TBits_1; inline;
  42407. begin
  42408. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  42409. end;
  42410. procedure TUART2_U2STA.setUTXISEL1; inline;
  42411. begin
  42412. pTDefRegMap(@Self)^.&set := $00008000;
  42413. end;
  42414. procedure TUART2_U2STA.clearUTXISEL1; inline;
  42415. begin
  42416. pTDefRegMap(@Self)^.clr := $00008000;
  42417. end;
  42418. procedure TUART2_U2STA.setUTXISEL1(thebits : TBits_1); inline;
  42419. begin
  42420. if thebits = 0 then
  42421. pTDefRegMap(@Self)^.clr := $00008000
  42422. else
  42423. pTDefRegMap(@Self)^.&set := $00008000;
  42424. end;
  42425. function TUART2_U2STA.getUTXISEL1 : TBits_1; inline;
  42426. begin
  42427. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  42428. end;
  42429. procedure TUART2_U2STA.setUTXSEL(thebits : TBits_2); inline;
  42430. begin
  42431. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  42432. end;
  42433. function TUART2_U2STA.getUTXSEL : TBits_2; inline;
  42434. begin
  42435. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  42436. end;
  42437. procedure TUART2_U2STA.setw(thebits : TBits_32); inline;
  42438. begin
  42439. pTDefRegMap(@Self)^.val := thebits;
  42440. end;
  42441. function TUART2_U2STA.getw : TBits_32; inline;
  42442. begin
  42443. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  42444. end;
  42445. procedure TUART2_U3ASTA.setURXDA; inline;
  42446. begin
  42447. pTDefRegMap(@Self)^.&set := $00000001;
  42448. end;
  42449. procedure TUART2_U3ASTA.clearURXDA; inline;
  42450. begin
  42451. pTDefRegMap(@Self)^.clr := $00000001;
  42452. end;
  42453. procedure TUART2_U3ASTA.setURXDA(thebits : TBits_1); inline;
  42454. begin
  42455. if thebits = 0 then
  42456. pTDefRegMap(@Self)^.clr := $00000001
  42457. else
  42458. pTDefRegMap(@Self)^.&set := $00000001;
  42459. end;
  42460. function TUART2_U3ASTA.getURXDA : TBits_1; inline;
  42461. begin
  42462. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  42463. end;
  42464. procedure TUART2_U3ASTA.setOERR; inline;
  42465. begin
  42466. pTDefRegMap(@Self)^.&set := $00000002;
  42467. end;
  42468. procedure TUART2_U3ASTA.clearOERR; inline;
  42469. begin
  42470. pTDefRegMap(@Self)^.clr := $00000002;
  42471. end;
  42472. procedure TUART2_U3ASTA.setOERR(thebits : TBits_1); inline;
  42473. begin
  42474. if thebits = 0 then
  42475. pTDefRegMap(@Self)^.clr := $00000002
  42476. else
  42477. pTDefRegMap(@Self)^.&set := $00000002;
  42478. end;
  42479. function TUART2_U3ASTA.getOERR : TBits_1; inline;
  42480. begin
  42481. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  42482. end;
  42483. procedure TUART2_U3ASTA.setFERR; inline;
  42484. begin
  42485. pTDefRegMap(@Self)^.&set := $00000004;
  42486. end;
  42487. procedure TUART2_U3ASTA.clearFERR; inline;
  42488. begin
  42489. pTDefRegMap(@Self)^.clr := $00000004;
  42490. end;
  42491. procedure TUART2_U3ASTA.setFERR(thebits : TBits_1); inline;
  42492. begin
  42493. if thebits = 0 then
  42494. pTDefRegMap(@Self)^.clr := $00000004
  42495. else
  42496. pTDefRegMap(@Self)^.&set := $00000004;
  42497. end;
  42498. function TUART2_U3ASTA.getFERR : TBits_1; inline;
  42499. begin
  42500. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  42501. end;
  42502. procedure TUART2_U3ASTA.setPERR; inline;
  42503. begin
  42504. pTDefRegMap(@Self)^.&set := $00000008;
  42505. end;
  42506. procedure TUART2_U3ASTA.clearPERR; inline;
  42507. begin
  42508. pTDefRegMap(@Self)^.clr := $00000008;
  42509. end;
  42510. procedure TUART2_U3ASTA.setPERR(thebits : TBits_1); inline;
  42511. begin
  42512. if thebits = 0 then
  42513. pTDefRegMap(@Self)^.clr := $00000008
  42514. else
  42515. pTDefRegMap(@Self)^.&set := $00000008;
  42516. end;
  42517. function TUART2_U3ASTA.getPERR : TBits_1; inline;
  42518. begin
  42519. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  42520. end;
  42521. procedure TUART2_U3ASTA.setRIDLE; inline;
  42522. begin
  42523. pTDefRegMap(@Self)^.&set := $00000010;
  42524. end;
  42525. procedure TUART2_U3ASTA.clearRIDLE; inline;
  42526. begin
  42527. pTDefRegMap(@Self)^.clr := $00000010;
  42528. end;
  42529. procedure TUART2_U3ASTA.setRIDLE(thebits : TBits_1); inline;
  42530. begin
  42531. if thebits = 0 then
  42532. pTDefRegMap(@Self)^.clr := $00000010
  42533. else
  42534. pTDefRegMap(@Self)^.&set := $00000010;
  42535. end;
  42536. function TUART2_U3ASTA.getRIDLE : TBits_1; inline;
  42537. begin
  42538. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  42539. end;
  42540. procedure TUART2_U3ASTA.setADDEN; inline;
  42541. begin
  42542. pTDefRegMap(@Self)^.&set := $00000020;
  42543. end;
  42544. procedure TUART2_U3ASTA.clearADDEN; inline;
  42545. begin
  42546. pTDefRegMap(@Self)^.clr := $00000020;
  42547. end;
  42548. procedure TUART2_U3ASTA.setADDEN(thebits : TBits_1); inline;
  42549. begin
  42550. if thebits = 0 then
  42551. pTDefRegMap(@Self)^.clr := $00000020
  42552. else
  42553. pTDefRegMap(@Self)^.&set := $00000020;
  42554. end;
  42555. function TUART2_U3ASTA.getADDEN : TBits_1; inline;
  42556. begin
  42557. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  42558. end;
  42559. procedure TUART2_U3ASTA.setURXISEL(thebits : TBits_2); inline;
  42560. begin
  42561. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  42562. end;
  42563. function TUART2_U3ASTA.getURXISEL : TBits_2; inline;
  42564. begin
  42565. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  42566. end;
  42567. procedure TUART2_U3ASTA.setTRMT; inline;
  42568. begin
  42569. pTDefRegMap(@Self)^.&set := $00000100;
  42570. end;
  42571. procedure TUART2_U3ASTA.clearTRMT; inline;
  42572. begin
  42573. pTDefRegMap(@Self)^.clr := $00000100;
  42574. end;
  42575. procedure TUART2_U3ASTA.setTRMT(thebits : TBits_1); inline;
  42576. begin
  42577. if thebits = 0 then
  42578. pTDefRegMap(@Self)^.clr := $00000100
  42579. else
  42580. pTDefRegMap(@Self)^.&set := $00000100;
  42581. end;
  42582. function TUART2_U3ASTA.getTRMT : TBits_1; inline;
  42583. begin
  42584. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  42585. end;
  42586. procedure TUART2_U3ASTA.setUTXBF; inline;
  42587. begin
  42588. pTDefRegMap(@Self)^.&set := $00000200;
  42589. end;
  42590. procedure TUART2_U3ASTA.clearUTXBF; inline;
  42591. begin
  42592. pTDefRegMap(@Self)^.clr := $00000200;
  42593. end;
  42594. procedure TUART2_U3ASTA.setUTXBF(thebits : TBits_1); inline;
  42595. begin
  42596. if thebits = 0 then
  42597. pTDefRegMap(@Self)^.clr := $00000200
  42598. else
  42599. pTDefRegMap(@Self)^.&set := $00000200;
  42600. end;
  42601. function TUART2_U3ASTA.getUTXBF : TBits_1; inline;
  42602. begin
  42603. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  42604. end;
  42605. procedure TUART2_U3ASTA.setUTXEN; inline;
  42606. begin
  42607. pTDefRegMap(@Self)^.&set := $00000400;
  42608. end;
  42609. procedure TUART2_U3ASTA.clearUTXEN; inline;
  42610. begin
  42611. pTDefRegMap(@Self)^.clr := $00000400;
  42612. end;
  42613. procedure TUART2_U3ASTA.setUTXEN(thebits : TBits_1); inline;
  42614. begin
  42615. if thebits = 0 then
  42616. pTDefRegMap(@Self)^.clr := $00000400
  42617. else
  42618. pTDefRegMap(@Self)^.&set := $00000400;
  42619. end;
  42620. function TUART2_U3ASTA.getUTXEN : TBits_1; inline;
  42621. begin
  42622. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  42623. end;
  42624. procedure TUART2_U3ASTA.setUTXBRK; inline;
  42625. begin
  42626. pTDefRegMap(@Self)^.&set := $00000800;
  42627. end;
  42628. procedure TUART2_U3ASTA.clearUTXBRK; inline;
  42629. begin
  42630. pTDefRegMap(@Self)^.clr := $00000800;
  42631. end;
  42632. procedure TUART2_U3ASTA.setUTXBRK(thebits : TBits_1); inline;
  42633. begin
  42634. if thebits = 0 then
  42635. pTDefRegMap(@Self)^.clr := $00000800
  42636. else
  42637. pTDefRegMap(@Self)^.&set := $00000800;
  42638. end;
  42639. function TUART2_U3ASTA.getUTXBRK : TBits_1; inline;
  42640. begin
  42641. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  42642. end;
  42643. procedure TUART2_U3ASTA.setURXEN; inline;
  42644. begin
  42645. pTDefRegMap(@Self)^.&set := $00001000;
  42646. end;
  42647. procedure TUART2_U3ASTA.clearURXEN; inline;
  42648. begin
  42649. pTDefRegMap(@Self)^.clr := $00001000;
  42650. end;
  42651. procedure TUART2_U3ASTA.setURXEN(thebits : TBits_1); inline;
  42652. begin
  42653. if thebits = 0 then
  42654. pTDefRegMap(@Self)^.clr := $00001000
  42655. else
  42656. pTDefRegMap(@Self)^.&set := $00001000;
  42657. end;
  42658. function TUART2_U3ASTA.getURXEN : TBits_1; inline;
  42659. begin
  42660. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  42661. end;
  42662. procedure TUART2_U3ASTA.setUTXINV; inline;
  42663. begin
  42664. pTDefRegMap(@Self)^.&set := $00002000;
  42665. end;
  42666. procedure TUART2_U3ASTA.clearUTXINV; inline;
  42667. begin
  42668. pTDefRegMap(@Self)^.clr := $00002000;
  42669. end;
  42670. procedure TUART2_U3ASTA.setUTXINV(thebits : TBits_1); inline;
  42671. begin
  42672. if thebits = 0 then
  42673. pTDefRegMap(@Self)^.clr := $00002000
  42674. else
  42675. pTDefRegMap(@Self)^.&set := $00002000;
  42676. end;
  42677. function TUART2_U3ASTA.getUTXINV : TBits_1; inline;
  42678. begin
  42679. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  42680. end;
  42681. procedure TUART2_U3ASTA.setUTXISEL(thebits : TBits_2); inline;
  42682. begin
  42683. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  42684. end;
  42685. function TUART2_U3ASTA.getUTXISEL : TBits_2; inline;
  42686. begin
  42687. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  42688. end;
  42689. procedure TUART2_U3ASTA.setADDR(thebits : TBits_8); inline;
  42690. begin
  42691. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  42692. end;
  42693. function TUART2_U3ASTA.getADDR : TBits_8; inline;
  42694. begin
  42695. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  42696. end;
  42697. procedure TUART2_U3ASTA.setADM_EN; inline;
  42698. begin
  42699. pTDefRegMap(@Self)^.&set := $01000000;
  42700. end;
  42701. procedure TUART2_U3ASTA.clearADM_EN; inline;
  42702. begin
  42703. pTDefRegMap(@Self)^.clr := $01000000;
  42704. end;
  42705. procedure TUART2_U3ASTA.setADM_EN(thebits : TBits_1); inline;
  42706. begin
  42707. if thebits = 0 then
  42708. pTDefRegMap(@Self)^.clr := $01000000
  42709. else
  42710. pTDefRegMap(@Self)^.&set := $01000000;
  42711. end;
  42712. function TUART2_U3ASTA.getADM_EN : TBits_1; inline;
  42713. begin
  42714. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  42715. end;
  42716. procedure TUART2_U3ASTA.setURXISEL0; inline;
  42717. begin
  42718. pTDefRegMap(@Self)^.&set := $00000040;
  42719. end;
  42720. procedure TUART2_U3ASTA.clearURXISEL0; inline;
  42721. begin
  42722. pTDefRegMap(@Self)^.clr := $00000040;
  42723. end;
  42724. procedure TUART2_U3ASTA.setURXISEL0(thebits : TBits_1); inline;
  42725. begin
  42726. if thebits = 0 then
  42727. pTDefRegMap(@Self)^.clr := $00000040
  42728. else
  42729. pTDefRegMap(@Self)^.&set := $00000040;
  42730. end;
  42731. function TUART2_U3ASTA.getURXISEL0 : TBits_1; inline;
  42732. begin
  42733. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  42734. end;
  42735. procedure TUART2_U3ASTA.setURXISEL1; inline;
  42736. begin
  42737. pTDefRegMap(@Self)^.&set := $00000080;
  42738. end;
  42739. procedure TUART2_U3ASTA.clearURXISEL1; inline;
  42740. begin
  42741. pTDefRegMap(@Self)^.clr := $00000080;
  42742. end;
  42743. procedure TUART2_U3ASTA.setURXISEL1(thebits : TBits_1); inline;
  42744. begin
  42745. if thebits = 0 then
  42746. pTDefRegMap(@Self)^.clr := $00000080
  42747. else
  42748. pTDefRegMap(@Self)^.&set := $00000080;
  42749. end;
  42750. function TUART2_U3ASTA.getURXISEL1 : TBits_1; inline;
  42751. begin
  42752. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  42753. end;
  42754. procedure TUART2_U3ASTA.setUTXISEL0; inline;
  42755. begin
  42756. pTDefRegMap(@Self)^.&set := $00004000;
  42757. end;
  42758. procedure TUART2_U3ASTA.clearUTXISEL0; inline;
  42759. begin
  42760. pTDefRegMap(@Self)^.clr := $00004000;
  42761. end;
  42762. procedure TUART2_U3ASTA.setUTXISEL0(thebits : TBits_1); inline;
  42763. begin
  42764. if thebits = 0 then
  42765. pTDefRegMap(@Self)^.clr := $00004000
  42766. else
  42767. pTDefRegMap(@Self)^.&set := $00004000;
  42768. end;
  42769. function TUART2_U3ASTA.getUTXISEL0 : TBits_1; inline;
  42770. begin
  42771. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  42772. end;
  42773. procedure TUART2_U3ASTA.setUTXISEL1; inline;
  42774. begin
  42775. pTDefRegMap(@Self)^.&set := $00008000;
  42776. end;
  42777. procedure TUART2_U3ASTA.clearUTXISEL1; inline;
  42778. begin
  42779. pTDefRegMap(@Self)^.clr := $00008000;
  42780. end;
  42781. procedure TUART2_U3ASTA.setUTXISEL1(thebits : TBits_1); inline;
  42782. begin
  42783. if thebits = 0 then
  42784. pTDefRegMap(@Self)^.clr := $00008000
  42785. else
  42786. pTDefRegMap(@Self)^.&set := $00008000;
  42787. end;
  42788. function TUART2_U3ASTA.getUTXISEL1 : TBits_1; inline;
  42789. begin
  42790. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  42791. end;
  42792. procedure TUART2_U3ASTA.setUTXSEL(thebits : TBits_2); inline;
  42793. begin
  42794. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  42795. end;
  42796. function TUART2_U3ASTA.getUTXSEL : TBits_2; inline;
  42797. begin
  42798. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  42799. end;
  42800. procedure TUART2_U3ASTA.setw(thebits : TBits_32); inline;
  42801. begin
  42802. pTDefRegMap(@Self)^.val := thebits;
  42803. end;
  42804. function TUART2_U3ASTA.getw : TBits_32; inline;
  42805. begin
  42806. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  42807. end;
  42808. procedure TUART5_U3BMODE.setSTSEL; inline;
  42809. begin
  42810. pTDefRegMap(@Self)^.&set := $00000001;
  42811. end;
  42812. procedure TUART5_U3BMODE.clearSTSEL; inline;
  42813. begin
  42814. pTDefRegMap(@Self)^.clr := $00000001;
  42815. end;
  42816. procedure TUART5_U3BMODE.setSTSEL(thebits : TBits_1); inline;
  42817. begin
  42818. if thebits = 0 then
  42819. pTDefRegMap(@Self)^.clr := $00000001
  42820. else
  42821. pTDefRegMap(@Self)^.&set := $00000001;
  42822. end;
  42823. function TUART5_U3BMODE.getSTSEL : TBits_1; inline;
  42824. begin
  42825. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  42826. end;
  42827. procedure TUART5_U3BMODE.setPDSEL(thebits : TBits_2); inline;
  42828. begin
  42829. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  42830. end;
  42831. function TUART5_U3BMODE.getPDSEL : TBits_2; inline;
  42832. begin
  42833. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  42834. end;
  42835. procedure TUART5_U3BMODE.setBRGH; inline;
  42836. begin
  42837. pTDefRegMap(@Self)^.&set := $00000008;
  42838. end;
  42839. procedure TUART5_U3BMODE.clearBRGH; inline;
  42840. begin
  42841. pTDefRegMap(@Self)^.clr := $00000008;
  42842. end;
  42843. procedure TUART5_U3BMODE.setBRGH(thebits : TBits_1); inline;
  42844. begin
  42845. if thebits = 0 then
  42846. pTDefRegMap(@Self)^.clr := $00000008
  42847. else
  42848. pTDefRegMap(@Self)^.&set := $00000008;
  42849. end;
  42850. function TUART5_U3BMODE.getBRGH : TBits_1; inline;
  42851. begin
  42852. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  42853. end;
  42854. procedure TUART5_U3BMODE.setRXINV; inline;
  42855. begin
  42856. pTDefRegMap(@Self)^.&set := $00000010;
  42857. end;
  42858. procedure TUART5_U3BMODE.clearRXINV; inline;
  42859. begin
  42860. pTDefRegMap(@Self)^.clr := $00000010;
  42861. end;
  42862. procedure TUART5_U3BMODE.setRXINV(thebits : TBits_1); inline;
  42863. begin
  42864. if thebits = 0 then
  42865. pTDefRegMap(@Self)^.clr := $00000010
  42866. else
  42867. pTDefRegMap(@Self)^.&set := $00000010;
  42868. end;
  42869. function TUART5_U3BMODE.getRXINV : TBits_1; inline;
  42870. begin
  42871. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  42872. end;
  42873. procedure TUART5_U3BMODE.setABAUD; inline;
  42874. begin
  42875. pTDefRegMap(@Self)^.&set := $00000020;
  42876. end;
  42877. procedure TUART5_U3BMODE.clearABAUD; inline;
  42878. begin
  42879. pTDefRegMap(@Self)^.clr := $00000020;
  42880. end;
  42881. procedure TUART5_U3BMODE.setABAUD(thebits : TBits_1); inline;
  42882. begin
  42883. if thebits = 0 then
  42884. pTDefRegMap(@Self)^.clr := $00000020
  42885. else
  42886. pTDefRegMap(@Self)^.&set := $00000020;
  42887. end;
  42888. function TUART5_U3BMODE.getABAUD : TBits_1; inline;
  42889. begin
  42890. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  42891. end;
  42892. procedure TUART5_U3BMODE.setLPBACK; inline;
  42893. begin
  42894. pTDefRegMap(@Self)^.&set := $00000040;
  42895. end;
  42896. procedure TUART5_U3BMODE.clearLPBACK; inline;
  42897. begin
  42898. pTDefRegMap(@Self)^.clr := $00000040;
  42899. end;
  42900. procedure TUART5_U3BMODE.setLPBACK(thebits : TBits_1); inline;
  42901. begin
  42902. if thebits = 0 then
  42903. pTDefRegMap(@Self)^.clr := $00000040
  42904. else
  42905. pTDefRegMap(@Self)^.&set := $00000040;
  42906. end;
  42907. function TUART5_U3BMODE.getLPBACK : TBits_1; inline;
  42908. begin
  42909. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  42910. end;
  42911. procedure TUART5_U3BMODE.setWAKE; inline;
  42912. begin
  42913. pTDefRegMap(@Self)^.&set := $00000080;
  42914. end;
  42915. procedure TUART5_U3BMODE.clearWAKE; inline;
  42916. begin
  42917. pTDefRegMap(@Self)^.clr := $00000080;
  42918. end;
  42919. procedure TUART5_U3BMODE.setWAKE(thebits : TBits_1); inline;
  42920. begin
  42921. if thebits = 0 then
  42922. pTDefRegMap(@Self)^.clr := $00000080
  42923. else
  42924. pTDefRegMap(@Self)^.&set := $00000080;
  42925. end;
  42926. function TUART5_U3BMODE.getWAKE : TBits_1; inline;
  42927. begin
  42928. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  42929. end;
  42930. procedure TUART5_U3BMODE.setIREN; inline;
  42931. begin
  42932. pTDefRegMap(@Self)^.&set := $00001000;
  42933. end;
  42934. procedure TUART5_U3BMODE.clearIREN; inline;
  42935. begin
  42936. pTDefRegMap(@Self)^.clr := $00001000;
  42937. end;
  42938. procedure TUART5_U3BMODE.setIREN(thebits : TBits_1); inline;
  42939. begin
  42940. if thebits = 0 then
  42941. pTDefRegMap(@Self)^.clr := $00001000
  42942. else
  42943. pTDefRegMap(@Self)^.&set := $00001000;
  42944. end;
  42945. function TUART5_U3BMODE.getIREN : TBits_1; inline;
  42946. begin
  42947. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  42948. end;
  42949. procedure TUART5_U3BMODE.setSIDL; inline;
  42950. begin
  42951. pTDefRegMap(@Self)^.&set := $00002000;
  42952. end;
  42953. procedure TUART5_U3BMODE.clearSIDL; inline;
  42954. begin
  42955. pTDefRegMap(@Self)^.clr := $00002000;
  42956. end;
  42957. procedure TUART5_U3BMODE.setSIDL(thebits : TBits_1); inline;
  42958. begin
  42959. if thebits = 0 then
  42960. pTDefRegMap(@Self)^.clr := $00002000
  42961. else
  42962. pTDefRegMap(@Self)^.&set := $00002000;
  42963. end;
  42964. function TUART5_U3BMODE.getSIDL : TBits_1; inline;
  42965. begin
  42966. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  42967. end;
  42968. procedure TUART5_U3BMODE.setON; inline;
  42969. begin
  42970. pTDefRegMap(@Self)^.&set := $00008000;
  42971. end;
  42972. procedure TUART5_U3BMODE.clearON; inline;
  42973. begin
  42974. pTDefRegMap(@Self)^.clr := $00008000;
  42975. end;
  42976. procedure TUART5_U3BMODE.setON(thebits : TBits_1); inline;
  42977. begin
  42978. if thebits = 0 then
  42979. pTDefRegMap(@Self)^.clr := $00008000
  42980. else
  42981. pTDefRegMap(@Self)^.&set := $00008000;
  42982. end;
  42983. function TUART5_U3BMODE.getON : TBits_1; inline;
  42984. begin
  42985. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  42986. end;
  42987. procedure TUART5_U3BMODE.setPDSEL0; inline;
  42988. begin
  42989. pTDefRegMap(@Self)^.&set := $00000002;
  42990. end;
  42991. procedure TUART5_U3BMODE.clearPDSEL0; inline;
  42992. begin
  42993. pTDefRegMap(@Self)^.clr := $00000002;
  42994. end;
  42995. procedure TUART5_U3BMODE.setPDSEL0(thebits : TBits_1); inline;
  42996. begin
  42997. if thebits = 0 then
  42998. pTDefRegMap(@Self)^.clr := $00000002
  42999. else
  43000. pTDefRegMap(@Self)^.&set := $00000002;
  43001. end;
  43002. function TUART5_U3BMODE.getPDSEL0 : TBits_1; inline;
  43003. begin
  43004. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  43005. end;
  43006. procedure TUART5_U3BMODE.setPDSEL1; inline;
  43007. begin
  43008. pTDefRegMap(@Self)^.&set := $00000004;
  43009. end;
  43010. procedure TUART5_U3BMODE.clearPDSEL1; inline;
  43011. begin
  43012. pTDefRegMap(@Self)^.clr := $00000004;
  43013. end;
  43014. procedure TUART5_U3BMODE.setPDSEL1(thebits : TBits_1); inline;
  43015. begin
  43016. if thebits = 0 then
  43017. pTDefRegMap(@Self)^.clr := $00000004
  43018. else
  43019. pTDefRegMap(@Self)^.&set := $00000004;
  43020. end;
  43021. function TUART5_U3BMODE.getPDSEL1 : TBits_1; inline;
  43022. begin
  43023. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  43024. end;
  43025. procedure TUART5_U3BMODE.setUSIDL; inline;
  43026. begin
  43027. pTDefRegMap(@Self)^.&set := $00002000;
  43028. end;
  43029. procedure TUART5_U3BMODE.clearUSIDL; inline;
  43030. begin
  43031. pTDefRegMap(@Self)^.clr := $00002000;
  43032. end;
  43033. procedure TUART5_U3BMODE.setUSIDL(thebits : TBits_1); inline;
  43034. begin
  43035. if thebits = 0 then
  43036. pTDefRegMap(@Self)^.clr := $00002000
  43037. else
  43038. pTDefRegMap(@Self)^.&set := $00002000;
  43039. end;
  43040. function TUART5_U3BMODE.getUSIDL : TBits_1; inline;
  43041. begin
  43042. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  43043. end;
  43044. procedure TUART5_U3BMODE.setUARTEN; inline;
  43045. begin
  43046. pTDefRegMap(@Self)^.&set := $00008000;
  43047. end;
  43048. procedure TUART5_U3BMODE.clearUARTEN; inline;
  43049. begin
  43050. pTDefRegMap(@Self)^.clr := $00008000;
  43051. end;
  43052. procedure TUART5_U3BMODE.setUARTEN(thebits : TBits_1); inline;
  43053. begin
  43054. if thebits = 0 then
  43055. pTDefRegMap(@Self)^.clr := $00008000
  43056. else
  43057. pTDefRegMap(@Self)^.&set := $00008000;
  43058. end;
  43059. function TUART5_U3BMODE.getUARTEN : TBits_1; inline;
  43060. begin
  43061. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  43062. end;
  43063. procedure TUART5_U3BMODE.setw(thebits : TBits_32); inline;
  43064. begin
  43065. pTDefRegMap(@Self)^.val := thebits;
  43066. end;
  43067. function TUART5_U3BMODE.getw : TBits_32; inline;
  43068. begin
  43069. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  43070. end;
  43071. procedure TUART5_U5MODE.setSTSEL; inline;
  43072. begin
  43073. pTDefRegMap(@Self)^.&set := $00000001;
  43074. end;
  43075. procedure TUART5_U5MODE.clearSTSEL; inline;
  43076. begin
  43077. pTDefRegMap(@Self)^.clr := $00000001;
  43078. end;
  43079. procedure TUART5_U5MODE.setSTSEL(thebits : TBits_1); inline;
  43080. begin
  43081. if thebits = 0 then
  43082. pTDefRegMap(@Self)^.clr := $00000001
  43083. else
  43084. pTDefRegMap(@Self)^.&set := $00000001;
  43085. end;
  43086. function TUART5_U5MODE.getSTSEL : TBits_1; inline;
  43087. begin
  43088. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  43089. end;
  43090. procedure TUART5_U5MODE.setPDSEL(thebits : TBits_2); inline;
  43091. begin
  43092. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  43093. end;
  43094. function TUART5_U5MODE.getPDSEL : TBits_2; inline;
  43095. begin
  43096. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  43097. end;
  43098. procedure TUART5_U5MODE.setBRGH; inline;
  43099. begin
  43100. pTDefRegMap(@Self)^.&set := $00000008;
  43101. end;
  43102. procedure TUART5_U5MODE.clearBRGH; inline;
  43103. begin
  43104. pTDefRegMap(@Self)^.clr := $00000008;
  43105. end;
  43106. procedure TUART5_U5MODE.setBRGH(thebits : TBits_1); inline;
  43107. begin
  43108. if thebits = 0 then
  43109. pTDefRegMap(@Self)^.clr := $00000008
  43110. else
  43111. pTDefRegMap(@Self)^.&set := $00000008;
  43112. end;
  43113. function TUART5_U5MODE.getBRGH : TBits_1; inline;
  43114. begin
  43115. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  43116. end;
  43117. procedure TUART5_U5MODE.setRXINV; inline;
  43118. begin
  43119. pTDefRegMap(@Self)^.&set := $00000010;
  43120. end;
  43121. procedure TUART5_U5MODE.clearRXINV; inline;
  43122. begin
  43123. pTDefRegMap(@Self)^.clr := $00000010;
  43124. end;
  43125. procedure TUART5_U5MODE.setRXINV(thebits : TBits_1); inline;
  43126. begin
  43127. if thebits = 0 then
  43128. pTDefRegMap(@Self)^.clr := $00000010
  43129. else
  43130. pTDefRegMap(@Self)^.&set := $00000010;
  43131. end;
  43132. function TUART5_U5MODE.getRXINV : TBits_1; inline;
  43133. begin
  43134. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  43135. end;
  43136. procedure TUART5_U5MODE.setABAUD; inline;
  43137. begin
  43138. pTDefRegMap(@Self)^.&set := $00000020;
  43139. end;
  43140. procedure TUART5_U5MODE.clearABAUD; inline;
  43141. begin
  43142. pTDefRegMap(@Self)^.clr := $00000020;
  43143. end;
  43144. procedure TUART5_U5MODE.setABAUD(thebits : TBits_1); inline;
  43145. begin
  43146. if thebits = 0 then
  43147. pTDefRegMap(@Self)^.clr := $00000020
  43148. else
  43149. pTDefRegMap(@Self)^.&set := $00000020;
  43150. end;
  43151. function TUART5_U5MODE.getABAUD : TBits_1; inline;
  43152. begin
  43153. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  43154. end;
  43155. procedure TUART5_U5MODE.setLPBACK; inline;
  43156. begin
  43157. pTDefRegMap(@Self)^.&set := $00000040;
  43158. end;
  43159. procedure TUART5_U5MODE.clearLPBACK; inline;
  43160. begin
  43161. pTDefRegMap(@Self)^.clr := $00000040;
  43162. end;
  43163. procedure TUART5_U5MODE.setLPBACK(thebits : TBits_1); inline;
  43164. begin
  43165. if thebits = 0 then
  43166. pTDefRegMap(@Self)^.clr := $00000040
  43167. else
  43168. pTDefRegMap(@Self)^.&set := $00000040;
  43169. end;
  43170. function TUART5_U5MODE.getLPBACK : TBits_1; inline;
  43171. begin
  43172. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  43173. end;
  43174. procedure TUART5_U5MODE.setWAKE; inline;
  43175. begin
  43176. pTDefRegMap(@Self)^.&set := $00000080;
  43177. end;
  43178. procedure TUART5_U5MODE.clearWAKE; inline;
  43179. begin
  43180. pTDefRegMap(@Self)^.clr := $00000080;
  43181. end;
  43182. procedure TUART5_U5MODE.setWAKE(thebits : TBits_1); inline;
  43183. begin
  43184. if thebits = 0 then
  43185. pTDefRegMap(@Self)^.clr := $00000080
  43186. else
  43187. pTDefRegMap(@Self)^.&set := $00000080;
  43188. end;
  43189. function TUART5_U5MODE.getWAKE : TBits_1; inline;
  43190. begin
  43191. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  43192. end;
  43193. procedure TUART5_U5MODE.setIREN; inline;
  43194. begin
  43195. pTDefRegMap(@Self)^.&set := $00001000;
  43196. end;
  43197. procedure TUART5_U5MODE.clearIREN; inline;
  43198. begin
  43199. pTDefRegMap(@Self)^.clr := $00001000;
  43200. end;
  43201. procedure TUART5_U5MODE.setIREN(thebits : TBits_1); inline;
  43202. begin
  43203. if thebits = 0 then
  43204. pTDefRegMap(@Self)^.clr := $00001000
  43205. else
  43206. pTDefRegMap(@Self)^.&set := $00001000;
  43207. end;
  43208. function TUART5_U5MODE.getIREN : TBits_1; inline;
  43209. begin
  43210. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  43211. end;
  43212. procedure TUART5_U5MODE.setSIDL; inline;
  43213. begin
  43214. pTDefRegMap(@Self)^.&set := $00002000;
  43215. end;
  43216. procedure TUART5_U5MODE.clearSIDL; inline;
  43217. begin
  43218. pTDefRegMap(@Self)^.clr := $00002000;
  43219. end;
  43220. procedure TUART5_U5MODE.setSIDL(thebits : TBits_1); inline;
  43221. begin
  43222. if thebits = 0 then
  43223. pTDefRegMap(@Self)^.clr := $00002000
  43224. else
  43225. pTDefRegMap(@Self)^.&set := $00002000;
  43226. end;
  43227. function TUART5_U5MODE.getSIDL : TBits_1; inline;
  43228. begin
  43229. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  43230. end;
  43231. procedure TUART5_U5MODE.setON; inline;
  43232. begin
  43233. pTDefRegMap(@Self)^.&set := $00008000;
  43234. end;
  43235. procedure TUART5_U5MODE.clearON; inline;
  43236. begin
  43237. pTDefRegMap(@Self)^.clr := $00008000;
  43238. end;
  43239. procedure TUART5_U5MODE.setON(thebits : TBits_1); inline;
  43240. begin
  43241. if thebits = 0 then
  43242. pTDefRegMap(@Self)^.clr := $00008000
  43243. else
  43244. pTDefRegMap(@Self)^.&set := $00008000;
  43245. end;
  43246. function TUART5_U5MODE.getON : TBits_1; inline;
  43247. begin
  43248. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  43249. end;
  43250. procedure TUART5_U5MODE.setPDSEL0; inline;
  43251. begin
  43252. pTDefRegMap(@Self)^.&set := $00000002;
  43253. end;
  43254. procedure TUART5_U5MODE.clearPDSEL0; inline;
  43255. begin
  43256. pTDefRegMap(@Self)^.clr := $00000002;
  43257. end;
  43258. procedure TUART5_U5MODE.setPDSEL0(thebits : TBits_1); inline;
  43259. begin
  43260. if thebits = 0 then
  43261. pTDefRegMap(@Self)^.clr := $00000002
  43262. else
  43263. pTDefRegMap(@Self)^.&set := $00000002;
  43264. end;
  43265. function TUART5_U5MODE.getPDSEL0 : TBits_1; inline;
  43266. begin
  43267. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  43268. end;
  43269. procedure TUART5_U5MODE.setPDSEL1; inline;
  43270. begin
  43271. pTDefRegMap(@Self)^.&set := $00000004;
  43272. end;
  43273. procedure TUART5_U5MODE.clearPDSEL1; inline;
  43274. begin
  43275. pTDefRegMap(@Self)^.clr := $00000004;
  43276. end;
  43277. procedure TUART5_U5MODE.setPDSEL1(thebits : TBits_1); inline;
  43278. begin
  43279. if thebits = 0 then
  43280. pTDefRegMap(@Self)^.clr := $00000004
  43281. else
  43282. pTDefRegMap(@Self)^.&set := $00000004;
  43283. end;
  43284. function TUART5_U5MODE.getPDSEL1 : TBits_1; inline;
  43285. begin
  43286. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  43287. end;
  43288. procedure TUART5_U5MODE.setUSIDL; inline;
  43289. begin
  43290. pTDefRegMap(@Self)^.&set := $00002000;
  43291. end;
  43292. procedure TUART5_U5MODE.clearUSIDL; inline;
  43293. begin
  43294. pTDefRegMap(@Self)^.clr := $00002000;
  43295. end;
  43296. procedure TUART5_U5MODE.setUSIDL(thebits : TBits_1); inline;
  43297. begin
  43298. if thebits = 0 then
  43299. pTDefRegMap(@Self)^.clr := $00002000
  43300. else
  43301. pTDefRegMap(@Self)^.&set := $00002000;
  43302. end;
  43303. function TUART5_U5MODE.getUSIDL : TBits_1; inline;
  43304. begin
  43305. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  43306. end;
  43307. procedure TUART5_U5MODE.setUARTEN; inline;
  43308. begin
  43309. pTDefRegMap(@Self)^.&set := $00008000;
  43310. end;
  43311. procedure TUART5_U5MODE.clearUARTEN; inline;
  43312. begin
  43313. pTDefRegMap(@Self)^.clr := $00008000;
  43314. end;
  43315. procedure TUART5_U5MODE.setUARTEN(thebits : TBits_1); inline;
  43316. begin
  43317. if thebits = 0 then
  43318. pTDefRegMap(@Self)^.clr := $00008000
  43319. else
  43320. pTDefRegMap(@Self)^.&set := $00008000;
  43321. end;
  43322. function TUART5_U5MODE.getUARTEN : TBits_1; inline;
  43323. begin
  43324. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  43325. end;
  43326. procedure TUART5_U5MODE.setw(thebits : TBits_32); inline;
  43327. begin
  43328. pTDefRegMap(@Self)^.val := thebits;
  43329. end;
  43330. function TUART5_U5MODE.getw : TBits_32; inline;
  43331. begin
  43332. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  43333. end;
  43334. procedure TUART5_U3BSTA.setURXDA; inline;
  43335. begin
  43336. pTDefRegMap(@Self)^.&set := $00000001;
  43337. end;
  43338. procedure TUART5_U3BSTA.clearURXDA; inline;
  43339. begin
  43340. pTDefRegMap(@Self)^.clr := $00000001;
  43341. end;
  43342. procedure TUART5_U3BSTA.setURXDA(thebits : TBits_1); inline;
  43343. begin
  43344. if thebits = 0 then
  43345. pTDefRegMap(@Self)^.clr := $00000001
  43346. else
  43347. pTDefRegMap(@Self)^.&set := $00000001;
  43348. end;
  43349. function TUART5_U3BSTA.getURXDA : TBits_1; inline;
  43350. begin
  43351. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  43352. end;
  43353. procedure TUART5_U3BSTA.setOERR; inline;
  43354. begin
  43355. pTDefRegMap(@Self)^.&set := $00000002;
  43356. end;
  43357. procedure TUART5_U3BSTA.clearOERR; inline;
  43358. begin
  43359. pTDefRegMap(@Self)^.clr := $00000002;
  43360. end;
  43361. procedure TUART5_U3BSTA.setOERR(thebits : TBits_1); inline;
  43362. begin
  43363. if thebits = 0 then
  43364. pTDefRegMap(@Self)^.clr := $00000002
  43365. else
  43366. pTDefRegMap(@Self)^.&set := $00000002;
  43367. end;
  43368. function TUART5_U3BSTA.getOERR : TBits_1; inline;
  43369. begin
  43370. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  43371. end;
  43372. procedure TUART5_U3BSTA.setFERR; inline;
  43373. begin
  43374. pTDefRegMap(@Self)^.&set := $00000004;
  43375. end;
  43376. procedure TUART5_U3BSTA.clearFERR; inline;
  43377. begin
  43378. pTDefRegMap(@Self)^.clr := $00000004;
  43379. end;
  43380. procedure TUART5_U3BSTA.setFERR(thebits : TBits_1); inline;
  43381. begin
  43382. if thebits = 0 then
  43383. pTDefRegMap(@Self)^.clr := $00000004
  43384. else
  43385. pTDefRegMap(@Self)^.&set := $00000004;
  43386. end;
  43387. function TUART5_U3BSTA.getFERR : TBits_1; inline;
  43388. begin
  43389. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  43390. end;
  43391. procedure TUART5_U3BSTA.setPERR; inline;
  43392. begin
  43393. pTDefRegMap(@Self)^.&set := $00000008;
  43394. end;
  43395. procedure TUART5_U3BSTA.clearPERR; inline;
  43396. begin
  43397. pTDefRegMap(@Self)^.clr := $00000008;
  43398. end;
  43399. procedure TUART5_U3BSTA.setPERR(thebits : TBits_1); inline;
  43400. begin
  43401. if thebits = 0 then
  43402. pTDefRegMap(@Self)^.clr := $00000008
  43403. else
  43404. pTDefRegMap(@Self)^.&set := $00000008;
  43405. end;
  43406. function TUART5_U3BSTA.getPERR : TBits_1; inline;
  43407. begin
  43408. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  43409. end;
  43410. procedure TUART5_U3BSTA.setRIDLE; inline;
  43411. begin
  43412. pTDefRegMap(@Self)^.&set := $00000010;
  43413. end;
  43414. procedure TUART5_U3BSTA.clearRIDLE; inline;
  43415. begin
  43416. pTDefRegMap(@Self)^.clr := $00000010;
  43417. end;
  43418. procedure TUART5_U3BSTA.setRIDLE(thebits : TBits_1); inline;
  43419. begin
  43420. if thebits = 0 then
  43421. pTDefRegMap(@Self)^.clr := $00000010
  43422. else
  43423. pTDefRegMap(@Self)^.&set := $00000010;
  43424. end;
  43425. function TUART5_U3BSTA.getRIDLE : TBits_1; inline;
  43426. begin
  43427. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  43428. end;
  43429. procedure TUART5_U3BSTA.setADDEN; inline;
  43430. begin
  43431. pTDefRegMap(@Self)^.&set := $00000020;
  43432. end;
  43433. procedure TUART5_U3BSTA.clearADDEN; inline;
  43434. begin
  43435. pTDefRegMap(@Self)^.clr := $00000020;
  43436. end;
  43437. procedure TUART5_U3BSTA.setADDEN(thebits : TBits_1); inline;
  43438. begin
  43439. if thebits = 0 then
  43440. pTDefRegMap(@Self)^.clr := $00000020
  43441. else
  43442. pTDefRegMap(@Self)^.&set := $00000020;
  43443. end;
  43444. function TUART5_U3BSTA.getADDEN : TBits_1; inline;
  43445. begin
  43446. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  43447. end;
  43448. procedure TUART5_U3BSTA.setURXISEL(thebits : TBits_2); inline;
  43449. begin
  43450. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  43451. end;
  43452. function TUART5_U3BSTA.getURXISEL : TBits_2; inline;
  43453. begin
  43454. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  43455. end;
  43456. procedure TUART5_U3BSTA.setTRMT; inline;
  43457. begin
  43458. pTDefRegMap(@Self)^.&set := $00000100;
  43459. end;
  43460. procedure TUART5_U3BSTA.clearTRMT; inline;
  43461. begin
  43462. pTDefRegMap(@Self)^.clr := $00000100;
  43463. end;
  43464. procedure TUART5_U3BSTA.setTRMT(thebits : TBits_1); inline;
  43465. begin
  43466. if thebits = 0 then
  43467. pTDefRegMap(@Self)^.clr := $00000100
  43468. else
  43469. pTDefRegMap(@Self)^.&set := $00000100;
  43470. end;
  43471. function TUART5_U3BSTA.getTRMT : TBits_1; inline;
  43472. begin
  43473. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  43474. end;
  43475. procedure TUART5_U3BSTA.setUTXBF; inline;
  43476. begin
  43477. pTDefRegMap(@Self)^.&set := $00000200;
  43478. end;
  43479. procedure TUART5_U3BSTA.clearUTXBF; inline;
  43480. begin
  43481. pTDefRegMap(@Self)^.clr := $00000200;
  43482. end;
  43483. procedure TUART5_U3BSTA.setUTXBF(thebits : TBits_1); inline;
  43484. begin
  43485. if thebits = 0 then
  43486. pTDefRegMap(@Self)^.clr := $00000200
  43487. else
  43488. pTDefRegMap(@Self)^.&set := $00000200;
  43489. end;
  43490. function TUART5_U3BSTA.getUTXBF : TBits_1; inline;
  43491. begin
  43492. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  43493. end;
  43494. procedure TUART5_U3BSTA.setUTXEN; inline;
  43495. begin
  43496. pTDefRegMap(@Self)^.&set := $00000400;
  43497. end;
  43498. procedure TUART5_U3BSTA.clearUTXEN; inline;
  43499. begin
  43500. pTDefRegMap(@Self)^.clr := $00000400;
  43501. end;
  43502. procedure TUART5_U3BSTA.setUTXEN(thebits : TBits_1); inline;
  43503. begin
  43504. if thebits = 0 then
  43505. pTDefRegMap(@Self)^.clr := $00000400
  43506. else
  43507. pTDefRegMap(@Self)^.&set := $00000400;
  43508. end;
  43509. function TUART5_U3BSTA.getUTXEN : TBits_1; inline;
  43510. begin
  43511. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  43512. end;
  43513. procedure TUART5_U3BSTA.setUTXBRK; inline;
  43514. begin
  43515. pTDefRegMap(@Self)^.&set := $00000800;
  43516. end;
  43517. procedure TUART5_U3BSTA.clearUTXBRK; inline;
  43518. begin
  43519. pTDefRegMap(@Self)^.clr := $00000800;
  43520. end;
  43521. procedure TUART5_U3BSTA.setUTXBRK(thebits : TBits_1); inline;
  43522. begin
  43523. if thebits = 0 then
  43524. pTDefRegMap(@Self)^.clr := $00000800
  43525. else
  43526. pTDefRegMap(@Self)^.&set := $00000800;
  43527. end;
  43528. function TUART5_U3BSTA.getUTXBRK : TBits_1; inline;
  43529. begin
  43530. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  43531. end;
  43532. procedure TUART5_U3BSTA.setURXEN; inline;
  43533. begin
  43534. pTDefRegMap(@Self)^.&set := $00001000;
  43535. end;
  43536. procedure TUART5_U3BSTA.clearURXEN; inline;
  43537. begin
  43538. pTDefRegMap(@Self)^.clr := $00001000;
  43539. end;
  43540. procedure TUART5_U3BSTA.setURXEN(thebits : TBits_1); inline;
  43541. begin
  43542. if thebits = 0 then
  43543. pTDefRegMap(@Self)^.clr := $00001000
  43544. else
  43545. pTDefRegMap(@Self)^.&set := $00001000;
  43546. end;
  43547. function TUART5_U3BSTA.getURXEN : TBits_1; inline;
  43548. begin
  43549. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  43550. end;
  43551. procedure TUART5_U3BSTA.setUTXINV; inline;
  43552. begin
  43553. pTDefRegMap(@Self)^.&set := $00002000;
  43554. end;
  43555. procedure TUART5_U3BSTA.clearUTXINV; inline;
  43556. begin
  43557. pTDefRegMap(@Self)^.clr := $00002000;
  43558. end;
  43559. procedure TUART5_U3BSTA.setUTXINV(thebits : TBits_1); inline;
  43560. begin
  43561. if thebits = 0 then
  43562. pTDefRegMap(@Self)^.clr := $00002000
  43563. else
  43564. pTDefRegMap(@Self)^.&set := $00002000;
  43565. end;
  43566. function TUART5_U3BSTA.getUTXINV : TBits_1; inline;
  43567. begin
  43568. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  43569. end;
  43570. procedure TUART5_U3BSTA.setUTXISEL(thebits : TBits_2); inline;
  43571. begin
  43572. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  43573. end;
  43574. function TUART5_U3BSTA.getUTXISEL : TBits_2; inline;
  43575. begin
  43576. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  43577. end;
  43578. procedure TUART5_U3BSTA.setADDR(thebits : TBits_8); inline;
  43579. begin
  43580. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  43581. end;
  43582. function TUART5_U3BSTA.getADDR : TBits_8; inline;
  43583. begin
  43584. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  43585. end;
  43586. procedure TUART5_U3BSTA.setADM_EN; inline;
  43587. begin
  43588. pTDefRegMap(@Self)^.&set := $01000000;
  43589. end;
  43590. procedure TUART5_U3BSTA.clearADM_EN; inline;
  43591. begin
  43592. pTDefRegMap(@Self)^.clr := $01000000;
  43593. end;
  43594. procedure TUART5_U3BSTA.setADM_EN(thebits : TBits_1); inline;
  43595. begin
  43596. if thebits = 0 then
  43597. pTDefRegMap(@Self)^.clr := $01000000
  43598. else
  43599. pTDefRegMap(@Self)^.&set := $01000000;
  43600. end;
  43601. function TUART5_U3BSTA.getADM_EN : TBits_1; inline;
  43602. begin
  43603. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  43604. end;
  43605. procedure TUART5_U3BSTA.setURXISEL0; inline;
  43606. begin
  43607. pTDefRegMap(@Self)^.&set := $00000040;
  43608. end;
  43609. procedure TUART5_U3BSTA.clearURXISEL0; inline;
  43610. begin
  43611. pTDefRegMap(@Self)^.clr := $00000040;
  43612. end;
  43613. procedure TUART5_U3BSTA.setURXISEL0(thebits : TBits_1); inline;
  43614. begin
  43615. if thebits = 0 then
  43616. pTDefRegMap(@Self)^.clr := $00000040
  43617. else
  43618. pTDefRegMap(@Self)^.&set := $00000040;
  43619. end;
  43620. function TUART5_U3BSTA.getURXISEL0 : TBits_1; inline;
  43621. begin
  43622. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  43623. end;
  43624. procedure TUART5_U3BSTA.setURXISEL1; inline;
  43625. begin
  43626. pTDefRegMap(@Self)^.&set := $00000080;
  43627. end;
  43628. procedure TUART5_U3BSTA.clearURXISEL1; inline;
  43629. begin
  43630. pTDefRegMap(@Self)^.clr := $00000080;
  43631. end;
  43632. procedure TUART5_U3BSTA.setURXISEL1(thebits : TBits_1); inline;
  43633. begin
  43634. if thebits = 0 then
  43635. pTDefRegMap(@Self)^.clr := $00000080
  43636. else
  43637. pTDefRegMap(@Self)^.&set := $00000080;
  43638. end;
  43639. function TUART5_U3BSTA.getURXISEL1 : TBits_1; inline;
  43640. begin
  43641. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  43642. end;
  43643. procedure TUART5_U3BSTA.setUTXISEL0; inline;
  43644. begin
  43645. pTDefRegMap(@Self)^.&set := $00004000;
  43646. end;
  43647. procedure TUART5_U3BSTA.clearUTXISEL0; inline;
  43648. begin
  43649. pTDefRegMap(@Self)^.clr := $00004000;
  43650. end;
  43651. procedure TUART5_U3BSTA.setUTXISEL0(thebits : TBits_1); inline;
  43652. begin
  43653. if thebits = 0 then
  43654. pTDefRegMap(@Self)^.clr := $00004000
  43655. else
  43656. pTDefRegMap(@Self)^.&set := $00004000;
  43657. end;
  43658. function TUART5_U3BSTA.getUTXISEL0 : TBits_1; inline;
  43659. begin
  43660. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  43661. end;
  43662. procedure TUART5_U3BSTA.setUTXISEL1; inline;
  43663. begin
  43664. pTDefRegMap(@Self)^.&set := $00008000;
  43665. end;
  43666. procedure TUART5_U3BSTA.clearUTXISEL1; inline;
  43667. begin
  43668. pTDefRegMap(@Self)^.clr := $00008000;
  43669. end;
  43670. procedure TUART5_U3BSTA.setUTXISEL1(thebits : TBits_1); inline;
  43671. begin
  43672. if thebits = 0 then
  43673. pTDefRegMap(@Self)^.clr := $00008000
  43674. else
  43675. pTDefRegMap(@Self)^.&set := $00008000;
  43676. end;
  43677. function TUART5_U3BSTA.getUTXISEL1 : TBits_1; inline;
  43678. begin
  43679. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  43680. end;
  43681. procedure TUART5_U3BSTA.setUTXSEL(thebits : TBits_2); inline;
  43682. begin
  43683. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  43684. end;
  43685. function TUART5_U3BSTA.getUTXSEL : TBits_2; inline;
  43686. begin
  43687. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  43688. end;
  43689. procedure TUART5_U3BSTA.setw(thebits : TBits_32); inline;
  43690. begin
  43691. pTDefRegMap(@Self)^.val := thebits;
  43692. end;
  43693. function TUART5_U3BSTA.getw : TBits_32; inline;
  43694. begin
  43695. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  43696. end;
  43697. procedure TUART5_U5STA.setURXDA; inline;
  43698. begin
  43699. pTDefRegMap(@Self)^.&set := $00000001;
  43700. end;
  43701. procedure TUART5_U5STA.clearURXDA; inline;
  43702. begin
  43703. pTDefRegMap(@Self)^.clr := $00000001;
  43704. end;
  43705. procedure TUART5_U5STA.setURXDA(thebits : TBits_1); inline;
  43706. begin
  43707. if thebits = 0 then
  43708. pTDefRegMap(@Self)^.clr := $00000001
  43709. else
  43710. pTDefRegMap(@Self)^.&set := $00000001;
  43711. end;
  43712. function TUART5_U5STA.getURXDA : TBits_1; inline;
  43713. begin
  43714. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  43715. end;
  43716. procedure TUART5_U5STA.setOERR; inline;
  43717. begin
  43718. pTDefRegMap(@Self)^.&set := $00000002;
  43719. end;
  43720. procedure TUART5_U5STA.clearOERR; inline;
  43721. begin
  43722. pTDefRegMap(@Self)^.clr := $00000002;
  43723. end;
  43724. procedure TUART5_U5STA.setOERR(thebits : TBits_1); inline;
  43725. begin
  43726. if thebits = 0 then
  43727. pTDefRegMap(@Self)^.clr := $00000002
  43728. else
  43729. pTDefRegMap(@Self)^.&set := $00000002;
  43730. end;
  43731. function TUART5_U5STA.getOERR : TBits_1; inline;
  43732. begin
  43733. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  43734. end;
  43735. procedure TUART5_U5STA.setFERR; inline;
  43736. begin
  43737. pTDefRegMap(@Self)^.&set := $00000004;
  43738. end;
  43739. procedure TUART5_U5STA.clearFERR; inline;
  43740. begin
  43741. pTDefRegMap(@Self)^.clr := $00000004;
  43742. end;
  43743. procedure TUART5_U5STA.setFERR(thebits : TBits_1); inline;
  43744. begin
  43745. if thebits = 0 then
  43746. pTDefRegMap(@Self)^.clr := $00000004
  43747. else
  43748. pTDefRegMap(@Self)^.&set := $00000004;
  43749. end;
  43750. function TUART5_U5STA.getFERR : TBits_1; inline;
  43751. begin
  43752. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  43753. end;
  43754. procedure TUART5_U5STA.setPERR; inline;
  43755. begin
  43756. pTDefRegMap(@Self)^.&set := $00000008;
  43757. end;
  43758. procedure TUART5_U5STA.clearPERR; inline;
  43759. begin
  43760. pTDefRegMap(@Self)^.clr := $00000008;
  43761. end;
  43762. procedure TUART5_U5STA.setPERR(thebits : TBits_1); inline;
  43763. begin
  43764. if thebits = 0 then
  43765. pTDefRegMap(@Self)^.clr := $00000008
  43766. else
  43767. pTDefRegMap(@Self)^.&set := $00000008;
  43768. end;
  43769. function TUART5_U5STA.getPERR : TBits_1; inline;
  43770. begin
  43771. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  43772. end;
  43773. procedure TUART5_U5STA.setRIDLE; inline;
  43774. begin
  43775. pTDefRegMap(@Self)^.&set := $00000010;
  43776. end;
  43777. procedure TUART5_U5STA.clearRIDLE; inline;
  43778. begin
  43779. pTDefRegMap(@Self)^.clr := $00000010;
  43780. end;
  43781. procedure TUART5_U5STA.setRIDLE(thebits : TBits_1); inline;
  43782. begin
  43783. if thebits = 0 then
  43784. pTDefRegMap(@Self)^.clr := $00000010
  43785. else
  43786. pTDefRegMap(@Self)^.&set := $00000010;
  43787. end;
  43788. function TUART5_U5STA.getRIDLE : TBits_1; inline;
  43789. begin
  43790. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  43791. end;
  43792. procedure TUART5_U5STA.setADDEN; inline;
  43793. begin
  43794. pTDefRegMap(@Self)^.&set := $00000020;
  43795. end;
  43796. procedure TUART5_U5STA.clearADDEN; inline;
  43797. begin
  43798. pTDefRegMap(@Self)^.clr := $00000020;
  43799. end;
  43800. procedure TUART5_U5STA.setADDEN(thebits : TBits_1); inline;
  43801. begin
  43802. if thebits = 0 then
  43803. pTDefRegMap(@Self)^.clr := $00000020
  43804. else
  43805. pTDefRegMap(@Self)^.&set := $00000020;
  43806. end;
  43807. function TUART5_U5STA.getADDEN : TBits_1; inline;
  43808. begin
  43809. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  43810. end;
  43811. procedure TUART5_U5STA.setURXISEL(thebits : TBits_2); inline;
  43812. begin
  43813. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  43814. end;
  43815. function TUART5_U5STA.getURXISEL : TBits_2; inline;
  43816. begin
  43817. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  43818. end;
  43819. procedure TUART5_U5STA.setTRMT; inline;
  43820. begin
  43821. pTDefRegMap(@Self)^.&set := $00000100;
  43822. end;
  43823. procedure TUART5_U5STA.clearTRMT; inline;
  43824. begin
  43825. pTDefRegMap(@Self)^.clr := $00000100;
  43826. end;
  43827. procedure TUART5_U5STA.setTRMT(thebits : TBits_1); inline;
  43828. begin
  43829. if thebits = 0 then
  43830. pTDefRegMap(@Self)^.clr := $00000100
  43831. else
  43832. pTDefRegMap(@Self)^.&set := $00000100;
  43833. end;
  43834. function TUART5_U5STA.getTRMT : TBits_1; inline;
  43835. begin
  43836. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  43837. end;
  43838. procedure TUART5_U5STA.setUTXBF; inline;
  43839. begin
  43840. pTDefRegMap(@Self)^.&set := $00000200;
  43841. end;
  43842. procedure TUART5_U5STA.clearUTXBF; inline;
  43843. begin
  43844. pTDefRegMap(@Self)^.clr := $00000200;
  43845. end;
  43846. procedure TUART5_U5STA.setUTXBF(thebits : TBits_1); inline;
  43847. begin
  43848. if thebits = 0 then
  43849. pTDefRegMap(@Self)^.clr := $00000200
  43850. else
  43851. pTDefRegMap(@Self)^.&set := $00000200;
  43852. end;
  43853. function TUART5_U5STA.getUTXBF : TBits_1; inline;
  43854. begin
  43855. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  43856. end;
  43857. procedure TUART5_U5STA.setUTXEN; inline;
  43858. begin
  43859. pTDefRegMap(@Self)^.&set := $00000400;
  43860. end;
  43861. procedure TUART5_U5STA.clearUTXEN; inline;
  43862. begin
  43863. pTDefRegMap(@Self)^.clr := $00000400;
  43864. end;
  43865. procedure TUART5_U5STA.setUTXEN(thebits : TBits_1); inline;
  43866. begin
  43867. if thebits = 0 then
  43868. pTDefRegMap(@Self)^.clr := $00000400
  43869. else
  43870. pTDefRegMap(@Self)^.&set := $00000400;
  43871. end;
  43872. function TUART5_U5STA.getUTXEN : TBits_1; inline;
  43873. begin
  43874. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  43875. end;
  43876. procedure TUART5_U5STA.setUTXBRK; inline;
  43877. begin
  43878. pTDefRegMap(@Self)^.&set := $00000800;
  43879. end;
  43880. procedure TUART5_U5STA.clearUTXBRK; inline;
  43881. begin
  43882. pTDefRegMap(@Self)^.clr := $00000800;
  43883. end;
  43884. procedure TUART5_U5STA.setUTXBRK(thebits : TBits_1); inline;
  43885. begin
  43886. if thebits = 0 then
  43887. pTDefRegMap(@Self)^.clr := $00000800
  43888. else
  43889. pTDefRegMap(@Self)^.&set := $00000800;
  43890. end;
  43891. function TUART5_U5STA.getUTXBRK : TBits_1; inline;
  43892. begin
  43893. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  43894. end;
  43895. procedure TUART5_U5STA.setURXEN; inline;
  43896. begin
  43897. pTDefRegMap(@Self)^.&set := $00001000;
  43898. end;
  43899. procedure TUART5_U5STA.clearURXEN; inline;
  43900. begin
  43901. pTDefRegMap(@Self)^.clr := $00001000;
  43902. end;
  43903. procedure TUART5_U5STA.setURXEN(thebits : TBits_1); inline;
  43904. begin
  43905. if thebits = 0 then
  43906. pTDefRegMap(@Self)^.clr := $00001000
  43907. else
  43908. pTDefRegMap(@Self)^.&set := $00001000;
  43909. end;
  43910. function TUART5_U5STA.getURXEN : TBits_1; inline;
  43911. begin
  43912. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  43913. end;
  43914. procedure TUART5_U5STA.setUTXINV; inline;
  43915. begin
  43916. pTDefRegMap(@Self)^.&set := $00002000;
  43917. end;
  43918. procedure TUART5_U5STA.clearUTXINV; inline;
  43919. begin
  43920. pTDefRegMap(@Self)^.clr := $00002000;
  43921. end;
  43922. procedure TUART5_U5STA.setUTXINV(thebits : TBits_1); inline;
  43923. begin
  43924. if thebits = 0 then
  43925. pTDefRegMap(@Self)^.clr := $00002000
  43926. else
  43927. pTDefRegMap(@Self)^.&set := $00002000;
  43928. end;
  43929. function TUART5_U5STA.getUTXINV : TBits_1; inline;
  43930. begin
  43931. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  43932. end;
  43933. procedure TUART5_U5STA.setUTXISEL(thebits : TBits_2); inline;
  43934. begin
  43935. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  43936. end;
  43937. function TUART5_U5STA.getUTXISEL : TBits_2; inline;
  43938. begin
  43939. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  43940. end;
  43941. procedure TUART5_U5STA.setADDR(thebits : TBits_8); inline;
  43942. begin
  43943. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  43944. end;
  43945. function TUART5_U5STA.getADDR : TBits_8; inline;
  43946. begin
  43947. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  43948. end;
  43949. procedure TUART5_U5STA.setADM_EN; inline;
  43950. begin
  43951. pTDefRegMap(@Self)^.&set := $01000000;
  43952. end;
  43953. procedure TUART5_U5STA.clearADM_EN; inline;
  43954. begin
  43955. pTDefRegMap(@Self)^.clr := $01000000;
  43956. end;
  43957. procedure TUART5_U5STA.setADM_EN(thebits : TBits_1); inline;
  43958. begin
  43959. if thebits = 0 then
  43960. pTDefRegMap(@Self)^.clr := $01000000
  43961. else
  43962. pTDefRegMap(@Self)^.&set := $01000000;
  43963. end;
  43964. function TUART5_U5STA.getADM_EN : TBits_1; inline;
  43965. begin
  43966. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  43967. end;
  43968. procedure TUART5_U5STA.setURXISEL0; inline;
  43969. begin
  43970. pTDefRegMap(@Self)^.&set := $00000040;
  43971. end;
  43972. procedure TUART5_U5STA.clearURXISEL0; inline;
  43973. begin
  43974. pTDefRegMap(@Self)^.clr := $00000040;
  43975. end;
  43976. procedure TUART5_U5STA.setURXISEL0(thebits : TBits_1); inline;
  43977. begin
  43978. if thebits = 0 then
  43979. pTDefRegMap(@Self)^.clr := $00000040
  43980. else
  43981. pTDefRegMap(@Self)^.&set := $00000040;
  43982. end;
  43983. function TUART5_U5STA.getURXISEL0 : TBits_1; inline;
  43984. begin
  43985. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  43986. end;
  43987. procedure TUART5_U5STA.setURXISEL1; inline;
  43988. begin
  43989. pTDefRegMap(@Self)^.&set := $00000080;
  43990. end;
  43991. procedure TUART5_U5STA.clearURXISEL1; inline;
  43992. begin
  43993. pTDefRegMap(@Self)^.clr := $00000080;
  43994. end;
  43995. procedure TUART5_U5STA.setURXISEL1(thebits : TBits_1); inline;
  43996. begin
  43997. if thebits = 0 then
  43998. pTDefRegMap(@Self)^.clr := $00000080
  43999. else
  44000. pTDefRegMap(@Self)^.&set := $00000080;
  44001. end;
  44002. function TUART5_U5STA.getURXISEL1 : TBits_1; inline;
  44003. begin
  44004. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  44005. end;
  44006. procedure TUART5_U5STA.setUTXISEL0; inline;
  44007. begin
  44008. pTDefRegMap(@Self)^.&set := $00004000;
  44009. end;
  44010. procedure TUART5_U5STA.clearUTXISEL0; inline;
  44011. begin
  44012. pTDefRegMap(@Self)^.clr := $00004000;
  44013. end;
  44014. procedure TUART5_U5STA.setUTXISEL0(thebits : TBits_1); inline;
  44015. begin
  44016. if thebits = 0 then
  44017. pTDefRegMap(@Self)^.clr := $00004000
  44018. else
  44019. pTDefRegMap(@Self)^.&set := $00004000;
  44020. end;
  44021. function TUART5_U5STA.getUTXISEL0 : TBits_1; inline;
  44022. begin
  44023. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  44024. end;
  44025. procedure TUART5_U5STA.setUTXISEL1; inline;
  44026. begin
  44027. pTDefRegMap(@Self)^.&set := $00008000;
  44028. end;
  44029. procedure TUART5_U5STA.clearUTXISEL1; inline;
  44030. begin
  44031. pTDefRegMap(@Self)^.clr := $00008000;
  44032. end;
  44033. procedure TUART5_U5STA.setUTXISEL1(thebits : TBits_1); inline;
  44034. begin
  44035. if thebits = 0 then
  44036. pTDefRegMap(@Self)^.clr := $00008000
  44037. else
  44038. pTDefRegMap(@Self)^.&set := $00008000;
  44039. end;
  44040. function TUART5_U5STA.getUTXISEL1 : TBits_1; inline;
  44041. begin
  44042. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  44043. end;
  44044. procedure TUART5_U5STA.setUTXSEL(thebits : TBits_2); inline;
  44045. begin
  44046. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  44047. end;
  44048. function TUART5_U5STA.getUTXSEL : TBits_2; inline;
  44049. begin
  44050. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  44051. end;
  44052. procedure TUART5_U5STA.setw(thebits : TBits_32); inline;
  44053. begin
  44054. pTDefRegMap(@Self)^.val := thebits;
  44055. end;
  44056. function TUART5_U5STA.getw : TBits_32; inline;
  44057. begin
  44058. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44059. end;
  44060. procedure TPMP_PMCON.setRDSP; inline;
  44061. begin
  44062. pTDefRegMap(@Self)^.&set := $00000001;
  44063. end;
  44064. procedure TPMP_PMCON.clearRDSP; inline;
  44065. begin
  44066. pTDefRegMap(@Self)^.clr := $00000001;
  44067. end;
  44068. procedure TPMP_PMCON.setRDSP(thebits : TBits_1); inline;
  44069. begin
  44070. if thebits = 0 then
  44071. pTDefRegMap(@Self)^.clr := $00000001
  44072. else
  44073. pTDefRegMap(@Self)^.&set := $00000001;
  44074. end;
  44075. function TPMP_PMCON.getRDSP : TBits_1; inline;
  44076. begin
  44077. getRDSP := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  44078. end;
  44079. procedure TPMP_PMCON.setWRSP; inline;
  44080. begin
  44081. pTDefRegMap(@Self)^.&set := $00000002;
  44082. end;
  44083. procedure TPMP_PMCON.clearWRSP; inline;
  44084. begin
  44085. pTDefRegMap(@Self)^.clr := $00000002;
  44086. end;
  44087. procedure TPMP_PMCON.setWRSP(thebits : TBits_1); inline;
  44088. begin
  44089. if thebits = 0 then
  44090. pTDefRegMap(@Self)^.clr := $00000002
  44091. else
  44092. pTDefRegMap(@Self)^.&set := $00000002;
  44093. end;
  44094. function TPMP_PMCON.getWRSP : TBits_1; inline;
  44095. begin
  44096. getWRSP := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  44097. end;
  44098. procedure TPMP_PMCON.setCS1P; inline;
  44099. begin
  44100. pTDefRegMap(@Self)^.&set := $00000008;
  44101. end;
  44102. procedure TPMP_PMCON.clearCS1P; inline;
  44103. begin
  44104. pTDefRegMap(@Self)^.clr := $00000008;
  44105. end;
  44106. procedure TPMP_PMCON.setCS1P(thebits : TBits_1); inline;
  44107. begin
  44108. if thebits = 0 then
  44109. pTDefRegMap(@Self)^.clr := $00000008
  44110. else
  44111. pTDefRegMap(@Self)^.&set := $00000008;
  44112. end;
  44113. function TPMP_PMCON.getCS1P : TBits_1; inline;
  44114. begin
  44115. getCS1P := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  44116. end;
  44117. procedure TPMP_PMCON.setCS2P; inline;
  44118. begin
  44119. pTDefRegMap(@Self)^.&set := $00000010;
  44120. end;
  44121. procedure TPMP_PMCON.clearCS2P; inline;
  44122. begin
  44123. pTDefRegMap(@Self)^.clr := $00000010;
  44124. end;
  44125. procedure TPMP_PMCON.setCS2P(thebits : TBits_1); inline;
  44126. begin
  44127. if thebits = 0 then
  44128. pTDefRegMap(@Self)^.clr := $00000010
  44129. else
  44130. pTDefRegMap(@Self)^.&set := $00000010;
  44131. end;
  44132. function TPMP_PMCON.getCS2P : TBits_1; inline;
  44133. begin
  44134. getCS2P := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  44135. end;
  44136. procedure TPMP_PMCON.setALP; inline;
  44137. begin
  44138. pTDefRegMap(@Self)^.&set := $00000020;
  44139. end;
  44140. procedure TPMP_PMCON.clearALP; inline;
  44141. begin
  44142. pTDefRegMap(@Self)^.clr := $00000020;
  44143. end;
  44144. procedure TPMP_PMCON.setALP(thebits : TBits_1); inline;
  44145. begin
  44146. if thebits = 0 then
  44147. pTDefRegMap(@Self)^.clr := $00000020
  44148. else
  44149. pTDefRegMap(@Self)^.&set := $00000020;
  44150. end;
  44151. function TPMP_PMCON.getALP : TBits_1; inline;
  44152. begin
  44153. getALP := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  44154. end;
  44155. procedure TPMP_PMCON.setCSF(thebits : TBits_2); inline;
  44156. begin
  44157. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  44158. end;
  44159. function TPMP_PMCON.getCSF : TBits_2; inline;
  44160. begin
  44161. getCSF := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  44162. end;
  44163. procedure TPMP_PMCON.setPTRDEN; inline;
  44164. begin
  44165. pTDefRegMap(@Self)^.&set := $00000100;
  44166. end;
  44167. procedure TPMP_PMCON.clearPTRDEN; inline;
  44168. begin
  44169. pTDefRegMap(@Self)^.clr := $00000100;
  44170. end;
  44171. procedure TPMP_PMCON.setPTRDEN(thebits : TBits_1); inline;
  44172. begin
  44173. if thebits = 0 then
  44174. pTDefRegMap(@Self)^.clr := $00000100
  44175. else
  44176. pTDefRegMap(@Self)^.&set := $00000100;
  44177. end;
  44178. function TPMP_PMCON.getPTRDEN : TBits_1; inline;
  44179. begin
  44180. getPTRDEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  44181. end;
  44182. procedure TPMP_PMCON.setPTWREN; inline;
  44183. begin
  44184. pTDefRegMap(@Self)^.&set := $00000200;
  44185. end;
  44186. procedure TPMP_PMCON.clearPTWREN; inline;
  44187. begin
  44188. pTDefRegMap(@Self)^.clr := $00000200;
  44189. end;
  44190. procedure TPMP_PMCON.setPTWREN(thebits : TBits_1); inline;
  44191. begin
  44192. if thebits = 0 then
  44193. pTDefRegMap(@Self)^.clr := $00000200
  44194. else
  44195. pTDefRegMap(@Self)^.&set := $00000200;
  44196. end;
  44197. function TPMP_PMCON.getPTWREN : TBits_1; inline;
  44198. begin
  44199. getPTWREN := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  44200. end;
  44201. procedure TPMP_PMCON.setPMPTTL; inline;
  44202. begin
  44203. pTDefRegMap(@Self)^.&set := $00000400;
  44204. end;
  44205. procedure TPMP_PMCON.clearPMPTTL; inline;
  44206. begin
  44207. pTDefRegMap(@Self)^.clr := $00000400;
  44208. end;
  44209. procedure TPMP_PMCON.setPMPTTL(thebits : TBits_1); inline;
  44210. begin
  44211. if thebits = 0 then
  44212. pTDefRegMap(@Self)^.clr := $00000400
  44213. else
  44214. pTDefRegMap(@Self)^.&set := $00000400;
  44215. end;
  44216. function TPMP_PMCON.getPMPTTL : TBits_1; inline;
  44217. begin
  44218. getPMPTTL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  44219. end;
  44220. procedure TPMP_PMCON.setADRMUX(thebits : TBits_2); inline;
  44221. begin
  44222. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE7FF or ( thebits shl 11 );
  44223. end;
  44224. function TPMP_PMCON.getADRMUX : TBits_2; inline;
  44225. begin
  44226. getADRMUX := (pTDefRegMap(@Self)^.val and $00001800) shr 11;
  44227. end;
  44228. procedure TPMP_PMCON.setSIDL; inline;
  44229. begin
  44230. pTDefRegMap(@Self)^.&set := $00002000;
  44231. end;
  44232. procedure TPMP_PMCON.clearSIDL; inline;
  44233. begin
  44234. pTDefRegMap(@Self)^.clr := $00002000;
  44235. end;
  44236. procedure TPMP_PMCON.setSIDL(thebits : TBits_1); inline;
  44237. begin
  44238. if thebits = 0 then
  44239. pTDefRegMap(@Self)^.clr := $00002000
  44240. else
  44241. pTDefRegMap(@Self)^.&set := $00002000;
  44242. end;
  44243. function TPMP_PMCON.getSIDL : TBits_1; inline;
  44244. begin
  44245. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  44246. end;
  44247. procedure TPMP_PMCON.setON; inline;
  44248. begin
  44249. pTDefRegMap(@Self)^.&set := $00008000;
  44250. end;
  44251. procedure TPMP_PMCON.clearON; inline;
  44252. begin
  44253. pTDefRegMap(@Self)^.clr := $00008000;
  44254. end;
  44255. procedure TPMP_PMCON.setON(thebits : TBits_1); inline;
  44256. begin
  44257. if thebits = 0 then
  44258. pTDefRegMap(@Self)^.clr := $00008000
  44259. else
  44260. pTDefRegMap(@Self)^.&set := $00008000;
  44261. end;
  44262. function TPMP_PMCON.getON : TBits_1; inline;
  44263. begin
  44264. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  44265. end;
  44266. procedure TPMP_PMCON.setCSF0; inline;
  44267. begin
  44268. pTDefRegMap(@Self)^.&set := $00000040;
  44269. end;
  44270. procedure TPMP_PMCON.clearCSF0; inline;
  44271. begin
  44272. pTDefRegMap(@Self)^.clr := $00000040;
  44273. end;
  44274. procedure TPMP_PMCON.setCSF0(thebits : TBits_1); inline;
  44275. begin
  44276. if thebits = 0 then
  44277. pTDefRegMap(@Self)^.clr := $00000040
  44278. else
  44279. pTDefRegMap(@Self)^.&set := $00000040;
  44280. end;
  44281. function TPMP_PMCON.getCSF0 : TBits_1; inline;
  44282. begin
  44283. getCSF0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  44284. end;
  44285. procedure TPMP_PMCON.setCSF1; inline;
  44286. begin
  44287. pTDefRegMap(@Self)^.&set := $00000080;
  44288. end;
  44289. procedure TPMP_PMCON.clearCSF1; inline;
  44290. begin
  44291. pTDefRegMap(@Self)^.clr := $00000080;
  44292. end;
  44293. procedure TPMP_PMCON.setCSF1(thebits : TBits_1); inline;
  44294. begin
  44295. if thebits = 0 then
  44296. pTDefRegMap(@Self)^.clr := $00000080
  44297. else
  44298. pTDefRegMap(@Self)^.&set := $00000080;
  44299. end;
  44300. function TPMP_PMCON.getCSF1 : TBits_1; inline;
  44301. begin
  44302. getCSF1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  44303. end;
  44304. procedure TPMP_PMCON.setADRMUX0; inline;
  44305. begin
  44306. pTDefRegMap(@Self)^.&set := $00000800;
  44307. end;
  44308. procedure TPMP_PMCON.clearADRMUX0; inline;
  44309. begin
  44310. pTDefRegMap(@Self)^.clr := $00000800;
  44311. end;
  44312. procedure TPMP_PMCON.setADRMUX0(thebits : TBits_1); inline;
  44313. begin
  44314. if thebits = 0 then
  44315. pTDefRegMap(@Self)^.clr := $00000800
  44316. else
  44317. pTDefRegMap(@Self)^.&set := $00000800;
  44318. end;
  44319. function TPMP_PMCON.getADRMUX0 : TBits_1; inline;
  44320. begin
  44321. getADRMUX0 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  44322. end;
  44323. procedure TPMP_PMCON.setADRMUX1; inline;
  44324. begin
  44325. pTDefRegMap(@Self)^.&set := $00001000;
  44326. end;
  44327. procedure TPMP_PMCON.clearADRMUX1; inline;
  44328. begin
  44329. pTDefRegMap(@Self)^.clr := $00001000;
  44330. end;
  44331. procedure TPMP_PMCON.setADRMUX1(thebits : TBits_1); inline;
  44332. begin
  44333. if thebits = 0 then
  44334. pTDefRegMap(@Self)^.clr := $00001000
  44335. else
  44336. pTDefRegMap(@Self)^.&set := $00001000;
  44337. end;
  44338. function TPMP_PMCON.getADRMUX1 : TBits_1; inline;
  44339. begin
  44340. getADRMUX1 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  44341. end;
  44342. procedure TPMP_PMCON.setPSIDL; inline;
  44343. begin
  44344. pTDefRegMap(@Self)^.&set := $00002000;
  44345. end;
  44346. procedure TPMP_PMCON.clearPSIDL; inline;
  44347. begin
  44348. pTDefRegMap(@Self)^.clr := $00002000;
  44349. end;
  44350. procedure TPMP_PMCON.setPSIDL(thebits : TBits_1); inline;
  44351. begin
  44352. if thebits = 0 then
  44353. pTDefRegMap(@Self)^.clr := $00002000
  44354. else
  44355. pTDefRegMap(@Self)^.&set := $00002000;
  44356. end;
  44357. function TPMP_PMCON.getPSIDL : TBits_1; inline;
  44358. begin
  44359. getPSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  44360. end;
  44361. procedure TPMP_PMCON.setPMPEN; inline;
  44362. begin
  44363. pTDefRegMap(@Self)^.&set := $00008000;
  44364. end;
  44365. procedure TPMP_PMCON.clearPMPEN; inline;
  44366. begin
  44367. pTDefRegMap(@Self)^.clr := $00008000;
  44368. end;
  44369. procedure TPMP_PMCON.setPMPEN(thebits : TBits_1); inline;
  44370. begin
  44371. if thebits = 0 then
  44372. pTDefRegMap(@Self)^.clr := $00008000
  44373. else
  44374. pTDefRegMap(@Self)^.&set := $00008000;
  44375. end;
  44376. function TPMP_PMCON.getPMPEN : TBits_1; inline;
  44377. begin
  44378. getPMPEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  44379. end;
  44380. procedure TPMP_PMCON.setw(thebits : TBits_32); inline;
  44381. begin
  44382. pTDefRegMap(@Self)^.val := thebits;
  44383. end;
  44384. function TPMP_PMCON.getw : TBits_32; inline;
  44385. begin
  44386. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44387. end;
  44388. procedure TPMP_PMMODE.setWAITE(thebits : TBits_2); inline;
  44389. begin
  44390. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  44391. end;
  44392. function TPMP_PMMODE.getWAITE : TBits_2; inline;
  44393. begin
  44394. getWAITE := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  44395. end;
  44396. procedure TPMP_PMMODE.setWAITM(thebits : TBits_4); inline;
  44397. begin
  44398. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC3 or ( thebits shl 2 );
  44399. end;
  44400. function TPMP_PMMODE.getWAITM : TBits_4; inline;
  44401. begin
  44402. getWAITM := (pTDefRegMap(@Self)^.val and $0000003C) shr 2;
  44403. end;
  44404. procedure TPMP_PMMODE.setWAITB(thebits : TBits_2); inline;
  44405. begin
  44406. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  44407. end;
  44408. function TPMP_PMMODE.getWAITB : TBits_2; inline;
  44409. begin
  44410. getWAITB := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  44411. end;
  44412. procedure TPMP_PMMODE.setMODE(thebits : TBits_2); inline;
  44413. begin
  44414. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  44415. end;
  44416. function TPMP_PMMODE.getMODE : TBits_2; inline;
  44417. begin
  44418. getMODE := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  44419. end;
  44420. procedure TPMP_PMMODE.setMODE16; inline;
  44421. begin
  44422. pTDefRegMap(@Self)^.&set := $00000400;
  44423. end;
  44424. procedure TPMP_PMMODE.clearMODE16; inline;
  44425. begin
  44426. pTDefRegMap(@Self)^.clr := $00000400;
  44427. end;
  44428. procedure TPMP_PMMODE.setMODE16(thebits : TBits_1); inline;
  44429. begin
  44430. if thebits = 0 then
  44431. pTDefRegMap(@Self)^.clr := $00000400
  44432. else
  44433. pTDefRegMap(@Self)^.&set := $00000400;
  44434. end;
  44435. function TPMP_PMMODE.getMODE16 : TBits_1; inline;
  44436. begin
  44437. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  44438. end;
  44439. procedure TPMP_PMMODE.setINCM(thebits : TBits_2); inline;
  44440. begin
  44441. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE7FF or ( thebits shl 11 );
  44442. end;
  44443. function TPMP_PMMODE.getINCM : TBits_2; inline;
  44444. begin
  44445. getINCM := (pTDefRegMap(@Self)^.val and $00001800) shr 11;
  44446. end;
  44447. procedure TPMP_PMMODE.setIRQM(thebits : TBits_2); inline;
  44448. begin
  44449. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  44450. end;
  44451. function TPMP_PMMODE.getIRQM : TBits_2; inline;
  44452. begin
  44453. getIRQM := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  44454. end;
  44455. procedure TPMP_PMMODE.setBUSY; inline;
  44456. begin
  44457. pTDefRegMap(@Self)^.&set := $00008000;
  44458. end;
  44459. procedure TPMP_PMMODE.clearBUSY; inline;
  44460. begin
  44461. pTDefRegMap(@Self)^.clr := $00008000;
  44462. end;
  44463. procedure TPMP_PMMODE.setBUSY(thebits : TBits_1); inline;
  44464. begin
  44465. if thebits = 0 then
  44466. pTDefRegMap(@Self)^.clr := $00008000
  44467. else
  44468. pTDefRegMap(@Self)^.&set := $00008000;
  44469. end;
  44470. function TPMP_PMMODE.getBUSY : TBits_1; inline;
  44471. begin
  44472. getBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  44473. end;
  44474. procedure TPMP_PMMODE.setWAITE0; inline;
  44475. begin
  44476. pTDefRegMap(@Self)^.&set := $00000001;
  44477. end;
  44478. procedure TPMP_PMMODE.clearWAITE0; inline;
  44479. begin
  44480. pTDefRegMap(@Self)^.clr := $00000001;
  44481. end;
  44482. procedure TPMP_PMMODE.setWAITE0(thebits : TBits_1); inline;
  44483. begin
  44484. if thebits = 0 then
  44485. pTDefRegMap(@Self)^.clr := $00000001
  44486. else
  44487. pTDefRegMap(@Self)^.&set := $00000001;
  44488. end;
  44489. function TPMP_PMMODE.getWAITE0 : TBits_1; inline;
  44490. begin
  44491. getWAITE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  44492. end;
  44493. procedure TPMP_PMMODE.setWAITE1; inline;
  44494. begin
  44495. pTDefRegMap(@Self)^.&set := $00000002;
  44496. end;
  44497. procedure TPMP_PMMODE.clearWAITE1; inline;
  44498. begin
  44499. pTDefRegMap(@Self)^.clr := $00000002;
  44500. end;
  44501. procedure TPMP_PMMODE.setWAITE1(thebits : TBits_1); inline;
  44502. begin
  44503. if thebits = 0 then
  44504. pTDefRegMap(@Self)^.clr := $00000002
  44505. else
  44506. pTDefRegMap(@Self)^.&set := $00000002;
  44507. end;
  44508. function TPMP_PMMODE.getWAITE1 : TBits_1; inline;
  44509. begin
  44510. getWAITE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  44511. end;
  44512. procedure TPMP_PMMODE.setWAITM0; inline;
  44513. begin
  44514. pTDefRegMap(@Self)^.&set := $00000004;
  44515. end;
  44516. procedure TPMP_PMMODE.clearWAITM0; inline;
  44517. begin
  44518. pTDefRegMap(@Self)^.clr := $00000004;
  44519. end;
  44520. procedure TPMP_PMMODE.setWAITM0(thebits : TBits_1); inline;
  44521. begin
  44522. if thebits = 0 then
  44523. pTDefRegMap(@Self)^.clr := $00000004
  44524. else
  44525. pTDefRegMap(@Self)^.&set := $00000004;
  44526. end;
  44527. function TPMP_PMMODE.getWAITM0 : TBits_1; inline;
  44528. begin
  44529. getWAITM0 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  44530. end;
  44531. procedure TPMP_PMMODE.setWAITM1; inline;
  44532. begin
  44533. pTDefRegMap(@Self)^.&set := $00000008;
  44534. end;
  44535. procedure TPMP_PMMODE.clearWAITM1; inline;
  44536. begin
  44537. pTDefRegMap(@Self)^.clr := $00000008;
  44538. end;
  44539. procedure TPMP_PMMODE.setWAITM1(thebits : TBits_1); inline;
  44540. begin
  44541. if thebits = 0 then
  44542. pTDefRegMap(@Self)^.clr := $00000008
  44543. else
  44544. pTDefRegMap(@Self)^.&set := $00000008;
  44545. end;
  44546. function TPMP_PMMODE.getWAITM1 : TBits_1; inline;
  44547. begin
  44548. getWAITM1 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  44549. end;
  44550. procedure TPMP_PMMODE.setWAITM2; inline;
  44551. begin
  44552. pTDefRegMap(@Self)^.&set := $00000010;
  44553. end;
  44554. procedure TPMP_PMMODE.clearWAITM2; inline;
  44555. begin
  44556. pTDefRegMap(@Self)^.clr := $00000010;
  44557. end;
  44558. procedure TPMP_PMMODE.setWAITM2(thebits : TBits_1); inline;
  44559. begin
  44560. if thebits = 0 then
  44561. pTDefRegMap(@Self)^.clr := $00000010
  44562. else
  44563. pTDefRegMap(@Self)^.&set := $00000010;
  44564. end;
  44565. function TPMP_PMMODE.getWAITM2 : TBits_1; inline;
  44566. begin
  44567. getWAITM2 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  44568. end;
  44569. procedure TPMP_PMMODE.setWAITM3; inline;
  44570. begin
  44571. pTDefRegMap(@Self)^.&set := $00000020;
  44572. end;
  44573. procedure TPMP_PMMODE.clearWAITM3; inline;
  44574. begin
  44575. pTDefRegMap(@Self)^.clr := $00000020;
  44576. end;
  44577. procedure TPMP_PMMODE.setWAITM3(thebits : TBits_1); inline;
  44578. begin
  44579. if thebits = 0 then
  44580. pTDefRegMap(@Self)^.clr := $00000020
  44581. else
  44582. pTDefRegMap(@Self)^.&set := $00000020;
  44583. end;
  44584. function TPMP_PMMODE.getWAITM3 : TBits_1; inline;
  44585. begin
  44586. getWAITM3 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  44587. end;
  44588. procedure TPMP_PMMODE.setWAITB0; inline;
  44589. begin
  44590. pTDefRegMap(@Self)^.&set := $00000040;
  44591. end;
  44592. procedure TPMP_PMMODE.clearWAITB0; inline;
  44593. begin
  44594. pTDefRegMap(@Self)^.clr := $00000040;
  44595. end;
  44596. procedure TPMP_PMMODE.setWAITB0(thebits : TBits_1); inline;
  44597. begin
  44598. if thebits = 0 then
  44599. pTDefRegMap(@Self)^.clr := $00000040
  44600. else
  44601. pTDefRegMap(@Self)^.&set := $00000040;
  44602. end;
  44603. function TPMP_PMMODE.getWAITB0 : TBits_1; inline;
  44604. begin
  44605. getWAITB0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  44606. end;
  44607. procedure TPMP_PMMODE.setWAITB1; inline;
  44608. begin
  44609. pTDefRegMap(@Self)^.&set := $00000080;
  44610. end;
  44611. procedure TPMP_PMMODE.clearWAITB1; inline;
  44612. begin
  44613. pTDefRegMap(@Self)^.clr := $00000080;
  44614. end;
  44615. procedure TPMP_PMMODE.setWAITB1(thebits : TBits_1); inline;
  44616. begin
  44617. if thebits = 0 then
  44618. pTDefRegMap(@Self)^.clr := $00000080
  44619. else
  44620. pTDefRegMap(@Self)^.&set := $00000080;
  44621. end;
  44622. function TPMP_PMMODE.getWAITB1 : TBits_1; inline;
  44623. begin
  44624. getWAITB1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  44625. end;
  44626. procedure TPMP_PMMODE.setMODE0; inline;
  44627. begin
  44628. pTDefRegMap(@Self)^.&set := $00000100;
  44629. end;
  44630. procedure TPMP_PMMODE.clearMODE0; inline;
  44631. begin
  44632. pTDefRegMap(@Self)^.clr := $00000100;
  44633. end;
  44634. procedure TPMP_PMMODE.setMODE0(thebits : TBits_1); inline;
  44635. begin
  44636. if thebits = 0 then
  44637. pTDefRegMap(@Self)^.clr := $00000100
  44638. else
  44639. pTDefRegMap(@Self)^.&set := $00000100;
  44640. end;
  44641. function TPMP_PMMODE.getMODE0 : TBits_1; inline;
  44642. begin
  44643. getMODE0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  44644. end;
  44645. procedure TPMP_PMMODE.setMODE1; inline;
  44646. begin
  44647. pTDefRegMap(@Self)^.&set := $00000200;
  44648. end;
  44649. procedure TPMP_PMMODE.clearMODE1; inline;
  44650. begin
  44651. pTDefRegMap(@Self)^.clr := $00000200;
  44652. end;
  44653. procedure TPMP_PMMODE.setMODE1(thebits : TBits_1); inline;
  44654. begin
  44655. if thebits = 0 then
  44656. pTDefRegMap(@Self)^.clr := $00000200
  44657. else
  44658. pTDefRegMap(@Self)^.&set := $00000200;
  44659. end;
  44660. function TPMP_PMMODE.getMODE1 : TBits_1; inline;
  44661. begin
  44662. getMODE1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  44663. end;
  44664. procedure TPMP_PMMODE.setINCM0; inline;
  44665. begin
  44666. pTDefRegMap(@Self)^.&set := $00000800;
  44667. end;
  44668. procedure TPMP_PMMODE.clearINCM0; inline;
  44669. begin
  44670. pTDefRegMap(@Self)^.clr := $00000800;
  44671. end;
  44672. procedure TPMP_PMMODE.setINCM0(thebits : TBits_1); inline;
  44673. begin
  44674. if thebits = 0 then
  44675. pTDefRegMap(@Self)^.clr := $00000800
  44676. else
  44677. pTDefRegMap(@Self)^.&set := $00000800;
  44678. end;
  44679. function TPMP_PMMODE.getINCM0 : TBits_1; inline;
  44680. begin
  44681. getINCM0 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  44682. end;
  44683. procedure TPMP_PMMODE.setINCM1; inline;
  44684. begin
  44685. pTDefRegMap(@Self)^.&set := $00001000;
  44686. end;
  44687. procedure TPMP_PMMODE.clearINCM1; inline;
  44688. begin
  44689. pTDefRegMap(@Self)^.clr := $00001000;
  44690. end;
  44691. procedure TPMP_PMMODE.setINCM1(thebits : TBits_1); inline;
  44692. begin
  44693. if thebits = 0 then
  44694. pTDefRegMap(@Self)^.clr := $00001000
  44695. else
  44696. pTDefRegMap(@Self)^.&set := $00001000;
  44697. end;
  44698. function TPMP_PMMODE.getINCM1 : TBits_1; inline;
  44699. begin
  44700. getINCM1 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  44701. end;
  44702. procedure TPMP_PMMODE.setIRQM0; inline;
  44703. begin
  44704. pTDefRegMap(@Self)^.&set := $00002000;
  44705. end;
  44706. procedure TPMP_PMMODE.clearIRQM0; inline;
  44707. begin
  44708. pTDefRegMap(@Self)^.clr := $00002000;
  44709. end;
  44710. procedure TPMP_PMMODE.setIRQM0(thebits : TBits_1); inline;
  44711. begin
  44712. if thebits = 0 then
  44713. pTDefRegMap(@Self)^.clr := $00002000
  44714. else
  44715. pTDefRegMap(@Self)^.&set := $00002000;
  44716. end;
  44717. function TPMP_PMMODE.getIRQM0 : TBits_1; inline;
  44718. begin
  44719. getIRQM0 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  44720. end;
  44721. procedure TPMP_PMMODE.setIRQM1; inline;
  44722. begin
  44723. pTDefRegMap(@Self)^.&set := $00004000;
  44724. end;
  44725. procedure TPMP_PMMODE.clearIRQM1; inline;
  44726. begin
  44727. pTDefRegMap(@Self)^.clr := $00004000;
  44728. end;
  44729. procedure TPMP_PMMODE.setIRQM1(thebits : TBits_1); inline;
  44730. begin
  44731. if thebits = 0 then
  44732. pTDefRegMap(@Self)^.clr := $00004000
  44733. else
  44734. pTDefRegMap(@Self)^.&set := $00004000;
  44735. end;
  44736. function TPMP_PMMODE.getIRQM1 : TBits_1; inline;
  44737. begin
  44738. getIRQM1 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  44739. end;
  44740. procedure TPMP_PMMODE.setw(thebits : TBits_32); inline;
  44741. begin
  44742. pTDefRegMap(@Self)^.val := thebits;
  44743. end;
  44744. function TPMP_PMMODE.getw : TBits_32; inline;
  44745. begin
  44746. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44747. end;
  44748. procedure TPMP_PMADDR.setADDR(thebits : TBits_14); inline;
  44749. begin
  44750. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFC000 or ( thebits shl 0 );
  44751. end;
  44752. function TPMP_PMADDR.getADDR : TBits_14; inline;
  44753. begin
  44754. getADDR := (pTDefRegMap(@Self)^.val and $00003FFF) shr 0;
  44755. end;
  44756. procedure TPMP_PMADDR.setCS(thebits : TBits_2); inline;
  44757. begin
  44758. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  44759. end;
  44760. function TPMP_PMADDR.getCS : TBits_2; inline;
  44761. begin
  44762. getCS := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  44763. end;
  44764. procedure TPMP_PMADDR.setPADDR(thebits : TBits_14); inline;
  44765. begin
  44766. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFC000 or ( thebits shl 0 );
  44767. end;
  44768. function TPMP_PMADDR.getPADDR : TBits_14; inline;
  44769. begin
  44770. getPADDR := (pTDefRegMap(@Self)^.val and $00003FFF) shr 0;
  44771. end;
  44772. procedure TPMP_PMADDR.setCS1; inline;
  44773. begin
  44774. pTDefRegMap(@Self)^.&set := $00004000;
  44775. end;
  44776. procedure TPMP_PMADDR.clearCS1; inline;
  44777. begin
  44778. pTDefRegMap(@Self)^.clr := $00004000;
  44779. end;
  44780. procedure TPMP_PMADDR.setCS1(thebits : TBits_1); inline;
  44781. begin
  44782. if thebits = 0 then
  44783. pTDefRegMap(@Self)^.clr := $00004000
  44784. else
  44785. pTDefRegMap(@Self)^.&set := $00004000;
  44786. end;
  44787. function TPMP_PMADDR.getCS1 : TBits_1; inline;
  44788. begin
  44789. getCS1 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  44790. end;
  44791. procedure TPMP_PMADDR.setCS2; inline;
  44792. begin
  44793. pTDefRegMap(@Self)^.&set := $00008000;
  44794. end;
  44795. procedure TPMP_PMADDR.clearCS2; inline;
  44796. begin
  44797. pTDefRegMap(@Self)^.clr := $00008000;
  44798. end;
  44799. procedure TPMP_PMADDR.setCS2(thebits : TBits_1); inline;
  44800. begin
  44801. if thebits = 0 then
  44802. pTDefRegMap(@Self)^.clr := $00008000
  44803. else
  44804. pTDefRegMap(@Self)^.&set := $00008000;
  44805. end;
  44806. function TPMP_PMADDR.getCS2 : TBits_1; inline;
  44807. begin
  44808. getCS2 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  44809. end;
  44810. procedure TPMP_PMADDR.setw(thebits : TBits_32); inline;
  44811. begin
  44812. pTDefRegMap(@Self)^.val := thebits;
  44813. end;
  44814. function TPMP_PMADDR.getw : TBits_32; inline;
  44815. begin
  44816. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44817. end;
  44818. procedure TPMP_PMDOUT.setDATAOUT(thebits : TBits_32); inline;
  44819. begin
  44820. pTDefRegMap(@Self)^.val := thebits;
  44821. end;
  44822. function TPMP_PMDOUT.getDATAOUT : TBits_32; inline;
  44823. begin
  44824. getDATAOUT := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44825. end;
  44826. procedure TPMP_PMDOUT.setw(thebits : TBits_32); inline;
  44827. begin
  44828. pTDefRegMap(@Self)^.val := thebits;
  44829. end;
  44830. function TPMP_PMDOUT.getw : TBits_32; inline;
  44831. begin
  44832. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44833. end;
  44834. procedure TPMP_PMDIN.setDATAIN(thebits : TBits_32); inline;
  44835. begin
  44836. pTDefRegMap(@Self)^.val := thebits;
  44837. end;
  44838. function TPMP_PMDIN.getDATAIN : TBits_32; inline;
  44839. begin
  44840. getDATAIN := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44841. end;
  44842. procedure TPMP_PMDIN.setw(thebits : TBits_32); inline;
  44843. begin
  44844. pTDefRegMap(@Self)^.val := thebits;
  44845. end;
  44846. function TPMP_PMDIN.getw : TBits_32; inline;
  44847. begin
  44848. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44849. end;
  44850. procedure TPMP_PMAEN.setPTEN(thebits : TBits_16); inline;
  44851. begin
  44852. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  44853. end;
  44854. function TPMP_PMAEN.getPTEN : TBits_16; inline;
  44855. begin
  44856. getPTEN := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  44857. end;
  44858. procedure TPMP_PMAEN.setPTEN0; inline;
  44859. begin
  44860. pTDefRegMap(@Self)^.&set := $00000001;
  44861. end;
  44862. procedure TPMP_PMAEN.clearPTEN0; inline;
  44863. begin
  44864. pTDefRegMap(@Self)^.clr := $00000001;
  44865. end;
  44866. procedure TPMP_PMAEN.setPTEN0(thebits : TBits_1); inline;
  44867. begin
  44868. if thebits = 0 then
  44869. pTDefRegMap(@Self)^.clr := $00000001
  44870. else
  44871. pTDefRegMap(@Self)^.&set := $00000001;
  44872. end;
  44873. function TPMP_PMAEN.getPTEN0 : TBits_1; inline;
  44874. begin
  44875. getPTEN0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  44876. end;
  44877. procedure TPMP_PMAEN.setPTEN1; inline;
  44878. begin
  44879. pTDefRegMap(@Self)^.&set := $00000002;
  44880. end;
  44881. procedure TPMP_PMAEN.clearPTEN1; inline;
  44882. begin
  44883. pTDefRegMap(@Self)^.clr := $00000002;
  44884. end;
  44885. procedure TPMP_PMAEN.setPTEN1(thebits : TBits_1); inline;
  44886. begin
  44887. if thebits = 0 then
  44888. pTDefRegMap(@Self)^.clr := $00000002
  44889. else
  44890. pTDefRegMap(@Self)^.&set := $00000002;
  44891. end;
  44892. function TPMP_PMAEN.getPTEN1 : TBits_1; inline;
  44893. begin
  44894. getPTEN1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  44895. end;
  44896. procedure TPMP_PMAEN.setPTEN2; inline;
  44897. begin
  44898. pTDefRegMap(@Self)^.&set := $00000004;
  44899. end;
  44900. procedure TPMP_PMAEN.clearPTEN2; inline;
  44901. begin
  44902. pTDefRegMap(@Self)^.clr := $00000004;
  44903. end;
  44904. procedure TPMP_PMAEN.setPTEN2(thebits : TBits_1); inline;
  44905. begin
  44906. if thebits = 0 then
  44907. pTDefRegMap(@Self)^.clr := $00000004
  44908. else
  44909. pTDefRegMap(@Self)^.&set := $00000004;
  44910. end;
  44911. function TPMP_PMAEN.getPTEN2 : TBits_1; inline;
  44912. begin
  44913. getPTEN2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  44914. end;
  44915. procedure TPMP_PMAEN.setPTEN3; inline;
  44916. begin
  44917. pTDefRegMap(@Self)^.&set := $00000008;
  44918. end;
  44919. procedure TPMP_PMAEN.clearPTEN3; inline;
  44920. begin
  44921. pTDefRegMap(@Self)^.clr := $00000008;
  44922. end;
  44923. procedure TPMP_PMAEN.setPTEN3(thebits : TBits_1); inline;
  44924. begin
  44925. if thebits = 0 then
  44926. pTDefRegMap(@Self)^.clr := $00000008
  44927. else
  44928. pTDefRegMap(@Self)^.&set := $00000008;
  44929. end;
  44930. function TPMP_PMAEN.getPTEN3 : TBits_1; inline;
  44931. begin
  44932. getPTEN3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  44933. end;
  44934. procedure TPMP_PMAEN.setPTEN4; inline;
  44935. begin
  44936. pTDefRegMap(@Self)^.&set := $00000010;
  44937. end;
  44938. procedure TPMP_PMAEN.clearPTEN4; inline;
  44939. begin
  44940. pTDefRegMap(@Self)^.clr := $00000010;
  44941. end;
  44942. procedure TPMP_PMAEN.setPTEN4(thebits : TBits_1); inline;
  44943. begin
  44944. if thebits = 0 then
  44945. pTDefRegMap(@Self)^.clr := $00000010
  44946. else
  44947. pTDefRegMap(@Self)^.&set := $00000010;
  44948. end;
  44949. function TPMP_PMAEN.getPTEN4 : TBits_1; inline;
  44950. begin
  44951. getPTEN4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  44952. end;
  44953. procedure TPMP_PMAEN.setPTEN5; inline;
  44954. begin
  44955. pTDefRegMap(@Self)^.&set := $00000020;
  44956. end;
  44957. procedure TPMP_PMAEN.clearPTEN5; inline;
  44958. begin
  44959. pTDefRegMap(@Self)^.clr := $00000020;
  44960. end;
  44961. procedure TPMP_PMAEN.setPTEN5(thebits : TBits_1); inline;
  44962. begin
  44963. if thebits = 0 then
  44964. pTDefRegMap(@Self)^.clr := $00000020
  44965. else
  44966. pTDefRegMap(@Self)^.&set := $00000020;
  44967. end;
  44968. function TPMP_PMAEN.getPTEN5 : TBits_1; inline;
  44969. begin
  44970. getPTEN5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  44971. end;
  44972. procedure TPMP_PMAEN.setPTEN6; inline;
  44973. begin
  44974. pTDefRegMap(@Self)^.&set := $00000040;
  44975. end;
  44976. procedure TPMP_PMAEN.clearPTEN6; inline;
  44977. begin
  44978. pTDefRegMap(@Self)^.clr := $00000040;
  44979. end;
  44980. procedure TPMP_PMAEN.setPTEN6(thebits : TBits_1); inline;
  44981. begin
  44982. if thebits = 0 then
  44983. pTDefRegMap(@Self)^.clr := $00000040
  44984. else
  44985. pTDefRegMap(@Self)^.&set := $00000040;
  44986. end;
  44987. function TPMP_PMAEN.getPTEN6 : TBits_1; inline;
  44988. begin
  44989. getPTEN6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  44990. end;
  44991. procedure TPMP_PMAEN.setPTEN7; inline;
  44992. begin
  44993. pTDefRegMap(@Self)^.&set := $00000080;
  44994. end;
  44995. procedure TPMP_PMAEN.clearPTEN7; inline;
  44996. begin
  44997. pTDefRegMap(@Self)^.clr := $00000080;
  44998. end;
  44999. procedure TPMP_PMAEN.setPTEN7(thebits : TBits_1); inline;
  45000. begin
  45001. if thebits = 0 then
  45002. pTDefRegMap(@Self)^.clr := $00000080
  45003. else
  45004. pTDefRegMap(@Self)^.&set := $00000080;
  45005. end;
  45006. function TPMP_PMAEN.getPTEN7 : TBits_1; inline;
  45007. begin
  45008. getPTEN7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  45009. end;
  45010. procedure TPMP_PMAEN.setPTEN8; inline;
  45011. begin
  45012. pTDefRegMap(@Self)^.&set := $00000100;
  45013. end;
  45014. procedure TPMP_PMAEN.clearPTEN8; inline;
  45015. begin
  45016. pTDefRegMap(@Self)^.clr := $00000100;
  45017. end;
  45018. procedure TPMP_PMAEN.setPTEN8(thebits : TBits_1); inline;
  45019. begin
  45020. if thebits = 0 then
  45021. pTDefRegMap(@Self)^.clr := $00000100
  45022. else
  45023. pTDefRegMap(@Self)^.&set := $00000100;
  45024. end;
  45025. function TPMP_PMAEN.getPTEN8 : TBits_1; inline;
  45026. begin
  45027. getPTEN8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  45028. end;
  45029. procedure TPMP_PMAEN.setPTEN9; inline;
  45030. begin
  45031. pTDefRegMap(@Self)^.&set := $00000200;
  45032. end;
  45033. procedure TPMP_PMAEN.clearPTEN9; inline;
  45034. begin
  45035. pTDefRegMap(@Self)^.clr := $00000200;
  45036. end;
  45037. procedure TPMP_PMAEN.setPTEN9(thebits : TBits_1); inline;
  45038. begin
  45039. if thebits = 0 then
  45040. pTDefRegMap(@Self)^.clr := $00000200
  45041. else
  45042. pTDefRegMap(@Self)^.&set := $00000200;
  45043. end;
  45044. function TPMP_PMAEN.getPTEN9 : TBits_1; inline;
  45045. begin
  45046. getPTEN9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  45047. end;
  45048. procedure TPMP_PMAEN.setPTEN10; inline;
  45049. begin
  45050. pTDefRegMap(@Self)^.&set := $00000400;
  45051. end;
  45052. procedure TPMP_PMAEN.clearPTEN10; inline;
  45053. begin
  45054. pTDefRegMap(@Self)^.clr := $00000400;
  45055. end;
  45056. procedure TPMP_PMAEN.setPTEN10(thebits : TBits_1); inline;
  45057. begin
  45058. if thebits = 0 then
  45059. pTDefRegMap(@Self)^.clr := $00000400
  45060. else
  45061. pTDefRegMap(@Self)^.&set := $00000400;
  45062. end;
  45063. function TPMP_PMAEN.getPTEN10 : TBits_1; inline;
  45064. begin
  45065. getPTEN10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  45066. end;
  45067. procedure TPMP_PMAEN.setPTEN11; inline;
  45068. begin
  45069. pTDefRegMap(@Self)^.&set := $00000800;
  45070. end;
  45071. procedure TPMP_PMAEN.clearPTEN11; inline;
  45072. begin
  45073. pTDefRegMap(@Self)^.clr := $00000800;
  45074. end;
  45075. procedure TPMP_PMAEN.setPTEN11(thebits : TBits_1); inline;
  45076. begin
  45077. if thebits = 0 then
  45078. pTDefRegMap(@Self)^.clr := $00000800
  45079. else
  45080. pTDefRegMap(@Self)^.&set := $00000800;
  45081. end;
  45082. function TPMP_PMAEN.getPTEN11 : TBits_1; inline;
  45083. begin
  45084. getPTEN11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  45085. end;
  45086. procedure TPMP_PMAEN.setPTEN12; inline;
  45087. begin
  45088. pTDefRegMap(@Self)^.&set := $00001000;
  45089. end;
  45090. procedure TPMP_PMAEN.clearPTEN12; inline;
  45091. begin
  45092. pTDefRegMap(@Self)^.clr := $00001000;
  45093. end;
  45094. procedure TPMP_PMAEN.setPTEN12(thebits : TBits_1); inline;
  45095. begin
  45096. if thebits = 0 then
  45097. pTDefRegMap(@Self)^.clr := $00001000
  45098. else
  45099. pTDefRegMap(@Self)^.&set := $00001000;
  45100. end;
  45101. function TPMP_PMAEN.getPTEN12 : TBits_1; inline;
  45102. begin
  45103. getPTEN12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  45104. end;
  45105. procedure TPMP_PMAEN.setPTEN13; inline;
  45106. begin
  45107. pTDefRegMap(@Self)^.&set := $00002000;
  45108. end;
  45109. procedure TPMP_PMAEN.clearPTEN13; inline;
  45110. begin
  45111. pTDefRegMap(@Self)^.clr := $00002000;
  45112. end;
  45113. procedure TPMP_PMAEN.setPTEN13(thebits : TBits_1); inline;
  45114. begin
  45115. if thebits = 0 then
  45116. pTDefRegMap(@Self)^.clr := $00002000
  45117. else
  45118. pTDefRegMap(@Self)^.&set := $00002000;
  45119. end;
  45120. function TPMP_PMAEN.getPTEN13 : TBits_1; inline;
  45121. begin
  45122. getPTEN13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  45123. end;
  45124. procedure TPMP_PMAEN.setPTEN14; inline;
  45125. begin
  45126. pTDefRegMap(@Self)^.&set := $00004000;
  45127. end;
  45128. procedure TPMP_PMAEN.clearPTEN14; inline;
  45129. begin
  45130. pTDefRegMap(@Self)^.clr := $00004000;
  45131. end;
  45132. procedure TPMP_PMAEN.setPTEN14(thebits : TBits_1); inline;
  45133. begin
  45134. if thebits = 0 then
  45135. pTDefRegMap(@Self)^.clr := $00004000
  45136. else
  45137. pTDefRegMap(@Self)^.&set := $00004000;
  45138. end;
  45139. function TPMP_PMAEN.getPTEN14 : TBits_1; inline;
  45140. begin
  45141. getPTEN14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  45142. end;
  45143. procedure TPMP_PMAEN.setPTEN15; inline;
  45144. begin
  45145. pTDefRegMap(@Self)^.&set := $00008000;
  45146. end;
  45147. procedure TPMP_PMAEN.clearPTEN15; inline;
  45148. begin
  45149. pTDefRegMap(@Self)^.clr := $00008000;
  45150. end;
  45151. procedure TPMP_PMAEN.setPTEN15(thebits : TBits_1); inline;
  45152. begin
  45153. if thebits = 0 then
  45154. pTDefRegMap(@Self)^.clr := $00008000
  45155. else
  45156. pTDefRegMap(@Self)^.&set := $00008000;
  45157. end;
  45158. function TPMP_PMAEN.getPTEN15 : TBits_1; inline;
  45159. begin
  45160. getPTEN15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  45161. end;
  45162. procedure TPMP_PMAEN.setw(thebits : TBits_32); inline;
  45163. begin
  45164. pTDefRegMap(@Self)^.val := thebits;
  45165. end;
  45166. function TPMP_PMAEN.getw : TBits_32; inline;
  45167. begin
  45168. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  45169. end;
  45170. procedure TPMP_PMSTAT.setOB0E; inline;
  45171. begin
  45172. pTDefRegMap(@Self)^.&set := $00000001;
  45173. end;
  45174. procedure TPMP_PMSTAT.clearOB0E; inline;
  45175. begin
  45176. pTDefRegMap(@Self)^.clr := $00000001;
  45177. end;
  45178. procedure TPMP_PMSTAT.setOB0E(thebits : TBits_1); inline;
  45179. begin
  45180. if thebits = 0 then
  45181. pTDefRegMap(@Self)^.clr := $00000001
  45182. else
  45183. pTDefRegMap(@Self)^.&set := $00000001;
  45184. end;
  45185. function TPMP_PMSTAT.getOB0E : TBits_1; inline;
  45186. begin
  45187. getOB0E := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  45188. end;
  45189. procedure TPMP_PMSTAT.setOB1E; inline;
  45190. begin
  45191. pTDefRegMap(@Self)^.&set := $00000002;
  45192. end;
  45193. procedure TPMP_PMSTAT.clearOB1E; inline;
  45194. begin
  45195. pTDefRegMap(@Self)^.clr := $00000002;
  45196. end;
  45197. procedure TPMP_PMSTAT.setOB1E(thebits : TBits_1); inline;
  45198. begin
  45199. if thebits = 0 then
  45200. pTDefRegMap(@Self)^.clr := $00000002
  45201. else
  45202. pTDefRegMap(@Self)^.&set := $00000002;
  45203. end;
  45204. function TPMP_PMSTAT.getOB1E : TBits_1; inline;
  45205. begin
  45206. getOB1E := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  45207. end;
  45208. procedure TPMP_PMSTAT.setOB2E; inline;
  45209. begin
  45210. pTDefRegMap(@Self)^.&set := $00000004;
  45211. end;
  45212. procedure TPMP_PMSTAT.clearOB2E; inline;
  45213. begin
  45214. pTDefRegMap(@Self)^.clr := $00000004;
  45215. end;
  45216. procedure TPMP_PMSTAT.setOB2E(thebits : TBits_1); inline;
  45217. begin
  45218. if thebits = 0 then
  45219. pTDefRegMap(@Self)^.clr := $00000004
  45220. else
  45221. pTDefRegMap(@Self)^.&set := $00000004;
  45222. end;
  45223. function TPMP_PMSTAT.getOB2E : TBits_1; inline;
  45224. begin
  45225. getOB2E := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  45226. end;
  45227. procedure TPMP_PMSTAT.setOB3E; inline;
  45228. begin
  45229. pTDefRegMap(@Self)^.&set := $00000008;
  45230. end;
  45231. procedure TPMP_PMSTAT.clearOB3E; inline;
  45232. begin
  45233. pTDefRegMap(@Self)^.clr := $00000008;
  45234. end;
  45235. procedure TPMP_PMSTAT.setOB3E(thebits : TBits_1); inline;
  45236. begin
  45237. if thebits = 0 then
  45238. pTDefRegMap(@Self)^.clr := $00000008
  45239. else
  45240. pTDefRegMap(@Self)^.&set := $00000008;
  45241. end;
  45242. function TPMP_PMSTAT.getOB3E : TBits_1; inline;
  45243. begin
  45244. getOB3E := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  45245. end;
  45246. procedure TPMP_PMSTAT.setOBUF; inline;
  45247. begin
  45248. pTDefRegMap(@Self)^.&set := $00000040;
  45249. end;
  45250. procedure TPMP_PMSTAT.clearOBUF; inline;
  45251. begin
  45252. pTDefRegMap(@Self)^.clr := $00000040;
  45253. end;
  45254. procedure TPMP_PMSTAT.setOBUF(thebits : TBits_1); inline;
  45255. begin
  45256. if thebits = 0 then
  45257. pTDefRegMap(@Self)^.clr := $00000040
  45258. else
  45259. pTDefRegMap(@Self)^.&set := $00000040;
  45260. end;
  45261. function TPMP_PMSTAT.getOBUF : TBits_1; inline;
  45262. begin
  45263. getOBUF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  45264. end;
  45265. procedure TPMP_PMSTAT.setOBE; inline;
  45266. begin
  45267. pTDefRegMap(@Self)^.&set := $00000080;
  45268. end;
  45269. procedure TPMP_PMSTAT.clearOBE; inline;
  45270. begin
  45271. pTDefRegMap(@Self)^.clr := $00000080;
  45272. end;
  45273. procedure TPMP_PMSTAT.setOBE(thebits : TBits_1); inline;
  45274. begin
  45275. if thebits = 0 then
  45276. pTDefRegMap(@Self)^.clr := $00000080
  45277. else
  45278. pTDefRegMap(@Self)^.&set := $00000080;
  45279. end;
  45280. function TPMP_PMSTAT.getOBE : TBits_1; inline;
  45281. begin
  45282. getOBE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  45283. end;
  45284. procedure TPMP_PMSTAT.setIB0F; inline;
  45285. begin
  45286. pTDefRegMap(@Self)^.&set := $00000100;
  45287. end;
  45288. procedure TPMP_PMSTAT.clearIB0F; inline;
  45289. begin
  45290. pTDefRegMap(@Self)^.clr := $00000100;
  45291. end;
  45292. procedure TPMP_PMSTAT.setIB0F(thebits : TBits_1); inline;
  45293. begin
  45294. if thebits = 0 then
  45295. pTDefRegMap(@Self)^.clr := $00000100
  45296. else
  45297. pTDefRegMap(@Self)^.&set := $00000100;
  45298. end;
  45299. function TPMP_PMSTAT.getIB0F : TBits_1; inline;
  45300. begin
  45301. getIB0F := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  45302. end;
  45303. procedure TPMP_PMSTAT.setIB1F; inline;
  45304. begin
  45305. pTDefRegMap(@Self)^.&set := $00000200;
  45306. end;
  45307. procedure TPMP_PMSTAT.clearIB1F; inline;
  45308. begin
  45309. pTDefRegMap(@Self)^.clr := $00000200;
  45310. end;
  45311. procedure TPMP_PMSTAT.setIB1F(thebits : TBits_1); inline;
  45312. begin
  45313. if thebits = 0 then
  45314. pTDefRegMap(@Self)^.clr := $00000200
  45315. else
  45316. pTDefRegMap(@Self)^.&set := $00000200;
  45317. end;
  45318. function TPMP_PMSTAT.getIB1F : TBits_1; inline;
  45319. begin
  45320. getIB1F := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  45321. end;
  45322. procedure TPMP_PMSTAT.setIB2F; inline;
  45323. begin
  45324. pTDefRegMap(@Self)^.&set := $00000400;
  45325. end;
  45326. procedure TPMP_PMSTAT.clearIB2F; inline;
  45327. begin
  45328. pTDefRegMap(@Self)^.clr := $00000400;
  45329. end;
  45330. procedure TPMP_PMSTAT.setIB2F(thebits : TBits_1); inline;
  45331. begin
  45332. if thebits = 0 then
  45333. pTDefRegMap(@Self)^.clr := $00000400
  45334. else
  45335. pTDefRegMap(@Self)^.&set := $00000400;
  45336. end;
  45337. function TPMP_PMSTAT.getIB2F : TBits_1; inline;
  45338. begin
  45339. getIB2F := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  45340. end;
  45341. procedure TPMP_PMSTAT.setIB3F; inline;
  45342. begin
  45343. pTDefRegMap(@Self)^.&set := $00000800;
  45344. end;
  45345. procedure TPMP_PMSTAT.clearIB3F; inline;
  45346. begin
  45347. pTDefRegMap(@Self)^.clr := $00000800;
  45348. end;
  45349. procedure TPMP_PMSTAT.setIB3F(thebits : TBits_1); inline;
  45350. begin
  45351. if thebits = 0 then
  45352. pTDefRegMap(@Self)^.clr := $00000800
  45353. else
  45354. pTDefRegMap(@Self)^.&set := $00000800;
  45355. end;
  45356. function TPMP_PMSTAT.getIB3F : TBits_1; inline;
  45357. begin
  45358. getIB3F := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  45359. end;
  45360. procedure TPMP_PMSTAT.setIBOV; inline;
  45361. begin
  45362. pTDefRegMap(@Self)^.&set := $00004000;
  45363. end;
  45364. procedure TPMP_PMSTAT.clearIBOV; inline;
  45365. begin
  45366. pTDefRegMap(@Self)^.clr := $00004000;
  45367. end;
  45368. procedure TPMP_PMSTAT.setIBOV(thebits : TBits_1); inline;
  45369. begin
  45370. if thebits = 0 then
  45371. pTDefRegMap(@Self)^.clr := $00004000
  45372. else
  45373. pTDefRegMap(@Self)^.&set := $00004000;
  45374. end;
  45375. function TPMP_PMSTAT.getIBOV : TBits_1; inline;
  45376. begin
  45377. getIBOV := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  45378. end;
  45379. procedure TPMP_PMSTAT.setIBF; inline;
  45380. begin
  45381. pTDefRegMap(@Self)^.&set := $00008000;
  45382. end;
  45383. procedure TPMP_PMSTAT.clearIBF; inline;
  45384. begin
  45385. pTDefRegMap(@Self)^.clr := $00008000;
  45386. end;
  45387. procedure TPMP_PMSTAT.setIBF(thebits : TBits_1); inline;
  45388. begin
  45389. if thebits = 0 then
  45390. pTDefRegMap(@Self)^.clr := $00008000
  45391. else
  45392. pTDefRegMap(@Self)^.&set := $00008000;
  45393. end;
  45394. function TPMP_PMSTAT.getIBF : TBits_1; inline;
  45395. begin
  45396. getIBF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  45397. end;
  45398. procedure TPMP_PMSTAT.setw(thebits : TBits_32); inline;
  45399. begin
  45400. pTDefRegMap(@Self)^.val := thebits;
  45401. end;
  45402. function TPMP_PMSTAT.getw : TBits_32; inline;
  45403. begin
  45404. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  45405. end;
  45406. procedure TADC10_AD1CON1.setDONE; inline;
  45407. begin
  45408. pTDefRegMap(@Self)^.&set := $00000001;
  45409. end;
  45410. procedure TADC10_AD1CON1.clearDONE; inline;
  45411. begin
  45412. pTDefRegMap(@Self)^.clr := $00000001;
  45413. end;
  45414. procedure TADC10_AD1CON1.setDONE(thebits : TBits_1); inline;
  45415. begin
  45416. if thebits = 0 then
  45417. pTDefRegMap(@Self)^.clr := $00000001
  45418. else
  45419. pTDefRegMap(@Self)^.&set := $00000001;
  45420. end;
  45421. function TADC10_AD1CON1.getDONE : TBits_1; inline;
  45422. begin
  45423. getDONE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  45424. end;
  45425. procedure TADC10_AD1CON1.setSAMP; inline;
  45426. begin
  45427. pTDefRegMap(@Self)^.&set := $00000002;
  45428. end;
  45429. procedure TADC10_AD1CON1.clearSAMP; inline;
  45430. begin
  45431. pTDefRegMap(@Self)^.clr := $00000002;
  45432. end;
  45433. procedure TADC10_AD1CON1.setSAMP(thebits : TBits_1); inline;
  45434. begin
  45435. if thebits = 0 then
  45436. pTDefRegMap(@Self)^.clr := $00000002
  45437. else
  45438. pTDefRegMap(@Self)^.&set := $00000002;
  45439. end;
  45440. function TADC10_AD1CON1.getSAMP : TBits_1; inline;
  45441. begin
  45442. getSAMP := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  45443. end;
  45444. procedure TADC10_AD1CON1.setASAM; inline;
  45445. begin
  45446. pTDefRegMap(@Self)^.&set := $00000004;
  45447. end;
  45448. procedure TADC10_AD1CON1.clearASAM; inline;
  45449. begin
  45450. pTDefRegMap(@Self)^.clr := $00000004;
  45451. end;
  45452. procedure TADC10_AD1CON1.setASAM(thebits : TBits_1); inline;
  45453. begin
  45454. if thebits = 0 then
  45455. pTDefRegMap(@Self)^.clr := $00000004
  45456. else
  45457. pTDefRegMap(@Self)^.&set := $00000004;
  45458. end;
  45459. function TADC10_AD1CON1.getASAM : TBits_1; inline;
  45460. begin
  45461. getASAM := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  45462. end;
  45463. procedure TADC10_AD1CON1.setCLRASAM; inline;
  45464. begin
  45465. pTDefRegMap(@Self)^.&set := $00000010;
  45466. end;
  45467. procedure TADC10_AD1CON1.clearCLRASAM; inline;
  45468. begin
  45469. pTDefRegMap(@Self)^.clr := $00000010;
  45470. end;
  45471. procedure TADC10_AD1CON1.setCLRASAM(thebits : TBits_1); inline;
  45472. begin
  45473. if thebits = 0 then
  45474. pTDefRegMap(@Self)^.clr := $00000010
  45475. else
  45476. pTDefRegMap(@Self)^.&set := $00000010;
  45477. end;
  45478. function TADC10_AD1CON1.getCLRASAM : TBits_1; inline;
  45479. begin
  45480. getCLRASAM := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  45481. end;
  45482. procedure TADC10_AD1CON1.setSSRC(thebits : TBits_3); inline;
  45483. begin
  45484. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF1F or ( thebits shl 5 );
  45485. end;
  45486. function TADC10_AD1CON1.getSSRC : TBits_3; inline;
  45487. begin
  45488. getSSRC := (pTDefRegMap(@Self)^.val and $000000E0) shr 5;
  45489. end;
  45490. procedure TADC10_AD1CON1.setFORM(thebits : TBits_3); inline;
  45491. begin
  45492. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  45493. end;
  45494. function TADC10_AD1CON1.getFORM : TBits_3; inline;
  45495. begin
  45496. getFORM := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  45497. end;
  45498. procedure TADC10_AD1CON1.setSIDL; inline;
  45499. begin
  45500. pTDefRegMap(@Self)^.&set := $00002000;
  45501. end;
  45502. procedure TADC10_AD1CON1.clearSIDL; inline;
  45503. begin
  45504. pTDefRegMap(@Self)^.clr := $00002000;
  45505. end;
  45506. procedure TADC10_AD1CON1.setSIDL(thebits : TBits_1); inline;
  45507. begin
  45508. if thebits = 0 then
  45509. pTDefRegMap(@Self)^.clr := $00002000
  45510. else
  45511. pTDefRegMap(@Self)^.&set := $00002000;
  45512. end;
  45513. function TADC10_AD1CON1.getSIDL : TBits_1; inline;
  45514. begin
  45515. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  45516. end;
  45517. procedure TADC10_AD1CON1.setON; inline;
  45518. begin
  45519. pTDefRegMap(@Self)^.&set := $00008000;
  45520. end;
  45521. procedure TADC10_AD1CON1.clearON; inline;
  45522. begin
  45523. pTDefRegMap(@Self)^.clr := $00008000;
  45524. end;
  45525. procedure TADC10_AD1CON1.setON(thebits : TBits_1); inline;
  45526. begin
  45527. if thebits = 0 then
  45528. pTDefRegMap(@Self)^.clr := $00008000
  45529. else
  45530. pTDefRegMap(@Self)^.&set := $00008000;
  45531. end;
  45532. function TADC10_AD1CON1.getON : TBits_1; inline;
  45533. begin
  45534. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  45535. end;
  45536. procedure TADC10_AD1CON1.setSSRC0; inline;
  45537. begin
  45538. pTDefRegMap(@Self)^.&set := $00000020;
  45539. end;
  45540. procedure TADC10_AD1CON1.clearSSRC0; inline;
  45541. begin
  45542. pTDefRegMap(@Self)^.clr := $00000020;
  45543. end;
  45544. procedure TADC10_AD1CON1.setSSRC0(thebits : TBits_1); inline;
  45545. begin
  45546. if thebits = 0 then
  45547. pTDefRegMap(@Self)^.clr := $00000020
  45548. else
  45549. pTDefRegMap(@Self)^.&set := $00000020;
  45550. end;
  45551. function TADC10_AD1CON1.getSSRC0 : TBits_1; inline;
  45552. begin
  45553. getSSRC0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  45554. end;
  45555. procedure TADC10_AD1CON1.setSSRC1; inline;
  45556. begin
  45557. pTDefRegMap(@Self)^.&set := $00000040;
  45558. end;
  45559. procedure TADC10_AD1CON1.clearSSRC1; inline;
  45560. begin
  45561. pTDefRegMap(@Self)^.clr := $00000040;
  45562. end;
  45563. procedure TADC10_AD1CON1.setSSRC1(thebits : TBits_1); inline;
  45564. begin
  45565. if thebits = 0 then
  45566. pTDefRegMap(@Self)^.clr := $00000040
  45567. else
  45568. pTDefRegMap(@Self)^.&set := $00000040;
  45569. end;
  45570. function TADC10_AD1CON1.getSSRC1 : TBits_1; inline;
  45571. begin
  45572. getSSRC1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  45573. end;
  45574. procedure TADC10_AD1CON1.setSSRC2; inline;
  45575. begin
  45576. pTDefRegMap(@Self)^.&set := $00000080;
  45577. end;
  45578. procedure TADC10_AD1CON1.clearSSRC2; inline;
  45579. begin
  45580. pTDefRegMap(@Self)^.clr := $00000080;
  45581. end;
  45582. procedure TADC10_AD1CON1.setSSRC2(thebits : TBits_1); inline;
  45583. begin
  45584. if thebits = 0 then
  45585. pTDefRegMap(@Self)^.clr := $00000080
  45586. else
  45587. pTDefRegMap(@Self)^.&set := $00000080;
  45588. end;
  45589. function TADC10_AD1CON1.getSSRC2 : TBits_1; inline;
  45590. begin
  45591. getSSRC2 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  45592. end;
  45593. procedure TADC10_AD1CON1.setFORM0; inline;
  45594. begin
  45595. pTDefRegMap(@Self)^.&set := $00000100;
  45596. end;
  45597. procedure TADC10_AD1CON1.clearFORM0; inline;
  45598. begin
  45599. pTDefRegMap(@Self)^.clr := $00000100;
  45600. end;
  45601. procedure TADC10_AD1CON1.setFORM0(thebits : TBits_1); inline;
  45602. begin
  45603. if thebits = 0 then
  45604. pTDefRegMap(@Self)^.clr := $00000100
  45605. else
  45606. pTDefRegMap(@Self)^.&set := $00000100;
  45607. end;
  45608. function TADC10_AD1CON1.getFORM0 : TBits_1; inline;
  45609. begin
  45610. getFORM0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  45611. end;
  45612. procedure TADC10_AD1CON1.setFORM1; inline;
  45613. begin
  45614. pTDefRegMap(@Self)^.&set := $00000200;
  45615. end;
  45616. procedure TADC10_AD1CON1.clearFORM1; inline;
  45617. begin
  45618. pTDefRegMap(@Self)^.clr := $00000200;
  45619. end;
  45620. procedure TADC10_AD1CON1.setFORM1(thebits : TBits_1); inline;
  45621. begin
  45622. if thebits = 0 then
  45623. pTDefRegMap(@Self)^.clr := $00000200
  45624. else
  45625. pTDefRegMap(@Self)^.&set := $00000200;
  45626. end;
  45627. function TADC10_AD1CON1.getFORM1 : TBits_1; inline;
  45628. begin
  45629. getFORM1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  45630. end;
  45631. procedure TADC10_AD1CON1.setFORM2; inline;
  45632. begin
  45633. pTDefRegMap(@Self)^.&set := $00000400;
  45634. end;
  45635. procedure TADC10_AD1CON1.clearFORM2; inline;
  45636. begin
  45637. pTDefRegMap(@Self)^.clr := $00000400;
  45638. end;
  45639. procedure TADC10_AD1CON1.setFORM2(thebits : TBits_1); inline;
  45640. begin
  45641. if thebits = 0 then
  45642. pTDefRegMap(@Self)^.clr := $00000400
  45643. else
  45644. pTDefRegMap(@Self)^.&set := $00000400;
  45645. end;
  45646. function TADC10_AD1CON1.getFORM2 : TBits_1; inline;
  45647. begin
  45648. getFORM2 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  45649. end;
  45650. procedure TADC10_AD1CON1.setADSIDL; inline;
  45651. begin
  45652. pTDefRegMap(@Self)^.&set := $00002000;
  45653. end;
  45654. procedure TADC10_AD1CON1.clearADSIDL; inline;
  45655. begin
  45656. pTDefRegMap(@Self)^.clr := $00002000;
  45657. end;
  45658. procedure TADC10_AD1CON1.setADSIDL(thebits : TBits_1); inline;
  45659. begin
  45660. if thebits = 0 then
  45661. pTDefRegMap(@Self)^.clr := $00002000
  45662. else
  45663. pTDefRegMap(@Self)^.&set := $00002000;
  45664. end;
  45665. function TADC10_AD1CON1.getADSIDL : TBits_1; inline;
  45666. begin
  45667. getADSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  45668. end;
  45669. procedure TADC10_AD1CON1.setADON; inline;
  45670. begin
  45671. pTDefRegMap(@Self)^.&set := $00008000;
  45672. end;
  45673. procedure TADC10_AD1CON1.clearADON; inline;
  45674. begin
  45675. pTDefRegMap(@Self)^.clr := $00008000;
  45676. end;
  45677. procedure TADC10_AD1CON1.setADON(thebits : TBits_1); inline;
  45678. begin
  45679. if thebits = 0 then
  45680. pTDefRegMap(@Self)^.clr := $00008000
  45681. else
  45682. pTDefRegMap(@Self)^.&set := $00008000;
  45683. end;
  45684. function TADC10_AD1CON1.getADON : TBits_1; inline;
  45685. begin
  45686. getADON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  45687. end;
  45688. procedure TADC10_AD1CON1.setw(thebits : TBits_32); inline;
  45689. begin
  45690. pTDefRegMap(@Self)^.val := thebits;
  45691. end;
  45692. function TADC10_AD1CON1.getw : TBits_32; inline;
  45693. begin
  45694. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  45695. end;
  45696. procedure TADC10_AD1CON2.setALTS; inline;
  45697. begin
  45698. pTDefRegMap(@Self)^.&set := $00000001;
  45699. end;
  45700. procedure TADC10_AD1CON2.clearALTS; inline;
  45701. begin
  45702. pTDefRegMap(@Self)^.clr := $00000001;
  45703. end;
  45704. procedure TADC10_AD1CON2.setALTS(thebits : TBits_1); inline;
  45705. begin
  45706. if thebits = 0 then
  45707. pTDefRegMap(@Self)^.clr := $00000001
  45708. else
  45709. pTDefRegMap(@Self)^.&set := $00000001;
  45710. end;
  45711. function TADC10_AD1CON2.getALTS : TBits_1; inline;
  45712. begin
  45713. getALTS := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  45714. end;
  45715. procedure TADC10_AD1CON2.setBUFM; inline;
  45716. begin
  45717. pTDefRegMap(@Self)^.&set := $00000002;
  45718. end;
  45719. procedure TADC10_AD1CON2.clearBUFM; inline;
  45720. begin
  45721. pTDefRegMap(@Self)^.clr := $00000002;
  45722. end;
  45723. procedure TADC10_AD1CON2.setBUFM(thebits : TBits_1); inline;
  45724. begin
  45725. if thebits = 0 then
  45726. pTDefRegMap(@Self)^.clr := $00000002
  45727. else
  45728. pTDefRegMap(@Self)^.&set := $00000002;
  45729. end;
  45730. function TADC10_AD1CON2.getBUFM : TBits_1; inline;
  45731. begin
  45732. getBUFM := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  45733. end;
  45734. procedure TADC10_AD1CON2.setSMPI(thebits : TBits_4); inline;
  45735. begin
  45736. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC3 or ( thebits shl 2 );
  45737. end;
  45738. function TADC10_AD1CON2.getSMPI : TBits_4; inline;
  45739. begin
  45740. getSMPI := (pTDefRegMap(@Self)^.val and $0000003C) shr 2;
  45741. end;
  45742. procedure TADC10_AD1CON2.setBUFS; inline;
  45743. begin
  45744. pTDefRegMap(@Self)^.&set := $00000080;
  45745. end;
  45746. procedure TADC10_AD1CON2.clearBUFS; inline;
  45747. begin
  45748. pTDefRegMap(@Self)^.clr := $00000080;
  45749. end;
  45750. procedure TADC10_AD1CON2.setBUFS(thebits : TBits_1); inline;
  45751. begin
  45752. if thebits = 0 then
  45753. pTDefRegMap(@Self)^.clr := $00000080
  45754. else
  45755. pTDefRegMap(@Self)^.&set := $00000080;
  45756. end;
  45757. function TADC10_AD1CON2.getBUFS : TBits_1; inline;
  45758. begin
  45759. getBUFS := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  45760. end;
  45761. procedure TADC10_AD1CON2.setCSCNA; inline;
  45762. begin
  45763. pTDefRegMap(@Self)^.&set := $00000400;
  45764. end;
  45765. procedure TADC10_AD1CON2.clearCSCNA; inline;
  45766. begin
  45767. pTDefRegMap(@Self)^.clr := $00000400;
  45768. end;
  45769. procedure TADC10_AD1CON2.setCSCNA(thebits : TBits_1); inline;
  45770. begin
  45771. if thebits = 0 then
  45772. pTDefRegMap(@Self)^.clr := $00000400
  45773. else
  45774. pTDefRegMap(@Self)^.&set := $00000400;
  45775. end;
  45776. function TADC10_AD1CON2.getCSCNA : TBits_1; inline;
  45777. begin
  45778. getCSCNA := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  45779. end;
  45780. procedure TADC10_AD1CON2.setOFFCAL; inline;
  45781. begin
  45782. pTDefRegMap(@Self)^.&set := $00001000;
  45783. end;
  45784. procedure TADC10_AD1CON2.clearOFFCAL; inline;
  45785. begin
  45786. pTDefRegMap(@Self)^.clr := $00001000;
  45787. end;
  45788. procedure TADC10_AD1CON2.setOFFCAL(thebits : TBits_1); inline;
  45789. begin
  45790. if thebits = 0 then
  45791. pTDefRegMap(@Self)^.clr := $00001000
  45792. else
  45793. pTDefRegMap(@Self)^.&set := $00001000;
  45794. end;
  45795. function TADC10_AD1CON2.getOFFCAL : TBits_1; inline;
  45796. begin
  45797. getOFFCAL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  45798. end;
  45799. procedure TADC10_AD1CON2.setVCFG(thebits : TBits_3); inline;
  45800. begin
  45801. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF1FFF or ( thebits shl 13 );
  45802. end;
  45803. function TADC10_AD1CON2.getVCFG : TBits_3; inline;
  45804. begin
  45805. getVCFG := (pTDefRegMap(@Self)^.val and $0000E000) shr 13;
  45806. end;
  45807. procedure TADC10_AD1CON2.setSMPI0; inline;
  45808. begin
  45809. pTDefRegMap(@Self)^.&set := $00000004;
  45810. end;
  45811. procedure TADC10_AD1CON2.clearSMPI0; inline;
  45812. begin
  45813. pTDefRegMap(@Self)^.clr := $00000004;
  45814. end;
  45815. procedure TADC10_AD1CON2.setSMPI0(thebits : TBits_1); inline;
  45816. begin
  45817. if thebits = 0 then
  45818. pTDefRegMap(@Self)^.clr := $00000004
  45819. else
  45820. pTDefRegMap(@Self)^.&set := $00000004;
  45821. end;
  45822. function TADC10_AD1CON2.getSMPI0 : TBits_1; inline;
  45823. begin
  45824. getSMPI0 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  45825. end;
  45826. procedure TADC10_AD1CON2.setSMPI1; inline;
  45827. begin
  45828. pTDefRegMap(@Self)^.&set := $00000008;
  45829. end;
  45830. procedure TADC10_AD1CON2.clearSMPI1; inline;
  45831. begin
  45832. pTDefRegMap(@Self)^.clr := $00000008;
  45833. end;
  45834. procedure TADC10_AD1CON2.setSMPI1(thebits : TBits_1); inline;
  45835. begin
  45836. if thebits = 0 then
  45837. pTDefRegMap(@Self)^.clr := $00000008
  45838. else
  45839. pTDefRegMap(@Self)^.&set := $00000008;
  45840. end;
  45841. function TADC10_AD1CON2.getSMPI1 : TBits_1; inline;
  45842. begin
  45843. getSMPI1 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  45844. end;
  45845. procedure TADC10_AD1CON2.setSMPI2; inline;
  45846. begin
  45847. pTDefRegMap(@Self)^.&set := $00000010;
  45848. end;
  45849. procedure TADC10_AD1CON2.clearSMPI2; inline;
  45850. begin
  45851. pTDefRegMap(@Self)^.clr := $00000010;
  45852. end;
  45853. procedure TADC10_AD1CON2.setSMPI2(thebits : TBits_1); inline;
  45854. begin
  45855. if thebits = 0 then
  45856. pTDefRegMap(@Self)^.clr := $00000010
  45857. else
  45858. pTDefRegMap(@Self)^.&set := $00000010;
  45859. end;
  45860. function TADC10_AD1CON2.getSMPI2 : TBits_1; inline;
  45861. begin
  45862. getSMPI2 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  45863. end;
  45864. procedure TADC10_AD1CON2.setSMPI3; inline;
  45865. begin
  45866. pTDefRegMap(@Self)^.&set := $00000020;
  45867. end;
  45868. procedure TADC10_AD1CON2.clearSMPI3; inline;
  45869. begin
  45870. pTDefRegMap(@Self)^.clr := $00000020;
  45871. end;
  45872. procedure TADC10_AD1CON2.setSMPI3(thebits : TBits_1); inline;
  45873. begin
  45874. if thebits = 0 then
  45875. pTDefRegMap(@Self)^.clr := $00000020
  45876. else
  45877. pTDefRegMap(@Self)^.&set := $00000020;
  45878. end;
  45879. function TADC10_AD1CON2.getSMPI3 : TBits_1; inline;
  45880. begin
  45881. getSMPI3 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  45882. end;
  45883. procedure TADC10_AD1CON2.setVCFG0; inline;
  45884. begin
  45885. pTDefRegMap(@Self)^.&set := $00002000;
  45886. end;
  45887. procedure TADC10_AD1CON2.clearVCFG0; inline;
  45888. begin
  45889. pTDefRegMap(@Self)^.clr := $00002000;
  45890. end;
  45891. procedure TADC10_AD1CON2.setVCFG0(thebits : TBits_1); inline;
  45892. begin
  45893. if thebits = 0 then
  45894. pTDefRegMap(@Self)^.clr := $00002000
  45895. else
  45896. pTDefRegMap(@Self)^.&set := $00002000;
  45897. end;
  45898. function TADC10_AD1CON2.getVCFG0 : TBits_1; inline;
  45899. begin
  45900. getVCFG0 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  45901. end;
  45902. procedure TADC10_AD1CON2.setVCFG1; inline;
  45903. begin
  45904. pTDefRegMap(@Self)^.&set := $00004000;
  45905. end;
  45906. procedure TADC10_AD1CON2.clearVCFG1; inline;
  45907. begin
  45908. pTDefRegMap(@Self)^.clr := $00004000;
  45909. end;
  45910. procedure TADC10_AD1CON2.setVCFG1(thebits : TBits_1); inline;
  45911. begin
  45912. if thebits = 0 then
  45913. pTDefRegMap(@Self)^.clr := $00004000
  45914. else
  45915. pTDefRegMap(@Self)^.&set := $00004000;
  45916. end;
  45917. function TADC10_AD1CON2.getVCFG1 : TBits_1; inline;
  45918. begin
  45919. getVCFG1 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  45920. end;
  45921. procedure TADC10_AD1CON2.setVCFG2; inline;
  45922. begin
  45923. pTDefRegMap(@Self)^.&set := $00008000;
  45924. end;
  45925. procedure TADC10_AD1CON2.clearVCFG2; inline;
  45926. begin
  45927. pTDefRegMap(@Self)^.clr := $00008000;
  45928. end;
  45929. procedure TADC10_AD1CON2.setVCFG2(thebits : TBits_1); inline;
  45930. begin
  45931. if thebits = 0 then
  45932. pTDefRegMap(@Self)^.clr := $00008000
  45933. else
  45934. pTDefRegMap(@Self)^.&set := $00008000;
  45935. end;
  45936. function TADC10_AD1CON2.getVCFG2 : TBits_1; inline;
  45937. begin
  45938. getVCFG2 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  45939. end;
  45940. procedure TADC10_AD1CON2.setw(thebits : TBits_32); inline;
  45941. begin
  45942. pTDefRegMap(@Self)^.val := thebits;
  45943. end;
  45944. function TADC10_AD1CON2.getw : TBits_32; inline;
  45945. begin
  45946. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  45947. end;
  45948. procedure TADC10_AD1CON3.setADCS(thebits : TBits_8); inline;
  45949. begin
  45950. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  45951. end;
  45952. function TADC10_AD1CON3.getADCS : TBits_8; inline;
  45953. begin
  45954. getADCS := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  45955. end;
  45956. procedure TADC10_AD1CON3.setSAMC(thebits : TBits_5); inline;
  45957. begin
  45958. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  45959. end;
  45960. function TADC10_AD1CON3.getSAMC : TBits_5; inline;
  45961. begin
  45962. getSAMC := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  45963. end;
  45964. procedure TADC10_AD1CON3.setADRC; inline;
  45965. begin
  45966. pTDefRegMap(@Self)^.&set := $00008000;
  45967. end;
  45968. procedure TADC10_AD1CON3.clearADRC; inline;
  45969. begin
  45970. pTDefRegMap(@Self)^.clr := $00008000;
  45971. end;
  45972. procedure TADC10_AD1CON3.setADRC(thebits : TBits_1); inline;
  45973. begin
  45974. if thebits = 0 then
  45975. pTDefRegMap(@Self)^.clr := $00008000
  45976. else
  45977. pTDefRegMap(@Self)^.&set := $00008000;
  45978. end;
  45979. function TADC10_AD1CON3.getADRC : TBits_1; inline;
  45980. begin
  45981. getADRC := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  45982. end;
  45983. procedure TADC10_AD1CON3.setADCS0; inline;
  45984. begin
  45985. pTDefRegMap(@Self)^.&set := $00000001;
  45986. end;
  45987. procedure TADC10_AD1CON3.clearADCS0; inline;
  45988. begin
  45989. pTDefRegMap(@Self)^.clr := $00000001;
  45990. end;
  45991. procedure TADC10_AD1CON3.setADCS0(thebits : TBits_1); inline;
  45992. begin
  45993. if thebits = 0 then
  45994. pTDefRegMap(@Self)^.clr := $00000001
  45995. else
  45996. pTDefRegMap(@Self)^.&set := $00000001;
  45997. end;
  45998. function TADC10_AD1CON3.getADCS0 : TBits_1; inline;
  45999. begin
  46000. getADCS0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  46001. end;
  46002. procedure TADC10_AD1CON3.setADCS1; inline;
  46003. begin
  46004. pTDefRegMap(@Self)^.&set := $00000002;
  46005. end;
  46006. procedure TADC10_AD1CON3.clearADCS1; inline;
  46007. begin
  46008. pTDefRegMap(@Self)^.clr := $00000002;
  46009. end;
  46010. procedure TADC10_AD1CON3.setADCS1(thebits : TBits_1); inline;
  46011. begin
  46012. if thebits = 0 then
  46013. pTDefRegMap(@Self)^.clr := $00000002
  46014. else
  46015. pTDefRegMap(@Self)^.&set := $00000002;
  46016. end;
  46017. function TADC10_AD1CON3.getADCS1 : TBits_1; inline;
  46018. begin
  46019. getADCS1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  46020. end;
  46021. procedure TADC10_AD1CON3.setADCS2; inline;
  46022. begin
  46023. pTDefRegMap(@Self)^.&set := $00000004;
  46024. end;
  46025. procedure TADC10_AD1CON3.clearADCS2; inline;
  46026. begin
  46027. pTDefRegMap(@Self)^.clr := $00000004;
  46028. end;
  46029. procedure TADC10_AD1CON3.setADCS2(thebits : TBits_1); inline;
  46030. begin
  46031. if thebits = 0 then
  46032. pTDefRegMap(@Self)^.clr := $00000004
  46033. else
  46034. pTDefRegMap(@Self)^.&set := $00000004;
  46035. end;
  46036. function TADC10_AD1CON3.getADCS2 : TBits_1; inline;
  46037. begin
  46038. getADCS2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  46039. end;
  46040. procedure TADC10_AD1CON3.setADCS3; inline;
  46041. begin
  46042. pTDefRegMap(@Self)^.&set := $00000008;
  46043. end;
  46044. procedure TADC10_AD1CON3.clearADCS3; inline;
  46045. begin
  46046. pTDefRegMap(@Self)^.clr := $00000008;
  46047. end;
  46048. procedure TADC10_AD1CON3.setADCS3(thebits : TBits_1); inline;
  46049. begin
  46050. if thebits = 0 then
  46051. pTDefRegMap(@Self)^.clr := $00000008
  46052. else
  46053. pTDefRegMap(@Self)^.&set := $00000008;
  46054. end;
  46055. function TADC10_AD1CON3.getADCS3 : TBits_1; inline;
  46056. begin
  46057. getADCS3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  46058. end;
  46059. procedure TADC10_AD1CON3.setADCS4; inline;
  46060. begin
  46061. pTDefRegMap(@Self)^.&set := $00000010;
  46062. end;
  46063. procedure TADC10_AD1CON3.clearADCS4; inline;
  46064. begin
  46065. pTDefRegMap(@Self)^.clr := $00000010;
  46066. end;
  46067. procedure TADC10_AD1CON3.setADCS4(thebits : TBits_1); inline;
  46068. begin
  46069. if thebits = 0 then
  46070. pTDefRegMap(@Self)^.clr := $00000010
  46071. else
  46072. pTDefRegMap(@Self)^.&set := $00000010;
  46073. end;
  46074. function TADC10_AD1CON3.getADCS4 : TBits_1; inline;
  46075. begin
  46076. getADCS4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  46077. end;
  46078. procedure TADC10_AD1CON3.setADCS5; inline;
  46079. begin
  46080. pTDefRegMap(@Self)^.&set := $00000020;
  46081. end;
  46082. procedure TADC10_AD1CON3.clearADCS5; inline;
  46083. begin
  46084. pTDefRegMap(@Self)^.clr := $00000020;
  46085. end;
  46086. procedure TADC10_AD1CON3.setADCS5(thebits : TBits_1); inline;
  46087. begin
  46088. if thebits = 0 then
  46089. pTDefRegMap(@Self)^.clr := $00000020
  46090. else
  46091. pTDefRegMap(@Self)^.&set := $00000020;
  46092. end;
  46093. function TADC10_AD1CON3.getADCS5 : TBits_1; inline;
  46094. begin
  46095. getADCS5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  46096. end;
  46097. procedure TADC10_AD1CON3.setADCS6; inline;
  46098. begin
  46099. pTDefRegMap(@Self)^.&set := $00000040;
  46100. end;
  46101. procedure TADC10_AD1CON3.clearADCS6; inline;
  46102. begin
  46103. pTDefRegMap(@Self)^.clr := $00000040;
  46104. end;
  46105. procedure TADC10_AD1CON3.setADCS6(thebits : TBits_1); inline;
  46106. begin
  46107. if thebits = 0 then
  46108. pTDefRegMap(@Self)^.clr := $00000040
  46109. else
  46110. pTDefRegMap(@Self)^.&set := $00000040;
  46111. end;
  46112. function TADC10_AD1CON3.getADCS6 : TBits_1; inline;
  46113. begin
  46114. getADCS6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  46115. end;
  46116. procedure TADC10_AD1CON3.setADCS7; inline;
  46117. begin
  46118. pTDefRegMap(@Self)^.&set := $00000080;
  46119. end;
  46120. procedure TADC10_AD1CON3.clearADCS7; inline;
  46121. begin
  46122. pTDefRegMap(@Self)^.clr := $00000080;
  46123. end;
  46124. procedure TADC10_AD1CON3.setADCS7(thebits : TBits_1); inline;
  46125. begin
  46126. if thebits = 0 then
  46127. pTDefRegMap(@Self)^.clr := $00000080
  46128. else
  46129. pTDefRegMap(@Self)^.&set := $00000080;
  46130. end;
  46131. function TADC10_AD1CON3.getADCS7 : TBits_1; inline;
  46132. begin
  46133. getADCS7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  46134. end;
  46135. procedure TADC10_AD1CON3.setSAMC0; inline;
  46136. begin
  46137. pTDefRegMap(@Self)^.&set := $00000100;
  46138. end;
  46139. procedure TADC10_AD1CON3.clearSAMC0; inline;
  46140. begin
  46141. pTDefRegMap(@Self)^.clr := $00000100;
  46142. end;
  46143. procedure TADC10_AD1CON3.setSAMC0(thebits : TBits_1); inline;
  46144. begin
  46145. if thebits = 0 then
  46146. pTDefRegMap(@Self)^.clr := $00000100
  46147. else
  46148. pTDefRegMap(@Self)^.&set := $00000100;
  46149. end;
  46150. function TADC10_AD1CON3.getSAMC0 : TBits_1; inline;
  46151. begin
  46152. getSAMC0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  46153. end;
  46154. procedure TADC10_AD1CON3.setSAMC1; inline;
  46155. begin
  46156. pTDefRegMap(@Self)^.&set := $00000200;
  46157. end;
  46158. procedure TADC10_AD1CON3.clearSAMC1; inline;
  46159. begin
  46160. pTDefRegMap(@Self)^.clr := $00000200;
  46161. end;
  46162. procedure TADC10_AD1CON3.setSAMC1(thebits : TBits_1); inline;
  46163. begin
  46164. if thebits = 0 then
  46165. pTDefRegMap(@Self)^.clr := $00000200
  46166. else
  46167. pTDefRegMap(@Self)^.&set := $00000200;
  46168. end;
  46169. function TADC10_AD1CON3.getSAMC1 : TBits_1; inline;
  46170. begin
  46171. getSAMC1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  46172. end;
  46173. procedure TADC10_AD1CON3.setSAMC2; inline;
  46174. begin
  46175. pTDefRegMap(@Self)^.&set := $00000400;
  46176. end;
  46177. procedure TADC10_AD1CON3.clearSAMC2; inline;
  46178. begin
  46179. pTDefRegMap(@Self)^.clr := $00000400;
  46180. end;
  46181. procedure TADC10_AD1CON3.setSAMC2(thebits : TBits_1); inline;
  46182. begin
  46183. if thebits = 0 then
  46184. pTDefRegMap(@Self)^.clr := $00000400
  46185. else
  46186. pTDefRegMap(@Self)^.&set := $00000400;
  46187. end;
  46188. function TADC10_AD1CON3.getSAMC2 : TBits_1; inline;
  46189. begin
  46190. getSAMC2 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  46191. end;
  46192. procedure TADC10_AD1CON3.setSAMC3; inline;
  46193. begin
  46194. pTDefRegMap(@Self)^.&set := $00000800;
  46195. end;
  46196. procedure TADC10_AD1CON3.clearSAMC3; inline;
  46197. begin
  46198. pTDefRegMap(@Self)^.clr := $00000800;
  46199. end;
  46200. procedure TADC10_AD1CON3.setSAMC3(thebits : TBits_1); inline;
  46201. begin
  46202. if thebits = 0 then
  46203. pTDefRegMap(@Self)^.clr := $00000800
  46204. else
  46205. pTDefRegMap(@Self)^.&set := $00000800;
  46206. end;
  46207. function TADC10_AD1CON3.getSAMC3 : TBits_1; inline;
  46208. begin
  46209. getSAMC3 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  46210. end;
  46211. procedure TADC10_AD1CON3.setSAMC4; inline;
  46212. begin
  46213. pTDefRegMap(@Self)^.&set := $00001000;
  46214. end;
  46215. procedure TADC10_AD1CON3.clearSAMC4; inline;
  46216. begin
  46217. pTDefRegMap(@Self)^.clr := $00001000;
  46218. end;
  46219. procedure TADC10_AD1CON3.setSAMC4(thebits : TBits_1); inline;
  46220. begin
  46221. if thebits = 0 then
  46222. pTDefRegMap(@Self)^.clr := $00001000
  46223. else
  46224. pTDefRegMap(@Self)^.&set := $00001000;
  46225. end;
  46226. function TADC10_AD1CON3.getSAMC4 : TBits_1; inline;
  46227. begin
  46228. getSAMC4 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  46229. end;
  46230. procedure TADC10_AD1CON3.setw(thebits : TBits_32); inline;
  46231. begin
  46232. pTDefRegMap(@Self)^.val := thebits;
  46233. end;
  46234. function TADC10_AD1CON3.getw : TBits_32; inline;
  46235. begin
  46236. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  46237. end;
  46238. procedure TADC10_AD1CHS.setCH0SA(thebits : TBits_4); inline;
  46239. begin
  46240. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  46241. end;
  46242. function TADC10_AD1CHS.getCH0SA : TBits_4; inline;
  46243. begin
  46244. getCH0SA := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  46245. end;
  46246. procedure TADC10_AD1CHS.setCH0NA; inline;
  46247. begin
  46248. pTDefRegMap(@Self)^.&set := $00800000;
  46249. end;
  46250. procedure TADC10_AD1CHS.clearCH0NA; inline;
  46251. begin
  46252. pTDefRegMap(@Self)^.clr := $00800000;
  46253. end;
  46254. procedure TADC10_AD1CHS.setCH0NA(thebits : TBits_1); inline;
  46255. begin
  46256. if thebits = 0 then
  46257. pTDefRegMap(@Self)^.clr := $00800000
  46258. else
  46259. pTDefRegMap(@Self)^.&set := $00800000;
  46260. end;
  46261. function TADC10_AD1CHS.getCH0NA : TBits_1; inline;
  46262. begin
  46263. getCH0NA := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  46264. end;
  46265. procedure TADC10_AD1CHS.setCH0SB(thebits : TBits_4); inline;
  46266. begin
  46267. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  46268. end;
  46269. function TADC10_AD1CHS.getCH0SB : TBits_4; inline;
  46270. begin
  46271. getCH0SB := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  46272. end;
  46273. procedure TADC10_AD1CHS.setCH0NB; inline;
  46274. begin
  46275. pTDefRegMap(@Self)^.&set := $80000000;
  46276. end;
  46277. procedure TADC10_AD1CHS.clearCH0NB; inline;
  46278. begin
  46279. pTDefRegMap(@Self)^.clr := $80000000;
  46280. end;
  46281. procedure TADC10_AD1CHS.setCH0NB(thebits : TBits_1); inline;
  46282. begin
  46283. if thebits = 0 then
  46284. pTDefRegMap(@Self)^.clr := $80000000
  46285. else
  46286. pTDefRegMap(@Self)^.&set := $80000000;
  46287. end;
  46288. function TADC10_AD1CHS.getCH0NB : TBits_1; inline;
  46289. begin
  46290. getCH0NB := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  46291. end;
  46292. procedure TADC10_AD1CHS.setCH0SA0; inline;
  46293. begin
  46294. pTDefRegMap(@Self)^.&set := $00010000;
  46295. end;
  46296. procedure TADC10_AD1CHS.clearCH0SA0; inline;
  46297. begin
  46298. pTDefRegMap(@Self)^.clr := $00010000;
  46299. end;
  46300. procedure TADC10_AD1CHS.setCH0SA0(thebits : TBits_1); inline;
  46301. begin
  46302. if thebits = 0 then
  46303. pTDefRegMap(@Self)^.clr := $00010000
  46304. else
  46305. pTDefRegMap(@Self)^.&set := $00010000;
  46306. end;
  46307. function TADC10_AD1CHS.getCH0SA0 : TBits_1; inline;
  46308. begin
  46309. getCH0SA0 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  46310. end;
  46311. procedure TADC10_AD1CHS.setCH0SA1; inline;
  46312. begin
  46313. pTDefRegMap(@Self)^.&set := $00020000;
  46314. end;
  46315. procedure TADC10_AD1CHS.clearCH0SA1; inline;
  46316. begin
  46317. pTDefRegMap(@Self)^.clr := $00020000;
  46318. end;
  46319. procedure TADC10_AD1CHS.setCH0SA1(thebits : TBits_1); inline;
  46320. begin
  46321. if thebits = 0 then
  46322. pTDefRegMap(@Self)^.clr := $00020000
  46323. else
  46324. pTDefRegMap(@Self)^.&set := $00020000;
  46325. end;
  46326. function TADC10_AD1CHS.getCH0SA1 : TBits_1; inline;
  46327. begin
  46328. getCH0SA1 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  46329. end;
  46330. procedure TADC10_AD1CHS.setCH0SA2; inline;
  46331. begin
  46332. pTDefRegMap(@Self)^.&set := $00040000;
  46333. end;
  46334. procedure TADC10_AD1CHS.clearCH0SA2; inline;
  46335. begin
  46336. pTDefRegMap(@Self)^.clr := $00040000;
  46337. end;
  46338. procedure TADC10_AD1CHS.setCH0SA2(thebits : TBits_1); inline;
  46339. begin
  46340. if thebits = 0 then
  46341. pTDefRegMap(@Self)^.clr := $00040000
  46342. else
  46343. pTDefRegMap(@Self)^.&set := $00040000;
  46344. end;
  46345. function TADC10_AD1CHS.getCH0SA2 : TBits_1; inline;
  46346. begin
  46347. getCH0SA2 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  46348. end;
  46349. procedure TADC10_AD1CHS.setCH0SA3; inline;
  46350. begin
  46351. pTDefRegMap(@Self)^.&set := $00080000;
  46352. end;
  46353. procedure TADC10_AD1CHS.clearCH0SA3; inline;
  46354. begin
  46355. pTDefRegMap(@Self)^.clr := $00080000;
  46356. end;
  46357. procedure TADC10_AD1CHS.setCH0SA3(thebits : TBits_1); inline;
  46358. begin
  46359. if thebits = 0 then
  46360. pTDefRegMap(@Self)^.clr := $00080000
  46361. else
  46362. pTDefRegMap(@Self)^.&set := $00080000;
  46363. end;
  46364. function TADC10_AD1CHS.getCH0SA3 : TBits_1; inline;
  46365. begin
  46366. getCH0SA3 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  46367. end;
  46368. procedure TADC10_AD1CHS.setCH0SB0; inline;
  46369. begin
  46370. pTDefRegMap(@Self)^.&set := $01000000;
  46371. end;
  46372. procedure TADC10_AD1CHS.clearCH0SB0; inline;
  46373. begin
  46374. pTDefRegMap(@Self)^.clr := $01000000;
  46375. end;
  46376. procedure TADC10_AD1CHS.setCH0SB0(thebits : TBits_1); inline;
  46377. begin
  46378. if thebits = 0 then
  46379. pTDefRegMap(@Self)^.clr := $01000000
  46380. else
  46381. pTDefRegMap(@Self)^.&set := $01000000;
  46382. end;
  46383. function TADC10_AD1CHS.getCH0SB0 : TBits_1; inline;
  46384. begin
  46385. getCH0SB0 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  46386. end;
  46387. procedure TADC10_AD1CHS.setCH0SB1; inline;
  46388. begin
  46389. pTDefRegMap(@Self)^.&set := $02000000;
  46390. end;
  46391. procedure TADC10_AD1CHS.clearCH0SB1; inline;
  46392. begin
  46393. pTDefRegMap(@Self)^.clr := $02000000;
  46394. end;
  46395. procedure TADC10_AD1CHS.setCH0SB1(thebits : TBits_1); inline;
  46396. begin
  46397. if thebits = 0 then
  46398. pTDefRegMap(@Self)^.clr := $02000000
  46399. else
  46400. pTDefRegMap(@Self)^.&set := $02000000;
  46401. end;
  46402. function TADC10_AD1CHS.getCH0SB1 : TBits_1; inline;
  46403. begin
  46404. getCH0SB1 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  46405. end;
  46406. procedure TADC10_AD1CHS.setCH0SB2; inline;
  46407. begin
  46408. pTDefRegMap(@Self)^.&set := $04000000;
  46409. end;
  46410. procedure TADC10_AD1CHS.clearCH0SB2; inline;
  46411. begin
  46412. pTDefRegMap(@Self)^.clr := $04000000;
  46413. end;
  46414. procedure TADC10_AD1CHS.setCH0SB2(thebits : TBits_1); inline;
  46415. begin
  46416. if thebits = 0 then
  46417. pTDefRegMap(@Self)^.clr := $04000000
  46418. else
  46419. pTDefRegMap(@Self)^.&set := $04000000;
  46420. end;
  46421. function TADC10_AD1CHS.getCH0SB2 : TBits_1; inline;
  46422. begin
  46423. getCH0SB2 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  46424. end;
  46425. procedure TADC10_AD1CHS.setCH0SB3; inline;
  46426. begin
  46427. pTDefRegMap(@Self)^.&set := $08000000;
  46428. end;
  46429. procedure TADC10_AD1CHS.clearCH0SB3; inline;
  46430. begin
  46431. pTDefRegMap(@Self)^.clr := $08000000;
  46432. end;
  46433. procedure TADC10_AD1CHS.setCH0SB3(thebits : TBits_1); inline;
  46434. begin
  46435. if thebits = 0 then
  46436. pTDefRegMap(@Self)^.clr := $08000000
  46437. else
  46438. pTDefRegMap(@Self)^.&set := $08000000;
  46439. end;
  46440. function TADC10_AD1CHS.getCH0SB3 : TBits_1; inline;
  46441. begin
  46442. getCH0SB3 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  46443. end;
  46444. procedure TADC10_AD1CHS.setw(thebits : TBits_32); inline;
  46445. begin
  46446. pTDefRegMap(@Self)^.val := thebits;
  46447. end;
  46448. function TADC10_AD1CHS.getw : TBits_32; inline;
  46449. begin
  46450. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  46451. end;
  46452. procedure TADC10_AD1CSSL.setCSSL(thebits : TBits_16); inline;
  46453. begin
  46454. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  46455. end;
  46456. function TADC10_AD1CSSL.getCSSL : TBits_16; inline;
  46457. begin
  46458. getCSSL := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  46459. end;
  46460. procedure TADC10_AD1CSSL.setCSSL0; inline;
  46461. begin
  46462. pTDefRegMap(@Self)^.&set := $00000001;
  46463. end;
  46464. procedure TADC10_AD1CSSL.clearCSSL0; inline;
  46465. begin
  46466. pTDefRegMap(@Self)^.clr := $00000001;
  46467. end;
  46468. procedure TADC10_AD1CSSL.setCSSL0(thebits : TBits_1); inline;
  46469. begin
  46470. if thebits = 0 then
  46471. pTDefRegMap(@Self)^.clr := $00000001
  46472. else
  46473. pTDefRegMap(@Self)^.&set := $00000001;
  46474. end;
  46475. function TADC10_AD1CSSL.getCSSL0 : TBits_1; inline;
  46476. begin
  46477. getCSSL0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  46478. end;
  46479. procedure TADC10_AD1CSSL.setCSSL1; inline;
  46480. begin
  46481. pTDefRegMap(@Self)^.&set := $00000002;
  46482. end;
  46483. procedure TADC10_AD1CSSL.clearCSSL1; inline;
  46484. begin
  46485. pTDefRegMap(@Self)^.clr := $00000002;
  46486. end;
  46487. procedure TADC10_AD1CSSL.setCSSL1(thebits : TBits_1); inline;
  46488. begin
  46489. if thebits = 0 then
  46490. pTDefRegMap(@Self)^.clr := $00000002
  46491. else
  46492. pTDefRegMap(@Self)^.&set := $00000002;
  46493. end;
  46494. function TADC10_AD1CSSL.getCSSL1 : TBits_1; inline;
  46495. begin
  46496. getCSSL1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  46497. end;
  46498. procedure TADC10_AD1CSSL.setCSSL2; inline;
  46499. begin
  46500. pTDefRegMap(@Self)^.&set := $00000004;
  46501. end;
  46502. procedure TADC10_AD1CSSL.clearCSSL2; inline;
  46503. begin
  46504. pTDefRegMap(@Self)^.clr := $00000004;
  46505. end;
  46506. procedure TADC10_AD1CSSL.setCSSL2(thebits : TBits_1); inline;
  46507. begin
  46508. if thebits = 0 then
  46509. pTDefRegMap(@Self)^.clr := $00000004
  46510. else
  46511. pTDefRegMap(@Self)^.&set := $00000004;
  46512. end;
  46513. function TADC10_AD1CSSL.getCSSL2 : TBits_1; inline;
  46514. begin
  46515. getCSSL2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  46516. end;
  46517. procedure TADC10_AD1CSSL.setCSSL3; inline;
  46518. begin
  46519. pTDefRegMap(@Self)^.&set := $00000008;
  46520. end;
  46521. procedure TADC10_AD1CSSL.clearCSSL3; inline;
  46522. begin
  46523. pTDefRegMap(@Self)^.clr := $00000008;
  46524. end;
  46525. procedure TADC10_AD1CSSL.setCSSL3(thebits : TBits_1); inline;
  46526. begin
  46527. if thebits = 0 then
  46528. pTDefRegMap(@Self)^.clr := $00000008
  46529. else
  46530. pTDefRegMap(@Self)^.&set := $00000008;
  46531. end;
  46532. function TADC10_AD1CSSL.getCSSL3 : TBits_1; inline;
  46533. begin
  46534. getCSSL3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  46535. end;
  46536. procedure TADC10_AD1CSSL.setCSSL4; inline;
  46537. begin
  46538. pTDefRegMap(@Self)^.&set := $00000010;
  46539. end;
  46540. procedure TADC10_AD1CSSL.clearCSSL4; inline;
  46541. begin
  46542. pTDefRegMap(@Self)^.clr := $00000010;
  46543. end;
  46544. procedure TADC10_AD1CSSL.setCSSL4(thebits : TBits_1); inline;
  46545. begin
  46546. if thebits = 0 then
  46547. pTDefRegMap(@Self)^.clr := $00000010
  46548. else
  46549. pTDefRegMap(@Self)^.&set := $00000010;
  46550. end;
  46551. function TADC10_AD1CSSL.getCSSL4 : TBits_1; inline;
  46552. begin
  46553. getCSSL4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  46554. end;
  46555. procedure TADC10_AD1CSSL.setCSSL5; inline;
  46556. begin
  46557. pTDefRegMap(@Self)^.&set := $00000020;
  46558. end;
  46559. procedure TADC10_AD1CSSL.clearCSSL5; inline;
  46560. begin
  46561. pTDefRegMap(@Self)^.clr := $00000020;
  46562. end;
  46563. procedure TADC10_AD1CSSL.setCSSL5(thebits : TBits_1); inline;
  46564. begin
  46565. if thebits = 0 then
  46566. pTDefRegMap(@Self)^.clr := $00000020
  46567. else
  46568. pTDefRegMap(@Self)^.&set := $00000020;
  46569. end;
  46570. function TADC10_AD1CSSL.getCSSL5 : TBits_1; inline;
  46571. begin
  46572. getCSSL5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  46573. end;
  46574. procedure TADC10_AD1CSSL.setCSSL6; inline;
  46575. begin
  46576. pTDefRegMap(@Self)^.&set := $00000040;
  46577. end;
  46578. procedure TADC10_AD1CSSL.clearCSSL6; inline;
  46579. begin
  46580. pTDefRegMap(@Self)^.clr := $00000040;
  46581. end;
  46582. procedure TADC10_AD1CSSL.setCSSL6(thebits : TBits_1); inline;
  46583. begin
  46584. if thebits = 0 then
  46585. pTDefRegMap(@Self)^.clr := $00000040
  46586. else
  46587. pTDefRegMap(@Self)^.&set := $00000040;
  46588. end;
  46589. function TADC10_AD1CSSL.getCSSL6 : TBits_1; inline;
  46590. begin
  46591. getCSSL6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  46592. end;
  46593. procedure TADC10_AD1CSSL.setCSSL7; inline;
  46594. begin
  46595. pTDefRegMap(@Self)^.&set := $00000080;
  46596. end;
  46597. procedure TADC10_AD1CSSL.clearCSSL7; inline;
  46598. begin
  46599. pTDefRegMap(@Self)^.clr := $00000080;
  46600. end;
  46601. procedure TADC10_AD1CSSL.setCSSL7(thebits : TBits_1); inline;
  46602. begin
  46603. if thebits = 0 then
  46604. pTDefRegMap(@Self)^.clr := $00000080
  46605. else
  46606. pTDefRegMap(@Self)^.&set := $00000080;
  46607. end;
  46608. function TADC10_AD1CSSL.getCSSL7 : TBits_1; inline;
  46609. begin
  46610. getCSSL7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  46611. end;
  46612. procedure TADC10_AD1CSSL.setCSSL8; inline;
  46613. begin
  46614. pTDefRegMap(@Self)^.&set := $00000100;
  46615. end;
  46616. procedure TADC10_AD1CSSL.clearCSSL8; inline;
  46617. begin
  46618. pTDefRegMap(@Self)^.clr := $00000100;
  46619. end;
  46620. procedure TADC10_AD1CSSL.setCSSL8(thebits : TBits_1); inline;
  46621. begin
  46622. if thebits = 0 then
  46623. pTDefRegMap(@Self)^.clr := $00000100
  46624. else
  46625. pTDefRegMap(@Self)^.&set := $00000100;
  46626. end;
  46627. function TADC10_AD1CSSL.getCSSL8 : TBits_1; inline;
  46628. begin
  46629. getCSSL8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  46630. end;
  46631. procedure TADC10_AD1CSSL.setCSSL9; inline;
  46632. begin
  46633. pTDefRegMap(@Self)^.&set := $00000200;
  46634. end;
  46635. procedure TADC10_AD1CSSL.clearCSSL9; inline;
  46636. begin
  46637. pTDefRegMap(@Self)^.clr := $00000200;
  46638. end;
  46639. procedure TADC10_AD1CSSL.setCSSL9(thebits : TBits_1); inline;
  46640. begin
  46641. if thebits = 0 then
  46642. pTDefRegMap(@Self)^.clr := $00000200
  46643. else
  46644. pTDefRegMap(@Self)^.&set := $00000200;
  46645. end;
  46646. function TADC10_AD1CSSL.getCSSL9 : TBits_1; inline;
  46647. begin
  46648. getCSSL9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  46649. end;
  46650. procedure TADC10_AD1CSSL.setCSSL10; inline;
  46651. begin
  46652. pTDefRegMap(@Self)^.&set := $00000400;
  46653. end;
  46654. procedure TADC10_AD1CSSL.clearCSSL10; inline;
  46655. begin
  46656. pTDefRegMap(@Self)^.clr := $00000400;
  46657. end;
  46658. procedure TADC10_AD1CSSL.setCSSL10(thebits : TBits_1); inline;
  46659. begin
  46660. if thebits = 0 then
  46661. pTDefRegMap(@Self)^.clr := $00000400
  46662. else
  46663. pTDefRegMap(@Self)^.&set := $00000400;
  46664. end;
  46665. function TADC10_AD1CSSL.getCSSL10 : TBits_1; inline;
  46666. begin
  46667. getCSSL10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  46668. end;
  46669. procedure TADC10_AD1CSSL.setCSSL11; inline;
  46670. begin
  46671. pTDefRegMap(@Self)^.&set := $00000800;
  46672. end;
  46673. procedure TADC10_AD1CSSL.clearCSSL11; inline;
  46674. begin
  46675. pTDefRegMap(@Self)^.clr := $00000800;
  46676. end;
  46677. procedure TADC10_AD1CSSL.setCSSL11(thebits : TBits_1); inline;
  46678. begin
  46679. if thebits = 0 then
  46680. pTDefRegMap(@Self)^.clr := $00000800
  46681. else
  46682. pTDefRegMap(@Self)^.&set := $00000800;
  46683. end;
  46684. function TADC10_AD1CSSL.getCSSL11 : TBits_1; inline;
  46685. begin
  46686. getCSSL11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  46687. end;
  46688. procedure TADC10_AD1CSSL.setCSSL12; inline;
  46689. begin
  46690. pTDefRegMap(@Self)^.&set := $00001000;
  46691. end;
  46692. procedure TADC10_AD1CSSL.clearCSSL12; inline;
  46693. begin
  46694. pTDefRegMap(@Self)^.clr := $00001000;
  46695. end;
  46696. procedure TADC10_AD1CSSL.setCSSL12(thebits : TBits_1); inline;
  46697. begin
  46698. if thebits = 0 then
  46699. pTDefRegMap(@Self)^.clr := $00001000
  46700. else
  46701. pTDefRegMap(@Self)^.&set := $00001000;
  46702. end;
  46703. function TADC10_AD1CSSL.getCSSL12 : TBits_1; inline;
  46704. begin
  46705. getCSSL12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  46706. end;
  46707. procedure TADC10_AD1CSSL.setCSSL13; inline;
  46708. begin
  46709. pTDefRegMap(@Self)^.&set := $00002000;
  46710. end;
  46711. procedure TADC10_AD1CSSL.clearCSSL13; inline;
  46712. begin
  46713. pTDefRegMap(@Self)^.clr := $00002000;
  46714. end;
  46715. procedure TADC10_AD1CSSL.setCSSL13(thebits : TBits_1); inline;
  46716. begin
  46717. if thebits = 0 then
  46718. pTDefRegMap(@Self)^.clr := $00002000
  46719. else
  46720. pTDefRegMap(@Self)^.&set := $00002000;
  46721. end;
  46722. function TADC10_AD1CSSL.getCSSL13 : TBits_1; inline;
  46723. begin
  46724. getCSSL13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  46725. end;
  46726. procedure TADC10_AD1CSSL.setCSSL14; inline;
  46727. begin
  46728. pTDefRegMap(@Self)^.&set := $00004000;
  46729. end;
  46730. procedure TADC10_AD1CSSL.clearCSSL14; inline;
  46731. begin
  46732. pTDefRegMap(@Self)^.clr := $00004000;
  46733. end;
  46734. procedure TADC10_AD1CSSL.setCSSL14(thebits : TBits_1); inline;
  46735. begin
  46736. if thebits = 0 then
  46737. pTDefRegMap(@Self)^.clr := $00004000
  46738. else
  46739. pTDefRegMap(@Self)^.&set := $00004000;
  46740. end;
  46741. function TADC10_AD1CSSL.getCSSL14 : TBits_1; inline;
  46742. begin
  46743. getCSSL14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  46744. end;
  46745. procedure TADC10_AD1CSSL.setCSSL15; inline;
  46746. begin
  46747. pTDefRegMap(@Self)^.&set := $00008000;
  46748. end;
  46749. procedure TADC10_AD1CSSL.clearCSSL15; inline;
  46750. begin
  46751. pTDefRegMap(@Self)^.clr := $00008000;
  46752. end;
  46753. procedure TADC10_AD1CSSL.setCSSL15(thebits : TBits_1); inline;
  46754. begin
  46755. if thebits = 0 then
  46756. pTDefRegMap(@Self)^.clr := $00008000
  46757. else
  46758. pTDefRegMap(@Self)^.&set := $00008000;
  46759. end;
  46760. function TADC10_AD1CSSL.getCSSL15 : TBits_1; inline;
  46761. begin
  46762. getCSSL15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  46763. end;
  46764. procedure TADC10_AD1CSSL.setw(thebits : TBits_32); inline;
  46765. begin
  46766. pTDefRegMap(@Self)^.val := thebits;
  46767. end;
  46768. function TADC10_AD1CSSL.getw : TBits_32; inline;
  46769. begin
  46770. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  46771. end;
  46772. procedure TADC10_AD1PCFG.setPCFG(thebits : TBits_16); inline;
  46773. begin
  46774. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  46775. end;
  46776. function TADC10_AD1PCFG.getPCFG : TBits_16; inline;
  46777. begin
  46778. getPCFG := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  46779. end;
  46780. procedure TADC10_AD1PCFG.setPCFG0; inline;
  46781. begin
  46782. pTDefRegMap(@Self)^.&set := $00000001;
  46783. end;
  46784. procedure TADC10_AD1PCFG.clearPCFG0; inline;
  46785. begin
  46786. pTDefRegMap(@Self)^.clr := $00000001;
  46787. end;
  46788. procedure TADC10_AD1PCFG.setPCFG0(thebits : TBits_1); inline;
  46789. begin
  46790. if thebits = 0 then
  46791. pTDefRegMap(@Self)^.clr := $00000001
  46792. else
  46793. pTDefRegMap(@Self)^.&set := $00000001;
  46794. end;
  46795. function TADC10_AD1PCFG.getPCFG0 : TBits_1; inline;
  46796. begin
  46797. getPCFG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  46798. end;
  46799. procedure TADC10_AD1PCFG.setPCFG1; inline;
  46800. begin
  46801. pTDefRegMap(@Self)^.&set := $00000002;
  46802. end;
  46803. procedure TADC10_AD1PCFG.clearPCFG1; inline;
  46804. begin
  46805. pTDefRegMap(@Self)^.clr := $00000002;
  46806. end;
  46807. procedure TADC10_AD1PCFG.setPCFG1(thebits : TBits_1); inline;
  46808. begin
  46809. if thebits = 0 then
  46810. pTDefRegMap(@Self)^.clr := $00000002
  46811. else
  46812. pTDefRegMap(@Self)^.&set := $00000002;
  46813. end;
  46814. function TADC10_AD1PCFG.getPCFG1 : TBits_1; inline;
  46815. begin
  46816. getPCFG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  46817. end;
  46818. procedure TADC10_AD1PCFG.setPCFG2; inline;
  46819. begin
  46820. pTDefRegMap(@Self)^.&set := $00000004;
  46821. end;
  46822. procedure TADC10_AD1PCFG.clearPCFG2; inline;
  46823. begin
  46824. pTDefRegMap(@Self)^.clr := $00000004;
  46825. end;
  46826. procedure TADC10_AD1PCFG.setPCFG2(thebits : TBits_1); inline;
  46827. begin
  46828. if thebits = 0 then
  46829. pTDefRegMap(@Self)^.clr := $00000004
  46830. else
  46831. pTDefRegMap(@Self)^.&set := $00000004;
  46832. end;
  46833. function TADC10_AD1PCFG.getPCFG2 : TBits_1; inline;
  46834. begin
  46835. getPCFG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  46836. end;
  46837. procedure TADC10_AD1PCFG.setPCFG3; inline;
  46838. begin
  46839. pTDefRegMap(@Self)^.&set := $00000008;
  46840. end;
  46841. procedure TADC10_AD1PCFG.clearPCFG3; inline;
  46842. begin
  46843. pTDefRegMap(@Self)^.clr := $00000008;
  46844. end;
  46845. procedure TADC10_AD1PCFG.setPCFG3(thebits : TBits_1); inline;
  46846. begin
  46847. if thebits = 0 then
  46848. pTDefRegMap(@Self)^.clr := $00000008
  46849. else
  46850. pTDefRegMap(@Self)^.&set := $00000008;
  46851. end;
  46852. function TADC10_AD1PCFG.getPCFG3 : TBits_1; inline;
  46853. begin
  46854. getPCFG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  46855. end;
  46856. procedure TADC10_AD1PCFG.setPCFG4; inline;
  46857. begin
  46858. pTDefRegMap(@Self)^.&set := $00000010;
  46859. end;
  46860. procedure TADC10_AD1PCFG.clearPCFG4; inline;
  46861. begin
  46862. pTDefRegMap(@Self)^.clr := $00000010;
  46863. end;
  46864. procedure TADC10_AD1PCFG.setPCFG4(thebits : TBits_1); inline;
  46865. begin
  46866. if thebits = 0 then
  46867. pTDefRegMap(@Self)^.clr := $00000010
  46868. else
  46869. pTDefRegMap(@Self)^.&set := $00000010;
  46870. end;
  46871. function TADC10_AD1PCFG.getPCFG4 : TBits_1; inline;
  46872. begin
  46873. getPCFG4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  46874. end;
  46875. procedure TADC10_AD1PCFG.setPCFG5; inline;
  46876. begin
  46877. pTDefRegMap(@Self)^.&set := $00000020;
  46878. end;
  46879. procedure TADC10_AD1PCFG.clearPCFG5; inline;
  46880. begin
  46881. pTDefRegMap(@Self)^.clr := $00000020;
  46882. end;
  46883. procedure TADC10_AD1PCFG.setPCFG5(thebits : TBits_1); inline;
  46884. begin
  46885. if thebits = 0 then
  46886. pTDefRegMap(@Self)^.clr := $00000020
  46887. else
  46888. pTDefRegMap(@Self)^.&set := $00000020;
  46889. end;
  46890. function TADC10_AD1PCFG.getPCFG5 : TBits_1; inline;
  46891. begin
  46892. getPCFG5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  46893. end;
  46894. procedure TADC10_AD1PCFG.setPCFG6; inline;
  46895. begin
  46896. pTDefRegMap(@Self)^.&set := $00000040;
  46897. end;
  46898. procedure TADC10_AD1PCFG.clearPCFG6; inline;
  46899. begin
  46900. pTDefRegMap(@Self)^.clr := $00000040;
  46901. end;
  46902. procedure TADC10_AD1PCFG.setPCFG6(thebits : TBits_1); inline;
  46903. begin
  46904. if thebits = 0 then
  46905. pTDefRegMap(@Self)^.clr := $00000040
  46906. else
  46907. pTDefRegMap(@Self)^.&set := $00000040;
  46908. end;
  46909. function TADC10_AD1PCFG.getPCFG6 : TBits_1; inline;
  46910. begin
  46911. getPCFG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  46912. end;
  46913. procedure TADC10_AD1PCFG.setPCFG7; inline;
  46914. begin
  46915. pTDefRegMap(@Self)^.&set := $00000080;
  46916. end;
  46917. procedure TADC10_AD1PCFG.clearPCFG7; inline;
  46918. begin
  46919. pTDefRegMap(@Self)^.clr := $00000080;
  46920. end;
  46921. procedure TADC10_AD1PCFG.setPCFG7(thebits : TBits_1); inline;
  46922. begin
  46923. if thebits = 0 then
  46924. pTDefRegMap(@Self)^.clr := $00000080
  46925. else
  46926. pTDefRegMap(@Self)^.&set := $00000080;
  46927. end;
  46928. function TADC10_AD1PCFG.getPCFG7 : TBits_1; inline;
  46929. begin
  46930. getPCFG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  46931. end;
  46932. procedure TADC10_AD1PCFG.setPCFG8; inline;
  46933. begin
  46934. pTDefRegMap(@Self)^.&set := $00000100;
  46935. end;
  46936. procedure TADC10_AD1PCFG.clearPCFG8; inline;
  46937. begin
  46938. pTDefRegMap(@Self)^.clr := $00000100;
  46939. end;
  46940. procedure TADC10_AD1PCFG.setPCFG8(thebits : TBits_1); inline;
  46941. begin
  46942. if thebits = 0 then
  46943. pTDefRegMap(@Self)^.clr := $00000100
  46944. else
  46945. pTDefRegMap(@Self)^.&set := $00000100;
  46946. end;
  46947. function TADC10_AD1PCFG.getPCFG8 : TBits_1; inline;
  46948. begin
  46949. getPCFG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  46950. end;
  46951. procedure TADC10_AD1PCFG.setPCFG9; inline;
  46952. begin
  46953. pTDefRegMap(@Self)^.&set := $00000200;
  46954. end;
  46955. procedure TADC10_AD1PCFG.clearPCFG9; inline;
  46956. begin
  46957. pTDefRegMap(@Self)^.clr := $00000200;
  46958. end;
  46959. procedure TADC10_AD1PCFG.setPCFG9(thebits : TBits_1); inline;
  46960. begin
  46961. if thebits = 0 then
  46962. pTDefRegMap(@Self)^.clr := $00000200
  46963. else
  46964. pTDefRegMap(@Self)^.&set := $00000200;
  46965. end;
  46966. function TADC10_AD1PCFG.getPCFG9 : TBits_1; inline;
  46967. begin
  46968. getPCFG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  46969. end;
  46970. procedure TADC10_AD1PCFG.setPCFG10; inline;
  46971. begin
  46972. pTDefRegMap(@Self)^.&set := $00000400;
  46973. end;
  46974. procedure TADC10_AD1PCFG.clearPCFG10; inline;
  46975. begin
  46976. pTDefRegMap(@Self)^.clr := $00000400;
  46977. end;
  46978. procedure TADC10_AD1PCFG.setPCFG10(thebits : TBits_1); inline;
  46979. begin
  46980. if thebits = 0 then
  46981. pTDefRegMap(@Self)^.clr := $00000400
  46982. else
  46983. pTDefRegMap(@Self)^.&set := $00000400;
  46984. end;
  46985. function TADC10_AD1PCFG.getPCFG10 : TBits_1; inline;
  46986. begin
  46987. getPCFG10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  46988. end;
  46989. procedure TADC10_AD1PCFG.setPCFG11; inline;
  46990. begin
  46991. pTDefRegMap(@Self)^.&set := $00000800;
  46992. end;
  46993. procedure TADC10_AD1PCFG.clearPCFG11; inline;
  46994. begin
  46995. pTDefRegMap(@Self)^.clr := $00000800;
  46996. end;
  46997. procedure TADC10_AD1PCFG.setPCFG11(thebits : TBits_1); inline;
  46998. begin
  46999. if thebits = 0 then
  47000. pTDefRegMap(@Self)^.clr := $00000800
  47001. else
  47002. pTDefRegMap(@Self)^.&set := $00000800;
  47003. end;
  47004. function TADC10_AD1PCFG.getPCFG11 : TBits_1; inline;
  47005. begin
  47006. getPCFG11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  47007. end;
  47008. procedure TADC10_AD1PCFG.setPCFG12; inline;
  47009. begin
  47010. pTDefRegMap(@Self)^.&set := $00001000;
  47011. end;
  47012. procedure TADC10_AD1PCFG.clearPCFG12; inline;
  47013. begin
  47014. pTDefRegMap(@Self)^.clr := $00001000;
  47015. end;
  47016. procedure TADC10_AD1PCFG.setPCFG12(thebits : TBits_1); inline;
  47017. begin
  47018. if thebits = 0 then
  47019. pTDefRegMap(@Self)^.clr := $00001000
  47020. else
  47021. pTDefRegMap(@Self)^.&set := $00001000;
  47022. end;
  47023. function TADC10_AD1PCFG.getPCFG12 : TBits_1; inline;
  47024. begin
  47025. getPCFG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  47026. end;
  47027. procedure TADC10_AD1PCFG.setPCFG13; inline;
  47028. begin
  47029. pTDefRegMap(@Self)^.&set := $00002000;
  47030. end;
  47031. procedure TADC10_AD1PCFG.clearPCFG13; inline;
  47032. begin
  47033. pTDefRegMap(@Self)^.clr := $00002000;
  47034. end;
  47035. procedure TADC10_AD1PCFG.setPCFG13(thebits : TBits_1); inline;
  47036. begin
  47037. if thebits = 0 then
  47038. pTDefRegMap(@Self)^.clr := $00002000
  47039. else
  47040. pTDefRegMap(@Self)^.&set := $00002000;
  47041. end;
  47042. function TADC10_AD1PCFG.getPCFG13 : TBits_1; inline;
  47043. begin
  47044. getPCFG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  47045. end;
  47046. procedure TADC10_AD1PCFG.setPCFG14; inline;
  47047. begin
  47048. pTDefRegMap(@Self)^.&set := $00004000;
  47049. end;
  47050. procedure TADC10_AD1PCFG.clearPCFG14; inline;
  47051. begin
  47052. pTDefRegMap(@Self)^.clr := $00004000;
  47053. end;
  47054. procedure TADC10_AD1PCFG.setPCFG14(thebits : TBits_1); inline;
  47055. begin
  47056. if thebits = 0 then
  47057. pTDefRegMap(@Self)^.clr := $00004000
  47058. else
  47059. pTDefRegMap(@Self)^.&set := $00004000;
  47060. end;
  47061. function TADC10_AD1PCFG.getPCFG14 : TBits_1; inline;
  47062. begin
  47063. getPCFG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  47064. end;
  47065. procedure TADC10_AD1PCFG.setPCFG15; inline;
  47066. begin
  47067. pTDefRegMap(@Self)^.&set := $00008000;
  47068. end;
  47069. procedure TADC10_AD1PCFG.clearPCFG15; inline;
  47070. begin
  47071. pTDefRegMap(@Self)^.clr := $00008000;
  47072. end;
  47073. procedure TADC10_AD1PCFG.setPCFG15(thebits : TBits_1); inline;
  47074. begin
  47075. if thebits = 0 then
  47076. pTDefRegMap(@Self)^.clr := $00008000
  47077. else
  47078. pTDefRegMap(@Self)^.&set := $00008000;
  47079. end;
  47080. function TADC10_AD1PCFG.getPCFG15 : TBits_1; inline;
  47081. begin
  47082. getPCFG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  47083. end;
  47084. procedure TADC10_AD1PCFG.setw(thebits : TBits_32); inline;
  47085. begin
  47086. pTDefRegMap(@Self)^.val := thebits;
  47087. end;
  47088. function TADC10_AD1PCFG.getw : TBits_32; inline;
  47089. begin
  47090. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  47091. end;
  47092. procedure TCVR_CVRCON.setCVR(thebits : TBits_4); inline;
  47093. begin
  47094. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  47095. end;
  47096. function TCVR_CVRCON.getCVR : TBits_4; inline;
  47097. begin
  47098. getCVR := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  47099. end;
  47100. procedure TCVR_CVRCON.setCVRSS; inline;
  47101. begin
  47102. pTDefRegMap(@Self)^.&set := $00000010;
  47103. end;
  47104. procedure TCVR_CVRCON.clearCVRSS; inline;
  47105. begin
  47106. pTDefRegMap(@Self)^.clr := $00000010;
  47107. end;
  47108. procedure TCVR_CVRCON.setCVRSS(thebits : TBits_1); inline;
  47109. begin
  47110. if thebits = 0 then
  47111. pTDefRegMap(@Self)^.clr := $00000010
  47112. else
  47113. pTDefRegMap(@Self)^.&set := $00000010;
  47114. end;
  47115. function TCVR_CVRCON.getCVRSS : TBits_1; inline;
  47116. begin
  47117. getCVRSS := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  47118. end;
  47119. procedure TCVR_CVRCON.setCVRR; inline;
  47120. begin
  47121. pTDefRegMap(@Self)^.&set := $00000020;
  47122. end;
  47123. procedure TCVR_CVRCON.clearCVRR; inline;
  47124. begin
  47125. pTDefRegMap(@Self)^.clr := $00000020;
  47126. end;
  47127. procedure TCVR_CVRCON.setCVRR(thebits : TBits_1); inline;
  47128. begin
  47129. if thebits = 0 then
  47130. pTDefRegMap(@Self)^.clr := $00000020
  47131. else
  47132. pTDefRegMap(@Self)^.&set := $00000020;
  47133. end;
  47134. function TCVR_CVRCON.getCVRR : TBits_1; inline;
  47135. begin
  47136. getCVRR := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  47137. end;
  47138. procedure TCVR_CVRCON.setCVROE; inline;
  47139. begin
  47140. pTDefRegMap(@Self)^.&set := $00000040;
  47141. end;
  47142. procedure TCVR_CVRCON.clearCVROE; inline;
  47143. begin
  47144. pTDefRegMap(@Self)^.clr := $00000040;
  47145. end;
  47146. procedure TCVR_CVRCON.setCVROE(thebits : TBits_1); inline;
  47147. begin
  47148. if thebits = 0 then
  47149. pTDefRegMap(@Self)^.clr := $00000040
  47150. else
  47151. pTDefRegMap(@Self)^.&set := $00000040;
  47152. end;
  47153. function TCVR_CVRCON.getCVROE : TBits_1; inline;
  47154. begin
  47155. getCVROE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  47156. end;
  47157. procedure TCVR_CVRCON.setBGSEL(thebits : TBits_2); inline;
  47158. begin
  47159. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  47160. end;
  47161. function TCVR_CVRCON.getBGSEL : TBits_2; inline;
  47162. begin
  47163. getBGSEL := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  47164. end;
  47165. procedure TCVR_CVRCON.setVREFSEL; inline;
  47166. begin
  47167. pTDefRegMap(@Self)^.&set := $00000400;
  47168. end;
  47169. procedure TCVR_CVRCON.clearVREFSEL; inline;
  47170. begin
  47171. pTDefRegMap(@Self)^.clr := $00000400;
  47172. end;
  47173. procedure TCVR_CVRCON.setVREFSEL(thebits : TBits_1); inline;
  47174. begin
  47175. if thebits = 0 then
  47176. pTDefRegMap(@Self)^.clr := $00000400
  47177. else
  47178. pTDefRegMap(@Self)^.&set := $00000400;
  47179. end;
  47180. function TCVR_CVRCON.getVREFSEL : TBits_1; inline;
  47181. begin
  47182. getVREFSEL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  47183. end;
  47184. procedure TCVR_CVRCON.setON; inline;
  47185. begin
  47186. pTDefRegMap(@Self)^.&set := $00008000;
  47187. end;
  47188. procedure TCVR_CVRCON.clearON; inline;
  47189. begin
  47190. pTDefRegMap(@Self)^.clr := $00008000;
  47191. end;
  47192. procedure TCVR_CVRCON.setON(thebits : TBits_1); inline;
  47193. begin
  47194. if thebits = 0 then
  47195. pTDefRegMap(@Self)^.clr := $00008000
  47196. else
  47197. pTDefRegMap(@Self)^.&set := $00008000;
  47198. end;
  47199. function TCVR_CVRCON.getON : TBits_1; inline;
  47200. begin
  47201. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  47202. end;
  47203. procedure TCVR_CVRCON.setCVR0; inline;
  47204. begin
  47205. pTDefRegMap(@Self)^.&set := $00000001;
  47206. end;
  47207. procedure TCVR_CVRCON.clearCVR0; inline;
  47208. begin
  47209. pTDefRegMap(@Self)^.clr := $00000001;
  47210. end;
  47211. procedure TCVR_CVRCON.setCVR0(thebits : TBits_1); inline;
  47212. begin
  47213. if thebits = 0 then
  47214. pTDefRegMap(@Self)^.clr := $00000001
  47215. else
  47216. pTDefRegMap(@Self)^.&set := $00000001;
  47217. end;
  47218. function TCVR_CVRCON.getCVR0 : TBits_1; inline;
  47219. begin
  47220. getCVR0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  47221. end;
  47222. procedure TCVR_CVRCON.setCVR1; inline;
  47223. begin
  47224. pTDefRegMap(@Self)^.&set := $00000002;
  47225. end;
  47226. procedure TCVR_CVRCON.clearCVR1; inline;
  47227. begin
  47228. pTDefRegMap(@Self)^.clr := $00000002;
  47229. end;
  47230. procedure TCVR_CVRCON.setCVR1(thebits : TBits_1); inline;
  47231. begin
  47232. if thebits = 0 then
  47233. pTDefRegMap(@Self)^.clr := $00000002
  47234. else
  47235. pTDefRegMap(@Self)^.&set := $00000002;
  47236. end;
  47237. function TCVR_CVRCON.getCVR1 : TBits_1; inline;
  47238. begin
  47239. getCVR1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  47240. end;
  47241. procedure TCVR_CVRCON.setCVR2; inline;
  47242. begin
  47243. pTDefRegMap(@Self)^.&set := $00000004;
  47244. end;
  47245. procedure TCVR_CVRCON.clearCVR2; inline;
  47246. begin
  47247. pTDefRegMap(@Self)^.clr := $00000004;
  47248. end;
  47249. procedure TCVR_CVRCON.setCVR2(thebits : TBits_1); inline;
  47250. begin
  47251. if thebits = 0 then
  47252. pTDefRegMap(@Self)^.clr := $00000004
  47253. else
  47254. pTDefRegMap(@Self)^.&set := $00000004;
  47255. end;
  47256. function TCVR_CVRCON.getCVR2 : TBits_1; inline;
  47257. begin
  47258. getCVR2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  47259. end;
  47260. procedure TCVR_CVRCON.setCVR3; inline;
  47261. begin
  47262. pTDefRegMap(@Self)^.&set := $00000008;
  47263. end;
  47264. procedure TCVR_CVRCON.clearCVR3; inline;
  47265. begin
  47266. pTDefRegMap(@Self)^.clr := $00000008;
  47267. end;
  47268. procedure TCVR_CVRCON.setCVR3(thebits : TBits_1); inline;
  47269. begin
  47270. if thebits = 0 then
  47271. pTDefRegMap(@Self)^.clr := $00000008
  47272. else
  47273. pTDefRegMap(@Self)^.&set := $00000008;
  47274. end;
  47275. function TCVR_CVRCON.getCVR3 : TBits_1; inline;
  47276. begin
  47277. getCVR3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  47278. end;
  47279. procedure TCVR_CVRCON.setBGSEL0; inline;
  47280. begin
  47281. pTDefRegMap(@Self)^.&set := $00000100;
  47282. end;
  47283. procedure TCVR_CVRCON.clearBGSEL0; inline;
  47284. begin
  47285. pTDefRegMap(@Self)^.clr := $00000100;
  47286. end;
  47287. procedure TCVR_CVRCON.setBGSEL0(thebits : TBits_1); inline;
  47288. begin
  47289. if thebits = 0 then
  47290. pTDefRegMap(@Self)^.clr := $00000100
  47291. else
  47292. pTDefRegMap(@Self)^.&set := $00000100;
  47293. end;
  47294. function TCVR_CVRCON.getBGSEL0 : TBits_1; inline;
  47295. begin
  47296. getBGSEL0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  47297. end;
  47298. procedure TCVR_CVRCON.setBGSEL1; inline;
  47299. begin
  47300. pTDefRegMap(@Self)^.&set := $00000200;
  47301. end;
  47302. procedure TCVR_CVRCON.clearBGSEL1; inline;
  47303. begin
  47304. pTDefRegMap(@Self)^.clr := $00000200;
  47305. end;
  47306. procedure TCVR_CVRCON.setBGSEL1(thebits : TBits_1); inline;
  47307. begin
  47308. if thebits = 0 then
  47309. pTDefRegMap(@Self)^.clr := $00000200
  47310. else
  47311. pTDefRegMap(@Self)^.&set := $00000200;
  47312. end;
  47313. function TCVR_CVRCON.getBGSEL1 : TBits_1; inline;
  47314. begin
  47315. getBGSEL1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  47316. end;
  47317. procedure TCVR_CVRCON.setw(thebits : TBits_32); inline;
  47318. begin
  47319. pTDefRegMap(@Self)^.val := thebits;
  47320. end;
  47321. function TCVR_CVRCON.getw : TBits_32; inline;
  47322. begin
  47323. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  47324. end;
  47325. procedure TCMP_CM1CON.setCCH(thebits : TBits_2); inline;
  47326. begin
  47327. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  47328. end;
  47329. function TCMP_CM1CON.getCCH : TBits_2; inline;
  47330. begin
  47331. getCCH := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  47332. end;
  47333. procedure TCMP_CM1CON.setCREF; inline;
  47334. begin
  47335. pTDefRegMap(@Self)^.&set := $00000010;
  47336. end;
  47337. procedure TCMP_CM1CON.clearCREF; inline;
  47338. begin
  47339. pTDefRegMap(@Self)^.clr := $00000010;
  47340. end;
  47341. procedure TCMP_CM1CON.setCREF(thebits : TBits_1); inline;
  47342. begin
  47343. if thebits = 0 then
  47344. pTDefRegMap(@Self)^.clr := $00000010
  47345. else
  47346. pTDefRegMap(@Self)^.&set := $00000010;
  47347. end;
  47348. function TCMP_CM1CON.getCREF : TBits_1; inline;
  47349. begin
  47350. getCREF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  47351. end;
  47352. procedure TCMP_CM1CON.setEVPOL(thebits : TBits_2); inline;
  47353. begin
  47354. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  47355. end;
  47356. function TCMP_CM1CON.getEVPOL : TBits_2; inline;
  47357. begin
  47358. getEVPOL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  47359. end;
  47360. procedure TCMP_CM1CON.setCOUT; inline;
  47361. begin
  47362. pTDefRegMap(@Self)^.&set := $00000100;
  47363. end;
  47364. procedure TCMP_CM1CON.clearCOUT; inline;
  47365. begin
  47366. pTDefRegMap(@Self)^.clr := $00000100;
  47367. end;
  47368. procedure TCMP_CM1CON.setCOUT(thebits : TBits_1); inline;
  47369. begin
  47370. if thebits = 0 then
  47371. pTDefRegMap(@Self)^.clr := $00000100
  47372. else
  47373. pTDefRegMap(@Self)^.&set := $00000100;
  47374. end;
  47375. function TCMP_CM1CON.getCOUT : TBits_1; inline;
  47376. begin
  47377. getCOUT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  47378. end;
  47379. procedure TCMP_CM1CON.setCPOL; inline;
  47380. begin
  47381. pTDefRegMap(@Self)^.&set := $00002000;
  47382. end;
  47383. procedure TCMP_CM1CON.clearCPOL; inline;
  47384. begin
  47385. pTDefRegMap(@Self)^.clr := $00002000;
  47386. end;
  47387. procedure TCMP_CM1CON.setCPOL(thebits : TBits_1); inline;
  47388. begin
  47389. if thebits = 0 then
  47390. pTDefRegMap(@Self)^.clr := $00002000
  47391. else
  47392. pTDefRegMap(@Self)^.&set := $00002000;
  47393. end;
  47394. function TCMP_CM1CON.getCPOL : TBits_1; inline;
  47395. begin
  47396. getCPOL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  47397. end;
  47398. procedure TCMP_CM1CON.setCOE; inline;
  47399. begin
  47400. pTDefRegMap(@Self)^.&set := $00004000;
  47401. end;
  47402. procedure TCMP_CM1CON.clearCOE; inline;
  47403. begin
  47404. pTDefRegMap(@Self)^.clr := $00004000;
  47405. end;
  47406. procedure TCMP_CM1CON.setCOE(thebits : TBits_1); inline;
  47407. begin
  47408. if thebits = 0 then
  47409. pTDefRegMap(@Self)^.clr := $00004000
  47410. else
  47411. pTDefRegMap(@Self)^.&set := $00004000;
  47412. end;
  47413. function TCMP_CM1CON.getCOE : TBits_1; inline;
  47414. begin
  47415. getCOE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  47416. end;
  47417. procedure TCMP_CM1CON.setON; inline;
  47418. begin
  47419. pTDefRegMap(@Self)^.&set := $00008000;
  47420. end;
  47421. procedure TCMP_CM1CON.clearON; inline;
  47422. begin
  47423. pTDefRegMap(@Self)^.clr := $00008000;
  47424. end;
  47425. procedure TCMP_CM1CON.setON(thebits : TBits_1); inline;
  47426. begin
  47427. if thebits = 0 then
  47428. pTDefRegMap(@Self)^.clr := $00008000
  47429. else
  47430. pTDefRegMap(@Self)^.&set := $00008000;
  47431. end;
  47432. function TCMP_CM1CON.getON : TBits_1; inline;
  47433. begin
  47434. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  47435. end;
  47436. procedure TCMP_CM1CON.setCCH0; inline;
  47437. begin
  47438. pTDefRegMap(@Self)^.&set := $00000001;
  47439. end;
  47440. procedure TCMP_CM1CON.clearCCH0; inline;
  47441. begin
  47442. pTDefRegMap(@Self)^.clr := $00000001;
  47443. end;
  47444. procedure TCMP_CM1CON.setCCH0(thebits : TBits_1); inline;
  47445. begin
  47446. if thebits = 0 then
  47447. pTDefRegMap(@Self)^.clr := $00000001
  47448. else
  47449. pTDefRegMap(@Self)^.&set := $00000001;
  47450. end;
  47451. function TCMP_CM1CON.getCCH0 : TBits_1; inline;
  47452. begin
  47453. getCCH0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  47454. end;
  47455. procedure TCMP_CM1CON.setCCH1; inline;
  47456. begin
  47457. pTDefRegMap(@Self)^.&set := $00000002;
  47458. end;
  47459. procedure TCMP_CM1CON.clearCCH1; inline;
  47460. begin
  47461. pTDefRegMap(@Self)^.clr := $00000002;
  47462. end;
  47463. procedure TCMP_CM1CON.setCCH1(thebits : TBits_1); inline;
  47464. begin
  47465. if thebits = 0 then
  47466. pTDefRegMap(@Self)^.clr := $00000002
  47467. else
  47468. pTDefRegMap(@Self)^.&set := $00000002;
  47469. end;
  47470. function TCMP_CM1CON.getCCH1 : TBits_1; inline;
  47471. begin
  47472. getCCH1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  47473. end;
  47474. procedure TCMP_CM1CON.setEVPOL0; inline;
  47475. begin
  47476. pTDefRegMap(@Self)^.&set := $00000040;
  47477. end;
  47478. procedure TCMP_CM1CON.clearEVPOL0; inline;
  47479. begin
  47480. pTDefRegMap(@Self)^.clr := $00000040;
  47481. end;
  47482. procedure TCMP_CM1CON.setEVPOL0(thebits : TBits_1); inline;
  47483. begin
  47484. if thebits = 0 then
  47485. pTDefRegMap(@Self)^.clr := $00000040
  47486. else
  47487. pTDefRegMap(@Self)^.&set := $00000040;
  47488. end;
  47489. function TCMP_CM1CON.getEVPOL0 : TBits_1; inline;
  47490. begin
  47491. getEVPOL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  47492. end;
  47493. procedure TCMP_CM1CON.setEVPOL1; inline;
  47494. begin
  47495. pTDefRegMap(@Self)^.&set := $00000080;
  47496. end;
  47497. procedure TCMP_CM1CON.clearEVPOL1; inline;
  47498. begin
  47499. pTDefRegMap(@Self)^.clr := $00000080;
  47500. end;
  47501. procedure TCMP_CM1CON.setEVPOL1(thebits : TBits_1); inline;
  47502. begin
  47503. if thebits = 0 then
  47504. pTDefRegMap(@Self)^.clr := $00000080
  47505. else
  47506. pTDefRegMap(@Self)^.&set := $00000080;
  47507. end;
  47508. function TCMP_CM1CON.getEVPOL1 : TBits_1; inline;
  47509. begin
  47510. getEVPOL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  47511. end;
  47512. procedure TCMP_CM1CON.setw(thebits : TBits_32); inline;
  47513. begin
  47514. pTDefRegMap(@Self)^.val := thebits;
  47515. end;
  47516. function TCMP_CM1CON.getw : TBits_32; inline;
  47517. begin
  47518. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  47519. end;
  47520. procedure TCMP_CM2CON.setCCH(thebits : TBits_2); inline;
  47521. begin
  47522. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  47523. end;
  47524. function TCMP_CM2CON.getCCH : TBits_2; inline;
  47525. begin
  47526. getCCH := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  47527. end;
  47528. procedure TCMP_CM2CON.setCREF; inline;
  47529. begin
  47530. pTDefRegMap(@Self)^.&set := $00000010;
  47531. end;
  47532. procedure TCMP_CM2CON.clearCREF; inline;
  47533. begin
  47534. pTDefRegMap(@Self)^.clr := $00000010;
  47535. end;
  47536. procedure TCMP_CM2CON.setCREF(thebits : TBits_1); inline;
  47537. begin
  47538. if thebits = 0 then
  47539. pTDefRegMap(@Self)^.clr := $00000010
  47540. else
  47541. pTDefRegMap(@Self)^.&set := $00000010;
  47542. end;
  47543. function TCMP_CM2CON.getCREF : TBits_1; inline;
  47544. begin
  47545. getCREF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  47546. end;
  47547. procedure TCMP_CM2CON.setEVPOL(thebits : TBits_2); inline;
  47548. begin
  47549. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  47550. end;
  47551. function TCMP_CM2CON.getEVPOL : TBits_2; inline;
  47552. begin
  47553. getEVPOL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  47554. end;
  47555. procedure TCMP_CM2CON.setCOUT; inline;
  47556. begin
  47557. pTDefRegMap(@Self)^.&set := $00000100;
  47558. end;
  47559. procedure TCMP_CM2CON.clearCOUT; inline;
  47560. begin
  47561. pTDefRegMap(@Self)^.clr := $00000100;
  47562. end;
  47563. procedure TCMP_CM2CON.setCOUT(thebits : TBits_1); inline;
  47564. begin
  47565. if thebits = 0 then
  47566. pTDefRegMap(@Self)^.clr := $00000100
  47567. else
  47568. pTDefRegMap(@Self)^.&set := $00000100;
  47569. end;
  47570. function TCMP_CM2CON.getCOUT : TBits_1; inline;
  47571. begin
  47572. getCOUT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  47573. end;
  47574. procedure TCMP_CM2CON.setCPOL; inline;
  47575. begin
  47576. pTDefRegMap(@Self)^.&set := $00002000;
  47577. end;
  47578. procedure TCMP_CM2CON.clearCPOL; inline;
  47579. begin
  47580. pTDefRegMap(@Self)^.clr := $00002000;
  47581. end;
  47582. procedure TCMP_CM2CON.setCPOL(thebits : TBits_1); inline;
  47583. begin
  47584. if thebits = 0 then
  47585. pTDefRegMap(@Self)^.clr := $00002000
  47586. else
  47587. pTDefRegMap(@Self)^.&set := $00002000;
  47588. end;
  47589. function TCMP_CM2CON.getCPOL : TBits_1; inline;
  47590. begin
  47591. getCPOL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  47592. end;
  47593. procedure TCMP_CM2CON.setCOE; inline;
  47594. begin
  47595. pTDefRegMap(@Self)^.&set := $00004000;
  47596. end;
  47597. procedure TCMP_CM2CON.clearCOE; inline;
  47598. begin
  47599. pTDefRegMap(@Self)^.clr := $00004000;
  47600. end;
  47601. procedure TCMP_CM2CON.setCOE(thebits : TBits_1); inline;
  47602. begin
  47603. if thebits = 0 then
  47604. pTDefRegMap(@Self)^.clr := $00004000
  47605. else
  47606. pTDefRegMap(@Self)^.&set := $00004000;
  47607. end;
  47608. function TCMP_CM2CON.getCOE : TBits_1; inline;
  47609. begin
  47610. getCOE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  47611. end;
  47612. procedure TCMP_CM2CON.setON; inline;
  47613. begin
  47614. pTDefRegMap(@Self)^.&set := $00008000;
  47615. end;
  47616. procedure TCMP_CM2CON.clearON; inline;
  47617. begin
  47618. pTDefRegMap(@Self)^.clr := $00008000;
  47619. end;
  47620. procedure TCMP_CM2CON.setON(thebits : TBits_1); inline;
  47621. begin
  47622. if thebits = 0 then
  47623. pTDefRegMap(@Self)^.clr := $00008000
  47624. else
  47625. pTDefRegMap(@Self)^.&set := $00008000;
  47626. end;
  47627. function TCMP_CM2CON.getON : TBits_1; inline;
  47628. begin
  47629. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  47630. end;
  47631. procedure TCMP_CM2CON.setCCH0; inline;
  47632. begin
  47633. pTDefRegMap(@Self)^.&set := $00000001;
  47634. end;
  47635. procedure TCMP_CM2CON.clearCCH0; inline;
  47636. begin
  47637. pTDefRegMap(@Self)^.clr := $00000001;
  47638. end;
  47639. procedure TCMP_CM2CON.setCCH0(thebits : TBits_1); inline;
  47640. begin
  47641. if thebits = 0 then
  47642. pTDefRegMap(@Self)^.clr := $00000001
  47643. else
  47644. pTDefRegMap(@Self)^.&set := $00000001;
  47645. end;
  47646. function TCMP_CM2CON.getCCH0 : TBits_1; inline;
  47647. begin
  47648. getCCH0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  47649. end;
  47650. procedure TCMP_CM2CON.setCCH1; inline;
  47651. begin
  47652. pTDefRegMap(@Self)^.&set := $00000002;
  47653. end;
  47654. procedure TCMP_CM2CON.clearCCH1; inline;
  47655. begin
  47656. pTDefRegMap(@Self)^.clr := $00000002;
  47657. end;
  47658. procedure TCMP_CM2CON.setCCH1(thebits : TBits_1); inline;
  47659. begin
  47660. if thebits = 0 then
  47661. pTDefRegMap(@Self)^.clr := $00000002
  47662. else
  47663. pTDefRegMap(@Self)^.&set := $00000002;
  47664. end;
  47665. function TCMP_CM2CON.getCCH1 : TBits_1; inline;
  47666. begin
  47667. getCCH1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  47668. end;
  47669. procedure TCMP_CM2CON.setEVPOL0; inline;
  47670. begin
  47671. pTDefRegMap(@Self)^.&set := $00000040;
  47672. end;
  47673. procedure TCMP_CM2CON.clearEVPOL0; inline;
  47674. begin
  47675. pTDefRegMap(@Self)^.clr := $00000040;
  47676. end;
  47677. procedure TCMP_CM2CON.setEVPOL0(thebits : TBits_1); inline;
  47678. begin
  47679. if thebits = 0 then
  47680. pTDefRegMap(@Self)^.clr := $00000040
  47681. else
  47682. pTDefRegMap(@Self)^.&set := $00000040;
  47683. end;
  47684. function TCMP_CM2CON.getEVPOL0 : TBits_1; inline;
  47685. begin
  47686. getEVPOL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  47687. end;
  47688. procedure TCMP_CM2CON.setEVPOL1; inline;
  47689. begin
  47690. pTDefRegMap(@Self)^.&set := $00000080;
  47691. end;
  47692. procedure TCMP_CM2CON.clearEVPOL1; inline;
  47693. begin
  47694. pTDefRegMap(@Self)^.clr := $00000080;
  47695. end;
  47696. procedure TCMP_CM2CON.setEVPOL1(thebits : TBits_1); inline;
  47697. begin
  47698. if thebits = 0 then
  47699. pTDefRegMap(@Self)^.clr := $00000080
  47700. else
  47701. pTDefRegMap(@Self)^.&set := $00000080;
  47702. end;
  47703. function TCMP_CM2CON.getEVPOL1 : TBits_1; inline;
  47704. begin
  47705. getEVPOL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  47706. end;
  47707. procedure TCMP_CM2CON.setw(thebits : TBits_32); inline;
  47708. begin
  47709. pTDefRegMap(@Self)^.val := thebits;
  47710. end;
  47711. function TCMP_CM2CON.getw : TBits_32; inline;
  47712. begin
  47713. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  47714. end;
  47715. procedure TCMP_CMSTAT.setC1OUT; inline;
  47716. begin
  47717. pTDefRegMap(@Self)^.&set := $00000001;
  47718. end;
  47719. procedure TCMP_CMSTAT.clearC1OUT; inline;
  47720. begin
  47721. pTDefRegMap(@Self)^.clr := $00000001;
  47722. end;
  47723. procedure TCMP_CMSTAT.setC1OUT(thebits : TBits_1); inline;
  47724. begin
  47725. if thebits = 0 then
  47726. pTDefRegMap(@Self)^.clr := $00000001
  47727. else
  47728. pTDefRegMap(@Self)^.&set := $00000001;
  47729. end;
  47730. function TCMP_CMSTAT.getC1OUT : TBits_1; inline;
  47731. begin
  47732. getC1OUT := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  47733. end;
  47734. procedure TCMP_CMSTAT.setC2OUT; inline;
  47735. begin
  47736. pTDefRegMap(@Self)^.&set := $00000002;
  47737. end;
  47738. procedure TCMP_CMSTAT.clearC2OUT; inline;
  47739. begin
  47740. pTDefRegMap(@Self)^.clr := $00000002;
  47741. end;
  47742. procedure TCMP_CMSTAT.setC2OUT(thebits : TBits_1); inline;
  47743. begin
  47744. if thebits = 0 then
  47745. pTDefRegMap(@Self)^.clr := $00000002
  47746. else
  47747. pTDefRegMap(@Self)^.&set := $00000002;
  47748. end;
  47749. function TCMP_CMSTAT.getC2OUT : TBits_1; inline;
  47750. begin
  47751. getC2OUT := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  47752. end;
  47753. procedure TCMP_CMSTAT.setSIDL; inline;
  47754. begin
  47755. pTDefRegMap(@Self)^.&set := $00002000;
  47756. end;
  47757. procedure TCMP_CMSTAT.clearSIDL; inline;
  47758. begin
  47759. pTDefRegMap(@Self)^.clr := $00002000;
  47760. end;
  47761. procedure TCMP_CMSTAT.setSIDL(thebits : TBits_1); inline;
  47762. begin
  47763. if thebits = 0 then
  47764. pTDefRegMap(@Self)^.clr := $00002000
  47765. else
  47766. pTDefRegMap(@Self)^.&set := $00002000;
  47767. end;
  47768. function TCMP_CMSTAT.getSIDL : TBits_1; inline;
  47769. begin
  47770. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  47771. end;
  47772. procedure TCMP_CMSTAT.setw(thebits : TBits_32); inline;
  47773. begin
  47774. pTDefRegMap(@Self)^.val := thebits;
  47775. end;
  47776. function TCMP_CMSTAT.getw : TBits_32; inline;
  47777. begin
  47778. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  47779. end;
  47780. procedure TOSC_OSCCON.setOSWEN; inline;
  47781. begin
  47782. pTDefRegMap(@Self)^.&set := $00000001;
  47783. end;
  47784. procedure TOSC_OSCCON.clearOSWEN; inline;
  47785. begin
  47786. pTDefRegMap(@Self)^.clr := $00000001;
  47787. end;
  47788. procedure TOSC_OSCCON.setOSWEN(thebits : TBits_1); inline;
  47789. begin
  47790. if thebits = 0 then
  47791. pTDefRegMap(@Self)^.clr := $00000001
  47792. else
  47793. pTDefRegMap(@Self)^.&set := $00000001;
  47794. end;
  47795. function TOSC_OSCCON.getOSWEN : TBits_1; inline;
  47796. begin
  47797. getOSWEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  47798. end;
  47799. procedure TOSC_OSCCON.setSOSCEN; inline;
  47800. begin
  47801. pTDefRegMap(@Self)^.&set := $00000002;
  47802. end;
  47803. procedure TOSC_OSCCON.clearSOSCEN; inline;
  47804. begin
  47805. pTDefRegMap(@Self)^.clr := $00000002;
  47806. end;
  47807. procedure TOSC_OSCCON.setSOSCEN(thebits : TBits_1); inline;
  47808. begin
  47809. if thebits = 0 then
  47810. pTDefRegMap(@Self)^.clr := $00000002
  47811. else
  47812. pTDefRegMap(@Self)^.&set := $00000002;
  47813. end;
  47814. function TOSC_OSCCON.getSOSCEN : TBits_1; inline;
  47815. begin
  47816. getSOSCEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  47817. end;
  47818. procedure TOSC_OSCCON.setUFRCEN; inline;
  47819. begin
  47820. pTDefRegMap(@Self)^.&set := $00000004;
  47821. end;
  47822. procedure TOSC_OSCCON.clearUFRCEN; inline;
  47823. begin
  47824. pTDefRegMap(@Self)^.clr := $00000004;
  47825. end;
  47826. procedure TOSC_OSCCON.setUFRCEN(thebits : TBits_1); inline;
  47827. begin
  47828. if thebits = 0 then
  47829. pTDefRegMap(@Self)^.clr := $00000004
  47830. else
  47831. pTDefRegMap(@Self)^.&set := $00000004;
  47832. end;
  47833. function TOSC_OSCCON.getUFRCEN : TBits_1; inline;
  47834. begin
  47835. getUFRCEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  47836. end;
  47837. procedure TOSC_OSCCON.setCF; inline;
  47838. begin
  47839. pTDefRegMap(@Self)^.&set := $00000008;
  47840. end;
  47841. procedure TOSC_OSCCON.clearCF; inline;
  47842. begin
  47843. pTDefRegMap(@Self)^.clr := $00000008;
  47844. end;
  47845. procedure TOSC_OSCCON.setCF(thebits : TBits_1); inline;
  47846. begin
  47847. if thebits = 0 then
  47848. pTDefRegMap(@Self)^.clr := $00000008
  47849. else
  47850. pTDefRegMap(@Self)^.&set := $00000008;
  47851. end;
  47852. function TOSC_OSCCON.getCF : TBits_1; inline;
  47853. begin
  47854. getCF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  47855. end;
  47856. procedure TOSC_OSCCON.setSLPEN; inline;
  47857. begin
  47858. pTDefRegMap(@Self)^.&set := $00000010;
  47859. end;
  47860. procedure TOSC_OSCCON.clearSLPEN; inline;
  47861. begin
  47862. pTDefRegMap(@Self)^.clr := $00000010;
  47863. end;
  47864. procedure TOSC_OSCCON.setSLPEN(thebits : TBits_1); inline;
  47865. begin
  47866. if thebits = 0 then
  47867. pTDefRegMap(@Self)^.clr := $00000010
  47868. else
  47869. pTDefRegMap(@Self)^.&set := $00000010;
  47870. end;
  47871. function TOSC_OSCCON.getSLPEN : TBits_1; inline;
  47872. begin
  47873. getSLPEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  47874. end;
  47875. procedure TOSC_OSCCON.setSLOCK; inline;
  47876. begin
  47877. pTDefRegMap(@Self)^.&set := $00000020;
  47878. end;
  47879. procedure TOSC_OSCCON.clearSLOCK; inline;
  47880. begin
  47881. pTDefRegMap(@Self)^.clr := $00000020;
  47882. end;
  47883. procedure TOSC_OSCCON.setSLOCK(thebits : TBits_1); inline;
  47884. begin
  47885. if thebits = 0 then
  47886. pTDefRegMap(@Self)^.clr := $00000020
  47887. else
  47888. pTDefRegMap(@Self)^.&set := $00000020;
  47889. end;
  47890. function TOSC_OSCCON.getSLOCK : TBits_1; inline;
  47891. begin
  47892. getSLOCK := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  47893. end;
  47894. procedure TOSC_OSCCON.setULOCK; inline;
  47895. begin
  47896. pTDefRegMap(@Self)^.&set := $00000040;
  47897. end;
  47898. procedure TOSC_OSCCON.clearULOCK; inline;
  47899. begin
  47900. pTDefRegMap(@Self)^.clr := $00000040;
  47901. end;
  47902. procedure TOSC_OSCCON.setULOCK(thebits : TBits_1); inline;
  47903. begin
  47904. if thebits = 0 then
  47905. pTDefRegMap(@Self)^.clr := $00000040
  47906. else
  47907. pTDefRegMap(@Self)^.&set := $00000040;
  47908. end;
  47909. function TOSC_OSCCON.getULOCK : TBits_1; inline;
  47910. begin
  47911. getULOCK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  47912. end;
  47913. procedure TOSC_OSCCON.setCLKLOCK; inline;
  47914. begin
  47915. pTDefRegMap(@Self)^.&set := $00000080;
  47916. end;
  47917. procedure TOSC_OSCCON.clearCLKLOCK; inline;
  47918. begin
  47919. pTDefRegMap(@Self)^.clr := $00000080;
  47920. end;
  47921. procedure TOSC_OSCCON.setCLKLOCK(thebits : TBits_1); inline;
  47922. begin
  47923. if thebits = 0 then
  47924. pTDefRegMap(@Self)^.clr := $00000080
  47925. else
  47926. pTDefRegMap(@Self)^.&set := $00000080;
  47927. end;
  47928. function TOSC_OSCCON.getCLKLOCK : TBits_1; inline;
  47929. begin
  47930. getCLKLOCK := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  47931. end;
  47932. procedure TOSC_OSCCON.setNOSC(thebits : TBits_3); inline;
  47933. begin
  47934. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  47935. end;
  47936. function TOSC_OSCCON.getNOSC : TBits_3; inline;
  47937. begin
  47938. getNOSC := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  47939. end;
  47940. procedure TOSC_OSCCON.setCOSC(thebits : TBits_3); inline;
  47941. begin
  47942. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF8FFF or ( thebits shl 12 );
  47943. end;
  47944. function TOSC_OSCCON.getCOSC : TBits_3; inline;
  47945. begin
  47946. getCOSC := (pTDefRegMap(@Self)^.val and $00007000) shr 12;
  47947. end;
  47948. procedure TOSC_OSCCON.setPLLMULT(thebits : TBits_3); inline;
  47949. begin
  47950. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
  47951. end;
  47952. function TOSC_OSCCON.getPLLMULT : TBits_3; inline;
  47953. begin
  47954. getPLLMULT := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
  47955. end;
  47956. procedure TOSC_OSCCON.setPBDIV(thebits : TBits_2); inline;
  47957. begin
  47958. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE7FFFF or ( thebits shl 19 );
  47959. end;
  47960. function TOSC_OSCCON.getPBDIV : TBits_2; inline;
  47961. begin
  47962. getPBDIV := (pTDefRegMap(@Self)^.val and $00180000) shr 19;
  47963. end;
  47964. procedure TOSC_OSCCON.setSOSCRDY; inline;
  47965. begin
  47966. pTDefRegMap(@Self)^.&set := $00400000;
  47967. end;
  47968. procedure TOSC_OSCCON.clearSOSCRDY; inline;
  47969. begin
  47970. pTDefRegMap(@Self)^.clr := $00400000;
  47971. end;
  47972. procedure TOSC_OSCCON.setSOSCRDY(thebits : TBits_1); inline;
  47973. begin
  47974. if thebits = 0 then
  47975. pTDefRegMap(@Self)^.clr := $00400000
  47976. else
  47977. pTDefRegMap(@Self)^.&set := $00400000;
  47978. end;
  47979. function TOSC_OSCCON.getSOSCRDY : TBits_1; inline;
  47980. begin
  47981. getSOSCRDY := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  47982. end;
  47983. procedure TOSC_OSCCON.setFRCDIV(thebits : TBits_3); inline;
  47984. begin
  47985. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  47986. end;
  47987. function TOSC_OSCCON.getFRCDIV : TBits_3; inline;
  47988. begin
  47989. getFRCDIV := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  47990. end;
  47991. procedure TOSC_OSCCON.setPLLODIV(thebits : TBits_3); inline;
  47992. begin
  47993. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $C7FFFFFF or ( thebits shl 27 );
  47994. end;
  47995. function TOSC_OSCCON.getPLLODIV : TBits_3; inline;
  47996. begin
  47997. getPLLODIV := (pTDefRegMap(@Self)^.val and $38000000) shr 27;
  47998. end;
  47999. procedure TOSC_OSCCON.setNOSC0; inline;
  48000. begin
  48001. pTDefRegMap(@Self)^.&set := $00000100;
  48002. end;
  48003. procedure TOSC_OSCCON.clearNOSC0; inline;
  48004. begin
  48005. pTDefRegMap(@Self)^.clr := $00000100;
  48006. end;
  48007. procedure TOSC_OSCCON.setNOSC0(thebits : TBits_1); inline;
  48008. begin
  48009. if thebits = 0 then
  48010. pTDefRegMap(@Self)^.clr := $00000100
  48011. else
  48012. pTDefRegMap(@Self)^.&set := $00000100;
  48013. end;
  48014. function TOSC_OSCCON.getNOSC0 : TBits_1; inline;
  48015. begin
  48016. getNOSC0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  48017. end;
  48018. procedure TOSC_OSCCON.setNOSC1; inline;
  48019. begin
  48020. pTDefRegMap(@Self)^.&set := $00000200;
  48021. end;
  48022. procedure TOSC_OSCCON.clearNOSC1; inline;
  48023. begin
  48024. pTDefRegMap(@Self)^.clr := $00000200;
  48025. end;
  48026. procedure TOSC_OSCCON.setNOSC1(thebits : TBits_1); inline;
  48027. begin
  48028. if thebits = 0 then
  48029. pTDefRegMap(@Self)^.clr := $00000200
  48030. else
  48031. pTDefRegMap(@Self)^.&set := $00000200;
  48032. end;
  48033. function TOSC_OSCCON.getNOSC1 : TBits_1; inline;
  48034. begin
  48035. getNOSC1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  48036. end;
  48037. procedure TOSC_OSCCON.setNOSC2; inline;
  48038. begin
  48039. pTDefRegMap(@Self)^.&set := $00000400;
  48040. end;
  48041. procedure TOSC_OSCCON.clearNOSC2; inline;
  48042. begin
  48043. pTDefRegMap(@Self)^.clr := $00000400;
  48044. end;
  48045. procedure TOSC_OSCCON.setNOSC2(thebits : TBits_1); inline;
  48046. begin
  48047. if thebits = 0 then
  48048. pTDefRegMap(@Self)^.clr := $00000400
  48049. else
  48050. pTDefRegMap(@Self)^.&set := $00000400;
  48051. end;
  48052. function TOSC_OSCCON.getNOSC2 : TBits_1; inline;
  48053. begin
  48054. getNOSC2 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  48055. end;
  48056. procedure TOSC_OSCCON.setCOSC0; inline;
  48057. begin
  48058. pTDefRegMap(@Self)^.&set := $00001000;
  48059. end;
  48060. procedure TOSC_OSCCON.clearCOSC0; inline;
  48061. begin
  48062. pTDefRegMap(@Self)^.clr := $00001000;
  48063. end;
  48064. procedure TOSC_OSCCON.setCOSC0(thebits : TBits_1); inline;
  48065. begin
  48066. if thebits = 0 then
  48067. pTDefRegMap(@Self)^.clr := $00001000
  48068. else
  48069. pTDefRegMap(@Self)^.&set := $00001000;
  48070. end;
  48071. function TOSC_OSCCON.getCOSC0 : TBits_1; inline;
  48072. begin
  48073. getCOSC0 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  48074. end;
  48075. procedure TOSC_OSCCON.setCOSC1; inline;
  48076. begin
  48077. pTDefRegMap(@Self)^.&set := $00002000;
  48078. end;
  48079. procedure TOSC_OSCCON.clearCOSC1; inline;
  48080. begin
  48081. pTDefRegMap(@Self)^.clr := $00002000;
  48082. end;
  48083. procedure TOSC_OSCCON.setCOSC1(thebits : TBits_1); inline;
  48084. begin
  48085. if thebits = 0 then
  48086. pTDefRegMap(@Self)^.clr := $00002000
  48087. else
  48088. pTDefRegMap(@Self)^.&set := $00002000;
  48089. end;
  48090. function TOSC_OSCCON.getCOSC1 : TBits_1; inline;
  48091. begin
  48092. getCOSC1 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  48093. end;
  48094. procedure TOSC_OSCCON.setCOSC2; inline;
  48095. begin
  48096. pTDefRegMap(@Self)^.&set := $00004000;
  48097. end;
  48098. procedure TOSC_OSCCON.clearCOSC2; inline;
  48099. begin
  48100. pTDefRegMap(@Self)^.clr := $00004000;
  48101. end;
  48102. procedure TOSC_OSCCON.setCOSC2(thebits : TBits_1); inline;
  48103. begin
  48104. if thebits = 0 then
  48105. pTDefRegMap(@Self)^.clr := $00004000
  48106. else
  48107. pTDefRegMap(@Self)^.&set := $00004000;
  48108. end;
  48109. function TOSC_OSCCON.getCOSC2 : TBits_1; inline;
  48110. begin
  48111. getCOSC2 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  48112. end;
  48113. procedure TOSC_OSCCON.setPLLMULT0; inline;
  48114. begin
  48115. pTDefRegMap(@Self)^.&set := $00010000;
  48116. end;
  48117. procedure TOSC_OSCCON.clearPLLMULT0; inline;
  48118. begin
  48119. pTDefRegMap(@Self)^.clr := $00010000;
  48120. end;
  48121. procedure TOSC_OSCCON.setPLLMULT0(thebits : TBits_1); inline;
  48122. begin
  48123. if thebits = 0 then
  48124. pTDefRegMap(@Self)^.clr := $00010000
  48125. else
  48126. pTDefRegMap(@Self)^.&set := $00010000;
  48127. end;
  48128. function TOSC_OSCCON.getPLLMULT0 : TBits_1; inline;
  48129. begin
  48130. getPLLMULT0 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  48131. end;
  48132. procedure TOSC_OSCCON.setPLLMULT1; inline;
  48133. begin
  48134. pTDefRegMap(@Self)^.&set := $00020000;
  48135. end;
  48136. procedure TOSC_OSCCON.clearPLLMULT1; inline;
  48137. begin
  48138. pTDefRegMap(@Self)^.clr := $00020000;
  48139. end;
  48140. procedure TOSC_OSCCON.setPLLMULT1(thebits : TBits_1); inline;
  48141. begin
  48142. if thebits = 0 then
  48143. pTDefRegMap(@Self)^.clr := $00020000
  48144. else
  48145. pTDefRegMap(@Self)^.&set := $00020000;
  48146. end;
  48147. function TOSC_OSCCON.getPLLMULT1 : TBits_1; inline;
  48148. begin
  48149. getPLLMULT1 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  48150. end;
  48151. procedure TOSC_OSCCON.setPLLMULT2; inline;
  48152. begin
  48153. pTDefRegMap(@Self)^.&set := $00040000;
  48154. end;
  48155. procedure TOSC_OSCCON.clearPLLMULT2; inline;
  48156. begin
  48157. pTDefRegMap(@Self)^.clr := $00040000;
  48158. end;
  48159. procedure TOSC_OSCCON.setPLLMULT2(thebits : TBits_1); inline;
  48160. begin
  48161. if thebits = 0 then
  48162. pTDefRegMap(@Self)^.clr := $00040000
  48163. else
  48164. pTDefRegMap(@Self)^.&set := $00040000;
  48165. end;
  48166. function TOSC_OSCCON.getPLLMULT2 : TBits_1; inline;
  48167. begin
  48168. getPLLMULT2 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  48169. end;
  48170. procedure TOSC_OSCCON.setPBDIV0; inline;
  48171. begin
  48172. pTDefRegMap(@Self)^.&set := $00080000;
  48173. end;
  48174. procedure TOSC_OSCCON.clearPBDIV0; inline;
  48175. begin
  48176. pTDefRegMap(@Self)^.clr := $00080000;
  48177. end;
  48178. procedure TOSC_OSCCON.setPBDIV0(thebits : TBits_1); inline;
  48179. begin
  48180. if thebits = 0 then
  48181. pTDefRegMap(@Self)^.clr := $00080000
  48182. else
  48183. pTDefRegMap(@Self)^.&set := $00080000;
  48184. end;
  48185. function TOSC_OSCCON.getPBDIV0 : TBits_1; inline;
  48186. begin
  48187. getPBDIV0 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  48188. end;
  48189. procedure TOSC_OSCCON.setPBDIV1; inline;
  48190. begin
  48191. pTDefRegMap(@Self)^.&set := $00100000;
  48192. end;
  48193. procedure TOSC_OSCCON.clearPBDIV1; inline;
  48194. begin
  48195. pTDefRegMap(@Self)^.clr := $00100000;
  48196. end;
  48197. procedure TOSC_OSCCON.setPBDIV1(thebits : TBits_1); inline;
  48198. begin
  48199. if thebits = 0 then
  48200. pTDefRegMap(@Self)^.clr := $00100000
  48201. else
  48202. pTDefRegMap(@Self)^.&set := $00100000;
  48203. end;
  48204. function TOSC_OSCCON.getPBDIV1 : TBits_1; inline;
  48205. begin
  48206. getPBDIV1 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  48207. end;
  48208. procedure TOSC_OSCCON.setFRCDIV0; inline;
  48209. begin
  48210. pTDefRegMap(@Self)^.&set := $01000000;
  48211. end;
  48212. procedure TOSC_OSCCON.clearFRCDIV0; inline;
  48213. begin
  48214. pTDefRegMap(@Self)^.clr := $01000000;
  48215. end;
  48216. procedure TOSC_OSCCON.setFRCDIV0(thebits : TBits_1); inline;
  48217. begin
  48218. if thebits = 0 then
  48219. pTDefRegMap(@Self)^.clr := $01000000
  48220. else
  48221. pTDefRegMap(@Self)^.&set := $01000000;
  48222. end;
  48223. function TOSC_OSCCON.getFRCDIV0 : TBits_1; inline;
  48224. begin
  48225. getFRCDIV0 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  48226. end;
  48227. procedure TOSC_OSCCON.setFRCDIV1; inline;
  48228. begin
  48229. pTDefRegMap(@Self)^.&set := $02000000;
  48230. end;
  48231. procedure TOSC_OSCCON.clearFRCDIV1; inline;
  48232. begin
  48233. pTDefRegMap(@Self)^.clr := $02000000;
  48234. end;
  48235. procedure TOSC_OSCCON.setFRCDIV1(thebits : TBits_1); inline;
  48236. begin
  48237. if thebits = 0 then
  48238. pTDefRegMap(@Self)^.clr := $02000000
  48239. else
  48240. pTDefRegMap(@Self)^.&set := $02000000;
  48241. end;
  48242. function TOSC_OSCCON.getFRCDIV1 : TBits_1; inline;
  48243. begin
  48244. getFRCDIV1 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  48245. end;
  48246. procedure TOSC_OSCCON.setFRCDIV2; inline;
  48247. begin
  48248. pTDefRegMap(@Self)^.&set := $04000000;
  48249. end;
  48250. procedure TOSC_OSCCON.clearFRCDIV2; inline;
  48251. begin
  48252. pTDefRegMap(@Self)^.clr := $04000000;
  48253. end;
  48254. procedure TOSC_OSCCON.setFRCDIV2(thebits : TBits_1); inline;
  48255. begin
  48256. if thebits = 0 then
  48257. pTDefRegMap(@Self)^.clr := $04000000
  48258. else
  48259. pTDefRegMap(@Self)^.&set := $04000000;
  48260. end;
  48261. function TOSC_OSCCON.getFRCDIV2 : TBits_1; inline;
  48262. begin
  48263. getFRCDIV2 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  48264. end;
  48265. procedure TOSC_OSCCON.setPLLODIV0; inline;
  48266. begin
  48267. pTDefRegMap(@Self)^.&set := $08000000;
  48268. end;
  48269. procedure TOSC_OSCCON.clearPLLODIV0; inline;
  48270. begin
  48271. pTDefRegMap(@Self)^.clr := $08000000;
  48272. end;
  48273. procedure TOSC_OSCCON.setPLLODIV0(thebits : TBits_1); inline;
  48274. begin
  48275. if thebits = 0 then
  48276. pTDefRegMap(@Self)^.clr := $08000000
  48277. else
  48278. pTDefRegMap(@Self)^.&set := $08000000;
  48279. end;
  48280. function TOSC_OSCCON.getPLLODIV0 : TBits_1; inline;
  48281. begin
  48282. getPLLODIV0 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  48283. end;
  48284. procedure TOSC_OSCCON.setPLLODIV1; inline;
  48285. begin
  48286. pTDefRegMap(@Self)^.&set := $10000000;
  48287. end;
  48288. procedure TOSC_OSCCON.clearPLLODIV1; inline;
  48289. begin
  48290. pTDefRegMap(@Self)^.clr := $10000000;
  48291. end;
  48292. procedure TOSC_OSCCON.setPLLODIV1(thebits : TBits_1); inline;
  48293. begin
  48294. if thebits = 0 then
  48295. pTDefRegMap(@Self)^.clr := $10000000
  48296. else
  48297. pTDefRegMap(@Self)^.&set := $10000000;
  48298. end;
  48299. function TOSC_OSCCON.getPLLODIV1 : TBits_1; inline;
  48300. begin
  48301. getPLLODIV1 := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  48302. end;
  48303. procedure TOSC_OSCCON.setPLLODIV2; inline;
  48304. begin
  48305. pTDefRegMap(@Self)^.&set := $20000000;
  48306. end;
  48307. procedure TOSC_OSCCON.clearPLLODIV2; inline;
  48308. begin
  48309. pTDefRegMap(@Self)^.clr := $20000000;
  48310. end;
  48311. procedure TOSC_OSCCON.setPLLODIV2(thebits : TBits_1); inline;
  48312. begin
  48313. if thebits = 0 then
  48314. pTDefRegMap(@Self)^.clr := $20000000
  48315. else
  48316. pTDefRegMap(@Self)^.&set := $20000000;
  48317. end;
  48318. function TOSC_OSCCON.getPLLODIV2 : TBits_1; inline;
  48319. begin
  48320. getPLLODIV2 := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  48321. end;
  48322. procedure TOSC_OSCCON.setw(thebits : TBits_32); inline;
  48323. begin
  48324. pTDefRegMap(@Self)^.val := thebits;
  48325. end;
  48326. function TOSC_OSCCON.getw : TBits_32; inline;
  48327. begin
  48328. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  48329. end;
  48330. procedure TOSC_OSCTUN.setTUN(thebits : TBits_6); inline;
  48331. begin
  48332. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC0 or ( thebits shl 0 );
  48333. end;
  48334. function TOSC_OSCTUN.getTUN : TBits_6; inline;
  48335. begin
  48336. getTUN := (pTDefRegMap(@Self)^.val and $0000003F) shr 0;
  48337. end;
  48338. procedure TOSC_OSCTUN.setTUN0; inline;
  48339. begin
  48340. pTDefRegMap(@Self)^.&set := $00000001;
  48341. end;
  48342. procedure TOSC_OSCTUN.clearTUN0; inline;
  48343. begin
  48344. pTDefRegMap(@Self)^.clr := $00000001;
  48345. end;
  48346. procedure TOSC_OSCTUN.setTUN0(thebits : TBits_1); inline;
  48347. begin
  48348. if thebits = 0 then
  48349. pTDefRegMap(@Self)^.clr := $00000001
  48350. else
  48351. pTDefRegMap(@Self)^.&set := $00000001;
  48352. end;
  48353. function TOSC_OSCTUN.getTUN0 : TBits_1; inline;
  48354. begin
  48355. getTUN0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  48356. end;
  48357. procedure TOSC_OSCTUN.setTUN1; inline;
  48358. begin
  48359. pTDefRegMap(@Self)^.&set := $00000002;
  48360. end;
  48361. procedure TOSC_OSCTUN.clearTUN1; inline;
  48362. begin
  48363. pTDefRegMap(@Self)^.clr := $00000002;
  48364. end;
  48365. procedure TOSC_OSCTUN.setTUN1(thebits : TBits_1); inline;
  48366. begin
  48367. if thebits = 0 then
  48368. pTDefRegMap(@Self)^.clr := $00000002
  48369. else
  48370. pTDefRegMap(@Self)^.&set := $00000002;
  48371. end;
  48372. function TOSC_OSCTUN.getTUN1 : TBits_1; inline;
  48373. begin
  48374. getTUN1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  48375. end;
  48376. procedure TOSC_OSCTUN.setTUN2; inline;
  48377. begin
  48378. pTDefRegMap(@Self)^.&set := $00000004;
  48379. end;
  48380. procedure TOSC_OSCTUN.clearTUN2; inline;
  48381. begin
  48382. pTDefRegMap(@Self)^.clr := $00000004;
  48383. end;
  48384. procedure TOSC_OSCTUN.setTUN2(thebits : TBits_1); inline;
  48385. begin
  48386. if thebits = 0 then
  48387. pTDefRegMap(@Self)^.clr := $00000004
  48388. else
  48389. pTDefRegMap(@Self)^.&set := $00000004;
  48390. end;
  48391. function TOSC_OSCTUN.getTUN2 : TBits_1; inline;
  48392. begin
  48393. getTUN2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  48394. end;
  48395. procedure TOSC_OSCTUN.setTUN3; inline;
  48396. begin
  48397. pTDefRegMap(@Self)^.&set := $00000008;
  48398. end;
  48399. procedure TOSC_OSCTUN.clearTUN3; inline;
  48400. begin
  48401. pTDefRegMap(@Self)^.clr := $00000008;
  48402. end;
  48403. procedure TOSC_OSCTUN.setTUN3(thebits : TBits_1); inline;
  48404. begin
  48405. if thebits = 0 then
  48406. pTDefRegMap(@Self)^.clr := $00000008
  48407. else
  48408. pTDefRegMap(@Self)^.&set := $00000008;
  48409. end;
  48410. function TOSC_OSCTUN.getTUN3 : TBits_1; inline;
  48411. begin
  48412. getTUN3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  48413. end;
  48414. procedure TOSC_OSCTUN.setTUN4; inline;
  48415. begin
  48416. pTDefRegMap(@Self)^.&set := $00000010;
  48417. end;
  48418. procedure TOSC_OSCTUN.clearTUN4; inline;
  48419. begin
  48420. pTDefRegMap(@Self)^.clr := $00000010;
  48421. end;
  48422. procedure TOSC_OSCTUN.setTUN4(thebits : TBits_1); inline;
  48423. begin
  48424. if thebits = 0 then
  48425. pTDefRegMap(@Self)^.clr := $00000010
  48426. else
  48427. pTDefRegMap(@Self)^.&set := $00000010;
  48428. end;
  48429. function TOSC_OSCTUN.getTUN4 : TBits_1; inline;
  48430. begin
  48431. getTUN4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  48432. end;
  48433. procedure TOSC_OSCTUN.setTUN5; inline;
  48434. begin
  48435. pTDefRegMap(@Self)^.&set := $00000020;
  48436. end;
  48437. procedure TOSC_OSCTUN.clearTUN5; inline;
  48438. begin
  48439. pTDefRegMap(@Self)^.clr := $00000020;
  48440. end;
  48441. procedure TOSC_OSCTUN.setTUN5(thebits : TBits_1); inline;
  48442. begin
  48443. if thebits = 0 then
  48444. pTDefRegMap(@Self)^.clr := $00000020
  48445. else
  48446. pTDefRegMap(@Self)^.&set := $00000020;
  48447. end;
  48448. function TOSC_OSCTUN.getTUN5 : TBits_1; inline;
  48449. begin
  48450. getTUN5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  48451. end;
  48452. procedure TOSC_OSCTUN.setw(thebits : TBits_32); inline;
  48453. begin
  48454. pTDefRegMap(@Self)^.val := thebits;
  48455. end;
  48456. function TOSC_OSCTUN.getw : TBits_32; inline;
  48457. begin
  48458. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  48459. end;
  48460. procedure TNVM_NVMCON.setNVMOP(thebits : TBits_4); inline;
  48461. begin
  48462. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  48463. end;
  48464. function TNVM_NVMCON.getNVMOP : TBits_4; inline;
  48465. begin
  48466. getNVMOP := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  48467. end;
  48468. procedure TNVM_NVMCON.setLVDSTAT; inline;
  48469. begin
  48470. pTDefRegMap(@Self)^.&set := $00000800;
  48471. end;
  48472. procedure TNVM_NVMCON.clearLVDSTAT; inline;
  48473. begin
  48474. pTDefRegMap(@Self)^.clr := $00000800;
  48475. end;
  48476. procedure TNVM_NVMCON.setLVDSTAT(thebits : TBits_1); inline;
  48477. begin
  48478. if thebits = 0 then
  48479. pTDefRegMap(@Self)^.clr := $00000800
  48480. else
  48481. pTDefRegMap(@Self)^.&set := $00000800;
  48482. end;
  48483. function TNVM_NVMCON.getLVDSTAT : TBits_1; inline;
  48484. begin
  48485. getLVDSTAT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  48486. end;
  48487. procedure TNVM_NVMCON.setLVDERR; inline;
  48488. begin
  48489. pTDefRegMap(@Self)^.&set := $00001000;
  48490. end;
  48491. procedure TNVM_NVMCON.clearLVDERR; inline;
  48492. begin
  48493. pTDefRegMap(@Self)^.clr := $00001000;
  48494. end;
  48495. procedure TNVM_NVMCON.setLVDERR(thebits : TBits_1); inline;
  48496. begin
  48497. if thebits = 0 then
  48498. pTDefRegMap(@Self)^.clr := $00001000
  48499. else
  48500. pTDefRegMap(@Self)^.&set := $00001000;
  48501. end;
  48502. function TNVM_NVMCON.getLVDERR : TBits_1; inline;
  48503. begin
  48504. getLVDERR := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  48505. end;
  48506. procedure TNVM_NVMCON.setWRERR; inline;
  48507. begin
  48508. pTDefRegMap(@Self)^.&set := $00002000;
  48509. end;
  48510. procedure TNVM_NVMCON.clearWRERR; inline;
  48511. begin
  48512. pTDefRegMap(@Self)^.clr := $00002000;
  48513. end;
  48514. procedure TNVM_NVMCON.setWRERR(thebits : TBits_1); inline;
  48515. begin
  48516. if thebits = 0 then
  48517. pTDefRegMap(@Self)^.clr := $00002000
  48518. else
  48519. pTDefRegMap(@Self)^.&set := $00002000;
  48520. end;
  48521. function TNVM_NVMCON.getWRERR : TBits_1; inline;
  48522. begin
  48523. getWRERR := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  48524. end;
  48525. procedure TNVM_NVMCON.setWREN; inline;
  48526. begin
  48527. pTDefRegMap(@Self)^.&set := $00004000;
  48528. end;
  48529. procedure TNVM_NVMCON.clearWREN; inline;
  48530. begin
  48531. pTDefRegMap(@Self)^.clr := $00004000;
  48532. end;
  48533. procedure TNVM_NVMCON.setWREN(thebits : TBits_1); inline;
  48534. begin
  48535. if thebits = 0 then
  48536. pTDefRegMap(@Self)^.clr := $00004000
  48537. else
  48538. pTDefRegMap(@Self)^.&set := $00004000;
  48539. end;
  48540. function TNVM_NVMCON.getWREN : TBits_1; inline;
  48541. begin
  48542. getWREN := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  48543. end;
  48544. procedure TNVM_NVMCON.setWR; inline;
  48545. begin
  48546. pTDefRegMap(@Self)^.&set := $00008000;
  48547. end;
  48548. procedure TNVM_NVMCON.clearWR; inline;
  48549. begin
  48550. pTDefRegMap(@Self)^.clr := $00008000;
  48551. end;
  48552. procedure TNVM_NVMCON.setWR(thebits : TBits_1); inline;
  48553. begin
  48554. if thebits = 0 then
  48555. pTDefRegMap(@Self)^.clr := $00008000
  48556. else
  48557. pTDefRegMap(@Self)^.&set := $00008000;
  48558. end;
  48559. function TNVM_NVMCON.getWR : TBits_1; inline;
  48560. begin
  48561. getWR := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  48562. end;
  48563. procedure TNVM_NVMCON.setNVMOP0; inline;
  48564. begin
  48565. pTDefRegMap(@Self)^.&set := $00000001;
  48566. end;
  48567. procedure TNVM_NVMCON.clearNVMOP0; inline;
  48568. begin
  48569. pTDefRegMap(@Self)^.clr := $00000001;
  48570. end;
  48571. procedure TNVM_NVMCON.setNVMOP0(thebits : TBits_1); inline;
  48572. begin
  48573. if thebits = 0 then
  48574. pTDefRegMap(@Self)^.clr := $00000001
  48575. else
  48576. pTDefRegMap(@Self)^.&set := $00000001;
  48577. end;
  48578. function TNVM_NVMCON.getNVMOP0 : TBits_1; inline;
  48579. begin
  48580. getNVMOP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  48581. end;
  48582. procedure TNVM_NVMCON.setNVMOP1; inline;
  48583. begin
  48584. pTDefRegMap(@Self)^.&set := $00000002;
  48585. end;
  48586. procedure TNVM_NVMCON.clearNVMOP1; inline;
  48587. begin
  48588. pTDefRegMap(@Self)^.clr := $00000002;
  48589. end;
  48590. procedure TNVM_NVMCON.setNVMOP1(thebits : TBits_1); inline;
  48591. begin
  48592. if thebits = 0 then
  48593. pTDefRegMap(@Self)^.clr := $00000002
  48594. else
  48595. pTDefRegMap(@Self)^.&set := $00000002;
  48596. end;
  48597. function TNVM_NVMCON.getNVMOP1 : TBits_1; inline;
  48598. begin
  48599. getNVMOP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  48600. end;
  48601. procedure TNVM_NVMCON.setNVMOP2; inline;
  48602. begin
  48603. pTDefRegMap(@Self)^.&set := $00000004;
  48604. end;
  48605. procedure TNVM_NVMCON.clearNVMOP2; inline;
  48606. begin
  48607. pTDefRegMap(@Self)^.clr := $00000004;
  48608. end;
  48609. procedure TNVM_NVMCON.setNVMOP2(thebits : TBits_1); inline;
  48610. begin
  48611. if thebits = 0 then
  48612. pTDefRegMap(@Self)^.clr := $00000004
  48613. else
  48614. pTDefRegMap(@Self)^.&set := $00000004;
  48615. end;
  48616. function TNVM_NVMCON.getNVMOP2 : TBits_1; inline;
  48617. begin
  48618. getNVMOP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  48619. end;
  48620. procedure TNVM_NVMCON.setNVMOP3; inline;
  48621. begin
  48622. pTDefRegMap(@Self)^.&set := $00000008;
  48623. end;
  48624. procedure TNVM_NVMCON.clearNVMOP3; inline;
  48625. begin
  48626. pTDefRegMap(@Self)^.clr := $00000008;
  48627. end;
  48628. procedure TNVM_NVMCON.setNVMOP3(thebits : TBits_1); inline;
  48629. begin
  48630. if thebits = 0 then
  48631. pTDefRegMap(@Self)^.clr := $00000008
  48632. else
  48633. pTDefRegMap(@Self)^.&set := $00000008;
  48634. end;
  48635. function TNVM_NVMCON.getNVMOP3 : TBits_1; inline;
  48636. begin
  48637. getNVMOP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  48638. end;
  48639. procedure TNVM_NVMCON.setPROGOP(thebits : TBits_4); inline;
  48640. begin
  48641. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  48642. end;
  48643. function TNVM_NVMCON.getPROGOP : TBits_4; inline;
  48644. begin
  48645. getPROGOP := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  48646. end;
  48647. procedure TNVM_NVMCON.setPROGOP0; inline;
  48648. begin
  48649. pTDefRegMap(@Self)^.&set := $00000001;
  48650. end;
  48651. procedure TNVM_NVMCON.clearPROGOP0; inline;
  48652. begin
  48653. pTDefRegMap(@Self)^.clr := $00000001;
  48654. end;
  48655. procedure TNVM_NVMCON.setPROGOP0(thebits : TBits_1); inline;
  48656. begin
  48657. if thebits = 0 then
  48658. pTDefRegMap(@Self)^.clr := $00000001
  48659. else
  48660. pTDefRegMap(@Self)^.&set := $00000001;
  48661. end;
  48662. function TNVM_NVMCON.getPROGOP0 : TBits_1; inline;
  48663. begin
  48664. getPROGOP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  48665. end;
  48666. procedure TNVM_NVMCON.setPROGOP1; inline;
  48667. begin
  48668. pTDefRegMap(@Self)^.&set := $00000002;
  48669. end;
  48670. procedure TNVM_NVMCON.clearPROGOP1; inline;
  48671. begin
  48672. pTDefRegMap(@Self)^.clr := $00000002;
  48673. end;
  48674. procedure TNVM_NVMCON.setPROGOP1(thebits : TBits_1); inline;
  48675. begin
  48676. if thebits = 0 then
  48677. pTDefRegMap(@Self)^.clr := $00000002
  48678. else
  48679. pTDefRegMap(@Self)^.&set := $00000002;
  48680. end;
  48681. function TNVM_NVMCON.getPROGOP1 : TBits_1; inline;
  48682. begin
  48683. getPROGOP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  48684. end;
  48685. procedure TNVM_NVMCON.setPROGOP2; inline;
  48686. begin
  48687. pTDefRegMap(@Self)^.&set := $00000004;
  48688. end;
  48689. procedure TNVM_NVMCON.clearPROGOP2; inline;
  48690. begin
  48691. pTDefRegMap(@Self)^.clr := $00000004;
  48692. end;
  48693. procedure TNVM_NVMCON.setPROGOP2(thebits : TBits_1); inline;
  48694. begin
  48695. if thebits = 0 then
  48696. pTDefRegMap(@Self)^.clr := $00000004
  48697. else
  48698. pTDefRegMap(@Self)^.&set := $00000004;
  48699. end;
  48700. function TNVM_NVMCON.getPROGOP2 : TBits_1; inline;
  48701. begin
  48702. getPROGOP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  48703. end;
  48704. procedure TNVM_NVMCON.setPROGOP3; inline;
  48705. begin
  48706. pTDefRegMap(@Self)^.&set := $00000008;
  48707. end;
  48708. procedure TNVM_NVMCON.clearPROGOP3; inline;
  48709. begin
  48710. pTDefRegMap(@Self)^.clr := $00000008;
  48711. end;
  48712. procedure TNVM_NVMCON.setPROGOP3(thebits : TBits_1); inline;
  48713. begin
  48714. if thebits = 0 then
  48715. pTDefRegMap(@Self)^.clr := $00000008
  48716. else
  48717. pTDefRegMap(@Self)^.&set := $00000008;
  48718. end;
  48719. function TNVM_NVMCON.getPROGOP3 : TBits_1; inline;
  48720. begin
  48721. getPROGOP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  48722. end;
  48723. procedure TNVM_NVMCON.setw(thebits : TBits_32); inline;
  48724. begin
  48725. pTDefRegMap(@Self)^.val := thebits;
  48726. end;
  48727. function TNVM_NVMCON.getw : TBits_32; inline;
  48728. begin
  48729. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  48730. end;
  48731. procedure TRCON_RCON.setPOR; inline;
  48732. begin
  48733. pTDefRegMap(@Self)^.&set := $00000001;
  48734. end;
  48735. procedure TRCON_RCON.clearPOR; inline;
  48736. begin
  48737. pTDefRegMap(@Self)^.clr := $00000001;
  48738. end;
  48739. procedure TRCON_RCON.setPOR(thebits : TBits_1); inline;
  48740. begin
  48741. if thebits = 0 then
  48742. pTDefRegMap(@Self)^.clr := $00000001
  48743. else
  48744. pTDefRegMap(@Self)^.&set := $00000001;
  48745. end;
  48746. function TRCON_RCON.getPOR : TBits_1; inline;
  48747. begin
  48748. getPOR := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  48749. end;
  48750. procedure TRCON_RCON.setBOR; inline;
  48751. begin
  48752. pTDefRegMap(@Self)^.&set := $00000002;
  48753. end;
  48754. procedure TRCON_RCON.clearBOR; inline;
  48755. begin
  48756. pTDefRegMap(@Self)^.clr := $00000002;
  48757. end;
  48758. procedure TRCON_RCON.setBOR(thebits : TBits_1); inline;
  48759. begin
  48760. if thebits = 0 then
  48761. pTDefRegMap(@Self)^.clr := $00000002
  48762. else
  48763. pTDefRegMap(@Self)^.&set := $00000002;
  48764. end;
  48765. function TRCON_RCON.getBOR : TBits_1; inline;
  48766. begin
  48767. getBOR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  48768. end;
  48769. procedure TRCON_RCON.setIDLE; inline;
  48770. begin
  48771. pTDefRegMap(@Self)^.&set := $00000004;
  48772. end;
  48773. procedure TRCON_RCON.clearIDLE; inline;
  48774. begin
  48775. pTDefRegMap(@Self)^.clr := $00000004;
  48776. end;
  48777. procedure TRCON_RCON.setIDLE(thebits : TBits_1); inline;
  48778. begin
  48779. if thebits = 0 then
  48780. pTDefRegMap(@Self)^.clr := $00000004
  48781. else
  48782. pTDefRegMap(@Self)^.&set := $00000004;
  48783. end;
  48784. function TRCON_RCON.getIDLE : TBits_1; inline;
  48785. begin
  48786. getIDLE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  48787. end;
  48788. procedure TRCON_RCON.setSLEEP; inline;
  48789. begin
  48790. pTDefRegMap(@Self)^.&set := $00000008;
  48791. end;
  48792. procedure TRCON_RCON.clearSLEEP; inline;
  48793. begin
  48794. pTDefRegMap(@Self)^.clr := $00000008;
  48795. end;
  48796. procedure TRCON_RCON.setSLEEP(thebits : TBits_1); inline;
  48797. begin
  48798. if thebits = 0 then
  48799. pTDefRegMap(@Self)^.clr := $00000008
  48800. else
  48801. pTDefRegMap(@Self)^.&set := $00000008;
  48802. end;
  48803. function TRCON_RCON.getSLEEP : TBits_1; inline;
  48804. begin
  48805. getSLEEP := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  48806. end;
  48807. procedure TRCON_RCON.setWDTO; inline;
  48808. begin
  48809. pTDefRegMap(@Self)^.&set := $00000010;
  48810. end;
  48811. procedure TRCON_RCON.clearWDTO; inline;
  48812. begin
  48813. pTDefRegMap(@Self)^.clr := $00000010;
  48814. end;
  48815. procedure TRCON_RCON.setWDTO(thebits : TBits_1); inline;
  48816. begin
  48817. if thebits = 0 then
  48818. pTDefRegMap(@Self)^.clr := $00000010
  48819. else
  48820. pTDefRegMap(@Self)^.&set := $00000010;
  48821. end;
  48822. function TRCON_RCON.getWDTO : TBits_1; inline;
  48823. begin
  48824. getWDTO := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  48825. end;
  48826. procedure TRCON_RCON.setSWR; inline;
  48827. begin
  48828. pTDefRegMap(@Self)^.&set := $00000040;
  48829. end;
  48830. procedure TRCON_RCON.clearSWR; inline;
  48831. begin
  48832. pTDefRegMap(@Self)^.clr := $00000040;
  48833. end;
  48834. procedure TRCON_RCON.setSWR(thebits : TBits_1); inline;
  48835. begin
  48836. if thebits = 0 then
  48837. pTDefRegMap(@Self)^.clr := $00000040
  48838. else
  48839. pTDefRegMap(@Self)^.&set := $00000040;
  48840. end;
  48841. function TRCON_RCON.getSWR : TBits_1; inline;
  48842. begin
  48843. getSWR := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  48844. end;
  48845. procedure TRCON_RCON.setEXTR; inline;
  48846. begin
  48847. pTDefRegMap(@Self)^.&set := $00000080;
  48848. end;
  48849. procedure TRCON_RCON.clearEXTR; inline;
  48850. begin
  48851. pTDefRegMap(@Self)^.clr := $00000080;
  48852. end;
  48853. procedure TRCON_RCON.setEXTR(thebits : TBits_1); inline;
  48854. begin
  48855. if thebits = 0 then
  48856. pTDefRegMap(@Self)^.clr := $00000080
  48857. else
  48858. pTDefRegMap(@Self)^.&set := $00000080;
  48859. end;
  48860. function TRCON_RCON.getEXTR : TBits_1; inline;
  48861. begin
  48862. getEXTR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  48863. end;
  48864. procedure TRCON_RCON.setVREGS; inline;
  48865. begin
  48866. pTDefRegMap(@Self)^.&set := $00000100;
  48867. end;
  48868. procedure TRCON_RCON.clearVREGS; inline;
  48869. begin
  48870. pTDefRegMap(@Self)^.clr := $00000100;
  48871. end;
  48872. procedure TRCON_RCON.setVREGS(thebits : TBits_1); inline;
  48873. begin
  48874. if thebits = 0 then
  48875. pTDefRegMap(@Self)^.clr := $00000100
  48876. else
  48877. pTDefRegMap(@Self)^.&set := $00000100;
  48878. end;
  48879. function TRCON_RCON.getVREGS : TBits_1; inline;
  48880. begin
  48881. getVREGS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  48882. end;
  48883. procedure TRCON_RCON.setCMR; inline;
  48884. begin
  48885. pTDefRegMap(@Self)^.&set := $00000200;
  48886. end;
  48887. procedure TRCON_RCON.clearCMR; inline;
  48888. begin
  48889. pTDefRegMap(@Self)^.clr := $00000200;
  48890. end;
  48891. procedure TRCON_RCON.setCMR(thebits : TBits_1); inline;
  48892. begin
  48893. if thebits = 0 then
  48894. pTDefRegMap(@Self)^.clr := $00000200
  48895. else
  48896. pTDefRegMap(@Self)^.&set := $00000200;
  48897. end;
  48898. function TRCON_RCON.getCMR : TBits_1; inline;
  48899. begin
  48900. getCMR := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  48901. end;
  48902. procedure TRCON_RCON.setw(thebits : TBits_32); inline;
  48903. begin
  48904. pTDefRegMap(@Self)^.val := thebits;
  48905. end;
  48906. function TRCON_RCON.getw : TBits_32; inline;
  48907. begin
  48908. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  48909. end;
  48910. procedure TRCON_RSWRST.setSWRST; inline;
  48911. begin
  48912. pTDefRegMap(@Self)^.&set := $00000001;
  48913. end;
  48914. procedure TRCON_RSWRST.clearSWRST; inline;
  48915. begin
  48916. pTDefRegMap(@Self)^.clr := $00000001;
  48917. end;
  48918. procedure TRCON_RSWRST.setSWRST(thebits : TBits_1); inline;
  48919. begin
  48920. if thebits = 0 then
  48921. pTDefRegMap(@Self)^.clr := $00000001
  48922. else
  48923. pTDefRegMap(@Self)^.&set := $00000001;
  48924. end;
  48925. function TRCON_RSWRST.getSWRST : TBits_1; inline;
  48926. begin
  48927. getSWRST := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  48928. end;
  48929. procedure TRCON_RSWRST.setw(thebits : TBits_32); inline;
  48930. begin
  48931. pTDefRegMap(@Self)^.val := thebits;
  48932. end;
  48933. function TRCON_RSWRST.getw : TBits_32; inline;
  48934. begin
  48935. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  48936. end;
  48937. procedure TINT_INTCON.setINT0EP; inline;
  48938. begin
  48939. pTDefRegMap(@Self)^.&set := $00000001;
  48940. end;
  48941. procedure TINT_INTCON.clearINT0EP; inline;
  48942. begin
  48943. pTDefRegMap(@Self)^.clr := $00000001;
  48944. end;
  48945. procedure TINT_INTCON.setINT0EP(thebits : TBits_1); inline;
  48946. begin
  48947. if thebits = 0 then
  48948. pTDefRegMap(@Self)^.clr := $00000001
  48949. else
  48950. pTDefRegMap(@Self)^.&set := $00000001;
  48951. end;
  48952. function TINT_INTCON.getINT0EP : TBits_1; inline;
  48953. begin
  48954. getINT0EP := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  48955. end;
  48956. procedure TINT_INTCON.setINT1EP; inline;
  48957. begin
  48958. pTDefRegMap(@Self)^.&set := $00000002;
  48959. end;
  48960. procedure TINT_INTCON.clearINT1EP; inline;
  48961. begin
  48962. pTDefRegMap(@Self)^.clr := $00000002;
  48963. end;
  48964. procedure TINT_INTCON.setINT1EP(thebits : TBits_1); inline;
  48965. begin
  48966. if thebits = 0 then
  48967. pTDefRegMap(@Self)^.clr := $00000002
  48968. else
  48969. pTDefRegMap(@Self)^.&set := $00000002;
  48970. end;
  48971. function TINT_INTCON.getINT1EP : TBits_1; inline;
  48972. begin
  48973. getINT1EP := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  48974. end;
  48975. procedure TINT_INTCON.setINT2EP; inline;
  48976. begin
  48977. pTDefRegMap(@Self)^.&set := $00000004;
  48978. end;
  48979. procedure TINT_INTCON.clearINT2EP; inline;
  48980. begin
  48981. pTDefRegMap(@Self)^.clr := $00000004;
  48982. end;
  48983. procedure TINT_INTCON.setINT2EP(thebits : TBits_1); inline;
  48984. begin
  48985. if thebits = 0 then
  48986. pTDefRegMap(@Self)^.clr := $00000004
  48987. else
  48988. pTDefRegMap(@Self)^.&set := $00000004;
  48989. end;
  48990. function TINT_INTCON.getINT2EP : TBits_1; inline;
  48991. begin
  48992. getINT2EP := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  48993. end;
  48994. procedure TINT_INTCON.setINT3EP; inline;
  48995. begin
  48996. pTDefRegMap(@Self)^.&set := $00000008;
  48997. end;
  48998. procedure TINT_INTCON.clearINT3EP; inline;
  48999. begin
  49000. pTDefRegMap(@Self)^.clr := $00000008;
  49001. end;
  49002. procedure TINT_INTCON.setINT3EP(thebits : TBits_1); inline;
  49003. begin
  49004. if thebits = 0 then
  49005. pTDefRegMap(@Self)^.clr := $00000008
  49006. else
  49007. pTDefRegMap(@Self)^.&set := $00000008;
  49008. end;
  49009. function TINT_INTCON.getINT3EP : TBits_1; inline;
  49010. begin
  49011. getINT3EP := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  49012. end;
  49013. procedure TINT_INTCON.setINT4EP; inline;
  49014. begin
  49015. pTDefRegMap(@Self)^.&set := $00000010;
  49016. end;
  49017. procedure TINT_INTCON.clearINT4EP; inline;
  49018. begin
  49019. pTDefRegMap(@Self)^.clr := $00000010;
  49020. end;
  49021. procedure TINT_INTCON.setINT4EP(thebits : TBits_1); inline;
  49022. begin
  49023. if thebits = 0 then
  49024. pTDefRegMap(@Self)^.clr := $00000010
  49025. else
  49026. pTDefRegMap(@Self)^.&set := $00000010;
  49027. end;
  49028. function TINT_INTCON.getINT4EP : TBits_1; inline;
  49029. begin
  49030. getINT4EP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  49031. end;
  49032. procedure TINT_INTCON.setTPC(thebits : TBits_3); inline;
  49033. begin
  49034. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  49035. end;
  49036. function TINT_INTCON.getTPC : TBits_3; inline;
  49037. begin
  49038. getTPC := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  49039. end;
  49040. procedure TINT_INTCON.setMVEC; inline;
  49041. begin
  49042. pTDefRegMap(@Self)^.&set := $00001000;
  49043. end;
  49044. procedure TINT_INTCON.clearMVEC; inline;
  49045. begin
  49046. pTDefRegMap(@Self)^.clr := $00001000;
  49047. end;
  49048. procedure TINT_INTCON.setMVEC(thebits : TBits_1); inline;
  49049. begin
  49050. if thebits = 0 then
  49051. pTDefRegMap(@Self)^.clr := $00001000
  49052. else
  49053. pTDefRegMap(@Self)^.&set := $00001000;
  49054. end;
  49055. function TINT_INTCON.getMVEC : TBits_1; inline;
  49056. begin
  49057. getMVEC := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  49058. end;
  49059. procedure TINT_INTCON.setFRZ; inline;
  49060. begin
  49061. pTDefRegMap(@Self)^.&set := $00004000;
  49062. end;
  49063. procedure TINT_INTCON.clearFRZ; inline;
  49064. begin
  49065. pTDefRegMap(@Self)^.clr := $00004000;
  49066. end;
  49067. procedure TINT_INTCON.setFRZ(thebits : TBits_1); inline;
  49068. begin
  49069. if thebits = 0 then
  49070. pTDefRegMap(@Self)^.clr := $00004000
  49071. else
  49072. pTDefRegMap(@Self)^.&set := $00004000;
  49073. end;
  49074. function TINT_INTCON.getFRZ : TBits_1; inline;
  49075. begin
  49076. getFRZ := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  49077. end;
  49078. procedure TINT_INTCON.setSS0; inline;
  49079. begin
  49080. pTDefRegMap(@Self)^.&set := $00010000;
  49081. end;
  49082. procedure TINT_INTCON.clearSS0; inline;
  49083. begin
  49084. pTDefRegMap(@Self)^.clr := $00010000;
  49085. end;
  49086. procedure TINT_INTCON.setSS0(thebits : TBits_1); inline;
  49087. begin
  49088. if thebits = 0 then
  49089. pTDefRegMap(@Self)^.clr := $00010000
  49090. else
  49091. pTDefRegMap(@Self)^.&set := $00010000;
  49092. end;
  49093. function TINT_INTCON.getSS0 : TBits_1; inline;
  49094. begin
  49095. getSS0 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  49096. end;
  49097. procedure TINT_INTCON.setw(thebits : TBits_32); inline;
  49098. begin
  49099. pTDefRegMap(@Self)^.val := thebits;
  49100. end;
  49101. function TINT_INTCON.getw : TBits_32; inline;
  49102. begin
  49103. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  49104. end;
  49105. procedure TINT_IFS0.setCTIF; inline;
  49106. begin
  49107. pTDefRegMap(@Self)^.&set := $00000001;
  49108. end;
  49109. procedure TINT_IFS0.clearCTIF; inline;
  49110. begin
  49111. pTDefRegMap(@Self)^.clr := $00000001;
  49112. end;
  49113. procedure TINT_IFS0.setCTIF(thebits : TBits_1); inline;
  49114. begin
  49115. if thebits = 0 then
  49116. pTDefRegMap(@Self)^.clr := $00000001
  49117. else
  49118. pTDefRegMap(@Self)^.&set := $00000001;
  49119. end;
  49120. function TINT_IFS0.getCTIF : TBits_1; inline;
  49121. begin
  49122. getCTIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  49123. end;
  49124. procedure TINT_IFS0.setCS0IF; inline;
  49125. begin
  49126. pTDefRegMap(@Self)^.&set := $00000002;
  49127. end;
  49128. procedure TINT_IFS0.clearCS0IF; inline;
  49129. begin
  49130. pTDefRegMap(@Self)^.clr := $00000002;
  49131. end;
  49132. procedure TINT_IFS0.setCS0IF(thebits : TBits_1); inline;
  49133. begin
  49134. if thebits = 0 then
  49135. pTDefRegMap(@Self)^.clr := $00000002
  49136. else
  49137. pTDefRegMap(@Self)^.&set := $00000002;
  49138. end;
  49139. function TINT_IFS0.getCS0IF : TBits_1; inline;
  49140. begin
  49141. getCS0IF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  49142. end;
  49143. procedure TINT_IFS0.setCS1IF; inline;
  49144. begin
  49145. pTDefRegMap(@Self)^.&set := $00000004;
  49146. end;
  49147. procedure TINT_IFS0.clearCS1IF; inline;
  49148. begin
  49149. pTDefRegMap(@Self)^.clr := $00000004;
  49150. end;
  49151. procedure TINT_IFS0.setCS1IF(thebits : TBits_1); inline;
  49152. begin
  49153. if thebits = 0 then
  49154. pTDefRegMap(@Self)^.clr := $00000004
  49155. else
  49156. pTDefRegMap(@Self)^.&set := $00000004;
  49157. end;
  49158. function TINT_IFS0.getCS1IF : TBits_1; inline;
  49159. begin
  49160. getCS1IF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  49161. end;
  49162. procedure TINT_IFS0.setINT0IF; inline;
  49163. begin
  49164. pTDefRegMap(@Self)^.&set := $00000008;
  49165. end;
  49166. procedure TINT_IFS0.clearINT0IF; inline;
  49167. begin
  49168. pTDefRegMap(@Self)^.clr := $00000008;
  49169. end;
  49170. procedure TINT_IFS0.setINT0IF(thebits : TBits_1); inline;
  49171. begin
  49172. if thebits = 0 then
  49173. pTDefRegMap(@Self)^.clr := $00000008
  49174. else
  49175. pTDefRegMap(@Self)^.&set := $00000008;
  49176. end;
  49177. function TINT_IFS0.getINT0IF : TBits_1; inline;
  49178. begin
  49179. getINT0IF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  49180. end;
  49181. procedure TINT_IFS0.setT1IF; inline;
  49182. begin
  49183. pTDefRegMap(@Self)^.&set := $00000010;
  49184. end;
  49185. procedure TINT_IFS0.clearT1IF; inline;
  49186. begin
  49187. pTDefRegMap(@Self)^.clr := $00000010;
  49188. end;
  49189. procedure TINT_IFS0.setT1IF(thebits : TBits_1); inline;
  49190. begin
  49191. if thebits = 0 then
  49192. pTDefRegMap(@Self)^.clr := $00000010
  49193. else
  49194. pTDefRegMap(@Self)^.&set := $00000010;
  49195. end;
  49196. function TINT_IFS0.getT1IF : TBits_1; inline;
  49197. begin
  49198. getT1IF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  49199. end;
  49200. procedure TINT_IFS0.setIC1IF; inline;
  49201. begin
  49202. pTDefRegMap(@Self)^.&set := $00000020;
  49203. end;
  49204. procedure TINT_IFS0.clearIC1IF; inline;
  49205. begin
  49206. pTDefRegMap(@Self)^.clr := $00000020;
  49207. end;
  49208. procedure TINT_IFS0.setIC1IF(thebits : TBits_1); inline;
  49209. begin
  49210. if thebits = 0 then
  49211. pTDefRegMap(@Self)^.clr := $00000020
  49212. else
  49213. pTDefRegMap(@Self)^.&set := $00000020;
  49214. end;
  49215. function TINT_IFS0.getIC1IF : TBits_1; inline;
  49216. begin
  49217. getIC1IF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  49218. end;
  49219. procedure TINT_IFS0.setOC1IF; inline;
  49220. begin
  49221. pTDefRegMap(@Self)^.&set := $00000040;
  49222. end;
  49223. procedure TINT_IFS0.clearOC1IF; inline;
  49224. begin
  49225. pTDefRegMap(@Self)^.clr := $00000040;
  49226. end;
  49227. procedure TINT_IFS0.setOC1IF(thebits : TBits_1); inline;
  49228. begin
  49229. if thebits = 0 then
  49230. pTDefRegMap(@Self)^.clr := $00000040
  49231. else
  49232. pTDefRegMap(@Self)^.&set := $00000040;
  49233. end;
  49234. function TINT_IFS0.getOC1IF : TBits_1; inline;
  49235. begin
  49236. getOC1IF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  49237. end;
  49238. procedure TINT_IFS0.setINT1IF; inline;
  49239. begin
  49240. pTDefRegMap(@Self)^.&set := $00000080;
  49241. end;
  49242. procedure TINT_IFS0.clearINT1IF; inline;
  49243. begin
  49244. pTDefRegMap(@Self)^.clr := $00000080;
  49245. end;
  49246. procedure TINT_IFS0.setINT1IF(thebits : TBits_1); inline;
  49247. begin
  49248. if thebits = 0 then
  49249. pTDefRegMap(@Self)^.clr := $00000080
  49250. else
  49251. pTDefRegMap(@Self)^.&set := $00000080;
  49252. end;
  49253. function TINT_IFS0.getINT1IF : TBits_1; inline;
  49254. begin
  49255. getINT1IF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  49256. end;
  49257. procedure TINT_IFS0.setT2IF; inline;
  49258. begin
  49259. pTDefRegMap(@Self)^.&set := $00000100;
  49260. end;
  49261. procedure TINT_IFS0.clearT2IF; inline;
  49262. begin
  49263. pTDefRegMap(@Self)^.clr := $00000100;
  49264. end;
  49265. procedure TINT_IFS0.setT2IF(thebits : TBits_1); inline;
  49266. begin
  49267. if thebits = 0 then
  49268. pTDefRegMap(@Self)^.clr := $00000100
  49269. else
  49270. pTDefRegMap(@Self)^.&set := $00000100;
  49271. end;
  49272. function TINT_IFS0.getT2IF : TBits_1; inline;
  49273. begin
  49274. getT2IF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  49275. end;
  49276. procedure TINT_IFS0.setIC2IF; inline;
  49277. begin
  49278. pTDefRegMap(@Self)^.&set := $00000200;
  49279. end;
  49280. procedure TINT_IFS0.clearIC2IF; inline;
  49281. begin
  49282. pTDefRegMap(@Self)^.clr := $00000200;
  49283. end;
  49284. procedure TINT_IFS0.setIC2IF(thebits : TBits_1); inline;
  49285. begin
  49286. if thebits = 0 then
  49287. pTDefRegMap(@Self)^.clr := $00000200
  49288. else
  49289. pTDefRegMap(@Self)^.&set := $00000200;
  49290. end;
  49291. function TINT_IFS0.getIC2IF : TBits_1; inline;
  49292. begin
  49293. getIC2IF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  49294. end;
  49295. procedure TINT_IFS0.setOC2IF; inline;
  49296. begin
  49297. pTDefRegMap(@Self)^.&set := $00000400;
  49298. end;
  49299. procedure TINT_IFS0.clearOC2IF; inline;
  49300. begin
  49301. pTDefRegMap(@Self)^.clr := $00000400;
  49302. end;
  49303. procedure TINT_IFS0.setOC2IF(thebits : TBits_1); inline;
  49304. begin
  49305. if thebits = 0 then
  49306. pTDefRegMap(@Self)^.clr := $00000400
  49307. else
  49308. pTDefRegMap(@Self)^.&set := $00000400;
  49309. end;
  49310. function TINT_IFS0.getOC2IF : TBits_1; inline;
  49311. begin
  49312. getOC2IF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  49313. end;
  49314. procedure TINT_IFS0.setINT2IF; inline;
  49315. begin
  49316. pTDefRegMap(@Self)^.&set := $00000800;
  49317. end;
  49318. procedure TINT_IFS0.clearINT2IF; inline;
  49319. begin
  49320. pTDefRegMap(@Self)^.clr := $00000800;
  49321. end;
  49322. procedure TINT_IFS0.setINT2IF(thebits : TBits_1); inline;
  49323. begin
  49324. if thebits = 0 then
  49325. pTDefRegMap(@Self)^.clr := $00000800
  49326. else
  49327. pTDefRegMap(@Self)^.&set := $00000800;
  49328. end;
  49329. function TINT_IFS0.getINT2IF : TBits_1; inline;
  49330. begin
  49331. getINT2IF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  49332. end;
  49333. procedure TINT_IFS0.setT3IF; inline;
  49334. begin
  49335. pTDefRegMap(@Self)^.&set := $00001000;
  49336. end;
  49337. procedure TINT_IFS0.clearT3IF; inline;
  49338. begin
  49339. pTDefRegMap(@Self)^.clr := $00001000;
  49340. end;
  49341. procedure TINT_IFS0.setT3IF(thebits : TBits_1); inline;
  49342. begin
  49343. if thebits = 0 then
  49344. pTDefRegMap(@Self)^.clr := $00001000
  49345. else
  49346. pTDefRegMap(@Self)^.&set := $00001000;
  49347. end;
  49348. function TINT_IFS0.getT3IF : TBits_1; inline;
  49349. begin
  49350. getT3IF := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  49351. end;
  49352. procedure TINT_IFS0.setIC3IF; inline;
  49353. begin
  49354. pTDefRegMap(@Self)^.&set := $00002000;
  49355. end;
  49356. procedure TINT_IFS0.clearIC3IF; inline;
  49357. begin
  49358. pTDefRegMap(@Self)^.clr := $00002000;
  49359. end;
  49360. procedure TINT_IFS0.setIC3IF(thebits : TBits_1); inline;
  49361. begin
  49362. if thebits = 0 then
  49363. pTDefRegMap(@Self)^.clr := $00002000
  49364. else
  49365. pTDefRegMap(@Self)^.&set := $00002000;
  49366. end;
  49367. function TINT_IFS0.getIC3IF : TBits_1; inline;
  49368. begin
  49369. getIC3IF := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  49370. end;
  49371. procedure TINT_IFS0.setOC3IF; inline;
  49372. begin
  49373. pTDefRegMap(@Self)^.&set := $00004000;
  49374. end;
  49375. procedure TINT_IFS0.clearOC3IF; inline;
  49376. begin
  49377. pTDefRegMap(@Self)^.clr := $00004000;
  49378. end;
  49379. procedure TINT_IFS0.setOC3IF(thebits : TBits_1); inline;
  49380. begin
  49381. if thebits = 0 then
  49382. pTDefRegMap(@Self)^.clr := $00004000
  49383. else
  49384. pTDefRegMap(@Self)^.&set := $00004000;
  49385. end;
  49386. function TINT_IFS0.getOC3IF : TBits_1; inline;
  49387. begin
  49388. getOC3IF := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  49389. end;
  49390. procedure TINT_IFS0.setINT3IF; inline;
  49391. begin
  49392. pTDefRegMap(@Self)^.&set := $00008000;
  49393. end;
  49394. procedure TINT_IFS0.clearINT3IF; inline;
  49395. begin
  49396. pTDefRegMap(@Self)^.clr := $00008000;
  49397. end;
  49398. procedure TINT_IFS0.setINT3IF(thebits : TBits_1); inline;
  49399. begin
  49400. if thebits = 0 then
  49401. pTDefRegMap(@Self)^.clr := $00008000
  49402. else
  49403. pTDefRegMap(@Self)^.&set := $00008000;
  49404. end;
  49405. function TINT_IFS0.getINT3IF : TBits_1; inline;
  49406. begin
  49407. getINT3IF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  49408. end;
  49409. procedure TINT_IFS0.setT4IF; inline;
  49410. begin
  49411. pTDefRegMap(@Self)^.&set := $00010000;
  49412. end;
  49413. procedure TINT_IFS0.clearT4IF; inline;
  49414. begin
  49415. pTDefRegMap(@Self)^.clr := $00010000;
  49416. end;
  49417. procedure TINT_IFS0.setT4IF(thebits : TBits_1); inline;
  49418. begin
  49419. if thebits = 0 then
  49420. pTDefRegMap(@Self)^.clr := $00010000
  49421. else
  49422. pTDefRegMap(@Self)^.&set := $00010000;
  49423. end;
  49424. function TINT_IFS0.getT4IF : TBits_1; inline;
  49425. begin
  49426. getT4IF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  49427. end;
  49428. procedure TINT_IFS0.setIC4IF; inline;
  49429. begin
  49430. pTDefRegMap(@Self)^.&set := $00020000;
  49431. end;
  49432. procedure TINT_IFS0.clearIC4IF; inline;
  49433. begin
  49434. pTDefRegMap(@Self)^.clr := $00020000;
  49435. end;
  49436. procedure TINT_IFS0.setIC4IF(thebits : TBits_1); inline;
  49437. begin
  49438. if thebits = 0 then
  49439. pTDefRegMap(@Self)^.clr := $00020000
  49440. else
  49441. pTDefRegMap(@Self)^.&set := $00020000;
  49442. end;
  49443. function TINT_IFS0.getIC4IF : TBits_1; inline;
  49444. begin
  49445. getIC4IF := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  49446. end;
  49447. procedure TINT_IFS0.setOC4IF; inline;
  49448. begin
  49449. pTDefRegMap(@Self)^.&set := $00040000;
  49450. end;
  49451. procedure TINT_IFS0.clearOC4IF; inline;
  49452. begin
  49453. pTDefRegMap(@Self)^.clr := $00040000;
  49454. end;
  49455. procedure TINT_IFS0.setOC4IF(thebits : TBits_1); inline;
  49456. begin
  49457. if thebits = 0 then
  49458. pTDefRegMap(@Self)^.clr := $00040000
  49459. else
  49460. pTDefRegMap(@Self)^.&set := $00040000;
  49461. end;
  49462. function TINT_IFS0.getOC4IF : TBits_1; inline;
  49463. begin
  49464. getOC4IF := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  49465. end;
  49466. procedure TINT_IFS0.setINT4IF; inline;
  49467. begin
  49468. pTDefRegMap(@Self)^.&set := $00080000;
  49469. end;
  49470. procedure TINT_IFS0.clearINT4IF; inline;
  49471. begin
  49472. pTDefRegMap(@Self)^.clr := $00080000;
  49473. end;
  49474. procedure TINT_IFS0.setINT4IF(thebits : TBits_1); inline;
  49475. begin
  49476. if thebits = 0 then
  49477. pTDefRegMap(@Self)^.clr := $00080000
  49478. else
  49479. pTDefRegMap(@Self)^.&set := $00080000;
  49480. end;
  49481. function TINT_IFS0.getINT4IF : TBits_1; inline;
  49482. begin
  49483. getINT4IF := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  49484. end;
  49485. procedure TINT_IFS0.setT5IF; inline;
  49486. begin
  49487. pTDefRegMap(@Self)^.&set := $00100000;
  49488. end;
  49489. procedure TINT_IFS0.clearT5IF; inline;
  49490. begin
  49491. pTDefRegMap(@Self)^.clr := $00100000;
  49492. end;
  49493. procedure TINT_IFS0.setT5IF(thebits : TBits_1); inline;
  49494. begin
  49495. if thebits = 0 then
  49496. pTDefRegMap(@Self)^.clr := $00100000
  49497. else
  49498. pTDefRegMap(@Self)^.&set := $00100000;
  49499. end;
  49500. function TINT_IFS0.getT5IF : TBits_1; inline;
  49501. begin
  49502. getT5IF := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  49503. end;
  49504. procedure TINT_IFS0.setIC5IF; inline;
  49505. begin
  49506. pTDefRegMap(@Self)^.&set := $00200000;
  49507. end;
  49508. procedure TINT_IFS0.clearIC5IF; inline;
  49509. begin
  49510. pTDefRegMap(@Self)^.clr := $00200000;
  49511. end;
  49512. procedure TINT_IFS0.setIC5IF(thebits : TBits_1); inline;
  49513. begin
  49514. if thebits = 0 then
  49515. pTDefRegMap(@Self)^.clr := $00200000
  49516. else
  49517. pTDefRegMap(@Self)^.&set := $00200000;
  49518. end;
  49519. function TINT_IFS0.getIC5IF : TBits_1; inline;
  49520. begin
  49521. getIC5IF := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  49522. end;
  49523. procedure TINT_IFS0.setOC5IF; inline;
  49524. begin
  49525. pTDefRegMap(@Self)^.&set := $00400000;
  49526. end;
  49527. procedure TINT_IFS0.clearOC5IF; inline;
  49528. begin
  49529. pTDefRegMap(@Self)^.clr := $00400000;
  49530. end;
  49531. procedure TINT_IFS0.setOC5IF(thebits : TBits_1); inline;
  49532. begin
  49533. if thebits = 0 then
  49534. pTDefRegMap(@Self)^.clr := $00400000
  49535. else
  49536. pTDefRegMap(@Self)^.&set := $00400000;
  49537. end;
  49538. function TINT_IFS0.getOC5IF : TBits_1; inline;
  49539. begin
  49540. getOC5IF := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  49541. end;
  49542. procedure TINT_IFS0.setSPI1EIF; inline;
  49543. begin
  49544. pTDefRegMap(@Self)^.&set := $00800000;
  49545. end;
  49546. procedure TINT_IFS0.clearSPI1EIF; inline;
  49547. begin
  49548. pTDefRegMap(@Self)^.clr := $00800000;
  49549. end;
  49550. procedure TINT_IFS0.setSPI1EIF(thebits : TBits_1); inline;
  49551. begin
  49552. if thebits = 0 then
  49553. pTDefRegMap(@Self)^.clr := $00800000
  49554. else
  49555. pTDefRegMap(@Self)^.&set := $00800000;
  49556. end;
  49557. function TINT_IFS0.getSPI1EIF : TBits_1; inline;
  49558. begin
  49559. getSPI1EIF := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  49560. end;
  49561. procedure TINT_IFS0.setSPI1RXIF; inline;
  49562. begin
  49563. pTDefRegMap(@Self)^.&set := $01000000;
  49564. end;
  49565. procedure TINT_IFS0.clearSPI1RXIF; inline;
  49566. begin
  49567. pTDefRegMap(@Self)^.clr := $01000000;
  49568. end;
  49569. procedure TINT_IFS0.setSPI1RXIF(thebits : TBits_1); inline;
  49570. begin
  49571. if thebits = 0 then
  49572. pTDefRegMap(@Self)^.clr := $01000000
  49573. else
  49574. pTDefRegMap(@Self)^.&set := $01000000;
  49575. end;
  49576. function TINT_IFS0.getSPI1RXIF : TBits_1; inline;
  49577. begin
  49578. getSPI1RXIF := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  49579. end;
  49580. procedure TINT_IFS0.setSPI1TXIF; inline;
  49581. begin
  49582. pTDefRegMap(@Self)^.&set := $02000000;
  49583. end;
  49584. procedure TINT_IFS0.clearSPI1TXIF; inline;
  49585. begin
  49586. pTDefRegMap(@Self)^.clr := $02000000;
  49587. end;
  49588. procedure TINT_IFS0.setSPI1TXIF(thebits : TBits_1); inline;
  49589. begin
  49590. if thebits = 0 then
  49591. pTDefRegMap(@Self)^.clr := $02000000
  49592. else
  49593. pTDefRegMap(@Self)^.&set := $02000000;
  49594. end;
  49595. function TINT_IFS0.getSPI1TXIF : TBits_1; inline;
  49596. begin
  49597. getSPI1TXIF := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  49598. end;
  49599. procedure TINT_IFS0.setU1EIF; inline;
  49600. begin
  49601. pTDefRegMap(@Self)^.&set := $04000000;
  49602. end;
  49603. procedure TINT_IFS0.clearU1EIF; inline;
  49604. begin
  49605. pTDefRegMap(@Self)^.clr := $04000000;
  49606. end;
  49607. procedure TINT_IFS0.setU1EIF(thebits : TBits_1); inline;
  49608. begin
  49609. if thebits = 0 then
  49610. pTDefRegMap(@Self)^.clr := $04000000
  49611. else
  49612. pTDefRegMap(@Self)^.&set := $04000000;
  49613. end;
  49614. function TINT_IFS0.getU1EIF : TBits_1; inline;
  49615. begin
  49616. getU1EIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  49617. end;
  49618. procedure TINT_IFS0.setU1RXIF; inline;
  49619. begin
  49620. pTDefRegMap(@Self)^.&set := $08000000;
  49621. end;
  49622. procedure TINT_IFS0.clearU1RXIF; inline;
  49623. begin
  49624. pTDefRegMap(@Self)^.clr := $08000000;
  49625. end;
  49626. procedure TINT_IFS0.setU1RXIF(thebits : TBits_1); inline;
  49627. begin
  49628. if thebits = 0 then
  49629. pTDefRegMap(@Self)^.clr := $08000000
  49630. else
  49631. pTDefRegMap(@Self)^.&set := $08000000;
  49632. end;
  49633. function TINT_IFS0.getU1RXIF : TBits_1; inline;
  49634. begin
  49635. getU1RXIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  49636. end;
  49637. procedure TINT_IFS0.setU1TXIF; inline;
  49638. begin
  49639. pTDefRegMap(@Self)^.&set := $10000000;
  49640. end;
  49641. procedure TINT_IFS0.clearU1TXIF; inline;
  49642. begin
  49643. pTDefRegMap(@Self)^.clr := $10000000;
  49644. end;
  49645. procedure TINT_IFS0.setU1TXIF(thebits : TBits_1); inline;
  49646. begin
  49647. if thebits = 0 then
  49648. pTDefRegMap(@Self)^.clr := $10000000
  49649. else
  49650. pTDefRegMap(@Self)^.&set := $10000000;
  49651. end;
  49652. function TINT_IFS0.getU1TXIF : TBits_1; inline;
  49653. begin
  49654. getU1TXIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  49655. end;
  49656. procedure TINT_IFS0.setI2C1BIF; inline;
  49657. begin
  49658. pTDefRegMap(@Self)^.&set := $20000000;
  49659. end;
  49660. procedure TINT_IFS0.clearI2C1BIF; inline;
  49661. begin
  49662. pTDefRegMap(@Self)^.clr := $20000000;
  49663. end;
  49664. procedure TINT_IFS0.setI2C1BIF(thebits : TBits_1); inline;
  49665. begin
  49666. if thebits = 0 then
  49667. pTDefRegMap(@Self)^.clr := $20000000
  49668. else
  49669. pTDefRegMap(@Self)^.&set := $20000000;
  49670. end;
  49671. function TINT_IFS0.getI2C1BIF : TBits_1; inline;
  49672. begin
  49673. getI2C1BIF := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  49674. end;
  49675. procedure TINT_IFS0.setI2C1SIF; inline;
  49676. begin
  49677. pTDefRegMap(@Self)^.&set := $40000000;
  49678. end;
  49679. procedure TINT_IFS0.clearI2C1SIF; inline;
  49680. begin
  49681. pTDefRegMap(@Self)^.clr := $40000000;
  49682. end;
  49683. procedure TINT_IFS0.setI2C1SIF(thebits : TBits_1); inline;
  49684. begin
  49685. if thebits = 0 then
  49686. pTDefRegMap(@Self)^.clr := $40000000
  49687. else
  49688. pTDefRegMap(@Self)^.&set := $40000000;
  49689. end;
  49690. function TINT_IFS0.getI2C1SIF : TBits_1; inline;
  49691. begin
  49692. getI2C1SIF := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  49693. end;
  49694. procedure TINT_IFS0.setI2C1MIF; inline;
  49695. begin
  49696. pTDefRegMap(@Self)^.&set := $80000000;
  49697. end;
  49698. procedure TINT_IFS0.clearI2C1MIF; inline;
  49699. begin
  49700. pTDefRegMap(@Self)^.clr := $80000000;
  49701. end;
  49702. procedure TINT_IFS0.setI2C1MIF(thebits : TBits_1); inline;
  49703. begin
  49704. if thebits = 0 then
  49705. pTDefRegMap(@Self)^.clr := $80000000
  49706. else
  49707. pTDefRegMap(@Self)^.&set := $80000000;
  49708. end;
  49709. function TINT_IFS0.getI2C1MIF : TBits_1; inline;
  49710. begin
  49711. getI2C1MIF := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  49712. end;
  49713. procedure TINT_IFS0.setU1AEIF; inline;
  49714. begin
  49715. pTDefRegMap(@Self)^.&set := $04000000;
  49716. end;
  49717. procedure TINT_IFS0.clearU1AEIF; inline;
  49718. begin
  49719. pTDefRegMap(@Self)^.clr := $04000000;
  49720. end;
  49721. procedure TINT_IFS0.setU1AEIF(thebits : TBits_1); inline;
  49722. begin
  49723. if thebits = 0 then
  49724. pTDefRegMap(@Self)^.clr := $04000000
  49725. else
  49726. pTDefRegMap(@Self)^.&set := $04000000;
  49727. end;
  49728. function TINT_IFS0.getU1AEIF : TBits_1; inline;
  49729. begin
  49730. getU1AEIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  49731. end;
  49732. procedure TINT_IFS0.setU1ARXIF; inline;
  49733. begin
  49734. pTDefRegMap(@Self)^.&set := $08000000;
  49735. end;
  49736. procedure TINT_IFS0.clearU1ARXIF; inline;
  49737. begin
  49738. pTDefRegMap(@Self)^.clr := $08000000;
  49739. end;
  49740. procedure TINT_IFS0.setU1ARXIF(thebits : TBits_1); inline;
  49741. begin
  49742. if thebits = 0 then
  49743. pTDefRegMap(@Self)^.clr := $08000000
  49744. else
  49745. pTDefRegMap(@Self)^.&set := $08000000;
  49746. end;
  49747. function TINT_IFS0.getU1ARXIF : TBits_1; inline;
  49748. begin
  49749. getU1ARXIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  49750. end;
  49751. procedure TINT_IFS0.setU1ATXIF; inline;
  49752. begin
  49753. pTDefRegMap(@Self)^.&set := $10000000;
  49754. end;
  49755. procedure TINT_IFS0.clearU1ATXIF; inline;
  49756. begin
  49757. pTDefRegMap(@Self)^.clr := $10000000;
  49758. end;
  49759. procedure TINT_IFS0.setU1ATXIF(thebits : TBits_1); inline;
  49760. begin
  49761. if thebits = 0 then
  49762. pTDefRegMap(@Self)^.clr := $10000000
  49763. else
  49764. pTDefRegMap(@Self)^.&set := $10000000;
  49765. end;
  49766. function TINT_IFS0.getU1ATXIF : TBits_1; inline;
  49767. begin
  49768. getU1ATXIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  49769. end;
  49770. procedure TINT_IFS0.setSPI3EIF; inline;
  49771. begin
  49772. pTDefRegMap(@Self)^.&set := $04000000;
  49773. end;
  49774. procedure TINT_IFS0.clearSPI3EIF; inline;
  49775. begin
  49776. pTDefRegMap(@Self)^.clr := $04000000;
  49777. end;
  49778. procedure TINT_IFS0.setSPI3EIF(thebits : TBits_1); inline;
  49779. begin
  49780. if thebits = 0 then
  49781. pTDefRegMap(@Self)^.clr := $04000000
  49782. else
  49783. pTDefRegMap(@Self)^.&set := $04000000;
  49784. end;
  49785. function TINT_IFS0.getSPI3EIF : TBits_1; inline;
  49786. begin
  49787. getSPI3EIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  49788. end;
  49789. procedure TINT_IFS0.setSPI3RXIF; inline;
  49790. begin
  49791. pTDefRegMap(@Self)^.&set := $08000000;
  49792. end;
  49793. procedure TINT_IFS0.clearSPI3RXIF; inline;
  49794. begin
  49795. pTDefRegMap(@Self)^.clr := $08000000;
  49796. end;
  49797. procedure TINT_IFS0.setSPI3RXIF(thebits : TBits_1); inline;
  49798. begin
  49799. if thebits = 0 then
  49800. pTDefRegMap(@Self)^.clr := $08000000
  49801. else
  49802. pTDefRegMap(@Self)^.&set := $08000000;
  49803. end;
  49804. function TINT_IFS0.getSPI3RXIF : TBits_1; inline;
  49805. begin
  49806. getSPI3RXIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  49807. end;
  49808. procedure TINT_IFS0.setSPI3TXIF; inline;
  49809. begin
  49810. pTDefRegMap(@Self)^.&set := $10000000;
  49811. end;
  49812. procedure TINT_IFS0.clearSPI3TXIF; inline;
  49813. begin
  49814. pTDefRegMap(@Self)^.clr := $10000000;
  49815. end;
  49816. procedure TINT_IFS0.setSPI3TXIF(thebits : TBits_1); inline;
  49817. begin
  49818. if thebits = 0 then
  49819. pTDefRegMap(@Self)^.clr := $10000000
  49820. else
  49821. pTDefRegMap(@Self)^.&set := $10000000;
  49822. end;
  49823. function TINT_IFS0.getSPI3TXIF : TBits_1; inline;
  49824. begin
  49825. getSPI3TXIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  49826. end;
  49827. procedure TINT_IFS0.setSPI1AEIF; inline;
  49828. begin
  49829. pTDefRegMap(@Self)^.&set := $04000000;
  49830. end;
  49831. procedure TINT_IFS0.clearSPI1AEIF; inline;
  49832. begin
  49833. pTDefRegMap(@Self)^.clr := $04000000;
  49834. end;
  49835. procedure TINT_IFS0.setSPI1AEIF(thebits : TBits_1); inline;
  49836. begin
  49837. if thebits = 0 then
  49838. pTDefRegMap(@Self)^.clr := $04000000
  49839. else
  49840. pTDefRegMap(@Self)^.&set := $04000000;
  49841. end;
  49842. function TINT_IFS0.getSPI1AEIF : TBits_1; inline;
  49843. begin
  49844. getSPI1AEIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  49845. end;
  49846. procedure TINT_IFS0.setSPI1ARXIF; inline;
  49847. begin
  49848. pTDefRegMap(@Self)^.&set := $08000000;
  49849. end;
  49850. procedure TINT_IFS0.clearSPI1ARXIF; inline;
  49851. begin
  49852. pTDefRegMap(@Self)^.clr := $08000000;
  49853. end;
  49854. procedure TINT_IFS0.setSPI1ARXIF(thebits : TBits_1); inline;
  49855. begin
  49856. if thebits = 0 then
  49857. pTDefRegMap(@Self)^.clr := $08000000
  49858. else
  49859. pTDefRegMap(@Self)^.&set := $08000000;
  49860. end;
  49861. function TINT_IFS0.getSPI1ARXIF : TBits_1; inline;
  49862. begin
  49863. getSPI1ARXIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  49864. end;
  49865. procedure TINT_IFS0.setSPI1ATXIF; inline;
  49866. begin
  49867. pTDefRegMap(@Self)^.&set := $10000000;
  49868. end;
  49869. procedure TINT_IFS0.clearSPI1ATXIF; inline;
  49870. begin
  49871. pTDefRegMap(@Self)^.clr := $10000000;
  49872. end;
  49873. procedure TINT_IFS0.setSPI1ATXIF(thebits : TBits_1); inline;
  49874. begin
  49875. if thebits = 0 then
  49876. pTDefRegMap(@Self)^.clr := $10000000
  49877. else
  49878. pTDefRegMap(@Self)^.&set := $10000000;
  49879. end;
  49880. function TINT_IFS0.getSPI1ATXIF : TBits_1; inline;
  49881. begin
  49882. getSPI1ATXIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  49883. end;
  49884. procedure TINT_IFS0.setI2C3BIF; inline;
  49885. begin
  49886. pTDefRegMap(@Self)^.&set := $04000000;
  49887. end;
  49888. procedure TINT_IFS0.clearI2C3BIF; inline;
  49889. begin
  49890. pTDefRegMap(@Self)^.clr := $04000000;
  49891. end;
  49892. procedure TINT_IFS0.setI2C3BIF(thebits : TBits_1); inline;
  49893. begin
  49894. if thebits = 0 then
  49895. pTDefRegMap(@Self)^.clr := $04000000
  49896. else
  49897. pTDefRegMap(@Self)^.&set := $04000000;
  49898. end;
  49899. function TINT_IFS0.getI2C3BIF : TBits_1; inline;
  49900. begin
  49901. getI2C3BIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  49902. end;
  49903. procedure TINT_IFS0.setI2C3SIF; inline;
  49904. begin
  49905. pTDefRegMap(@Self)^.&set := $08000000;
  49906. end;
  49907. procedure TINT_IFS0.clearI2C3SIF; inline;
  49908. begin
  49909. pTDefRegMap(@Self)^.clr := $08000000;
  49910. end;
  49911. procedure TINT_IFS0.setI2C3SIF(thebits : TBits_1); inline;
  49912. begin
  49913. if thebits = 0 then
  49914. pTDefRegMap(@Self)^.clr := $08000000
  49915. else
  49916. pTDefRegMap(@Self)^.&set := $08000000;
  49917. end;
  49918. function TINT_IFS0.getI2C3SIF : TBits_1; inline;
  49919. begin
  49920. getI2C3SIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  49921. end;
  49922. procedure TINT_IFS0.setI2C3MIF; inline;
  49923. begin
  49924. pTDefRegMap(@Self)^.&set := $10000000;
  49925. end;
  49926. procedure TINT_IFS0.clearI2C3MIF; inline;
  49927. begin
  49928. pTDefRegMap(@Self)^.clr := $10000000;
  49929. end;
  49930. procedure TINT_IFS0.setI2C3MIF(thebits : TBits_1); inline;
  49931. begin
  49932. if thebits = 0 then
  49933. pTDefRegMap(@Self)^.clr := $10000000
  49934. else
  49935. pTDefRegMap(@Self)^.&set := $10000000;
  49936. end;
  49937. function TINT_IFS0.getI2C3MIF : TBits_1; inline;
  49938. begin
  49939. getI2C3MIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  49940. end;
  49941. procedure TINT_IFS0.setI2C1ABIF; inline;
  49942. begin
  49943. pTDefRegMap(@Self)^.&set := $04000000;
  49944. end;
  49945. procedure TINT_IFS0.clearI2C1ABIF; inline;
  49946. begin
  49947. pTDefRegMap(@Self)^.clr := $04000000;
  49948. end;
  49949. procedure TINT_IFS0.setI2C1ABIF(thebits : TBits_1); inline;
  49950. begin
  49951. if thebits = 0 then
  49952. pTDefRegMap(@Self)^.clr := $04000000
  49953. else
  49954. pTDefRegMap(@Self)^.&set := $04000000;
  49955. end;
  49956. function TINT_IFS0.getI2C1ABIF : TBits_1; inline;
  49957. begin
  49958. getI2C1ABIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  49959. end;
  49960. procedure TINT_IFS0.setI2C1ASIF; inline;
  49961. begin
  49962. pTDefRegMap(@Self)^.&set := $08000000;
  49963. end;
  49964. procedure TINT_IFS0.clearI2C1ASIF; inline;
  49965. begin
  49966. pTDefRegMap(@Self)^.clr := $08000000;
  49967. end;
  49968. procedure TINT_IFS0.setI2C1ASIF(thebits : TBits_1); inline;
  49969. begin
  49970. if thebits = 0 then
  49971. pTDefRegMap(@Self)^.clr := $08000000
  49972. else
  49973. pTDefRegMap(@Self)^.&set := $08000000;
  49974. end;
  49975. function TINT_IFS0.getI2C1ASIF : TBits_1; inline;
  49976. begin
  49977. getI2C1ASIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  49978. end;
  49979. procedure TINT_IFS0.setI2C1AMIF; inline;
  49980. begin
  49981. pTDefRegMap(@Self)^.&set := $10000000;
  49982. end;
  49983. procedure TINT_IFS0.clearI2C1AMIF; inline;
  49984. begin
  49985. pTDefRegMap(@Self)^.clr := $10000000;
  49986. end;
  49987. procedure TINT_IFS0.setI2C1AMIF(thebits : TBits_1); inline;
  49988. begin
  49989. if thebits = 0 then
  49990. pTDefRegMap(@Self)^.clr := $10000000
  49991. else
  49992. pTDefRegMap(@Self)^.&set := $10000000;
  49993. end;
  49994. function TINT_IFS0.getI2C1AMIF : TBits_1; inline;
  49995. begin
  49996. getI2C1AMIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  49997. end;
  49998. procedure TINT_IFS0.setw(thebits : TBits_32); inline;
  49999. begin
  50000. pTDefRegMap(@Self)^.val := thebits;
  50001. end;
  50002. function TINT_IFS0.getw : TBits_32; inline;
  50003. begin
  50004. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  50005. end;
  50006. procedure TINT_IFS1.setCNIF; inline;
  50007. begin
  50008. pTDefRegMap(@Self)^.&set := $00000001;
  50009. end;
  50010. procedure TINT_IFS1.clearCNIF; inline;
  50011. begin
  50012. pTDefRegMap(@Self)^.clr := $00000001;
  50013. end;
  50014. procedure TINT_IFS1.setCNIF(thebits : TBits_1); inline;
  50015. begin
  50016. if thebits = 0 then
  50017. pTDefRegMap(@Self)^.clr := $00000001
  50018. else
  50019. pTDefRegMap(@Self)^.&set := $00000001;
  50020. end;
  50021. function TINT_IFS1.getCNIF : TBits_1; inline;
  50022. begin
  50023. getCNIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  50024. end;
  50025. procedure TINT_IFS1.setAD1IF; inline;
  50026. begin
  50027. pTDefRegMap(@Self)^.&set := $00000002;
  50028. end;
  50029. procedure TINT_IFS1.clearAD1IF; inline;
  50030. begin
  50031. pTDefRegMap(@Self)^.clr := $00000002;
  50032. end;
  50033. procedure TINT_IFS1.setAD1IF(thebits : TBits_1); inline;
  50034. begin
  50035. if thebits = 0 then
  50036. pTDefRegMap(@Self)^.clr := $00000002
  50037. else
  50038. pTDefRegMap(@Self)^.&set := $00000002;
  50039. end;
  50040. function TINT_IFS1.getAD1IF : TBits_1; inline;
  50041. begin
  50042. getAD1IF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  50043. end;
  50044. procedure TINT_IFS1.setPMPIF; inline;
  50045. begin
  50046. pTDefRegMap(@Self)^.&set := $00000004;
  50047. end;
  50048. procedure TINT_IFS1.clearPMPIF; inline;
  50049. begin
  50050. pTDefRegMap(@Self)^.clr := $00000004;
  50051. end;
  50052. procedure TINT_IFS1.setPMPIF(thebits : TBits_1); inline;
  50053. begin
  50054. if thebits = 0 then
  50055. pTDefRegMap(@Self)^.clr := $00000004
  50056. else
  50057. pTDefRegMap(@Self)^.&set := $00000004;
  50058. end;
  50059. function TINT_IFS1.getPMPIF : TBits_1; inline;
  50060. begin
  50061. getPMPIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  50062. end;
  50063. procedure TINT_IFS1.setCMP1IF; inline;
  50064. begin
  50065. pTDefRegMap(@Self)^.&set := $00000008;
  50066. end;
  50067. procedure TINT_IFS1.clearCMP1IF; inline;
  50068. begin
  50069. pTDefRegMap(@Self)^.clr := $00000008;
  50070. end;
  50071. procedure TINT_IFS1.setCMP1IF(thebits : TBits_1); inline;
  50072. begin
  50073. if thebits = 0 then
  50074. pTDefRegMap(@Self)^.clr := $00000008
  50075. else
  50076. pTDefRegMap(@Self)^.&set := $00000008;
  50077. end;
  50078. function TINT_IFS1.getCMP1IF : TBits_1; inline;
  50079. begin
  50080. getCMP1IF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  50081. end;
  50082. procedure TINT_IFS1.setCMP2IF; inline;
  50083. begin
  50084. pTDefRegMap(@Self)^.&set := $00000010;
  50085. end;
  50086. procedure TINT_IFS1.clearCMP2IF; inline;
  50087. begin
  50088. pTDefRegMap(@Self)^.clr := $00000010;
  50089. end;
  50090. procedure TINT_IFS1.setCMP2IF(thebits : TBits_1); inline;
  50091. begin
  50092. if thebits = 0 then
  50093. pTDefRegMap(@Self)^.clr := $00000010
  50094. else
  50095. pTDefRegMap(@Self)^.&set := $00000010;
  50096. end;
  50097. function TINT_IFS1.getCMP2IF : TBits_1; inline;
  50098. begin
  50099. getCMP2IF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  50100. end;
  50101. procedure TINT_IFS1.setU3EIF; inline;
  50102. begin
  50103. pTDefRegMap(@Self)^.&set := $00000020;
  50104. end;
  50105. procedure TINT_IFS1.clearU3EIF; inline;
  50106. begin
  50107. pTDefRegMap(@Self)^.clr := $00000020;
  50108. end;
  50109. procedure TINT_IFS1.setU3EIF(thebits : TBits_1); inline;
  50110. begin
  50111. if thebits = 0 then
  50112. pTDefRegMap(@Self)^.clr := $00000020
  50113. else
  50114. pTDefRegMap(@Self)^.&set := $00000020;
  50115. end;
  50116. function TINT_IFS1.getU3EIF : TBits_1; inline;
  50117. begin
  50118. getU3EIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  50119. end;
  50120. procedure TINT_IFS1.setU3RXIF; inline;
  50121. begin
  50122. pTDefRegMap(@Self)^.&set := $00000040;
  50123. end;
  50124. procedure TINT_IFS1.clearU3RXIF; inline;
  50125. begin
  50126. pTDefRegMap(@Self)^.clr := $00000040;
  50127. end;
  50128. procedure TINT_IFS1.setU3RXIF(thebits : TBits_1); inline;
  50129. begin
  50130. if thebits = 0 then
  50131. pTDefRegMap(@Self)^.clr := $00000040
  50132. else
  50133. pTDefRegMap(@Self)^.&set := $00000040;
  50134. end;
  50135. function TINT_IFS1.getU3RXIF : TBits_1; inline;
  50136. begin
  50137. getU3RXIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  50138. end;
  50139. procedure TINT_IFS1.setU3TXIF; inline;
  50140. begin
  50141. pTDefRegMap(@Self)^.&set := $00000080;
  50142. end;
  50143. procedure TINT_IFS1.clearU3TXIF; inline;
  50144. begin
  50145. pTDefRegMap(@Self)^.clr := $00000080;
  50146. end;
  50147. procedure TINT_IFS1.setU3TXIF(thebits : TBits_1); inline;
  50148. begin
  50149. if thebits = 0 then
  50150. pTDefRegMap(@Self)^.clr := $00000080
  50151. else
  50152. pTDefRegMap(@Self)^.&set := $00000080;
  50153. end;
  50154. function TINT_IFS1.getU3TXIF : TBits_1; inline;
  50155. begin
  50156. getU3TXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  50157. end;
  50158. procedure TINT_IFS1.setU2EIF; inline;
  50159. begin
  50160. pTDefRegMap(@Self)^.&set := $00000100;
  50161. end;
  50162. procedure TINT_IFS1.clearU2EIF; inline;
  50163. begin
  50164. pTDefRegMap(@Self)^.clr := $00000100;
  50165. end;
  50166. procedure TINT_IFS1.setU2EIF(thebits : TBits_1); inline;
  50167. begin
  50168. if thebits = 0 then
  50169. pTDefRegMap(@Self)^.clr := $00000100
  50170. else
  50171. pTDefRegMap(@Self)^.&set := $00000100;
  50172. end;
  50173. function TINT_IFS1.getU2EIF : TBits_1; inline;
  50174. begin
  50175. getU2EIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  50176. end;
  50177. procedure TINT_IFS1.setU2RXIF; inline;
  50178. begin
  50179. pTDefRegMap(@Self)^.&set := $00000200;
  50180. end;
  50181. procedure TINT_IFS1.clearU2RXIF; inline;
  50182. begin
  50183. pTDefRegMap(@Self)^.clr := $00000200;
  50184. end;
  50185. procedure TINT_IFS1.setU2RXIF(thebits : TBits_1); inline;
  50186. begin
  50187. if thebits = 0 then
  50188. pTDefRegMap(@Self)^.clr := $00000200
  50189. else
  50190. pTDefRegMap(@Self)^.&set := $00000200;
  50191. end;
  50192. function TINT_IFS1.getU2RXIF : TBits_1; inline;
  50193. begin
  50194. getU2RXIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  50195. end;
  50196. procedure TINT_IFS1.setU2TXIF; inline;
  50197. begin
  50198. pTDefRegMap(@Self)^.&set := $00000400;
  50199. end;
  50200. procedure TINT_IFS1.clearU2TXIF; inline;
  50201. begin
  50202. pTDefRegMap(@Self)^.clr := $00000400;
  50203. end;
  50204. procedure TINT_IFS1.setU2TXIF(thebits : TBits_1); inline;
  50205. begin
  50206. if thebits = 0 then
  50207. pTDefRegMap(@Self)^.clr := $00000400
  50208. else
  50209. pTDefRegMap(@Self)^.&set := $00000400;
  50210. end;
  50211. function TINT_IFS1.getU2TXIF : TBits_1; inline;
  50212. begin
  50213. getU2TXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  50214. end;
  50215. procedure TINT_IFS1.setI2C2BIF; inline;
  50216. begin
  50217. pTDefRegMap(@Self)^.&set := $00000800;
  50218. end;
  50219. procedure TINT_IFS1.clearI2C2BIF; inline;
  50220. begin
  50221. pTDefRegMap(@Self)^.clr := $00000800;
  50222. end;
  50223. procedure TINT_IFS1.setI2C2BIF(thebits : TBits_1); inline;
  50224. begin
  50225. if thebits = 0 then
  50226. pTDefRegMap(@Self)^.clr := $00000800
  50227. else
  50228. pTDefRegMap(@Self)^.&set := $00000800;
  50229. end;
  50230. function TINT_IFS1.getI2C2BIF : TBits_1; inline;
  50231. begin
  50232. getI2C2BIF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  50233. end;
  50234. procedure TINT_IFS1.setI2C2SIF; inline;
  50235. begin
  50236. pTDefRegMap(@Self)^.&set := $00001000;
  50237. end;
  50238. procedure TINT_IFS1.clearI2C2SIF; inline;
  50239. begin
  50240. pTDefRegMap(@Self)^.clr := $00001000;
  50241. end;
  50242. procedure TINT_IFS1.setI2C2SIF(thebits : TBits_1); inline;
  50243. begin
  50244. if thebits = 0 then
  50245. pTDefRegMap(@Self)^.clr := $00001000
  50246. else
  50247. pTDefRegMap(@Self)^.&set := $00001000;
  50248. end;
  50249. function TINT_IFS1.getI2C2SIF : TBits_1; inline;
  50250. begin
  50251. getI2C2SIF := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  50252. end;
  50253. procedure TINT_IFS1.setI2C2MIF; inline;
  50254. begin
  50255. pTDefRegMap(@Self)^.&set := $00002000;
  50256. end;
  50257. procedure TINT_IFS1.clearI2C2MIF; inline;
  50258. begin
  50259. pTDefRegMap(@Self)^.clr := $00002000;
  50260. end;
  50261. procedure TINT_IFS1.setI2C2MIF(thebits : TBits_1); inline;
  50262. begin
  50263. if thebits = 0 then
  50264. pTDefRegMap(@Self)^.clr := $00002000
  50265. else
  50266. pTDefRegMap(@Self)^.&set := $00002000;
  50267. end;
  50268. function TINT_IFS1.getI2C2MIF : TBits_1; inline;
  50269. begin
  50270. getI2C2MIF := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  50271. end;
  50272. procedure TINT_IFS1.setFSCMIF; inline;
  50273. begin
  50274. pTDefRegMap(@Self)^.&set := $00004000;
  50275. end;
  50276. procedure TINT_IFS1.clearFSCMIF; inline;
  50277. begin
  50278. pTDefRegMap(@Self)^.clr := $00004000;
  50279. end;
  50280. procedure TINT_IFS1.setFSCMIF(thebits : TBits_1); inline;
  50281. begin
  50282. if thebits = 0 then
  50283. pTDefRegMap(@Self)^.clr := $00004000
  50284. else
  50285. pTDefRegMap(@Self)^.&set := $00004000;
  50286. end;
  50287. function TINT_IFS1.getFSCMIF : TBits_1; inline;
  50288. begin
  50289. getFSCMIF := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  50290. end;
  50291. procedure TINT_IFS1.setRTCCIF; inline;
  50292. begin
  50293. pTDefRegMap(@Self)^.&set := $00008000;
  50294. end;
  50295. procedure TINT_IFS1.clearRTCCIF; inline;
  50296. begin
  50297. pTDefRegMap(@Self)^.clr := $00008000;
  50298. end;
  50299. procedure TINT_IFS1.setRTCCIF(thebits : TBits_1); inline;
  50300. begin
  50301. if thebits = 0 then
  50302. pTDefRegMap(@Self)^.clr := $00008000
  50303. else
  50304. pTDefRegMap(@Self)^.&set := $00008000;
  50305. end;
  50306. function TINT_IFS1.getRTCCIF : TBits_1; inline;
  50307. begin
  50308. getRTCCIF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  50309. end;
  50310. procedure TINT_IFS1.setDMA0IF; inline;
  50311. begin
  50312. pTDefRegMap(@Self)^.&set := $00010000;
  50313. end;
  50314. procedure TINT_IFS1.clearDMA0IF; inline;
  50315. begin
  50316. pTDefRegMap(@Self)^.clr := $00010000;
  50317. end;
  50318. procedure TINT_IFS1.setDMA0IF(thebits : TBits_1); inline;
  50319. begin
  50320. if thebits = 0 then
  50321. pTDefRegMap(@Self)^.clr := $00010000
  50322. else
  50323. pTDefRegMap(@Self)^.&set := $00010000;
  50324. end;
  50325. function TINT_IFS1.getDMA0IF : TBits_1; inline;
  50326. begin
  50327. getDMA0IF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  50328. end;
  50329. procedure TINT_IFS1.setDMA1IF; inline;
  50330. begin
  50331. pTDefRegMap(@Self)^.&set := $00020000;
  50332. end;
  50333. procedure TINT_IFS1.clearDMA1IF; inline;
  50334. begin
  50335. pTDefRegMap(@Self)^.clr := $00020000;
  50336. end;
  50337. procedure TINT_IFS1.setDMA1IF(thebits : TBits_1); inline;
  50338. begin
  50339. if thebits = 0 then
  50340. pTDefRegMap(@Self)^.clr := $00020000
  50341. else
  50342. pTDefRegMap(@Self)^.&set := $00020000;
  50343. end;
  50344. function TINT_IFS1.getDMA1IF : TBits_1; inline;
  50345. begin
  50346. getDMA1IF := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  50347. end;
  50348. procedure TINT_IFS1.setDMA2IF; inline;
  50349. begin
  50350. pTDefRegMap(@Self)^.&set := $00040000;
  50351. end;
  50352. procedure TINT_IFS1.clearDMA2IF; inline;
  50353. begin
  50354. pTDefRegMap(@Self)^.clr := $00040000;
  50355. end;
  50356. procedure TINT_IFS1.setDMA2IF(thebits : TBits_1); inline;
  50357. begin
  50358. if thebits = 0 then
  50359. pTDefRegMap(@Self)^.clr := $00040000
  50360. else
  50361. pTDefRegMap(@Self)^.&set := $00040000;
  50362. end;
  50363. function TINT_IFS1.getDMA2IF : TBits_1; inline;
  50364. begin
  50365. getDMA2IF := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  50366. end;
  50367. procedure TINT_IFS1.setDMA3IF; inline;
  50368. begin
  50369. pTDefRegMap(@Self)^.&set := $00080000;
  50370. end;
  50371. procedure TINT_IFS1.clearDMA3IF; inline;
  50372. begin
  50373. pTDefRegMap(@Self)^.clr := $00080000;
  50374. end;
  50375. procedure TINT_IFS1.setDMA3IF(thebits : TBits_1); inline;
  50376. begin
  50377. if thebits = 0 then
  50378. pTDefRegMap(@Self)^.clr := $00080000
  50379. else
  50380. pTDefRegMap(@Self)^.&set := $00080000;
  50381. end;
  50382. function TINT_IFS1.getDMA3IF : TBits_1; inline;
  50383. begin
  50384. getDMA3IF := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  50385. end;
  50386. procedure TINT_IFS1.setFCEIF; inline;
  50387. begin
  50388. pTDefRegMap(@Self)^.&set := $01000000;
  50389. end;
  50390. procedure TINT_IFS1.clearFCEIF; inline;
  50391. begin
  50392. pTDefRegMap(@Self)^.clr := $01000000;
  50393. end;
  50394. procedure TINT_IFS1.setFCEIF(thebits : TBits_1); inline;
  50395. begin
  50396. if thebits = 0 then
  50397. pTDefRegMap(@Self)^.clr := $01000000
  50398. else
  50399. pTDefRegMap(@Self)^.&set := $01000000;
  50400. end;
  50401. function TINT_IFS1.getFCEIF : TBits_1; inline;
  50402. begin
  50403. getFCEIF := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  50404. end;
  50405. procedure TINT_IFS1.setUSBIF; inline;
  50406. begin
  50407. pTDefRegMap(@Self)^.&set := $02000000;
  50408. end;
  50409. procedure TINT_IFS1.clearUSBIF; inline;
  50410. begin
  50411. pTDefRegMap(@Self)^.clr := $02000000;
  50412. end;
  50413. procedure TINT_IFS1.setUSBIF(thebits : TBits_1); inline;
  50414. begin
  50415. if thebits = 0 then
  50416. pTDefRegMap(@Self)^.clr := $02000000
  50417. else
  50418. pTDefRegMap(@Self)^.&set := $02000000;
  50419. end;
  50420. function TINT_IFS1.getUSBIF : TBits_1; inline;
  50421. begin
  50422. getUSBIF := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  50423. end;
  50424. procedure TINT_IFS1.setCAN1IF; inline;
  50425. begin
  50426. pTDefRegMap(@Self)^.&set := $04000000;
  50427. end;
  50428. procedure TINT_IFS1.clearCAN1IF; inline;
  50429. begin
  50430. pTDefRegMap(@Self)^.clr := $04000000;
  50431. end;
  50432. procedure TINT_IFS1.setCAN1IF(thebits : TBits_1); inline;
  50433. begin
  50434. if thebits = 0 then
  50435. pTDefRegMap(@Self)^.clr := $04000000
  50436. else
  50437. pTDefRegMap(@Self)^.&set := $04000000;
  50438. end;
  50439. function TINT_IFS1.getCAN1IF : TBits_1; inline;
  50440. begin
  50441. getCAN1IF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  50442. end;
  50443. procedure TINT_IFS1.setETHIF; inline;
  50444. begin
  50445. pTDefRegMap(@Self)^.&set := $10000000;
  50446. end;
  50447. procedure TINT_IFS1.clearETHIF; inline;
  50448. begin
  50449. pTDefRegMap(@Self)^.clr := $10000000;
  50450. end;
  50451. procedure TINT_IFS1.setETHIF(thebits : TBits_1); inline;
  50452. begin
  50453. if thebits = 0 then
  50454. pTDefRegMap(@Self)^.clr := $10000000
  50455. else
  50456. pTDefRegMap(@Self)^.&set := $10000000;
  50457. end;
  50458. function TINT_IFS1.getETHIF : TBits_1; inline;
  50459. begin
  50460. getETHIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  50461. end;
  50462. procedure TINT_IFS1.setIC1EIF; inline;
  50463. begin
  50464. pTDefRegMap(@Self)^.&set := $20000000;
  50465. end;
  50466. procedure TINT_IFS1.clearIC1EIF; inline;
  50467. begin
  50468. pTDefRegMap(@Self)^.clr := $20000000;
  50469. end;
  50470. procedure TINT_IFS1.setIC1EIF(thebits : TBits_1); inline;
  50471. begin
  50472. if thebits = 0 then
  50473. pTDefRegMap(@Self)^.clr := $20000000
  50474. else
  50475. pTDefRegMap(@Self)^.&set := $20000000;
  50476. end;
  50477. function TINT_IFS1.getIC1EIF : TBits_1; inline;
  50478. begin
  50479. getIC1EIF := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  50480. end;
  50481. procedure TINT_IFS1.setIC2EIF; inline;
  50482. begin
  50483. pTDefRegMap(@Self)^.&set := $40000000;
  50484. end;
  50485. procedure TINT_IFS1.clearIC2EIF; inline;
  50486. begin
  50487. pTDefRegMap(@Self)^.clr := $40000000;
  50488. end;
  50489. procedure TINT_IFS1.setIC2EIF(thebits : TBits_1); inline;
  50490. begin
  50491. if thebits = 0 then
  50492. pTDefRegMap(@Self)^.clr := $40000000
  50493. else
  50494. pTDefRegMap(@Self)^.&set := $40000000;
  50495. end;
  50496. function TINT_IFS1.getIC2EIF : TBits_1; inline;
  50497. begin
  50498. getIC2EIF := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  50499. end;
  50500. procedure TINT_IFS1.setIC3EIF; inline;
  50501. begin
  50502. pTDefRegMap(@Self)^.&set := $80000000;
  50503. end;
  50504. procedure TINT_IFS1.clearIC3EIF; inline;
  50505. begin
  50506. pTDefRegMap(@Self)^.clr := $80000000;
  50507. end;
  50508. procedure TINT_IFS1.setIC3EIF(thebits : TBits_1); inline;
  50509. begin
  50510. if thebits = 0 then
  50511. pTDefRegMap(@Self)^.clr := $80000000
  50512. else
  50513. pTDefRegMap(@Self)^.&set := $80000000;
  50514. end;
  50515. function TINT_IFS1.getIC3EIF : TBits_1; inline;
  50516. begin
  50517. getIC3EIF := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  50518. end;
  50519. procedure TINT_IFS1.setU2AEIF; inline;
  50520. begin
  50521. pTDefRegMap(@Self)^.&set := $00000020;
  50522. end;
  50523. procedure TINT_IFS1.clearU2AEIF; inline;
  50524. begin
  50525. pTDefRegMap(@Self)^.clr := $00000020;
  50526. end;
  50527. procedure TINT_IFS1.setU2AEIF(thebits : TBits_1); inline;
  50528. begin
  50529. if thebits = 0 then
  50530. pTDefRegMap(@Self)^.clr := $00000020
  50531. else
  50532. pTDefRegMap(@Self)^.&set := $00000020;
  50533. end;
  50534. function TINT_IFS1.getU2AEIF : TBits_1; inline;
  50535. begin
  50536. getU2AEIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  50537. end;
  50538. procedure TINT_IFS1.setU2ARXIF; inline;
  50539. begin
  50540. pTDefRegMap(@Self)^.&set := $00000040;
  50541. end;
  50542. procedure TINT_IFS1.clearU2ARXIF; inline;
  50543. begin
  50544. pTDefRegMap(@Self)^.clr := $00000040;
  50545. end;
  50546. procedure TINT_IFS1.setU2ARXIF(thebits : TBits_1); inline;
  50547. begin
  50548. if thebits = 0 then
  50549. pTDefRegMap(@Self)^.clr := $00000040
  50550. else
  50551. pTDefRegMap(@Self)^.&set := $00000040;
  50552. end;
  50553. function TINT_IFS1.getU2ARXIF : TBits_1; inline;
  50554. begin
  50555. getU2ARXIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  50556. end;
  50557. procedure TINT_IFS1.setU2ATXIF; inline;
  50558. begin
  50559. pTDefRegMap(@Self)^.&set := $00000080;
  50560. end;
  50561. procedure TINT_IFS1.clearU2ATXIF; inline;
  50562. begin
  50563. pTDefRegMap(@Self)^.clr := $00000080;
  50564. end;
  50565. procedure TINT_IFS1.setU2ATXIF(thebits : TBits_1); inline;
  50566. begin
  50567. if thebits = 0 then
  50568. pTDefRegMap(@Self)^.clr := $00000080
  50569. else
  50570. pTDefRegMap(@Self)^.&set := $00000080;
  50571. end;
  50572. function TINT_IFS1.getU2ATXIF : TBits_1; inline;
  50573. begin
  50574. getU2ATXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  50575. end;
  50576. procedure TINT_IFS1.setU3AEIF; inline;
  50577. begin
  50578. pTDefRegMap(@Self)^.&set := $00000100;
  50579. end;
  50580. procedure TINT_IFS1.clearU3AEIF; inline;
  50581. begin
  50582. pTDefRegMap(@Self)^.clr := $00000100;
  50583. end;
  50584. procedure TINT_IFS1.setU3AEIF(thebits : TBits_1); inline;
  50585. begin
  50586. if thebits = 0 then
  50587. pTDefRegMap(@Self)^.clr := $00000100
  50588. else
  50589. pTDefRegMap(@Self)^.&set := $00000100;
  50590. end;
  50591. function TINT_IFS1.getU3AEIF : TBits_1; inline;
  50592. begin
  50593. getU3AEIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  50594. end;
  50595. procedure TINT_IFS1.setU3ARXIF; inline;
  50596. begin
  50597. pTDefRegMap(@Self)^.&set := $00000200;
  50598. end;
  50599. procedure TINT_IFS1.clearU3ARXIF; inline;
  50600. begin
  50601. pTDefRegMap(@Self)^.clr := $00000200;
  50602. end;
  50603. procedure TINT_IFS1.setU3ARXIF(thebits : TBits_1); inline;
  50604. begin
  50605. if thebits = 0 then
  50606. pTDefRegMap(@Self)^.clr := $00000200
  50607. else
  50608. pTDefRegMap(@Self)^.&set := $00000200;
  50609. end;
  50610. function TINT_IFS1.getU3ARXIF : TBits_1; inline;
  50611. begin
  50612. getU3ARXIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  50613. end;
  50614. procedure TINT_IFS1.setU3ATXIF; inline;
  50615. begin
  50616. pTDefRegMap(@Self)^.&set := $00000400;
  50617. end;
  50618. procedure TINT_IFS1.clearU3ATXIF; inline;
  50619. begin
  50620. pTDefRegMap(@Self)^.clr := $00000400;
  50621. end;
  50622. procedure TINT_IFS1.setU3ATXIF(thebits : TBits_1); inline;
  50623. begin
  50624. if thebits = 0 then
  50625. pTDefRegMap(@Self)^.clr := $00000400
  50626. else
  50627. pTDefRegMap(@Self)^.&set := $00000400;
  50628. end;
  50629. function TINT_IFS1.getU3ATXIF : TBits_1; inline;
  50630. begin
  50631. getU3ATXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  50632. end;
  50633. procedure TINT_IFS1.setSPI2EIF; inline;
  50634. begin
  50635. pTDefRegMap(@Self)^.&set := $00000020;
  50636. end;
  50637. procedure TINT_IFS1.clearSPI2EIF; inline;
  50638. begin
  50639. pTDefRegMap(@Self)^.clr := $00000020;
  50640. end;
  50641. procedure TINT_IFS1.setSPI2EIF(thebits : TBits_1); inline;
  50642. begin
  50643. if thebits = 0 then
  50644. pTDefRegMap(@Self)^.clr := $00000020
  50645. else
  50646. pTDefRegMap(@Self)^.&set := $00000020;
  50647. end;
  50648. function TINT_IFS1.getSPI2EIF : TBits_1; inline;
  50649. begin
  50650. getSPI2EIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  50651. end;
  50652. procedure TINT_IFS1.setSPI2RXIF; inline;
  50653. begin
  50654. pTDefRegMap(@Self)^.&set := $00000040;
  50655. end;
  50656. procedure TINT_IFS1.clearSPI2RXIF; inline;
  50657. begin
  50658. pTDefRegMap(@Self)^.clr := $00000040;
  50659. end;
  50660. procedure TINT_IFS1.setSPI2RXIF(thebits : TBits_1); inline;
  50661. begin
  50662. if thebits = 0 then
  50663. pTDefRegMap(@Self)^.clr := $00000040
  50664. else
  50665. pTDefRegMap(@Self)^.&set := $00000040;
  50666. end;
  50667. function TINT_IFS1.getSPI2RXIF : TBits_1; inline;
  50668. begin
  50669. getSPI2RXIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  50670. end;
  50671. procedure TINT_IFS1.setSPI2TXIF; inline;
  50672. begin
  50673. pTDefRegMap(@Self)^.&set := $00000080;
  50674. end;
  50675. procedure TINT_IFS1.clearSPI2TXIF; inline;
  50676. begin
  50677. pTDefRegMap(@Self)^.clr := $00000080;
  50678. end;
  50679. procedure TINT_IFS1.setSPI2TXIF(thebits : TBits_1); inline;
  50680. begin
  50681. if thebits = 0 then
  50682. pTDefRegMap(@Self)^.clr := $00000080
  50683. else
  50684. pTDefRegMap(@Self)^.&set := $00000080;
  50685. end;
  50686. function TINT_IFS1.getSPI2TXIF : TBits_1; inline;
  50687. begin
  50688. getSPI2TXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  50689. end;
  50690. procedure TINT_IFS1.setSPI4EIF; inline;
  50691. begin
  50692. pTDefRegMap(@Self)^.&set := $00000100;
  50693. end;
  50694. procedure TINT_IFS1.clearSPI4EIF; inline;
  50695. begin
  50696. pTDefRegMap(@Self)^.clr := $00000100;
  50697. end;
  50698. procedure TINT_IFS1.setSPI4EIF(thebits : TBits_1); inline;
  50699. begin
  50700. if thebits = 0 then
  50701. pTDefRegMap(@Self)^.clr := $00000100
  50702. else
  50703. pTDefRegMap(@Self)^.&set := $00000100;
  50704. end;
  50705. function TINT_IFS1.getSPI4EIF : TBits_1; inline;
  50706. begin
  50707. getSPI4EIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  50708. end;
  50709. procedure TINT_IFS1.setSPI4RXIF; inline;
  50710. begin
  50711. pTDefRegMap(@Self)^.&set := $00000200;
  50712. end;
  50713. procedure TINT_IFS1.clearSPI4RXIF; inline;
  50714. begin
  50715. pTDefRegMap(@Self)^.clr := $00000200;
  50716. end;
  50717. procedure TINT_IFS1.setSPI4RXIF(thebits : TBits_1); inline;
  50718. begin
  50719. if thebits = 0 then
  50720. pTDefRegMap(@Self)^.clr := $00000200
  50721. else
  50722. pTDefRegMap(@Self)^.&set := $00000200;
  50723. end;
  50724. function TINT_IFS1.getSPI4RXIF : TBits_1; inline;
  50725. begin
  50726. getSPI4RXIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  50727. end;
  50728. procedure TINT_IFS1.setSPI4TXIF; inline;
  50729. begin
  50730. pTDefRegMap(@Self)^.&set := $00000400;
  50731. end;
  50732. procedure TINT_IFS1.clearSPI4TXIF; inline;
  50733. begin
  50734. pTDefRegMap(@Self)^.clr := $00000400;
  50735. end;
  50736. procedure TINT_IFS1.setSPI4TXIF(thebits : TBits_1); inline;
  50737. begin
  50738. if thebits = 0 then
  50739. pTDefRegMap(@Self)^.clr := $00000400
  50740. else
  50741. pTDefRegMap(@Self)^.&set := $00000400;
  50742. end;
  50743. function TINT_IFS1.getSPI4TXIF : TBits_1; inline;
  50744. begin
  50745. getSPI4TXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  50746. end;
  50747. procedure TINT_IFS1.setSPI2AEIF; inline;
  50748. begin
  50749. pTDefRegMap(@Self)^.&set := $00000020;
  50750. end;
  50751. procedure TINT_IFS1.clearSPI2AEIF; inline;
  50752. begin
  50753. pTDefRegMap(@Self)^.clr := $00000020;
  50754. end;
  50755. procedure TINT_IFS1.setSPI2AEIF(thebits : TBits_1); inline;
  50756. begin
  50757. if thebits = 0 then
  50758. pTDefRegMap(@Self)^.clr := $00000020
  50759. else
  50760. pTDefRegMap(@Self)^.&set := $00000020;
  50761. end;
  50762. function TINT_IFS1.getSPI2AEIF : TBits_1; inline;
  50763. begin
  50764. getSPI2AEIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  50765. end;
  50766. procedure TINT_IFS1.setSPI2ARXIF; inline;
  50767. begin
  50768. pTDefRegMap(@Self)^.&set := $00000040;
  50769. end;
  50770. procedure TINT_IFS1.clearSPI2ARXIF; inline;
  50771. begin
  50772. pTDefRegMap(@Self)^.clr := $00000040;
  50773. end;
  50774. procedure TINT_IFS1.setSPI2ARXIF(thebits : TBits_1); inline;
  50775. begin
  50776. if thebits = 0 then
  50777. pTDefRegMap(@Self)^.clr := $00000040
  50778. else
  50779. pTDefRegMap(@Self)^.&set := $00000040;
  50780. end;
  50781. function TINT_IFS1.getSPI2ARXIF : TBits_1; inline;
  50782. begin
  50783. getSPI2ARXIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  50784. end;
  50785. procedure TINT_IFS1.setSPI2ATXIF; inline;
  50786. begin
  50787. pTDefRegMap(@Self)^.&set := $00000080;
  50788. end;
  50789. procedure TINT_IFS1.clearSPI2ATXIF; inline;
  50790. begin
  50791. pTDefRegMap(@Self)^.clr := $00000080;
  50792. end;
  50793. procedure TINT_IFS1.setSPI2ATXIF(thebits : TBits_1); inline;
  50794. begin
  50795. if thebits = 0 then
  50796. pTDefRegMap(@Self)^.clr := $00000080
  50797. else
  50798. pTDefRegMap(@Self)^.&set := $00000080;
  50799. end;
  50800. function TINT_IFS1.getSPI2ATXIF : TBits_1; inline;
  50801. begin
  50802. getSPI2ATXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  50803. end;
  50804. procedure TINT_IFS1.setSPI3AEIF; inline;
  50805. begin
  50806. pTDefRegMap(@Self)^.&set := $00000100;
  50807. end;
  50808. procedure TINT_IFS1.clearSPI3AEIF; inline;
  50809. begin
  50810. pTDefRegMap(@Self)^.clr := $00000100;
  50811. end;
  50812. procedure TINT_IFS1.setSPI3AEIF(thebits : TBits_1); inline;
  50813. begin
  50814. if thebits = 0 then
  50815. pTDefRegMap(@Self)^.clr := $00000100
  50816. else
  50817. pTDefRegMap(@Self)^.&set := $00000100;
  50818. end;
  50819. function TINT_IFS1.getSPI3AEIF : TBits_1; inline;
  50820. begin
  50821. getSPI3AEIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  50822. end;
  50823. procedure TINT_IFS1.setSPI3ARXIF; inline;
  50824. begin
  50825. pTDefRegMap(@Self)^.&set := $00000200;
  50826. end;
  50827. procedure TINT_IFS1.clearSPI3ARXIF; inline;
  50828. begin
  50829. pTDefRegMap(@Self)^.clr := $00000200;
  50830. end;
  50831. procedure TINT_IFS1.setSPI3ARXIF(thebits : TBits_1); inline;
  50832. begin
  50833. if thebits = 0 then
  50834. pTDefRegMap(@Self)^.clr := $00000200
  50835. else
  50836. pTDefRegMap(@Self)^.&set := $00000200;
  50837. end;
  50838. function TINT_IFS1.getSPI3ARXIF : TBits_1; inline;
  50839. begin
  50840. getSPI3ARXIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  50841. end;
  50842. procedure TINT_IFS1.setSPI3ATXIF; inline;
  50843. begin
  50844. pTDefRegMap(@Self)^.&set := $00000400;
  50845. end;
  50846. procedure TINT_IFS1.clearSPI3ATXIF; inline;
  50847. begin
  50848. pTDefRegMap(@Self)^.clr := $00000400;
  50849. end;
  50850. procedure TINT_IFS1.setSPI3ATXIF(thebits : TBits_1); inline;
  50851. begin
  50852. if thebits = 0 then
  50853. pTDefRegMap(@Self)^.clr := $00000400
  50854. else
  50855. pTDefRegMap(@Self)^.&set := $00000400;
  50856. end;
  50857. function TINT_IFS1.getSPI3ATXIF : TBits_1; inline;
  50858. begin
  50859. getSPI3ATXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  50860. end;
  50861. procedure TINT_IFS1.setI2C4BIF; inline;
  50862. begin
  50863. pTDefRegMap(@Self)^.&set := $00000020;
  50864. end;
  50865. procedure TINT_IFS1.clearI2C4BIF; inline;
  50866. begin
  50867. pTDefRegMap(@Self)^.clr := $00000020;
  50868. end;
  50869. procedure TINT_IFS1.setI2C4BIF(thebits : TBits_1); inline;
  50870. begin
  50871. if thebits = 0 then
  50872. pTDefRegMap(@Self)^.clr := $00000020
  50873. else
  50874. pTDefRegMap(@Self)^.&set := $00000020;
  50875. end;
  50876. function TINT_IFS1.getI2C4BIF : TBits_1; inline;
  50877. begin
  50878. getI2C4BIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  50879. end;
  50880. procedure TINT_IFS1.setI2C4SIF; inline;
  50881. begin
  50882. pTDefRegMap(@Self)^.&set := $00000040;
  50883. end;
  50884. procedure TINT_IFS1.clearI2C4SIF; inline;
  50885. begin
  50886. pTDefRegMap(@Self)^.clr := $00000040;
  50887. end;
  50888. procedure TINT_IFS1.setI2C4SIF(thebits : TBits_1); inline;
  50889. begin
  50890. if thebits = 0 then
  50891. pTDefRegMap(@Self)^.clr := $00000040
  50892. else
  50893. pTDefRegMap(@Self)^.&set := $00000040;
  50894. end;
  50895. function TINT_IFS1.getI2C4SIF : TBits_1; inline;
  50896. begin
  50897. getI2C4SIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  50898. end;
  50899. procedure TINT_IFS1.setI2C4MIF; inline;
  50900. begin
  50901. pTDefRegMap(@Self)^.&set := $00000080;
  50902. end;
  50903. procedure TINT_IFS1.clearI2C4MIF; inline;
  50904. begin
  50905. pTDefRegMap(@Self)^.clr := $00000080;
  50906. end;
  50907. procedure TINT_IFS1.setI2C4MIF(thebits : TBits_1); inline;
  50908. begin
  50909. if thebits = 0 then
  50910. pTDefRegMap(@Self)^.clr := $00000080
  50911. else
  50912. pTDefRegMap(@Self)^.&set := $00000080;
  50913. end;
  50914. function TINT_IFS1.getI2C4MIF : TBits_1; inline;
  50915. begin
  50916. getI2C4MIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  50917. end;
  50918. procedure TINT_IFS1.setI2C5BIF; inline;
  50919. begin
  50920. pTDefRegMap(@Self)^.&set := $00000100;
  50921. end;
  50922. procedure TINT_IFS1.clearI2C5BIF; inline;
  50923. begin
  50924. pTDefRegMap(@Self)^.clr := $00000100;
  50925. end;
  50926. procedure TINT_IFS1.setI2C5BIF(thebits : TBits_1); inline;
  50927. begin
  50928. if thebits = 0 then
  50929. pTDefRegMap(@Self)^.clr := $00000100
  50930. else
  50931. pTDefRegMap(@Self)^.&set := $00000100;
  50932. end;
  50933. function TINT_IFS1.getI2C5BIF : TBits_1; inline;
  50934. begin
  50935. getI2C5BIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  50936. end;
  50937. procedure TINT_IFS1.setI2C5SIF; inline;
  50938. begin
  50939. pTDefRegMap(@Self)^.&set := $00000200;
  50940. end;
  50941. procedure TINT_IFS1.clearI2C5SIF; inline;
  50942. begin
  50943. pTDefRegMap(@Self)^.clr := $00000200;
  50944. end;
  50945. procedure TINT_IFS1.setI2C5SIF(thebits : TBits_1); inline;
  50946. begin
  50947. if thebits = 0 then
  50948. pTDefRegMap(@Self)^.clr := $00000200
  50949. else
  50950. pTDefRegMap(@Self)^.&set := $00000200;
  50951. end;
  50952. function TINT_IFS1.getI2C5SIF : TBits_1; inline;
  50953. begin
  50954. getI2C5SIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  50955. end;
  50956. procedure TINT_IFS1.setI2C5MIF; inline;
  50957. begin
  50958. pTDefRegMap(@Self)^.&set := $00000400;
  50959. end;
  50960. procedure TINT_IFS1.clearI2C5MIF; inline;
  50961. begin
  50962. pTDefRegMap(@Self)^.clr := $00000400;
  50963. end;
  50964. procedure TINT_IFS1.setI2C5MIF(thebits : TBits_1); inline;
  50965. begin
  50966. if thebits = 0 then
  50967. pTDefRegMap(@Self)^.clr := $00000400
  50968. else
  50969. pTDefRegMap(@Self)^.&set := $00000400;
  50970. end;
  50971. function TINT_IFS1.getI2C5MIF : TBits_1; inline;
  50972. begin
  50973. getI2C5MIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  50974. end;
  50975. procedure TINT_IFS1.setI2C2ABIF; inline;
  50976. begin
  50977. pTDefRegMap(@Self)^.&set := $00000020;
  50978. end;
  50979. procedure TINT_IFS1.clearI2C2ABIF; inline;
  50980. begin
  50981. pTDefRegMap(@Self)^.clr := $00000020;
  50982. end;
  50983. procedure TINT_IFS1.setI2C2ABIF(thebits : TBits_1); inline;
  50984. begin
  50985. if thebits = 0 then
  50986. pTDefRegMap(@Self)^.clr := $00000020
  50987. else
  50988. pTDefRegMap(@Self)^.&set := $00000020;
  50989. end;
  50990. function TINT_IFS1.getI2C2ABIF : TBits_1; inline;
  50991. begin
  50992. getI2C2ABIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  50993. end;
  50994. procedure TINT_IFS1.setI2C2ASIF; inline;
  50995. begin
  50996. pTDefRegMap(@Self)^.&set := $00000040;
  50997. end;
  50998. procedure TINT_IFS1.clearI2C2ASIF; inline;
  50999. begin
  51000. pTDefRegMap(@Self)^.clr := $00000040;
  51001. end;
  51002. procedure TINT_IFS1.setI2C2ASIF(thebits : TBits_1); inline;
  51003. begin
  51004. if thebits = 0 then
  51005. pTDefRegMap(@Self)^.clr := $00000040
  51006. else
  51007. pTDefRegMap(@Self)^.&set := $00000040;
  51008. end;
  51009. function TINT_IFS1.getI2C2ASIF : TBits_1; inline;
  51010. begin
  51011. getI2C2ASIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  51012. end;
  51013. procedure TINT_IFS1.setI2C2AMIF; inline;
  51014. begin
  51015. pTDefRegMap(@Self)^.&set := $00000080;
  51016. end;
  51017. procedure TINT_IFS1.clearI2C2AMIF; inline;
  51018. begin
  51019. pTDefRegMap(@Self)^.clr := $00000080;
  51020. end;
  51021. procedure TINT_IFS1.setI2C2AMIF(thebits : TBits_1); inline;
  51022. begin
  51023. if thebits = 0 then
  51024. pTDefRegMap(@Self)^.clr := $00000080
  51025. else
  51026. pTDefRegMap(@Self)^.&set := $00000080;
  51027. end;
  51028. function TINT_IFS1.getI2C2AMIF : TBits_1; inline;
  51029. begin
  51030. getI2C2AMIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  51031. end;
  51032. procedure TINT_IFS1.setI2C3ABIF; inline;
  51033. begin
  51034. pTDefRegMap(@Self)^.&set := $00000100;
  51035. end;
  51036. procedure TINT_IFS1.clearI2C3ABIF; inline;
  51037. begin
  51038. pTDefRegMap(@Self)^.clr := $00000100;
  51039. end;
  51040. procedure TINT_IFS1.setI2C3ABIF(thebits : TBits_1); inline;
  51041. begin
  51042. if thebits = 0 then
  51043. pTDefRegMap(@Self)^.clr := $00000100
  51044. else
  51045. pTDefRegMap(@Self)^.&set := $00000100;
  51046. end;
  51047. function TINT_IFS1.getI2C3ABIF : TBits_1; inline;
  51048. begin
  51049. getI2C3ABIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  51050. end;
  51051. procedure TINT_IFS1.setI2C3ASIF; inline;
  51052. begin
  51053. pTDefRegMap(@Self)^.&set := $00000200;
  51054. end;
  51055. procedure TINT_IFS1.clearI2C3ASIF; inline;
  51056. begin
  51057. pTDefRegMap(@Self)^.clr := $00000200;
  51058. end;
  51059. procedure TINT_IFS1.setI2C3ASIF(thebits : TBits_1); inline;
  51060. begin
  51061. if thebits = 0 then
  51062. pTDefRegMap(@Self)^.clr := $00000200
  51063. else
  51064. pTDefRegMap(@Self)^.&set := $00000200;
  51065. end;
  51066. function TINT_IFS1.getI2C3ASIF : TBits_1; inline;
  51067. begin
  51068. getI2C3ASIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  51069. end;
  51070. procedure TINT_IFS1.setI2C3AMIF; inline;
  51071. begin
  51072. pTDefRegMap(@Self)^.&set := $00000400;
  51073. end;
  51074. procedure TINT_IFS1.clearI2C3AMIF; inline;
  51075. begin
  51076. pTDefRegMap(@Self)^.clr := $00000400;
  51077. end;
  51078. procedure TINT_IFS1.setI2C3AMIF(thebits : TBits_1); inline;
  51079. begin
  51080. if thebits = 0 then
  51081. pTDefRegMap(@Self)^.clr := $00000400
  51082. else
  51083. pTDefRegMap(@Self)^.&set := $00000400;
  51084. end;
  51085. function TINT_IFS1.getI2C3AMIF : TBits_1; inline;
  51086. begin
  51087. getI2C3AMIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  51088. end;
  51089. procedure TINT_IFS1.setw(thebits : TBits_32); inline;
  51090. begin
  51091. pTDefRegMap(@Self)^.val := thebits;
  51092. end;
  51093. function TINT_IFS1.getw : TBits_32; inline;
  51094. begin
  51095. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  51096. end;
  51097. procedure TINT_IFS2.setIC4EIF; inline;
  51098. begin
  51099. pTDefRegMap(@Self)^.&set := $00000001;
  51100. end;
  51101. procedure TINT_IFS2.clearIC4EIF; inline;
  51102. begin
  51103. pTDefRegMap(@Self)^.clr := $00000001;
  51104. end;
  51105. procedure TINT_IFS2.setIC4EIF(thebits : TBits_1); inline;
  51106. begin
  51107. if thebits = 0 then
  51108. pTDefRegMap(@Self)^.clr := $00000001
  51109. else
  51110. pTDefRegMap(@Self)^.&set := $00000001;
  51111. end;
  51112. function TINT_IFS2.getIC4EIF : TBits_1; inline;
  51113. begin
  51114. getIC4EIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  51115. end;
  51116. procedure TINT_IFS2.setIC5EIF; inline;
  51117. begin
  51118. pTDefRegMap(@Self)^.&set := $00000002;
  51119. end;
  51120. procedure TINT_IFS2.clearIC5EIF; inline;
  51121. begin
  51122. pTDefRegMap(@Self)^.clr := $00000002;
  51123. end;
  51124. procedure TINT_IFS2.setIC5EIF(thebits : TBits_1); inline;
  51125. begin
  51126. if thebits = 0 then
  51127. pTDefRegMap(@Self)^.clr := $00000002
  51128. else
  51129. pTDefRegMap(@Self)^.&set := $00000002;
  51130. end;
  51131. function TINT_IFS2.getIC5EIF : TBits_1; inline;
  51132. begin
  51133. getIC5EIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  51134. end;
  51135. procedure TINT_IFS2.setPMPEIF; inline;
  51136. begin
  51137. pTDefRegMap(@Self)^.&set := $00000004;
  51138. end;
  51139. procedure TINT_IFS2.clearPMPEIF; inline;
  51140. begin
  51141. pTDefRegMap(@Self)^.clr := $00000004;
  51142. end;
  51143. procedure TINT_IFS2.setPMPEIF(thebits : TBits_1); inline;
  51144. begin
  51145. if thebits = 0 then
  51146. pTDefRegMap(@Self)^.clr := $00000004
  51147. else
  51148. pTDefRegMap(@Self)^.&set := $00000004;
  51149. end;
  51150. function TINT_IFS2.getPMPEIF : TBits_1; inline;
  51151. begin
  51152. getPMPEIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  51153. end;
  51154. procedure TINT_IFS2.setU1BEIF; inline;
  51155. begin
  51156. pTDefRegMap(@Self)^.&set := $00000008;
  51157. end;
  51158. procedure TINT_IFS2.clearU1BEIF; inline;
  51159. begin
  51160. pTDefRegMap(@Self)^.clr := $00000008;
  51161. end;
  51162. procedure TINT_IFS2.setU1BEIF(thebits : TBits_1); inline;
  51163. begin
  51164. if thebits = 0 then
  51165. pTDefRegMap(@Self)^.clr := $00000008
  51166. else
  51167. pTDefRegMap(@Self)^.&set := $00000008;
  51168. end;
  51169. function TINT_IFS2.getU1BEIF : TBits_1; inline;
  51170. begin
  51171. getU1BEIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  51172. end;
  51173. procedure TINT_IFS2.setU1BRXIF; inline;
  51174. begin
  51175. pTDefRegMap(@Self)^.&set := $00000010;
  51176. end;
  51177. procedure TINT_IFS2.clearU1BRXIF; inline;
  51178. begin
  51179. pTDefRegMap(@Self)^.clr := $00000010;
  51180. end;
  51181. procedure TINT_IFS2.setU1BRXIF(thebits : TBits_1); inline;
  51182. begin
  51183. if thebits = 0 then
  51184. pTDefRegMap(@Self)^.clr := $00000010
  51185. else
  51186. pTDefRegMap(@Self)^.&set := $00000010;
  51187. end;
  51188. function TINT_IFS2.getU1BRXIF : TBits_1; inline;
  51189. begin
  51190. getU1BRXIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  51191. end;
  51192. procedure TINT_IFS2.setU1BTXIF; inline;
  51193. begin
  51194. pTDefRegMap(@Self)^.&set := $00000020;
  51195. end;
  51196. procedure TINT_IFS2.clearU1BTXIF; inline;
  51197. begin
  51198. pTDefRegMap(@Self)^.clr := $00000020;
  51199. end;
  51200. procedure TINT_IFS2.setU1BTXIF(thebits : TBits_1); inline;
  51201. begin
  51202. if thebits = 0 then
  51203. pTDefRegMap(@Self)^.clr := $00000020
  51204. else
  51205. pTDefRegMap(@Self)^.&set := $00000020;
  51206. end;
  51207. function TINT_IFS2.getU1BTXIF : TBits_1; inline;
  51208. begin
  51209. getU1BTXIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  51210. end;
  51211. procedure TINT_IFS2.setU2BEIF; inline;
  51212. begin
  51213. pTDefRegMap(@Self)^.&set := $00000040;
  51214. end;
  51215. procedure TINT_IFS2.clearU2BEIF; inline;
  51216. begin
  51217. pTDefRegMap(@Self)^.clr := $00000040;
  51218. end;
  51219. procedure TINT_IFS2.setU2BEIF(thebits : TBits_1); inline;
  51220. begin
  51221. if thebits = 0 then
  51222. pTDefRegMap(@Self)^.clr := $00000040
  51223. else
  51224. pTDefRegMap(@Self)^.&set := $00000040;
  51225. end;
  51226. function TINT_IFS2.getU2BEIF : TBits_1; inline;
  51227. begin
  51228. getU2BEIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  51229. end;
  51230. procedure TINT_IFS2.setU2BRXIF; inline;
  51231. begin
  51232. pTDefRegMap(@Self)^.&set := $00000080;
  51233. end;
  51234. procedure TINT_IFS2.clearU2BRXIF; inline;
  51235. begin
  51236. pTDefRegMap(@Self)^.clr := $00000080;
  51237. end;
  51238. procedure TINT_IFS2.setU2BRXIF(thebits : TBits_1); inline;
  51239. begin
  51240. if thebits = 0 then
  51241. pTDefRegMap(@Self)^.clr := $00000080
  51242. else
  51243. pTDefRegMap(@Self)^.&set := $00000080;
  51244. end;
  51245. function TINT_IFS2.getU2BRXIF : TBits_1; inline;
  51246. begin
  51247. getU2BRXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  51248. end;
  51249. procedure TINT_IFS2.setU2BTXIF; inline;
  51250. begin
  51251. pTDefRegMap(@Self)^.&set := $00000100;
  51252. end;
  51253. procedure TINT_IFS2.clearU2BTXIF; inline;
  51254. begin
  51255. pTDefRegMap(@Self)^.clr := $00000100;
  51256. end;
  51257. procedure TINT_IFS2.setU2BTXIF(thebits : TBits_1); inline;
  51258. begin
  51259. if thebits = 0 then
  51260. pTDefRegMap(@Self)^.clr := $00000100
  51261. else
  51262. pTDefRegMap(@Self)^.&set := $00000100;
  51263. end;
  51264. function TINT_IFS2.getU2BTXIF : TBits_1; inline;
  51265. begin
  51266. getU2BTXIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  51267. end;
  51268. procedure TINT_IFS2.setU3BEIF; inline;
  51269. begin
  51270. pTDefRegMap(@Self)^.&set := $00000200;
  51271. end;
  51272. procedure TINT_IFS2.clearU3BEIF; inline;
  51273. begin
  51274. pTDefRegMap(@Self)^.clr := $00000200;
  51275. end;
  51276. procedure TINT_IFS2.setU3BEIF(thebits : TBits_1); inline;
  51277. begin
  51278. if thebits = 0 then
  51279. pTDefRegMap(@Self)^.clr := $00000200
  51280. else
  51281. pTDefRegMap(@Self)^.&set := $00000200;
  51282. end;
  51283. function TINT_IFS2.getU3BEIF : TBits_1; inline;
  51284. begin
  51285. getU3BEIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  51286. end;
  51287. procedure TINT_IFS2.setU3BRXIF; inline;
  51288. begin
  51289. pTDefRegMap(@Self)^.&set := $00000400;
  51290. end;
  51291. procedure TINT_IFS2.clearU3BRXIF; inline;
  51292. begin
  51293. pTDefRegMap(@Self)^.clr := $00000400;
  51294. end;
  51295. procedure TINT_IFS2.setU3BRXIF(thebits : TBits_1); inline;
  51296. begin
  51297. if thebits = 0 then
  51298. pTDefRegMap(@Self)^.clr := $00000400
  51299. else
  51300. pTDefRegMap(@Self)^.&set := $00000400;
  51301. end;
  51302. function TINT_IFS2.getU3BRXIF : TBits_1; inline;
  51303. begin
  51304. getU3BRXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  51305. end;
  51306. procedure TINT_IFS2.setU3BTXIF; inline;
  51307. begin
  51308. pTDefRegMap(@Self)^.&set := $00000800;
  51309. end;
  51310. procedure TINT_IFS2.clearU3BTXIF; inline;
  51311. begin
  51312. pTDefRegMap(@Self)^.clr := $00000800;
  51313. end;
  51314. procedure TINT_IFS2.setU3BTXIF(thebits : TBits_1); inline;
  51315. begin
  51316. if thebits = 0 then
  51317. pTDefRegMap(@Self)^.clr := $00000800
  51318. else
  51319. pTDefRegMap(@Self)^.&set := $00000800;
  51320. end;
  51321. function TINT_IFS2.getU3BTXIF : TBits_1; inline;
  51322. begin
  51323. getU3BTXIF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  51324. end;
  51325. procedure TINT_IFS2.setU4EIF; inline;
  51326. begin
  51327. pTDefRegMap(@Self)^.&set := $00000008;
  51328. end;
  51329. procedure TINT_IFS2.clearU4EIF; inline;
  51330. begin
  51331. pTDefRegMap(@Self)^.clr := $00000008;
  51332. end;
  51333. procedure TINT_IFS2.setU4EIF(thebits : TBits_1); inline;
  51334. begin
  51335. if thebits = 0 then
  51336. pTDefRegMap(@Self)^.clr := $00000008
  51337. else
  51338. pTDefRegMap(@Self)^.&set := $00000008;
  51339. end;
  51340. function TINT_IFS2.getU4EIF : TBits_1; inline;
  51341. begin
  51342. getU4EIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  51343. end;
  51344. procedure TINT_IFS2.setU4RXIF; inline;
  51345. begin
  51346. pTDefRegMap(@Self)^.&set := $00000010;
  51347. end;
  51348. procedure TINT_IFS2.clearU4RXIF; inline;
  51349. begin
  51350. pTDefRegMap(@Self)^.clr := $00000010;
  51351. end;
  51352. procedure TINT_IFS2.setU4RXIF(thebits : TBits_1); inline;
  51353. begin
  51354. if thebits = 0 then
  51355. pTDefRegMap(@Self)^.clr := $00000010
  51356. else
  51357. pTDefRegMap(@Self)^.&set := $00000010;
  51358. end;
  51359. function TINT_IFS2.getU4RXIF : TBits_1; inline;
  51360. begin
  51361. getU4RXIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  51362. end;
  51363. procedure TINT_IFS2.setU4TXIF; inline;
  51364. begin
  51365. pTDefRegMap(@Self)^.&set := $00000020;
  51366. end;
  51367. procedure TINT_IFS2.clearU4TXIF; inline;
  51368. begin
  51369. pTDefRegMap(@Self)^.clr := $00000020;
  51370. end;
  51371. procedure TINT_IFS2.setU4TXIF(thebits : TBits_1); inline;
  51372. begin
  51373. if thebits = 0 then
  51374. pTDefRegMap(@Self)^.clr := $00000020
  51375. else
  51376. pTDefRegMap(@Self)^.&set := $00000020;
  51377. end;
  51378. function TINT_IFS2.getU4TXIF : TBits_1; inline;
  51379. begin
  51380. getU4TXIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  51381. end;
  51382. procedure TINT_IFS2.setU6EIF; inline;
  51383. begin
  51384. pTDefRegMap(@Self)^.&set := $00000040;
  51385. end;
  51386. procedure TINT_IFS2.clearU6EIF; inline;
  51387. begin
  51388. pTDefRegMap(@Self)^.clr := $00000040;
  51389. end;
  51390. procedure TINT_IFS2.setU6EIF(thebits : TBits_1); inline;
  51391. begin
  51392. if thebits = 0 then
  51393. pTDefRegMap(@Self)^.clr := $00000040
  51394. else
  51395. pTDefRegMap(@Self)^.&set := $00000040;
  51396. end;
  51397. function TINT_IFS2.getU6EIF : TBits_1; inline;
  51398. begin
  51399. getU6EIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  51400. end;
  51401. procedure TINT_IFS2.setU6RXIF; inline;
  51402. begin
  51403. pTDefRegMap(@Self)^.&set := $00000080;
  51404. end;
  51405. procedure TINT_IFS2.clearU6RXIF; inline;
  51406. begin
  51407. pTDefRegMap(@Self)^.clr := $00000080;
  51408. end;
  51409. procedure TINT_IFS2.setU6RXIF(thebits : TBits_1); inline;
  51410. begin
  51411. if thebits = 0 then
  51412. pTDefRegMap(@Self)^.clr := $00000080
  51413. else
  51414. pTDefRegMap(@Self)^.&set := $00000080;
  51415. end;
  51416. function TINT_IFS2.getU6RXIF : TBits_1; inline;
  51417. begin
  51418. getU6RXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  51419. end;
  51420. procedure TINT_IFS2.setU6TXIF; inline;
  51421. begin
  51422. pTDefRegMap(@Self)^.&set := $00000100;
  51423. end;
  51424. procedure TINT_IFS2.clearU6TXIF; inline;
  51425. begin
  51426. pTDefRegMap(@Self)^.clr := $00000100;
  51427. end;
  51428. procedure TINT_IFS2.setU6TXIF(thebits : TBits_1); inline;
  51429. begin
  51430. if thebits = 0 then
  51431. pTDefRegMap(@Self)^.clr := $00000100
  51432. else
  51433. pTDefRegMap(@Self)^.&set := $00000100;
  51434. end;
  51435. function TINT_IFS2.getU6TXIF : TBits_1; inline;
  51436. begin
  51437. getU6TXIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  51438. end;
  51439. procedure TINT_IFS2.setU5EIF; inline;
  51440. begin
  51441. pTDefRegMap(@Self)^.&set := $00000200;
  51442. end;
  51443. procedure TINT_IFS2.clearU5EIF; inline;
  51444. begin
  51445. pTDefRegMap(@Self)^.clr := $00000200;
  51446. end;
  51447. procedure TINT_IFS2.setU5EIF(thebits : TBits_1); inline;
  51448. begin
  51449. if thebits = 0 then
  51450. pTDefRegMap(@Self)^.clr := $00000200
  51451. else
  51452. pTDefRegMap(@Self)^.&set := $00000200;
  51453. end;
  51454. function TINT_IFS2.getU5EIF : TBits_1; inline;
  51455. begin
  51456. getU5EIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  51457. end;
  51458. procedure TINT_IFS2.setU5RXIF; inline;
  51459. begin
  51460. pTDefRegMap(@Self)^.&set := $00000400;
  51461. end;
  51462. procedure TINT_IFS2.clearU5RXIF; inline;
  51463. begin
  51464. pTDefRegMap(@Self)^.clr := $00000400;
  51465. end;
  51466. procedure TINT_IFS2.setU5RXIF(thebits : TBits_1); inline;
  51467. begin
  51468. if thebits = 0 then
  51469. pTDefRegMap(@Self)^.clr := $00000400
  51470. else
  51471. pTDefRegMap(@Self)^.&set := $00000400;
  51472. end;
  51473. function TINT_IFS2.getU5RXIF : TBits_1; inline;
  51474. begin
  51475. getU5RXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  51476. end;
  51477. procedure TINT_IFS2.setU5TXIF; inline;
  51478. begin
  51479. pTDefRegMap(@Self)^.&set := $00000800;
  51480. end;
  51481. procedure TINT_IFS2.clearU5TXIF; inline;
  51482. begin
  51483. pTDefRegMap(@Self)^.clr := $00000800;
  51484. end;
  51485. procedure TINT_IFS2.setU5TXIF(thebits : TBits_1); inline;
  51486. begin
  51487. if thebits = 0 then
  51488. pTDefRegMap(@Self)^.clr := $00000800
  51489. else
  51490. pTDefRegMap(@Self)^.&set := $00000800;
  51491. end;
  51492. function TINT_IFS2.getU5TXIF : TBits_1; inline;
  51493. begin
  51494. getU5TXIF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  51495. end;
  51496. procedure TINT_IFS2.setw(thebits : TBits_32); inline;
  51497. begin
  51498. pTDefRegMap(@Self)^.val := thebits;
  51499. end;
  51500. function TINT_IFS2.getw : TBits_32; inline;
  51501. begin
  51502. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  51503. end;
  51504. procedure TINT_IEC0.setCTIE; inline;
  51505. begin
  51506. pTDefRegMap(@Self)^.&set := $00000001;
  51507. end;
  51508. procedure TINT_IEC0.clearCTIE; inline;
  51509. begin
  51510. pTDefRegMap(@Self)^.clr := $00000001;
  51511. end;
  51512. procedure TINT_IEC0.setCTIE(thebits : TBits_1); inline;
  51513. begin
  51514. if thebits = 0 then
  51515. pTDefRegMap(@Self)^.clr := $00000001
  51516. else
  51517. pTDefRegMap(@Self)^.&set := $00000001;
  51518. end;
  51519. function TINT_IEC0.getCTIE : TBits_1; inline;
  51520. begin
  51521. getCTIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  51522. end;
  51523. procedure TINT_IEC0.setCS0IE; inline;
  51524. begin
  51525. pTDefRegMap(@Self)^.&set := $00000002;
  51526. end;
  51527. procedure TINT_IEC0.clearCS0IE; inline;
  51528. begin
  51529. pTDefRegMap(@Self)^.clr := $00000002;
  51530. end;
  51531. procedure TINT_IEC0.setCS0IE(thebits : TBits_1); inline;
  51532. begin
  51533. if thebits = 0 then
  51534. pTDefRegMap(@Self)^.clr := $00000002
  51535. else
  51536. pTDefRegMap(@Self)^.&set := $00000002;
  51537. end;
  51538. function TINT_IEC0.getCS0IE : TBits_1; inline;
  51539. begin
  51540. getCS0IE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  51541. end;
  51542. procedure TINT_IEC0.setCS1IE; inline;
  51543. begin
  51544. pTDefRegMap(@Self)^.&set := $00000004;
  51545. end;
  51546. procedure TINT_IEC0.clearCS1IE; inline;
  51547. begin
  51548. pTDefRegMap(@Self)^.clr := $00000004;
  51549. end;
  51550. procedure TINT_IEC0.setCS1IE(thebits : TBits_1); inline;
  51551. begin
  51552. if thebits = 0 then
  51553. pTDefRegMap(@Self)^.clr := $00000004
  51554. else
  51555. pTDefRegMap(@Self)^.&set := $00000004;
  51556. end;
  51557. function TINT_IEC0.getCS1IE : TBits_1; inline;
  51558. begin
  51559. getCS1IE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  51560. end;
  51561. procedure TINT_IEC0.setINT0IE; inline;
  51562. begin
  51563. pTDefRegMap(@Self)^.&set := $00000008;
  51564. end;
  51565. procedure TINT_IEC0.clearINT0IE; inline;
  51566. begin
  51567. pTDefRegMap(@Self)^.clr := $00000008;
  51568. end;
  51569. procedure TINT_IEC0.setINT0IE(thebits : TBits_1); inline;
  51570. begin
  51571. if thebits = 0 then
  51572. pTDefRegMap(@Self)^.clr := $00000008
  51573. else
  51574. pTDefRegMap(@Self)^.&set := $00000008;
  51575. end;
  51576. function TINT_IEC0.getINT0IE : TBits_1; inline;
  51577. begin
  51578. getINT0IE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  51579. end;
  51580. procedure TINT_IEC0.setT1IE; inline;
  51581. begin
  51582. pTDefRegMap(@Self)^.&set := $00000010;
  51583. end;
  51584. procedure TINT_IEC0.clearT1IE; inline;
  51585. begin
  51586. pTDefRegMap(@Self)^.clr := $00000010;
  51587. end;
  51588. procedure TINT_IEC0.setT1IE(thebits : TBits_1); inline;
  51589. begin
  51590. if thebits = 0 then
  51591. pTDefRegMap(@Self)^.clr := $00000010
  51592. else
  51593. pTDefRegMap(@Self)^.&set := $00000010;
  51594. end;
  51595. function TINT_IEC0.getT1IE : TBits_1; inline;
  51596. begin
  51597. getT1IE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  51598. end;
  51599. procedure TINT_IEC0.setIC1IE; inline;
  51600. begin
  51601. pTDefRegMap(@Self)^.&set := $00000020;
  51602. end;
  51603. procedure TINT_IEC0.clearIC1IE; inline;
  51604. begin
  51605. pTDefRegMap(@Self)^.clr := $00000020;
  51606. end;
  51607. procedure TINT_IEC0.setIC1IE(thebits : TBits_1); inline;
  51608. begin
  51609. if thebits = 0 then
  51610. pTDefRegMap(@Self)^.clr := $00000020
  51611. else
  51612. pTDefRegMap(@Self)^.&set := $00000020;
  51613. end;
  51614. function TINT_IEC0.getIC1IE : TBits_1; inline;
  51615. begin
  51616. getIC1IE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  51617. end;
  51618. procedure TINT_IEC0.setOC1IE; inline;
  51619. begin
  51620. pTDefRegMap(@Self)^.&set := $00000040;
  51621. end;
  51622. procedure TINT_IEC0.clearOC1IE; inline;
  51623. begin
  51624. pTDefRegMap(@Self)^.clr := $00000040;
  51625. end;
  51626. procedure TINT_IEC0.setOC1IE(thebits : TBits_1); inline;
  51627. begin
  51628. if thebits = 0 then
  51629. pTDefRegMap(@Self)^.clr := $00000040
  51630. else
  51631. pTDefRegMap(@Self)^.&set := $00000040;
  51632. end;
  51633. function TINT_IEC0.getOC1IE : TBits_1; inline;
  51634. begin
  51635. getOC1IE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  51636. end;
  51637. procedure TINT_IEC0.setINT1IE; inline;
  51638. begin
  51639. pTDefRegMap(@Self)^.&set := $00000080;
  51640. end;
  51641. procedure TINT_IEC0.clearINT1IE; inline;
  51642. begin
  51643. pTDefRegMap(@Self)^.clr := $00000080;
  51644. end;
  51645. procedure TINT_IEC0.setINT1IE(thebits : TBits_1); inline;
  51646. begin
  51647. if thebits = 0 then
  51648. pTDefRegMap(@Self)^.clr := $00000080
  51649. else
  51650. pTDefRegMap(@Self)^.&set := $00000080;
  51651. end;
  51652. function TINT_IEC0.getINT1IE : TBits_1; inline;
  51653. begin
  51654. getINT1IE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  51655. end;
  51656. procedure TINT_IEC0.setT2IE; inline;
  51657. begin
  51658. pTDefRegMap(@Self)^.&set := $00000100;
  51659. end;
  51660. procedure TINT_IEC0.clearT2IE; inline;
  51661. begin
  51662. pTDefRegMap(@Self)^.clr := $00000100;
  51663. end;
  51664. procedure TINT_IEC0.setT2IE(thebits : TBits_1); inline;
  51665. begin
  51666. if thebits = 0 then
  51667. pTDefRegMap(@Self)^.clr := $00000100
  51668. else
  51669. pTDefRegMap(@Self)^.&set := $00000100;
  51670. end;
  51671. function TINT_IEC0.getT2IE : TBits_1; inline;
  51672. begin
  51673. getT2IE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  51674. end;
  51675. procedure TINT_IEC0.setIC2IE; inline;
  51676. begin
  51677. pTDefRegMap(@Self)^.&set := $00000200;
  51678. end;
  51679. procedure TINT_IEC0.clearIC2IE; inline;
  51680. begin
  51681. pTDefRegMap(@Self)^.clr := $00000200;
  51682. end;
  51683. procedure TINT_IEC0.setIC2IE(thebits : TBits_1); inline;
  51684. begin
  51685. if thebits = 0 then
  51686. pTDefRegMap(@Self)^.clr := $00000200
  51687. else
  51688. pTDefRegMap(@Self)^.&set := $00000200;
  51689. end;
  51690. function TINT_IEC0.getIC2IE : TBits_1; inline;
  51691. begin
  51692. getIC2IE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  51693. end;
  51694. procedure TINT_IEC0.setOC2IE; inline;
  51695. begin
  51696. pTDefRegMap(@Self)^.&set := $00000400;
  51697. end;
  51698. procedure TINT_IEC0.clearOC2IE; inline;
  51699. begin
  51700. pTDefRegMap(@Self)^.clr := $00000400;
  51701. end;
  51702. procedure TINT_IEC0.setOC2IE(thebits : TBits_1); inline;
  51703. begin
  51704. if thebits = 0 then
  51705. pTDefRegMap(@Self)^.clr := $00000400
  51706. else
  51707. pTDefRegMap(@Self)^.&set := $00000400;
  51708. end;
  51709. function TINT_IEC0.getOC2IE : TBits_1; inline;
  51710. begin
  51711. getOC2IE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  51712. end;
  51713. procedure TINT_IEC0.setINT2IE; inline;
  51714. begin
  51715. pTDefRegMap(@Self)^.&set := $00000800;
  51716. end;
  51717. procedure TINT_IEC0.clearINT2IE; inline;
  51718. begin
  51719. pTDefRegMap(@Self)^.clr := $00000800;
  51720. end;
  51721. procedure TINT_IEC0.setINT2IE(thebits : TBits_1); inline;
  51722. begin
  51723. if thebits = 0 then
  51724. pTDefRegMap(@Self)^.clr := $00000800
  51725. else
  51726. pTDefRegMap(@Self)^.&set := $00000800;
  51727. end;
  51728. function TINT_IEC0.getINT2IE : TBits_1; inline;
  51729. begin
  51730. getINT2IE := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  51731. end;
  51732. procedure TINT_IEC0.setT3IE; inline;
  51733. begin
  51734. pTDefRegMap(@Self)^.&set := $00001000;
  51735. end;
  51736. procedure TINT_IEC0.clearT3IE; inline;
  51737. begin
  51738. pTDefRegMap(@Self)^.clr := $00001000;
  51739. end;
  51740. procedure TINT_IEC0.setT3IE(thebits : TBits_1); inline;
  51741. begin
  51742. if thebits = 0 then
  51743. pTDefRegMap(@Self)^.clr := $00001000
  51744. else
  51745. pTDefRegMap(@Self)^.&set := $00001000;
  51746. end;
  51747. function TINT_IEC0.getT3IE : TBits_1; inline;
  51748. begin
  51749. getT3IE := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  51750. end;
  51751. procedure TINT_IEC0.setIC3IE; inline;
  51752. begin
  51753. pTDefRegMap(@Self)^.&set := $00002000;
  51754. end;
  51755. procedure TINT_IEC0.clearIC3IE; inline;
  51756. begin
  51757. pTDefRegMap(@Self)^.clr := $00002000;
  51758. end;
  51759. procedure TINT_IEC0.setIC3IE(thebits : TBits_1); inline;
  51760. begin
  51761. if thebits = 0 then
  51762. pTDefRegMap(@Self)^.clr := $00002000
  51763. else
  51764. pTDefRegMap(@Self)^.&set := $00002000;
  51765. end;
  51766. function TINT_IEC0.getIC3IE : TBits_1; inline;
  51767. begin
  51768. getIC3IE := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  51769. end;
  51770. procedure TINT_IEC0.setOC3IE; inline;
  51771. begin
  51772. pTDefRegMap(@Self)^.&set := $00004000;
  51773. end;
  51774. procedure TINT_IEC0.clearOC3IE; inline;
  51775. begin
  51776. pTDefRegMap(@Self)^.clr := $00004000;
  51777. end;
  51778. procedure TINT_IEC0.setOC3IE(thebits : TBits_1); inline;
  51779. begin
  51780. if thebits = 0 then
  51781. pTDefRegMap(@Self)^.clr := $00004000
  51782. else
  51783. pTDefRegMap(@Self)^.&set := $00004000;
  51784. end;
  51785. function TINT_IEC0.getOC3IE : TBits_1; inline;
  51786. begin
  51787. getOC3IE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  51788. end;
  51789. procedure TINT_IEC0.setINT3IE; inline;
  51790. begin
  51791. pTDefRegMap(@Self)^.&set := $00008000;
  51792. end;
  51793. procedure TINT_IEC0.clearINT3IE; inline;
  51794. begin
  51795. pTDefRegMap(@Self)^.clr := $00008000;
  51796. end;
  51797. procedure TINT_IEC0.setINT3IE(thebits : TBits_1); inline;
  51798. begin
  51799. if thebits = 0 then
  51800. pTDefRegMap(@Self)^.clr := $00008000
  51801. else
  51802. pTDefRegMap(@Self)^.&set := $00008000;
  51803. end;
  51804. function TINT_IEC0.getINT3IE : TBits_1; inline;
  51805. begin
  51806. getINT3IE := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  51807. end;
  51808. procedure TINT_IEC0.setT4IE; inline;
  51809. begin
  51810. pTDefRegMap(@Self)^.&set := $00010000;
  51811. end;
  51812. procedure TINT_IEC0.clearT4IE; inline;
  51813. begin
  51814. pTDefRegMap(@Self)^.clr := $00010000;
  51815. end;
  51816. procedure TINT_IEC0.setT4IE(thebits : TBits_1); inline;
  51817. begin
  51818. if thebits = 0 then
  51819. pTDefRegMap(@Self)^.clr := $00010000
  51820. else
  51821. pTDefRegMap(@Self)^.&set := $00010000;
  51822. end;
  51823. function TINT_IEC0.getT4IE : TBits_1; inline;
  51824. begin
  51825. getT4IE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  51826. end;
  51827. procedure TINT_IEC0.setIC4IE; inline;
  51828. begin
  51829. pTDefRegMap(@Self)^.&set := $00020000;
  51830. end;
  51831. procedure TINT_IEC0.clearIC4IE; inline;
  51832. begin
  51833. pTDefRegMap(@Self)^.clr := $00020000;
  51834. end;
  51835. procedure TINT_IEC0.setIC4IE(thebits : TBits_1); inline;
  51836. begin
  51837. if thebits = 0 then
  51838. pTDefRegMap(@Self)^.clr := $00020000
  51839. else
  51840. pTDefRegMap(@Self)^.&set := $00020000;
  51841. end;
  51842. function TINT_IEC0.getIC4IE : TBits_1; inline;
  51843. begin
  51844. getIC4IE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  51845. end;
  51846. procedure TINT_IEC0.setOC4IE; inline;
  51847. begin
  51848. pTDefRegMap(@Self)^.&set := $00040000;
  51849. end;
  51850. procedure TINT_IEC0.clearOC4IE; inline;
  51851. begin
  51852. pTDefRegMap(@Self)^.clr := $00040000;
  51853. end;
  51854. procedure TINT_IEC0.setOC4IE(thebits : TBits_1); inline;
  51855. begin
  51856. if thebits = 0 then
  51857. pTDefRegMap(@Self)^.clr := $00040000
  51858. else
  51859. pTDefRegMap(@Self)^.&set := $00040000;
  51860. end;
  51861. function TINT_IEC0.getOC4IE : TBits_1; inline;
  51862. begin
  51863. getOC4IE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  51864. end;
  51865. procedure TINT_IEC0.setINT4IE; inline;
  51866. begin
  51867. pTDefRegMap(@Self)^.&set := $00080000;
  51868. end;
  51869. procedure TINT_IEC0.clearINT4IE; inline;
  51870. begin
  51871. pTDefRegMap(@Self)^.clr := $00080000;
  51872. end;
  51873. procedure TINT_IEC0.setINT4IE(thebits : TBits_1); inline;
  51874. begin
  51875. if thebits = 0 then
  51876. pTDefRegMap(@Self)^.clr := $00080000
  51877. else
  51878. pTDefRegMap(@Self)^.&set := $00080000;
  51879. end;
  51880. function TINT_IEC0.getINT4IE : TBits_1; inline;
  51881. begin
  51882. getINT4IE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  51883. end;
  51884. procedure TINT_IEC0.setT5IE; inline;
  51885. begin
  51886. pTDefRegMap(@Self)^.&set := $00100000;
  51887. end;
  51888. procedure TINT_IEC0.clearT5IE; inline;
  51889. begin
  51890. pTDefRegMap(@Self)^.clr := $00100000;
  51891. end;
  51892. procedure TINT_IEC0.setT5IE(thebits : TBits_1); inline;
  51893. begin
  51894. if thebits = 0 then
  51895. pTDefRegMap(@Self)^.clr := $00100000
  51896. else
  51897. pTDefRegMap(@Self)^.&set := $00100000;
  51898. end;
  51899. function TINT_IEC0.getT5IE : TBits_1; inline;
  51900. begin
  51901. getT5IE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  51902. end;
  51903. procedure TINT_IEC0.setIC5IE; inline;
  51904. begin
  51905. pTDefRegMap(@Self)^.&set := $00200000;
  51906. end;
  51907. procedure TINT_IEC0.clearIC5IE; inline;
  51908. begin
  51909. pTDefRegMap(@Self)^.clr := $00200000;
  51910. end;
  51911. procedure TINT_IEC0.setIC5IE(thebits : TBits_1); inline;
  51912. begin
  51913. if thebits = 0 then
  51914. pTDefRegMap(@Self)^.clr := $00200000
  51915. else
  51916. pTDefRegMap(@Self)^.&set := $00200000;
  51917. end;
  51918. function TINT_IEC0.getIC5IE : TBits_1; inline;
  51919. begin
  51920. getIC5IE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  51921. end;
  51922. procedure TINT_IEC0.setOC5IE; inline;
  51923. begin
  51924. pTDefRegMap(@Self)^.&set := $00400000;
  51925. end;
  51926. procedure TINT_IEC0.clearOC5IE; inline;
  51927. begin
  51928. pTDefRegMap(@Self)^.clr := $00400000;
  51929. end;
  51930. procedure TINT_IEC0.setOC5IE(thebits : TBits_1); inline;
  51931. begin
  51932. if thebits = 0 then
  51933. pTDefRegMap(@Self)^.clr := $00400000
  51934. else
  51935. pTDefRegMap(@Self)^.&set := $00400000;
  51936. end;
  51937. function TINT_IEC0.getOC5IE : TBits_1; inline;
  51938. begin
  51939. getOC5IE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  51940. end;
  51941. procedure TINT_IEC0.setSPI1EIE; inline;
  51942. begin
  51943. pTDefRegMap(@Self)^.&set := $00800000;
  51944. end;
  51945. procedure TINT_IEC0.clearSPI1EIE; inline;
  51946. begin
  51947. pTDefRegMap(@Self)^.clr := $00800000;
  51948. end;
  51949. procedure TINT_IEC0.setSPI1EIE(thebits : TBits_1); inline;
  51950. begin
  51951. if thebits = 0 then
  51952. pTDefRegMap(@Self)^.clr := $00800000
  51953. else
  51954. pTDefRegMap(@Self)^.&set := $00800000;
  51955. end;
  51956. function TINT_IEC0.getSPI1EIE : TBits_1; inline;
  51957. begin
  51958. getSPI1EIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  51959. end;
  51960. procedure TINT_IEC0.setSPI1RXIE; inline;
  51961. begin
  51962. pTDefRegMap(@Self)^.&set := $01000000;
  51963. end;
  51964. procedure TINT_IEC0.clearSPI1RXIE; inline;
  51965. begin
  51966. pTDefRegMap(@Self)^.clr := $01000000;
  51967. end;
  51968. procedure TINT_IEC0.setSPI1RXIE(thebits : TBits_1); inline;
  51969. begin
  51970. if thebits = 0 then
  51971. pTDefRegMap(@Self)^.clr := $01000000
  51972. else
  51973. pTDefRegMap(@Self)^.&set := $01000000;
  51974. end;
  51975. function TINT_IEC0.getSPI1RXIE : TBits_1; inline;
  51976. begin
  51977. getSPI1RXIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  51978. end;
  51979. procedure TINT_IEC0.setSPI1TXIE; inline;
  51980. begin
  51981. pTDefRegMap(@Self)^.&set := $02000000;
  51982. end;
  51983. procedure TINT_IEC0.clearSPI1TXIE; inline;
  51984. begin
  51985. pTDefRegMap(@Self)^.clr := $02000000;
  51986. end;
  51987. procedure TINT_IEC0.setSPI1TXIE(thebits : TBits_1); inline;
  51988. begin
  51989. if thebits = 0 then
  51990. pTDefRegMap(@Self)^.clr := $02000000
  51991. else
  51992. pTDefRegMap(@Self)^.&set := $02000000;
  51993. end;
  51994. function TINT_IEC0.getSPI1TXIE : TBits_1; inline;
  51995. begin
  51996. getSPI1TXIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  51997. end;
  51998. procedure TINT_IEC0.setU1EIE; inline;
  51999. begin
  52000. pTDefRegMap(@Self)^.&set := $04000000;
  52001. end;
  52002. procedure TINT_IEC0.clearU1EIE; inline;
  52003. begin
  52004. pTDefRegMap(@Self)^.clr := $04000000;
  52005. end;
  52006. procedure TINT_IEC0.setU1EIE(thebits : TBits_1); inline;
  52007. begin
  52008. if thebits = 0 then
  52009. pTDefRegMap(@Self)^.clr := $04000000
  52010. else
  52011. pTDefRegMap(@Self)^.&set := $04000000;
  52012. end;
  52013. function TINT_IEC0.getU1EIE : TBits_1; inline;
  52014. begin
  52015. getU1EIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  52016. end;
  52017. procedure TINT_IEC0.setU1RXIE; inline;
  52018. begin
  52019. pTDefRegMap(@Self)^.&set := $08000000;
  52020. end;
  52021. procedure TINT_IEC0.clearU1RXIE; inline;
  52022. begin
  52023. pTDefRegMap(@Self)^.clr := $08000000;
  52024. end;
  52025. procedure TINT_IEC0.setU1RXIE(thebits : TBits_1); inline;
  52026. begin
  52027. if thebits = 0 then
  52028. pTDefRegMap(@Self)^.clr := $08000000
  52029. else
  52030. pTDefRegMap(@Self)^.&set := $08000000;
  52031. end;
  52032. function TINT_IEC0.getU1RXIE : TBits_1; inline;
  52033. begin
  52034. getU1RXIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  52035. end;
  52036. procedure TINT_IEC0.setU1TXIE; inline;
  52037. begin
  52038. pTDefRegMap(@Self)^.&set := $10000000;
  52039. end;
  52040. procedure TINT_IEC0.clearU1TXIE; inline;
  52041. begin
  52042. pTDefRegMap(@Self)^.clr := $10000000;
  52043. end;
  52044. procedure TINT_IEC0.setU1TXIE(thebits : TBits_1); inline;
  52045. begin
  52046. if thebits = 0 then
  52047. pTDefRegMap(@Self)^.clr := $10000000
  52048. else
  52049. pTDefRegMap(@Self)^.&set := $10000000;
  52050. end;
  52051. function TINT_IEC0.getU1TXIE : TBits_1; inline;
  52052. begin
  52053. getU1TXIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  52054. end;
  52055. procedure TINT_IEC0.setI2C1BIE; inline;
  52056. begin
  52057. pTDefRegMap(@Self)^.&set := $20000000;
  52058. end;
  52059. procedure TINT_IEC0.clearI2C1BIE; inline;
  52060. begin
  52061. pTDefRegMap(@Self)^.clr := $20000000;
  52062. end;
  52063. procedure TINT_IEC0.setI2C1BIE(thebits : TBits_1); inline;
  52064. begin
  52065. if thebits = 0 then
  52066. pTDefRegMap(@Self)^.clr := $20000000
  52067. else
  52068. pTDefRegMap(@Self)^.&set := $20000000;
  52069. end;
  52070. function TINT_IEC0.getI2C1BIE : TBits_1; inline;
  52071. begin
  52072. getI2C1BIE := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  52073. end;
  52074. procedure TINT_IEC0.setI2C1SIE; inline;
  52075. begin
  52076. pTDefRegMap(@Self)^.&set := $40000000;
  52077. end;
  52078. procedure TINT_IEC0.clearI2C1SIE; inline;
  52079. begin
  52080. pTDefRegMap(@Self)^.clr := $40000000;
  52081. end;
  52082. procedure TINT_IEC0.setI2C1SIE(thebits : TBits_1); inline;
  52083. begin
  52084. if thebits = 0 then
  52085. pTDefRegMap(@Self)^.clr := $40000000
  52086. else
  52087. pTDefRegMap(@Self)^.&set := $40000000;
  52088. end;
  52089. function TINT_IEC0.getI2C1SIE : TBits_1; inline;
  52090. begin
  52091. getI2C1SIE := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  52092. end;
  52093. procedure TINT_IEC0.setI2C1MIE; inline;
  52094. begin
  52095. pTDefRegMap(@Self)^.&set := $80000000;
  52096. end;
  52097. procedure TINT_IEC0.clearI2C1MIE; inline;
  52098. begin
  52099. pTDefRegMap(@Self)^.clr := $80000000;
  52100. end;
  52101. procedure TINT_IEC0.setI2C1MIE(thebits : TBits_1); inline;
  52102. begin
  52103. if thebits = 0 then
  52104. pTDefRegMap(@Self)^.clr := $80000000
  52105. else
  52106. pTDefRegMap(@Self)^.&set := $80000000;
  52107. end;
  52108. function TINT_IEC0.getI2C1MIE : TBits_1; inline;
  52109. begin
  52110. getI2C1MIE := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  52111. end;
  52112. procedure TINT_IEC0.setU1AEIE; inline;
  52113. begin
  52114. pTDefRegMap(@Self)^.&set := $04000000;
  52115. end;
  52116. procedure TINT_IEC0.clearU1AEIE; inline;
  52117. begin
  52118. pTDefRegMap(@Self)^.clr := $04000000;
  52119. end;
  52120. procedure TINT_IEC0.setU1AEIE(thebits : TBits_1); inline;
  52121. begin
  52122. if thebits = 0 then
  52123. pTDefRegMap(@Self)^.clr := $04000000
  52124. else
  52125. pTDefRegMap(@Self)^.&set := $04000000;
  52126. end;
  52127. function TINT_IEC0.getU1AEIE : TBits_1; inline;
  52128. begin
  52129. getU1AEIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  52130. end;
  52131. procedure TINT_IEC0.setU1ARXIE; inline;
  52132. begin
  52133. pTDefRegMap(@Self)^.&set := $08000000;
  52134. end;
  52135. procedure TINT_IEC0.clearU1ARXIE; inline;
  52136. begin
  52137. pTDefRegMap(@Self)^.clr := $08000000;
  52138. end;
  52139. procedure TINT_IEC0.setU1ARXIE(thebits : TBits_1); inline;
  52140. begin
  52141. if thebits = 0 then
  52142. pTDefRegMap(@Self)^.clr := $08000000
  52143. else
  52144. pTDefRegMap(@Self)^.&set := $08000000;
  52145. end;
  52146. function TINT_IEC0.getU1ARXIE : TBits_1; inline;
  52147. begin
  52148. getU1ARXIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  52149. end;
  52150. procedure TINT_IEC0.setU1ATXIE; inline;
  52151. begin
  52152. pTDefRegMap(@Self)^.&set := $10000000;
  52153. end;
  52154. procedure TINT_IEC0.clearU1ATXIE; inline;
  52155. begin
  52156. pTDefRegMap(@Self)^.clr := $10000000;
  52157. end;
  52158. procedure TINT_IEC0.setU1ATXIE(thebits : TBits_1); inline;
  52159. begin
  52160. if thebits = 0 then
  52161. pTDefRegMap(@Self)^.clr := $10000000
  52162. else
  52163. pTDefRegMap(@Self)^.&set := $10000000;
  52164. end;
  52165. function TINT_IEC0.getU1ATXIE : TBits_1; inline;
  52166. begin
  52167. getU1ATXIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  52168. end;
  52169. procedure TINT_IEC0.setSPI3EIE; inline;
  52170. begin
  52171. pTDefRegMap(@Self)^.&set := $04000000;
  52172. end;
  52173. procedure TINT_IEC0.clearSPI3EIE; inline;
  52174. begin
  52175. pTDefRegMap(@Self)^.clr := $04000000;
  52176. end;
  52177. procedure TINT_IEC0.setSPI3EIE(thebits : TBits_1); inline;
  52178. begin
  52179. if thebits = 0 then
  52180. pTDefRegMap(@Self)^.clr := $04000000
  52181. else
  52182. pTDefRegMap(@Self)^.&set := $04000000;
  52183. end;
  52184. function TINT_IEC0.getSPI3EIE : TBits_1; inline;
  52185. begin
  52186. getSPI3EIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  52187. end;
  52188. procedure TINT_IEC0.setSPI3RXIE; inline;
  52189. begin
  52190. pTDefRegMap(@Self)^.&set := $08000000;
  52191. end;
  52192. procedure TINT_IEC0.clearSPI3RXIE; inline;
  52193. begin
  52194. pTDefRegMap(@Self)^.clr := $08000000;
  52195. end;
  52196. procedure TINT_IEC0.setSPI3RXIE(thebits : TBits_1); inline;
  52197. begin
  52198. if thebits = 0 then
  52199. pTDefRegMap(@Self)^.clr := $08000000
  52200. else
  52201. pTDefRegMap(@Self)^.&set := $08000000;
  52202. end;
  52203. function TINT_IEC0.getSPI3RXIE : TBits_1; inline;
  52204. begin
  52205. getSPI3RXIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  52206. end;
  52207. procedure TINT_IEC0.setSPI3TXIE; inline;
  52208. begin
  52209. pTDefRegMap(@Self)^.&set := $10000000;
  52210. end;
  52211. procedure TINT_IEC0.clearSPI3TXIE; inline;
  52212. begin
  52213. pTDefRegMap(@Self)^.clr := $10000000;
  52214. end;
  52215. procedure TINT_IEC0.setSPI3TXIE(thebits : TBits_1); inline;
  52216. begin
  52217. if thebits = 0 then
  52218. pTDefRegMap(@Self)^.clr := $10000000
  52219. else
  52220. pTDefRegMap(@Self)^.&set := $10000000;
  52221. end;
  52222. function TINT_IEC0.getSPI3TXIE : TBits_1; inline;
  52223. begin
  52224. getSPI3TXIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  52225. end;
  52226. procedure TINT_IEC0.setSPI1AEIE; inline;
  52227. begin
  52228. pTDefRegMap(@Self)^.&set := $04000000;
  52229. end;
  52230. procedure TINT_IEC0.clearSPI1AEIE; inline;
  52231. begin
  52232. pTDefRegMap(@Self)^.clr := $04000000;
  52233. end;
  52234. procedure TINT_IEC0.setSPI1AEIE(thebits : TBits_1); inline;
  52235. begin
  52236. if thebits = 0 then
  52237. pTDefRegMap(@Self)^.clr := $04000000
  52238. else
  52239. pTDefRegMap(@Self)^.&set := $04000000;
  52240. end;
  52241. function TINT_IEC0.getSPI1AEIE : TBits_1; inline;
  52242. begin
  52243. getSPI1AEIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  52244. end;
  52245. procedure TINT_IEC0.setSPI1ARXIE; inline;
  52246. begin
  52247. pTDefRegMap(@Self)^.&set := $08000000;
  52248. end;
  52249. procedure TINT_IEC0.clearSPI1ARXIE; inline;
  52250. begin
  52251. pTDefRegMap(@Self)^.clr := $08000000;
  52252. end;
  52253. procedure TINT_IEC0.setSPI1ARXIE(thebits : TBits_1); inline;
  52254. begin
  52255. if thebits = 0 then
  52256. pTDefRegMap(@Self)^.clr := $08000000
  52257. else
  52258. pTDefRegMap(@Self)^.&set := $08000000;
  52259. end;
  52260. function TINT_IEC0.getSPI1ARXIE : TBits_1; inline;
  52261. begin
  52262. getSPI1ARXIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  52263. end;
  52264. procedure TINT_IEC0.setSPI1ATXIE; inline;
  52265. begin
  52266. pTDefRegMap(@Self)^.&set := $10000000;
  52267. end;
  52268. procedure TINT_IEC0.clearSPI1ATXIE; inline;
  52269. begin
  52270. pTDefRegMap(@Self)^.clr := $10000000;
  52271. end;
  52272. procedure TINT_IEC0.setSPI1ATXIE(thebits : TBits_1); inline;
  52273. begin
  52274. if thebits = 0 then
  52275. pTDefRegMap(@Self)^.clr := $10000000
  52276. else
  52277. pTDefRegMap(@Self)^.&set := $10000000;
  52278. end;
  52279. function TINT_IEC0.getSPI1ATXIE : TBits_1; inline;
  52280. begin
  52281. getSPI1ATXIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  52282. end;
  52283. procedure TINT_IEC0.setI2C3BIE; inline;
  52284. begin
  52285. pTDefRegMap(@Self)^.&set := $04000000;
  52286. end;
  52287. procedure TINT_IEC0.clearI2C3BIE; inline;
  52288. begin
  52289. pTDefRegMap(@Self)^.clr := $04000000;
  52290. end;
  52291. procedure TINT_IEC0.setI2C3BIE(thebits : TBits_1); inline;
  52292. begin
  52293. if thebits = 0 then
  52294. pTDefRegMap(@Self)^.clr := $04000000
  52295. else
  52296. pTDefRegMap(@Self)^.&set := $04000000;
  52297. end;
  52298. function TINT_IEC0.getI2C3BIE : TBits_1; inline;
  52299. begin
  52300. getI2C3BIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  52301. end;
  52302. procedure TINT_IEC0.setI2C3SIE; inline;
  52303. begin
  52304. pTDefRegMap(@Self)^.&set := $08000000;
  52305. end;
  52306. procedure TINT_IEC0.clearI2C3SIE; inline;
  52307. begin
  52308. pTDefRegMap(@Self)^.clr := $08000000;
  52309. end;
  52310. procedure TINT_IEC0.setI2C3SIE(thebits : TBits_1); inline;
  52311. begin
  52312. if thebits = 0 then
  52313. pTDefRegMap(@Self)^.clr := $08000000
  52314. else
  52315. pTDefRegMap(@Self)^.&set := $08000000;
  52316. end;
  52317. function TINT_IEC0.getI2C3SIE : TBits_1; inline;
  52318. begin
  52319. getI2C3SIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  52320. end;
  52321. procedure TINT_IEC0.setI2C3MIE; inline;
  52322. begin
  52323. pTDefRegMap(@Self)^.&set := $10000000;
  52324. end;
  52325. procedure TINT_IEC0.clearI2C3MIE; inline;
  52326. begin
  52327. pTDefRegMap(@Self)^.clr := $10000000;
  52328. end;
  52329. procedure TINT_IEC0.setI2C3MIE(thebits : TBits_1); inline;
  52330. begin
  52331. if thebits = 0 then
  52332. pTDefRegMap(@Self)^.clr := $10000000
  52333. else
  52334. pTDefRegMap(@Self)^.&set := $10000000;
  52335. end;
  52336. function TINT_IEC0.getI2C3MIE : TBits_1; inline;
  52337. begin
  52338. getI2C3MIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  52339. end;
  52340. procedure TINT_IEC0.setI2C1ABIE; inline;
  52341. begin
  52342. pTDefRegMap(@Self)^.&set := $04000000;
  52343. end;
  52344. procedure TINT_IEC0.clearI2C1ABIE; inline;
  52345. begin
  52346. pTDefRegMap(@Self)^.clr := $04000000;
  52347. end;
  52348. procedure TINT_IEC0.setI2C1ABIE(thebits : TBits_1); inline;
  52349. begin
  52350. if thebits = 0 then
  52351. pTDefRegMap(@Self)^.clr := $04000000
  52352. else
  52353. pTDefRegMap(@Self)^.&set := $04000000;
  52354. end;
  52355. function TINT_IEC0.getI2C1ABIE : TBits_1; inline;
  52356. begin
  52357. getI2C1ABIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  52358. end;
  52359. procedure TINT_IEC0.setI2C1ASIE; inline;
  52360. begin
  52361. pTDefRegMap(@Self)^.&set := $08000000;
  52362. end;
  52363. procedure TINT_IEC0.clearI2C1ASIE; inline;
  52364. begin
  52365. pTDefRegMap(@Self)^.clr := $08000000;
  52366. end;
  52367. procedure TINT_IEC0.setI2C1ASIE(thebits : TBits_1); inline;
  52368. begin
  52369. if thebits = 0 then
  52370. pTDefRegMap(@Self)^.clr := $08000000
  52371. else
  52372. pTDefRegMap(@Self)^.&set := $08000000;
  52373. end;
  52374. function TINT_IEC0.getI2C1ASIE : TBits_1; inline;
  52375. begin
  52376. getI2C1ASIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  52377. end;
  52378. procedure TINT_IEC0.setI2C1AMIE; inline;
  52379. begin
  52380. pTDefRegMap(@Self)^.&set := $10000000;
  52381. end;
  52382. procedure TINT_IEC0.clearI2C1AMIE; inline;
  52383. begin
  52384. pTDefRegMap(@Self)^.clr := $10000000;
  52385. end;
  52386. procedure TINT_IEC0.setI2C1AMIE(thebits : TBits_1); inline;
  52387. begin
  52388. if thebits = 0 then
  52389. pTDefRegMap(@Self)^.clr := $10000000
  52390. else
  52391. pTDefRegMap(@Self)^.&set := $10000000;
  52392. end;
  52393. function TINT_IEC0.getI2C1AMIE : TBits_1; inline;
  52394. begin
  52395. getI2C1AMIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  52396. end;
  52397. procedure TINT_IEC0.setw(thebits : TBits_32); inline;
  52398. begin
  52399. pTDefRegMap(@Self)^.val := thebits;
  52400. end;
  52401. function TINT_IEC0.getw : TBits_32; inline;
  52402. begin
  52403. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  52404. end;
  52405. procedure TINT_IEC1.setCNIE; inline;
  52406. begin
  52407. pTDefRegMap(@Self)^.&set := $00000001;
  52408. end;
  52409. procedure TINT_IEC1.clearCNIE; inline;
  52410. begin
  52411. pTDefRegMap(@Self)^.clr := $00000001;
  52412. end;
  52413. procedure TINT_IEC1.setCNIE(thebits : TBits_1); inline;
  52414. begin
  52415. if thebits = 0 then
  52416. pTDefRegMap(@Self)^.clr := $00000001
  52417. else
  52418. pTDefRegMap(@Self)^.&set := $00000001;
  52419. end;
  52420. function TINT_IEC1.getCNIE : TBits_1; inline;
  52421. begin
  52422. getCNIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  52423. end;
  52424. procedure TINT_IEC1.setAD1IE; inline;
  52425. begin
  52426. pTDefRegMap(@Self)^.&set := $00000002;
  52427. end;
  52428. procedure TINT_IEC1.clearAD1IE; inline;
  52429. begin
  52430. pTDefRegMap(@Self)^.clr := $00000002;
  52431. end;
  52432. procedure TINT_IEC1.setAD1IE(thebits : TBits_1); inline;
  52433. begin
  52434. if thebits = 0 then
  52435. pTDefRegMap(@Self)^.clr := $00000002
  52436. else
  52437. pTDefRegMap(@Self)^.&set := $00000002;
  52438. end;
  52439. function TINT_IEC1.getAD1IE : TBits_1; inline;
  52440. begin
  52441. getAD1IE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  52442. end;
  52443. procedure TINT_IEC1.setPMPIE; inline;
  52444. begin
  52445. pTDefRegMap(@Self)^.&set := $00000004;
  52446. end;
  52447. procedure TINT_IEC1.clearPMPIE; inline;
  52448. begin
  52449. pTDefRegMap(@Self)^.clr := $00000004;
  52450. end;
  52451. procedure TINT_IEC1.setPMPIE(thebits : TBits_1); inline;
  52452. begin
  52453. if thebits = 0 then
  52454. pTDefRegMap(@Self)^.clr := $00000004
  52455. else
  52456. pTDefRegMap(@Self)^.&set := $00000004;
  52457. end;
  52458. function TINT_IEC1.getPMPIE : TBits_1; inline;
  52459. begin
  52460. getPMPIE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  52461. end;
  52462. procedure TINT_IEC1.setCMP1IE; inline;
  52463. begin
  52464. pTDefRegMap(@Self)^.&set := $00000008;
  52465. end;
  52466. procedure TINT_IEC1.clearCMP1IE; inline;
  52467. begin
  52468. pTDefRegMap(@Self)^.clr := $00000008;
  52469. end;
  52470. procedure TINT_IEC1.setCMP1IE(thebits : TBits_1); inline;
  52471. begin
  52472. if thebits = 0 then
  52473. pTDefRegMap(@Self)^.clr := $00000008
  52474. else
  52475. pTDefRegMap(@Self)^.&set := $00000008;
  52476. end;
  52477. function TINT_IEC1.getCMP1IE : TBits_1; inline;
  52478. begin
  52479. getCMP1IE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  52480. end;
  52481. procedure TINT_IEC1.setCMP2IE; inline;
  52482. begin
  52483. pTDefRegMap(@Self)^.&set := $00000010;
  52484. end;
  52485. procedure TINT_IEC1.clearCMP2IE; inline;
  52486. begin
  52487. pTDefRegMap(@Self)^.clr := $00000010;
  52488. end;
  52489. procedure TINT_IEC1.setCMP2IE(thebits : TBits_1); inline;
  52490. begin
  52491. if thebits = 0 then
  52492. pTDefRegMap(@Self)^.clr := $00000010
  52493. else
  52494. pTDefRegMap(@Self)^.&set := $00000010;
  52495. end;
  52496. function TINT_IEC1.getCMP2IE : TBits_1; inline;
  52497. begin
  52498. getCMP2IE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  52499. end;
  52500. procedure TINT_IEC1.setU3EIE; inline;
  52501. begin
  52502. pTDefRegMap(@Self)^.&set := $00000020;
  52503. end;
  52504. procedure TINT_IEC1.clearU3EIE; inline;
  52505. begin
  52506. pTDefRegMap(@Self)^.clr := $00000020;
  52507. end;
  52508. procedure TINT_IEC1.setU3EIE(thebits : TBits_1); inline;
  52509. begin
  52510. if thebits = 0 then
  52511. pTDefRegMap(@Self)^.clr := $00000020
  52512. else
  52513. pTDefRegMap(@Self)^.&set := $00000020;
  52514. end;
  52515. function TINT_IEC1.getU3EIE : TBits_1; inline;
  52516. begin
  52517. getU3EIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  52518. end;
  52519. procedure TINT_IEC1.setU3RXIE; inline;
  52520. begin
  52521. pTDefRegMap(@Self)^.&set := $00000040;
  52522. end;
  52523. procedure TINT_IEC1.clearU3RXIE; inline;
  52524. begin
  52525. pTDefRegMap(@Self)^.clr := $00000040;
  52526. end;
  52527. procedure TINT_IEC1.setU3RXIE(thebits : TBits_1); inline;
  52528. begin
  52529. if thebits = 0 then
  52530. pTDefRegMap(@Self)^.clr := $00000040
  52531. else
  52532. pTDefRegMap(@Self)^.&set := $00000040;
  52533. end;
  52534. function TINT_IEC1.getU3RXIE : TBits_1; inline;
  52535. begin
  52536. getU3RXIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  52537. end;
  52538. procedure TINT_IEC1.setU3TXIE; inline;
  52539. begin
  52540. pTDefRegMap(@Self)^.&set := $00000080;
  52541. end;
  52542. procedure TINT_IEC1.clearU3TXIE; inline;
  52543. begin
  52544. pTDefRegMap(@Self)^.clr := $00000080;
  52545. end;
  52546. procedure TINT_IEC1.setU3TXIE(thebits : TBits_1); inline;
  52547. begin
  52548. if thebits = 0 then
  52549. pTDefRegMap(@Self)^.clr := $00000080
  52550. else
  52551. pTDefRegMap(@Self)^.&set := $00000080;
  52552. end;
  52553. function TINT_IEC1.getU3TXIE : TBits_1; inline;
  52554. begin
  52555. getU3TXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  52556. end;
  52557. procedure TINT_IEC1.setU2EIE; inline;
  52558. begin
  52559. pTDefRegMap(@Self)^.&set := $00000100;
  52560. end;
  52561. procedure TINT_IEC1.clearU2EIE; inline;
  52562. begin
  52563. pTDefRegMap(@Self)^.clr := $00000100;
  52564. end;
  52565. procedure TINT_IEC1.setU2EIE(thebits : TBits_1); inline;
  52566. begin
  52567. if thebits = 0 then
  52568. pTDefRegMap(@Self)^.clr := $00000100
  52569. else
  52570. pTDefRegMap(@Self)^.&set := $00000100;
  52571. end;
  52572. function TINT_IEC1.getU2EIE : TBits_1; inline;
  52573. begin
  52574. getU2EIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  52575. end;
  52576. procedure TINT_IEC1.setU2RXIE; inline;
  52577. begin
  52578. pTDefRegMap(@Self)^.&set := $00000200;
  52579. end;
  52580. procedure TINT_IEC1.clearU2RXIE; inline;
  52581. begin
  52582. pTDefRegMap(@Self)^.clr := $00000200;
  52583. end;
  52584. procedure TINT_IEC1.setU2RXIE(thebits : TBits_1); inline;
  52585. begin
  52586. if thebits = 0 then
  52587. pTDefRegMap(@Self)^.clr := $00000200
  52588. else
  52589. pTDefRegMap(@Self)^.&set := $00000200;
  52590. end;
  52591. function TINT_IEC1.getU2RXIE : TBits_1; inline;
  52592. begin
  52593. getU2RXIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  52594. end;
  52595. procedure TINT_IEC1.setU2TXIE; inline;
  52596. begin
  52597. pTDefRegMap(@Self)^.&set := $00000400;
  52598. end;
  52599. procedure TINT_IEC1.clearU2TXIE; inline;
  52600. begin
  52601. pTDefRegMap(@Self)^.clr := $00000400;
  52602. end;
  52603. procedure TINT_IEC1.setU2TXIE(thebits : TBits_1); inline;
  52604. begin
  52605. if thebits = 0 then
  52606. pTDefRegMap(@Self)^.clr := $00000400
  52607. else
  52608. pTDefRegMap(@Self)^.&set := $00000400;
  52609. end;
  52610. function TINT_IEC1.getU2TXIE : TBits_1; inline;
  52611. begin
  52612. getU2TXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  52613. end;
  52614. procedure TINT_IEC1.setI2C2BIE; inline;
  52615. begin
  52616. pTDefRegMap(@Self)^.&set := $00000800;
  52617. end;
  52618. procedure TINT_IEC1.clearI2C2BIE; inline;
  52619. begin
  52620. pTDefRegMap(@Self)^.clr := $00000800;
  52621. end;
  52622. procedure TINT_IEC1.setI2C2BIE(thebits : TBits_1); inline;
  52623. begin
  52624. if thebits = 0 then
  52625. pTDefRegMap(@Self)^.clr := $00000800
  52626. else
  52627. pTDefRegMap(@Self)^.&set := $00000800;
  52628. end;
  52629. function TINT_IEC1.getI2C2BIE : TBits_1; inline;
  52630. begin
  52631. getI2C2BIE := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  52632. end;
  52633. procedure TINT_IEC1.setI2C2SIE; inline;
  52634. begin
  52635. pTDefRegMap(@Self)^.&set := $00001000;
  52636. end;
  52637. procedure TINT_IEC1.clearI2C2SIE; inline;
  52638. begin
  52639. pTDefRegMap(@Self)^.clr := $00001000;
  52640. end;
  52641. procedure TINT_IEC1.setI2C2SIE(thebits : TBits_1); inline;
  52642. begin
  52643. if thebits = 0 then
  52644. pTDefRegMap(@Self)^.clr := $00001000
  52645. else
  52646. pTDefRegMap(@Self)^.&set := $00001000;
  52647. end;
  52648. function TINT_IEC1.getI2C2SIE : TBits_1; inline;
  52649. begin
  52650. getI2C2SIE := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  52651. end;
  52652. procedure TINT_IEC1.setI2C2MIE; inline;
  52653. begin
  52654. pTDefRegMap(@Self)^.&set := $00002000;
  52655. end;
  52656. procedure TINT_IEC1.clearI2C2MIE; inline;
  52657. begin
  52658. pTDefRegMap(@Self)^.clr := $00002000;
  52659. end;
  52660. procedure TINT_IEC1.setI2C2MIE(thebits : TBits_1); inline;
  52661. begin
  52662. if thebits = 0 then
  52663. pTDefRegMap(@Self)^.clr := $00002000
  52664. else
  52665. pTDefRegMap(@Self)^.&set := $00002000;
  52666. end;
  52667. function TINT_IEC1.getI2C2MIE : TBits_1; inline;
  52668. begin
  52669. getI2C2MIE := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  52670. end;
  52671. procedure TINT_IEC1.setFSCMIE; inline;
  52672. begin
  52673. pTDefRegMap(@Self)^.&set := $00004000;
  52674. end;
  52675. procedure TINT_IEC1.clearFSCMIE; inline;
  52676. begin
  52677. pTDefRegMap(@Self)^.clr := $00004000;
  52678. end;
  52679. procedure TINT_IEC1.setFSCMIE(thebits : TBits_1); inline;
  52680. begin
  52681. if thebits = 0 then
  52682. pTDefRegMap(@Self)^.clr := $00004000
  52683. else
  52684. pTDefRegMap(@Self)^.&set := $00004000;
  52685. end;
  52686. function TINT_IEC1.getFSCMIE : TBits_1; inline;
  52687. begin
  52688. getFSCMIE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  52689. end;
  52690. procedure TINT_IEC1.setRTCCIE; inline;
  52691. begin
  52692. pTDefRegMap(@Self)^.&set := $00008000;
  52693. end;
  52694. procedure TINT_IEC1.clearRTCCIE; inline;
  52695. begin
  52696. pTDefRegMap(@Self)^.clr := $00008000;
  52697. end;
  52698. procedure TINT_IEC1.setRTCCIE(thebits : TBits_1); inline;
  52699. begin
  52700. if thebits = 0 then
  52701. pTDefRegMap(@Self)^.clr := $00008000
  52702. else
  52703. pTDefRegMap(@Self)^.&set := $00008000;
  52704. end;
  52705. function TINT_IEC1.getRTCCIE : TBits_1; inline;
  52706. begin
  52707. getRTCCIE := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  52708. end;
  52709. procedure TINT_IEC1.setDMA0IE; inline;
  52710. begin
  52711. pTDefRegMap(@Self)^.&set := $00010000;
  52712. end;
  52713. procedure TINT_IEC1.clearDMA0IE; inline;
  52714. begin
  52715. pTDefRegMap(@Self)^.clr := $00010000;
  52716. end;
  52717. procedure TINT_IEC1.setDMA0IE(thebits : TBits_1); inline;
  52718. begin
  52719. if thebits = 0 then
  52720. pTDefRegMap(@Self)^.clr := $00010000
  52721. else
  52722. pTDefRegMap(@Self)^.&set := $00010000;
  52723. end;
  52724. function TINT_IEC1.getDMA0IE : TBits_1; inline;
  52725. begin
  52726. getDMA0IE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  52727. end;
  52728. procedure TINT_IEC1.setDMA1IE; inline;
  52729. begin
  52730. pTDefRegMap(@Self)^.&set := $00020000;
  52731. end;
  52732. procedure TINT_IEC1.clearDMA1IE; inline;
  52733. begin
  52734. pTDefRegMap(@Self)^.clr := $00020000;
  52735. end;
  52736. procedure TINT_IEC1.setDMA1IE(thebits : TBits_1); inline;
  52737. begin
  52738. if thebits = 0 then
  52739. pTDefRegMap(@Self)^.clr := $00020000
  52740. else
  52741. pTDefRegMap(@Self)^.&set := $00020000;
  52742. end;
  52743. function TINT_IEC1.getDMA1IE : TBits_1; inline;
  52744. begin
  52745. getDMA1IE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  52746. end;
  52747. procedure TINT_IEC1.setDMA2IE; inline;
  52748. begin
  52749. pTDefRegMap(@Self)^.&set := $00040000;
  52750. end;
  52751. procedure TINT_IEC1.clearDMA2IE; inline;
  52752. begin
  52753. pTDefRegMap(@Self)^.clr := $00040000;
  52754. end;
  52755. procedure TINT_IEC1.setDMA2IE(thebits : TBits_1); inline;
  52756. begin
  52757. if thebits = 0 then
  52758. pTDefRegMap(@Self)^.clr := $00040000
  52759. else
  52760. pTDefRegMap(@Self)^.&set := $00040000;
  52761. end;
  52762. function TINT_IEC1.getDMA2IE : TBits_1; inline;
  52763. begin
  52764. getDMA2IE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  52765. end;
  52766. procedure TINT_IEC1.setDMA3IE; inline;
  52767. begin
  52768. pTDefRegMap(@Self)^.&set := $00080000;
  52769. end;
  52770. procedure TINT_IEC1.clearDMA3IE; inline;
  52771. begin
  52772. pTDefRegMap(@Self)^.clr := $00080000;
  52773. end;
  52774. procedure TINT_IEC1.setDMA3IE(thebits : TBits_1); inline;
  52775. begin
  52776. if thebits = 0 then
  52777. pTDefRegMap(@Self)^.clr := $00080000
  52778. else
  52779. pTDefRegMap(@Self)^.&set := $00080000;
  52780. end;
  52781. function TINT_IEC1.getDMA3IE : TBits_1; inline;
  52782. begin
  52783. getDMA3IE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  52784. end;
  52785. procedure TINT_IEC1.setFCEIE; inline;
  52786. begin
  52787. pTDefRegMap(@Self)^.&set := $01000000;
  52788. end;
  52789. procedure TINT_IEC1.clearFCEIE; inline;
  52790. begin
  52791. pTDefRegMap(@Self)^.clr := $01000000;
  52792. end;
  52793. procedure TINT_IEC1.setFCEIE(thebits : TBits_1); inline;
  52794. begin
  52795. if thebits = 0 then
  52796. pTDefRegMap(@Self)^.clr := $01000000
  52797. else
  52798. pTDefRegMap(@Self)^.&set := $01000000;
  52799. end;
  52800. function TINT_IEC1.getFCEIE : TBits_1; inline;
  52801. begin
  52802. getFCEIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  52803. end;
  52804. procedure TINT_IEC1.setUSBIE; inline;
  52805. begin
  52806. pTDefRegMap(@Self)^.&set := $02000000;
  52807. end;
  52808. procedure TINT_IEC1.clearUSBIE; inline;
  52809. begin
  52810. pTDefRegMap(@Self)^.clr := $02000000;
  52811. end;
  52812. procedure TINT_IEC1.setUSBIE(thebits : TBits_1); inline;
  52813. begin
  52814. if thebits = 0 then
  52815. pTDefRegMap(@Self)^.clr := $02000000
  52816. else
  52817. pTDefRegMap(@Self)^.&set := $02000000;
  52818. end;
  52819. function TINT_IEC1.getUSBIE : TBits_1; inline;
  52820. begin
  52821. getUSBIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  52822. end;
  52823. procedure TINT_IEC1.setCAN1IE; inline;
  52824. begin
  52825. pTDefRegMap(@Self)^.&set := $04000000;
  52826. end;
  52827. procedure TINT_IEC1.clearCAN1IE; inline;
  52828. begin
  52829. pTDefRegMap(@Self)^.clr := $04000000;
  52830. end;
  52831. procedure TINT_IEC1.setCAN1IE(thebits : TBits_1); inline;
  52832. begin
  52833. if thebits = 0 then
  52834. pTDefRegMap(@Self)^.clr := $04000000
  52835. else
  52836. pTDefRegMap(@Self)^.&set := $04000000;
  52837. end;
  52838. function TINT_IEC1.getCAN1IE : TBits_1; inline;
  52839. begin
  52840. getCAN1IE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  52841. end;
  52842. procedure TINT_IEC1.setETHIE; inline;
  52843. begin
  52844. pTDefRegMap(@Self)^.&set := $10000000;
  52845. end;
  52846. procedure TINT_IEC1.clearETHIE; inline;
  52847. begin
  52848. pTDefRegMap(@Self)^.clr := $10000000;
  52849. end;
  52850. procedure TINT_IEC1.setETHIE(thebits : TBits_1); inline;
  52851. begin
  52852. if thebits = 0 then
  52853. pTDefRegMap(@Self)^.clr := $10000000
  52854. else
  52855. pTDefRegMap(@Self)^.&set := $10000000;
  52856. end;
  52857. function TINT_IEC1.getETHIE : TBits_1; inline;
  52858. begin
  52859. getETHIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  52860. end;
  52861. procedure TINT_IEC1.setIC1EIE; inline;
  52862. begin
  52863. pTDefRegMap(@Self)^.&set := $20000000;
  52864. end;
  52865. procedure TINT_IEC1.clearIC1EIE; inline;
  52866. begin
  52867. pTDefRegMap(@Self)^.clr := $20000000;
  52868. end;
  52869. procedure TINT_IEC1.setIC1EIE(thebits : TBits_1); inline;
  52870. begin
  52871. if thebits = 0 then
  52872. pTDefRegMap(@Self)^.clr := $20000000
  52873. else
  52874. pTDefRegMap(@Self)^.&set := $20000000;
  52875. end;
  52876. function TINT_IEC1.getIC1EIE : TBits_1; inline;
  52877. begin
  52878. getIC1EIE := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  52879. end;
  52880. procedure TINT_IEC1.setIC2EIE; inline;
  52881. begin
  52882. pTDefRegMap(@Self)^.&set := $40000000;
  52883. end;
  52884. procedure TINT_IEC1.clearIC2EIE; inline;
  52885. begin
  52886. pTDefRegMap(@Self)^.clr := $40000000;
  52887. end;
  52888. procedure TINT_IEC1.setIC2EIE(thebits : TBits_1); inline;
  52889. begin
  52890. if thebits = 0 then
  52891. pTDefRegMap(@Self)^.clr := $40000000
  52892. else
  52893. pTDefRegMap(@Self)^.&set := $40000000;
  52894. end;
  52895. function TINT_IEC1.getIC2EIE : TBits_1; inline;
  52896. begin
  52897. getIC2EIE := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  52898. end;
  52899. procedure TINT_IEC1.setIC3EIE; inline;
  52900. begin
  52901. pTDefRegMap(@Self)^.&set := $80000000;
  52902. end;
  52903. procedure TINT_IEC1.clearIC3EIE; inline;
  52904. begin
  52905. pTDefRegMap(@Self)^.clr := $80000000;
  52906. end;
  52907. procedure TINT_IEC1.setIC3EIE(thebits : TBits_1); inline;
  52908. begin
  52909. if thebits = 0 then
  52910. pTDefRegMap(@Self)^.clr := $80000000
  52911. else
  52912. pTDefRegMap(@Self)^.&set := $80000000;
  52913. end;
  52914. function TINT_IEC1.getIC3EIE : TBits_1; inline;
  52915. begin
  52916. getIC3EIE := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  52917. end;
  52918. procedure TINT_IEC1.setU2AEIE; inline;
  52919. begin
  52920. pTDefRegMap(@Self)^.&set := $00000020;
  52921. end;
  52922. procedure TINT_IEC1.clearU2AEIE; inline;
  52923. begin
  52924. pTDefRegMap(@Self)^.clr := $00000020;
  52925. end;
  52926. procedure TINT_IEC1.setU2AEIE(thebits : TBits_1); inline;
  52927. begin
  52928. if thebits = 0 then
  52929. pTDefRegMap(@Self)^.clr := $00000020
  52930. else
  52931. pTDefRegMap(@Self)^.&set := $00000020;
  52932. end;
  52933. function TINT_IEC1.getU2AEIE : TBits_1; inline;
  52934. begin
  52935. getU2AEIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  52936. end;
  52937. procedure TINT_IEC1.setU2ARXIE; inline;
  52938. begin
  52939. pTDefRegMap(@Self)^.&set := $00000040;
  52940. end;
  52941. procedure TINT_IEC1.clearU2ARXIE; inline;
  52942. begin
  52943. pTDefRegMap(@Self)^.clr := $00000040;
  52944. end;
  52945. procedure TINT_IEC1.setU2ARXIE(thebits : TBits_1); inline;
  52946. begin
  52947. if thebits = 0 then
  52948. pTDefRegMap(@Self)^.clr := $00000040
  52949. else
  52950. pTDefRegMap(@Self)^.&set := $00000040;
  52951. end;
  52952. function TINT_IEC1.getU2ARXIE : TBits_1; inline;
  52953. begin
  52954. getU2ARXIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  52955. end;
  52956. procedure TINT_IEC1.setU2ATXIE; inline;
  52957. begin
  52958. pTDefRegMap(@Self)^.&set := $00000080;
  52959. end;
  52960. procedure TINT_IEC1.clearU2ATXIE; inline;
  52961. begin
  52962. pTDefRegMap(@Self)^.clr := $00000080;
  52963. end;
  52964. procedure TINT_IEC1.setU2ATXIE(thebits : TBits_1); inline;
  52965. begin
  52966. if thebits = 0 then
  52967. pTDefRegMap(@Self)^.clr := $00000080
  52968. else
  52969. pTDefRegMap(@Self)^.&set := $00000080;
  52970. end;
  52971. function TINT_IEC1.getU2ATXIE : TBits_1; inline;
  52972. begin
  52973. getU2ATXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  52974. end;
  52975. procedure TINT_IEC1.setU3AEIE; inline;
  52976. begin
  52977. pTDefRegMap(@Self)^.&set := $00000100;
  52978. end;
  52979. procedure TINT_IEC1.clearU3AEIE; inline;
  52980. begin
  52981. pTDefRegMap(@Self)^.clr := $00000100;
  52982. end;
  52983. procedure TINT_IEC1.setU3AEIE(thebits : TBits_1); inline;
  52984. begin
  52985. if thebits = 0 then
  52986. pTDefRegMap(@Self)^.clr := $00000100
  52987. else
  52988. pTDefRegMap(@Self)^.&set := $00000100;
  52989. end;
  52990. function TINT_IEC1.getU3AEIE : TBits_1; inline;
  52991. begin
  52992. getU3AEIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  52993. end;
  52994. procedure TINT_IEC1.setU3ARXIE; inline;
  52995. begin
  52996. pTDefRegMap(@Self)^.&set := $00000200;
  52997. end;
  52998. procedure TINT_IEC1.clearU3ARXIE; inline;
  52999. begin
  53000. pTDefRegMap(@Self)^.clr := $00000200;
  53001. end;
  53002. procedure TINT_IEC1.setU3ARXIE(thebits : TBits_1); inline;
  53003. begin
  53004. if thebits = 0 then
  53005. pTDefRegMap(@Self)^.clr := $00000200
  53006. else
  53007. pTDefRegMap(@Self)^.&set := $00000200;
  53008. end;
  53009. function TINT_IEC1.getU3ARXIE : TBits_1; inline;
  53010. begin
  53011. getU3ARXIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  53012. end;
  53013. procedure TINT_IEC1.setU3ATXIE; inline;
  53014. begin
  53015. pTDefRegMap(@Self)^.&set := $00000400;
  53016. end;
  53017. procedure TINT_IEC1.clearU3ATXIE; inline;
  53018. begin
  53019. pTDefRegMap(@Self)^.clr := $00000400;
  53020. end;
  53021. procedure TINT_IEC1.setU3ATXIE(thebits : TBits_1); inline;
  53022. begin
  53023. if thebits = 0 then
  53024. pTDefRegMap(@Self)^.clr := $00000400
  53025. else
  53026. pTDefRegMap(@Self)^.&set := $00000400;
  53027. end;
  53028. function TINT_IEC1.getU3ATXIE : TBits_1; inline;
  53029. begin
  53030. getU3ATXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  53031. end;
  53032. procedure TINT_IEC1.setSPI2EIE; inline;
  53033. begin
  53034. pTDefRegMap(@Self)^.&set := $00000020;
  53035. end;
  53036. procedure TINT_IEC1.clearSPI2EIE; inline;
  53037. begin
  53038. pTDefRegMap(@Self)^.clr := $00000020;
  53039. end;
  53040. procedure TINT_IEC1.setSPI2EIE(thebits : TBits_1); inline;
  53041. begin
  53042. if thebits = 0 then
  53043. pTDefRegMap(@Self)^.clr := $00000020
  53044. else
  53045. pTDefRegMap(@Self)^.&set := $00000020;
  53046. end;
  53047. function TINT_IEC1.getSPI2EIE : TBits_1; inline;
  53048. begin
  53049. getSPI2EIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  53050. end;
  53051. procedure TINT_IEC1.setSPI2RXIE; inline;
  53052. begin
  53053. pTDefRegMap(@Self)^.&set := $00000040;
  53054. end;
  53055. procedure TINT_IEC1.clearSPI2RXIE; inline;
  53056. begin
  53057. pTDefRegMap(@Self)^.clr := $00000040;
  53058. end;
  53059. procedure TINT_IEC1.setSPI2RXIE(thebits : TBits_1); inline;
  53060. begin
  53061. if thebits = 0 then
  53062. pTDefRegMap(@Self)^.clr := $00000040
  53063. else
  53064. pTDefRegMap(@Self)^.&set := $00000040;
  53065. end;
  53066. function TINT_IEC1.getSPI2RXIE : TBits_1; inline;
  53067. begin
  53068. getSPI2RXIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  53069. end;
  53070. procedure TINT_IEC1.setSPI2TXIE; inline;
  53071. begin
  53072. pTDefRegMap(@Self)^.&set := $00000080;
  53073. end;
  53074. procedure TINT_IEC1.clearSPI2TXIE; inline;
  53075. begin
  53076. pTDefRegMap(@Self)^.clr := $00000080;
  53077. end;
  53078. procedure TINT_IEC1.setSPI2TXIE(thebits : TBits_1); inline;
  53079. begin
  53080. if thebits = 0 then
  53081. pTDefRegMap(@Self)^.clr := $00000080
  53082. else
  53083. pTDefRegMap(@Self)^.&set := $00000080;
  53084. end;
  53085. function TINT_IEC1.getSPI2TXIE : TBits_1; inline;
  53086. begin
  53087. getSPI2TXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  53088. end;
  53089. procedure TINT_IEC1.setSPI4EIE; inline;
  53090. begin
  53091. pTDefRegMap(@Self)^.&set := $00000100;
  53092. end;
  53093. procedure TINT_IEC1.clearSPI4EIE; inline;
  53094. begin
  53095. pTDefRegMap(@Self)^.clr := $00000100;
  53096. end;
  53097. procedure TINT_IEC1.setSPI4EIE(thebits : TBits_1); inline;
  53098. begin
  53099. if thebits = 0 then
  53100. pTDefRegMap(@Self)^.clr := $00000100
  53101. else
  53102. pTDefRegMap(@Self)^.&set := $00000100;
  53103. end;
  53104. function TINT_IEC1.getSPI4EIE : TBits_1; inline;
  53105. begin
  53106. getSPI4EIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  53107. end;
  53108. procedure TINT_IEC1.setSPI4RXIE; inline;
  53109. begin
  53110. pTDefRegMap(@Self)^.&set := $00000200;
  53111. end;
  53112. procedure TINT_IEC1.clearSPI4RXIE; inline;
  53113. begin
  53114. pTDefRegMap(@Self)^.clr := $00000200;
  53115. end;
  53116. procedure TINT_IEC1.setSPI4RXIE(thebits : TBits_1); inline;
  53117. begin
  53118. if thebits = 0 then
  53119. pTDefRegMap(@Self)^.clr := $00000200
  53120. else
  53121. pTDefRegMap(@Self)^.&set := $00000200;
  53122. end;
  53123. function TINT_IEC1.getSPI4RXIE : TBits_1; inline;
  53124. begin
  53125. getSPI4RXIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  53126. end;
  53127. procedure TINT_IEC1.setSPI4TXIE; inline;
  53128. begin
  53129. pTDefRegMap(@Self)^.&set := $00000400;
  53130. end;
  53131. procedure TINT_IEC1.clearSPI4TXIE; inline;
  53132. begin
  53133. pTDefRegMap(@Self)^.clr := $00000400;
  53134. end;
  53135. procedure TINT_IEC1.setSPI4TXIE(thebits : TBits_1); inline;
  53136. begin
  53137. if thebits = 0 then
  53138. pTDefRegMap(@Self)^.clr := $00000400
  53139. else
  53140. pTDefRegMap(@Self)^.&set := $00000400;
  53141. end;
  53142. function TINT_IEC1.getSPI4TXIE : TBits_1; inline;
  53143. begin
  53144. getSPI4TXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  53145. end;
  53146. procedure TINT_IEC1.setSPI2AEIE; inline;
  53147. begin
  53148. pTDefRegMap(@Self)^.&set := $00000020;
  53149. end;
  53150. procedure TINT_IEC1.clearSPI2AEIE; inline;
  53151. begin
  53152. pTDefRegMap(@Self)^.clr := $00000020;
  53153. end;
  53154. procedure TINT_IEC1.setSPI2AEIE(thebits : TBits_1); inline;
  53155. begin
  53156. if thebits = 0 then
  53157. pTDefRegMap(@Self)^.clr := $00000020
  53158. else
  53159. pTDefRegMap(@Self)^.&set := $00000020;
  53160. end;
  53161. function TINT_IEC1.getSPI2AEIE : TBits_1; inline;
  53162. begin
  53163. getSPI2AEIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  53164. end;
  53165. procedure TINT_IEC1.setSPI2ARXIE; inline;
  53166. begin
  53167. pTDefRegMap(@Self)^.&set := $00000040;
  53168. end;
  53169. procedure TINT_IEC1.clearSPI2ARXIE; inline;
  53170. begin
  53171. pTDefRegMap(@Self)^.clr := $00000040;
  53172. end;
  53173. procedure TINT_IEC1.setSPI2ARXIE(thebits : TBits_1); inline;
  53174. begin
  53175. if thebits = 0 then
  53176. pTDefRegMap(@Self)^.clr := $00000040
  53177. else
  53178. pTDefRegMap(@Self)^.&set := $00000040;
  53179. end;
  53180. function TINT_IEC1.getSPI2ARXIE : TBits_1; inline;
  53181. begin
  53182. getSPI2ARXIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  53183. end;
  53184. procedure TINT_IEC1.setSPI2ATXIE; inline;
  53185. begin
  53186. pTDefRegMap(@Self)^.&set := $00000080;
  53187. end;
  53188. procedure TINT_IEC1.clearSPI2ATXIE; inline;
  53189. begin
  53190. pTDefRegMap(@Self)^.clr := $00000080;
  53191. end;
  53192. procedure TINT_IEC1.setSPI2ATXIE(thebits : TBits_1); inline;
  53193. begin
  53194. if thebits = 0 then
  53195. pTDefRegMap(@Self)^.clr := $00000080
  53196. else
  53197. pTDefRegMap(@Self)^.&set := $00000080;
  53198. end;
  53199. function TINT_IEC1.getSPI2ATXIE : TBits_1; inline;
  53200. begin
  53201. getSPI2ATXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  53202. end;
  53203. procedure TINT_IEC1.setSPI3AEIE; inline;
  53204. begin
  53205. pTDefRegMap(@Self)^.&set := $00000100;
  53206. end;
  53207. procedure TINT_IEC1.clearSPI3AEIE; inline;
  53208. begin
  53209. pTDefRegMap(@Self)^.clr := $00000100;
  53210. end;
  53211. procedure TINT_IEC1.setSPI3AEIE(thebits : TBits_1); inline;
  53212. begin
  53213. if thebits = 0 then
  53214. pTDefRegMap(@Self)^.clr := $00000100
  53215. else
  53216. pTDefRegMap(@Self)^.&set := $00000100;
  53217. end;
  53218. function TINT_IEC1.getSPI3AEIE : TBits_1; inline;
  53219. begin
  53220. getSPI3AEIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  53221. end;
  53222. procedure TINT_IEC1.setSPI3ARXIE; inline;
  53223. begin
  53224. pTDefRegMap(@Self)^.&set := $00000200;
  53225. end;
  53226. procedure TINT_IEC1.clearSPI3ARXIE; inline;
  53227. begin
  53228. pTDefRegMap(@Self)^.clr := $00000200;
  53229. end;
  53230. procedure TINT_IEC1.setSPI3ARXIE(thebits : TBits_1); inline;
  53231. begin
  53232. if thebits = 0 then
  53233. pTDefRegMap(@Self)^.clr := $00000200
  53234. else
  53235. pTDefRegMap(@Self)^.&set := $00000200;
  53236. end;
  53237. function TINT_IEC1.getSPI3ARXIE : TBits_1; inline;
  53238. begin
  53239. getSPI3ARXIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  53240. end;
  53241. procedure TINT_IEC1.setSPI3ATXIE; inline;
  53242. begin
  53243. pTDefRegMap(@Self)^.&set := $00000400;
  53244. end;
  53245. procedure TINT_IEC1.clearSPI3ATXIE; inline;
  53246. begin
  53247. pTDefRegMap(@Self)^.clr := $00000400;
  53248. end;
  53249. procedure TINT_IEC1.setSPI3ATXIE(thebits : TBits_1); inline;
  53250. begin
  53251. if thebits = 0 then
  53252. pTDefRegMap(@Self)^.clr := $00000400
  53253. else
  53254. pTDefRegMap(@Self)^.&set := $00000400;
  53255. end;
  53256. function TINT_IEC1.getSPI3ATXIE : TBits_1; inline;
  53257. begin
  53258. getSPI3ATXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  53259. end;
  53260. procedure TINT_IEC1.setI2C4BIE; inline;
  53261. begin
  53262. pTDefRegMap(@Self)^.&set := $00000020;
  53263. end;
  53264. procedure TINT_IEC1.clearI2C4BIE; inline;
  53265. begin
  53266. pTDefRegMap(@Self)^.clr := $00000020;
  53267. end;
  53268. procedure TINT_IEC1.setI2C4BIE(thebits : TBits_1); inline;
  53269. begin
  53270. if thebits = 0 then
  53271. pTDefRegMap(@Self)^.clr := $00000020
  53272. else
  53273. pTDefRegMap(@Self)^.&set := $00000020;
  53274. end;
  53275. function TINT_IEC1.getI2C4BIE : TBits_1; inline;
  53276. begin
  53277. getI2C4BIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  53278. end;
  53279. procedure TINT_IEC1.setI2C4SIE; inline;
  53280. begin
  53281. pTDefRegMap(@Self)^.&set := $00000040;
  53282. end;
  53283. procedure TINT_IEC1.clearI2C4SIE; inline;
  53284. begin
  53285. pTDefRegMap(@Self)^.clr := $00000040;
  53286. end;
  53287. procedure TINT_IEC1.setI2C4SIE(thebits : TBits_1); inline;
  53288. begin
  53289. if thebits = 0 then
  53290. pTDefRegMap(@Self)^.clr := $00000040
  53291. else
  53292. pTDefRegMap(@Self)^.&set := $00000040;
  53293. end;
  53294. function TINT_IEC1.getI2C4SIE : TBits_1; inline;
  53295. begin
  53296. getI2C4SIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  53297. end;
  53298. procedure TINT_IEC1.setI2C4MIE; inline;
  53299. begin
  53300. pTDefRegMap(@Self)^.&set := $00000080;
  53301. end;
  53302. procedure TINT_IEC1.clearI2C4MIE; inline;
  53303. begin
  53304. pTDefRegMap(@Self)^.clr := $00000080;
  53305. end;
  53306. procedure TINT_IEC1.setI2C4MIE(thebits : TBits_1); inline;
  53307. begin
  53308. if thebits = 0 then
  53309. pTDefRegMap(@Self)^.clr := $00000080
  53310. else
  53311. pTDefRegMap(@Self)^.&set := $00000080;
  53312. end;
  53313. function TINT_IEC1.getI2C4MIE : TBits_1; inline;
  53314. begin
  53315. getI2C4MIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  53316. end;
  53317. procedure TINT_IEC1.setI2C5BIE; inline;
  53318. begin
  53319. pTDefRegMap(@Self)^.&set := $00000100;
  53320. end;
  53321. procedure TINT_IEC1.clearI2C5BIE; inline;
  53322. begin
  53323. pTDefRegMap(@Self)^.clr := $00000100;
  53324. end;
  53325. procedure TINT_IEC1.setI2C5BIE(thebits : TBits_1); inline;
  53326. begin
  53327. if thebits = 0 then
  53328. pTDefRegMap(@Self)^.clr := $00000100
  53329. else
  53330. pTDefRegMap(@Self)^.&set := $00000100;
  53331. end;
  53332. function TINT_IEC1.getI2C5BIE : TBits_1; inline;
  53333. begin
  53334. getI2C5BIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  53335. end;
  53336. procedure TINT_IEC1.setI2C5SIE; inline;
  53337. begin
  53338. pTDefRegMap(@Self)^.&set := $00000200;
  53339. end;
  53340. procedure TINT_IEC1.clearI2C5SIE; inline;
  53341. begin
  53342. pTDefRegMap(@Self)^.clr := $00000200;
  53343. end;
  53344. procedure TINT_IEC1.setI2C5SIE(thebits : TBits_1); inline;
  53345. begin
  53346. if thebits = 0 then
  53347. pTDefRegMap(@Self)^.clr := $00000200
  53348. else
  53349. pTDefRegMap(@Self)^.&set := $00000200;
  53350. end;
  53351. function TINT_IEC1.getI2C5SIE : TBits_1; inline;
  53352. begin
  53353. getI2C5SIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  53354. end;
  53355. procedure TINT_IEC1.setI2C5MIE; inline;
  53356. begin
  53357. pTDefRegMap(@Self)^.&set := $00000400;
  53358. end;
  53359. procedure TINT_IEC1.clearI2C5MIE; inline;
  53360. begin
  53361. pTDefRegMap(@Self)^.clr := $00000400;
  53362. end;
  53363. procedure TINT_IEC1.setI2C5MIE(thebits : TBits_1); inline;
  53364. begin
  53365. if thebits = 0 then
  53366. pTDefRegMap(@Self)^.clr := $00000400
  53367. else
  53368. pTDefRegMap(@Self)^.&set := $00000400;
  53369. end;
  53370. function TINT_IEC1.getI2C5MIE : TBits_1; inline;
  53371. begin
  53372. getI2C5MIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  53373. end;
  53374. procedure TINT_IEC1.setI2C2ABIE; inline;
  53375. begin
  53376. pTDefRegMap(@Self)^.&set := $00000020;
  53377. end;
  53378. procedure TINT_IEC1.clearI2C2ABIE; inline;
  53379. begin
  53380. pTDefRegMap(@Self)^.clr := $00000020;
  53381. end;
  53382. procedure TINT_IEC1.setI2C2ABIE(thebits : TBits_1); inline;
  53383. begin
  53384. if thebits = 0 then
  53385. pTDefRegMap(@Self)^.clr := $00000020
  53386. else
  53387. pTDefRegMap(@Self)^.&set := $00000020;
  53388. end;
  53389. function TINT_IEC1.getI2C2ABIE : TBits_1; inline;
  53390. begin
  53391. getI2C2ABIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  53392. end;
  53393. procedure TINT_IEC1.setI2C2ASIE; inline;
  53394. begin
  53395. pTDefRegMap(@Self)^.&set := $00000040;
  53396. end;
  53397. procedure TINT_IEC1.clearI2C2ASIE; inline;
  53398. begin
  53399. pTDefRegMap(@Self)^.clr := $00000040;
  53400. end;
  53401. procedure TINT_IEC1.setI2C2ASIE(thebits : TBits_1); inline;
  53402. begin
  53403. if thebits = 0 then
  53404. pTDefRegMap(@Self)^.clr := $00000040
  53405. else
  53406. pTDefRegMap(@Self)^.&set := $00000040;
  53407. end;
  53408. function TINT_IEC1.getI2C2ASIE : TBits_1; inline;
  53409. begin
  53410. getI2C2ASIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  53411. end;
  53412. procedure TINT_IEC1.setI2C2AMIE; inline;
  53413. begin
  53414. pTDefRegMap(@Self)^.&set := $00000080;
  53415. end;
  53416. procedure TINT_IEC1.clearI2C2AMIE; inline;
  53417. begin
  53418. pTDefRegMap(@Self)^.clr := $00000080;
  53419. end;
  53420. procedure TINT_IEC1.setI2C2AMIE(thebits : TBits_1); inline;
  53421. begin
  53422. if thebits = 0 then
  53423. pTDefRegMap(@Self)^.clr := $00000080
  53424. else
  53425. pTDefRegMap(@Self)^.&set := $00000080;
  53426. end;
  53427. function TINT_IEC1.getI2C2AMIE : TBits_1; inline;
  53428. begin
  53429. getI2C2AMIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  53430. end;
  53431. procedure TINT_IEC1.setI2C3ABIE; inline;
  53432. begin
  53433. pTDefRegMap(@Self)^.&set := $00000100;
  53434. end;
  53435. procedure TINT_IEC1.clearI2C3ABIE; inline;
  53436. begin
  53437. pTDefRegMap(@Self)^.clr := $00000100;
  53438. end;
  53439. procedure TINT_IEC1.setI2C3ABIE(thebits : TBits_1); inline;
  53440. begin
  53441. if thebits = 0 then
  53442. pTDefRegMap(@Self)^.clr := $00000100
  53443. else
  53444. pTDefRegMap(@Self)^.&set := $00000100;
  53445. end;
  53446. function TINT_IEC1.getI2C3ABIE : TBits_1; inline;
  53447. begin
  53448. getI2C3ABIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  53449. end;
  53450. procedure TINT_IEC1.setI2C3ASIE; inline;
  53451. begin
  53452. pTDefRegMap(@Self)^.&set := $00000200;
  53453. end;
  53454. procedure TINT_IEC1.clearI2C3ASIE; inline;
  53455. begin
  53456. pTDefRegMap(@Self)^.clr := $00000200;
  53457. end;
  53458. procedure TINT_IEC1.setI2C3ASIE(thebits : TBits_1); inline;
  53459. begin
  53460. if thebits = 0 then
  53461. pTDefRegMap(@Self)^.clr := $00000200
  53462. else
  53463. pTDefRegMap(@Self)^.&set := $00000200;
  53464. end;
  53465. function TINT_IEC1.getI2C3ASIE : TBits_1; inline;
  53466. begin
  53467. getI2C3ASIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  53468. end;
  53469. procedure TINT_IEC1.setI2C3AMIE; inline;
  53470. begin
  53471. pTDefRegMap(@Self)^.&set := $00000400;
  53472. end;
  53473. procedure TINT_IEC1.clearI2C3AMIE; inline;
  53474. begin
  53475. pTDefRegMap(@Self)^.clr := $00000400;
  53476. end;
  53477. procedure TINT_IEC1.setI2C3AMIE(thebits : TBits_1); inline;
  53478. begin
  53479. if thebits = 0 then
  53480. pTDefRegMap(@Self)^.clr := $00000400
  53481. else
  53482. pTDefRegMap(@Self)^.&set := $00000400;
  53483. end;
  53484. function TINT_IEC1.getI2C3AMIE : TBits_1; inline;
  53485. begin
  53486. getI2C3AMIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  53487. end;
  53488. procedure TINT_IEC1.setw(thebits : TBits_32); inline;
  53489. begin
  53490. pTDefRegMap(@Self)^.val := thebits;
  53491. end;
  53492. function TINT_IEC1.getw : TBits_32; inline;
  53493. begin
  53494. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53495. end;
  53496. procedure TINT_IEC2.setIC4EIE; inline;
  53497. begin
  53498. pTDefRegMap(@Self)^.&set := $00000001;
  53499. end;
  53500. procedure TINT_IEC2.clearIC4EIE; inline;
  53501. begin
  53502. pTDefRegMap(@Self)^.clr := $00000001;
  53503. end;
  53504. procedure TINT_IEC2.setIC4EIE(thebits : TBits_1); inline;
  53505. begin
  53506. if thebits = 0 then
  53507. pTDefRegMap(@Self)^.clr := $00000001
  53508. else
  53509. pTDefRegMap(@Self)^.&set := $00000001;
  53510. end;
  53511. function TINT_IEC2.getIC4EIE : TBits_1; inline;
  53512. begin
  53513. getIC4EIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  53514. end;
  53515. procedure TINT_IEC2.setIC5EIE; inline;
  53516. begin
  53517. pTDefRegMap(@Self)^.&set := $00000002;
  53518. end;
  53519. procedure TINT_IEC2.clearIC5EIE; inline;
  53520. begin
  53521. pTDefRegMap(@Self)^.clr := $00000002;
  53522. end;
  53523. procedure TINT_IEC2.setIC5EIE(thebits : TBits_1); inline;
  53524. begin
  53525. if thebits = 0 then
  53526. pTDefRegMap(@Self)^.clr := $00000002
  53527. else
  53528. pTDefRegMap(@Self)^.&set := $00000002;
  53529. end;
  53530. function TINT_IEC2.getIC5EIE : TBits_1; inline;
  53531. begin
  53532. getIC5EIE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  53533. end;
  53534. procedure TINT_IEC2.setPMPEIE; inline;
  53535. begin
  53536. pTDefRegMap(@Self)^.&set := $00000004;
  53537. end;
  53538. procedure TINT_IEC2.clearPMPEIE; inline;
  53539. begin
  53540. pTDefRegMap(@Self)^.clr := $00000004;
  53541. end;
  53542. procedure TINT_IEC2.setPMPEIE(thebits : TBits_1); inline;
  53543. begin
  53544. if thebits = 0 then
  53545. pTDefRegMap(@Self)^.clr := $00000004
  53546. else
  53547. pTDefRegMap(@Self)^.&set := $00000004;
  53548. end;
  53549. function TINT_IEC2.getPMPEIE : TBits_1; inline;
  53550. begin
  53551. getPMPEIE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  53552. end;
  53553. procedure TINT_IEC2.setU1BEIE; inline;
  53554. begin
  53555. pTDefRegMap(@Self)^.&set := $00000008;
  53556. end;
  53557. procedure TINT_IEC2.clearU1BEIE; inline;
  53558. begin
  53559. pTDefRegMap(@Self)^.clr := $00000008;
  53560. end;
  53561. procedure TINT_IEC2.setU1BEIE(thebits : TBits_1); inline;
  53562. begin
  53563. if thebits = 0 then
  53564. pTDefRegMap(@Self)^.clr := $00000008
  53565. else
  53566. pTDefRegMap(@Self)^.&set := $00000008;
  53567. end;
  53568. function TINT_IEC2.getU1BEIE : TBits_1; inline;
  53569. begin
  53570. getU1BEIE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  53571. end;
  53572. procedure TINT_IEC2.setU1BRXIE; inline;
  53573. begin
  53574. pTDefRegMap(@Self)^.&set := $00000010;
  53575. end;
  53576. procedure TINT_IEC2.clearU1BRXIE; inline;
  53577. begin
  53578. pTDefRegMap(@Self)^.clr := $00000010;
  53579. end;
  53580. procedure TINT_IEC2.setU1BRXIE(thebits : TBits_1); inline;
  53581. begin
  53582. if thebits = 0 then
  53583. pTDefRegMap(@Self)^.clr := $00000010
  53584. else
  53585. pTDefRegMap(@Self)^.&set := $00000010;
  53586. end;
  53587. function TINT_IEC2.getU1BRXIE : TBits_1; inline;
  53588. begin
  53589. getU1BRXIE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  53590. end;
  53591. procedure TINT_IEC2.setU1BTXIE; inline;
  53592. begin
  53593. pTDefRegMap(@Self)^.&set := $00000020;
  53594. end;
  53595. procedure TINT_IEC2.clearU1BTXIE; inline;
  53596. begin
  53597. pTDefRegMap(@Self)^.clr := $00000020;
  53598. end;
  53599. procedure TINT_IEC2.setU1BTXIE(thebits : TBits_1); inline;
  53600. begin
  53601. if thebits = 0 then
  53602. pTDefRegMap(@Self)^.clr := $00000020
  53603. else
  53604. pTDefRegMap(@Self)^.&set := $00000020;
  53605. end;
  53606. function TINT_IEC2.getU1BTXIE : TBits_1; inline;
  53607. begin
  53608. getU1BTXIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  53609. end;
  53610. procedure TINT_IEC2.setU2BEIE; inline;
  53611. begin
  53612. pTDefRegMap(@Self)^.&set := $00000040;
  53613. end;
  53614. procedure TINT_IEC2.clearU2BEIE; inline;
  53615. begin
  53616. pTDefRegMap(@Self)^.clr := $00000040;
  53617. end;
  53618. procedure TINT_IEC2.setU2BEIE(thebits : TBits_1); inline;
  53619. begin
  53620. if thebits = 0 then
  53621. pTDefRegMap(@Self)^.clr := $00000040
  53622. else
  53623. pTDefRegMap(@Self)^.&set := $00000040;
  53624. end;
  53625. function TINT_IEC2.getU2BEIE : TBits_1; inline;
  53626. begin
  53627. getU2BEIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  53628. end;
  53629. procedure TINT_IEC2.setU2BRXIE; inline;
  53630. begin
  53631. pTDefRegMap(@Self)^.&set := $00000080;
  53632. end;
  53633. procedure TINT_IEC2.clearU2BRXIE; inline;
  53634. begin
  53635. pTDefRegMap(@Self)^.clr := $00000080;
  53636. end;
  53637. procedure TINT_IEC2.setU2BRXIE(thebits : TBits_1); inline;
  53638. begin
  53639. if thebits = 0 then
  53640. pTDefRegMap(@Self)^.clr := $00000080
  53641. else
  53642. pTDefRegMap(@Self)^.&set := $00000080;
  53643. end;
  53644. function TINT_IEC2.getU2BRXIE : TBits_1; inline;
  53645. begin
  53646. getU2BRXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  53647. end;
  53648. procedure TINT_IEC2.setU2BTXIE; inline;
  53649. begin
  53650. pTDefRegMap(@Self)^.&set := $00000100;
  53651. end;
  53652. procedure TINT_IEC2.clearU2BTXIE; inline;
  53653. begin
  53654. pTDefRegMap(@Self)^.clr := $00000100;
  53655. end;
  53656. procedure TINT_IEC2.setU2BTXIE(thebits : TBits_1); inline;
  53657. begin
  53658. if thebits = 0 then
  53659. pTDefRegMap(@Self)^.clr := $00000100
  53660. else
  53661. pTDefRegMap(@Self)^.&set := $00000100;
  53662. end;
  53663. function TINT_IEC2.getU2BTXIE : TBits_1; inline;
  53664. begin
  53665. getU2BTXIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  53666. end;
  53667. procedure TINT_IEC2.setU3BEIE; inline;
  53668. begin
  53669. pTDefRegMap(@Self)^.&set := $00000200;
  53670. end;
  53671. procedure TINT_IEC2.clearU3BEIE; inline;
  53672. begin
  53673. pTDefRegMap(@Self)^.clr := $00000200;
  53674. end;
  53675. procedure TINT_IEC2.setU3BEIE(thebits : TBits_1); inline;
  53676. begin
  53677. if thebits = 0 then
  53678. pTDefRegMap(@Self)^.clr := $00000200
  53679. else
  53680. pTDefRegMap(@Self)^.&set := $00000200;
  53681. end;
  53682. function TINT_IEC2.getU3BEIE : TBits_1; inline;
  53683. begin
  53684. getU3BEIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  53685. end;
  53686. procedure TINT_IEC2.setU3BRXIE; inline;
  53687. begin
  53688. pTDefRegMap(@Self)^.&set := $00000400;
  53689. end;
  53690. procedure TINT_IEC2.clearU3BRXIE; inline;
  53691. begin
  53692. pTDefRegMap(@Self)^.clr := $00000400;
  53693. end;
  53694. procedure TINT_IEC2.setU3BRXIE(thebits : TBits_1); inline;
  53695. begin
  53696. if thebits = 0 then
  53697. pTDefRegMap(@Self)^.clr := $00000400
  53698. else
  53699. pTDefRegMap(@Self)^.&set := $00000400;
  53700. end;
  53701. function TINT_IEC2.getU3BRXIE : TBits_1; inline;
  53702. begin
  53703. getU3BRXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  53704. end;
  53705. procedure TINT_IEC2.setU3BTXIE; inline;
  53706. begin
  53707. pTDefRegMap(@Self)^.&set := $00000800;
  53708. end;
  53709. procedure TINT_IEC2.clearU3BTXIE; inline;
  53710. begin
  53711. pTDefRegMap(@Self)^.clr := $00000800;
  53712. end;
  53713. procedure TINT_IEC2.setU3BTXIE(thebits : TBits_1); inline;
  53714. begin
  53715. if thebits = 0 then
  53716. pTDefRegMap(@Self)^.clr := $00000800
  53717. else
  53718. pTDefRegMap(@Self)^.&set := $00000800;
  53719. end;
  53720. function TINT_IEC2.getU3BTXIE : TBits_1; inline;
  53721. begin
  53722. getU3BTXIE := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  53723. end;
  53724. procedure TINT_IEC2.setU4EIE; inline;
  53725. begin
  53726. pTDefRegMap(@Self)^.&set := $00000008;
  53727. end;
  53728. procedure TINT_IEC2.clearU4EIE; inline;
  53729. begin
  53730. pTDefRegMap(@Self)^.clr := $00000008;
  53731. end;
  53732. procedure TINT_IEC2.setU4EIE(thebits : TBits_1); inline;
  53733. begin
  53734. if thebits = 0 then
  53735. pTDefRegMap(@Self)^.clr := $00000008
  53736. else
  53737. pTDefRegMap(@Self)^.&set := $00000008;
  53738. end;
  53739. function TINT_IEC2.getU4EIE : TBits_1; inline;
  53740. begin
  53741. getU4EIE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  53742. end;
  53743. procedure TINT_IEC2.setU4RXIE; inline;
  53744. begin
  53745. pTDefRegMap(@Self)^.&set := $00000010;
  53746. end;
  53747. procedure TINT_IEC2.clearU4RXIE; inline;
  53748. begin
  53749. pTDefRegMap(@Self)^.clr := $00000010;
  53750. end;
  53751. procedure TINT_IEC2.setU4RXIE(thebits : TBits_1); inline;
  53752. begin
  53753. if thebits = 0 then
  53754. pTDefRegMap(@Self)^.clr := $00000010
  53755. else
  53756. pTDefRegMap(@Self)^.&set := $00000010;
  53757. end;
  53758. function TINT_IEC2.getU4RXIE : TBits_1; inline;
  53759. begin
  53760. getU4RXIE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  53761. end;
  53762. procedure TINT_IEC2.setU4TXIE; inline;
  53763. begin
  53764. pTDefRegMap(@Self)^.&set := $00000020;
  53765. end;
  53766. procedure TINT_IEC2.clearU4TXIE; inline;
  53767. begin
  53768. pTDefRegMap(@Self)^.clr := $00000020;
  53769. end;
  53770. procedure TINT_IEC2.setU4TXIE(thebits : TBits_1); inline;
  53771. begin
  53772. if thebits = 0 then
  53773. pTDefRegMap(@Self)^.clr := $00000020
  53774. else
  53775. pTDefRegMap(@Self)^.&set := $00000020;
  53776. end;
  53777. function TINT_IEC2.getU4TXIE : TBits_1; inline;
  53778. begin
  53779. getU4TXIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  53780. end;
  53781. procedure TINT_IEC2.setU6EIE; inline;
  53782. begin
  53783. pTDefRegMap(@Self)^.&set := $00000040;
  53784. end;
  53785. procedure TINT_IEC2.clearU6EIE; inline;
  53786. begin
  53787. pTDefRegMap(@Self)^.clr := $00000040;
  53788. end;
  53789. procedure TINT_IEC2.setU6EIE(thebits : TBits_1); inline;
  53790. begin
  53791. if thebits = 0 then
  53792. pTDefRegMap(@Self)^.clr := $00000040
  53793. else
  53794. pTDefRegMap(@Self)^.&set := $00000040;
  53795. end;
  53796. function TINT_IEC2.getU6EIE : TBits_1; inline;
  53797. begin
  53798. getU6EIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  53799. end;
  53800. procedure TINT_IEC2.setU6RXIE; inline;
  53801. begin
  53802. pTDefRegMap(@Self)^.&set := $00000080;
  53803. end;
  53804. procedure TINT_IEC2.clearU6RXIE; inline;
  53805. begin
  53806. pTDefRegMap(@Self)^.clr := $00000080;
  53807. end;
  53808. procedure TINT_IEC2.setU6RXIE(thebits : TBits_1); inline;
  53809. begin
  53810. if thebits = 0 then
  53811. pTDefRegMap(@Self)^.clr := $00000080
  53812. else
  53813. pTDefRegMap(@Self)^.&set := $00000080;
  53814. end;
  53815. function TINT_IEC2.getU6RXIE : TBits_1; inline;
  53816. begin
  53817. getU6RXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  53818. end;
  53819. procedure TINT_IEC2.setU6TXIE; inline;
  53820. begin
  53821. pTDefRegMap(@Self)^.&set := $00000100;
  53822. end;
  53823. procedure TINT_IEC2.clearU6TXIE; inline;
  53824. begin
  53825. pTDefRegMap(@Self)^.clr := $00000100;
  53826. end;
  53827. procedure TINT_IEC2.setU6TXIE(thebits : TBits_1); inline;
  53828. begin
  53829. if thebits = 0 then
  53830. pTDefRegMap(@Self)^.clr := $00000100
  53831. else
  53832. pTDefRegMap(@Self)^.&set := $00000100;
  53833. end;
  53834. function TINT_IEC2.getU6TXIE : TBits_1; inline;
  53835. begin
  53836. getU6TXIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  53837. end;
  53838. procedure TINT_IEC2.setU5EIE; inline;
  53839. begin
  53840. pTDefRegMap(@Self)^.&set := $00000200;
  53841. end;
  53842. procedure TINT_IEC2.clearU5EIE; inline;
  53843. begin
  53844. pTDefRegMap(@Self)^.clr := $00000200;
  53845. end;
  53846. procedure TINT_IEC2.setU5EIE(thebits : TBits_1); inline;
  53847. begin
  53848. if thebits = 0 then
  53849. pTDefRegMap(@Self)^.clr := $00000200
  53850. else
  53851. pTDefRegMap(@Self)^.&set := $00000200;
  53852. end;
  53853. function TINT_IEC2.getU5EIE : TBits_1; inline;
  53854. begin
  53855. getU5EIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  53856. end;
  53857. procedure TINT_IEC2.setU5RXIE; inline;
  53858. begin
  53859. pTDefRegMap(@Self)^.&set := $00000400;
  53860. end;
  53861. procedure TINT_IEC2.clearU5RXIE; inline;
  53862. begin
  53863. pTDefRegMap(@Self)^.clr := $00000400;
  53864. end;
  53865. procedure TINT_IEC2.setU5RXIE(thebits : TBits_1); inline;
  53866. begin
  53867. if thebits = 0 then
  53868. pTDefRegMap(@Self)^.clr := $00000400
  53869. else
  53870. pTDefRegMap(@Self)^.&set := $00000400;
  53871. end;
  53872. function TINT_IEC2.getU5RXIE : TBits_1; inline;
  53873. begin
  53874. getU5RXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  53875. end;
  53876. procedure TINT_IEC2.setU5TXIE; inline;
  53877. begin
  53878. pTDefRegMap(@Self)^.&set := $00000800;
  53879. end;
  53880. procedure TINT_IEC2.clearU5TXIE; inline;
  53881. begin
  53882. pTDefRegMap(@Self)^.clr := $00000800;
  53883. end;
  53884. procedure TINT_IEC2.setU5TXIE(thebits : TBits_1); inline;
  53885. begin
  53886. if thebits = 0 then
  53887. pTDefRegMap(@Self)^.clr := $00000800
  53888. else
  53889. pTDefRegMap(@Self)^.&set := $00000800;
  53890. end;
  53891. function TINT_IEC2.getU5TXIE : TBits_1; inline;
  53892. begin
  53893. getU5TXIE := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  53894. end;
  53895. procedure TINT_IEC2.setw(thebits : TBits_32); inline;
  53896. begin
  53897. pTDefRegMap(@Self)^.val := thebits;
  53898. end;
  53899. function TINT_IEC2.getw : TBits_32; inline;
  53900. begin
  53901. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53902. end;
  53903. procedure TINT_IPC0.setCTIS(thebits : TBits_2); inline;
  53904. begin
  53905. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53906. end;
  53907. function TINT_IPC0.getCTIS : TBits_2; inline;
  53908. begin
  53909. getCTIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53910. end;
  53911. procedure TINT_IPC0.setCTIP(thebits : TBits_3); inline;
  53912. begin
  53913. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53914. end;
  53915. function TINT_IPC0.getCTIP : TBits_3; inline;
  53916. begin
  53917. getCTIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53918. end;
  53919. procedure TINT_IPC0.setCS0IS(thebits : TBits_2); inline;
  53920. begin
  53921. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  53922. end;
  53923. function TINT_IPC0.getCS0IS : TBits_2; inline;
  53924. begin
  53925. getCS0IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  53926. end;
  53927. procedure TINT_IPC0.setCS0IP(thebits : TBits_3); inline;
  53928. begin
  53929. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  53930. end;
  53931. function TINT_IPC0.getCS0IP : TBits_3; inline;
  53932. begin
  53933. getCS0IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  53934. end;
  53935. procedure TINT_IPC0.setCS1IS(thebits : TBits_2); inline;
  53936. begin
  53937. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  53938. end;
  53939. function TINT_IPC0.getCS1IS : TBits_2; inline;
  53940. begin
  53941. getCS1IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  53942. end;
  53943. procedure TINT_IPC0.setCS1IP(thebits : TBits_3); inline;
  53944. begin
  53945. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  53946. end;
  53947. function TINT_IPC0.getCS1IP : TBits_3; inline;
  53948. begin
  53949. getCS1IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  53950. end;
  53951. procedure TINT_IPC0.setINT0IS(thebits : TBits_2); inline;
  53952. begin
  53953. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53954. end;
  53955. function TINT_IPC0.getINT0IS : TBits_2; inline;
  53956. begin
  53957. getINT0IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53958. end;
  53959. procedure TINT_IPC0.setINT0IP(thebits : TBits_3); inline;
  53960. begin
  53961. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53962. end;
  53963. function TINT_IPC0.getINT0IP : TBits_3; inline;
  53964. begin
  53965. getINT0IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53966. end;
  53967. procedure TINT_IPC0.setw(thebits : TBits_32); inline;
  53968. begin
  53969. pTDefRegMap(@Self)^.val := thebits;
  53970. end;
  53971. function TINT_IPC0.getw : TBits_32; inline;
  53972. begin
  53973. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53974. end;
  53975. procedure TINT_IPC1.setT1IS(thebits : TBits_2); inline;
  53976. begin
  53977. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53978. end;
  53979. function TINT_IPC1.getT1IS : TBits_2; inline;
  53980. begin
  53981. getT1IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53982. end;
  53983. procedure TINT_IPC1.setT1IP(thebits : TBits_3); inline;
  53984. begin
  53985. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53986. end;
  53987. function TINT_IPC1.getT1IP : TBits_3; inline;
  53988. begin
  53989. getT1IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53990. end;
  53991. procedure TINT_IPC1.setIC1IS(thebits : TBits_2); inline;
  53992. begin
  53993. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  53994. end;
  53995. function TINT_IPC1.getIC1IS : TBits_2; inline;
  53996. begin
  53997. getIC1IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  53998. end;
  53999. procedure TINT_IPC1.setIC1IP(thebits : TBits_3); inline;
  54000. begin
  54001. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54002. end;
  54003. function TINT_IPC1.getIC1IP : TBits_3; inline;
  54004. begin
  54005. getIC1IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54006. end;
  54007. procedure TINT_IPC1.setOC1IS(thebits : TBits_2); inline;
  54008. begin
  54009. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54010. end;
  54011. function TINT_IPC1.getOC1IS : TBits_2; inline;
  54012. begin
  54013. getOC1IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54014. end;
  54015. procedure TINT_IPC1.setOC1IP(thebits : TBits_3); inline;
  54016. begin
  54017. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54018. end;
  54019. function TINT_IPC1.getOC1IP : TBits_3; inline;
  54020. begin
  54021. getOC1IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54022. end;
  54023. procedure TINT_IPC1.setINT1IS(thebits : TBits_2); inline;
  54024. begin
  54025. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54026. end;
  54027. function TINT_IPC1.getINT1IS : TBits_2; inline;
  54028. begin
  54029. getINT1IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54030. end;
  54031. procedure TINT_IPC1.setINT1IP(thebits : TBits_3); inline;
  54032. begin
  54033. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54034. end;
  54035. function TINT_IPC1.getINT1IP : TBits_3; inline;
  54036. begin
  54037. getINT1IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54038. end;
  54039. procedure TINT_IPC1.setw(thebits : TBits_32); inline;
  54040. begin
  54041. pTDefRegMap(@Self)^.val := thebits;
  54042. end;
  54043. function TINT_IPC1.getw : TBits_32; inline;
  54044. begin
  54045. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54046. end;
  54047. procedure TINT_IPC2.setT2IS(thebits : TBits_2); inline;
  54048. begin
  54049. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54050. end;
  54051. function TINT_IPC2.getT2IS : TBits_2; inline;
  54052. begin
  54053. getT2IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54054. end;
  54055. procedure TINT_IPC2.setT2IP(thebits : TBits_3); inline;
  54056. begin
  54057. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54058. end;
  54059. function TINT_IPC2.getT2IP : TBits_3; inline;
  54060. begin
  54061. getT2IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54062. end;
  54063. procedure TINT_IPC2.setIC2IS(thebits : TBits_2); inline;
  54064. begin
  54065. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54066. end;
  54067. function TINT_IPC2.getIC2IS : TBits_2; inline;
  54068. begin
  54069. getIC2IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54070. end;
  54071. procedure TINT_IPC2.setIC2IP(thebits : TBits_3); inline;
  54072. begin
  54073. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54074. end;
  54075. function TINT_IPC2.getIC2IP : TBits_3; inline;
  54076. begin
  54077. getIC2IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54078. end;
  54079. procedure TINT_IPC2.setOC2IS(thebits : TBits_2); inline;
  54080. begin
  54081. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54082. end;
  54083. function TINT_IPC2.getOC2IS : TBits_2; inline;
  54084. begin
  54085. getOC2IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54086. end;
  54087. procedure TINT_IPC2.setOC2IP(thebits : TBits_3); inline;
  54088. begin
  54089. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54090. end;
  54091. function TINT_IPC2.getOC2IP : TBits_3; inline;
  54092. begin
  54093. getOC2IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54094. end;
  54095. procedure TINT_IPC2.setINT2IS(thebits : TBits_2); inline;
  54096. begin
  54097. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54098. end;
  54099. function TINT_IPC2.getINT2IS : TBits_2; inline;
  54100. begin
  54101. getINT2IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54102. end;
  54103. procedure TINT_IPC2.setINT2IP(thebits : TBits_3); inline;
  54104. begin
  54105. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54106. end;
  54107. function TINT_IPC2.getINT2IP : TBits_3; inline;
  54108. begin
  54109. getINT2IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54110. end;
  54111. procedure TINT_IPC2.setw(thebits : TBits_32); inline;
  54112. begin
  54113. pTDefRegMap(@Self)^.val := thebits;
  54114. end;
  54115. function TINT_IPC2.getw : TBits_32; inline;
  54116. begin
  54117. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54118. end;
  54119. procedure TINT_IPC3.setT3IS(thebits : TBits_2); inline;
  54120. begin
  54121. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54122. end;
  54123. function TINT_IPC3.getT3IS : TBits_2; inline;
  54124. begin
  54125. getT3IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54126. end;
  54127. procedure TINT_IPC3.setT3IP(thebits : TBits_3); inline;
  54128. begin
  54129. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54130. end;
  54131. function TINT_IPC3.getT3IP : TBits_3; inline;
  54132. begin
  54133. getT3IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54134. end;
  54135. procedure TINT_IPC3.setIC3IS(thebits : TBits_2); inline;
  54136. begin
  54137. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54138. end;
  54139. function TINT_IPC3.getIC3IS : TBits_2; inline;
  54140. begin
  54141. getIC3IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54142. end;
  54143. procedure TINT_IPC3.setIC3IP(thebits : TBits_3); inline;
  54144. begin
  54145. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54146. end;
  54147. function TINT_IPC3.getIC3IP : TBits_3; inline;
  54148. begin
  54149. getIC3IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54150. end;
  54151. procedure TINT_IPC3.setOC3IS(thebits : TBits_2); inline;
  54152. begin
  54153. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54154. end;
  54155. function TINT_IPC3.getOC3IS : TBits_2; inline;
  54156. begin
  54157. getOC3IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54158. end;
  54159. procedure TINT_IPC3.setOC3IP(thebits : TBits_3); inline;
  54160. begin
  54161. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54162. end;
  54163. function TINT_IPC3.getOC3IP : TBits_3; inline;
  54164. begin
  54165. getOC3IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54166. end;
  54167. procedure TINT_IPC3.setINT3IS(thebits : TBits_2); inline;
  54168. begin
  54169. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54170. end;
  54171. function TINT_IPC3.getINT3IS : TBits_2; inline;
  54172. begin
  54173. getINT3IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54174. end;
  54175. procedure TINT_IPC3.setINT3IP(thebits : TBits_3); inline;
  54176. begin
  54177. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54178. end;
  54179. function TINT_IPC3.getINT3IP : TBits_3; inline;
  54180. begin
  54181. getINT3IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54182. end;
  54183. procedure TINT_IPC3.setw(thebits : TBits_32); inline;
  54184. begin
  54185. pTDefRegMap(@Self)^.val := thebits;
  54186. end;
  54187. function TINT_IPC3.getw : TBits_32; inline;
  54188. begin
  54189. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54190. end;
  54191. procedure TINT_IPC4.setT4IS(thebits : TBits_2); inline;
  54192. begin
  54193. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54194. end;
  54195. function TINT_IPC4.getT4IS : TBits_2; inline;
  54196. begin
  54197. getT4IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54198. end;
  54199. procedure TINT_IPC4.setT4IP(thebits : TBits_3); inline;
  54200. begin
  54201. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54202. end;
  54203. function TINT_IPC4.getT4IP : TBits_3; inline;
  54204. begin
  54205. getT4IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54206. end;
  54207. procedure TINT_IPC4.setIC4IS(thebits : TBits_2); inline;
  54208. begin
  54209. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54210. end;
  54211. function TINT_IPC4.getIC4IS : TBits_2; inline;
  54212. begin
  54213. getIC4IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54214. end;
  54215. procedure TINT_IPC4.setIC4IP(thebits : TBits_3); inline;
  54216. begin
  54217. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54218. end;
  54219. function TINT_IPC4.getIC4IP : TBits_3; inline;
  54220. begin
  54221. getIC4IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54222. end;
  54223. procedure TINT_IPC4.setOC4IS(thebits : TBits_2); inline;
  54224. begin
  54225. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54226. end;
  54227. function TINT_IPC4.getOC4IS : TBits_2; inline;
  54228. begin
  54229. getOC4IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54230. end;
  54231. procedure TINT_IPC4.setOC4IP(thebits : TBits_3); inline;
  54232. begin
  54233. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54234. end;
  54235. function TINT_IPC4.getOC4IP : TBits_3; inline;
  54236. begin
  54237. getOC4IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54238. end;
  54239. procedure TINT_IPC4.setINT4IS(thebits : TBits_2); inline;
  54240. begin
  54241. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54242. end;
  54243. function TINT_IPC4.getINT4IS : TBits_2; inline;
  54244. begin
  54245. getINT4IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54246. end;
  54247. procedure TINT_IPC4.setINT4IP(thebits : TBits_3); inline;
  54248. begin
  54249. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54250. end;
  54251. function TINT_IPC4.getINT4IP : TBits_3; inline;
  54252. begin
  54253. getINT4IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54254. end;
  54255. procedure TINT_IPC4.setw(thebits : TBits_32); inline;
  54256. begin
  54257. pTDefRegMap(@Self)^.val := thebits;
  54258. end;
  54259. function TINT_IPC4.getw : TBits_32; inline;
  54260. begin
  54261. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54262. end;
  54263. procedure TINT_IPC5.setT5IS(thebits : TBits_2); inline;
  54264. begin
  54265. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54266. end;
  54267. function TINT_IPC5.getT5IS : TBits_2; inline;
  54268. begin
  54269. getT5IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54270. end;
  54271. procedure TINT_IPC5.setT5IP(thebits : TBits_3); inline;
  54272. begin
  54273. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54274. end;
  54275. function TINT_IPC5.getT5IP : TBits_3; inline;
  54276. begin
  54277. getT5IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54278. end;
  54279. procedure TINT_IPC5.setIC5IS(thebits : TBits_2); inline;
  54280. begin
  54281. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54282. end;
  54283. function TINT_IPC5.getIC5IS : TBits_2; inline;
  54284. begin
  54285. getIC5IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54286. end;
  54287. procedure TINT_IPC5.setIC5IP(thebits : TBits_3); inline;
  54288. begin
  54289. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54290. end;
  54291. function TINT_IPC5.getIC5IP : TBits_3; inline;
  54292. begin
  54293. getIC5IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54294. end;
  54295. procedure TINT_IPC5.setOC5IS(thebits : TBits_2); inline;
  54296. begin
  54297. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54298. end;
  54299. function TINT_IPC5.getOC5IS : TBits_2; inline;
  54300. begin
  54301. getOC5IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54302. end;
  54303. procedure TINT_IPC5.setOC5IP(thebits : TBits_3); inline;
  54304. begin
  54305. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54306. end;
  54307. function TINT_IPC5.getOC5IP : TBits_3; inline;
  54308. begin
  54309. getOC5IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54310. end;
  54311. procedure TINT_IPC5.setSPI1IS(thebits : TBits_2); inline;
  54312. begin
  54313. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54314. end;
  54315. function TINT_IPC5.getSPI1IS : TBits_2; inline;
  54316. begin
  54317. getSPI1IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54318. end;
  54319. procedure TINT_IPC5.setSPI1IP(thebits : TBits_3); inline;
  54320. begin
  54321. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54322. end;
  54323. function TINT_IPC5.getSPI1IP : TBits_3; inline;
  54324. begin
  54325. getSPI1IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54326. end;
  54327. procedure TINT_IPC5.setw(thebits : TBits_32); inline;
  54328. begin
  54329. pTDefRegMap(@Self)^.val := thebits;
  54330. end;
  54331. function TINT_IPC5.getw : TBits_32; inline;
  54332. begin
  54333. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54334. end;
  54335. procedure TINT_IPC6.setU1IS(thebits : TBits_2); inline;
  54336. begin
  54337. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54338. end;
  54339. function TINT_IPC6.getU1IS : TBits_2; inline;
  54340. begin
  54341. getU1IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54342. end;
  54343. procedure TINT_IPC6.setU1IP(thebits : TBits_3); inline;
  54344. begin
  54345. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54346. end;
  54347. function TINT_IPC6.getU1IP : TBits_3; inline;
  54348. begin
  54349. getU1IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54350. end;
  54351. procedure TINT_IPC6.setI2C1IS(thebits : TBits_2); inline;
  54352. begin
  54353. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54354. end;
  54355. function TINT_IPC6.getI2C1IS : TBits_2; inline;
  54356. begin
  54357. getI2C1IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54358. end;
  54359. procedure TINT_IPC6.setI2C1IP(thebits : TBits_3); inline;
  54360. begin
  54361. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54362. end;
  54363. function TINT_IPC6.getI2C1IP : TBits_3; inline;
  54364. begin
  54365. getI2C1IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54366. end;
  54367. procedure TINT_IPC6.setCNIS(thebits : TBits_2); inline;
  54368. begin
  54369. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54370. end;
  54371. function TINT_IPC6.getCNIS : TBits_2; inline;
  54372. begin
  54373. getCNIS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54374. end;
  54375. procedure TINT_IPC6.setCNIP(thebits : TBits_3); inline;
  54376. begin
  54377. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54378. end;
  54379. function TINT_IPC6.getCNIP : TBits_3; inline;
  54380. begin
  54381. getCNIP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54382. end;
  54383. procedure TINT_IPC6.setAD1IS(thebits : TBits_2); inline;
  54384. begin
  54385. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54386. end;
  54387. function TINT_IPC6.getAD1IS : TBits_2; inline;
  54388. begin
  54389. getAD1IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54390. end;
  54391. procedure TINT_IPC6.setAD1IP(thebits : TBits_3); inline;
  54392. begin
  54393. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54394. end;
  54395. function TINT_IPC6.getAD1IP : TBits_3; inline;
  54396. begin
  54397. getAD1IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54398. end;
  54399. procedure TINT_IPC6.setU1AIS(thebits : TBits_2); inline;
  54400. begin
  54401. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54402. end;
  54403. function TINT_IPC6.getU1AIS : TBits_2; inline;
  54404. begin
  54405. getU1AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54406. end;
  54407. procedure TINT_IPC6.setU1AIP(thebits : TBits_3); inline;
  54408. begin
  54409. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54410. end;
  54411. function TINT_IPC6.getU1AIP : TBits_3; inline;
  54412. begin
  54413. getU1AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54414. end;
  54415. procedure TINT_IPC6.setSPI3IS(thebits : TBits_2); inline;
  54416. begin
  54417. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54418. end;
  54419. function TINT_IPC6.getSPI3IS : TBits_2; inline;
  54420. begin
  54421. getSPI3IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54422. end;
  54423. procedure TINT_IPC6.setSPI3IP(thebits : TBits_3); inline;
  54424. begin
  54425. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54426. end;
  54427. function TINT_IPC6.getSPI3IP : TBits_3; inline;
  54428. begin
  54429. getSPI3IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54430. end;
  54431. procedure TINT_IPC6.setSPI1AIS(thebits : TBits_2); inline;
  54432. begin
  54433. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54434. end;
  54435. function TINT_IPC6.getSPI1AIS : TBits_2; inline;
  54436. begin
  54437. getSPI1AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54438. end;
  54439. procedure TINT_IPC6.setSPI1AIP(thebits : TBits_3); inline;
  54440. begin
  54441. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54442. end;
  54443. function TINT_IPC6.getSPI1AIP : TBits_3; inline;
  54444. begin
  54445. getSPI1AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54446. end;
  54447. procedure TINT_IPC6.setI2C3IS(thebits : TBits_2); inline;
  54448. begin
  54449. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54450. end;
  54451. function TINT_IPC6.getI2C3IS : TBits_2; inline;
  54452. begin
  54453. getI2C3IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54454. end;
  54455. procedure TINT_IPC6.setI2C3IP(thebits : TBits_3); inline;
  54456. begin
  54457. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54458. end;
  54459. function TINT_IPC6.getI2C3IP : TBits_3; inline;
  54460. begin
  54461. getI2C3IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54462. end;
  54463. procedure TINT_IPC6.setI2C1AIS(thebits : TBits_2); inline;
  54464. begin
  54465. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54466. end;
  54467. function TINT_IPC6.getI2C1AIS : TBits_2; inline;
  54468. begin
  54469. getI2C1AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54470. end;
  54471. procedure TINT_IPC6.setI2C1AIP(thebits : TBits_3); inline;
  54472. begin
  54473. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54474. end;
  54475. function TINT_IPC6.getI2C1AIP : TBits_3; inline;
  54476. begin
  54477. getI2C1AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54478. end;
  54479. procedure TINT_IPC6.setw(thebits : TBits_32); inline;
  54480. begin
  54481. pTDefRegMap(@Self)^.val := thebits;
  54482. end;
  54483. function TINT_IPC6.getw : TBits_32; inline;
  54484. begin
  54485. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54486. end;
  54487. procedure TINT_IPC7.setPMPIS(thebits : TBits_2); inline;
  54488. begin
  54489. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54490. end;
  54491. function TINT_IPC7.getPMPIS : TBits_2; inline;
  54492. begin
  54493. getPMPIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54494. end;
  54495. procedure TINT_IPC7.setPMPIP(thebits : TBits_3); inline;
  54496. begin
  54497. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54498. end;
  54499. function TINT_IPC7.getPMPIP : TBits_3; inline;
  54500. begin
  54501. getPMPIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54502. end;
  54503. procedure TINT_IPC7.setCMP1IS(thebits : TBits_2); inline;
  54504. begin
  54505. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54506. end;
  54507. function TINT_IPC7.getCMP1IS : TBits_2; inline;
  54508. begin
  54509. getCMP1IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54510. end;
  54511. procedure TINT_IPC7.setCMP1IP(thebits : TBits_3); inline;
  54512. begin
  54513. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54514. end;
  54515. function TINT_IPC7.getCMP1IP : TBits_3; inline;
  54516. begin
  54517. getCMP1IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54518. end;
  54519. procedure TINT_IPC7.setCMP2IS(thebits : TBits_2); inline;
  54520. begin
  54521. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54522. end;
  54523. function TINT_IPC7.getCMP2IS : TBits_2; inline;
  54524. begin
  54525. getCMP2IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54526. end;
  54527. procedure TINT_IPC7.setCMP2IP(thebits : TBits_3); inline;
  54528. begin
  54529. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54530. end;
  54531. function TINT_IPC7.getCMP2IP : TBits_3; inline;
  54532. begin
  54533. getCMP2IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54534. end;
  54535. procedure TINT_IPC7.setU3IS(thebits : TBits_2); inline;
  54536. begin
  54537. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54538. end;
  54539. function TINT_IPC7.getU3IS : TBits_2; inline;
  54540. begin
  54541. getU3IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54542. end;
  54543. procedure TINT_IPC7.setU3IP(thebits : TBits_3); inline;
  54544. begin
  54545. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54546. end;
  54547. function TINT_IPC7.getU3IP : TBits_3; inline;
  54548. begin
  54549. getU3IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54550. end;
  54551. procedure TINT_IPC7.setU2AIS(thebits : TBits_2); inline;
  54552. begin
  54553. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54554. end;
  54555. function TINT_IPC7.getU2AIS : TBits_2; inline;
  54556. begin
  54557. getU2AIS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54558. end;
  54559. procedure TINT_IPC7.setU2AIP(thebits : TBits_3); inline;
  54560. begin
  54561. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54562. end;
  54563. function TINT_IPC7.getU2AIP : TBits_3; inline;
  54564. begin
  54565. getU2AIP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54566. end;
  54567. procedure TINT_IPC7.setSPI2IS(thebits : TBits_2); inline;
  54568. begin
  54569. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54570. end;
  54571. function TINT_IPC7.getSPI2IS : TBits_2; inline;
  54572. begin
  54573. getSPI2IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54574. end;
  54575. procedure TINT_IPC7.setSPI2IP(thebits : TBits_3); inline;
  54576. begin
  54577. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54578. end;
  54579. function TINT_IPC7.getSPI2IP : TBits_3; inline;
  54580. begin
  54581. getSPI2IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54582. end;
  54583. procedure TINT_IPC7.setSPI2AIS(thebits : TBits_2); inline;
  54584. begin
  54585. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54586. end;
  54587. function TINT_IPC7.getSPI2AIS : TBits_2; inline;
  54588. begin
  54589. getSPI2AIS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54590. end;
  54591. procedure TINT_IPC7.setSPI2AIP(thebits : TBits_3); inline;
  54592. begin
  54593. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54594. end;
  54595. function TINT_IPC7.getSPI2AIP : TBits_3; inline;
  54596. begin
  54597. getSPI2AIP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54598. end;
  54599. procedure TINT_IPC7.setI2C4IS(thebits : TBits_2); inline;
  54600. begin
  54601. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54602. end;
  54603. function TINT_IPC7.getI2C4IS : TBits_2; inline;
  54604. begin
  54605. getI2C4IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54606. end;
  54607. procedure TINT_IPC7.setI2C4IP(thebits : TBits_3); inline;
  54608. begin
  54609. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54610. end;
  54611. function TINT_IPC7.getI2C4IP : TBits_3; inline;
  54612. begin
  54613. getI2C4IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54614. end;
  54615. procedure TINT_IPC7.setI2C2AIS(thebits : TBits_2); inline;
  54616. begin
  54617. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54618. end;
  54619. function TINT_IPC7.getI2C2AIS : TBits_2; inline;
  54620. begin
  54621. getI2C2AIS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54622. end;
  54623. procedure TINT_IPC7.setI2C2AIP(thebits : TBits_3); inline;
  54624. begin
  54625. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54626. end;
  54627. function TINT_IPC7.getI2C2AIP : TBits_3; inline;
  54628. begin
  54629. getI2C2AIP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54630. end;
  54631. procedure TINT_IPC7.setw(thebits : TBits_32); inline;
  54632. begin
  54633. pTDefRegMap(@Self)^.val := thebits;
  54634. end;
  54635. function TINT_IPC7.getw : TBits_32; inline;
  54636. begin
  54637. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54638. end;
  54639. procedure TINT_IPC8.setU2IS(thebits : TBits_2); inline;
  54640. begin
  54641. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54642. end;
  54643. function TINT_IPC8.getU2IS : TBits_2; inline;
  54644. begin
  54645. getU2IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54646. end;
  54647. procedure TINT_IPC8.setU2IP(thebits : TBits_3); inline;
  54648. begin
  54649. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54650. end;
  54651. function TINT_IPC8.getU2IP : TBits_3; inline;
  54652. begin
  54653. getU2IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54654. end;
  54655. procedure TINT_IPC8.setI2C2IS(thebits : TBits_2); inline;
  54656. begin
  54657. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54658. end;
  54659. function TINT_IPC8.getI2C2IS : TBits_2; inline;
  54660. begin
  54661. getI2C2IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54662. end;
  54663. procedure TINT_IPC8.setI2C2IP(thebits : TBits_3); inline;
  54664. begin
  54665. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54666. end;
  54667. function TINT_IPC8.getI2C2IP : TBits_3; inline;
  54668. begin
  54669. getI2C2IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54670. end;
  54671. procedure TINT_IPC8.setFSCMIS(thebits : TBits_2); inline;
  54672. begin
  54673. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54674. end;
  54675. function TINT_IPC8.getFSCMIS : TBits_2; inline;
  54676. begin
  54677. getFSCMIS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54678. end;
  54679. procedure TINT_IPC8.setFSCMIP(thebits : TBits_3); inline;
  54680. begin
  54681. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54682. end;
  54683. function TINT_IPC8.getFSCMIP : TBits_3; inline;
  54684. begin
  54685. getFSCMIP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54686. end;
  54687. procedure TINT_IPC8.setRTCCIS(thebits : TBits_2); inline;
  54688. begin
  54689. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54690. end;
  54691. function TINT_IPC8.getRTCCIS : TBits_2; inline;
  54692. begin
  54693. getRTCCIS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54694. end;
  54695. procedure TINT_IPC8.setRTCCIP(thebits : TBits_3); inline;
  54696. begin
  54697. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54698. end;
  54699. function TINT_IPC8.getRTCCIP : TBits_3; inline;
  54700. begin
  54701. getRTCCIP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54702. end;
  54703. procedure TINT_IPC8.setU3AIS(thebits : TBits_2); inline;
  54704. begin
  54705. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54706. end;
  54707. function TINT_IPC8.getU3AIS : TBits_2; inline;
  54708. begin
  54709. getU3AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54710. end;
  54711. procedure TINT_IPC8.setU3AIP(thebits : TBits_3); inline;
  54712. begin
  54713. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54714. end;
  54715. function TINT_IPC8.getU3AIP : TBits_3; inline;
  54716. begin
  54717. getU3AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54718. end;
  54719. procedure TINT_IPC8.setSPI4IS(thebits : TBits_2); inline;
  54720. begin
  54721. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54722. end;
  54723. function TINT_IPC8.getSPI4IS : TBits_2; inline;
  54724. begin
  54725. getSPI4IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54726. end;
  54727. procedure TINT_IPC8.setSPI4IP(thebits : TBits_3); inline;
  54728. begin
  54729. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54730. end;
  54731. function TINT_IPC8.getSPI4IP : TBits_3; inline;
  54732. begin
  54733. getSPI4IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54734. end;
  54735. procedure TINT_IPC8.setSPI3AIS(thebits : TBits_2); inline;
  54736. begin
  54737. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54738. end;
  54739. function TINT_IPC8.getSPI3AIS : TBits_2; inline;
  54740. begin
  54741. getSPI3AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54742. end;
  54743. procedure TINT_IPC8.setSPI3AIP(thebits : TBits_3); inline;
  54744. begin
  54745. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54746. end;
  54747. function TINT_IPC8.getSPI3AIP : TBits_3; inline;
  54748. begin
  54749. getSPI3AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54750. end;
  54751. procedure TINT_IPC8.setI2C5IS(thebits : TBits_2); inline;
  54752. begin
  54753. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54754. end;
  54755. function TINT_IPC8.getI2C5IS : TBits_2; inline;
  54756. begin
  54757. getI2C5IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54758. end;
  54759. procedure TINT_IPC8.setI2C5IP(thebits : TBits_3); inline;
  54760. begin
  54761. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54762. end;
  54763. function TINT_IPC8.getI2C5IP : TBits_3; inline;
  54764. begin
  54765. getI2C5IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54766. end;
  54767. procedure TINT_IPC8.setI2C3AIS(thebits : TBits_2); inline;
  54768. begin
  54769. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54770. end;
  54771. function TINT_IPC8.getI2C3AIS : TBits_2; inline;
  54772. begin
  54773. getI2C3AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54774. end;
  54775. procedure TINT_IPC8.setI2C3AIP(thebits : TBits_3); inline;
  54776. begin
  54777. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54778. end;
  54779. function TINT_IPC8.getI2C3AIP : TBits_3; inline;
  54780. begin
  54781. getI2C3AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54782. end;
  54783. procedure TINT_IPC8.setw(thebits : TBits_32); inline;
  54784. begin
  54785. pTDefRegMap(@Self)^.val := thebits;
  54786. end;
  54787. function TINT_IPC8.getw : TBits_32; inline;
  54788. begin
  54789. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54790. end;
  54791. procedure TINT_IPC9.setDMA0IS(thebits : TBits_2); inline;
  54792. begin
  54793. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54794. end;
  54795. function TINT_IPC9.getDMA0IS : TBits_2; inline;
  54796. begin
  54797. getDMA0IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54798. end;
  54799. procedure TINT_IPC9.setDMA0IP(thebits : TBits_3); inline;
  54800. begin
  54801. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54802. end;
  54803. function TINT_IPC9.getDMA0IP : TBits_3; inline;
  54804. begin
  54805. getDMA0IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54806. end;
  54807. procedure TINT_IPC9.setDMA1IS(thebits : TBits_2); inline;
  54808. begin
  54809. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54810. end;
  54811. function TINT_IPC9.getDMA1IS : TBits_2; inline;
  54812. begin
  54813. getDMA1IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54814. end;
  54815. procedure TINT_IPC9.setDMA1IP(thebits : TBits_3); inline;
  54816. begin
  54817. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54818. end;
  54819. function TINT_IPC9.getDMA1IP : TBits_3; inline;
  54820. begin
  54821. getDMA1IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54822. end;
  54823. procedure TINT_IPC9.setDMA2IS(thebits : TBits_2); inline;
  54824. begin
  54825. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54826. end;
  54827. function TINT_IPC9.getDMA2IS : TBits_2; inline;
  54828. begin
  54829. getDMA2IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54830. end;
  54831. procedure TINT_IPC9.setDMA2IP(thebits : TBits_3); inline;
  54832. begin
  54833. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54834. end;
  54835. function TINT_IPC9.getDMA2IP : TBits_3; inline;
  54836. begin
  54837. getDMA2IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54838. end;
  54839. procedure TINT_IPC9.setDMA3IS(thebits : TBits_2); inline;
  54840. begin
  54841. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54842. end;
  54843. function TINT_IPC9.getDMA3IS : TBits_2; inline;
  54844. begin
  54845. getDMA3IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54846. end;
  54847. procedure TINT_IPC9.setDMA3IP(thebits : TBits_3); inline;
  54848. begin
  54849. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54850. end;
  54851. function TINT_IPC9.getDMA3IP : TBits_3; inline;
  54852. begin
  54853. getDMA3IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54854. end;
  54855. procedure TINT_IPC9.setw(thebits : TBits_32); inline;
  54856. begin
  54857. pTDefRegMap(@Self)^.val := thebits;
  54858. end;
  54859. function TINT_IPC9.getw : TBits_32; inline;
  54860. begin
  54861. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54862. end;
  54863. procedure TINT_IPC11.setFCEIS(thebits : TBits_2); inline;
  54864. begin
  54865. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54866. end;
  54867. function TINT_IPC11.getFCEIS : TBits_2; inline;
  54868. begin
  54869. getFCEIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54870. end;
  54871. procedure TINT_IPC11.setFCEIP(thebits : TBits_3); inline;
  54872. begin
  54873. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54874. end;
  54875. function TINT_IPC11.getFCEIP : TBits_3; inline;
  54876. begin
  54877. getFCEIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54878. end;
  54879. procedure TINT_IPC11.setUSBIS(thebits : TBits_2); inline;
  54880. begin
  54881. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54882. end;
  54883. function TINT_IPC11.getUSBIS : TBits_2; inline;
  54884. begin
  54885. getUSBIS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54886. end;
  54887. procedure TINT_IPC11.setUSBIP(thebits : TBits_3); inline;
  54888. begin
  54889. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54890. end;
  54891. function TINT_IPC11.getUSBIP : TBits_3; inline;
  54892. begin
  54893. getUSBIP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54894. end;
  54895. procedure TINT_IPC11.setCAN1IS(thebits : TBits_2); inline;
  54896. begin
  54897. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54898. end;
  54899. function TINT_IPC11.getCAN1IS : TBits_2; inline;
  54900. begin
  54901. getCAN1IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54902. end;
  54903. procedure TINT_IPC11.setCAN1IP(thebits : TBits_3); inline;
  54904. begin
  54905. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54906. end;
  54907. function TINT_IPC11.getCAN1IP : TBits_3; inline;
  54908. begin
  54909. getCAN1IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54910. end;
  54911. procedure TINT_IPC11.setw(thebits : TBits_32); inline;
  54912. begin
  54913. pTDefRegMap(@Self)^.val := thebits;
  54914. end;
  54915. function TINT_IPC11.getw : TBits_32; inline;
  54916. begin
  54917. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54918. end;
  54919. procedure TINT_IPC12.setETHIS(thebits : TBits_2); inline;
  54920. begin
  54921. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54922. end;
  54923. function TINT_IPC12.getETHIS : TBits_2; inline;
  54924. begin
  54925. getETHIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54926. end;
  54927. procedure TINT_IPC12.setETHIP(thebits : TBits_3); inline;
  54928. begin
  54929. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54930. end;
  54931. function TINT_IPC12.getETHIP : TBits_3; inline;
  54932. begin
  54933. getETHIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54934. end;
  54935. procedure TINT_IPC12.setU4IS(thebits : TBits_2); inline;
  54936. begin
  54937. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54938. end;
  54939. function TINT_IPC12.getU4IS : TBits_2; inline;
  54940. begin
  54941. getU4IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54942. end;
  54943. procedure TINT_IPC12.setU4IP(thebits : TBits_3); inline;
  54944. begin
  54945. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54946. end;
  54947. function TINT_IPC12.getU4IP : TBits_3; inline;
  54948. begin
  54949. getU4IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54950. end;
  54951. procedure TINT_IPC12.setU6IS(thebits : TBits_2); inline;
  54952. begin
  54953. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54954. end;
  54955. function TINT_IPC12.getU6IS : TBits_2; inline;
  54956. begin
  54957. getU6IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54958. end;
  54959. procedure TINT_IPC12.setU6IP(thebits : TBits_3); inline;
  54960. begin
  54961. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54962. end;
  54963. function TINT_IPC12.getU6IP : TBits_3; inline;
  54964. begin
  54965. getU6IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54966. end;
  54967. procedure TINT_IPC12.setU5IS(thebits : TBits_2); inline;
  54968. begin
  54969. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54970. end;
  54971. function TINT_IPC12.getU5IS : TBits_2; inline;
  54972. begin
  54973. getU5IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54974. end;
  54975. procedure TINT_IPC12.setU5IP(thebits : TBits_3); inline;
  54976. begin
  54977. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54978. end;
  54979. function TINT_IPC12.getU5IP : TBits_3; inline;
  54980. begin
  54981. getU5IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54982. end;
  54983. procedure TINT_IPC12.setU1BIS(thebits : TBits_2); inline;
  54984. begin
  54985. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54986. end;
  54987. function TINT_IPC12.getU1BIS : TBits_2; inline;
  54988. begin
  54989. getU1BIS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54990. end;
  54991. procedure TINT_IPC12.setU1BIP(thebits : TBits_3); inline;
  54992. begin
  54993. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54994. end;
  54995. function TINT_IPC12.getU1BIP : TBits_3; inline;
  54996. begin
  54997. getU1BIP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54998. end;
  54999. procedure TINT_IPC12.setU2BIS(thebits : TBits_2); inline;
  55000. begin
  55001. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  55002. end;
  55003. function TINT_IPC12.getU2BIS : TBits_2; inline;
  55004. begin
  55005. getU2BIS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  55006. end;
  55007. procedure TINT_IPC12.setU2BIP(thebits : TBits_3); inline;
  55008. begin
  55009. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  55010. end;
  55011. function TINT_IPC12.getU2BIP : TBits_3; inline;
  55012. begin
  55013. getU2BIP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  55014. end;
  55015. procedure TINT_IPC12.setU3BIS(thebits : TBits_2); inline;
  55016. begin
  55017. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  55018. end;
  55019. function TINT_IPC12.getU3BIS : TBits_2; inline;
  55020. begin
  55021. getU3BIS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  55022. end;
  55023. procedure TINT_IPC12.setU3BIP(thebits : TBits_3); inline;
  55024. begin
  55025. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  55026. end;
  55027. function TINT_IPC12.getU3BIP : TBits_3; inline;
  55028. begin
  55029. getU3BIP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  55030. end;
  55031. procedure TINT_IPC12.setw(thebits : TBits_32); inline;
  55032. begin
  55033. pTDefRegMap(@Self)^.val := thebits;
  55034. end;
  55035. function TINT_IPC12.getw : TBits_32; inline;
  55036. begin
  55037. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55038. end;
  55039. procedure TBMX_BMXCON.setBMXARB(thebits : TBits_3); inline;
  55040. begin
  55041. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  55042. end;
  55043. function TBMX_BMXCON.getBMXARB : TBits_3; inline;
  55044. begin
  55045. getBMXARB := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  55046. end;
  55047. procedure TBMX_BMXCON.setBMXWSDRM; inline;
  55048. begin
  55049. pTDefRegMap(@Self)^.&set := $00000040;
  55050. end;
  55051. procedure TBMX_BMXCON.clearBMXWSDRM; inline;
  55052. begin
  55053. pTDefRegMap(@Self)^.clr := $00000040;
  55054. end;
  55055. procedure TBMX_BMXCON.setBMXWSDRM(thebits : TBits_1); inline;
  55056. begin
  55057. if thebits = 0 then
  55058. pTDefRegMap(@Self)^.clr := $00000040
  55059. else
  55060. pTDefRegMap(@Self)^.&set := $00000040;
  55061. end;
  55062. function TBMX_BMXCON.getBMXWSDRM : TBits_1; inline;
  55063. begin
  55064. getBMXWSDRM := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55065. end;
  55066. procedure TBMX_BMXCON.setBMXERRIS; inline;
  55067. begin
  55068. pTDefRegMap(@Self)^.&set := $00010000;
  55069. end;
  55070. procedure TBMX_BMXCON.clearBMXERRIS; inline;
  55071. begin
  55072. pTDefRegMap(@Self)^.clr := $00010000;
  55073. end;
  55074. procedure TBMX_BMXCON.setBMXERRIS(thebits : TBits_1); inline;
  55075. begin
  55076. if thebits = 0 then
  55077. pTDefRegMap(@Self)^.clr := $00010000
  55078. else
  55079. pTDefRegMap(@Self)^.&set := $00010000;
  55080. end;
  55081. function TBMX_BMXCON.getBMXERRIS : TBits_1; inline;
  55082. begin
  55083. getBMXERRIS := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  55084. end;
  55085. procedure TBMX_BMXCON.setBMXERRDS; inline;
  55086. begin
  55087. pTDefRegMap(@Self)^.&set := $00020000;
  55088. end;
  55089. procedure TBMX_BMXCON.clearBMXERRDS; inline;
  55090. begin
  55091. pTDefRegMap(@Self)^.clr := $00020000;
  55092. end;
  55093. procedure TBMX_BMXCON.setBMXERRDS(thebits : TBits_1); inline;
  55094. begin
  55095. if thebits = 0 then
  55096. pTDefRegMap(@Self)^.clr := $00020000
  55097. else
  55098. pTDefRegMap(@Self)^.&set := $00020000;
  55099. end;
  55100. function TBMX_BMXCON.getBMXERRDS : TBits_1; inline;
  55101. begin
  55102. getBMXERRDS := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  55103. end;
  55104. procedure TBMX_BMXCON.setBMXERRDMA; inline;
  55105. begin
  55106. pTDefRegMap(@Self)^.&set := $00040000;
  55107. end;
  55108. procedure TBMX_BMXCON.clearBMXERRDMA; inline;
  55109. begin
  55110. pTDefRegMap(@Self)^.clr := $00040000;
  55111. end;
  55112. procedure TBMX_BMXCON.setBMXERRDMA(thebits : TBits_1); inline;
  55113. begin
  55114. if thebits = 0 then
  55115. pTDefRegMap(@Self)^.clr := $00040000
  55116. else
  55117. pTDefRegMap(@Self)^.&set := $00040000;
  55118. end;
  55119. function TBMX_BMXCON.getBMXERRDMA : TBits_1; inline;
  55120. begin
  55121. getBMXERRDMA := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  55122. end;
  55123. procedure TBMX_BMXCON.setBMXERRICD; inline;
  55124. begin
  55125. pTDefRegMap(@Self)^.&set := $00080000;
  55126. end;
  55127. procedure TBMX_BMXCON.clearBMXERRICD; inline;
  55128. begin
  55129. pTDefRegMap(@Self)^.clr := $00080000;
  55130. end;
  55131. procedure TBMX_BMXCON.setBMXERRICD(thebits : TBits_1); inline;
  55132. begin
  55133. if thebits = 0 then
  55134. pTDefRegMap(@Self)^.clr := $00080000
  55135. else
  55136. pTDefRegMap(@Self)^.&set := $00080000;
  55137. end;
  55138. function TBMX_BMXCON.getBMXERRICD : TBits_1; inline;
  55139. begin
  55140. getBMXERRICD := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  55141. end;
  55142. procedure TBMX_BMXCON.setBMXERRIXI; inline;
  55143. begin
  55144. pTDefRegMap(@Self)^.&set := $00100000;
  55145. end;
  55146. procedure TBMX_BMXCON.clearBMXERRIXI; inline;
  55147. begin
  55148. pTDefRegMap(@Self)^.clr := $00100000;
  55149. end;
  55150. procedure TBMX_BMXCON.setBMXERRIXI(thebits : TBits_1); inline;
  55151. begin
  55152. if thebits = 0 then
  55153. pTDefRegMap(@Self)^.clr := $00100000
  55154. else
  55155. pTDefRegMap(@Self)^.&set := $00100000;
  55156. end;
  55157. function TBMX_BMXCON.getBMXERRIXI : TBits_1; inline;
  55158. begin
  55159. getBMXERRIXI := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  55160. end;
  55161. procedure TBMX_BMXCON.setBMXCHEDMA; inline;
  55162. begin
  55163. pTDefRegMap(@Self)^.&set := $04000000;
  55164. end;
  55165. procedure TBMX_BMXCON.clearBMXCHEDMA; inline;
  55166. begin
  55167. pTDefRegMap(@Self)^.clr := $04000000;
  55168. end;
  55169. procedure TBMX_BMXCON.setBMXCHEDMA(thebits : TBits_1); inline;
  55170. begin
  55171. if thebits = 0 then
  55172. pTDefRegMap(@Self)^.clr := $04000000
  55173. else
  55174. pTDefRegMap(@Self)^.&set := $04000000;
  55175. end;
  55176. function TBMX_BMXCON.getBMXCHEDMA : TBits_1; inline;
  55177. begin
  55178. getBMXCHEDMA := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  55179. end;
  55180. procedure TBMX_BMXCON.setw(thebits : TBits_32); inline;
  55181. begin
  55182. pTDefRegMap(@Self)^.val := thebits;
  55183. end;
  55184. function TBMX_BMXCON.getw : TBits_32; inline;
  55185. begin
  55186. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55187. end;
  55188. procedure TDMAC_DMACON.setDMABUSY; inline;
  55189. begin
  55190. pTDefRegMap(@Self)^.&set := $00000800;
  55191. end;
  55192. procedure TDMAC_DMACON.clearDMABUSY; inline;
  55193. begin
  55194. pTDefRegMap(@Self)^.clr := $00000800;
  55195. end;
  55196. procedure TDMAC_DMACON.setDMABUSY(thebits : TBits_1); inline;
  55197. begin
  55198. if thebits = 0 then
  55199. pTDefRegMap(@Self)^.clr := $00000800
  55200. else
  55201. pTDefRegMap(@Self)^.&set := $00000800;
  55202. end;
  55203. function TDMAC_DMACON.getDMABUSY : TBits_1; inline;
  55204. begin
  55205. getDMABUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  55206. end;
  55207. procedure TDMAC_DMACON.setSUSPEND; inline;
  55208. begin
  55209. pTDefRegMap(@Self)^.&set := $00001000;
  55210. end;
  55211. procedure TDMAC_DMACON.clearSUSPEND; inline;
  55212. begin
  55213. pTDefRegMap(@Self)^.clr := $00001000;
  55214. end;
  55215. procedure TDMAC_DMACON.setSUSPEND(thebits : TBits_1); inline;
  55216. begin
  55217. if thebits = 0 then
  55218. pTDefRegMap(@Self)^.clr := $00001000
  55219. else
  55220. pTDefRegMap(@Self)^.&set := $00001000;
  55221. end;
  55222. function TDMAC_DMACON.getSUSPEND : TBits_1; inline;
  55223. begin
  55224. getSUSPEND := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  55225. end;
  55226. procedure TDMAC_DMACON.setON; inline;
  55227. begin
  55228. pTDefRegMap(@Self)^.&set := $00008000;
  55229. end;
  55230. procedure TDMAC_DMACON.clearON; inline;
  55231. begin
  55232. pTDefRegMap(@Self)^.clr := $00008000;
  55233. end;
  55234. procedure TDMAC_DMACON.setON(thebits : TBits_1); inline;
  55235. begin
  55236. if thebits = 0 then
  55237. pTDefRegMap(@Self)^.clr := $00008000
  55238. else
  55239. pTDefRegMap(@Self)^.&set := $00008000;
  55240. end;
  55241. function TDMAC_DMACON.getON : TBits_1; inline;
  55242. begin
  55243. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  55244. end;
  55245. procedure TDMAC_DMACON.setw(thebits : TBits_32); inline;
  55246. begin
  55247. pTDefRegMap(@Self)^.val := thebits;
  55248. end;
  55249. function TDMAC_DMACON.getw : TBits_32; inline;
  55250. begin
  55251. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55252. end;
  55253. procedure TDMAC_DMASTAT.setDMACH(thebits : TBits_3); inline;
  55254. begin
  55255. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  55256. end;
  55257. function TDMAC_DMASTAT.getDMACH : TBits_3; inline;
  55258. begin
  55259. getDMACH := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  55260. end;
  55261. procedure TDMAC_DMASTAT.setRDWR; inline;
  55262. begin
  55263. pTDefRegMap(@Self)^.&set := $00000008;
  55264. end;
  55265. procedure TDMAC_DMASTAT.clearRDWR; inline;
  55266. begin
  55267. pTDefRegMap(@Self)^.clr := $00000008;
  55268. end;
  55269. procedure TDMAC_DMASTAT.setRDWR(thebits : TBits_1); inline;
  55270. begin
  55271. if thebits = 0 then
  55272. pTDefRegMap(@Self)^.clr := $00000008
  55273. else
  55274. pTDefRegMap(@Self)^.&set := $00000008;
  55275. end;
  55276. function TDMAC_DMASTAT.getRDWR : TBits_1; inline;
  55277. begin
  55278. getRDWR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  55279. end;
  55280. procedure TDMAC_DMASTAT.setw(thebits : TBits_32); inline;
  55281. begin
  55282. pTDefRegMap(@Self)^.val := thebits;
  55283. end;
  55284. function TDMAC_DMASTAT.getw : TBits_32; inline;
  55285. begin
  55286. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55287. end;
  55288. procedure TDMAC_DCRCCON.setCRCCH(thebits : TBits_3); inline;
  55289. begin
  55290. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  55291. end;
  55292. function TDMAC_DCRCCON.getCRCCH : TBits_3; inline;
  55293. begin
  55294. getCRCCH := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  55295. end;
  55296. procedure TDMAC_DCRCCON.setCRCTYP; inline;
  55297. begin
  55298. pTDefRegMap(@Self)^.&set := $00000020;
  55299. end;
  55300. procedure TDMAC_DCRCCON.clearCRCTYP; inline;
  55301. begin
  55302. pTDefRegMap(@Self)^.clr := $00000020;
  55303. end;
  55304. procedure TDMAC_DCRCCON.setCRCTYP(thebits : TBits_1); inline;
  55305. begin
  55306. if thebits = 0 then
  55307. pTDefRegMap(@Self)^.clr := $00000020
  55308. else
  55309. pTDefRegMap(@Self)^.&set := $00000020;
  55310. end;
  55311. function TDMAC_DCRCCON.getCRCTYP : TBits_1; inline;
  55312. begin
  55313. getCRCTYP := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  55314. end;
  55315. procedure TDMAC_DCRCCON.setCRCAPP; inline;
  55316. begin
  55317. pTDefRegMap(@Self)^.&set := $00000040;
  55318. end;
  55319. procedure TDMAC_DCRCCON.clearCRCAPP; inline;
  55320. begin
  55321. pTDefRegMap(@Self)^.clr := $00000040;
  55322. end;
  55323. procedure TDMAC_DCRCCON.setCRCAPP(thebits : TBits_1); inline;
  55324. begin
  55325. if thebits = 0 then
  55326. pTDefRegMap(@Self)^.clr := $00000040
  55327. else
  55328. pTDefRegMap(@Self)^.&set := $00000040;
  55329. end;
  55330. function TDMAC_DCRCCON.getCRCAPP : TBits_1; inline;
  55331. begin
  55332. getCRCAPP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55333. end;
  55334. procedure TDMAC_DCRCCON.setCRCEN; inline;
  55335. begin
  55336. pTDefRegMap(@Self)^.&set := $00000080;
  55337. end;
  55338. procedure TDMAC_DCRCCON.clearCRCEN; inline;
  55339. begin
  55340. pTDefRegMap(@Self)^.clr := $00000080;
  55341. end;
  55342. procedure TDMAC_DCRCCON.setCRCEN(thebits : TBits_1); inline;
  55343. begin
  55344. if thebits = 0 then
  55345. pTDefRegMap(@Self)^.clr := $00000080
  55346. else
  55347. pTDefRegMap(@Self)^.&set := $00000080;
  55348. end;
  55349. function TDMAC_DCRCCON.getCRCEN : TBits_1; inline;
  55350. begin
  55351. getCRCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  55352. end;
  55353. procedure TDMAC_DCRCCON.setPLEN(thebits : TBits_5); inline;
  55354. begin
  55355. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  55356. end;
  55357. function TDMAC_DCRCCON.getPLEN : TBits_5; inline;
  55358. begin
  55359. getPLEN := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  55360. end;
  55361. procedure TDMAC_DCRCCON.setBITO; inline;
  55362. begin
  55363. pTDefRegMap(@Self)^.&set := $01000000;
  55364. end;
  55365. procedure TDMAC_DCRCCON.clearBITO; inline;
  55366. begin
  55367. pTDefRegMap(@Self)^.clr := $01000000;
  55368. end;
  55369. procedure TDMAC_DCRCCON.setBITO(thebits : TBits_1); inline;
  55370. begin
  55371. if thebits = 0 then
  55372. pTDefRegMap(@Self)^.clr := $01000000
  55373. else
  55374. pTDefRegMap(@Self)^.&set := $01000000;
  55375. end;
  55376. function TDMAC_DCRCCON.getBITO : TBits_1; inline;
  55377. begin
  55378. getBITO := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  55379. end;
  55380. procedure TDMAC_DCRCCON.setWBO; inline;
  55381. begin
  55382. pTDefRegMap(@Self)^.&set := $08000000;
  55383. end;
  55384. procedure TDMAC_DCRCCON.clearWBO; inline;
  55385. begin
  55386. pTDefRegMap(@Self)^.clr := $08000000;
  55387. end;
  55388. procedure TDMAC_DCRCCON.setWBO(thebits : TBits_1); inline;
  55389. begin
  55390. if thebits = 0 then
  55391. pTDefRegMap(@Self)^.clr := $08000000
  55392. else
  55393. pTDefRegMap(@Self)^.&set := $08000000;
  55394. end;
  55395. function TDMAC_DCRCCON.getWBO : TBits_1; inline;
  55396. begin
  55397. getWBO := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  55398. end;
  55399. procedure TDMAC_DCRCCON.setBYTO(thebits : TBits_2); inline;
  55400. begin
  55401. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $CFFFFFFF or ( thebits shl 28 );
  55402. end;
  55403. function TDMAC_DCRCCON.getBYTO : TBits_2; inline;
  55404. begin
  55405. getBYTO := (pTDefRegMap(@Self)^.val and $30000000) shr 28;
  55406. end;
  55407. procedure TDMAC_DCRCCON.setw(thebits : TBits_32); inline;
  55408. begin
  55409. pTDefRegMap(@Self)^.val := thebits;
  55410. end;
  55411. function TDMAC_DCRCCON.getw : TBits_32; inline;
  55412. begin
  55413. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55414. end;
  55415. procedure TDMAC0_DCH0CON.setCHPRI(thebits : TBits_2); inline;
  55416. begin
  55417. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  55418. end;
  55419. function TDMAC0_DCH0CON.getCHPRI : TBits_2; inline;
  55420. begin
  55421. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  55422. end;
  55423. procedure TDMAC0_DCH0CON.setCHEDET; inline;
  55424. begin
  55425. pTDefRegMap(@Self)^.&set := $00000004;
  55426. end;
  55427. procedure TDMAC0_DCH0CON.clearCHEDET; inline;
  55428. begin
  55429. pTDefRegMap(@Self)^.clr := $00000004;
  55430. end;
  55431. procedure TDMAC0_DCH0CON.setCHEDET(thebits : TBits_1); inline;
  55432. begin
  55433. if thebits = 0 then
  55434. pTDefRegMap(@Self)^.clr := $00000004
  55435. else
  55436. pTDefRegMap(@Self)^.&set := $00000004;
  55437. end;
  55438. function TDMAC0_DCH0CON.getCHEDET : TBits_1; inline;
  55439. begin
  55440. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  55441. end;
  55442. procedure TDMAC0_DCH0CON.setCHAEN; inline;
  55443. begin
  55444. pTDefRegMap(@Self)^.&set := $00000010;
  55445. end;
  55446. procedure TDMAC0_DCH0CON.clearCHAEN; inline;
  55447. begin
  55448. pTDefRegMap(@Self)^.clr := $00000010;
  55449. end;
  55450. procedure TDMAC0_DCH0CON.setCHAEN(thebits : TBits_1); inline;
  55451. begin
  55452. if thebits = 0 then
  55453. pTDefRegMap(@Self)^.clr := $00000010
  55454. else
  55455. pTDefRegMap(@Self)^.&set := $00000010;
  55456. end;
  55457. function TDMAC0_DCH0CON.getCHAEN : TBits_1; inline;
  55458. begin
  55459. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  55460. end;
  55461. procedure TDMAC0_DCH0CON.setCHCHN; inline;
  55462. begin
  55463. pTDefRegMap(@Self)^.&set := $00000020;
  55464. end;
  55465. procedure TDMAC0_DCH0CON.clearCHCHN; inline;
  55466. begin
  55467. pTDefRegMap(@Self)^.clr := $00000020;
  55468. end;
  55469. procedure TDMAC0_DCH0CON.setCHCHN(thebits : TBits_1); inline;
  55470. begin
  55471. if thebits = 0 then
  55472. pTDefRegMap(@Self)^.clr := $00000020
  55473. else
  55474. pTDefRegMap(@Self)^.&set := $00000020;
  55475. end;
  55476. function TDMAC0_DCH0CON.getCHCHN : TBits_1; inline;
  55477. begin
  55478. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  55479. end;
  55480. procedure TDMAC0_DCH0CON.setCHAED; inline;
  55481. begin
  55482. pTDefRegMap(@Self)^.&set := $00000040;
  55483. end;
  55484. procedure TDMAC0_DCH0CON.clearCHAED; inline;
  55485. begin
  55486. pTDefRegMap(@Self)^.clr := $00000040;
  55487. end;
  55488. procedure TDMAC0_DCH0CON.setCHAED(thebits : TBits_1); inline;
  55489. begin
  55490. if thebits = 0 then
  55491. pTDefRegMap(@Self)^.clr := $00000040
  55492. else
  55493. pTDefRegMap(@Self)^.&set := $00000040;
  55494. end;
  55495. function TDMAC0_DCH0CON.getCHAED : TBits_1; inline;
  55496. begin
  55497. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55498. end;
  55499. procedure TDMAC0_DCH0CON.setCHEN; inline;
  55500. begin
  55501. pTDefRegMap(@Self)^.&set := $00000080;
  55502. end;
  55503. procedure TDMAC0_DCH0CON.clearCHEN; inline;
  55504. begin
  55505. pTDefRegMap(@Self)^.clr := $00000080;
  55506. end;
  55507. procedure TDMAC0_DCH0CON.setCHEN(thebits : TBits_1); inline;
  55508. begin
  55509. if thebits = 0 then
  55510. pTDefRegMap(@Self)^.clr := $00000080
  55511. else
  55512. pTDefRegMap(@Self)^.&set := $00000080;
  55513. end;
  55514. function TDMAC0_DCH0CON.getCHEN : TBits_1; inline;
  55515. begin
  55516. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  55517. end;
  55518. procedure TDMAC0_DCH0CON.setCHCHNS; inline;
  55519. begin
  55520. pTDefRegMap(@Self)^.&set := $00000100;
  55521. end;
  55522. procedure TDMAC0_DCH0CON.clearCHCHNS; inline;
  55523. begin
  55524. pTDefRegMap(@Self)^.clr := $00000100;
  55525. end;
  55526. procedure TDMAC0_DCH0CON.setCHCHNS(thebits : TBits_1); inline;
  55527. begin
  55528. if thebits = 0 then
  55529. pTDefRegMap(@Self)^.clr := $00000100
  55530. else
  55531. pTDefRegMap(@Self)^.&set := $00000100;
  55532. end;
  55533. function TDMAC0_DCH0CON.getCHCHNS : TBits_1; inline;
  55534. begin
  55535. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  55536. end;
  55537. procedure TDMAC0_DCH0CON.setCHBUSY; inline;
  55538. begin
  55539. pTDefRegMap(@Self)^.&set := $00008000;
  55540. end;
  55541. procedure TDMAC0_DCH0CON.clearCHBUSY; inline;
  55542. begin
  55543. pTDefRegMap(@Self)^.clr := $00008000;
  55544. end;
  55545. procedure TDMAC0_DCH0CON.setCHBUSY(thebits : TBits_1); inline;
  55546. begin
  55547. if thebits = 0 then
  55548. pTDefRegMap(@Self)^.clr := $00008000
  55549. else
  55550. pTDefRegMap(@Self)^.&set := $00008000;
  55551. end;
  55552. function TDMAC0_DCH0CON.getCHBUSY : TBits_1; inline;
  55553. begin
  55554. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  55555. end;
  55556. procedure TDMAC0_DCH0CON.setw(thebits : TBits_32); inline;
  55557. begin
  55558. pTDefRegMap(@Self)^.val := thebits;
  55559. end;
  55560. function TDMAC0_DCH0CON.getw : TBits_32; inline;
  55561. begin
  55562. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55563. end;
  55564. procedure TDMAC0_DCH0ECON.setAIRQEN; inline;
  55565. begin
  55566. pTDefRegMap(@Self)^.&set := $00000008;
  55567. end;
  55568. procedure TDMAC0_DCH0ECON.clearAIRQEN; inline;
  55569. begin
  55570. pTDefRegMap(@Self)^.clr := $00000008;
  55571. end;
  55572. procedure TDMAC0_DCH0ECON.setAIRQEN(thebits : TBits_1); inline;
  55573. begin
  55574. if thebits = 0 then
  55575. pTDefRegMap(@Self)^.clr := $00000008
  55576. else
  55577. pTDefRegMap(@Self)^.&set := $00000008;
  55578. end;
  55579. function TDMAC0_DCH0ECON.getAIRQEN : TBits_1; inline;
  55580. begin
  55581. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  55582. end;
  55583. procedure TDMAC0_DCH0ECON.setSIRQEN; inline;
  55584. begin
  55585. pTDefRegMap(@Self)^.&set := $00000010;
  55586. end;
  55587. procedure TDMAC0_DCH0ECON.clearSIRQEN; inline;
  55588. begin
  55589. pTDefRegMap(@Self)^.clr := $00000010;
  55590. end;
  55591. procedure TDMAC0_DCH0ECON.setSIRQEN(thebits : TBits_1); inline;
  55592. begin
  55593. if thebits = 0 then
  55594. pTDefRegMap(@Self)^.clr := $00000010
  55595. else
  55596. pTDefRegMap(@Self)^.&set := $00000010;
  55597. end;
  55598. function TDMAC0_DCH0ECON.getSIRQEN : TBits_1; inline;
  55599. begin
  55600. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  55601. end;
  55602. procedure TDMAC0_DCH0ECON.setPATEN; inline;
  55603. begin
  55604. pTDefRegMap(@Self)^.&set := $00000020;
  55605. end;
  55606. procedure TDMAC0_DCH0ECON.clearPATEN; inline;
  55607. begin
  55608. pTDefRegMap(@Self)^.clr := $00000020;
  55609. end;
  55610. procedure TDMAC0_DCH0ECON.setPATEN(thebits : TBits_1); inline;
  55611. begin
  55612. if thebits = 0 then
  55613. pTDefRegMap(@Self)^.clr := $00000020
  55614. else
  55615. pTDefRegMap(@Self)^.&set := $00000020;
  55616. end;
  55617. function TDMAC0_DCH0ECON.getPATEN : TBits_1; inline;
  55618. begin
  55619. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  55620. end;
  55621. procedure TDMAC0_DCH0ECON.setCABORT; inline;
  55622. begin
  55623. pTDefRegMap(@Self)^.&set := $00000040;
  55624. end;
  55625. procedure TDMAC0_DCH0ECON.clearCABORT; inline;
  55626. begin
  55627. pTDefRegMap(@Self)^.clr := $00000040;
  55628. end;
  55629. procedure TDMAC0_DCH0ECON.setCABORT(thebits : TBits_1); inline;
  55630. begin
  55631. if thebits = 0 then
  55632. pTDefRegMap(@Self)^.clr := $00000040
  55633. else
  55634. pTDefRegMap(@Self)^.&set := $00000040;
  55635. end;
  55636. function TDMAC0_DCH0ECON.getCABORT : TBits_1; inline;
  55637. begin
  55638. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55639. end;
  55640. procedure TDMAC0_DCH0ECON.setCFORCE; inline;
  55641. begin
  55642. pTDefRegMap(@Self)^.&set := $00000080;
  55643. end;
  55644. procedure TDMAC0_DCH0ECON.clearCFORCE; inline;
  55645. begin
  55646. pTDefRegMap(@Self)^.clr := $00000080;
  55647. end;
  55648. procedure TDMAC0_DCH0ECON.setCFORCE(thebits : TBits_1); inline;
  55649. begin
  55650. if thebits = 0 then
  55651. pTDefRegMap(@Self)^.clr := $00000080
  55652. else
  55653. pTDefRegMap(@Self)^.&set := $00000080;
  55654. end;
  55655. function TDMAC0_DCH0ECON.getCFORCE : TBits_1; inline;
  55656. begin
  55657. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  55658. end;
  55659. procedure TDMAC0_DCH0ECON.setCHSIRQ(thebits : TBits_8); inline;
  55660. begin
  55661. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  55662. end;
  55663. function TDMAC0_DCH0ECON.getCHSIRQ : TBits_8; inline;
  55664. begin
  55665. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  55666. end;
  55667. procedure TDMAC0_DCH0ECON.setCHAIRQ(thebits : TBits_8); inline;
  55668. begin
  55669. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  55670. end;
  55671. function TDMAC0_DCH0ECON.getCHAIRQ : TBits_8; inline;
  55672. begin
  55673. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  55674. end;
  55675. procedure TDMAC0_DCH0ECON.setw(thebits : TBits_32); inline;
  55676. begin
  55677. pTDefRegMap(@Self)^.val := thebits;
  55678. end;
  55679. function TDMAC0_DCH0ECON.getw : TBits_32; inline;
  55680. begin
  55681. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55682. end;
  55683. procedure TDMAC0_DCH0INT.setCHERIF; inline;
  55684. begin
  55685. pTDefRegMap(@Self)^.&set := $00000001;
  55686. end;
  55687. procedure TDMAC0_DCH0INT.clearCHERIF; inline;
  55688. begin
  55689. pTDefRegMap(@Self)^.clr := $00000001;
  55690. end;
  55691. procedure TDMAC0_DCH0INT.setCHERIF(thebits : TBits_1); inline;
  55692. begin
  55693. if thebits = 0 then
  55694. pTDefRegMap(@Self)^.clr := $00000001
  55695. else
  55696. pTDefRegMap(@Self)^.&set := $00000001;
  55697. end;
  55698. function TDMAC0_DCH0INT.getCHERIF : TBits_1; inline;
  55699. begin
  55700. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  55701. end;
  55702. procedure TDMAC0_DCH0INT.setCHTAIF; inline;
  55703. begin
  55704. pTDefRegMap(@Self)^.&set := $00000002;
  55705. end;
  55706. procedure TDMAC0_DCH0INT.clearCHTAIF; inline;
  55707. begin
  55708. pTDefRegMap(@Self)^.clr := $00000002;
  55709. end;
  55710. procedure TDMAC0_DCH0INT.setCHTAIF(thebits : TBits_1); inline;
  55711. begin
  55712. if thebits = 0 then
  55713. pTDefRegMap(@Self)^.clr := $00000002
  55714. else
  55715. pTDefRegMap(@Self)^.&set := $00000002;
  55716. end;
  55717. function TDMAC0_DCH0INT.getCHTAIF : TBits_1; inline;
  55718. begin
  55719. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  55720. end;
  55721. procedure TDMAC0_DCH0INT.setCHCCIF; inline;
  55722. begin
  55723. pTDefRegMap(@Self)^.&set := $00000004;
  55724. end;
  55725. procedure TDMAC0_DCH0INT.clearCHCCIF; inline;
  55726. begin
  55727. pTDefRegMap(@Self)^.clr := $00000004;
  55728. end;
  55729. procedure TDMAC0_DCH0INT.setCHCCIF(thebits : TBits_1); inline;
  55730. begin
  55731. if thebits = 0 then
  55732. pTDefRegMap(@Self)^.clr := $00000004
  55733. else
  55734. pTDefRegMap(@Self)^.&set := $00000004;
  55735. end;
  55736. function TDMAC0_DCH0INT.getCHCCIF : TBits_1; inline;
  55737. begin
  55738. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  55739. end;
  55740. procedure TDMAC0_DCH0INT.setCHBCIF; inline;
  55741. begin
  55742. pTDefRegMap(@Self)^.&set := $00000008;
  55743. end;
  55744. procedure TDMAC0_DCH0INT.clearCHBCIF; inline;
  55745. begin
  55746. pTDefRegMap(@Self)^.clr := $00000008;
  55747. end;
  55748. procedure TDMAC0_DCH0INT.setCHBCIF(thebits : TBits_1); inline;
  55749. begin
  55750. if thebits = 0 then
  55751. pTDefRegMap(@Self)^.clr := $00000008
  55752. else
  55753. pTDefRegMap(@Self)^.&set := $00000008;
  55754. end;
  55755. function TDMAC0_DCH0INT.getCHBCIF : TBits_1; inline;
  55756. begin
  55757. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  55758. end;
  55759. procedure TDMAC0_DCH0INT.setCHDHIF; inline;
  55760. begin
  55761. pTDefRegMap(@Self)^.&set := $00000010;
  55762. end;
  55763. procedure TDMAC0_DCH0INT.clearCHDHIF; inline;
  55764. begin
  55765. pTDefRegMap(@Self)^.clr := $00000010;
  55766. end;
  55767. procedure TDMAC0_DCH0INT.setCHDHIF(thebits : TBits_1); inline;
  55768. begin
  55769. if thebits = 0 then
  55770. pTDefRegMap(@Self)^.clr := $00000010
  55771. else
  55772. pTDefRegMap(@Self)^.&set := $00000010;
  55773. end;
  55774. function TDMAC0_DCH0INT.getCHDHIF : TBits_1; inline;
  55775. begin
  55776. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  55777. end;
  55778. procedure TDMAC0_DCH0INT.setCHDDIF; inline;
  55779. begin
  55780. pTDefRegMap(@Self)^.&set := $00000020;
  55781. end;
  55782. procedure TDMAC0_DCH0INT.clearCHDDIF; inline;
  55783. begin
  55784. pTDefRegMap(@Self)^.clr := $00000020;
  55785. end;
  55786. procedure TDMAC0_DCH0INT.setCHDDIF(thebits : TBits_1); inline;
  55787. begin
  55788. if thebits = 0 then
  55789. pTDefRegMap(@Self)^.clr := $00000020
  55790. else
  55791. pTDefRegMap(@Self)^.&set := $00000020;
  55792. end;
  55793. function TDMAC0_DCH0INT.getCHDDIF : TBits_1; inline;
  55794. begin
  55795. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  55796. end;
  55797. procedure TDMAC0_DCH0INT.setCHSHIF; inline;
  55798. begin
  55799. pTDefRegMap(@Self)^.&set := $00000040;
  55800. end;
  55801. procedure TDMAC0_DCH0INT.clearCHSHIF; inline;
  55802. begin
  55803. pTDefRegMap(@Self)^.clr := $00000040;
  55804. end;
  55805. procedure TDMAC0_DCH0INT.setCHSHIF(thebits : TBits_1); inline;
  55806. begin
  55807. if thebits = 0 then
  55808. pTDefRegMap(@Self)^.clr := $00000040
  55809. else
  55810. pTDefRegMap(@Self)^.&set := $00000040;
  55811. end;
  55812. function TDMAC0_DCH0INT.getCHSHIF : TBits_1; inline;
  55813. begin
  55814. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55815. end;
  55816. procedure TDMAC0_DCH0INT.setCHSDIF; inline;
  55817. begin
  55818. pTDefRegMap(@Self)^.&set := $00000080;
  55819. end;
  55820. procedure TDMAC0_DCH0INT.clearCHSDIF; inline;
  55821. begin
  55822. pTDefRegMap(@Self)^.clr := $00000080;
  55823. end;
  55824. procedure TDMAC0_DCH0INT.setCHSDIF(thebits : TBits_1); inline;
  55825. begin
  55826. if thebits = 0 then
  55827. pTDefRegMap(@Self)^.clr := $00000080
  55828. else
  55829. pTDefRegMap(@Self)^.&set := $00000080;
  55830. end;
  55831. function TDMAC0_DCH0INT.getCHSDIF : TBits_1; inline;
  55832. begin
  55833. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  55834. end;
  55835. procedure TDMAC0_DCH0INT.setCHERIE; inline;
  55836. begin
  55837. pTDefRegMap(@Self)^.&set := $00010000;
  55838. end;
  55839. procedure TDMAC0_DCH0INT.clearCHERIE; inline;
  55840. begin
  55841. pTDefRegMap(@Self)^.clr := $00010000;
  55842. end;
  55843. procedure TDMAC0_DCH0INT.setCHERIE(thebits : TBits_1); inline;
  55844. begin
  55845. if thebits = 0 then
  55846. pTDefRegMap(@Self)^.clr := $00010000
  55847. else
  55848. pTDefRegMap(@Self)^.&set := $00010000;
  55849. end;
  55850. function TDMAC0_DCH0INT.getCHERIE : TBits_1; inline;
  55851. begin
  55852. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  55853. end;
  55854. procedure TDMAC0_DCH0INT.setCHTAIE; inline;
  55855. begin
  55856. pTDefRegMap(@Self)^.&set := $00020000;
  55857. end;
  55858. procedure TDMAC0_DCH0INT.clearCHTAIE; inline;
  55859. begin
  55860. pTDefRegMap(@Self)^.clr := $00020000;
  55861. end;
  55862. procedure TDMAC0_DCH0INT.setCHTAIE(thebits : TBits_1); inline;
  55863. begin
  55864. if thebits = 0 then
  55865. pTDefRegMap(@Self)^.clr := $00020000
  55866. else
  55867. pTDefRegMap(@Self)^.&set := $00020000;
  55868. end;
  55869. function TDMAC0_DCH0INT.getCHTAIE : TBits_1; inline;
  55870. begin
  55871. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  55872. end;
  55873. procedure TDMAC0_DCH0INT.setCHCCIE; inline;
  55874. begin
  55875. pTDefRegMap(@Self)^.&set := $00040000;
  55876. end;
  55877. procedure TDMAC0_DCH0INT.clearCHCCIE; inline;
  55878. begin
  55879. pTDefRegMap(@Self)^.clr := $00040000;
  55880. end;
  55881. procedure TDMAC0_DCH0INT.setCHCCIE(thebits : TBits_1); inline;
  55882. begin
  55883. if thebits = 0 then
  55884. pTDefRegMap(@Self)^.clr := $00040000
  55885. else
  55886. pTDefRegMap(@Self)^.&set := $00040000;
  55887. end;
  55888. function TDMAC0_DCH0INT.getCHCCIE : TBits_1; inline;
  55889. begin
  55890. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  55891. end;
  55892. procedure TDMAC0_DCH0INT.setCHBCIE; inline;
  55893. begin
  55894. pTDefRegMap(@Self)^.&set := $00080000;
  55895. end;
  55896. procedure TDMAC0_DCH0INT.clearCHBCIE; inline;
  55897. begin
  55898. pTDefRegMap(@Self)^.clr := $00080000;
  55899. end;
  55900. procedure TDMAC0_DCH0INT.setCHBCIE(thebits : TBits_1); inline;
  55901. begin
  55902. if thebits = 0 then
  55903. pTDefRegMap(@Self)^.clr := $00080000
  55904. else
  55905. pTDefRegMap(@Self)^.&set := $00080000;
  55906. end;
  55907. function TDMAC0_DCH0INT.getCHBCIE : TBits_1; inline;
  55908. begin
  55909. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  55910. end;
  55911. procedure TDMAC0_DCH0INT.setCHDHIE; inline;
  55912. begin
  55913. pTDefRegMap(@Self)^.&set := $00100000;
  55914. end;
  55915. procedure TDMAC0_DCH0INT.clearCHDHIE; inline;
  55916. begin
  55917. pTDefRegMap(@Self)^.clr := $00100000;
  55918. end;
  55919. procedure TDMAC0_DCH0INT.setCHDHIE(thebits : TBits_1); inline;
  55920. begin
  55921. if thebits = 0 then
  55922. pTDefRegMap(@Self)^.clr := $00100000
  55923. else
  55924. pTDefRegMap(@Self)^.&set := $00100000;
  55925. end;
  55926. function TDMAC0_DCH0INT.getCHDHIE : TBits_1; inline;
  55927. begin
  55928. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  55929. end;
  55930. procedure TDMAC0_DCH0INT.setCHDDIE; inline;
  55931. begin
  55932. pTDefRegMap(@Self)^.&set := $00200000;
  55933. end;
  55934. procedure TDMAC0_DCH0INT.clearCHDDIE; inline;
  55935. begin
  55936. pTDefRegMap(@Self)^.clr := $00200000;
  55937. end;
  55938. procedure TDMAC0_DCH0INT.setCHDDIE(thebits : TBits_1); inline;
  55939. begin
  55940. if thebits = 0 then
  55941. pTDefRegMap(@Self)^.clr := $00200000
  55942. else
  55943. pTDefRegMap(@Self)^.&set := $00200000;
  55944. end;
  55945. function TDMAC0_DCH0INT.getCHDDIE : TBits_1; inline;
  55946. begin
  55947. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  55948. end;
  55949. procedure TDMAC0_DCH0INT.setCHSHIE; inline;
  55950. begin
  55951. pTDefRegMap(@Self)^.&set := $00400000;
  55952. end;
  55953. procedure TDMAC0_DCH0INT.clearCHSHIE; inline;
  55954. begin
  55955. pTDefRegMap(@Self)^.clr := $00400000;
  55956. end;
  55957. procedure TDMAC0_DCH0INT.setCHSHIE(thebits : TBits_1); inline;
  55958. begin
  55959. if thebits = 0 then
  55960. pTDefRegMap(@Self)^.clr := $00400000
  55961. else
  55962. pTDefRegMap(@Self)^.&set := $00400000;
  55963. end;
  55964. function TDMAC0_DCH0INT.getCHSHIE : TBits_1; inline;
  55965. begin
  55966. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  55967. end;
  55968. procedure TDMAC0_DCH0INT.setCHSDIE; inline;
  55969. begin
  55970. pTDefRegMap(@Self)^.&set := $00800000;
  55971. end;
  55972. procedure TDMAC0_DCH0INT.clearCHSDIE; inline;
  55973. begin
  55974. pTDefRegMap(@Self)^.clr := $00800000;
  55975. end;
  55976. procedure TDMAC0_DCH0INT.setCHSDIE(thebits : TBits_1); inline;
  55977. begin
  55978. if thebits = 0 then
  55979. pTDefRegMap(@Self)^.clr := $00800000
  55980. else
  55981. pTDefRegMap(@Self)^.&set := $00800000;
  55982. end;
  55983. function TDMAC0_DCH0INT.getCHSDIE : TBits_1; inline;
  55984. begin
  55985. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  55986. end;
  55987. procedure TDMAC0_DCH0INT.setw(thebits : TBits_32); inline;
  55988. begin
  55989. pTDefRegMap(@Self)^.val := thebits;
  55990. end;
  55991. function TDMAC0_DCH0INT.getw : TBits_32; inline;
  55992. begin
  55993. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55994. end;
  55995. procedure TDMAC1_DCH1CON.setCHPRI(thebits : TBits_2); inline;
  55996. begin
  55997. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  55998. end;
  55999. function TDMAC1_DCH1CON.getCHPRI : TBits_2; inline;
  56000. begin
  56001. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  56002. end;
  56003. procedure TDMAC1_DCH1CON.setCHEDET; inline;
  56004. begin
  56005. pTDefRegMap(@Self)^.&set := $00000004;
  56006. end;
  56007. procedure TDMAC1_DCH1CON.clearCHEDET; inline;
  56008. begin
  56009. pTDefRegMap(@Self)^.clr := $00000004;
  56010. end;
  56011. procedure TDMAC1_DCH1CON.setCHEDET(thebits : TBits_1); inline;
  56012. begin
  56013. if thebits = 0 then
  56014. pTDefRegMap(@Self)^.clr := $00000004
  56015. else
  56016. pTDefRegMap(@Self)^.&set := $00000004;
  56017. end;
  56018. function TDMAC1_DCH1CON.getCHEDET : TBits_1; inline;
  56019. begin
  56020. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  56021. end;
  56022. procedure TDMAC1_DCH1CON.setCHAEN; inline;
  56023. begin
  56024. pTDefRegMap(@Self)^.&set := $00000010;
  56025. end;
  56026. procedure TDMAC1_DCH1CON.clearCHAEN; inline;
  56027. begin
  56028. pTDefRegMap(@Self)^.clr := $00000010;
  56029. end;
  56030. procedure TDMAC1_DCH1CON.setCHAEN(thebits : TBits_1); inline;
  56031. begin
  56032. if thebits = 0 then
  56033. pTDefRegMap(@Self)^.clr := $00000010
  56034. else
  56035. pTDefRegMap(@Self)^.&set := $00000010;
  56036. end;
  56037. function TDMAC1_DCH1CON.getCHAEN : TBits_1; inline;
  56038. begin
  56039. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  56040. end;
  56041. procedure TDMAC1_DCH1CON.setCHCHN; inline;
  56042. begin
  56043. pTDefRegMap(@Self)^.&set := $00000020;
  56044. end;
  56045. procedure TDMAC1_DCH1CON.clearCHCHN; inline;
  56046. begin
  56047. pTDefRegMap(@Self)^.clr := $00000020;
  56048. end;
  56049. procedure TDMAC1_DCH1CON.setCHCHN(thebits : TBits_1); inline;
  56050. begin
  56051. if thebits = 0 then
  56052. pTDefRegMap(@Self)^.clr := $00000020
  56053. else
  56054. pTDefRegMap(@Self)^.&set := $00000020;
  56055. end;
  56056. function TDMAC1_DCH1CON.getCHCHN : TBits_1; inline;
  56057. begin
  56058. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  56059. end;
  56060. procedure TDMAC1_DCH1CON.setCHAED; inline;
  56061. begin
  56062. pTDefRegMap(@Self)^.&set := $00000040;
  56063. end;
  56064. procedure TDMAC1_DCH1CON.clearCHAED; inline;
  56065. begin
  56066. pTDefRegMap(@Self)^.clr := $00000040;
  56067. end;
  56068. procedure TDMAC1_DCH1CON.setCHAED(thebits : TBits_1); inline;
  56069. begin
  56070. if thebits = 0 then
  56071. pTDefRegMap(@Self)^.clr := $00000040
  56072. else
  56073. pTDefRegMap(@Self)^.&set := $00000040;
  56074. end;
  56075. function TDMAC1_DCH1CON.getCHAED : TBits_1; inline;
  56076. begin
  56077. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  56078. end;
  56079. procedure TDMAC1_DCH1CON.setCHEN; inline;
  56080. begin
  56081. pTDefRegMap(@Self)^.&set := $00000080;
  56082. end;
  56083. procedure TDMAC1_DCH1CON.clearCHEN; inline;
  56084. begin
  56085. pTDefRegMap(@Self)^.clr := $00000080;
  56086. end;
  56087. procedure TDMAC1_DCH1CON.setCHEN(thebits : TBits_1); inline;
  56088. begin
  56089. if thebits = 0 then
  56090. pTDefRegMap(@Self)^.clr := $00000080
  56091. else
  56092. pTDefRegMap(@Self)^.&set := $00000080;
  56093. end;
  56094. function TDMAC1_DCH1CON.getCHEN : TBits_1; inline;
  56095. begin
  56096. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56097. end;
  56098. procedure TDMAC1_DCH1CON.setCHCHNS; inline;
  56099. begin
  56100. pTDefRegMap(@Self)^.&set := $00000100;
  56101. end;
  56102. procedure TDMAC1_DCH1CON.clearCHCHNS; inline;
  56103. begin
  56104. pTDefRegMap(@Self)^.clr := $00000100;
  56105. end;
  56106. procedure TDMAC1_DCH1CON.setCHCHNS(thebits : TBits_1); inline;
  56107. begin
  56108. if thebits = 0 then
  56109. pTDefRegMap(@Self)^.clr := $00000100
  56110. else
  56111. pTDefRegMap(@Self)^.&set := $00000100;
  56112. end;
  56113. function TDMAC1_DCH1CON.getCHCHNS : TBits_1; inline;
  56114. begin
  56115. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  56116. end;
  56117. procedure TDMAC1_DCH1CON.setCHBUSY; inline;
  56118. begin
  56119. pTDefRegMap(@Self)^.&set := $00008000;
  56120. end;
  56121. procedure TDMAC1_DCH1CON.clearCHBUSY; inline;
  56122. begin
  56123. pTDefRegMap(@Self)^.clr := $00008000;
  56124. end;
  56125. procedure TDMAC1_DCH1CON.setCHBUSY(thebits : TBits_1); inline;
  56126. begin
  56127. if thebits = 0 then
  56128. pTDefRegMap(@Self)^.clr := $00008000
  56129. else
  56130. pTDefRegMap(@Self)^.&set := $00008000;
  56131. end;
  56132. function TDMAC1_DCH1CON.getCHBUSY : TBits_1; inline;
  56133. begin
  56134. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  56135. end;
  56136. procedure TDMAC1_DCH1CON.setw(thebits : TBits_32); inline;
  56137. begin
  56138. pTDefRegMap(@Self)^.val := thebits;
  56139. end;
  56140. function TDMAC1_DCH1CON.getw : TBits_32; inline;
  56141. begin
  56142. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  56143. end;
  56144. procedure TDMAC1_DCH1ECON.setAIRQEN; inline;
  56145. begin
  56146. pTDefRegMap(@Self)^.&set := $00000008;
  56147. end;
  56148. procedure TDMAC1_DCH1ECON.clearAIRQEN; inline;
  56149. begin
  56150. pTDefRegMap(@Self)^.clr := $00000008;
  56151. end;
  56152. procedure TDMAC1_DCH1ECON.setAIRQEN(thebits : TBits_1); inline;
  56153. begin
  56154. if thebits = 0 then
  56155. pTDefRegMap(@Self)^.clr := $00000008
  56156. else
  56157. pTDefRegMap(@Self)^.&set := $00000008;
  56158. end;
  56159. function TDMAC1_DCH1ECON.getAIRQEN : TBits_1; inline;
  56160. begin
  56161. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  56162. end;
  56163. procedure TDMAC1_DCH1ECON.setSIRQEN; inline;
  56164. begin
  56165. pTDefRegMap(@Self)^.&set := $00000010;
  56166. end;
  56167. procedure TDMAC1_DCH1ECON.clearSIRQEN; inline;
  56168. begin
  56169. pTDefRegMap(@Self)^.clr := $00000010;
  56170. end;
  56171. procedure TDMAC1_DCH1ECON.setSIRQEN(thebits : TBits_1); inline;
  56172. begin
  56173. if thebits = 0 then
  56174. pTDefRegMap(@Self)^.clr := $00000010
  56175. else
  56176. pTDefRegMap(@Self)^.&set := $00000010;
  56177. end;
  56178. function TDMAC1_DCH1ECON.getSIRQEN : TBits_1; inline;
  56179. begin
  56180. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  56181. end;
  56182. procedure TDMAC1_DCH1ECON.setPATEN; inline;
  56183. begin
  56184. pTDefRegMap(@Self)^.&set := $00000020;
  56185. end;
  56186. procedure TDMAC1_DCH1ECON.clearPATEN; inline;
  56187. begin
  56188. pTDefRegMap(@Self)^.clr := $00000020;
  56189. end;
  56190. procedure TDMAC1_DCH1ECON.setPATEN(thebits : TBits_1); inline;
  56191. begin
  56192. if thebits = 0 then
  56193. pTDefRegMap(@Self)^.clr := $00000020
  56194. else
  56195. pTDefRegMap(@Self)^.&set := $00000020;
  56196. end;
  56197. function TDMAC1_DCH1ECON.getPATEN : TBits_1; inline;
  56198. begin
  56199. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  56200. end;
  56201. procedure TDMAC1_DCH1ECON.setCABORT; inline;
  56202. begin
  56203. pTDefRegMap(@Self)^.&set := $00000040;
  56204. end;
  56205. procedure TDMAC1_DCH1ECON.clearCABORT; inline;
  56206. begin
  56207. pTDefRegMap(@Self)^.clr := $00000040;
  56208. end;
  56209. procedure TDMAC1_DCH1ECON.setCABORT(thebits : TBits_1); inline;
  56210. begin
  56211. if thebits = 0 then
  56212. pTDefRegMap(@Self)^.clr := $00000040
  56213. else
  56214. pTDefRegMap(@Self)^.&set := $00000040;
  56215. end;
  56216. function TDMAC1_DCH1ECON.getCABORT : TBits_1; inline;
  56217. begin
  56218. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  56219. end;
  56220. procedure TDMAC1_DCH1ECON.setCFORCE; inline;
  56221. begin
  56222. pTDefRegMap(@Self)^.&set := $00000080;
  56223. end;
  56224. procedure TDMAC1_DCH1ECON.clearCFORCE; inline;
  56225. begin
  56226. pTDefRegMap(@Self)^.clr := $00000080;
  56227. end;
  56228. procedure TDMAC1_DCH1ECON.setCFORCE(thebits : TBits_1); inline;
  56229. begin
  56230. if thebits = 0 then
  56231. pTDefRegMap(@Self)^.clr := $00000080
  56232. else
  56233. pTDefRegMap(@Self)^.&set := $00000080;
  56234. end;
  56235. function TDMAC1_DCH1ECON.getCFORCE : TBits_1; inline;
  56236. begin
  56237. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56238. end;
  56239. procedure TDMAC1_DCH1ECON.setCHSIRQ(thebits : TBits_8); inline;
  56240. begin
  56241. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  56242. end;
  56243. function TDMAC1_DCH1ECON.getCHSIRQ : TBits_8; inline;
  56244. begin
  56245. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  56246. end;
  56247. procedure TDMAC1_DCH1ECON.setCHAIRQ(thebits : TBits_8); inline;
  56248. begin
  56249. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  56250. end;
  56251. function TDMAC1_DCH1ECON.getCHAIRQ : TBits_8; inline;
  56252. begin
  56253. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  56254. end;
  56255. procedure TDMAC1_DCH1ECON.setw(thebits : TBits_32); inline;
  56256. begin
  56257. pTDefRegMap(@Self)^.val := thebits;
  56258. end;
  56259. function TDMAC1_DCH1ECON.getw : TBits_32; inline;
  56260. begin
  56261. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  56262. end;
  56263. procedure TDMAC1_DCH1INT.setCHERIF; inline;
  56264. begin
  56265. pTDefRegMap(@Self)^.&set := $00000001;
  56266. end;
  56267. procedure TDMAC1_DCH1INT.clearCHERIF; inline;
  56268. begin
  56269. pTDefRegMap(@Self)^.clr := $00000001;
  56270. end;
  56271. procedure TDMAC1_DCH1INT.setCHERIF(thebits : TBits_1); inline;
  56272. begin
  56273. if thebits = 0 then
  56274. pTDefRegMap(@Self)^.clr := $00000001
  56275. else
  56276. pTDefRegMap(@Self)^.&set := $00000001;
  56277. end;
  56278. function TDMAC1_DCH1INT.getCHERIF : TBits_1; inline;
  56279. begin
  56280. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  56281. end;
  56282. procedure TDMAC1_DCH1INT.setCHTAIF; inline;
  56283. begin
  56284. pTDefRegMap(@Self)^.&set := $00000002;
  56285. end;
  56286. procedure TDMAC1_DCH1INT.clearCHTAIF; inline;
  56287. begin
  56288. pTDefRegMap(@Self)^.clr := $00000002;
  56289. end;
  56290. procedure TDMAC1_DCH1INT.setCHTAIF(thebits : TBits_1); inline;
  56291. begin
  56292. if thebits = 0 then
  56293. pTDefRegMap(@Self)^.clr := $00000002
  56294. else
  56295. pTDefRegMap(@Self)^.&set := $00000002;
  56296. end;
  56297. function TDMAC1_DCH1INT.getCHTAIF : TBits_1; inline;
  56298. begin
  56299. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  56300. end;
  56301. procedure TDMAC1_DCH1INT.setCHCCIF; inline;
  56302. begin
  56303. pTDefRegMap(@Self)^.&set := $00000004;
  56304. end;
  56305. procedure TDMAC1_DCH1INT.clearCHCCIF; inline;
  56306. begin
  56307. pTDefRegMap(@Self)^.clr := $00000004;
  56308. end;
  56309. procedure TDMAC1_DCH1INT.setCHCCIF(thebits : TBits_1); inline;
  56310. begin
  56311. if thebits = 0 then
  56312. pTDefRegMap(@Self)^.clr := $00000004
  56313. else
  56314. pTDefRegMap(@Self)^.&set := $00000004;
  56315. end;
  56316. function TDMAC1_DCH1INT.getCHCCIF : TBits_1; inline;
  56317. begin
  56318. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  56319. end;
  56320. procedure TDMAC1_DCH1INT.setCHBCIF; inline;
  56321. begin
  56322. pTDefRegMap(@Self)^.&set := $00000008;
  56323. end;
  56324. procedure TDMAC1_DCH1INT.clearCHBCIF; inline;
  56325. begin
  56326. pTDefRegMap(@Self)^.clr := $00000008;
  56327. end;
  56328. procedure TDMAC1_DCH1INT.setCHBCIF(thebits : TBits_1); inline;
  56329. begin
  56330. if thebits = 0 then
  56331. pTDefRegMap(@Self)^.clr := $00000008
  56332. else
  56333. pTDefRegMap(@Self)^.&set := $00000008;
  56334. end;
  56335. function TDMAC1_DCH1INT.getCHBCIF : TBits_1; inline;
  56336. begin
  56337. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  56338. end;
  56339. procedure TDMAC1_DCH1INT.setCHDHIF; inline;
  56340. begin
  56341. pTDefRegMap(@Self)^.&set := $00000010;
  56342. end;
  56343. procedure TDMAC1_DCH1INT.clearCHDHIF; inline;
  56344. begin
  56345. pTDefRegMap(@Self)^.clr := $00000010;
  56346. end;
  56347. procedure TDMAC1_DCH1INT.setCHDHIF(thebits : TBits_1); inline;
  56348. begin
  56349. if thebits = 0 then
  56350. pTDefRegMap(@Self)^.clr := $00000010
  56351. else
  56352. pTDefRegMap(@Self)^.&set := $00000010;
  56353. end;
  56354. function TDMAC1_DCH1INT.getCHDHIF : TBits_1; inline;
  56355. begin
  56356. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  56357. end;
  56358. procedure TDMAC1_DCH1INT.setCHDDIF; inline;
  56359. begin
  56360. pTDefRegMap(@Self)^.&set := $00000020;
  56361. end;
  56362. procedure TDMAC1_DCH1INT.clearCHDDIF; inline;
  56363. begin
  56364. pTDefRegMap(@Self)^.clr := $00000020;
  56365. end;
  56366. procedure TDMAC1_DCH1INT.setCHDDIF(thebits : TBits_1); inline;
  56367. begin
  56368. if thebits = 0 then
  56369. pTDefRegMap(@Self)^.clr := $00000020
  56370. else
  56371. pTDefRegMap(@Self)^.&set := $00000020;
  56372. end;
  56373. function TDMAC1_DCH1INT.getCHDDIF : TBits_1; inline;
  56374. begin
  56375. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  56376. end;
  56377. procedure TDMAC1_DCH1INT.setCHSHIF; inline;
  56378. begin
  56379. pTDefRegMap(@Self)^.&set := $00000040;
  56380. end;
  56381. procedure TDMAC1_DCH1INT.clearCHSHIF; inline;
  56382. begin
  56383. pTDefRegMap(@Self)^.clr := $00000040;
  56384. end;
  56385. procedure TDMAC1_DCH1INT.setCHSHIF(thebits : TBits_1); inline;
  56386. begin
  56387. if thebits = 0 then
  56388. pTDefRegMap(@Self)^.clr := $00000040
  56389. else
  56390. pTDefRegMap(@Self)^.&set := $00000040;
  56391. end;
  56392. function TDMAC1_DCH1INT.getCHSHIF : TBits_1; inline;
  56393. begin
  56394. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  56395. end;
  56396. procedure TDMAC1_DCH1INT.setCHSDIF; inline;
  56397. begin
  56398. pTDefRegMap(@Self)^.&set := $00000080;
  56399. end;
  56400. procedure TDMAC1_DCH1INT.clearCHSDIF; inline;
  56401. begin
  56402. pTDefRegMap(@Self)^.clr := $00000080;
  56403. end;
  56404. procedure TDMAC1_DCH1INT.setCHSDIF(thebits : TBits_1); inline;
  56405. begin
  56406. if thebits = 0 then
  56407. pTDefRegMap(@Self)^.clr := $00000080
  56408. else
  56409. pTDefRegMap(@Self)^.&set := $00000080;
  56410. end;
  56411. function TDMAC1_DCH1INT.getCHSDIF : TBits_1; inline;
  56412. begin
  56413. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56414. end;
  56415. procedure TDMAC1_DCH1INT.setCHERIE; inline;
  56416. begin
  56417. pTDefRegMap(@Self)^.&set := $00010000;
  56418. end;
  56419. procedure TDMAC1_DCH1INT.clearCHERIE; inline;
  56420. begin
  56421. pTDefRegMap(@Self)^.clr := $00010000;
  56422. end;
  56423. procedure TDMAC1_DCH1INT.setCHERIE(thebits : TBits_1); inline;
  56424. begin
  56425. if thebits = 0 then
  56426. pTDefRegMap(@Self)^.clr := $00010000
  56427. else
  56428. pTDefRegMap(@Self)^.&set := $00010000;
  56429. end;
  56430. function TDMAC1_DCH1INT.getCHERIE : TBits_1; inline;
  56431. begin
  56432. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  56433. end;
  56434. procedure TDMAC1_DCH1INT.setCHTAIE; inline;
  56435. begin
  56436. pTDefRegMap(@Self)^.&set := $00020000;
  56437. end;
  56438. procedure TDMAC1_DCH1INT.clearCHTAIE; inline;
  56439. begin
  56440. pTDefRegMap(@Self)^.clr := $00020000;
  56441. end;
  56442. procedure TDMAC1_DCH1INT.setCHTAIE(thebits : TBits_1); inline;
  56443. begin
  56444. if thebits = 0 then
  56445. pTDefRegMap(@Self)^.clr := $00020000
  56446. else
  56447. pTDefRegMap(@Self)^.&set := $00020000;
  56448. end;
  56449. function TDMAC1_DCH1INT.getCHTAIE : TBits_1; inline;
  56450. begin
  56451. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  56452. end;
  56453. procedure TDMAC1_DCH1INT.setCHCCIE; inline;
  56454. begin
  56455. pTDefRegMap(@Self)^.&set := $00040000;
  56456. end;
  56457. procedure TDMAC1_DCH1INT.clearCHCCIE; inline;
  56458. begin
  56459. pTDefRegMap(@Self)^.clr := $00040000;
  56460. end;
  56461. procedure TDMAC1_DCH1INT.setCHCCIE(thebits : TBits_1); inline;
  56462. begin
  56463. if thebits = 0 then
  56464. pTDefRegMap(@Self)^.clr := $00040000
  56465. else
  56466. pTDefRegMap(@Self)^.&set := $00040000;
  56467. end;
  56468. function TDMAC1_DCH1INT.getCHCCIE : TBits_1; inline;
  56469. begin
  56470. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  56471. end;
  56472. procedure TDMAC1_DCH1INT.setCHBCIE; inline;
  56473. begin
  56474. pTDefRegMap(@Self)^.&set := $00080000;
  56475. end;
  56476. procedure TDMAC1_DCH1INT.clearCHBCIE; inline;
  56477. begin
  56478. pTDefRegMap(@Self)^.clr := $00080000;
  56479. end;
  56480. procedure TDMAC1_DCH1INT.setCHBCIE(thebits : TBits_1); inline;
  56481. begin
  56482. if thebits = 0 then
  56483. pTDefRegMap(@Self)^.clr := $00080000
  56484. else
  56485. pTDefRegMap(@Self)^.&set := $00080000;
  56486. end;
  56487. function TDMAC1_DCH1INT.getCHBCIE : TBits_1; inline;
  56488. begin
  56489. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  56490. end;
  56491. procedure TDMAC1_DCH1INT.setCHDHIE; inline;
  56492. begin
  56493. pTDefRegMap(@Self)^.&set := $00100000;
  56494. end;
  56495. procedure TDMAC1_DCH1INT.clearCHDHIE; inline;
  56496. begin
  56497. pTDefRegMap(@Self)^.clr := $00100000;
  56498. end;
  56499. procedure TDMAC1_DCH1INT.setCHDHIE(thebits : TBits_1); inline;
  56500. begin
  56501. if thebits = 0 then
  56502. pTDefRegMap(@Self)^.clr := $00100000
  56503. else
  56504. pTDefRegMap(@Self)^.&set := $00100000;
  56505. end;
  56506. function TDMAC1_DCH1INT.getCHDHIE : TBits_1; inline;
  56507. begin
  56508. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  56509. end;
  56510. procedure TDMAC1_DCH1INT.setCHDDIE; inline;
  56511. begin
  56512. pTDefRegMap(@Self)^.&set := $00200000;
  56513. end;
  56514. procedure TDMAC1_DCH1INT.clearCHDDIE; inline;
  56515. begin
  56516. pTDefRegMap(@Self)^.clr := $00200000;
  56517. end;
  56518. procedure TDMAC1_DCH1INT.setCHDDIE(thebits : TBits_1); inline;
  56519. begin
  56520. if thebits = 0 then
  56521. pTDefRegMap(@Self)^.clr := $00200000
  56522. else
  56523. pTDefRegMap(@Self)^.&set := $00200000;
  56524. end;
  56525. function TDMAC1_DCH1INT.getCHDDIE : TBits_1; inline;
  56526. begin
  56527. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  56528. end;
  56529. procedure TDMAC1_DCH1INT.setCHSHIE; inline;
  56530. begin
  56531. pTDefRegMap(@Self)^.&set := $00400000;
  56532. end;
  56533. procedure TDMAC1_DCH1INT.clearCHSHIE; inline;
  56534. begin
  56535. pTDefRegMap(@Self)^.clr := $00400000;
  56536. end;
  56537. procedure TDMAC1_DCH1INT.setCHSHIE(thebits : TBits_1); inline;
  56538. begin
  56539. if thebits = 0 then
  56540. pTDefRegMap(@Self)^.clr := $00400000
  56541. else
  56542. pTDefRegMap(@Self)^.&set := $00400000;
  56543. end;
  56544. function TDMAC1_DCH1INT.getCHSHIE : TBits_1; inline;
  56545. begin
  56546. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  56547. end;
  56548. procedure TDMAC1_DCH1INT.setCHSDIE; inline;
  56549. begin
  56550. pTDefRegMap(@Self)^.&set := $00800000;
  56551. end;
  56552. procedure TDMAC1_DCH1INT.clearCHSDIE; inline;
  56553. begin
  56554. pTDefRegMap(@Self)^.clr := $00800000;
  56555. end;
  56556. procedure TDMAC1_DCH1INT.setCHSDIE(thebits : TBits_1); inline;
  56557. begin
  56558. if thebits = 0 then
  56559. pTDefRegMap(@Self)^.clr := $00800000
  56560. else
  56561. pTDefRegMap(@Self)^.&set := $00800000;
  56562. end;
  56563. function TDMAC1_DCH1INT.getCHSDIE : TBits_1; inline;
  56564. begin
  56565. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  56566. end;
  56567. procedure TDMAC1_DCH1INT.setw(thebits : TBits_32); inline;
  56568. begin
  56569. pTDefRegMap(@Self)^.val := thebits;
  56570. end;
  56571. function TDMAC1_DCH1INT.getw : TBits_32; inline;
  56572. begin
  56573. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  56574. end;
  56575. procedure TDMAC2_DCH2CON.setCHPRI(thebits : TBits_2); inline;
  56576. begin
  56577. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  56578. end;
  56579. function TDMAC2_DCH2CON.getCHPRI : TBits_2; inline;
  56580. begin
  56581. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  56582. end;
  56583. procedure TDMAC2_DCH2CON.setCHEDET; inline;
  56584. begin
  56585. pTDefRegMap(@Self)^.&set := $00000004;
  56586. end;
  56587. procedure TDMAC2_DCH2CON.clearCHEDET; inline;
  56588. begin
  56589. pTDefRegMap(@Self)^.clr := $00000004;
  56590. end;
  56591. procedure TDMAC2_DCH2CON.setCHEDET(thebits : TBits_1); inline;
  56592. begin
  56593. if thebits = 0 then
  56594. pTDefRegMap(@Self)^.clr := $00000004
  56595. else
  56596. pTDefRegMap(@Self)^.&set := $00000004;
  56597. end;
  56598. function TDMAC2_DCH2CON.getCHEDET : TBits_1; inline;
  56599. begin
  56600. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  56601. end;
  56602. procedure TDMAC2_DCH2CON.setCHAEN; inline;
  56603. begin
  56604. pTDefRegMap(@Self)^.&set := $00000010;
  56605. end;
  56606. procedure TDMAC2_DCH2CON.clearCHAEN; inline;
  56607. begin
  56608. pTDefRegMap(@Self)^.clr := $00000010;
  56609. end;
  56610. procedure TDMAC2_DCH2CON.setCHAEN(thebits : TBits_1); inline;
  56611. begin
  56612. if thebits = 0 then
  56613. pTDefRegMap(@Self)^.clr := $00000010
  56614. else
  56615. pTDefRegMap(@Self)^.&set := $00000010;
  56616. end;
  56617. function TDMAC2_DCH2CON.getCHAEN : TBits_1; inline;
  56618. begin
  56619. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  56620. end;
  56621. procedure TDMAC2_DCH2CON.setCHCHN; inline;
  56622. begin
  56623. pTDefRegMap(@Self)^.&set := $00000020;
  56624. end;
  56625. procedure TDMAC2_DCH2CON.clearCHCHN; inline;
  56626. begin
  56627. pTDefRegMap(@Self)^.clr := $00000020;
  56628. end;
  56629. procedure TDMAC2_DCH2CON.setCHCHN(thebits : TBits_1); inline;
  56630. begin
  56631. if thebits = 0 then
  56632. pTDefRegMap(@Self)^.clr := $00000020
  56633. else
  56634. pTDefRegMap(@Self)^.&set := $00000020;
  56635. end;
  56636. function TDMAC2_DCH2CON.getCHCHN : TBits_1; inline;
  56637. begin
  56638. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  56639. end;
  56640. procedure TDMAC2_DCH2CON.setCHAED; inline;
  56641. begin
  56642. pTDefRegMap(@Self)^.&set := $00000040;
  56643. end;
  56644. procedure TDMAC2_DCH2CON.clearCHAED; inline;
  56645. begin
  56646. pTDefRegMap(@Self)^.clr := $00000040;
  56647. end;
  56648. procedure TDMAC2_DCH2CON.setCHAED(thebits : TBits_1); inline;
  56649. begin
  56650. if thebits = 0 then
  56651. pTDefRegMap(@Self)^.clr := $00000040
  56652. else
  56653. pTDefRegMap(@Self)^.&set := $00000040;
  56654. end;
  56655. function TDMAC2_DCH2CON.getCHAED : TBits_1; inline;
  56656. begin
  56657. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  56658. end;
  56659. procedure TDMAC2_DCH2CON.setCHEN; inline;
  56660. begin
  56661. pTDefRegMap(@Self)^.&set := $00000080;
  56662. end;
  56663. procedure TDMAC2_DCH2CON.clearCHEN; inline;
  56664. begin
  56665. pTDefRegMap(@Self)^.clr := $00000080;
  56666. end;
  56667. procedure TDMAC2_DCH2CON.setCHEN(thebits : TBits_1); inline;
  56668. begin
  56669. if thebits = 0 then
  56670. pTDefRegMap(@Self)^.clr := $00000080
  56671. else
  56672. pTDefRegMap(@Self)^.&set := $00000080;
  56673. end;
  56674. function TDMAC2_DCH2CON.getCHEN : TBits_1; inline;
  56675. begin
  56676. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56677. end;
  56678. procedure TDMAC2_DCH2CON.setCHCHNS; inline;
  56679. begin
  56680. pTDefRegMap(@Self)^.&set := $00000100;
  56681. end;
  56682. procedure TDMAC2_DCH2CON.clearCHCHNS; inline;
  56683. begin
  56684. pTDefRegMap(@Self)^.clr := $00000100;
  56685. end;
  56686. procedure TDMAC2_DCH2CON.setCHCHNS(thebits : TBits_1); inline;
  56687. begin
  56688. if thebits = 0 then
  56689. pTDefRegMap(@Self)^.clr := $00000100
  56690. else
  56691. pTDefRegMap(@Self)^.&set := $00000100;
  56692. end;
  56693. function TDMAC2_DCH2CON.getCHCHNS : TBits_1; inline;
  56694. begin
  56695. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  56696. end;
  56697. procedure TDMAC2_DCH2CON.setCHBUSY; inline;
  56698. begin
  56699. pTDefRegMap(@Self)^.&set := $00008000;
  56700. end;
  56701. procedure TDMAC2_DCH2CON.clearCHBUSY; inline;
  56702. begin
  56703. pTDefRegMap(@Self)^.clr := $00008000;
  56704. end;
  56705. procedure TDMAC2_DCH2CON.setCHBUSY(thebits : TBits_1); inline;
  56706. begin
  56707. if thebits = 0 then
  56708. pTDefRegMap(@Self)^.clr := $00008000
  56709. else
  56710. pTDefRegMap(@Self)^.&set := $00008000;
  56711. end;
  56712. function TDMAC2_DCH2CON.getCHBUSY : TBits_1; inline;
  56713. begin
  56714. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  56715. end;
  56716. procedure TDMAC2_DCH2CON.setw(thebits : TBits_32); inline;
  56717. begin
  56718. pTDefRegMap(@Self)^.val := thebits;
  56719. end;
  56720. function TDMAC2_DCH2CON.getw : TBits_32; inline;
  56721. begin
  56722. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  56723. end;
  56724. procedure TDMAC2_DCH2ECON.setAIRQEN; inline;
  56725. begin
  56726. pTDefRegMap(@Self)^.&set := $00000008;
  56727. end;
  56728. procedure TDMAC2_DCH2ECON.clearAIRQEN; inline;
  56729. begin
  56730. pTDefRegMap(@Self)^.clr := $00000008;
  56731. end;
  56732. procedure TDMAC2_DCH2ECON.setAIRQEN(thebits : TBits_1); inline;
  56733. begin
  56734. if thebits = 0 then
  56735. pTDefRegMap(@Self)^.clr := $00000008
  56736. else
  56737. pTDefRegMap(@Self)^.&set := $00000008;
  56738. end;
  56739. function TDMAC2_DCH2ECON.getAIRQEN : TBits_1; inline;
  56740. begin
  56741. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  56742. end;
  56743. procedure TDMAC2_DCH2ECON.setSIRQEN; inline;
  56744. begin
  56745. pTDefRegMap(@Self)^.&set := $00000010;
  56746. end;
  56747. procedure TDMAC2_DCH2ECON.clearSIRQEN; inline;
  56748. begin
  56749. pTDefRegMap(@Self)^.clr := $00000010;
  56750. end;
  56751. procedure TDMAC2_DCH2ECON.setSIRQEN(thebits : TBits_1); inline;
  56752. begin
  56753. if thebits = 0 then
  56754. pTDefRegMap(@Self)^.clr := $00000010
  56755. else
  56756. pTDefRegMap(@Self)^.&set := $00000010;
  56757. end;
  56758. function TDMAC2_DCH2ECON.getSIRQEN : TBits_1; inline;
  56759. begin
  56760. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  56761. end;
  56762. procedure TDMAC2_DCH2ECON.setPATEN; inline;
  56763. begin
  56764. pTDefRegMap(@Self)^.&set := $00000020;
  56765. end;
  56766. procedure TDMAC2_DCH2ECON.clearPATEN; inline;
  56767. begin
  56768. pTDefRegMap(@Self)^.clr := $00000020;
  56769. end;
  56770. procedure TDMAC2_DCH2ECON.setPATEN(thebits : TBits_1); inline;
  56771. begin
  56772. if thebits = 0 then
  56773. pTDefRegMap(@Self)^.clr := $00000020
  56774. else
  56775. pTDefRegMap(@Self)^.&set := $00000020;
  56776. end;
  56777. function TDMAC2_DCH2ECON.getPATEN : TBits_1; inline;
  56778. begin
  56779. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  56780. end;
  56781. procedure TDMAC2_DCH2ECON.setCABORT; inline;
  56782. begin
  56783. pTDefRegMap(@Self)^.&set := $00000040;
  56784. end;
  56785. procedure TDMAC2_DCH2ECON.clearCABORT; inline;
  56786. begin
  56787. pTDefRegMap(@Self)^.clr := $00000040;
  56788. end;
  56789. procedure TDMAC2_DCH2ECON.setCABORT(thebits : TBits_1); inline;
  56790. begin
  56791. if thebits = 0 then
  56792. pTDefRegMap(@Self)^.clr := $00000040
  56793. else
  56794. pTDefRegMap(@Self)^.&set := $00000040;
  56795. end;
  56796. function TDMAC2_DCH2ECON.getCABORT : TBits_1; inline;
  56797. begin
  56798. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  56799. end;
  56800. procedure TDMAC2_DCH2ECON.setCFORCE; inline;
  56801. begin
  56802. pTDefRegMap(@Self)^.&set := $00000080;
  56803. end;
  56804. procedure TDMAC2_DCH2ECON.clearCFORCE; inline;
  56805. begin
  56806. pTDefRegMap(@Self)^.clr := $00000080;
  56807. end;
  56808. procedure TDMAC2_DCH2ECON.setCFORCE(thebits : TBits_1); inline;
  56809. begin
  56810. if thebits = 0 then
  56811. pTDefRegMap(@Self)^.clr := $00000080
  56812. else
  56813. pTDefRegMap(@Self)^.&set := $00000080;
  56814. end;
  56815. function TDMAC2_DCH2ECON.getCFORCE : TBits_1; inline;
  56816. begin
  56817. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56818. end;
  56819. procedure TDMAC2_DCH2ECON.setCHSIRQ(thebits : TBits_8); inline;
  56820. begin
  56821. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  56822. end;
  56823. function TDMAC2_DCH2ECON.getCHSIRQ : TBits_8; inline;
  56824. begin
  56825. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  56826. end;
  56827. procedure TDMAC2_DCH2ECON.setCHAIRQ(thebits : TBits_8); inline;
  56828. begin
  56829. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  56830. end;
  56831. function TDMAC2_DCH2ECON.getCHAIRQ : TBits_8; inline;
  56832. begin
  56833. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  56834. end;
  56835. procedure TDMAC2_DCH2ECON.setw(thebits : TBits_32); inline;
  56836. begin
  56837. pTDefRegMap(@Self)^.val := thebits;
  56838. end;
  56839. function TDMAC2_DCH2ECON.getw : TBits_32; inline;
  56840. begin
  56841. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  56842. end;
  56843. procedure TDMAC2_DCH2INT.setCHERIF; inline;
  56844. begin
  56845. pTDefRegMap(@Self)^.&set := $00000001;
  56846. end;
  56847. procedure TDMAC2_DCH2INT.clearCHERIF; inline;
  56848. begin
  56849. pTDefRegMap(@Self)^.clr := $00000001;
  56850. end;
  56851. procedure TDMAC2_DCH2INT.setCHERIF(thebits : TBits_1); inline;
  56852. begin
  56853. if thebits = 0 then
  56854. pTDefRegMap(@Self)^.clr := $00000001
  56855. else
  56856. pTDefRegMap(@Self)^.&set := $00000001;
  56857. end;
  56858. function TDMAC2_DCH2INT.getCHERIF : TBits_1; inline;
  56859. begin
  56860. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  56861. end;
  56862. procedure TDMAC2_DCH2INT.setCHTAIF; inline;
  56863. begin
  56864. pTDefRegMap(@Self)^.&set := $00000002;
  56865. end;
  56866. procedure TDMAC2_DCH2INT.clearCHTAIF; inline;
  56867. begin
  56868. pTDefRegMap(@Self)^.clr := $00000002;
  56869. end;
  56870. procedure TDMAC2_DCH2INT.setCHTAIF(thebits : TBits_1); inline;
  56871. begin
  56872. if thebits = 0 then
  56873. pTDefRegMap(@Self)^.clr := $00000002
  56874. else
  56875. pTDefRegMap(@Self)^.&set := $00000002;
  56876. end;
  56877. function TDMAC2_DCH2INT.getCHTAIF : TBits_1; inline;
  56878. begin
  56879. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  56880. end;
  56881. procedure TDMAC2_DCH2INT.setCHCCIF; inline;
  56882. begin
  56883. pTDefRegMap(@Self)^.&set := $00000004;
  56884. end;
  56885. procedure TDMAC2_DCH2INT.clearCHCCIF; inline;
  56886. begin
  56887. pTDefRegMap(@Self)^.clr := $00000004;
  56888. end;
  56889. procedure TDMAC2_DCH2INT.setCHCCIF(thebits : TBits_1); inline;
  56890. begin
  56891. if thebits = 0 then
  56892. pTDefRegMap(@Self)^.clr := $00000004
  56893. else
  56894. pTDefRegMap(@Self)^.&set := $00000004;
  56895. end;
  56896. function TDMAC2_DCH2INT.getCHCCIF : TBits_1; inline;
  56897. begin
  56898. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  56899. end;
  56900. procedure TDMAC2_DCH2INT.setCHBCIF; inline;
  56901. begin
  56902. pTDefRegMap(@Self)^.&set := $00000008;
  56903. end;
  56904. procedure TDMAC2_DCH2INT.clearCHBCIF; inline;
  56905. begin
  56906. pTDefRegMap(@Self)^.clr := $00000008;
  56907. end;
  56908. procedure TDMAC2_DCH2INT.setCHBCIF(thebits : TBits_1); inline;
  56909. begin
  56910. if thebits = 0 then
  56911. pTDefRegMap(@Self)^.clr := $00000008
  56912. else
  56913. pTDefRegMap(@Self)^.&set := $00000008;
  56914. end;
  56915. function TDMAC2_DCH2INT.getCHBCIF : TBits_1; inline;
  56916. begin
  56917. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  56918. end;
  56919. procedure TDMAC2_DCH2INT.setCHDHIF; inline;
  56920. begin
  56921. pTDefRegMap(@Self)^.&set := $00000010;
  56922. end;
  56923. procedure TDMAC2_DCH2INT.clearCHDHIF; inline;
  56924. begin
  56925. pTDefRegMap(@Self)^.clr := $00000010;
  56926. end;
  56927. procedure TDMAC2_DCH2INT.setCHDHIF(thebits : TBits_1); inline;
  56928. begin
  56929. if thebits = 0 then
  56930. pTDefRegMap(@Self)^.clr := $00000010
  56931. else
  56932. pTDefRegMap(@Self)^.&set := $00000010;
  56933. end;
  56934. function TDMAC2_DCH2INT.getCHDHIF : TBits_1; inline;
  56935. begin
  56936. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  56937. end;
  56938. procedure TDMAC2_DCH2INT.setCHDDIF; inline;
  56939. begin
  56940. pTDefRegMap(@Self)^.&set := $00000020;
  56941. end;
  56942. procedure TDMAC2_DCH2INT.clearCHDDIF; inline;
  56943. begin
  56944. pTDefRegMap(@Self)^.clr := $00000020;
  56945. end;
  56946. procedure TDMAC2_DCH2INT.setCHDDIF(thebits : TBits_1); inline;
  56947. begin
  56948. if thebits = 0 then
  56949. pTDefRegMap(@Self)^.clr := $00000020
  56950. else
  56951. pTDefRegMap(@Self)^.&set := $00000020;
  56952. end;
  56953. function TDMAC2_DCH2INT.getCHDDIF : TBits_1; inline;
  56954. begin
  56955. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  56956. end;
  56957. procedure TDMAC2_DCH2INT.setCHSHIF; inline;
  56958. begin
  56959. pTDefRegMap(@Self)^.&set := $00000040;
  56960. end;
  56961. procedure TDMAC2_DCH2INT.clearCHSHIF; inline;
  56962. begin
  56963. pTDefRegMap(@Self)^.clr := $00000040;
  56964. end;
  56965. procedure TDMAC2_DCH2INT.setCHSHIF(thebits : TBits_1); inline;
  56966. begin
  56967. if thebits = 0 then
  56968. pTDefRegMap(@Self)^.clr := $00000040
  56969. else
  56970. pTDefRegMap(@Self)^.&set := $00000040;
  56971. end;
  56972. function TDMAC2_DCH2INT.getCHSHIF : TBits_1; inline;
  56973. begin
  56974. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  56975. end;
  56976. procedure TDMAC2_DCH2INT.setCHSDIF; inline;
  56977. begin
  56978. pTDefRegMap(@Self)^.&set := $00000080;
  56979. end;
  56980. procedure TDMAC2_DCH2INT.clearCHSDIF; inline;
  56981. begin
  56982. pTDefRegMap(@Self)^.clr := $00000080;
  56983. end;
  56984. procedure TDMAC2_DCH2INT.setCHSDIF(thebits : TBits_1); inline;
  56985. begin
  56986. if thebits = 0 then
  56987. pTDefRegMap(@Self)^.clr := $00000080
  56988. else
  56989. pTDefRegMap(@Self)^.&set := $00000080;
  56990. end;
  56991. function TDMAC2_DCH2INT.getCHSDIF : TBits_1; inline;
  56992. begin
  56993. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56994. end;
  56995. procedure TDMAC2_DCH2INT.setCHERIE; inline;
  56996. begin
  56997. pTDefRegMap(@Self)^.&set := $00010000;
  56998. end;
  56999. procedure TDMAC2_DCH2INT.clearCHERIE; inline;
  57000. begin
  57001. pTDefRegMap(@Self)^.clr := $00010000;
  57002. end;
  57003. procedure TDMAC2_DCH2INT.setCHERIE(thebits : TBits_1); inline;
  57004. begin
  57005. if thebits = 0 then
  57006. pTDefRegMap(@Self)^.clr := $00010000
  57007. else
  57008. pTDefRegMap(@Self)^.&set := $00010000;
  57009. end;
  57010. function TDMAC2_DCH2INT.getCHERIE : TBits_1; inline;
  57011. begin
  57012. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  57013. end;
  57014. procedure TDMAC2_DCH2INT.setCHTAIE; inline;
  57015. begin
  57016. pTDefRegMap(@Self)^.&set := $00020000;
  57017. end;
  57018. procedure TDMAC2_DCH2INT.clearCHTAIE; inline;
  57019. begin
  57020. pTDefRegMap(@Self)^.clr := $00020000;
  57021. end;
  57022. procedure TDMAC2_DCH2INT.setCHTAIE(thebits : TBits_1); inline;
  57023. begin
  57024. if thebits = 0 then
  57025. pTDefRegMap(@Self)^.clr := $00020000
  57026. else
  57027. pTDefRegMap(@Self)^.&set := $00020000;
  57028. end;
  57029. function TDMAC2_DCH2INT.getCHTAIE : TBits_1; inline;
  57030. begin
  57031. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  57032. end;
  57033. procedure TDMAC2_DCH2INT.setCHCCIE; inline;
  57034. begin
  57035. pTDefRegMap(@Self)^.&set := $00040000;
  57036. end;
  57037. procedure TDMAC2_DCH2INT.clearCHCCIE; inline;
  57038. begin
  57039. pTDefRegMap(@Self)^.clr := $00040000;
  57040. end;
  57041. procedure TDMAC2_DCH2INT.setCHCCIE(thebits : TBits_1); inline;
  57042. begin
  57043. if thebits = 0 then
  57044. pTDefRegMap(@Self)^.clr := $00040000
  57045. else
  57046. pTDefRegMap(@Self)^.&set := $00040000;
  57047. end;
  57048. function TDMAC2_DCH2INT.getCHCCIE : TBits_1; inline;
  57049. begin
  57050. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  57051. end;
  57052. procedure TDMAC2_DCH2INT.setCHBCIE; inline;
  57053. begin
  57054. pTDefRegMap(@Self)^.&set := $00080000;
  57055. end;
  57056. procedure TDMAC2_DCH2INT.clearCHBCIE; inline;
  57057. begin
  57058. pTDefRegMap(@Self)^.clr := $00080000;
  57059. end;
  57060. procedure TDMAC2_DCH2INT.setCHBCIE(thebits : TBits_1); inline;
  57061. begin
  57062. if thebits = 0 then
  57063. pTDefRegMap(@Self)^.clr := $00080000
  57064. else
  57065. pTDefRegMap(@Self)^.&set := $00080000;
  57066. end;
  57067. function TDMAC2_DCH2INT.getCHBCIE : TBits_1; inline;
  57068. begin
  57069. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  57070. end;
  57071. procedure TDMAC2_DCH2INT.setCHDHIE; inline;
  57072. begin
  57073. pTDefRegMap(@Self)^.&set := $00100000;
  57074. end;
  57075. procedure TDMAC2_DCH2INT.clearCHDHIE; inline;
  57076. begin
  57077. pTDefRegMap(@Self)^.clr := $00100000;
  57078. end;
  57079. procedure TDMAC2_DCH2INT.setCHDHIE(thebits : TBits_1); inline;
  57080. begin
  57081. if thebits = 0 then
  57082. pTDefRegMap(@Self)^.clr := $00100000
  57083. else
  57084. pTDefRegMap(@Self)^.&set := $00100000;
  57085. end;
  57086. function TDMAC2_DCH2INT.getCHDHIE : TBits_1; inline;
  57087. begin
  57088. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  57089. end;
  57090. procedure TDMAC2_DCH2INT.setCHDDIE; inline;
  57091. begin
  57092. pTDefRegMap(@Self)^.&set := $00200000;
  57093. end;
  57094. procedure TDMAC2_DCH2INT.clearCHDDIE; inline;
  57095. begin
  57096. pTDefRegMap(@Self)^.clr := $00200000;
  57097. end;
  57098. procedure TDMAC2_DCH2INT.setCHDDIE(thebits : TBits_1); inline;
  57099. begin
  57100. if thebits = 0 then
  57101. pTDefRegMap(@Self)^.clr := $00200000
  57102. else
  57103. pTDefRegMap(@Self)^.&set := $00200000;
  57104. end;
  57105. function TDMAC2_DCH2INT.getCHDDIE : TBits_1; inline;
  57106. begin
  57107. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  57108. end;
  57109. procedure TDMAC2_DCH2INT.setCHSHIE; inline;
  57110. begin
  57111. pTDefRegMap(@Self)^.&set := $00400000;
  57112. end;
  57113. procedure TDMAC2_DCH2INT.clearCHSHIE; inline;
  57114. begin
  57115. pTDefRegMap(@Self)^.clr := $00400000;
  57116. end;
  57117. procedure TDMAC2_DCH2INT.setCHSHIE(thebits : TBits_1); inline;
  57118. begin
  57119. if thebits = 0 then
  57120. pTDefRegMap(@Self)^.clr := $00400000
  57121. else
  57122. pTDefRegMap(@Self)^.&set := $00400000;
  57123. end;
  57124. function TDMAC2_DCH2INT.getCHSHIE : TBits_1; inline;
  57125. begin
  57126. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  57127. end;
  57128. procedure TDMAC2_DCH2INT.setCHSDIE; inline;
  57129. begin
  57130. pTDefRegMap(@Self)^.&set := $00800000;
  57131. end;
  57132. procedure TDMAC2_DCH2INT.clearCHSDIE; inline;
  57133. begin
  57134. pTDefRegMap(@Self)^.clr := $00800000;
  57135. end;
  57136. procedure TDMAC2_DCH2INT.setCHSDIE(thebits : TBits_1); inline;
  57137. begin
  57138. if thebits = 0 then
  57139. pTDefRegMap(@Self)^.clr := $00800000
  57140. else
  57141. pTDefRegMap(@Self)^.&set := $00800000;
  57142. end;
  57143. function TDMAC2_DCH2INT.getCHSDIE : TBits_1; inline;
  57144. begin
  57145. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  57146. end;
  57147. procedure TDMAC2_DCH2INT.setw(thebits : TBits_32); inline;
  57148. begin
  57149. pTDefRegMap(@Self)^.val := thebits;
  57150. end;
  57151. function TDMAC2_DCH2INT.getw : TBits_32; inline;
  57152. begin
  57153. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  57154. end;
  57155. procedure TDMAC3_DCH3CON.setCHPRI(thebits : TBits_2); inline;
  57156. begin
  57157. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  57158. end;
  57159. function TDMAC3_DCH3CON.getCHPRI : TBits_2; inline;
  57160. begin
  57161. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  57162. end;
  57163. procedure TDMAC3_DCH3CON.setCHEDET; inline;
  57164. begin
  57165. pTDefRegMap(@Self)^.&set := $00000004;
  57166. end;
  57167. procedure TDMAC3_DCH3CON.clearCHEDET; inline;
  57168. begin
  57169. pTDefRegMap(@Self)^.clr := $00000004;
  57170. end;
  57171. procedure TDMAC3_DCH3CON.setCHEDET(thebits : TBits_1); inline;
  57172. begin
  57173. if thebits = 0 then
  57174. pTDefRegMap(@Self)^.clr := $00000004
  57175. else
  57176. pTDefRegMap(@Self)^.&set := $00000004;
  57177. end;
  57178. function TDMAC3_DCH3CON.getCHEDET : TBits_1; inline;
  57179. begin
  57180. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  57181. end;
  57182. procedure TDMAC3_DCH3CON.setCHAEN; inline;
  57183. begin
  57184. pTDefRegMap(@Self)^.&set := $00000010;
  57185. end;
  57186. procedure TDMAC3_DCH3CON.clearCHAEN; inline;
  57187. begin
  57188. pTDefRegMap(@Self)^.clr := $00000010;
  57189. end;
  57190. procedure TDMAC3_DCH3CON.setCHAEN(thebits : TBits_1); inline;
  57191. begin
  57192. if thebits = 0 then
  57193. pTDefRegMap(@Self)^.clr := $00000010
  57194. else
  57195. pTDefRegMap(@Self)^.&set := $00000010;
  57196. end;
  57197. function TDMAC3_DCH3CON.getCHAEN : TBits_1; inline;
  57198. begin
  57199. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  57200. end;
  57201. procedure TDMAC3_DCH3CON.setCHCHN; inline;
  57202. begin
  57203. pTDefRegMap(@Self)^.&set := $00000020;
  57204. end;
  57205. procedure TDMAC3_DCH3CON.clearCHCHN; inline;
  57206. begin
  57207. pTDefRegMap(@Self)^.clr := $00000020;
  57208. end;
  57209. procedure TDMAC3_DCH3CON.setCHCHN(thebits : TBits_1); inline;
  57210. begin
  57211. if thebits = 0 then
  57212. pTDefRegMap(@Self)^.clr := $00000020
  57213. else
  57214. pTDefRegMap(@Self)^.&set := $00000020;
  57215. end;
  57216. function TDMAC3_DCH3CON.getCHCHN : TBits_1; inline;
  57217. begin
  57218. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57219. end;
  57220. procedure TDMAC3_DCH3CON.setCHAED; inline;
  57221. begin
  57222. pTDefRegMap(@Self)^.&set := $00000040;
  57223. end;
  57224. procedure TDMAC3_DCH3CON.clearCHAED; inline;
  57225. begin
  57226. pTDefRegMap(@Self)^.clr := $00000040;
  57227. end;
  57228. procedure TDMAC3_DCH3CON.setCHAED(thebits : TBits_1); inline;
  57229. begin
  57230. if thebits = 0 then
  57231. pTDefRegMap(@Self)^.clr := $00000040
  57232. else
  57233. pTDefRegMap(@Self)^.&set := $00000040;
  57234. end;
  57235. function TDMAC3_DCH3CON.getCHAED : TBits_1; inline;
  57236. begin
  57237. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  57238. end;
  57239. procedure TDMAC3_DCH3CON.setCHEN; inline;
  57240. begin
  57241. pTDefRegMap(@Self)^.&set := $00000080;
  57242. end;
  57243. procedure TDMAC3_DCH3CON.clearCHEN; inline;
  57244. begin
  57245. pTDefRegMap(@Self)^.clr := $00000080;
  57246. end;
  57247. procedure TDMAC3_DCH3CON.setCHEN(thebits : TBits_1); inline;
  57248. begin
  57249. if thebits = 0 then
  57250. pTDefRegMap(@Self)^.clr := $00000080
  57251. else
  57252. pTDefRegMap(@Self)^.&set := $00000080;
  57253. end;
  57254. function TDMAC3_DCH3CON.getCHEN : TBits_1; inline;
  57255. begin
  57256. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  57257. end;
  57258. procedure TDMAC3_DCH3CON.setCHCHNS; inline;
  57259. begin
  57260. pTDefRegMap(@Self)^.&set := $00000100;
  57261. end;
  57262. procedure TDMAC3_DCH3CON.clearCHCHNS; inline;
  57263. begin
  57264. pTDefRegMap(@Self)^.clr := $00000100;
  57265. end;
  57266. procedure TDMAC3_DCH3CON.setCHCHNS(thebits : TBits_1); inline;
  57267. begin
  57268. if thebits = 0 then
  57269. pTDefRegMap(@Self)^.clr := $00000100
  57270. else
  57271. pTDefRegMap(@Self)^.&set := $00000100;
  57272. end;
  57273. function TDMAC3_DCH3CON.getCHCHNS : TBits_1; inline;
  57274. begin
  57275. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  57276. end;
  57277. procedure TDMAC3_DCH3CON.setCHBUSY; inline;
  57278. begin
  57279. pTDefRegMap(@Self)^.&set := $00008000;
  57280. end;
  57281. procedure TDMAC3_DCH3CON.clearCHBUSY; inline;
  57282. begin
  57283. pTDefRegMap(@Self)^.clr := $00008000;
  57284. end;
  57285. procedure TDMAC3_DCH3CON.setCHBUSY(thebits : TBits_1); inline;
  57286. begin
  57287. if thebits = 0 then
  57288. pTDefRegMap(@Self)^.clr := $00008000
  57289. else
  57290. pTDefRegMap(@Self)^.&set := $00008000;
  57291. end;
  57292. function TDMAC3_DCH3CON.getCHBUSY : TBits_1; inline;
  57293. begin
  57294. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  57295. end;
  57296. procedure TDMAC3_DCH3CON.setw(thebits : TBits_32); inline;
  57297. begin
  57298. pTDefRegMap(@Self)^.val := thebits;
  57299. end;
  57300. function TDMAC3_DCH3CON.getw : TBits_32; inline;
  57301. begin
  57302. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  57303. end;
  57304. procedure TDMAC3_DCH3ECON.setAIRQEN; inline;
  57305. begin
  57306. pTDefRegMap(@Self)^.&set := $00000008;
  57307. end;
  57308. procedure TDMAC3_DCH3ECON.clearAIRQEN; inline;
  57309. begin
  57310. pTDefRegMap(@Self)^.clr := $00000008;
  57311. end;
  57312. procedure TDMAC3_DCH3ECON.setAIRQEN(thebits : TBits_1); inline;
  57313. begin
  57314. if thebits = 0 then
  57315. pTDefRegMap(@Self)^.clr := $00000008
  57316. else
  57317. pTDefRegMap(@Self)^.&set := $00000008;
  57318. end;
  57319. function TDMAC3_DCH3ECON.getAIRQEN : TBits_1; inline;
  57320. begin
  57321. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  57322. end;
  57323. procedure TDMAC3_DCH3ECON.setSIRQEN; inline;
  57324. begin
  57325. pTDefRegMap(@Self)^.&set := $00000010;
  57326. end;
  57327. procedure TDMAC3_DCH3ECON.clearSIRQEN; inline;
  57328. begin
  57329. pTDefRegMap(@Self)^.clr := $00000010;
  57330. end;
  57331. procedure TDMAC3_DCH3ECON.setSIRQEN(thebits : TBits_1); inline;
  57332. begin
  57333. if thebits = 0 then
  57334. pTDefRegMap(@Self)^.clr := $00000010
  57335. else
  57336. pTDefRegMap(@Self)^.&set := $00000010;
  57337. end;
  57338. function TDMAC3_DCH3ECON.getSIRQEN : TBits_1; inline;
  57339. begin
  57340. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  57341. end;
  57342. procedure TDMAC3_DCH3ECON.setPATEN; inline;
  57343. begin
  57344. pTDefRegMap(@Self)^.&set := $00000020;
  57345. end;
  57346. procedure TDMAC3_DCH3ECON.clearPATEN; inline;
  57347. begin
  57348. pTDefRegMap(@Self)^.clr := $00000020;
  57349. end;
  57350. procedure TDMAC3_DCH3ECON.setPATEN(thebits : TBits_1); inline;
  57351. begin
  57352. if thebits = 0 then
  57353. pTDefRegMap(@Self)^.clr := $00000020
  57354. else
  57355. pTDefRegMap(@Self)^.&set := $00000020;
  57356. end;
  57357. function TDMAC3_DCH3ECON.getPATEN : TBits_1; inline;
  57358. begin
  57359. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57360. end;
  57361. procedure TDMAC3_DCH3ECON.setCABORT; inline;
  57362. begin
  57363. pTDefRegMap(@Self)^.&set := $00000040;
  57364. end;
  57365. procedure TDMAC3_DCH3ECON.clearCABORT; inline;
  57366. begin
  57367. pTDefRegMap(@Self)^.clr := $00000040;
  57368. end;
  57369. procedure TDMAC3_DCH3ECON.setCABORT(thebits : TBits_1); inline;
  57370. begin
  57371. if thebits = 0 then
  57372. pTDefRegMap(@Self)^.clr := $00000040
  57373. else
  57374. pTDefRegMap(@Self)^.&set := $00000040;
  57375. end;
  57376. function TDMAC3_DCH3ECON.getCABORT : TBits_1; inline;
  57377. begin
  57378. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  57379. end;
  57380. procedure TDMAC3_DCH3ECON.setCFORCE; inline;
  57381. begin
  57382. pTDefRegMap(@Self)^.&set := $00000080;
  57383. end;
  57384. procedure TDMAC3_DCH3ECON.clearCFORCE; inline;
  57385. begin
  57386. pTDefRegMap(@Self)^.clr := $00000080;
  57387. end;
  57388. procedure TDMAC3_DCH3ECON.setCFORCE(thebits : TBits_1); inline;
  57389. begin
  57390. if thebits = 0 then
  57391. pTDefRegMap(@Self)^.clr := $00000080
  57392. else
  57393. pTDefRegMap(@Self)^.&set := $00000080;
  57394. end;
  57395. function TDMAC3_DCH3ECON.getCFORCE : TBits_1; inline;
  57396. begin
  57397. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  57398. end;
  57399. procedure TDMAC3_DCH3ECON.setCHSIRQ(thebits : TBits_8); inline;
  57400. begin
  57401. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  57402. end;
  57403. function TDMAC3_DCH3ECON.getCHSIRQ : TBits_8; inline;
  57404. begin
  57405. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  57406. end;
  57407. procedure TDMAC3_DCH3ECON.setCHAIRQ(thebits : TBits_8); inline;
  57408. begin
  57409. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  57410. end;
  57411. function TDMAC3_DCH3ECON.getCHAIRQ : TBits_8; inline;
  57412. begin
  57413. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  57414. end;
  57415. procedure TDMAC3_DCH3ECON.setw(thebits : TBits_32); inline;
  57416. begin
  57417. pTDefRegMap(@Self)^.val := thebits;
  57418. end;
  57419. function TDMAC3_DCH3ECON.getw : TBits_32; inline;
  57420. begin
  57421. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  57422. end;
  57423. procedure TDMAC3_DCH3INT.setCHERIF; inline;
  57424. begin
  57425. pTDefRegMap(@Self)^.&set := $00000001;
  57426. end;
  57427. procedure TDMAC3_DCH3INT.clearCHERIF; inline;
  57428. begin
  57429. pTDefRegMap(@Self)^.clr := $00000001;
  57430. end;
  57431. procedure TDMAC3_DCH3INT.setCHERIF(thebits : TBits_1); inline;
  57432. begin
  57433. if thebits = 0 then
  57434. pTDefRegMap(@Self)^.clr := $00000001
  57435. else
  57436. pTDefRegMap(@Self)^.&set := $00000001;
  57437. end;
  57438. function TDMAC3_DCH3INT.getCHERIF : TBits_1; inline;
  57439. begin
  57440. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  57441. end;
  57442. procedure TDMAC3_DCH3INT.setCHTAIF; inline;
  57443. begin
  57444. pTDefRegMap(@Self)^.&set := $00000002;
  57445. end;
  57446. procedure TDMAC3_DCH3INT.clearCHTAIF; inline;
  57447. begin
  57448. pTDefRegMap(@Self)^.clr := $00000002;
  57449. end;
  57450. procedure TDMAC3_DCH3INT.setCHTAIF(thebits : TBits_1); inline;
  57451. begin
  57452. if thebits = 0 then
  57453. pTDefRegMap(@Self)^.clr := $00000002
  57454. else
  57455. pTDefRegMap(@Self)^.&set := $00000002;
  57456. end;
  57457. function TDMAC3_DCH3INT.getCHTAIF : TBits_1; inline;
  57458. begin
  57459. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  57460. end;
  57461. procedure TDMAC3_DCH3INT.setCHCCIF; inline;
  57462. begin
  57463. pTDefRegMap(@Self)^.&set := $00000004;
  57464. end;
  57465. procedure TDMAC3_DCH3INT.clearCHCCIF; inline;
  57466. begin
  57467. pTDefRegMap(@Self)^.clr := $00000004;
  57468. end;
  57469. procedure TDMAC3_DCH3INT.setCHCCIF(thebits : TBits_1); inline;
  57470. begin
  57471. if thebits = 0 then
  57472. pTDefRegMap(@Self)^.clr := $00000004
  57473. else
  57474. pTDefRegMap(@Self)^.&set := $00000004;
  57475. end;
  57476. function TDMAC3_DCH3INT.getCHCCIF : TBits_1; inline;
  57477. begin
  57478. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  57479. end;
  57480. procedure TDMAC3_DCH3INT.setCHBCIF; inline;
  57481. begin
  57482. pTDefRegMap(@Self)^.&set := $00000008;
  57483. end;
  57484. procedure TDMAC3_DCH3INT.clearCHBCIF; inline;
  57485. begin
  57486. pTDefRegMap(@Self)^.clr := $00000008;
  57487. end;
  57488. procedure TDMAC3_DCH3INT.setCHBCIF(thebits : TBits_1); inline;
  57489. begin
  57490. if thebits = 0 then
  57491. pTDefRegMap(@Self)^.clr := $00000008
  57492. else
  57493. pTDefRegMap(@Self)^.&set := $00000008;
  57494. end;
  57495. function TDMAC3_DCH3INT.getCHBCIF : TBits_1; inline;
  57496. begin
  57497. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  57498. end;
  57499. procedure TDMAC3_DCH3INT.setCHDHIF; inline;
  57500. begin
  57501. pTDefRegMap(@Self)^.&set := $00000010;
  57502. end;
  57503. procedure TDMAC3_DCH3INT.clearCHDHIF; inline;
  57504. begin
  57505. pTDefRegMap(@Self)^.clr := $00000010;
  57506. end;
  57507. procedure TDMAC3_DCH3INT.setCHDHIF(thebits : TBits_1); inline;
  57508. begin
  57509. if thebits = 0 then
  57510. pTDefRegMap(@Self)^.clr := $00000010
  57511. else
  57512. pTDefRegMap(@Self)^.&set := $00000010;
  57513. end;
  57514. function TDMAC3_DCH3INT.getCHDHIF : TBits_1; inline;
  57515. begin
  57516. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  57517. end;
  57518. procedure TDMAC3_DCH3INT.setCHDDIF; inline;
  57519. begin
  57520. pTDefRegMap(@Self)^.&set := $00000020;
  57521. end;
  57522. procedure TDMAC3_DCH3INT.clearCHDDIF; inline;
  57523. begin
  57524. pTDefRegMap(@Self)^.clr := $00000020;
  57525. end;
  57526. procedure TDMAC3_DCH3INT.setCHDDIF(thebits : TBits_1); inline;
  57527. begin
  57528. if thebits = 0 then
  57529. pTDefRegMap(@Self)^.clr := $00000020
  57530. else
  57531. pTDefRegMap(@Self)^.&set := $00000020;
  57532. end;
  57533. function TDMAC3_DCH3INT.getCHDDIF : TBits_1; inline;
  57534. begin
  57535. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57536. end;
  57537. procedure TDMAC3_DCH3INT.setCHSHIF; inline;
  57538. begin
  57539. pTDefRegMap(@Self)^.&set := $00000040;
  57540. end;
  57541. procedure TDMAC3_DCH3INT.clearCHSHIF; inline;
  57542. begin
  57543. pTDefRegMap(@Self)^.clr := $00000040;
  57544. end;
  57545. procedure TDMAC3_DCH3INT.setCHSHIF(thebits : TBits_1); inline;
  57546. begin
  57547. if thebits = 0 then
  57548. pTDefRegMap(@Self)^.clr := $00000040
  57549. else
  57550. pTDefRegMap(@Self)^.&set := $00000040;
  57551. end;
  57552. function TDMAC3_DCH3INT.getCHSHIF : TBits_1; inline;
  57553. begin
  57554. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  57555. end;
  57556. procedure TDMAC3_DCH3INT.setCHSDIF; inline;
  57557. begin
  57558. pTDefRegMap(@Self)^.&set := $00000080;
  57559. end;
  57560. procedure TDMAC3_DCH3INT.clearCHSDIF; inline;
  57561. begin
  57562. pTDefRegMap(@Self)^.clr := $00000080;
  57563. end;
  57564. procedure TDMAC3_DCH3INT.setCHSDIF(thebits : TBits_1); inline;
  57565. begin
  57566. if thebits = 0 then
  57567. pTDefRegMap(@Self)^.clr := $00000080
  57568. else
  57569. pTDefRegMap(@Self)^.&set := $00000080;
  57570. end;
  57571. function TDMAC3_DCH3INT.getCHSDIF : TBits_1; inline;
  57572. begin
  57573. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  57574. end;
  57575. procedure TDMAC3_DCH3INT.setCHERIE; inline;
  57576. begin
  57577. pTDefRegMap(@Self)^.&set := $00010000;
  57578. end;
  57579. procedure TDMAC3_DCH3INT.clearCHERIE; inline;
  57580. begin
  57581. pTDefRegMap(@Self)^.clr := $00010000;
  57582. end;
  57583. procedure TDMAC3_DCH3INT.setCHERIE(thebits : TBits_1); inline;
  57584. begin
  57585. if thebits = 0 then
  57586. pTDefRegMap(@Self)^.clr := $00010000
  57587. else
  57588. pTDefRegMap(@Self)^.&set := $00010000;
  57589. end;
  57590. function TDMAC3_DCH3INT.getCHERIE : TBits_1; inline;
  57591. begin
  57592. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  57593. end;
  57594. procedure TDMAC3_DCH3INT.setCHTAIE; inline;
  57595. begin
  57596. pTDefRegMap(@Self)^.&set := $00020000;
  57597. end;
  57598. procedure TDMAC3_DCH3INT.clearCHTAIE; inline;
  57599. begin
  57600. pTDefRegMap(@Self)^.clr := $00020000;
  57601. end;
  57602. procedure TDMAC3_DCH3INT.setCHTAIE(thebits : TBits_1); inline;
  57603. begin
  57604. if thebits = 0 then
  57605. pTDefRegMap(@Self)^.clr := $00020000
  57606. else
  57607. pTDefRegMap(@Self)^.&set := $00020000;
  57608. end;
  57609. function TDMAC3_DCH3INT.getCHTAIE : TBits_1; inline;
  57610. begin
  57611. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  57612. end;
  57613. procedure TDMAC3_DCH3INT.setCHCCIE; inline;
  57614. begin
  57615. pTDefRegMap(@Self)^.&set := $00040000;
  57616. end;
  57617. procedure TDMAC3_DCH3INT.clearCHCCIE; inline;
  57618. begin
  57619. pTDefRegMap(@Self)^.clr := $00040000;
  57620. end;
  57621. procedure TDMAC3_DCH3INT.setCHCCIE(thebits : TBits_1); inline;
  57622. begin
  57623. if thebits = 0 then
  57624. pTDefRegMap(@Self)^.clr := $00040000
  57625. else
  57626. pTDefRegMap(@Self)^.&set := $00040000;
  57627. end;
  57628. function TDMAC3_DCH3INT.getCHCCIE : TBits_1; inline;
  57629. begin
  57630. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  57631. end;
  57632. procedure TDMAC3_DCH3INT.setCHBCIE; inline;
  57633. begin
  57634. pTDefRegMap(@Self)^.&set := $00080000;
  57635. end;
  57636. procedure TDMAC3_DCH3INT.clearCHBCIE; inline;
  57637. begin
  57638. pTDefRegMap(@Self)^.clr := $00080000;
  57639. end;
  57640. procedure TDMAC3_DCH3INT.setCHBCIE(thebits : TBits_1); inline;
  57641. begin
  57642. if thebits = 0 then
  57643. pTDefRegMap(@Self)^.clr := $00080000
  57644. else
  57645. pTDefRegMap(@Self)^.&set := $00080000;
  57646. end;
  57647. function TDMAC3_DCH3INT.getCHBCIE : TBits_1; inline;
  57648. begin
  57649. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  57650. end;
  57651. procedure TDMAC3_DCH3INT.setCHDHIE; inline;
  57652. begin
  57653. pTDefRegMap(@Self)^.&set := $00100000;
  57654. end;
  57655. procedure TDMAC3_DCH3INT.clearCHDHIE; inline;
  57656. begin
  57657. pTDefRegMap(@Self)^.clr := $00100000;
  57658. end;
  57659. procedure TDMAC3_DCH3INT.setCHDHIE(thebits : TBits_1); inline;
  57660. begin
  57661. if thebits = 0 then
  57662. pTDefRegMap(@Self)^.clr := $00100000
  57663. else
  57664. pTDefRegMap(@Self)^.&set := $00100000;
  57665. end;
  57666. function TDMAC3_DCH3INT.getCHDHIE : TBits_1; inline;
  57667. begin
  57668. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  57669. end;
  57670. procedure TDMAC3_DCH3INT.setCHDDIE; inline;
  57671. begin
  57672. pTDefRegMap(@Self)^.&set := $00200000;
  57673. end;
  57674. procedure TDMAC3_DCH3INT.clearCHDDIE; inline;
  57675. begin
  57676. pTDefRegMap(@Self)^.clr := $00200000;
  57677. end;
  57678. procedure TDMAC3_DCH3INT.setCHDDIE(thebits : TBits_1); inline;
  57679. begin
  57680. if thebits = 0 then
  57681. pTDefRegMap(@Self)^.clr := $00200000
  57682. else
  57683. pTDefRegMap(@Self)^.&set := $00200000;
  57684. end;
  57685. function TDMAC3_DCH3INT.getCHDDIE : TBits_1; inline;
  57686. begin
  57687. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  57688. end;
  57689. procedure TDMAC3_DCH3INT.setCHSHIE; inline;
  57690. begin
  57691. pTDefRegMap(@Self)^.&set := $00400000;
  57692. end;
  57693. procedure TDMAC3_DCH3INT.clearCHSHIE; inline;
  57694. begin
  57695. pTDefRegMap(@Self)^.clr := $00400000;
  57696. end;
  57697. procedure TDMAC3_DCH3INT.setCHSHIE(thebits : TBits_1); inline;
  57698. begin
  57699. if thebits = 0 then
  57700. pTDefRegMap(@Self)^.clr := $00400000
  57701. else
  57702. pTDefRegMap(@Self)^.&set := $00400000;
  57703. end;
  57704. function TDMAC3_DCH3INT.getCHSHIE : TBits_1; inline;
  57705. begin
  57706. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  57707. end;
  57708. procedure TDMAC3_DCH3INT.setCHSDIE; inline;
  57709. begin
  57710. pTDefRegMap(@Self)^.&set := $00800000;
  57711. end;
  57712. procedure TDMAC3_DCH3INT.clearCHSDIE; inline;
  57713. begin
  57714. pTDefRegMap(@Self)^.clr := $00800000;
  57715. end;
  57716. procedure TDMAC3_DCH3INT.setCHSDIE(thebits : TBits_1); inline;
  57717. begin
  57718. if thebits = 0 then
  57719. pTDefRegMap(@Self)^.clr := $00800000
  57720. else
  57721. pTDefRegMap(@Self)^.&set := $00800000;
  57722. end;
  57723. function TDMAC3_DCH3INT.getCHSDIE : TBits_1; inline;
  57724. begin
  57725. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  57726. end;
  57727. procedure TDMAC3_DCH3INT.setw(thebits : TBits_32); inline;
  57728. begin
  57729. pTDefRegMap(@Self)^.val := thebits;
  57730. end;
  57731. function TDMAC3_DCH3INT.getw : TBits_32; inline;
  57732. begin
  57733. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  57734. end;
  57735. procedure TPCACHE_CHECON.setPFMWS(thebits : TBits_3); inline;
  57736. begin
  57737. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  57738. end;
  57739. function TPCACHE_CHECON.getPFMWS : TBits_3; inline;
  57740. begin
  57741. getPFMWS := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  57742. end;
  57743. procedure TPCACHE_CHECON.setPREFEN(thebits : TBits_2); inline;
  57744. begin
  57745. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFCF or ( thebits shl 4 );
  57746. end;
  57747. function TPCACHE_CHECON.getPREFEN : TBits_2; inline;
  57748. begin
  57749. getPREFEN := (pTDefRegMap(@Self)^.val and $00000030) shr 4;
  57750. end;
  57751. procedure TPCACHE_CHECON.setDCSZ(thebits : TBits_2); inline;
  57752. begin
  57753. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  57754. end;
  57755. function TPCACHE_CHECON.getDCSZ : TBits_2; inline;
  57756. begin
  57757. getDCSZ := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  57758. end;
  57759. procedure TPCACHE_CHECON.setCHECOH; inline;
  57760. begin
  57761. pTDefRegMap(@Self)^.&set := $00010000;
  57762. end;
  57763. procedure TPCACHE_CHECON.clearCHECOH; inline;
  57764. begin
  57765. pTDefRegMap(@Self)^.clr := $00010000;
  57766. end;
  57767. procedure TPCACHE_CHECON.setCHECOH(thebits : TBits_1); inline;
  57768. begin
  57769. if thebits = 0 then
  57770. pTDefRegMap(@Self)^.clr := $00010000
  57771. else
  57772. pTDefRegMap(@Self)^.&set := $00010000;
  57773. end;
  57774. function TPCACHE_CHECON.getCHECOH : TBits_1; inline;
  57775. begin
  57776. getCHECOH := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  57777. end;
  57778. procedure TPCACHE_CHECON.setw(thebits : TBits_32); inline;
  57779. begin
  57780. pTDefRegMap(@Self)^.val := thebits;
  57781. end;
  57782. function TPCACHE_CHECON.getw : TBits_32; inline;
  57783. begin
  57784. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  57785. end;
  57786. procedure TPCACHE_CHETAG.setLTYPE; inline;
  57787. begin
  57788. pTDefRegMap(@Self)^.&set := $00000002;
  57789. end;
  57790. procedure TPCACHE_CHETAG.clearLTYPE; inline;
  57791. begin
  57792. pTDefRegMap(@Self)^.clr := $00000002;
  57793. end;
  57794. procedure TPCACHE_CHETAG.setLTYPE(thebits : TBits_1); inline;
  57795. begin
  57796. if thebits = 0 then
  57797. pTDefRegMap(@Self)^.clr := $00000002
  57798. else
  57799. pTDefRegMap(@Self)^.&set := $00000002;
  57800. end;
  57801. function TPCACHE_CHETAG.getLTYPE : TBits_1; inline;
  57802. begin
  57803. getLTYPE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  57804. end;
  57805. procedure TPCACHE_CHETAG.setLLOCK; inline;
  57806. begin
  57807. pTDefRegMap(@Self)^.&set := $00000004;
  57808. end;
  57809. procedure TPCACHE_CHETAG.clearLLOCK; inline;
  57810. begin
  57811. pTDefRegMap(@Self)^.clr := $00000004;
  57812. end;
  57813. procedure TPCACHE_CHETAG.setLLOCK(thebits : TBits_1); inline;
  57814. begin
  57815. if thebits = 0 then
  57816. pTDefRegMap(@Self)^.clr := $00000004
  57817. else
  57818. pTDefRegMap(@Self)^.&set := $00000004;
  57819. end;
  57820. function TPCACHE_CHETAG.getLLOCK : TBits_1; inline;
  57821. begin
  57822. getLLOCK := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  57823. end;
  57824. procedure TPCACHE_CHETAG.setLVALID; inline;
  57825. begin
  57826. pTDefRegMap(@Self)^.&set := $00000008;
  57827. end;
  57828. procedure TPCACHE_CHETAG.clearLVALID; inline;
  57829. begin
  57830. pTDefRegMap(@Self)^.clr := $00000008;
  57831. end;
  57832. procedure TPCACHE_CHETAG.setLVALID(thebits : TBits_1); inline;
  57833. begin
  57834. if thebits = 0 then
  57835. pTDefRegMap(@Self)^.clr := $00000008
  57836. else
  57837. pTDefRegMap(@Self)^.&set := $00000008;
  57838. end;
  57839. function TPCACHE_CHETAG.getLVALID : TBits_1; inline;
  57840. begin
  57841. getLVALID := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  57842. end;
  57843. procedure TPCACHE_CHETAG.setLTAG(thebits : TBits_20); inline;
  57844. begin
  57845. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00000F or ( thebits shl 4 );
  57846. end;
  57847. function TPCACHE_CHETAG.getLTAG : TBits_20; inline;
  57848. begin
  57849. getLTAG := (pTDefRegMap(@Self)^.val and $00FFFFF0) shr 4;
  57850. end;
  57851. procedure TPCACHE_CHETAG.setLTAGBOOT; inline;
  57852. begin
  57853. pTDefRegMap(@Self)^.&set := $80000000;
  57854. end;
  57855. procedure TPCACHE_CHETAG.clearLTAGBOOT; inline;
  57856. begin
  57857. pTDefRegMap(@Self)^.clr := $80000000;
  57858. end;
  57859. procedure TPCACHE_CHETAG.setLTAGBOOT(thebits : TBits_1); inline;
  57860. begin
  57861. if thebits = 0 then
  57862. pTDefRegMap(@Self)^.clr := $80000000
  57863. else
  57864. pTDefRegMap(@Self)^.&set := $80000000;
  57865. end;
  57866. function TPCACHE_CHETAG.getLTAGBOOT : TBits_1; inline;
  57867. begin
  57868. getLTAGBOOT := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  57869. end;
  57870. procedure TPCACHE_CHETAG.setw(thebits : TBits_32); inline;
  57871. begin
  57872. pTDefRegMap(@Self)^.val := thebits;
  57873. end;
  57874. function TPCACHE_CHETAG.getw : TBits_32; inline;
  57875. begin
  57876. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  57877. end;
  57878. procedure TUSB_U1IR.setURSTIF_DETACHIF; inline;
  57879. begin
  57880. pTDefRegMap(@Self)^.&set := $00000001;
  57881. end;
  57882. procedure TUSB_U1IR.clearURSTIF_DETACHIF; inline;
  57883. begin
  57884. pTDefRegMap(@Self)^.clr := $00000001;
  57885. end;
  57886. procedure TUSB_U1IR.setURSTIF_DETACHIF(thebits : TBits_1); inline;
  57887. begin
  57888. if thebits = 0 then
  57889. pTDefRegMap(@Self)^.clr := $00000001
  57890. else
  57891. pTDefRegMap(@Self)^.&set := $00000001;
  57892. end;
  57893. function TUSB_U1IR.getURSTIF_DETACHIF : TBits_1; inline;
  57894. begin
  57895. getURSTIF_DETACHIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  57896. end;
  57897. procedure TUSB_U1IR.setUERRIF; inline;
  57898. begin
  57899. pTDefRegMap(@Self)^.&set := $00000002;
  57900. end;
  57901. procedure TUSB_U1IR.clearUERRIF; inline;
  57902. begin
  57903. pTDefRegMap(@Self)^.clr := $00000002;
  57904. end;
  57905. procedure TUSB_U1IR.setUERRIF(thebits : TBits_1); inline;
  57906. begin
  57907. if thebits = 0 then
  57908. pTDefRegMap(@Self)^.clr := $00000002
  57909. else
  57910. pTDefRegMap(@Self)^.&set := $00000002;
  57911. end;
  57912. function TUSB_U1IR.getUERRIF : TBits_1; inline;
  57913. begin
  57914. getUERRIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  57915. end;
  57916. procedure TUSB_U1IR.setSOFIF; inline;
  57917. begin
  57918. pTDefRegMap(@Self)^.&set := $00000004;
  57919. end;
  57920. procedure TUSB_U1IR.clearSOFIF; inline;
  57921. begin
  57922. pTDefRegMap(@Self)^.clr := $00000004;
  57923. end;
  57924. procedure TUSB_U1IR.setSOFIF(thebits : TBits_1); inline;
  57925. begin
  57926. if thebits = 0 then
  57927. pTDefRegMap(@Self)^.clr := $00000004
  57928. else
  57929. pTDefRegMap(@Self)^.&set := $00000004;
  57930. end;
  57931. function TUSB_U1IR.getSOFIF : TBits_1; inline;
  57932. begin
  57933. getSOFIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  57934. end;
  57935. procedure TUSB_U1IR.setTRNIF; inline;
  57936. begin
  57937. pTDefRegMap(@Self)^.&set := $00000008;
  57938. end;
  57939. procedure TUSB_U1IR.clearTRNIF; inline;
  57940. begin
  57941. pTDefRegMap(@Self)^.clr := $00000008;
  57942. end;
  57943. procedure TUSB_U1IR.setTRNIF(thebits : TBits_1); inline;
  57944. begin
  57945. if thebits = 0 then
  57946. pTDefRegMap(@Self)^.clr := $00000008
  57947. else
  57948. pTDefRegMap(@Self)^.&set := $00000008;
  57949. end;
  57950. function TUSB_U1IR.getTRNIF : TBits_1; inline;
  57951. begin
  57952. getTRNIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  57953. end;
  57954. procedure TUSB_U1IR.setIDLEIF; inline;
  57955. begin
  57956. pTDefRegMap(@Self)^.&set := $00000010;
  57957. end;
  57958. procedure TUSB_U1IR.clearIDLEIF; inline;
  57959. begin
  57960. pTDefRegMap(@Self)^.clr := $00000010;
  57961. end;
  57962. procedure TUSB_U1IR.setIDLEIF(thebits : TBits_1); inline;
  57963. begin
  57964. if thebits = 0 then
  57965. pTDefRegMap(@Self)^.clr := $00000010
  57966. else
  57967. pTDefRegMap(@Self)^.&set := $00000010;
  57968. end;
  57969. function TUSB_U1IR.getIDLEIF : TBits_1; inline;
  57970. begin
  57971. getIDLEIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  57972. end;
  57973. procedure TUSB_U1IR.setRESUMEIF; inline;
  57974. begin
  57975. pTDefRegMap(@Self)^.&set := $00000020;
  57976. end;
  57977. procedure TUSB_U1IR.clearRESUMEIF; inline;
  57978. begin
  57979. pTDefRegMap(@Self)^.clr := $00000020;
  57980. end;
  57981. procedure TUSB_U1IR.setRESUMEIF(thebits : TBits_1); inline;
  57982. begin
  57983. if thebits = 0 then
  57984. pTDefRegMap(@Self)^.clr := $00000020
  57985. else
  57986. pTDefRegMap(@Self)^.&set := $00000020;
  57987. end;
  57988. function TUSB_U1IR.getRESUMEIF : TBits_1; inline;
  57989. begin
  57990. getRESUMEIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57991. end;
  57992. procedure TUSB_U1IR.setATTACHIF; inline;
  57993. begin
  57994. pTDefRegMap(@Self)^.&set := $00000040;
  57995. end;
  57996. procedure TUSB_U1IR.clearATTACHIF; inline;
  57997. begin
  57998. pTDefRegMap(@Self)^.clr := $00000040;
  57999. end;
  58000. procedure TUSB_U1IR.setATTACHIF(thebits : TBits_1); inline;
  58001. begin
  58002. if thebits = 0 then
  58003. pTDefRegMap(@Self)^.clr := $00000040
  58004. else
  58005. pTDefRegMap(@Self)^.&set := $00000040;
  58006. end;
  58007. function TUSB_U1IR.getATTACHIF : TBits_1; inline;
  58008. begin
  58009. getATTACHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  58010. end;
  58011. procedure TUSB_U1IR.setSTALLIF; inline;
  58012. begin
  58013. pTDefRegMap(@Self)^.&set := $00000080;
  58014. end;
  58015. procedure TUSB_U1IR.clearSTALLIF; inline;
  58016. begin
  58017. pTDefRegMap(@Self)^.clr := $00000080;
  58018. end;
  58019. procedure TUSB_U1IR.setSTALLIF(thebits : TBits_1); inline;
  58020. begin
  58021. if thebits = 0 then
  58022. pTDefRegMap(@Self)^.clr := $00000080
  58023. else
  58024. pTDefRegMap(@Self)^.&set := $00000080;
  58025. end;
  58026. function TUSB_U1IR.getSTALLIF : TBits_1; inline;
  58027. begin
  58028. getSTALLIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58029. end;
  58030. procedure TUSB_U1IR.setDETACHIF; inline;
  58031. begin
  58032. pTDefRegMap(@Self)^.&set := $00000001;
  58033. end;
  58034. procedure TUSB_U1IR.clearDETACHIF; inline;
  58035. begin
  58036. pTDefRegMap(@Self)^.clr := $00000001;
  58037. end;
  58038. procedure TUSB_U1IR.setDETACHIF(thebits : TBits_1); inline;
  58039. begin
  58040. if thebits = 0 then
  58041. pTDefRegMap(@Self)^.clr := $00000001
  58042. else
  58043. pTDefRegMap(@Self)^.&set := $00000001;
  58044. end;
  58045. function TUSB_U1IR.getDETACHIF : TBits_1; inline;
  58046. begin
  58047. getDETACHIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58048. end;
  58049. procedure TUSB_U1IR.setURSTIF; inline;
  58050. begin
  58051. pTDefRegMap(@Self)^.&set := $00000001;
  58052. end;
  58053. procedure TUSB_U1IR.clearURSTIF; inline;
  58054. begin
  58055. pTDefRegMap(@Self)^.clr := $00000001;
  58056. end;
  58057. procedure TUSB_U1IR.setURSTIF(thebits : TBits_1); inline;
  58058. begin
  58059. if thebits = 0 then
  58060. pTDefRegMap(@Self)^.clr := $00000001
  58061. else
  58062. pTDefRegMap(@Self)^.&set := $00000001;
  58063. end;
  58064. function TUSB_U1IR.getURSTIF : TBits_1; inline;
  58065. begin
  58066. getURSTIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58067. end;
  58068. procedure TUSB_U1IE.setURSTIE_DETACHIE; inline;
  58069. begin
  58070. pTDefRegMap(@Self)^.&set := $00000001;
  58071. end;
  58072. procedure TUSB_U1IE.clearURSTIE_DETACHIE; inline;
  58073. begin
  58074. pTDefRegMap(@Self)^.clr := $00000001;
  58075. end;
  58076. procedure TUSB_U1IE.setURSTIE_DETACHIE(thebits : TBits_1); inline;
  58077. begin
  58078. if thebits = 0 then
  58079. pTDefRegMap(@Self)^.clr := $00000001
  58080. else
  58081. pTDefRegMap(@Self)^.&set := $00000001;
  58082. end;
  58083. function TUSB_U1IE.getURSTIE_DETACHIE : TBits_1; inline;
  58084. begin
  58085. getURSTIE_DETACHIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58086. end;
  58087. procedure TUSB_U1IE.setUERRIE; inline;
  58088. begin
  58089. pTDefRegMap(@Self)^.&set := $00000002;
  58090. end;
  58091. procedure TUSB_U1IE.clearUERRIE; inline;
  58092. begin
  58093. pTDefRegMap(@Self)^.clr := $00000002;
  58094. end;
  58095. procedure TUSB_U1IE.setUERRIE(thebits : TBits_1); inline;
  58096. begin
  58097. if thebits = 0 then
  58098. pTDefRegMap(@Self)^.clr := $00000002
  58099. else
  58100. pTDefRegMap(@Self)^.&set := $00000002;
  58101. end;
  58102. function TUSB_U1IE.getUERRIE : TBits_1; inline;
  58103. begin
  58104. getUERRIE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  58105. end;
  58106. procedure TUSB_U1IE.setSOFIE; inline;
  58107. begin
  58108. pTDefRegMap(@Self)^.&set := $00000004;
  58109. end;
  58110. procedure TUSB_U1IE.clearSOFIE; inline;
  58111. begin
  58112. pTDefRegMap(@Self)^.clr := $00000004;
  58113. end;
  58114. procedure TUSB_U1IE.setSOFIE(thebits : TBits_1); inline;
  58115. begin
  58116. if thebits = 0 then
  58117. pTDefRegMap(@Self)^.clr := $00000004
  58118. else
  58119. pTDefRegMap(@Self)^.&set := $00000004;
  58120. end;
  58121. function TUSB_U1IE.getSOFIE : TBits_1; inline;
  58122. begin
  58123. getSOFIE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  58124. end;
  58125. procedure TUSB_U1IE.setTRNIE; inline;
  58126. begin
  58127. pTDefRegMap(@Self)^.&set := $00000008;
  58128. end;
  58129. procedure TUSB_U1IE.clearTRNIE; inline;
  58130. begin
  58131. pTDefRegMap(@Self)^.clr := $00000008;
  58132. end;
  58133. procedure TUSB_U1IE.setTRNIE(thebits : TBits_1); inline;
  58134. begin
  58135. if thebits = 0 then
  58136. pTDefRegMap(@Self)^.clr := $00000008
  58137. else
  58138. pTDefRegMap(@Self)^.&set := $00000008;
  58139. end;
  58140. function TUSB_U1IE.getTRNIE : TBits_1; inline;
  58141. begin
  58142. getTRNIE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  58143. end;
  58144. procedure TUSB_U1IE.setIDLEIE; inline;
  58145. begin
  58146. pTDefRegMap(@Self)^.&set := $00000010;
  58147. end;
  58148. procedure TUSB_U1IE.clearIDLEIE; inline;
  58149. begin
  58150. pTDefRegMap(@Self)^.clr := $00000010;
  58151. end;
  58152. procedure TUSB_U1IE.setIDLEIE(thebits : TBits_1); inline;
  58153. begin
  58154. if thebits = 0 then
  58155. pTDefRegMap(@Self)^.clr := $00000010
  58156. else
  58157. pTDefRegMap(@Self)^.&set := $00000010;
  58158. end;
  58159. function TUSB_U1IE.getIDLEIE : TBits_1; inline;
  58160. begin
  58161. getIDLEIE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  58162. end;
  58163. procedure TUSB_U1IE.setRESUMEIE; inline;
  58164. begin
  58165. pTDefRegMap(@Self)^.&set := $00000020;
  58166. end;
  58167. procedure TUSB_U1IE.clearRESUMEIE; inline;
  58168. begin
  58169. pTDefRegMap(@Self)^.clr := $00000020;
  58170. end;
  58171. procedure TUSB_U1IE.setRESUMEIE(thebits : TBits_1); inline;
  58172. begin
  58173. if thebits = 0 then
  58174. pTDefRegMap(@Self)^.clr := $00000020
  58175. else
  58176. pTDefRegMap(@Self)^.&set := $00000020;
  58177. end;
  58178. function TUSB_U1IE.getRESUMEIE : TBits_1; inline;
  58179. begin
  58180. getRESUMEIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58181. end;
  58182. procedure TUSB_U1IE.setATTACHIE; inline;
  58183. begin
  58184. pTDefRegMap(@Self)^.&set := $00000040;
  58185. end;
  58186. procedure TUSB_U1IE.clearATTACHIE; inline;
  58187. begin
  58188. pTDefRegMap(@Self)^.clr := $00000040;
  58189. end;
  58190. procedure TUSB_U1IE.setATTACHIE(thebits : TBits_1); inline;
  58191. begin
  58192. if thebits = 0 then
  58193. pTDefRegMap(@Self)^.clr := $00000040
  58194. else
  58195. pTDefRegMap(@Self)^.&set := $00000040;
  58196. end;
  58197. function TUSB_U1IE.getATTACHIE : TBits_1; inline;
  58198. begin
  58199. getATTACHIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  58200. end;
  58201. procedure TUSB_U1IE.setSTALLIE; inline;
  58202. begin
  58203. pTDefRegMap(@Self)^.&set := $00000080;
  58204. end;
  58205. procedure TUSB_U1IE.clearSTALLIE; inline;
  58206. begin
  58207. pTDefRegMap(@Self)^.clr := $00000080;
  58208. end;
  58209. procedure TUSB_U1IE.setSTALLIE(thebits : TBits_1); inline;
  58210. begin
  58211. if thebits = 0 then
  58212. pTDefRegMap(@Self)^.clr := $00000080
  58213. else
  58214. pTDefRegMap(@Self)^.&set := $00000080;
  58215. end;
  58216. function TUSB_U1IE.getSTALLIE : TBits_1; inline;
  58217. begin
  58218. getSTALLIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58219. end;
  58220. procedure TUSB_U1IE.setDETACHIE; inline;
  58221. begin
  58222. pTDefRegMap(@Self)^.&set := $00000001;
  58223. end;
  58224. procedure TUSB_U1IE.clearDETACHIE; inline;
  58225. begin
  58226. pTDefRegMap(@Self)^.clr := $00000001;
  58227. end;
  58228. procedure TUSB_U1IE.setDETACHIE(thebits : TBits_1); inline;
  58229. begin
  58230. if thebits = 0 then
  58231. pTDefRegMap(@Self)^.clr := $00000001
  58232. else
  58233. pTDefRegMap(@Self)^.&set := $00000001;
  58234. end;
  58235. function TUSB_U1IE.getDETACHIE : TBits_1; inline;
  58236. begin
  58237. getDETACHIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58238. end;
  58239. procedure TUSB_U1IE.setURSTIE; inline;
  58240. begin
  58241. pTDefRegMap(@Self)^.&set := $00000001;
  58242. end;
  58243. procedure TUSB_U1IE.clearURSTIE; inline;
  58244. begin
  58245. pTDefRegMap(@Self)^.clr := $00000001;
  58246. end;
  58247. procedure TUSB_U1IE.setURSTIE(thebits : TBits_1); inline;
  58248. begin
  58249. if thebits = 0 then
  58250. pTDefRegMap(@Self)^.clr := $00000001
  58251. else
  58252. pTDefRegMap(@Self)^.&set := $00000001;
  58253. end;
  58254. function TUSB_U1IE.getURSTIE : TBits_1; inline;
  58255. begin
  58256. getURSTIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58257. end;
  58258. procedure TUSB_U1EIR.setPIDEF; inline;
  58259. begin
  58260. pTDefRegMap(@Self)^.&set := $00000001;
  58261. end;
  58262. procedure TUSB_U1EIR.clearPIDEF; inline;
  58263. begin
  58264. pTDefRegMap(@Self)^.clr := $00000001;
  58265. end;
  58266. procedure TUSB_U1EIR.setPIDEF(thebits : TBits_1); inline;
  58267. begin
  58268. if thebits = 0 then
  58269. pTDefRegMap(@Self)^.clr := $00000001
  58270. else
  58271. pTDefRegMap(@Self)^.&set := $00000001;
  58272. end;
  58273. function TUSB_U1EIR.getPIDEF : TBits_1; inline;
  58274. begin
  58275. getPIDEF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58276. end;
  58277. procedure TUSB_U1EIR.setCRC5EF_EOFEF; inline;
  58278. begin
  58279. pTDefRegMap(@Self)^.&set := $00000002;
  58280. end;
  58281. procedure TUSB_U1EIR.clearCRC5EF_EOFEF; inline;
  58282. begin
  58283. pTDefRegMap(@Self)^.clr := $00000002;
  58284. end;
  58285. procedure TUSB_U1EIR.setCRC5EF_EOFEF(thebits : TBits_1); inline;
  58286. begin
  58287. if thebits = 0 then
  58288. pTDefRegMap(@Self)^.clr := $00000002
  58289. else
  58290. pTDefRegMap(@Self)^.&set := $00000002;
  58291. end;
  58292. function TUSB_U1EIR.getCRC5EF_EOFEF : TBits_1; inline;
  58293. begin
  58294. getCRC5EF_EOFEF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  58295. end;
  58296. procedure TUSB_U1EIR.setCRC16EF; inline;
  58297. begin
  58298. pTDefRegMap(@Self)^.&set := $00000004;
  58299. end;
  58300. procedure TUSB_U1EIR.clearCRC16EF; inline;
  58301. begin
  58302. pTDefRegMap(@Self)^.clr := $00000004;
  58303. end;
  58304. procedure TUSB_U1EIR.setCRC16EF(thebits : TBits_1); inline;
  58305. begin
  58306. if thebits = 0 then
  58307. pTDefRegMap(@Self)^.clr := $00000004
  58308. else
  58309. pTDefRegMap(@Self)^.&set := $00000004;
  58310. end;
  58311. function TUSB_U1EIR.getCRC16EF : TBits_1; inline;
  58312. begin
  58313. getCRC16EF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  58314. end;
  58315. procedure TUSB_U1EIR.setDFN8EF; inline;
  58316. begin
  58317. pTDefRegMap(@Self)^.&set := $00000008;
  58318. end;
  58319. procedure TUSB_U1EIR.clearDFN8EF; inline;
  58320. begin
  58321. pTDefRegMap(@Self)^.clr := $00000008;
  58322. end;
  58323. procedure TUSB_U1EIR.setDFN8EF(thebits : TBits_1); inline;
  58324. begin
  58325. if thebits = 0 then
  58326. pTDefRegMap(@Self)^.clr := $00000008
  58327. else
  58328. pTDefRegMap(@Self)^.&set := $00000008;
  58329. end;
  58330. function TUSB_U1EIR.getDFN8EF : TBits_1; inline;
  58331. begin
  58332. getDFN8EF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  58333. end;
  58334. procedure TUSB_U1EIR.setBTOEF; inline;
  58335. begin
  58336. pTDefRegMap(@Self)^.&set := $00000010;
  58337. end;
  58338. procedure TUSB_U1EIR.clearBTOEF; inline;
  58339. begin
  58340. pTDefRegMap(@Self)^.clr := $00000010;
  58341. end;
  58342. procedure TUSB_U1EIR.setBTOEF(thebits : TBits_1); inline;
  58343. begin
  58344. if thebits = 0 then
  58345. pTDefRegMap(@Self)^.clr := $00000010
  58346. else
  58347. pTDefRegMap(@Self)^.&set := $00000010;
  58348. end;
  58349. function TUSB_U1EIR.getBTOEF : TBits_1; inline;
  58350. begin
  58351. getBTOEF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  58352. end;
  58353. procedure TUSB_U1EIR.setDMAEF; inline;
  58354. begin
  58355. pTDefRegMap(@Self)^.&set := $00000020;
  58356. end;
  58357. procedure TUSB_U1EIR.clearDMAEF; inline;
  58358. begin
  58359. pTDefRegMap(@Self)^.clr := $00000020;
  58360. end;
  58361. procedure TUSB_U1EIR.setDMAEF(thebits : TBits_1); inline;
  58362. begin
  58363. if thebits = 0 then
  58364. pTDefRegMap(@Self)^.clr := $00000020
  58365. else
  58366. pTDefRegMap(@Self)^.&set := $00000020;
  58367. end;
  58368. function TUSB_U1EIR.getDMAEF : TBits_1; inline;
  58369. begin
  58370. getDMAEF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58371. end;
  58372. procedure TUSB_U1EIR.setBMXEF; inline;
  58373. begin
  58374. pTDefRegMap(@Self)^.&set := $00000040;
  58375. end;
  58376. procedure TUSB_U1EIR.clearBMXEF; inline;
  58377. begin
  58378. pTDefRegMap(@Self)^.clr := $00000040;
  58379. end;
  58380. procedure TUSB_U1EIR.setBMXEF(thebits : TBits_1); inline;
  58381. begin
  58382. if thebits = 0 then
  58383. pTDefRegMap(@Self)^.clr := $00000040
  58384. else
  58385. pTDefRegMap(@Self)^.&set := $00000040;
  58386. end;
  58387. function TUSB_U1EIR.getBMXEF : TBits_1; inline;
  58388. begin
  58389. getBMXEF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  58390. end;
  58391. procedure TUSB_U1EIR.setBTSEF; inline;
  58392. begin
  58393. pTDefRegMap(@Self)^.&set := $00000080;
  58394. end;
  58395. procedure TUSB_U1EIR.clearBTSEF; inline;
  58396. begin
  58397. pTDefRegMap(@Self)^.clr := $00000080;
  58398. end;
  58399. procedure TUSB_U1EIR.setBTSEF(thebits : TBits_1); inline;
  58400. begin
  58401. if thebits = 0 then
  58402. pTDefRegMap(@Self)^.clr := $00000080
  58403. else
  58404. pTDefRegMap(@Self)^.&set := $00000080;
  58405. end;
  58406. function TUSB_U1EIR.getBTSEF : TBits_1; inline;
  58407. begin
  58408. getBTSEF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58409. end;
  58410. procedure TUSB_U1EIR.setCRC5EF; inline;
  58411. begin
  58412. pTDefRegMap(@Self)^.&set := $00000002;
  58413. end;
  58414. procedure TUSB_U1EIR.clearCRC5EF; inline;
  58415. begin
  58416. pTDefRegMap(@Self)^.clr := $00000002;
  58417. end;
  58418. procedure TUSB_U1EIR.setCRC5EF(thebits : TBits_1); inline;
  58419. begin
  58420. if thebits = 0 then
  58421. pTDefRegMap(@Self)^.clr := $00000002
  58422. else
  58423. pTDefRegMap(@Self)^.&set := $00000002;
  58424. end;
  58425. function TUSB_U1EIR.getCRC5EF : TBits_1; inline;
  58426. begin
  58427. getCRC5EF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  58428. end;
  58429. procedure TUSB_U1EIR.setEOFEF; inline;
  58430. begin
  58431. pTDefRegMap(@Self)^.&set := $00000002;
  58432. end;
  58433. procedure TUSB_U1EIR.clearEOFEF; inline;
  58434. begin
  58435. pTDefRegMap(@Self)^.clr := $00000002;
  58436. end;
  58437. procedure TUSB_U1EIR.setEOFEF(thebits : TBits_1); inline;
  58438. begin
  58439. if thebits = 0 then
  58440. pTDefRegMap(@Self)^.clr := $00000002
  58441. else
  58442. pTDefRegMap(@Self)^.&set := $00000002;
  58443. end;
  58444. function TUSB_U1EIR.getEOFEF : TBits_1; inline;
  58445. begin
  58446. getEOFEF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  58447. end;
  58448. procedure TUSB_U1EIE.setPIDEE; inline;
  58449. begin
  58450. pTDefRegMap(@Self)^.&set := $00000001;
  58451. end;
  58452. procedure TUSB_U1EIE.clearPIDEE; inline;
  58453. begin
  58454. pTDefRegMap(@Self)^.clr := $00000001;
  58455. end;
  58456. procedure TUSB_U1EIE.setPIDEE(thebits : TBits_1); inline;
  58457. begin
  58458. if thebits = 0 then
  58459. pTDefRegMap(@Self)^.clr := $00000001
  58460. else
  58461. pTDefRegMap(@Self)^.&set := $00000001;
  58462. end;
  58463. function TUSB_U1EIE.getPIDEE : TBits_1; inline;
  58464. begin
  58465. getPIDEE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58466. end;
  58467. procedure TUSB_U1EIE.setCRC5EE_EOFEE; inline;
  58468. begin
  58469. pTDefRegMap(@Self)^.&set := $00000002;
  58470. end;
  58471. procedure TUSB_U1EIE.clearCRC5EE_EOFEE; inline;
  58472. begin
  58473. pTDefRegMap(@Self)^.clr := $00000002;
  58474. end;
  58475. procedure TUSB_U1EIE.setCRC5EE_EOFEE(thebits : TBits_1); inline;
  58476. begin
  58477. if thebits = 0 then
  58478. pTDefRegMap(@Self)^.clr := $00000002
  58479. else
  58480. pTDefRegMap(@Self)^.&set := $00000002;
  58481. end;
  58482. function TUSB_U1EIE.getCRC5EE_EOFEE : TBits_1; inline;
  58483. begin
  58484. getCRC5EE_EOFEE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  58485. end;
  58486. procedure TUSB_U1EIE.setCRC16EE; inline;
  58487. begin
  58488. pTDefRegMap(@Self)^.&set := $00000004;
  58489. end;
  58490. procedure TUSB_U1EIE.clearCRC16EE; inline;
  58491. begin
  58492. pTDefRegMap(@Self)^.clr := $00000004;
  58493. end;
  58494. procedure TUSB_U1EIE.setCRC16EE(thebits : TBits_1); inline;
  58495. begin
  58496. if thebits = 0 then
  58497. pTDefRegMap(@Self)^.clr := $00000004
  58498. else
  58499. pTDefRegMap(@Self)^.&set := $00000004;
  58500. end;
  58501. function TUSB_U1EIE.getCRC16EE : TBits_1; inline;
  58502. begin
  58503. getCRC16EE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  58504. end;
  58505. procedure TUSB_U1EIE.setDFN8EE; inline;
  58506. begin
  58507. pTDefRegMap(@Self)^.&set := $00000008;
  58508. end;
  58509. procedure TUSB_U1EIE.clearDFN8EE; inline;
  58510. begin
  58511. pTDefRegMap(@Self)^.clr := $00000008;
  58512. end;
  58513. procedure TUSB_U1EIE.setDFN8EE(thebits : TBits_1); inline;
  58514. begin
  58515. if thebits = 0 then
  58516. pTDefRegMap(@Self)^.clr := $00000008
  58517. else
  58518. pTDefRegMap(@Self)^.&set := $00000008;
  58519. end;
  58520. function TUSB_U1EIE.getDFN8EE : TBits_1; inline;
  58521. begin
  58522. getDFN8EE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  58523. end;
  58524. procedure TUSB_U1EIE.setBTOEE; inline;
  58525. begin
  58526. pTDefRegMap(@Self)^.&set := $00000010;
  58527. end;
  58528. procedure TUSB_U1EIE.clearBTOEE; inline;
  58529. begin
  58530. pTDefRegMap(@Self)^.clr := $00000010;
  58531. end;
  58532. procedure TUSB_U1EIE.setBTOEE(thebits : TBits_1); inline;
  58533. begin
  58534. if thebits = 0 then
  58535. pTDefRegMap(@Self)^.clr := $00000010
  58536. else
  58537. pTDefRegMap(@Self)^.&set := $00000010;
  58538. end;
  58539. function TUSB_U1EIE.getBTOEE : TBits_1; inline;
  58540. begin
  58541. getBTOEE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  58542. end;
  58543. procedure TUSB_U1EIE.setDMAEE; inline;
  58544. begin
  58545. pTDefRegMap(@Self)^.&set := $00000020;
  58546. end;
  58547. procedure TUSB_U1EIE.clearDMAEE; inline;
  58548. begin
  58549. pTDefRegMap(@Self)^.clr := $00000020;
  58550. end;
  58551. procedure TUSB_U1EIE.setDMAEE(thebits : TBits_1); inline;
  58552. begin
  58553. if thebits = 0 then
  58554. pTDefRegMap(@Self)^.clr := $00000020
  58555. else
  58556. pTDefRegMap(@Self)^.&set := $00000020;
  58557. end;
  58558. function TUSB_U1EIE.getDMAEE : TBits_1; inline;
  58559. begin
  58560. getDMAEE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58561. end;
  58562. procedure TUSB_U1EIE.setBMXEE; inline;
  58563. begin
  58564. pTDefRegMap(@Self)^.&set := $00000040;
  58565. end;
  58566. procedure TUSB_U1EIE.clearBMXEE; inline;
  58567. begin
  58568. pTDefRegMap(@Self)^.clr := $00000040;
  58569. end;
  58570. procedure TUSB_U1EIE.setBMXEE(thebits : TBits_1); inline;
  58571. begin
  58572. if thebits = 0 then
  58573. pTDefRegMap(@Self)^.clr := $00000040
  58574. else
  58575. pTDefRegMap(@Self)^.&set := $00000040;
  58576. end;
  58577. function TUSB_U1EIE.getBMXEE : TBits_1; inline;
  58578. begin
  58579. getBMXEE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  58580. end;
  58581. procedure TUSB_U1EIE.setBTSEE; inline;
  58582. begin
  58583. pTDefRegMap(@Self)^.&set := $00000080;
  58584. end;
  58585. procedure TUSB_U1EIE.clearBTSEE; inline;
  58586. begin
  58587. pTDefRegMap(@Self)^.clr := $00000080;
  58588. end;
  58589. procedure TUSB_U1EIE.setBTSEE(thebits : TBits_1); inline;
  58590. begin
  58591. if thebits = 0 then
  58592. pTDefRegMap(@Self)^.clr := $00000080
  58593. else
  58594. pTDefRegMap(@Self)^.&set := $00000080;
  58595. end;
  58596. function TUSB_U1EIE.getBTSEE : TBits_1; inline;
  58597. begin
  58598. getBTSEE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58599. end;
  58600. procedure TUSB_U1EIE.setCRC5EE; inline;
  58601. begin
  58602. pTDefRegMap(@Self)^.&set := $00000002;
  58603. end;
  58604. procedure TUSB_U1EIE.clearCRC5EE; inline;
  58605. begin
  58606. pTDefRegMap(@Self)^.clr := $00000002;
  58607. end;
  58608. procedure TUSB_U1EIE.setCRC5EE(thebits : TBits_1); inline;
  58609. begin
  58610. if thebits = 0 then
  58611. pTDefRegMap(@Self)^.clr := $00000002
  58612. else
  58613. pTDefRegMap(@Self)^.&set := $00000002;
  58614. end;
  58615. function TUSB_U1EIE.getCRC5EE : TBits_1; inline;
  58616. begin
  58617. getCRC5EE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  58618. end;
  58619. procedure TUSB_U1EIE.setEOFEE; inline;
  58620. begin
  58621. pTDefRegMap(@Self)^.&set := $00000002;
  58622. end;
  58623. procedure TUSB_U1EIE.clearEOFEE; inline;
  58624. begin
  58625. pTDefRegMap(@Self)^.clr := $00000002;
  58626. end;
  58627. procedure TUSB_U1EIE.setEOFEE(thebits : TBits_1); inline;
  58628. begin
  58629. if thebits = 0 then
  58630. pTDefRegMap(@Self)^.clr := $00000002
  58631. else
  58632. pTDefRegMap(@Self)^.&set := $00000002;
  58633. end;
  58634. function TUSB_U1EIE.getEOFEE : TBits_1; inline;
  58635. begin
  58636. getEOFEE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  58637. end;
  58638. procedure TUSB_U1STAT.setPPBI; inline;
  58639. begin
  58640. pTDefRegMap(@Self)^.&set := $00000004;
  58641. end;
  58642. procedure TUSB_U1STAT.clearPPBI; inline;
  58643. begin
  58644. pTDefRegMap(@Self)^.clr := $00000004;
  58645. end;
  58646. procedure TUSB_U1STAT.setPPBI(thebits : TBits_1); inline;
  58647. begin
  58648. if thebits = 0 then
  58649. pTDefRegMap(@Self)^.clr := $00000004
  58650. else
  58651. pTDefRegMap(@Self)^.&set := $00000004;
  58652. end;
  58653. function TUSB_U1STAT.getPPBI : TBits_1; inline;
  58654. begin
  58655. getPPBI := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  58656. end;
  58657. procedure TUSB_U1STAT.setDIR; inline;
  58658. begin
  58659. pTDefRegMap(@Self)^.&set := $00000008;
  58660. end;
  58661. procedure TUSB_U1STAT.clearDIR; inline;
  58662. begin
  58663. pTDefRegMap(@Self)^.clr := $00000008;
  58664. end;
  58665. procedure TUSB_U1STAT.setDIR(thebits : TBits_1); inline;
  58666. begin
  58667. if thebits = 0 then
  58668. pTDefRegMap(@Self)^.clr := $00000008
  58669. else
  58670. pTDefRegMap(@Self)^.&set := $00000008;
  58671. end;
  58672. function TUSB_U1STAT.getDIR : TBits_1; inline;
  58673. begin
  58674. getDIR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  58675. end;
  58676. procedure TUSB_U1STAT.setENDPT(thebits : TBits_4); inline;
  58677. begin
  58678. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF0F or ( thebits shl 4 );
  58679. end;
  58680. function TUSB_U1STAT.getENDPT : TBits_4; inline;
  58681. begin
  58682. getENDPT := (pTDefRegMap(@Self)^.val and $000000F0) shr 4;
  58683. end;
  58684. procedure TUSB_U1STAT.setENDPT0; inline;
  58685. begin
  58686. pTDefRegMap(@Self)^.&set := $00000010;
  58687. end;
  58688. procedure TUSB_U1STAT.clearENDPT0; inline;
  58689. begin
  58690. pTDefRegMap(@Self)^.clr := $00000010;
  58691. end;
  58692. procedure TUSB_U1STAT.setENDPT0(thebits : TBits_1); inline;
  58693. begin
  58694. if thebits = 0 then
  58695. pTDefRegMap(@Self)^.clr := $00000010
  58696. else
  58697. pTDefRegMap(@Self)^.&set := $00000010;
  58698. end;
  58699. function TUSB_U1STAT.getENDPT0 : TBits_1; inline;
  58700. begin
  58701. getENDPT0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  58702. end;
  58703. procedure TUSB_U1STAT.setENDPT1; inline;
  58704. begin
  58705. pTDefRegMap(@Self)^.&set := $00000020;
  58706. end;
  58707. procedure TUSB_U1STAT.clearENDPT1; inline;
  58708. begin
  58709. pTDefRegMap(@Self)^.clr := $00000020;
  58710. end;
  58711. procedure TUSB_U1STAT.setENDPT1(thebits : TBits_1); inline;
  58712. begin
  58713. if thebits = 0 then
  58714. pTDefRegMap(@Self)^.clr := $00000020
  58715. else
  58716. pTDefRegMap(@Self)^.&set := $00000020;
  58717. end;
  58718. function TUSB_U1STAT.getENDPT1 : TBits_1; inline;
  58719. begin
  58720. getENDPT1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58721. end;
  58722. procedure TUSB_U1STAT.setENDPT2; inline;
  58723. begin
  58724. pTDefRegMap(@Self)^.&set := $00000040;
  58725. end;
  58726. procedure TUSB_U1STAT.clearENDPT2; inline;
  58727. begin
  58728. pTDefRegMap(@Self)^.clr := $00000040;
  58729. end;
  58730. procedure TUSB_U1STAT.setENDPT2(thebits : TBits_1); inline;
  58731. begin
  58732. if thebits = 0 then
  58733. pTDefRegMap(@Self)^.clr := $00000040
  58734. else
  58735. pTDefRegMap(@Self)^.&set := $00000040;
  58736. end;
  58737. function TUSB_U1STAT.getENDPT2 : TBits_1; inline;
  58738. begin
  58739. getENDPT2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  58740. end;
  58741. procedure TUSB_U1STAT.setENDPT3; inline;
  58742. begin
  58743. pTDefRegMap(@Self)^.&set := $00000080;
  58744. end;
  58745. procedure TUSB_U1STAT.clearENDPT3; inline;
  58746. begin
  58747. pTDefRegMap(@Self)^.clr := $00000080;
  58748. end;
  58749. procedure TUSB_U1STAT.setENDPT3(thebits : TBits_1); inline;
  58750. begin
  58751. if thebits = 0 then
  58752. pTDefRegMap(@Self)^.clr := $00000080
  58753. else
  58754. pTDefRegMap(@Self)^.&set := $00000080;
  58755. end;
  58756. function TUSB_U1STAT.getENDPT3 : TBits_1; inline;
  58757. begin
  58758. getENDPT3 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58759. end;
  58760. procedure TUSB_U1CON.setUSBEN_SOFEN; inline;
  58761. begin
  58762. pTDefRegMap(@Self)^.&set := $00000001;
  58763. end;
  58764. procedure TUSB_U1CON.clearUSBEN_SOFEN; inline;
  58765. begin
  58766. pTDefRegMap(@Self)^.clr := $00000001;
  58767. end;
  58768. procedure TUSB_U1CON.setUSBEN_SOFEN(thebits : TBits_1); inline;
  58769. begin
  58770. if thebits = 0 then
  58771. pTDefRegMap(@Self)^.clr := $00000001
  58772. else
  58773. pTDefRegMap(@Self)^.&set := $00000001;
  58774. end;
  58775. function TUSB_U1CON.getUSBEN_SOFEN : TBits_1; inline;
  58776. begin
  58777. getUSBEN_SOFEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58778. end;
  58779. procedure TUSB_U1CON.setPPBRST; inline;
  58780. begin
  58781. pTDefRegMap(@Self)^.&set := $00000002;
  58782. end;
  58783. procedure TUSB_U1CON.clearPPBRST; inline;
  58784. begin
  58785. pTDefRegMap(@Self)^.clr := $00000002;
  58786. end;
  58787. procedure TUSB_U1CON.setPPBRST(thebits : TBits_1); inline;
  58788. begin
  58789. if thebits = 0 then
  58790. pTDefRegMap(@Self)^.clr := $00000002
  58791. else
  58792. pTDefRegMap(@Self)^.&set := $00000002;
  58793. end;
  58794. function TUSB_U1CON.getPPBRST : TBits_1; inline;
  58795. begin
  58796. getPPBRST := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  58797. end;
  58798. procedure TUSB_U1CON.setRESUME; inline;
  58799. begin
  58800. pTDefRegMap(@Self)^.&set := $00000004;
  58801. end;
  58802. procedure TUSB_U1CON.clearRESUME; inline;
  58803. begin
  58804. pTDefRegMap(@Self)^.clr := $00000004;
  58805. end;
  58806. procedure TUSB_U1CON.setRESUME(thebits : TBits_1); inline;
  58807. begin
  58808. if thebits = 0 then
  58809. pTDefRegMap(@Self)^.clr := $00000004
  58810. else
  58811. pTDefRegMap(@Self)^.&set := $00000004;
  58812. end;
  58813. function TUSB_U1CON.getRESUME : TBits_1; inline;
  58814. begin
  58815. getRESUME := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  58816. end;
  58817. procedure TUSB_U1CON.setHOSTEN; inline;
  58818. begin
  58819. pTDefRegMap(@Self)^.&set := $00000008;
  58820. end;
  58821. procedure TUSB_U1CON.clearHOSTEN; inline;
  58822. begin
  58823. pTDefRegMap(@Self)^.clr := $00000008;
  58824. end;
  58825. procedure TUSB_U1CON.setHOSTEN(thebits : TBits_1); inline;
  58826. begin
  58827. if thebits = 0 then
  58828. pTDefRegMap(@Self)^.clr := $00000008
  58829. else
  58830. pTDefRegMap(@Self)^.&set := $00000008;
  58831. end;
  58832. function TUSB_U1CON.getHOSTEN : TBits_1; inline;
  58833. begin
  58834. getHOSTEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  58835. end;
  58836. procedure TUSB_U1CON.setUSBRST; inline;
  58837. begin
  58838. pTDefRegMap(@Self)^.&set := $00000010;
  58839. end;
  58840. procedure TUSB_U1CON.clearUSBRST; inline;
  58841. begin
  58842. pTDefRegMap(@Self)^.clr := $00000010;
  58843. end;
  58844. procedure TUSB_U1CON.setUSBRST(thebits : TBits_1); inline;
  58845. begin
  58846. if thebits = 0 then
  58847. pTDefRegMap(@Self)^.clr := $00000010
  58848. else
  58849. pTDefRegMap(@Self)^.&set := $00000010;
  58850. end;
  58851. function TUSB_U1CON.getUSBRST : TBits_1; inline;
  58852. begin
  58853. getUSBRST := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  58854. end;
  58855. procedure TUSB_U1CON.setPKTDIS_TOKBUSY; inline;
  58856. begin
  58857. pTDefRegMap(@Self)^.&set := $00000020;
  58858. end;
  58859. procedure TUSB_U1CON.clearPKTDIS_TOKBUSY; inline;
  58860. begin
  58861. pTDefRegMap(@Self)^.clr := $00000020;
  58862. end;
  58863. procedure TUSB_U1CON.setPKTDIS_TOKBUSY(thebits : TBits_1); inline;
  58864. begin
  58865. if thebits = 0 then
  58866. pTDefRegMap(@Self)^.clr := $00000020
  58867. else
  58868. pTDefRegMap(@Self)^.&set := $00000020;
  58869. end;
  58870. function TUSB_U1CON.getPKTDIS_TOKBUSY : TBits_1; inline;
  58871. begin
  58872. getPKTDIS_TOKBUSY := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58873. end;
  58874. procedure TUSB_U1CON.setSE0; inline;
  58875. begin
  58876. pTDefRegMap(@Self)^.&set := $00000040;
  58877. end;
  58878. procedure TUSB_U1CON.clearSE0; inline;
  58879. begin
  58880. pTDefRegMap(@Self)^.clr := $00000040;
  58881. end;
  58882. procedure TUSB_U1CON.setSE0(thebits : TBits_1); inline;
  58883. begin
  58884. if thebits = 0 then
  58885. pTDefRegMap(@Self)^.clr := $00000040
  58886. else
  58887. pTDefRegMap(@Self)^.&set := $00000040;
  58888. end;
  58889. function TUSB_U1CON.getSE0 : TBits_1; inline;
  58890. begin
  58891. getSE0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  58892. end;
  58893. procedure TUSB_U1CON.setJSTATE; inline;
  58894. begin
  58895. pTDefRegMap(@Self)^.&set := $00000080;
  58896. end;
  58897. procedure TUSB_U1CON.clearJSTATE; inline;
  58898. begin
  58899. pTDefRegMap(@Self)^.clr := $00000080;
  58900. end;
  58901. procedure TUSB_U1CON.setJSTATE(thebits : TBits_1); inline;
  58902. begin
  58903. if thebits = 0 then
  58904. pTDefRegMap(@Self)^.clr := $00000080
  58905. else
  58906. pTDefRegMap(@Self)^.&set := $00000080;
  58907. end;
  58908. function TUSB_U1CON.getJSTATE : TBits_1; inline;
  58909. begin
  58910. getJSTATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58911. end;
  58912. procedure TUSB_U1CON.setUSBEN; inline;
  58913. begin
  58914. pTDefRegMap(@Self)^.&set := $00000001;
  58915. end;
  58916. procedure TUSB_U1CON.clearUSBEN; inline;
  58917. begin
  58918. pTDefRegMap(@Self)^.clr := $00000001;
  58919. end;
  58920. procedure TUSB_U1CON.setUSBEN(thebits : TBits_1); inline;
  58921. begin
  58922. if thebits = 0 then
  58923. pTDefRegMap(@Self)^.clr := $00000001
  58924. else
  58925. pTDefRegMap(@Self)^.&set := $00000001;
  58926. end;
  58927. function TUSB_U1CON.getUSBEN : TBits_1; inline;
  58928. begin
  58929. getUSBEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58930. end;
  58931. procedure TUSB_U1CON.setSOFEN; inline;
  58932. begin
  58933. pTDefRegMap(@Self)^.&set := $00000001;
  58934. end;
  58935. procedure TUSB_U1CON.clearSOFEN; inline;
  58936. begin
  58937. pTDefRegMap(@Self)^.clr := $00000001;
  58938. end;
  58939. procedure TUSB_U1CON.setSOFEN(thebits : TBits_1); inline;
  58940. begin
  58941. if thebits = 0 then
  58942. pTDefRegMap(@Self)^.clr := $00000001
  58943. else
  58944. pTDefRegMap(@Self)^.&set := $00000001;
  58945. end;
  58946. function TUSB_U1CON.getSOFEN : TBits_1; inline;
  58947. begin
  58948. getSOFEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58949. end;
  58950. procedure TUSB_U1CON.setPKTDIS; inline;
  58951. begin
  58952. pTDefRegMap(@Self)^.&set := $00000020;
  58953. end;
  58954. procedure TUSB_U1CON.clearPKTDIS; inline;
  58955. begin
  58956. pTDefRegMap(@Self)^.clr := $00000020;
  58957. end;
  58958. procedure TUSB_U1CON.setPKTDIS(thebits : TBits_1); inline;
  58959. begin
  58960. if thebits = 0 then
  58961. pTDefRegMap(@Self)^.clr := $00000020
  58962. else
  58963. pTDefRegMap(@Self)^.&set := $00000020;
  58964. end;
  58965. function TUSB_U1CON.getPKTDIS : TBits_1; inline;
  58966. begin
  58967. getPKTDIS := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58968. end;
  58969. procedure TUSB_U1CON.setTOKBUSY; inline;
  58970. begin
  58971. pTDefRegMap(@Self)^.&set := $00000020;
  58972. end;
  58973. procedure TUSB_U1CON.clearTOKBUSY; inline;
  58974. begin
  58975. pTDefRegMap(@Self)^.clr := $00000020;
  58976. end;
  58977. procedure TUSB_U1CON.setTOKBUSY(thebits : TBits_1); inline;
  58978. begin
  58979. if thebits = 0 then
  58980. pTDefRegMap(@Self)^.clr := $00000020
  58981. else
  58982. pTDefRegMap(@Self)^.&set := $00000020;
  58983. end;
  58984. function TUSB_U1CON.getTOKBUSY : TBits_1; inline;
  58985. begin
  58986. getTOKBUSY := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58987. end;
  58988. procedure TUSB_U1ADDR.setDEVADDR(thebits : TBits_7); inline;
  58989. begin
  58990. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF80 or ( thebits shl 0 );
  58991. end;
  58992. function TUSB_U1ADDR.getDEVADDR : TBits_7; inline;
  58993. begin
  58994. getDEVADDR := (pTDefRegMap(@Self)^.val and $0000007F) shr 0;
  58995. end;
  58996. procedure TUSB_U1ADDR.setLSPDEN; inline;
  58997. begin
  58998. pTDefRegMap(@Self)^.&set := $00000080;
  58999. end;
  59000. procedure TUSB_U1ADDR.clearLSPDEN; inline;
  59001. begin
  59002. pTDefRegMap(@Self)^.clr := $00000080;
  59003. end;
  59004. procedure TUSB_U1ADDR.setLSPDEN(thebits : TBits_1); inline;
  59005. begin
  59006. if thebits = 0 then
  59007. pTDefRegMap(@Self)^.clr := $00000080
  59008. else
  59009. pTDefRegMap(@Self)^.&set := $00000080;
  59010. end;
  59011. function TUSB_U1ADDR.getLSPDEN : TBits_1; inline;
  59012. begin
  59013. getLSPDEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  59014. end;
  59015. procedure TUSB_U1ADDR.setDEVADDR0; inline;
  59016. begin
  59017. pTDefRegMap(@Self)^.&set := $00000001;
  59018. end;
  59019. procedure TUSB_U1ADDR.clearDEVADDR0; inline;
  59020. begin
  59021. pTDefRegMap(@Self)^.clr := $00000001;
  59022. end;
  59023. procedure TUSB_U1ADDR.setDEVADDR0(thebits : TBits_1); inline;
  59024. begin
  59025. if thebits = 0 then
  59026. pTDefRegMap(@Self)^.clr := $00000001
  59027. else
  59028. pTDefRegMap(@Self)^.&set := $00000001;
  59029. end;
  59030. function TUSB_U1ADDR.getDEVADDR0 : TBits_1; inline;
  59031. begin
  59032. getDEVADDR0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  59033. end;
  59034. procedure TUSB_U1ADDR.setDEVADDR1; inline;
  59035. begin
  59036. pTDefRegMap(@Self)^.&set := $00000002;
  59037. end;
  59038. procedure TUSB_U1ADDR.clearDEVADDR1; inline;
  59039. begin
  59040. pTDefRegMap(@Self)^.clr := $00000002;
  59041. end;
  59042. procedure TUSB_U1ADDR.setDEVADDR1(thebits : TBits_1); inline;
  59043. begin
  59044. if thebits = 0 then
  59045. pTDefRegMap(@Self)^.clr := $00000002
  59046. else
  59047. pTDefRegMap(@Self)^.&set := $00000002;
  59048. end;
  59049. function TUSB_U1ADDR.getDEVADDR1 : TBits_1; inline;
  59050. begin
  59051. getDEVADDR1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  59052. end;
  59053. procedure TUSB_U1ADDR.setDEVADDR2; inline;
  59054. begin
  59055. pTDefRegMap(@Self)^.&set := $00000004;
  59056. end;
  59057. procedure TUSB_U1ADDR.clearDEVADDR2; inline;
  59058. begin
  59059. pTDefRegMap(@Self)^.clr := $00000004;
  59060. end;
  59061. procedure TUSB_U1ADDR.setDEVADDR2(thebits : TBits_1); inline;
  59062. begin
  59063. if thebits = 0 then
  59064. pTDefRegMap(@Self)^.clr := $00000004
  59065. else
  59066. pTDefRegMap(@Self)^.&set := $00000004;
  59067. end;
  59068. function TUSB_U1ADDR.getDEVADDR2 : TBits_1; inline;
  59069. begin
  59070. getDEVADDR2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  59071. end;
  59072. procedure TUSB_U1ADDR.setDEVADDR3; inline;
  59073. begin
  59074. pTDefRegMap(@Self)^.&set := $00000008;
  59075. end;
  59076. procedure TUSB_U1ADDR.clearDEVADDR3; inline;
  59077. begin
  59078. pTDefRegMap(@Self)^.clr := $00000008;
  59079. end;
  59080. procedure TUSB_U1ADDR.setDEVADDR3(thebits : TBits_1); inline;
  59081. begin
  59082. if thebits = 0 then
  59083. pTDefRegMap(@Self)^.clr := $00000008
  59084. else
  59085. pTDefRegMap(@Self)^.&set := $00000008;
  59086. end;
  59087. function TUSB_U1ADDR.getDEVADDR3 : TBits_1; inline;
  59088. begin
  59089. getDEVADDR3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  59090. end;
  59091. procedure TUSB_U1ADDR.setDEVADDR4; inline;
  59092. begin
  59093. pTDefRegMap(@Self)^.&set := $00000010;
  59094. end;
  59095. procedure TUSB_U1ADDR.clearDEVADDR4; inline;
  59096. begin
  59097. pTDefRegMap(@Self)^.clr := $00000010;
  59098. end;
  59099. procedure TUSB_U1ADDR.setDEVADDR4(thebits : TBits_1); inline;
  59100. begin
  59101. if thebits = 0 then
  59102. pTDefRegMap(@Self)^.clr := $00000010
  59103. else
  59104. pTDefRegMap(@Self)^.&set := $00000010;
  59105. end;
  59106. function TUSB_U1ADDR.getDEVADDR4 : TBits_1; inline;
  59107. begin
  59108. getDEVADDR4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  59109. end;
  59110. procedure TUSB_U1ADDR.setDEVADDR5; inline;
  59111. begin
  59112. pTDefRegMap(@Self)^.&set := $00000020;
  59113. end;
  59114. procedure TUSB_U1ADDR.clearDEVADDR5; inline;
  59115. begin
  59116. pTDefRegMap(@Self)^.clr := $00000020;
  59117. end;
  59118. procedure TUSB_U1ADDR.setDEVADDR5(thebits : TBits_1); inline;
  59119. begin
  59120. if thebits = 0 then
  59121. pTDefRegMap(@Self)^.clr := $00000020
  59122. else
  59123. pTDefRegMap(@Self)^.&set := $00000020;
  59124. end;
  59125. function TUSB_U1ADDR.getDEVADDR5 : TBits_1; inline;
  59126. begin
  59127. getDEVADDR5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  59128. end;
  59129. procedure TUSB_U1ADDR.setDEVADDR6; inline;
  59130. begin
  59131. pTDefRegMap(@Self)^.&set := $00000040;
  59132. end;
  59133. procedure TUSB_U1ADDR.clearDEVADDR6; inline;
  59134. begin
  59135. pTDefRegMap(@Self)^.clr := $00000040;
  59136. end;
  59137. procedure TUSB_U1ADDR.setDEVADDR6(thebits : TBits_1); inline;
  59138. begin
  59139. if thebits = 0 then
  59140. pTDefRegMap(@Self)^.clr := $00000040
  59141. else
  59142. pTDefRegMap(@Self)^.&set := $00000040;
  59143. end;
  59144. function TUSB_U1ADDR.getDEVADDR6 : TBits_1; inline;
  59145. begin
  59146. getDEVADDR6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  59147. end;
  59148. procedure TUSB_U1FRML.setFRML(thebits : TBits_8); inline;
  59149. begin
  59150. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  59151. end;
  59152. function TUSB_U1FRML.getFRML : TBits_8; inline;
  59153. begin
  59154. getFRML := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  59155. end;
  59156. procedure TUSB_U1FRML.setFRM0; inline;
  59157. begin
  59158. pTDefRegMap(@Self)^.&set := $00000001;
  59159. end;
  59160. procedure TUSB_U1FRML.clearFRM0; inline;
  59161. begin
  59162. pTDefRegMap(@Self)^.clr := $00000001;
  59163. end;
  59164. procedure TUSB_U1FRML.setFRM0(thebits : TBits_1); inline;
  59165. begin
  59166. if thebits = 0 then
  59167. pTDefRegMap(@Self)^.clr := $00000001
  59168. else
  59169. pTDefRegMap(@Self)^.&set := $00000001;
  59170. end;
  59171. function TUSB_U1FRML.getFRM0 : TBits_1; inline;
  59172. begin
  59173. getFRM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  59174. end;
  59175. procedure TUSB_U1FRML.setFRM1; inline;
  59176. begin
  59177. pTDefRegMap(@Self)^.&set := $00000002;
  59178. end;
  59179. procedure TUSB_U1FRML.clearFRM1; inline;
  59180. begin
  59181. pTDefRegMap(@Self)^.clr := $00000002;
  59182. end;
  59183. procedure TUSB_U1FRML.setFRM1(thebits : TBits_1); inline;
  59184. begin
  59185. if thebits = 0 then
  59186. pTDefRegMap(@Self)^.clr := $00000002
  59187. else
  59188. pTDefRegMap(@Self)^.&set := $00000002;
  59189. end;
  59190. function TUSB_U1FRML.getFRM1 : TBits_1; inline;
  59191. begin
  59192. getFRM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  59193. end;
  59194. procedure TUSB_U1FRML.setFRM2; inline;
  59195. begin
  59196. pTDefRegMap(@Self)^.&set := $00000004;
  59197. end;
  59198. procedure TUSB_U1FRML.clearFRM2; inline;
  59199. begin
  59200. pTDefRegMap(@Self)^.clr := $00000004;
  59201. end;
  59202. procedure TUSB_U1FRML.setFRM2(thebits : TBits_1); inline;
  59203. begin
  59204. if thebits = 0 then
  59205. pTDefRegMap(@Self)^.clr := $00000004
  59206. else
  59207. pTDefRegMap(@Self)^.&set := $00000004;
  59208. end;
  59209. function TUSB_U1FRML.getFRM2 : TBits_1; inline;
  59210. begin
  59211. getFRM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  59212. end;
  59213. procedure TUSB_U1FRML.setFRM3; inline;
  59214. begin
  59215. pTDefRegMap(@Self)^.&set := $00000008;
  59216. end;
  59217. procedure TUSB_U1FRML.clearFRM3; inline;
  59218. begin
  59219. pTDefRegMap(@Self)^.clr := $00000008;
  59220. end;
  59221. procedure TUSB_U1FRML.setFRM3(thebits : TBits_1); inline;
  59222. begin
  59223. if thebits = 0 then
  59224. pTDefRegMap(@Self)^.clr := $00000008
  59225. else
  59226. pTDefRegMap(@Self)^.&set := $00000008;
  59227. end;
  59228. function TUSB_U1FRML.getFRM3 : TBits_1; inline;
  59229. begin
  59230. getFRM3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  59231. end;
  59232. procedure TUSB_U1FRML.setFRM4; inline;
  59233. begin
  59234. pTDefRegMap(@Self)^.&set := $00000010;
  59235. end;
  59236. procedure TUSB_U1FRML.clearFRM4; inline;
  59237. begin
  59238. pTDefRegMap(@Self)^.clr := $00000010;
  59239. end;
  59240. procedure TUSB_U1FRML.setFRM4(thebits : TBits_1); inline;
  59241. begin
  59242. if thebits = 0 then
  59243. pTDefRegMap(@Self)^.clr := $00000010
  59244. else
  59245. pTDefRegMap(@Self)^.&set := $00000010;
  59246. end;
  59247. function TUSB_U1FRML.getFRM4 : TBits_1; inline;
  59248. begin
  59249. getFRM4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  59250. end;
  59251. procedure TUSB_U1FRML.setFRM5; inline;
  59252. begin
  59253. pTDefRegMap(@Self)^.&set := $00000020;
  59254. end;
  59255. procedure TUSB_U1FRML.clearFRM5; inline;
  59256. begin
  59257. pTDefRegMap(@Self)^.clr := $00000020;
  59258. end;
  59259. procedure TUSB_U1FRML.setFRM5(thebits : TBits_1); inline;
  59260. begin
  59261. if thebits = 0 then
  59262. pTDefRegMap(@Self)^.clr := $00000020
  59263. else
  59264. pTDefRegMap(@Self)^.&set := $00000020;
  59265. end;
  59266. function TUSB_U1FRML.getFRM5 : TBits_1; inline;
  59267. begin
  59268. getFRM5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  59269. end;
  59270. procedure TUSB_U1FRML.setFRM6; inline;
  59271. begin
  59272. pTDefRegMap(@Self)^.&set := $00000040;
  59273. end;
  59274. procedure TUSB_U1FRML.clearFRM6; inline;
  59275. begin
  59276. pTDefRegMap(@Self)^.clr := $00000040;
  59277. end;
  59278. procedure TUSB_U1FRML.setFRM6(thebits : TBits_1); inline;
  59279. begin
  59280. if thebits = 0 then
  59281. pTDefRegMap(@Self)^.clr := $00000040
  59282. else
  59283. pTDefRegMap(@Self)^.&set := $00000040;
  59284. end;
  59285. function TUSB_U1FRML.getFRM6 : TBits_1; inline;
  59286. begin
  59287. getFRM6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  59288. end;
  59289. procedure TUSB_U1FRML.setFRM7; inline;
  59290. begin
  59291. pTDefRegMap(@Self)^.&set := $00000080;
  59292. end;
  59293. procedure TUSB_U1FRML.clearFRM7; inline;
  59294. begin
  59295. pTDefRegMap(@Self)^.clr := $00000080;
  59296. end;
  59297. procedure TUSB_U1FRML.setFRM7(thebits : TBits_1); inline;
  59298. begin
  59299. if thebits = 0 then
  59300. pTDefRegMap(@Self)^.clr := $00000080
  59301. else
  59302. pTDefRegMap(@Self)^.&set := $00000080;
  59303. end;
  59304. function TUSB_U1FRML.getFRM7 : TBits_1; inline;
  59305. begin
  59306. getFRM7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  59307. end;
  59308. procedure TUSB_U1FRMH.setFRMH(thebits : TBits_3); inline;
  59309. begin
  59310. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  59311. end;
  59312. function TUSB_U1FRMH.getFRMH : TBits_3; inline;
  59313. begin
  59314. getFRMH := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  59315. end;
  59316. procedure TUSB_U1FRMH.setFRM8; inline;
  59317. begin
  59318. pTDefRegMap(@Self)^.&set := $00000001;
  59319. end;
  59320. procedure TUSB_U1FRMH.clearFRM8; inline;
  59321. begin
  59322. pTDefRegMap(@Self)^.clr := $00000001;
  59323. end;
  59324. procedure TUSB_U1FRMH.setFRM8(thebits : TBits_1); inline;
  59325. begin
  59326. if thebits = 0 then
  59327. pTDefRegMap(@Self)^.clr := $00000001
  59328. else
  59329. pTDefRegMap(@Self)^.&set := $00000001;
  59330. end;
  59331. function TUSB_U1FRMH.getFRM8 : TBits_1; inline;
  59332. begin
  59333. getFRM8 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  59334. end;
  59335. procedure TUSB_U1FRMH.setFRM9; inline;
  59336. begin
  59337. pTDefRegMap(@Self)^.&set := $00000002;
  59338. end;
  59339. procedure TUSB_U1FRMH.clearFRM9; inline;
  59340. begin
  59341. pTDefRegMap(@Self)^.clr := $00000002;
  59342. end;
  59343. procedure TUSB_U1FRMH.setFRM9(thebits : TBits_1); inline;
  59344. begin
  59345. if thebits = 0 then
  59346. pTDefRegMap(@Self)^.clr := $00000002
  59347. else
  59348. pTDefRegMap(@Self)^.&set := $00000002;
  59349. end;
  59350. function TUSB_U1FRMH.getFRM9 : TBits_1; inline;
  59351. begin
  59352. getFRM9 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  59353. end;
  59354. procedure TUSB_U1FRMH.setFRM10; inline;
  59355. begin
  59356. pTDefRegMap(@Self)^.&set := $00000004;
  59357. end;
  59358. procedure TUSB_U1FRMH.clearFRM10; inline;
  59359. begin
  59360. pTDefRegMap(@Self)^.clr := $00000004;
  59361. end;
  59362. procedure TUSB_U1FRMH.setFRM10(thebits : TBits_1); inline;
  59363. begin
  59364. if thebits = 0 then
  59365. pTDefRegMap(@Self)^.clr := $00000004
  59366. else
  59367. pTDefRegMap(@Self)^.&set := $00000004;
  59368. end;
  59369. function TUSB_U1FRMH.getFRM10 : TBits_1; inline;
  59370. begin
  59371. getFRM10 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  59372. end;
  59373. procedure TUSB_U1TOK.setEP(thebits : TBits_4); inline;
  59374. begin
  59375. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  59376. end;
  59377. function TUSB_U1TOK.getEP : TBits_4; inline;
  59378. begin
  59379. getEP := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  59380. end;
  59381. procedure TUSB_U1TOK.setPID(thebits : TBits_4); inline;
  59382. begin
  59383. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF0F or ( thebits shl 4 );
  59384. end;
  59385. function TUSB_U1TOK.getPID : TBits_4; inline;
  59386. begin
  59387. getPID := (pTDefRegMap(@Self)^.val and $000000F0) shr 4;
  59388. end;
  59389. procedure TUSB_U1TOK.setEP0; inline;
  59390. begin
  59391. pTDefRegMap(@Self)^.&set := $00000001;
  59392. end;
  59393. procedure TUSB_U1TOK.clearEP0; inline;
  59394. begin
  59395. pTDefRegMap(@Self)^.clr := $00000001;
  59396. end;
  59397. procedure TUSB_U1TOK.setEP0(thebits : TBits_1); inline;
  59398. begin
  59399. if thebits = 0 then
  59400. pTDefRegMap(@Self)^.clr := $00000001
  59401. else
  59402. pTDefRegMap(@Self)^.&set := $00000001;
  59403. end;
  59404. function TUSB_U1TOK.getEP0 : TBits_1; inline;
  59405. begin
  59406. getEP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  59407. end;
  59408. procedure TUSB_U1TOK.setEP1; inline;
  59409. begin
  59410. pTDefRegMap(@Self)^.&set := $00000002;
  59411. end;
  59412. procedure TUSB_U1TOK.clearEP1; inline;
  59413. begin
  59414. pTDefRegMap(@Self)^.clr := $00000002;
  59415. end;
  59416. procedure TUSB_U1TOK.setEP1(thebits : TBits_1); inline;
  59417. begin
  59418. if thebits = 0 then
  59419. pTDefRegMap(@Self)^.clr := $00000002
  59420. else
  59421. pTDefRegMap(@Self)^.&set := $00000002;
  59422. end;
  59423. function TUSB_U1TOK.getEP1 : TBits_1; inline;
  59424. begin
  59425. getEP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  59426. end;
  59427. procedure TUSB_U1TOK.setEP2; inline;
  59428. begin
  59429. pTDefRegMap(@Self)^.&set := $00000004;
  59430. end;
  59431. procedure TUSB_U1TOK.clearEP2; inline;
  59432. begin
  59433. pTDefRegMap(@Self)^.clr := $00000004;
  59434. end;
  59435. procedure TUSB_U1TOK.setEP2(thebits : TBits_1); inline;
  59436. begin
  59437. if thebits = 0 then
  59438. pTDefRegMap(@Self)^.clr := $00000004
  59439. else
  59440. pTDefRegMap(@Self)^.&set := $00000004;
  59441. end;
  59442. function TUSB_U1TOK.getEP2 : TBits_1; inline;
  59443. begin
  59444. getEP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  59445. end;
  59446. procedure TUSB_U1TOK.setEP3; inline;
  59447. begin
  59448. pTDefRegMap(@Self)^.&set := $00000008;
  59449. end;
  59450. procedure TUSB_U1TOK.clearEP3; inline;
  59451. begin
  59452. pTDefRegMap(@Self)^.clr := $00000008;
  59453. end;
  59454. procedure TUSB_U1TOK.setEP3(thebits : TBits_1); inline;
  59455. begin
  59456. if thebits = 0 then
  59457. pTDefRegMap(@Self)^.clr := $00000008
  59458. else
  59459. pTDefRegMap(@Self)^.&set := $00000008;
  59460. end;
  59461. function TUSB_U1TOK.getEP3 : TBits_1; inline;
  59462. begin
  59463. getEP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  59464. end;
  59465. procedure TUSB_U1TOK.setPID0; inline;
  59466. begin
  59467. pTDefRegMap(@Self)^.&set := $00000010;
  59468. end;
  59469. procedure TUSB_U1TOK.clearPID0; inline;
  59470. begin
  59471. pTDefRegMap(@Self)^.clr := $00000010;
  59472. end;
  59473. procedure TUSB_U1TOK.setPID0(thebits : TBits_1); inline;
  59474. begin
  59475. if thebits = 0 then
  59476. pTDefRegMap(@Self)^.clr := $00000010
  59477. else
  59478. pTDefRegMap(@Self)^.&set := $00000010;
  59479. end;
  59480. function TUSB_U1TOK.getPID0 : TBits_1; inline;
  59481. begin
  59482. getPID0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  59483. end;
  59484. procedure TUSB_U1TOK.setPID1; inline;
  59485. begin
  59486. pTDefRegMap(@Self)^.&set := $00000020;
  59487. end;
  59488. procedure TUSB_U1TOK.clearPID1; inline;
  59489. begin
  59490. pTDefRegMap(@Self)^.clr := $00000020;
  59491. end;
  59492. procedure TUSB_U1TOK.setPID1(thebits : TBits_1); inline;
  59493. begin
  59494. if thebits = 0 then
  59495. pTDefRegMap(@Self)^.clr := $00000020
  59496. else
  59497. pTDefRegMap(@Self)^.&set := $00000020;
  59498. end;
  59499. function TUSB_U1TOK.getPID1 : TBits_1; inline;
  59500. begin
  59501. getPID1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  59502. end;
  59503. procedure TUSB_U1TOK.setPID2; inline;
  59504. begin
  59505. pTDefRegMap(@Self)^.&set := $00000040;
  59506. end;
  59507. procedure TUSB_U1TOK.clearPID2; inline;
  59508. begin
  59509. pTDefRegMap(@Self)^.clr := $00000040;
  59510. end;
  59511. procedure TUSB_U1TOK.setPID2(thebits : TBits_1); inline;
  59512. begin
  59513. if thebits = 0 then
  59514. pTDefRegMap(@Self)^.clr := $00000040
  59515. else
  59516. pTDefRegMap(@Self)^.&set := $00000040;
  59517. end;
  59518. function TUSB_U1TOK.getPID2 : TBits_1; inline;
  59519. begin
  59520. getPID2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  59521. end;
  59522. procedure TUSB_U1TOK.setPID3; inline;
  59523. begin
  59524. pTDefRegMap(@Self)^.&set := $00000080;
  59525. end;
  59526. procedure TUSB_U1TOK.clearPID3; inline;
  59527. begin
  59528. pTDefRegMap(@Self)^.clr := $00000080;
  59529. end;
  59530. procedure TUSB_U1TOK.setPID3(thebits : TBits_1); inline;
  59531. begin
  59532. if thebits = 0 then
  59533. pTDefRegMap(@Self)^.clr := $00000080
  59534. else
  59535. pTDefRegMap(@Self)^.&set := $00000080;
  59536. end;
  59537. function TUSB_U1TOK.getPID3 : TBits_1; inline;
  59538. begin
  59539. getPID3 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  59540. end;
  59541. procedure TPORTA_TRISA.setTRISA0; inline;
  59542. begin
  59543. pTDefRegMap(@Self)^.&set := $00000001;
  59544. end;
  59545. procedure TPORTA_TRISA.clearTRISA0; inline;
  59546. begin
  59547. pTDefRegMap(@Self)^.clr := $00000001;
  59548. end;
  59549. procedure TPORTA_TRISA.setTRISA0(thebits : TBits_1); inline;
  59550. begin
  59551. if thebits = 0 then
  59552. pTDefRegMap(@Self)^.clr := $00000001
  59553. else
  59554. pTDefRegMap(@Self)^.&set := $00000001;
  59555. end;
  59556. function TPORTA_TRISA.getTRISA0 : TBits_1; inline;
  59557. begin
  59558. getTRISA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  59559. end;
  59560. procedure TPORTA_TRISA.setTRISA1; inline;
  59561. begin
  59562. pTDefRegMap(@Self)^.&set := $00000002;
  59563. end;
  59564. procedure TPORTA_TRISA.clearTRISA1; inline;
  59565. begin
  59566. pTDefRegMap(@Self)^.clr := $00000002;
  59567. end;
  59568. procedure TPORTA_TRISA.setTRISA1(thebits : TBits_1); inline;
  59569. begin
  59570. if thebits = 0 then
  59571. pTDefRegMap(@Self)^.clr := $00000002
  59572. else
  59573. pTDefRegMap(@Self)^.&set := $00000002;
  59574. end;
  59575. function TPORTA_TRISA.getTRISA1 : TBits_1; inline;
  59576. begin
  59577. getTRISA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  59578. end;
  59579. procedure TPORTA_TRISA.setTRISA2; inline;
  59580. begin
  59581. pTDefRegMap(@Self)^.&set := $00000004;
  59582. end;
  59583. procedure TPORTA_TRISA.clearTRISA2; inline;
  59584. begin
  59585. pTDefRegMap(@Self)^.clr := $00000004;
  59586. end;
  59587. procedure TPORTA_TRISA.setTRISA2(thebits : TBits_1); inline;
  59588. begin
  59589. if thebits = 0 then
  59590. pTDefRegMap(@Self)^.clr := $00000004
  59591. else
  59592. pTDefRegMap(@Self)^.&set := $00000004;
  59593. end;
  59594. function TPORTA_TRISA.getTRISA2 : TBits_1; inline;
  59595. begin
  59596. getTRISA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  59597. end;
  59598. procedure TPORTA_TRISA.setTRISA3; inline;
  59599. begin
  59600. pTDefRegMap(@Self)^.&set := $00000008;
  59601. end;
  59602. procedure TPORTA_TRISA.clearTRISA3; inline;
  59603. begin
  59604. pTDefRegMap(@Self)^.clr := $00000008;
  59605. end;
  59606. procedure TPORTA_TRISA.setTRISA3(thebits : TBits_1); inline;
  59607. begin
  59608. if thebits = 0 then
  59609. pTDefRegMap(@Self)^.clr := $00000008
  59610. else
  59611. pTDefRegMap(@Self)^.&set := $00000008;
  59612. end;
  59613. function TPORTA_TRISA.getTRISA3 : TBits_1; inline;
  59614. begin
  59615. getTRISA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  59616. end;
  59617. procedure TPORTA_TRISA.setTRISA4; inline;
  59618. begin
  59619. pTDefRegMap(@Self)^.&set := $00000010;
  59620. end;
  59621. procedure TPORTA_TRISA.clearTRISA4; inline;
  59622. begin
  59623. pTDefRegMap(@Self)^.clr := $00000010;
  59624. end;
  59625. procedure TPORTA_TRISA.setTRISA4(thebits : TBits_1); inline;
  59626. begin
  59627. if thebits = 0 then
  59628. pTDefRegMap(@Self)^.clr := $00000010
  59629. else
  59630. pTDefRegMap(@Self)^.&set := $00000010;
  59631. end;
  59632. function TPORTA_TRISA.getTRISA4 : TBits_1; inline;
  59633. begin
  59634. getTRISA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  59635. end;
  59636. procedure TPORTA_TRISA.setTRISA5; inline;
  59637. begin
  59638. pTDefRegMap(@Self)^.&set := $00000020;
  59639. end;
  59640. procedure TPORTA_TRISA.clearTRISA5; inline;
  59641. begin
  59642. pTDefRegMap(@Self)^.clr := $00000020;
  59643. end;
  59644. procedure TPORTA_TRISA.setTRISA5(thebits : TBits_1); inline;
  59645. begin
  59646. if thebits = 0 then
  59647. pTDefRegMap(@Self)^.clr := $00000020
  59648. else
  59649. pTDefRegMap(@Self)^.&set := $00000020;
  59650. end;
  59651. function TPORTA_TRISA.getTRISA5 : TBits_1; inline;
  59652. begin
  59653. getTRISA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  59654. end;
  59655. procedure TPORTA_TRISA.setTRISA6; inline;
  59656. begin
  59657. pTDefRegMap(@Self)^.&set := $00000040;
  59658. end;
  59659. procedure TPORTA_TRISA.clearTRISA6; inline;
  59660. begin
  59661. pTDefRegMap(@Self)^.clr := $00000040;
  59662. end;
  59663. procedure TPORTA_TRISA.setTRISA6(thebits : TBits_1); inline;
  59664. begin
  59665. if thebits = 0 then
  59666. pTDefRegMap(@Self)^.clr := $00000040
  59667. else
  59668. pTDefRegMap(@Self)^.&set := $00000040;
  59669. end;
  59670. function TPORTA_TRISA.getTRISA6 : TBits_1; inline;
  59671. begin
  59672. getTRISA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  59673. end;
  59674. procedure TPORTA_TRISA.setTRISA7; inline;
  59675. begin
  59676. pTDefRegMap(@Self)^.&set := $00000080;
  59677. end;
  59678. procedure TPORTA_TRISA.clearTRISA7; inline;
  59679. begin
  59680. pTDefRegMap(@Self)^.clr := $00000080;
  59681. end;
  59682. procedure TPORTA_TRISA.setTRISA7(thebits : TBits_1); inline;
  59683. begin
  59684. if thebits = 0 then
  59685. pTDefRegMap(@Self)^.clr := $00000080
  59686. else
  59687. pTDefRegMap(@Self)^.&set := $00000080;
  59688. end;
  59689. function TPORTA_TRISA.getTRISA7 : TBits_1; inline;
  59690. begin
  59691. getTRISA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  59692. end;
  59693. procedure TPORTA_TRISA.setTRISA9; inline;
  59694. begin
  59695. pTDefRegMap(@Self)^.&set := $00000200;
  59696. end;
  59697. procedure TPORTA_TRISA.clearTRISA9; inline;
  59698. begin
  59699. pTDefRegMap(@Self)^.clr := $00000200;
  59700. end;
  59701. procedure TPORTA_TRISA.setTRISA9(thebits : TBits_1); inline;
  59702. begin
  59703. if thebits = 0 then
  59704. pTDefRegMap(@Self)^.clr := $00000200
  59705. else
  59706. pTDefRegMap(@Self)^.&set := $00000200;
  59707. end;
  59708. function TPORTA_TRISA.getTRISA9 : TBits_1; inline;
  59709. begin
  59710. getTRISA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  59711. end;
  59712. procedure TPORTA_TRISA.setTRISA10; inline;
  59713. begin
  59714. pTDefRegMap(@Self)^.&set := $00000400;
  59715. end;
  59716. procedure TPORTA_TRISA.clearTRISA10; inline;
  59717. begin
  59718. pTDefRegMap(@Self)^.clr := $00000400;
  59719. end;
  59720. procedure TPORTA_TRISA.setTRISA10(thebits : TBits_1); inline;
  59721. begin
  59722. if thebits = 0 then
  59723. pTDefRegMap(@Self)^.clr := $00000400
  59724. else
  59725. pTDefRegMap(@Self)^.&set := $00000400;
  59726. end;
  59727. function TPORTA_TRISA.getTRISA10 : TBits_1; inline;
  59728. begin
  59729. getTRISA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  59730. end;
  59731. procedure TPORTA_TRISA.setTRISA14; inline;
  59732. begin
  59733. pTDefRegMap(@Self)^.&set := $00004000;
  59734. end;
  59735. procedure TPORTA_TRISA.clearTRISA14; inline;
  59736. begin
  59737. pTDefRegMap(@Self)^.clr := $00004000;
  59738. end;
  59739. procedure TPORTA_TRISA.setTRISA14(thebits : TBits_1); inline;
  59740. begin
  59741. if thebits = 0 then
  59742. pTDefRegMap(@Self)^.clr := $00004000
  59743. else
  59744. pTDefRegMap(@Self)^.&set := $00004000;
  59745. end;
  59746. function TPORTA_TRISA.getTRISA14 : TBits_1; inline;
  59747. begin
  59748. getTRISA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  59749. end;
  59750. procedure TPORTA_TRISA.setTRISA15; inline;
  59751. begin
  59752. pTDefRegMap(@Self)^.&set := $00008000;
  59753. end;
  59754. procedure TPORTA_TRISA.clearTRISA15; inline;
  59755. begin
  59756. pTDefRegMap(@Self)^.clr := $00008000;
  59757. end;
  59758. procedure TPORTA_TRISA.setTRISA15(thebits : TBits_1); inline;
  59759. begin
  59760. if thebits = 0 then
  59761. pTDefRegMap(@Self)^.clr := $00008000
  59762. else
  59763. pTDefRegMap(@Self)^.&set := $00008000;
  59764. end;
  59765. function TPORTA_TRISA.getTRISA15 : TBits_1; inline;
  59766. begin
  59767. getTRISA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  59768. end;
  59769. procedure TPORTA_TRISA.setw(thebits : TBits_32); inline;
  59770. begin
  59771. pTDefRegMap(@Self)^.val := thebits;
  59772. end;
  59773. function TPORTA_TRISA.getw : TBits_32; inline;
  59774. begin
  59775. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  59776. end;
  59777. procedure TPORTA_PORTA.setRA0; inline;
  59778. begin
  59779. pTDefRegMap(@Self)^.&set := $00000001;
  59780. end;
  59781. procedure TPORTA_PORTA.clearRA0; inline;
  59782. begin
  59783. pTDefRegMap(@Self)^.clr := $00000001;
  59784. end;
  59785. procedure TPORTA_PORTA.setRA0(thebits : TBits_1); inline;
  59786. begin
  59787. if thebits = 0 then
  59788. pTDefRegMap(@Self)^.clr := $00000001
  59789. else
  59790. pTDefRegMap(@Self)^.&set := $00000001;
  59791. end;
  59792. function TPORTA_PORTA.getRA0 : TBits_1; inline;
  59793. begin
  59794. getRA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  59795. end;
  59796. procedure TPORTA_PORTA.setRA1; inline;
  59797. begin
  59798. pTDefRegMap(@Self)^.&set := $00000002;
  59799. end;
  59800. procedure TPORTA_PORTA.clearRA1; inline;
  59801. begin
  59802. pTDefRegMap(@Self)^.clr := $00000002;
  59803. end;
  59804. procedure TPORTA_PORTA.setRA1(thebits : TBits_1); inline;
  59805. begin
  59806. if thebits = 0 then
  59807. pTDefRegMap(@Self)^.clr := $00000002
  59808. else
  59809. pTDefRegMap(@Self)^.&set := $00000002;
  59810. end;
  59811. function TPORTA_PORTA.getRA1 : TBits_1; inline;
  59812. begin
  59813. getRA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  59814. end;
  59815. procedure TPORTA_PORTA.setRA2; inline;
  59816. begin
  59817. pTDefRegMap(@Self)^.&set := $00000004;
  59818. end;
  59819. procedure TPORTA_PORTA.clearRA2; inline;
  59820. begin
  59821. pTDefRegMap(@Self)^.clr := $00000004;
  59822. end;
  59823. procedure TPORTA_PORTA.setRA2(thebits : TBits_1); inline;
  59824. begin
  59825. if thebits = 0 then
  59826. pTDefRegMap(@Self)^.clr := $00000004
  59827. else
  59828. pTDefRegMap(@Self)^.&set := $00000004;
  59829. end;
  59830. function TPORTA_PORTA.getRA2 : TBits_1; inline;
  59831. begin
  59832. getRA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  59833. end;
  59834. procedure TPORTA_PORTA.setRA3; inline;
  59835. begin
  59836. pTDefRegMap(@Self)^.&set := $00000008;
  59837. end;
  59838. procedure TPORTA_PORTA.clearRA3; inline;
  59839. begin
  59840. pTDefRegMap(@Self)^.clr := $00000008;
  59841. end;
  59842. procedure TPORTA_PORTA.setRA3(thebits : TBits_1); inline;
  59843. begin
  59844. if thebits = 0 then
  59845. pTDefRegMap(@Self)^.clr := $00000008
  59846. else
  59847. pTDefRegMap(@Self)^.&set := $00000008;
  59848. end;
  59849. function TPORTA_PORTA.getRA3 : TBits_1; inline;
  59850. begin
  59851. getRA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  59852. end;
  59853. procedure TPORTA_PORTA.setRA4; inline;
  59854. begin
  59855. pTDefRegMap(@Self)^.&set := $00000010;
  59856. end;
  59857. procedure TPORTA_PORTA.clearRA4; inline;
  59858. begin
  59859. pTDefRegMap(@Self)^.clr := $00000010;
  59860. end;
  59861. procedure TPORTA_PORTA.setRA4(thebits : TBits_1); inline;
  59862. begin
  59863. if thebits = 0 then
  59864. pTDefRegMap(@Self)^.clr := $00000010
  59865. else
  59866. pTDefRegMap(@Self)^.&set := $00000010;
  59867. end;
  59868. function TPORTA_PORTA.getRA4 : TBits_1; inline;
  59869. begin
  59870. getRA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  59871. end;
  59872. procedure TPORTA_PORTA.setRA5; inline;
  59873. begin
  59874. pTDefRegMap(@Self)^.&set := $00000020;
  59875. end;
  59876. procedure TPORTA_PORTA.clearRA5; inline;
  59877. begin
  59878. pTDefRegMap(@Self)^.clr := $00000020;
  59879. end;
  59880. procedure TPORTA_PORTA.setRA5(thebits : TBits_1); inline;
  59881. begin
  59882. if thebits = 0 then
  59883. pTDefRegMap(@Self)^.clr := $00000020
  59884. else
  59885. pTDefRegMap(@Self)^.&set := $00000020;
  59886. end;
  59887. function TPORTA_PORTA.getRA5 : TBits_1; inline;
  59888. begin
  59889. getRA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  59890. end;
  59891. procedure TPORTA_PORTA.setRA6; inline;
  59892. begin
  59893. pTDefRegMap(@Self)^.&set := $00000040;
  59894. end;
  59895. procedure TPORTA_PORTA.clearRA6; inline;
  59896. begin
  59897. pTDefRegMap(@Self)^.clr := $00000040;
  59898. end;
  59899. procedure TPORTA_PORTA.setRA6(thebits : TBits_1); inline;
  59900. begin
  59901. if thebits = 0 then
  59902. pTDefRegMap(@Self)^.clr := $00000040
  59903. else
  59904. pTDefRegMap(@Self)^.&set := $00000040;
  59905. end;
  59906. function TPORTA_PORTA.getRA6 : TBits_1; inline;
  59907. begin
  59908. getRA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  59909. end;
  59910. procedure TPORTA_PORTA.setRA7; inline;
  59911. begin
  59912. pTDefRegMap(@Self)^.&set := $00000080;
  59913. end;
  59914. procedure TPORTA_PORTA.clearRA7; inline;
  59915. begin
  59916. pTDefRegMap(@Self)^.clr := $00000080;
  59917. end;
  59918. procedure TPORTA_PORTA.setRA7(thebits : TBits_1); inline;
  59919. begin
  59920. if thebits = 0 then
  59921. pTDefRegMap(@Self)^.clr := $00000080
  59922. else
  59923. pTDefRegMap(@Self)^.&set := $00000080;
  59924. end;
  59925. function TPORTA_PORTA.getRA7 : TBits_1; inline;
  59926. begin
  59927. getRA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  59928. end;
  59929. procedure TPORTA_PORTA.setRA9; inline;
  59930. begin
  59931. pTDefRegMap(@Self)^.&set := $00000200;
  59932. end;
  59933. procedure TPORTA_PORTA.clearRA9; inline;
  59934. begin
  59935. pTDefRegMap(@Self)^.clr := $00000200;
  59936. end;
  59937. procedure TPORTA_PORTA.setRA9(thebits : TBits_1); inline;
  59938. begin
  59939. if thebits = 0 then
  59940. pTDefRegMap(@Self)^.clr := $00000200
  59941. else
  59942. pTDefRegMap(@Self)^.&set := $00000200;
  59943. end;
  59944. function TPORTA_PORTA.getRA9 : TBits_1; inline;
  59945. begin
  59946. getRA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  59947. end;
  59948. procedure TPORTA_PORTA.setRA10; inline;
  59949. begin
  59950. pTDefRegMap(@Self)^.&set := $00000400;
  59951. end;
  59952. procedure TPORTA_PORTA.clearRA10; inline;
  59953. begin
  59954. pTDefRegMap(@Self)^.clr := $00000400;
  59955. end;
  59956. procedure TPORTA_PORTA.setRA10(thebits : TBits_1); inline;
  59957. begin
  59958. if thebits = 0 then
  59959. pTDefRegMap(@Self)^.clr := $00000400
  59960. else
  59961. pTDefRegMap(@Self)^.&set := $00000400;
  59962. end;
  59963. function TPORTA_PORTA.getRA10 : TBits_1; inline;
  59964. begin
  59965. getRA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  59966. end;
  59967. procedure TPORTA_PORTA.setRA14; inline;
  59968. begin
  59969. pTDefRegMap(@Self)^.&set := $00004000;
  59970. end;
  59971. procedure TPORTA_PORTA.clearRA14; inline;
  59972. begin
  59973. pTDefRegMap(@Self)^.clr := $00004000;
  59974. end;
  59975. procedure TPORTA_PORTA.setRA14(thebits : TBits_1); inline;
  59976. begin
  59977. if thebits = 0 then
  59978. pTDefRegMap(@Self)^.clr := $00004000
  59979. else
  59980. pTDefRegMap(@Self)^.&set := $00004000;
  59981. end;
  59982. function TPORTA_PORTA.getRA14 : TBits_1; inline;
  59983. begin
  59984. getRA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  59985. end;
  59986. procedure TPORTA_PORTA.setRA15; inline;
  59987. begin
  59988. pTDefRegMap(@Self)^.&set := $00008000;
  59989. end;
  59990. procedure TPORTA_PORTA.clearRA15; inline;
  59991. begin
  59992. pTDefRegMap(@Self)^.clr := $00008000;
  59993. end;
  59994. procedure TPORTA_PORTA.setRA15(thebits : TBits_1); inline;
  59995. begin
  59996. if thebits = 0 then
  59997. pTDefRegMap(@Self)^.clr := $00008000
  59998. else
  59999. pTDefRegMap(@Self)^.&set := $00008000;
  60000. end;
  60001. function TPORTA_PORTA.getRA15 : TBits_1; inline;
  60002. begin
  60003. getRA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  60004. end;
  60005. procedure TPORTA_PORTA.setw(thebits : TBits_32); inline;
  60006. begin
  60007. pTDefRegMap(@Self)^.val := thebits;
  60008. end;
  60009. function TPORTA_PORTA.getw : TBits_32; inline;
  60010. begin
  60011. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  60012. end;
  60013. procedure TPORTA_LATA.setLATA0; inline;
  60014. begin
  60015. pTDefRegMap(@Self)^.&set := $00000001;
  60016. end;
  60017. procedure TPORTA_LATA.clearLATA0; inline;
  60018. begin
  60019. pTDefRegMap(@Self)^.clr := $00000001;
  60020. end;
  60021. procedure TPORTA_LATA.setLATA0(thebits : TBits_1); inline;
  60022. begin
  60023. if thebits = 0 then
  60024. pTDefRegMap(@Self)^.clr := $00000001
  60025. else
  60026. pTDefRegMap(@Self)^.&set := $00000001;
  60027. end;
  60028. function TPORTA_LATA.getLATA0 : TBits_1; inline;
  60029. begin
  60030. getLATA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  60031. end;
  60032. procedure TPORTA_LATA.setLATA1; inline;
  60033. begin
  60034. pTDefRegMap(@Self)^.&set := $00000002;
  60035. end;
  60036. procedure TPORTA_LATA.clearLATA1; inline;
  60037. begin
  60038. pTDefRegMap(@Self)^.clr := $00000002;
  60039. end;
  60040. procedure TPORTA_LATA.setLATA1(thebits : TBits_1); inline;
  60041. begin
  60042. if thebits = 0 then
  60043. pTDefRegMap(@Self)^.clr := $00000002
  60044. else
  60045. pTDefRegMap(@Self)^.&set := $00000002;
  60046. end;
  60047. function TPORTA_LATA.getLATA1 : TBits_1; inline;
  60048. begin
  60049. getLATA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60050. end;
  60051. procedure TPORTA_LATA.setLATA2; inline;
  60052. begin
  60053. pTDefRegMap(@Self)^.&set := $00000004;
  60054. end;
  60055. procedure TPORTA_LATA.clearLATA2; inline;
  60056. begin
  60057. pTDefRegMap(@Self)^.clr := $00000004;
  60058. end;
  60059. procedure TPORTA_LATA.setLATA2(thebits : TBits_1); inline;
  60060. begin
  60061. if thebits = 0 then
  60062. pTDefRegMap(@Self)^.clr := $00000004
  60063. else
  60064. pTDefRegMap(@Self)^.&set := $00000004;
  60065. end;
  60066. function TPORTA_LATA.getLATA2 : TBits_1; inline;
  60067. begin
  60068. getLATA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  60069. end;
  60070. procedure TPORTA_LATA.setLATA3; inline;
  60071. begin
  60072. pTDefRegMap(@Self)^.&set := $00000008;
  60073. end;
  60074. procedure TPORTA_LATA.clearLATA3; inline;
  60075. begin
  60076. pTDefRegMap(@Self)^.clr := $00000008;
  60077. end;
  60078. procedure TPORTA_LATA.setLATA3(thebits : TBits_1); inline;
  60079. begin
  60080. if thebits = 0 then
  60081. pTDefRegMap(@Self)^.clr := $00000008
  60082. else
  60083. pTDefRegMap(@Self)^.&set := $00000008;
  60084. end;
  60085. function TPORTA_LATA.getLATA3 : TBits_1; inline;
  60086. begin
  60087. getLATA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  60088. end;
  60089. procedure TPORTA_LATA.setLATA4; inline;
  60090. begin
  60091. pTDefRegMap(@Self)^.&set := $00000010;
  60092. end;
  60093. procedure TPORTA_LATA.clearLATA4; inline;
  60094. begin
  60095. pTDefRegMap(@Self)^.clr := $00000010;
  60096. end;
  60097. procedure TPORTA_LATA.setLATA4(thebits : TBits_1); inline;
  60098. begin
  60099. if thebits = 0 then
  60100. pTDefRegMap(@Self)^.clr := $00000010
  60101. else
  60102. pTDefRegMap(@Self)^.&set := $00000010;
  60103. end;
  60104. function TPORTA_LATA.getLATA4 : TBits_1; inline;
  60105. begin
  60106. getLATA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  60107. end;
  60108. procedure TPORTA_LATA.setLATA5; inline;
  60109. begin
  60110. pTDefRegMap(@Self)^.&set := $00000020;
  60111. end;
  60112. procedure TPORTA_LATA.clearLATA5; inline;
  60113. begin
  60114. pTDefRegMap(@Self)^.clr := $00000020;
  60115. end;
  60116. procedure TPORTA_LATA.setLATA5(thebits : TBits_1); inline;
  60117. begin
  60118. if thebits = 0 then
  60119. pTDefRegMap(@Self)^.clr := $00000020
  60120. else
  60121. pTDefRegMap(@Self)^.&set := $00000020;
  60122. end;
  60123. function TPORTA_LATA.getLATA5 : TBits_1; inline;
  60124. begin
  60125. getLATA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  60126. end;
  60127. procedure TPORTA_LATA.setLATA6; inline;
  60128. begin
  60129. pTDefRegMap(@Self)^.&set := $00000040;
  60130. end;
  60131. procedure TPORTA_LATA.clearLATA6; inline;
  60132. begin
  60133. pTDefRegMap(@Self)^.clr := $00000040;
  60134. end;
  60135. procedure TPORTA_LATA.setLATA6(thebits : TBits_1); inline;
  60136. begin
  60137. if thebits = 0 then
  60138. pTDefRegMap(@Self)^.clr := $00000040
  60139. else
  60140. pTDefRegMap(@Self)^.&set := $00000040;
  60141. end;
  60142. function TPORTA_LATA.getLATA6 : TBits_1; inline;
  60143. begin
  60144. getLATA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  60145. end;
  60146. procedure TPORTA_LATA.setLATA7; inline;
  60147. begin
  60148. pTDefRegMap(@Self)^.&set := $00000080;
  60149. end;
  60150. procedure TPORTA_LATA.clearLATA7; inline;
  60151. begin
  60152. pTDefRegMap(@Self)^.clr := $00000080;
  60153. end;
  60154. procedure TPORTA_LATA.setLATA7(thebits : TBits_1); inline;
  60155. begin
  60156. if thebits = 0 then
  60157. pTDefRegMap(@Self)^.clr := $00000080
  60158. else
  60159. pTDefRegMap(@Self)^.&set := $00000080;
  60160. end;
  60161. function TPORTA_LATA.getLATA7 : TBits_1; inline;
  60162. begin
  60163. getLATA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  60164. end;
  60165. procedure TPORTA_LATA.setLATA9; inline;
  60166. begin
  60167. pTDefRegMap(@Self)^.&set := $00000200;
  60168. end;
  60169. procedure TPORTA_LATA.clearLATA9; inline;
  60170. begin
  60171. pTDefRegMap(@Self)^.clr := $00000200;
  60172. end;
  60173. procedure TPORTA_LATA.setLATA9(thebits : TBits_1); inline;
  60174. begin
  60175. if thebits = 0 then
  60176. pTDefRegMap(@Self)^.clr := $00000200
  60177. else
  60178. pTDefRegMap(@Self)^.&set := $00000200;
  60179. end;
  60180. function TPORTA_LATA.getLATA9 : TBits_1; inline;
  60181. begin
  60182. getLATA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  60183. end;
  60184. procedure TPORTA_LATA.setLATA10; inline;
  60185. begin
  60186. pTDefRegMap(@Self)^.&set := $00000400;
  60187. end;
  60188. procedure TPORTA_LATA.clearLATA10; inline;
  60189. begin
  60190. pTDefRegMap(@Self)^.clr := $00000400;
  60191. end;
  60192. procedure TPORTA_LATA.setLATA10(thebits : TBits_1); inline;
  60193. begin
  60194. if thebits = 0 then
  60195. pTDefRegMap(@Self)^.clr := $00000400
  60196. else
  60197. pTDefRegMap(@Self)^.&set := $00000400;
  60198. end;
  60199. function TPORTA_LATA.getLATA10 : TBits_1; inline;
  60200. begin
  60201. getLATA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  60202. end;
  60203. procedure TPORTA_LATA.setLATA14; inline;
  60204. begin
  60205. pTDefRegMap(@Self)^.&set := $00004000;
  60206. end;
  60207. procedure TPORTA_LATA.clearLATA14; inline;
  60208. begin
  60209. pTDefRegMap(@Self)^.clr := $00004000;
  60210. end;
  60211. procedure TPORTA_LATA.setLATA14(thebits : TBits_1); inline;
  60212. begin
  60213. if thebits = 0 then
  60214. pTDefRegMap(@Self)^.clr := $00004000
  60215. else
  60216. pTDefRegMap(@Self)^.&set := $00004000;
  60217. end;
  60218. function TPORTA_LATA.getLATA14 : TBits_1; inline;
  60219. begin
  60220. getLATA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  60221. end;
  60222. procedure TPORTA_LATA.setLATA15; inline;
  60223. begin
  60224. pTDefRegMap(@Self)^.&set := $00008000;
  60225. end;
  60226. procedure TPORTA_LATA.clearLATA15; inline;
  60227. begin
  60228. pTDefRegMap(@Self)^.clr := $00008000;
  60229. end;
  60230. procedure TPORTA_LATA.setLATA15(thebits : TBits_1); inline;
  60231. begin
  60232. if thebits = 0 then
  60233. pTDefRegMap(@Self)^.clr := $00008000
  60234. else
  60235. pTDefRegMap(@Self)^.&set := $00008000;
  60236. end;
  60237. function TPORTA_LATA.getLATA15 : TBits_1; inline;
  60238. begin
  60239. getLATA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  60240. end;
  60241. procedure TPORTA_LATA.setw(thebits : TBits_32); inline;
  60242. begin
  60243. pTDefRegMap(@Self)^.val := thebits;
  60244. end;
  60245. function TPORTA_LATA.getw : TBits_32; inline;
  60246. begin
  60247. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  60248. end;
  60249. procedure TPORTA_ODCA.setODCA0; inline;
  60250. begin
  60251. pTDefRegMap(@Self)^.&set := $00000001;
  60252. end;
  60253. procedure TPORTA_ODCA.clearODCA0; inline;
  60254. begin
  60255. pTDefRegMap(@Self)^.clr := $00000001;
  60256. end;
  60257. procedure TPORTA_ODCA.setODCA0(thebits : TBits_1); inline;
  60258. begin
  60259. if thebits = 0 then
  60260. pTDefRegMap(@Self)^.clr := $00000001
  60261. else
  60262. pTDefRegMap(@Self)^.&set := $00000001;
  60263. end;
  60264. function TPORTA_ODCA.getODCA0 : TBits_1; inline;
  60265. begin
  60266. getODCA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  60267. end;
  60268. procedure TPORTA_ODCA.setODCA1; inline;
  60269. begin
  60270. pTDefRegMap(@Self)^.&set := $00000002;
  60271. end;
  60272. procedure TPORTA_ODCA.clearODCA1; inline;
  60273. begin
  60274. pTDefRegMap(@Self)^.clr := $00000002;
  60275. end;
  60276. procedure TPORTA_ODCA.setODCA1(thebits : TBits_1); inline;
  60277. begin
  60278. if thebits = 0 then
  60279. pTDefRegMap(@Self)^.clr := $00000002
  60280. else
  60281. pTDefRegMap(@Self)^.&set := $00000002;
  60282. end;
  60283. function TPORTA_ODCA.getODCA1 : TBits_1; inline;
  60284. begin
  60285. getODCA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60286. end;
  60287. procedure TPORTA_ODCA.setODCA2; inline;
  60288. begin
  60289. pTDefRegMap(@Self)^.&set := $00000004;
  60290. end;
  60291. procedure TPORTA_ODCA.clearODCA2; inline;
  60292. begin
  60293. pTDefRegMap(@Self)^.clr := $00000004;
  60294. end;
  60295. procedure TPORTA_ODCA.setODCA2(thebits : TBits_1); inline;
  60296. begin
  60297. if thebits = 0 then
  60298. pTDefRegMap(@Self)^.clr := $00000004
  60299. else
  60300. pTDefRegMap(@Self)^.&set := $00000004;
  60301. end;
  60302. function TPORTA_ODCA.getODCA2 : TBits_1; inline;
  60303. begin
  60304. getODCA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  60305. end;
  60306. procedure TPORTA_ODCA.setODCA3; inline;
  60307. begin
  60308. pTDefRegMap(@Self)^.&set := $00000008;
  60309. end;
  60310. procedure TPORTA_ODCA.clearODCA3; inline;
  60311. begin
  60312. pTDefRegMap(@Self)^.clr := $00000008;
  60313. end;
  60314. procedure TPORTA_ODCA.setODCA3(thebits : TBits_1); inline;
  60315. begin
  60316. if thebits = 0 then
  60317. pTDefRegMap(@Self)^.clr := $00000008
  60318. else
  60319. pTDefRegMap(@Self)^.&set := $00000008;
  60320. end;
  60321. function TPORTA_ODCA.getODCA3 : TBits_1; inline;
  60322. begin
  60323. getODCA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  60324. end;
  60325. procedure TPORTA_ODCA.setODCA4; inline;
  60326. begin
  60327. pTDefRegMap(@Self)^.&set := $00000010;
  60328. end;
  60329. procedure TPORTA_ODCA.clearODCA4; inline;
  60330. begin
  60331. pTDefRegMap(@Self)^.clr := $00000010;
  60332. end;
  60333. procedure TPORTA_ODCA.setODCA4(thebits : TBits_1); inline;
  60334. begin
  60335. if thebits = 0 then
  60336. pTDefRegMap(@Self)^.clr := $00000010
  60337. else
  60338. pTDefRegMap(@Self)^.&set := $00000010;
  60339. end;
  60340. function TPORTA_ODCA.getODCA4 : TBits_1; inline;
  60341. begin
  60342. getODCA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  60343. end;
  60344. procedure TPORTA_ODCA.setODCA5; inline;
  60345. begin
  60346. pTDefRegMap(@Self)^.&set := $00000020;
  60347. end;
  60348. procedure TPORTA_ODCA.clearODCA5; inline;
  60349. begin
  60350. pTDefRegMap(@Self)^.clr := $00000020;
  60351. end;
  60352. procedure TPORTA_ODCA.setODCA5(thebits : TBits_1); inline;
  60353. begin
  60354. if thebits = 0 then
  60355. pTDefRegMap(@Self)^.clr := $00000020
  60356. else
  60357. pTDefRegMap(@Self)^.&set := $00000020;
  60358. end;
  60359. function TPORTA_ODCA.getODCA5 : TBits_1; inline;
  60360. begin
  60361. getODCA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  60362. end;
  60363. procedure TPORTA_ODCA.setODCA6; inline;
  60364. begin
  60365. pTDefRegMap(@Self)^.&set := $00000040;
  60366. end;
  60367. procedure TPORTA_ODCA.clearODCA6; inline;
  60368. begin
  60369. pTDefRegMap(@Self)^.clr := $00000040;
  60370. end;
  60371. procedure TPORTA_ODCA.setODCA6(thebits : TBits_1); inline;
  60372. begin
  60373. if thebits = 0 then
  60374. pTDefRegMap(@Self)^.clr := $00000040
  60375. else
  60376. pTDefRegMap(@Self)^.&set := $00000040;
  60377. end;
  60378. function TPORTA_ODCA.getODCA6 : TBits_1; inline;
  60379. begin
  60380. getODCA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  60381. end;
  60382. procedure TPORTA_ODCA.setODCA7; inline;
  60383. begin
  60384. pTDefRegMap(@Self)^.&set := $00000080;
  60385. end;
  60386. procedure TPORTA_ODCA.clearODCA7; inline;
  60387. begin
  60388. pTDefRegMap(@Self)^.clr := $00000080;
  60389. end;
  60390. procedure TPORTA_ODCA.setODCA7(thebits : TBits_1); inline;
  60391. begin
  60392. if thebits = 0 then
  60393. pTDefRegMap(@Self)^.clr := $00000080
  60394. else
  60395. pTDefRegMap(@Self)^.&set := $00000080;
  60396. end;
  60397. function TPORTA_ODCA.getODCA7 : TBits_1; inline;
  60398. begin
  60399. getODCA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  60400. end;
  60401. procedure TPORTA_ODCA.setODCA9; inline;
  60402. begin
  60403. pTDefRegMap(@Self)^.&set := $00000200;
  60404. end;
  60405. procedure TPORTA_ODCA.clearODCA9; inline;
  60406. begin
  60407. pTDefRegMap(@Self)^.clr := $00000200;
  60408. end;
  60409. procedure TPORTA_ODCA.setODCA9(thebits : TBits_1); inline;
  60410. begin
  60411. if thebits = 0 then
  60412. pTDefRegMap(@Self)^.clr := $00000200
  60413. else
  60414. pTDefRegMap(@Self)^.&set := $00000200;
  60415. end;
  60416. function TPORTA_ODCA.getODCA9 : TBits_1; inline;
  60417. begin
  60418. getODCA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  60419. end;
  60420. procedure TPORTA_ODCA.setODCA10; inline;
  60421. begin
  60422. pTDefRegMap(@Self)^.&set := $00000400;
  60423. end;
  60424. procedure TPORTA_ODCA.clearODCA10; inline;
  60425. begin
  60426. pTDefRegMap(@Self)^.clr := $00000400;
  60427. end;
  60428. procedure TPORTA_ODCA.setODCA10(thebits : TBits_1); inline;
  60429. begin
  60430. if thebits = 0 then
  60431. pTDefRegMap(@Self)^.clr := $00000400
  60432. else
  60433. pTDefRegMap(@Self)^.&set := $00000400;
  60434. end;
  60435. function TPORTA_ODCA.getODCA10 : TBits_1; inline;
  60436. begin
  60437. getODCA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  60438. end;
  60439. procedure TPORTA_ODCA.setODCA14; inline;
  60440. begin
  60441. pTDefRegMap(@Self)^.&set := $00004000;
  60442. end;
  60443. procedure TPORTA_ODCA.clearODCA14; inline;
  60444. begin
  60445. pTDefRegMap(@Self)^.clr := $00004000;
  60446. end;
  60447. procedure TPORTA_ODCA.setODCA14(thebits : TBits_1); inline;
  60448. begin
  60449. if thebits = 0 then
  60450. pTDefRegMap(@Self)^.clr := $00004000
  60451. else
  60452. pTDefRegMap(@Self)^.&set := $00004000;
  60453. end;
  60454. function TPORTA_ODCA.getODCA14 : TBits_1; inline;
  60455. begin
  60456. getODCA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  60457. end;
  60458. procedure TPORTA_ODCA.setODCA15; inline;
  60459. begin
  60460. pTDefRegMap(@Self)^.&set := $00008000;
  60461. end;
  60462. procedure TPORTA_ODCA.clearODCA15; inline;
  60463. begin
  60464. pTDefRegMap(@Self)^.clr := $00008000;
  60465. end;
  60466. procedure TPORTA_ODCA.setODCA15(thebits : TBits_1); inline;
  60467. begin
  60468. if thebits = 0 then
  60469. pTDefRegMap(@Self)^.clr := $00008000
  60470. else
  60471. pTDefRegMap(@Self)^.&set := $00008000;
  60472. end;
  60473. function TPORTA_ODCA.getODCA15 : TBits_1; inline;
  60474. begin
  60475. getODCA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  60476. end;
  60477. procedure TPORTA_ODCA.setw(thebits : TBits_32); inline;
  60478. begin
  60479. pTDefRegMap(@Self)^.val := thebits;
  60480. end;
  60481. function TPORTA_ODCA.getw : TBits_32; inline;
  60482. begin
  60483. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  60484. end;
  60485. procedure TPORTB_TRISB.setTRISB0; inline;
  60486. begin
  60487. pTDefRegMap(@Self)^.&set := $00000001;
  60488. end;
  60489. procedure TPORTB_TRISB.clearTRISB0; inline;
  60490. begin
  60491. pTDefRegMap(@Self)^.clr := $00000001;
  60492. end;
  60493. procedure TPORTB_TRISB.setTRISB0(thebits : TBits_1); inline;
  60494. begin
  60495. if thebits = 0 then
  60496. pTDefRegMap(@Self)^.clr := $00000001
  60497. else
  60498. pTDefRegMap(@Self)^.&set := $00000001;
  60499. end;
  60500. function TPORTB_TRISB.getTRISB0 : TBits_1; inline;
  60501. begin
  60502. getTRISB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  60503. end;
  60504. procedure TPORTB_TRISB.setTRISB1; inline;
  60505. begin
  60506. pTDefRegMap(@Self)^.&set := $00000002;
  60507. end;
  60508. procedure TPORTB_TRISB.clearTRISB1; inline;
  60509. begin
  60510. pTDefRegMap(@Self)^.clr := $00000002;
  60511. end;
  60512. procedure TPORTB_TRISB.setTRISB1(thebits : TBits_1); inline;
  60513. begin
  60514. if thebits = 0 then
  60515. pTDefRegMap(@Self)^.clr := $00000002
  60516. else
  60517. pTDefRegMap(@Self)^.&set := $00000002;
  60518. end;
  60519. function TPORTB_TRISB.getTRISB1 : TBits_1; inline;
  60520. begin
  60521. getTRISB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60522. end;
  60523. procedure TPORTB_TRISB.setTRISB2; inline;
  60524. begin
  60525. pTDefRegMap(@Self)^.&set := $00000004;
  60526. end;
  60527. procedure TPORTB_TRISB.clearTRISB2; inline;
  60528. begin
  60529. pTDefRegMap(@Self)^.clr := $00000004;
  60530. end;
  60531. procedure TPORTB_TRISB.setTRISB2(thebits : TBits_1); inline;
  60532. begin
  60533. if thebits = 0 then
  60534. pTDefRegMap(@Self)^.clr := $00000004
  60535. else
  60536. pTDefRegMap(@Self)^.&set := $00000004;
  60537. end;
  60538. function TPORTB_TRISB.getTRISB2 : TBits_1; inline;
  60539. begin
  60540. getTRISB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  60541. end;
  60542. procedure TPORTB_TRISB.setTRISB3; inline;
  60543. begin
  60544. pTDefRegMap(@Self)^.&set := $00000008;
  60545. end;
  60546. procedure TPORTB_TRISB.clearTRISB3; inline;
  60547. begin
  60548. pTDefRegMap(@Self)^.clr := $00000008;
  60549. end;
  60550. procedure TPORTB_TRISB.setTRISB3(thebits : TBits_1); inline;
  60551. begin
  60552. if thebits = 0 then
  60553. pTDefRegMap(@Self)^.clr := $00000008
  60554. else
  60555. pTDefRegMap(@Self)^.&set := $00000008;
  60556. end;
  60557. function TPORTB_TRISB.getTRISB3 : TBits_1; inline;
  60558. begin
  60559. getTRISB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  60560. end;
  60561. procedure TPORTB_TRISB.setTRISB4; inline;
  60562. begin
  60563. pTDefRegMap(@Self)^.&set := $00000010;
  60564. end;
  60565. procedure TPORTB_TRISB.clearTRISB4; inline;
  60566. begin
  60567. pTDefRegMap(@Self)^.clr := $00000010;
  60568. end;
  60569. procedure TPORTB_TRISB.setTRISB4(thebits : TBits_1); inline;
  60570. begin
  60571. if thebits = 0 then
  60572. pTDefRegMap(@Self)^.clr := $00000010
  60573. else
  60574. pTDefRegMap(@Self)^.&set := $00000010;
  60575. end;
  60576. function TPORTB_TRISB.getTRISB4 : TBits_1; inline;
  60577. begin
  60578. getTRISB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  60579. end;
  60580. procedure TPORTB_TRISB.setTRISB5; inline;
  60581. begin
  60582. pTDefRegMap(@Self)^.&set := $00000020;
  60583. end;
  60584. procedure TPORTB_TRISB.clearTRISB5; inline;
  60585. begin
  60586. pTDefRegMap(@Self)^.clr := $00000020;
  60587. end;
  60588. procedure TPORTB_TRISB.setTRISB5(thebits : TBits_1); inline;
  60589. begin
  60590. if thebits = 0 then
  60591. pTDefRegMap(@Self)^.clr := $00000020
  60592. else
  60593. pTDefRegMap(@Self)^.&set := $00000020;
  60594. end;
  60595. function TPORTB_TRISB.getTRISB5 : TBits_1; inline;
  60596. begin
  60597. getTRISB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  60598. end;
  60599. procedure TPORTB_TRISB.setTRISB6; inline;
  60600. begin
  60601. pTDefRegMap(@Self)^.&set := $00000040;
  60602. end;
  60603. procedure TPORTB_TRISB.clearTRISB6; inline;
  60604. begin
  60605. pTDefRegMap(@Self)^.clr := $00000040;
  60606. end;
  60607. procedure TPORTB_TRISB.setTRISB6(thebits : TBits_1); inline;
  60608. begin
  60609. if thebits = 0 then
  60610. pTDefRegMap(@Self)^.clr := $00000040
  60611. else
  60612. pTDefRegMap(@Self)^.&set := $00000040;
  60613. end;
  60614. function TPORTB_TRISB.getTRISB6 : TBits_1; inline;
  60615. begin
  60616. getTRISB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  60617. end;
  60618. procedure TPORTB_TRISB.setTRISB7; inline;
  60619. begin
  60620. pTDefRegMap(@Self)^.&set := $00000080;
  60621. end;
  60622. procedure TPORTB_TRISB.clearTRISB7; inline;
  60623. begin
  60624. pTDefRegMap(@Self)^.clr := $00000080;
  60625. end;
  60626. procedure TPORTB_TRISB.setTRISB7(thebits : TBits_1); inline;
  60627. begin
  60628. if thebits = 0 then
  60629. pTDefRegMap(@Self)^.clr := $00000080
  60630. else
  60631. pTDefRegMap(@Self)^.&set := $00000080;
  60632. end;
  60633. function TPORTB_TRISB.getTRISB7 : TBits_1; inline;
  60634. begin
  60635. getTRISB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  60636. end;
  60637. procedure TPORTB_TRISB.setTRISB8; inline;
  60638. begin
  60639. pTDefRegMap(@Self)^.&set := $00000100;
  60640. end;
  60641. procedure TPORTB_TRISB.clearTRISB8; inline;
  60642. begin
  60643. pTDefRegMap(@Self)^.clr := $00000100;
  60644. end;
  60645. procedure TPORTB_TRISB.setTRISB8(thebits : TBits_1); inline;
  60646. begin
  60647. if thebits = 0 then
  60648. pTDefRegMap(@Self)^.clr := $00000100
  60649. else
  60650. pTDefRegMap(@Self)^.&set := $00000100;
  60651. end;
  60652. function TPORTB_TRISB.getTRISB8 : TBits_1; inline;
  60653. begin
  60654. getTRISB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  60655. end;
  60656. procedure TPORTB_TRISB.setTRISB9; inline;
  60657. begin
  60658. pTDefRegMap(@Self)^.&set := $00000200;
  60659. end;
  60660. procedure TPORTB_TRISB.clearTRISB9; inline;
  60661. begin
  60662. pTDefRegMap(@Self)^.clr := $00000200;
  60663. end;
  60664. procedure TPORTB_TRISB.setTRISB9(thebits : TBits_1); inline;
  60665. begin
  60666. if thebits = 0 then
  60667. pTDefRegMap(@Self)^.clr := $00000200
  60668. else
  60669. pTDefRegMap(@Self)^.&set := $00000200;
  60670. end;
  60671. function TPORTB_TRISB.getTRISB9 : TBits_1; inline;
  60672. begin
  60673. getTRISB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  60674. end;
  60675. procedure TPORTB_TRISB.setTRISB10; inline;
  60676. begin
  60677. pTDefRegMap(@Self)^.&set := $00000400;
  60678. end;
  60679. procedure TPORTB_TRISB.clearTRISB10; inline;
  60680. begin
  60681. pTDefRegMap(@Self)^.clr := $00000400;
  60682. end;
  60683. procedure TPORTB_TRISB.setTRISB10(thebits : TBits_1); inline;
  60684. begin
  60685. if thebits = 0 then
  60686. pTDefRegMap(@Self)^.clr := $00000400
  60687. else
  60688. pTDefRegMap(@Self)^.&set := $00000400;
  60689. end;
  60690. function TPORTB_TRISB.getTRISB10 : TBits_1; inline;
  60691. begin
  60692. getTRISB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  60693. end;
  60694. procedure TPORTB_TRISB.setTRISB11; inline;
  60695. begin
  60696. pTDefRegMap(@Self)^.&set := $00000800;
  60697. end;
  60698. procedure TPORTB_TRISB.clearTRISB11; inline;
  60699. begin
  60700. pTDefRegMap(@Self)^.clr := $00000800;
  60701. end;
  60702. procedure TPORTB_TRISB.setTRISB11(thebits : TBits_1); inline;
  60703. begin
  60704. if thebits = 0 then
  60705. pTDefRegMap(@Self)^.clr := $00000800
  60706. else
  60707. pTDefRegMap(@Self)^.&set := $00000800;
  60708. end;
  60709. function TPORTB_TRISB.getTRISB11 : TBits_1; inline;
  60710. begin
  60711. getTRISB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  60712. end;
  60713. procedure TPORTB_TRISB.setTRISB12; inline;
  60714. begin
  60715. pTDefRegMap(@Self)^.&set := $00001000;
  60716. end;
  60717. procedure TPORTB_TRISB.clearTRISB12; inline;
  60718. begin
  60719. pTDefRegMap(@Self)^.clr := $00001000;
  60720. end;
  60721. procedure TPORTB_TRISB.setTRISB12(thebits : TBits_1); inline;
  60722. begin
  60723. if thebits = 0 then
  60724. pTDefRegMap(@Self)^.clr := $00001000
  60725. else
  60726. pTDefRegMap(@Self)^.&set := $00001000;
  60727. end;
  60728. function TPORTB_TRISB.getTRISB12 : TBits_1; inline;
  60729. begin
  60730. getTRISB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  60731. end;
  60732. procedure TPORTB_TRISB.setTRISB13; inline;
  60733. begin
  60734. pTDefRegMap(@Self)^.&set := $00002000;
  60735. end;
  60736. procedure TPORTB_TRISB.clearTRISB13; inline;
  60737. begin
  60738. pTDefRegMap(@Self)^.clr := $00002000;
  60739. end;
  60740. procedure TPORTB_TRISB.setTRISB13(thebits : TBits_1); inline;
  60741. begin
  60742. if thebits = 0 then
  60743. pTDefRegMap(@Self)^.clr := $00002000
  60744. else
  60745. pTDefRegMap(@Self)^.&set := $00002000;
  60746. end;
  60747. function TPORTB_TRISB.getTRISB13 : TBits_1; inline;
  60748. begin
  60749. getTRISB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  60750. end;
  60751. procedure TPORTB_TRISB.setTRISB14; inline;
  60752. begin
  60753. pTDefRegMap(@Self)^.&set := $00004000;
  60754. end;
  60755. procedure TPORTB_TRISB.clearTRISB14; inline;
  60756. begin
  60757. pTDefRegMap(@Self)^.clr := $00004000;
  60758. end;
  60759. procedure TPORTB_TRISB.setTRISB14(thebits : TBits_1); inline;
  60760. begin
  60761. if thebits = 0 then
  60762. pTDefRegMap(@Self)^.clr := $00004000
  60763. else
  60764. pTDefRegMap(@Self)^.&set := $00004000;
  60765. end;
  60766. function TPORTB_TRISB.getTRISB14 : TBits_1; inline;
  60767. begin
  60768. getTRISB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  60769. end;
  60770. procedure TPORTB_TRISB.setTRISB15; inline;
  60771. begin
  60772. pTDefRegMap(@Self)^.&set := $00008000;
  60773. end;
  60774. procedure TPORTB_TRISB.clearTRISB15; inline;
  60775. begin
  60776. pTDefRegMap(@Self)^.clr := $00008000;
  60777. end;
  60778. procedure TPORTB_TRISB.setTRISB15(thebits : TBits_1); inline;
  60779. begin
  60780. if thebits = 0 then
  60781. pTDefRegMap(@Self)^.clr := $00008000
  60782. else
  60783. pTDefRegMap(@Self)^.&set := $00008000;
  60784. end;
  60785. function TPORTB_TRISB.getTRISB15 : TBits_1; inline;
  60786. begin
  60787. getTRISB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  60788. end;
  60789. procedure TPORTB_TRISB.setw(thebits : TBits_32); inline;
  60790. begin
  60791. pTDefRegMap(@Self)^.val := thebits;
  60792. end;
  60793. function TPORTB_TRISB.getw : TBits_32; inline;
  60794. begin
  60795. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  60796. end;
  60797. procedure TPORTB_PORTB.setRB0; inline;
  60798. begin
  60799. pTDefRegMap(@Self)^.&set := $00000001;
  60800. end;
  60801. procedure TPORTB_PORTB.clearRB0; inline;
  60802. begin
  60803. pTDefRegMap(@Self)^.clr := $00000001;
  60804. end;
  60805. procedure TPORTB_PORTB.setRB0(thebits : TBits_1); inline;
  60806. begin
  60807. if thebits = 0 then
  60808. pTDefRegMap(@Self)^.clr := $00000001
  60809. else
  60810. pTDefRegMap(@Self)^.&set := $00000001;
  60811. end;
  60812. function TPORTB_PORTB.getRB0 : TBits_1; inline;
  60813. begin
  60814. getRB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  60815. end;
  60816. procedure TPORTB_PORTB.setRB1; inline;
  60817. begin
  60818. pTDefRegMap(@Self)^.&set := $00000002;
  60819. end;
  60820. procedure TPORTB_PORTB.clearRB1; inline;
  60821. begin
  60822. pTDefRegMap(@Self)^.clr := $00000002;
  60823. end;
  60824. procedure TPORTB_PORTB.setRB1(thebits : TBits_1); inline;
  60825. begin
  60826. if thebits = 0 then
  60827. pTDefRegMap(@Self)^.clr := $00000002
  60828. else
  60829. pTDefRegMap(@Self)^.&set := $00000002;
  60830. end;
  60831. function TPORTB_PORTB.getRB1 : TBits_1; inline;
  60832. begin
  60833. getRB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60834. end;
  60835. procedure TPORTB_PORTB.setRB2; inline;
  60836. begin
  60837. pTDefRegMap(@Self)^.&set := $00000004;
  60838. end;
  60839. procedure TPORTB_PORTB.clearRB2; inline;
  60840. begin
  60841. pTDefRegMap(@Self)^.clr := $00000004;
  60842. end;
  60843. procedure TPORTB_PORTB.setRB2(thebits : TBits_1); inline;
  60844. begin
  60845. if thebits = 0 then
  60846. pTDefRegMap(@Self)^.clr := $00000004
  60847. else
  60848. pTDefRegMap(@Self)^.&set := $00000004;
  60849. end;
  60850. function TPORTB_PORTB.getRB2 : TBits_1; inline;
  60851. begin
  60852. getRB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  60853. end;
  60854. procedure TPORTB_PORTB.setRB3; inline;
  60855. begin
  60856. pTDefRegMap(@Self)^.&set := $00000008;
  60857. end;
  60858. procedure TPORTB_PORTB.clearRB3; inline;
  60859. begin
  60860. pTDefRegMap(@Self)^.clr := $00000008;
  60861. end;
  60862. procedure TPORTB_PORTB.setRB3(thebits : TBits_1); inline;
  60863. begin
  60864. if thebits = 0 then
  60865. pTDefRegMap(@Self)^.clr := $00000008
  60866. else
  60867. pTDefRegMap(@Self)^.&set := $00000008;
  60868. end;
  60869. function TPORTB_PORTB.getRB3 : TBits_1; inline;
  60870. begin
  60871. getRB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  60872. end;
  60873. procedure TPORTB_PORTB.setRB4; inline;
  60874. begin
  60875. pTDefRegMap(@Self)^.&set := $00000010;
  60876. end;
  60877. procedure TPORTB_PORTB.clearRB4; inline;
  60878. begin
  60879. pTDefRegMap(@Self)^.clr := $00000010;
  60880. end;
  60881. procedure TPORTB_PORTB.setRB4(thebits : TBits_1); inline;
  60882. begin
  60883. if thebits = 0 then
  60884. pTDefRegMap(@Self)^.clr := $00000010
  60885. else
  60886. pTDefRegMap(@Self)^.&set := $00000010;
  60887. end;
  60888. function TPORTB_PORTB.getRB4 : TBits_1; inline;
  60889. begin
  60890. getRB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  60891. end;
  60892. procedure TPORTB_PORTB.setRB5; inline;
  60893. begin
  60894. pTDefRegMap(@Self)^.&set := $00000020;
  60895. end;
  60896. procedure TPORTB_PORTB.clearRB5; inline;
  60897. begin
  60898. pTDefRegMap(@Self)^.clr := $00000020;
  60899. end;
  60900. procedure TPORTB_PORTB.setRB5(thebits : TBits_1); inline;
  60901. begin
  60902. if thebits = 0 then
  60903. pTDefRegMap(@Self)^.clr := $00000020
  60904. else
  60905. pTDefRegMap(@Self)^.&set := $00000020;
  60906. end;
  60907. function TPORTB_PORTB.getRB5 : TBits_1; inline;
  60908. begin
  60909. getRB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  60910. end;
  60911. procedure TPORTB_PORTB.setRB6; inline;
  60912. begin
  60913. pTDefRegMap(@Self)^.&set := $00000040;
  60914. end;
  60915. procedure TPORTB_PORTB.clearRB6; inline;
  60916. begin
  60917. pTDefRegMap(@Self)^.clr := $00000040;
  60918. end;
  60919. procedure TPORTB_PORTB.setRB6(thebits : TBits_1); inline;
  60920. begin
  60921. if thebits = 0 then
  60922. pTDefRegMap(@Self)^.clr := $00000040
  60923. else
  60924. pTDefRegMap(@Self)^.&set := $00000040;
  60925. end;
  60926. function TPORTB_PORTB.getRB6 : TBits_1; inline;
  60927. begin
  60928. getRB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  60929. end;
  60930. procedure TPORTB_PORTB.setRB7; inline;
  60931. begin
  60932. pTDefRegMap(@Self)^.&set := $00000080;
  60933. end;
  60934. procedure TPORTB_PORTB.clearRB7; inline;
  60935. begin
  60936. pTDefRegMap(@Self)^.clr := $00000080;
  60937. end;
  60938. procedure TPORTB_PORTB.setRB7(thebits : TBits_1); inline;
  60939. begin
  60940. if thebits = 0 then
  60941. pTDefRegMap(@Self)^.clr := $00000080
  60942. else
  60943. pTDefRegMap(@Self)^.&set := $00000080;
  60944. end;
  60945. function TPORTB_PORTB.getRB7 : TBits_1; inline;
  60946. begin
  60947. getRB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  60948. end;
  60949. procedure TPORTB_PORTB.setRB8; inline;
  60950. begin
  60951. pTDefRegMap(@Self)^.&set := $00000100;
  60952. end;
  60953. procedure TPORTB_PORTB.clearRB8; inline;
  60954. begin
  60955. pTDefRegMap(@Self)^.clr := $00000100;
  60956. end;
  60957. procedure TPORTB_PORTB.setRB8(thebits : TBits_1); inline;
  60958. begin
  60959. if thebits = 0 then
  60960. pTDefRegMap(@Self)^.clr := $00000100
  60961. else
  60962. pTDefRegMap(@Self)^.&set := $00000100;
  60963. end;
  60964. function TPORTB_PORTB.getRB8 : TBits_1; inline;
  60965. begin
  60966. getRB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  60967. end;
  60968. procedure TPORTB_PORTB.setRB9; inline;
  60969. begin
  60970. pTDefRegMap(@Self)^.&set := $00000200;
  60971. end;
  60972. procedure TPORTB_PORTB.clearRB9; inline;
  60973. begin
  60974. pTDefRegMap(@Self)^.clr := $00000200;
  60975. end;
  60976. procedure TPORTB_PORTB.setRB9(thebits : TBits_1); inline;
  60977. begin
  60978. if thebits = 0 then
  60979. pTDefRegMap(@Self)^.clr := $00000200
  60980. else
  60981. pTDefRegMap(@Self)^.&set := $00000200;
  60982. end;
  60983. function TPORTB_PORTB.getRB9 : TBits_1; inline;
  60984. begin
  60985. getRB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  60986. end;
  60987. procedure TPORTB_PORTB.setRB10; inline;
  60988. begin
  60989. pTDefRegMap(@Self)^.&set := $00000400;
  60990. end;
  60991. procedure TPORTB_PORTB.clearRB10; inline;
  60992. begin
  60993. pTDefRegMap(@Self)^.clr := $00000400;
  60994. end;
  60995. procedure TPORTB_PORTB.setRB10(thebits : TBits_1); inline;
  60996. begin
  60997. if thebits = 0 then
  60998. pTDefRegMap(@Self)^.clr := $00000400
  60999. else
  61000. pTDefRegMap(@Self)^.&set := $00000400;
  61001. end;
  61002. function TPORTB_PORTB.getRB10 : TBits_1; inline;
  61003. begin
  61004. getRB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  61005. end;
  61006. procedure TPORTB_PORTB.setRB11; inline;
  61007. begin
  61008. pTDefRegMap(@Self)^.&set := $00000800;
  61009. end;
  61010. procedure TPORTB_PORTB.clearRB11; inline;
  61011. begin
  61012. pTDefRegMap(@Self)^.clr := $00000800;
  61013. end;
  61014. procedure TPORTB_PORTB.setRB11(thebits : TBits_1); inline;
  61015. begin
  61016. if thebits = 0 then
  61017. pTDefRegMap(@Self)^.clr := $00000800
  61018. else
  61019. pTDefRegMap(@Self)^.&set := $00000800;
  61020. end;
  61021. function TPORTB_PORTB.getRB11 : TBits_1; inline;
  61022. begin
  61023. getRB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  61024. end;
  61025. procedure TPORTB_PORTB.setRB12; inline;
  61026. begin
  61027. pTDefRegMap(@Self)^.&set := $00001000;
  61028. end;
  61029. procedure TPORTB_PORTB.clearRB12; inline;
  61030. begin
  61031. pTDefRegMap(@Self)^.clr := $00001000;
  61032. end;
  61033. procedure TPORTB_PORTB.setRB12(thebits : TBits_1); inline;
  61034. begin
  61035. if thebits = 0 then
  61036. pTDefRegMap(@Self)^.clr := $00001000
  61037. else
  61038. pTDefRegMap(@Self)^.&set := $00001000;
  61039. end;
  61040. function TPORTB_PORTB.getRB12 : TBits_1; inline;
  61041. begin
  61042. getRB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  61043. end;
  61044. procedure TPORTB_PORTB.setRB13; inline;
  61045. begin
  61046. pTDefRegMap(@Self)^.&set := $00002000;
  61047. end;
  61048. procedure TPORTB_PORTB.clearRB13; inline;
  61049. begin
  61050. pTDefRegMap(@Self)^.clr := $00002000;
  61051. end;
  61052. procedure TPORTB_PORTB.setRB13(thebits : TBits_1); inline;
  61053. begin
  61054. if thebits = 0 then
  61055. pTDefRegMap(@Self)^.clr := $00002000
  61056. else
  61057. pTDefRegMap(@Self)^.&set := $00002000;
  61058. end;
  61059. function TPORTB_PORTB.getRB13 : TBits_1; inline;
  61060. begin
  61061. getRB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  61062. end;
  61063. procedure TPORTB_PORTB.setRB14; inline;
  61064. begin
  61065. pTDefRegMap(@Self)^.&set := $00004000;
  61066. end;
  61067. procedure TPORTB_PORTB.clearRB14; inline;
  61068. begin
  61069. pTDefRegMap(@Self)^.clr := $00004000;
  61070. end;
  61071. procedure TPORTB_PORTB.setRB14(thebits : TBits_1); inline;
  61072. begin
  61073. if thebits = 0 then
  61074. pTDefRegMap(@Self)^.clr := $00004000
  61075. else
  61076. pTDefRegMap(@Self)^.&set := $00004000;
  61077. end;
  61078. function TPORTB_PORTB.getRB14 : TBits_1; inline;
  61079. begin
  61080. getRB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  61081. end;
  61082. procedure TPORTB_PORTB.setRB15; inline;
  61083. begin
  61084. pTDefRegMap(@Self)^.&set := $00008000;
  61085. end;
  61086. procedure TPORTB_PORTB.clearRB15; inline;
  61087. begin
  61088. pTDefRegMap(@Self)^.clr := $00008000;
  61089. end;
  61090. procedure TPORTB_PORTB.setRB15(thebits : TBits_1); inline;
  61091. begin
  61092. if thebits = 0 then
  61093. pTDefRegMap(@Self)^.clr := $00008000
  61094. else
  61095. pTDefRegMap(@Self)^.&set := $00008000;
  61096. end;
  61097. function TPORTB_PORTB.getRB15 : TBits_1; inline;
  61098. begin
  61099. getRB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  61100. end;
  61101. procedure TPORTB_PORTB.setw(thebits : TBits_32); inline;
  61102. begin
  61103. pTDefRegMap(@Self)^.val := thebits;
  61104. end;
  61105. function TPORTB_PORTB.getw : TBits_32; inline;
  61106. begin
  61107. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  61108. end;
  61109. procedure TPORTB_LATB.setLATB0; inline;
  61110. begin
  61111. pTDefRegMap(@Self)^.&set := $00000001;
  61112. end;
  61113. procedure TPORTB_LATB.clearLATB0; inline;
  61114. begin
  61115. pTDefRegMap(@Self)^.clr := $00000001;
  61116. end;
  61117. procedure TPORTB_LATB.setLATB0(thebits : TBits_1); inline;
  61118. begin
  61119. if thebits = 0 then
  61120. pTDefRegMap(@Self)^.clr := $00000001
  61121. else
  61122. pTDefRegMap(@Self)^.&set := $00000001;
  61123. end;
  61124. function TPORTB_LATB.getLATB0 : TBits_1; inline;
  61125. begin
  61126. getLATB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  61127. end;
  61128. procedure TPORTB_LATB.setLATB1; inline;
  61129. begin
  61130. pTDefRegMap(@Self)^.&set := $00000002;
  61131. end;
  61132. procedure TPORTB_LATB.clearLATB1; inline;
  61133. begin
  61134. pTDefRegMap(@Self)^.clr := $00000002;
  61135. end;
  61136. procedure TPORTB_LATB.setLATB1(thebits : TBits_1); inline;
  61137. begin
  61138. if thebits = 0 then
  61139. pTDefRegMap(@Self)^.clr := $00000002
  61140. else
  61141. pTDefRegMap(@Self)^.&set := $00000002;
  61142. end;
  61143. function TPORTB_LATB.getLATB1 : TBits_1; inline;
  61144. begin
  61145. getLATB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  61146. end;
  61147. procedure TPORTB_LATB.setLATB2; inline;
  61148. begin
  61149. pTDefRegMap(@Self)^.&set := $00000004;
  61150. end;
  61151. procedure TPORTB_LATB.clearLATB2; inline;
  61152. begin
  61153. pTDefRegMap(@Self)^.clr := $00000004;
  61154. end;
  61155. procedure TPORTB_LATB.setLATB2(thebits : TBits_1); inline;
  61156. begin
  61157. if thebits = 0 then
  61158. pTDefRegMap(@Self)^.clr := $00000004
  61159. else
  61160. pTDefRegMap(@Self)^.&set := $00000004;
  61161. end;
  61162. function TPORTB_LATB.getLATB2 : TBits_1; inline;
  61163. begin
  61164. getLATB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  61165. end;
  61166. procedure TPORTB_LATB.setLATB3; inline;
  61167. begin
  61168. pTDefRegMap(@Self)^.&set := $00000008;
  61169. end;
  61170. procedure TPORTB_LATB.clearLATB3; inline;
  61171. begin
  61172. pTDefRegMap(@Self)^.clr := $00000008;
  61173. end;
  61174. procedure TPORTB_LATB.setLATB3(thebits : TBits_1); inline;
  61175. begin
  61176. if thebits = 0 then
  61177. pTDefRegMap(@Self)^.clr := $00000008
  61178. else
  61179. pTDefRegMap(@Self)^.&set := $00000008;
  61180. end;
  61181. function TPORTB_LATB.getLATB3 : TBits_1; inline;
  61182. begin
  61183. getLATB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  61184. end;
  61185. procedure TPORTB_LATB.setLATB4; inline;
  61186. begin
  61187. pTDefRegMap(@Self)^.&set := $00000010;
  61188. end;
  61189. procedure TPORTB_LATB.clearLATB4; inline;
  61190. begin
  61191. pTDefRegMap(@Self)^.clr := $00000010;
  61192. end;
  61193. procedure TPORTB_LATB.setLATB4(thebits : TBits_1); inline;
  61194. begin
  61195. if thebits = 0 then
  61196. pTDefRegMap(@Self)^.clr := $00000010
  61197. else
  61198. pTDefRegMap(@Self)^.&set := $00000010;
  61199. end;
  61200. function TPORTB_LATB.getLATB4 : TBits_1; inline;
  61201. begin
  61202. getLATB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  61203. end;
  61204. procedure TPORTB_LATB.setLATB5; inline;
  61205. begin
  61206. pTDefRegMap(@Self)^.&set := $00000020;
  61207. end;
  61208. procedure TPORTB_LATB.clearLATB5; inline;
  61209. begin
  61210. pTDefRegMap(@Self)^.clr := $00000020;
  61211. end;
  61212. procedure TPORTB_LATB.setLATB5(thebits : TBits_1); inline;
  61213. begin
  61214. if thebits = 0 then
  61215. pTDefRegMap(@Self)^.clr := $00000020
  61216. else
  61217. pTDefRegMap(@Self)^.&set := $00000020;
  61218. end;
  61219. function TPORTB_LATB.getLATB5 : TBits_1; inline;
  61220. begin
  61221. getLATB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  61222. end;
  61223. procedure TPORTB_LATB.setLATB6; inline;
  61224. begin
  61225. pTDefRegMap(@Self)^.&set := $00000040;
  61226. end;
  61227. procedure TPORTB_LATB.clearLATB6; inline;
  61228. begin
  61229. pTDefRegMap(@Self)^.clr := $00000040;
  61230. end;
  61231. procedure TPORTB_LATB.setLATB6(thebits : TBits_1); inline;
  61232. begin
  61233. if thebits = 0 then
  61234. pTDefRegMap(@Self)^.clr := $00000040
  61235. else
  61236. pTDefRegMap(@Self)^.&set := $00000040;
  61237. end;
  61238. function TPORTB_LATB.getLATB6 : TBits_1; inline;
  61239. begin
  61240. getLATB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  61241. end;
  61242. procedure TPORTB_LATB.setLATB7; inline;
  61243. begin
  61244. pTDefRegMap(@Self)^.&set := $00000080;
  61245. end;
  61246. procedure TPORTB_LATB.clearLATB7; inline;
  61247. begin
  61248. pTDefRegMap(@Self)^.clr := $00000080;
  61249. end;
  61250. procedure TPORTB_LATB.setLATB7(thebits : TBits_1); inline;
  61251. begin
  61252. if thebits = 0 then
  61253. pTDefRegMap(@Self)^.clr := $00000080
  61254. else
  61255. pTDefRegMap(@Self)^.&set := $00000080;
  61256. end;
  61257. function TPORTB_LATB.getLATB7 : TBits_1; inline;
  61258. begin
  61259. getLATB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  61260. end;
  61261. procedure TPORTB_LATB.setLATB8; inline;
  61262. begin
  61263. pTDefRegMap(@Self)^.&set := $00000100;
  61264. end;
  61265. procedure TPORTB_LATB.clearLATB8; inline;
  61266. begin
  61267. pTDefRegMap(@Self)^.clr := $00000100;
  61268. end;
  61269. procedure TPORTB_LATB.setLATB8(thebits : TBits_1); inline;
  61270. begin
  61271. if thebits = 0 then
  61272. pTDefRegMap(@Self)^.clr := $00000100
  61273. else
  61274. pTDefRegMap(@Self)^.&set := $00000100;
  61275. end;
  61276. function TPORTB_LATB.getLATB8 : TBits_1; inline;
  61277. begin
  61278. getLATB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  61279. end;
  61280. procedure TPORTB_LATB.setLATB9; inline;
  61281. begin
  61282. pTDefRegMap(@Self)^.&set := $00000200;
  61283. end;
  61284. procedure TPORTB_LATB.clearLATB9; inline;
  61285. begin
  61286. pTDefRegMap(@Self)^.clr := $00000200;
  61287. end;
  61288. procedure TPORTB_LATB.setLATB9(thebits : TBits_1); inline;
  61289. begin
  61290. if thebits = 0 then
  61291. pTDefRegMap(@Self)^.clr := $00000200
  61292. else
  61293. pTDefRegMap(@Self)^.&set := $00000200;
  61294. end;
  61295. function TPORTB_LATB.getLATB9 : TBits_1; inline;
  61296. begin
  61297. getLATB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  61298. end;
  61299. procedure TPORTB_LATB.setLATB10; inline;
  61300. begin
  61301. pTDefRegMap(@Self)^.&set := $00000400;
  61302. end;
  61303. procedure TPORTB_LATB.clearLATB10; inline;
  61304. begin
  61305. pTDefRegMap(@Self)^.clr := $00000400;
  61306. end;
  61307. procedure TPORTB_LATB.setLATB10(thebits : TBits_1); inline;
  61308. begin
  61309. if thebits = 0 then
  61310. pTDefRegMap(@Self)^.clr := $00000400
  61311. else
  61312. pTDefRegMap(@Self)^.&set := $00000400;
  61313. end;
  61314. function TPORTB_LATB.getLATB10 : TBits_1; inline;
  61315. begin
  61316. getLATB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  61317. end;
  61318. procedure TPORTB_LATB.setLATB11; inline;
  61319. begin
  61320. pTDefRegMap(@Self)^.&set := $00000800;
  61321. end;
  61322. procedure TPORTB_LATB.clearLATB11; inline;
  61323. begin
  61324. pTDefRegMap(@Self)^.clr := $00000800;
  61325. end;
  61326. procedure TPORTB_LATB.setLATB11(thebits : TBits_1); inline;
  61327. begin
  61328. if thebits = 0 then
  61329. pTDefRegMap(@Self)^.clr := $00000800
  61330. else
  61331. pTDefRegMap(@Self)^.&set := $00000800;
  61332. end;
  61333. function TPORTB_LATB.getLATB11 : TBits_1; inline;
  61334. begin
  61335. getLATB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  61336. end;
  61337. procedure TPORTB_LATB.setLATB12; inline;
  61338. begin
  61339. pTDefRegMap(@Self)^.&set := $00001000;
  61340. end;
  61341. procedure TPORTB_LATB.clearLATB12; inline;
  61342. begin
  61343. pTDefRegMap(@Self)^.clr := $00001000;
  61344. end;
  61345. procedure TPORTB_LATB.setLATB12(thebits : TBits_1); inline;
  61346. begin
  61347. if thebits = 0 then
  61348. pTDefRegMap(@Self)^.clr := $00001000
  61349. else
  61350. pTDefRegMap(@Self)^.&set := $00001000;
  61351. end;
  61352. function TPORTB_LATB.getLATB12 : TBits_1; inline;
  61353. begin
  61354. getLATB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  61355. end;
  61356. procedure TPORTB_LATB.setLATB13; inline;
  61357. begin
  61358. pTDefRegMap(@Self)^.&set := $00002000;
  61359. end;
  61360. procedure TPORTB_LATB.clearLATB13; inline;
  61361. begin
  61362. pTDefRegMap(@Self)^.clr := $00002000;
  61363. end;
  61364. procedure TPORTB_LATB.setLATB13(thebits : TBits_1); inline;
  61365. begin
  61366. if thebits = 0 then
  61367. pTDefRegMap(@Self)^.clr := $00002000
  61368. else
  61369. pTDefRegMap(@Self)^.&set := $00002000;
  61370. end;
  61371. function TPORTB_LATB.getLATB13 : TBits_1; inline;
  61372. begin
  61373. getLATB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  61374. end;
  61375. procedure TPORTB_LATB.setLATB14; inline;
  61376. begin
  61377. pTDefRegMap(@Self)^.&set := $00004000;
  61378. end;
  61379. procedure TPORTB_LATB.clearLATB14; inline;
  61380. begin
  61381. pTDefRegMap(@Self)^.clr := $00004000;
  61382. end;
  61383. procedure TPORTB_LATB.setLATB14(thebits : TBits_1); inline;
  61384. begin
  61385. if thebits = 0 then
  61386. pTDefRegMap(@Self)^.clr := $00004000
  61387. else
  61388. pTDefRegMap(@Self)^.&set := $00004000;
  61389. end;
  61390. function TPORTB_LATB.getLATB14 : TBits_1; inline;
  61391. begin
  61392. getLATB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  61393. end;
  61394. procedure TPORTB_LATB.setLATB15; inline;
  61395. begin
  61396. pTDefRegMap(@Self)^.&set := $00008000;
  61397. end;
  61398. procedure TPORTB_LATB.clearLATB15; inline;
  61399. begin
  61400. pTDefRegMap(@Self)^.clr := $00008000;
  61401. end;
  61402. procedure TPORTB_LATB.setLATB15(thebits : TBits_1); inline;
  61403. begin
  61404. if thebits = 0 then
  61405. pTDefRegMap(@Self)^.clr := $00008000
  61406. else
  61407. pTDefRegMap(@Self)^.&set := $00008000;
  61408. end;
  61409. function TPORTB_LATB.getLATB15 : TBits_1; inline;
  61410. begin
  61411. getLATB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  61412. end;
  61413. procedure TPORTB_LATB.setw(thebits : TBits_32); inline;
  61414. begin
  61415. pTDefRegMap(@Self)^.val := thebits;
  61416. end;
  61417. function TPORTB_LATB.getw : TBits_32; inline;
  61418. begin
  61419. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  61420. end;
  61421. procedure TPORTB_ODCB.setODCB0; inline;
  61422. begin
  61423. pTDefRegMap(@Self)^.&set := $00000001;
  61424. end;
  61425. procedure TPORTB_ODCB.clearODCB0; inline;
  61426. begin
  61427. pTDefRegMap(@Self)^.clr := $00000001;
  61428. end;
  61429. procedure TPORTB_ODCB.setODCB0(thebits : TBits_1); inline;
  61430. begin
  61431. if thebits = 0 then
  61432. pTDefRegMap(@Self)^.clr := $00000001
  61433. else
  61434. pTDefRegMap(@Self)^.&set := $00000001;
  61435. end;
  61436. function TPORTB_ODCB.getODCB0 : TBits_1; inline;
  61437. begin
  61438. getODCB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  61439. end;
  61440. procedure TPORTB_ODCB.setODCB1; inline;
  61441. begin
  61442. pTDefRegMap(@Self)^.&set := $00000002;
  61443. end;
  61444. procedure TPORTB_ODCB.clearODCB1; inline;
  61445. begin
  61446. pTDefRegMap(@Self)^.clr := $00000002;
  61447. end;
  61448. procedure TPORTB_ODCB.setODCB1(thebits : TBits_1); inline;
  61449. begin
  61450. if thebits = 0 then
  61451. pTDefRegMap(@Self)^.clr := $00000002
  61452. else
  61453. pTDefRegMap(@Self)^.&set := $00000002;
  61454. end;
  61455. function TPORTB_ODCB.getODCB1 : TBits_1; inline;
  61456. begin
  61457. getODCB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  61458. end;
  61459. procedure TPORTB_ODCB.setODCB2; inline;
  61460. begin
  61461. pTDefRegMap(@Self)^.&set := $00000004;
  61462. end;
  61463. procedure TPORTB_ODCB.clearODCB2; inline;
  61464. begin
  61465. pTDefRegMap(@Self)^.clr := $00000004;
  61466. end;
  61467. procedure TPORTB_ODCB.setODCB2(thebits : TBits_1); inline;
  61468. begin
  61469. if thebits = 0 then
  61470. pTDefRegMap(@Self)^.clr := $00000004
  61471. else
  61472. pTDefRegMap(@Self)^.&set := $00000004;
  61473. end;
  61474. function TPORTB_ODCB.getODCB2 : TBits_1; inline;
  61475. begin
  61476. getODCB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  61477. end;
  61478. procedure TPORTB_ODCB.setODCB3; inline;
  61479. begin
  61480. pTDefRegMap(@Self)^.&set := $00000008;
  61481. end;
  61482. procedure TPORTB_ODCB.clearODCB3; inline;
  61483. begin
  61484. pTDefRegMap(@Self)^.clr := $00000008;
  61485. end;
  61486. procedure TPORTB_ODCB.setODCB3(thebits : TBits_1); inline;
  61487. begin
  61488. if thebits = 0 then
  61489. pTDefRegMap(@Self)^.clr := $00000008
  61490. else
  61491. pTDefRegMap(@Self)^.&set := $00000008;
  61492. end;
  61493. function TPORTB_ODCB.getODCB3 : TBits_1; inline;
  61494. begin
  61495. getODCB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  61496. end;
  61497. procedure TPORTB_ODCB.setODCB4; inline;
  61498. begin
  61499. pTDefRegMap(@Self)^.&set := $00000010;
  61500. end;
  61501. procedure TPORTB_ODCB.clearODCB4; inline;
  61502. begin
  61503. pTDefRegMap(@Self)^.clr := $00000010;
  61504. end;
  61505. procedure TPORTB_ODCB.setODCB4(thebits : TBits_1); inline;
  61506. begin
  61507. if thebits = 0 then
  61508. pTDefRegMap(@Self)^.clr := $00000010
  61509. else
  61510. pTDefRegMap(@Self)^.&set := $00000010;
  61511. end;
  61512. function TPORTB_ODCB.getODCB4 : TBits_1; inline;
  61513. begin
  61514. getODCB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  61515. end;
  61516. procedure TPORTB_ODCB.setODCB5; inline;
  61517. begin
  61518. pTDefRegMap(@Self)^.&set := $00000020;
  61519. end;
  61520. procedure TPORTB_ODCB.clearODCB5; inline;
  61521. begin
  61522. pTDefRegMap(@Self)^.clr := $00000020;
  61523. end;
  61524. procedure TPORTB_ODCB.setODCB5(thebits : TBits_1); inline;
  61525. begin
  61526. if thebits = 0 then
  61527. pTDefRegMap(@Self)^.clr := $00000020
  61528. else
  61529. pTDefRegMap(@Self)^.&set := $00000020;
  61530. end;
  61531. function TPORTB_ODCB.getODCB5 : TBits_1; inline;
  61532. begin
  61533. getODCB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  61534. end;
  61535. procedure TPORTB_ODCB.setODCB6; inline;
  61536. begin
  61537. pTDefRegMap(@Self)^.&set := $00000040;
  61538. end;
  61539. procedure TPORTB_ODCB.clearODCB6; inline;
  61540. begin
  61541. pTDefRegMap(@Self)^.clr := $00000040;
  61542. end;
  61543. procedure TPORTB_ODCB.setODCB6(thebits : TBits_1); inline;
  61544. begin
  61545. if thebits = 0 then
  61546. pTDefRegMap(@Self)^.clr := $00000040
  61547. else
  61548. pTDefRegMap(@Self)^.&set := $00000040;
  61549. end;
  61550. function TPORTB_ODCB.getODCB6 : TBits_1; inline;
  61551. begin
  61552. getODCB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  61553. end;
  61554. procedure TPORTB_ODCB.setODCB7; inline;
  61555. begin
  61556. pTDefRegMap(@Self)^.&set := $00000080;
  61557. end;
  61558. procedure TPORTB_ODCB.clearODCB7; inline;
  61559. begin
  61560. pTDefRegMap(@Self)^.clr := $00000080;
  61561. end;
  61562. procedure TPORTB_ODCB.setODCB7(thebits : TBits_1); inline;
  61563. begin
  61564. if thebits = 0 then
  61565. pTDefRegMap(@Self)^.clr := $00000080
  61566. else
  61567. pTDefRegMap(@Self)^.&set := $00000080;
  61568. end;
  61569. function TPORTB_ODCB.getODCB7 : TBits_1; inline;
  61570. begin
  61571. getODCB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  61572. end;
  61573. procedure TPORTB_ODCB.setODCB8; inline;
  61574. begin
  61575. pTDefRegMap(@Self)^.&set := $00000100;
  61576. end;
  61577. procedure TPORTB_ODCB.clearODCB8; inline;
  61578. begin
  61579. pTDefRegMap(@Self)^.clr := $00000100;
  61580. end;
  61581. procedure TPORTB_ODCB.setODCB8(thebits : TBits_1); inline;
  61582. begin
  61583. if thebits = 0 then
  61584. pTDefRegMap(@Self)^.clr := $00000100
  61585. else
  61586. pTDefRegMap(@Self)^.&set := $00000100;
  61587. end;
  61588. function TPORTB_ODCB.getODCB8 : TBits_1; inline;
  61589. begin
  61590. getODCB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  61591. end;
  61592. procedure TPORTB_ODCB.setODCB9; inline;
  61593. begin
  61594. pTDefRegMap(@Self)^.&set := $00000200;
  61595. end;
  61596. procedure TPORTB_ODCB.clearODCB9; inline;
  61597. begin
  61598. pTDefRegMap(@Self)^.clr := $00000200;
  61599. end;
  61600. procedure TPORTB_ODCB.setODCB9(thebits : TBits_1); inline;
  61601. begin
  61602. if thebits = 0 then
  61603. pTDefRegMap(@Self)^.clr := $00000200
  61604. else
  61605. pTDefRegMap(@Self)^.&set := $00000200;
  61606. end;
  61607. function TPORTB_ODCB.getODCB9 : TBits_1; inline;
  61608. begin
  61609. getODCB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  61610. end;
  61611. procedure TPORTB_ODCB.setODCB10; inline;
  61612. begin
  61613. pTDefRegMap(@Self)^.&set := $00000400;
  61614. end;
  61615. procedure TPORTB_ODCB.clearODCB10; inline;
  61616. begin
  61617. pTDefRegMap(@Self)^.clr := $00000400;
  61618. end;
  61619. procedure TPORTB_ODCB.setODCB10(thebits : TBits_1); inline;
  61620. begin
  61621. if thebits = 0 then
  61622. pTDefRegMap(@Self)^.clr := $00000400
  61623. else
  61624. pTDefRegMap(@Self)^.&set := $00000400;
  61625. end;
  61626. function TPORTB_ODCB.getODCB10 : TBits_1; inline;
  61627. begin
  61628. getODCB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  61629. end;
  61630. procedure TPORTB_ODCB.setODCB11; inline;
  61631. begin
  61632. pTDefRegMap(@Self)^.&set := $00000800;
  61633. end;
  61634. procedure TPORTB_ODCB.clearODCB11; inline;
  61635. begin
  61636. pTDefRegMap(@Self)^.clr := $00000800;
  61637. end;
  61638. procedure TPORTB_ODCB.setODCB11(thebits : TBits_1); inline;
  61639. begin
  61640. if thebits = 0 then
  61641. pTDefRegMap(@Self)^.clr := $00000800
  61642. else
  61643. pTDefRegMap(@Self)^.&set := $00000800;
  61644. end;
  61645. function TPORTB_ODCB.getODCB11 : TBits_1; inline;
  61646. begin
  61647. getODCB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  61648. end;
  61649. procedure TPORTB_ODCB.setODCB12; inline;
  61650. begin
  61651. pTDefRegMap(@Self)^.&set := $00001000;
  61652. end;
  61653. procedure TPORTB_ODCB.clearODCB12; inline;
  61654. begin
  61655. pTDefRegMap(@Self)^.clr := $00001000;
  61656. end;
  61657. procedure TPORTB_ODCB.setODCB12(thebits : TBits_1); inline;
  61658. begin
  61659. if thebits = 0 then
  61660. pTDefRegMap(@Self)^.clr := $00001000
  61661. else
  61662. pTDefRegMap(@Self)^.&set := $00001000;
  61663. end;
  61664. function TPORTB_ODCB.getODCB12 : TBits_1; inline;
  61665. begin
  61666. getODCB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  61667. end;
  61668. procedure TPORTB_ODCB.setODCB13; inline;
  61669. begin
  61670. pTDefRegMap(@Self)^.&set := $00002000;
  61671. end;
  61672. procedure TPORTB_ODCB.clearODCB13; inline;
  61673. begin
  61674. pTDefRegMap(@Self)^.clr := $00002000;
  61675. end;
  61676. procedure TPORTB_ODCB.setODCB13(thebits : TBits_1); inline;
  61677. begin
  61678. if thebits = 0 then
  61679. pTDefRegMap(@Self)^.clr := $00002000
  61680. else
  61681. pTDefRegMap(@Self)^.&set := $00002000;
  61682. end;
  61683. function TPORTB_ODCB.getODCB13 : TBits_1; inline;
  61684. begin
  61685. getODCB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  61686. end;
  61687. procedure TPORTB_ODCB.setODCB14; inline;
  61688. begin
  61689. pTDefRegMap(@Self)^.&set := $00004000;
  61690. end;
  61691. procedure TPORTB_ODCB.clearODCB14; inline;
  61692. begin
  61693. pTDefRegMap(@Self)^.clr := $00004000;
  61694. end;
  61695. procedure TPORTB_ODCB.setODCB14(thebits : TBits_1); inline;
  61696. begin
  61697. if thebits = 0 then
  61698. pTDefRegMap(@Self)^.clr := $00004000
  61699. else
  61700. pTDefRegMap(@Self)^.&set := $00004000;
  61701. end;
  61702. function TPORTB_ODCB.getODCB14 : TBits_1; inline;
  61703. begin
  61704. getODCB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  61705. end;
  61706. procedure TPORTB_ODCB.setODCB15; inline;
  61707. begin
  61708. pTDefRegMap(@Self)^.&set := $00008000;
  61709. end;
  61710. procedure TPORTB_ODCB.clearODCB15; inline;
  61711. begin
  61712. pTDefRegMap(@Self)^.clr := $00008000;
  61713. end;
  61714. procedure TPORTB_ODCB.setODCB15(thebits : TBits_1); inline;
  61715. begin
  61716. if thebits = 0 then
  61717. pTDefRegMap(@Self)^.clr := $00008000
  61718. else
  61719. pTDefRegMap(@Self)^.&set := $00008000;
  61720. end;
  61721. function TPORTB_ODCB.getODCB15 : TBits_1; inline;
  61722. begin
  61723. getODCB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  61724. end;
  61725. procedure TPORTB_ODCB.setw(thebits : TBits_32); inline;
  61726. begin
  61727. pTDefRegMap(@Self)^.val := thebits;
  61728. end;
  61729. function TPORTB_ODCB.getw : TBits_32; inline;
  61730. begin
  61731. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  61732. end;
  61733. procedure TPORTC_TRISC.setTRISC1; inline;
  61734. begin
  61735. pTDefRegMap(@Self)^.&set := $00000002;
  61736. end;
  61737. procedure TPORTC_TRISC.clearTRISC1; inline;
  61738. begin
  61739. pTDefRegMap(@Self)^.clr := $00000002;
  61740. end;
  61741. procedure TPORTC_TRISC.setTRISC1(thebits : TBits_1); inline;
  61742. begin
  61743. if thebits = 0 then
  61744. pTDefRegMap(@Self)^.clr := $00000002
  61745. else
  61746. pTDefRegMap(@Self)^.&set := $00000002;
  61747. end;
  61748. function TPORTC_TRISC.getTRISC1 : TBits_1; inline;
  61749. begin
  61750. getTRISC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  61751. end;
  61752. procedure TPORTC_TRISC.setTRISC2; inline;
  61753. begin
  61754. pTDefRegMap(@Self)^.&set := $00000004;
  61755. end;
  61756. procedure TPORTC_TRISC.clearTRISC2; inline;
  61757. begin
  61758. pTDefRegMap(@Self)^.clr := $00000004;
  61759. end;
  61760. procedure TPORTC_TRISC.setTRISC2(thebits : TBits_1); inline;
  61761. begin
  61762. if thebits = 0 then
  61763. pTDefRegMap(@Self)^.clr := $00000004
  61764. else
  61765. pTDefRegMap(@Self)^.&set := $00000004;
  61766. end;
  61767. function TPORTC_TRISC.getTRISC2 : TBits_1; inline;
  61768. begin
  61769. getTRISC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  61770. end;
  61771. procedure TPORTC_TRISC.setTRISC3; inline;
  61772. begin
  61773. pTDefRegMap(@Self)^.&set := $00000008;
  61774. end;
  61775. procedure TPORTC_TRISC.clearTRISC3; inline;
  61776. begin
  61777. pTDefRegMap(@Self)^.clr := $00000008;
  61778. end;
  61779. procedure TPORTC_TRISC.setTRISC3(thebits : TBits_1); inline;
  61780. begin
  61781. if thebits = 0 then
  61782. pTDefRegMap(@Self)^.clr := $00000008
  61783. else
  61784. pTDefRegMap(@Self)^.&set := $00000008;
  61785. end;
  61786. function TPORTC_TRISC.getTRISC3 : TBits_1; inline;
  61787. begin
  61788. getTRISC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  61789. end;
  61790. procedure TPORTC_TRISC.setTRISC4; inline;
  61791. begin
  61792. pTDefRegMap(@Self)^.&set := $00000010;
  61793. end;
  61794. procedure TPORTC_TRISC.clearTRISC4; inline;
  61795. begin
  61796. pTDefRegMap(@Self)^.clr := $00000010;
  61797. end;
  61798. procedure TPORTC_TRISC.setTRISC4(thebits : TBits_1); inline;
  61799. begin
  61800. if thebits = 0 then
  61801. pTDefRegMap(@Self)^.clr := $00000010
  61802. else
  61803. pTDefRegMap(@Self)^.&set := $00000010;
  61804. end;
  61805. function TPORTC_TRISC.getTRISC4 : TBits_1; inline;
  61806. begin
  61807. getTRISC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  61808. end;
  61809. procedure TPORTC_TRISC.setTRISC12; inline;
  61810. begin
  61811. pTDefRegMap(@Self)^.&set := $00001000;
  61812. end;
  61813. procedure TPORTC_TRISC.clearTRISC12; inline;
  61814. begin
  61815. pTDefRegMap(@Self)^.clr := $00001000;
  61816. end;
  61817. procedure TPORTC_TRISC.setTRISC12(thebits : TBits_1); inline;
  61818. begin
  61819. if thebits = 0 then
  61820. pTDefRegMap(@Self)^.clr := $00001000
  61821. else
  61822. pTDefRegMap(@Self)^.&set := $00001000;
  61823. end;
  61824. function TPORTC_TRISC.getTRISC12 : TBits_1; inline;
  61825. begin
  61826. getTRISC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  61827. end;
  61828. procedure TPORTC_TRISC.setTRISC13; inline;
  61829. begin
  61830. pTDefRegMap(@Self)^.&set := $00002000;
  61831. end;
  61832. procedure TPORTC_TRISC.clearTRISC13; inline;
  61833. begin
  61834. pTDefRegMap(@Self)^.clr := $00002000;
  61835. end;
  61836. procedure TPORTC_TRISC.setTRISC13(thebits : TBits_1); inline;
  61837. begin
  61838. if thebits = 0 then
  61839. pTDefRegMap(@Self)^.clr := $00002000
  61840. else
  61841. pTDefRegMap(@Self)^.&set := $00002000;
  61842. end;
  61843. function TPORTC_TRISC.getTRISC13 : TBits_1; inline;
  61844. begin
  61845. getTRISC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  61846. end;
  61847. procedure TPORTC_TRISC.setTRISC14; inline;
  61848. begin
  61849. pTDefRegMap(@Self)^.&set := $00004000;
  61850. end;
  61851. procedure TPORTC_TRISC.clearTRISC14; inline;
  61852. begin
  61853. pTDefRegMap(@Self)^.clr := $00004000;
  61854. end;
  61855. procedure TPORTC_TRISC.setTRISC14(thebits : TBits_1); inline;
  61856. begin
  61857. if thebits = 0 then
  61858. pTDefRegMap(@Self)^.clr := $00004000
  61859. else
  61860. pTDefRegMap(@Self)^.&set := $00004000;
  61861. end;
  61862. function TPORTC_TRISC.getTRISC14 : TBits_1; inline;
  61863. begin
  61864. getTRISC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  61865. end;
  61866. procedure TPORTC_TRISC.setTRISC15; inline;
  61867. begin
  61868. pTDefRegMap(@Self)^.&set := $00008000;
  61869. end;
  61870. procedure TPORTC_TRISC.clearTRISC15; inline;
  61871. begin
  61872. pTDefRegMap(@Self)^.clr := $00008000;
  61873. end;
  61874. procedure TPORTC_TRISC.setTRISC15(thebits : TBits_1); inline;
  61875. begin
  61876. if thebits = 0 then
  61877. pTDefRegMap(@Self)^.clr := $00008000
  61878. else
  61879. pTDefRegMap(@Self)^.&set := $00008000;
  61880. end;
  61881. function TPORTC_TRISC.getTRISC15 : TBits_1; inline;
  61882. begin
  61883. getTRISC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  61884. end;
  61885. procedure TPORTC_TRISC.setw(thebits : TBits_32); inline;
  61886. begin
  61887. pTDefRegMap(@Self)^.val := thebits;
  61888. end;
  61889. function TPORTC_TRISC.getw : TBits_32; inline;
  61890. begin
  61891. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  61892. end;
  61893. procedure TPORTC_PORTC.setRC1; inline;
  61894. begin
  61895. pTDefRegMap(@Self)^.&set := $00000002;
  61896. end;
  61897. procedure TPORTC_PORTC.clearRC1; inline;
  61898. begin
  61899. pTDefRegMap(@Self)^.clr := $00000002;
  61900. end;
  61901. procedure TPORTC_PORTC.setRC1(thebits : TBits_1); inline;
  61902. begin
  61903. if thebits = 0 then
  61904. pTDefRegMap(@Self)^.clr := $00000002
  61905. else
  61906. pTDefRegMap(@Self)^.&set := $00000002;
  61907. end;
  61908. function TPORTC_PORTC.getRC1 : TBits_1; inline;
  61909. begin
  61910. getRC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  61911. end;
  61912. procedure TPORTC_PORTC.setRC2; inline;
  61913. begin
  61914. pTDefRegMap(@Self)^.&set := $00000004;
  61915. end;
  61916. procedure TPORTC_PORTC.clearRC2; inline;
  61917. begin
  61918. pTDefRegMap(@Self)^.clr := $00000004;
  61919. end;
  61920. procedure TPORTC_PORTC.setRC2(thebits : TBits_1); inline;
  61921. begin
  61922. if thebits = 0 then
  61923. pTDefRegMap(@Self)^.clr := $00000004
  61924. else
  61925. pTDefRegMap(@Self)^.&set := $00000004;
  61926. end;
  61927. function TPORTC_PORTC.getRC2 : TBits_1; inline;
  61928. begin
  61929. getRC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  61930. end;
  61931. procedure TPORTC_PORTC.setRC3; inline;
  61932. begin
  61933. pTDefRegMap(@Self)^.&set := $00000008;
  61934. end;
  61935. procedure TPORTC_PORTC.clearRC3; inline;
  61936. begin
  61937. pTDefRegMap(@Self)^.clr := $00000008;
  61938. end;
  61939. procedure TPORTC_PORTC.setRC3(thebits : TBits_1); inline;
  61940. begin
  61941. if thebits = 0 then
  61942. pTDefRegMap(@Self)^.clr := $00000008
  61943. else
  61944. pTDefRegMap(@Self)^.&set := $00000008;
  61945. end;
  61946. function TPORTC_PORTC.getRC3 : TBits_1; inline;
  61947. begin
  61948. getRC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  61949. end;
  61950. procedure TPORTC_PORTC.setRC4; inline;
  61951. begin
  61952. pTDefRegMap(@Self)^.&set := $00000010;
  61953. end;
  61954. procedure TPORTC_PORTC.clearRC4; inline;
  61955. begin
  61956. pTDefRegMap(@Self)^.clr := $00000010;
  61957. end;
  61958. procedure TPORTC_PORTC.setRC4(thebits : TBits_1); inline;
  61959. begin
  61960. if thebits = 0 then
  61961. pTDefRegMap(@Self)^.clr := $00000010
  61962. else
  61963. pTDefRegMap(@Self)^.&set := $00000010;
  61964. end;
  61965. function TPORTC_PORTC.getRC4 : TBits_1; inline;
  61966. begin
  61967. getRC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  61968. end;
  61969. procedure TPORTC_PORTC.setRC12; inline;
  61970. begin
  61971. pTDefRegMap(@Self)^.&set := $00001000;
  61972. end;
  61973. procedure TPORTC_PORTC.clearRC12; inline;
  61974. begin
  61975. pTDefRegMap(@Self)^.clr := $00001000;
  61976. end;
  61977. procedure TPORTC_PORTC.setRC12(thebits : TBits_1); inline;
  61978. begin
  61979. if thebits = 0 then
  61980. pTDefRegMap(@Self)^.clr := $00001000
  61981. else
  61982. pTDefRegMap(@Self)^.&set := $00001000;
  61983. end;
  61984. function TPORTC_PORTC.getRC12 : TBits_1; inline;
  61985. begin
  61986. getRC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  61987. end;
  61988. procedure TPORTC_PORTC.setRC13; inline;
  61989. begin
  61990. pTDefRegMap(@Self)^.&set := $00002000;
  61991. end;
  61992. procedure TPORTC_PORTC.clearRC13; inline;
  61993. begin
  61994. pTDefRegMap(@Self)^.clr := $00002000;
  61995. end;
  61996. procedure TPORTC_PORTC.setRC13(thebits : TBits_1); inline;
  61997. begin
  61998. if thebits = 0 then
  61999. pTDefRegMap(@Self)^.clr := $00002000
  62000. else
  62001. pTDefRegMap(@Self)^.&set := $00002000;
  62002. end;
  62003. function TPORTC_PORTC.getRC13 : TBits_1; inline;
  62004. begin
  62005. getRC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  62006. end;
  62007. procedure TPORTC_PORTC.setRC14; inline;
  62008. begin
  62009. pTDefRegMap(@Self)^.&set := $00004000;
  62010. end;
  62011. procedure TPORTC_PORTC.clearRC14; inline;
  62012. begin
  62013. pTDefRegMap(@Self)^.clr := $00004000;
  62014. end;
  62015. procedure TPORTC_PORTC.setRC14(thebits : TBits_1); inline;
  62016. begin
  62017. if thebits = 0 then
  62018. pTDefRegMap(@Self)^.clr := $00004000
  62019. else
  62020. pTDefRegMap(@Self)^.&set := $00004000;
  62021. end;
  62022. function TPORTC_PORTC.getRC14 : TBits_1; inline;
  62023. begin
  62024. getRC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  62025. end;
  62026. procedure TPORTC_PORTC.setRC15; inline;
  62027. begin
  62028. pTDefRegMap(@Self)^.&set := $00008000;
  62029. end;
  62030. procedure TPORTC_PORTC.clearRC15; inline;
  62031. begin
  62032. pTDefRegMap(@Self)^.clr := $00008000;
  62033. end;
  62034. procedure TPORTC_PORTC.setRC15(thebits : TBits_1); inline;
  62035. begin
  62036. if thebits = 0 then
  62037. pTDefRegMap(@Self)^.clr := $00008000
  62038. else
  62039. pTDefRegMap(@Self)^.&set := $00008000;
  62040. end;
  62041. function TPORTC_PORTC.getRC15 : TBits_1; inline;
  62042. begin
  62043. getRC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  62044. end;
  62045. procedure TPORTC_PORTC.setw(thebits : TBits_32); inline;
  62046. begin
  62047. pTDefRegMap(@Self)^.val := thebits;
  62048. end;
  62049. function TPORTC_PORTC.getw : TBits_32; inline;
  62050. begin
  62051. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  62052. end;
  62053. procedure TPORTC_LATC.setLATC1; inline;
  62054. begin
  62055. pTDefRegMap(@Self)^.&set := $00000002;
  62056. end;
  62057. procedure TPORTC_LATC.clearLATC1; inline;
  62058. begin
  62059. pTDefRegMap(@Self)^.clr := $00000002;
  62060. end;
  62061. procedure TPORTC_LATC.setLATC1(thebits : TBits_1); inline;
  62062. begin
  62063. if thebits = 0 then
  62064. pTDefRegMap(@Self)^.clr := $00000002
  62065. else
  62066. pTDefRegMap(@Self)^.&set := $00000002;
  62067. end;
  62068. function TPORTC_LATC.getLATC1 : TBits_1; inline;
  62069. begin
  62070. getLATC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  62071. end;
  62072. procedure TPORTC_LATC.setLATC2; inline;
  62073. begin
  62074. pTDefRegMap(@Self)^.&set := $00000004;
  62075. end;
  62076. procedure TPORTC_LATC.clearLATC2; inline;
  62077. begin
  62078. pTDefRegMap(@Self)^.clr := $00000004;
  62079. end;
  62080. procedure TPORTC_LATC.setLATC2(thebits : TBits_1); inline;
  62081. begin
  62082. if thebits = 0 then
  62083. pTDefRegMap(@Self)^.clr := $00000004
  62084. else
  62085. pTDefRegMap(@Self)^.&set := $00000004;
  62086. end;
  62087. function TPORTC_LATC.getLATC2 : TBits_1; inline;
  62088. begin
  62089. getLATC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  62090. end;
  62091. procedure TPORTC_LATC.setLATC3; inline;
  62092. begin
  62093. pTDefRegMap(@Self)^.&set := $00000008;
  62094. end;
  62095. procedure TPORTC_LATC.clearLATC3; inline;
  62096. begin
  62097. pTDefRegMap(@Self)^.clr := $00000008;
  62098. end;
  62099. procedure TPORTC_LATC.setLATC3(thebits : TBits_1); inline;
  62100. begin
  62101. if thebits = 0 then
  62102. pTDefRegMap(@Self)^.clr := $00000008
  62103. else
  62104. pTDefRegMap(@Self)^.&set := $00000008;
  62105. end;
  62106. function TPORTC_LATC.getLATC3 : TBits_1; inline;
  62107. begin
  62108. getLATC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  62109. end;
  62110. procedure TPORTC_LATC.setLATC4; inline;
  62111. begin
  62112. pTDefRegMap(@Self)^.&set := $00000010;
  62113. end;
  62114. procedure TPORTC_LATC.clearLATC4; inline;
  62115. begin
  62116. pTDefRegMap(@Self)^.clr := $00000010;
  62117. end;
  62118. procedure TPORTC_LATC.setLATC4(thebits : TBits_1); inline;
  62119. begin
  62120. if thebits = 0 then
  62121. pTDefRegMap(@Self)^.clr := $00000010
  62122. else
  62123. pTDefRegMap(@Self)^.&set := $00000010;
  62124. end;
  62125. function TPORTC_LATC.getLATC4 : TBits_1; inline;
  62126. begin
  62127. getLATC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  62128. end;
  62129. procedure TPORTC_LATC.setLATC12; inline;
  62130. begin
  62131. pTDefRegMap(@Self)^.&set := $00001000;
  62132. end;
  62133. procedure TPORTC_LATC.clearLATC12; inline;
  62134. begin
  62135. pTDefRegMap(@Self)^.clr := $00001000;
  62136. end;
  62137. procedure TPORTC_LATC.setLATC12(thebits : TBits_1); inline;
  62138. begin
  62139. if thebits = 0 then
  62140. pTDefRegMap(@Self)^.clr := $00001000
  62141. else
  62142. pTDefRegMap(@Self)^.&set := $00001000;
  62143. end;
  62144. function TPORTC_LATC.getLATC12 : TBits_1; inline;
  62145. begin
  62146. getLATC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  62147. end;
  62148. procedure TPORTC_LATC.setLATC13; inline;
  62149. begin
  62150. pTDefRegMap(@Self)^.&set := $00002000;
  62151. end;
  62152. procedure TPORTC_LATC.clearLATC13; inline;
  62153. begin
  62154. pTDefRegMap(@Self)^.clr := $00002000;
  62155. end;
  62156. procedure TPORTC_LATC.setLATC13(thebits : TBits_1); inline;
  62157. begin
  62158. if thebits = 0 then
  62159. pTDefRegMap(@Self)^.clr := $00002000
  62160. else
  62161. pTDefRegMap(@Self)^.&set := $00002000;
  62162. end;
  62163. function TPORTC_LATC.getLATC13 : TBits_1; inline;
  62164. begin
  62165. getLATC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  62166. end;
  62167. procedure TPORTC_LATC.setLATC14; inline;
  62168. begin
  62169. pTDefRegMap(@Self)^.&set := $00004000;
  62170. end;
  62171. procedure TPORTC_LATC.clearLATC14; inline;
  62172. begin
  62173. pTDefRegMap(@Self)^.clr := $00004000;
  62174. end;
  62175. procedure TPORTC_LATC.setLATC14(thebits : TBits_1); inline;
  62176. begin
  62177. if thebits = 0 then
  62178. pTDefRegMap(@Self)^.clr := $00004000
  62179. else
  62180. pTDefRegMap(@Self)^.&set := $00004000;
  62181. end;
  62182. function TPORTC_LATC.getLATC14 : TBits_1; inline;
  62183. begin
  62184. getLATC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  62185. end;
  62186. procedure TPORTC_LATC.setLATC15; inline;
  62187. begin
  62188. pTDefRegMap(@Self)^.&set := $00008000;
  62189. end;
  62190. procedure TPORTC_LATC.clearLATC15; inline;
  62191. begin
  62192. pTDefRegMap(@Self)^.clr := $00008000;
  62193. end;
  62194. procedure TPORTC_LATC.setLATC15(thebits : TBits_1); inline;
  62195. begin
  62196. if thebits = 0 then
  62197. pTDefRegMap(@Self)^.clr := $00008000
  62198. else
  62199. pTDefRegMap(@Self)^.&set := $00008000;
  62200. end;
  62201. function TPORTC_LATC.getLATC15 : TBits_1; inline;
  62202. begin
  62203. getLATC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  62204. end;
  62205. procedure TPORTC_LATC.setw(thebits : TBits_32); inline;
  62206. begin
  62207. pTDefRegMap(@Self)^.val := thebits;
  62208. end;
  62209. function TPORTC_LATC.getw : TBits_32; inline;
  62210. begin
  62211. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  62212. end;
  62213. procedure TPORTC_ODCC.setODCC1; inline;
  62214. begin
  62215. pTDefRegMap(@Self)^.&set := $00000002;
  62216. end;
  62217. procedure TPORTC_ODCC.clearODCC1; inline;
  62218. begin
  62219. pTDefRegMap(@Self)^.clr := $00000002;
  62220. end;
  62221. procedure TPORTC_ODCC.setODCC1(thebits : TBits_1); inline;
  62222. begin
  62223. if thebits = 0 then
  62224. pTDefRegMap(@Self)^.clr := $00000002
  62225. else
  62226. pTDefRegMap(@Self)^.&set := $00000002;
  62227. end;
  62228. function TPORTC_ODCC.getODCC1 : TBits_1; inline;
  62229. begin
  62230. getODCC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  62231. end;
  62232. procedure TPORTC_ODCC.setODCC2; inline;
  62233. begin
  62234. pTDefRegMap(@Self)^.&set := $00000004;
  62235. end;
  62236. procedure TPORTC_ODCC.clearODCC2; inline;
  62237. begin
  62238. pTDefRegMap(@Self)^.clr := $00000004;
  62239. end;
  62240. procedure TPORTC_ODCC.setODCC2(thebits : TBits_1); inline;
  62241. begin
  62242. if thebits = 0 then
  62243. pTDefRegMap(@Self)^.clr := $00000004
  62244. else
  62245. pTDefRegMap(@Self)^.&set := $00000004;
  62246. end;
  62247. function TPORTC_ODCC.getODCC2 : TBits_1; inline;
  62248. begin
  62249. getODCC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  62250. end;
  62251. procedure TPORTC_ODCC.setODCC3; inline;
  62252. begin
  62253. pTDefRegMap(@Self)^.&set := $00000008;
  62254. end;
  62255. procedure TPORTC_ODCC.clearODCC3; inline;
  62256. begin
  62257. pTDefRegMap(@Self)^.clr := $00000008;
  62258. end;
  62259. procedure TPORTC_ODCC.setODCC3(thebits : TBits_1); inline;
  62260. begin
  62261. if thebits = 0 then
  62262. pTDefRegMap(@Self)^.clr := $00000008
  62263. else
  62264. pTDefRegMap(@Self)^.&set := $00000008;
  62265. end;
  62266. function TPORTC_ODCC.getODCC3 : TBits_1; inline;
  62267. begin
  62268. getODCC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  62269. end;
  62270. procedure TPORTC_ODCC.setODCC4; inline;
  62271. begin
  62272. pTDefRegMap(@Self)^.&set := $00000010;
  62273. end;
  62274. procedure TPORTC_ODCC.clearODCC4; inline;
  62275. begin
  62276. pTDefRegMap(@Self)^.clr := $00000010;
  62277. end;
  62278. procedure TPORTC_ODCC.setODCC4(thebits : TBits_1); inline;
  62279. begin
  62280. if thebits = 0 then
  62281. pTDefRegMap(@Self)^.clr := $00000010
  62282. else
  62283. pTDefRegMap(@Self)^.&set := $00000010;
  62284. end;
  62285. function TPORTC_ODCC.getODCC4 : TBits_1; inline;
  62286. begin
  62287. getODCC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  62288. end;
  62289. procedure TPORTC_ODCC.setODCC12; inline;
  62290. begin
  62291. pTDefRegMap(@Self)^.&set := $00001000;
  62292. end;
  62293. procedure TPORTC_ODCC.clearODCC12; inline;
  62294. begin
  62295. pTDefRegMap(@Self)^.clr := $00001000;
  62296. end;
  62297. procedure TPORTC_ODCC.setODCC12(thebits : TBits_1); inline;
  62298. begin
  62299. if thebits = 0 then
  62300. pTDefRegMap(@Self)^.clr := $00001000
  62301. else
  62302. pTDefRegMap(@Self)^.&set := $00001000;
  62303. end;
  62304. function TPORTC_ODCC.getODCC12 : TBits_1; inline;
  62305. begin
  62306. getODCC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  62307. end;
  62308. procedure TPORTC_ODCC.setODCC13; inline;
  62309. begin
  62310. pTDefRegMap(@Self)^.&set := $00002000;
  62311. end;
  62312. procedure TPORTC_ODCC.clearODCC13; inline;
  62313. begin
  62314. pTDefRegMap(@Self)^.clr := $00002000;
  62315. end;
  62316. procedure TPORTC_ODCC.setODCC13(thebits : TBits_1); inline;
  62317. begin
  62318. if thebits = 0 then
  62319. pTDefRegMap(@Self)^.clr := $00002000
  62320. else
  62321. pTDefRegMap(@Self)^.&set := $00002000;
  62322. end;
  62323. function TPORTC_ODCC.getODCC13 : TBits_1; inline;
  62324. begin
  62325. getODCC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  62326. end;
  62327. procedure TPORTC_ODCC.setODCC14; inline;
  62328. begin
  62329. pTDefRegMap(@Self)^.&set := $00004000;
  62330. end;
  62331. procedure TPORTC_ODCC.clearODCC14; inline;
  62332. begin
  62333. pTDefRegMap(@Self)^.clr := $00004000;
  62334. end;
  62335. procedure TPORTC_ODCC.setODCC14(thebits : TBits_1); inline;
  62336. begin
  62337. if thebits = 0 then
  62338. pTDefRegMap(@Self)^.clr := $00004000
  62339. else
  62340. pTDefRegMap(@Self)^.&set := $00004000;
  62341. end;
  62342. function TPORTC_ODCC.getODCC14 : TBits_1; inline;
  62343. begin
  62344. getODCC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  62345. end;
  62346. procedure TPORTC_ODCC.setODCC15; inline;
  62347. begin
  62348. pTDefRegMap(@Self)^.&set := $00008000;
  62349. end;
  62350. procedure TPORTC_ODCC.clearODCC15; inline;
  62351. begin
  62352. pTDefRegMap(@Self)^.clr := $00008000;
  62353. end;
  62354. procedure TPORTC_ODCC.setODCC15(thebits : TBits_1); inline;
  62355. begin
  62356. if thebits = 0 then
  62357. pTDefRegMap(@Self)^.clr := $00008000
  62358. else
  62359. pTDefRegMap(@Self)^.&set := $00008000;
  62360. end;
  62361. function TPORTC_ODCC.getODCC15 : TBits_1; inline;
  62362. begin
  62363. getODCC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  62364. end;
  62365. procedure TPORTC_ODCC.setw(thebits : TBits_32); inline;
  62366. begin
  62367. pTDefRegMap(@Self)^.val := thebits;
  62368. end;
  62369. function TPORTC_ODCC.getw : TBits_32; inline;
  62370. begin
  62371. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  62372. end;
  62373. procedure TPORTD_TRISD.setTRISD0; inline;
  62374. begin
  62375. pTDefRegMap(@Self)^.&set := $00000001;
  62376. end;
  62377. procedure TPORTD_TRISD.clearTRISD0; inline;
  62378. begin
  62379. pTDefRegMap(@Self)^.clr := $00000001;
  62380. end;
  62381. procedure TPORTD_TRISD.setTRISD0(thebits : TBits_1); inline;
  62382. begin
  62383. if thebits = 0 then
  62384. pTDefRegMap(@Self)^.clr := $00000001
  62385. else
  62386. pTDefRegMap(@Self)^.&set := $00000001;
  62387. end;
  62388. function TPORTD_TRISD.getTRISD0 : TBits_1; inline;
  62389. begin
  62390. getTRISD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  62391. end;
  62392. procedure TPORTD_TRISD.setTRISD1; inline;
  62393. begin
  62394. pTDefRegMap(@Self)^.&set := $00000002;
  62395. end;
  62396. procedure TPORTD_TRISD.clearTRISD1; inline;
  62397. begin
  62398. pTDefRegMap(@Self)^.clr := $00000002;
  62399. end;
  62400. procedure TPORTD_TRISD.setTRISD1(thebits : TBits_1); inline;
  62401. begin
  62402. if thebits = 0 then
  62403. pTDefRegMap(@Self)^.clr := $00000002
  62404. else
  62405. pTDefRegMap(@Self)^.&set := $00000002;
  62406. end;
  62407. function TPORTD_TRISD.getTRISD1 : TBits_1; inline;
  62408. begin
  62409. getTRISD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  62410. end;
  62411. procedure TPORTD_TRISD.setTRISD2; inline;
  62412. begin
  62413. pTDefRegMap(@Self)^.&set := $00000004;
  62414. end;
  62415. procedure TPORTD_TRISD.clearTRISD2; inline;
  62416. begin
  62417. pTDefRegMap(@Self)^.clr := $00000004;
  62418. end;
  62419. procedure TPORTD_TRISD.setTRISD2(thebits : TBits_1); inline;
  62420. begin
  62421. if thebits = 0 then
  62422. pTDefRegMap(@Self)^.clr := $00000004
  62423. else
  62424. pTDefRegMap(@Self)^.&set := $00000004;
  62425. end;
  62426. function TPORTD_TRISD.getTRISD2 : TBits_1; inline;
  62427. begin
  62428. getTRISD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  62429. end;
  62430. procedure TPORTD_TRISD.setTRISD3; inline;
  62431. begin
  62432. pTDefRegMap(@Self)^.&set := $00000008;
  62433. end;
  62434. procedure TPORTD_TRISD.clearTRISD3; inline;
  62435. begin
  62436. pTDefRegMap(@Self)^.clr := $00000008;
  62437. end;
  62438. procedure TPORTD_TRISD.setTRISD3(thebits : TBits_1); inline;
  62439. begin
  62440. if thebits = 0 then
  62441. pTDefRegMap(@Self)^.clr := $00000008
  62442. else
  62443. pTDefRegMap(@Self)^.&set := $00000008;
  62444. end;
  62445. function TPORTD_TRISD.getTRISD3 : TBits_1; inline;
  62446. begin
  62447. getTRISD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  62448. end;
  62449. procedure TPORTD_TRISD.setTRISD4; inline;
  62450. begin
  62451. pTDefRegMap(@Self)^.&set := $00000010;
  62452. end;
  62453. procedure TPORTD_TRISD.clearTRISD4; inline;
  62454. begin
  62455. pTDefRegMap(@Self)^.clr := $00000010;
  62456. end;
  62457. procedure TPORTD_TRISD.setTRISD4(thebits : TBits_1); inline;
  62458. begin
  62459. if thebits = 0 then
  62460. pTDefRegMap(@Self)^.clr := $00000010
  62461. else
  62462. pTDefRegMap(@Self)^.&set := $00000010;
  62463. end;
  62464. function TPORTD_TRISD.getTRISD4 : TBits_1; inline;
  62465. begin
  62466. getTRISD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  62467. end;
  62468. procedure TPORTD_TRISD.setTRISD5; inline;
  62469. begin
  62470. pTDefRegMap(@Self)^.&set := $00000020;
  62471. end;
  62472. procedure TPORTD_TRISD.clearTRISD5; inline;
  62473. begin
  62474. pTDefRegMap(@Self)^.clr := $00000020;
  62475. end;
  62476. procedure TPORTD_TRISD.setTRISD5(thebits : TBits_1); inline;
  62477. begin
  62478. if thebits = 0 then
  62479. pTDefRegMap(@Self)^.clr := $00000020
  62480. else
  62481. pTDefRegMap(@Self)^.&set := $00000020;
  62482. end;
  62483. function TPORTD_TRISD.getTRISD5 : TBits_1; inline;
  62484. begin
  62485. getTRISD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  62486. end;
  62487. procedure TPORTD_TRISD.setTRISD6; inline;
  62488. begin
  62489. pTDefRegMap(@Self)^.&set := $00000040;
  62490. end;
  62491. procedure TPORTD_TRISD.clearTRISD6; inline;
  62492. begin
  62493. pTDefRegMap(@Self)^.clr := $00000040;
  62494. end;
  62495. procedure TPORTD_TRISD.setTRISD6(thebits : TBits_1); inline;
  62496. begin
  62497. if thebits = 0 then
  62498. pTDefRegMap(@Self)^.clr := $00000040
  62499. else
  62500. pTDefRegMap(@Self)^.&set := $00000040;
  62501. end;
  62502. function TPORTD_TRISD.getTRISD6 : TBits_1; inline;
  62503. begin
  62504. getTRISD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  62505. end;
  62506. procedure TPORTD_TRISD.setTRISD7; inline;
  62507. begin
  62508. pTDefRegMap(@Self)^.&set := $00000080;
  62509. end;
  62510. procedure TPORTD_TRISD.clearTRISD7; inline;
  62511. begin
  62512. pTDefRegMap(@Self)^.clr := $00000080;
  62513. end;
  62514. procedure TPORTD_TRISD.setTRISD7(thebits : TBits_1); inline;
  62515. begin
  62516. if thebits = 0 then
  62517. pTDefRegMap(@Self)^.clr := $00000080
  62518. else
  62519. pTDefRegMap(@Self)^.&set := $00000080;
  62520. end;
  62521. function TPORTD_TRISD.getTRISD7 : TBits_1; inline;
  62522. begin
  62523. getTRISD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  62524. end;
  62525. procedure TPORTD_TRISD.setTRISD8; inline;
  62526. begin
  62527. pTDefRegMap(@Self)^.&set := $00000100;
  62528. end;
  62529. procedure TPORTD_TRISD.clearTRISD8; inline;
  62530. begin
  62531. pTDefRegMap(@Self)^.clr := $00000100;
  62532. end;
  62533. procedure TPORTD_TRISD.setTRISD8(thebits : TBits_1); inline;
  62534. begin
  62535. if thebits = 0 then
  62536. pTDefRegMap(@Self)^.clr := $00000100
  62537. else
  62538. pTDefRegMap(@Self)^.&set := $00000100;
  62539. end;
  62540. function TPORTD_TRISD.getTRISD8 : TBits_1; inline;
  62541. begin
  62542. getTRISD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  62543. end;
  62544. procedure TPORTD_TRISD.setTRISD9; inline;
  62545. begin
  62546. pTDefRegMap(@Self)^.&set := $00000200;
  62547. end;
  62548. procedure TPORTD_TRISD.clearTRISD9; inline;
  62549. begin
  62550. pTDefRegMap(@Self)^.clr := $00000200;
  62551. end;
  62552. procedure TPORTD_TRISD.setTRISD9(thebits : TBits_1); inline;
  62553. begin
  62554. if thebits = 0 then
  62555. pTDefRegMap(@Self)^.clr := $00000200
  62556. else
  62557. pTDefRegMap(@Self)^.&set := $00000200;
  62558. end;
  62559. function TPORTD_TRISD.getTRISD9 : TBits_1; inline;
  62560. begin
  62561. getTRISD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  62562. end;
  62563. procedure TPORTD_TRISD.setTRISD10; inline;
  62564. begin
  62565. pTDefRegMap(@Self)^.&set := $00000400;
  62566. end;
  62567. procedure TPORTD_TRISD.clearTRISD10; inline;
  62568. begin
  62569. pTDefRegMap(@Self)^.clr := $00000400;
  62570. end;
  62571. procedure TPORTD_TRISD.setTRISD10(thebits : TBits_1); inline;
  62572. begin
  62573. if thebits = 0 then
  62574. pTDefRegMap(@Self)^.clr := $00000400
  62575. else
  62576. pTDefRegMap(@Self)^.&set := $00000400;
  62577. end;
  62578. function TPORTD_TRISD.getTRISD10 : TBits_1; inline;
  62579. begin
  62580. getTRISD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  62581. end;
  62582. procedure TPORTD_TRISD.setTRISD11; inline;
  62583. begin
  62584. pTDefRegMap(@Self)^.&set := $00000800;
  62585. end;
  62586. procedure TPORTD_TRISD.clearTRISD11; inline;
  62587. begin
  62588. pTDefRegMap(@Self)^.clr := $00000800;
  62589. end;
  62590. procedure TPORTD_TRISD.setTRISD11(thebits : TBits_1); inline;
  62591. begin
  62592. if thebits = 0 then
  62593. pTDefRegMap(@Self)^.clr := $00000800
  62594. else
  62595. pTDefRegMap(@Self)^.&set := $00000800;
  62596. end;
  62597. function TPORTD_TRISD.getTRISD11 : TBits_1; inline;
  62598. begin
  62599. getTRISD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  62600. end;
  62601. procedure TPORTD_TRISD.setTRISD12; inline;
  62602. begin
  62603. pTDefRegMap(@Self)^.&set := $00001000;
  62604. end;
  62605. procedure TPORTD_TRISD.clearTRISD12; inline;
  62606. begin
  62607. pTDefRegMap(@Self)^.clr := $00001000;
  62608. end;
  62609. procedure TPORTD_TRISD.setTRISD12(thebits : TBits_1); inline;
  62610. begin
  62611. if thebits = 0 then
  62612. pTDefRegMap(@Self)^.clr := $00001000
  62613. else
  62614. pTDefRegMap(@Self)^.&set := $00001000;
  62615. end;
  62616. function TPORTD_TRISD.getTRISD12 : TBits_1; inline;
  62617. begin
  62618. getTRISD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  62619. end;
  62620. procedure TPORTD_TRISD.setTRISD13; inline;
  62621. begin
  62622. pTDefRegMap(@Self)^.&set := $00002000;
  62623. end;
  62624. procedure TPORTD_TRISD.clearTRISD13; inline;
  62625. begin
  62626. pTDefRegMap(@Self)^.clr := $00002000;
  62627. end;
  62628. procedure TPORTD_TRISD.setTRISD13(thebits : TBits_1); inline;
  62629. begin
  62630. if thebits = 0 then
  62631. pTDefRegMap(@Self)^.clr := $00002000
  62632. else
  62633. pTDefRegMap(@Self)^.&set := $00002000;
  62634. end;
  62635. function TPORTD_TRISD.getTRISD13 : TBits_1; inline;
  62636. begin
  62637. getTRISD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  62638. end;
  62639. procedure TPORTD_TRISD.setTRISD14; inline;
  62640. begin
  62641. pTDefRegMap(@Self)^.&set := $00004000;
  62642. end;
  62643. procedure TPORTD_TRISD.clearTRISD14; inline;
  62644. begin
  62645. pTDefRegMap(@Self)^.clr := $00004000;
  62646. end;
  62647. procedure TPORTD_TRISD.setTRISD14(thebits : TBits_1); inline;
  62648. begin
  62649. if thebits = 0 then
  62650. pTDefRegMap(@Self)^.clr := $00004000
  62651. else
  62652. pTDefRegMap(@Self)^.&set := $00004000;
  62653. end;
  62654. function TPORTD_TRISD.getTRISD14 : TBits_1; inline;
  62655. begin
  62656. getTRISD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  62657. end;
  62658. procedure TPORTD_TRISD.setTRISD15; inline;
  62659. begin
  62660. pTDefRegMap(@Self)^.&set := $00008000;
  62661. end;
  62662. procedure TPORTD_TRISD.clearTRISD15; inline;
  62663. begin
  62664. pTDefRegMap(@Self)^.clr := $00008000;
  62665. end;
  62666. procedure TPORTD_TRISD.setTRISD15(thebits : TBits_1); inline;
  62667. begin
  62668. if thebits = 0 then
  62669. pTDefRegMap(@Self)^.clr := $00008000
  62670. else
  62671. pTDefRegMap(@Self)^.&set := $00008000;
  62672. end;
  62673. function TPORTD_TRISD.getTRISD15 : TBits_1; inline;
  62674. begin
  62675. getTRISD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  62676. end;
  62677. procedure TPORTD_TRISD.setw(thebits : TBits_32); inline;
  62678. begin
  62679. pTDefRegMap(@Self)^.val := thebits;
  62680. end;
  62681. function TPORTD_TRISD.getw : TBits_32; inline;
  62682. begin
  62683. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  62684. end;
  62685. procedure TPORTD_PORTD.setRD0; inline;
  62686. begin
  62687. pTDefRegMap(@Self)^.&set := $00000001;
  62688. end;
  62689. procedure TPORTD_PORTD.clearRD0; inline;
  62690. begin
  62691. pTDefRegMap(@Self)^.clr := $00000001;
  62692. end;
  62693. procedure TPORTD_PORTD.setRD0(thebits : TBits_1); inline;
  62694. begin
  62695. if thebits = 0 then
  62696. pTDefRegMap(@Self)^.clr := $00000001
  62697. else
  62698. pTDefRegMap(@Self)^.&set := $00000001;
  62699. end;
  62700. function TPORTD_PORTD.getRD0 : TBits_1; inline;
  62701. begin
  62702. getRD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  62703. end;
  62704. procedure TPORTD_PORTD.setRD1; inline;
  62705. begin
  62706. pTDefRegMap(@Self)^.&set := $00000002;
  62707. end;
  62708. procedure TPORTD_PORTD.clearRD1; inline;
  62709. begin
  62710. pTDefRegMap(@Self)^.clr := $00000002;
  62711. end;
  62712. procedure TPORTD_PORTD.setRD1(thebits : TBits_1); inline;
  62713. begin
  62714. if thebits = 0 then
  62715. pTDefRegMap(@Self)^.clr := $00000002
  62716. else
  62717. pTDefRegMap(@Self)^.&set := $00000002;
  62718. end;
  62719. function TPORTD_PORTD.getRD1 : TBits_1; inline;
  62720. begin
  62721. getRD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  62722. end;
  62723. procedure TPORTD_PORTD.setRD2; inline;
  62724. begin
  62725. pTDefRegMap(@Self)^.&set := $00000004;
  62726. end;
  62727. procedure TPORTD_PORTD.clearRD2; inline;
  62728. begin
  62729. pTDefRegMap(@Self)^.clr := $00000004;
  62730. end;
  62731. procedure TPORTD_PORTD.setRD2(thebits : TBits_1); inline;
  62732. begin
  62733. if thebits = 0 then
  62734. pTDefRegMap(@Self)^.clr := $00000004
  62735. else
  62736. pTDefRegMap(@Self)^.&set := $00000004;
  62737. end;
  62738. function TPORTD_PORTD.getRD2 : TBits_1; inline;
  62739. begin
  62740. getRD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  62741. end;
  62742. procedure TPORTD_PORTD.setRD3; inline;
  62743. begin
  62744. pTDefRegMap(@Self)^.&set := $00000008;
  62745. end;
  62746. procedure TPORTD_PORTD.clearRD3; inline;
  62747. begin
  62748. pTDefRegMap(@Self)^.clr := $00000008;
  62749. end;
  62750. procedure TPORTD_PORTD.setRD3(thebits : TBits_1); inline;
  62751. begin
  62752. if thebits = 0 then
  62753. pTDefRegMap(@Self)^.clr := $00000008
  62754. else
  62755. pTDefRegMap(@Self)^.&set := $00000008;
  62756. end;
  62757. function TPORTD_PORTD.getRD3 : TBits_1; inline;
  62758. begin
  62759. getRD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  62760. end;
  62761. procedure TPORTD_PORTD.setRD4; inline;
  62762. begin
  62763. pTDefRegMap(@Self)^.&set := $00000010;
  62764. end;
  62765. procedure TPORTD_PORTD.clearRD4; inline;
  62766. begin
  62767. pTDefRegMap(@Self)^.clr := $00000010;
  62768. end;
  62769. procedure TPORTD_PORTD.setRD4(thebits : TBits_1); inline;
  62770. begin
  62771. if thebits = 0 then
  62772. pTDefRegMap(@Self)^.clr := $00000010
  62773. else
  62774. pTDefRegMap(@Self)^.&set := $00000010;
  62775. end;
  62776. function TPORTD_PORTD.getRD4 : TBits_1; inline;
  62777. begin
  62778. getRD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  62779. end;
  62780. procedure TPORTD_PORTD.setRD5; inline;
  62781. begin
  62782. pTDefRegMap(@Self)^.&set := $00000020;
  62783. end;
  62784. procedure TPORTD_PORTD.clearRD5; inline;
  62785. begin
  62786. pTDefRegMap(@Self)^.clr := $00000020;
  62787. end;
  62788. procedure TPORTD_PORTD.setRD5(thebits : TBits_1); inline;
  62789. begin
  62790. if thebits = 0 then
  62791. pTDefRegMap(@Self)^.clr := $00000020
  62792. else
  62793. pTDefRegMap(@Self)^.&set := $00000020;
  62794. end;
  62795. function TPORTD_PORTD.getRD5 : TBits_1; inline;
  62796. begin
  62797. getRD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  62798. end;
  62799. procedure TPORTD_PORTD.setRD6; inline;
  62800. begin
  62801. pTDefRegMap(@Self)^.&set := $00000040;
  62802. end;
  62803. procedure TPORTD_PORTD.clearRD6; inline;
  62804. begin
  62805. pTDefRegMap(@Self)^.clr := $00000040;
  62806. end;
  62807. procedure TPORTD_PORTD.setRD6(thebits : TBits_1); inline;
  62808. begin
  62809. if thebits = 0 then
  62810. pTDefRegMap(@Self)^.clr := $00000040
  62811. else
  62812. pTDefRegMap(@Self)^.&set := $00000040;
  62813. end;
  62814. function TPORTD_PORTD.getRD6 : TBits_1; inline;
  62815. begin
  62816. getRD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  62817. end;
  62818. procedure TPORTD_PORTD.setRD7; inline;
  62819. begin
  62820. pTDefRegMap(@Self)^.&set := $00000080;
  62821. end;
  62822. procedure TPORTD_PORTD.clearRD7; inline;
  62823. begin
  62824. pTDefRegMap(@Self)^.clr := $00000080;
  62825. end;
  62826. procedure TPORTD_PORTD.setRD7(thebits : TBits_1); inline;
  62827. begin
  62828. if thebits = 0 then
  62829. pTDefRegMap(@Self)^.clr := $00000080
  62830. else
  62831. pTDefRegMap(@Self)^.&set := $00000080;
  62832. end;
  62833. function TPORTD_PORTD.getRD7 : TBits_1; inline;
  62834. begin
  62835. getRD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  62836. end;
  62837. procedure TPORTD_PORTD.setRD8; inline;
  62838. begin
  62839. pTDefRegMap(@Self)^.&set := $00000100;
  62840. end;
  62841. procedure TPORTD_PORTD.clearRD8; inline;
  62842. begin
  62843. pTDefRegMap(@Self)^.clr := $00000100;
  62844. end;
  62845. procedure TPORTD_PORTD.setRD8(thebits : TBits_1); inline;
  62846. begin
  62847. if thebits = 0 then
  62848. pTDefRegMap(@Self)^.clr := $00000100
  62849. else
  62850. pTDefRegMap(@Self)^.&set := $00000100;
  62851. end;
  62852. function TPORTD_PORTD.getRD8 : TBits_1; inline;
  62853. begin
  62854. getRD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  62855. end;
  62856. procedure TPORTD_PORTD.setRD9; inline;
  62857. begin
  62858. pTDefRegMap(@Self)^.&set := $00000200;
  62859. end;
  62860. procedure TPORTD_PORTD.clearRD9; inline;
  62861. begin
  62862. pTDefRegMap(@Self)^.clr := $00000200;
  62863. end;
  62864. procedure TPORTD_PORTD.setRD9(thebits : TBits_1); inline;
  62865. begin
  62866. if thebits = 0 then
  62867. pTDefRegMap(@Self)^.clr := $00000200
  62868. else
  62869. pTDefRegMap(@Self)^.&set := $00000200;
  62870. end;
  62871. function TPORTD_PORTD.getRD9 : TBits_1; inline;
  62872. begin
  62873. getRD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  62874. end;
  62875. procedure TPORTD_PORTD.setRD10; inline;
  62876. begin
  62877. pTDefRegMap(@Self)^.&set := $00000400;
  62878. end;
  62879. procedure TPORTD_PORTD.clearRD10; inline;
  62880. begin
  62881. pTDefRegMap(@Self)^.clr := $00000400;
  62882. end;
  62883. procedure TPORTD_PORTD.setRD10(thebits : TBits_1); inline;
  62884. begin
  62885. if thebits = 0 then
  62886. pTDefRegMap(@Self)^.clr := $00000400
  62887. else
  62888. pTDefRegMap(@Self)^.&set := $00000400;
  62889. end;
  62890. function TPORTD_PORTD.getRD10 : TBits_1; inline;
  62891. begin
  62892. getRD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  62893. end;
  62894. procedure TPORTD_PORTD.setRD11; inline;
  62895. begin
  62896. pTDefRegMap(@Self)^.&set := $00000800;
  62897. end;
  62898. procedure TPORTD_PORTD.clearRD11; inline;
  62899. begin
  62900. pTDefRegMap(@Self)^.clr := $00000800;
  62901. end;
  62902. procedure TPORTD_PORTD.setRD11(thebits : TBits_1); inline;
  62903. begin
  62904. if thebits = 0 then
  62905. pTDefRegMap(@Self)^.clr := $00000800
  62906. else
  62907. pTDefRegMap(@Self)^.&set := $00000800;
  62908. end;
  62909. function TPORTD_PORTD.getRD11 : TBits_1; inline;
  62910. begin
  62911. getRD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  62912. end;
  62913. procedure TPORTD_PORTD.setRD12; inline;
  62914. begin
  62915. pTDefRegMap(@Self)^.&set := $00001000;
  62916. end;
  62917. procedure TPORTD_PORTD.clearRD12; inline;
  62918. begin
  62919. pTDefRegMap(@Self)^.clr := $00001000;
  62920. end;
  62921. procedure TPORTD_PORTD.setRD12(thebits : TBits_1); inline;
  62922. begin
  62923. if thebits = 0 then
  62924. pTDefRegMap(@Self)^.clr := $00001000
  62925. else
  62926. pTDefRegMap(@Self)^.&set := $00001000;
  62927. end;
  62928. function TPORTD_PORTD.getRD12 : TBits_1; inline;
  62929. begin
  62930. getRD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  62931. end;
  62932. procedure TPORTD_PORTD.setRD13; inline;
  62933. begin
  62934. pTDefRegMap(@Self)^.&set := $00002000;
  62935. end;
  62936. procedure TPORTD_PORTD.clearRD13; inline;
  62937. begin
  62938. pTDefRegMap(@Self)^.clr := $00002000;
  62939. end;
  62940. procedure TPORTD_PORTD.setRD13(thebits : TBits_1); inline;
  62941. begin
  62942. if thebits = 0 then
  62943. pTDefRegMap(@Self)^.clr := $00002000
  62944. else
  62945. pTDefRegMap(@Self)^.&set := $00002000;
  62946. end;
  62947. function TPORTD_PORTD.getRD13 : TBits_1; inline;
  62948. begin
  62949. getRD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  62950. end;
  62951. procedure TPORTD_PORTD.setRD14; inline;
  62952. begin
  62953. pTDefRegMap(@Self)^.&set := $00004000;
  62954. end;
  62955. procedure TPORTD_PORTD.clearRD14; inline;
  62956. begin
  62957. pTDefRegMap(@Self)^.clr := $00004000;
  62958. end;
  62959. procedure TPORTD_PORTD.setRD14(thebits : TBits_1); inline;
  62960. begin
  62961. if thebits = 0 then
  62962. pTDefRegMap(@Self)^.clr := $00004000
  62963. else
  62964. pTDefRegMap(@Self)^.&set := $00004000;
  62965. end;
  62966. function TPORTD_PORTD.getRD14 : TBits_1; inline;
  62967. begin
  62968. getRD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  62969. end;
  62970. procedure TPORTD_PORTD.setRD15; inline;
  62971. begin
  62972. pTDefRegMap(@Self)^.&set := $00008000;
  62973. end;
  62974. procedure TPORTD_PORTD.clearRD15; inline;
  62975. begin
  62976. pTDefRegMap(@Self)^.clr := $00008000;
  62977. end;
  62978. procedure TPORTD_PORTD.setRD15(thebits : TBits_1); inline;
  62979. begin
  62980. if thebits = 0 then
  62981. pTDefRegMap(@Self)^.clr := $00008000
  62982. else
  62983. pTDefRegMap(@Self)^.&set := $00008000;
  62984. end;
  62985. function TPORTD_PORTD.getRD15 : TBits_1; inline;
  62986. begin
  62987. getRD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  62988. end;
  62989. procedure TPORTD_PORTD.setw(thebits : TBits_32); inline;
  62990. begin
  62991. pTDefRegMap(@Self)^.val := thebits;
  62992. end;
  62993. function TPORTD_PORTD.getw : TBits_32; inline;
  62994. begin
  62995. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  62996. end;
  62997. procedure TPORTD_LATD.setLATD0; inline;
  62998. begin
  62999. pTDefRegMap(@Self)^.&set := $00000001;
  63000. end;
  63001. procedure TPORTD_LATD.clearLATD0; inline;
  63002. begin
  63003. pTDefRegMap(@Self)^.clr := $00000001;
  63004. end;
  63005. procedure TPORTD_LATD.setLATD0(thebits : TBits_1); inline;
  63006. begin
  63007. if thebits = 0 then
  63008. pTDefRegMap(@Self)^.clr := $00000001
  63009. else
  63010. pTDefRegMap(@Self)^.&set := $00000001;
  63011. end;
  63012. function TPORTD_LATD.getLATD0 : TBits_1; inline;
  63013. begin
  63014. getLATD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  63015. end;
  63016. procedure TPORTD_LATD.setLATD1; inline;
  63017. begin
  63018. pTDefRegMap(@Self)^.&set := $00000002;
  63019. end;
  63020. procedure TPORTD_LATD.clearLATD1; inline;
  63021. begin
  63022. pTDefRegMap(@Self)^.clr := $00000002;
  63023. end;
  63024. procedure TPORTD_LATD.setLATD1(thebits : TBits_1); inline;
  63025. begin
  63026. if thebits = 0 then
  63027. pTDefRegMap(@Self)^.clr := $00000002
  63028. else
  63029. pTDefRegMap(@Self)^.&set := $00000002;
  63030. end;
  63031. function TPORTD_LATD.getLATD1 : TBits_1; inline;
  63032. begin
  63033. getLATD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  63034. end;
  63035. procedure TPORTD_LATD.setLATD2; inline;
  63036. begin
  63037. pTDefRegMap(@Self)^.&set := $00000004;
  63038. end;
  63039. procedure TPORTD_LATD.clearLATD2; inline;
  63040. begin
  63041. pTDefRegMap(@Self)^.clr := $00000004;
  63042. end;
  63043. procedure TPORTD_LATD.setLATD2(thebits : TBits_1); inline;
  63044. begin
  63045. if thebits = 0 then
  63046. pTDefRegMap(@Self)^.clr := $00000004
  63047. else
  63048. pTDefRegMap(@Self)^.&set := $00000004;
  63049. end;
  63050. function TPORTD_LATD.getLATD2 : TBits_1; inline;
  63051. begin
  63052. getLATD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  63053. end;
  63054. procedure TPORTD_LATD.setLATD3; inline;
  63055. begin
  63056. pTDefRegMap(@Self)^.&set := $00000008;
  63057. end;
  63058. procedure TPORTD_LATD.clearLATD3; inline;
  63059. begin
  63060. pTDefRegMap(@Self)^.clr := $00000008;
  63061. end;
  63062. procedure TPORTD_LATD.setLATD3(thebits : TBits_1); inline;
  63063. begin
  63064. if thebits = 0 then
  63065. pTDefRegMap(@Self)^.clr := $00000008
  63066. else
  63067. pTDefRegMap(@Self)^.&set := $00000008;
  63068. end;
  63069. function TPORTD_LATD.getLATD3 : TBits_1; inline;
  63070. begin
  63071. getLATD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  63072. end;
  63073. procedure TPORTD_LATD.setLATD4; inline;
  63074. begin
  63075. pTDefRegMap(@Self)^.&set := $00000010;
  63076. end;
  63077. procedure TPORTD_LATD.clearLATD4; inline;
  63078. begin
  63079. pTDefRegMap(@Self)^.clr := $00000010;
  63080. end;
  63081. procedure TPORTD_LATD.setLATD4(thebits : TBits_1); inline;
  63082. begin
  63083. if thebits = 0 then
  63084. pTDefRegMap(@Self)^.clr := $00000010
  63085. else
  63086. pTDefRegMap(@Self)^.&set := $00000010;
  63087. end;
  63088. function TPORTD_LATD.getLATD4 : TBits_1; inline;
  63089. begin
  63090. getLATD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  63091. end;
  63092. procedure TPORTD_LATD.setLATD5; inline;
  63093. begin
  63094. pTDefRegMap(@Self)^.&set := $00000020;
  63095. end;
  63096. procedure TPORTD_LATD.clearLATD5; inline;
  63097. begin
  63098. pTDefRegMap(@Self)^.clr := $00000020;
  63099. end;
  63100. procedure TPORTD_LATD.setLATD5(thebits : TBits_1); inline;
  63101. begin
  63102. if thebits = 0 then
  63103. pTDefRegMap(@Self)^.clr := $00000020
  63104. else
  63105. pTDefRegMap(@Self)^.&set := $00000020;
  63106. end;
  63107. function TPORTD_LATD.getLATD5 : TBits_1; inline;
  63108. begin
  63109. getLATD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  63110. end;
  63111. procedure TPORTD_LATD.setLATD6; inline;
  63112. begin
  63113. pTDefRegMap(@Self)^.&set := $00000040;
  63114. end;
  63115. procedure TPORTD_LATD.clearLATD6; inline;
  63116. begin
  63117. pTDefRegMap(@Self)^.clr := $00000040;
  63118. end;
  63119. procedure TPORTD_LATD.setLATD6(thebits : TBits_1); inline;
  63120. begin
  63121. if thebits = 0 then
  63122. pTDefRegMap(@Self)^.clr := $00000040
  63123. else
  63124. pTDefRegMap(@Self)^.&set := $00000040;
  63125. end;
  63126. function TPORTD_LATD.getLATD6 : TBits_1; inline;
  63127. begin
  63128. getLATD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  63129. end;
  63130. procedure TPORTD_LATD.setLATD7; inline;
  63131. begin
  63132. pTDefRegMap(@Self)^.&set := $00000080;
  63133. end;
  63134. procedure TPORTD_LATD.clearLATD7; inline;
  63135. begin
  63136. pTDefRegMap(@Self)^.clr := $00000080;
  63137. end;
  63138. procedure TPORTD_LATD.setLATD7(thebits : TBits_1); inline;
  63139. begin
  63140. if thebits = 0 then
  63141. pTDefRegMap(@Self)^.clr := $00000080
  63142. else
  63143. pTDefRegMap(@Self)^.&set := $00000080;
  63144. end;
  63145. function TPORTD_LATD.getLATD7 : TBits_1; inline;
  63146. begin
  63147. getLATD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  63148. end;
  63149. procedure TPORTD_LATD.setLATD8; inline;
  63150. begin
  63151. pTDefRegMap(@Self)^.&set := $00000100;
  63152. end;
  63153. procedure TPORTD_LATD.clearLATD8; inline;
  63154. begin
  63155. pTDefRegMap(@Self)^.clr := $00000100;
  63156. end;
  63157. procedure TPORTD_LATD.setLATD8(thebits : TBits_1); inline;
  63158. begin
  63159. if thebits = 0 then
  63160. pTDefRegMap(@Self)^.clr := $00000100
  63161. else
  63162. pTDefRegMap(@Self)^.&set := $00000100;
  63163. end;
  63164. function TPORTD_LATD.getLATD8 : TBits_1; inline;
  63165. begin
  63166. getLATD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  63167. end;
  63168. procedure TPORTD_LATD.setLATD9; inline;
  63169. begin
  63170. pTDefRegMap(@Self)^.&set := $00000200;
  63171. end;
  63172. procedure TPORTD_LATD.clearLATD9; inline;
  63173. begin
  63174. pTDefRegMap(@Self)^.clr := $00000200;
  63175. end;
  63176. procedure TPORTD_LATD.setLATD9(thebits : TBits_1); inline;
  63177. begin
  63178. if thebits = 0 then
  63179. pTDefRegMap(@Self)^.clr := $00000200
  63180. else
  63181. pTDefRegMap(@Self)^.&set := $00000200;
  63182. end;
  63183. function TPORTD_LATD.getLATD9 : TBits_1; inline;
  63184. begin
  63185. getLATD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  63186. end;
  63187. procedure TPORTD_LATD.setLATD10; inline;
  63188. begin
  63189. pTDefRegMap(@Self)^.&set := $00000400;
  63190. end;
  63191. procedure TPORTD_LATD.clearLATD10; inline;
  63192. begin
  63193. pTDefRegMap(@Self)^.clr := $00000400;
  63194. end;
  63195. procedure TPORTD_LATD.setLATD10(thebits : TBits_1); inline;
  63196. begin
  63197. if thebits = 0 then
  63198. pTDefRegMap(@Self)^.clr := $00000400
  63199. else
  63200. pTDefRegMap(@Self)^.&set := $00000400;
  63201. end;
  63202. function TPORTD_LATD.getLATD10 : TBits_1; inline;
  63203. begin
  63204. getLATD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  63205. end;
  63206. procedure TPORTD_LATD.setLATD11; inline;
  63207. begin
  63208. pTDefRegMap(@Self)^.&set := $00000800;
  63209. end;
  63210. procedure TPORTD_LATD.clearLATD11; inline;
  63211. begin
  63212. pTDefRegMap(@Self)^.clr := $00000800;
  63213. end;
  63214. procedure TPORTD_LATD.setLATD11(thebits : TBits_1); inline;
  63215. begin
  63216. if thebits = 0 then
  63217. pTDefRegMap(@Self)^.clr := $00000800
  63218. else
  63219. pTDefRegMap(@Self)^.&set := $00000800;
  63220. end;
  63221. function TPORTD_LATD.getLATD11 : TBits_1; inline;
  63222. begin
  63223. getLATD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  63224. end;
  63225. procedure TPORTD_LATD.setLATD12; inline;
  63226. begin
  63227. pTDefRegMap(@Self)^.&set := $00001000;
  63228. end;
  63229. procedure TPORTD_LATD.clearLATD12; inline;
  63230. begin
  63231. pTDefRegMap(@Self)^.clr := $00001000;
  63232. end;
  63233. procedure TPORTD_LATD.setLATD12(thebits : TBits_1); inline;
  63234. begin
  63235. if thebits = 0 then
  63236. pTDefRegMap(@Self)^.clr := $00001000
  63237. else
  63238. pTDefRegMap(@Self)^.&set := $00001000;
  63239. end;
  63240. function TPORTD_LATD.getLATD12 : TBits_1; inline;
  63241. begin
  63242. getLATD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  63243. end;
  63244. procedure TPORTD_LATD.setLATD13; inline;
  63245. begin
  63246. pTDefRegMap(@Self)^.&set := $00002000;
  63247. end;
  63248. procedure TPORTD_LATD.clearLATD13; inline;
  63249. begin
  63250. pTDefRegMap(@Self)^.clr := $00002000;
  63251. end;
  63252. procedure TPORTD_LATD.setLATD13(thebits : TBits_1); inline;
  63253. begin
  63254. if thebits = 0 then
  63255. pTDefRegMap(@Self)^.clr := $00002000
  63256. else
  63257. pTDefRegMap(@Self)^.&set := $00002000;
  63258. end;
  63259. function TPORTD_LATD.getLATD13 : TBits_1; inline;
  63260. begin
  63261. getLATD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  63262. end;
  63263. procedure TPORTD_LATD.setLATD14; inline;
  63264. begin
  63265. pTDefRegMap(@Self)^.&set := $00004000;
  63266. end;
  63267. procedure TPORTD_LATD.clearLATD14; inline;
  63268. begin
  63269. pTDefRegMap(@Self)^.clr := $00004000;
  63270. end;
  63271. procedure TPORTD_LATD.setLATD14(thebits : TBits_1); inline;
  63272. begin
  63273. if thebits = 0 then
  63274. pTDefRegMap(@Self)^.clr := $00004000
  63275. else
  63276. pTDefRegMap(@Self)^.&set := $00004000;
  63277. end;
  63278. function TPORTD_LATD.getLATD14 : TBits_1; inline;
  63279. begin
  63280. getLATD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  63281. end;
  63282. procedure TPORTD_LATD.setLATD15; inline;
  63283. begin
  63284. pTDefRegMap(@Self)^.&set := $00008000;
  63285. end;
  63286. procedure TPORTD_LATD.clearLATD15; inline;
  63287. begin
  63288. pTDefRegMap(@Self)^.clr := $00008000;
  63289. end;
  63290. procedure TPORTD_LATD.setLATD15(thebits : TBits_1); inline;
  63291. begin
  63292. if thebits = 0 then
  63293. pTDefRegMap(@Self)^.clr := $00008000
  63294. else
  63295. pTDefRegMap(@Self)^.&set := $00008000;
  63296. end;
  63297. function TPORTD_LATD.getLATD15 : TBits_1; inline;
  63298. begin
  63299. getLATD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  63300. end;
  63301. procedure TPORTD_LATD.setw(thebits : TBits_32); inline;
  63302. begin
  63303. pTDefRegMap(@Self)^.val := thebits;
  63304. end;
  63305. function TPORTD_LATD.getw : TBits_32; inline;
  63306. begin
  63307. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  63308. end;
  63309. procedure TPORTD_ODCD.setODCD0; inline;
  63310. begin
  63311. pTDefRegMap(@Self)^.&set := $00000001;
  63312. end;
  63313. procedure TPORTD_ODCD.clearODCD0; inline;
  63314. begin
  63315. pTDefRegMap(@Self)^.clr := $00000001;
  63316. end;
  63317. procedure TPORTD_ODCD.setODCD0(thebits : TBits_1); inline;
  63318. begin
  63319. if thebits = 0 then
  63320. pTDefRegMap(@Self)^.clr := $00000001
  63321. else
  63322. pTDefRegMap(@Self)^.&set := $00000001;
  63323. end;
  63324. function TPORTD_ODCD.getODCD0 : TBits_1; inline;
  63325. begin
  63326. getODCD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  63327. end;
  63328. procedure TPORTD_ODCD.setODCD1; inline;
  63329. begin
  63330. pTDefRegMap(@Self)^.&set := $00000002;
  63331. end;
  63332. procedure TPORTD_ODCD.clearODCD1; inline;
  63333. begin
  63334. pTDefRegMap(@Self)^.clr := $00000002;
  63335. end;
  63336. procedure TPORTD_ODCD.setODCD1(thebits : TBits_1); inline;
  63337. begin
  63338. if thebits = 0 then
  63339. pTDefRegMap(@Self)^.clr := $00000002
  63340. else
  63341. pTDefRegMap(@Self)^.&set := $00000002;
  63342. end;
  63343. function TPORTD_ODCD.getODCD1 : TBits_1; inline;
  63344. begin
  63345. getODCD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  63346. end;
  63347. procedure TPORTD_ODCD.setODCD2; inline;
  63348. begin
  63349. pTDefRegMap(@Self)^.&set := $00000004;
  63350. end;
  63351. procedure TPORTD_ODCD.clearODCD2; inline;
  63352. begin
  63353. pTDefRegMap(@Self)^.clr := $00000004;
  63354. end;
  63355. procedure TPORTD_ODCD.setODCD2(thebits : TBits_1); inline;
  63356. begin
  63357. if thebits = 0 then
  63358. pTDefRegMap(@Self)^.clr := $00000004
  63359. else
  63360. pTDefRegMap(@Self)^.&set := $00000004;
  63361. end;
  63362. function TPORTD_ODCD.getODCD2 : TBits_1; inline;
  63363. begin
  63364. getODCD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  63365. end;
  63366. procedure TPORTD_ODCD.setODCD3; inline;
  63367. begin
  63368. pTDefRegMap(@Self)^.&set := $00000008;
  63369. end;
  63370. procedure TPORTD_ODCD.clearODCD3; inline;
  63371. begin
  63372. pTDefRegMap(@Self)^.clr := $00000008;
  63373. end;
  63374. procedure TPORTD_ODCD.setODCD3(thebits : TBits_1); inline;
  63375. begin
  63376. if thebits = 0 then
  63377. pTDefRegMap(@Self)^.clr := $00000008
  63378. else
  63379. pTDefRegMap(@Self)^.&set := $00000008;
  63380. end;
  63381. function TPORTD_ODCD.getODCD3 : TBits_1; inline;
  63382. begin
  63383. getODCD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  63384. end;
  63385. procedure TPORTD_ODCD.setODCD4; inline;
  63386. begin
  63387. pTDefRegMap(@Self)^.&set := $00000010;
  63388. end;
  63389. procedure TPORTD_ODCD.clearODCD4; inline;
  63390. begin
  63391. pTDefRegMap(@Self)^.clr := $00000010;
  63392. end;
  63393. procedure TPORTD_ODCD.setODCD4(thebits : TBits_1); inline;
  63394. begin
  63395. if thebits = 0 then
  63396. pTDefRegMap(@Self)^.clr := $00000010
  63397. else
  63398. pTDefRegMap(@Self)^.&set := $00000010;
  63399. end;
  63400. function TPORTD_ODCD.getODCD4 : TBits_1; inline;
  63401. begin
  63402. getODCD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  63403. end;
  63404. procedure TPORTD_ODCD.setODCD5; inline;
  63405. begin
  63406. pTDefRegMap(@Self)^.&set := $00000020;
  63407. end;
  63408. procedure TPORTD_ODCD.clearODCD5; inline;
  63409. begin
  63410. pTDefRegMap(@Self)^.clr := $00000020;
  63411. end;
  63412. procedure TPORTD_ODCD.setODCD5(thebits : TBits_1); inline;
  63413. begin
  63414. if thebits = 0 then
  63415. pTDefRegMap(@Self)^.clr := $00000020
  63416. else
  63417. pTDefRegMap(@Self)^.&set := $00000020;
  63418. end;
  63419. function TPORTD_ODCD.getODCD5 : TBits_1; inline;
  63420. begin
  63421. getODCD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  63422. end;
  63423. procedure TPORTD_ODCD.setODCD6; inline;
  63424. begin
  63425. pTDefRegMap(@Self)^.&set := $00000040;
  63426. end;
  63427. procedure TPORTD_ODCD.clearODCD6; inline;
  63428. begin
  63429. pTDefRegMap(@Self)^.clr := $00000040;
  63430. end;
  63431. procedure TPORTD_ODCD.setODCD6(thebits : TBits_1); inline;
  63432. begin
  63433. if thebits = 0 then
  63434. pTDefRegMap(@Self)^.clr := $00000040
  63435. else
  63436. pTDefRegMap(@Self)^.&set := $00000040;
  63437. end;
  63438. function TPORTD_ODCD.getODCD6 : TBits_1; inline;
  63439. begin
  63440. getODCD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  63441. end;
  63442. procedure TPORTD_ODCD.setODCD7; inline;
  63443. begin
  63444. pTDefRegMap(@Self)^.&set := $00000080;
  63445. end;
  63446. procedure TPORTD_ODCD.clearODCD7; inline;
  63447. begin
  63448. pTDefRegMap(@Self)^.clr := $00000080;
  63449. end;
  63450. procedure TPORTD_ODCD.setODCD7(thebits : TBits_1); inline;
  63451. begin
  63452. if thebits = 0 then
  63453. pTDefRegMap(@Self)^.clr := $00000080
  63454. else
  63455. pTDefRegMap(@Self)^.&set := $00000080;
  63456. end;
  63457. function TPORTD_ODCD.getODCD7 : TBits_1; inline;
  63458. begin
  63459. getODCD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  63460. end;
  63461. procedure TPORTD_ODCD.setODCD8; inline;
  63462. begin
  63463. pTDefRegMap(@Self)^.&set := $00000100;
  63464. end;
  63465. procedure TPORTD_ODCD.clearODCD8; inline;
  63466. begin
  63467. pTDefRegMap(@Self)^.clr := $00000100;
  63468. end;
  63469. procedure TPORTD_ODCD.setODCD8(thebits : TBits_1); inline;
  63470. begin
  63471. if thebits = 0 then
  63472. pTDefRegMap(@Self)^.clr := $00000100
  63473. else
  63474. pTDefRegMap(@Self)^.&set := $00000100;
  63475. end;
  63476. function TPORTD_ODCD.getODCD8 : TBits_1; inline;
  63477. begin
  63478. getODCD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  63479. end;
  63480. procedure TPORTD_ODCD.setODCD9; inline;
  63481. begin
  63482. pTDefRegMap(@Self)^.&set := $00000200;
  63483. end;
  63484. procedure TPORTD_ODCD.clearODCD9; inline;
  63485. begin
  63486. pTDefRegMap(@Self)^.clr := $00000200;
  63487. end;
  63488. procedure TPORTD_ODCD.setODCD9(thebits : TBits_1); inline;
  63489. begin
  63490. if thebits = 0 then
  63491. pTDefRegMap(@Self)^.clr := $00000200
  63492. else
  63493. pTDefRegMap(@Self)^.&set := $00000200;
  63494. end;
  63495. function TPORTD_ODCD.getODCD9 : TBits_1; inline;
  63496. begin
  63497. getODCD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  63498. end;
  63499. procedure TPORTD_ODCD.setODCD10; inline;
  63500. begin
  63501. pTDefRegMap(@Self)^.&set := $00000400;
  63502. end;
  63503. procedure TPORTD_ODCD.clearODCD10; inline;
  63504. begin
  63505. pTDefRegMap(@Self)^.clr := $00000400;
  63506. end;
  63507. procedure TPORTD_ODCD.setODCD10(thebits : TBits_1); inline;
  63508. begin
  63509. if thebits = 0 then
  63510. pTDefRegMap(@Self)^.clr := $00000400
  63511. else
  63512. pTDefRegMap(@Self)^.&set := $00000400;
  63513. end;
  63514. function TPORTD_ODCD.getODCD10 : TBits_1; inline;
  63515. begin
  63516. getODCD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  63517. end;
  63518. procedure TPORTD_ODCD.setODCD11; inline;
  63519. begin
  63520. pTDefRegMap(@Self)^.&set := $00000800;
  63521. end;
  63522. procedure TPORTD_ODCD.clearODCD11; inline;
  63523. begin
  63524. pTDefRegMap(@Self)^.clr := $00000800;
  63525. end;
  63526. procedure TPORTD_ODCD.setODCD11(thebits : TBits_1); inline;
  63527. begin
  63528. if thebits = 0 then
  63529. pTDefRegMap(@Self)^.clr := $00000800
  63530. else
  63531. pTDefRegMap(@Self)^.&set := $00000800;
  63532. end;
  63533. function TPORTD_ODCD.getODCD11 : TBits_1; inline;
  63534. begin
  63535. getODCD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  63536. end;
  63537. procedure TPORTD_ODCD.setODCD12; inline;
  63538. begin
  63539. pTDefRegMap(@Self)^.&set := $00001000;
  63540. end;
  63541. procedure TPORTD_ODCD.clearODCD12; inline;
  63542. begin
  63543. pTDefRegMap(@Self)^.clr := $00001000;
  63544. end;
  63545. procedure TPORTD_ODCD.setODCD12(thebits : TBits_1); inline;
  63546. begin
  63547. if thebits = 0 then
  63548. pTDefRegMap(@Self)^.clr := $00001000
  63549. else
  63550. pTDefRegMap(@Self)^.&set := $00001000;
  63551. end;
  63552. function TPORTD_ODCD.getODCD12 : TBits_1; inline;
  63553. begin
  63554. getODCD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  63555. end;
  63556. procedure TPORTD_ODCD.setODCD13; inline;
  63557. begin
  63558. pTDefRegMap(@Self)^.&set := $00002000;
  63559. end;
  63560. procedure TPORTD_ODCD.clearODCD13; inline;
  63561. begin
  63562. pTDefRegMap(@Self)^.clr := $00002000;
  63563. end;
  63564. procedure TPORTD_ODCD.setODCD13(thebits : TBits_1); inline;
  63565. begin
  63566. if thebits = 0 then
  63567. pTDefRegMap(@Self)^.clr := $00002000
  63568. else
  63569. pTDefRegMap(@Self)^.&set := $00002000;
  63570. end;
  63571. function TPORTD_ODCD.getODCD13 : TBits_1; inline;
  63572. begin
  63573. getODCD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  63574. end;
  63575. procedure TPORTD_ODCD.setODCD14; inline;
  63576. begin
  63577. pTDefRegMap(@Self)^.&set := $00004000;
  63578. end;
  63579. procedure TPORTD_ODCD.clearODCD14; inline;
  63580. begin
  63581. pTDefRegMap(@Self)^.clr := $00004000;
  63582. end;
  63583. procedure TPORTD_ODCD.setODCD14(thebits : TBits_1); inline;
  63584. begin
  63585. if thebits = 0 then
  63586. pTDefRegMap(@Self)^.clr := $00004000
  63587. else
  63588. pTDefRegMap(@Self)^.&set := $00004000;
  63589. end;
  63590. function TPORTD_ODCD.getODCD14 : TBits_1; inline;
  63591. begin
  63592. getODCD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  63593. end;
  63594. procedure TPORTD_ODCD.setODCD15; inline;
  63595. begin
  63596. pTDefRegMap(@Self)^.&set := $00008000;
  63597. end;
  63598. procedure TPORTD_ODCD.clearODCD15; inline;
  63599. begin
  63600. pTDefRegMap(@Self)^.clr := $00008000;
  63601. end;
  63602. procedure TPORTD_ODCD.setODCD15(thebits : TBits_1); inline;
  63603. begin
  63604. if thebits = 0 then
  63605. pTDefRegMap(@Self)^.clr := $00008000
  63606. else
  63607. pTDefRegMap(@Self)^.&set := $00008000;
  63608. end;
  63609. function TPORTD_ODCD.getODCD15 : TBits_1; inline;
  63610. begin
  63611. getODCD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  63612. end;
  63613. procedure TPORTD_ODCD.setw(thebits : TBits_32); inline;
  63614. begin
  63615. pTDefRegMap(@Self)^.val := thebits;
  63616. end;
  63617. function TPORTD_ODCD.getw : TBits_32; inline;
  63618. begin
  63619. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  63620. end;
  63621. procedure TPORTE_TRISE.setTRISE0; inline;
  63622. begin
  63623. pTDefRegMap(@Self)^.&set := $00000001;
  63624. end;
  63625. procedure TPORTE_TRISE.clearTRISE0; inline;
  63626. begin
  63627. pTDefRegMap(@Self)^.clr := $00000001;
  63628. end;
  63629. procedure TPORTE_TRISE.setTRISE0(thebits : TBits_1); inline;
  63630. begin
  63631. if thebits = 0 then
  63632. pTDefRegMap(@Self)^.clr := $00000001
  63633. else
  63634. pTDefRegMap(@Self)^.&set := $00000001;
  63635. end;
  63636. function TPORTE_TRISE.getTRISE0 : TBits_1; inline;
  63637. begin
  63638. getTRISE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  63639. end;
  63640. procedure TPORTE_TRISE.setTRISE1; inline;
  63641. begin
  63642. pTDefRegMap(@Self)^.&set := $00000002;
  63643. end;
  63644. procedure TPORTE_TRISE.clearTRISE1; inline;
  63645. begin
  63646. pTDefRegMap(@Self)^.clr := $00000002;
  63647. end;
  63648. procedure TPORTE_TRISE.setTRISE1(thebits : TBits_1); inline;
  63649. begin
  63650. if thebits = 0 then
  63651. pTDefRegMap(@Self)^.clr := $00000002
  63652. else
  63653. pTDefRegMap(@Self)^.&set := $00000002;
  63654. end;
  63655. function TPORTE_TRISE.getTRISE1 : TBits_1; inline;
  63656. begin
  63657. getTRISE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  63658. end;
  63659. procedure TPORTE_TRISE.setTRISE2; inline;
  63660. begin
  63661. pTDefRegMap(@Self)^.&set := $00000004;
  63662. end;
  63663. procedure TPORTE_TRISE.clearTRISE2; inline;
  63664. begin
  63665. pTDefRegMap(@Self)^.clr := $00000004;
  63666. end;
  63667. procedure TPORTE_TRISE.setTRISE2(thebits : TBits_1); inline;
  63668. begin
  63669. if thebits = 0 then
  63670. pTDefRegMap(@Self)^.clr := $00000004
  63671. else
  63672. pTDefRegMap(@Self)^.&set := $00000004;
  63673. end;
  63674. function TPORTE_TRISE.getTRISE2 : TBits_1; inline;
  63675. begin
  63676. getTRISE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  63677. end;
  63678. procedure TPORTE_TRISE.setTRISE3; inline;
  63679. begin
  63680. pTDefRegMap(@Self)^.&set := $00000008;
  63681. end;
  63682. procedure TPORTE_TRISE.clearTRISE3; inline;
  63683. begin
  63684. pTDefRegMap(@Self)^.clr := $00000008;
  63685. end;
  63686. procedure TPORTE_TRISE.setTRISE3(thebits : TBits_1); inline;
  63687. begin
  63688. if thebits = 0 then
  63689. pTDefRegMap(@Self)^.clr := $00000008
  63690. else
  63691. pTDefRegMap(@Self)^.&set := $00000008;
  63692. end;
  63693. function TPORTE_TRISE.getTRISE3 : TBits_1; inline;
  63694. begin
  63695. getTRISE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  63696. end;
  63697. procedure TPORTE_TRISE.setTRISE4; inline;
  63698. begin
  63699. pTDefRegMap(@Self)^.&set := $00000010;
  63700. end;
  63701. procedure TPORTE_TRISE.clearTRISE4; inline;
  63702. begin
  63703. pTDefRegMap(@Self)^.clr := $00000010;
  63704. end;
  63705. procedure TPORTE_TRISE.setTRISE4(thebits : TBits_1); inline;
  63706. begin
  63707. if thebits = 0 then
  63708. pTDefRegMap(@Self)^.clr := $00000010
  63709. else
  63710. pTDefRegMap(@Self)^.&set := $00000010;
  63711. end;
  63712. function TPORTE_TRISE.getTRISE4 : TBits_1; inline;
  63713. begin
  63714. getTRISE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  63715. end;
  63716. procedure TPORTE_TRISE.setTRISE5; inline;
  63717. begin
  63718. pTDefRegMap(@Self)^.&set := $00000020;
  63719. end;
  63720. procedure TPORTE_TRISE.clearTRISE5; inline;
  63721. begin
  63722. pTDefRegMap(@Self)^.clr := $00000020;
  63723. end;
  63724. procedure TPORTE_TRISE.setTRISE5(thebits : TBits_1); inline;
  63725. begin
  63726. if thebits = 0 then
  63727. pTDefRegMap(@Self)^.clr := $00000020
  63728. else
  63729. pTDefRegMap(@Self)^.&set := $00000020;
  63730. end;
  63731. function TPORTE_TRISE.getTRISE5 : TBits_1; inline;
  63732. begin
  63733. getTRISE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  63734. end;
  63735. procedure TPORTE_TRISE.setTRISE6; inline;
  63736. begin
  63737. pTDefRegMap(@Self)^.&set := $00000040;
  63738. end;
  63739. procedure TPORTE_TRISE.clearTRISE6; inline;
  63740. begin
  63741. pTDefRegMap(@Self)^.clr := $00000040;
  63742. end;
  63743. procedure TPORTE_TRISE.setTRISE6(thebits : TBits_1); inline;
  63744. begin
  63745. if thebits = 0 then
  63746. pTDefRegMap(@Self)^.clr := $00000040
  63747. else
  63748. pTDefRegMap(@Self)^.&set := $00000040;
  63749. end;
  63750. function TPORTE_TRISE.getTRISE6 : TBits_1; inline;
  63751. begin
  63752. getTRISE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  63753. end;
  63754. procedure TPORTE_TRISE.setTRISE7; inline;
  63755. begin
  63756. pTDefRegMap(@Self)^.&set := $00000080;
  63757. end;
  63758. procedure TPORTE_TRISE.clearTRISE7; inline;
  63759. begin
  63760. pTDefRegMap(@Self)^.clr := $00000080;
  63761. end;
  63762. procedure TPORTE_TRISE.setTRISE7(thebits : TBits_1); inline;
  63763. begin
  63764. if thebits = 0 then
  63765. pTDefRegMap(@Self)^.clr := $00000080
  63766. else
  63767. pTDefRegMap(@Self)^.&set := $00000080;
  63768. end;
  63769. function TPORTE_TRISE.getTRISE7 : TBits_1; inline;
  63770. begin
  63771. getTRISE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  63772. end;
  63773. procedure TPORTE_TRISE.setTRISE8; inline;
  63774. begin
  63775. pTDefRegMap(@Self)^.&set := $00000100;
  63776. end;
  63777. procedure TPORTE_TRISE.clearTRISE8; inline;
  63778. begin
  63779. pTDefRegMap(@Self)^.clr := $00000100;
  63780. end;
  63781. procedure TPORTE_TRISE.setTRISE8(thebits : TBits_1); inline;
  63782. begin
  63783. if thebits = 0 then
  63784. pTDefRegMap(@Self)^.clr := $00000100
  63785. else
  63786. pTDefRegMap(@Self)^.&set := $00000100;
  63787. end;
  63788. function TPORTE_TRISE.getTRISE8 : TBits_1; inline;
  63789. begin
  63790. getTRISE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  63791. end;
  63792. procedure TPORTE_TRISE.setTRISE9; inline;
  63793. begin
  63794. pTDefRegMap(@Self)^.&set := $00000200;
  63795. end;
  63796. procedure TPORTE_TRISE.clearTRISE9; inline;
  63797. begin
  63798. pTDefRegMap(@Self)^.clr := $00000200;
  63799. end;
  63800. procedure TPORTE_TRISE.setTRISE9(thebits : TBits_1); inline;
  63801. begin
  63802. if thebits = 0 then
  63803. pTDefRegMap(@Self)^.clr := $00000200
  63804. else
  63805. pTDefRegMap(@Self)^.&set := $00000200;
  63806. end;
  63807. function TPORTE_TRISE.getTRISE9 : TBits_1; inline;
  63808. begin
  63809. getTRISE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  63810. end;
  63811. procedure TPORTE_TRISE.setw(thebits : TBits_32); inline;
  63812. begin
  63813. pTDefRegMap(@Self)^.val := thebits;
  63814. end;
  63815. function TPORTE_TRISE.getw : TBits_32; inline;
  63816. begin
  63817. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  63818. end;
  63819. procedure TPORTE_PORTE.setRE0; inline;
  63820. begin
  63821. pTDefRegMap(@Self)^.&set := $00000001;
  63822. end;
  63823. procedure TPORTE_PORTE.clearRE0; inline;
  63824. begin
  63825. pTDefRegMap(@Self)^.clr := $00000001;
  63826. end;
  63827. procedure TPORTE_PORTE.setRE0(thebits : TBits_1); inline;
  63828. begin
  63829. if thebits = 0 then
  63830. pTDefRegMap(@Self)^.clr := $00000001
  63831. else
  63832. pTDefRegMap(@Self)^.&set := $00000001;
  63833. end;
  63834. function TPORTE_PORTE.getRE0 : TBits_1; inline;
  63835. begin
  63836. getRE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  63837. end;
  63838. procedure TPORTE_PORTE.setRE1; inline;
  63839. begin
  63840. pTDefRegMap(@Self)^.&set := $00000002;
  63841. end;
  63842. procedure TPORTE_PORTE.clearRE1; inline;
  63843. begin
  63844. pTDefRegMap(@Self)^.clr := $00000002;
  63845. end;
  63846. procedure TPORTE_PORTE.setRE1(thebits : TBits_1); inline;
  63847. begin
  63848. if thebits = 0 then
  63849. pTDefRegMap(@Self)^.clr := $00000002
  63850. else
  63851. pTDefRegMap(@Self)^.&set := $00000002;
  63852. end;
  63853. function TPORTE_PORTE.getRE1 : TBits_1; inline;
  63854. begin
  63855. getRE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  63856. end;
  63857. procedure TPORTE_PORTE.setRE2; inline;
  63858. begin
  63859. pTDefRegMap(@Self)^.&set := $00000004;
  63860. end;
  63861. procedure TPORTE_PORTE.clearRE2; inline;
  63862. begin
  63863. pTDefRegMap(@Self)^.clr := $00000004;
  63864. end;
  63865. procedure TPORTE_PORTE.setRE2(thebits : TBits_1); inline;
  63866. begin
  63867. if thebits = 0 then
  63868. pTDefRegMap(@Self)^.clr := $00000004
  63869. else
  63870. pTDefRegMap(@Self)^.&set := $00000004;
  63871. end;
  63872. function TPORTE_PORTE.getRE2 : TBits_1; inline;
  63873. begin
  63874. getRE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  63875. end;
  63876. procedure TPORTE_PORTE.setRE3; inline;
  63877. begin
  63878. pTDefRegMap(@Self)^.&set := $00000008;
  63879. end;
  63880. procedure TPORTE_PORTE.clearRE3; inline;
  63881. begin
  63882. pTDefRegMap(@Self)^.clr := $00000008;
  63883. end;
  63884. procedure TPORTE_PORTE.setRE3(thebits : TBits_1); inline;
  63885. begin
  63886. if thebits = 0 then
  63887. pTDefRegMap(@Self)^.clr := $00000008
  63888. else
  63889. pTDefRegMap(@Self)^.&set := $00000008;
  63890. end;
  63891. function TPORTE_PORTE.getRE3 : TBits_1; inline;
  63892. begin
  63893. getRE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  63894. end;
  63895. procedure TPORTE_PORTE.setRE4; inline;
  63896. begin
  63897. pTDefRegMap(@Self)^.&set := $00000010;
  63898. end;
  63899. procedure TPORTE_PORTE.clearRE4; inline;
  63900. begin
  63901. pTDefRegMap(@Self)^.clr := $00000010;
  63902. end;
  63903. procedure TPORTE_PORTE.setRE4(thebits : TBits_1); inline;
  63904. begin
  63905. if thebits = 0 then
  63906. pTDefRegMap(@Self)^.clr := $00000010
  63907. else
  63908. pTDefRegMap(@Self)^.&set := $00000010;
  63909. end;
  63910. function TPORTE_PORTE.getRE4 : TBits_1; inline;
  63911. begin
  63912. getRE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  63913. end;
  63914. procedure TPORTE_PORTE.setRE5; inline;
  63915. begin
  63916. pTDefRegMap(@Self)^.&set := $00000020;
  63917. end;
  63918. procedure TPORTE_PORTE.clearRE5; inline;
  63919. begin
  63920. pTDefRegMap(@Self)^.clr := $00000020;
  63921. end;
  63922. procedure TPORTE_PORTE.setRE5(thebits : TBits_1); inline;
  63923. begin
  63924. if thebits = 0 then
  63925. pTDefRegMap(@Self)^.clr := $00000020
  63926. else
  63927. pTDefRegMap(@Self)^.&set := $00000020;
  63928. end;
  63929. function TPORTE_PORTE.getRE5 : TBits_1; inline;
  63930. begin
  63931. getRE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  63932. end;
  63933. procedure TPORTE_PORTE.setRE6; inline;
  63934. begin
  63935. pTDefRegMap(@Self)^.&set := $00000040;
  63936. end;
  63937. procedure TPORTE_PORTE.clearRE6; inline;
  63938. begin
  63939. pTDefRegMap(@Self)^.clr := $00000040;
  63940. end;
  63941. procedure TPORTE_PORTE.setRE6(thebits : TBits_1); inline;
  63942. begin
  63943. if thebits = 0 then
  63944. pTDefRegMap(@Self)^.clr := $00000040
  63945. else
  63946. pTDefRegMap(@Self)^.&set := $00000040;
  63947. end;
  63948. function TPORTE_PORTE.getRE6 : TBits_1; inline;
  63949. begin
  63950. getRE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  63951. end;
  63952. procedure TPORTE_PORTE.setRE7; inline;
  63953. begin
  63954. pTDefRegMap(@Self)^.&set := $00000080;
  63955. end;
  63956. procedure TPORTE_PORTE.clearRE7; inline;
  63957. begin
  63958. pTDefRegMap(@Self)^.clr := $00000080;
  63959. end;
  63960. procedure TPORTE_PORTE.setRE7(thebits : TBits_1); inline;
  63961. begin
  63962. if thebits = 0 then
  63963. pTDefRegMap(@Self)^.clr := $00000080
  63964. else
  63965. pTDefRegMap(@Self)^.&set := $00000080;
  63966. end;
  63967. function TPORTE_PORTE.getRE7 : TBits_1; inline;
  63968. begin
  63969. getRE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  63970. end;
  63971. procedure TPORTE_PORTE.setRE8; inline;
  63972. begin
  63973. pTDefRegMap(@Self)^.&set := $00000100;
  63974. end;
  63975. procedure TPORTE_PORTE.clearRE8; inline;
  63976. begin
  63977. pTDefRegMap(@Self)^.clr := $00000100;
  63978. end;
  63979. procedure TPORTE_PORTE.setRE8(thebits : TBits_1); inline;
  63980. begin
  63981. if thebits = 0 then
  63982. pTDefRegMap(@Self)^.clr := $00000100
  63983. else
  63984. pTDefRegMap(@Self)^.&set := $00000100;
  63985. end;
  63986. function TPORTE_PORTE.getRE8 : TBits_1; inline;
  63987. begin
  63988. getRE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  63989. end;
  63990. procedure TPORTE_PORTE.setRE9; inline;
  63991. begin
  63992. pTDefRegMap(@Self)^.&set := $00000200;
  63993. end;
  63994. procedure TPORTE_PORTE.clearRE9; inline;
  63995. begin
  63996. pTDefRegMap(@Self)^.clr := $00000200;
  63997. end;
  63998. procedure TPORTE_PORTE.setRE9(thebits : TBits_1); inline;
  63999. begin
  64000. if thebits = 0 then
  64001. pTDefRegMap(@Self)^.clr := $00000200
  64002. else
  64003. pTDefRegMap(@Self)^.&set := $00000200;
  64004. end;
  64005. function TPORTE_PORTE.getRE9 : TBits_1; inline;
  64006. begin
  64007. getRE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  64008. end;
  64009. procedure TPORTE_PORTE.setw(thebits : TBits_32); inline;
  64010. begin
  64011. pTDefRegMap(@Self)^.val := thebits;
  64012. end;
  64013. function TPORTE_PORTE.getw : TBits_32; inline;
  64014. begin
  64015. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  64016. end;
  64017. procedure TPORTE_LATE.setLATE0; inline;
  64018. begin
  64019. pTDefRegMap(@Self)^.&set := $00000001;
  64020. end;
  64021. procedure TPORTE_LATE.clearLATE0; inline;
  64022. begin
  64023. pTDefRegMap(@Self)^.clr := $00000001;
  64024. end;
  64025. procedure TPORTE_LATE.setLATE0(thebits : TBits_1); inline;
  64026. begin
  64027. if thebits = 0 then
  64028. pTDefRegMap(@Self)^.clr := $00000001
  64029. else
  64030. pTDefRegMap(@Self)^.&set := $00000001;
  64031. end;
  64032. function TPORTE_LATE.getLATE0 : TBits_1; inline;
  64033. begin
  64034. getLATE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  64035. end;
  64036. procedure TPORTE_LATE.setLATE1; inline;
  64037. begin
  64038. pTDefRegMap(@Self)^.&set := $00000002;
  64039. end;
  64040. procedure TPORTE_LATE.clearLATE1; inline;
  64041. begin
  64042. pTDefRegMap(@Self)^.clr := $00000002;
  64043. end;
  64044. procedure TPORTE_LATE.setLATE1(thebits : TBits_1); inline;
  64045. begin
  64046. if thebits = 0 then
  64047. pTDefRegMap(@Self)^.clr := $00000002
  64048. else
  64049. pTDefRegMap(@Self)^.&set := $00000002;
  64050. end;
  64051. function TPORTE_LATE.getLATE1 : TBits_1; inline;
  64052. begin
  64053. getLATE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  64054. end;
  64055. procedure TPORTE_LATE.setLATE2; inline;
  64056. begin
  64057. pTDefRegMap(@Self)^.&set := $00000004;
  64058. end;
  64059. procedure TPORTE_LATE.clearLATE2; inline;
  64060. begin
  64061. pTDefRegMap(@Self)^.clr := $00000004;
  64062. end;
  64063. procedure TPORTE_LATE.setLATE2(thebits : TBits_1); inline;
  64064. begin
  64065. if thebits = 0 then
  64066. pTDefRegMap(@Self)^.clr := $00000004
  64067. else
  64068. pTDefRegMap(@Self)^.&set := $00000004;
  64069. end;
  64070. function TPORTE_LATE.getLATE2 : TBits_1; inline;
  64071. begin
  64072. getLATE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  64073. end;
  64074. procedure TPORTE_LATE.setLATE3; inline;
  64075. begin
  64076. pTDefRegMap(@Self)^.&set := $00000008;
  64077. end;
  64078. procedure TPORTE_LATE.clearLATE3; inline;
  64079. begin
  64080. pTDefRegMap(@Self)^.clr := $00000008;
  64081. end;
  64082. procedure TPORTE_LATE.setLATE3(thebits : TBits_1); inline;
  64083. begin
  64084. if thebits = 0 then
  64085. pTDefRegMap(@Self)^.clr := $00000008
  64086. else
  64087. pTDefRegMap(@Self)^.&set := $00000008;
  64088. end;
  64089. function TPORTE_LATE.getLATE3 : TBits_1; inline;
  64090. begin
  64091. getLATE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  64092. end;
  64093. procedure TPORTE_LATE.setLATE4; inline;
  64094. begin
  64095. pTDefRegMap(@Self)^.&set := $00000010;
  64096. end;
  64097. procedure TPORTE_LATE.clearLATE4; inline;
  64098. begin
  64099. pTDefRegMap(@Self)^.clr := $00000010;
  64100. end;
  64101. procedure TPORTE_LATE.setLATE4(thebits : TBits_1); inline;
  64102. begin
  64103. if thebits = 0 then
  64104. pTDefRegMap(@Self)^.clr := $00000010
  64105. else
  64106. pTDefRegMap(@Self)^.&set := $00000010;
  64107. end;
  64108. function TPORTE_LATE.getLATE4 : TBits_1; inline;
  64109. begin
  64110. getLATE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  64111. end;
  64112. procedure TPORTE_LATE.setLATE5; inline;
  64113. begin
  64114. pTDefRegMap(@Self)^.&set := $00000020;
  64115. end;
  64116. procedure TPORTE_LATE.clearLATE5; inline;
  64117. begin
  64118. pTDefRegMap(@Self)^.clr := $00000020;
  64119. end;
  64120. procedure TPORTE_LATE.setLATE5(thebits : TBits_1); inline;
  64121. begin
  64122. if thebits = 0 then
  64123. pTDefRegMap(@Self)^.clr := $00000020
  64124. else
  64125. pTDefRegMap(@Self)^.&set := $00000020;
  64126. end;
  64127. function TPORTE_LATE.getLATE5 : TBits_1; inline;
  64128. begin
  64129. getLATE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  64130. end;
  64131. procedure TPORTE_LATE.setLATE6; inline;
  64132. begin
  64133. pTDefRegMap(@Self)^.&set := $00000040;
  64134. end;
  64135. procedure TPORTE_LATE.clearLATE6; inline;
  64136. begin
  64137. pTDefRegMap(@Self)^.clr := $00000040;
  64138. end;
  64139. procedure TPORTE_LATE.setLATE6(thebits : TBits_1); inline;
  64140. begin
  64141. if thebits = 0 then
  64142. pTDefRegMap(@Self)^.clr := $00000040
  64143. else
  64144. pTDefRegMap(@Self)^.&set := $00000040;
  64145. end;
  64146. function TPORTE_LATE.getLATE6 : TBits_1; inline;
  64147. begin
  64148. getLATE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  64149. end;
  64150. procedure TPORTE_LATE.setLATE7; inline;
  64151. begin
  64152. pTDefRegMap(@Self)^.&set := $00000080;
  64153. end;
  64154. procedure TPORTE_LATE.clearLATE7; inline;
  64155. begin
  64156. pTDefRegMap(@Self)^.clr := $00000080;
  64157. end;
  64158. procedure TPORTE_LATE.setLATE7(thebits : TBits_1); inline;
  64159. begin
  64160. if thebits = 0 then
  64161. pTDefRegMap(@Self)^.clr := $00000080
  64162. else
  64163. pTDefRegMap(@Self)^.&set := $00000080;
  64164. end;
  64165. function TPORTE_LATE.getLATE7 : TBits_1; inline;
  64166. begin
  64167. getLATE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  64168. end;
  64169. procedure TPORTE_LATE.setLATE8; inline;
  64170. begin
  64171. pTDefRegMap(@Self)^.&set := $00000100;
  64172. end;
  64173. procedure TPORTE_LATE.clearLATE8; inline;
  64174. begin
  64175. pTDefRegMap(@Self)^.clr := $00000100;
  64176. end;
  64177. procedure TPORTE_LATE.setLATE8(thebits : TBits_1); inline;
  64178. begin
  64179. if thebits = 0 then
  64180. pTDefRegMap(@Self)^.clr := $00000100
  64181. else
  64182. pTDefRegMap(@Self)^.&set := $00000100;
  64183. end;
  64184. function TPORTE_LATE.getLATE8 : TBits_1; inline;
  64185. begin
  64186. getLATE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  64187. end;
  64188. procedure TPORTE_LATE.setLATE9; inline;
  64189. begin
  64190. pTDefRegMap(@Self)^.&set := $00000200;
  64191. end;
  64192. procedure TPORTE_LATE.clearLATE9; inline;
  64193. begin
  64194. pTDefRegMap(@Self)^.clr := $00000200;
  64195. end;
  64196. procedure TPORTE_LATE.setLATE9(thebits : TBits_1); inline;
  64197. begin
  64198. if thebits = 0 then
  64199. pTDefRegMap(@Self)^.clr := $00000200
  64200. else
  64201. pTDefRegMap(@Self)^.&set := $00000200;
  64202. end;
  64203. function TPORTE_LATE.getLATE9 : TBits_1; inline;
  64204. begin
  64205. getLATE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  64206. end;
  64207. procedure TPORTE_LATE.setw(thebits : TBits_32); inline;
  64208. begin
  64209. pTDefRegMap(@Self)^.val := thebits;
  64210. end;
  64211. function TPORTE_LATE.getw : TBits_32; inline;
  64212. begin
  64213. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  64214. end;
  64215. procedure TPORTE_ODCE.setODCE0; inline;
  64216. begin
  64217. pTDefRegMap(@Self)^.&set := $00000001;
  64218. end;
  64219. procedure TPORTE_ODCE.clearODCE0; inline;
  64220. begin
  64221. pTDefRegMap(@Self)^.clr := $00000001;
  64222. end;
  64223. procedure TPORTE_ODCE.setODCE0(thebits : TBits_1); inline;
  64224. begin
  64225. if thebits = 0 then
  64226. pTDefRegMap(@Self)^.clr := $00000001
  64227. else
  64228. pTDefRegMap(@Self)^.&set := $00000001;
  64229. end;
  64230. function TPORTE_ODCE.getODCE0 : TBits_1; inline;
  64231. begin
  64232. getODCE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  64233. end;
  64234. procedure TPORTE_ODCE.setODCE1; inline;
  64235. begin
  64236. pTDefRegMap(@Self)^.&set := $00000002;
  64237. end;
  64238. procedure TPORTE_ODCE.clearODCE1; inline;
  64239. begin
  64240. pTDefRegMap(@Self)^.clr := $00000002;
  64241. end;
  64242. procedure TPORTE_ODCE.setODCE1(thebits : TBits_1); inline;
  64243. begin
  64244. if thebits = 0 then
  64245. pTDefRegMap(@Self)^.clr := $00000002
  64246. else
  64247. pTDefRegMap(@Self)^.&set := $00000002;
  64248. end;
  64249. function TPORTE_ODCE.getODCE1 : TBits_1; inline;
  64250. begin
  64251. getODCE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  64252. end;
  64253. procedure TPORTE_ODCE.setODCE2; inline;
  64254. begin
  64255. pTDefRegMap(@Self)^.&set := $00000004;
  64256. end;
  64257. procedure TPORTE_ODCE.clearODCE2; inline;
  64258. begin
  64259. pTDefRegMap(@Self)^.clr := $00000004;
  64260. end;
  64261. procedure TPORTE_ODCE.setODCE2(thebits : TBits_1); inline;
  64262. begin
  64263. if thebits = 0 then
  64264. pTDefRegMap(@Self)^.clr := $00000004
  64265. else
  64266. pTDefRegMap(@Self)^.&set := $00000004;
  64267. end;
  64268. function TPORTE_ODCE.getODCE2 : TBits_1; inline;
  64269. begin
  64270. getODCE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  64271. end;
  64272. procedure TPORTE_ODCE.setODCE3; inline;
  64273. begin
  64274. pTDefRegMap(@Self)^.&set := $00000008;
  64275. end;
  64276. procedure TPORTE_ODCE.clearODCE3; inline;
  64277. begin
  64278. pTDefRegMap(@Self)^.clr := $00000008;
  64279. end;
  64280. procedure TPORTE_ODCE.setODCE3(thebits : TBits_1); inline;
  64281. begin
  64282. if thebits = 0 then
  64283. pTDefRegMap(@Self)^.clr := $00000008
  64284. else
  64285. pTDefRegMap(@Self)^.&set := $00000008;
  64286. end;
  64287. function TPORTE_ODCE.getODCE3 : TBits_1; inline;
  64288. begin
  64289. getODCE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  64290. end;
  64291. procedure TPORTE_ODCE.setODCE4; inline;
  64292. begin
  64293. pTDefRegMap(@Self)^.&set := $00000010;
  64294. end;
  64295. procedure TPORTE_ODCE.clearODCE4; inline;
  64296. begin
  64297. pTDefRegMap(@Self)^.clr := $00000010;
  64298. end;
  64299. procedure TPORTE_ODCE.setODCE4(thebits : TBits_1); inline;
  64300. begin
  64301. if thebits = 0 then
  64302. pTDefRegMap(@Self)^.clr := $00000010
  64303. else
  64304. pTDefRegMap(@Self)^.&set := $00000010;
  64305. end;
  64306. function TPORTE_ODCE.getODCE4 : TBits_1; inline;
  64307. begin
  64308. getODCE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  64309. end;
  64310. procedure TPORTE_ODCE.setODCE5; inline;
  64311. begin
  64312. pTDefRegMap(@Self)^.&set := $00000020;
  64313. end;
  64314. procedure TPORTE_ODCE.clearODCE5; inline;
  64315. begin
  64316. pTDefRegMap(@Self)^.clr := $00000020;
  64317. end;
  64318. procedure TPORTE_ODCE.setODCE5(thebits : TBits_1); inline;
  64319. begin
  64320. if thebits = 0 then
  64321. pTDefRegMap(@Self)^.clr := $00000020
  64322. else
  64323. pTDefRegMap(@Self)^.&set := $00000020;
  64324. end;
  64325. function TPORTE_ODCE.getODCE5 : TBits_1; inline;
  64326. begin
  64327. getODCE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  64328. end;
  64329. procedure TPORTE_ODCE.setODCE6; inline;
  64330. begin
  64331. pTDefRegMap(@Self)^.&set := $00000040;
  64332. end;
  64333. procedure TPORTE_ODCE.clearODCE6; inline;
  64334. begin
  64335. pTDefRegMap(@Self)^.clr := $00000040;
  64336. end;
  64337. procedure TPORTE_ODCE.setODCE6(thebits : TBits_1); inline;
  64338. begin
  64339. if thebits = 0 then
  64340. pTDefRegMap(@Self)^.clr := $00000040
  64341. else
  64342. pTDefRegMap(@Self)^.&set := $00000040;
  64343. end;
  64344. function TPORTE_ODCE.getODCE6 : TBits_1; inline;
  64345. begin
  64346. getODCE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  64347. end;
  64348. procedure TPORTE_ODCE.setODCE7; inline;
  64349. begin
  64350. pTDefRegMap(@Self)^.&set := $00000080;
  64351. end;
  64352. procedure TPORTE_ODCE.clearODCE7; inline;
  64353. begin
  64354. pTDefRegMap(@Self)^.clr := $00000080;
  64355. end;
  64356. procedure TPORTE_ODCE.setODCE7(thebits : TBits_1); inline;
  64357. begin
  64358. if thebits = 0 then
  64359. pTDefRegMap(@Self)^.clr := $00000080
  64360. else
  64361. pTDefRegMap(@Self)^.&set := $00000080;
  64362. end;
  64363. function TPORTE_ODCE.getODCE7 : TBits_1; inline;
  64364. begin
  64365. getODCE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  64366. end;
  64367. procedure TPORTE_ODCE.setODCE8; inline;
  64368. begin
  64369. pTDefRegMap(@Self)^.&set := $00000100;
  64370. end;
  64371. procedure TPORTE_ODCE.clearODCE8; inline;
  64372. begin
  64373. pTDefRegMap(@Self)^.clr := $00000100;
  64374. end;
  64375. procedure TPORTE_ODCE.setODCE8(thebits : TBits_1); inline;
  64376. begin
  64377. if thebits = 0 then
  64378. pTDefRegMap(@Self)^.clr := $00000100
  64379. else
  64380. pTDefRegMap(@Self)^.&set := $00000100;
  64381. end;
  64382. function TPORTE_ODCE.getODCE8 : TBits_1; inline;
  64383. begin
  64384. getODCE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  64385. end;
  64386. procedure TPORTE_ODCE.setODCE9; inline;
  64387. begin
  64388. pTDefRegMap(@Self)^.&set := $00000200;
  64389. end;
  64390. procedure TPORTE_ODCE.clearODCE9; inline;
  64391. begin
  64392. pTDefRegMap(@Self)^.clr := $00000200;
  64393. end;
  64394. procedure TPORTE_ODCE.setODCE9(thebits : TBits_1); inline;
  64395. begin
  64396. if thebits = 0 then
  64397. pTDefRegMap(@Self)^.clr := $00000200
  64398. else
  64399. pTDefRegMap(@Self)^.&set := $00000200;
  64400. end;
  64401. function TPORTE_ODCE.getODCE9 : TBits_1; inline;
  64402. begin
  64403. getODCE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  64404. end;
  64405. procedure TPORTE_ODCE.setw(thebits : TBits_32); inline;
  64406. begin
  64407. pTDefRegMap(@Self)^.val := thebits;
  64408. end;
  64409. function TPORTE_ODCE.getw : TBits_32; inline;
  64410. begin
  64411. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  64412. end;
  64413. procedure TPORTF_TRISF.setTRISF0; inline;
  64414. begin
  64415. pTDefRegMap(@Self)^.&set := $00000001;
  64416. end;
  64417. procedure TPORTF_TRISF.clearTRISF0; inline;
  64418. begin
  64419. pTDefRegMap(@Self)^.clr := $00000001;
  64420. end;
  64421. procedure TPORTF_TRISF.setTRISF0(thebits : TBits_1); inline;
  64422. begin
  64423. if thebits = 0 then
  64424. pTDefRegMap(@Self)^.clr := $00000001
  64425. else
  64426. pTDefRegMap(@Self)^.&set := $00000001;
  64427. end;
  64428. function TPORTF_TRISF.getTRISF0 : TBits_1; inline;
  64429. begin
  64430. getTRISF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  64431. end;
  64432. procedure TPORTF_TRISF.setTRISF1; inline;
  64433. begin
  64434. pTDefRegMap(@Self)^.&set := $00000002;
  64435. end;
  64436. procedure TPORTF_TRISF.clearTRISF1; inline;
  64437. begin
  64438. pTDefRegMap(@Self)^.clr := $00000002;
  64439. end;
  64440. procedure TPORTF_TRISF.setTRISF1(thebits : TBits_1); inline;
  64441. begin
  64442. if thebits = 0 then
  64443. pTDefRegMap(@Self)^.clr := $00000002
  64444. else
  64445. pTDefRegMap(@Self)^.&set := $00000002;
  64446. end;
  64447. function TPORTF_TRISF.getTRISF1 : TBits_1; inline;
  64448. begin
  64449. getTRISF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  64450. end;
  64451. procedure TPORTF_TRISF.setTRISF2; inline;
  64452. begin
  64453. pTDefRegMap(@Self)^.&set := $00000004;
  64454. end;
  64455. procedure TPORTF_TRISF.clearTRISF2; inline;
  64456. begin
  64457. pTDefRegMap(@Self)^.clr := $00000004;
  64458. end;
  64459. procedure TPORTF_TRISF.setTRISF2(thebits : TBits_1); inline;
  64460. begin
  64461. if thebits = 0 then
  64462. pTDefRegMap(@Self)^.clr := $00000004
  64463. else
  64464. pTDefRegMap(@Self)^.&set := $00000004;
  64465. end;
  64466. function TPORTF_TRISF.getTRISF2 : TBits_1; inline;
  64467. begin
  64468. getTRISF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  64469. end;
  64470. procedure TPORTF_TRISF.setTRISF3; inline;
  64471. begin
  64472. pTDefRegMap(@Self)^.&set := $00000008;
  64473. end;
  64474. procedure TPORTF_TRISF.clearTRISF3; inline;
  64475. begin
  64476. pTDefRegMap(@Self)^.clr := $00000008;
  64477. end;
  64478. procedure TPORTF_TRISF.setTRISF3(thebits : TBits_1); inline;
  64479. begin
  64480. if thebits = 0 then
  64481. pTDefRegMap(@Self)^.clr := $00000008
  64482. else
  64483. pTDefRegMap(@Self)^.&set := $00000008;
  64484. end;
  64485. function TPORTF_TRISF.getTRISF3 : TBits_1; inline;
  64486. begin
  64487. getTRISF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  64488. end;
  64489. procedure TPORTF_TRISF.setTRISF4; inline;
  64490. begin
  64491. pTDefRegMap(@Self)^.&set := $00000010;
  64492. end;
  64493. procedure TPORTF_TRISF.clearTRISF4; inline;
  64494. begin
  64495. pTDefRegMap(@Self)^.clr := $00000010;
  64496. end;
  64497. procedure TPORTF_TRISF.setTRISF4(thebits : TBits_1); inline;
  64498. begin
  64499. if thebits = 0 then
  64500. pTDefRegMap(@Self)^.clr := $00000010
  64501. else
  64502. pTDefRegMap(@Self)^.&set := $00000010;
  64503. end;
  64504. function TPORTF_TRISF.getTRISF4 : TBits_1; inline;
  64505. begin
  64506. getTRISF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  64507. end;
  64508. procedure TPORTF_TRISF.setTRISF5; inline;
  64509. begin
  64510. pTDefRegMap(@Self)^.&set := $00000020;
  64511. end;
  64512. procedure TPORTF_TRISF.clearTRISF5; inline;
  64513. begin
  64514. pTDefRegMap(@Self)^.clr := $00000020;
  64515. end;
  64516. procedure TPORTF_TRISF.setTRISF5(thebits : TBits_1); inline;
  64517. begin
  64518. if thebits = 0 then
  64519. pTDefRegMap(@Self)^.clr := $00000020
  64520. else
  64521. pTDefRegMap(@Self)^.&set := $00000020;
  64522. end;
  64523. function TPORTF_TRISF.getTRISF5 : TBits_1; inline;
  64524. begin
  64525. getTRISF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  64526. end;
  64527. procedure TPORTF_TRISF.setTRISF8; inline;
  64528. begin
  64529. pTDefRegMap(@Self)^.&set := $00000100;
  64530. end;
  64531. procedure TPORTF_TRISF.clearTRISF8; inline;
  64532. begin
  64533. pTDefRegMap(@Self)^.clr := $00000100;
  64534. end;
  64535. procedure TPORTF_TRISF.setTRISF8(thebits : TBits_1); inline;
  64536. begin
  64537. if thebits = 0 then
  64538. pTDefRegMap(@Self)^.clr := $00000100
  64539. else
  64540. pTDefRegMap(@Self)^.&set := $00000100;
  64541. end;
  64542. function TPORTF_TRISF.getTRISF8 : TBits_1; inline;
  64543. begin
  64544. getTRISF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  64545. end;
  64546. procedure TPORTF_TRISF.setTRISF12; inline;
  64547. begin
  64548. pTDefRegMap(@Self)^.&set := $00001000;
  64549. end;
  64550. procedure TPORTF_TRISF.clearTRISF12; inline;
  64551. begin
  64552. pTDefRegMap(@Self)^.clr := $00001000;
  64553. end;
  64554. procedure TPORTF_TRISF.setTRISF12(thebits : TBits_1); inline;
  64555. begin
  64556. if thebits = 0 then
  64557. pTDefRegMap(@Self)^.clr := $00001000
  64558. else
  64559. pTDefRegMap(@Self)^.&set := $00001000;
  64560. end;
  64561. function TPORTF_TRISF.getTRISF12 : TBits_1; inline;
  64562. begin
  64563. getTRISF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  64564. end;
  64565. procedure TPORTF_TRISF.setTRISF13; inline;
  64566. begin
  64567. pTDefRegMap(@Self)^.&set := $00002000;
  64568. end;
  64569. procedure TPORTF_TRISF.clearTRISF13; inline;
  64570. begin
  64571. pTDefRegMap(@Self)^.clr := $00002000;
  64572. end;
  64573. procedure TPORTF_TRISF.setTRISF13(thebits : TBits_1); inline;
  64574. begin
  64575. if thebits = 0 then
  64576. pTDefRegMap(@Self)^.clr := $00002000
  64577. else
  64578. pTDefRegMap(@Self)^.&set := $00002000;
  64579. end;
  64580. function TPORTF_TRISF.getTRISF13 : TBits_1; inline;
  64581. begin
  64582. getTRISF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  64583. end;
  64584. procedure TPORTF_TRISF.setw(thebits : TBits_32); inline;
  64585. begin
  64586. pTDefRegMap(@Self)^.val := thebits;
  64587. end;
  64588. function TPORTF_TRISF.getw : TBits_32; inline;
  64589. begin
  64590. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  64591. end;
  64592. procedure TPORTF_PORTF.setRF0; inline;
  64593. begin
  64594. pTDefRegMap(@Self)^.&set := $00000001;
  64595. end;
  64596. procedure TPORTF_PORTF.clearRF0; inline;
  64597. begin
  64598. pTDefRegMap(@Self)^.clr := $00000001;
  64599. end;
  64600. procedure TPORTF_PORTF.setRF0(thebits : TBits_1); inline;
  64601. begin
  64602. if thebits = 0 then
  64603. pTDefRegMap(@Self)^.clr := $00000001
  64604. else
  64605. pTDefRegMap(@Self)^.&set := $00000001;
  64606. end;
  64607. function TPORTF_PORTF.getRF0 : TBits_1; inline;
  64608. begin
  64609. getRF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  64610. end;
  64611. procedure TPORTF_PORTF.setRF1; inline;
  64612. begin
  64613. pTDefRegMap(@Self)^.&set := $00000002;
  64614. end;
  64615. procedure TPORTF_PORTF.clearRF1; inline;
  64616. begin
  64617. pTDefRegMap(@Self)^.clr := $00000002;
  64618. end;
  64619. procedure TPORTF_PORTF.setRF1(thebits : TBits_1); inline;
  64620. begin
  64621. if thebits = 0 then
  64622. pTDefRegMap(@Self)^.clr := $00000002
  64623. else
  64624. pTDefRegMap(@Self)^.&set := $00000002;
  64625. end;
  64626. function TPORTF_PORTF.getRF1 : TBits_1; inline;
  64627. begin
  64628. getRF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  64629. end;
  64630. procedure TPORTF_PORTF.setRF2; inline;
  64631. begin
  64632. pTDefRegMap(@Self)^.&set := $00000004;
  64633. end;
  64634. procedure TPORTF_PORTF.clearRF2; inline;
  64635. begin
  64636. pTDefRegMap(@Self)^.clr := $00000004;
  64637. end;
  64638. procedure TPORTF_PORTF.setRF2(thebits : TBits_1); inline;
  64639. begin
  64640. if thebits = 0 then
  64641. pTDefRegMap(@Self)^.clr := $00000004
  64642. else
  64643. pTDefRegMap(@Self)^.&set := $00000004;
  64644. end;
  64645. function TPORTF_PORTF.getRF2 : TBits_1; inline;
  64646. begin
  64647. getRF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  64648. end;
  64649. procedure TPORTF_PORTF.setRF3; inline;
  64650. begin
  64651. pTDefRegMap(@Self)^.&set := $00000008;
  64652. end;
  64653. procedure TPORTF_PORTF.clearRF3; inline;
  64654. begin
  64655. pTDefRegMap(@Self)^.clr := $00000008;
  64656. end;
  64657. procedure TPORTF_PORTF.setRF3(thebits : TBits_1); inline;
  64658. begin
  64659. if thebits = 0 then
  64660. pTDefRegMap(@Self)^.clr := $00000008
  64661. else
  64662. pTDefRegMap(@Self)^.&set := $00000008;
  64663. end;
  64664. function TPORTF_PORTF.getRF3 : TBits_1; inline;
  64665. begin
  64666. getRF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  64667. end;
  64668. procedure TPORTF_PORTF.setRF4; inline;
  64669. begin
  64670. pTDefRegMap(@Self)^.&set := $00000010;
  64671. end;
  64672. procedure TPORTF_PORTF.clearRF4; inline;
  64673. begin
  64674. pTDefRegMap(@Self)^.clr := $00000010;
  64675. end;
  64676. procedure TPORTF_PORTF.setRF4(thebits : TBits_1); inline;
  64677. begin
  64678. if thebits = 0 then
  64679. pTDefRegMap(@Self)^.clr := $00000010
  64680. else
  64681. pTDefRegMap(@Self)^.&set := $00000010;
  64682. end;
  64683. function TPORTF_PORTF.getRF4 : TBits_1; inline;
  64684. begin
  64685. getRF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  64686. end;
  64687. procedure TPORTF_PORTF.setRF5; inline;
  64688. begin
  64689. pTDefRegMap(@Self)^.&set := $00000020;
  64690. end;
  64691. procedure TPORTF_PORTF.clearRF5; inline;
  64692. begin
  64693. pTDefRegMap(@Self)^.clr := $00000020;
  64694. end;
  64695. procedure TPORTF_PORTF.setRF5(thebits : TBits_1); inline;
  64696. begin
  64697. if thebits = 0 then
  64698. pTDefRegMap(@Self)^.clr := $00000020
  64699. else
  64700. pTDefRegMap(@Self)^.&set := $00000020;
  64701. end;
  64702. function TPORTF_PORTF.getRF5 : TBits_1; inline;
  64703. begin
  64704. getRF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  64705. end;
  64706. procedure TPORTF_PORTF.setRF8; inline;
  64707. begin
  64708. pTDefRegMap(@Self)^.&set := $00000100;
  64709. end;
  64710. procedure TPORTF_PORTF.clearRF8; inline;
  64711. begin
  64712. pTDefRegMap(@Self)^.clr := $00000100;
  64713. end;
  64714. procedure TPORTF_PORTF.setRF8(thebits : TBits_1); inline;
  64715. begin
  64716. if thebits = 0 then
  64717. pTDefRegMap(@Self)^.clr := $00000100
  64718. else
  64719. pTDefRegMap(@Self)^.&set := $00000100;
  64720. end;
  64721. function TPORTF_PORTF.getRF8 : TBits_1; inline;
  64722. begin
  64723. getRF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  64724. end;
  64725. procedure TPORTF_PORTF.setRF12; inline;
  64726. begin
  64727. pTDefRegMap(@Self)^.&set := $00001000;
  64728. end;
  64729. procedure TPORTF_PORTF.clearRF12; inline;
  64730. begin
  64731. pTDefRegMap(@Self)^.clr := $00001000;
  64732. end;
  64733. procedure TPORTF_PORTF.setRF12(thebits : TBits_1); inline;
  64734. begin
  64735. if thebits = 0 then
  64736. pTDefRegMap(@Self)^.clr := $00001000
  64737. else
  64738. pTDefRegMap(@Self)^.&set := $00001000;
  64739. end;
  64740. function TPORTF_PORTF.getRF12 : TBits_1; inline;
  64741. begin
  64742. getRF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  64743. end;
  64744. procedure TPORTF_PORTF.setRF13; inline;
  64745. begin
  64746. pTDefRegMap(@Self)^.&set := $00002000;
  64747. end;
  64748. procedure TPORTF_PORTF.clearRF13; inline;
  64749. begin
  64750. pTDefRegMap(@Self)^.clr := $00002000;
  64751. end;
  64752. procedure TPORTF_PORTF.setRF13(thebits : TBits_1); inline;
  64753. begin
  64754. if thebits = 0 then
  64755. pTDefRegMap(@Self)^.clr := $00002000
  64756. else
  64757. pTDefRegMap(@Self)^.&set := $00002000;
  64758. end;
  64759. function TPORTF_PORTF.getRF13 : TBits_1; inline;
  64760. begin
  64761. getRF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  64762. end;
  64763. procedure TPORTF_PORTF.setw(thebits : TBits_32); inline;
  64764. begin
  64765. pTDefRegMap(@Self)^.val := thebits;
  64766. end;
  64767. function TPORTF_PORTF.getw : TBits_32; inline;
  64768. begin
  64769. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  64770. end;
  64771. procedure TPORTF_LATF.setLATF0; inline;
  64772. begin
  64773. pTDefRegMap(@Self)^.&set := $00000001;
  64774. end;
  64775. procedure TPORTF_LATF.clearLATF0; inline;
  64776. begin
  64777. pTDefRegMap(@Self)^.clr := $00000001;
  64778. end;
  64779. procedure TPORTF_LATF.setLATF0(thebits : TBits_1); inline;
  64780. begin
  64781. if thebits = 0 then
  64782. pTDefRegMap(@Self)^.clr := $00000001
  64783. else
  64784. pTDefRegMap(@Self)^.&set := $00000001;
  64785. end;
  64786. function TPORTF_LATF.getLATF0 : TBits_1; inline;
  64787. begin
  64788. getLATF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  64789. end;
  64790. procedure TPORTF_LATF.setLATF1; inline;
  64791. begin
  64792. pTDefRegMap(@Self)^.&set := $00000002;
  64793. end;
  64794. procedure TPORTF_LATF.clearLATF1; inline;
  64795. begin
  64796. pTDefRegMap(@Self)^.clr := $00000002;
  64797. end;
  64798. procedure TPORTF_LATF.setLATF1(thebits : TBits_1); inline;
  64799. begin
  64800. if thebits = 0 then
  64801. pTDefRegMap(@Self)^.clr := $00000002
  64802. else
  64803. pTDefRegMap(@Self)^.&set := $00000002;
  64804. end;
  64805. function TPORTF_LATF.getLATF1 : TBits_1; inline;
  64806. begin
  64807. getLATF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  64808. end;
  64809. procedure TPORTF_LATF.setLATF2; inline;
  64810. begin
  64811. pTDefRegMap(@Self)^.&set := $00000004;
  64812. end;
  64813. procedure TPORTF_LATF.clearLATF2; inline;
  64814. begin
  64815. pTDefRegMap(@Self)^.clr := $00000004;
  64816. end;
  64817. procedure TPORTF_LATF.setLATF2(thebits : TBits_1); inline;
  64818. begin
  64819. if thebits = 0 then
  64820. pTDefRegMap(@Self)^.clr := $00000004
  64821. else
  64822. pTDefRegMap(@Self)^.&set := $00000004;
  64823. end;
  64824. function TPORTF_LATF.getLATF2 : TBits_1; inline;
  64825. begin
  64826. getLATF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  64827. end;
  64828. procedure TPORTF_LATF.setLATF3; inline;
  64829. begin
  64830. pTDefRegMap(@Self)^.&set := $00000008;
  64831. end;
  64832. procedure TPORTF_LATF.clearLATF3; inline;
  64833. begin
  64834. pTDefRegMap(@Self)^.clr := $00000008;
  64835. end;
  64836. procedure TPORTF_LATF.setLATF3(thebits : TBits_1); inline;
  64837. begin
  64838. if thebits = 0 then
  64839. pTDefRegMap(@Self)^.clr := $00000008
  64840. else
  64841. pTDefRegMap(@Self)^.&set := $00000008;
  64842. end;
  64843. function TPORTF_LATF.getLATF3 : TBits_1; inline;
  64844. begin
  64845. getLATF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  64846. end;
  64847. procedure TPORTF_LATF.setLATF4; inline;
  64848. begin
  64849. pTDefRegMap(@Self)^.&set := $00000010;
  64850. end;
  64851. procedure TPORTF_LATF.clearLATF4; inline;
  64852. begin
  64853. pTDefRegMap(@Self)^.clr := $00000010;
  64854. end;
  64855. procedure TPORTF_LATF.setLATF4(thebits : TBits_1); inline;
  64856. begin
  64857. if thebits = 0 then
  64858. pTDefRegMap(@Self)^.clr := $00000010
  64859. else
  64860. pTDefRegMap(@Self)^.&set := $00000010;
  64861. end;
  64862. function TPORTF_LATF.getLATF4 : TBits_1; inline;
  64863. begin
  64864. getLATF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  64865. end;
  64866. procedure TPORTF_LATF.setLATF5; inline;
  64867. begin
  64868. pTDefRegMap(@Self)^.&set := $00000020;
  64869. end;
  64870. procedure TPORTF_LATF.clearLATF5; inline;
  64871. begin
  64872. pTDefRegMap(@Self)^.clr := $00000020;
  64873. end;
  64874. procedure TPORTF_LATF.setLATF5(thebits : TBits_1); inline;
  64875. begin
  64876. if thebits = 0 then
  64877. pTDefRegMap(@Self)^.clr := $00000020
  64878. else
  64879. pTDefRegMap(@Self)^.&set := $00000020;
  64880. end;
  64881. function TPORTF_LATF.getLATF5 : TBits_1; inline;
  64882. begin
  64883. getLATF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  64884. end;
  64885. procedure TPORTF_LATF.setLATF8; inline;
  64886. begin
  64887. pTDefRegMap(@Self)^.&set := $00000100;
  64888. end;
  64889. procedure TPORTF_LATF.clearLATF8; inline;
  64890. begin
  64891. pTDefRegMap(@Self)^.clr := $00000100;
  64892. end;
  64893. procedure TPORTF_LATF.setLATF8(thebits : TBits_1); inline;
  64894. begin
  64895. if thebits = 0 then
  64896. pTDefRegMap(@Self)^.clr := $00000100
  64897. else
  64898. pTDefRegMap(@Self)^.&set := $00000100;
  64899. end;
  64900. function TPORTF_LATF.getLATF8 : TBits_1; inline;
  64901. begin
  64902. getLATF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  64903. end;
  64904. procedure TPORTF_LATF.setLATF12; inline;
  64905. begin
  64906. pTDefRegMap(@Self)^.&set := $00001000;
  64907. end;
  64908. procedure TPORTF_LATF.clearLATF12; inline;
  64909. begin
  64910. pTDefRegMap(@Self)^.clr := $00001000;
  64911. end;
  64912. procedure TPORTF_LATF.setLATF12(thebits : TBits_1); inline;
  64913. begin
  64914. if thebits = 0 then
  64915. pTDefRegMap(@Self)^.clr := $00001000
  64916. else
  64917. pTDefRegMap(@Self)^.&set := $00001000;
  64918. end;
  64919. function TPORTF_LATF.getLATF12 : TBits_1; inline;
  64920. begin
  64921. getLATF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  64922. end;
  64923. procedure TPORTF_LATF.setLATF13; inline;
  64924. begin
  64925. pTDefRegMap(@Self)^.&set := $00002000;
  64926. end;
  64927. procedure TPORTF_LATF.clearLATF13; inline;
  64928. begin
  64929. pTDefRegMap(@Self)^.clr := $00002000;
  64930. end;
  64931. procedure TPORTF_LATF.setLATF13(thebits : TBits_1); inline;
  64932. begin
  64933. if thebits = 0 then
  64934. pTDefRegMap(@Self)^.clr := $00002000
  64935. else
  64936. pTDefRegMap(@Self)^.&set := $00002000;
  64937. end;
  64938. function TPORTF_LATF.getLATF13 : TBits_1; inline;
  64939. begin
  64940. getLATF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  64941. end;
  64942. procedure TPORTF_LATF.setw(thebits : TBits_32); inline;
  64943. begin
  64944. pTDefRegMap(@Self)^.val := thebits;
  64945. end;
  64946. function TPORTF_LATF.getw : TBits_32; inline;
  64947. begin
  64948. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  64949. end;
  64950. procedure TPORTF_ODCF.setODCF0; inline;
  64951. begin
  64952. pTDefRegMap(@Self)^.&set := $00000001;
  64953. end;
  64954. procedure TPORTF_ODCF.clearODCF0; inline;
  64955. begin
  64956. pTDefRegMap(@Self)^.clr := $00000001;
  64957. end;
  64958. procedure TPORTF_ODCF.setODCF0(thebits : TBits_1); inline;
  64959. begin
  64960. if thebits = 0 then
  64961. pTDefRegMap(@Self)^.clr := $00000001
  64962. else
  64963. pTDefRegMap(@Self)^.&set := $00000001;
  64964. end;
  64965. function TPORTF_ODCF.getODCF0 : TBits_1; inline;
  64966. begin
  64967. getODCF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  64968. end;
  64969. procedure TPORTF_ODCF.setODCF1; inline;
  64970. begin
  64971. pTDefRegMap(@Self)^.&set := $00000002;
  64972. end;
  64973. procedure TPORTF_ODCF.clearODCF1; inline;
  64974. begin
  64975. pTDefRegMap(@Self)^.clr := $00000002;
  64976. end;
  64977. procedure TPORTF_ODCF.setODCF1(thebits : TBits_1); inline;
  64978. begin
  64979. if thebits = 0 then
  64980. pTDefRegMap(@Self)^.clr := $00000002
  64981. else
  64982. pTDefRegMap(@Self)^.&set := $00000002;
  64983. end;
  64984. function TPORTF_ODCF.getODCF1 : TBits_1; inline;
  64985. begin
  64986. getODCF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  64987. end;
  64988. procedure TPORTF_ODCF.setODCF2; inline;
  64989. begin
  64990. pTDefRegMap(@Self)^.&set := $00000004;
  64991. end;
  64992. procedure TPORTF_ODCF.clearODCF2; inline;
  64993. begin
  64994. pTDefRegMap(@Self)^.clr := $00000004;
  64995. end;
  64996. procedure TPORTF_ODCF.setODCF2(thebits : TBits_1); inline;
  64997. begin
  64998. if thebits = 0 then
  64999. pTDefRegMap(@Self)^.clr := $00000004
  65000. else
  65001. pTDefRegMap(@Self)^.&set := $00000004;
  65002. end;
  65003. function TPORTF_ODCF.getODCF2 : TBits_1; inline;
  65004. begin
  65005. getODCF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  65006. end;
  65007. procedure TPORTF_ODCF.setODCF3; inline;
  65008. begin
  65009. pTDefRegMap(@Self)^.&set := $00000008;
  65010. end;
  65011. procedure TPORTF_ODCF.clearODCF3; inline;
  65012. begin
  65013. pTDefRegMap(@Self)^.clr := $00000008;
  65014. end;
  65015. procedure TPORTF_ODCF.setODCF3(thebits : TBits_1); inline;
  65016. begin
  65017. if thebits = 0 then
  65018. pTDefRegMap(@Self)^.clr := $00000008
  65019. else
  65020. pTDefRegMap(@Self)^.&set := $00000008;
  65021. end;
  65022. function TPORTF_ODCF.getODCF3 : TBits_1; inline;
  65023. begin
  65024. getODCF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  65025. end;
  65026. procedure TPORTF_ODCF.setODCF4; inline;
  65027. begin
  65028. pTDefRegMap(@Self)^.&set := $00000010;
  65029. end;
  65030. procedure TPORTF_ODCF.clearODCF4; inline;
  65031. begin
  65032. pTDefRegMap(@Self)^.clr := $00000010;
  65033. end;
  65034. procedure TPORTF_ODCF.setODCF4(thebits : TBits_1); inline;
  65035. begin
  65036. if thebits = 0 then
  65037. pTDefRegMap(@Self)^.clr := $00000010
  65038. else
  65039. pTDefRegMap(@Self)^.&set := $00000010;
  65040. end;
  65041. function TPORTF_ODCF.getODCF4 : TBits_1; inline;
  65042. begin
  65043. getODCF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  65044. end;
  65045. procedure TPORTF_ODCF.setODCF5; inline;
  65046. begin
  65047. pTDefRegMap(@Self)^.&set := $00000020;
  65048. end;
  65049. procedure TPORTF_ODCF.clearODCF5; inline;
  65050. begin
  65051. pTDefRegMap(@Self)^.clr := $00000020;
  65052. end;
  65053. procedure TPORTF_ODCF.setODCF5(thebits : TBits_1); inline;
  65054. begin
  65055. if thebits = 0 then
  65056. pTDefRegMap(@Self)^.clr := $00000020
  65057. else
  65058. pTDefRegMap(@Self)^.&set := $00000020;
  65059. end;
  65060. function TPORTF_ODCF.getODCF5 : TBits_1; inline;
  65061. begin
  65062. getODCF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  65063. end;
  65064. procedure TPORTF_ODCF.setODCF8; inline;
  65065. begin
  65066. pTDefRegMap(@Self)^.&set := $00000100;
  65067. end;
  65068. procedure TPORTF_ODCF.clearODCF8; inline;
  65069. begin
  65070. pTDefRegMap(@Self)^.clr := $00000100;
  65071. end;
  65072. procedure TPORTF_ODCF.setODCF8(thebits : TBits_1); inline;
  65073. begin
  65074. if thebits = 0 then
  65075. pTDefRegMap(@Self)^.clr := $00000100
  65076. else
  65077. pTDefRegMap(@Self)^.&set := $00000100;
  65078. end;
  65079. function TPORTF_ODCF.getODCF8 : TBits_1; inline;
  65080. begin
  65081. getODCF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  65082. end;
  65083. procedure TPORTF_ODCF.setODCF12; inline;
  65084. begin
  65085. pTDefRegMap(@Self)^.&set := $00001000;
  65086. end;
  65087. procedure TPORTF_ODCF.clearODCF12; inline;
  65088. begin
  65089. pTDefRegMap(@Self)^.clr := $00001000;
  65090. end;
  65091. procedure TPORTF_ODCF.setODCF12(thebits : TBits_1); inline;
  65092. begin
  65093. if thebits = 0 then
  65094. pTDefRegMap(@Self)^.clr := $00001000
  65095. else
  65096. pTDefRegMap(@Self)^.&set := $00001000;
  65097. end;
  65098. function TPORTF_ODCF.getODCF12 : TBits_1; inline;
  65099. begin
  65100. getODCF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  65101. end;
  65102. procedure TPORTF_ODCF.setODCF13; inline;
  65103. begin
  65104. pTDefRegMap(@Self)^.&set := $00002000;
  65105. end;
  65106. procedure TPORTF_ODCF.clearODCF13; inline;
  65107. begin
  65108. pTDefRegMap(@Self)^.clr := $00002000;
  65109. end;
  65110. procedure TPORTF_ODCF.setODCF13(thebits : TBits_1); inline;
  65111. begin
  65112. if thebits = 0 then
  65113. pTDefRegMap(@Self)^.clr := $00002000
  65114. else
  65115. pTDefRegMap(@Self)^.&set := $00002000;
  65116. end;
  65117. function TPORTF_ODCF.getODCF13 : TBits_1; inline;
  65118. begin
  65119. getODCF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  65120. end;
  65121. procedure TPORTF_ODCF.setw(thebits : TBits_32); inline;
  65122. begin
  65123. pTDefRegMap(@Self)^.val := thebits;
  65124. end;
  65125. function TPORTF_ODCF.getw : TBits_32; inline;
  65126. begin
  65127. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  65128. end;
  65129. procedure TPORTG_TRISG.setTRISG0; inline;
  65130. begin
  65131. pTDefRegMap(@Self)^.&set := $00000001;
  65132. end;
  65133. procedure TPORTG_TRISG.clearTRISG0; inline;
  65134. begin
  65135. pTDefRegMap(@Self)^.clr := $00000001;
  65136. end;
  65137. procedure TPORTG_TRISG.setTRISG0(thebits : TBits_1); inline;
  65138. begin
  65139. if thebits = 0 then
  65140. pTDefRegMap(@Self)^.clr := $00000001
  65141. else
  65142. pTDefRegMap(@Self)^.&set := $00000001;
  65143. end;
  65144. function TPORTG_TRISG.getTRISG0 : TBits_1; inline;
  65145. begin
  65146. getTRISG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  65147. end;
  65148. procedure TPORTG_TRISG.setTRISG1; inline;
  65149. begin
  65150. pTDefRegMap(@Self)^.&set := $00000002;
  65151. end;
  65152. procedure TPORTG_TRISG.clearTRISG1; inline;
  65153. begin
  65154. pTDefRegMap(@Self)^.clr := $00000002;
  65155. end;
  65156. procedure TPORTG_TRISG.setTRISG1(thebits : TBits_1); inline;
  65157. begin
  65158. if thebits = 0 then
  65159. pTDefRegMap(@Self)^.clr := $00000002
  65160. else
  65161. pTDefRegMap(@Self)^.&set := $00000002;
  65162. end;
  65163. function TPORTG_TRISG.getTRISG1 : TBits_1; inline;
  65164. begin
  65165. getTRISG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  65166. end;
  65167. procedure TPORTG_TRISG.setTRISG2; inline;
  65168. begin
  65169. pTDefRegMap(@Self)^.&set := $00000004;
  65170. end;
  65171. procedure TPORTG_TRISG.clearTRISG2; inline;
  65172. begin
  65173. pTDefRegMap(@Self)^.clr := $00000004;
  65174. end;
  65175. procedure TPORTG_TRISG.setTRISG2(thebits : TBits_1); inline;
  65176. begin
  65177. if thebits = 0 then
  65178. pTDefRegMap(@Self)^.clr := $00000004
  65179. else
  65180. pTDefRegMap(@Self)^.&set := $00000004;
  65181. end;
  65182. function TPORTG_TRISG.getTRISG2 : TBits_1; inline;
  65183. begin
  65184. getTRISG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  65185. end;
  65186. procedure TPORTG_TRISG.setTRISG3; inline;
  65187. begin
  65188. pTDefRegMap(@Self)^.&set := $00000008;
  65189. end;
  65190. procedure TPORTG_TRISG.clearTRISG3; inline;
  65191. begin
  65192. pTDefRegMap(@Self)^.clr := $00000008;
  65193. end;
  65194. procedure TPORTG_TRISG.setTRISG3(thebits : TBits_1); inline;
  65195. begin
  65196. if thebits = 0 then
  65197. pTDefRegMap(@Self)^.clr := $00000008
  65198. else
  65199. pTDefRegMap(@Self)^.&set := $00000008;
  65200. end;
  65201. function TPORTG_TRISG.getTRISG3 : TBits_1; inline;
  65202. begin
  65203. getTRISG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  65204. end;
  65205. procedure TPORTG_TRISG.setTRISG6; inline;
  65206. begin
  65207. pTDefRegMap(@Self)^.&set := $00000040;
  65208. end;
  65209. procedure TPORTG_TRISG.clearTRISG6; inline;
  65210. begin
  65211. pTDefRegMap(@Self)^.clr := $00000040;
  65212. end;
  65213. procedure TPORTG_TRISG.setTRISG6(thebits : TBits_1); inline;
  65214. begin
  65215. if thebits = 0 then
  65216. pTDefRegMap(@Self)^.clr := $00000040
  65217. else
  65218. pTDefRegMap(@Self)^.&set := $00000040;
  65219. end;
  65220. function TPORTG_TRISG.getTRISG6 : TBits_1; inline;
  65221. begin
  65222. getTRISG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  65223. end;
  65224. procedure TPORTG_TRISG.setTRISG7; inline;
  65225. begin
  65226. pTDefRegMap(@Self)^.&set := $00000080;
  65227. end;
  65228. procedure TPORTG_TRISG.clearTRISG7; inline;
  65229. begin
  65230. pTDefRegMap(@Self)^.clr := $00000080;
  65231. end;
  65232. procedure TPORTG_TRISG.setTRISG7(thebits : TBits_1); inline;
  65233. begin
  65234. if thebits = 0 then
  65235. pTDefRegMap(@Self)^.clr := $00000080
  65236. else
  65237. pTDefRegMap(@Self)^.&set := $00000080;
  65238. end;
  65239. function TPORTG_TRISG.getTRISG7 : TBits_1; inline;
  65240. begin
  65241. getTRISG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  65242. end;
  65243. procedure TPORTG_TRISG.setTRISG8; inline;
  65244. begin
  65245. pTDefRegMap(@Self)^.&set := $00000100;
  65246. end;
  65247. procedure TPORTG_TRISG.clearTRISG8; inline;
  65248. begin
  65249. pTDefRegMap(@Self)^.clr := $00000100;
  65250. end;
  65251. procedure TPORTG_TRISG.setTRISG8(thebits : TBits_1); inline;
  65252. begin
  65253. if thebits = 0 then
  65254. pTDefRegMap(@Self)^.clr := $00000100
  65255. else
  65256. pTDefRegMap(@Self)^.&set := $00000100;
  65257. end;
  65258. function TPORTG_TRISG.getTRISG8 : TBits_1; inline;
  65259. begin
  65260. getTRISG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  65261. end;
  65262. procedure TPORTG_TRISG.setTRISG9; inline;
  65263. begin
  65264. pTDefRegMap(@Self)^.&set := $00000200;
  65265. end;
  65266. procedure TPORTG_TRISG.clearTRISG9; inline;
  65267. begin
  65268. pTDefRegMap(@Self)^.clr := $00000200;
  65269. end;
  65270. procedure TPORTG_TRISG.setTRISG9(thebits : TBits_1); inline;
  65271. begin
  65272. if thebits = 0 then
  65273. pTDefRegMap(@Self)^.clr := $00000200
  65274. else
  65275. pTDefRegMap(@Self)^.&set := $00000200;
  65276. end;
  65277. function TPORTG_TRISG.getTRISG9 : TBits_1; inline;
  65278. begin
  65279. getTRISG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  65280. end;
  65281. procedure TPORTG_TRISG.setTRISG12; inline;
  65282. begin
  65283. pTDefRegMap(@Self)^.&set := $00001000;
  65284. end;
  65285. procedure TPORTG_TRISG.clearTRISG12; inline;
  65286. begin
  65287. pTDefRegMap(@Self)^.clr := $00001000;
  65288. end;
  65289. procedure TPORTG_TRISG.setTRISG12(thebits : TBits_1); inline;
  65290. begin
  65291. if thebits = 0 then
  65292. pTDefRegMap(@Self)^.clr := $00001000
  65293. else
  65294. pTDefRegMap(@Self)^.&set := $00001000;
  65295. end;
  65296. function TPORTG_TRISG.getTRISG12 : TBits_1; inline;
  65297. begin
  65298. getTRISG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  65299. end;
  65300. procedure TPORTG_TRISG.setTRISG13; inline;
  65301. begin
  65302. pTDefRegMap(@Self)^.&set := $00002000;
  65303. end;
  65304. procedure TPORTG_TRISG.clearTRISG13; inline;
  65305. begin
  65306. pTDefRegMap(@Self)^.clr := $00002000;
  65307. end;
  65308. procedure TPORTG_TRISG.setTRISG13(thebits : TBits_1); inline;
  65309. begin
  65310. if thebits = 0 then
  65311. pTDefRegMap(@Self)^.clr := $00002000
  65312. else
  65313. pTDefRegMap(@Self)^.&set := $00002000;
  65314. end;
  65315. function TPORTG_TRISG.getTRISG13 : TBits_1; inline;
  65316. begin
  65317. getTRISG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  65318. end;
  65319. procedure TPORTG_TRISG.setTRISG14; inline;
  65320. begin
  65321. pTDefRegMap(@Self)^.&set := $00004000;
  65322. end;
  65323. procedure TPORTG_TRISG.clearTRISG14; inline;
  65324. begin
  65325. pTDefRegMap(@Self)^.clr := $00004000;
  65326. end;
  65327. procedure TPORTG_TRISG.setTRISG14(thebits : TBits_1); inline;
  65328. begin
  65329. if thebits = 0 then
  65330. pTDefRegMap(@Self)^.clr := $00004000
  65331. else
  65332. pTDefRegMap(@Self)^.&set := $00004000;
  65333. end;
  65334. function TPORTG_TRISG.getTRISG14 : TBits_1; inline;
  65335. begin
  65336. getTRISG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  65337. end;
  65338. procedure TPORTG_TRISG.setTRISG15; inline;
  65339. begin
  65340. pTDefRegMap(@Self)^.&set := $00008000;
  65341. end;
  65342. procedure TPORTG_TRISG.clearTRISG15; inline;
  65343. begin
  65344. pTDefRegMap(@Self)^.clr := $00008000;
  65345. end;
  65346. procedure TPORTG_TRISG.setTRISG15(thebits : TBits_1); inline;
  65347. begin
  65348. if thebits = 0 then
  65349. pTDefRegMap(@Self)^.clr := $00008000
  65350. else
  65351. pTDefRegMap(@Self)^.&set := $00008000;
  65352. end;
  65353. function TPORTG_TRISG.getTRISG15 : TBits_1; inline;
  65354. begin
  65355. getTRISG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  65356. end;
  65357. procedure TPORTG_TRISG.setw(thebits : TBits_32); inline;
  65358. begin
  65359. pTDefRegMap(@Self)^.val := thebits;
  65360. end;
  65361. function TPORTG_TRISG.getw : TBits_32; inline;
  65362. begin
  65363. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  65364. end;
  65365. procedure TPORTG_PORTG.setRG0; inline;
  65366. begin
  65367. pTDefRegMap(@Self)^.&set := $00000001;
  65368. end;
  65369. procedure TPORTG_PORTG.clearRG0; inline;
  65370. begin
  65371. pTDefRegMap(@Self)^.clr := $00000001;
  65372. end;
  65373. procedure TPORTG_PORTG.setRG0(thebits : TBits_1); inline;
  65374. begin
  65375. if thebits = 0 then
  65376. pTDefRegMap(@Self)^.clr := $00000001
  65377. else
  65378. pTDefRegMap(@Self)^.&set := $00000001;
  65379. end;
  65380. function TPORTG_PORTG.getRG0 : TBits_1; inline;
  65381. begin
  65382. getRG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  65383. end;
  65384. procedure TPORTG_PORTG.setRG1; inline;
  65385. begin
  65386. pTDefRegMap(@Self)^.&set := $00000002;
  65387. end;
  65388. procedure TPORTG_PORTG.clearRG1; inline;
  65389. begin
  65390. pTDefRegMap(@Self)^.clr := $00000002;
  65391. end;
  65392. procedure TPORTG_PORTG.setRG1(thebits : TBits_1); inline;
  65393. begin
  65394. if thebits = 0 then
  65395. pTDefRegMap(@Self)^.clr := $00000002
  65396. else
  65397. pTDefRegMap(@Self)^.&set := $00000002;
  65398. end;
  65399. function TPORTG_PORTG.getRG1 : TBits_1; inline;
  65400. begin
  65401. getRG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  65402. end;
  65403. procedure TPORTG_PORTG.setRG2; inline;
  65404. begin
  65405. pTDefRegMap(@Self)^.&set := $00000004;
  65406. end;
  65407. procedure TPORTG_PORTG.clearRG2; inline;
  65408. begin
  65409. pTDefRegMap(@Self)^.clr := $00000004;
  65410. end;
  65411. procedure TPORTG_PORTG.setRG2(thebits : TBits_1); inline;
  65412. begin
  65413. if thebits = 0 then
  65414. pTDefRegMap(@Self)^.clr := $00000004
  65415. else
  65416. pTDefRegMap(@Self)^.&set := $00000004;
  65417. end;
  65418. function TPORTG_PORTG.getRG2 : TBits_1; inline;
  65419. begin
  65420. getRG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  65421. end;
  65422. procedure TPORTG_PORTG.setRG3; inline;
  65423. begin
  65424. pTDefRegMap(@Self)^.&set := $00000008;
  65425. end;
  65426. procedure TPORTG_PORTG.clearRG3; inline;
  65427. begin
  65428. pTDefRegMap(@Self)^.clr := $00000008;
  65429. end;
  65430. procedure TPORTG_PORTG.setRG3(thebits : TBits_1); inline;
  65431. begin
  65432. if thebits = 0 then
  65433. pTDefRegMap(@Self)^.clr := $00000008
  65434. else
  65435. pTDefRegMap(@Self)^.&set := $00000008;
  65436. end;
  65437. function TPORTG_PORTG.getRG3 : TBits_1; inline;
  65438. begin
  65439. getRG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  65440. end;
  65441. procedure TPORTG_PORTG.setRG6; inline;
  65442. begin
  65443. pTDefRegMap(@Self)^.&set := $00000040;
  65444. end;
  65445. procedure TPORTG_PORTG.clearRG6; inline;
  65446. begin
  65447. pTDefRegMap(@Self)^.clr := $00000040;
  65448. end;
  65449. procedure TPORTG_PORTG.setRG6(thebits : TBits_1); inline;
  65450. begin
  65451. if thebits = 0 then
  65452. pTDefRegMap(@Self)^.clr := $00000040
  65453. else
  65454. pTDefRegMap(@Self)^.&set := $00000040;
  65455. end;
  65456. function TPORTG_PORTG.getRG6 : TBits_1; inline;
  65457. begin
  65458. getRG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  65459. end;
  65460. procedure TPORTG_PORTG.setRG7; inline;
  65461. begin
  65462. pTDefRegMap(@Self)^.&set := $00000080;
  65463. end;
  65464. procedure TPORTG_PORTG.clearRG7; inline;
  65465. begin
  65466. pTDefRegMap(@Self)^.clr := $00000080;
  65467. end;
  65468. procedure TPORTG_PORTG.setRG7(thebits : TBits_1); inline;
  65469. begin
  65470. if thebits = 0 then
  65471. pTDefRegMap(@Self)^.clr := $00000080
  65472. else
  65473. pTDefRegMap(@Self)^.&set := $00000080;
  65474. end;
  65475. function TPORTG_PORTG.getRG7 : TBits_1; inline;
  65476. begin
  65477. getRG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  65478. end;
  65479. procedure TPORTG_PORTG.setRG8; inline;
  65480. begin
  65481. pTDefRegMap(@Self)^.&set := $00000100;
  65482. end;
  65483. procedure TPORTG_PORTG.clearRG8; inline;
  65484. begin
  65485. pTDefRegMap(@Self)^.clr := $00000100;
  65486. end;
  65487. procedure TPORTG_PORTG.setRG8(thebits : TBits_1); inline;
  65488. begin
  65489. if thebits = 0 then
  65490. pTDefRegMap(@Self)^.clr := $00000100
  65491. else
  65492. pTDefRegMap(@Self)^.&set := $00000100;
  65493. end;
  65494. function TPORTG_PORTG.getRG8 : TBits_1; inline;
  65495. begin
  65496. getRG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  65497. end;
  65498. procedure TPORTG_PORTG.setRG9; inline;
  65499. begin
  65500. pTDefRegMap(@Self)^.&set := $00000200;
  65501. end;
  65502. procedure TPORTG_PORTG.clearRG9; inline;
  65503. begin
  65504. pTDefRegMap(@Self)^.clr := $00000200;
  65505. end;
  65506. procedure TPORTG_PORTG.setRG9(thebits : TBits_1); inline;
  65507. begin
  65508. if thebits = 0 then
  65509. pTDefRegMap(@Self)^.clr := $00000200
  65510. else
  65511. pTDefRegMap(@Self)^.&set := $00000200;
  65512. end;
  65513. function TPORTG_PORTG.getRG9 : TBits_1; inline;
  65514. begin
  65515. getRG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  65516. end;
  65517. procedure TPORTG_PORTG.setRG12; inline;
  65518. begin
  65519. pTDefRegMap(@Self)^.&set := $00001000;
  65520. end;
  65521. procedure TPORTG_PORTG.clearRG12; inline;
  65522. begin
  65523. pTDefRegMap(@Self)^.clr := $00001000;
  65524. end;
  65525. procedure TPORTG_PORTG.setRG12(thebits : TBits_1); inline;
  65526. begin
  65527. if thebits = 0 then
  65528. pTDefRegMap(@Self)^.clr := $00001000
  65529. else
  65530. pTDefRegMap(@Self)^.&set := $00001000;
  65531. end;
  65532. function TPORTG_PORTG.getRG12 : TBits_1; inline;
  65533. begin
  65534. getRG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  65535. end;
  65536. procedure TPORTG_PORTG.setRG13; inline;
  65537. begin
  65538. pTDefRegMap(@Self)^.&set := $00002000;
  65539. end;
  65540. procedure TPORTG_PORTG.clearRG13; inline;
  65541. begin
  65542. pTDefRegMap(@Self)^.clr := $00002000;
  65543. end;
  65544. procedure TPORTG_PORTG.setRG13(thebits : TBits_1); inline;
  65545. begin
  65546. if thebits = 0 then
  65547. pTDefRegMap(@Self)^.clr := $00002000
  65548. else
  65549. pTDefRegMap(@Self)^.&set := $00002000;
  65550. end;
  65551. function TPORTG_PORTG.getRG13 : TBits_1; inline;
  65552. begin
  65553. getRG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  65554. end;
  65555. procedure TPORTG_PORTG.setRG14; inline;
  65556. begin
  65557. pTDefRegMap(@Self)^.&set := $00004000;
  65558. end;
  65559. procedure TPORTG_PORTG.clearRG14; inline;
  65560. begin
  65561. pTDefRegMap(@Self)^.clr := $00004000;
  65562. end;
  65563. procedure TPORTG_PORTG.setRG14(thebits : TBits_1); inline;
  65564. begin
  65565. if thebits = 0 then
  65566. pTDefRegMap(@Self)^.clr := $00004000
  65567. else
  65568. pTDefRegMap(@Self)^.&set := $00004000;
  65569. end;
  65570. function TPORTG_PORTG.getRG14 : TBits_1; inline;
  65571. begin
  65572. getRG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  65573. end;
  65574. procedure TPORTG_PORTG.setRG15; inline;
  65575. begin
  65576. pTDefRegMap(@Self)^.&set := $00008000;
  65577. end;
  65578. procedure TPORTG_PORTG.clearRG15; inline;
  65579. begin
  65580. pTDefRegMap(@Self)^.clr := $00008000;
  65581. end;
  65582. procedure TPORTG_PORTG.setRG15(thebits : TBits_1); inline;
  65583. begin
  65584. if thebits = 0 then
  65585. pTDefRegMap(@Self)^.clr := $00008000
  65586. else
  65587. pTDefRegMap(@Self)^.&set := $00008000;
  65588. end;
  65589. function TPORTG_PORTG.getRG15 : TBits_1; inline;
  65590. begin
  65591. getRG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  65592. end;
  65593. procedure TPORTG_PORTG.setw(thebits : TBits_32); inline;
  65594. begin
  65595. pTDefRegMap(@Self)^.val := thebits;
  65596. end;
  65597. function TPORTG_PORTG.getw : TBits_32; inline;
  65598. begin
  65599. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  65600. end;
  65601. procedure TPORTG_LATG.setLATG0; inline;
  65602. begin
  65603. pTDefRegMap(@Self)^.&set := $00000001;
  65604. end;
  65605. procedure TPORTG_LATG.clearLATG0; inline;
  65606. begin
  65607. pTDefRegMap(@Self)^.clr := $00000001;
  65608. end;
  65609. procedure TPORTG_LATG.setLATG0(thebits : TBits_1); inline;
  65610. begin
  65611. if thebits = 0 then
  65612. pTDefRegMap(@Self)^.clr := $00000001
  65613. else
  65614. pTDefRegMap(@Self)^.&set := $00000001;
  65615. end;
  65616. function TPORTG_LATG.getLATG0 : TBits_1; inline;
  65617. begin
  65618. getLATG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  65619. end;
  65620. procedure TPORTG_LATG.setLATG1; inline;
  65621. begin
  65622. pTDefRegMap(@Self)^.&set := $00000002;
  65623. end;
  65624. procedure TPORTG_LATG.clearLATG1; inline;
  65625. begin
  65626. pTDefRegMap(@Self)^.clr := $00000002;
  65627. end;
  65628. procedure TPORTG_LATG.setLATG1(thebits : TBits_1); inline;
  65629. begin
  65630. if thebits = 0 then
  65631. pTDefRegMap(@Self)^.clr := $00000002
  65632. else
  65633. pTDefRegMap(@Self)^.&set := $00000002;
  65634. end;
  65635. function TPORTG_LATG.getLATG1 : TBits_1; inline;
  65636. begin
  65637. getLATG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  65638. end;
  65639. procedure TPORTG_LATG.setLATG2; inline;
  65640. begin
  65641. pTDefRegMap(@Self)^.&set := $00000004;
  65642. end;
  65643. procedure TPORTG_LATG.clearLATG2; inline;
  65644. begin
  65645. pTDefRegMap(@Self)^.clr := $00000004;
  65646. end;
  65647. procedure TPORTG_LATG.setLATG2(thebits : TBits_1); inline;
  65648. begin
  65649. if thebits = 0 then
  65650. pTDefRegMap(@Self)^.clr := $00000004
  65651. else
  65652. pTDefRegMap(@Self)^.&set := $00000004;
  65653. end;
  65654. function TPORTG_LATG.getLATG2 : TBits_1; inline;
  65655. begin
  65656. getLATG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  65657. end;
  65658. procedure TPORTG_LATG.setLATG3; inline;
  65659. begin
  65660. pTDefRegMap(@Self)^.&set := $00000008;
  65661. end;
  65662. procedure TPORTG_LATG.clearLATG3; inline;
  65663. begin
  65664. pTDefRegMap(@Self)^.clr := $00000008;
  65665. end;
  65666. procedure TPORTG_LATG.setLATG3(thebits : TBits_1); inline;
  65667. begin
  65668. if thebits = 0 then
  65669. pTDefRegMap(@Self)^.clr := $00000008
  65670. else
  65671. pTDefRegMap(@Self)^.&set := $00000008;
  65672. end;
  65673. function TPORTG_LATG.getLATG3 : TBits_1; inline;
  65674. begin
  65675. getLATG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  65676. end;
  65677. procedure TPORTG_LATG.setLATG6; inline;
  65678. begin
  65679. pTDefRegMap(@Self)^.&set := $00000040;
  65680. end;
  65681. procedure TPORTG_LATG.clearLATG6; inline;
  65682. begin
  65683. pTDefRegMap(@Self)^.clr := $00000040;
  65684. end;
  65685. procedure TPORTG_LATG.setLATG6(thebits : TBits_1); inline;
  65686. begin
  65687. if thebits = 0 then
  65688. pTDefRegMap(@Self)^.clr := $00000040
  65689. else
  65690. pTDefRegMap(@Self)^.&set := $00000040;
  65691. end;
  65692. function TPORTG_LATG.getLATG6 : TBits_1; inline;
  65693. begin
  65694. getLATG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  65695. end;
  65696. procedure TPORTG_LATG.setLATG7; inline;
  65697. begin
  65698. pTDefRegMap(@Self)^.&set := $00000080;
  65699. end;
  65700. procedure TPORTG_LATG.clearLATG7; inline;
  65701. begin
  65702. pTDefRegMap(@Self)^.clr := $00000080;
  65703. end;
  65704. procedure TPORTG_LATG.setLATG7(thebits : TBits_1); inline;
  65705. begin
  65706. if thebits = 0 then
  65707. pTDefRegMap(@Self)^.clr := $00000080
  65708. else
  65709. pTDefRegMap(@Self)^.&set := $00000080;
  65710. end;
  65711. function TPORTG_LATG.getLATG7 : TBits_1; inline;
  65712. begin
  65713. getLATG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  65714. end;
  65715. procedure TPORTG_LATG.setLATG8; inline;
  65716. begin
  65717. pTDefRegMap(@Self)^.&set := $00000100;
  65718. end;
  65719. procedure TPORTG_LATG.clearLATG8; inline;
  65720. begin
  65721. pTDefRegMap(@Self)^.clr := $00000100;
  65722. end;
  65723. procedure TPORTG_LATG.setLATG8(thebits : TBits_1); inline;
  65724. begin
  65725. if thebits = 0 then
  65726. pTDefRegMap(@Self)^.clr := $00000100
  65727. else
  65728. pTDefRegMap(@Self)^.&set := $00000100;
  65729. end;
  65730. function TPORTG_LATG.getLATG8 : TBits_1; inline;
  65731. begin
  65732. getLATG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  65733. end;
  65734. procedure TPORTG_LATG.setLATG9; inline;
  65735. begin
  65736. pTDefRegMap(@Self)^.&set := $00000200;
  65737. end;
  65738. procedure TPORTG_LATG.clearLATG9; inline;
  65739. begin
  65740. pTDefRegMap(@Self)^.clr := $00000200;
  65741. end;
  65742. procedure TPORTG_LATG.setLATG9(thebits : TBits_1); inline;
  65743. begin
  65744. if thebits = 0 then
  65745. pTDefRegMap(@Self)^.clr := $00000200
  65746. else
  65747. pTDefRegMap(@Self)^.&set := $00000200;
  65748. end;
  65749. function TPORTG_LATG.getLATG9 : TBits_1; inline;
  65750. begin
  65751. getLATG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  65752. end;
  65753. procedure TPORTG_LATG.setLATG12; inline;
  65754. begin
  65755. pTDefRegMap(@Self)^.&set := $00001000;
  65756. end;
  65757. procedure TPORTG_LATG.clearLATG12; inline;
  65758. begin
  65759. pTDefRegMap(@Self)^.clr := $00001000;
  65760. end;
  65761. procedure TPORTG_LATG.setLATG12(thebits : TBits_1); inline;
  65762. begin
  65763. if thebits = 0 then
  65764. pTDefRegMap(@Self)^.clr := $00001000
  65765. else
  65766. pTDefRegMap(@Self)^.&set := $00001000;
  65767. end;
  65768. function TPORTG_LATG.getLATG12 : TBits_1; inline;
  65769. begin
  65770. getLATG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  65771. end;
  65772. procedure TPORTG_LATG.setLATG13; inline;
  65773. begin
  65774. pTDefRegMap(@Self)^.&set := $00002000;
  65775. end;
  65776. procedure TPORTG_LATG.clearLATG13; inline;
  65777. begin
  65778. pTDefRegMap(@Self)^.clr := $00002000;
  65779. end;
  65780. procedure TPORTG_LATG.setLATG13(thebits : TBits_1); inline;
  65781. begin
  65782. if thebits = 0 then
  65783. pTDefRegMap(@Self)^.clr := $00002000
  65784. else
  65785. pTDefRegMap(@Self)^.&set := $00002000;
  65786. end;
  65787. function TPORTG_LATG.getLATG13 : TBits_1; inline;
  65788. begin
  65789. getLATG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  65790. end;
  65791. procedure TPORTG_LATG.setLATG14; inline;
  65792. begin
  65793. pTDefRegMap(@Self)^.&set := $00004000;
  65794. end;
  65795. procedure TPORTG_LATG.clearLATG14; inline;
  65796. begin
  65797. pTDefRegMap(@Self)^.clr := $00004000;
  65798. end;
  65799. procedure TPORTG_LATG.setLATG14(thebits : TBits_1); inline;
  65800. begin
  65801. if thebits = 0 then
  65802. pTDefRegMap(@Self)^.clr := $00004000
  65803. else
  65804. pTDefRegMap(@Self)^.&set := $00004000;
  65805. end;
  65806. function TPORTG_LATG.getLATG14 : TBits_1; inline;
  65807. begin
  65808. getLATG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  65809. end;
  65810. procedure TPORTG_LATG.setLATG15; inline;
  65811. begin
  65812. pTDefRegMap(@Self)^.&set := $00008000;
  65813. end;
  65814. procedure TPORTG_LATG.clearLATG15; inline;
  65815. begin
  65816. pTDefRegMap(@Self)^.clr := $00008000;
  65817. end;
  65818. procedure TPORTG_LATG.setLATG15(thebits : TBits_1); inline;
  65819. begin
  65820. if thebits = 0 then
  65821. pTDefRegMap(@Self)^.clr := $00008000
  65822. else
  65823. pTDefRegMap(@Self)^.&set := $00008000;
  65824. end;
  65825. function TPORTG_LATG.getLATG15 : TBits_1; inline;
  65826. begin
  65827. getLATG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  65828. end;
  65829. procedure TPORTG_LATG.setw(thebits : TBits_32); inline;
  65830. begin
  65831. pTDefRegMap(@Self)^.val := thebits;
  65832. end;
  65833. function TPORTG_LATG.getw : TBits_32; inline;
  65834. begin
  65835. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  65836. end;
  65837. procedure TPORTG_ODCG.setODCG0; inline;
  65838. begin
  65839. pTDefRegMap(@Self)^.&set := $00000001;
  65840. end;
  65841. procedure TPORTG_ODCG.clearODCG0; inline;
  65842. begin
  65843. pTDefRegMap(@Self)^.clr := $00000001;
  65844. end;
  65845. procedure TPORTG_ODCG.setODCG0(thebits : TBits_1); inline;
  65846. begin
  65847. if thebits = 0 then
  65848. pTDefRegMap(@Self)^.clr := $00000001
  65849. else
  65850. pTDefRegMap(@Self)^.&set := $00000001;
  65851. end;
  65852. function TPORTG_ODCG.getODCG0 : TBits_1; inline;
  65853. begin
  65854. getODCG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  65855. end;
  65856. procedure TPORTG_ODCG.setODCG1; inline;
  65857. begin
  65858. pTDefRegMap(@Self)^.&set := $00000002;
  65859. end;
  65860. procedure TPORTG_ODCG.clearODCG1; inline;
  65861. begin
  65862. pTDefRegMap(@Self)^.clr := $00000002;
  65863. end;
  65864. procedure TPORTG_ODCG.setODCG1(thebits : TBits_1); inline;
  65865. begin
  65866. if thebits = 0 then
  65867. pTDefRegMap(@Self)^.clr := $00000002
  65868. else
  65869. pTDefRegMap(@Self)^.&set := $00000002;
  65870. end;
  65871. function TPORTG_ODCG.getODCG1 : TBits_1; inline;
  65872. begin
  65873. getODCG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  65874. end;
  65875. procedure TPORTG_ODCG.setODCG2; inline;
  65876. begin
  65877. pTDefRegMap(@Self)^.&set := $00000004;
  65878. end;
  65879. procedure TPORTG_ODCG.clearODCG2; inline;
  65880. begin
  65881. pTDefRegMap(@Self)^.clr := $00000004;
  65882. end;
  65883. procedure TPORTG_ODCG.setODCG2(thebits : TBits_1); inline;
  65884. begin
  65885. if thebits = 0 then
  65886. pTDefRegMap(@Self)^.clr := $00000004
  65887. else
  65888. pTDefRegMap(@Self)^.&set := $00000004;
  65889. end;
  65890. function TPORTG_ODCG.getODCG2 : TBits_1; inline;
  65891. begin
  65892. getODCG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  65893. end;
  65894. procedure TPORTG_ODCG.setODCG3; inline;
  65895. begin
  65896. pTDefRegMap(@Self)^.&set := $00000008;
  65897. end;
  65898. procedure TPORTG_ODCG.clearODCG3; inline;
  65899. begin
  65900. pTDefRegMap(@Self)^.clr := $00000008;
  65901. end;
  65902. procedure TPORTG_ODCG.setODCG3(thebits : TBits_1); inline;
  65903. begin
  65904. if thebits = 0 then
  65905. pTDefRegMap(@Self)^.clr := $00000008
  65906. else
  65907. pTDefRegMap(@Self)^.&set := $00000008;
  65908. end;
  65909. function TPORTG_ODCG.getODCG3 : TBits_1; inline;
  65910. begin
  65911. getODCG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  65912. end;
  65913. procedure TPORTG_ODCG.setODCG6; inline;
  65914. begin
  65915. pTDefRegMap(@Self)^.&set := $00000040;
  65916. end;
  65917. procedure TPORTG_ODCG.clearODCG6; inline;
  65918. begin
  65919. pTDefRegMap(@Self)^.clr := $00000040;
  65920. end;
  65921. procedure TPORTG_ODCG.setODCG6(thebits : TBits_1); inline;
  65922. begin
  65923. if thebits = 0 then
  65924. pTDefRegMap(@Self)^.clr := $00000040
  65925. else
  65926. pTDefRegMap(@Self)^.&set := $00000040;
  65927. end;
  65928. function TPORTG_ODCG.getODCG6 : TBits_1; inline;
  65929. begin
  65930. getODCG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  65931. end;
  65932. procedure TPORTG_ODCG.setODCG7; inline;
  65933. begin
  65934. pTDefRegMap(@Self)^.&set := $00000080;
  65935. end;
  65936. procedure TPORTG_ODCG.clearODCG7; inline;
  65937. begin
  65938. pTDefRegMap(@Self)^.clr := $00000080;
  65939. end;
  65940. procedure TPORTG_ODCG.setODCG7(thebits : TBits_1); inline;
  65941. begin
  65942. if thebits = 0 then
  65943. pTDefRegMap(@Self)^.clr := $00000080
  65944. else
  65945. pTDefRegMap(@Self)^.&set := $00000080;
  65946. end;
  65947. function TPORTG_ODCG.getODCG7 : TBits_1; inline;
  65948. begin
  65949. getODCG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  65950. end;
  65951. procedure TPORTG_ODCG.setODCG8; inline;
  65952. begin
  65953. pTDefRegMap(@Self)^.&set := $00000100;
  65954. end;
  65955. procedure TPORTG_ODCG.clearODCG8; inline;
  65956. begin
  65957. pTDefRegMap(@Self)^.clr := $00000100;
  65958. end;
  65959. procedure TPORTG_ODCG.setODCG8(thebits : TBits_1); inline;
  65960. begin
  65961. if thebits = 0 then
  65962. pTDefRegMap(@Self)^.clr := $00000100
  65963. else
  65964. pTDefRegMap(@Self)^.&set := $00000100;
  65965. end;
  65966. function TPORTG_ODCG.getODCG8 : TBits_1; inline;
  65967. begin
  65968. getODCG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  65969. end;
  65970. procedure TPORTG_ODCG.setODCG9; inline;
  65971. begin
  65972. pTDefRegMap(@Self)^.&set := $00000200;
  65973. end;
  65974. procedure TPORTG_ODCG.clearODCG9; inline;
  65975. begin
  65976. pTDefRegMap(@Self)^.clr := $00000200;
  65977. end;
  65978. procedure TPORTG_ODCG.setODCG9(thebits : TBits_1); inline;
  65979. begin
  65980. if thebits = 0 then
  65981. pTDefRegMap(@Self)^.clr := $00000200
  65982. else
  65983. pTDefRegMap(@Self)^.&set := $00000200;
  65984. end;
  65985. function TPORTG_ODCG.getODCG9 : TBits_1; inline;
  65986. begin
  65987. getODCG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  65988. end;
  65989. procedure TPORTG_ODCG.setODCG12; inline;
  65990. begin
  65991. pTDefRegMap(@Self)^.&set := $00001000;
  65992. end;
  65993. procedure TPORTG_ODCG.clearODCG12; inline;
  65994. begin
  65995. pTDefRegMap(@Self)^.clr := $00001000;
  65996. end;
  65997. procedure TPORTG_ODCG.setODCG12(thebits : TBits_1); inline;
  65998. begin
  65999. if thebits = 0 then
  66000. pTDefRegMap(@Self)^.clr := $00001000
  66001. else
  66002. pTDefRegMap(@Self)^.&set := $00001000;
  66003. end;
  66004. function TPORTG_ODCG.getODCG12 : TBits_1; inline;
  66005. begin
  66006. getODCG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  66007. end;
  66008. procedure TPORTG_ODCG.setODCG13; inline;
  66009. begin
  66010. pTDefRegMap(@Self)^.&set := $00002000;
  66011. end;
  66012. procedure TPORTG_ODCG.clearODCG13; inline;
  66013. begin
  66014. pTDefRegMap(@Self)^.clr := $00002000;
  66015. end;
  66016. procedure TPORTG_ODCG.setODCG13(thebits : TBits_1); inline;
  66017. begin
  66018. if thebits = 0 then
  66019. pTDefRegMap(@Self)^.clr := $00002000
  66020. else
  66021. pTDefRegMap(@Self)^.&set := $00002000;
  66022. end;
  66023. function TPORTG_ODCG.getODCG13 : TBits_1; inline;
  66024. begin
  66025. getODCG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  66026. end;
  66027. procedure TPORTG_ODCG.setODCG14; inline;
  66028. begin
  66029. pTDefRegMap(@Self)^.&set := $00004000;
  66030. end;
  66031. procedure TPORTG_ODCG.clearODCG14; inline;
  66032. begin
  66033. pTDefRegMap(@Self)^.clr := $00004000;
  66034. end;
  66035. procedure TPORTG_ODCG.setODCG14(thebits : TBits_1); inline;
  66036. begin
  66037. if thebits = 0 then
  66038. pTDefRegMap(@Self)^.clr := $00004000
  66039. else
  66040. pTDefRegMap(@Self)^.&set := $00004000;
  66041. end;
  66042. function TPORTG_ODCG.getODCG14 : TBits_1; inline;
  66043. begin
  66044. getODCG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  66045. end;
  66046. procedure TPORTG_ODCG.setODCG15; inline;
  66047. begin
  66048. pTDefRegMap(@Self)^.&set := $00008000;
  66049. end;
  66050. procedure TPORTG_ODCG.clearODCG15; inline;
  66051. begin
  66052. pTDefRegMap(@Self)^.clr := $00008000;
  66053. end;
  66054. procedure TPORTG_ODCG.setODCG15(thebits : TBits_1); inline;
  66055. begin
  66056. if thebits = 0 then
  66057. pTDefRegMap(@Self)^.clr := $00008000
  66058. else
  66059. pTDefRegMap(@Self)^.&set := $00008000;
  66060. end;
  66061. function TPORTG_ODCG.getODCG15 : TBits_1; inline;
  66062. begin
  66063. getODCG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  66064. end;
  66065. procedure TPORTG_ODCG.setw(thebits : TBits_32); inline;
  66066. begin
  66067. pTDefRegMap(@Self)^.val := thebits;
  66068. end;
  66069. function TPORTG_ODCG.getw : TBits_32; inline;
  66070. begin
  66071. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  66072. end;
  66073. procedure TPORTG_CNCON.setSIDL; inline;
  66074. begin
  66075. pTDefRegMap(@Self)^.&set := $00002000;
  66076. end;
  66077. procedure TPORTG_CNCON.clearSIDL; inline;
  66078. begin
  66079. pTDefRegMap(@Self)^.clr := $00002000;
  66080. end;
  66081. procedure TPORTG_CNCON.setSIDL(thebits : TBits_1); inline;
  66082. begin
  66083. if thebits = 0 then
  66084. pTDefRegMap(@Self)^.clr := $00002000
  66085. else
  66086. pTDefRegMap(@Self)^.&set := $00002000;
  66087. end;
  66088. function TPORTG_CNCON.getSIDL : TBits_1; inline;
  66089. begin
  66090. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  66091. end;
  66092. procedure TPORTG_CNCON.setON; inline;
  66093. begin
  66094. pTDefRegMap(@Self)^.&set := $00008000;
  66095. end;
  66096. procedure TPORTG_CNCON.clearON; inline;
  66097. begin
  66098. pTDefRegMap(@Self)^.clr := $00008000;
  66099. end;
  66100. procedure TPORTG_CNCON.setON(thebits : TBits_1); inline;
  66101. begin
  66102. if thebits = 0 then
  66103. pTDefRegMap(@Self)^.clr := $00008000
  66104. else
  66105. pTDefRegMap(@Self)^.&set := $00008000;
  66106. end;
  66107. function TPORTG_CNCON.getON : TBits_1; inline;
  66108. begin
  66109. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  66110. end;
  66111. procedure TPORTG_CNCON.setw(thebits : TBits_32); inline;
  66112. begin
  66113. pTDefRegMap(@Self)^.val := thebits;
  66114. end;
  66115. function TPORTG_CNCON.getw : TBits_32; inline;
  66116. begin
  66117. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  66118. end;
  66119. procedure TPORTG_CNEN.setCNEN0; inline;
  66120. begin
  66121. pTDefRegMap(@Self)^.&set := $00000001;
  66122. end;
  66123. procedure TPORTG_CNEN.clearCNEN0; inline;
  66124. begin
  66125. pTDefRegMap(@Self)^.clr := $00000001;
  66126. end;
  66127. procedure TPORTG_CNEN.setCNEN0(thebits : TBits_1); inline;
  66128. begin
  66129. if thebits = 0 then
  66130. pTDefRegMap(@Self)^.clr := $00000001
  66131. else
  66132. pTDefRegMap(@Self)^.&set := $00000001;
  66133. end;
  66134. function TPORTG_CNEN.getCNEN0 : TBits_1; inline;
  66135. begin
  66136. getCNEN0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  66137. end;
  66138. procedure TPORTG_CNEN.setCNEN1; inline;
  66139. begin
  66140. pTDefRegMap(@Self)^.&set := $00000002;
  66141. end;
  66142. procedure TPORTG_CNEN.clearCNEN1; inline;
  66143. begin
  66144. pTDefRegMap(@Self)^.clr := $00000002;
  66145. end;
  66146. procedure TPORTG_CNEN.setCNEN1(thebits : TBits_1); inline;
  66147. begin
  66148. if thebits = 0 then
  66149. pTDefRegMap(@Self)^.clr := $00000002
  66150. else
  66151. pTDefRegMap(@Self)^.&set := $00000002;
  66152. end;
  66153. function TPORTG_CNEN.getCNEN1 : TBits_1; inline;
  66154. begin
  66155. getCNEN1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  66156. end;
  66157. procedure TPORTG_CNEN.setCNEN2; inline;
  66158. begin
  66159. pTDefRegMap(@Self)^.&set := $00000004;
  66160. end;
  66161. procedure TPORTG_CNEN.clearCNEN2; inline;
  66162. begin
  66163. pTDefRegMap(@Self)^.clr := $00000004;
  66164. end;
  66165. procedure TPORTG_CNEN.setCNEN2(thebits : TBits_1); inline;
  66166. begin
  66167. if thebits = 0 then
  66168. pTDefRegMap(@Self)^.clr := $00000004
  66169. else
  66170. pTDefRegMap(@Self)^.&set := $00000004;
  66171. end;
  66172. function TPORTG_CNEN.getCNEN2 : TBits_1; inline;
  66173. begin
  66174. getCNEN2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  66175. end;
  66176. procedure TPORTG_CNEN.setCNEN3; inline;
  66177. begin
  66178. pTDefRegMap(@Self)^.&set := $00000008;
  66179. end;
  66180. procedure TPORTG_CNEN.clearCNEN3; inline;
  66181. begin
  66182. pTDefRegMap(@Self)^.clr := $00000008;
  66183. end;
  66184. procedure TPORTG_CNEN.setCNEN3(thebits : TBits_1); inline;
  66185. begin
  66186. if thebits = 0 then
  66187. pTDefRegMap(@Self)^.clr := $00000008
  66188. else
  66189. pTDefRegMap(@Self)^.&set := $00000008;
  66190. end;
  66191. function TPORTG_CNEN.getCNEN3 : TBits_1; inline;
  66192. begin
  66193. getCNEN3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  66194. end;
  66195. procedure TPORTG_CNEN.setCNEN4; inline;
  66196. begin
  66197. pTDefRegMap(@Self)^.&set := $00000010;
  66198. end;
  66199. procedure TPORTG_CNEN.clearCNEN4; inline;
  66200. begin
  66201. pTDefRegMap(@Self)^.clr := $00000010;
  66202. end;
  66203. procedure TPORTG_CNEN.setCNEN4(thebits : TBits_1); inline;
  66204. begin
  66205. if thebits = 0 then
  66206. pTDefRegMap(@Self)^.clr := $00000010
  66207. else
  66208. pTDefRegMap(@Self)^.&set := $00000010;
  66209. end;
  66210. function TPORTG_CNEN.getCNEN4 : TBits_1; inline;
  66211. begin
  66212. getCNEN4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  66213. end;
  66214. procedure TPORTG_CNEN.setCNEN5; inline;
  66215. begin
  66216. pTDefRegMap(@Self)^.&set := $00000020;
  66217. end;
  66218. procedure TPORTG_CNEN.clearCNEN5; inline;
  66219. begin
  66220. pTDefRegMap(@Self)^.clr := $00000020;
  66221. end;
  66222. procedure TPORTG_CNEN.setCNEN5(thebits : TBits_1); inline;
  66223. begin
  66224. if thebits = 0 then
  66225. pTDefRegMap(@Self)^.clr := $00000020
  66226. else
  66227. pTDefRegMap(@Self)^.&set := $00000020;
  66228. end;
  66229. function TPORTG_CNEN.getCNEN5 : TBits_1; inline;
  66230. begin
  66231. getCNEN5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  66232. end;
  66233. procedure TPORTG_CNEN.setCNEN6; inline;
  66234. begin
  66235. pTDefRegMap(@Self)^.&set := $00000040;
  66236. end;
  66237. procedure TPORTG_CNEN.clearCNEN6; inline;
  66238. begin
  66239. pTDefRegMap(@Self)^.clr := $00000040;
  66240. end;
  66241. procedure TPORTG_CNEN.setCNEN6(thebits : TBits_1); inline;
  66242. begin
  66243. if thebits = 0 then
  66244. pTDefRegMap(@Self)^.clr := $00000040
  66245. else
  66246. pTDefRegMap(@Self)^.&set := $00000040;
  66247. end;
  66248. function TPORTG_CNEN.getCNEN6 : TBits_1; inline;
  66249. begin
  66250. getCNEN6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  66251. end;
  66252. procedure TPORTG_CNEN.setCNEN7; inline;
  66253. begin
  66254. pTDefRegMap(@Self)^.&set := $00000080;
  66255. end;
  66256. procedure TPORTG_CNEN.clearCNEN7; inline;
  66257. begin
  66258. pTDefRegMap(@Self)^.clr := $00000080;
  66259. end;
  66260. procedure TPORTG_CNEN.setCNEN7(thebits : TBits_1); inline;
  66261. begin
  66262. if thebits = 0 then
  66263. pTDefRegMap(@Self)^.clr := $00000080
  66264. else
  66265. pTDefRegMap(@Self)^.&set := $00000080;
  66266. end;
  66267. function TPORTG_CNEN.getCNEN7 : TBits_1; inline;
  66268. begin
  66269. getCNEN7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  66270. end;
  66271. procedure TPORTG_CNEN.setCNEN8; inline;
  66272. begin
  66273. pTDefRegMap(@Self)^.&set := $00000100;
  66274. end;
  66275. procedure TPORTG_CNEN.clearCNEN8; inline;
  66276. begin
  66277. pTDefRegMap(@Self)^.clr := $00000100;
  66278. end;
  66279. procedure TPORTG_CNEN.setCNEN8(thebits : TBits_1); inline;
  66280. begin
  66281. if thebits = 0 then
  66282. pTDefRegMap(@Self)^.clr := $00000100
  66283. else
  66284. pTDefRegMap(@Self)^.&set := $00000100;
  66285. end;
  66286. function TPORTG_CNEN.getCNEN8 : TBits_1; inline;
  66287. begin
  66288. getCNEN8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  66289. end;
  66290. procedure TPORTG_CNEN.setCNEN9; inline;
  66291. begin
  66292. pTDefRegMap(@Self)^.&set := $00000200;
  66293. end;
  66294. procedure TPORTG_CNEN.clearCNEN9; inline;
  66295. begin
  66296. pTDefRegMap(@Self)^.clr := $00000200;
  66297. end;
  66298. procedure TPORTG_CNEN.setCNEN9(thebits : TBits_1); inline;
  66299. begin
  66300. if thebits = 0 then
  66301. pTDefRegMap(@Self)^.clr := $00000200
  66302. else
  66303. pTDefRegMap(@Self)^.&set := $00000200;
  66304. end;
  66305. function TPORTG_CNEN.getCNEN9 : TBits_1; inline;
  66306. begin
  66307. getCNEN9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  66308. end;
  66309. procedure TPORTG_CNEN.setCNEN10; inline;
  66310. begin
  66311. pTDefRegMap(@Self)^.&set := $00000400;
  66312. end;
  66313. procedure TPORTG_CNEN.clearCNEN10; inline;
  66314. begin
  66315. pTDefRegMap(@Self)^.clr := $00000400;
  66316. end;
  66317. procedure TPORTG_CNEN.setCNEN10(thebits : TBits_1); inline;
  66318. begin
  66319. if thebits = 0 then
  66320. pTDefRegMap(@Self)^.clr := $00000400
  66321. else
  66322. pTDefRegMap(@Self)^.&set := $00000400;
  66323. end;
  66324. function TPORTG_CNEN.getCNEN10 : TBits_1; inline;
  66325. begin
  66326. getCNEN10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  66327. end;
  66328. procedure TPORTG_CNEN.setCNEN11; inline;
  66329. begin
  66330. pTDefRegMap(@Self)^.&set := $00000800;
  66331. end;
  66332. procedure TPORTG_CNEN.clearCNEN11; inline;
  66333. begin
  66334. pTDefRegMap(@Self)^.clr := $00000800;
  66335. end;
  66336. procedure TPORTG_CNEN.setCNEN11(thebits : TBits_1); inline;
  66337. begin
  66338. if thebits = 0 then
  66339. pTDefRegMap(@Self)^.clr := $00000800
  66340. else
  66341. pTDefRegMap(@Self)^.&set := $00000800;
  66342. end;
  66343. function TPORTG_CNEN.getCNEN11 : TBits_1; inline;
  66344. begin
  66345. getCNEN11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  66346. end;
  66347. procedure TPORTG_CNEN.setCNEN12; inline;
  66348. begin
  66349. pTDefRegMap(@Self)^.&set := $00001000;
  66350. end;
  66351. procedure TPORTG_CNEN.clearCNEN12; inline;
  66352. begin
  66353. pTDefRegMap(@Self)^.clr := $00001000;
  66354. end;
  66355. procedure TPORTG_CNEN.setCNEN12(thebits : TBits_1); inline;
  66356. begin
  66357. if thebits = 0 then
  66358. pTDefRegMap(@Self)^.clr := $00001000
  66359. else
  66360. pTDefRegMap(@Self)^.&set := $00001000;
  66361. end;
  66362. function TPORTG_CNEN.getCNEN12 : TBits_1; inline;
  66363. begin
  66364. getCNEN12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  66365. end;
  66366. procedure TPORTG_CNEN.setCNEN13; inline;
  66367. begin
  66368. pTDefRegMap(@Self)^.&set := $00002000;
  66369. end;
  66370. procedure TPORTG_CNEN.clearCNEN13; inline;
  66371. begin
  66372. pTDefRegMap(@Self)^.clr := $00002000;
  66373. end;
  66374. procedure TPORTG_CNEN.setCNEN13(thebits : TBits_1); inline;
  66375. begin
  66376. if thebits = 0 then
  66377. pTDefRegMap(@Self)^.clr := $00002000
  66378. else
  66379. pTDefRegMap(@Self)^.&set := $00002000;
  66380. end;
  66381. function TPORTG_CNEN.getCNEN13 : TBits_1; inline;
  66382. begin
  66383. getCNEN13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  66384. end;
  66385. procedure TPORTG_CNEN.setCNEN14; inline;
  66386. begin
  66387. pTDefRegMap(@Self)^.&set := $00004000;
  66388. end;
  66389. procedure TPORTG_CNEN.clearCNEN14; inline;
  66390. begin
  66391. pTDefRegMap(@Self)^.clr := $00004000;
  66392. end;
  66393. procedure TPORTG_CNEN.setCNEN14(thebits : TBits_1); inline;
  66394. begin
  66395. if thebits = 0 then
  66396. pTDefRegMap(@Self)^.clr := $00004000
  66397. else
  66398. pTDefRegMap(@Self)^.&set := $00004000;
  66399. end;
  66400. function TPORTG_CNEN.getCNEN14 : TBits_1; inline;
  66401. begin
  66402. getCNEN14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  66403. end;
  66404. procedure TPORTG_CNEN.setCNEN15; inline;
  66405. begin
  66406. pTDefRegMap(@Self)^.&set := $00008000;
  66407. end;
  66408. procedure TPORTG_CNEN.clearCNEN15; inline;
  66409. begin
  66410. pTDefRegMap(@Self)^.clr := $00008000;
  66411. end;
  66412. procedure TPORTG_CNEN.setCNEN15(thebits : TBits_1); inline;
  66413. begin
  66414. if thebits = 0 then
  66415. pTDefRegMap(@Self)^.clr := $00008000
  66416. else
  66417. pTDefRegMap(@Self)^.&set := $00008000;
  66418. end;
  66419. function TPORTG_CNEN.getCNEN15 : TBits_1; inline;
  66420. begin
  66421. getCNEN15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  66422. end;
  66423. procedure TPORTG_CNEN.setCNEN16; inline;
  66424. begin
  66425. pTDefRegMap(@Self)^.&set := $00010000;
  66426. end;
  66427. procedure TPORTG_CNEN.clearCNEN16; inline;
  66428. begin
  66429. pTDefRegMap(@Self)^.clr := $00010000;
  66430. end;
  66431. procedure TPORTG_CNEN.setCNEN16(thebits : TBits_1); inline;
  66432. begin
  66433. if thebits = 0 then
  66434. pTDefRegMap(@Self)^.clr := $00010000
  66435. else
  66436. pTDefRegMap(@Self)^.&set := $00010000;
  66437. end;
  66438. function TPORTG_CNEN.getCNEN16 : TBits_1; inline;
  66439. begin
  66440. getCNEN16 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  66441. end;
  66442. procedure TPORTG_CNEN.setCNEN17; inline;
  66443. begin
  66444. pTDefRegMap(@Self)^.&set := $00020000;
  66445. end;
  66446. procedure TPORTG_CNEN.clearCNEN17; inline;
  66447. begin
  66448. pTDefRegMap(@Self)^.clr := $00020000;
  66449. end;
  66450. procedure TPORTG_CNEN.setCNEN17(thebits : TBits_1); inline;
  66451. begin
  66452. if thebits = 0 then
  66453. pTDefRegMap(@Self)^.clr := $00020000
  66454. else
  66455. pTDefRegMap(@Self)^.&set := $00020000;
  66456. end;
  66457. function TPORTG_CNEN.getCNEN17 : TBits_1; inline;
  66458. begin
  66459. getCNEN17 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  66460. end;
  66461. procedure TPORTG_CNEN.setCNEN18; inline;
  66462. begin
  66463. pTDefRegMap(@Self)^.&set := $00040000;
  66464. end;
  66465. procedure TPORTG_CNEN.clearCNEN18; inline;
  66466. begin
  66467. pTDefRegMap(@Self)^.clr := $00040000;
  66468. end;
  66469. procedure TPORTG_CNEN.setCNEN18(thebits : TBits_1); inline;
  66470. begin
  66471. if thebits = 0 then
  66472. pTDefRegMap(@Self)^.clr := $00040000
  66473. else
  66474. pTDefRegMap(@Self)^.&set := $00040000;
  66475. end;
  66476. function TPORTG_CNEN.getCNEN18 : TBits_1; inline;
  66477. begin
  66478. getCNEN18 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  66479. end;
  66480. procedure TPORTG_CNEN.setCNEN19; inline;
  66481. begin
  66482. pTDefRegMap(@Self)^.&set := $00080000;
  66483. end;
  66484. procedure TPORTG_CNEN.clearCNEN19; inline;
  66485. begin
  66486. pTDefRegMap(@Self)^.clr := $00080000;
  66487. end;
  66488. procedure TPORTG_CNEN.setCNEN19(thebits : TBits_1); inline;
  66489. begin
  66490. if thebits = 0 then
  66491. pTDefRegMap(@Self)^.clr := $00080000
  66492. else
  66493. pTDefRegMap(@Self)^.&set := $00080000;
  66494. end;
  66495. function TPORTG_CNEN.getCNEN19 : TBits_1; inline;
  66496. begin
  66497. getCNEN19 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  66498. end;
  66499. procedure TPORTG_CNEN.setCNEN20; inline;
  66500. begin
  66501. pTDefRegMap(@Self)^.&set := $00100000;
  66502. end;
  66503. procedure TPORTG_CNEN.clearCNEN20; inline;
  66504. begin
  66505. pTDefRegMap(@Self)^.clr := $00100000;
  66506. end;
  66507. procedure TPORTG_CNEN.setCNEN20(thebits : TBits_1); inline;
  66508. begin
  66509. if thebits = 0 then
  66510. pTDefRegMap(@Self)^.clr := $00100000
  66511. else
  66512. pTDefRegMap(@Self)^.&set := $00100000;
  66513. end;
  66514. function TPORTG_CNEN.getCNEN20 : TBits_1; inline;
  66515. begin
  66516. getCNEN20 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  66517. end;
  66518. procedure TPORTG_CNEN.setCNEN21; inline;
  66519. begin
  66520. pTDefRegMap(@Self)^.&set := $00200000;
  66521. end;
  66522. procedure TPORTG_CNEN.clearCNEN21; inline;
  66523. begin
  66524. pTDefRegMap(@Self)^.clr := $00200000;
  66525. end;
  66526. procedure TPORTG_CNEN.setCNEN21(thebits : TBits_1); inline;
  66527. begin
  66528. if thebits = 0 then
  66529. pTDefRegMap(@Self)^.clr := $00200000
  66530. else
  66531. pTDefRegMap(@Self)^.&set := $00200000;
  66532. end;
  66533. function TPORTG_CNEN.getCNEN21 : TBits_1; inline;
  66534. begin
  66535. getCNEN21 := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  66536. end;
  66537. procedure TPORTG_CNEN.setw(thebits : TBits_32); inline;
  66538. begin
  66539. pTDefRegMap(@Self)^.val := thebits;
  66540. end;
  66541. function TPORTG_CNEN.getw : TBits_32; inline;
  66542. begin
  66543. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  66544. end;
  66545. procedure TPORTG_CNPUE.setCNPUE0; inline;
  66546. begin
  66547. pTDefRegMap(@Self)^.&set := $00000001;
  66548. end;
  66549. procedure TPORTG_CNPUE.clearCNPUE0; inline;
  66550. begin
  66551. pTDefRegMap(@Self)^.clr := $00000001;
  66552. end;
  66553. procedure TPORTG_CNPUE.setCNPUE0(thebits : TBits_1); inline;
  66554. begin
  66555. if thebits = 0 then
  66556. pTDefRegMap(@Self)^.clr := $00000001
  66557. else
  66558. pTDefRegMap(@Self)^.&set := $00000001;
  66559. end;
  66560. function TPORTG_CNPUE.getCNPUE0 : TBits_1; inline;
  66561. begin
  66562. getCNPUE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  66563. end;
  66564. procedure TPORTG_CNPUE.setCNPUE1; inline;
  66565. begin
  66566. pTDefRegMap(@Self)^.&set := $00000002;
  66567. end;
  66568. procedure TPORTG_CNPUE.clearCNPUE1; inline;
  66569. begin
  66570. pTDefRegMap(@Self)^.clr := $00000002;
  66571. end;
  66572. procedure TPORTG_CNPUE.setCNPUE1(thebits : TBits_1); inline;
  66573. begin
  66574. if thebits = 0 then
  66575. pTDefRegMap(@Self)^.clr := $00000002
  66576. else
  66577. pTDefRegMap(@Self)^.&set := $00000002;
  66578. end;
  66579. function TPORTG_CNPUE.getCNPUE1 : TBits_1; inline;
  66580. begin
  66581. getCNPUE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  66582. end;
  66583. procedure TPORTG_CNPUE.setCNPUE2; inline;
  66584. begin
  66585. pTDefRegMap(@Self)^.&set := $00000004;
  66586. end;
  66587. procedure TPORTG_CNPUE.clearCNPUE2; inline;
  66588. begin
  66589. pTDefRegMap(@Self)^.clr := $00000004;
  66590. end;
  66591. procedure TPORTG_CNPUE.setCNPUE2(thebits : TBits_1); inline;
  66592. begin
  66593. if thebits = 0 then
  66594. pTDefRegMap(@Self)^.clr := $00000004
  66595. else
  66596. pTDefRegMap(@Self)^.&set := $00000004;
  66597. end;
  66598. function TPORTG_CNPUE.getCNPUE2 : TBits_1; inline;
  66599. begin
  66600. getCNPUE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  66601. end;
  66602. procedure TPORTG_CNPUE.setCNPUE3; inline;
  66603. begin
  66604. pTDefRegMap(@Self)^.&set := $00000008;
  66605. end;
  66606. procedure TPORTG_CNPUE.clearCNPUE3; inline;
  66607. begin
  66608. pTDefRegMap(@Self)^.clr := $00000008;
  66609. end;
  66610. procedure TPORTG_CNPUE.setCNPUE3(thebits : TBits_1); inline;
  66611. begin
  66612. if thebits = 0 then
  66613. pTDefRegMap(@Self)^.clr := $00000008
  66614. else
  66615. pTDefRegMap(@Self)^.&set := $00000008;
  66616. end;
  66617. function TPORTG_CNPUE.getCNPUE3 : TBits_1; inline;
  66618. begin
  66619. getCNPUE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  66620. end;
  66621. procedure TPORTG_CNPUE.setCNPUE4; inline;
  66622. begin
  66623. pTDefRegMap(@Self)^.&set := $00000010;
  66624. end;
  66625. procedure TPORTG_CNPUE.clearCNPUE4; inline;
  66626. begin
  66627. pTDefRegMap(@Self)^.clr := $00000010;
  66628. end;
  66629. procedure TPORTG_CNPUE.setCNPUE4(thebits : TBits_1); inline;
  66630. begin
  66631. if thebits = 0 then
  66632. pTDefRegMap(@Self)^.clr := $00000010
  66633. else
  66634. pTDefRegMap(@Self)^.&set := $00000010;
  66635. end;
  66636. function TPORTG_CNPUE.getCNPUE4 : TBits_1; inline;
  66637. begin
  66638. getCNPUE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  66639. end;
  66640. procedure TPORTG_CNPUE.setCNPUE5; inline;
  66641. begin
  66642. pTDefRegMap(@Self)^.&set := $00000020;
  66643. end;
  66644. procedure TPORTG_CNPUE.clearCNPUE5; inline;
  66645. begin
  66646. pTDefRegMap(@Self)^.clr := $00000020;
  66647. end;
  66648. procedure TPORTG_CNPUE.setCNPUE5(thebits : TBits_1); inline;
  66649. begin
  66650. if thebits = 0 then
  66651. pTDefRegMap(@Self)^.clr := $00000020
  66652. else
  66653. pTDefRegMap(@Self)^.&set := $00000020;
  66654. end;
  66655. function TPORTG_CNPUE.getCNPUE5 : TBits_1; inline;
  66656. begin
  66657. getCNPUE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  66658. end;
  66659. procedure TPORTG_CNPUE.setCNPUE6; inline;
  66660. begin
  66661. pTDefRegMap(@Self)^.&set := $00000040;
  66662. end;
  66663. procedure TPORTG_CNPUE.clearCNPUE6; inline;
  66664. begin
  66665. pTDefRegMap(@Self)^.clr := $00000040;
  66666. end;
  66667. procedure TPORTG_CNPUE.setCNPUE6(thebits : TBits_1); inline;
  66668. begin
  66669. if thebits = 0 then
  66670. pTDefRegMap(@Self)^.clr := $00000040
  66671. else
  66672. pTDefRegMap(@Self)^.&set := $00000040;
  66673. end;
  66674. function TPORTG_CNPUE.getCNPUE6 : TBits_1; inline;
  66675. begin
  66676. getCNPUE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  66677. end;
  66678. procedure TPORTG_CNPUE.setCNPUE7; inline;
  66679. begin
  66680. pTDefRegMap(@Self)^.&set := $00000080;
  66681. end;
  66682. procedure TPORTG_CNPUE.clearCNPUE7; inline;
  66683. begin
  66684. pTDefRegMap(@Self)^.clr := $00000080;
  66685. end;
  66686. procedure TPORTG_CNPUE.setCNPUE7(thebits : TBits_1); inline;
  66687. begin
  66688. if thebits = 0 then
  66689. pTDefRegMap(@Self)^.clr := $00000080
  66690. else
  66691. pTDefRegMap(@Self)^.&set := $00000080;
  66692. end;
  66693. function TPORTG_CNPUE.getCNPUE7 : TBits_1; inline;
  66694. begin
  66695. getCNPUE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  66696. end;
  66697. procedure TPORTG_CNPUE.setCNPUE8; inline;
  66698. begin
  66699. pTDefRegMap(@Self)^.&set := $00000100;
  66700. end;
  66701. procedure TPORTG_CNPUE.clearCNPUE8; inline;
  66702. begin
  66703. pTDefRegMap(@Self)^.clr := $00000100;
  66704. end;
  66705. procedure TPORTG_CNPUE.setCNPUE8(thebits : TBits_1); inline;
  66706. begin
  66707. if thebits = 0 then
  66708. pTDefRegMap(@Self)^.clr := $00000100
  66709. else
  66710. pTDefRegMap(@Self)^.&set := $00000100;
  66711. end;
  66712. function TPORTG_CNPUE.getCNPUE8 : TBits_1; inline;
  66713. begin
  66714. getCNPUE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  66715. end;
  66716. procedure TPORTG_CNPUE.setCNPUE9; inline;
  66717. begin
  66718. pTDefRegMap(@Self)^.&set := $00000200;
  66719. end;
  66720. procedure TPORTG_CNPUE.clearCNPUE9; inline;
  66721. begin
  66722. pTDefRegMap(@Self)^.clr := $00000200;
  66723. end;
  66724. procedure TPORTG_CNPUE.setCNPUE9(thebits : TBits_1); inline;
  66725. begin
  66726. if thebits = 0 then
  66727. pTDefRegMap(@Self)^.clr := $00000200
  66728. else
  66729. pTDefRegMap(@Self)^.&set := $00000200;
  66730. end;
  66731. function TPORTG_CNPUE.getCNPUE9 : TBits_1; inline;
  66732. begin
  66733. getCNPUE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  66734. end;
  66735. procedure TPORTG_CNPUE.setCNPUE10; inline;
  66736. begin
  66737. pTDefRegMap(@Self)^.&set := $00000400;
  66738. end;
  66739. procedure TPORTG_CNPUE.clearCNPUE10; inline;
  66740. begin
  66741. pTDefRegMap(@Self)^.clr := $00000400;
  66742. end;
  66743. procedure TPORTG_CNPUE.setCNPUE10(thebits : TBits_1); inline;
  66744. begin
  66745. if thebits = 0 then
  66746. pTDefRegMap(@Self)^.clr := $00000400
  66747. else
  66748. pTDefRegMap(@Self)^.&set := $00000400;
  66749. end;
  66750. function TPORTG_CNPUE.getCNPUE10 : TBits_1; inline;
  66751. begin
  66752. getCNPUE10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  66753. end;
  66754. procedure TPORTG_CNPUE.setCNPUE11; inline;
  66755. begin
  66756. pTDefRegMap(@Self)^.&set := $00000800;
  66757. end;
  66758. procedure TPORTG_CNPUE.clearCNPUE11; inline;
  66759. begin
  66760. pTDefRegMap(@Self)^.clr := $00000800;
  66761. end;
  66762. procedure TPORTG_CNPUE.setCNPUE11(thebits : TBits_1); inline;
  66763. begin
  66764. if thebits = 0 then
  66765. pTDefRegMap(@Self)^.clr := $00000800
  66766. else
  66767. pTDefRegMap(@Self)^.&set := $00000800;
  66768. end;
  66769. function TPORTG_CNPUE.getCNPUE11 : TBits_1; inline;
  66770. begin
  66771. getCNPUE11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  66772. end;
  66773. procedure TPORTG_CNPUE.setCNPUE12; inline;
  66774. begin
  66775. pTDefRegMap(@Self)^.&set := $00001000;
  66776. end;
  66777. procedure TPORTG_CNPUE.clearCNPUE12; inline;
  66778. begin
  66779. pTDefRegMap(@Self)^.clr := $00001000;
  66780. end;
  66781. procedure TPORTG_CNPUE.setCNPUE12(thebits : TBits_1); inline;
  66782. begin
  66783. if thebits = 0 then
  66784. pTDefRegMap(@Self)^.clr := $00001000
  66785. else
  66786. pTDefRegMap(@Self)^.&set := $00001000;
  66787. end;
  66788. function TPORTG_CNPUE.getCNPUE12 : TBits_1; inline;
  66789. begin
  66790. getCNPUE12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  66791. end;
  66792. procedure TPORTG_CNPUE.setCNPUE13; inline;
  66793. begin
  66794. pTDefRegMap(@Self)^.&set := $00002000;
  66795. end;
  66796. procedure TPORTG_CNPUE.clearCNPUE13; inline;
  66797. begin
  66798. pTDefRegMap(@Self)^.clr := $00002000;
  66799. end;
  66800. procedure TPORTG_CNPUE.setCNPUE13(thebits : TBits_1); inline;
  66801. begin
  66802. if thebits = 0 then
  66803. pTDefRegMap(@Self)^.clr := $00002000
  66804. else
  66805. pTDefRegMap(@Self)^.&set := $00002000;
  66806. end;
  66807. function TPORTG_CNPUE.getCNPUE13 : TBits_1; inline;
  66808. begin
  66809. getCNPUE13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  66810. end;
  66811. procedure TPORTG_CNPUE.setCNPUE14; inline;
  66812. begin
  66813. pTDefRegMap(@Self)^.&set := $00004000;
  66814. end;
  66815. procedure TPORTG_CNPUE.clearCNPUE14; inline;
  66816. begin
  66817. pTDefRegMap(@Self)^.clr := $00004000;
  66818. end;
  66819. procedure TPORTG_CNPUE.setCNPUE14(thebits : TBits_1); inline;
  66820. begin
  66821. if thebits = 0 then
  66822. pTDefRegMap(@Self)^.clr := $00004000
  66823. else
  66824. pTDefRegMap(@Self)^.&set := $00004000;
  66825. end;
  66826. function TPORTG_CNPUE.getCNPUE14 : TBits_1; inline;
  66827. begin
  66828. getCNPUE14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  66829. end;
  66830. procedure TPORTG_CNPUE.setCNPUE15; inline;
  66831. begin
  66832. pTDefRegMap(@Self)^.&set := $00008000;
  66833. end;
  66834. procedure TPORTG_CNPUE.clearCNPUE15; inline;
  66835. begin
  66836. pTDefRegMap(@Self)^.clr := $00008000;
  66837. end;
  66838. procedure TPORTG_CNPUE.setCNPUE15(thebits : TBits_1); inline;
  66839. begin
  66840. if thebits = 0 then
  66841. pTDefRegMap(@Self)^.clr := $00008000
  66842. else
  66843. pTDefRegMap(@Self)^.&set := $00008000;
  66844. end;
  66845. function TPORTG_CNPUE.getCNPUE15 : TBits_1; inline;
  66846. begin
  66847. getCNPUE15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  66848. end;
  66849. procedure TPORTG_CNPUE.setCNPUE16; inline;
  66850. begin
  66851. pTDefRegMap(@Self)^.&set := $00010000;
  66852. end;
  66853. procedure TPORTG_CNPUE.clearCNPUE16; inline;
  66854. begin
  66855. pTDefRegMap(@Self)^.clr := $00010000;
  66856. end;
  66857. procedure TPORTG_CNPUE.setCNPUE16(thebits : TBits_1); inline;
  66858. begin
  66859. if thebits = 0 then
  66860. pTDefRegMap(@Self)^.clr := $00010000
  66861. else
  66862. pTDefRegMap(@Self)^.&set := $00010000;
  66863. end;
  66864. function TPORTG_CNPUE.getCNPUE16 : TBits_1; inline;
  66865. begin
  66866. getCNPUE16 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  66867. end;
  66868. procedure TPORTG_CNPUE.setCNPUE17; inline;
  66869. begin
  66870. pTDefRegMap(@Self)^.&set := $00020000;
  66871. end;
  66872. procedure TPORTG_CNPUE.clearCNPUE17; inline;
  66873. begin
  66874. pTDefRegMap(@Self)^.clr := $00020000;
  66875. end;
  66876. procedure TPORTG_CNPUE.setCNPUE17(thebits : TBits_1); inline;
  66877. begin
  66878. if thebits = 0 then
  66879. pTDefRegMap(@Self)^.clr := $00020000
  66880. else
  66881. pTDefRegMap(@Self)^.&set := $00020000;
  66882. end;
  66883. function TPORTG_CNPUE.getCNPUE17 : TBits_1; inline;
  66884. begin
  66885. getCNPUE17 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  66886. end;
  66887. procedure TPORTG_CNPUE.setCNPUE18; inline;
  66888. begin
  66889. pTDefRegMap(@Self)^.&set := $00040000;
  66890. end;
  66891. procedure TPORTG_CNPUE.clearCNPUE18; inline;
  66892. begin
  66893. pTDefRegMap(@Self)^.clr := $00040000;
  66894. end;
  66895. procedure TPORTG_CNPUE.setCNPUE18(thebits : TBits_1); inline;
  66896. begin
  66897. if thebits = 0 then
  66898. pTDefRegMap(@Self)^.clr := $00040000
  66899. else
  66900. pTDefRegMap(@Self)^.&set := $00040000;
  66901. end;
  66902. function TPORTG_CNPUE.getCNPUE18 : TBits_1; inline;
  66903. begin
  66904. getCNPUE18 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  66905. end;
  66906. procedure TPORTG_CNPUE.setCNPUE19; inline;
  66907. begin
  66908. pTDefRegMap(@Self)^.&set := $00080000;
  66909. end;
  66910. procedure TPORTG_CNPUE.clearCNPUE19; inline;
  66911. begin
  66912. pTDefRegMap(@Self)^.clr := $00080000;
  66913. end;
  66914. procedure TPORTG_CNPUE.setCNPUE19(thebits : TBits_1); inline;
  66915. begin
  66916. if thebits = 0 then
  66917. pTDefRegMap(@Self)^.clr := $00080000
  66918. else
  66919. pTDefRegMap(@Self)^.&set := $00080000;
  66920. end;
  66921. function TPORTG_CNPUE.getCNPUE19 : TBits_1; inline;
  66922. begin
  66923. getCNPUE19 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  66924. end;
  66925. procedure TPORTG_CNPUE.setCNPUE20; inline;
  66926. begin
  66927. pTDefRegMap(@Self)^.&set := $00100000;
  66928. end;
  66929. procedure TPORTG_CNPUE.clearCNPUE20; inline;
  66930. begin
  66931. pTDefRegMap(@Self)^.clr := $00100000;
  66932. end;
  66933. procedure TPORTG_CNPUE.setCNPUE20(thebits : TBits_1); inline;
  66934. begin
  66935. if thebits = 0 then
  66936. pTDefRegMap(@Self)^.clr := $00100000
  66937. else
  66938. pTDefRegMap(@Self)^.&set := $00100000;
  66939. end;
  66940. function TPORTG_CNPUE.getCNPUE20 : TBits_1; inline;
  66941. begin
  66942. getCNPUE20 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  66943. end;
  66944. procedure TPORTG_CNPUE.setCNPUE21; inline;
  66945. begin
  66946. pTDefRegMap(@Self)^.&set := $00200000;
  66947. end;
  66948. procedure TPORTG_CNPUE.clearCNPUE21; inline;
  66949. begin
  66950. pTDefRegMap(@Self)^.clr := $00200000;
  66951. end;
  66952. procedure TPORTG_CNPUE.setCNPUE21(thebits : TBits_1); inline;
  66953. begin
  66954. if thebits = 0 then
  66955. pTDefRegMap(@Self)^.clr := $00200000
  66956. else
  66957. pTDefRegMap(@Self)^.&set := $00200000;
  66958. end;
  66959. function TPORTG_CNPUE.getCNPUE21 : TBits_1; inline;
  66960. begin
  66961. getCNPUE21 := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  66962. end;
  66963. procedure TPORTG_CNPUE.setw(thebits : TBits_32); inline;
  66964. begin
  66965. pTDefRegMap(@Self)^.val := thebits;
  66966. end;
  66967. function TPORTG_CNPUE.getw : TBits_32; inline;
  66968. begin
  66969. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  66970. end;
  66971. procedure TETH_ETHCON1.setBUFCDEC; inline;
  66972. begin
  66973. pTDefRegMap(@Self)^.&set := $00000001;
  66974. end;
  66975. procedure TETH_ETHCON1.clearBUFCDEC; inline;
  66976. begin
  66977. pTDefRegMap(@Self)^.clr := $00000001;
  66978. end;
  66979. procedure TETH_ETHCON1.setBUFCDEC(thebits : TBits_1); inline;
  66980. begin
  66981. if thebits = 0 then
  66982. pTDefRegMap(@Self)^.clr := $00000001
  66983. else
  66984. pTDefRegMap(@Self)^.&set := $00000001;
  66985. end;
  66986. function TETH_ETHCON1.getBUFCDEC : TBits_1; inline;
  66987. begin
  66988. getBUFCDEC := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  66989. end;
  66990. procedure TETH_ETHCON1.setMANFC; inline;
  66991. begin
  66992. pTDefRegMap(@Self)^.&set := $00000010;
  66993. end;
  66994. procedure TETH_ETHCON1.clearMANFC; inline;
  66995. begin
  66996. pTDefRegMap(@Self)^.clr := $00000010;
  66997. end;
  66998. procedure TETH_ETHCON1.setMANFC(thebits : TBits_1); inline;
  66999. begin
  67000. if thebits = 0 then
  67001. pTDefRegMap(@Self)^.clr := $00000010
  67002. else
  67003. pTDefRegMap(@Self)^.&set := $00000010;
  67004. end;
  67005. function TETH_ETHCON1.getMANFC : TBits_1; inline;
  67006. begin
  67007. getMANFC := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  67008. end;
  67009. procedure TETH_ETHCON1.setAUTOFC; inline;
  67010. begin
  67011. pTDefRegMap(@Self)^.&set := $00000080;
  67012. end;
  67013. procedure TETH_ETHCON1.clearAUTOFC; inline;
  67014. begin
  67015. pTDefRegMap(@Self)^.clr := $00000080;
  67016. end;
  67017. procedure TETH_ETHCON1.setAUTOFC(thebits : TBits_1); inline;
  67018. begin
  67019. if thebits = 0 then
  67020. pTDefRegMap(@Self)^.clr := $00000080
  67021. else
  67022. pTDefRegMap(@Self)^.&set := $00000080;
  67023. end;
  67024. function TETH_ETHCON1.getAUTOFC : TBits_1; inline;
  67025. begin
  67026. getAUTOFC := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  67027. end;
  67028. procedure TETH_ETHCON1.setRXEN; inline;
  67029. begin
  67030. pTDefRegMap(@Self)^.&set := $00000100;
  67031. end;
  67032. procedure TETH_ETHCON1.clearRXEN; inline;
  67033. begin
  67034. pTDefRegMap(@Self)^.clr := $00000100;
  67035. end;
  67036. procedure TETH_ETHCON1.setRXEN(thebits : TBits_1); inline;
  67037. begin
  67038. if thebits = 0 then
  67039. pTDefRegMap(@Self)^.clr := $00000100
  67040. else
  67041. pTDefRegMap(@Self)^.&set := $00000100;
  67042. end;
  67043. function TETH_ETHCON1.getRXEN : TBits_1; inline;
  67044. begin
  67045. getRXEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  67046. end;
  67047. procedure TETH_ETHCON1.setTXRTS; inline;
  67048. begin
  67049. pTDefRegMap(@Self)^.&set := $00000200;
  67050. end;
  67051. procedure TETH_ETHCON1.clearTXRTS; inline;
  67052. begin
  67053. pTDefRegMap(@Self)^.clr := $00000200;
  67054. end;
  67055. procedure TETH_ETHCON1.setTXRTS(thebits : TBits_1); inline;
  67056. begin
  67057. if thebits = 0 then
  67058. pTDefRegMap(@Self)^.clr := $00000200
  67059. else
  67060. pTDefRegMap(@Self)^.&set := $00000200;
  67061. end;
  67062. function TETH_ETHCON1.getTXRTS : TBits_1; inline;
  67063. begin
  67064. getTXRTS := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  67065. end;
  67066. procedure TETH_ETHCON1.setSIDL; inline;
  67067. begin
  67068. pTDefRegMap(@Self)^.&set := $00002000;
  67069. end;
  67070. procedure TETH_ETHCON1.clearSIDL; inline;
  67071. begin
  67072. pTDefRegMap(@Self)^.clr := $00002000;
  67073. end;
  67074. procedure TETH_ETHCON1.setSIDL(thebits : TBits_1); inline;
  67075. begin
  67076. if thebits = 0 then
  67077. pTDefRegMap(@Self)^.clr := $00002000
  67078. else
  67079. pTDefRegMap(@Self)^.&set := $00002000;
  67080. end;
  67081. function TETH_ETHCON1.getSIDL : TBits_1; inline;
  67082. begin
  67083. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  67084. end;
  67085. procedure TETH_ETHCON1.setON; inline;
  67086. begin
  67087. pTDefRegMap(@Self)^.&set := $00008000;
  67088. end;
  67089. procedure TETH_ETHCON1.clearON; inline;
  67090. begin
  67091. pTDefRegMap(@Self)^.clr := $00008000;
  67092. end;
  67093. procedure TETH_ETHCON1.setON(thebits : TBits_1); inline;
  67094. begin
  67095. if thebits = 0 then
  67096. pTDefRegMap(@Self)^.clr := $00008000
  67097. else
  67098. pTDefRegMap(@Self)^.&set := $00008000;
  67099. end;
  67100. function TETH_ETHCON1.getON : TBits_1; inline;
  67101. begin
  67102. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  67103. end;
  67104. procedure TETH_ETHCON1.setPTV(thebits : TBits_16); inline;
  67105. begin
  67106. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0000FFFF or ( thebits shl 16 );
  67107. end;
  67108. function TETH_ETHCON1.getPTV : TBits_16; inline;
  67109. begin
  67110. getPTV := (pTDefRegMap(@Self)^.val and $FFFF0000) shr 16;
  67111. end;
  67112. procedure TETH_ETHCON1.setw(thebits : TBits_32); inline;
  67113. begin
  67114. pTDefRegMap(@Self)^.val := thebits;
  67115. end;
  67116. function TETH_ETHCON1.getw : TBits_32; inline;
  67117. begin
  67118. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67119. end;
  67120. procedure TETH_ETHCON2.setRXBUF_SZ(thebits : TBits_7); inline;
  67121. begin
  67122. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF80F or ( thebits shl 4 );
  67123. end;
  67124. function TETH_ETHCON2.getRXBUF_SZ : TBits_7; inline;
  67125. begin
  67126. getRXBUF_SZ := (pTDefRegMap(@Self)^.val and $000007F0) shr 4;
  67127. end;
  67128. procedure TETH_ETHCON2.setw(thebits : TBits_32); inline;
  67129. begin
  67130. pTDefRegMap(@Self)^.val := thebits;
  67131. end;
  67132. function TETH_ETHCON2.getw : TBits_32; inline;
  67133. begin
  67134. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67135. end;
  67136. procedure TETH_ETHTXST.setTXSTADDR(thebits : TBits_30); inline;
  67137. begin
  67138. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $00000003 or ( thebits shl 2 );
  67139. end;
  67140. function TETH_ETHTXST.getTXSTADDR : TBits_30; inline;
  67141. begin
  67142. getTXSTADDR := (pTDefRegMap(@Self)^.val and $FFFFFFFC) shr 2;
  67143. end;
  67144. procedure TETH_ETHTXST.setw(thebits : TBits_32); inline;
  67145. begin
  67146. pTDefRegMap(@Self)^.val := thebits;
  67147. end;
  67148. function TETH_ETHTXST.getw : TBits_32; inline;
  67149. begin
  67150. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67151. end;
  67152. procedure TETH_ETHRXST.setRXSTADDR(thebits : TBits_30); inline;
  67153. begin
  67154. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $00000003 or ( thebits shl 2 );
  67155. end;
  67156. function TETH_ETHRXST.getRXSTADDR : TBits_30; inline;
  67157. begin
  67158. getRXSTADDR := (pTDefRegMap(@Self)^.val and $FFFFFFFC) shr 2;
  67159. end;
  67160. procedure TETH_ETHRXST.setw(thebits : TBits_32); inline;
  67161. begin
  67162. pTDefRegMap(@Self)^.val := thebits;
  67163. end;
  67164. function TETH_ETHRXST.getw : TBits_32; inline;
  67165. begin
  67166. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67167. end;
  67168. procedure TETH_ETHHT0.setw(thebits : TBits_32); inline;
  67169. begin
  67170. pTDefRegMap(@Self)^.val := thebits;
  67171. end;
  67172. function TETH_ETHHT0.getw : TBits_32; inline;
  67173. begin
  67174. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67175. end;
  67176. procedure TETH_ETHHT0.setHTLOWER(thebits : TBits_32); inline;
  67177. begin
  67178. pTDefRegMap(@Self)^.val := thebits;
  67179. end;
  67180. function TETH_ETHHT0.getHTLOWER : TBits_32; inline;
  67181. begin
  67182. getHTLOWER := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67183. end;
  67184. procedure TETH_ETHHT1.setw(thebits : TBits_32); inline;
  67185. begin
  67186. pTDefRegMap(@Self)^.val := thebits;
  67187. end;
  67188. function TETH_ETHHT1.getw : TBits_32; inline;
  67189. begin
  67190. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67191. end;
  67192. procedure TETH_ETHHT1.setHTUPPER(thebits : TBits_32); inline;
  67193. begin
  67194. pTDefRegMap(@Self)^.val := thebits;
  67195. end;
  67196. function TETH_ETHHT1.getHTUPPER : TBits_32; inline;
  67197. begin
  67198. getHTUPPER := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67199. end;
  67200. procedure TETH_ETHPMM0.setw(thebits : TBits_32); inline;
  67201. begin
  67202. pTDefRegMap(@Self)^.val := thebits;
  67203. end;
  67204. function TETH_ETHPMM0.getw : TBits_32; inline;
  67205. begin
  67206. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67207. end;
  67208. procedure TETH_ETHPMM0.setPMMLOWER(thebits : TBits_32); inline;
  67209. begin
  67210. pTDefRegMap(@Self)^.val := thebits;
  67211. end;
  67212. function TETH_ETHPMM0.getPMMLOWER : TBits_32; inline;
  67213. begin
  67214. getPMMLOWER := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67215. end;
  67216. procedure TETH_ETHPMM1.setw(thebits : TBits_32); inline;
  67217. begin
  67218. pTDefRegMap(@Self)^.val := thebits;
  67219. end;
  67220. function TETH_ETHPMM1.getw : TBits_32; inline;
  67221. begin
  67222. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67223. end;
  67224. procedure TETH_ETHPMM1.setPMMUPPER(thebits : TBits_32); inline;
  67225. begin
  67226. pTDefRegMap(@Self)^.val := thebits;
  67227. end;
  67228. function TETH_ETHPMM1.getPMMUPPER : TBits_32; inline;
  67229. begin
  67230. getPMMUPPER := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67231. end;
  67232. procedure TETH_ETHPMCS.setPMCS(thebits : TBits_16); inline;
  67233. begin
  67234. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  67235. end;
  67236. function TETH_ETHPMCS.getPMCS : TBits_16; inline;
  67237. begin
  67238. getPMCS := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  67239. end;
  67240. procedure TETH_ETHPMCS.setw(thebits : TBits_32); inline;
  67241. begin
  67242. pTDefRegMap(@Self)^.val := thebits;
  67243. end;
  67244. function TETH_ETHPMCS.getw : TBits_32; inline;
  67245. begin
  67246. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67247. end;
  67248. procedure TETH_ETHPMO.setPMO(thebits : TBits_16); inline;
  67249. begin
  67250. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  67251. end;
  67252. function TETH_ETHPMO.getPMO : TBits_16; inline;
  67253. begin
  67254. getPMO := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  67255. end;
  67256. procedure TETH_ETHPMO.setw(thebits : TBits_32); inline;
  67257. begin
  67258. pTDefRegMap(@Self)^.val := thebits;
  67259. end;
  67260. function TETH_ETHPMO.getw : TBits_32; inline;
  67261. begin
  67262. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67263. end;
  67264. procedure TETH_ETHRXFC.setBCEN; inline;
  67265. begin
  67266. pTDefRegMap(@Self)^.&set := $00000001;
  67267. end;
  67268. procedure TETH_ETHRXFC.clearBCEN; inline;
  67269. begin
  67270. pTDefRegMap(@Self)^.clr := $00000001;
  67271. end;
  67272. procedure TETH_ETHRXFC.setBCEN(thebits : TBits_1); inline;
  67273. begin
  67274. if thebits = 0 then
  67275. pTDefRegMap(@Self)^.clr := $00000001
  67276. else
  67277. pTDefRegMap(@Self)^.&set := $00000001;
  67278. end;
  67279. function TETH_ETHRXFC.getBCEN : TBits_1; inline;
  67280. begin
  67281. getBCEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  67282. end;
  67283. procedure TETH_ETHRXFC.setMCEN; inline;
  67284. begin
  67285. pTDefRegMap(@Self)^.&set := $00000002;
  67286. end;
  67287. procedure TETH_ETHRXFC.clearMCEN; inline;
  67288. begin
  67289. pTDefRegMap(@Self)^.clr := $00000002;
  67290. end;
  67291. procedure TETH_ETHRXFC.setMCEN(thebits : TBits_1); inline;
  67292. begin
  67293. if thebits = 0 then
  67294. pTDefRegMap(@Self)^.clr := $00000002
  67295. else
  67296. pTDefRegMap(@Self)^.&set := $00000002;
  67297. end;
  67298. function TETH_ETHRXFC.getMCEN : TBits_1; inline;
  67299. begin
  67300. getMCEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  67301. end;
  67302. procedure TETH_ETHRXFC.setNOTMEEN; inline;
  67303. begin
  67304. pTDefRegMap(@Self)^.&set := $00000004;
  67305. end;
  67306. procedure TETH_ETHRXFC.clearNOTMEEN; inline;
  67307. begin
  67308. pTDefRegMap(@Self)^.clr := $00000004;
  67309. end;
  67310. procedure TETH_ETHRXFC.setNOTMEEN(thebits : TBits_1); inline;
  67311. begin
  67312. if thebits = 0 then
  67313. pTDefRegMap(@Self)^.clr := $00000004
  67314. else
  67315. pTDefRegMap(@Self)^.&set := $00000004;
  67316. end;
  67317. function TETH_ETHRXFC.getNOTMEEN : TBits_1; inline;
  67318. begin
  67319. getNOTMEEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  67320. end;
  67321. procedure TETH_ETHRXFC.setUCEN; inline;
  67322. begin
  67323. pTDefRegMap(@Self)^.&set := $00000008;
  67324. end;
  67325. procedure TETH_ETHRXFC.clearUCEN; inline;
  67326. begin
  67327. pTDefRegMap(@Self)^.clr := $00000008;
  67328. end;
  67329. procedure TETH_ETHRXFC.setUCEN(thebits : TBits_1); inline;
  67330. begin
  67331. if thebits = 0 then
  67332. pTDefRegMap(@Self)^.clr := $00000008
  67333. else
  67334. pTDefRegMap(@Self)^.&set := $00000008;
  67335. end;
  67336. function TETH_ETHRXFC.getUCEN : TBits_1; inline;
  67337. begin
  67338. getUCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  67339. end;
  67340. procedure TETH_ETHRXFC.setRUNTEN; inline;
  67341. begin
  67342. pTDefRegMap(@Self)^.&set := $00000010;
  67343. end;
  67344. procedure TETH_ETHRXFC.clearRUNTEN; inline;
  67345. begin
  67346. pTDefRegMap(@Self)^.clr := $00000010;
  67347. end;
  67348. procedure TETH_ETHRXFC.setRUNTEN(thebits : TBits_1); inline;
  67349. begin
  67350. if thebits = 0 then
  67351. pTDefRegMap(@Self)^.clr := $00000010
  67352. else
  67353. pTDefRegMap(@Self)^.&set := $00000010;
  67354. end;
  67355. function TETH_ETHRXFC.getRUNTEN : TBits_1; inline;
  67356. begin
  67357. getRUNTEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  67358. end;
  67359. procedure TETH_ETHRXFC.setRUNTERREN; inline;
  67360. begin
  67361. pTDefRegMap(@Self)^.&set := $00000020;
  67362. end;
  67363. procedure TETH_ETHRXFC.clearRUNTERREN; inline;
  67364. begin
  67365. pTDefRegMap(@Self)^.clr := $00000020;
  67366. end;
  67367. procedure TETH_ETHRXFC.setRUNTERREN(thebits : TBits_1); inline;
  67368. begin
  67369. if thebits = 0 then
  67370. pTDefRegMap(@Self)^.clr := $00000020
  67371. else
  67372. pTDefRegMap(@Self)^.&set := $00000020;
  67373. end;
  67374. function TETH_ETHRXFC.getRUNTERREN : TBits_1; inline;
  67375. begin
  67376. getRUNTERREN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  67377. end;
  67378. procedure TETH_ETHRXFC.setCRCOKEN; inline;
  67379. begin
  67380. pTDefRegMap(@Self)^.&set := $00000040;
  67381. end;
  67382. procedure TETH_ETHRXFC.clearCRCOKEN; inline;
  67383. begin
  67384. pTDefRegMap(@Self)^.clr := $00000040;
  67385. end;
  67386. procedure TETH_ETHRXFC.setCRCOKEN(thebits : TBits_1); inline;
  67387. begin
  67388. if thebits = 0 then
  67389. pTDefRegMap(@Self)^.clr := $00000040
  67390. else
  67391. pTDefRegMap(@Self)^.&set := $00000040;
  67392. end;
  67393. function TETH_ETHRXFC.getCRCOKEN : TBits_1; inline;
  67394. begin
  67395. getCRCOKEN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  67396. end;
  67397. procedure TETH_ETHRXFC.setCRCERREN; inline;
  67398. begin
  67399. pTDefRegMap(@Self)^.&set := $00000080;
  67400. end;
  67401. procedure TETH_ETHRXFC.clearCRCERREN; inline;
  67402. begin
  67403. pTDefRegMap(@Self)^.clr := $00000080;
  67404. end;
  67405. procedure TETH_ETHRXFC.setCRCERREN(thebits : TBits_1); inline;
  67406. begin
  67407. if thebits = 0 then
  67408. pTDefRegMap(@Self)^.clr := $00000080
  67409. else
  67410. pTDefRegMap(@Self)^.&set := $00000080;
  67411. end;
  67412. function TETH_ETHRXFC.getCRCERREN : TBits_1; inline;
  67413. begin
  67414. getCRCERREN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  67415. end;
  67416. procedure TETH_ETHRXFC.setPMMODE(thebits : TBits_4); inline;
  67417. begin
  67418. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  67419. end;
  67420. function TETH_ETHRXFC.getPMMODE : TBits_4; inline;
  67421. begin
  67422. getPMMODE := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  67423. end;
  67424. procedure TETH_ETHRXFC.setNOTPM; inline;
  67425. begin
  67426. pTDefRegMap(@Self)^.&set := $00001000;
  67427. end;
  67428. procedure TETH_ETHRXFC.clearNOTPM; inline;
  67429. begin
  67430. pTDefRegMap(@Self)^.clr := $00001000;
  67431. end;
  67432. procedure TETH_ETHRXFC.setNOTPM(thebits : TBits_1); inline;
  67433. begin
  67434. if thebits = 0 then
  67435. pTDefRegMap(@Self)^.clr := $00001000
  67436. else
  67437. pTDefRegMap(@Self)^.&set := $00001000;
  67438. end;
  67439. function TETH_ETHRXFC.getNOTPM : TBits_1; inline;
  67440. begin
  67441. getNOTPM := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  67442. end;
  67443. procedure TETH_ETHRXFC.setMPEN; inline;
  67444. begin
  67445. pTDefRegMap(@Self)^.&set := $00004000;
  67446. end;
  67447. procedure TETH_ETHRXFC.clearMPEN; inline;
  67448. begin
  67449. pTDefRegMap(@Self)^.clr := $00004000;
  67450. end;
  67451. procedure TETH_ETHRXFC.setMPEN(thebits : TBits_1); inline;
  67452. begin
  67453. if thebits = 0 then
  67454. pTDefRegMap(@Self)^.clr := $00004000
  67455. else
  67456. pTDefRegMap(@Self)^.&set := $00004000;
  67457. end;
  67458. function TETH_ETHRXFC.getMPEN : TBits_1; inline;
  67459. begin
  67460. getMPEN := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  67461. end;
  67462. procedure TETH_ETHRXFC.setHTEN; inline;
  67463. begin
  67464. pTDefRegMap(@Self)^.&set := $00008000;
  67465. end;
  67466. procedure TETH_ETHRXFC.clearHTEN; inline;
  67467. begin
  67468. pTDefRegMap(@Self)^.clr := $00008000;
  67469. end;
  67470. procedure TETH_ETHRXFC.setHTEN(thebits : TBits_1); inline;
  67471. begin
  67472. if thebits = 0 then
  67473. pTDefRegMap(@Self)^.clr := $00008000
  67474. else
  67475. pTDefRegMap(@Self)^.&set := $00008000;
  67476. end;
  67477. function TETH_ETHRXFC.getHTEN : TBits_1; inline;
  67478. begin
  67479. getHTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  67480. end;
  67481. procedure TETH_ETHRXFC.setw(thebits : TBits_32); inline;
  67482. begin
  67483. pTDefRegMap(@Self)^.val := thebits;
  67484. end;
  67485. function TETH_ETHRXFC.getw : TBits_32; inline;
  67486. begin
  67487. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67488. end;
  67489. procedure TETH_ETHRXWM.setRXEWM(thebits : TBits_8); inline;
  67490. begin
  67491. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  67492. end;
  67493. function TETH_ETHRXWM.getRXEWM : TBits_8; inline;
  67494. begin
  67495. getRXEWM := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  67496. end;
  67497. procedure TETH_ETHRXWM.setRXFWM(thebits : TBits_8); inline;
  67498. begin
  67499. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  67500. end;
  67501. function TETH_ETHRXWM.getRXFWM : TBits_8; inline;
  67502. begin
  67503. getRXFWM := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  67504. end;
  67505. procedure TETH_ETHRXWM.setw(thebits : TBits_32); inline;
  67506. begin
  67507. pTDefRegMap(@Self)^.val := thebits;
  67508. end;
  67509. function TETH_ETHRXWM.getw : TBits_32; inline;
  67510. begin
  67511. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67512. end;
  67513. procedure TETH_ETHIEN.setRXOVFLWIE; inline;
  67514. begin
  67515. pTDefRegMap(@Self)^.&set := $00000001;
  67516. end;
  67517. procedure TETH_ETHIEN.clearRXOVFLWIE; inline;
  67518. begin
  67519. pTDefRegMap(@Self)^.clr := $00000001;
  67520. end;
  67521. procedure TETH_ETHIEN.setRXOVFLWIE(thebits : TBits_1); inline;
  67522. begin
  67523. if thebits = 0 then
  67524. pTDefRegMap(@Self)^.clr := $00000001
  67525. else
  67526. pTDefRegMap(@Self)^.&set := $00000001;
  67527. end;
  67528. function TETH_ETHIEN.getRXOVFLWIE : TBits_1; inline;
  67529. begin
  67530. getRXOVFLWIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  67531. end;
  67532. procedure TETH_ETHIEN.setRXBUFNAIE; inline;
  67533. begin
  67534. pTDefRegMap(@Self)^.&set := $00000002;
  67535. end;
  67536. procedure TETH_ETHIEN.clearRXBUFNAIE; inline;
  67537. begin
  67538. pTDefRegMap(@Self)^.clr := $00000002;
  67539. end;
  67540. procedure TETH_ETHIEN.setRXBUFNAIE(thebits : TBits_1); inline;
  67541. begin
  67542. if thebits = 0 then
  67543. pTDefRegMap(@Self)^.clr := $00000002
  67544. else
  67545. pTDefRegMap(@Self)^.&set := $00000002;
  67546. end;
  67547. function TETH_ETHIEN.getRXBUFNAIE : TBits_1; inline;
  67548. begin
  67549. getRXBUFNAIE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  67550. end;
  67551. procedure TETH_ETHIEN.setTXABORTIE; inline;
  67552. begin
  67553. pTDefRegMap(@Self)^.&set := $00000004;
  67554. end;
  67555. procedure TETH_ETHIEN.clearTXABORTIE; inline;
  67556. begin
  67557. pTDefRegMap(@Self)^.clr := $00000004;
  67558. end;
  67559. procedure TETH_ETHIEN.setTXABORTIE(thebits : TBits_1); inline;
  67560. begin
  67561. if thebits = 0 then
  67562. pTDefRegMap(@Self)^.clr := $00000004
  67563. else
  67564. pTDefRegMap(@Self)^.&set := $00000004;
  67565. end;
  67566. function TETH_ETHIEN.getTXABORTIE : TBits_1; inline;
  67567. begin
  67568. getTXABORTIE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  67569. end;
  67570. procedure TETH_ETHIEN.setTXDONEIE; inline;
  67571. begin
  67572. pTDefRegMap(@Self)^.&set := $00000008;
  67573. end;
  67574. procedure TETH_ETHIEN.clearTXDONEIE; inline;
  67575. begin
  67576. pTDefRegMap(@Self)^.clr := $00000008;
  67577. end;
  67578. procedure TETH_ETHIEN.setTXDONEIE(thebits : TBits_1); inline;
  67579. begin
  67580. if thebits = 0 then
  67581. pTDefRegMap(@Self)^.clr := $00000008
  67582. else
  67583. pTDefRegMap(@Self)^.&set := $00000008;
  67584. end;
  67585. function TETH_ETHIEN.getTXDONEIE : TBits_1; inline;
  67586. begin
  67587. getTXDONEIE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  67588. end;
  67589. procedure TETH_ETHIEN.setRXACTIE; inline;
  67590. begin
  67591. pTDefRegMap(@Self)^.&set := $00000020;
  67592. end;
  67593. procedure TETH_ETHIEN.clearRXACTIE; inline;
  67594. begin
  67595. pTDefRegMap(@Self)^.clr := $00000020;
  67596. end;
  67597. procedure TETH_ETHIEN.setRXACTIE(thebits : TBits_1); inline;
  67598. begin
  67599. if thebits = 0 then
  67600. pTDefRegMap(@Self)^.clr := $00000020
  67601. else
  67602. pTDefRegMap(@Self)^.&set := $00000020;
  67603. end;
  67604. function TETH_ETHIEN.getRXACTIE : TBits_1; inline;
  67605. begin
  67606. getRXACTIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  67607. end;
  67608. procedure TETH_ETHIEN.setPKTPENDIE; inline;
  67609. begin
  67610. pTDefRegMap(@Self)^.&set := $00000040;
  67611. end;
  67612. procedure TETH_ETHIEN.clearPKTPENDIE; inline;
  67613. begin
  67614. pTDefRegMap(@Self)^.clr := $00000040;
  67615. end;
  67616. procedure TETH_ETHIEN.setPKTPENDIE(thebits : TBits_1); inline;
  67617. begin
  67618. if thebits = 0 then
  67619. pTDefRegMap(@Self)^.clr := $00000040
  67620. else
  67621. pTDefRegMap(@Self)^.&set := $00000040;
  67622. end;
  67623. function TETH_ETHIEN.getPKTPENDIE : TBits_1; inline;
  67624. begin
  67625. getPKTPENDIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  67626. end;
  67627. procedure TETH_ETHIEN.setRXDONEIE; inline;
  67628. begin
  67629. pTDefRegMap(@Self)^.&set := $00000080;
  67630. end;
  67631. procedure TETH_ETHIEN.clearRXDONEIE; inline;
  67632. begin
  67633. pTDefRegMap(@Self)^.clr := $00000080;
  67634. end;
  67635. procedure TETH_ETHIEN.setRXDONEIE(thebits : TBits_1); inline;
  67636. begin
  67637. if thebits = 0 then
  67638. pTDefRegMap(@Self)^.clr := $00000080
  67639. else
  67640. pTDefRegMap(@Self)^.&set := $00000080;
  67641. end;
  67642. function TETH_ETHIEN.getRXDONEIE : TBits_1; inline;
  67643. begin
  67644. getRXDONEIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  67645. end;
  67646. procedure TETH_ETHIEN.setFWMARKIE; inline;
  67647. begin
  67648. pTDefRegMap(@Self)^.&set := $00000100;
  67649. end;
  67650. procedure TETH_ETHIEN.clearFWMARKIE; inline;
  67651. begin
  67652. pTDefRegMap(@Self)^.clr := $00000100;
  67653. end;
  67654. procedure TETH_ETHIEN.setFWMARKIE(thebits : TBits_1); inline;
  67655. begin
  67656. if thebits = 0 then
  67657. pTDefRegMap(@Self)^.clr := $00000100
  67658. else
  67659. pTDefRegMap(@Self)^.&set := $00000100;
  67660. end;
  67661. function TETH_ETHIEN.getFWMARKIE : TBits_1; inline;
  67662. begin
  67663. getFWMARKIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  67664. end;
  67665. procedure TETH_ETHIEN.setEWMARKIE; inline;
  67666. begin
  67667. pTDefRegMap(@Self)^.&set := $00000200;
  67668. end;
  67669. procedure TETH_ETHIEN.clearEWMARKIE; inline;
  67670. begin
  67671. pTDefRegMap(@Self)^.clr := $00000200;
  67672. end;
  67673. procedure TETH_ETHIEN.setEWMARKIE(thebits : TBits_1); inline;
  67674. begin
  67675. if thebits = 0 then
  67676. pTDefRegMap(@Self)^.clr := $00000200
  67677. else
  67678. pTDefRegMap(@Self)^.&set := $00000200;
  67679. end;
  67680. function TETH_ETHIEN.getEWMARKIE : TBits_1; inline;
  67681. begin
  67682. getEWMARKIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  67683. end;
  67684. procedure TETH_ETHIEN.setRXBUSEIE; inline;
  67685. begin
  67686. pTDefRegMap(@Self)^.&set := $00002000;
  67687. end;
  67688. procedure TETH_ETHIEN.clearRXBUSEIE; inline;
  67689. begin
  67690. pTDefRegMap(@Self)^.clr := $00002000;
  67691. end;
  67692. procedure TETH_ETHIEN.setRXBUSEIE(thebits : TBits_1); inline;
  67693. begin
  67694. if thebits = 0 then
  67695. pTDefRegMap(@Self)^.clr := $00002000
  67696. else
  67697. pTDefRegMap(@Self)^.&set := $00002000;
  67698. end;
  67699. function TETH_ETHIEN.getRXBUSEIE : TBits_1; inline;
  67700. begin
  67701. getRXBUSEIE := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  67702. end;
  67703. procedure TETH_ETHIEN.setTXBUSEIE; inline;
  67704. begin
  67705. pTDefRegMap(@Self)^.&set := $00004000;
  67706. end;
  67707. procedure TETH_ETHIEN.clearTXBUSEIE; inline;
  67708. begin
  67709. pTDefRegMap(@Self)^.clr := $00004000;
  67710. end;
  67711. procedure TETH_ETHIEN.setTXBUSEIE(thebits : TBits_1); inline;
  67712. begin
  67713. if thebits = 0 then
  67714. pTDefRegMap(@Self)^.clr := $00004000
  67715. else
  67716. pTDefRegMap(@Self)^.&set := $00004000;
  67717. end;
  67718. function TETH_ETHIEN.getTXBUSEIE : TBits_1; inline;
  67719. begin
  67720. getTXBUSEIE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  67721. end;
  67722. procedure TETH_ETHIEN.setw(thebits : TBits_32); inline;
  67723. begin
  67724. pTDefRegMap(@Self)^.val := thebits;
  67725. end;
  67726. function TETH_ETHIEN.getw : TBits_32; inline;
  67727. begin
  67728. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67729. end;
  67730. procedure TETH_ETHIRQ.setRXOVFLW; inline;
  67731. begin
  67732. pTDefRegMap(@Self)^.&set := $00000001;
  67733. end;
  67734. procedure TETH_ETHIRQ.clearRXOVFLW; inline;
  67735. begin
  67736. pTDefRegMap(@Self)^.clr := $00000001;
  67737. end;
  67738. procedure TETH_ETHIRQ.setRXOVFLW(thebits : TBits_1); inline;
  67739. begin
  67740. if thebits = 0 then
  67741. pTDefRegMap(@Self)^.clr := $00000001
  67742. else
  67743. pTDefRegMap(@Self)^.&set := $00000001;
  67744. end;
  67745. function TETH_ETHIRQ.getRXOVFLW : TBits_1; inline;
  67746. begin
  67747. getRXOVFLW := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  67748. end;
  67749. procedure TETH_ETHIRQ.setRXBUFNA; inline;
  67750. begin
  67751. pTDefRegMap(@Self)^.&set := $00000002;
  67752. end;
  67753. procedure TETH_ETHIRQ.clearRXBUFNA; inline;
  67754. begin
  67755. pTDefRegMap(@Self)^.clr := $00000002;
  67756. end;
  67757. procedure TETH_ETHIRQ.setRXBUFNA(thebits : TBits_1); inline;
  67758. begin
  67759. if thebits = 0 then
  67760. pTDefRegMap(@Self)^.clr := $00000002
  67761. else
  67762. pTDefRegMap(@Self)^.&set := $00000002;
  67763. end;
  67764. function TETH_ETHIRQ.getRXBUFNA : TBits_1; inline;
  67765. begin
  67766. getRXBUFNA := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  67767. end;
  67768. procedure TETH_ETHIRQ.setTXABORT; inline;
  67769. begin
  67770. pTDefRegMap(@Self)^.&set := $00000004;
  67771. end;
  67772. procedure TETH_ETHIRQ.clearTXABORT; inline;
  67773. begin
  67774. pTDefRegMap(@Self)^.clr := $00000004;
  67775. end;
  67776. procedure TETH_ETHIRQ.setTXABORT(thebits : TBits_1); inline;
  67777. begin
  67778. if thebits = 0 then
  67779. pTDefRegMap(@Self)^.clr := $00000004
  67780. else
  67781. pTDefRegMap(@Self)^.&set := $00000004;
  67782. end;
  67783. function TETH_ETHIRQ.getTXABORT : TBits_1; inline;
  67784. begin
  67785. getTXABORT := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  67786. end;
  67787. procedure TETH_ETHIRQ.setTXDONE; inline;
  67788. begin
  67789. pTDefRegMap(@Self)^.&set := $00000008;
  67790. end;
  67791. procedure TETH_ETHIRQ.clearTXDONE; inline;
  67792. begin
  67793. pTDefRegMap(@Self)^.clr := $00000008;
  67794. end;
  67795. procedure TETH_ETHIRQ.setTXDONE(thebits : TBits_1); inline;
  67796. begin
  67797. if thebits = 0 then
  67798. pTDefRegMap(@Self)^.clr := $00000008
  67799. else
  67800. pTDefRegMap(@Self)^.&set := $00000008;
  67801. end;
  67802. function TETH_ETHIRQ.getTXDONE : TBits_1; inline;
  67803. begin
  67804. getTXDONE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  67805. end;
  67806. procedure TETH_ETHIRQ.setRXACT; inline;
  67807. begin
  67808. pTDefRegMap(@Self)^.&set := $00000020;
  67809. end;
  67810. procedure TETH_ETHIRQ.clearRXACT; inline;
  67811. begin
  67812. pTDefRegMap(@Self)^.clr := $00000020;
  67813. end;
  67814. procedure TETH_ETHIRQ.setRXACT(thebits : TBits_1); inline;
  67815. begin
  67816. if thebits = 0 then
  67817. pTDefRegMap(@Self)^.clr := $00000020
  67818. else
  67819. pTDefRegMap(@Self)^.&set := $00000020;
  67820. end;
  67821. function TETH_ETHIRQ.getRXACT : TBits_1; inline;
  67822. begin
  67823. getRXACT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  67824. end;
  67825. procedure TETH_ETHIRQ.setPKTPEND; inline;
  67826. begin
  67827. pTDefRegMap(@Self)^.&set := $00000040;
  67828. end;
  67829. procedure TETH_ETHIRQ.clearPKTPEND; inline;
  67830. begin
  67831. pTDefRegMap(@Self)^.clr := $00000040;
  67832. end;
  67833. procedure TETH_ETHIRQ.setPKTPEND(thebits : TBits_1); inline;
  67834. begin
  67835. if thebits = 0 then
  67836. pTDefRegMap(@Self)^.clr := $00000040
  67837. else
  67838. pTDefRegMap(@Self)^.&set := $00000040;
  67839. end;
  67840. function TETH_ETHIRQ.getPKTPEND : TBits_1; inline;
  67841. begin
  67842. getPKTPEND := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  67843. end;
  67844. procedure TETH_ETHIRQ.setRXDONE; inline;
  67845. begin
  67846. pTDefRegMap(@Self)^.&set := $00000080;
  67847. end;
  67848. procedure TETH_ETHIRQ.clearRXDONE; inline;
  67849. begin
  67850. pTDefRegMap(@Self)^.clr := $00000080;
  67851. end;
  67852. procedure TETH_ETHIRQ.setRXDONE(thebits : TBits_1); inline;
  67853. begin
  67854. if thebits = 0 then
  67855. pTDefRegMap(@Self)^.clr := $00000080
  67856. else
  67857. pTDefRegMap(@Self)^.&set := $00000080;
  67858. end;
  67859. function TETH_ETHIRQ.getRXDONE : TBits_1; inline;
  67860. begin
  67861. getRXDONE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  67862. end;
  67863. procedure TETH_ETHIRQ.setFWMARK; inline;
  67864. begin
  67865. pTDefRegMap(@Self)^.&set := $00000100;
  67866. end;
  67867. procedure TETH_ETHIRQ.clearFWMARK; inline;
  67868. begin
  67869. pTDefRegMap(@Self)^.clr := $00000100;
  67870. end;
  67871. procedure TETH_ETHIRQ.setFWMARK(thebits : TBits_1); inline;
  67872. begin
  67873. if thebits = 0 then
  67874. pTDefRegMap(@Self)^.clr := $00000100
  67875. else
  67876. pTDefRegMap(@Self)^.&set := $00000100;
  67877. end;
  67878. function TETH_ETHIRQ.getFWMARK : TBits_1; inline;
  67879. begin
  67880. getFWMARK := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  67881. end;
  67882. procedure TETH_ETHIRQ.setEWMARK; inline;
  67883. begin
  67884. pTDefRegMap(@Self)^.&set := $00000200;
  67885. end;
  67886. procedure TETH_ETHIRQ.clearEWMARK; inline;
  67887. begin
  67888. pTDefRegMap(@Self)^.clr := $00000200;
  67889. end;
  67890. procedure TETH_ETHIRQ.setEWMARK(thebits : TBits_1); inline;
  67891. begin
  67892. if thebits = 0 then
  67893. pTDefRegMap(@Self)^.clr := $00000200
  67894. else
  67895. pTDefRegMap(@Self)^.&set := $00000200;
  67896. end;
  67897. function TETH_ETHIRQ.getEWMARK : TBits_1; inline;
  67898. begin
  67899. getEWMARK := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  67900. end;
  67901. procedure TETH_ETHIRQ.setRXBUSE; inline;
  67902. begin
  67903. pTDefRegMap(@Self)^.&set := $00002000;
  67904. end;
  67905. procedure TETH_ETHIRQ.clearRXBUSE; inline;
  67906. begin
  67907. pTDefRegMap(@Self)^.clr := $00002000;
  67908. end;
  67909. procedure TETH_ETHIRQ.setRXBUSE(thebits : TBits_1); inline;
  67910. begin
  67911. if thebits = 0 then
  67912. pTDefRegMap(@Self)^.clr := $00002000
  67913. else
  67914. pTDefRegMap(@Self)^.&set := $00002000;
  67915. end;
  67916. function TETH_ETHIRQ.getRXBUSE : TBits_1; inline;
  67917. begin
  67918. getRXBUSE := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  67919. end;
  67920. procedure TETH_ETHIRQ.setTXBUSE; inline;
  67921. begin
  67922. pTDefRegMap(@Self)^.&set := $00004000;
  67923. end;
  67924. procedure TETH_ETHIRQ.clearTXBUSE; inline;
  67925. begin
  67926. pTDefRegMap(@Self)^.clr := $00004000;
  67927. end;
  67928. procedure TETH_ETHIRQ.setTXBUSE(thebits : TBits_1); inline;
  67929. begin
  67930. if thebits = 0 then
  67931. pTDefRegMap(@Self)^.clr := $00004000
  67932. else
  67933. pTDefRegMap(@Self)^.&set := $00004000;
  67934. end;
  67935. function TETH_ETHIRQ.getTXBUSE : TBits_1; inline;
  67936. begin
  67937. getTXBUSE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  67938. end;
  67939. procedure TETH_ETHIRQ.setw(thebits : TBits_32); inline;
  67940. begin
  67941. pTDefRegMap(@Self)^.val := thebits;
  67942. end;
  67943. function TETH_ETHIRQ.getw : TBits_32; inline;
  67944. begin
  67945. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67946. end;
  67947. procedure TETH_ETHSTAT.setRXBUSY; inline;
  67948. begin
  67949. pTDefRegMap(@Self)^.&set := $00000020;
  67950. end;
  67951. procedure TETH_ETHSTAT.clearRXBUSY; inline;
  67952. begin
  67953. pTDefRegMap(@Self)^.clr := $00000020;
  67954. end;
  67955. procedure TETH_ETHSTAT.setRXBUSY(thebits : TBits_1); inline;
  67956. begin
  67957. if thebits = 0 then
  67958. pTDefRegMap(@Self)^.clr := $00000020
  67959. else
  67960. pTDefRegMap(@Self)^.&set := $00000020;
  67961. end;
  67962. function TETH_ETHSTAT.getRXBUSY : TBits_1; inline;
  67963. begin
  67964. getRXBUSY := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  67965. end;
  67966. procedure TETH_ETHSTAT.setTXBUSY; inline;
  67967. begin
  67968. pTDefRegMap(@Self)^.&set := $00000040;
  67969. end;
  67970. procedure TETH_ETHSTAT.clearTXBUSY; inline;
  67971. begin
  67972. pTDefRegMap(@Self)^.clr := $00000040;
  67973. end;
  67974. procedure TETH_ETHSTAT.setTXBUSY(thebits : TBits_1); inline;
  67975. begin
  67976. if thebits = 0 then
  67977. pTDefRegMap(@Self)^.clr := $00000040
  67978. else
  67979. pTDefRegMap(@Self)^.&set := $00000040;
  67980. end;
  67981. function TETH_ETHSTAT.getTXBUSY : TBits_1; inline;
  67982. begin
  67983. getTXBUSY := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  67984. end;
  67985. procedure TETH_ETHSTAT.setBUSY; inline;
  67986. begin
  67987. pTDefRegMap(@Self)^.&set := $00000080;
  67988. end;
  67989. procedure TETH_ETHSTAT.clearBUSY; inline;
  67990. begin
  67991. pTDefRegMap(@Self)^.clr := $00000080;
  67992. end;
  67993. procedure TETH_ETHSTAT.setBUSY(thebits : TBits_1); inline;
  67994. begin
  67995. if thebits = 0 then
  67996. pTDefRegMap(@Self)^.clr := $00000080
  67997. else
  67998. pTDefRegMap(@Self)^.&set := $00000080;
  67999. end;
  68000. function TETH_ETHSTAT.getBUSY : TBits_1; inline;
  68001. begin
  68002. getBUSY := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  68003. end;
  68004. procedure TETH_ETHSTAT.setBUFCNT(thebits : TBits_8); inline;
  68005. begin
  68006. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  68007. end;
  68008. function TETH_ETHSTAT.getBUFCNT : TBits_8; inline;
  68009. begin
  68010. getBUFCNT := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  68011. end;
  68012. procedure TETH_ETHSTAT.setETHBUSY; inline;
  68013. begin
  68014. pTDefRegMap(@Self)^.&set := $00000080;
  68015. end;
  68016. procedure TETH_ETHSTAT.clearETHBUSY; inline;
  68017. begin
  68018. pTDefRegMap(@Self)^.clr := $00000080;
  68019. end;
  68020. procedure TETH_ETHSTAT.setETHBUSY(thebits : TBits_1); inline;
  68021. begin
  68022. if thebits = 0 then
  68023. pTDefRegMap(@Self)^.clr := $00000080
  68024. else
  68025. pTDefRegMap(@Self)^.&set := $00000080;
  68026. end;
  68027. function TETH_ETHSTAT.getETHBUSY : TBits_1; inline;
  68028. begin
  68029. getETHBUSY := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  68030. end;
  68031. procedure TETH_ETHSTAT.setw(thebits : TBits_32); inline;
  68032. begin
  68033. pTDefRegMap(@Self)^.val := thebits;
  68034. end;
  68035. function TETH_ETHSTAT.getw : TBits_32; inline;
  68036. begin
  68037. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68038. end;
  68039. procedure TETH_ETHRXOVFLOW.setRXOVFLWCNT(thebits : TBits_16); inline;
  68040. begin
  68041. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  68042. end;
  68043. function TETH_ETHRXOVFLOW.getRXOVFLWCNT : TBits_16; inline;
  68044. begin
  68045. getRXOVFLWCNT := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  68046. end;
  68047. procedure TETH_ETHRXOVFLOW.setw(thebits : TBits_32); inline;
  68048. begin
  68049. pTDefRegMap(@Self)^.val := thebits;
  68050. end;
  68051. function TETH_ETHRXOVFLOW.getw : TBits_32; inline;
  68052. begin
  68053. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68054. end;
  68055. procedure TETH_ETHFRMTXOK.setFRMTXOKCNT(thebits : TBits_16); inline;
  68056. begin
  68057. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  68058. end;
  68059. function TETH_ETHFRMTXOK.getFRMTXOKCNT : TBits_16; inline;
  68060. begin
  68061. getFRMTXOKCNT := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  68062. end;
  68063. procedure TETH_ETHFRMTXOK.setw(thebits : TBits_32); inline;
  68064. begin
  68065. pTDefRegMap(@Self)^.val := thebits;
  68066. end;
  68067. function TETH_ETHFRMTXOK.getw : TBits_32; inline;
  68068. begin
  68069. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68070. end;
  68071. procedure TETH_ETHSCOLFRM.setSCOLFRMCNT(thebits : TBits_16); inline;
  68072. begin
  68073. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  68074. end;
  68075. function TETH_ETHSCOLFRM.getSCOLFRMCNT : TBits_16; inline;
  68076. begin
  68077. getSCOLFRMCNT := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  68078. end;
  68079. procedure TETH_ETHSCOLFRM.setw(thebits : TBits_32); inline;
  68080. begin
  68081. pTDefRegMap(@Self)^.val := thebits;
  68082. end;
  68083. function TETH_ETHSCOLFRM.getw : TBits_32; inline;
  68084. begin
  68085. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68086. end;
  68087. procedure TETH_ETHMCOLFRM.setMCOLFRMCNT(thebits : TBits_16); inline;
  68088. begin
  68089. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  68090. end;
  68091. function TETH_ETHMCOLFRM.getMCOLFRMCNT : TBits_16; inline;
  68092. begin
  68093. getMCOLFRMCNT := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  68094. end;
  68095. procedure TETH_ETHMCOLFRM.setMCOLFRM_CNT(thebits : TBits_16); inline;
  68096. begin
  68097. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  68098. end;
  68099. function TETH_ETHMCOLFRM.getMCOLFRM_CNT : TBits_16; inline;
  68100. begin
  68101. getMCOLFRM_CNT := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  68102. end;
  68103. procedure TETH_ETHMCOLFRM.setw(thebits : TBits_32); inline;
  68104. begin
  68105. pTDefRegMap(@Self)^.val := thebits;
  68106. end;
  68107. function TETH_ETHMCOLFRM.getw : TBits_32; inline;
  68108. begin
  68109. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68110. end;
  68111. procedure TETH_ETHFRMRXOK.setFRMRXOKCNT(thebits : TBits_16); inline;
  68112. begin
  68113. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  68114. end;
  68115. function TETH_ETHFRMRXOK.getFRMRXOKCNT : TBits_16; inline;
  68116. begin
  68117. getFRMRXOKCNT := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  68118. end;
  68119. procedure TETH_ETHFRMRXOK.setw(thebits : TBits_32); inline;
  68120. begin
  68121. pTDefRegMap(@Self)^.val := thebits;
  68122. end;
  68123. function TETH_ETHFRMRXOK.getw : TBits_32; inline;
  68124. begin
  68125. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68126. end;
  68127. procedure TETH_ETHFCSERR.setFCSERRCNT(thebits : TBits_16); inline;
  68128. begin
  68129. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  68130. end;
  68131. function TETH_ETHFCSERR.getFCSERRCNT : TBits_16; inline;
  68132. begin
  68133. getFCSERRCNT := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  68134. end;
  68135. procedure TETH_ETHFCSERR.setw(thebits : TBits_32); inline;
  68136. begin
  68137. pTDefRegMap(@Self)^.val := thebits;
  68138. end;
  68139. function TETH_ETHFCSERR.getw : TBits_32; inline;
  68140. begin
  68141. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68142. end;
  68143. procedure TETH_ETHALGNERR.setALGNERRCNT(thebits : TBits_16); inline;
  68144. begin
  68145. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  68146. end;
  68147. function TETH_ETHALGNERR.getALGNERRCNT : TBits_16; inline;
  68148. begin
  68149. getALGNERRCNT := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  68150. end;
  68151. procedure TETH_ETHALGNERR.setw(thebits : TBits_32); inline;
  68152. begin
  68153. pTDefRegMap(@Self)^.val := thebits;
  68154. end;
  68155. function TETH_ETHALGNERR.getw : TBits_32; inline;
  68156. begin
  68157. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68158. end;
  68159. procedure TETH_EMAC1CFG1.setRXENABLE; inline;
  68160. begin
  68161. pTDefRegMap(@Self)^.&set := $00000001;
  68162. end;
  68163. procedure TETH_EMAC1CFG1.clearRXENABLE; inline;
  68164. begin
  68165. pTDefRegMap(@Self)^.clr := $00000001;
  68166. end;
  68167. procedure TETH_EMAC1CFG1.setRXENABLE(thebits : TBits_1); inline;
  68168. begin
  68169. if thebits = 0 then
  68170. pTDefRegMap(@Self)^.clr := $00000001
  68171. else
  68172. pTDefRegMap(@Self)^.&set := $00000001;
  68173. end;
  68174. function TETH_EMAC1CFG1.getRXENABLE : TBits_1; inline;
  68175. begin
  68176. getRXENABLE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  68177. end;
  68178. procedure TETH_EMAC1CFG1.setPASSALL; inline;
  68179. begin
  68180. pTDefRegMap(@Self)^.&set := $00000002;
  68181. end;
  68182. procedure TETH_EMAC1CFG1.clearPASSALL; inline;
  68183. begin
  68184. pTDefRegMap(@Self)^.clr := $00000002;
  68185. end;
  68186. procedure TETH_EMAC1CFG1.setPASSALL(thebits : TBits_1); inline;
  68187. begin
  68188. if thebits = 0 then
  68189. pTDefRegMap(@Self)^.clr := $00000002
  68190. else
  68191. pTDefRegMap(@Self)^.&set := $00000002;
  68192. end;
  68193. function TETH_EMAC1CFG1.getPASSALL : TBits_1; inline;
  68194. begin
  68195. getPASSALL := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  68196. end;
  68197. procedure TETH_EMAC1CFG1.setRXPAUSE; inline;
  68198. begin
  68199. pTDefRegMap(@Self)^.&set := $00000004;
  68200. end;
  68201. procedure TETH_EMAC1CFG1.clearRXPAUSE; inline;
  68202. begin
  68203. pTDefRegMap(@Self)^.clr := $00000004;
  68204. end;
  68205. procedure TETH_EMAC1CFG1.setRXPAUSE(thebits : TBits_1); inline;
  68206. begin
  68207. if thebits = 0 then
  68208. pTDefRegMap(@Self)^.clr := $00000004
  68209. else
  68210. pTDefRegMap(@Self)^.&set := $00000004;
  68211. end;
  68212. function TETH_EMAC1CFG1.getRXPAUSE : TBits_1; inline;
  68213. begin
  68214. getRXPAUSE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  68215. end;
  68216. procedure TETH_EMAC1CFG1.setTXPAUSE; inline;
  68217. begin
  68218. pTDefRegMap(@Self)^.&set := $00000008;
  68219. end;
  68220. procedure TETH_EMAC1CFG1.clearTXPAUSE; inline;
  68221. begin
  68222. pTDefRegMap(@Self)^.clr := $00000008;
  68223. end;
  68224. procedure TETH_EMAC1CFG1.setTXPAUSE(thebits : TBits_1); inline;
  68225. begin
  68226. if thebits = 0 then
  68227. pTDefRegMap(@Self)^.clr := $00000008
  68228. else
  68229. pTDefRegMap(@Self)^.&set := $00000008;
  68230. end;
  68231. function TETH_EMAC1CFG1.getTXPAUSE : TBits_1; inline;
  68232. begin
  68233. getTXPAUSE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  68234. end;
  68235. procedure TETH_EMAC1CFG1.setLOOPBACK; inline;
  68236. begin
  68237. pTDefRegMap(@Self)^.&set := $00000010;
  68238. end;
  68239. procedure TETH_EMAC1CFG1.clearLOOPBACK; inline;
  68240. begin
  68241. pTDefRegMap(@Self)^.clr := $00000010;
  68242. end;
  68243. procedure TETH_EMAC1CFG1.setLOOPBACK(thebits : TBits_1); inline;
  68244. begin
  68245. if thebits = 0 then
  68246. pTDefRegMap(@Self)^.clr := $00000010
  68247. else
  68248. pTDefRegMap(@Self)^.&set := $00000010;
  68249. end;
  68250. function TETH_EMAC1CFG1.getLOOPBACK : TBits_1; inline;
  68251. begin
  68252. getLOOPBACK := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  68253. end;
  68254. procedure TETH_EMAC1CFG1.setRESETTFUN; inline;
  68255. begin
  68256. pTDefRegMap(@Self)^.&set := $00000100;
  68257. end;
  68258. procedure TETH_EMAC1CFG1.clearRESETTFUN; inline;
  68259. begin
  68260. pTDefRegMap(@Self)^.clr := $00000100;
  68261. end;
  68262. procedure TETH_EMAC1CFG1.setRESETTFUN(thebits : TBits_1); inline;
  68263. begin
  68264. if thebits = 0 then
  68265. pTDefRegMap(@Self)^.clr := $00000100
  68266. else
  68267. pTDefRegMap(@Self)^.&set := $00000100;
  68268. end;
  68269. function TETH_EMAC1CFG1.getRESETTFUN : TBits_1; inline;
  68270. begin
  68271. getRESETTFUN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  68272. end;
  68273. procedure TETH_EMAC1CFG1.setRESETTMCS; inline;
  68274. begin
  68275. pTDefRegMap(@Self)^.&set := $00000200;
  68276. end;
  68277. procedure TETH_EMAC1CFG1.clearRESETTMCS; inline;
  68278. begin
  68279. pTDefRegMap(@Self)^.clr := $00000200;
  68280. end;
  68281. procedure TETH_EMAC1CFG1.setRESETTMCS(thebits : TBits_1); inline;
  68282. begin
  68283. if thebits = 0 then
  68284. pTDefRegMap(@Self)^.clr := $00000200
  68285. else
  68286. pTDefRegMap(@Self)^.&set := $00000200;
  68287. end;
  68288. function TETH_EMAC1CFG1.getRESETTMCS : TBits_1; inline;
  68289. begin
  68290. getRESETTMCS := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  68291. end;
  68292. procedure TETH_EMAC1CFG1.setRESETRFUN; inline;
  68293. begin
  68294. pTDefRegMap(@Self)^.&set := $00000400;
  68295. end;
  68296. procedure TETH_EMAC1CFG1.clearRESETRFUN; inline;
  68297. begin
  68298. pTDefRegMap(@Self)^.clr := $00000400;
  68299. end;
  68300. procedure TETH_EMAC1CFG1.setRESETRFUN(thebits : TBits_1); inline;
  68301. begin
  68302. if thebits = 0 then
  68303. pTDefRegMap(@Self)^.clr := $00000400
  68304. else
  68305. pTDefRegMap(@Self)^.&set := $00000400;
  68306. end;
  68307. function TETH_EMAC1CFG1.getRESETRFUN : TBits_1; inline;
  68308. begin
  68309. getRESETRFUN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  68310. end;
  68311. procedure TETH_EMAC1CFG1.setRESETRMCS; inline;
  68312. begin
  68313. pTDefRegMap(@Self)^.&set := $00000800;
  68314. end;
  68315. procedure TETH_EMAC1CFG1.clearRESETRMCS; inline;
  68316. begin
  68317. pTDefRegMap(@Self)^.clr := $00000800;
  68318. end;
  68319. procedure TETH_EMAC1CFG1.setRESETRMCS(thebits : TBits_1); inline;
  68320. begin
  68321. if thebits = 0 then
  68322. pTDefRegMap(@Self)^.clr := $00000800
  68323. else
  68324. pTDefRegMap(@Self)^.&set := $00000800;
  68325. end;
  68326. function TETH_EMAC1CFG1.getRESETRMCS : TBits_1; inline;
  68327. begin
  68328. getRESETRMCS := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  68329. end;
  68330. procedure TETH_EMAC1CFG1.setSIMRESET; inline;
  68331. begin
  68332. pTDefRegMap(@Self)^.&set := $00004000;
  68333. end;
  68334. procedure TETH_EMAC1CFG1.clearSIMRESET; inline;
  68335. begin
  68336. pTDefRegMap(@Self)^.clr := $00004000;
  68337. end;
  68338. procedure TETH_EMAC1CFG1.setSIMRESET(thebits : TBits_1); inline;
  68339. begin
  68340. if thebits = 0 then
  68341. pTDefRegMap(@Self)^.clr := $00004000
  68342. else
  68343. pTDefRegMap(@Self)^.&set := $00004000;
  68344. end;
  68345. function TETH_EMAC1CFG1.getSIMRESET : TBits_1; inline;
  68346. begin
  68347. getSIMRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  68348. end;
  68349. procedure TETH_EMAC1CFG1.setSOFTRESET; inline;
  68350. begin
  68351. pTDefRegMap(@Self)^.&set := $00008000;
  68352. end;
  68353. procedure TETH_EMAC1CFG1.clearSOFTRESET; inline;
  68354. begin
  68355. pTDefRegMap(@Self)^.clr := $00008000;
  68356. end;
  68357. procedure TETH_EMAC1CFG1.setSOFTRESET(thebits : TBits_1); inline;
  68358. begin
  68359. if thebits = 0 then
  68360. pTDefRegMap(@Self)^.clr := $00008000
  68361. else
  68362. pTDefRegMap(@Self)^.&set := $00008000;
  68363. end;
  68364. function TETH_EMAC1CFG1.getSOFTRESET : TBits_1; inline;
  68365. begin
  68366. getSOFTRESET := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  68367. end;
  68368. procedure TETH_EMAC1CFG1.setw(thebits : TBits_32); inline;
  68369. begin
  68370. pTDefRegMap(@Self)^.val := thebits;
  68371. end;
  68372. function TETH_EMAC1CFG1.getw : TBits_32; inline;
  68373. begin
  68374. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68375. end;
  68376. procedure TETH_EMACxCFG1.setRXENABLE; inline;
  68377. begin
  68378. pTDefRegMap(@Self)^.&set := $00000001;
  68379. end;
  68380. procedure TETH_EMACxCFG1.clearRXENABLE; inline;
  68381. begin
  68382. pTDefRegMap(@Self)^.clr := $00000001;
  68383. end;
  68384. procedure TETH_EMACxCFG1.setRXENABLE(thebits : TBits_1); inline;
  68385. begin
  68386. if thebits = 0 then
  68387. pTDefRegMap(@Self)^.clr := $00000001
  68388. else
  68389. pTDefRegMap(@Self)^.&set := $00000001;
  68390. end;
  68391. function TETH_EMACxCFG1.getRXENABLE : TBits_1; inline;
  68392. begin
  68393. getRXENABLE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  68394. end;
  68395. procedure TETH_EMACxCFG1.setPASSALL; inline;
  68396. begin
  68397. pTDefRegMap(@Self)^.&set := $00000002;
  68398. end;
  68399. procedure TETH_EMACxCFG1.clearPASSALL; inline;
  68400. begin
  68401. pTDefRegMap(@Self)^.clr := $00000002;
  68402. end;
  68403. procedure TETH_EMACxCFG1.setPASSALL(thebits : TBits_1); inline;
  68404. begin
  68405. if thebits = 0 then
  68406. pTDefRegMap(@Self)^.clr := $00000002
  68407. else
  68408. pTDefRegMap(@Self)^.&set := $00000002;
  68409. end;
  68410. function TETH_EMACxCFG1.getPASSALL : TBits_1; inline;
  68411. begin
  68412. getPASSALL := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  68413. end;
  68414. procedure TETH_EMACxCFG1.setRXPAUSE; inline;
  68415. begin
  68416. pTDefRegMap(@Self)^.&set := $00000004;
  68417. end;
  68418. procedure TETH_EMACxCFG1.clearRXPAUSE; inline;
  68419. begin
  68420. pTDefRegMap(@Self)^.clr := $00000004;
  68421. end;
  68422. procedure TETH_EMACxCFG1.setRXPAUSE(thebits : TBits_1); inline;
  68423. begin
  68424. if thebits = 0 then
  68425. pTDefRegMap(@Self)^.clr := $00000004
  68426. else
  68427. pTDefRegMap(@Self)^.&set := $00000004;
  68428. end;
  68429. function TETH_EMACxCFG1.getRXPAUSE : TBits_1; inline;
  68430. begin
  68431. getRXPAUSE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  68432. end;
  68433. procedure TETH_EMACxCFG1.setTXPAUSE; inline;
  68434. begin
  68435. pTDefRegMap(@Self)^.&set := $00000008;
  68436. end;
  68437. procedure TETH_EMACxCFG1.clearTXPAUSE; inline;
  68438. begin
  68439. pTDefRegMap(@Self)^.clr := $00000008;
  68440. end;
  68441. procedure TETH_EMACxCFG1.setTXPAUSE(thebits : TBits_1); inline;
  68442. begin
  68443. if thebits = 0 then
  68444. pTDefRegMap(@Self)^.clr := $00000008
  68445. else
  68446. pTDefRegMap(@Self)^.&set := $00000008;
  68447. end;
  68448. function TETH_EMACxCFG1.getTXPAUSE : TBits_1; inline;
  68449. begin
  68450. getTXPAUSE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  68451. end;
  68452. procedure TETH_EMACxCFG1.setLOOPBACK; inline;
  68453. begin
  68454. pTDefRegMap(@Self)^.&set := $00000010;
  68455. end;
  68456. procedure TETH_EMACxCFG1.clearLOOPBACK; inline;
  68457. begin
  68458. pTDefRegMap(@Self)^.clr := $00000010;
  68459. end;
  68460. procedure TETH_EMACxCFG1.setLOOPBACK(thebits : TBits_1); inline;
  68461. begin
  68462. if thebits = 0 then
  68463. pTDefRegMap(@Self)^.clr := $00000010
  68464. else
  68465. pTDefRegMap(@Self)^.&set := $00000010;
  68466. end;
  68467. function TETH_EMACxCFG1.getLOOPBACK : TBits_1; inline;
  68468. begin
  68469. getLOOPBACK := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  68470. end;
  68471. procedure TETH_EMACxCFG1.setRESETTFUN; inline;
  68472. begin
  68473. pTDefRegMap(@Self)^.&set := $00000100;
  68474. end;
  68475. procedure TETH_EMACxCFG1.clearRESETTFUN; inline;
  68476. begin
  68477. pTDefRegMap(@Self)^.clr := $00000100;
  68478. end;
  68479. procedure TETH_EMACxCFG1.setRESETTFUN(thebits : TBits_1); inline;
  68480. begin
  68481. if thebits = 0 then
  68482. pTDefRegMap(@Self)^.clr := $00000100
  68483. else
  68484. pTDefRegMap(@Self)^.&set := $00000100;
  68485. end;
  68486. function TETH_EMACxCFG1.getRESETTFUN : TBits_1; inline;
  68487. begin
  68488. getRESETTFUN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  68489. end;
  68490. procedure TETH_EMACxCFG1.setRESETTMCS; inline;
  68491. begin
  68492. pTDefRegMap(@Self)^.&set := $00000200;
  68493. end;
  68494. procedure TETH_EMACxCFG1.clearRESETTMCS; inline;
  68495. begin
  68496. pTDefRegMap(@Self)^.clr := $00000200;
  68497. end;
  68498. procedure TETH_EMACxCFG1.setRESETTMCS(thebits : TBits_1); inline;
  68499. begin
  68500. if thebits = 0 then
  68501. pTDefRegMap(@Self)^.clr := $00000200
  68502. else
  68503. pTDefRegMap(@Self)^.&set := $00000200;
  68504. end;
  68505. function TETH_EMACxCFG1.getRESETTMCS : TBits_1; inline;
  68506. begin
  68507. getRESETTMCS := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  68508. end;
  68509. procedure TETH_EMACxCFG1.setRESETRFUN; inline;
  68510. begin
  68511. pTDefRegMap(@Self)^.&set := $00000400;
  68512. end;
  68513. procedure TETH_EMACxCFG1.clearRESETRFUN; inline;
  68514. begin
  68515. pTDefRegMap(@Self)^.clr := $00000400;
  68516. end;
  68517. procedure TETH_EMACxCFG1.setRESETRFUN(thebits : TBits_1); inline;
  68518. begin
  68519. if thebits = 0 then
  68520. pTDefRegMap(@Self)^.clr := $00000400
  68521. else
  68522. pTDefRegMap(@Self)^.&set := $00000400;
  68523. end;
  68524. function TETH_EMACxCFG1.getRESETRFUN : TBits_1; inline;
  68525. begin
  68526. getRESETRFUN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  68527. end;
  68528. procedure TETH_EMACxCFG1.setRESETRMCS; inline;
  68529. begin
  68530. pTDefRegMap(@Self)^.&set := $00000800;
  68531. end;
  68532. procedure TETH_EMACxCFG1.clearRESETRMCS; inline;
  68533. begin
  68534. pTDefRegMap(@Self)^.clr := $00000800;
  68535. end;
  68536. procedure TETH_EMACxCFG1.setRESETRMCS(thebits : TBits_1); inline;
  68537. begin
  68538. if thebits = 0 then
  68539. pTDefRegMap(@Self)^.clr := $00000800
  68540. else
  68541. pTDefRegMap(@Self)^.&set := $00000800;
  68542. end;
  68543. function TETH_EMACxCFG1.getRESETRMCS : TBits_1; inline;
  68544. begin
  68545. getRESETRMCS := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  68546. end;
  68547. procedure TETH_EMACxCFG1.setSIMRESET; inline;
  68548. begin
  68549. pTDefRegMap(@Self)^.&set := $00004000;
  68550. end;
  68551. procedure TETH_EMACxCFG1.clearSIMRESET; inline;
  68552. begin
  68553. pTDefRegMap(@Self)^.clr := $00004000;
  68554. end;
  68555. procedure TETH_EMACxCFG1.setSIMRESET(thebits : TBits_1); inline;
  68556. begin
  68557. if thebits = 0 then
  68558. pTDefRegMap(@Self)^.clr := $00004000
  68559. else
  68560. pTDefRegMap(@Self)^.&set := $00004000;
  68561. end;
  68562. function TETH_EMACxCFG1.getSIMRESET : TBits_1; inline;
  68563. begin
  68564. getSIMRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  68565. end;
  68566. procedure TETH_EMACxCFG1.setSOFTRESET; inline;
  68567. begin
  68568. pTDefRegMap(@Self)^.&set := $00008000;
  68569. end;
  68570. procedure TETH_EMACxCFG1.clearSOFTRESET; inline;
  68571. begin
  68572. pTDefRegMap(@Self)^.clr := $00008000;
  68573. end;
  68574. procedure TETH_EMACxCFG1.setSOFTRESET(thebits : TBits_1); inline;
  68575. begin
  68576. if thebits = 0 then
  68577. pTDefRegMap(@Self)^.clr := $00008000
  68578. else
  68579. pTDefRegMap(@Self)^.&set := $00008000;
  68580. end;
  68581. function TETH_EMACxCFG1.getSOFTRESET : TBits_1; inline;
  68582. begin
  68583. getSOFTRESET := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  68584. end;
  68585. procedure TETH_EMACxCFG1.setw(thebits : TBits_32); inline;
  68586. begin
  68587. pTDefRegMap(@Self)^.val := thebits;
  68588. end;
  68589. function TETH_EMACxCFG1.getw : TBits_32; inline;
  68590. begin
  68591. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68592. end;
  68593. procedure TETH_EMAC1CFG2.setFULLDPLX; inline;
  68594. begin
  68595. pTDefRegMap(@Self)^.&set := $00000001;
  68596. end;
  68597. procedure TETH_EMAC1CFG2.clearFULLDPLX; inline;
  68598. begin
  68599. pTDefRegMap(@Self)^.clr := $00000001;
  68600. end;
  68601. procedure TETH_EMAC1CFG2.setFULLDPLX(thebits : TBits_1); inline;
  68602. begin
  68603. if thebits = 0 then
  68604. pTDefRegMap(@Self)^.clr := $00000001
  68605. else
  68606. pTDefRegMap(@Self)^.&set := $00000001;
  68607. end;
  68608. function TETH_EMAC1CFG2.getFULLDPLX : TBits_1; inline;
  68609. begin
  68610. getFULLDPLX := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  68611. end;
  68612. procedure TETH_EMAC1CFG2.setLENGTHCK; inline;
  68613. begin
  68614. pTDefRegMap(@Self)^.&set := $00000002;
  68615. end;
  68616. procedure TETH_EMAC1CFG2.clearLENGTHCK; inline;
  68617. begin
  68618. pTDefRegMap(@Self)^.clr := $00000002;
  68619. end;
  68620. procedure TETH_EMAC1CFG2.setLENGTHCK(thebits : TBits_1); inline;
  68621. begin
  68622. if thebits = 0 then
  68623. pTDefRegMap(@Self)^.clr := $00000002
  68624. else
  68625. pTDefRegMap(@Self)^.&set := $00000002;
  68626. end;
  68627. function TETH_EMAC1CFG2.getLENGTHCK : TBits_1; inline;
  68628. begin
  68629. getLENGTHCK := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  68630. end;
  68631. procedure TETH_EMAC1CFG2.setHUGEFRM; inline;
  68632. begin
  68633. pTDefRegMap(@Self)^.&set := $00000004;
  68634. end;
  68635. procedure TETH_EMAC1CFG2.clearHUGEFRM; inline;
  68636. begin
  68637. pTDefRegMap(@Self)^.clr := $00000004;
  68638. end;
  68639. procedure TETH_EMAC1CFG2.setHUGEFRM(thebits : TBits_1); inline;
  68640. begin
  68641. if thebits = 0 then
  68642. pTDefRegMap(@Self)^.clr := $00000004
  68643. else
  68644. pTDefRegMap(@Self)^.&set := $00000004;
  68645. end;
  68646. function TETH_EMAC1CFG2.getHUGEFRM : TBits_1; inline;
  68647. begin
  68648. getHUGEFRM := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  68649. end;
  68650. procedure TETH_EMAC1CFG2.setDELAYCRC; inline;
  68651. begin
  68652. pTDefRegMap(@Self)^.&set := $00000008;
  68653. end;
  68654. procedure TETH_EMAC1CFG2.clearDELAYCRC; inline;
  68655. begin
  68656. pTDefRegMap(@Self)^.clr := $00000008;
  68657. end;
  68658. procedure TETH_EMAC1CFG2.setDELAYCRC(thebits : TBits_1); inline;
  68659. begin
  68660. if thebits = 0 then
  68661. pTDefRegMap(@Self)^.clr := $00000008
  68662. else
  68663. pTDefRegMap(@Self)^.&set := $00000008;
  68664. end;
  68665. function TETH_EMAC1CFG2.getDELAYCRC : TBits_1; inline;
  68666. begin
  68667. getDELAYCRC := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  68668. end;
  68669. procedure TETH_EMAC1CFG2.setCRCENABLE; inline;
  68670. begin
  68671. pTDefRegMap(@Self)^.&set := $00000010;
  68672. end;
  68673. procedure TETH_EMAC1CFG2.clearCRCENABLE; inline;
  68674. begin
  68675. pTDefRegMap(@Self)^.clr := $00000010;
  68676. end;
  68677. procedure TETH_EMAC1CFG2.setCRCENABLE(thebits : TBits_1); inline;
  68678. begin
  68679. if thebits = 0 then
  68680. pTDefRegMap(@Self)^.clr := $00000010
  68681. else
  68682. pTDefRegMap(@Self)^.&set := $00000010;
  68683. end;
  68684. function TETH_EMAC1CFG2.getCRCENABLE : TBits_1; inline;
  68685. begin
  68686. getCRCENABLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  68687. end;
  68688. procedure TETH_EMAC1CFG2.setPADENABLE; inline;
  68689. begin
  68690. pTDefRegMap(@Self)^.&set := $00000020;
  68691. end;
  68692. procedure TETH_EMAC1CFG2.clearPADENABLE; inline;
  68693. begin
  68694. pTDefRegMap(@Self)^.clr := $00000020;
  68695. end;
  68696. procedure TETH_EMAC1CFG2.setPADENABLE(thebits : TBits_1); inline;
  68697. begin
  68698. if thebits = 0 then
  68699. pTDefRegMap(@Self)^.clr := $00000020
  68700. else
  68701. pTDefRegMap(@Self)^.&set := $00000020;
  68702. end;
  68703. function TETH_EMAC1CFG2.getPADENABLE : TBits_1; inline;
  68704. begin
  68705. getPADENABLE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  68706. end;
  68707. procedure TETH_EMAC1CFG2.setVLANPAD; inline;
  68708. begin
  68709. pTDefRegMap(@Self)^.&set := $00000040;
  68710. end;
  68711. procedure TETH_EMAC1CFG2.clearVLANPAD; inline;
  68712. begin
  68713. pTDefRegMap(@Self)^.clr := $00000040;
  68714. end;
  68715. procedure TETH_EMAC1CFG2.setVLANPAD(thebits : TBits_1); inline;
  68716. begin
  68717. if thebits = 0 then
  68718. pTDefRegMap(@Self)^.clr := $00000040
  68719. else
  68720. pTDefRegMap(@Self)^.&set := $00000040;
  68721. end;
  68722. function TETH_EMAC1CFG2.getVLANPAD : TBits_1; inline;
  68723. begin
  68724. getVLANPAD := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  68725. end;
  68726. procedure TETH_EMAC1CFG2.setAUTOPAD; inline;
  68727. begin
  68728. pTDefRegMap(@Self)^.&set := $00000080;
  68729. end;
  68730. procedure TETH_EMAC1CFG2.clearAUTOPAD; inline;
  68731. begin
  68732. pTDefRegMap(@Self)^.clr := $00000080;
  68733. end;
  68734. procedure TETH_EMAC1CFG2.setAUTOPAD(thebits : TBits_1); inline;
  68735. begin
  68736. if thebits = 0 then
  68737. pTDefRegMap(@Self)^.clr := $00000080
  68738. else
  68739. pTDefRegMap(@Self)^.&set := $00000080;
  68740. end;
  68741. function TETH_EMAC1CFG2.getAUTOPAD : TBits_1; inline;
  68742. begin
  68743. getAUTOPAD := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  68744. end;
  68745. procedure TETH_EMAC1CFG2.setPUREPRE; inline;
  68746. begin
  68747. pTDefRegMap(@Self)^.&set := $00000100;
  68748. end;
  68749. procedure TETH_EMAC1CFG2.clearPUREPRE; inline;
  68750. begin
  68751. pTDefRegMap(@Self)^.clr := $00000100;
  68752. end;
  68753. procedure TETH_EMAC1CFG2.setPUREPRE(thebits : TBits_1); inline;
  68754. begin
  68755. if thebits = 0 then
  68756. pTDefRegMap(@Self)^.clr := $00000100
  68757. else
  68758. pTDefRegMap(@Self)^.&set := $00000100;
  68759. end;
  68760. function TETH_EMAC1CFG2.getPUREPRE : TBits_1; inline;
  68761. begin
  68762. getPUREPRE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  68763. end;
  68764. procedure TETH_EMAC1CFG2.setLONGPRE; inline;
  68765. begin
  68766. pTDefRegMap(@Self)^.&set := $00000200;
  68767. end;
  68768. procedure TETH_EMAC1CFG2.clearLONGPRE; inline;
  68769. begin
  68770. pTDefRegMap(@Self)^.clr := $00000200;
  68771. end;
  68772. procedure TETH_EMAC1CFG2.setLONGPRE(thebits : TBits_1); inline;
  68773. begin
  68774. if thebits = 0 then
  68775. pTDefRegMap(@Self)^.clr := $00000200
  68776. else
  68777. pTDefRegMap(@Self)^.&set := $00000200;
  68778. end;
  68779. function TETH_EMAC1CFG2.getLONGPRE : TBits_1; inline;
  68780. begin
  68781. getLONGPRE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  68782. end;
  68783. procedure TETH_EMAC1CFG2.setNOBKOFF; inline;
  68784. begin
  68785. pTDefRegMap(@Self)^.&set := $00001000;
  68786. end;
  68787. procedure TETH_EMAC1CFG2.clearNOBKOFF; inline;
  68788. begin
  68789. pTDefRegMap(@Self)^.clr := $00001000;
  68790. end;
  68791. procedure TETH_EMAC1CFG2.setNOBKOFF(thebits : TBits_1); inline;
  68792. begin
  68793. if thebits = 0 then
  68794. pTDefRegMap(@Self)^.clr := $00001000
  68795. else
  68796. pTDefRegMap(@Self)^.&set := $00001000;
  68797. end;
  68798. function TETH_EMAC1CFG2.getNOBKOFF : TBits_1; inline;
  68799. begin
  68800. getNOBKOFF := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  68801. end;
  68802. procedure TETH_EMAC1CFG2.setBPNOBKOFF; inline;
  68803. begin
  68804. pTDefRegMap(@Self)^.&set := $00002000;
  68805. end;
  68806. procedure TETH_EMAC1CFG2.clearBPNOBKOFF; inline;
  68807. begin
  68808. pTDefRegMap(@Self)^.clr := $00002000;
  68809. end;
  68810. procedure TETH_EMAC1CFG2.setBPNOBKOFF(thebits : TBits_1); inline;
  68811. begin
  68812. if thebits = 0 then
  68813. pTDefRegMap(@Self)^.clr := $00002000
  68814. else
  68815. pTDefRegMap(@Self)^.&set := $00002000;
  68816. end;
  68817. function TETH_EMAC1CFG2.getBPNOBKOFF : TBits_1; inline;
  68818. begin
  68819. getBPNOBKOFF := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  68820. end;
  68821. procedure TETH_EMAC1CFG2.setEXCESSDFR; inline;
  68822. begin
  68823. pTDefRegMap(@Self)^.&set := $00004000;
  68824. end;
  68825. procedure TETH_EMAC1CFG2.clearEXCESSDFR; inline;
  68826. begin
  68827. pTDefRegMap(@Self)^.clr := $00004000;
  68828. end;
  68829. procedure TETH_EMAC1CFG2.setEXCESSDFR(thebits : TBits_1); inline;
  68830. begin
  68831. if thebits = 0 then
  68832. pTDefRegMap(@Self)^.clr := $00004000
  68833. else
  68834. pTDefRegMap(@Self)^.&set := $00004000;
  68835. end;
  68836. function TETH_EMAC1CFG2.getEXCESSDFR : TBits_1; inline;
  68837. begin
  68838. getEXCESSDFR := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  68839. end;
  68840. procedure TETH_EMAC1CFG2.setw(thebits : TBits_32); inline;
  68841. begin
  68842. pTDefRegMap(@Self)^.val := thebits;
  68843. end;
  68844. function TETH_EMAC1CFG2.getw : TBits_32; inline;
  68845. begin
  68846. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68847. end;
  68848. procedure TETH_EMACxCFG2.setFULLDPLX; inline;
  68849. begin
  68850. pTDefRegMap(@Self)^.&set := $00000001;
  68851. end;
  68852. procedure TETH_EMACxCFG2.clearFULLDPLX; inline;
  68853. begin
  68854. pTDefRegMap(@Self)^.clr := $00000001;
  68855. end;
  68856. procedure TETH_EMACxCFG2.setFULLDPLX(thebits : TBits_1); inline;
  68857. begin
  68858. if thebits = 0 then
  68859. pTDefRegMap(@Self)^.clr := $00000001
  68860. else
  68861. pTDefRegMap(@Self)^.&set := $00000001;
  68862. end;
  68863. function TETH_EMACxCFG2.getFULLDPLX : TBits_1; inline;
  68864. begin
  68865. getFULLDPLX := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  68866. end;
  68867. procedure TETH_EMACxCFG2.setLENGTHCK; inline;
  68868. begin
  68869. pTDefRegMap(@Self)^.&set := $00000002;
  68870. end;
  68871. procedure TETH_EMACxCFG2.clearLENGTHCK; inline;
  68872. begin
  68873. pTDefRegMap(@Self)^.clr := $00000002;
  68874. end;
  68875. procedure TETH_EMACxCFG2.setLENGTHCK(thebits : TBits_1); inline;
  68876. begin
  68877. if thebits = 0 then
  68878. pTDefRegMap(@Self)^.clr := $00000002
  68879. else
  68880. pTDefRegMap(@Self)^.&set := $00000002;
  68881. end;
  68882. function TETH_EMACxCFG2.getLENGTHCK : TBits_1; inline;
  68883. begin
  68884. getLENGTHCK := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  68885. end;
  68886. procedure TETH_EMACxCFG2.setHUGEFRM; inline;
  68887. begin
  68888. pTDefRegMap(@Self)^.&set := $00000004;
  68889. end;
  68890. procedure TETH_EMACxCFG2.clearHUGEFRM; inline;
  68891. begin
  68892. pTDefRegMap(@Self)^.clr := $00000004;
  68893. end;
  68894. procedure TETH_EMACxCFG2.setHUGEFRM(thebits : TBits_1); inline;
  68895. begin
  68896. if thebits = 0 then
  68897. pTDefRegMap(@Self)^.clr := $00000004
  68898. else
  68899. pTDefRegMap(@Self)^.&set := $00000004;
  68900. end;
  68901. function TETH_EMACxCFG2.getHUGEFRM : TBits_1; inline;
  68902. begin
  68903. getHUGEFRM := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  68904. end;
  68905. procedure TETH_EMACxCFG2.setDELAYCRC; inline;
  68906. begin
  68907. pTDefRegMap(@Self)^.&set := $00000008;
  68908. end;
  68909. procedure TETH_EMACxCFG2.clearDELAYCRC; inline;
  68910. begin
  68911. pTDefRegMap(@Self)^.clr := $00000008;
  68912. end;
  68913. procedure TETH_EMACxCFG2.setDELAYCRC(thebits : TBits_1); inline;
  68914. begin
  68915. if thebits = 0 then
  68916. pTDefRegMap(@Self)^.clr := $00000008
  68917. else
  68918. pTDefRegMap(@Self)^.&set := $00000008;
  68919. end;
  68920. function TETH_EMACxCFG2.getDELAYCRC : TBits_1; inline;
  68921. begin
  68922. getDELAYCRC := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  68923. end;
  68924. procedure TETH_EMACxCFG2.setCRCENABLE; inline;
  68925. begin
  68926. pTDefRegMap(@Self)^.&set := $00000010;
  68927. end;
  68928. procedure TETH_EMACxCFG2.clearCRCENABLE; inline;
  68929. begin
  68930. pTDefRegMap(@Self)^.clr := $00000010;
  68931. end;
  68932. procedure TETH_EMACxCFG2.setCRCENABLE(thebits : TBits_1); inline;
  68933. begin
  68934. if thebits = 0 then
  68935. pTDefRegMap(@Self)^.clr := $00000010
  68936. else
  68937. pTDefRegMap(@Self)^.&set := $00000010;
  68938. end;
  68939. function TETH_EMACxCFG2.getCRCENABLE : TBits_1; inline;
  68940. begin
  68941. getCRCENABLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  68942. end;
  68943. procedure TETH_EMACxCFG2.setPADENABLE; inline;
  68944. begin
  68945. pTDefRegMap(@Self)^.&set := $00000020;
  68946. end;
  68947. procedure TETH_EMACxCFG2.clearPADENABLE; inline;
  68948. begin
  68949. pTDefRegMap(@Self)^.clr := $00000020;
  68950. end;
  68951. procedure TETH_EMACxCFG2.setPADENABLE(thebits : TBits_1); inline;
  68952. begin
  68953. if thebits = 0 then
  68954. pTDefRegMap(@Self)^.clr := $00000020
  68955. else
  68956. pTDefRegMap(@Self)^.&set := $00000020;
  68957. end;
  68958. function TETH_EMACxCFG2.getPADENABLE : TBits_1; inline;
  68959. begin
  68960. getPADENABLE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  68961. end;
  68962. procedure TETH_EMACxCFG2.setVLANPAD; inline;
  68963. begin
  68964. pTDefRegMap(@Self)^.&set := $00000040;
  68965. end;
  68966. procedure TETH_EMACxCFG2.clearVLANPAD; inline;
  68967. begin
  68968. pTDefRegMap(@Self)^.clr := $00000040;
  68969. end;
  68970. procedure TETH_EMACxCFG2.setVLANPAD(thebits : TBits_1); inline;
  68971. begin
  68972. if thebits = 0 then
  68973. pTDefRegMap(@Self)^.clr := $00000040
  68974. else
  68975. pTDefRegMap(@Self)^.&set := $00000040;
  68976. end;
  68977. function TETH_EMACxCFG2.getVLANPAD : TBits_1; inline;
  68978. begin
  68979. getVLANPAD := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  68980. end;
  68981. procedure TETH_EMACxCFG2.setAUTOPAD; inline;
  68982. begin
  68983. pTDefRegMap(@Self)^.&set := $00000080;
  68984. end;
  68985. procedure TETH_EMACxCFG2.clearAUTOPAD; inline;
  68986. begin
  68987. pTDefRegMap(@Self)^.clr := $00000080;
  68988. end;
  68989. procedure TETH_EMACxCFG2.setAUTOPAD(thebits : TBits_1); inline;
  68990. begin
  68991. if thebits = 0 then
  68992. pTDefRegMap(@Self)^.clr := $00000080
  68993. else
  68994. pTDefRegMap(@Self)^.&set := $00000080;
  68995. end;
  68996. function TETH_EMACxCFG2.getAUTOPAD : TBits_1; inline;
  68997. begin
  68998. getAUTOPAD := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  68999. end;
  69000. procedure TETH_EMACxCFG2.setPUREPRE; inline;
  69001. begin
  69002. pTDefRegMap(@Self)^.&set := $00000100;
  69003. end;
  69004. procedure TETH_EMACxCFG2.clearPUREPRE; inline;
  69005. begin
  69006. pTDefRegMap(@Self)^.clr := $00000100;
  69007. end;
  69008. procedure TETH_EMACxCFG2.setPUREPRE(thebits : TBits_1); inline;
  69009. begin
  69010. if thebits = 0 then
  69011. pTDefRegMap(@Self)^.clr := $00000100
  69012. else
  69013. pTDefRegMap(@Self)^.&set := $00000100;
  69014. end;
  69015. function TETH_EMACxCFG2.getPUREPRE : TBits_1; inline;
  69016. begin
  69017. getPUREPRE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  69018. end;
  69019. procedure TETH_EMACxCFG2.setLONGPRE; inline;
  69020. begin
  69021. pTDefRegMap(@Self)^.&set := $00000200;
  69022. end;
  69023. procedure TETH_EMACxCFG2.clearLONGPRE; inline;
  69024. begin
  69025. pTDefRegMap(@Self)^.clr := $00000200;
  69026. end;
  69027. procedure TETH_EMACxCFG2.setLONGPRE(thebits : TBits_1); inline;
  69028. begin
  69029. if thebits = 0 then
  69030. pTDefRegMap(@Self)^.clr := $00000200
  69031. else
  69032. pTDefRegMap(@Self)^.&set := $00000200;
  69033. end;
  69034. function TETH_EMACxCFG2.getLONGPRE : TBits_1; inline;
  69035. begin
  69036. getLONGPRE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  69037. end;
  69038. procedure TETH_EMACxCFG2.setNOBKOFF; inline;
  69039. begin
  69040. pTDefRegMap(@Self)^.&set := $00001000;
  69041. end;
  69042. procedure TETH_EMACxCFG2.clearNOBKOFF; inline;
  69043. begin
  69044. pTDefRegMap(@Self)^.clr := $00001000;
  69045. end;
  69046. procedure TETH_EMACxCFG2.setNOBKOFF(thebits : TBits_1); inline;
  69047. begin
  69048. if thebits = 0 then
  69049. pTDefRegMap(@Self)^.clr := $00001000
  69050. else
  69051. pTDefRegMap(@Self)^.&set := $00001000;
  69052. end;
  69053. function TETH_EMACxCFG2.getNOBKOFF : TBits_1; inline;
  69054. begin
  69055. getNOBKOFF := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  69056. end;
  69057. procedure TETH_EMACxCFG2.setBPNOBKOFF; inline;
  69058. begin
  69059. pTDefRegMap(@Self)^.&set := $00002000;
  69060. end;
  69061. procedure TETH_EMACxCFG2.clearBPNOBKOFF; inline;
  69062. begin
  69063. pTDefRegMap(@Self)^.clr := $00002000;
  69064. end;
  69065. procedure TETH_EMACxCFG2.setBPNOBKOFF(thebits : TBits_1); inline;
  69066. begin
  69067. if thebits = 0 then
  69068. pTDefRegMap(@Self)^.clr := $00002000
  69069. else
  69070. pTDefRegMap(@Self)^.&set := $00002000;
  69071. end;
  69072. function TETH_EMACxCFG2.getBPNOBKOFF : TBits_1; inline;
  69073. begin
  69074. getBPNOBKOFF := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  69075. end;
  69076. procedure TETH_EMACxCFG2.setEXCESSDFR; inline;
  69077. begin
  69078. pTDefRegMap(@Self)^.&set := $00004000;
  69079. end;
  69080. procedure TETH_EMACxCFG2.clearEXCESSDFR; inline;
  69081. begin
  69082. pTDefRegMap(@Self)^.clr := $00004000;
  69083. end;
  69084. procedure TETH_EMACxCFG2.setEXCESSDFR(thebits : TBits_1); inline;
  69085. begin
  69086. if thebits = 0 then
  69087. pTDefRegMap(@Self)^.clr := $00004000
  69088. else
  69089. pTDefRegMap(@Self)^.&set := $00004000;
  69090. end;
  69091. function TETH_EMACxCFG2.getEXCESSDFR : TBits_1; inline;
  69092. begin
  69093. getEXCESSDFR := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  69094. end;
  69095. procedure TETH_EMACxCFG2.setw(thebits : TBits_32); inline;
  69096. begin
  69097. pTDefRegMap(@Self)^.val := thebits;
  69098. end;
  69099. function TETH_EMACxCFG2.getw : TBits_32; inline;
  69100. begin
  69101. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69102. end;
  69103. procedure TETH_EMAC1IPGT.setB2BIPKTGP(thebits : TBits_7); inline;
  69104. begin
  69105. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF80 or ( thebits shl 0 );
  69106. end;
  69107. function TETH_EMAC1IPGT.getB2BIPKTGP : TBits_7; inline;
  69108. begin
  69109. getB2BIPKTGP := (pTDefRegMap(@Self)^.val and $0000007F) shr 0;
  69110. end;
  69111. procedure TETH_EMAC1IPGT.setw(thebits : TBits_32); inline;
  69112. begin
  69113. pTDefRegMap(@Self)^.val := thebits;
  69114. end;
  69115. function TETH_EMAC1IPGT.getw : TBits_32; inline;
  69116. begin
  69117. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69118. end;
  69119. procedure TETH_EMACxIPGT.setB2BIPKTGP(thebits : TBits_7); inline;
  69120. begin
  69121. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF80 or ( thebits shl 0 );
  69122. end;
  69123. function TETH_EMACxIPGT.getB2BIPKTGP : TBits_7; inline;
  69124. begin
  69125. getB2BIPKTGP := (pTDefRegMap(@Self)^.val and $0000007F) shr 0;
  69126. end;
  69127. procedure TETH_EMACxIPGT.setw(thebits : TBits_32); inline;
  69128. begin
  69129. pTDefRegMap(@Self)^.val := thebits;
  69130. end;
  69131. function TETH_EMACxIPGT.getw : TBits_32; inline;
  69132. begin
  69133. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69134. end;
  69135. procedure TETH_EMAC1IPGR.setNB2BIPKTGP2(thebits : TBits_7); inline;
  69136. begin
  69137. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF80 or ( thebits shl 0 );
  69138. end;
  69139. function TETH_EMAC1IPGR.getNB2BIPKTGP2 : TBits_7; inline;
  69140. begin
  69141. getNB2BIPKTGP2 := (pTDefRegMap(@Self)^.val and $0000007F) shr 0;
  69142. end;
  69143. procedure TETH_EMAC1IPGR.setNB2BIPKTGP1(thebits : TBits_7); inline;
  69144. begin
  69145. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF80FF or ( thebits shl 8 );
  69146. end;
  69147. function TETH_EMAC1IPGR.getNB2BIPKTGP1 : TBits_7; inline;
  69148. begin
  69149. getNB2BIPKTGP1 := (pTDefRegMap(@Self)^.val and $00007F00) shr 8;
  69150. end;
  69151. procedure TETH_EMAC1IPGR.setw(thebits : TBits_32); inline;
  69152. begin
  69153. pTDefRegMap(@Self)^.val := thebits;
  69154. end;
  69155. function TETH_EMAC1IPGR.getw : TBits_32; inline;
  69156. begin
  69157. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69158. end;
  69159. procedure TETH_EMACxIPGR.setNB2BIPKTGP2(thebits : TBits_7); inline;
  69160. begin
  69161. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF80 or ( thebits shl 0 );
  69162. end;
  69163. function TETH_EMACxIPGR.getNB2BIPKTGP2 : TBits_7; inline;
  69164. begin
  69165. getNB2BIPKTGP2 := (pTDefRegMap(@Self)^.val and $0000007F) shr 0;
  69166. end;
  69167. procedure TETH_EMACxIPGR.setNB2BIPKTGP1(thebits : TBits_7); inline;
  69168. begin
  69169. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF80FF or ( thebits shl 8 );
  69170. end;
  69171. function TETH_EMACxIPGR.getNB2BIPKTGP1 : TBits_7; inline;
  69172. begin
  69173. getNB2BIPKTGP1 := (pTDefRegMap(@Self)^.val and $00007F00) shr 8;
  69174. end;
  69175. procedure TETH_EMACxIPGR.setw(thebits : TBits_32); inline;
  69176. begin
  69177. pTDefRegMap(@Self)^.val := thebits;
  69178. end;
  69179. function TETH_EMACxIPGR.getw : TBits_32; inline;
  69180. begin
  69181. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69182. end;
  69183. procedure TETH_EMAC1CLRT.setRETX(thebits : TBits_4); inline;
  69184. begin
  69185. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  69186. end;
  69187. function TETH_EMAC1CLRT.getRETX : TBits_4; inline;
  69188. begin
  69189. getRETX := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  69190. end;
  69191. procedure TETH_EMAC1CLRT.setCWINDOW(thebits : TBits_6); inline;
  69192. begin
  69193. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFC0FF or ( thebits shl 8 );
  69194. end;
  69195. function TETH_EMAC1CLRT.getCWINDOW : TBits_6; inline;
  69196. begin
  69197. getCWINDOW := (pTDefRegMap(@Self)^.val and $00003F00) shr 8;
  69198. end;
  69199. procedure TETH_EMAC1CLRT.setw(thebits : TBits_32); inline;
  69200. begin
  69201. pTDefRegMap(@Self)^.val := thebits;
  69202. end;
  69203. function TETH_EMAC1CLRT.getw : TBits_32; inline;
  69204. begin
  69205. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69206. end;
  69207. procedure TETH_EMACxCLRT.setRETX(thebits : TBits_4); inline;
  69208. begin
  69209. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  69210. end;
  69211. function TETH_EMACxCLRT.getRETX : TBits_4; inline;
  69212. begin
  69213. getRETX := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  69214. end;
  69215. procedure TETH_EMACxCLRT.setCWINDOW(thebits : TBits_6); inline;
  69216. begin
  69217. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFC0FF or ( thebits shl 8 );
  69218. end;
  69219. function TETH_EMACxCLRT.getCWINDOW : TBits_6; inline;
  69220. begin
  69221. getCWINDOW := (pTDefRegMap(@Self)^.val and $00003F00) shr 8;
  69222. end;
  69223. procedure TETH_EMACxCLRT.setw(thebits : TBits_32); inline;
  69224. begin
  69225. pTDefRegMap(@Self)^.val := thebits;
  69226. end;
  69227. function TETH_EMACxCLRT.getw : TBits_32; inline;
  69228. begin
  69229. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69230. end;
  69231. procedure TETH_EMAC1MAXF.setMACMAXF(thebits : TBits_16); inline;
  69232. begin
  69233. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  69234. end;
  69235. function TETH_EMAC1MAXF.getMACMAXF : TBits_16; inline;
  69236. begin
  69237. getMACMAXF := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  69238. end;
  69239. procedure TETH_EMAC1MAXF.setw(thebits : TBits_32); inline;
  69240. begin
  69241. pTDefRegMap(@Self)^.val := thebits;
  69242. end;
  69243. function TETH_EMAC1MAXF.getw : TBits_32; inline;
  69244. begin
  69245. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69246. end;
  69247. procedure TETH_EMACxMAXF.setMACMAXF(thebits : TBits_16); inline;
  69248. begin
  69249. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  69250. end;
  69251. function TETH_EMACxMAXF.getMACMAXF : TBits_16; inline;
  69252. begin
  69253. getMACMAXF := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  69254. end;
  69255. procedure TETH_EMACxMAXF.setw(thebits : TBits_32); inline;
  69256. begin
  69257. pTDefRegMap(@Self)^.val := thebits;
  69258. end;
  69259. function TETH_EMACxMAXF.getw : TBits_32; inline;
  69260. begin
  69261. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69262. end;
  69263. procedure TETH_EMAC1SUPP.setSPEEDRMII; inline;
  69264. begin
  69265. pTDefRegMap(@Self)^.&set := $00000100;
  69266. end;
  69267. procedure TETH_EMAC1SUPP.clearSPEEDRMII; inline;
  69268. begin
  69269. pTDefRegMap(@Self)^.clr := $00000100;
  69270. end;
  69271. procedure TETH_EMAC1SUPP.setSPEEDRMII(thebits : TBits_1); inline;
  69272. begin
  69273. if thebits = 0 then
  69274. pTDefRegMap(@Self)^.clr := $00000100
  69275. else
  69276. pTDefRegMap(@Self)^.&set := $00000100;
  69277. end;
  69278. function TETH_EMAC1SUPP.getSPEEDRMII : TBits_1; inline;
  69279. begin
  69280. getSPEEDRMII := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  69281. end;
  69282. procedure TETH_EMAC1SUPP.setRESETRMII; inline;
  69283. begin
  69284. pTDefRegMap(@Self)^.&set := $00000800;
  69285. end;
  69286. procedure TETH_EMAC1SUPP.clearRESETRMII; inline;
  69287. begin
  69288. pTDefRegMap(@Self)^.clr := $00000800;
  69289. end;
  69290. procedure TETH_EMAC1SUPP.setRESETRMII(thebits : TBits_1); inline;
  69291. begin
  69292. if thebits = 0 then
  69293. pTDefRegMap(@Self)^.clr := $00000800
  69294. else
  69295. pTDefRegMap(@Self)^.&set := $00000800;
  69296. end;
  69297. function TETH_EMAC1SUPP.getRESETRMII : TBits_1; inline;
  69298. begin
  69299. getRESETRMII := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  69300. end;
  69301. procedure TETH_EMAC1SUPP.setw(thebits : TBits_32); inline;
  69302. begin
  69303. pTDefRegMap(@Self)^.val := thebits;
  69304. end;
  69305. function TETH_EMAC1SUPP.getw : TBits_32; inline;
  69306. begin
  69307. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69308. end;
  69309. procedure TETH_EMACxSUPP.setSPEEDRMII; inline;
  69310. begin
  69311. pTDefRegMap(@Self)^.&set := $00000100;
  69312. end;
  69313. procedure TETH_EMACxSUPP.clearSPEEDRMII; inline;
  69314. begin
  69315. pTDefRegMap(@Self)^.clr := $00000100;
  69316. end;
  69317. procedure TETH_EMACxSUPP.setSPEEDRMII(thebits : TBits_1); inline;
  69318. begin
  69319. if thebits = 0 then
  69320. pTDefRegMap(@Self)^.clr := $00000100
  69321. else
  69322. pTDefRegMap(@Self)^.&set := $00000100;
  69323. end;
  69324. function TETH_EMACxSUPP.getSPEEDRMII : TBits_1; inline;
  69325. begin
  69326. getSPEEDRMII := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  69327. end;
  69328. procedure TETH_EMACxSUPP.setRESETRMII; inline;
  69329. begin
  69330. pTDefRegMap(@Self)^.&set := $00000800;
  69331. end;
  69332. procedure TETH_EMACxSUPP.clearRESETRMII; inline;
  69333. begin
  69334. pTDefRegMap(@Self)^.clr := $00000800;
  69335. end;
  69336. procedure TETH_EMACxSUPP.setRESETRMII(thebits : TBits_1); inline;
  69337. begin
  69338. if thebits = 0 then
  69339. pTDefRegMap(@Self)^.clr := $00000800
  69340. else
  69341. pTDefRegMap(@Self)^.&set := $00000800;
  69342. end;
  69343. function TETH_EMACxSUPP.getRESETRMII : TBits_1; inline;
  69344. begin
  69345. getRESETRMII := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  69346. end;
  69347. procedure TETH_EMACxSUPP.setw(thebits : TBits_32); inline;
  69348. begin
  69349. pTDefRegMap(@Self)^.val := thebits;
  69350. end;
  69351. function TETH_EMACxSUPP.getw : TBits_32; inline;
  69352. begin
  69353. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69354. end;
  69355. procedure TETH_EMAC1TEST.setSHRTQNTA; inline;
  69356. begin
  69357. pTDefRegMap(@Self)^.&set := $00000001;
  69358. end;
  69359. procedure TETH_EMAC1TEST.clearSHRTQNTA; inline;
  69360. begin
  69361. pTDefRegMap(@Self)^.clr := $00000001;
  69362. end;
  69363. procedure TETH_EMAC1TEST.setSHRTQNTA(thebits : TBits_1); inline;
  69364. begin
  69365. if thebits = 0 then
  69366. pTDefRegMap(@Self)^.clr := $00000001
  69367. else
  69368. pTDefRegMap(@Self)^.&set := $00000001;
  69369. end;
  69370. function TETH_EMAC1TEST.getSHRTQNTA : TBits_1; inline;
  69371. begin
  69372. getSHRTQNTA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  69373. end;
  69374. procedure TETH_EMAC1TEST.setTESTPAUSE; inline;
  69375. begin
  69376. pTDefRegMap(@Self)^.&set := $00000002;
  69377. end;
  69378. procedure TETH_EMAC1TEST.clearTESTPAUSE; inline;
  69379. begin
  69380. pTDefRegMap(@Self)^.clr := $00000002;
  69381. end;
  69382. procedure TETH_EMAC1TEST.setTESTPAUSE(thebits : TBits_1); inline;
  69383. begin
  69384. if thebits = 0 then
  69385. pTDefRegMap(@Self)^.clr := $00000002
  69386. else
  69387. pTDefRegMap(@Self)^.&set := $00000002;
  69388. end;
  69389. function TETH_EMAC1TEST.getTESTPAUSE : TBits_1; inline;
  69390. begin
  69391. getTESTPAUSE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  69392. end;
  69393. procedure TETH_EMAC1TEST.setTESTBP; inline;
  69394. begin
  69395. pTDefRegMap(@Self)^.&set := $00000004;
  69396. end;
  69397. procedure TETH_EMAC1TEST.clearTESTBP; inline;
  69398. begin
  69399. pTDefRegMap(@Self)^.clr := $00000004;
  69400. end;
  69401. procedure TETH_EMAC1TEST.setTESTBP(thebits : TBits_1); inline;
  69402. begin
  69403. if thebits = 0 then
  69404. pTDefRegMap(@Self)^.clr := $00000004
  69405. else
  69406. pTDefRegMap(@Self)^.&set := $00000004;
  69407. end;
  69408. function TETH_EMAC1TEST.getTESTBP : TBits_1; inline;
  69409. begin
  69410. getTESTBP := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  69411. end;
  69412. procedure TETH_EMAC1TEST.setw(thebits : TBits_32); inline;
  69413. begin
  69414. pTDefRegMap(@Self)^.val := thebits;
  69415. end;
  69416. function TETH_EMAC1TEST.getw : TBits_32; inline;
  69417. begin
  69418. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69419. end;
  69420. procedure TETH_EMACxTEST.setSHRTQNTA; inline;
  69421. begin
  69422. pTDefRegMap(@Self)^.&set := $00000001;
  69423. end;
  69424. procedure TETH_EMACxTEST.clearSHRTQNTA; inline;
  69425. begin
  69426. pTDefRegMap(@Self)^.clr := $00000001;
  69427. end;
  69428. procedure TETH_EMACxTEST.setSHRTQNTA(thebits : TBits_1); inline;
  69429. begin
  69430. if thebits = 0 then
  69431. pTDefRegMap(@Self)^.clr := $00000001
  69432. else
  69433. pTDefRegMap(@Self)^.&set := $00000001;
  69434. end;
  69435. function TETH_EMACxTEST.getSHRTQNTA : TBits_1; inline;
  69436. begin
  69437. getSHRTQNTA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  69438. end;
  69439. procedure TETH_EMACxTEST.setTESTPAUSE; inline;
  69440. begin
  69441. pTDefRegMap(@Self)^.&set := $00000002;
  69442. end;
  69443. procedure TETH_EMACxTEST.clearTESTPAUSE; inline;
  69444. begin
  69445. pTDefRegMap(@Self)^.clr := $00000002;
  69446. end;
  69447. procedure TETH_EMACxTEST.setTESTPAUSE(thebits : TBits_1); inline;
  69448. begin
  69449. if thebits = 0 then
  69450. pTDefRegMap(@Self)^.clr := $00000002
  69451. else
  69452. pTDefRegMap(@Self)^.&set := $00000002;
  69453. end;
  69454. function TETH_EMACxTEST.getTESTPAUSE : TBits_1; inline;
  69455. begin
  69456. getTESTPAUSE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  69457. end;
  69458. procedure TETH_EMACxTEST.setTESTBP; inline;
  69459. begin
  69460. pTDefRegMap(@Self)^.&set := $00000004;
  69461. end;
  69462. procedure TETH_EMACxTEST.clearTESTBP; inline;
  69463. begin
  69464. pTDefRegMap(@Self)^.clr := $00000004;
  69465. end;
  69466. procedure TETH_EMACxTEST.setTESTBP(thebits : TBits_1); inline;
  69467. begin
  69468. if thebits = 0 then
  69469. pTDefRegMap(@Self)^.clr := $00000004
  69470. else
  69471. pTDefRegMap(@Self)^.&set := $00000004;
  69472. end;
  69473. function TETH_EMACxTEST.getTESTBP : TBits_1; inline;
  69474. begin
  69475. getTESTBP := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  69476. end;
  69477. procedure TETH_EMACxTEST.setw(thebits : TBits_32); inline;
  69478. begin
  69479. pTDefRegMap(@Self)^.val := thebits;
  69480. end;
  69481. function TETH_EMACxTEST.getw : TBits_32; inline;
  69482. begin
  69483. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69484. end;
  69485. procedure TETH_EMAC1MCFG.setSCANINC; inline;
  69486. begin
  69487. pTDefRegMap(@Self)^.&set := $00000001;
  69488. end;
  69489. procedure TETH_EMAC1MCFG.clearSCANINC; inline;
  69490. begin
  69491. pTDefRegMap(@Self)^.clr := $00000001;
  69492. end;
  69493. procedure TETH_EMAC1MCFG.setSCANINC(thebits : TBits_1); inline;
  69494. begin
  69495. if thebits = 0 then
  69496. pTDefRegMap(@Self)^.clr := $00000001
  69497. else
  69498. pTDefRegMap(@Self)^.&set := $00000001;
  69499. end;
  69500. function TETH_EMAC1MCFG.getSCANINC : TBits_1; inline;
  69501. begin
  69502. getSCANINC := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  69503. end;
  69504. procedure TETH_EMAC1MCFG.setNOPRE; inline;
  69505. begin
  69506. pTDefRegMap(@Self)^.&set := $00000002;
  69507. end;
  69508. procedure TETH_EMAC1MCFG.clearNOPRE; inline;
  69509. begin
  69510. pTDefRegMap(@Self)^.clr := $00000002;
  69511. end;
  69512. procedure TETH_EMAC1MCFG.setNOPRE(thebits : TBits_1); inline;
  69513. begin
  69514. if thebits = 0 then
  69515. pTDefRegMap(@Self)^.clr := $00000002
  69516. else
  69517. pTDefRegMap(@Self)^.&set := $00000002;
  69518. end;
  69519. function TETH_EMAC1MCFG.getNOPRE : TBits_1; inline;
  69520. begin
  69521. getNOPRE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  69522. end;
  69523. procedure TETH_EMAC1MCFG.setCLKSEL(thebits : TBits_4); inline;
  69524. begin
  69525. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC3 or ( thebits shl 2 );
  69526. end;
  69527. function TETH_EMAC1MCFG.getCLKSEL : TBits_4; inline;
  69528. begin
  69529. getCLKSEL := (pTDefRegMap(@Self)^.val and $0000003C) shr 2;
  69530. end;
  69531. procedure TETH_EMAC1MCFG.setRESETMGMT; inline;
  69532. begin
  69533. pTDefRegMap(@Self)^.&set := $00008000;
  69534. end;
  69535. procedure TETH_EMAC1MCFG.clearRESETMGMT; inline;
  69536. begin
  69537. pTDefRegMap(@Self)^.clr := $00008000;
  69538. end;
  69539. procedure TETH_EMAC1MCFG.setRESETMGMT(thebits : TBits_1); inline;
  69540. begin
  69541. if thebits = 0 then
  69542. pTDefRegMap(@Self)^.clr := $00008000
  69543. else
  69544. pTDefRegMap(@Self)^.&set := $00008000;
  69545. end;
  69546. function TETH_EMAC1MCFG.getRESETMGMT : TBits_1; inline;
  69547. begin
  69548. getRESETMGMT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  69549. end;
  69550. procedure TETH_EMAC1MCFG.setw(thebits : TBits_32); inline;
  69551. begin
  69552. pTDefRegMap(@Self)^.val := thebits;
  69553. end;
  69554. function TETH_EMAC1MCFG.getw : TBits_32; inline;
  69555. begin
  69556. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69557. end;
  69558. procedure TETH_EMACxMCFG.setSCANINC; inline;
  69559. begin
  69560. pTDefRegMap(@Self)^.&set := $00000001;
  69561. end;
  69562. procedure TETH_EMACxMCFG.clearSCANINC; inline;
  69563. begin
  69564. pTDefRegMap(@Self)^.clr := $00000001;
  69565. end;
  69566. procedure TETH_EMACxMCFG.setSCANINC(thebits : TBits_1); inline;
  69567. begin
  69568. if thebits = 0 then
  69569. pTDefRegMap(@Self)^.clr := $00000001
  69570. else
  69571. pTDefRegMap(@Self)^.&set := $00000001;
  69572. end;
  69573. function TETH_EMACxMCFG.getSCANINC : TBits_1; inline;
  69574. begin
  69575. getSCANINC := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  69576. end;
  69577. procedure TETH_EMACxMCFG.setNOPRE; inline;
  69578. begin
  69579. pTDefRegMap(@Self)^.&set := $00000002;
  69580. end;
  69581. procedure TETH_EMACxMCFG.clearNOPRE; inline;
  69582. begin
  69583. pTDefRegMap(@Self)^.clr := $00000002;
  69584. end;
  69585. procedure TETH_EMACxMCFG.setNOPRE(thebits : TBits_1); inline;
  69586. begin
  69587. if thebits = 0 then
  69588. pTDefRegMap(@Self)^.clr := $00000002
  69589. else
  69590. pTDefRegMap(@Self)^.&set := $00000002;
  69591. end;
  69592. function TETH_EMACxMCFG.getNOPRE : TBits_1; inline;
  69593. begin
  69594. getNOPRE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  69595. end;
  69596. procedure TETH_EMACxMCFG.setCLKSEL(thebits : TBits_4); inline;
  69597. begin
  69598. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC3 or ( thebits shl 2 );
  69599. end;
  69600. function TETH_EMACxMCFG.getCLKSEL : TBits_4; inline;
  69601. begin
  69602. getCLKSEL := (pTDefRegMap(@Self)^.val and $0000003C) shr 2;
  69603. end;
  69604. procedure TETH_EMACxMCFG.setRESETMGMT; inline;
  69605. begin
  69606. pTDefRegMap(@Self)^.&set := $00008000;
  69607. end;
  69608. procedure TETH_EMACxMCFG.clearRESETMGMT; inline;
  69609. begin
  69610. pTDefRegMap(@Self)^.clr := $00008000;
  69611. end;
  69612. procedure TETH_EMACxMCFG.setRESETMGMT(thebits : TBits_1); inline;
  69613. begin
  69614. if thebits = 0 then
  69615. pTDefRegMap(@Self)^.clr := $00008000
  69616. else
  69617. pTDefRegMap(@Self)^.&set := $00008000;
  69618. end;
  69619. function TETH_EMACxMCFG.getRESETMGMT : TBits_1; inline;
  69620. begin
  69621. getRESETMGMT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  69622. end;
  69623. procedure TETH_EMACxMCFG.setw(thebits : TBits_32); inline;
  69624. begin
  69625. pTDefRegMap(@Self)^.val := thebits;
  69626. end;
  69627. function TETH_EMACxMCFG.getw : TBits_32; inline;
  69628. begin
  69629. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69630. end;
  69631. procedure TETH_EMAC1MCMD.setREAD; inline;
  69632. begin
  69633. pTDefRegMap(@Self)^.&set := $00000001;
  69634. end;
  69635. procedure TETH_EMAC1MCMD.clearREAD; inline;
  69636. begin
  69637. pTDefRegMap(@Self)^.clr := $00000001;
  69638. end;
  69639. procedure TETH_EMAC1MCMD.setREAD(thebits : TBits_1); inline;
  69640. begin
  69641. if thebits = 0 then
  69642. pTDefRegMap(@Self)^.clr := $00000001
  69643. else
  69644. pTDefRegMap(@Self)^.&set := $00000001;
  69645. end;
  69646. function TETH_EMAC1MCMD.getREAD : TBits_1; inline;
  69647. begin
  69648. getREAD := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  69649. end;
  69650. procedure TETH_EMAC1MCMD.setSCAN; inline;
  69651. begin
  69652. pTDefRegMap(@Self)^.&set := $00000002;
  69653. end;
  69654. procedure TETH_EMAC1MCMD.clearSCAN; inline;
  69655. begin
  69656. pTDefRegMap(@Self)^.clr := $00000002;
  69657. end;
  69658. procedure TETH_EMAC1MCMD.setSCAN(thebits : TBits_1); inline;
  69659. begin
  69660. if thebits = 0 then
  69661. pTDefRegMap(@Self)^.clr := $00000002
  69662. else
  69663. pTDefRegMap(@Self)^.&set := $00000002;
  69664. end;
  69665. function TETH_EMAC1MCMD.getSCAN : TBits_1; inline;
  69666. begin
  69667. getSCAN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  69668. end;
  69669. procedure TETH_EMAC1MCMD.setw(thebits : TBits_32); inline;
  69670. begin
  69671. pTDefRegMap(@Self)^.val := thebits;
  69672. end;
  69673. function TETH_EMAC1MCMD.getw : TBits_32; inline;
  69674. begin
  69675. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69676. end;
  69677. procedure TETH_EMACxMCMD.setREAD; inline;
  69678. begin
  69679. pTDefRegMap(@Self)^.&set := $00000001;
  69680. end;
  69681. procedure TETH_EMACxMCMD.clearREAD; inline;
  69682. begin
  69683. pTDefRegMap(@Self)^.clr := $00000001;
  69684. end;
  69685. procedure TETH_EMACxMCMD.setREAD(thebits : TBits_1); inline;
  69686. begin
  69687. if thebits = 0 then
  69688. pTDefRegMap(@Self)^.clr := $00000001
  69689. else
  69690. pTDefRegMap(@Self)^.&set := $00000001;
  69691. end;
  69692. function TETH_EMACxMCMD.getREAD : TBits_1; inline;
  69693. begin
  69694. getREAD := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  69695. end;
  69696. procedure TETH_EMACxMCMD.setSCAN; inline;
  69697. begin
  69698. pTDefRegMap(@Self)^.&set := $00000002;
  69699. end;
  69700. procedure TETH_EMACxMCMD.clearSCAN; inline;
  69701. begin
  69702. pTDefRegMap(@Self)^.clr := $00000002;
  69703. end;
  69704. procedure TETH_EMACxMCMD.setSCAN(thebits : TBits_1); inline;
  69705. begin
  69706. if thebits = 0 then
  69707. pTDefRegMap(@Self)^.clr := $00000002
  69708. else
  69709. pTDefRegMap(@Self)^.&set := $00000002;
  69710. end;
  69711. function TETH_EMACxMCMD.getSCAN : TBits_1; inline;
  69712. begin
  69713. getSCAN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  69714. end;
  69715. procedure TETH_EMACxMCMD.setw(thebits : TBits_32); inline;
  69716. begin
  69717. pTDefRegMap(@Self)^.val := thebits;
  69718. end;
  69719. function TETH_EMACxMCMD.getw : TBits_32; inline;
  69720. begin
  69721. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69722. end;
  69723. procedure TETH_EMAC1MADR.setREGADDR(thebits : TBits_5); inline;
  69724. begin
  69725. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  69726. end;
  69727. function TETH_EMAC1MADR.getREGADDR : TBits_5; inline;
  69728. begin
  69729. getREGADDR := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  69730. end;
  69731. procedure TETH_EMAC1MADR.setPHYADDR(thebits : TBits_5); inline;
  69732. begin
  69733. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  69734. end;
  69735. function TETH_EMAC1MADR.getPHYADDR : TBits_5; inline;
  69736. begin
  69737. getPHYADDR := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  69738. end;
  69739. procedure TETH_EMAC1MADR.setw(thebits : TBits_32); inline;
  69740. begin
  69741. pTDefRegMap(@Self)^.val := thebits;
  69742. end;
  69743. function TETH_EMAC1MADR.getw : TBits_32; inline;
  69744. begin
  69745. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69746. end;
  69747. procedure TETH_EMACxMADR.setREGADDR(thebits : TBits_5); inline;
  69748. begin
  69749. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  69750. end;
  69751. function TETH_EMACxMADR.getREGADDR : TBits_5; inline;
  69752. begin
  69753. getREGADDR := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  69754. end;
  69755. procedure TETH_EMACxMADR.setPHYADDR(thebits : TBits_5); inline;
  69756. begin
  69757. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  69758. end;
  69759. function TETH_EMACxMADR.getPHYADDR : TBits_5; inline;
  69760. begin
  69761. getPHYADDR := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  69762. end;
  69763. procedure TETH_EMACxMADR.setw(thebits : TBits_32); inline;
  69764. begin
  69765. pTDefRegMap(@Self)^.val := thebits;
  69766. end;
  69767. function TETH_EMACxMADR.getw : TBits_32; inline;
  69768. begin
  69769. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69770. end;
  69771. procedure TETH_EMAC1MWTD.setMWTD(thebits : TBits_16); inline;
  69772. begin
  69773. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  69774. end;
  69775. function TETH_EMAC1MWTD.getMWTD : TBits_16; inline;
  69776. begin
  69777. getMWTD := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  69778. end;
  69779. procedure TETH_EMAC1MWTD.setw(thebits : TBits_32); inline;
  69780. begin
  69781. pTDefRegMap(@Self)^.val := thebits;
  69782. end;
  69783. function TETH_EMAC1MWTD.getw : TBits_32; inline;
  69784. begin
  69785. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69786. end;
  69787. procedure TETH_EMACxMWTD.setMWTD(thebits : TBits_16); inline;
  69788. begin
  69789. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  69790. end;
  69791. function TETH_EMACxMWTD.getMWTD : TBits_16; inline;
  69792. begin
  69793. getMWTD := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  69794. end;
  69795. procedure TETH_EMACxMWTD.setw(thebits : TBits_32); inline;
  69796. begin
  69797. pTDefRegMap(@Self)^.val := thebits;
  69798. end;
  69799. function TETH_EMACxMWTD.getw : TBits_32; inline;
  69800. begin
  69801. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69802. end;
  69803. procedure TETH_EMAC1MRDD.setMRDD(thebits : TBits_16); inline;
  69804. begin
  69805. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  69806. end;
  69807. function TETH_EMAC1MRDD.getMRDD : TBits_16; inline;
  69808. begin
  69809. getMRDD := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  69810. end;
  69811. procedure TETH_EMAC1MRDD.setw(thebits : TBits_32); inline;
  69812. begin
  69813. pTDefRegMap(@Self)^.val := thebits;
  69814. end;
  69815. function TETH_EMAC1MRDD.getw : TBits_32; inline;
  69816. begin
  69817. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69818. end;
  69819. procedure TETH_EMACxMRDD.setMRDD(thebits : TBits_16); inline;
  69820. begin
  69821. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  69822. end;
  69823. function TETH_EMACxMRDD.getMRDD : TBits_16; inline;
  69824. begin
  69825. getMRDD := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  69826. end;
  69827. procedure TETH_EMACxMRDD.setw(thebits : TBits_32); inline;
  69828. begin
  69829. pTDefRegMap(@Self)^.val := thebits;
  69830. end;
  69831. function TETH_EMACxMRDD.getw : TBits_32; inline;
  69832. begin
  69833. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69834. end;
  69835. procedure TETH_EMAC1MIND.setMIIMBUSY; inline;
  69836. begin
  69837. pTDefRegMap(@Self)^.&set := $00000001;
  69838. end;
  69839. procedure TETH_EMAC1MIND.clearMIIMBUSY; inline;
  69840. begin
  69841. pTDefRegMap(@Self)^.clr := $00000001;
  69842. end;
  69843. procedure TETH_EMAC1MIND.setMIIMBUSY(thebits : TBits_1); inline;
  69844. begin
  69845. if thebits = 0 then
  69846. pTDefRegMap(@Self)^.clr := $00000001
  69847. else
  69848. pTDefRegMap(@Self)^.&set := $00000001;
  69849. end;
  69850. function TETH_EMAC1MIND.getMIIMBUSY : TBits_1; inline;
  69851. begin
  69852. getMIIMBUSY := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  69853. end;
  69854. procedure TETH_EMAC1MIND.setSCAN; inline;
  69855. begin
  69856. pTDefRegMap(@Self)^.&set := $00000002;
  69857. end;
  69858. procedure TETH_EMAC1MIND.clearSCAN; inline;
  69859. begin
  69860. pTDefRegMap(@Self)^.clr := $00000002;
  69861. end;
  69862. procedure TETH_EMAC1MIND.setSCAN(thebits : TBits_1); inline;
  69863. begin
  69864. if thebits = 0 then
  69865. pTDefRegMap(@Self)^.clr := $00000002
  69866. else
  69867. pTDefRegMap(@Self)^.&set := $00000002;
  69868. end;
  69869. function TETH_EMAC1MIND.getSCAN : TBits_1; inline;
  69870. begin
  69871. getSCAN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  69872. end;
  69873. procedure TETH_EMAC1MIND.setNOTVALID; inline;
  69874. begin
  69875. pTDefRegMap(@Self)^.&set := $00000004;
  69876. end;
  69877. procedure TETH_EMAC1MIND.clearNOTVALID; inline;
  69878. begin
  69879. pTDefRegMap(@Self)^.clr := $00000004;
  69880. end;
  69881. procedure TETH_EMAC1MIND.setNOTVALID(thebits : TBits_1); inline;
  69882. begin
  69883. if thebits = 0 then
  69884. pTDefRegMap(@Self)^.clr := $00000004
  69885. else
  69886. pTDefRegMap(@Self)^.&set := $00000004;
  69887. end;
  69888. function TETH_EMAC1MIND.getNOTVALID : TBits_1; inline;
  69889. begin
  69890. getNOTVALID := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  69891. end;
  69892. procedure TETH_EMAC1MIND.setLINKFAIL; inline;
  69893. begin
  69894. pTDefRegMap(@Self)^.&set := $00000008;
  69895. end;
  69896. procedure TETH_EMAC1MIND.clearLINKFAIL; inline;
  69897. begin
  69898. pTDefRegMap(@Self)^.clr := $00000008;
  69899. end;
  69900. procedure TETH_EMAC1MIND.setLINKFAIL(thebits : TBits_1); inline;
  69901. begin
  69902. if thebits = 0 then
  69903. pTDefRegMap(@Self)^.clr := $00000008
  69904. else
  69905. pTDefRegMap(@Self)^.&set := $00000008;
  69906. end;
  69907. function TETH_EMAC1MIND.getLINKFAIL : TBits_1; inline;
  69908. begin
  69909. getLINKFAIL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  69910. end;
  69911. procedure TETH_EMAC1MIND.setw(thebits : TBits_32); inline;
  69912. begin
  69913. pTDefRegMap(@Self)^.val := thebits;
  69914. end;
  69915. function TETH_EMAC1MIND.getw : TBits_32; inline;
  69916. begin
  69917. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69918. end;
  69919. procedure TETH_EMACxMIND.setMIIMBUSY; inline;
  69920. begin
  69921. pTDefRegMap(@Self)^.&set := $00000001;
  69922. end;
  69923. procedure TETH_EMACxMIND.clearMIIMBUSY; inline;
  69924. begin
  69925. pTDefRegMap(@Self)^.clr := $00000001;
  69926. end;
  69927. procedure TETH_EMACxMIND.setMIIMBUSY(thebits : TBits_1); inline;
  69928. begin
  69929. if thebits = 0 then
  69930. pTDefRegMap(@Self)^.clr := $00000001
  69931. else
  69932. pTDefRegMap(@Self)^.&set := $00000001;
  69933. end;
  69934. function TETH_EMACxMIND.getMIIMBUSY : TBits_1; inline;
  69935. begin
  69936. getMIIMBUSY := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  69937. end;
  69938. procedure TETH_EMACxMIND.setSCAN; inline;
  69939. begin
  69940. pTDefRegMap(@Self)^.&set := $00000002;
  69941. end;
  69942. procedure TETH_EMACxMIND.clearSCAN; inline;
  69943. begin
  69944. pTDefRegMap(@Self)^.clr := $00000002;
  69945. end;
  69946. procedure TETH_EMACxMIND.setSCAN(thebits : TBits_1); inline;
  69947. begin
  69948. if thebits = 0 then
  69949. pTDefRegMap(@Self)^.clr := $00000002
  69950. else
  69951. pTDefRegMap(@Self)^.&set := $00000002;
  69952. end;
  69953. function TETH_EMACxMIND.getSCAN : TBits_1; inline;
  69954. begin
  69955. getSCAN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  69956. end;
  69957. procedure TETH_EMACxMIND.setNOTVALID; inline;
  69958. begin
  69959. pTDefRegMap(@Self)^.&set := $00000004;
  69960. end;
  69961. procedure TETH_EMACxMIND.clearNOTVALID; inline;
  69962. begin
  69963. pTDefRegMap(@Self)^.clr := $00000004;
  69964. end;
  69965. procedure TETH_EMACxMIND.setNOTVALID(thebits : TBits_1); inline;
  69966. begin
  69967. if thebits = 0 then
  69968. pTDefRegMap(@Self)^.clr := $00000004
  69969. else
  69970. pTDefRegMap(@Self)^.&set := $00000004;
  69971. end;
  69972. function TETH_EMACxMIND.getNOTVALID : TBits_1; inline;
  69973. begin
  69974. getNOTVALID := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  69975. end;
  69976. procedure TETH_EMACxMIND.setLINKFAIL; inline;
  69977. begin
  69978. pTDefRegMap(@Self)^.&set := $00000008;
  69979. end;
  69980. procedure TETH_EMACxMIND.clearLINKFAIL; inline;
  69981. begin
  69982. pTDefRegMap(@Self)^.clr := $00000008;
  69983. end;
  69984. procedure TETH_EMACxMIND.setLINKFAIL(thebits : TBits_1); inline;
  69985. begin
  69986. if thebits = 0 then
  69987. pTDefRegMap(@Self)^.clr := $00000008
  69988. else
  69989. pTDefRegMap(@Self)^.&set := $00000008;
  69990. end;
  69991. function TETH_EMACxMIND.getLINKFAIL : TBits_1; inline;
  69992. begin
  69993. getLINKFAIL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  69994. end;
  69995. procedure TETH_EMACxMIND.setw(thebits : TBits_32); inline;
  69996. begin
  69997. pTDefRegMap(@Self)^.val := thebits;
  69998. end;
  69999. function TETH_EMACxMIND.getw : TBits_32; inline;
  70000. begin
  70001. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70002. end;
  70003. procedure TETH_EMAC1SA0.setSTNADDR5(thebits : TBits_8); inline;
  70004. begin
  70005. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  70006. end;
  70007. function TETH_EMAC1SA0.getSTNADDR5 : TBits_8; inline;
  70008. begin
  70009. getSTNADDR5 := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  70010. end;
  70011. procedure TETH_EMAC1SA0.setSTNADDR6(thebits : TBits_8); inline;
  70012. begin
  70013. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  70014. end;
  70015. function TETH_EMAC1SA0.getSTNADDR6 : TBits_8; inline;
  70016. begin
  70017. getSTNADDR6 := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  70018. end;
  70019. procedure TETH_EMAC1SA0.setw(thebits : TBits_32); inline;
  70020. begin
  70021. pTDefRegMap(@Self)^.val := thebits;
  70022. end;
  70023. function TETH_EMAC1SA0.getw : TBits_32; inline;
  70024. begin
  70025. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70026. end;
  70027. procedure TETH_EMACxSA0.setSTNADDR5(thebits : TBits_8); inline;
  70028. begin
  70029. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  70030. end;
  70031. function TETH_EMACxSA0.getSTNADDR5 : TBits_8; inline;
  70032. begin
  70033. getSTNADDR5 := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  70034. end;
  70035. procedure TETH_EMACxSA0.setSTNADDR6(thebits : TBits_8); inline;
  70036. begin
  70037. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  70038. end;
  70039. function TETH_EMACxSA0.getSTNADDR6 : TBits_8; inline;
  70040. begin
  70041. getSTNADDR6 := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  70042. end;
  70043. procedure TETH_EMACxSA0.setw(thebits : TBits_32); inline;
  70044. begin
  70045. pTDefRegMap(@Self)^.val := thebits;
  70046. end;
  70047. function TETH_EMACxSA0.getw : TBits_32; inline;
  70048. begin
  70049. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70050. end;
  70051. procedure TETH_EMAC1SA1.setSTNADDR3(thebits : TBits_8); inline;
  70052. begin
  70053. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  70054. end;
  70055. function TETH_EMAC1SA1.getSTNADDR3 : TBits_8; inline;
  70056. begin
  70057. getSTNADDR3 := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  70058. end;
  70059. procedure TETH_EMAC1SA1.setSTNADDR4(thebits : TBits_8); inline;
  70060. begin
  70061. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  70062. end;
  70063. function TETH_EMAC1SA1.getSTNADDR4 : TBits_8; inline;
  70064. begin
  70065. getSTNADDR4 := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  70066. end;
  70067. procedure TETH_EMAC1SA1.setw(thebits : TBits_32); inline;
  70068. begin
  70069. pTDefRegMap(@Self)^.val := thebits;
  70070. end;
  70071. function TETH_EMAC1SA1.getw : TBits_32; inline;
  70072. begin
  70073. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70074. end;
  70075. procedure TETH_EMACxSA1.setSTNADDR3(thebits : TBits_8); inline;
  70076. begin
  70077. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  70078. end;
  70079. function TETH_EMACxSA1.getSTNADDR3 : TBits_8; inline;
  70080. begin
  70081. getSTNADDR3 := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  70082. end;
  70083. procedure TETH_EMACxSA1.setSTNADDR4(thebits : TBits_8); inline;
  70084. begin
  70085. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  70086. end;
  70087. function TETH_EMACxSA1.getSTNADDR4 : TBits_8; inline;
  70088. begin
  70089. getSTNADDR4 := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  70090. end;
  70091. procedure TETH_EMACxSA1.setw(thebits : TBits_32); inline;
  70092. begin
  70093. pTDefRegMap(@Self)^.val := thebits;
  70094. end;
  70095. function TETH_EMACxSA1.getw : TBits_32; inline;
  70096. begin
  70097. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70098. end;
  70099. procedure TETH_EMAC1SA2.setSTNADDR1(thebits : TBits_8); inline;
  70100. begin
  70101. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  70102. end;
  70103. function TETH_EMAC1SA2.getSTNADDR1 : TBits_8; inline;
  70104. begin
  70105. getSTNADDR1 := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  70106. end;
  70107. procedure TETH_EMAC1SA2.setSTNADDR2(thebits : TBits_8); inline;
  70108. begin
  70109. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  70110. end;
  70111. function TETH_EMAC1SA2.getSTNADDR2 : TBits_8; inline;
  70112. begin
  70113. getSTNADDR2 := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  70114. end;
  70115. procedure TETH_EMAC1SA2.setw(thebits : TBits_32); inline;
  70116. begin
  70117. pTDefRegMap(@Self)^.val := thebits;
  70118. end;
  70119. function TETH_EMAC1SA2.getw : TBits_32; inline;
  70120. begin
  70121. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70122. end;
  70123. procedure TETH_EMACxSA2.setSTNADDR1(thebits : TBits_8); inline;
  70124. begin
  70125. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  70126. end;
  70127. function TETH_EMACxSA2.getSTNADDR1 : TBits_8; inline;
  70128. begin
  70129. getSTNADDR1 := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  70130. end;
  70131. procedure TETH_EMACxSA2.setSTNADDR2(thebits : TBits_8); inline;
  70132. begin
  70133. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  70134. end;
  70135. function TETH_EMACxSA2.getSTNADDR2 : TBits_8; inline;
  70136. begin
  70137. getSTNADDR2 := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  70138. end;
  70139. procedure TETH_EMACxSA2.setw(thebits : TBits_32); inline;
  70140. begin
  70141. pTDefRegMap(@Self)^.val := thebits;
  70142. end;
  70143. function TETH_EMACxSA2.getw : TBits_32; inline;
  70144. begin
  70145. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70146. end;
  70147. procedure TCAN1_C1CON.setDNCNT(thebits : TBits_5); inline;
  70148. begin
  70149. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  70150. end;
  70151. function TCAN1_C1CON.getDNCNT : TBits_5; inline;
  70152. begin
  70153. getDNCNT := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  70154. end;
  70155. procedure TCAN1_C1CON.setCANBUSY; inline;
  70156. begin
  70157. pTDefRegMap(@Self)^.&set := $00000800;
  70158. end;
  70159. procedure TCAN1_C1CON.clearCANBUSY; inline;
  70160. begin
  70161. pTDefRegMap(@Self)^.clr := $00000800;
  70162. end;
  70163. procedure TCAN1_C1CON.setCANBUSY(thebits : TBits_1); inline;
  70164. begin
  70165. if thebits = 0 then
  70166. pTDefRegMap(@Self)^.clr := $00000800
  70167. else
  70168. pTDefRegMap(@Self)^.&set := $00000800;
  70169. end;
  70170. function TCAN1_C1CON.getCANBUSY : TBits_1; inline;
  70171. begin
  70172. getCANBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  70173. end;
  70174. procedure TCAN1_C1CON.setSIDL; inline;
  70175. begin
  70176. pTDefRegMap(@Self)^.&set := $00002000;
  70177. end;
  70178. procedure TCAN1_C1CON.clearSIDL; inline;
  70179. begin
  70180. pTDefRegMap(@Self)^.clr := $00002000;
  70181. end;
  70182. procedure TCAN1_C1CON.setSIDL(thebits : TBits_1); inline;
  70183. begin
  70184. if thebits = 0 then
  70185. pTDefRegMap(@Self)^.clr := $00002000
  70186. else
  70187. pTDefRegMap(@Self)^.&set := $00002000;
  70188. end;
  70189. function TCAN1_C1CON.getSIDL : TBits_1; inline;
  70190. begin
  70191. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  70192. end;
  70193. procedure TCAN1_C1CON.setON; inline;
  70194. begin
  70195. pTDefRegMap(@Self)^.&set := $00008000;
  70196. end;
  70197. procedure TCAN1_C1CON.clearON; inline;
  70198. begin
  70199. pTDefRegMap(@Self)^.clr := $00008000;
  70200. end;
  70201. procedure TCAN1_C1CON.setON(thebits : TBits_1); inline;
  70202. begin
  70203. if thebits = 0 then
  70204. pTDefRegMap(@Self)^.clr := $00008000
  70205. else
  70206. pTDefRegMap(@Self)^.&set := $00008000;
  70207. end;
  70208. function TCAN1_C1CON.getON : TBits_1; inline;
  70209. begin
  70210. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  70211. end;
  70212. procedure TCAN1_C1CON.setCANCAP; inline;
  70213. begin
  70214. pTDefRegMap(@Self)^.&set := $00100000;
  70215. end;
  70216. procedure TCAN1_C1CON.clearCANCAP; inline;
  70217. begin
  70218. pTDefRegMap(@Self)^.clr := $00100000;
  70219. end;
  70220. procedure TCAN1_C1CON.setCANCAP(thebits : TBits_1); inline;
  70221. begin
  70222. if thebits = 0 then
  70223. pTDefRegMap(@Self)^.clr := $00100000
  70224. else
  70225. pTDefRegMap(@Self)^.&set := $00100000;
  70226. end;
  70227. function TCAN1_C1CON.getCANCAP : TBits_1; inline;
  70228. begin
  70229. getCANCAP := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  70230. end;
  70231. procedure TCAN1_C1CON.setOPMOD(thebits : TBits_3); inline;
  70232. begin
  70233. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF1FFFFF or ( thebits shl 21 );
  70234. end;
  70235. function TCAN1_C1CON.getOPMOD : TBits_3; inline;
  70236. begin
  70237. getOPMOD := (pTDefRegMap(@Self)^.val and $00E00000) shr 21;
  70238. end;
  70239. procedure TCAN1_C1CON.setREQOP(thebits : TBits_3); inline;
  70240. begin
  70241. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  70242. end;
  70243. function TCAN1_C1CON.getREQOP : TBits_3; inline;
  70244. begin
  70245. getREQOP := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  70246. end;
  70247. procedure TCAN1_C1CON.setABAT; inline;
  70248. begin
  70249. pTDefRegMap(@Self)^.&set := $08000000;
  70250. end;
  70251. procedure TCAN1_C1CON.clearABAT; inline;
  70252. begin
  70253. pTDefRegMap(@Self)^.clr := $08000000;
  70254. end;
  70255. procedure TCAN1_C1CON.setABAT(thebits : TBits_1); inline;
  70256. begin
  70257. if thebits = 0 then
  70258. pTDefRegMap(@Self)^.clr := $08000000
  70259. else
  70260. pTDefRegMap(@Self)^.&set := $08000000;
  70261. end;
  70262. function TCAN1_C1CON.getABAT : TBits_1; inline;
  70263. begin
  70264. getABAT := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  70265. end;
  70266. procedure TCAN1_C1CON.setw(thebits : TBits_32); inline;
  70267. begin
  70268. pTDefRegMap(@Self)^.val := thebits;
  70269. end;
  70270. function TCAN1_C1CON.getw : TBits_32; inline;
  70271. begin
  70272. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70273. end;
  70274. procedure TCAN1_C1CFG.setBRP(thebits : TBits_6); inline;
  70275. begin
  70276. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC0 or ( thebits shl 0 );
  70277. end;
  70278. function TCAN1_C1CFG.getBRP : TBits_6; inline;
  70279. begin
  70280. getBRP := (pTDefRegMap(@Self)^.val and $0000003F) shr 0;
  70281. end;
  70282. procedure TCAN1_C1CFG.setSJW(thebits : TBits_2); inline;
  70283. begin
  70284. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  70285. end;
  70286. function TCAN1_C1CFG.getSJW : TBits_2; inline;
  70287. begin
  70288. getSJW := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  70289. end;
  70290. procedure TCAN1_C1CFG.setPRSEG(thebits : TBits_3); inline;
  70291. begin
  70292. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  70293. end;
  70294. function TCAN1_C1CFG.getPRSEG : TBits_3; inline;
  70295. begin
  70296. getPRSEG := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  70297. end;
  70298. procedure TCAN1_C1CFG.setSEG1PH(thebits : TBits_3); inline;
  70299. begin
  70300. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFC7FF or ( thebits shl 11 );
  70301. end;
  70302. function TCAN1_C1CFG.getSEG1PH : TBits_3; inline;
  70303. begin
  70304. getSEG1PH := (pTDefRegMap(@Self)^.val and $00003800) shr 11;
  70305. end;
  70306. procedure TCAN1_C1CFG.setSAM; inline;
  70307. begin
  70308. pTDefRegMap(@Self)^.&set := $00004000;
  70309. end;
  70310. procedure TCAN1_C1CFG.clearSAM; inline;
  70311. begin
  70312. pTDefRegMap(@Self)^.clr := $00004000;
  70313. end;
  70314. procedure TCAN1_C1CFG.setSAM(thebits : TBits_1); inline;
  70315. begin
  70316. if thebits = 0 then
  70317. pTDefRegMap(@Self)^.clr := $00004000
  70318. else
  70319. pTDefRegMap(@Self)^.&set := $00004000;
  70320. end;
  70321. function TCAN1_C1CFG.getSAM : TBits_1; inline;
  70322. begin
  70323. getSAM := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  70324. end;
  70325. procedure TCAN1_C1CFG.setSEG2PHTS; inline;
  70326. begin
  70327. pTDefRegMap(@Self)^.&set := $00008000;
  70328. end;
  70329. procedure TCAN1_C1CFG.clearSEG2PHTS; inline;
  70330. begin
  70331. pTDefRegMap(@Self)^.clr := $00008000;
  70332. end;
  70333. procedure TCAN1_C1CFG.setSEG2PHTS(thebits : TBits_1); inline;
  70334. begin
  70335. if thebits = 0 then
  70336. pTDefRegMap(@Self)^.clr := $00008000
  70337. else
  70338. pTDefRegMap(@Self)^.&set := $00008000;
  70339. end;
  70340. function TCAN1_C1CFG.getSEG2PHTS : TBits_1; inline;
  70341. begin
  70342. getSEG2PHTS := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  70343. end;
  70344. procedure TCAN1_C1CFG.setSEG2PH(thebits : TBits_3); inline;
  70345. begin
  70346. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
  70347. end;
  70348. function TCAN1_C1CFG.getSEG2PH : TBits_3; inline;
  70349. begin
  70350. getSEG2PH := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
  70351. end;
  70352. procedure TCAN1_C1CFG.setWAKFIL; inline;
  70353. begin
  70354. pTDefRegMap(@Self)^.&set := $00400000;
  70355. end;
  70356. procedure TCAN1_C1CFG.clearWAKFIL; inline;
  70357. begin
  70358. pTDefRegMap(@Self)^.clr := $00400000;
  70359. end;
  70360. procedure TCAN1_C1CFG.setWAKFIL(thebits : TBits_1); inline;
  70361. begin
  70362. if thebits = 0 then
  70363. pTDefRegMap(@Self)^.clr := $00400000
  70364. else
  70365. pTDefRegMap(@Self)^.&set := $00400000;
  70366. end;
  70367. function TCAN1_C1CFG.getWAKFIL : TBits_1; inline;
  70368. begin
  70369. getWAKFIL := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  70370. end;
  70371. procedure TCAN1_C1CFG.setw(thebits : TBits_32); inline;
  70372. begin
  70373. pTDefRegMap(@Self)^.val := thebits;
  70374. end;
  70375. function TCAN1_C1CFG.getw : TBits_32; inline;
  70376. begin
  70377. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70378. end;
  70379. procedure TCAN1_C1INT.setTBIF; inline;
  70380. begin
  70381. pTDefRegMap(@Self)^.&set := $00000001;
  70382. end;
  70383. procedure TCAN1_C1INT.clearTBIF; inline;
  70384. begin
  70385. pTDefRegMap(@Self)^.clr := $00000001;
  70386. end;
  70387. procedure TCAN1_C1INT.setTBIF(thebits : TBits_1); inline;
  70388. begin
  70389. if thebits = 0 then
  70390. pTDefRegMap(@Self)^.clr := $00000001
  70391. else
  70392. pTDefRegMap(@Self)^.&set := $00000001;
  70393. end;
  70394. function TCAN1_C1INT.getTBIF : TBits_1; inline;
  70395. begin
  70396. getTBIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  70397. end;
  70398. procedure TCAN1_C1INT.setRBIF; inline;
  70399. begin
  70400. pTDefRegMap(@Self)^.&set := $00000002;
  70401. end;
  70402. procedure TCAN1_C1INT.clearRBIF; inline;
  70403. begin
  70404. pTDefRegMap(@Self)^.clr := $00000002;
  70405. end;
  70406. procedure TCAN1_C1INT.setRBIF(thebits : TBits_1); inline;
  70407. begin
  70408. if thebits = 0 then
  70409. pTDefRegMap(@Self)^.clr := $00000002
  70410. else
  70411. pTDefRegMap(@Self)^.&set := $00000002;
  70412. end;
  70413. function TCAN1_C1INT.getRBIF : TBits_1; inline;
  70414. begin
  70415. getRBIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  70416. end;
  70417. procedure TCAN1_C1INT.setCTMRIF; inline;
  70418. begin
  70419. pTDefRegMap(@Self)^.&set := $00000004;
  70420. end;
  70421. procedure TCAN1_C1INT.clearCTMRIF; inline;
  70422. begin
  70423. pTDefRegMap(@Self)^.clr := $00000004;
  70424. end;
  70425. procedure TCAN1_C1INT.setCTMRIF(thebits : TBits_1); inline;
  70426. begin
  70427. if thebits = 0 then
  70428. pTDefRegMap(@Self)^.clr := $00000004
  70429. else
  70430. pTDefRegMap(@Self)^.&set := $00000004;
  70431. end;
  70432. function TCAN1_C1INT.getCTMRIF : TBits_1; inline;
  70433. begin
  70434. getCTMRIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  70435. end;
  70436. procedure TCAN1_C1INT.setMODIF; inline;
  70437. begin
  70438. pTDefRegMap(@Self)^.&set := $00000008;
  70439. end;
  70440. procedure TCAN1_C1INT.clearMODIF; inline;
  70441. begin
  70442. pTDefRegMap(@Self)^.clr := $00000008;
  70443. end;
  70444. procedure TCAN1_C1INT.setMODIF(thebits : TBits_1); inline;
  70445. begin
  70446. if thebits = 0 then
  70447. pTDefRegMap(@Self)^.clr := $00000008
  70448. else
  70449. pTDefRegMap(@Self)^.&set := $00000008;
  70450. end;
  70451. function TCAN1_C1INT.getMODIF : TBits_1; inline;
  70452. begin
  70453. getMODIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  70454. end;
  70455. procedure TCAN1_C1INT.setRBOVIF; inline;
  70456. begin
  70457. pTDefRegMap(@Self)^.&set := $00000800;
  70458. end;
  70459. procedure TCAN1_C1INT.clearRBOVIF; inline;
  70460. begin
  70461. pTDefRegMap(@Self)^.clr := $00000800;
  70462. end;
  70463. procedure TCAN1_C1INT.setRBOVIF(thebits : TBits_1); inline;
  70464. begin
  70465. if thebits = 0 then
  70466. pTDefRegMap(@Self)^.clr := $00000800
  70467. else
  70468. pTDefRegMap(@Self)^.&set := $00000800;
  70469. end;
  70470. function TCAN1_C1INT.getRBOVIF : TBits_1; inline;
  70471. begin
  70472. getRBOVIF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  70473. end;
  70474. procedure TCAN1_C1INT.setSERRIF; inline;
  70475. begin
  70476. pTDefRegMap(@Self)^.&set := $00001000;
  70477. end;
  70478. procedure TCAN1_C1INT.clearSERRIF; inline;
  70479. begin
  70480. pTDefRegMap(@Self)^.clr := $00001000;
  70481. end;
  70482. procedure TCAN1_C1INT.setSERRIF(thebits : TBits_1); inline;
  70483. begin
  70484. if thebits = 0 then
  70485. pTDefRegMap(@Self)^.clr := $00001000
  70486. else
  70487. pTDefRegMap(@Self)^.&set := $00001000;
  70488. end;
  70489. function TCAN1_C1INT.getSERRIF : TBits_1; inline;
  70490. begin
  70491. getSERRIF := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  70492. end;
  70493. procedure TCAN1_C1INT.setCERRIF; inline;
  70494. begin
  70495. pTDefRegMap(@Self)^.&set := $00002000;
  70496. end;
  70497. procedure TCAN1_C1INT.clearCERRIF; inline;
  70498. begin
  70499. pTDefRegMap(@Self)^.clr := $00002000;
  70500. end;
  70501. procedure TCAN1_C1INT.setCERRIF(thebits : TBits_1); inline;
  70502. begin
  70503. if thebits = 0 then
  70504. pTDefRegMap(@Self)^.clr := $00002000
  70505. else
  70506. pTDefRegMap(@Self)^.&set := $00002000;
  70507. end;
  70508. function TCAN1_C1INT.getCERRIF : TBits_1; inline;
  70509. begin
  70510. getCERRIF := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  70511. end;
  70512. procedure TCAN1_C1INT.setWAKIF; inline;
  70513. begin
  70514. pTDefRegMap(@Self)^.&set := $00004000;
  70515. end;
  70516. procedure TCAN1_C1INT.clearWAKIF; inline;
  70517. begin
  70518. pTDefRegMap(@Self)^.clr := $00004000;
  70519. end;
  70520. procedure TCAN1_C1INT.setWAKIF(thebits : TBits_1); inline;
  70521. begin
  70522. if thebits = 0 then
  70523. pTDefRegMap(@Self)^.clr := $00004000
  70524. else
  70525. pTDefRegMap(@Self)^.&set := $00004000;
  70526. end;
  70527. function TCAN1_C1INT.getWAKIF : TBits_1; inline;
  70528. begin
  70529. getWAKIF := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  70530. end;
  70531. procedure TCAN1_C1INT.setIVRIF; inline;
  70532. begin
  70533. pTDefRegMap(@Self)^.&set := $00008000;
  70534. end;
  70535. procedure TCAN1_C1INT.clearIVRIF; inline;
  70536. begin
  70537. pTDefRegMap(@Self)^.clr := $00008000;
  70538. end;
  70539. procedure TCAN1_C1INT.setIVRIF(thebits : TBits_1); inline;
  70540. begin
  70541. if thebits = 0 then
  70542. pTDefRegMap(@Self)^.clr := $00008000
  70543. else
  70544. pTDefRegMap(@Self)^.&set := $00008000;
  70545. end;
  70546. function TCAN1_C1INT.getIVRIF : TBits_1; inline;
  70547. begin
  70548. getIVRIF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  70549. end;
  70550. procedure TCAN1_C1INT.setTBIE; inline;
  70551. begin
  70552. pTDefRegMap(@Self)^.&set := $00010000;
  70553. end;
  70554. procedure TCAN1_C1INT.clearTBIE; inline;
  70555. begin
  70556. pTDefRegMap(@Self)^.clr := $00010000;
  70557. end;
  70558. procedure TCAN1_C1INT.setTBIE(thebits : TBits_1); inline;
  70559. begin
  70560. if thebits = 0 then
  70561. pTDefRegMap(@Self)^.clr := $00010000
  70562. else
  70563. pTDefRegMap(@Self)^.&set := $00010000;
  70564. end;
  70565. function TCAN1_C1INT.getTBIE : TBits_1; inline;
  70566. begin
  70567. getTBIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  70568. end;
  70569. procedure TCAN1_C1INT.setRBIE; inline;
  70570. begin
  70571. pTDefRegMap(@Self)^.&set := $00020000;
  70572. end;
  70573. procedure TCAN1_C1INT.clearRBIE; inline;
  70574. begin
  70575. pTDefRegMap(@Self)^.clr := $00020000;
  70576. end;
  70577. procedure TCAN1_C1INT.setRBIE(thebits : TBits_1); inline;
  70578. begin
  70579. if thebits = 0 then
  70580. pTDefRegMap(@Self)^.clr := $00020000
  70581. else
  70582. pTDefRegMap(@Self)^.&set := $00020000;
  70583. end;
  70584. function TCAN1_C1INT.getRBIE : TBits_1; inline;
  70585. begin
  70586. getRBIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  70587. end;
  70588. procedure TCAN1_C1INT.setCTMRIE; inline;
  70589. begin
  70590. pTDefRegMap(@Self)^.&set := $00040000;
  70591. end;
  70592. procedure TCAN1_C1INT.clearCTMRIE; inline;
  70593. begin
  70594. pTDefRegMap(@Self)^.clr := $00040000;
  70595. end;
  70596. procedure TCAN1_C1INT.setCTMRIE(thebits : TBits_1); inline;
  70597. begin
  70598. if thebits = 0 then
  70599. pTDefRegMap(@Self)^.clr := $00040000
  70600. else
  70601. pTDefRegMap(@Self)^.&set := $00040000;
  70602. end;
  70603. function TCAN1_C1INT.getCTMRIE : TBits_1; inline;
  70604. begin
  70605. getCTMRIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  70606. end;
  70607. procedure TCAN1_C1INT.setMODIE; inline;
  70608. begin
  70609. pTDefRegMap(@Self)^.&set := $00080000;
  70610. end;
  70611. procedure TCAN1_C1INT.clearMODIE; inline;
  70612. begin
  70613. pTDefRegMap(@Self)^.clr := $00080000;
  70614. end;
  70615. procedure TCAN1_C1INT.setMODIE(thebits : TBits_1); inline;
  70616. begin
  70617. if thebits = 0 then
  70618. pTDefRegMap(@Self)^.clr := $00080000
  70619. else
  70620. pTDefRegMap(@Self)^.&set := $00080000;
  70621. end;
  70622. function TCAN1_C1INT.getMODIE : TBits_1; inline;
  70623. begin
  70624. getMODIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  70625. end;
  70626. procedure TCAN1_C1INT.setRBOVIE; inline;
  70627. begin
  70628. pTDefRegMap(@Self)^.&set := $08000000;
  70629. end;
  70630. procedure TCAN1_C1INT.clearRBOVIE; inline;
  70631. begin
  70632. pTDefRegMap(@Self)^.clr := $08000000;
  70633. end;
  70634. procedure TCAN1_C1INT.setRBOVIE(thebits : TBits_1); inline;
  70635. begin
  70636. if thebits = 0 then
  70637. pTDefRegMap(@Self)^.clr := $08000000
  70638. else
  70639. pTDefRegMap(@Self)^.&set := $08000000;
  70640. end;
  70641. function TCAN1_C1INT.getRBOVIE : TBits_1; inline;
  70642. begin
  70643. getRBOVIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  70644. end;
  70645. procedure TCAN1_C1INT.setSERRIE; inline;
  70646. begin
  70647. pTDefRegMap(@Self)^.&set := $10000000;
  70648. end;
  70649. procedure TCAN1_C1INT.clearSERRIE; inline;
  70650. begin
  70651. pTDefRegMap(@Self)^.clr := $10000000;
  70652. end;
  70653. procedure TCAN1_C1INT.setSERRIE(thebits : TBits_1); inline;
  70654. begin
  70655. if thebits = 0 then
  70656. pTDefRegMap(@Self)^.clr := $10000000
  70657. else
  70658. pTDefRegMap(@Self)^.&set := $10000000;
  70659. end;
  70660. function TCAN1_C1INT.getSERRIE : TBits_1; inline;
  70661. begin
  70662. getSERRIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  70663. end;
  70664. procedure TCAN1_C1INT.setCERRIE; inline;
  70665. begin
  70666. pTDefRegMap(@Self)^.&set := $20000000;
  70667. end;
  70668. procedure TCAN1_C1INT.clearCERRIE; inline;
  70669. begin
  70670. pTDefRegMap(@Self)^.clr := $20000000;
  70671. end;
  70672. procedure TCAN1_C1INT.setCERRIE(thebits : TBits_1); inline;
  70673. begin
  70674. if thebits = 0 then
  70675. pTDefRegMap(@Self)^.clr := $20000000
  70676. else
  70677. pTDefRegMap(@Self)^.&set := $20000000;
  70678. end;
  70679. function TCAN1_C1INT.getCERRIE : TBits_1; inline;
  70680. begin
  70681. getCERRIE := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  70682. end;
  70683. procedure TCAN1_C1INT.setWAKIE; inline;
  70684. begin
  70685. pTDefRegMap(@Self)^.&set := $40000000;
  70686. end;
  70687. procedure TCAN1_C1INT.clearWAKIE; inline;
  70688. begin
  70689. pTDefRegMap(@Self)^.clr := $40000000;
  70690. end;
  70691. procedure TCAN1_C1INT.setWAKIE(thebits : TBits_1); inline;
  70692. begin
  70693. if thebits = 0 then
  70694. pTDefRegMap(@Self)^.clr := $40000000
  70695. else
  70696. pTDefRegMap(@Self)^.&set := $40000000;
  70697. end;
  70698. function TCAN1_C1INT.getWAKIE : TBits_1; inline;
  70699. begin
  70700. getWAKIE := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  70701. end;
  70702. procedure TCAN1_C1INT.setIVRIE; inline;
  70703. begin
  70704. pTDefRegMap(@Self)^.&set := $80000000;
  70705. end;
  70706. procedure TCAN1_C1INT.clearIVRIE; inline;
  70707. begin
  70708. pTDefRegMap(@Self)^.clr := $80000000;
  70709. end;
  70710. procedure TCAN1_C1INT.setIVRIE(thebits : TBits_1); inline;
  70711. begin
  70712. if thebits = 0 then
  70713. pTDefRegMap(@Self)^.clr := $80000000
  70714. else
  70715. pTDefRegMap(@Self)^.&set := $80000000;
  70716. end;
  70717. function TCAN1_C1INT.getIVRIE : TBits_1; inline;
  70718. begin
  70719. getIVRIE := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  70720. end;
  70721. procedure TCAN1_C1INT.setw(thebits : TBits_32); inline;
  70722. begin
  70723. pTDefRegMap(@Self)^.val := thebits;
  70724. end;
  70725. function TCAN1_C1INT.getw : TBits_32; inline;
  70726. begin
  70727. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70728. end;
  70729. procedure TCAN1_C1VEC.setICODE(thebits : TBits_7); inline;
  70730. begin
  70731. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF80 or ( thebits shl 0 );
  70732. end;
  70733. function TCAN1_C1VEC.getICODE : TBits_7; inline;
  70734. begin
  70735. getICODE := (pTDefRegMap(@Self)^.val and $0000007F) shr 0;
  70736. end;
  70737. procedure TCAN1_C1VEC.setFILHIT(thebits : TBits_5); inline;
  70738. begin
  70739. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  70740. end;
  70741. function TCAN1_C1VEC.getFILHIT : TBits_5; inline;
  70742. begin
  70743. getFILHIT := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  70744. end;
  70745. procedure TCAN1_C1VEC.setw(thebits : TBits_32); inline;
  70746. begin
  70747. pTDefRegMap(@Self)^.val := thebits;
  70748. end;
  70749. function TCAN1_C1VEC.getw : TBits_32; inline;
  70750. begin
  70751. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70752. end;
  70753. procedure TCAN1_C1TREC.setRERRCNT(thebits : TBits_8); inline;
  70754. begin
  70755. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  70756. end;
  70757. function TCAN1_C1TREC.getRERRCNT : TBits_8; inline;
  70758. begin
  70759. getRERRCNT := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  70760. end;
  70761. procedure TCAN1_C1TREC.setTERRCNT(thebits : TBits_8); inline;
  70762. begin
  70763. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  70764. end;
  70765. function TCAN1_C1TREC.getTERRCNT : TBits_8; inline;
  70766. begin
  70767. getTERRCNT := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  70768. end;
  70769. procedure TCAN1_C1TREC.setEWARN; inline;
  70770. begin
  70771. pTDefRegMap(@Self)^.&set := $00010000;
  70772. end;
  70773. procedure TCAN1_C1TREC.clearEWARN; inline;
  70774. begin
  70775. pTDefRegMap(@Self)^.clr := $00010000;
  70776. end;
  70777. procedure TCAN1_C1TREC.setEWARN(thebits : TBits_1); inline;
  70778. begin
  70779. if thebits = 0 then
  70780. pTDefRegMap(@Self)^.clr := $00010000
  70781. else
  70782. pTDefRegMap(@Self)^.&set := $00010000;
  70783. end;
  70784. function TCAN1_C1TREC.getEWARN : TBits_1; inline;
  70785. begin
  70786. getEWARN := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  70787. end;
  70788. procedure TCAN1_C1TREC.setRXWARN; inline;
  70789. begin
  70790. pTDefRegMap(@Self)^.&set := $00020000;
  70791. end;
  70792. procedure TCAN1_C1TREC.clearRXWARN; inline;
  70793. begin
  70794. pTDefRegMap(@Self)^.clr := $00020000;
  70795. end;
  70796. procedure TCAN1_C1TREC.setRXWARN(thebits : TBits_1); inline;
  70797. begin
  70798. if thebits = 0 then
  70799. pTDefRegMap(@Self)^.clr := $00020000
  70800. else
  70801. pTDefRegMap(@Self)^.&set := $00020000;
  70802. end;
  70803. function TCAN1_C1TREC.getRXWARN : TBits_1; inline;
  70804. begin
  70805. getRXWARN := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  70806. end;
  70807. procedure TCAN1_C1TREC.setTXWARN; inline;
  70808. begin
  70809. pTDefRegMap(@Self)^.&set := $00040000;
  70810. end;
  70811. procedure TCAN1_C1TREC.clearTXWARN; inline;
  70812. begin
  70813. pTDefRegMap(@Self)^.clr := $00040000;
  70814. end;
  70815. procedure TCAN1_C1TREC.setTXWARN(thebits : TBits_1); inline;
  70816. begin
  70817. if thebits = 0 then
  70818. pTDefRegMap(@Self)^.clr := $00040000
  70819. else
  70820. pTDefRegMap(@Self)^.&set := $00040000;
  70821. end;
  70822. function TCAN1_C1TREC.getTXWARN : TBits_1; inline;
  70823. begin
  70824. getTXWARN := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  70825. end;
  70826. procedure TCAN1_C1TREC.setRXBP; inline;
  70827. begin
  70828. pTDefRegMap(@Self)^.&set := $00080000;
  70829. end;
  70830. procedure TCAN1_C1TREC.clearRXBP; inline;
  70831. begin
  70832. pTDefRegMap(@Self)^.clr := $00080000;
  70833. end;
  70834. procedure TCAN1_C1TREC.setRXBP(thebits : TBits_1); inline;
  70835. begin
  70836. if thebits = 0 then
  70837. pTDefRegMap(@Self)^.clr := $00080000
  70838. else
  70839. pTDefRegMap(@Self)^.&set := $00080000;
  70840. end;
  70841. function TCAN1_C1TREC.getRXBP : TBits_1; inline;
  70842. begin
  70843. getRXBP := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  70844. end;
  70845. procedure TCAN1_C1TREC.setTXBP; inline;
  70846. begin
  70847. pTDefRegMap(@Self)^.&set := $00100000;
  70848. end;
  70849. procedure TCAN1_C1TREC.clearTXBP; inline;
  70850. begin
  70851. pTDefRegMap(@Self)^.clr := $00100000;
  70852. end;
  70853. procedure TCAN1_C1TREC.setTXBP(thebits : TBits_1); inline;
  70854. begin
  70855. if thebits = 0 then
  70856. pTDefRegMap(@Self)^.clr := $00100000
  70857. else
  70858. pTDefRegMap(@Self)^.&set := $00100000;
  70859. end;
  70860. function TCAN1_C1TREC.getTXBP : TBits_1; inline;
  70861. begin
  70862. getTXBP := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  70863. end;
  70864. procedure TCAN1_C1TREC.setTXBO; inline;
  70865. begin
  70866. pTDefRegMap(@Self)^.&set := $00200000;
  70867. end;
  70868. procedure TCAN1_C1TREC.clearTXBO; inline;
  70869. begin
  70870. pTDefRegMap(@Self)^.clr := $00200000;
  70871. end;
  70872. procedure TCAN1_C1TREC.setTXBO(thebits : TBits_1); inline;
  70873. begin
  70874. if thebits = 0 then
  70875. pTDefRegMap(@Self)^.clr := $00200000
  70876. else
  70877. pTDefRegMap(@Self)^.&set := $00200000;
  70878. end;
  70879. function TCAN1_C1TREC.getTXBO : TBits_1; inline;
  70880. begin
  70881. getTXBO := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  70882. end;
  70883. procedure TCAN1_C1TREC.setw(thebits : TBits_32); inline;
  70884. begin
  70885. pTDefRegMap(@Self)^.val := thebits;
  70886. end;
  70887. function TCAN1_C1TREC.getw : TBits_32; inline;
  70888. begin
  70889. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70890. end;
  70891. procedure TCAN1_C1FSTAT.setFIFOIP(thebits : TBits_32); inline;
  70892. begin
  70893. pTDefRegMap(@Self)^.val := thebits;
  70894. end;
  70895. function TCAN1_C1FSTAT.getFIFOIP : TBits_32; inline;
  70896. begin
  70897. getFIFOIP := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70898. end;
  70899. procedure TCAN1_C1FSTAT.setFIFOIP0; inline;
  70900. begin
  70901. pTDefRegMap(@Self)^.&set := $00000001;
  70902. end;
  70903. procedure TCAN1_C1FSTAT.clearFIFOIP0; inline;
  70904. begin
  70905. pTDefRegMap(@Self)^.clr := $00000001;
  70906. end;
  70907. procedure TCAN1_C1FSTAT.setFIFOIP0(thebits : TBits_1); inline;
  70908. begin
  70909. if thebits = 0 then
  70910. pTDefRegMap(@Self)^.clr := $00000001
  70911. else
  70912. pTDefRegMap(@Self)^.&set := $00000001;
  70913. end;
  70914. function TCAN1_C1FSTAT.getFIFOIP0 : TBits_1; inline;
  70915. begin
  70916. getFIFOIP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  70917. end;
  70918. procedure TCAN1_C1FSTAT.setFIFOIP1; inline;
  70919. begin
  70920. pTDefRegMap(@Self)^.&set := $00000002;
  70921. end;
  70922. procedure TCAN1_C1FSTAT.clearFIFOIP1; inline;
  70923. begin
  70924. pTDefRegMap(@Self)^.clr := $00000002;
  70925. end;
  70926. procedure TCAN1_C1FSTAT.setFIFOIP1(thebits : TBits_1); inline;
  70927. begin
  70928. if thebits = 0 then
  70929. pTDefRegMap(@Self)^.clr := $00000002
  70930. else
  70931. pTDefRegMap(@Self)^.&set := $00000002;
  70932. end;
  70933. function TCAN1_C1FSTAT.getFIFOIP1 : TBits_1; inline;
  70934. begin
  70935. getFIFOIP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  70936. end;
  70937. procedure TCAN1_C1FSTAT.setFIFOIP2; inline;
  70938. begin
  70939. pTDefRegMap(@Self)^.&set := $00000004;
  70940. end;
  70941. procedure TCAN1_C1FSTAT.clearFIFOIP2; inline;
  70942. begin
  70943. pTDefRegMap(@Self)^.clr := $00000004;
  70944. end;
  70945. procedure TCAN1_C1FSTAT.setFIFOIP2(thebits : TBits_1); inline;
  70946. begin
  70947. if thebits = 0 then
  70948. pTDefRegMap(@Self)^.clr := $00000004
  70949. else
  70950. pTDefRegMap(@Self)^.&set := $00000004;
  70951. end;
  70952. function TCAN1_C1FSTAT.getFIFOIP2 : TBits_1; inline;
  70953. begin
  70954. getFIFOIP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  70955. end;
  70956. procedure TCAN1_C1FSTAT.setFIFOIP3; inline;
  70957. begin
  70958. pTDefRegMap(@Self)^.&set := $00000008;
  70959. end;
  70960. procedure TCAN1_C1FSTAT.clearFIFOIP3; inline;
  70961. begin
  70962. pTDefRegMap(@Self)^.clr := $00000008;
  70963. end;
  70964. procedure TCAN1_C1FSTAT.setFIFOIP3(thebits : TBits_1); inline;
  70965. begin
  70966. if thebits = 0 then
  70967. pTDefRegMap(@Self)^.clr := $00000008
  70968. else
  70969. pTDefRegMap(@Self)^.&set := $00000008;
  70970. end;
  70971. function TCAN1_C1FSTAT.getFIFOIP3 : TBits_1; inline;
  70972. begin
  70973. getFIFOIP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  70974. end;
  70975. procedure TCAN1_C1FSTAT.setFIFOIP4; inline;
  70976. begin
  70977. pTDefRegMap(@Self)^.&set := $00000010;
  70978. end;
  70979. procedure TCAN1_C1FSTAT.clearFIFOIP4; inline;
  70980. begin
  70981. pTDefRegMap(@Self)^.clr := $00000010;
  70982. end;
  70983. procedure TCAN1_C1FSTAT.setFIFOIP4(thebits : TBits_1); inline;
  70984. begin
  70985. if thebits = 0 then
  70986. pTDefRegMap(@Self)^.clr := $00000010
  70987. else
  70988. pTDefRegMap(@Self)^.&set := $00000010;
  70989. end;
  70990. function TCAN1_C1FSTAT.getFIFOIP4 : TBits_1; inline;
  70991. begin
  70992. getFIFOIP4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  70993. end;
  70994. procedure TCAN1_C1FSTAT.setFIFOIP5; inline;
  70995. begin
  70996. pTDefRegMap(@Self)^.&set := $00000020;
  70997. end;
  70998. procedure TCAN1_C1FSTAT.clearFIFOIP5; inline;
  70999. begin
  71000. pTDefRegMap(@Self)^.clr := $00000020;
  71001. end;
  71002. procedure TCAN1_C1FSTAT.setFIFOIP5(thebits : TBits_1); inline;
  71003. begin
  71004. if thebits = 0 then
  71005. pTDefRegMap(@Self)^.clr := $00000020
  71006. else
  71007. pTDefRegMap(@Self)^.&set := $00000020;
  71008. end;
  71009. function TCAN1_C1FSTAT.getFIFOIP5 : TBits_1; inline;
  71010. begin
  71011. getFIFOIP5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  71012. end;
  71013. procedure TCAN1_C1FSTAT.setFIFOIP6; inline;
  71014. begin
  71015. pTDefRegMap(@Self)^.&set := $00000040;
  71016. end;
  71017. procedure TCAN1_C1FSTAT.clearFIFOIP6; inline;
  71018. begin
  71019. pTDefRegMap(@Self)^.clr := $00000040;
  71020. end;
  71021. procedure TCAN1_C1FSTAT.setFIFOIP6(thebits : TBits_1); inline;
  71022. begin
  71023. if thebits = 0 then
  71024. pTDefRegMap(@Self)^.clr := $00000040
  71025. else
  71026. pTDefRegMap(@Self)^.&set := $00000040;
  71027. end;
  71028. function TCAN1_C1FSTAT.getFIFOIP6 : TBits_1; inline;
  71029. begin
  71030. getFIFOIP6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  71031. end;
  71032. procedure TCAN1_C1FSTAT.setFIFOIP7; inline;
  71033. begin
  71034. pTDefRegMap(@Self)^.&set := $00000080;
  71035. end;
  71036. procedure TCAN1_C1FSTAT.clearFIFOIP7; inline;
  71037. begin
  71038. pTDefRegMap(@Self)^.clr := $00000080;
  71039. end;
  71040. procedure TCAN1_C1FSTAT.setFIFOIP7(thebits : TBits_1); inline;
  71041. begin
  71042. if thebits = 0 then
  71043. pTDefRegMap(@Self)^.clr := $00000080
  71044. else
  71045. pTDefRegMap(@Self)^.&set := $00000080;
  71046. end;
  71047. function TCAN1_C1FSTAT.getFIFOIP7 : TBits_1; inline;
  71048. begin
  71049. getFIFOIP7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  71050. end;
  71051. procedure TCAN1_C1FSTAT.setFIFOIP8; inline;
  71052. begin
  71053. pTDefRegMap(@Self)^.&set := $00000100;
  71054. end;
  71055. procedure TCAN1_C1FSTAT.clearFIFOIP8; inline;
  71056. begin
  71057. pTDefRegMap(@Self)^.clr := $00000100;
  71058. end;
  71059. procedure TCAN1_C1FSTAT.setFIFOIP8(thebits : TBits_1); inline;
  71060. begin
  71061. if thebits = 0 then
  71062. pTDefRegMap(@Self)^.clr := $00000100
  71063. else
  71064. pTDefRegMap(@Self)^.&set := $00000100;
  71065. end;
  71066. function TCAN1_C1FSTAT.getFIFOIP8 : TBits_1; inline;
  71067. begin
  71068. getFIFOIP8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  71069. end;
  71070. procedure TCAN1_C1FSTAT.setFIFOIP9; inline;
  71071. begin
  71072. pTDefRegMap(@Self)^.&set := $00000200;
  71073. end;
  71074. procedure TCAN1_C1FSTAT.clearFIFOIP9; inline;
  71075. begin
  71076. pTDefRegMap(@Self)^.clr := $00000200;
  71077. end;
  71078. procedure TCAN1_C1FSTAT.setFIFOIP9(thebits : TBits_1); inline;
  71079. begin
  71080. if thebits = 0 then
  71081. pTDefRegMap(@Self)^.clr := $00000200
  71082. else
  71083. pTDefRegMap(@Self)^.&set := $00000200;
  71084. end;
  71085. function TCAN1_C1FSTAT.getFIFOIP9 : TBits_1; inline;
  71086. begin
  71087. getFIFOIP9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  71088. end;
  71089. procedure TCAN1_C1FSTAT.setFIFOIP10; inline;
  71090. begin
  71091. pTDefRegMap(@Self)^.&set := $00000400;
  71092. end;
  71093. procedure TCAN1_C1FSTAT.clearFIFOIP10; inline;
  71094. begin
  71095. pTDefRegMap(@Self)^.clr := $00000400;
  71096. end;
  71097. procedure TCAN1_C1FSTAT.setFIFOIP10(thebits : TBits_1); inline;
  71098. begin
  71099. if thebits = 0 then
  71100. pTDefRegMap(@Self)^.clr := $00000400
  71101. else
  71102. pTDefRegMap(@Self)^.&set := $00000400;
  71103. end;
  71104. function TCAN1_C1FSTAT.getFIFOIP10 : TBits_1; inline;
  71105. begin
  71106. getFIFOIP10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  71107. end;
  71108. procedure TCAN1_C1FSTAT.setFIFOIP11; inline;
  71109. begin
  71110. pTDefRegMap(@Self)^.&set := $00000800;
  71111. end;
  71112. procedure TCAN1_C1FSTAT.clearFIFOIP11; inline;
  71113. begin
  71114. pTDefRegMap(@Self)^.clr := $00000800;
  71115. end;
  71116. procedure TCAN1_C1FSTAT.setFIFOIP11(thebits : TBits_1); inline;
  71117. begin
  71118. if thebits = 0 then
  71119. pTDefRegMap(@Self)^.clr := $00000800
  71120. else
  71121. pTDefRegMap(@Self)^.&set := $00000800;
  71122. end;
  71123. function TCAN1_C1FSTAT.getFIFOIP11 : TBits_1; inline;
  71124. begin
  71125. getFIFOIP11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  71126. end;
  71127. procedure TCAN1_C1FSTAT.setFIFOIP12; inline;
  71128. begin
  71129. pTDefRegMap(@Self)^.&set := $00001000;
  71130. end;
  71131. procedure TCAN1_C1FSTAT.clearFIFOIP12; inline;
  71132. begin
  71133. pTDefRegMap(@Self)^.clr := $00001000;
  71134. end;
  71135. procedure TCAN1_C1FSTAT.setFIFOIP12(thebits : TBits_1); inline;
  71136. begin
  71137. if thebits = 0 then
  71138. pTDefRegMap(@Self)^.clr := $00001000
  71139. else
  71140. pTDefRegMap(@Self)^.&set := $00001000;
  71141. end;
  71142. function TCAN1_C1FSTAT.getFIFOIP12 : TBits_1; inline;
  71143. begin
  71144. getFIFOIP12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  71145. end;
  71146. procedure TCAN1_C1FSTAT.setFIFOIP13; inline;
  71147. begin
  71148. pTDefRegMap(@Self)^.&set := $00002000;
  71149. end;
  71150. procedure TCAN1_C1FSTAT.clearFIFOIP13; inline;
  71151. begin
  71152. pTDefRegMap(@Self)^.clr := $00002000;
  71153. end;
  71154. procedure TCAN1_C1FSTAT.setFIFOIP13(thebits : TBits_1); inline;
  71155. begin
  71156. if thebits = 0 then
  71157. pTDefRegMap(@Self)^.clr := $00002000
  71158. else
  71159. pTDefRegMap(@Self)^.&set := $00002000;
  71160. end;
  71161. function TCAN1_C1FSTAT.getFIFOIP13 : TBits_1; inline;
  71162. begin
  71163. getFIFOIP13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  71164. end;
  71165. procedure TCAN1_C1FSTAT.setFIFOIP14; inline;
  71166. begin
  71167. pTDefRegMap(@Self)^.&set := $00004000;
  71168. end;
  71169. procedure TCAN1_C1FSTAT.clearFIFOIP14; inline;
  71170. begin
  71171. pTDefRegMap(@Self)^.clr := $00004000;
  71172. end;
  71173. procedure TCAN1_C1FSTAT.setFIFOIP14(thebits : TBits_1); inline;
  71174. begin
  71175. if thebits = 0 then
  71176. pTDefRegMap(@Self)^.clr := $00004000
  71177. else
  71178. pTDefRegMap(@Self)^.&set := $00004000;
  71179. end;
  71180. function TCAN1_C1FSTAT.getFIFOIP14 : TBits_1; inline;
  71181. begin
  71182. getFIFOIP14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  71183. end;
  71184. procedure TCAN1_C1FSTAT.setFIFOIP15; inline;
  71185. begin
  71186. pTDefRegMap(@Self)^.&set := $00008000;
  71187. end;
  71188. procedure TCAN1_C1FSTAT.clearFIFOIP15; inline;
  71189. begin
  71190. pTDefRegMap(@Self)^.clr := $00008000;
  71191. end;
  71192. procedure TCAN1_C1FSTAT.setFIFOIP15(thebits : TBits_1); inline;
  71193. begin
  71194. if thebits = 0 then
  71195. pTDefRegMap(@Self)^.clr := $00008000
  71196. else
  71197. pTDefRegMap(@Self)^.&set := $00008000;
  71198. end;
  71199. function TCAN1_C1FSTAT.getFIFOIP15 : TBits_1; inline;
  71200. begin
  71201. getFIFOIP15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  71202. end;
  71203. procedure TCAN1_C1FSTAT.setFIFOIP16; inline;
  71204. begin
  71205. pTDefRegMap(@Self)^.&set := $00010000;
  71206. end;
  71207. procedure TCAN1_C1FSTAT.clearFIFOIP16; inline;
  71208. begin
  71209. pTDefRegMap(@Self)^.clr := $00010000;
  71210. end;
  71211. procedure TCAN1_C1FSTAT.setFIFOIP16(thebits : TBits_1); inline;
  71212. begin
  71213. if thebits = 0 then
  71214. pTDefRegMap(@Self)^.clr := $00010000
  71215. else
  71216. pTDefRegMap(@Self)^.&set := $00010000;
  71217. end;
  71218. function TCAN1_C1FSTAT.getFIFOIP16 : TBits_1; inline;
  71219. begin
  71220. getFIFOIP16 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  71221. end;
  71222. procedure TCAN1_C1FSTAT.setFIFOIP17; inline;
  71223. begin
  71224. pTDefRegMap(@Self)^.&set := $00020000;
  71225. end;
  71226. procedure TCAN1_C1FSTAT.clearFIFOIP17; inline;
  71227. begin
  71228. pTDefRegMap(@Self)^.clr := $00020000;
  71229. end;
  71230. procedure TCAN1_C1FSTAT.setFIFOIP17(thebits : TBits_1); inline;
  71231. begin
  71232. if thebits = 0 then
  71233. pTDefRegMap(@Self)^.clr := $00020000
  71234. else
  71235. pTDefRegMap(@Self)^.&set := $00020000;
  71236. end;
  71237. function TCAN1_C1FSTAT.getFIFOIP17 : TBits_1; inline;
  71238. begin
  71239. getFIFOIP17 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  71240. end;
  71241. procedure TCAN1_C1FSTAT.setFIFOIP18; inline;
  71242. begin
  71243. pTDefRegMap(@Self)^.&set := $00040000;
  71244. end;
  71245. procedure TCAN1_C1FSTAT.clearFIFOIP18; inline;
  71246. begin
  71247. pTDefRegMap(@Self)^.clr := $00040000;
  71248. end;
  71249. procedure TCAN1_C1FSTAT.setFIFOIP18(thebits : TBits_1); inline;
  71250. begin
  71251. if thebits = 0 then
  71252. pTDefRegMap(@Self)^.clr := $00040000
  71253. else
  71254. pTDefRegMap(@Self)^.&set := $00040000;
  71255. end;
  71256. function TCAN1_C1FSTAT.getFIFOIP18 : TBits_1; inline;
  71257. begin
  71258. getFIFOIP18 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  71259. end;
  71260. procedure TCAN1_C1FSTAT.setFIFOIP19; inline;
  71261. begin
  71262. pTDefRegMap(@Self)^.&set := $00080000;
  71263. end;
  71264. procedure TCAN1_C1FSTAT.clearFIFOIP19; inline;
  71265. begin
  71266. pTDefRegMap(@Self)^.clr := $00080000;
  71267. end;
  71268. procedure TCAN1_C1FSTAT.setFIFOIP19(thebits : TBits_1); inline;
  71269. begin
  71270. if thebits = 0 then
  71271. pTDefRegMap(@Self)^.clr := $00080000
  71272. else
  71273. pTDefRegMap(@Self)^.&set := $00080000;
  71274. end;
  71275. function TCAN1_C1FSTAT.getFIFOIP19 : TBits_1; inline;
  71276. begin
  71277. getFIFOIP19 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  71278. end;
  71279. procedure TCAN1_C1FSTAT.setFIFOIP20; inline;
  71280. begin
  71281. pTDefRegMap(@Self)^.&set := $00100000;
  71282. end;
  71283. procedure TCAN1_C1FSTAT.clearFIFOIP20; inline;
  71284. begin
  71285. pTDefRegMap(@Self)^.clr := $00100000;
  71286. end;
  71287. procedure TCAN1_C1FSTAT.setFIFOIP20(thebits : TBits_1); inline;
  71288. begin
  71289. if thebits = 0 then
  71290. pTDefRegMap(@Self)^.clr := $00100000
  71291. else
  71292. pTDefRegMap(@Self)^.&set := $00100000;
  71293. end;
  71294. function TCAN1_C1FSTAT.getFIFOIP20 : TBits_1; inline;
  71295. begin
  71296. getFIFOIP20 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  71297. end;
  71298. procedure TCAN1_C1FSTAT.setFIFOIP21; inline;
  71299. begin
  71300. pTDefRegMap(@Self)^.&set := $00200000;
  71301. end;
  71302. procedure TCAN1_C1FSTAT.clearFIFOIP21; inline;
  71303. begin
  71304. pTDefRegMap(@Self)^.clr := $00200000;
  71305. end;
  71306. procedure TCAN1_C1FSTAT.setFIFOIP21(thebits : TBits_1); inline;
  71307. begin
  71308. if thebits = 0 then
  71309. pTDefRegMap(@Self)^.clr := $00200000
  71310. else
  71311. pTDefRegMap(@Self)^.&set := $00200000;
  71312. end;
  71313. function TCAN1_C1FSTAT.getFIFOIP21 : TBits_1; inline;
  71314. begin
  71315. getFIFOIP21 := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  71316. end;
  71317. procedure TCAN1_C1FSTAT.setFIFOIP22; inline;
  71318. begin
  71319. pTDefRegMap(@Self)^.&set := $00400000;
  71320. end;
  71321. procedure TCAN1_C1FSTAT.clearFIFOIP22; inline;
  71322. begin
  71323. pTDefRegMap(@Self)^.clr := $00400000;
  71324. end;
  71325. procedure TCAN1_C1FSTAT.setFIFOIP22(thebits : TBits_1); inline;
  71326. begin
  71327. if thebits = 0 then
  71328. pTDefRegMap(@Self)^.clr := $00400000
  71329. else
  71330. pTDefRegMap(@Self)^.&set := $00400000;
  71331. end;
  71332. function TCAN1_C1FSTAT.getFIFOIP22 : TBits_1; inline;
  71333. begin
  71334. getFIFOIP22 := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  71335. end;
  71336. procedure TCAN1_C1FSTAT.setFIFOIP23; inline;
  71337. begin
  71338. pTDefRegMap(@Self)^.&set := $00800000;
  71339. end;
  71340. procedure TCAN1_C1FSTAT.clearFIFOIP23; inline;
  71341. begin
  71342. pTDefRegMap(@Self)^.clr := $00800000;
  71343. end;
  71344. procedure TCAN1_C1FSTAT.setFIFOIP23(thebits : TBits_1); inline;
  71345. begin
  71346. if thebits = 0 then
  71347. pTDefRegMap(@Self)^.clr := $00800000
  71348. else
  71349. pTDefRegMap(@Self)^.&set := $00800000;
  71350. end;
  71351. function TCAN1_C1FSTAT.getFIFOIP23 : TBits_1; inline;
  71352. begin
  71353. getFIFOIP23 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  71354. end;
  71355. procedure TCAN1_C1FSTAT.setFIFOIP24; inline;
  71356. begin
  71357. pTDefRegMap(@Self)^.&set := $01000000;
  71358. end;
  71359. procedure TCAN1_C1FSTAT.clearFIFOIP24; inline;
  71360. begin
  71361. pTDefRegMap(@Self)^.clr := $01000000;
  71362. end;
  71363. procedure TCAN1_C1FSTAT.setFIFOIP24(thebits : TBits_1); inline;
  71364. begin
  71365. if thebits = 0 then
  71366. pTDefRegMap(@Self)^.clr := $01000000
  71367. else
  71368. pTDefRegMap(@Self)^.&set := $01000000;
  71369. end;
  71370. function TCAN1_C1FSTAT.getFIFOIP24 : TBits_1; inline;
  71371. begin
  71372. getFIFOIP24 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  71373. end;
  71374. procedure TCAN1_C1FSTAT.setFIFOIP25; inline;
  71375. begin
  71376. pTDefRegMap(@Self)^.&set := $02000000;
  71377. end;
  71378. procedure TCAN1_C1FSTAT.clearFIFOIP25; inline;
  71379. begin
  71380. pTDefRegMap(@Self)^.clr := $02000000;
  71381. end;
  71382. procedure TCAN1_C1FSTAT.setFIFOIP25(thebits : TBits_1); inline;
  71383. begin
  71384. if thebits = 0 then
  71385. pTDefRegMap(@Self)^.clr := $02000000
  71386. else
  71387. pTDefRegMap(@Self)^.&set := $02000000;
  71388. end;
  71389. function TCAN1_C1FSTAT.getFIFOIP25 : TBits_1; inline;
  71390. begin
  71391. getFIFOIP25 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  71392. end;
  71393. procedure TCAN1_C1FSTAT.setFIFOIP26; inline;
  71394. begin
  71395. pTDefRegMap(@Self)^.&set := $04000000;
  71396. end;
  71397. procedure TCAN1_C1FSTAT.clearFIFOIP26; inline;
  71398. begin
  71399. pTDefRegMap(@Self)^.clr := $04000000;
  71400. end;
  71401. procedure TCAN1_C1FSTAT.setFIFOIP26(thebits : TBits_1); inline;
  71402. begin
  71403. if thebits = 0 then
  71404. pTDefRegMap(@Self)^.clr := $04000000
  71405. else
  71406. pTDefRegMap(@Self)^.&set := $04000000;
  71407. end;
  71408. function TCAN1_C1FSTAT.getFIFOIP26 : TBits_1; inline;
  71409. begin
  71410. getFIFOIP26 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  71411. end;
  71412. procedure TCAN1_C1FSTAT.setFIFOIP27; inline;
  71413. begin
  71414. pTDefRegMap(@Self)^.&set := $08000000;
  71415. end;
  71416. procedure TCAN1_C1FSTAT.clearFIFOIP27; inline;
  71417. begin
  71418. pTDefRegMap(@Self)^.clr := $08000000;
  71419. end;
  71420. procedure TCAN1_C1FSTAT.setFIFOIP27(thebits : TBits_1); inline;
  71421. begin
  71422. if thebits = 0 then
  71423. pTDefRegMap(@Self)^.clr := $08000000
  71424. else
  71425. pTDefRegMap(@Self)^.&set := $08000000;
  71426. end;
  71427. function TCAN1_C1FSTAT.getFIFOIP27 : TBits_1; inline;
  71428. begin
  71429. getFIFOIP27 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  71430. end;
  71431. procedure TCAN1_C1FSTAT.setFIFOIP28; inline;
  71432. begin
  71433. pTDefRegMap(@Self)^.&set := $10000000;
  71434. end;
  71435. procedure TCAN1_C1FSTAT.clearFIFOIP28; inline;
  71436. begin
  71437. pTDefRegMap(@Self)^.clr := $10000000;
  71438. end;
  71439. procedure TCAN1_C1FSTAT.setFIFOIP28(thebits : TBits_1); inline;
  71440. begin
  71441. if thebits = 0 then
  71442. pTDefRegMap(@Self)^.clr := $10000000
  71443. else
  71444. pTDefRegMap(@Self)^.&set := $10000000;
  71445. end;
  71446. function TCAN1_C1FSTAT.getFIFOIP28 : TBits_1; inline;
  71447. begin
  71448. getFIFOIP28 := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  71449. end;
  71450. procedure TCAN1_C1FSTAT.setFIFOIP29; inline;
  71451. begin
  71452. pTDefRegMap(@Self)^.&set := $20000000;
  71453. end;
  71454. procedure TCAN1_C1FSTAT.clearFIFOIP29; inline;
  71455. begin
  71456. pTDefRegMap(@Self)^.clr := $20000000;
  71457. end;
  71458. procedure TCAN1_C1FSTAT.setFIFOIP29(thebits : TBits_1); inline;
  71459. begin
  71460. if thebits = 0 then
  71461. pTDefRegMap(@Self)^.clr := $20000000
  71462. else
  71463. pTDefRegMap(@Self)^.&set := $20000000;
  71464. end;
  71465. function TCAN1_C1FSTAT.getFIFOIP29 : TBits_1; inline;
  71466. begin
  71467. getFIFOIP29 := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  71468. end;
  71469. procedure TCAN1_C1FSTAT.setFIFOIP30; inline;
  71470. begin
  71471. pTDefRegMap(@Self)^.&set := $40000000;
  71472. end;
  71473. procedure TCAN1_C1FSTAT.clearFIFOIP30; inline;
  71474. begin
  71475. pTDefRegMap(@Self)^.clr := $40000000;
  71476. end;
  71477. procedure TCAN1_C1FSTAT.setFIFOIP30(thebits : TBits_1); inline;
  71478. begin
  71479. if thebits = 0 then
  71480. pTDefRegMap(@Self)^.clr := $40000000
  71481. else
  71482. pTDefRegMap(@Self)^.&set := $40000000;
  71483. end;
  71484. function TCAN1_C1FSTAT.getFIFOIP30 : TBits_1; inline;
  71485. begin
  71486. getFIFOIP30 := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  71487. end;
  71488. procedure TCAN1_C1FSTAT.setFIFOIP31; inline;
  71489. begin
  71490. pTDefRegMap(@Self)^.&set := $80000000;
  71491. end;
  71492. procedure TCAN1_C1FSTAT.clearFIFOIP31; inline;
  71493. begin
  71494. pTDefRegMap(@Self)^.clr := $80000000;
  71495. end;
  71496. procedure TCAN1_C1FSTAT.setFIFOIP31(thebits : TBits_1); inline;
  71497. begin
  71498. if thebits = 0 then
  71499. pTDefRegMap(@Self)^.clr := $80000000
  71500. else
  71501. pTDefRegMap(@Self)^.&set := $80000000;
  71502. end;
  71503. function TCAN1_C1FSTAT.getFIFOIP31 : TBits_1; inline;
  71504. begin
  71505. getFIFOIP31 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  71506. end;
  71507. procedure TCAN1_C1FSTAT.setw(thebits : TBits_32); inline;
  71508. begin
  71509. pTDefRegMap(@Self)^.val := thebits;
  71510. end;
  71511. function TCAN1_C1FSTAT.getw : TBits_32; inline;
  71512. begin
  71513. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71514. end;
  71515. procedure TCAN1_C1RXOVF.setRXOVF(thebits : TBits_32); inline;
  71516. begin
  71517. pTDefRegMap(@Self)^.val := thebits;
  71518. end;
  71519. function TCAN1_C1RXOVF.getRXOVF : TBits_32; inline;
  71520. begin
  71521. getRXOVF := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71522. end;
  71523. procedure TCAN1_C1RXOVF.setRXOVF0; inline;
  71524. begin
  71525. pTDefRegMap(@Self)^.&set := $00000001;
  71526. end;
  71527. procedure TCAN1_C1RXOVF.clearRXOVF0; inline;
  71528. begin
  71529. pTDefRegMap(@Self)^.clr := $00000001;
  71530. end;
  71531. procedure TCAN1_C1RXOVF.setRXOVF0(thebits : TBits_1); inline;
  71532. begin
  71533. if thebits = 0 then
  71534. pTDefRegMap(@Self)^.clr := $00000001
  71535. else
  71536. pTDefRegMap(@Self)^.&set := $00000001;
  71537. end;
  71538. function TCAN1_C1RXOVF.getRXOVF0 : TBits_1; inline;
  71539. begin
  71540. getRXOVF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  71541. end;
  71542. procedure TCAN1_C1RXOVF.setRXOVF1; inline;
  71543. begin
  71544. pTDefRegMap(@Self)^.&set := $00000002;
  71545. end;
  71546. procedure TCAN1_C1RXOVF.clearRXOVF1; inline;
  71547. begin
  71548. pTDefRegMap(@Self)^.clr := $00000002;
  71549. end;
  71550. procedure TCAN1_C1RXOVF.setRXOVF1(thebits : TBits_1); inline;
  71551. begin
  71552. if thebits = 0 then
  71553. pTDefRegMap(@Self)^.clr := $00000002
  71554. else
  71555. pTDefRegMap(@Self)^.&set := $00000002;
  71556. end;
  71557. function TCAN1_C1RXOVF.getRXOVF1 : TBits_1; inline;
  71558. begin
  71559. getRXOVF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  71560. end;
  71561. procedure TCAN1_C1RXOVF.setRXOVF2; inline;
  71562. begin
  71563. pTDefRegMap(@Self)^.&set := $00000004;
  71564. end;
  71565. procedure TCAN1_C1RXOVF.clearRXOVF2; inline;
  71566. begin
  71567. pTDefRegMap(@Self)^.clr := $00000004;
  71568. end;
  71569. procedure TCAN1_C1RXOVF.setRXOVF2(thebits : TBits_1); inline;
  71570. begin
  71571. if thebits = 0 then
  71572. pTDefRegMap(@Self)^.clr := $00000004
  71573. else
  71574. pTDefRegMap(@Self)^.&set := $00000004;
  71575. end;
  71576. function TCAN1_C1RXOVF.getRXOVF2 : TBits_1; inline;
  71577. begin
  71578. getRXOVF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  71579. end;
  71580. procedure TCAN1_C1RXOVF.setRXOVF3; inline;
  71581. begin
  71582. pTDefRegMap(@Self)^.&set := $00000008;
  71583. end;
  71584. procedure TCAN1_C1RXOVF.clearRXOVF3; inline;
  71585. begin
  71586. pTDefRegMap(@Self)^.clr := $00000008;
  71587. end;
  71588. procedure TCAN1_C1RXOVF.setRXOVF3(thebits : TBits_1); inline;
  71589. begin
  71590. if thebits = 0 then
  71591. pTDefRegMap(@Self)^.clr := $00000008
  71592. else
  71593. pTDefRegMap(@Self)^.&set := $00000008;
  71594. end;
  71595. function TCAN1_C1RXOVF.getRXOVF3 : TBits_1; inline;
  71596. begin
  71597. getRXOVF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  71598. end;
  71599. procedure TCAN1_C1RXOVF.setRXOVF4; inline;
  71600. begin
  71601. pTDefRegMap(@Self)^.&set := $00000010;
  71602. end;
  71603. procedure TCAN1_C1RXOVF.clearRXOVF4; inline;
  71604. begin
  71605. pTDefRegMap(@Self)^.clr := $00000010;
  71606. end;
  71607. procedure TCAN1_C1RXOVF.setRXOVF4(thebits : TBits_1); inline;
  71608. begin
  71609. if thebits = 0 then
  71610. pTDefRegMap(@Self)^.clr := $00000010
  71611. else
  71612. pTDefRegMap(@Self)^.&set := $00000010;
  71613. end;
  71614. function TCAN1_C1RXOVF.getRXOVF4 : TBits_1; inline;
  71615. begin
  71616. getRXOVF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  71617. end;
  71618. procedure TCAN1_C1RXOVF.setRXOVF5; inline;
  71619. begin
  71620. pTDefRegMap(@Self)^.&set := $00000020;
  71621. end;
  71622. procedure TCAN1_C1RXOVF.clearRXOVF5; inline;
  71623. begin
  71624. pTDefRegMap(@Self)^.clr := $00000020;
  71625. end;
  71626. procedure TCAN1_C1RXOVF.setRXOVF5(thebits : TBits_1); inline;
  71627. begin
  71628. if thebits = 0 then
  71629. pTDefRegMap(@Self)^.clr := $00000020
  71630. else
  71631. pTDefRegMap(@Self)^.&set := $00000020;
  71632. end;
  71633. function TCAN1_C1RXOVF.getRXOVF5 : TBits_1; inline;
  71634. begin
  71635. getRXOVF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  71636. end;
  71637. procedure TCAN1_C1RXOVF.setRXOVF6; inline;
  71638. begin
  71639. pTDefRegMap(@Self)^.&set := $00000040;
  71640. end;
  71641. procedure TCAN1_C1RXOVF.clearRXOVF6; inline;
  71642. begin
  71643. pTDefRegMap(@Self)^.clr := $00000040;
  71644. end;
  71645. procedure TCAN1_C1RXOVF.setRXOVF6(thebits : TBits_1); inline;
  71646. begin
  71647. if thebits = 0 then
  71648. pTDefRegMap(@Self)^.clr := $00000040
  71649. else
  71650. pTDefRegMap(@Self)^.&set := $00000040;
  71651. end;
  71652. function TCAN1_C1RXOVF.getRXOVF6 : TBits_1; inline;
  71653. begin
  71654. getRXOVF6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  71655. end;
  71656. procedure TCAN1_C1RXOVF.setRXOVF7; inline;
  71657. begin
  71658. pTDefRegMap(@Self)^.&set := $00000080;
  71659. end;
  71660. procedure TCAN1_C1RXOVF.clearRXOVF7; inline;
  71661. begin
  71662. pTDefRegMap(@Self)^.clr := $00000080;
  71663. end;
  71664. procedure TCAN1_C1RXOVF.setRXOVF7(thebits : TBits_1); inline;
  71665. begin
  71666. if thebits = 0 then
  71667. pTDefRegMap(@Self)^.clr := $00000080
  71668. else
  71669. pTDefRegMap(@Self)^.&set := $00000080;
  71670. end;
  71671. function TCAN1_C1RXOVF.getRXOVF7 : TBits_1; inline;
  71672. begin
  71673. getRXOVF7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  71674. end;
  71675. procedure TCAN1_C1RXOVF.setRXOVF8; inline;
  71676. begin
  71677. pTDefRegMap(@Self)^.&set := $00000100;
  71678. end;
  71679. procedure TCAN1_C1RXOVF.clearRXOVF8; inline;
  71680. begin
  71681. pTDefRegMap(@Self)^.clr := $00000100;
  71682. end;
  71683. procedure TCAN1_C1RXOVF.setRXOVF8(thebits : TBits_1); inline;
  71684. begin
  71685. if thebits = 0 then
  71686. pTDefRegMap(@Self)^.clr := $00000100
  71687. else
  71688. pTDefRegMap(@Self)^.&set := $00000100;
  71689. end;
  71690. function TCAN1_C1RXOVF.getRXOVF8 : TBits_1; inline;
  71691. begin
  71692. getRXOVF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  71693. end;
  71694. procedure TCAN1_C1RXOVF.setRXOVF9; inline;
  71695. begin
  71696. pTDefRegMap(@Self)^.&set := $00000200;
  71697. end;
  71698. procedure TCAN1_C1RXOVF.clearRXOVF9; inline;
  71699. begin
  71700. pTDefRegMap(@Self)^.clr := $00000200;
  71701. end;
  71702. procedure TCAN1_C1RXOVF.setRXOVF9(thebits : TBits_1); inline;
  71703. begin
  71704. if thebits = 0 then
  71705. pTDefRegMap(@Self)^.clr := $00000200
  71706. else
  71707. pTDefRegMap(@Self)^.&set := $00000200;
  71708. end;
  71709. function TCAN1_C1RXOVF.getRXOVF9 : TBits_1; inline;
  71710. begin
  71711. getRXOVF9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  71712. end;
  71713. procedure TCAN1_C1RXOVF.setRXOVF10; inline;
  71714. begin
  71715. pTDefRegMap(@Self)^.&set := $00000400;
  71716. end;
  71717. procedure TCAN1_C1RXOVF.clearRXOVF10; inline;
  71718. begin
  71719. pTDefRegMap(@Self)^.clr := $00000400;
  71720. end;
  71721. procedure TCAN1_C1RXOVF.setRXOVF10(thebits : TBits_1); inline;
  71722. begin
  71723. if thebits = 0 then
  71724. pTDefRegMap(@Self)^.clr := $00000400
  71725. else
  71726. pTDefRegMap(@Self)^.&set := $00000400;
  71727. end;
  71728. function TCAN1_C1RXOVF.getRXOVF10 : TBits_1; inline;
  71729. begin
  71730. getRXOVF10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  71731. end;
  71732. procedure TCAN1_C1RXOVF.setRXOVF11; inline;
  71733. begin
  71734. pTDefRegMap(@Self)^.&set := $00000800;
  71735. end;
  71736. procedure TCAN1_C1RXOVF.clearRXOVF11; inline;
  71737. begin
  71738. pTDefRegMap(@Self)^.clr := $00000800;
  71739. end;
  71740. procedure TCAN1_C1RXOVF.setRXOVF11(thebits : TBits_1); inline;
  71741. begin
  71742. if thebits = 0 then
  71743. pTDefRegMap(@Self)^.clr := $00000800
  71744. else
  71745. pTDefRegMap(@Self)^.&set := $00000800;
  71746. end;
  71747. function TCAN1_C1RXOVF.getRXOVF11 : TBits_1; inline;
  71748. begin
  71749. getRXOVF11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  71750. end;
  71751. procedure TCAN1_C1RXOVF.setRXOVF12; inline;
  71752. begin
  71753. pTDefRegMap(@Self)^.&set := $00001000;
  71754. end;
  71755. procedure TCAN1_C1RXOVF.clearRXOVF12; inline;
  71756. begin
  71757. pTDefRegMap(@Self)^.clr := $00001000;
  71758. end;
  71759. procedure TCAN1_C1RXOVF.setRXOVF12(thebits : TBits_1); inline;
  71760. begin
  71761. if thebits = 0 then
  71762. pTDefRegMap(@Self)^.clr := $00001000
  71763. else
  71764. pTDefRegMap(@Self)^.&set := $00001000;
  71765. end;
  71766. function TCAN1_C1RXOVF.getRXOVF12 : TBits_1; inline;
  71767. begin
  71768. getRXOVF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  71769. end;
  71770. procedure TCAN1_C1RXOVF.setRXOVF13; inline;
  71771. begin
  71772. pTDefRegMap(@Self)^.&set := $00002000;
  71773. end;
  71774. procedure TCAN1_C1RXOVF.clearRXOVF13; inline;
  71775. begin
  71776. pTDefRegMap(@Self)^.clr := $00002000;
  71777. end;
  71778. procedure TCAN1_C1RXOVF.setRXOVF13(thebits : TBits_1); inline;
  71779. begin
  71780. if thebits = 0 then
  71781. pTDefRegMap(@Self)^.clr := $00002000
  71782. else
  71783. pTDefRegMap(@Self)^.&set := $00002000;
  71784. end;
  71785. function TCAN1_C1RXOVF.getRXOVF13 : TBits_1; inline;
  71786. begin
  71787. getRXOVF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  71788. end;
  71789. procedure TCAN1_C1RXOVF.setRXOVF14; inline;
  71790. begin
  71791. pTDefRegMap(@Self)^.&set := $00004000;
  71792. end;
  71793. procedure TCAN1_C1RXOVF.clearRXOVF14; inline;
  71794. begin
  71795. pTDefRegMap(@Self)^.clr := $00004000;
  71796. end;
  71797. procedure TCAN1_C1RXOVF.setRXOVF14(thebits : TBits_1); inline;
  71798. begin
  71799. if thebits = 0 then
  71800. pTDefRegMap(@Self)^.clr := $00004000
  71801. else
  71802. pTDefRegMap(@Self)^.&set := $00004000;
  71803. end;
  71804. function TCAN1_C1RXOVF.getRXOVF14 : TBits_1; inline;
  71805. begin
  71806. getRXOVF14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  71807. end;
  71808. procedure TCAN1_C1RXOVF.setRXOVF15; inline;
  71809. begin
  71810. pTDefRegMap(@Self)^.&set := $00008000;
  71811. end;
  71812. procedure TCAN1_C1RXOVF.clearRXOVF15; inline;
  71813. begin
  71814. pTDefRegMap(@Self)^.clr := $00008000;
  71815. end;
  71816. procedure TCAN1_C1RXOVF.setRXOVF15(thebits : TBits_1); inline;
  71817. begin
  71818. if thebits = 0 then
  71819. pTDefRegMap(@Self)^.clr := $00008000
  71820. else
  71821. pTDefRegMap(@Self)^.&set := $00008000;
  71822. end;
  71823. function TCAN1_C1RXOVF.getRXOVF15 : TBits_1; inline;
  71824. begin
  71825. getRXOVF15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  71826. end;
  71827. procedure TCAN1_C1RXOVF.setRXOVF16; inline;
  71828. begin
  71829. pTDefRegMap(@Self)^.&set := $00010000;
  71830. end;
  71831. procedure TCAN1_C1RXOVF.clearRXOVF16; inline;
  71832. begin
  71833. pTDefRegMap(@Self)^.clr := $00010000;
  71834. end;
  71835. procedure TCAN1_C1RXOVF.setRXOVF16(thebits : TBits_1); inline;
  71836. begin
  71837. if thebits = 0 then
  71838. pTDefRegMap(@Self)^.clr := $00010000
  71839. else
  71840. pTDefRegMap(@Self)^.&set := $00010000;
  71841. end;
  71842. function TCAN1_C1RXOVF.getRXOVF16 : TBits_1; inline;
  71843. begin
  71844. getRXOVF16 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  71845. end;
  71846. procedure TCAN1_C1RXOVF.setRXOVF17; inline;
  71847. begin
  71848. pTDefRegMap(@Self)^.&set := $00020000;
  71849. end;
  71850. procedure TCAN1_C1RXOVF.clearRXOVF17; inline;
  71851. begin
  71852. pTDefRegMap(@Self)^.clr := $00020000;
  71853. end;
  71854. procedure TCAN1_C1RXOVF.setRXOVF17(thebits : TBits_1); inline;
  71855. begin
  71856. if thebits = 0 then
  71857. pTDefRegMap(@Self)^.clr := $00020000
  71858. else
  71859. pTDefRegMap(@Self)^.&set := $00020000;
  71860. end;
  71861. function TCAN1_C1RXOVF.getRXOVF17 : TBits_1; inline;
  71862. begin
  71863. getRXOVF17 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  71864. end;
  71865. procedure TCAN1_C1RXOVF.setRXOVF18; inline;
  71866. begin
  71867. pTDefRegMap(@Self)^.&set := $00040000;
  71868. end;
  71869. procedure TCAN1_C1RXOVF.clearRXOVF18; inline;
  71870. begin
  71871. pTDefRegMap(@Self)^.clr := $00040000;
  71872. end;
  71873. procedure TCAN1_C1RXOVF.setRXOVF18(thebits : TBits_1); inline;
  71874. begin
  71875. if thebits = 0 then
  71876. pTDefRegMap(@Self)^.clr := $00040000
  71877. else
  71878. pTDefRegMap(@Self)^.&set := $00040000;
  71879. end;
  71880. function TCAN1_C1RXOVF.getRXOVF18 : TBits_1; inline;
  71881. begin
  71882. getRXOVF18 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  71883. end;
  71884. procedure TCAN1_C1RXOVF.setRXOVF19; inline;
  71885. begin
  71886. pTDefRegMap(@Self)^.&set := $00080000;
  71887. end;
  71888. procedure TCAN1_C1RXOVF.clearRXOVF19; inline;
  71889. begin
  71890. pTDefRegMap(@Self)^.clr := $00080000;
  71891. end;
  71892. procedure TCAN1_C1RXOVF.setRXOVF19(thebits : TBits_1); inline;
  71893. begin
  71894. if thebits = 0 then
  71895. pTDefRegMap(@Self)^.clr := $00080000
  71896. else
  71897. pTDefRegMap(@Self)^.&set := $00080000;
  71898. end;
  71899. function TCAN1_C1RXOVF.getRXOVF19 : TBits_1; inline;
  71900. begin
  71901. getRXOVF19 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  71902. end;
  71903. procedure TCAN1_C1RXOVF.setRXOVF20; inline;
  71904. begin
  71905. pTDefRegMap(@Self)^.&set := $00100000;
  71906. end;
  71907. procedure TCAN1_C1RXOVF.clearRXOVF20; inline;
  71908. begin
  71909. pTDefRegMap(@Self)^.clr := $00100000;
  71910. end;
  71911. procedure TCAN1_C1RXOVF.setRXOVF20(thebits : TBits_1); inline;
  71912. begin
  71913. if thebits = 0 then
  71914. pTDefRegMap(@Self)^.clr := $00100000
  71915. else
  71916. pTDefRegMap(@Self)^.&set := $00100000;
  71917. end;
  71918. function TCAN1_C1RXOVF.getRXOVF20 : TBits_1; inline;
  71919. begin
  71920. getRXOVF20 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  71921. end;
  71922. procedure TCAN1_C1RXOVF.setRXOVF21; inline;
  71923. begin
  71924. pTDefRegMap(@Self)^.&set := $00200000;
  71925. end;
  71926. procedure TCAN1_C1RXOVF.clearRXOVF21; inline;
  71927. begin
  71928. pTDefRegMap(@Self)^.clr := $00200000;
  71929. end;
  71930. procedure TCAN1_C1RXOVF.setRXOVF21(thebits : TBits_1); inline;
  71931. begin
  71932. if thebits = 0 then
  71933. pTDefRegMap(@Self)^.clr := $00200000
  71934. else
  71935. pTDefRegMap(@Self)^.&set := $00200000;
  71936. end;
  71937. function TCAN1_C1RXOVF.getRXOVF21 : TBits_1; inline;
  71938. begin
  71939. getRXOVF21 := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  71940. end;
  71941. procedure TCAN1_C1RXOVF.setRXOVF22; inline;
  71942. begin
  71943. pTDefRegMap(@Self)^.&set := $00400000;
  71944. end;
  71945. procedure TCAN1_C1RXOVF.clearRXOVF22; inline;
  71946. begin
  71947. pTDefRegMap(@Self)^.clr := $00400000;
  71948. end;
  71949. procedure TCAN1_C1RXOVF.setRXOVF22(thebits : TBits_1); inline;
  71950. begin
  71951. if thebits = 0 then
  71952. pTDefRegMap(@Self)^.clr := $00400000
  71953. else
  71954. pTDefRegMap(@Self)^.&set := $00400000;
  71955. end;
  71956. function TCAN1_C1RXOVF.getRXOVF22 : TBits_1; inline;
  71957. begin
  71958. getRXOVF22 := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  71959. end;
  71960. procedure TCAN1_C1RXOVF.setRXOVF23; inline;
  71961. begin
  71962. pTDefRegMap(@Self)^.&set := $00800000;
  71963. end;
  71964. procedure TCAN1_C1RXOVF.clearRXOVF23; inline;
  71965. begin
  71966. pTDefRegMap(@Self)^.clr := $00800000;
  71967. end;
  71968. procedure TCAN1_C1RXOVF.setRXOVF23(thebits : TBits_1); inline;
  71969. begin
  71970. if thebits = 0 then
  71971. pTDefRegMap(@Self)^.clr := $00800000
  71972. else
  71973. pTDefRegMap(@Self)^.&set := $00800000;
  71974. end;
  71975. function TCAN1_C1RXOVF.getRXOVF23 : TBits_1; inline;
  71976. begin
  71977. getRXOVF23 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  71978. end;
  71979. procedure TCAN1_C1RXOVF.setRXOVF24; inline;
  71980. begin
  71981. pTDefRegMap(@Self)^.&set := $01000000;
  71982. end;
  71983. procedure TCAN1_C1RXOVF.clearRXOVF24; inline;
  71984. begin
  71985. pTDefRegMap(@Self)^.clr := $01000000;
  71986. end;
  71987. procedure TCAN1_C1RXOVF.setRXOVF24(thebits : TBits_1); inline;
  71988. begin
  71989. if thebits = 0 then
  71990. pTDefRegMap(@Self)^.clr := $01000000
  71991. else
  71992. pTDefRegMap(@Self)^.&set := $01000000;
  71993. end;
  71994. function TCAN1_C1RXOVF.getRXOVF24 : TBits_1; inline;
  71995. begin
  71996. getRXOVF24 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  71997. end;
  71998. procedure TCAN1_C1RXOVF.setRXOVF25; inline;
  71999. begin
  72000. pTDefRegMap(@Self)^.&set := $02000000;
  72001. end;
  72002. procedure TCAN1_C1RXOVF.clearRXOVF25; inline;
  72003. begin
  72004. pTDefRegMap(@Self)^.clr := $02000000;
  72005. end;
  72006. procedure TCAN1_C1RXOVF.setRXOVF25(thebits : TBits_1); inline;
  72007. begin
  72008. if thebits = 0 then
  72009. pTDefRegMap(@Self)^.clr := $02000000
  72010. else
  72011. pTDefRegMap(@Self)^.&set := $02000000;
  72012. end;
  72013. function TCAN1_C1RXOVF.getRXOVF25 : TBits_1; inline;
  72014. begin
  72015. getRXOVF25 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  72016. end;
  72017. procedure TCAN1_C1RXOVF.setRXOVF26; inline;
  72018. begin
  72019. pTDefRegMap(@Self)^.&set := $04000000;
  72020. end;
  72021. procedure TCAN1_C1RXOVF.clearRXOVF26; inline;
  72022. begin
  72023. pTDefRegMap(@Self)^.clr := $04000000;
  72024. end;
  72025. procedure TCAN1_C1RXOVF.setRXOVF26(thebits : TBits_1); inline;
  72026. begin
  72027. if thebits = 0 then
  72028. pTDefRegMap(@Self)^.clr := $04000000
  72029. else
  72030. pTDefRegMap(@Self)^.&set := $04000000;
  72031. end;
  72032. function TCAN1_C1RXOVF.getRXOVF26 : TBits_1; inline;
  72033. begin
  72034. getRXOVF26 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  72035. end;
  72036. procedure TCAN1_C1RXOVF.setRXOVF27; inline;
  72037. begin
  72038. pTDefRegMap(@Self)^.&set := $08000000;
  72039. end;
  72040. procedure TCAN1_C1RXOVF.clearRXOVF27; inline;
  72041. begin
  72042. pTDefRegMap(@Self)^.clr := $08000000;
  72043. end;
  72044. procedure TCAN1_C1RXOVF.setRXOVF27(thebits : TBits_1); inline;
  72045. begin
  72046. if thebits = 0 then
  72047. pTDefRegMap(@Self)^.clr := $08000000
  72048. else
  72049. pTDefRegMap(@Self)^.&set := $08000000;
  72050. end;
  72051. function TCAN1_C1RXOVF.getRXOVF27 : TBits_1; inline;
  72052. begin
  72053. getRXOVF27 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  72054. end;
  72055. procedure TCAN1_C1RXOVF.setRXOVF28; inline;
  72056. begin
  72057. pTDefRegMap(@Self)^.&set := $10000000;
  72058. end;
  72059. procedure TCAN1_C1RXOVF.clearRXOVF28; inline;
  72060. begin
  72061. pTDefRegMap(@Self)^.clr := $10000000;
  72062. end;
  72063. procedure TCAN1_C1RXOVF.setRXOVF28(thebits : TBits_1); inline;
  72064. begin
  72065. if thebits = 0 then
  72066. pTDefRegMap(@Self)^.clr := $10000000
  72067. else
  72068. pTDefRegMap(@Self)^.&set := $10000000;
  72069. end;
  72070. function TCAN1_C1RXOVF.getRXOVF28 : TBits_1; inline;
  72071. begin
  72072. getRXOVF28 := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  72073. end;
  72074. procedure TCAN1_C1RXOVF.setRXOVF29; inline;
  72075. begin
  72076. pTDefRegMap(@Self)^.&set := $20000000;
  72077. end;
  72078. procedure TCAN1_C1RXOVF.clearRXOVF29; inline;
  72079. begin
  72080. pTDefRegMap(@Self)^.clr := $20000000;
  72081. end;
  72082. procedure TCAN1_C1RXOVF.setRXOVF29(thebits : TBits_1); inline;
  72083. begin
  72084. if thebits = 0 then
  72085. pTDefRegMap(@Self)^.clr := $20000000
  72086. else
  72087. pTDefRegMap(@Self)^.&set := $20000000;
  72088. end;
  72089. function TCAN1_C1RXOVF.getRXOVF29 : TBits_1; inline;
  72090. begin
  72091. getRXOVF29 := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  72092. end;
  72093. procedure TCAN1_C1RXOVF.setRXOVF30; inline;
  72094. begin
  72095. pTDefRegMap(@Self)^.&set := $40000000;
  72096. end;
  72097. procedure TCAN1_C1RXOVF.clearRXOVF30; inline;
  72098. begin
  72099. pTDefRegMap(@Self)^.clr := $40000000;
  72100. end;
  72101. procedure TCAN1_C1RXOVF.setRXOVF30(thebits : TBits_1); inline;
  72102. begin
  72103. if thebits = 0 then
  72104. pTDefRegMap(@Self)^.clr := $40000000
  72105. else
  72106. pTDefRegMap(@Self)^.&set := $40000000;
  72107. end;
  72108. function TCAN1_C1RXOVF.getRXOVF30 : TBits_1; inline;
  72109. begin
  72110. getRXOVF30 := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  72111. end;
  72112. procedure TCAN1_C1RXOVF.setRXOVF31; inline;
  72113. begin
  72114. pTDefRegMap(@Self)^.&set := $80000000;
  72115. end;
  72116. procedure TCAN1_C1RXOVF.clearRXOVF31; inline;
  72117. begin
  72118. pTDefRegMap(@Self)^.clr := $80000000;
  72119. end;
  72120. procedure TCAN1_C1RXOVF.setRXOVF31(thebits : TBits_1); inline;
  72121. begin
  72122. if thebits = 0 then
  72123. pTDefRegMap(@Self)^.clr := $80000000
  72124. else
  72125. pTDefRegMap(@Self)^.&set := $80000000;
  72126. end;
  72127. function TCAN1_C1RXOVF.getRXOVF31 : TBits_1; inline;
  72128. begin
  72129. getRXOVF31 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  72130. end;
  72131. procedure TCAN1_C1RXOVF.setw(thebits : TBits_32); inline;
  72132. begin
  72133. pTDefRegMap(@Self)^.val := thebits;
  72134. end;
  72135. function TCAN1_C1RXOVF.getw : TBits_32; inline;
  72136. begin
  72137. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72138. end;
  72139. procedure TCAN1_C1TMR.setCANTSPRE(thebits : TBits_16); inline;
  72140. begin
  72141. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  72142. end;
  72143. function TCAN1_C1TMR.getCANTSPRE : TBits_16; inline;
  72144. begin
  72145. getCANTSPRE := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  72146. end;
  72147. procedure TCAN1_C1TMR.setCANTS(thebits : TBits_16); inline;
  72148. begin
  72149. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0000FFFF or ( thebits shl 16 );
  72150. end;
  72151. function TCAN1_C1TMR.getCANTS : TBits_16; inline;
  72152. begin
  72153. getCANTS := (pTDefRegMap(@Self)^.val and $FFFF0000) shr 16;
  72154. end;
  72155. procedure TCAN1_C1TMR.setw(thebits : TBits_32); inline;
  72156. begin
  72157. pTDefRegMap(@Self)^.val := thebits;
  72158. end;
  72159. function TCAN1_C1TMR.getw : TBits_32; inline;
  72160. begin
  72161. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72162. end;
  72163. procedure TCAN1_C1RXM0.setEID(thebits : TBits_18); inline;
  72164. begin
  72165. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72166. end;
  72167. function TCAN1_C1RXM0.getEID : TBits_18; inline;
  72168. begin
  72169. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72170. end;
  72171. procedure TCAN1_C1RXM0.setMIDE; inline;
  72172. begin
  72173. pTDefRegMap(@Self)^.&set := $00080000;
  72174. end;
  72175. procedure TCAN1_C1RXM0.clearMIDE; inline;
  72176. begin
  72177. pTDefRegMap(@Self)^.clr := $00080000;
  72178. end;
  72179. procedure TCAN1_C1RXM0.setMIDE(thebits : TBits_1); inline;
  72180. begin
  72181. if thebits = 0 then
  72182. pTDefRegMap(@Self)^.clr := $00080000
  72183. else
  72184. pTDefRegMap(@Self)^.&set := $00080000;
  72185. end;
  72186. function TCAN1_C1RXM0.getMIDE : TBits_1; inline;
  72187. begin
  72188. getMIDE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72189. end;
  72190. procedure TCAN1_C1RXM0.setSID(thebits : TBits_11); inline;
  72191. begin
  72192. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72193. end;
  72194. function TCAN1_C1RXM0.getSID : TBits_11; inline;
  72195. begin
  72196. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72197. end;
  72198. procedure TCAN1_C1RXM0.setw(thebits : TBits_32); inline;
  72199. begin
  72200. pTDefRegMap(@Self)^.val := thebits;
  72201. end;
  72202. function TCAN1_C1RXM0.getw : TBits_32; inline;
  72203. begin
  72204. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72205. end;
  72206. procedure TCAN1_C1RXM1.setEID(thebits : TBits_18); inline;
  72207. begin
  72208. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72209. end;
  72210. function TCAN1_C1RXM1.getEID : TBits_18; inline;
  72211. begin
  72212. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72213. end;
  72214. procedure TCAN1_C1RXM1.setMIDE; inline;
  72215. begin
  72216. pTDefRegMap(@Self)^.&set := $00080000;
  72217. end;
  72218. procedure TCAN1_C1RXM1.clearMIDE; inline;
  72219. begin
  72220. pTDefRegMap(@Self)^.clr := $00080000;
  72221. end;
  72222. procedure TCAN1_C1RXM1.setMIDE(thebits : TBits_1); inline;
  72223. begin
  72224. if thebits = 0 then
  72225. pTDefRegMap(@Self)^.clr := $00080000
  72226. else
  72227. pTDefRegMap(@Self)^.&set := $00080000;
  72228. end;
  72229. function TCAN1_C1RXM1.getMIDE : TBits_1; inline;
  72230. begin
  72231. getMIDE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72232. end;
  72233. procedure TCAN1_C1RXM1.setSID(thebits : TBits_11); inline;
  72234. begin
  72235. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72236. end;
  72237. function TCAN1_C1RXM1.getSID : TBits_11; inline;
  72238. begin
  72239. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72240. end;
  72241. procedure TCAN1_C1RXM1.setw(thebits : TBits_32); inline;
  72242. begin
  72243. pTDefRegMap(@Self)^.val := thebits;
  72244. end;
  72245. function TCAN1_C1RXM1.getw : TBits_32; inline;
  72246. begin
  72247. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72248. end;
  72249. procedure TCAN1_C1RXM2.setEID(thebits : TBits_18); inline;
  72250. begin
  72251. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72252. end;
  72253. function TCAN1_C1RXM2.getEID : TBits_18; inline;
  72254. begin
  72255. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72256. end;
  72257. procedure TCAN1_C1RXM2.setMIDE; inline;
  72258. begin
  72259. pTDefRegMap(@Self)^.&set := $00080000;
  72260. end;
  72261. procedure TCAN1_C1RXM2.clearMIDE; inline;
  72262. begin
  72263. pTDefRegMap(@Self)^.clr := $00080000;
  72264. end;
  72265. procedure TCAN1_C1RXM2.setMIDE(thebits : TBits_1); inline;
  72266. begin
  72267. if thebits = 0 then
  72268. pTDefRegMap(@Self)^.clr := $00080000
  72269. else
  72270. pTDefRegMap(@Self)^.&set := $00080000;
  72271. end;
  72272. function TCAN1_C1RXM2.getMIDE : TBits_1; inline;
  72273. begin
  72274. getMIDE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72275. end;
  72276. procedure TCAN1_C1RXM2.setSID(thebits : TBits_11); inline;
  72277. begin
  72278. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72279. end;
  72280. function TCAN1_C1RXM2.getSID : TBits_11; inline;
  72281. begin
  72282. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72283. end;
  72284. procedure TCAN1_C1RXM2.setw(thebits : TBits_32); inline;
  72285. begin
  72286. pTDefRegMap(@Self)^.val := thebits;
  72287. end;
  72288. function TCAN1_C1RXM2.getw : TBits_32; inline;
  72289. begin
  72290. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72291. end;
  72292. procedure TCAN1_C1RXM3.setEID(thebits : TBits_18); inline;
  72293. begin
  72294. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72295. end;
  72296. function TCAN1_C1RXM3.getEID : TBits_18; inline;
  72297. begin
  72298. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72299. end;
  72300. procedure TCAN1_C1RXM3.setMIDE; inline;
  72301. begin
  72302. pTDefRegMap(@Self)^.&set := $00080000;
  72303. end;
  72304. procedure TCAN1_C1RXM3.clearMIDE; inline;
  72305. begin
  72306. pTDefRegMap(@Self)^.clr := $00080000;
  72307. end;
  72308. procedure TCAN1_C1RXM3.setMIDE(thebits : TBits_1); inline;
  72309. begin
  72310. if thebits = 0 then
  72311. pTDefRegMap(@Self)^.clr := $00080000
  72312. else
  72313. pTDefRegMap(@Self)^.&set := $00080000;
  72314. end;
  72315. function TCAN1_C1RXM3.getMIDE : TBits_1; inline;
  72316. begin
  72317. getMIDE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72318. end;
  72319. procedure TCAN1_C1RXM3.setSID(thebits : TBits_11); inline;
  72320. begin
  72321. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72322. end;
  72323. function TCAN1_C1RXM3.getSID : TBits_11; inline;
  72324. begin
  72325. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72326. end;
  72327. procedure TCAN1_C1RXM3.setw(thebits : TBits_32); inline;
  72328. begin
  72329. pTDefRegMap(@Self)^.val := thebits;
  72330. end;
  72331. function TCAN1_C1RXM3.getw : TBits_32; inline;
  72332. begin
  72333. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72334. end;
  72335. procedure TCAN1_C1FLTCON0.setFSEL0(thebits : TBits_5); inline;
  72336. begin
  72337. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  72338. end;
  72339. function TCAN1_C1FLTCON0.getFSEL0 : TBits_5; inline;
  72340. begin
  72341. getFSEL0 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  72342. end;
  72343. procedure TCAN1_C1FLTCON0.setMSEL0(thebits : TBits_2); inline;
  72344. begin
  72345. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  72346. end;
  72347. function TCAN1_C1FLTCON0.getMSEL0 : TBits_2; inline;
  72348. begin
  72349. getMSEL0 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  72350. end;
  72351. procedure TCAN1_C1FLTCON0.setFLTEN0; inline;
  72352. begin
  72353. pTDefRegMap(@Self)^.&set := $00000080;
  72354. end;
  72355. procedure TCAN1_C1FLTCON0.clearFLTEN0; inline;
  72356. begin
  72357. pTDefRegMap(@Self)^.clr := $00000080;
  72358. end;
  72359. procedure TCAN1_C1FLTCON0.setFLTEN0(thebits : TBits_1); inline;
  72360. begin
  72361. if thebits = 0 then
  72362. pTDefRegMap(@Self)^.clr := $00000080
  72363. else
  72364. pTDefRegMap(@Self)^.&set := $00000080;
  72365. end;
  72366. function TCAN1_C1FLTCON0.getFLTEN0 : TBits_1; inline;
  72367. begin
  72368. getFLTEN0 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  72369. end;
  72370. procedure TCAN1_C1FLTCON0.setFSEL1(thebits : TBits_5); inline;
  72371. begin
  72372. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  72373. end;
  72374. function TCAN1_C1FLTCON0.getFSEL1 : TBits_5; inline;
  72375. begin
  72376. getFSEL1 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  72377. end;
  72378. procedure TCAN1_C1FLTCON0.setMSEL1(thebits : TBits_2); inline;
  72379. begin
  72380. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  72381. end;
  72382. function TCAN1_C1FLTCON0.getMSEL1 : TBits_2; inline;
  72383. begin
  72384. getMSEL1 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  72385. end;
  72386. procedure TCAN1_C1FLTCON0.setFLTEN1; inline;
  72387. begin
  72388. pTDefRegMap(@Self)^.&set := $00008000;
  72389. end;
  72390. procedure TCAN1_C1FLTCON0.clearFLTEN1; inline;
  72391. begin
  72392. pTDefRegMap(@Self)^.clr := $00008000;
  72393. end;
  72394. procedure TCAN1_C1FLTCON0.setFLTEN1(thebits : TBits_1); inline;
  72395. begin
  72396. if thebits = 0 then
  72397. pTDefRegMap(@Self)^.clr := $00008000
  72398. else
  72399. pTDefRegMap(@Self)^.&set := $00008000;
  72400. end;
  72401. function TCAN1_C1FLTCON0.getFLTEN1 : TBits_1; inline;
  72402. begin
  72403. getFLTEN1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  72404. end;
  72405. procedure TCAN1_C1FLTCON0.setFSEL2(thebits : TBits_5); inline;
  72406. begin
  72407. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  72408. end;
  72409. function TCAN1_C1FLTCON0.getFSEL2 : TBits_5; inline;
  72410. begin
  72411. getFSEL2 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  72412. end;
  72413. procedure TCAN1_C1FLTCON0.setMSEL2(thebits : TBits_2); inline;
  72414. begin
  72415. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  72416. end;
  72417. function TCAN1_C1FLTCON0.getMSEL2 : TBits_2; inline;
  72418. begin
  72419. getMSEL2 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  72420. end;
  72421. procedure TCAN1_C1FLTCON0.setFLTEN2; inline;
  72422. begin
  72423. pTDefRegMap(@Self)^.&set := $00800000;
  72424. end;
  72425. procedure TCAN1_C1FLTCON0.clearFLTEN2; inline;
  72426. begin
  72427. pTDefRegMap(@Self)^.clr := $00800000;
  72428. end;
  72429. procedure TCAN1_C1FLTCON0.setFLTEN2(thebits : TBits_1); inline;
  72430. begin
  72431. if thebits = 0 then
  72432. pTDefRegMap(@Self)^.clr := $00800000
  72433. else
  72434. pTDefRegMap(@Self)^.&set := $00800000;
  72435. end;
  72436. function TCAN1_C1FLTCON0.getFLTEN2 : TBits_1; inline;
  72437. begin
  72438. getFLTEN2 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  72439. end;
  72440. procedure TCAN1_C1FLTCON0.setFSEL3(thebits : TBits_5); inline;
  72441. begin
  72442. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  72443. end;
  72444. function TCAN1_C1FLTCON0.getFSEL3 : TBits_5; inline;
  72445. begin
  72446. getFSEL3 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  72447. end;
  72448. procedure TCAN1_C1FLTCON0.setMSEL3(thebits : TBits_2); inline;
  72449. begin
  72450. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  72451. end;
  72452. function TCAN1_C1FLTCON0.getMSEL3 : TBits_2; inline;
  72453. begin
  72454. getMSEL3 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  72455. end;
  72456. procedure TCAN1_C1FLTCON0.setFLTEN3; inline;
  72457. begin
  72458. pTDefRegMap(@Self)^.&set := $80000000;
  72459. end;
  72460. procedure TCAN1_C1FLTCON0.clearFLTEN3; inline;
  72461. begin
  72462. pTDefRegMap(@Self)^.clr := $80000000;
  72463. end;
  72464. procedure TCAN1_C1FLTCON0.setFLTEN3(thebits : TBits_1); inline;
  72465. begin
  72466. if thebits = 0 then
  72467. pTDefRegMap(@Self)^.clr := $80000000
  72468. else
  72469. pTDefRegMap(@Self)^.&set := $80000000;
  72470. end;
  72471. function TCAN1_C1FLTCON0.getFLTEN3 : TBits_1; inline;
  72472. begin
  72473. getFLTEN3 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  72474. end;
  72475. procedure TCAN1_C1FLTCON0.setw(thebits : TBits_32); inline;
  72476. begin
  72477. pTDefRegMap(@Self)^.val := thebits;
  72478. end;
  72479. function TCAN1_C1FLTCON0.getw : TBits_32; inline;
  72480. begin
  72481. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72482. end;
  72483. procedure TCAN1_C1FLTCON1.setFSEL4(thebits : TBits_5); inline;
  72484. begin
  72485. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  72486. end;
  72487. function TCAN1_C1FLTCON1.getFSEL4 : TBits_5; inline;
  72488. begin
  72489. getFSEL4 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  72490. end;
  72491. procedure TCAN1_C1FLTCON1.setMSEL4(thebits : TBits_2); inline;
  72492. begin
  72493. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  72494. end;
  72495. function TCAN1_C1FLTCON1.getMSEL4 : TBits_2; inline;
  72496. begin
  72497. getMSEL4 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  72498. end;
  72499. procedure TCAN1_C1FLTCON1.setFLTEN4; inline;
  72500. begin
  72501. pTDefRegMap(@Self)^.&set := $00000080;
  72502. end;
  72503. procedure TCAN1_C1FLTCON1.clearFLTEN4; inline;
  72504. begin
  72505. pTDefRegMap(@Self)^.clr := $00000080;
  72506. end;
  72507. procedure TCAN1_C1FLTCON1.setFLTEN4(thebits : TBits_1); inline;
  72508. begin
  72509. if thebits = 0 then
  72510. pTDefRegMap(@Self)^.clr := $00000080
  72511. else
  72512. pTDefRegMap(@Self)^.&set := $00000080;
  72513. end;
  72514. function TCAN1_C1FLTCON1.getFLTEN4 : TBits_1; inline;
  72515. begin
  72516. getFLTEN4 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  72517. end;
  72518. procedure TCAN1_C1FLTCON1.setFSEL5(thebits : TBits_5); inline;
  72519. begin
  72520. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  72521. end;
  72522. function TCAN1_C1FLTCON1.getFSEL5 : TBits_5; inline;
  72523. begin
  72524. getFSEL5 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  72525. end;
  72526. procedure TCAN1_C1FLTCON1.setMSEL5(thebits : TBits_2); inline;
  72527. begin
  72528. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  72529. end;
  72530. function TCAN1_C1FLTCON1.getMSEL5 : TBits_2; inline;
  72531. begin
  72532. getMSEL5 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  72533. end;
  72534. procedure TCAN1_C1FLTCON1.setFLTEN5; inline;
  72535. begin
  72536. pTDefRegMap(@Self)^.&set := $00008000;
  72537. end;
  72538. procedure TCAN1_C1FLTCON1.clearFLTEN5; inline;
  72539. begin
  72540. pTDefRegMap(@Self)^.clr := $00008000;
  72541. end;
  72542. procedure TCAN1_C1FLTCON1.setFLTEN5(thebits : TBits_1); inline;
  72543. begin
  72544. if thebits = 0 then
  72545. pTDefRegMap(@Self)^.clr := $00008000
  72546. else
  72547. pTDefRegMap(@Self)^.&set := $00008000;
  72548. end;
  72549. function TCAN1_C1FLTCON1.getFLTEN5 : TBits_1; inline;
  72550. begin
  72551. getFLTEN5 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  72552. end;
  72553. procedure TCAN1_C1FLTCON1.setFSEL6(thebits : TBits_5); inline;
  72554. begin
  72555. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  72556. end;
  72557. function TCAN1_C1FLTCON1.getFSEL6 : TBits_5; inline;
  72558. begin
  72559. getFSEL6 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  72560. end;
  72561. procedure TCAN1_C1FLTCON1.setMSEL6(thebits : TBits_2); inline;
  72562. begin
  72563. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  72564. end;
  72565. function TCAN1_C1FLTCON1.getMSEL6 : TBits_2; inline;
  72566. begin
  72567. getMSEL6 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  72568. end;
  72569. procedure TCAN1_C1FLTCON1.setFLTEN6; inline;
  72570. begin
  72571. pTDefRegMap(@Self)^.&set := $00800000;
  72572. end;
  72573. procedure TCAN1_C1FLTCON1.clearFLTEN6; inline;
  72574. begin
  72575. pTDefRegMap(@Self)^.clr := $00800000;
  72576. end;
  72577. procedure TCAN1_C1FLTCON1.setFLTEN6(thebits : TBits_1); inline;
  72578. begin
  72579. if thebits = 0 then
  72580. pTDefRegMap(@Self)^.clr := $00800000
  72581. else
  72582. pTDefRegMap(@Self)^.&set := $00800000;
  72583. end;
  72584. function TCAN1_C1FLTCON1.getFLTEN6 : TBits_1; inline;
  72585. begin
  72586. getFLTEN6 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  72587. end;
  72588. procedure TCAN1_C1FLTCON1.setFSEL7(thebits : TBits_5); inline;
  72589. begin
  72590. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  72591. end;
  72592. function TCAN1_C1FLTCON1.getFSEL7 : TBits_5; inline;
  72593. begin
  72594. getFSEL7 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  72595. end;
  72596. procedure TCAN1_C1FLTCON1.setMSEL7(thebits : TBits_2); inline;
  72597. begin
  72598. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  72599. end;
  72600. function TCAN1_C1FLTCON1.getMSEL7 : TBits_2; inline;
  72601. begin
  72602. getMSEL7 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  72603. end;
  72604. procedure TCAN1_C1FLTCON1.setFLTEN7; inline;
  72605. begin
  72606. pTDefRegMap(@Self)^.&set := $80000000;
  72607. end;
  72608. procedure TCAN1_C1FLTCON1.clearFLTEN7; inline;
  72609. begin
  72610. pTDefRegMap(@Self)^.clr := $80000000;
  72611. end;
  72612. procedure TCAN1_C1FLTCON1.setFLTEN7(thebits : TBits_1); inline;
  72613. begin
  72614. if thebits = 0 then
  72615. pTDefRegMap(@Self)^.clr := $80000000
  72616. else
  72617. pTDefRegMap(@Self)^.&set := $80000000;
  72618. end;
  72619. function TCAN1_C1FLTCON1.getFLTEN7 : TBits_1; inline;
  72620. begin
  72621. getFLTEN7 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  72622. end;
  72623. procedure TCAN1_C1FLTCON1.setw(thebits : TBits_32); inline;
  72624. begin
  72625. pTDefRegMap(@Self)^.val := thebits;
  72626. end;
  72627. function TCAN1_C1FLTCON1.getw : TBits_32; inline;
  72628. begin
  72629. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72630. end;
  72631. procedure TCAN1_C1FLTCON2.setFSEL8(thebits : TBits_5); inline;
  72632. begin
  72633. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  72634. end;
  72635. function TCAN1_C1FLTCON2.getFSEL8 : TBits_5; inline;
  72636. begin
  72637. getFSEL8 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  72638. end;
  72639. procedure TCAN1_C1FLTCON2.setMSEL8(thebits : TBits_2); inline;
  72640. begin
  72641. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  72642. end;
  72643. function TCAN1_C1FLTCON2.getMSEL8 : TBits_2; inline;
  72644. begin
  72645. getMSEL8 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  72646. end;
  72647. procedure TCAN1_C1FLTCON2.setFLTEN8; inline;
  72648. begin
  72649. pTDefRegMap(@Self)^.&set := $00000080;
  72650. end;
  72651. procedure TCAN1_C1FLTCON2.clearFLTEN8; inline;
  72652. begin
  72653. pTDefRegMap(@Self)^.clr := $00000080;
  72654. end;
  72655. procedure TCAN1_C1FLTCON2.setFLTEN8(thebits : TBits_1); inline;
  72656. begin
  72657. if thebits = 0 then
  72658. pTDefRegMap(@Self)^.clr := $00000080
  72659. else
  72660. pTDefRegMap(@Self)^.&set := $00000080;
  72661. end;
  72662. function TCAN1_C1FLTCON2.getFLTEN8 : TBits_1; inline;
  72663. begin
  72664. getFLTEN8 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  72665. end;
  72666. procedure TCAN1_C1FLTCON2.setFSEL9(thebits : TBits_5); inline;
  72667. begin
  72668. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  72669. end;
  72670. function TCAN1_C1FLTCON2.getFSEL9 : TBits_5; inline;
  72671. begin
  72672. getFSEL9 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  72673. end;
  72674. procedure TCAN1_C1FLTCON2.setMSEL9(thebits : TBits_2); inline;
  72675. begin
  72676. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  72677. end;
  72678. function TCAN1_C1FLTCON2.getMSEL9 : TBits_2; inline;
  72679. begin
  72680. getMSEL9 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  72681. end;
  72682. procedure TCAN1_C1FLTCON2.setFLTEN9; inline;
  72683. begin
  72684. pTDefRegMap(@Self)^.&set := $00008000;
  72685. end;
  72686. procedure TCAN1_C1FLTCON2.clearFLTEN9; inline;
  72687. begin
  72688. pTDefRegMap(@Self)^.clr := $00008000;
  72689. end;
  72690. procedure TCAN1_C1FLTCON2.setFLTEN9(thebits : TBits_1); inline;
  72691. begin
  72692. if thebits = 0 then
  72693. pTDefRegMap(@Self)^.clr := $00008000
  72694. else
  72695. pTDefRegMap(@Self)^.&set := $00008000;
  72696. end;
  72697. function TCAN1_C1FLTCON2.getFLTEN9 : TBits_1; inline;
  72698. begin
  72699. getFLTEN9 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  72700. end;
  72701. procedure TCAN1_C1FLTCON2.setFSEL10(thebits : TBits_5); inline;
  72702. begin
  72703. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  72704. end;
  72705. function TCAN1_C1FLTCON2.getFSEL10 : TBits_5; inline;
  72706. begin
  72707. getFSEL10 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  72708. end;
  72709. procedure TCAN1_C1FLTCON2.setMSEL10(thebits : TBits_2); inline;
  72710. begin
  72711. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  72712. end;
  72713. function TCAN1_C1FLTCON2.getMSEL10 : TBits_2; inline;
  72714. begin
  72715. getMSEL10 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  72716. end;
  72717. procedure TCAN1_C1FLTCON2.setFLTEN10; inline;
  72718. begin
  72719. pTDefRegMap(@Self)^.&set := $00800000;
  72720. end;
  72721. procedure TCAN1_C1FLTCON2.clearFLTEN10; inline;
  72722. begin
  72723. pTDefRegMap(@Self)^.clr := $00800000;
  72724. end;
  72725. procedure TCAN1_C1FLTCON2.setFLTEN10(thebits : TBits_1); inline;
  72726. begin
  72727. if thebits = 0 then
  72728. pTDefRegMap(@Self)^.clr := $00800000
  72729. else
  72730. pTDefRegMap(@Self)^.&set := $00800000;
  72731. end;
  72732. function TCAN1_C1FLTCON2.getFLTEN10 : TBits_1; inline;
  72733. begin
  72734. getFLTEN10 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  72735. end;
  72736. procedure TCAN1_C1FLTCON2.setFSEL11(thebits : TBits_5); inline;
  72737. begin
  72738. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  72739. end;
  72740. function TCAN1_C1FLTCON2.getFSEL11 : TBits_5; inline;
  72741. begin
  72742. getFSEL11 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  72743. end;
  72744. procedure TCAN1_C1FLTCON2.setMSEL11(thebits : TBits_2); inline;
  72745. begin
  72746. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  72747. end;
  72748. function TCAN1_C1FLTCON2.getMSEL11 : TBits_2; inline;
  72749. begin
  72750. getMSEL11 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  72751. end;
  72752. procedure TCAN1_C1FLTCON2.setFLTEN11; inline;
  72753. begin
  72754. pTDefRegMap(@Self)^.&set := $80000000;
  72755. end;
  72756. procedure TCAN1_C1FLTCON2.clearFLTEN11; inline;
  72757. begin
  72758. pTDefRegMap(@Self)^.clr := $80000000;
  72759. end;
  72760. procedure TCAN1_C1FLTCON2.setFLTEN11(thebits : TBits_1); inline;
  72761. begin
  72762. if thebits = 0 then
  72763. pTDefRegMap(@Self)^.clr := $80000000
  72764. else
  72765. pTDefRegMap(@Self)^.&set := $80000000;
  72766. end;
  72767. function TCAN1_C1FLTCON2.getFLTEN11 : TBits_1; inline;
  72768. begin
  72769. getFLTEN11 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  72770. end;
  72771. procedure TCAN1_C1FLTCON2.setw(thebits : TBits_32); inline;
  72772. begin
  72773. pTDefRegMap(@Self)^.val := thebits;
  72774. end;
  72775. function TCAN1_C1FLTCON2.getw : TBits_32; inline;
  72776. begin
  72777. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72778. end;
  72779. procedure TCAN1_C1FLTCON3.setFSEL12(thebits : TBits_5); inline;
  72780. begin
  72781. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  72782. end;
  72783. function TCAN1_C1FLTCON3.getFSEL12 : TBits_5; inline;
  72784. begin
  72785. getFSEL12 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  72786. end;
  72787. procedure TCAN1_C1FLTCON3.setMSEL12(thebits : TBits_2); inline;
  72788. begin
  72789. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  72790. end;
  72791. function TCAN1_C1FLTCON3.getMSEL12 : TBits_2; inline;
  72792. begin
  72793. getMSEL12 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  72794. end;
  72795. procedure TCAN1_C1FLTCON3.setFLTEN12; inline;
  72796. begin
  72797. pTDefRegMap(@Self)^.&set := $00000080;
  72798. end;
  72799. procedure TCAN1_C1FLTCON3.clearFLTEN12; inline;
  72800. begin
  72801. pTDefRegMap(@Self)^.clr := $00000080;
  72802. end;
  72803. procedure TCAN1_C1FLTCON3.setFLTEN12(thebits : TBits_1); inline;
  72804. begin
  72805. if thebits = 0 then
  72806. pTDefRegMap(@Self)^.clr := $00000080
  72807. else
  72808. pTDefRegMap(@Self)^.&set := $00000080;
  72809. end;
  72810. function TCAN1_C1FLTCON3.getFLTEN12 : TBits_1; inline;
  72811. begin
  72812. getFLTEN12 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  72813. end;
  72814. procedure TCAN1_C1FLTCON3.setFSEL13(thebits : TBits_5); inline;
  72815. begin
  72816. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  72817. end;
  72818. function TCAN1_C1FLTCON3.getFSEL13 : TBits_5; inline;
  72819. begin
  72820. getFSEL13 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  72821. end;
  72822. procedure TCAN1_C1FLTCON3.setMSEL13(thebits : TBits_2); inline;
  72823. begin
  72824. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  72825. end;
  72826. function TCAN1_C1FLTCON3.getMSEL13 : TBits_2; inline;
  72827. begin
  72828. getMSEL13 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  72829. end;
  72830. procedure TCAN1_C1FLTCON3.setFLTEN13; inline;
  72831. begin
  72832. pTDefRegMap(@Self)^.&set := $00008000;
  72833. end;
  72834. procedure TCAN1_C1FLTCON3.clearFLTEN13; inline;
  72835. begin
  72836. pTDefRegMap(@Self)^.clr := $00008000;
  72837. end;
  72838. procedure TCAN1_C1FLTCON3.setFLTEN13(thebits : TBits_1); inline;
  72839. begin
  72840. if thebits = 0 then
  72841. pTDefRegMap(@Self)^.clr := $00008000
  72842. else
  72843. pTDefRegMap(@Self)^.&set := $00008000;
  72844. end;
  72845. function TCAN1_C1FLTCON3.getFLTEN13 : TBits_1; inline;
  72846. begin
  72847. getFLTEN13 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  72848. end;
  72849. procedure TCAN1_C1FLTCON3.setFSEL14(thebits : TBits_5); inline;
  72850. begin
  72851. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  72852. end;
  72853. function TCAN1_C1FLTCON3.getFSEL14 : TBits_5; inline;
  72854. begin
  72855. getFSEL14 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  72856. end;
  72857. procedure TCAN1_C1FLTCON3.setMSEL14(thebits : TBits_2); inline;
  72858. begin
  72859. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  72860. end;
  72861. function TCAN1_C1FLTCON3.getMSEL14 : TBits_2; inline;
  72862. begin
  72863. getMSEL14 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  72864. end;
  72865. procedure TCAN1_C1FLTCON3.setFLTEN14; inline;
  72866. begin
  72867. pTDefRegMap(@Self)^.&set := $00800000;
  72868. end;
  72869. procedure TCAN1_C1FLTCON3.clearFLTEN14; inline;
  72870. begin
  72871. pTDefRegMap(@Self)^.clr := $00800000;
  72872. end;
  72873. procedure TCAN1_C1FLTCON3.setFLTEN14(thebits : TBits_1); inline;
  72874. begin
  72875. if thebits = 0 then
  72876. pTDefRegMap(@Self)^.clr := $00800000
  72877. else
  72878. pTDefRegMap(@Self)^.&set := $00800000;
  72879. end;
  72880. function TCAN1_C1FLTCON3.getFLTEN14 : TBits_1; inline;
  72881. begin
  72882. getFLTEN14 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  72883. end;
  72884. procedure TCAN1_C1FLTCON3.setFSEL15(thebits : TBits_5); inline;
  72885. begin
  72886. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  72887. end;
  72888. function TCAN1_C1FLTCON3.getFSEL15 : TBits_5; inline;
  72889. begin
  72890. getFSEL15 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  72891. end;
  72892. procedure TCAN1_C1FLTCON3.setMSEL15(thebits : TBits_2); inline;
  72893. begin
  72894. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  72895. end;
  72896. function TCAN1_C1FLTCON3.getMSEL15 : TBits_2; inline;
  72897. begin
  72898. getMSEL15 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  72899. end;
  72900. procedure TCAN1_C1FLTCON3.setFLTEN15; inline;
  72901. begin
  72902. pTDefRegMap(@Self)^.&set := $80000000;
  72903. end;
  72904. procedure TCAN1_C1FLTCON3.clearFLTEN15; inline;
  72905. begin
  72906. pTDefRegMap(@Self)^.clr := $80000000;
  72907. end;
  72908. procedure TCAN1_C1FLTCON3.setFLTEN15(thebits : TBits_1); inline;
  72909. begin
  72910. if thebits = 0 then
  72911. pTDefRegMap(@Self)^.clr := $80000000
  72912. else
  72913. pTDefRegMap(@Self)^.&set := $80000000;
  72914. end;
  72915. function TCAN1_C1FLTCON3.getFLTEN15 : TBits_1; inline;
  72916. begin
  72917. getFLTEN15 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  72918. end;
  72919. procedure TCAN1_C1FLTCON3.setw(thebits : TBits_32); inline;
  72920. begin
  72921. pTDefRegMap(@Self)^.val := thebits;
  72922. end;
  72923. function TCAN1_C1FLTCON3.getw : TBits_32; inline;
  72924. begin
  72925. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72926. end;
  72927. procedure TCAN1_C1FLTCON4.setFSEL16(thebits : TBits_5); inline;
  72928. begin
  72929. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  72930. end;
  72931. function TCAN1_C1FLTCON4.getFSEL16 : TBits_5; inline;
  72932. begin
  72933. getFSEL16 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  72934. end;
  72935. procedure TCAN1_C1FLTCON4.setMSEL16(thebits : TBits_2); inline;
  72936. begin
  72937. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  72938. end;
  72939. function TCAN1_C1FLTCON4.getMSEL16 : TBits_2; inline;
  72940. begin
  72941. getMSEL16 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  72942. end;
  72943. procedure TCAN1_C1FLTCON4.setFLTEN16; inline;
  72944. begin
  72945. pTDefRegMap(@Self)^.&set := $00000080;
  72946. end;
  72947. procedure TCAN1_C1FLTCON4.clearFLTEN16; inline;
  72948. begin
  72949. pTDefRegMap(@Self)^.clr := $00000080;
  72950. end;
  72951. procedure TCAN1_C1FLTCON4.setFLTEN16(thebits : TBits_1); inline;
  72952. begin
  72953. if thebits = 0 then
  72954. pTDefRegMap(@Self)^.clr := $00000080
  72955. else
  72956. pTDefRegMap(@Self)^.&set := $00000080;
  72957. end;
  72958. function TCAN1_C1FLTCON4.getFLTEN16 : TBits_1; inline;
  72959. begin
  72960. getFLTEN16 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  72961. end;
  72962. procedure TCAN1_C1FLTCON4.setFSEL17(thebits : TBits_5); inline;
  72963. begin
  72964. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  72965. end;
  72966. function TCAN1_C1FLTCON4.getFSEL17 : TBits_5; inline;
  72967. begin
  72968. getFSEL17 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  72969. end;
  72970. procedure TCAN1_C1FLTCON4.setMSEL17(thebits : TBits_2); inline;
  72971. begin
  72972. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  72973. end;
  72974. function TCAN1_C1FLTCON4.getMSEL17 : TBits_2; inline;
  72975. begin
  72976. getMSEL17 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  72977. end;
  72978. procedure TCAN1_C1FLTCON4.setFLTEN17; inline;
  72979. begin
  72980. pTDefRegMap(@Self)^.&set := $00008000;
  72981. end;
  72982. procedure TCAN1_C1FLTCON4.clearFLTEN17; inline;
  72983. begin
  72984. pTDefRegMap(@Self)^.clr := $00008000;
  72985. end;
  72986. procedure TCAN1_C1FLTCON4.setFLTEN17(thebits : TBits_1); inline;
  72987. begin
  72988. if thebits = 0 then
  72989. pTDefRegMap(@Self)^.clr := $00008000
  72990. else
  72991. pTDefRegMap(@Self)^.&set := $00008000;
  72992. end;
  72993. function TCAN1_C1FLTCON4.getFLTEN17 : TBits_1; inline;
  72994. begin
  72995. getFLTEN17 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  72996. end;
  72997. procedure TCAN1_C1FLTCON4.setFSEL18(thebits : TBits_5); inline;
  72998. begin
  72999. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  73000. end;
  73001. function TCAN1_C1FLTCON4.getFSEL18 : TBits_5; inline;
  73002. begin
  73003. getFSEL18 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  73004. end;
  73005. procedure TCAN1_C1FLTCON4.setMSEL18(thebits : TBits_2); inline;
  73006. begin
  73007. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  73008. end;
  73009. function TCAN1_C1FLTCON4.getMSEL18 : TBits_2; inline;
  73010. begin
  73011. getMSEL18 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  73012. end;
  73013. procedure TCAN1_C1FLTCON4.setFLTEN18; inline;
  73014. begin
  73015. pTDefRegMap(@Self)^.&set := $00800000;
  73016. end;
  73017. procedure TCAN1_C1FLTCON4.clearFLTEN18; inline;
  73018. begin
  73019. pTDefRegMap(@Self)^.clr := $00800000;
  73020. end;
  73021. procedure TCAN1_C1FLTCON4.setFLTEN18(thebits : TBits_1); inline;
  73022. begin
  73023. if thebits = 0 then
  73024. pTDefRegMap(@Self)^.clr := $00800000
  73025. else
  73026. pTDefRegMap(@Self)^.&set := $00800000;
  73027. end;
  73028. function TCAN1_C1FLTCON4.getFLTEN18 : TBits_1; inline;
  73029. begin
  73030. getFLTEN18 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  73031. end;
  73032. procedure TCAN1_C1FLTCON4.setFSEL19(thebits : TBits_5); inline;
  73033. begin
  73034. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  73035. end;
  73036. function TCAN1_C1FLTCON4.getFSEL19 : TBits_5; inline;
  73037. begin
  73038. getFSEL19 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  73039. end;
  73040. procedure TCAN1_C1FLTCON4.setMSEL19(thebits : TBits_2); inline;
  73041. begin
  73042. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  73043. end;
  73044. function TCAN1_C1FLTCON4.getMSEL19 : TBits_2; inline;
  73045. begin
  73046. getMSEL19 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  73047. end;
  73048. procedure TCAN1_C1FLTCON4.setFLTEN19; inline;
  73049. begin
  73050. pTDefRegMap(@Self)^.&set := $80000000;
  73051. end;
  73052. procedure TCAN1_C1FLTCON4.clearFLTEN19; inline;
  73053. begin
  73054. pTDefRegMap(@Self)^.clr := $80000000;
  73055. end;
  73056. procedure TCAN1_C1FLTCON4.setFLTEN19(thebits : TBits_1); inline;
  73057. begin
  73058. if thebits = 0 then
  73059. pTDefRegMap(@Self)^.clr := $80000000
  73060. else
  73061. pTDefRegMap(@Self)^.&set := $80000000;
  73062. end;
  73063. function TCAN1_C1FLTCON4.getFLTEN19 : TBits_1; inline;
  73064. begin
  73065. getFLTEN19 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  73066. end;
  73067. procedure TCAN1_C1FLTCON4.setw(thebits : TBits_32); inline;
  73068. begin
  73069. pTDefRegMap(@Self)^.val := thebits;
  73070. end;
  73071. function TCAN1_C1FLTCON4.getw : TBits_32; inline;
  73072. begin
  73073. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73074. end;
  73075. procedure TCAN1_C1FLTCON5.setFSEL20(thebits : TBits_5); inline;
  73076. begin
  73077. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  73078. end;
  73079. function TCAN1_C1FLTCON5.getFSEL20 : TBits_5; inline;
  73080. begin
  73081. getFSEL20 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  73082. end;
  73083. procedure TCAN1_C1FLTCON5.setMSEL20(thebits : TBits_2); inline;
  73084. begin
  73085. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  73086. end;
  73087. function TCAN1_C1FLTCON5.getMSEL20 : TBits_2; inline;
  73088. begin
  73089. getMSEL20 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  73090. end;
  73091. procedure TCAN1_C1FLTCON5.setFLTEN20; inline;
  73092. begin
  73093. pTDefRegMap(@Self)^.&set := $00000080;
  73094. end;
  73095. procedure TCAN1_C1FLTCON5.clearFLTEN20; inline;
  73096. begin
  73097. pTDefRegMap(@Self)^.clr := $00000080;
  73098. end;
  73099. procedure TCAN1_C1FLTCON5.setFLTEN20(thebits : TBits_1); inline;
  73100. begin
  73101. if thebits = 0 then
  73102. pTDefRegMap(@Self)^.clr := $00000080
  73103. else
  73104. pTDefRegMap(@Self)^.&set := $00000080;
  73105. end;
  73106. function TCAN1_C1FLTCON5.getFLTEN20 : TBits_1; inline;
  73107. begin
  73108. getFLTEN20 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  73109. end;
  73110. procedure TCAN1_C1FLTCON5.setFSEL21(thebits : TBits_5); inline;
  73111. begin
  73112. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  73113. end;
  73114. function TCAN1_C1FLTCON5.getFSEL21 : TBits_5; inline;
  73115. begin
  73116. getFSEL21 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  73117. end;
  73118. procedure TCAN1_C1FLTCON5.setMSEL21(thebits : TBits_2); inline;
  73119. begin
  73120. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  73121. end;
  73122. function TCAN1_C1FLTCON5.getMSEL21 : TBits_2; inline;
  73123. begin
  73124. getMSEL21 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  73125. end;
  73126. procedure TCAN1_C1FLTCON5.setFLTEN21; inline;
  73127. begin
  73128. pTDefRegMap(@Self)^.&set := $00008000;
  73129. end;
  73130. procedure TCAN1_C1FLTCON5.clearFLTEN21; inline;
  73131. begin
  73132. pTDefRegMap(@Self)^.clr := $00008000;
  73133. end;
  73134. procedure TCAN1_C1FLTCON5.setFLTEN21(thebits : TBits_1); inline;
  73135. begin
  73136. if thebits = 0 then
  73137. pTDefRegMap(@Self)^.clr := $00008000
  73138. else
  73139. pTDefRegMap(@Self)^.&set := $00008000;
  73140. end;
  73141. function TCAN1_C1FLTCON5.getFLTEN21 : TBits_1; inline;
  73142. begin
  73143. getFLTEN21 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  73144. end;
  73145. procedure TCAN1_C1FLTCON5.setFSEL22(thebits : TBits_5); inline;
  73146. begin
  73147. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  73148. end;
  73149. function TCAN1_C1FLTCON5.getFSEL22 : TBits_5; inline;
  73150. begin
  73151. getFSEL22 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  73152. end;
  73153. procedure TCAN1_C1FLTCON5.setMSEL22(thebits : TBits_2); inline;
  73154. begin
  73155. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  73156. end;
  73157. function TCAN1_C1FLTCON5.getMSEL22 : TBits_2; inline;
  73158. begin
  73159. getMSEL22 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  73160. end;
  73161. procedure TCAN1_C1FLTCON5.setFLTEN22; inline;
  73162. begin
  73163. pTDefRegMap(@Self)^.&set := $00800000;
  73164. end;
  73165. procedure TCAN1_C1FLTCON5.clearFLTEN22; inline;
  73166. begin
  73167. pTDefRegMap(@Self)^.clr := $00800000;
  73168. end;
  73169. procedure TCAN1_C1FLTCON5.setFLTEN22(thebits : TBits_1); inline;
  73170. begin
  73171. if thebits = 0 then
  73172. pTDefRegMap(@Self)^.clr := $00800000
  73173. else
  73174. pTDefRegMap(@Self)^.&set := $00800000;
  73175. end;
  73176. function TCAN1_C1FLTCON5.getFLTEN22 : TBits_1; inline;
  73177. begin
  73178. getFLTEN22 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  73179. end;
  73180. procedure TCAN1_C1FLTCON5.setFSEL23(thebits : TBits_5); inline;
  73181. begin
  73182. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  73183. end;
  73184. function TCAN1_C1FLTCON5.getFSEL23 : TBits_5; inline;
  73185. begin
  73186. getFSEL23 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  73187. end;
  73188. procedure TCAN1_C1FLTCON5.setMSEL23(thebits : TBits_2); inline;
  73189. begin
  73190. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  73191. end;
  73192. function TCAN1_C1FLTCON5.getMSEL23 : TBits_2; inline;
  73193. begin
  73194. getMSEL23 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  73195. end;
  73196. procedure TCAN1_C1FLTCON5.setFLTEN23; inline;
  73197. begin
  73198. pTDefRegMap(@Self)^.&set := $80000000;
  73199. end;
  73200. procedure TCAN1_C1FLTCON5.clearFLTEN23; inline;
  73201. begin
  73202. pTDefRegMap(@Self)^.clr := $80000000;
  73203. end;
  73204. procedure TCAN1_C1FLTCON5.setFLTEN23(thebits : TBits_1); inline;
  73205. begin
  73206. if thebits = 0 then
  73207. pTDefRegMap(@Self)^.clr := $80000000
  73208. else
  73209. pTDefRegMap(@Self)^.&set := $80000000;
  73210. end;
  73211. function TCAN1_C1FLTCON5.getFLTEN23 : TBits_1; inline;
  73212. begin
  73213. getFLTEN23 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  73214. end;
  73215. procedure TCAN1_C1FLTCON5.setw(thebits : TBits_32); inline;
  73216. begin
  73217. pTDefRegMap(@Self)^.val := thebits;
  73218. end;
  73219. function TCAN1_C1FLTCON5.getw : TBits_32; inline;
  73220. begin
  73221. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73222. end;
  73223. procedure TCAN1_C1FLTCON6.setFSEL24(thebits : TBits_5); inline;
  73224. begin
  73225. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  73226. end;
  73227. function TCAN1_C1FLTCON6.getFSEL24 : TBits_5; inline;
  73228. begin
  73229. getFSEL24 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  73230. end;
  73231. procedure TCAN1_C1FLTCON6.setMSEL24(thebits : TBits_2); inline;
  73232. begin
  73233. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  73234. end;
  73235. function TCAN1_C1FLTCON6.getMSEL24 : TBits_2; inline;
  73236. begin
  73237. getMSEL24 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  73238. end;
  73239. procedure TCAN1_C1FLTCON6.setFLTEN24; inline;
  73240. begin
  73241. pTDefRegMap(@Self)^.&set := $00000080;
  73242. end;
  73243. procedure TCAN1_C1FLTCON6.clearFLTEN24; inline;
  73244. begin
  73245. pTDefRegMap(@Self)^.clr := $00000080;
  73246. end;
  73247. procedure TCAN1_C1FLTCON6.setFLTEN24(thebits : TBits_1); inline;
  73248. begin
  73249. if thebits = 0 then
  73250. pTDefRegMap(@Self)^.clr := $00000080
  73251. else
  73252. pTDefRegMap(@Self)^.&set := $00000080;
  73253. end;
  73254. function TCAN1_C1FLTCON6.getFLTEN24 : TBits_1; inline;
  73255. begin
  73256. getFLTEN24 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  73257. end;
  73258. procedure TCAN1_C1FLTCON6.setFSEL25(thebits : TBits_5); inline;
  73259. begin
  73260. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  73261. end;
  73262. function TCAN1_C1FLTCON6.getFSEL25 : TBits_5; inline;
  73263. begin
  73264. getFSEL25 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  73265. end;
  73266. procedure TCAN1_C1FLTCON6.setMSEL25(thebits : TBits_2); inline;
  73267. begin
  73268. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  73269. end;
  73270. function TCAN1_C1FLTCON6.getMSEL25 : TBits_2; inline;
  73271. begin
  73272. getMSEL25 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  73273. end;
  73274. procedure TCAN1_C1FLTCON6.setFLTEN25; inline;
  73275. begin
  73276. pTDefRegMap(@Self)^.&set := $00008000;
  73277. end;
  73278. procedure TCAN1_C1FLTCON6.clearFLTEN25; inline;
  73279. begin
  73280. pTDefRegMap(@Self)^.clr := $00008000;
  73281. end;
  73282. procedure TCAN1_C1FLTCON6.setFLTEN25(thebits : TBits_1); inline;
  73283. begin
  73284. if thebits = 0 then
  73285. pTDefRegMap(@Self)^.clr := $00008000
  73286. else
  73287. pTDefRegMap(@Self)^.&set := $00008000;
  73288. end;
  73289. function TCAN1_C1FLTCON6.getFLTEN25 : TBits_1; inline;
  73290. begin
  73291. getFLTEN25 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  73292. end;
  73293. procedure TCAN1_C1FLTCON6.setFSEL26(thebits : TBits_5); inline;
  73294. begin
  73295. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  73296. end;
  73297. function TCAN1_C1FLTCON6.getFSEL26 : TBits_5; inline;
  73298. begin
  73299. getFSEL26 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  73300. end;
  73301. procedure TCAN1_C1FLTCON6.setMSEL26(thebits : TBits_2); inline;
  73302. begin
  73303. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  73304. end;
  73305. function TCAN1_C1FLTCON6.getMSEL26 : TBits_2; inline;
  73306. begin
  73307. getMSEL26 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  73308. end;
  73309. procedure TCAN1_C1FLTCON6.setFLTEN26; inline;
  73310. begin
  73311. pTDefRegMap(@Self)^.&set := $00800000;
  73312. end;
  73313. procedure TCAN1_C1FLTCON6.clearFLTEN26; inline;
  73314. begin
  73315. pTDefRegMap(@Self)^.clr := $00800000;
  73316. end;
  73317. procedure TCAN1_C1FLTCON6.setFLTEN26(thebits : TBits_1); inline;
  73318. begin
  73319. if thebits = 0 then
  73320. pTDefRegMap(@Self)^.clr := $00800000
  73321. else
  73322. pTDefRegMap(@Self)^.&set := $00800000;
  73323. end;
  73324. function TCAN1_C1FLTCON6.getFLTEN26 : TBits_1; inline;
  73325. begin
  73326. getFLTEN26 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  73327. end;
  73328. procedure TCAN1_C1FLTCON6.setFSEL27(thebits : TBits_5); inline;
  73329. begin
  73330. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  73331. end;
  73332. function TCAN1_C1FLTCON6.getFSEL27 : TBits_5; inline;
  73333. begin
  73334. getFSEL27 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  73335. end;
  73336. procedure TCAN1_C1FLTCON6.setMSEL27(thebits : TBits_2); inline;
  73337. begin
  73338. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  73339. end;
  73340. function TCAN1_C1FLTCON6.getMSEL27 : TBits_2; inline;
  73341. begin
  73342. getMSEL27 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  73343. end;
  73344. procedure TCAN1_C1FLTCON6.setFLTEN27; inline;
  73345. begin
  73346. pTDefRegMap(@Self)^.&set := $80000000;
  73347. end;
  73348. procedure TCAN1_C1FLTCON6.clearFLTEN27; inline;
  73349. begin
  73350. pTDefRegMap(@Self)^.clr := $80000000;
  73351. end;
  73352. procedure TCAN1_C1FLTCON6.setFLTEN27(thebits : TBits_1); inline;
  73353. begin
  73354. if thebits = 0 then
  73355. pTDefRegMap(@Self)^.clr := $80000000
  73356. else
  73357. pTDefRegMap(@Self)^.&set := $80000000;
  73358. end;
  73359. function TCAN1_C1FLTCON6.getFLTEN27 : TBits_1; inline;
  73360. begin
  73361. getFLTEN27 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  73362. end;
  73363. procedure TCAN1_C1FLTCON6.setw(thebits : TBits_32); inline;
  73364. begin
  73365. pTDefRegMap(@Self)^.val := thebits;
  73366. end;
  73367. function TCAN1_C1FLTCON6.getw : TBits_32; inline;
  73368. begin
  73369. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73370. end;
  73371. procedure TCAN1_C1FLTCON7.setFSEL28(thebits : TBits_5); inline;
  73372. begin
  73373. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  73374. end;
  73375. function TCAN1_C1FLTCON7.getFSEL28 : TBits_5; inline;
  73376. begin
  73377. getFSEL28 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  73378. end;
  73379. procedure TCAN1_C1FLTCON7.setMSEL28(thebits : TBits_2); inline;
  73380. begin
  73381. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  73382. end;
  73383. function TCAN1_C1FLTCON7.getMSEL28 : TBits_2; inline;
  73384. begin
  73385. getMSEL28 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  73386. end;
  73387. procedure TCAN1_C1FLTCON7.setFLTEN28; inline;
  73388. begin
  73389. pTDefRegMap(@Self)^.&set := $00000080;
  73390. end;
  73391. procedure TCAN1_C1FLTCON7.clearFLTEN28; inline;
  73392. begin
  73393. pTDefRegMap(@Self)^.clr := $00000080;
  73394. end;
  73395. procedure TCAN1_C1FLTCON7.setFLTEN28(thebits : TBits_1); inline;
  73396. begin
  73397. if thebits = 0 then
  73398. pTDefRegMap(@Self)^.clr := $00000080
  73399. else
  73400. pTDefRegMap(@Self)^.&set := $00000080;
  73401. end;
  73402. function TCAN1_C1FLTCON7.getFLTEN28 : TBits_1; inline;
  73403. begin
  73404. getFLTEN28 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  73405. end;
  73406. procedure TCAN1_C1FLTCON7.setFSEL29(thebits : TBits_5); inline;
  73407. begin
  73408. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  73409. end;
  73410. function TCAN1_C1FLTCON7.getFSEL29 : TBits_5; inline;
  73411. begin
  73412. getFSEL29 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  73413. end;
  73414. procedure TCAN1_C1FLTCON7.setMSEL29(thebits : TBits_2); inline;
  73415. begin
  73416. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  73417. end;
  73418. function TCAN1_C1FLTCON7.getMSEL29 : TBits_2; inline;
  73419. begin
  73420. getMSEL29 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  73421. end;
  73422. procedure TCAN1_C1FLTCON7.setFLTEN29; inline;
  73423. begin
  73424. pTDefRegMap(@Self)^.&set := $00008000;
  73425. end;
  73426. procedure TCAN1_C1FLTCON7.clearFLTEN29; inline;
  73427. begin
  73428. pTDefRegMap(@Self)^.clr := $00008000;
  73429. end;
  73430. procedure TCAN1_C1FLTCON7.setFLTEN29(thebits : TBits_1); inline;
  73431. begin
  73432. if thebits = 0 then
  73433. pTDefRegMap(@Self)^.clr := $00008000
  73434. else
  73435. pTDefRegMap(@Self)^.&set := $00008000;
  73436. end;
  73437. function TCAN1_C1FLTCON7.getFLTEN29 : TBits_1; inline;
  73438. begin
  73439. getFLTEN29 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  73440. end;
  73441. procedure TCAN1_C1FLTCON7.setFSEL30(thebits : TBits_5); inline;
  73442. begin
  73443. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  73444. end;
  73445. function TCAN1_C1FLTCON7.getFSEL30 : TBits_5; inline;
  73446. begin
  73447. getFSEL30 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  73448. end;
  73449. procedure TCAN1_C1FLTCON7.setMSEL30(thebits : TBits_2); inline;
  73450. begin
  73451. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  73452. end;
  73453. function TCAN1_C1FLTCON7.getMSEL30 : TBits_2; inline;
  73454. begin
  73455. getMSEL30 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  73456. end;
  73457. procedure TCAN1_C1FLTCON7.setFLTEN30; inline;
  73458. begin
  73459. pTDefRegMap(@Self)^.&set := $00800000;
  73460. end;
  73461. procedure TCAN1_C1FLTCON7.clearFLTEN30; inline;
  73462. begin
  73463. pTDefRegMap(@Self)^.clr := $00800000;
  73464. end;
  73465. procedure TCAN1_C1FLTCON7.setFLTEN30(thebits : TBits_1); inline;
  73466. begin
  73467. if thebits = 0 then
  73468. pTDefRegMap(@Self)^.clr := $00800000
  73469. else
  73470. pTDefRegMap(@Self)^.&set := $00800000;
  73471. end;
  73472. function TCAN1_C1FLTCON7.getFLTEN30 : TBits_1; inline;
  73473. begin
  73474. getFLTEN30 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  73475. end;
  73476. procedure TCAN1_C1FLTCON7.setFSEL31(thebits : TBits_5); inline;
  73477. begin
  73478. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  73479. end;
  73480. function TCAN1_C1FLTCON7.getFSEL31 : TBits_5; inline;
  73481. begin
  73482. getFSEL31 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  73483. end;
  73484. procedure TCAN1_C1FLTCON7.setMSEL31(thebits : TBits_2); inline;
  73485. begin
  73486. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  73487. end;
  73488. function TCAN1_C1FLTCON7.getMSEL31 : TBits_2; inline;
  73489. begin
  73490. getMSEL31 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  73491. end;
  73492. procedure TCAN1_C1FLTCON7.setFLTEN31; inline;
  73493. begin
  73494. pTDefRegMap(@Self)^.&set := $80000000;
  73495. end;
  73496. procedure TCAN1_C1FLTCON7.clearFLTEN31; inline;
  73497. begin
  73498. pTDefRegMap(@Self)^.clr := $80000000;
  73499. end;
  73500. procedure TCAN1_C1FLTCON7.setFLTEN31(thebits : TBits_1); inline;
  73501. begin
  73502. if thebits = 0 then
  73503. pTDefRegMap(@Self)^.clr := $80000000
  73504. else
  73505. pTDefRegMap(@Self)^.&set := $80000000;
  73506. end;
  73507. function TCAN1_C1FLTCON7.getFLTEN31 : TBits_1; inline;
  73508. begin
  73509. getFLTEN31 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  73510. end;
  73511. procedure TCAN1_C1FLTCON7.setw(thebits : TBits_32); inline;
  73512. begin
  73513. pTDefRegMap(@Self)^.val := thebits;
  73514. end;
  73515. function TCAN1_C1FLTCON7.getw : TBits_32; inline;
  73516. begin
  73517. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73518. end;
  73519. procedure TCAN1_C1RXF0.setEID(thebits : TBits_18); inline;
  73520. begin
  73521. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73522. end;
  73523. function TCAN1_C1RXF0.getEID : TBits_18; inline;
  73524. begin
  73525. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73526. end;
  73527. procedure TCAN1_C1RXF0.setEXID; inline;
  73528. begin
  73529. pTDefRegMap(@Self)^.&set := $00080000;
  73530. end;
  73531. procedure TCAN1_C1RXF0.clearEXID; inline;
  73532. begin
  73533. pTDefRegMap(@Self)^.clr := $00080000;
  73534. end;
  73535. procedure TCAN1_C1RXF0.setEXID(thebits : TBits_1); inline;
  73536. begin
  73537. if thebits = 0 then
  73538. pTDefRegMap(@Self)^.clr := $00080000
  73539. else
  73540. pTDefRegMap(@Self)^.&set := $00080000;
  73541. end;
  73542. function TCAN1_C1RXF0.getEXID : TBits_1; inline;
  73543. begin
  73544. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73545. end;
  73546. procedure TCAN1_C1RXF0.setSID(thebits : TBits_11); inline;
  73547. begin
  73548. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73549. end;
  73550. function TCAN1_C1RXF0.getSID : TBits_11; inline;
  73551. begin
  73552. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73553. end;
  73554. procedure TCAN1_C1RXF0.setw(thebits : TBits_32); inline;
  73555. begin
  73556. pTDefRegMap(@Self)^.val := thebits;
  73557. end;
  73558. function TCAN1_C1RXF0.getw : TBits_32; inline;
  73559. begin
  73560. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73561. end;
  73562. procedure TCAN1_C1RXF1.setEID(thebits : TBits_18); inline;
  73563. begin
  73564. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73565. end;
  73566. function TCAN1_C1RXF1.getEID : TBits_18; inline;
  73567. begin
  73568. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73569. end;
  73570. procedure TCAN1_C1RXF1.setEXID; inline;
  73571. begin
  73572. pTDefRegMap(@Self)^.&set := $00080000;
  73573. end;
  73574. procedure TCAN1_C1RXF1.clearEXID; inline;
  73575. begin
  73576. pTDefRegMap(@Self)^.clr := $00080000;
  73577. end;
  73578. procedure TCAN1_C1RXF1.setEXID(thebits : TBits_1); inline;
  73579. begin
  73580. if thebits = 0 then
  73581. pTDefRegMap(@Self)^.clr := $00080000
  73582. else
  73583. pTDefRegMap(@Self)^.&set := $00080000;
  73584. end;
  73585. function TCAN1_C1RXF1.getEXID : TBits_1; inline;
  73586. begin
  73587. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73588. end;
  73589. procedure TCAN1_C1RXF1.setSID(thebits : TBits_11); inline;
  73590. begin
  73591. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73592. end;
  73593. function TCAN1_C1RXF1.getSID : TBits_11; inline;
  73594. begin
  73595. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73596. end;
  73597. procedure TCAN1_C1RXF1.setw(thebits : TBits_32); inline;
  73598. begin
  73599. pTDefRegMap(@Self)^.val := thebits;
  73600. end;
  73601. function TCAN1_C1RXF1.getw : TBits_32; inline;
  73602. begin
  73603. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73604. end;
  73605. procedure TCAN1_C1RXF2.setEID(thebits : TBits_18); inline;
  73606. begin
  73607. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73608. end;
  73609. function TCAN1_C1RXF2.getEID : TBits_18; inline;
  73610. begin
  73611. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73612. end;
  73613. procedure TCAN1_C1RXF2.setEXID; inline;
  73614. begin
  73615. pTDefRegMap(@Self)^.&set := $00080000;
  73616. end;
  73617. procedure TCAN1_C1RXF2.clearEXID; inline;
  73618. begin
  73619. pTDefRegMap(@Self)^.clr := $00080000;
  73620. end;
  73621. procedure TCAN1_C1RXF2.setEXID(thebits : TBits_1); inline;
  73622. begin
  73623. if thebits = 0 then
  73624. pTDefRegMap(@Self)^.clr := $00080000
  73625. else
  73626. pTDefRegMap(@Self)^.&set := $00080000;
  73627. end;
  73628. function TCAN1_C1RXF2.getEXID : TBits_1; inline;
  73629. begin
  73630. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73631. end;
  73632. procedure TCAN1_C1RXF2.setSID(thebits : TBits_11); inline;
  73633. begin
  73634. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73635. end;
  73636. function TCAN1_C1RXF2.getSID : TBits_11; inline;
  73637. begin
  73638. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73639. end;
  73640. procedure TCAN1_C1RXF2.setw(thebits : TBits_32); inline;
  73641. begin
  73642. pTDefRegMap(@Self)^.val := thebits;
  73643. end;
  73644. function TCAN1_C1RXF2.getw : TBits_32; inline;
  73645. begin
  73646. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73647. end;
  73648. procedure TCAN1_C1RXF3.setEID(thebits : TBits_18); inline;
  73649. begin
  73650. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73651. end;
  73652. function TCAN1_C1RXF3.getEID : TBits_18; inline;
  73653. begin
  73654. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73655. end;
  73656. procedure TCAN1_C1RXF3.setEXID; inline;
  73657. begin
  73658. pTDefRegMap(@Self)^.&set := $00080000;
  73659. end;
  73660. procedure TCAN1_C1RXF3.clearEXID; inline;
  73661. begin
  73662. pTDefRegMap(@Self)^.clr := $00080000;
  73663. end;
  73664. procedure TCAN1_C1RXF3.setEXID(thebits : TBits_1); inline;
  73665. begin
  73666. if thebits = 0 then
  73667. pTDefRegMap(@Self)^.clr := $00080000
  73668. else
  73669. pTDefRegMap(@Self)^.&set := $00080000;
  73670. end;
  73671. function TCAN1_C1RXF3.getEXID : TBits_1; inline;
  73672. begin
  73673. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73674. end;
  73675. procedure TCAN1_C1RXF3.setSID(thebits : TBits_11); inline;
  73676. begin
  73677. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73678. end;
  73679. function TCAN1_C1RXF3.getSID : TBits_11; inline;
  73680. begin
  73681. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73682. end;
  73683. procedure TCAN1_C1RXF3.setw(thebits : TBits_32); inline;
  73684. begin
  73685. pTDefRegMap(@Self)^.val := thebits;
  73686. end;
  73687. function TCAN1_C1RXF3.getw : TBits_32; inline;
  73688. begin
  73689. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73690. end;
  73691. procedure TCAN1_C1RXF4.setEID(thebits : TBits_18); inline;
  73692. begin
  73693. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73694. end;
  73695. function TCAN1_C1RXF4.getEID : TBits_18; inline;
  73696. begin
  73697. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73698. end;
  73699. procedure TCAN1_C1RXF4.setEXID; inline;
  73700. begin
  73701. pTDefRegMap(@Self)^.&set := $00080000;
  73702. end;
  73703. procedure TCAN1_C1RXF4.clearEXID; inline;
  73704. begin
  73705. pTDefRegMap(@Self)^.clr := $00080000;
  73706. end;
  73707. procedure TCAN1_C1RXF4.setEXID(thebits : TBits_1); inline;
  73708. begin
  73709. if thebits = 0 then
  73710. pTDefRegMap(@Self)^.clr := $00080000
  73711. else
  73712. pTDefRegMap(@Self)^.&set := $00080000;
  73713. end;
  73714. function TCAN1_C1RXF4.getEXID : TBits_1; inline;
  73715. begin
  73716. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73717. end;
  73718. procedure TCAN1_C1RXF4.setSID(thebits : TBits_11); inline;
  73719. begin
  73720. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73721. end;
  73722. function TCAN1_C1RXF4.getSID : TBits_11; inline;
  73723. begin
  73724. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73725. end;
  73726. procedure TCAN1_C1RXF4.setw(thebits : TBits_32); inline;
  73727. begin
  73728. pTDefRegMap(@Self)^.val := thebits;
  73729. end;
  73730. function TCAN1_C1RXF4.getw : TBits_32; inline;
  73731. begin
  73732. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73733. end;
  73734. procedure TCAN1_C1RXF5.setEID(thebits : TBits_18); inline;
  73735. begin
  73736. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73737. end;
  73738. function TCAN1_C1RXF5.getEID : TBits_18; inline;
  73739. begin
  73740. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73741. end;
  73742. procedure TCAN1_C1RXF5.setEXID; inline;
  73743. begin
  73744. pTDefRegMap(@Self)^.&set := $00080000;
  73745. end;
  73746. procedure TCAN1_C1RXF5.clearEXID; inline;
  73747. begin
  73748. pTDefRegMap(@Self)^.clr := $00080000;
  73749. end;
  73750. procedure TCAN1_C1RXF5.setEXID(thebits : TBits_1); inline;
  73751. begin
  73752. if thebits = 0 then
  73753. pTDefRegMap(@Self)^.clr := $00080000
  73754. else
  73755. pTDefRegMap(@Self)^.&set := $00080000;
  73756. end;
  73757. function TCAN1_C1RXF5.getEXID : TBits_1; inline;
  73758. begin
  73759. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73760. end;
  73761. procedure TCAN1_C1RXF5.setSID(thebits : TBits_11); inline;
  73762. begin
  73763. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73764. end;
  73765. function TCAN1_C1RXF5.getSID : TBits_11; inline;
  73766. begin
  73767. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73768. end;
  73769. procedure TCAN1_C1RXF5.setw(thebits : TBits_32); inline;
  73770. begin
  73771. pTDefRegMap(@Self)^.val := thebits;
  73772. end;
  73773. function TCAN1_C1RXF5.getw : TBits_32; inline;
  73774. begin
  73775. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73776. end;
  73777. procedure TCAN1_C1RXF6.setEID(thebits : TBits_18); inline;
  73778. begin
  73779. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73780. end;
  73781. function TCAN1_C1RXF6.getEID : TBits_18; inline;
  73782. begin
  73783. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73784. end;
  73785. procedure TCAN1_C1RXF6.setEXID; inline;
  73786. begin
  73787. pTDefRegMap(@Self)^.&set := $00080000;
  73788. end;
  73789. procedure TCAN1_C1RXF6.clearEXID; inline;
  73790. begin
  73791. pTDefRegMap(@Self)^.clr := $00080000;
  73792. end;
  73793. procedure TCAN1_C1RXF6.setEXID(thebits : TBits_1); inline;
  73794. begin
  73795. if thebits = 0 then
  73796. pTDefRegMap(@Self)^.clr := $00080000
  73797. else
  73798. pTDefRegMap(@Self)^.&set := $00080000;
  73799. end;
  73800. function TCAN1_C1RXF6.getEXID : TBits_1; inline;
  73801. begin
  73802. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73803. end;
  73804. procedure TCAN1_C1RXF6.setSID(thebits : TBits_11); inline;
  73805. begin
  73806. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73807. end;
  73808. function TCAN1_C1RXF6.getSID : TBits_11; inline;
  73809. begin
  73810. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73811. end;
  73812. procedure TCAN1_C1RXF6.setw(thebits : TBits_32); inline;
  73813. begin
  73814. pTDefRegMap(@Self)^.val := thebits;
  73815. end;
  73816. function TCAN1_C1RXF6.getw : TBits_32; inline;
  73817. begin
  73818. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73819. end;
  73820. procedure TCAN1_C1RXF7.setEID(thebits : TBits_18); inline;
  73821. begin
  73822. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73823. end;
  73824. function TCAN1_C1RXF7.getEID : TBits_18; inline;
  73825. begin
  73826. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73827. end;
  73828. procedure TCAN1_C1RXF7.setEXID; inline;
  73829. begin
  73830. pTDefRegMap(@Self)^.&set := $00080000;
  73831. end;
  73832. procedure TCAN1_C1RXF7.clearEXID; inline;
  73833. begin
  73834. pTDefRegMap(@Self)^.clr := $00080000;
  73835. end;
  73836. procedure TCAN1_C1RXF7.setEXID(thebits : TBits_1); inline;
  73837. begin
  73838. if thebits = 0 then
  73839. pTDefRegMap(@Self)^.clr := $00080000
  73840. else
  73841. pTDefRegMap(@Self)^.&set := $00080000;
  73842. end;
  73843. function TCAN1_C1RXF7.getEXID : TBits_1; inline;
  73844. begin
  73845. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73846. end;
  73847. procedure TCAN1_C1RXF7.setSID(thebits : TBits_11); inline;
  73848. begin
  73849. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73850. end;
  73851. function TCAN1_C1RXF7.getSID : TBits_11; inline;
  73852. begin
  73853. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73854. end;
  73855. procedure TCAN1_C1RXF7.setw(thebits : TBits_32); inline;
  73856. begin
  73857. pTDefRegMap(@Self)^.val := thebits;
  73858. end;
  73859. function TCAN1_C1RXF7.getw : TBits_32; inline;
  73860. begin
  73861. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73862. end;
  73863. procedure TCAN1_C1RXF8.setEID(thebits : TBits_18); inline;
  73864. begin
  73865. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73866. end;
  73867. function TCAN1_C1RXF8.getEID : TBits_18; inline;
  73868. begin
  73869. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73870. end;
  73871. procedure TCAN1_C1RXF8.setEXID; inline;
  73872. begin
  73873. pTDefRegMap(@Self)^.&set := $00080000;
  73874. end;
  73875. procedure TCAN1_C1RXF8.clearEXID; inline;
  73876. begin
  73877. pTDefRegMap(@Self)^.clr := $00080000;
  73878. end;
  73879. procedure TCAN1_C1RXF8.setEXID(thebits : TBits_1); inline;
  73880. begin
  73881. if thebits = 0 then
  73882. pTDefRegMap(@Self)^.clr := $00080000
  73883. else
  73884. pTDefRegMap(@Self)^.&set := $00080000;
  73885. end;
  73886. function TCAN1_C1RXF8.getEXID : TBits_1; inline;
  73887. begin
  73888. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73889. end;
  73890. procedure TCAN1_C1RXF8.setSID(thebits : TBits_11); inline;
  73891. begin
  73892. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73893. end;
  73894. function TCAN1_C1RXF8.getSID : TBits_11; inline;
  73895. begin
  73896. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73897. end;
  73898. procedure TCAN1_C1RXF8.setw(thebits : TBits_32); inline;
  73899. begin
  73900. pTDefRegMap(@Self)^.val := thebits;
  73901. end;
  73902. function TCAN1_C1RXF8.getw : TBits_32; inline;
  73903. begin
  73904. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73905. end;
  73906. procedure TCAN1_C1RXF9.setEID(thebits : TBits_18); inline;
  73907. begin
  73908. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73909. end;
  73910. function TCAN1_C1RXF9.getEID : TBits_18; inline;
  73911. begin
  73912. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73913. end;
  73914. procedure TCAN1_C1RXF9.setEXID; inline;
  73915. begin
  73916. pTDefRegMap(@Self)^.&set := $00080000;
  73917. end;
  73918. procedure TCAN1_C1RXF9.clearEXID; inline;
  73919. begin
  73920. pTDefRegMap(@Self)^.clr := $00080000;
  73921. end;
  73922. procedure TCAN1_C1RXF9.setEXID(thebits : TBits_1); inline;
  73923. begin
  73924. if thebits = 0 then
  73925. pTDefRegMap(@Self)^.clr := $00080000
  73926. else
  73927. pTDefRegMap(@Self)^.&set := $00080000;
  73928. end;
  73929. function TCAN1_C1RXF9.getEXID : TBits_1; inline;
  73930. begin
  73931. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73932. end;
  73933. procedure TCAN1_C1RXF9.setSID(thebits : TBits_11); inline;
  73934. begin
  73935. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73936. end;
  73937. function TCAN1_C1RXF9.getSID : TBits_11; inline;
  73938. begin
  73939. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73940. end;
  73941. procedure TCAN1_C1RXF9.setw(thebits : TBits_32); inline;
  73942. begin
  73943. pTDefRegMap(@Self)^.val := thebits;
  73944. end;
  73945. function TCAN1_C1RXF9.getw : TBits_32; inline;
  73946. begin
  73947. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73948. end;
  73949. procedure TCAN1_C1RXF10.setEID(thebits : TBits_18); inline;
  73950. begin
  73951. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73952. end;
  73953. function TCAN1_C1RXF10.getEID : TBits_18; inline;
  73954. begin
  73955. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73956. end;
  73957. procedure TCAN1_C1RXF10.setEXID; inline;
  73958. begin
  73959. pTDefRegMap(@Self)^.&set := $00080000;
  73960. end;
  73961. procedure TCAN1_C1RXF10.clearEXID; inline;
  73962. begin
  73963. pTDefRegMap(@Self)^.clr := $00080000;
  73964. end;
  73965. procedure TCAN1_C1RXF10.setEXID(thebits : TBits_1); inline;
  73966. begin
  73967. if thebits = 0 then
  73968. pTDefRegMap(@Self)^.clr := $00080000
  73969. else
  73970. pTDefRegMap(@Self)^.&set := $00080000;
  73971. end;
  73972. function TCAN1_C1RXF10.getEXID : TBits_1; inline;
  73973. begin
  73974. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73975. end;
  73976. procedure TCAN1_C1RXF10.setSID(thebits : TBits_11); inline;
  73977. begin
  73978. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73979. end;
  73980. function TCAN1_C1RXF10.getSID : TBits_11; inline;
  73981. begin
  73982. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73983. end;
  73984. procedure TCAN1_C1RXF10.setw(thebits : TBits_32); inline;
  73985. begin
  73986. pTDefRegMap(@Self)^.val := thebits;
  73987. end;
  73988. function TCAN1_C1RXF10.getw : TBits_32; inline;
  73989. begin
  73990. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73991. end;
  73992. procedure TCAN1_C1RXF11.setEID(thebits : TBits_18); inline;
  73993. begin
  73994. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73995. end;
  73996. function TCAN1_C1RXF11.getEID : TBits_18; inline;
  73997. begin
  73998. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73999. end;
  74000. procedure TCAN1_C1RXF11.setEXID; inline;
  74001. begin
  74002. pTDefRegMap(@Self)^.&set := $00080000;
  74003. end;
  74004. procedure TCAN1_C1RXF11.clearEXID; inline;
  74005. begin
  74006. pTDefRegMap(@Self)^.clr := $00080000;
  74007. end;
  74008. procedure TCAN1_C1RXF11.setEXID(thebits : TBits_1); inline;
  74009. begin
  74010. if thebits = 0 then
  74011. pTDefRegMap(@Self)^.clr := $00080000
  74012. else
  74013. pTDefRegMap(@Self)^.&set := $00080000;
  74014. end;
  74015. function TCAN1_C1RXF11.getEXID : TBits_1; inline;
  74016. begin
  74017. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74018. end;
  74019. procedure TCAN1_C1RXF11.setSID(thebits : TBits_11); inline;
  74020. begin
  74021. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74022. end;
  74023. function TCAN1_C1RXF11.getSID : TBits_11; inline;
  74024. begin
  74025. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74026. end;
  74027. procedure TCAN1_C1RXF11.setw(thebits : TBits_32); inline;
  74028. begin
  74029. pTDefRegMap(@Self)^.val := thebits;
  74030. end;
  74031. function TCAN1_C1RXF11.getw : TBits_32; inline;
  74032. begin
  74033. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74034. end;
  74035. procedure TCAN1_C1RXF12.setEID(thebits : TBits_18); inline;
  74036. begin
  74037. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74038. end;
  74039. function TCAN1_C1RXF12.getEID : TBits_18; inline;
  74040. begin
  74041. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74042. end;
  74043. procedure TCAN1_C1RXF12.setEXID; inline;
  74044. begin
  74045. pTDefRegMap(@Self)^.&set := $00080000;
  74046. end;
  74047. procedure TCAN1_C1RXF12.clearEXID; inline;
  74048. begin
  74049. pTDefRegMap(@Self)^.clr := $00080000;
  74050. end;
  74051. procedure TCAN1_C1RXF12.setEXID(thebits : TBits_1); inline;
  74052. begin
  74053. if thebits = 0 then
  74054. pTDefRegMap(@Self)^.clr := $00080000
  74055. else
  74056. pTDefRegMap(@Self)^.&set := $00080000;
  74057. end;
  74058. function TCAN1_C1RXF12.getEXID : TBits_1; inline;
  74059. begin
  74060. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74061. end;
  74062. procedure TCAN1_C1RXF12.setSID(thebits : TBits_11); inline;
  74063. begin
  74064. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74065. end;
  74066. function TCAN1_C1RXF12.getSID : TBits_11; inline;
  74067. begin
  74068. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74069. end;
  74070. procedure TCAN1_C1RXF12.setw(thebits : TBits_32); inline;
  74071. begin
  74072. pTDefRegMap(@Self)^.val := thebits;
  74073. end;
  74074. function TCAN1_C1RXF12.getw : TBits_32; inline;
  74075. begin
  74076. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74077. end;
  74078. procedure TCAN1_C1RXF13.setEID(thebits : TBits_18); inline;
  74079. begin
  74080. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74081. end;
  74082. function TCAN1_C1RXF13.getEID : TBits_18; inline;
  74083. begin
  74084. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74085. end;
  74086. procedure TCAN1_C1RXF13.setEXID; inline;
  74087. begin
  74088. pTDefRegMap(@Self)^.&set := $00080000;
  74089. end;
  74090. procedure TCAN1_C1RXF13.clearEXID; inline;
  74091. begin
  74092. pTDefRegMap(@Self)^.clr := $00080000;
  74093. end;
  74094. procedure TCAN1_C1RXF13.setEXID(thebits : TBits_1); inline;
  74095. begin
  74096. if thebits = 0 then
  74097. pTDefRegMap(@Self)^.clr := $00080000
  74098. else
  74099. pTDefRegMap(@Self)^.&set := $00080000;
  74100. end;
  74101. function TCAN1_C1RXF13.getEXID : TBits_1; inline;
  74102. begin
  74103. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74104. end;
  74105. procedure TCAN1_C1RXF13.setSID(thebits : TBits_11); inline;
  74106. begin
  74107. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74108. end;
  74109. function TCAN1_C1RXF13.getSID : TBits_11; inline;
  74110. begin
  74111. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74112. end;
  74113. procedure TCAN1_C1RXF13.setw(thebits : TBits_32); inline;
  74114. begin
  74115. pTDefRegMap(@Self)^.val := thebits;
  74116. end;
  74117. function TCAN1_C1RXF13.getw : TBits_32; inline;
  74118. begin
  74119. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74120. end;
  74121. procedure TCAN1_C1RXF14.setEID(thebits : TBits_18); inline;
  74122. begin
  74123. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74124. end;
  74125. function TCAN1_C1RXF14.getEID : TBits_18; inline;
  74126. begin
  74127. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74128. end;
  74129. procedure TCAN1_C1RXF14.setEXID; inline;
  74130. begin
  74131. pTDefRegMap(@Self)^.&set := $00080000;
  74132. end;
  74133. procedure TCAN1_C1RXF14.clearEXID; inline;
  74134. begin
  74135. pTDefRegMap(@Self)^.clr := $00080000;
  74136. end;
  74137. procedure TCAN1_C1RXF14.setEXID(thebits : TBits_1); inline;
  74138. begin
  74139. if thebits = 0 then
  74140. pTDefRegMap(@Self)^.clr := $00080000
  74141. else
  74142. pTDefRegMap(@Self)^.&set := $00080000;
  74143. end;
  74144. function TCAN1_C1RXF14.getEXID : TBits_1; inline;
  74145. begin
  74146. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74147. end;
  74148. procedure TCAN1_C1RXF14.setSID(thebits : TBits_11); inline;
  74149. begin
  74150. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74151. end;
  74152. function TCAN1_C1RXF14.getSID : TBits_11; inline;
  74153. begin
  74154. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74155. end;
  74156. procedure TCAN1_C1RXF14.setw(thebits : TBits_32); inline;
  74157. begin
  74158. pTDefRegMap(@Self)^.val := thebits;
  74159. end;
  74160. function TCAN1_C1RXF14.getw : TBits_32; inline;
  74161. begin
  74162. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74163. end;
  74164. procedure TCAN1_C1RXF15.setEID(thebits : TBits_18); inline;
  74165. begin
  74166. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74167. end;
  74168. function TCAN1_C1RXF15.getEID : TBits_18; inline;
  74169. begin
  74170. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74171. end;
  74172. procedure TCAN1_C1RXF15.setEXID; inline;
  74173. begin
  74174. pTDefRegMap(@Self)^.&set := $00080000;
  74175. end;
  74176. procedure TCAN1_C1RXF15.clearEXID; inline;
  74177. begin
  74178. pTDefRegMap(@Self)^.clr := $00080000;
  74179. end;
  74180. procedure TCAN1_C1RXF15.setEXID(thebits : TBits_1); inline;
  74181. begin
  74182. if thebits = 0 then
  74183. pTDefRegMap(@Self)^.clr := $00080000
  74184. else
  74185. pTDefRegMap(@Self)^.&set := $00080000;
  74186. end;
  74187. function TCAN1_C1RXF15.getEXID : TBits_1; inline;
  74188. begin
  74189. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74190. end;
  74191. procedure TCAN1_C1RXF15.setSID(thebits : TBits_11); inline;
  74192. begin
  74193. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74194. end;
  74195. function TCAN1_C1RXF15.getSID : TBits_11; inline;
  74196. begin
  74197. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74198. end;
  74199. procedure TCAN1_C1RXF15.setw(thebits : TBits_32); inline;
  74200. begin
  74201. pTDefRegMap(@Self)^.val := thebits;
  74202. end;
  74203. function TCAN1_C1RXF15.getw : TBits_32; inline;
  74204. begin
  74205. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74206. end;
  74207. procedure TCAN1_C1RXF16.setEID(thebits : TBits_18); inline;
  74208. begin
  74209. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74210. end;
  74211. function TCAN1_C1RXF16.getEID : TBits_18; inline;
  74212. begin
  74213. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74214. end;
  74215. procedure TCAN1_C1RXF16.setEXID; inline;
  74216. begin
  74217. pTDefRegMap(@Self)^.&set := $00080000;
  74218. end;
  74219. procedure TCAN1_C1RXF16.clearEXID; inline;
  74220. begin
  74221. pTDefRegMap(@Self)^.clr := $00080000;
  74222. end;
  74223. procedure TCAN1_C1RXF16.setEXID(thebits : TBits_1); inline;
  74224. begin
  74225. if thebits = 0 then
  74226. pTDefRegMap(@Self)^.clr := $00080000
  74227. else
  74228. pTDefRegMap(@Self)^.&set := $00080000;
  74229. end;
  74230. function TCAN1_C1RXF16.getEXID : TBits_1; inline;
  74231. begin
  74232. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74233. end;
  74234. procedure TCAN1_C1RXF16.setSID(thebits : TBits_11); inline;
  74235. begin
  74236. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74237. end;
  74238. function TCAN1_C1RXF16.getSID : TBits_11; inline;
  74239. begin
  74240. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74241. end;
  74242. procedure TCAN1_C1RXF16.setw(thebits : TBits_32); inline;
  74243. begin
  74244. pTDefRegMap(@Self)^.val := thebits;
  74245. end;
  74246. function TCAN1_C1RXF16.getw : TBits_32; inline;
  74247. begin
  74248. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74249. end;
  74250. procedure TCAN1_C1RXF17.setEID(thebits : TBits_18); inline;
  74251. begin
  74252. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74253. end;
  74254. function TCAN1_C1RXF17.getEID : TBits_18; inline;
  74255. begin
  74256. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74257. end;
  74258. procedure TCAN1_C1RXF17.setEXID; inline;
  74259. begin
  74260. pTDefRegMap(@Self)^.&set := $00080000;
  74261. end;
  74262. procedure TCAN1_C1RXF17.clearEXID; inline;
  74263. begin
  74264. pTDefRegMap(@Self)^.clr := $00080000;
  74265. end;
  74266. procedure TCAN1_C1RXF17.setEXID(thebits : TBits_1); inline;
  74267. begin
  74268. if thebits = 0 then
  74269. pTDefRegMap(@Self)^.clr := $00080000
  74270. else
  74271. pTDefRegMap(@Self)^.&set := $00080000;
  74272. end;
  74273. function TCAN1_C1RXF17.getEXID : TBits_1; inline;
  74274. begin
  74275. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74276. end;
  74277. procedure TCAN1_C1RXF17.setSID(thebits : TBits_11); inline;
  74278. begin
  74279. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74280. end;
  74281. function TCAN1_C1RXF17.getSID : TBits_11; inline;
  74282. begin
  74283. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74284. end;
  74285. procedure TCAN1_C1RXF17.setw(thebits : TBits_32); inline;
  74286. begin
  74287. pTDefRegMap(@Self)^.val := thebits;
  74288. end;
  74289. function TCAN1_C1RXF17.getw : TBits_32; inline;
  74290. begin
  74291. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74292. end;
  74293. procedure TCAN1_C1RXF18.setEID(thebits : TBits_18); inline;
  74294. begin
  74295. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74296. end;
  74297. function TCAN1_C1RXF18.getEID : TBits_18; inline;
  74298. begin
  74299. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74300. end;
  74301. procedure TCAN1_C1RXF18.setEXID; inline;
  74302. begin
  74303. pTDefRegMap(@Self)^.&set := $00080000;
  74304. end;
  74305. procedure TCAN1_C1RXF18.clearEXID; inline;
  74306. begin
  74307. pTDefRegMap(@Self)^.clr := $00080000;
  74308. end;
  74309. procedure TCAN1_C1RXF18.setEXID(thebits : TBits_1); inline;
  74310. begin
  74311. if thebits = 0 then
  74312. pTDefRegMap(@Self)^.clr := $00080000
  74313. else
  74314. pTDefRegMap(@Self)^.&set := $00080000;
  74315. end;
  74316. function TCAN1_C1RXF18.getEXID : TBits_1; inline;
  74317. begin
  74318. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74319. end;
  74320. procedure TCAN1_C1RXF18.setSID(thebits : TBits_11); inline;
  74321. begin
  74322. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74323. end;
  74324. function TCAN1_C1RXF18.getSID : TBits_11; inline;
  74325. begin
  74326. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74327. end;
  74328. procedure TCAN1_C1RXF18.setw(thebits : TBits_32); inline;
  74329. begin
  74330. pTDefRegMap(@Self)^.val := thebits;
  74331. end;
  74332. function TCAN1_C1RXF18.getw : TBits_32; inline;
  74333. begin
  74334. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74335. end;
  74336. procedure TCAN1_C1RXF19.setEID(thebits : TBits_18); inline;
  74337. begin
  74338. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74339. end;
  74340. function TCAN1_C1RXF19.getEID : TBits_18; inline;
  74341. begin
  74342. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74343. end;
  74344. procedure TCAN1_C1RXF19.setEXID; inline;
  74345. begin
  74346. pTDefRegMap(@Self)^.&set := $00080000;
  74347. end;
  74348. procedure TCAN1_C1RXF19.clearEXID; inline;
  74349. begin
  74350. pTDefRegMap(@Self)^.clr := $00080000;
  74351. end;
  74352. procedure TCAN1_C1RXF19.setEXID(thebits : TBits_1); inline;
  74353. begin
  74354. if thebits = 0 then
  74355. pTDefRegMap(@Self)^.clr := $00080000
  74356. else
  74357. pTDefRegMap(@Self)^.&set := $00080000;
  74358. end;
  74359. function TCAN1_C1RXF19.getEXID : TBits_1; inline;
  74360. begin
  74361. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74362. end;
  74363. procedure TCAN1_C1RXF19.setSID(thebits : TBits_11); inline;
  74364. begin
  74365. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74366. end;
  74367. function TCAN1_C1RXF19.getSID : TBits_11; inline;
  74368. begin
  74369. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74370. end;
  74371. procedure TCAN1_C1RXF19.setw(thebits : TBits_32); inline;
  74372. begin
  74373. pTDefRegMap(@Self)^.val := thebits;
  74374. end;
  74375. function TCAN1_C1RXF19.getw : TBits_32; inline;
  74376. begin
  74377. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74378. end;
  74379. procedure TCAN1_C1RXF20.setEID(thebits : TBits_18); inline;
  74380. begin
  74381. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74382. end;
  74383. function TCAN1_C1RXF20.getEID : TBits_18; inline;
  74384. begin
  74385. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74386. end;
  74387. procedure TCAN1_C1RXF20.setEXID; inline;
  74388. begin
  74389. pTDefRegMap(@Self)^.&set := $00080000;
  74390. end;
  74391. procedure TCAN1_C1RXF20.clearEXID; inline;
  74392. begin
  74393. pTDefRegMap(@Self)^.clr := $00080000;
  74394. end;
  74395. procedure TCAN1_C1RXF20.setEXID(thebits : TBits_1); inline;
  74396. begin
  74397. if thebits = 0 then
  74398. pTDefRegMap(@Self)^.clr := $00080000
  74399. else
  74400. pTDefRegMap(@Self)^.&set := $00080000;
  74401. end;
  74402. function TCAN1_C1RXF20.getEXID : TBits_1; inline;
  74403. begin
  74404. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74405. end;
  74406. procedure TCAN1_C1RXF20.setSID(thebits : TBits_11); inline;
  74407. begin
  74408. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74409. end;
  74410. function TCAN1_C1RXF20.getSID : TBits_11; inline;
  74411. begin
  74412. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74413. end;
  74414. procedure TCAN1_C1RXF20.setw(thebits : TBits_32); inline;
  74415. begin
  74416. pTDefRegMap(@Self)^.val := thebits;
  74417. end;
  74418. function TCAN1_C1RXF20.getw : TBits_32; inline;
  74419. begin
  74420. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74421. end;
  74422. procedure TCAN1_C1RXF21.setEID(thebits : TBits_18); inline;
  74423. begin
  74424. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74425. end;
  74426. function TCAN1_C1RXF21.getEID : TBits_18; inline;
  74427. begin
  74428. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74429. end;
  74430. procedure TCAN1_C1RXF21.setEXID; inline;
  74431. begin
  74432. pTDefRegMap(@Self)^.&set := $00080000;
  74433. end;
  74434. procedure TCAN1_C1RXF21.clearEXID; inline;
  74435. begin
  74436. pTDefRegMap(@Self)^.clr := $00080000;
  74437. end;
  74438. procedure TCAN1_C1RXF21.setEXID(thebits : TBits_1); inline;
  74439. begin
  74440. if thebits = 0 then
  74441. pTDefRegMap(@Self)^.clr := $00080000
  74442. else
  74443. pTDefRegMap(@Self)^.&set := $00080000;
  74444. end;
  74445. function TCAN1_C1RXF21.getEXID : TBits_1; inline;
  74446. begin
  74447. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74448. end;
  74449. procedure TCAN1_C1RXF21.setSID(thebits : TBits_11); inline;
  74450. begin
  74451. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74452. end;
  74453. function TCAN1_C1RXF21.getSID : TBits_11; inline;
  74454. begin
  74455. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74456. end;
  74457. procedure TCAN1_C1RXF21.setw(thebits : TBits_32); inline;
  74458. begin
  74459. pTDefRegMap(@Self)^.val := thebits;
  74460. end;
  74461. function TCAN1_C1RXF21.getw : TBits_32; inline;
  74462. begin
  74463. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74464. end;
  74465. procedure TCAN1_C1RXF22.setEID(thebits : TBits_18); inline;
  74466. begin
  74467. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74468. end;
  74469. function TCAN1_C1RXF22.getEID : TBits_18; inline;
  74470. begin
  74471. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74472. end;
  74473. procedure TCAN1_C1RXF22.setEXID; inline;
  74474. begin
  74475. pTDefRegMap(@Self)^.&set := $00080000;
  74476. end;
  74477. procedure TCAN1_C1RXF22.clearEXID; inline;
  74478. begin
  74479. pTDefRegMap(@Self)^.clr := $00080000;
  74480. end;
  74481. procedure TCAN1_C1RXF22.setEXID(thebits : TBits_1); inline;
  74482. begin
  74483. if thebits = 0 then
  74484. pTDefRegMap(@Self)^.clr := $00080000
  74485. else
  74486. pTDefRegMap(@Self)^.&set := $00080000;
  74487. end;
  74488. function TCAN1_C1RXF22.getEXID : TBits_1; inline;
  74489. begin
  74490. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74491. end;
  74492. procedure TCAN1_C1RXF22.setSID(thebits : TBits_11); inline;
  74493. begin
  74494. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74495. end;
  74496. function TCAN1_C1RXF22.getSID : TBits_11; inline;
  74497. begin
  74498. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74499. end;
  74500. procedure TCAN1_C1RXF22.setw(thebits : TBits_32); inline;
  74501. begin
  74502. pTDefRegMap(@Self)^.val := thebits;
  74503. end;
  74504. function TCAN1_C1RXF22.getw : TBits_32; inline;
  74505. begin
  74506. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74507. end;
  74508. procedure TCAN1_C1RXF23.setEID(thebits : TBits_18); inline;
  74509. begin
  74510. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74511. end;
  74512. function TCAN1_C1RXF23.getEID : TBits_18; inline;
  74513. begin
  74514. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74515. end;
  74516. procedure TCAN1_C1RXF23.setEXID; inline;
  74517. begin
  74518. pTDefRegMap(@Self)^.&set := $00080000;
  74519. end;
  74520. procedure TCAN1_C1RXF23.clearEXID; inline;
  74521. begin
  74522. pTDefRegMap(@Self)^.clr := $00080000;
  74523. end;
  74524. procedure TCAN1_C1RXF23.setEXID(thebits : TBits_1); inline;
  74525. begin
  74526. if thebits = 0 then
  74527. pTDefRegMap(@Self)^.clr := $00080000
  74528. else
  74529. pTDefRegMap(@Self)^.&set := $00080000;
  74530. end;
  74531. function TCAN1_C1RXF23.getEXID : TBits_1; inline;
  74532. begin
  74533. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74534. end;
  74535. procedure TCAN1_C1RXF23.setSID(thebits : TBits_11); inline;
  74536. begin
  74537. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74538. end;
  74539. function TCAN1_C1RXF23.getSID : TBits_11; inline;
  74540. begin
  74541. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74542. end;
  74543. procedure TCAN1_C1RXF23.setw(thebits : TBits_32); inline;
  74544. begin
  74545. pTDefRegMap(@Self)^.val := thebits;
  74546. end;
  74547. function TCAN1_C1RXF23.getw : TBits_32; inline;
  74548. begin
  74549. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74550. end;
  74551. procedure TCAN1_C1RXF24.setEID(thebits : TBits_18); inline;
  74552. begin
  74553. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74554. end;
  74555. function TCAN1_C1RXF24.getEID : TBits_18; inline;
  74556. begin
  74557. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74558. end;
  74559. procedure TCAN1_C1RXF24.setEXID; inline;
  74560. begin
  74561. pTDefRegMap(@Self)^.&set := $00080000;
  74562. end;
  74563. procedure TCAN1_C1RXF24.clearEXID; inline;
  74564. begin
  74565. pTDefRegMap(@Self)^.clr := $00080000;
  74566. end;
  74567. procedure TCAN1_C1RXF24.setEXID(thebits : TBits_1); inline;
  74568. begin
  74569. if thebits = 0 then
  74570. pTDefRegMap(@Self)^.clr := $00080000
  74571. else
  74572. pTDefRegMap(@Self)^.&set := $00080000;
  74573. end;
  74574. function TCAN1_C1RXF24.getEXID : TBits_1; inline;
  74575. begin
  74576. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74577. end;
  74578. procedure TCAN1_C1RXF24.setSID(thebits : TBits_11); inline;
  74579. begin
  74580. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74581. end;
  74582. function TCAN1_C1RXF24.getSID : TBits_11; inline;
  74583. begin
  74584. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74585. end;
  74586. procedure TCAN1_C1RXF24.setw(thebits : TBits_32); inline;
  74587. begin
  74588. pTDefRegMap(@Self)^.val := thebits;
  74589. end;
  74590. function TCAN1_C1RXF24.getw : TBits_32; inline;
  74591. begin
  74592. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74593. end;
  74594. procedure TCAN1_C1RXF25.setEID(thebits : TBits_18); inline;
  74595. begin
  74596. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74597. end;
  74598. function TCAN1_C1RXF25.getEID : TBits_18; inline;
  74599. begin
  74600. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74601. end;
  74602. procedure TCAN1_C1RXF25.setEXID; inline;
  74603. begin
  74604. pTDefRegMap(@Self)^.&set := $00080000;
  74605. end;
  74606. procedure TCAN1_C1RXF25.clearEXID; inline;
  74607. begin
  74608. pTDefRegMap(@Self)^.clr := $00080000;
  74609. end;
  74610. procedure TCAN1_C1RXF25.setEXID(thebits : TBits_1); inline;
  74611. begin
  74612. if thebits = 0 then
  74613. pTDefRegMap(@Self)^.clr := $00080000
  74614. else
  74615. pTDefRegMap(@Self)^.&set := $00080000;
  74616. end;
  74617. function TCAN1_C1RXF25.getEXID : TBits_1; inline;
  74618. begin
  74619. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74620. end;
  74621. procedure TCAN1_C1RXF25.setSID(thebits : TBits_11); inline;
  74622. begin
  74623. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74624. end;
  74625. function TCAN1_C1RXF25.getSID : TBits_11; inline;
  74626. begin
  74627. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74628. end;
  74629. procedure TCAN1_C1RXF25.setw(thebits : TBits_32); inline;
  74630. begin
  74631. pTDefRegMap(@Self)^.val := thebits;
  74632. end;
  74633. function TCAN1_C1RXF25.getw : TBits_32; inline;
  74634. begin
  74635. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74636. end;
  74637. procedure TCAN1_C1RXF26.setEID(thebits : TBits_18); inline;
  74638. begin
  74639. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74640. end;
  74641. function TCAN1_C1RXF26.getEID : TBits_18; inline;
  74642. begin
  74643. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74644. end;
  74645. procedure TCAN1_C1RXF26.setEXID; inline;
  74646. begin
  74647. pTDefRegMap(@Self)^.&set := $00080000;
  74648. end;
  74649. procedure TCAN1_C1RXF26.clearEXID; inline;
  74650. begin
  74651. pTDefRegMap(@Self)^.clr := $00080000;
  74652. end;
  74653. procedure TCAN1_C1RXF26.setEXID(thebits : TBits_1); inline;
  74654. begin
  74655. if thebits = 0 then
  74656. pTDefRegMap(@Self)^.clr := $00080000
  74657. else
  74658. pTDefRegMap(@Self)^.&set := $00080000;
  74659. end;
  74660. function TCAN1_C1RXF26.getEXID : TBits_1; inline;
  74661. begin
  74662. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74663. end;
  74664. procedure TCAN1_C1RXF26.setSID(thebits : TBits_11); inline;
  74665. begin
  74666. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74667. end;
  74668. function TCAN1_C1RXF26.getSID : TBits_11; inline;
  74669. begin
  74670. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74671. end;
  74672. procedure TCAN1_C1RXF26.setw(thebits : TBits_32); inline;
  74673. begin
  74674. pTDefRegMap(@Self)^.val := thebits;
  74675. end;
  74676. function TCAN1_C1RXF26.getw : TBits_32; inline;
  74677. begin
  74678. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74679. end;
  74680. procedure TCAN1_C1RXF27.setEID(thebits : TBits_18); inline;
  74681. begin
  74682. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74683. end;
  74684. function TCAN1_C1RXF27.getEID : TBits_18; inline;
  74685. begin
  74686. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74687. end;
  74688. procedure TCAN1_C1RXF27.setEXID; inline;
  74689. begin
  74690. pTDefRegMap(@Self)^.&set := $00080000;
  74691. end;
  74692. procedure TCAN1_C1RXF27.clearEXID; inline;
  74693. begin
  74694. pTDefRegMap(@Self)^.clr := $00080000;
  74695. end;
  74696. procedure TCAN1_C1RXF27.setEXID(thebits : TBits_1); inline;
  74697. begin
  74698. if thebits = 0 then
  74699. pTDefRegMap(@Self)^.clr := $00080000
  74700. else
  74701. pTDefRegMap(@Self)^.&set := $00080000;
  74702. end;
  74703. function TCAN1_C1RXF27.getEXID : TBits_1; inline;
  74704. begin
  74705. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74706. end;
  74707. procedure TCAN1_C1RXF27.setSID(thebits : TBits_11); inline;
  74708. begin
  74709. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74710. end;
  74711. function TCAN1_C1RXF27.getSID : TBits_11; inline;
  74712. begin
  74713. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74714. end;
  74715. procedure TCAN1_C1RXF27.setw(thebits : TBits_32); inline;
  74716. begin
  74717. pTDefRegMap(@Self)^.val := thebits;
  74718. end;
  74719. function TCAN1_C1RXF27.getw : TBits_32; inline;
  74720. begin
  74721. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74722. end;
  74723. procedure TCAN1_C1RXF28.setEID(thebits : TBits_18); inline;
  74724. begin
  74725. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74726. end;
  74727. function TCAN1_C1RXF28.getEID : TBits_18; inline;
  74728. begin
  74729. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74730. end;
  74731. procedure TCAN1_C1RXF28.setEXID; inline;
  74732. begin
  74733. pTDefRegMap(@Self)^.&set := $00080000;
  74734. end;
  74735. procedure TCAN1_C1RXF28.clearEXID; inline;
  74736. begin
  74737. pTDefRegMap(@Self)^.clr := $00080000;
  74738. end;
  74739. procedure TCAN1_C1RXF28.setEXID(thebits : TBits_1); inline;
  74740. begin
  74741. if thebits = 0 then
  74742. pTDefRegMap(@Self)^.clr := $00080000
  74743. else
  74744. pTDefRegMap(@Self)^.&set := $00080000;
  74745. end;
  74746. function TCAN1_C1RXF28.getEXID : TBits_1; inline;
  74747. begin
  74748. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74749. end;
  74750. procedure TCAN1_C1RXF28.setSID(thebits : TBits_11); inline;
  74751. begin
  74752. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74753. end;
  74754. function TCAN1_C1RXF28.getSID : TBits_11; inline;
  74755. begin
  74756. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74757. end;
  74758. procedure TCAN1_C1RXF28.setw(thebits : TBits_32); inline;
  74759. begin
  74760. pTDefRegMap(@Self)^.val := thebits;
  74761. end;
  74762. function TCAN1_C1RXF28.getw : TBits_32; inline;
  74763. begin
  74764. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74765. end;
  74766. procedure TCAN1_C1RXF29.setEID(thebits : TBits_18); inline;
  74767. begin
  74768. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74769. end;
  74770. function TCAN1_C1RXF29.getEID : TBits_18; inline;
  74771. begin
  74772. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74773. end;
  74774. procedure TCAN1_C1RXF29.setEXID; inline;
  74775. begin
  74776. pTDefRegMap(@Self)^.&set := $00080000;
  74777. end;
  74778. procedure TCAN1_C1RXF29.clearEXID; inline;
  74779. begin
  74780. pTDefRegMap(@Self)^.clr := $00080000;
  74781. end;
  74782. procedure TCAN1_C1RXF29.setEXID(thebits : TBits_1); inline;
  74783. begin
  74784. if thebits = 0 then
  74785. pTDefRegMap(@Self)^.clr := $00080000
  74786. else
  74787. pTDefRegMap(@Self)^.&set := $00080000;
  74788. end;
  74789. function TCAN1_C1RXF29.getEXID : TBits_1; inline;
  74790. begin
  74791. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74792. end;
  74793. procedure TCAN1_C1RXF29.setSID(thebits : TBits_11); inline;
  74794. begin
  74795. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74796. end;
  74797. function TCAN1_C1RXF29.getSID : TBits_11; inline;
  74798. begin
  74799. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74800. end;
  74801. procedure TCAN1_C1RXF29.setw(thebits : TBits_32); inline;
  74802. begin
  74803. pTDefRegMap(@Self)^.val := thebits;
  74804. end;
  74805. function TCAN1_C1RXF29.getw : TBits_32; inline;
  74806. begin
  74807. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74808. end;
  74809. procedure TCAN1_C1RXF30.setEID(thebits : TBits_18); inline;
  74810. begin
  74811. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74812. end;
  74813. function TCAN1_C1RXF30.getEID : TBits_18; inline;
  74814. begin
  74815. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74816. end;
  74817. procedure TCAN1_C1RXF30.setEXID; inline;
  74818. begin
  74819. pTDefRegMap(@Self)^.&set := $00080000;
  74820. end;
  74821. procedure TCAN1_C1RXF30.clearEXID; inline;
  74822. begin
  74823. pTDefRegMap(@Self)^.clr := $00080000;
  74824. end;
  74825. procedure TCAN1_C1RXF30.setEXID(thebits : TBits_1); inline;
  74826. begin
  74827. if thebits = 0 then
  74828. pTDefRegMap(@Self)^.clr := $00080000
  74829. else
  74830. pTDefRegMap(@Self)^.&set := $00080000;
  74831. end;
  74832. function TCAN1_C1RXF30.getEXID : TBits_1; inline;
  74833. begin
  74834. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74835. end;
  74836. procedure TCAN1_C1RXF30.setSID(thebits : TBits_11); inline;
  74837. begin
  74838. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74839. end;
  74840. function TCAN1_C1RXF30.getSID : TBits_11; inline;
  74841. begin
  74842. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74843. end;
  74844. procedure TCAN1_C1RXF30.setw(thebits : TBits_32); inline;
  74845. begin
  74846. pTDefRegMap(@Self)^.val := thebits;
  74847. end;
  74848. function TCAN1_C1RXF30.getw : TBits_32; inline;
  74849. begin
  74850. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74851. end;
  74852. procedure TCAN1_C1RXF31.setEID(thebits : TBits_18); inline;
  74853. begin
  74854. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  74855. end;
  74856. function TCAN1_C1RXF31.getEID : TBits_18; inline;
  74857. begin
  74858. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  74859. end;
  74860. procedure TCAN1_C1RXF31.setEXID; inline;
  74861. begin
  74862. pTDefRegMap(@Self)^.&set := $00080000;
  74863. end;
  74864. procedure TCAN1_C1RXF31.clearEXID; inline;
  74865. begin
  74866. pTDefRegMap(@Self)^.clr := $00080000;
  74867. end;
  74868. procedure TCAN1_C1RXF31.setEXID(thebits : TBits_1); inline;
  74869. begin
  74870. if thebits = 0 then
  74871. pTDefRegMap(@Self)^.clr := $00080000
  74872. else
  74873. pTDefRegMap(@Self)^.&set := $00080000;
  74874. end;
  74875. function TCAN1_C1RXF31.getEXID : TBits_1; inline;
  74876. begin
  74877. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74878. end;
  74879. procedure TCAN1_C1RXF31.setSID(thebits : TBits_11); inline;
  74880. begin
  74881. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  74882. end;
  74883. function TCAN1_C1RXF31.getSID : TBits_11; inline;
  74884. begin
  74885. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  74886. end;
  74887. procedure TCAN1_C1RXF31.setw(thebits : TBits_32); inline;
  74888. begin
  74889. pTDefRegMap(@Self)^.val := thebits;
  74890. end;
  74891. function TCAN1_C1RXF31.getw : TBits_32; inline;
  74892. begin
  74893. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74894. end;
  74895. procedure TCAN1_C1FIFOCON0.setTXPRI(thebits : TBits_2); inline;
  74896. begin
  74897. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  74898. end;
  74899. function TCAN1_C1FIFOCON0.getTXPRI : TBits_2; inline;
  74900. begin
  74901. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  74902. end;
  74903. procedure TCAN1_C1FIFOCON0.setRTREN; inline;
  74904. begin
  74905. pTDefRegMap(@Self)^.&set := $00000004;
  74906. end;
  74907. procedure TCAN1_C1FIFOCON0.clearRTREN; inline;
  74908. begin
  74909. pTDefRegMap(@Self)^.clr := $00000004;
  74910. end;
  74911. procedure TCAN1_C1FIFOCON0.setRTREN(thebits : TBits_1); inline;
  74912. begin
  74913. if thebits = 0 then
  74914. pTDefRegMap(@Self)^.clr := $00000004
  74915. else
  74916. pTDefRegMap(@Self)^.&set := $00000004;
  74917. end;
  74918. function TCAN1_C1FIFOCON0.getRTREN : TBits_1; inline;
  74919. begin
  74920. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  74921. end;
  74922. procedure TCAN1_C1FIFOCON0.setTXREQ; inline;
  74923. begin
  74924. pTDefRegMap(@Self)^.&set := $00000008;
  74925. end;
  74926. procedure TCAN1_C1FIFOCON0.clearTXREQ; inline;
  74927. begin
  74928. pTDefRegMap(@Self)^.clr := $00000008;
  74929. end;
  74930. procedure TCAN1_C1FIFOCON0.setTXREQ(thebits : TBits_1); inline;
  74931. begin
  74932. if thebits = 0 then
  74933. pTDefRegMap(@Self)^.clr := $00000008
  74934. else
  74935. pTDefRegMap(@Self)^.&set := $00000008;
  74936. end;
  74937. function TCAN1_C1FIFOCON0.getTXREQ : TBits_1; inline;
  74938. begin
  74939. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  74940. end;
  74941. procedure TCAN1_C1FIFOCON0.setTXERR; inline;
  74942. begin
  74943. pTDefRegMap(@Self)^.&set := $00000010;
  74944. end;
  74945. procedure TCAN1_C1FIFOCON0.clearTXERR; inline;
  74946. begin
  74947. pTDefRegMap(@Self)^.clr := $00000010;
  74948. end;
  74949. procedure TCAN1_C1FIFOCON0.setTXERR(thebits : TBits_1); inline;
  74950. begin
  74951. if thebits = 0 then
  74952. pTDefRegMap(@Self)^.clr := $00000010
  74953. else
  74954. pTDefRegMap(@Self)^.&set := $00000010;
  74955. end;
  74956. function TCAN1_C1FIFOCON0.getTXERR : TBits_1; inline;
  74957. begin
  74958. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  74959. end;
  74960. procedure TCAN1_C1FIFOCON0.setTXLARB; inline;
  74961. begin
  74962. pTDefRegMap(@Self)^.&set := $00000020;
  74963. end;
  74964. procedure TCAN1_C1FIFOCON0.clearTXLARB; inline;
  74965. begin
  74966. pTDefRegMap(@Self)^.clr := $00000020;
  74967. end;
  74968. procedure TCAN1_C1FIFOCON0.setTXLARB(thebits : TBits_1); inline;
  74969. begin
  74970. if thebits = 0 then
  74971. pTDefRegMap(@Self)^.clr := $00000020
  74972. else
  74973. pTDefRegMap(@Self)^.&set := $00000020;
  74974. end;
  74975. function TCAN1_C1FIFOCON0.getTXLARB : TBits_1; inline;
  74976. begin
  74977. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  74978. end;
  74979. procedure TCAN1_C1FIFOCON0.setTXABAT; inline;
  74980. begin
  74981. pTDefRegMap(@Self)^.&set := $00000040;
  74982. end;
  74983. procedure TCAN1_C1FIFOCON0.clearTXABAT; inline;
  74984. begin
  74985. pTDefRegMap(@Self)^.clr := $00000040;
  74986. end;
  74987. procedure TCAN1_C1FIFOCON0.setTXABAT(thebits : TBits_1); inline;
  74988. begin
  74989. if thebits = 0 then
  74990. pTDefRegMap(@Self)^.clr := $00000040
  74991. else
  74992. pTDefRegMap(@Self)^.&set := $00000040;
  74993. end;
  74994. function TCAN1_C1FIFOCON0.getTXABAT : TBits_1; inline;
  74995. begin
  74996. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  74997. end;
  74998. procedure TCAN1_C1FIFOCON0.setTXEN; inline;
  74999. begin
  75000. pTDefRegMap(@Self)^.&set := $00000080;
  75001. end;
  75002. procedure TCAN1_C1FIFOCON0.clearTXEN; inline;
  75003. begin
  75004. pTDefRegMap(@Self)^.clr := $00000080;
  75005. end;
  75006. procedure TCAN1_C1FIFOCON0.setTXEN(thebits : TBits_1); inline;
  75007. begin
  75008. if thebits = 0 then
  75009. pTDefRegMap(@Self)^.clr := $00000080
  75010. else
  75011. pTDefRegMap(@Self)^.&set := $00000080;
  75012. end;
  75013. function TCAN1_C1FIFOCON0.getTXEN : TBits_1; inline;
  75014. begin
  75015. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  75016. end;
  75017. procedure TCAN1_C1FIFOCON0.setDONLY; inline;
  75018. begin
  75019. pTDefRegMap(@Self)^.&set := $00001000;
  75020. end;
  75021. procedure TCAN1_C1FIFOCON0.clearDONLY; inline;
  75022. begin
  75023. pTDefRegMap(@Self)^.clr := $00001000;
  75024. end;
  75025. procedure TCAN1_C1FIFOCON0.setDONLY(thebits : TBits_1); inline;
  75026. begin
  75027. if thebits = 0 then
  75028. pTDefRegMap(@Self)^.clr := $00001000
  75029. else
  75030. pTDefRegMap(@Self)^.&set := $00001000;
  75031. end;
  75032. function TCAN1_C1FIFOCON0.getDONLY : TBits_1; inline;
  75033. begin
  75034. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  75035. end;
  75036. procedure TCAN1_C1FIFOCON0.setUINC; inline;
  75037. begin
  75038. pTDefRegMap(@Self)^.&set := $00002000;
  75039. end;
  75040. procedure TCAN1_C1FIFOCON0.clearUINC; inline;
  75041. begin
  75042. pTDefRegMap(@Self)^.clr := $00002000;
  75043. end;
  75044. procedure TCAN1_C1FIFOCON0.setUINC(thebits : TBits_1); inline;
  75045. begin
  75046. if thebits = 0 then
  75047. pTDefRegMap(@Self)^.clr := $00002000
  75048. else
  75049. pTDefRegMap(@Self)^.&set := $00002000;
  75050. end;
  75051. function TCAN1_C1FIFOCON0.getUINC : TBits_1; inline;
  75052. begin
  75053. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  75054. end;
  75055. procedure TCAN1_C1FIFOCON0.setFRESET; inline;
  75056. begin
  75057. pTDefRegMap(@Self)^.&set := $00004000;
  75058. end;
  75059. procedure TCAN1_C1FIFOCON0.clearFRESET; inline;
  75060. begin
  75061. pTDefRegMap(@Self)^.clr := $00004000;
  75062. end;
  75063. procedure TCAN1_C1FIFOCON0.setFRESET(thebits : TBits_1); inline;
  75064. begin
  75065. if thebits = 0 then
  75066. pTDefRegMap(@Self)^.clr := $00004000
  75067. else
  75068. pTDefRegMap(@Self)^.&set := $00004000;
  75069. end;
  75070. function TCAN1_C1FIFOCON0.getFRESET : TBits_1; inline;
  75071. begin
  75072. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  75073. end;
  75074. procedure TCAN1_C1FIFOCON0.setFSIZE(thebits : TBits_5); inline;
  75075. begin
  75076. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  75077. end;
  75078. function TCAN1_C1FIFOCON0.getFSIZE : TBits_5; inline;
  75079. begin
  75080. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  75081. end;
  75082. procedure TCAN1_C1FIFOCON0.setw(thebits : TBits_32); inline;
  75083. begin
  75084. pTDefRegMap(@Self)^.val := thebits;
  75085. end;
  75086. function TCAN1_C1FIFOCON0.getw : TBits_32; inline;
  75087. begin
  75088. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75089. end;
  75090. procedure TCAN1_C1FIFOINT0.setRXNEMPTYIF; inline;
  75091. begin
  75092. pTDefRegMap(@Self)^.&set := $00000001;
  75093. end;
  75094. procedure TCAN1_C1FIFOINT0.clearRXNEMPTYIF; inline;
  75095. begin
  75096. pTDefRegMap(@Self)^.clr := $00000001;
  75097. end;
  75098. procedure TCAN1_C1FIFOINT0.setRXNEMPTYIF(thebits : TBits_1); inline;
  75099. begin
  75100. if thebits = 0 then
  75101. pTDefRegMap(@Self)^.clr := $00000001
  75102. else
  75103. pTDefRegMap(@Self)^.&set := $00000001;
  75104. end;
  75105. function TCAN1_C1FIFOINT0.getRXNEMPTYIF : TBits_1; inline;
  75106. begin
  75107. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  75108. end;
  75109. procedure TCAN1_C1FIFOINT0.setRXHALFIF; inline;
  75110. begin
  75111. pTDefRegMap(@Self)^.&set := $00000002;
  75112. end;
  75113. procedure TCAN1_C1FIFOINT0.clearRXHALFIF; inline;
  75114. begin
  75115. pTDefRegMap(@Self)^.clr := $00000002;
  75116. end;
  75117. procedure TCAN1_C1FIFOINT0.setRXHALFIF(thebits : TBits_1); inline;
  75118. begin
  75119. if thebits = 0 then
  75120. pTDefRegMap(@Self)^.clr := $00000002
  75121. else
  75122. pTDefRegMap(@Self)^.&set := $00000002;
  75123. end;
  75124. function TCAN1_C1FIFOINT0.getRXHALFIF : TBits_1; inline;
  75125. begin
  75126. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  75127. end;
  75128. procedure TCAN1_C1FIFOINT0.setRXFULLIF; inline;
  75129. begin
  75130. pTDefRegMap(@Self)^.&set := $00000004;
  75131. end;
  75132. procedure TCAN1_C1FIFOINT0.clearRXFULLIF; inline;
  75133. begin
  75134. pTDefRegMap(@Self)^.clr := $00000004;
  75135. end;
  75136. procedure TCAN1_C1FIFOINT0.setRXFULLIF(thebits : TBits_1); inline;
  75137. begin
  75138. if thebits = 0 then
  75139. pTDefRegMap(@Self)^.clr := $00000004
  75140. else
  75141. pTDefRegMap(@Self)^.&set := $00000004;
  75142. end;
  75143. function TCAN1_C1FIFOINT0.getRXFULLIF : TBits_1; inline;
  75144. begin
  75145. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  75146. end;
  75147. procedure TCAN1_C1FIFOINT0.setRXOVFLIF; inline;
  75148. begin
  75149. pTDefRegMap(@Self)^.&set := $00000008;
  75150. end;
  75151. procedure TCAN1_C1FIFOINT0.clearRXOVFLIF; inline;
  75152. begin
  75153. pTDefRegMap(@Self)^.clr := $00000008;
  75154. end;
  75155. procedure TCAN1_C1FIFOINT0.setRXOVFLIF(thebits : TBits_1); inline;
  75156. begin
  75157. if thebits = 0 then
  75158. pTDefRegMap(@Self)^.clr := $00000008
  75159. else
  75160. pTDefRegMap(@Self)^.&set := $00000008;
  75161. end;
  75162. function TCAN1_C1FIFOINT0.getRXOVFLIF : TBits_1; inline;
  75163. begin
  75164. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  75165. end;
  75166. procedure TCAN1_C1FIFOINT0.setTXEMPTYIF; inline;
  75167. begin
  75168. pTDefRegMap(@Self)^.&set := $00000100;
  75169. end;
  75170. procedure TCAN1_C1FIFOINT0.clearTXEMPTYIF; inline;
  75171. begin
  75172. pTDefRegMap(@Self)^.clr := $00000100;
  75173. end;
  75174. procedure TCAN1_C1FIFOINT0.setTXEMPTYIF(thebits : TBits_1); inline;
  75175. begin
  75176. if thebits = 0 then
  75177. pTDefRegMap(@Self)^.clr := $00000100
  75178. else
  75179. pTDefRegMap(@Self)^.&set := $00000100;
  75180. end;
  75181. function TCAN1_C1FIFOINT0.getTXEMPTYIF : TBits_1; inline;
  75182. begin
  75183. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  75184. end;
  75185. procedure TCAN1_C1FIFOINT0.setTXHALFIF; inline;
  75186. begin
  75187. pTDefRegMap(@Self)^.&set := $00000200;
  75188. end;
  75189. procedure TCAN1_C1FIFOINT0.clearTXHALFIF; inline;
  75190. begin
  75191. pTDefRegMap(@Self)^.clr := $00000200;
  75192. end;
  75193. procedure TCAN1_C1FIFOINT0.setTXHALFIF(thebits : TBits_1); inline;
  75194. begin
  75195. if thebits = 0 then
  75196. pTDefRegMap(@Self)^.clr := $00000200
  75197. else
  75198. pTDefRegMap(@Self)^.&set := $00000200;
  75199. end;
  75200. function TCAN1_C1FIFOINT0.getTXHALFIF : TBits_1; inline;
  75201. begin
  75202. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  75203. end;
  75204. procedure TCAN1_C1FIFOINT0.setTXNFULLIF; inline;
  75205. begin
  75206. pTDefRegMap(@Self)^.&set := $00000400;
  75207. end;
  75208. procedure TCAN1_C1FIFOINT0.clearTXNFULLIF; inline;
  75209. begin
  75210. pTDefRegMap(@Self)^.clr := $00000400;
  75211. end;
  75212. procedure TCAN1_C1FIFOINT0.setTXNFULLIF(thebits : TBits_1); inline;
  75213. begin
  75214. if thebits = 0 then
  75215. pTDefRegMap(@Self)^.clr := $00000400
  75216. else
  75217. pTDefRegMap(@Self)^.&set := $00000400;
  75218. end;
  75219. function TCAN1_C1FIFOINT0.getTXNFULLIF : TBits_1; inline;
  75220. begin
  75221. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  75222. end;
  75223. procedure TCAN1_C1FIFOINT0.setRXNEMPTYIE; inline;
  75224. begin
  75225. pTDefRegMap(@Self)^.&set := $00010000;
  75226. end;
  75227. procedure TCAN1_C1FIFOINT0.clearRXNEMPTYIE; inline;
  75228. begin
  75229. pTDefRegMap(@Self)^.clr := $00010000;
  75230. end;
  75231. procedure TCAN1_C1FIFOINT0.setRXNEMPTYIE(thebits : TBits_1); inline;
  75232. begin
  75233. if thebits = 0 then
  75234. pTDefRegMap(@Self)^.clr := $00010000
  75235. else
  75236. pTDefRegMap(@Self)^.&set := $00010000;
  75237. end;
  75238. function TCAN1_C1FIFOINT0.getRXNEMPTYIE : TBits_1; inline;
  75239. begin
  75240. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  75241. end;
  75242. procedure TCAN1_C1FIFOINT0.setRXHALFIE; inline;
  75243. begin
  75244. pTDefRegMap(@Self)^.&set := $00020000;
  75245. end;
  75246. procedure TCAN1_C1FIFOINT0.clearRXHALFIE; inline;
  75247. begin
  75248. pTDefRegMap(@Self)^.clr := $00020000;
  75249. end;
  75250. procedure TCAN1_C1FIFOINT0.setRXHALFIE(thebits : TBits_1); inline;
  75251. begin
  75252. if thebits = 0 then
  75253. pTDefRegMap(@Self)^.clr := $00020000
  75254. else
  75255. pTDefRegMap(@Self)^.&set := $00020000;
  75256. end;
  75257. function TCAN1_C1FIFOINT0.getRXHALFIE : TBits_1; inline;
  75258. begin
  75259. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  75260. end;
  75261. procedure TCAN1_C1FIFOINT0.setRXFULLIE; inline;
  75262. begin
  75263. pTDefRegMap(@Self)^.&set := $00040000;
  75264. end;
  75265. procedure TCAN1_C1FIFOINT0.clearRXFULLIE; inline;
  75266. begin
  75267. pTDefRegMap(@Self)^.clr := $00040000;
  75268. end;
  75269. procedure TCAN1_C1FIFOINT0.setRXFULLIE(thebits : TBits_1); inline;
  75270. begin
  75271. if thebits = 0 then
  75272. pTDefRegMap(@Self)^.clr := $00040000
  75273. else
  75274. pTDefRegMap(@Self)^.&set := $00040000;
  75275. end;
  75276. function TCAN1_C1FIFOINT0.getRXFULLIE : TBits_1; inline;
  75277. begin
  75278. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  75279. end;
  75280. procedure TCAN1_C1FIFOINT0.setRXOVFLIE; inline;
  75281. begin
  75282. pTDefRegMap(@Self)^.&set := $00080000;
  75283. end;
  75284. procedure TCAN1_C1FIFOINT0.clearRXOVFLIE; inline;
  75285. begin
  75286. pTDefRegMap(@Self)^.clr := $00080000;
  75287. end;
  75288. procedure TCAN1_C1FIFOINT0.setRXOVFLIE(thebits : TBits_1); inline;
  75289. begin
  75290. if thebits = 0 then
  75291. pTDefRegMap(@Self)^.clr := $00080000
  75292. else
  75293. pTDefRegMap(@Self)^.&set := $00080000;
  75294. end;
  75295. function TCAN1_C1FIFOINT0.getRXOVFLIE : TBits_1; inline;
  75296. begin
  75297. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  75298. end;
  75299. procedure TCAN1_C1FIFOINT0.setTXEMPTYIE; inline;
  75300. begin
  75301. pTDefRegMap(@Self)^.&set := $01000000;
  75302. end;
  75303. procedure TCAN1_C1FIFOINT0.clearTXEMPTYIE; inline;
  75304. begin
  75305. pTDefRegMap(@Self)^.clr := $01000000;
  75306. end;
  75307. procedure TCAN1_C1FIFOINT0.setTXEMPTYIE(thebits : TBits_1); inline;
  75308. begin
  75309. if thebits = 0 then
  75310. pTDefRegMap(@Self)^.clr := $01000000
  75311. else
  75312. pTDefRegMap(@Self)^.&set := $01000000;
  75313. end;
  75314. function TCAN1_C1FIFOINT0.getTXEMPTYIE : TBits_1; inline;
  75315. begin
  75316. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  75317. end;
  75318. procedure TCAN1_C1FIFOINT0.setTXHALFIE; inline;
  75319. begin
  75320. pTDefRegMap(@Self)^.&set := $02000000;
  75321. end;
  75322. procedure TCAN1_C1FIFOINT0.clearTXHALFIE; inline;
  75323. begin
  75324. pTDefRegMap(@Self)^.clr := $02000000;
  75325. end;
  75326. procedure TCAN1_C1FIFOINT0.setTXHALFIE(thebits : TBits_1); inline;
  75327. begin
  75328. if thebits = 0 then
  75329. pTDefRegMap(@Self)^.clr := $02000000
  75330. else
  75331. pTDefRegMap(@Self)^.&set := $02000000;
  75332. end;
  75333. function TCAN1_C1FIFOINT0.getTXHALFIE : TBits_1; inline;
  75334. begin
  75335. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  75336. end;
  75337. procedure TCAN1_C1FIFOINT0.setTXNFULLIE; inline;
  75338. begin
  75339. pTDefRegMap(@Self)^.&set := $04000000;
  75340. end;
  75341. procedure TCAN1_C1FIFOINT0.clearTXNFULLIE; inline;
  75342. begin
  75343. pTDefRegMap(@Self)^.clr := $04000000;
  75344. end;
  75345. procedure TCAN1_C1FIFOINT0.setTXNFULLIE(thebits : TBits_1); inline;
  75346. begin
  75347. if thebits = 0 then
  75348. pTDefRegMap(@Self)^.clr := $04000000
  75349. else
  75350. pTDefRegMap(@Self)^.&set := $04000000;
  75351. end;
  75352. function TCAN1_C1FIFOINT0.getTXNFULLIE : TBits_1; inline;
  75353. begin
  75354. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  75355. end;
  75356. procedure TCAN1_C1FIFOINT0.setw(thebits : TBits_32); inline;
  75357. begin
  75358. pTDefRegMap(@Self)^.val := thebits;
  75359. end;
  75360. function TCAN1_C1FIFOINT0.getw : TBits_32; inline;
  75361. begin
  75362. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75363. end;
  75364. procedure TCAN1_C1FIFOCI0.setCFIFOCI(thebits : TBits_5); inline;
  75365. begin
  75366. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  75367. end;
  75368. function TCAN1_C1FIFOCI0.getCFIFOCI : TBits_5; inline;
  75369. begin
  75370. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  75371. end;
  75372. procedure TCAN1_C1FIFOCI0.setw(thebits : TBits_32); inline;
  75373. begin
  75374. pTDefRegMap(@Self)^.val := thebits;
  75375. end;
  75376. function TCAN1_C1FIFOCI0.getw : TBits_32; inline;
  75377. begin
  75378. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75379. end;
  75380. procedure TCAN1_C1FIFOCON1.setTXPRI(thebits : TBits_2); inline;
  75381. begin
  75382. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  75383. end;
  75384. function TCAN1_C1FIFOCON1.getTXPRI : TBits_2; inline;
  75385. begin
  75386. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  75387. end;
  75388. procedure TCAN1_C1FIFOCON1.setRTREN; inline;
  75389. begin
  75390. pTDefRegMap(@Self)^.&set := $00000004;
  75391. end;
  75392. procedure TCAN1_C1FIFOCON1.clearRTREN; inline;
  75393. begin
  75394. pTDefRegMap(@Self)^.clr := $00000004;
  75395. end;
  75396. procedure TCAN1_C1FIFOCON1.setRTREN(thebits : TBits_1); inline;
  75397. begin
  75398. if thebits = 0 then
  75399. pTDefRegMap(@Self)^.clr := $00000004
  75400. else
  75401. pTDefRegMap(@Self)^.&set := $00000004;
  75402. end;
  75403. function TCAN1_C1FIFOCON1.getRTREN : TBits_1; inline;
  75404. begin
  75405. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  75406. end;
  75407. procedure TCAN1_C1FIFOCON1.setTXREQ; inline;
  75408. begin
  75409. pTDefRegMap(@Self)^.&set := $00000008;
  75410. end;
  75411. procedure TCAN1_C1FIFOCON1.clearTXREQ; inline;
  75412. begin
  75413. pTDefRegMap(@Self)^.clr := $00000008;
  75414. end;
  75415. procedure TCAN1_C1FIFOCON1.setTXREQ(thebits : TBits_1); inline;
  75416. begin
  75417. if thebits = 0 then
  75418. pTDefRegMap(@Self)^.clr := $00000008
  75419. else
  75420. pTDefRegMap(@Self)^.&set := $00000008;
  75421. end;
  75422. function TCAN1_C1FIFOCON1.getTXREQ : TBits_1; inline;
  75423. begin
  75424. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  75425. end;
  75426. procedure TCAN1_C1FIFOCON1.setTXERR; inline;
  75427. begin
  75428. pTDefRegMap(@Self)^.&set := $00000010;
  75429. end;
  75430. procedure TCAN1_C1FIFOCON1.clearTXERR; inline;
  75431. begin
  75432. pTDefRegMap(@Self)^.clr := $00000010;
  75433. end;
  75434. procedure TCAN1_C1FIFOCON1.setTXERR(thebits : TBits_1); inline;
  75435. begin
  75436. if thebits = 0 then
  75437. pTDefRegMap(@Self)^.clr := $00000010
  75438. else
  75439. pTDefRegMap(@Self)^.&set := $00000010;
  75440. end;
  75441. function TCAN1_C1FIFOCON1.getTXERR : TBits_1; inline;
  75442. begin
  75443. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  75444. end;
  75445. procedure TCAN1_C1FIFOCON1.setTXLARB; inline;
  75446. begin
  75447. pTDefRegMap(@Self)^.&set := $00000020;
  75448. end;
  75449. procedure TCAN1_C1FIFOCON1.clearTXLARB; inline;
  75450. begin
  75451. pTDefRegMap(@Self)^.clr := $00000020;
  75452. end;
  75453. procedure TCAN1_C1FIFOCON1.setTXLARB(thebits : TBits_1); inline;
  75454. begin
  75455. if thebits = 0 then
  75456. pTDefRegMap(@Self)^.clr := $00000020
  75457. else
  75458. pTDefRegMap(@Self)^.&set := $00000020;
  75459. end;
  75460. function TCAN1_C1FIFOCON1.getTXLARB : TBits_1; inline;
  75461. begin
  75462. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  75463. end;
  75464. procedure TCAN1_C1FIFOCON1.setTXABAT; inline;
  75465. begin
  75466. pTDefRegMap(@Self)^.&set := $00000040;
  75467. end;
  75468. procedure TCAN1_C1FIFOCON1.clearTXABAT; inline;
  75469. begin
  75470. pTDefRegMap(@Self)^.clr := $00000040;
  75471. end;
  75472. procedure TCAN1_C1FIFOCON1.setTXABAT(thebits : TBits_1); inline;
  75473. begin
  75474. if thebits = 0 then
  75475. pTDefRegMap(@Self)^.clr := $00000040
  75476. else
  75477. pTDefRegMap(@Self)^.&set := $00000040;
  75478. end;
  75479. function TCAN1_C1FIFOCON1.getTXABAT : TBits_1; inline;
  75480. begin
  75481. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  75482. end;
  75483. procedure TCAN1_C1FIFOCON1.setTXEN; inline;
  75484. begin
  75485. pTDefRegMap(@Self)^.&set := $00000080;
  75486. end;
  75487. procedure TCAN1_C1FIFOCON1.clearTXEN; inline;
  75488. begin
  75489. pTDefRegMap(@Self)^.clr := $00000080;
  75490. end;
  75491. procedure TCAN1_C1FIFOCON1.setTXEN(thebits : TBits_1); inline;
  75492. begin
  75493. if thebits = 0 then
  75494. pTDefRegMap(@Self)^.clr := $00000080
  75495. else
  75496. pTDefRegMap(@Self)^.&set := $00000080;
  75497. end;
  75498. function TCAN1_C1FIFOCON1.getTXEN : TBits_1; inline;
  75499. begin
  75500. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  75501. end;
  75502. procedure TCAN1_C1FIFOCON1.setDONLY; inline;
  75503. begin
  75504. pTDefRegMap(@Self)^.&set := $00001000;
  75505. end;
  75506. procedure TCAN1_C1FIFOCON1.clearDONLY; inline;
  75507. begin
  75508. pTDefRegMap(@Self)^.clr := $00001000;
  75509. end;
  75510. procedure TCAN1_C1FIFOCON1.setDONLY(thebits : TBits_1); inline;
  75511. begin
  75512. if thebits = 0 then
  75513. pTDefRegMap(@Self)^.clr := $00001000
  75514. else
  75515. pTDefRegMap(@Self)^.&set := $00001000;
  75516. end;
  75517. function TCAN1_C1FIFOCON1.getDONLY : TBits_1; inline;
  75518. begin
  75519. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  75520. end;
  75521. procedure TCAN1_C1FIFOCON1.setUINC; inline;
  75522. begin
  75523. pTDefRegMap(@Self)^.&set := $00002000;
  75524. end;
  75525. procedure TCAN1_C1FIFOCON1.clearUINC; inline;
  75526. begin
  75527. pTDefRegMap(@Self)^.clr := $00002000;
  75528. end;
  75529. procedure TCAN1_C1FIFOCON1.setUINC(thebits : TBits_1); inline;
  75530. begin
  75531. if thebits = 0 then
  75532. pTDefRegMap(@Self)^.clr := $00002000
  75533. else
  75534. pTDefRegMap(@Self)^.&set := $00002000;
  75535. end;
  75536. function TCAN1_C1FIFOCON1.getUINC : TBits_1; inline;
  75537. begin
  75538. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  75539. end;
  75540. procedure TCAN1_C1FIFOCON1.setFRESET; inline;
  75541. begin
  75542. pTDefRegMap(@Self)^.&set := $00004000;
  75543. end;
  75544. procedure TCAN1_C1FIFOCON1.clearFRESET; inline;
  75545. begin
  75546. pTDefRegMap(@Self)^.clr := $00004000;
  75547. end;
  75548. procedure TCAN1_C1FIFOCON1.setFRESET(thebits : TBits_1); inline;
  75549. begin
  75550. if thebits = 0 then
  75551. pTDefRegMap(@Self)^.clr := $00004000
  75552. else
  75553. pTDefRegMap(@Self)^.&set := $00004000;
  75554. end;
  75555. function TCAN1_C1FIFOCON1.getFRESET : TBits_1; inline;
  75556. begin
  75557. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  75558. end;
  75559. procedure TCAN1_C1FIFOCON1.setFSIZE(thebits : TBits_5); inline;
  75560. begin
  75561. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  75562. end;
  75563. function TCAN1_C1FIFOCON1.getFSIZE : TBits_5; inline;
  75564. begin
  75565. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  75566. end;
  75567. procedure TCAN1_C1FIFOCON1.setw(thebits : TBits_32); inline;
  75568. begin
  75569. pTDefRegMap(@Self)^.val := thebits;
  75570. end;
  75571. function TCAN1_C1FIFOCON1.getw : TBits_32; inline;
  75572. begin
  75573. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75574. end;
  75575. procedure TCAN1_C1FIFOINT1.setRXNEMPTYIF; inline;
  75576. begin
  75577. pTDefRegMap(@Self)^.&set := $00000001;
  75578. end;
  75579. procedure TCAN1_C1FIFOINT1.clearRXNEMPTYIF; inline;
  75580. begin
  75581. pTDefRegMap(@Self)^.clr := $00000001;
  75582. end;
  75583. procedure TCAN1_C1FIFOINT1.setRXNEMPTYIF(thebits : TBits_1); inline;
  75584. begin
  75585. if thebits = 0 then
  75586. pTDefRegMap(@Self)^.clr := $00000001
  75587. else
  75588. pTDefRegMap(@Self)^.&set := $00000001;
  75589. end;
  75590. function TCAN1_C1FIFOINT1.getRXNEMPTYIF : TBits_1; inline;
  75591. begin
  75592. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  75593. end;
  75594. procedure TCAN1_C1FIFOINT1.setRXHALFIF; inline;
  75595. begin
  75596. pTDefRegMap(@Self)^.&set := $00000002;
  75597. end;
  75598. procedure TCAN1_C1FIFOINT1.clearRXHALFIF; inline;
  75599. begin
  75600. pTDefRegMap(@Self)^.clr := $00000002;
  75601. end;
  75602. procedure TCAN1_C1FIFOINT1.setRXHALFIF(thebits : TBits_1); inline;
  75603. begin
  75604. if thebits = 0 then
  75605. pTDefRegMap(@Self)^.clr := $00000002
  75606. else
  75607. pTDefRegMap(@Self)^.&set := $00000002;
  75608. end;
  75609. function TCAN1_C1FIFOINT1.getRXHALFIF : TBits_1; inline;
  75610. begin
  75611. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  75612. end;
  75613. procedure TCAN1_C1FIFOINT1.setRXFULLIF; inline;
  75614. begin
  75615. pTDefRegMap(@Self)^.&set := $00000004;
  75616. end;
  75617. procedure TCAN1_C1FIFOINT1.clearRXFULLIF; inline;
  75618. begin
  75619. pTDefRegMap(@Self)^.clr := $00000004;
  75620. end;
  75621. procedure TCAN1_C1FIFOINT1.setRXFULLIF(thebits : TBits_1); inline;
  75622. begin
  75623. if thebits = 0 then
  75624. pTDefRegMap(@Self)^.clr := $00000004
  75625. else
  75626. pTDefRegMap(@Self)^.&set := $00000004;
  75627. end;
  75628. function TCAN1_C1FIFOINT1.getRXFULLIF : TBits_1; inline;
  75629. begin
  75630. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  75631. end;
  75632. procedure TCAN1_C1FIFOINT1.setRXOVFLIF; inline;
  75633. begin
  75634. pTDefRegMap(@Self)^.&set := $00000008;
  75635. end;
  75636. procedure TCAN1_C1FIFOINT1.clearRXOVFLIF; inline;
  75637. begin
  75638. pTDefRegMap(@Self)^.clr := $00000008;
  75639. end;
  75640. procedure TCAN1_C1FIFOINT1.setRXOVFLIF(thebits : TBits_1); inline;
  75641. begin
  75642. if thebits = 0 then
  75643. pTDefRegMap(@Self)^.clr := $00000008
  75644. else
  75645. pTDefRegMap(@Self)^.&set := $00000008;
  75646. end;
  75647. function TCAN1_C1FIFOINT1.getRXOVFLIF : TBits_1; inline;
  75648. begin
  75649. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  75650. end;
  75651. procedure TCAN1_C1FIFOINT1.setTXEMPTYIF; inline;
  75652. begin
  75653. pTDefRegMap(@Self)^.&set := $00000100;
  75654. end;
  75655. procedure TCAN1_C1FIFOINT1.clearTXEMPTYIF; inline;
  75656. begin
  75657. pTDefRegMap(@Self)^.clr := $00000100;
  75658. end;
  75659. procedure TCAN1_C1FIFOINT1.setTXEMPTYIF(thebits : TBits_1); inline;
  75660. begin
  75661. if thebits = 0 then
  75662. pTDefRegMap(@Self)^.clr := $00000100
  75663. else
  75664. pTDefRegMap(@Self)^.&set := $00000100;
  75665. end;
  75666. function TCAN1_C1FIFOINT1.getTXEMPTYIF : TBits_1; inline;
  75667. begin
  75668. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  75669. end;
  75670. procedure TCAN1_C1FIFOINT1.setTXHALFIF; inline;
  75671. begin
  75672. pTDefRegMap(@Self)^.&set := $00000200;
  75673. end;
  75674. procedure TCAN1_C1FIFOINT1.clearTXHALFIF; inline;
  75675. begin
  75676. pTDefRegMap(@Self)^.clr := $00000200;
  75677. end;
  75678. procedure TCAN1_C1FIFOINT1.setTXHALFIF(thebits : TBits_1); inline;
  75679. begin
  75680. if thebits = 0 then
  75681. pTDefRegMap(@Self)^.clr := $00000200
  75682. else
  75683. pTDefRegMap(@Self)^.&set := $00000200;
  75684. end;
  75685. function TCAN1_C1FIFOINT1.getTXHALFIF : TBits_1; inline;
  75686. begin
  75687. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  75688. end;
  75689. procedure TCAN1_C1FIFOINT1.setTXNFULLIF; inline;
  75690. begin
  75691. pTDefRegMap(@Self)^.&set := $00000400;
  75692. end;
  75693. procedure TCAN1_C1FIFOINT1.clearTXNFULLIF; inline;
  75694. begin
  75695. pTDefRegMap(@Self)^.clr := $00000400;
  75696. end;
  75697. procedure TCAN1_C1FIFOINT1.setTXNFULLIF(thebits : TBits_1); inline;
  75698. begin
  75699. if thebits = 0 then
  75700. pTDefRegMap(@Self)^.clr := $00000400
  75701. else
  75702. pTDefRegMap(@Self)^.&set := $00000400;
  75703. end;
  75704. function TCAN1_C1FIFOINT1.getTXNFULLIF : TBits_1; inline;
  75705. begin
  75706. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  75707. end;
  75708. procedure TCAN1_C1FIFOINT1.setRXNEMPTYIE; inline;
  75709. begin
  75710. pTDefRegMap(@Self)^.&set := $00010000;
  75711. end;
  75712. procedure TCAN1_C1FIFOINT1.clearRXNEMPTYIE; inline;
  75713. begin
  75714. pTDefRegMap(@Self)^.clr := $00010000;
  75715. end;
  75716. procedure TCAN1_C1FIFOINT1.setRXNEMPTYIE(thebits : TBits_1); inline;
  75717. begin
  75718. if thebits = 0 then
  75719. pTDefRegMap(@Self)^.clr := $00010000
  75720. else
  75721. pTDefRegMap(@Self)^.&set := $00010000;
  75722. end;
  75723. function TCAN1_C1FIFOINT1.getRXNEMPTYIE : TBits_1; inline;
  75724. begin
  75725. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  75726. end;
  75727. procedure TCAN1_C1FIFOINT1.setRXHALFIE; inline;
  75728. begin
  75729. pTDefRegMap(@Self)^.&set := $00020000;
  75730. end;
  75731. procedure TCAN1_C1FIFOINT1.clearRXHALFIE; inline;
  75732. begin
  75733. pTDefRegMap(@Self)^.clr := $00020000;
  75734. end;
  75735. procedure TCAN1_C1FIFOINT1.setRXHALFIE(thebits : TBits_1); inline;
  75736. begin
  75737. if thebits = 0 then
  75738. pTDefRegMap(@Self)^.clr := $00020000
  75739. else
  75740. pTDefRegMap(@Self)^.&set := $00020000;
  75741. end;
  75742. function TCAN1_C1FIFOINT1.getRXHALFIE : TBits_1; inline;
  75743. begin
  75744. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  75745. end;
  75746. procedure TCAN1_C1FIFOINT1.setRXFULLIE; inline;
  75747. begin
  75748. pTDefRegMap(@Self)^.&set := $00040000;
  75749. end;
  75750. procedure TCAN1_C1FIFOINT1.clearRXFULLIE; inline;
  75751. begin
  75752. pTDefRegMap(@Self)^.clr := $00040000;
  75753. end;
  75754. procedure TCAN1_C1FIFOINT1.setRXFULLIE(thebits : TBits_1); inline;
  75755. begin
  75756. if thebits = 0 then
  75757. pTDefRegMap(@Self)^.clr := $00040000
  75758. else
  75759. pTDefRegMap(@Self)^.&set := $00040000;
  75760. end;
  75761. function TCAN1_C1FIFOINT1.getRXFULLIE : TBits_1; inline;
  75762. begin
  75763. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  75764. end;
  75765. procedure TCAN1_C1FIFOINT1.setRXOVFLIE; inline;
  75766. begin
  75767. pTDefRegMap(@Self)^.&set := $00080000;
  75768. end;
  75769. procedure TCAN1_C1FIFOINT1.clearRXOVFLIE; inline;
  75770. begin
  75771. pTDefRegMap(@Self)^.clr := $00080000;
  75772. end;
  75773. procedure TCAN1_C1FIFOINT1.setRXOVFLIE(thebits : TBits_1); inline;
  75774. begin
  75775. if thebits = 0 then
  75776. pTDefRegMap(@Self)^.clr := $00080000
  75777. else
  75778. pTDefRegMap(@Self)^.&set := $00080000;
  75779. end;
  75780. function TCAN1_C1FIFOINT1.getRXOVFLIE : TBits_1; inline;
  75781. begin
  75782. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  75783. end;
  75784. procedure TCAN1_C1FIFOINT1.setTXEMPTYIE; inline;
  75785. begin
  75786. pTDefRegMap(@Self)^.&set := $01000000;
  75787. end;
  75788. procedure TCAN1_C1FIFOINT1.clearTXEMPTYIE; inline;
  75789. begin
  75790. pTDefRegMap(@Self)^.clr := $01000000;
  75791. end;
  75792. procedure TCAN1_C1FIFOINT1.setTXEMPTYIE(thebits : TBits_1); inline;
  75793. begin
  75794. if thebits = 0 then
  75795. pTDefRegMap(@Self)^.clr := $01000000
  75796. else
  75797. pTDefRegMap(@Self)^.&set := $01000000;
  75798. end;
  75799. function TCAN1_C1FIFOINT1.getTXEMPTYIE : TBits_1; inline;
  75800. begin
  75801. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  75802. end;
  75803. procedure TCAN1_C1FIFOINT1.setTXHALFIE; inline;
  75804. begin
  75805. pTDefRegMap(@Self)^.&set := $02000000;
  75806. end;
  75807. procedure TCAN1_C1FIFOINT1.clearTXHALFIE; inline;
  75808. begin
  75809. pTDefRegMap(@Self)^.clr := $02000000;
  75810. end;
  75811. procedure TCAN1_C1FIFOINT1.setTXHALFIE(thebits : TBits_1); inline;
  75812. begin
  75813. if thebits = 0 then
  75814. pTDefRegMap(@Self)^.clr := $02000000
  75815. else
  75816. pTDefRegMap(@Self)^.&set := $02000000;
  75817. end;
  75818. function TCAN1_C1FIFOINT1.getTXHALFIE : TBits_1; inline;
  75819. begin
  75820. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  75821. end;
  75822. procedure TCAN1_C1FIFOINT1.setTXNFULLIE; inline;
  75823. begin
  75824. pTDefRegMap(@Self)^.&set := $04000000;
  75825. end;
  75826. procedure TCAN1_C1FIFOINT1.clearTXNFULLIE; inline;
  75827. begin
  75828. pTDefRegMap(@Self)^.clr := $04000000;
  75829. end;
  75830. procedure TCAN1_C1FIFOINT1.setTXNFULLIE(thebits : TBits_1); inline;
  75831. begin
  75832. if thebits = 0 then
  75833. pTDefRegMap(@Self)^.clr := $04000000
  75834. else
  75835. pTDefRegMap(@Self)^.&set := $04000000;
  75836. end;
  75837. function TCAN1_C1FIFOINT1.getTXNFULLIE : TBits_1; inline;
  75838. begin
  75839. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  75840. end;
  75841. procedure TCAN1_C1FIFOINT1.setw(thebits : TBits_32); inline;
  75842. begin
  75843. pTDefRegMap(@Self)^.val := thebits;
  75844. end;
  75845. function TCAN1_C1FIFOINT1.getw : TBits_32; inline;
  75846. begin
  75847. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75848. end;
  75849. procedure TCAN1_C1FIFOCI1.setCFIFOCI(thebits : TBits_5); inline;
  75850. begin
  75851. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  75852. end;
  75853. function TCAN1_C1FIFOCI1.getCFIFOCI : TBits_5; inline;
  75854. begin
  75855. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  75856. end;
  75857. procedure TCAN1_C1FIFOCI1.setw(thebits : TBits_32); inline;
  75858. begin
  75859. pTDefRegMap(@Self)^.val := thebits;
  75860. end;
  75861. function TCAN1_C1FIFOCI1.getw : TBits_32; inline;
  75862. begin
  75863. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75864. end;
  75865. procedure TCAN1_C1FIFOCON2.setTXPRI(thebits : TBits_2); inline;
  75866. begin
  75867. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  75868. end;
  75869. function TCAN1_C1FIFOCON2.getTXPRI : TBits_2; inline;
  75870. begin
  75871. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  75872. end;
  75873. procedure TCAN1_C1FIFOCON2.setRTREN; inline;
  75874. begin
  75875. pTDefRegMap(@Self)^.&set := $00000004;
  75876. end;
  75877. procedure TCAN1_C1FIFOCON2.clearRTREN; inline;
  75878. begin
  75879. pTDefRegMap(@Self)^.clr := $00000004;
  75880. end;
  75881. procedure TCAN1_C1FIFOCON2.setRTREN(thebits : TBits_1); inline;
  75882. begin
  75883. if thebits = 0 then
  75884. pTDefRegMap(@Self)^.clr := $00000004
  75885. else
  75886. pTDefRegMap(@Self)^.&set := $00000004;
  75887. end;
  75888. function TCAN1_C1FIFOCON2.getRTREN : TBits_1; inline;
  75889. begin
  75890. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  75891. end;
  75892. procedure TCAN1_C1FIFOCON2.setTXREQ; inline;
  75893. begin
  75894. pTDefRegMap(@Self)^.&set := $00000008;
  75895. end;
  75896. procedure TCAN1_C1FIFOCON2.clearTXREQ; inline;
  75897. begin
  75898. pTDefRegMap(@Self)^.clr := $00000008;
  75899. end;
  75900. procedure TCAN1_C1FIFOCON2.setTXREQ(thebits : TBits_1); inline;
  75901. begin
  75902. if thebits = 0 then
  75903. pTDefRegMap(@Self)^.clr := $00000008
  75904. else
  75905. pTDefRegMap(@Self)^.&set := $00000008;
  75906. end;
  75907. function TCAN1_C1FIFOCON2.getTXREQ : TBits_1; inline;
  75908. begin
  75909. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  75910. end;
  75911. procedure TCAN1_C1FIFOCON2.setTXERR; inline;
  75912. begin
  75913. pTDefRegMap(@Self)^.&set := $00000010;
  75914. end;
  75915. procedure TCAN1_C1FIFOCON2.clearTXERR; inline;
  75916. begin
  75917. pTDefRegMap(@Self)^.clr := $00000010;
  75918. end;
  75919. procedure TCAN1_C1FIFOCON2.setTXERR(thebits : TBits_1); inline;
  75920. begin
  75921. if thebits = 0 then
  75922. pTDefRegMap(@Self)^.clr := $00000010
  75923. else
  75924. pTDefRegMap(@Self)^.&set := $00000010;
  75925. end;
  75926. function TCAN1_C1FIFOCON2.getTXERR : TBits_1; inline;
  75927. begin
  75928. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  75929. end;
  75930. procedure TCAN1_C1FIFOCON2.setTXLARB; inline;
  75931. begin
  75932. pTDefRegMap(@Self)^.&set := $00000020;
  75933. end;
  75934. procedure TCAN1_C1FIFOCON2.clearTXLARB; inline;
  75935. begin
  75936. pTDefRegMap(@Self)^.clr := $00000020;
  75937. end;
  75938. procedure TCAN1_C1FIFOCON2.setTXLARB(thebits : TBits_1); inline;
  75939. begin
  75940. if thebits = 0 then
  75941. pTDefRegMap(@Self)^.clr := $00000020
  75942. else
  75943. pTDefRegMap(@Self)^.&set := $00000020;
  75944. end;
  75945. function TCAN1_C1FIFOCON2.getTXLARB : TBits_1; inline;
  75946. begin
  75947. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  75948. end;
  75949. procedure TCAN1_C1FIFOCON2.setTXABAT; inline;
  75950. begin
  75951. pTDefRegMap(@Self)^.&set := $00000040;
  75952. end;
  75953. procedure TCAN1_C1FIFOCON2.clearTXABAT; inline;
  75954. begin
  75955. pTDefRegMap(@Self)^.clr := $00000040;
  75956. end;
  75957. procedure TCAN1_C1FIFOCON2.setTXABAT(thebits : TBits_1); inline;
  75958. begin
  75959. if thebits = 0 then
  75960. pTDefRegMap(@Self)^.clr := $00000040
  75961. else
  75962. pTDefRegMap(@Self)^.&set := $00000040;
  75963. end;
  75964. function TCAN1_C1FIFOCON2.getTXABAT : TBits_1; inline;
  75965. begin
  75966. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  75967. end;
  75968. procedure TCAN1_C1FIFOCON2.setTXEN; inline;
  75969. begin
  75970. pTDefRegMap(@Self)^.&set := $00000080;
  75971. end;
  75972. procedure TCAN1_C1FIFOCON2.clearTXEN; inline;
  75973. begin
  75974. pTDefRegMap(@Self)^.clr := $00000080;
  75975. end;
  75976. procedure TCAN1_C1FIFOCON2.setTXEN(thebits : TBits_1); inline;
  75977. begin
  75978. if thebits = 0 then
  75979. pTDefRegMap(@Self)^.clr := $00000080
  75980. else
  75981. pTDefRegMap(@Self)^.&set := $00000080;
  75982. end;
  75983. function TCAN1_C1FIFOCON2.getTXEN : TBits_1; inline;
  75984. begin
  75985. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  75986. end;
  75987. procedure TCAN1_C1FIFOCON2.setDONLY; inline;
  75988. begin
  75989. pTDefRegMap(@Self)^.&set := $00001000;
  75990. end;
  75991. procedure TCAN1_C1FIFOCON2.clearDONLY; inline;
  75992. begin
  75993. pTDefRegMap(@Self)^.clr := $00001000;
  75994. end;
  75995. procedure TCAN1_C1FIFOCON2.setDONLY(thebits : TBits_1); inline;
  75996. begin
  75997. if thebits = 0 then
  75998. pTDefRegMap(@Self)^.clr := $00001000
  75999. else
  76000. pTDefRegMap(@Self)^.&set := $00001000;
  76001. end;
  76002. function TCAN1_C1FIFOCON2.getDONLY : TBits_1; inline;
  76003. begin
  76004. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  76005. end;
  76006. procedure TCAN1_C1FIFOCON2.setUINC; inline;
  76007. begin
  76008. pTDefRegMap(@Self)^.&set := $00002000;
  76009. end;
  76010. procedure TCAN1_C1FIFOCON2.clearUINC; inline;
  76011. begin
  76012. pTDefRegMap(@Self)^.clr := $00002000;
  76013. end;
  76014. procedure TCAN1_C1FIFOCON2.setUINC(thebits : TBits_1); inline;
  76015. begin
  76016. if thebits = 0 then
  76017. pTDefRegMap(@Self)^.clr := $00002000
  76018. else
  76019. pTDefRegMap(@Self)^.&set := $00002000;
  76020. end;
  76021. function TCAN1_C1FIFOCON2.getUINC : TBits_1; inline;
  76022. begin
  76023. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  76024. end;
  76025. procedure TCAN1_C1FIFOCON2.setFRESET; inline;
  76026. begin
  76027. pTDefRegMap(@Self)^.&set := $00004000;
  76028. end;
  76029. procedure TCAN1_C1FIFOCON2.clearFRESET; inline;
  76030. begin
  76031. pTDefRegMap(@Self)^.clr := $00004000;
  76032. end;
  76033. procedure TCAN1_C1FIFOCON2.setFRESET(thebits : TBits_1); inline;
  76034. begin
  76035. if thebits = 0 then
  76036. pTDefRegMap(@Self)^.clr := $00004000
  76037. else
  76038. pTDefRegMap(@Self)^.&set := $00004000;
  76039. end;
  76040. function TCAN1_C1FIFOCON2.getFRESET : TBits_1; inline;
  76041. begin
  76042. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  76043. end;
  76044. procedure TCAN1_C1FIFOCON2.setFSIZE(thebits : TBits_5); inline;
  76045. begin
  76046. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  76047. end;
  76048. function TCAN1_C1FIFOCON2.getFSIZE : TBits_5; inline;
  76049. begin
  76050. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  76051. end;
  76052. procedure TCAN1_C1FIFOCON2.setw(thebits : TBits_32); inline;
  76053. begin
  76054. pTDefRegMap(@Self)^.val := thebits;
  76055. end;
  76056. function TCAN1_C1FIFOCON2.getw : TBits_32; inline;
  76057. begin
  76058. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76059. end;
  76060. procedure TCAN1_C1FIFOINT2.setRXNEMPTYIF; inline;
  76061. begin
  76062. pTDefRegMap(@Self)^.&set := $00000001;
  76063. end;
  76064. procedure TCAN1_C1FIFOINT2.clearRXNEMPTYIF; inline;
  76065. begin
  76066. pTDefRegMap(@Self)^.clr := $00000001;
  76067. end;
  76068. procedure TCAN1_C1FIFOINT2.setRXNEMPTYIF(thebits : TBits_1); inline;
  76069. begin
  76070. if thebits = 0 then
  76071. pTDefRegMap(@Self)^.clr := $00000001
  76072. else
  76073. pTDefRegMap(@Self)^.&set := $00000001;
  76074. end;
  76075. function TCAN1_C1FIFOINT2.getRXNEMPTYIF : TBits_1; inline;
  76076. begin
  76077. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  76078. end;
  76079. procedure TCAN1_C1FIFOINT2.setRXHALFIF; inline;
  76080. begin
  76081. pTDefRegMap(@Self)^.&set := $00000002;
  76082. end;
  76083. procedure TCAN1_C1FIFOINT2.clearRXHALFIF; inline;
  76084. begin
  76085. pTDefRegMap(@Self)^.clr := $00000002;
  76086. end;
  76087. procedure TCAN1_C1FIFOINT2.setRXHALFIF(thebits : TBits_1); inline;
  76088. begin
  76089. if thebits = 0 then
  76090. pTDefRegMap(@Self)^.clr := $00000002
  76091. else
  76092. pTDefRegMap(@Self)^.&set := $00000002;
  76093. end;
  76094. function TCAN1_C1FIFOINT2.getRXHALFIF : TBits_1; inline;
  76095. begin
  76096. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  76097. end;
  76098. procedure TCAN1_C1FIFOINT2.setRXFULLIF; inline;
  76099. begin
  76100. pTDefRegMap(@Self)^.&set := $00000004;
  76101. end;
  76102. procedure TCAN1_C1FIFOINT2.clearRXFULLIF; inline;
  76103. begin
  76104. pTDefRegMap(@Self)^.clr := $00000004;
  76105. end;
  76106. procedure TCAN1_C1FIFOINT2.setRXFULLIF(thebits : TBits_1); inline;
  76107. begin
  76108. if thebits = 0 then
  76109. pTDefRegMap(@Self)^.clr := $00000004
  76110. else
  76111. pTDefRegMap(@Self)^.&set := $00000004;
  76112. end;
  76113. function TCAN1_C1FIFOINT2.getRXFULLIF : TBits_1; inline;
  76114. begin
  76115. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  76116. end;
  76117. procedure TCAN1_C1FIFOINT2.setRXOVFLIF; inline;
  76118. begin
  76119. pTDefRegMap(@Self)^.&set := $00000008;
  76120. end;
  76121. procedure TCAN1_C1FIFOINT2.clearRXOVFLIF; inline;
  76122. begin
  76123. pTDefRegMap(@Self)^.clr := $00000008;
  76124. end;
  76125. procedure TCAN1_C1FIFOINT2.setRXOVFLIF(thebits : TBits_1); inline;
  76126. begin
  76127. if thebits = 0 then
  76128. pTDefRegMap(@Self)^.clr := $00000008
  76129. else
  76130. pTDefRegMap(@Self)^.&set := $00000008;
  76131. end;
  76132. function TCAN1_C1FIFOINT2.getRXOVFLIF : TBits_1; inline;
  76133. begin
  76134. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  76135. end;
  76136. procedure TCAN1_C1FIFOINT2.setTXEMPTYIF; inline;
  76137. begin
  76138. pTDefRegMap(@Self)^.&set := $00000100;
  76139. end;
  76140. procedure TCAN1_C1FIFOINT2.clearTXEMPTYIF; inline;
  76141. begin
  76142. pTDefRegMap(@Self)^.clr := $00000100;
  76143. end;
  76144. procedure TCAN1_C1FIFOINT2.setTXEMPTYIF(thebits : TBits_1); inline;
  76145. begin
  76146. if thebits = 0 then
  76147. pTDefRegMap(@Self)^.clr := $00000100
  76148. else
  76149. pTDefRegMap(@Self)^.&set := $00000100;
  76150. end;
  76151. function TCAN1_C1FIFOINT2.getTXEMPTYIF : TBits_1; inline;
  76152. begin
  76153. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  76154. end;
  76155. procedure TCAN1_C1FIFOINT2.setTXHALFIF; inline;
  76156. begin
  76157. pTDefRegMap(@Self)^.&set := $00000200;
  76158. end;
  76159. procedure TCAN1_C1FIFOINT2.clearTXHALFIF; inline;
  76160. begin
  76161. pTDefRegMap(@Self)^.clr := $00000200;
  76162. end;
  76163. procedure TCAN1_C1FIFOINT2.setTXHALFIF(thebits : TBits_1); inline;
  76164. begin
  76165. if thebits = 0 then
  76166. pTDefRegMap(@Self)^.clr := $00000200
  76167. else
  76168. pTDefRegMap(@Self)^.&set := $00000200;
  76169. end;
  76170. function TCAN1_C1FIFOINT2.getTXHALFIF : TBits_1; inline;
  76171. begin
  76172. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  76173. end;
  76174. procedure TCAN1_C1FIFOINT2.setTXNFULLIF; inline;
  76175. begin
  76176. pTDefRegMap(@Self)^.&set := $00000400;
  76177. end;
  76178. procedure TCAN1_C1FIFOINT2.clearTXNFULLIF; inline;
  76179. begin
  76180. pTDefRegMap(@Self)^.clr := $00000400;
  76181. end;
  76182. procedure TCAN1_C1FIFOINT2.setTXNFULLIF(thebits : TBits_1); inline;
  76183. begin
  76184. if thebits = 0 then
  76185. pTDefRegMap(@Self)^.clr := $00000400
  76186. else
  76187. pTDefRegMap(@Self)^.&set := $00000400;
  76188. end;
  76189. function TCAN1_C1FIFOINT2.getTXNFULLIF : TBits_1; inline;
  76190. begin
  76191. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  76192. end;
  76193. procedure TCAN1_C1FIFOINT2.setRXNEMPTYIE; inline;
  76194. begin
  76195. pTDefRegMap(@Self)^.&set := $00010000;
  76196. end;
  76197. procedure TCAN1_C1FIFOINT2.clearRXNEMPTYIE; inline;
  76198. begin
  76199. pTDefRegMap(@Self)^.clr := $00010000;
  76200. end;
  76201. procedure TCAN1_C1FIFOINT2.setRXNEMPTYIE(thebits : TBits_1); inline;
  76202. begin
  76203. if thebits = 0 then
  76204. pTDefRegMap(@Self)^.clr := $00010000
  76205. else
  76206. pTDefRegMap(@Self)^.&set := $00010000;
  76207. end;
  76208. function TCAN1_C1FIFOINT2.getRXNEMPTYIE : TBits_1; inline;
  76209. begin
  76210. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  76211. end;
  76212. procedure TCAN1_C1FIFOINT2.setRXHALFIE; inline;
  76213. begin
  76214. pTDefRegMap(@Self)^.&set := $00020000;
  76215. end;
  76216. procedure TCAN1_C1FIFOINT2.clearRXHALFIE; inline;
  76217. begin
  76218. pTDefRegMap(@Self)^.clr := $00020000;
  76219. end;
  76220. procedure TCAN1_C1FIFOINT2.setRXHALFIE(thebits : TBits_1); inline;
  76221. begin
  76222. if thebits = 0 then
  76223. pTDefRegMap(@Self)^.clr := $00020000
  76224. else
  76225. pTDefRegMap(@Self)^.&set := $00020000;
  76226. end;
  76227. function TCAN1_C1FIFOINT2.getRXHALFIE : TBits_1; inline;
  76228. begin
  76229. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  76230. end;
  76231. procedure TCAN1_C1FIFOINT2.setRXFULLIE; inline;
  76232. begin
  76233. pTDefRegMap(@Self)^.&set := $00040000;
  76234. end;
  76235. procedure TCAN1_C1FIFOINT2.clearRXFULLIE; inline;
  76236. begin
  76237. pTDefRegMap(@Self)^.clr := $00040000;
  76238. end;
  76239. procedure TCAN1_C1FIFOINT2.setRXFULLIE(thebits : TBits_1); inline;
  76240. begin
  76241. if thebits = 0 then
  76242. pTDefRegMap(@Self)^.clr := $00040000
  76243. else
  76244. pTDefRegMap(@Self)^.&set := $00040000;
  76245. end;
  76246. function TCAN1_C1FIFOINT2.getRXFULLIE : TBits_1; inline;
  76247. begin
  76248. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  76249. end;
  76250. procedure TCAN1_C1FIFOINT2.setRXOVFLIE; inline;
  76251. begin
  76252. pTDefRegMap(@Self)^.&set := $00080000;
  76253. end;
  76254. procedure TCAN1_C1FIFOINT2.clearRXOVFLIE; inline;
  76255. begin
  76256. pTDefRegMap(@Self)^.clr := $00080000;
  76257. end;
  76258. procedure TCAN1_C1FIFOINT2.setRXOVFLIE(thebits : TBits_1); inline;
  76259. begin
  76260. if thebits = 0 then
  76261. pTDefRegMap(@Self)^.clr := $00080000
  76262. else
  76263. pTDefRegMap(@Self)^.&set := $00080000;
  76264. end;
  76265. function TCAN1_C1FIFOINT2.getRXOVFLIE : TBits_1; inline;
  76266. begin
  76267. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  76268. end;
  76269. procedure TCAN1_C1FIFOINT2.setTXEMPTYIE; inline;
  76270. begin
  76271. pTDefRegMap(@Self)^.&set := $01000000;
  76272. end;
  76273. procedure TCAN1_C1FIFOINT2.clearTXEMPTYIE; inline;
  76274. begin
  76275. pTDefRegMap(@Self)^.clr := $01000000;
  76276. end;
  76277. procedure TCAN1_C1FIFOINT2.setTXEMPTYIE(thebits : TBits_1); inline;
  76278. begin
  76279. if thebits = 0 then
  76280. pTDefRegMap(@Self)^.clr := $01000000
  76281. else
  76282. pTDefRegMap(@Self)^.&set := $01000000;
  76283. end;
  76284. function TCAN1_C1FIFOINT2.getTXEMPTYIE : TBits_1; inline;
  76285. begin
  76286. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  76287. end;
  76288. procedure TCAN1_C1FIFOINT2.setTXHALFIE; inline;
  76289. begin
  76290. pTDefRegMap(@Self)^.&set := $02000000;
  76291. end;
  76292. procedure TCAN1_C1FIFOINT2.clearTXHALFIE; inline;
  76293. begin
  76294. pTDefRegMap(@Self)^.clr := $02000000;
  76295. end;
  76296. procedure TCAN1_C1FIFOINT2.setTXHALFIE(thebits : TBits_1); inline;
  76297. begin
  76298. if thebits = 0 then
  76299. pTDefRegMap(@Self)^.clr := $02000000
  76300. else
  76301. pTDefRegMap(@Self)^.&set := $02000000;
  76302. end;
  76303. function TCAN1_C1FIFOINT2.getTXHALFIE : TBits_1; inline;
  76304. begin
  76305. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  76306. end;
  76307. procedure TCAN1_C1FIFOINT2.setTXNFULLIE; inline;
  76308. begin
  76309. pTDefRegMap(@Self)^.&set := $04000000;
  76310. end;
  76311. procedure TCAN1_C1FIFOINT2.clearTXNFULLIE; inline;
  76312. begin
  76313. pTDefRegMap(@Self)^.clr := $04000000;
  76314. end;
  76315. procedure TCAN1_C1FIFOINT2.setTXNFULLIE(thebits : TBits_1); inline;
  76316. begin
  76317. if thebits = 0 then
  76318. pTDefRegMap(@Self)^.clr := $04000000
  76319. else
  76320. pTDefRegMap(@Self)^.&set := $04000000;
  76321. end;
  76322. function TCAN1_C1FIFOINT2.getTXNFULLIE : TBits_1; inline;
  76323. begin
  76324. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  76325. end;
  76326. procedure TCAN1_C1FIFOINT2.setw(thebits : TBits_32); inline;
  76327. begin
  76328. pTDefRegMap(@Self)^.val := thebits;
  76329. end;
  76330. function TCAN1_C1FIFOINT2.getw : TBits_32; inline;
  76331. begin
  76332. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76333. end;
  76334. procedure TCAN1_C1FIFOCI2.setCFIFOCI(thebits : TBits_5); inline;
  76335. begin
  76336. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  76337. end;
  76338. function TCAN1_C1FIFOCI2.getCFIFOCI : TBits_5; inline;
  76339. begin
  76340. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  76341. end;
  76342. procedure TCAN1_C1FIFOCI2.setw(thebits : TBits_32); inline;
  76343. begin
  76344. pTDefRegMap(@Self)^.val := thebits;
  76345. end;
  76346. function TCAN1_C1FIFOCI2.getw : TBits_32; inline;
  76347. begin
  76348. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76349. end;
  76350. procedure TCAN1_C1FIFOCON3.setTXPRI(thebits : TBits_2); inline;
  76351. begin
  76352. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  76353. end;
  76354. function TCAN1_C1FIFOCON3.getTXPRI : TBits_2; inline;
  76355. begin
  76356. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  76357. end;
  76358. procedure TCAN1_C1FIFOCON3.setRTREN; inline;
  76359. begin
  76360. pTDefRegMap(@Self)^.&set := $00000004;
  76361. end;
  76362. procedure TCAN1_C1FIFOCON3.clearRTREN; inline;
  76363. begin
  76364. pTDefRegMap(@Self)^.clr := $00000004;
  76365. end;
  76366. procedure TCAN1_C1FIFOCON3.setRTREN(thebits : TBits_1); inline;
  76367. begin
  76368. if thebits = 0 then
  76369. pTDefRegMap(@Self)^.clr := $00000004
  76370. else
  76371. pTDefRegMap(@Self)^.&set := $00000004;
  76372. end;
  76373. function TCAN1_C1FIFOCON3.getRTREN : TBits_1; inline;
  76374. begin
  76375. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  76376. end;
  76377. procedure TCAN1_C1FIFOCON3.setTXREQ; inline;
  76378. begin
  76379. pTDefRegMap(@Self)^.&set := $00000008;
  76380. end;
  76381. procedure TCAN1_C1FIFOCON3.clearTXREQ; inline;
  76382. begin
  76383. pTDefRegMap(@Self)^.clr := $00000008;
  76384. end;
  76385. procedure TCAN1_C1FIFOCON3.setTXREQ(thebits : TBits_1); inline;
  76386. begin
  76387. if thebits = 0 then
  76388. pTDefRegMap(@Self)^.clr := $00000008
  76389. else
  76390. pTDefRegMap(@Self)^.&set := $00000008;
  76391. end;
  76392. function TCAN1_C1FIFOCON3.getTXREQ : TBits_1; inline;
  76393. begin
  76394. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  76395. end;
  76396. procedure TCAN1_C1FIFOCON3.setTXERR; inline;
  76397. begin
  76398. pTDefRegMap(@Self)^.&set := $00000010;
  76399. end;
  76400. procedure TCAN1_C1FIFOCON3.clearTXERR; inline;
  76401. begin
  76402. pTDefRegMap(@Self)^.clr := $00000010;
  76403. end;
  76404. procedure TCAN1_C1FIFOCON3.setTXERR(thebits : TBits_1); inline;
  76405. begin
  76406. if thebits = 0 then
  76407. pTDefRegMap(@Self)^.clr := $00000010
  76408. else
  76409. pTDefRegMap(@Self)^.&set := $00000010;
  76410. end;
  76411. function TCAN1_C1FIFOCON3.getTXERR : TBits_1; inline;
  76412. begin
  76413. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  76414. end;
  76415. procedure TCAN1_C1FIFOCON3.setTXLARB; inline;
  76416. begin
  76417. pTDefRegMap(@Self)^.&set := $00000020;
  76418. end;
  76419. procedure TCAN1_C1FIFOCON3.clearTXLARB; inline;
  76420. begin
  76421. pTDefRegMap(@Self)^.clr := $00000020;
  76422. end;
  76423. procedure TCAN1_C1FIFOCON3.setTXLARB(thebits : TBits_1); inline;
  76424. begin
  76425. if thebits = 0 then
  76426. pTDefRegMap(@Self)^.clr := $00000020
  76427. else
  76428. pTDefRegMap(@Self)^.&set := $00000020;
  76429. end;
  76430. function TCAN1_C1FIFOCON3.getTXLARB : TBits_1; inline;
  76431. begin
  76432. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  76433. end;
  76434. procedure TCAN1_C1FIFOCON3.setTXABAT; inline;
  76435. begin
  76436. pTDefRegMap(@Self)^.&set := $00000040;
  76437. end;
  76438. procedure TCAN1_C1FIFOCON3.clearTXABAT; inline;
  76439. begin
  76440. pTDefRegMap(@Self)^.clr := $00000040;
  76441. end;
  76442. procedure TCAN1_C1FIFOCON3.setTXABAT(thebits : TBits_1); inline;
  76443. begin
  76444. if thebits = 0 then
  76445. pTDefRegMap(@Self)^.clr := $00000040
  76446. else
  76447. pTDefRegMap(@Self)^.&set := $00000040;
  76448. end;
  76449. function TCAN1_C1FIFOCON3.getTXABAT : TBits_1; inline;
  76450. begin
  76451. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  76452. end;
  76453. procedure TCAN1_C1FIFOCON3.setTXEN; inline;
  76454. begin
  76455. pTDefRegMap(@Self)^.&set := $00000080;
  76456. end;
  76457. procedure TCAN1_C1FIFOCON3.clearTXEN; inline;
  76458. begin
  76459. pTDefRegMap(@Self)^.clr := $00000080;
  76460. end;
  76461. procedure TCAN1_C1FIFOCON3.setTXEN(thebits : TBits_1); inline;
  76462. begin
  76463. if thebits = 0 then
  76464. pTDefRegMap(@Self)^.clr := $00000080
  76465. else
  76466. pTDefRegMap(@Self)^.&set := $00000080;
  76467. end;
  76468. function TCAN1_C1FIFOCON3.getTXEN : TBits_1; inline;
  76469. begin
  76470. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  76471. end;
  76472. procedure TCAN1_C1FIFOCON3.setDONLY; inline;
  76473. begin
  76474. pTDefRegMap(@Self)^.&set := $00001000;
  76475. end;
  76476. procedure TCAN1_C1FIFOCON3.clearDONLY; inline;
  76477. begin
  76478. pTDefRegMap(@Self)^.clr := $00001000;
  76479. end;
  76480. procedure TCAN1_C1FIFOCON3.setDONLY(thebits : TBits_1); inline;
  76481. begin
  76482. if thebits = 0 then
  76483. pTDefRegMap(@Self)^.clr := $00001000
  76484. else
  76485. pTDefRegMap(@Self)^.&set := $00001000;
  76486. end;
  76487. function TCAN1_C1FIFOCON3.getDONLY : TBits_1; inline;
  76488. begin
  76489. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  76490. end;
  76491. procedure TCAN1_C1FIFOCON3.setUINC; inline;
  76492. begin
  76493. pTDefRegMap(@Self)^.&set := $00002000;
  76494. end;
  76495. procedure TCAN1_C1FIFOCON3.clearUINC; inline;
  76496. begin
  76497. pTDefRegMap(@Self)^.clr := $00002000;
  76498. end;
  76499. procedure TCAN1_C1FIFOCON3.setUINC(thebits : TBits_1); inline;
  76500. begin
  76501. if thebits = 0 then
  76502. pTDefRegMap(@Self)^.clr := $00002000
  76503. else
  76504. pTDefRegMap(@Self)^.&set := $00002000;
  76505. end;
  76506. function TCAN1_C1FIFOCON3.getUINC : TBits_1; inline;
  76507. begin
  76508. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  76509. end;
  76510. procedure TCAN1_C1FIFOCON3.setFRESET; inline;
  76511. begin
  76512. pTDefRegMap(@Self)^.&set := $00004000;
  76513. end;
  76514. procedure TCAN1_C1FIFOCON3.clearFRESET; inline;
  76515. begin
  76516. pTDefRegMap(@Self)^.clr := $00004000;
  76517. end;
  76518. procedure TCAN1_C1FIFOCON3.setFRESET(thebits : TBits_1); inline;
  76519. begin
  76520. if thebits = 0 then
  76521. pTDefRegMap(@Self)^.clr := $00004000
  76522. else
  76523. pTDefRegMap(@Self)^.&set := $00004000;
  76524. end;
  76525. function TCAN1_C1FIFOCON3.getFRESET : TBits_1; inline;
  76526. begin
  76527. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  76528. end;
  76529. procedure TCAN1_C1FIFOCON3.setFSIZE(thebits : TBits_5); inline;
  76530. begin
  76531. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  76532. end;
  76533. function TCAN1_C1FIFOCON3.getFSIZE : TBits_5; inline;
  76534. begin
  76535. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  76536. end;
  76537. procedure TCAN1_C1FIFOCON3.setw(thebits : TBits_32); inline;
  76538. begin
  76539. pTDefRegMap(@Self)^.val := thebits;
  76540. end;
  76541. function TCAN1_C1FIFOCON3.getw : TBits_32; inline;
  76542. begin
  76543. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76544. end;
  76545. procedure TCAN1_C1FIFOINT3.setRXNEMPTYIF; inline;
  76546. begin
  76547. pTDefRegMap(@Self)^.&set := $00000001;
  76548. end;
  76549. procedure TCAN1_C1FIFOINT3.clearRXNEMPTYIF; inline;
  76550. begin
  76551. pTDefRegMap(@Self)^.clr := $00000001;
  76552. end;
  76553. procedure TCAN1_C1FIFOINT3.setRXNEMPTYIF(thebits : TBits_1); inline;
  76554. begin
  76555. if thebits = 0 then
  76556. pTDefRegMap(@Self)^.clr := $00000001
  76557. else
  76558. pTDefRegMap(@Self)^.&set := $00000001;
  76559. end;
  76560. function TCAN1_C1FIFOINT3.getRXNEMPTYIF : TBits_1; inline;
  76561. begin
  76562. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  76563. end;
  76564. procedure TCAN1_C1FIFOINT3.setRXHALFIF; inline;
  76565. begin
  76566. pTDefRegMap(@Self)^.&set := $00000002;
  76567. end;
  76568. procedure TCAN1_C1FIFOINT3.clearRXHALFIF; inline;
  76569. begin
  76570. pTDefRegMap(@Self)^.clr := $00000002;
  76571. end;
  76572. procedure TCAN1_C1FIFOINT3.setRXHALFIF(thebits : TBits_1); inline;
  76573. begin
  76574. if thebits = 0 then
  76575. pTDefRegMap(@Self)^.clr := $00000002
  76576. else
  76577. pTDefRegMap(@Self)^.&set := $00000002;
  76578. end;
  76579. function TCAN1_C1FIFOINT3.getRXHALFIF : TBits_1; inline;
  76580. begin
  76581. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  76582. end;
  76583. procedure TCAN1_C1FIFOINT3.setRXFULLIF; inline;
  76584. begin
  76585. pTDefRegMap(@Self)^.&set := $00000004;
  76586. end;
  76587. procedure TCAN1_C1FIFOINT3.clearRXFULLIF; inline;
  76588. begin
  76589. pTDefRegMap(@Self)^.clr := $00000004;
  76590. end;
  76591. procedure TCAN1_C1FIFOINT3.setRXFULLIF(thebits : TBits_1); inline;
  76592. begin
  76593. if thebits = 0 then
  76594. pTDefRegMap(@Self)^.clr := $00000004
  76595. else
  76596. pTDefRegMap(@Self)^.&set := $00000004;
  76597. end;
  76598. function TCAN1_C1FIFOINT3.getRXFULLIF : TBits_1; inline;
  76599. begin
  76600. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  76601. end;
  76602. procedure TCAN1_C1FIFOINT3.setRXOVFLIF; inline;
  76603. begin
  76604. pTDefRegMap(@Self)^.&set := $00000008;
  76605. end;
  76606. procedure TCAN1_C1FIFOINT3.clearRXOVFLIF; inline;
  76607. begin
  76608. pTDefRegMap(@Self)^.clr := $00000008;
  76609. end;
  76610. procedure TCAN1_C1FIFOINT3.setRXOVFLIF(thebits : TBits_1); inline;
  76611. begin
  76612. if thebits = 0 then
  76613. pTDefRegMap(@Self)^.clr := $00000008
  76614. else
  76615. pTDefRegMap(@Self)^.&set := $00000008;
  76616. end;
  76617. function TCAN1_C1FIFOINT3.getRXOVFLIF : TBits_1; inline;
  76618. begin
  76619. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  76620. end;
  76621. procedure TCAN1_C1FIFOINT3.setTXEMPTYIF; inline;
  76622. begin
  76623. pTDefRegMap(@Self)^.&set := $00000100;
  76624. end;
  76625. procedure TCAN1_C1FIFOINT3.clearTXEMPTYIF; inline;
  76626. begin
  76627. pTDefRegMap(@Self)^.clr := $00000100;
  76628. end;
  76629. procedure TCAN1_C1FIFOINT3.setTXEMPTYIF(thebits : TBits_1); inline;
  76630. begin
  76631. if thebits = 0 then
  76632. pTDefRegMap(@Self)^.clr := $00000100
  76633. else
  76634. pTDefRegMap(@Self)^.&set := $00000100;
  76635. end;
  76636. function TCAN1_C1FIFOINT3.getTXEMPTYIF : TBits_1; inline;
  76637. begin
  76638. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  76639. end;
  76640. procedure TCAN1_C1FIFOINT3.setTXHALFIF; inline;
  76641. begin
  76642. pTDefRegMap(@Self)^.&set := $00000200;
  76643. end;
  76644. procedure TCAN1_C1FIFOINT3.clearTXHALFIF; inline;
  76645. begin
  76646. pTDefRegMap(@Self)^.clr := $00000200;
  76647. end;
  76648. procedure TCAN1_C1FIFOINT3.setTXHALFIF(thebits : TBits_1); inline;
  76649. begin
  76650. if thebits = 0 then
  76651. pTDefRegMap(@Self)^.clr := $00000200
  76652. else
  76653. pTDefRegMap(@Self)^.&set := $00000200;
  76654. end;
  76655. function TCAN1_C1FIFOINT3.getTXHALFIF : TBits_1; inline;
  76656. begin
  76657. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  76658. end;
  76659. procedure TCAN1_C1FIFOINT3.setTXNFULLIF; inline;
  76660. begin
  76661. pTDefRegMap(@Self)^.&set := $00000400;
  76662. end;
  76663. procedure TCAN1_C1FIFOINT3.clearTXNFULLIF; inline;
  76664. begin
  76665. pTDefRegMap(@Self)^.clr := $00000400;
  76666. end;
  76667. procedure TCAN1_C1FIFOINT3.setTXNFULLIF(thebits : TBits_1); inline;
  76668. begin
  76669. if thebits = 0 then
  76670. pTDefRegMap(@Self)^.clr := $00000400
  76671. else
  76672. pTDefRegMap(@Self)^.&set := $00000400;
  76673. end;
  76674. function TCAN1_C1FIFOINT3.getTXNFULLIF : TBits_1; inline;
  76675. begin
  76676. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  76677. end;
  76678. procedure TCAN1_C1FIFOINT3.setRXNEMPTYIE; inline;
  76679. begin
  76680. pTDefRegMap(@Self)^.&set := $00010000;
  76681. end;
  76682. procedure TCAN1_C1FIFOINT3.clearRXNEMPTYIE; inline;
  76683. begin
  76684. pTDefRegMap(@Self)^.clr := $00010000;
  76685. end;
  76686. procedure TCAN1_C1FIFOINT3.setRXNEMPTYIE(thebits : TBits_1); inline;
  76687. begin
  76688. if thebits = 0 then
  76689. pTDefRegMap(@Self)^.clr := $00010000
  76690. else
  76691. pTDefRegMap(@Self)^.&set := $00010000;
  76692. end;
  76693. function TCAN1_C1FIFOINT3.getRXNEMPTYIE : TBits_1; inline;
  76694. begin
  76695. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  76696. end;
  76697. procedure TCAN1_C1FIFOINT3.setRXHALFIE; inline;
  76698. begin
  76699. pTDefRegMap(@Self)^.&set := $00020000;
  76700. end;
  76701. procedure TCAN1_C1FIFOINT3.clearRXHALFIE; inline;
  76702. begin
  76703. pTDefRegMap(@Self)^.clr := $00020000;
  76704. end;
  76705. procedure TCAN1_C1FIFOINT3.setRXHALFIE(thebits : TBits_1); inline;
  76706. begin
  76707. if thebits = 0 then
  76708. pTDefRegMap(@Self)^.clr := $00020000
  76709. else
  76710. pTDefRegMap(@Self)^.&set := $00020000;
  76711. end;
  76712. function TCAN1_C1FIFOINT3.getRXHALFIE : TBits_1; inline;
  76713. begin
  76714. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  76715. end;
  76716. procedure TCAN1_C1FIFOINT3.setRXFULLIE; inline;
  76717. begin
  76718. pTDefRegMap(@Self)^.&set := $00040000;
  76719. end;
  76720. procedure TCAN1_C1FIFOINT3.clearRXFULLIE; inline;
  76721. begin
  76722. pTDefRegMap(@Self)^.clr := $00040000;
  76723. end;
  76724. procedure TCAN1_C1FIFOINT3.setRXFULLIE(thebits : TBits_1); inline;
  76725. begin
  76726. if thebits = 0 then
  76727. pTDefRegMap(@Self)^.clr := $00040000
  76728. else
  76729. pTDefRegMap(@Self)^.&set := $00040000;
  76730. end;
  76731. function TCAN1_C1FIFOINT3.getRXFULLIE : TBits_1; inline;
  76732. begin
  76733. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  76734. end;
  76735. procedure TCAN1_C1FIFOINT3.setRXOVFLIE; inline;
  76736. begin
  76737. pTDefRegMap(@Self)^.&set := $00080000;
  76738. end;
  76739. procedure TCAN1_C1FIFOINT3.clearRXOVFLIE; inline;
  76740. begin
  76741. pTDefRegMap(@Self)^.clr := $00080000;
  76742. end;
  76743. procedure TCAN1_C1FIFOINT3.setRXOVFLIE(thebits : TBits_1); inline;
  76744. begin
  76745. if thebits = 0 then
  76746. pTDefRegMap(@Self)^.clr := $00080000
  76747. else
  76748. pTDefRegMap(@Self)^.&set := $00080000;
  76749. end;
  76750. function TCAN1_C1FIFOINT3.getRXOVFLIE : TBits_1; inline;
  76751. begin
  76752. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  76753. end;
  76754. procedure TCAN1_C1FIFOINT3.setTXEMPTYIE; inline;
  76755. begin
  76756. pTDefRegMap(@Self)^.&set := $01000000;
  76757. end;
  76758. procedure TCAN1_C1FIFOINT3.clearTXEMPTYIE; inline;
  76759. begin
  76760. pTDefRegMap(@Self)^.clr := $01000000;
  76761. end;
  76762. procedure TCAN1_C1FIFOINT3.setTXEMPTYIE(thebits : TBits_1); inline;
  76763. begin
  76764. if thebits = 0 then
  76765. pTDefRegMap(@Self)^.clr := $01000000
  76766. else
  76767. pTDefRegMap(@Self)^.&set := $01000000;
  76768. end;
  76769. function TCAN1_C1FIFOINT3.getTXEMPTYIE : TBits_1; inline;
  76770. begin
  76771. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  76772. end;
  76773. procedure TCAN1_C1FIFOINT3.setTXHALFIE; inline;
  76774. begin
  76775. pTDefRegMap(@Self)^.&set := $02000000;
  76776. end;
  76777. procedure TCAN1_C1FIFOINT3.clearTXHALFIE; inline;
  76778. begin
  76779. pTDefRegMap(@Self)^.clr := $02000000;
  76780. end;
  76781. procedure TCAN1_C1FIFOINT3.setTXHALFIE(thebits : TBits_1); inline;
  76782. begin
  76783. if thebits = 0 then
  76784. pTDefRegMap(@Self)^.clr := $02000000
  76785. else
  76786. pTDefRegMap(@Self)^.&set := $02000000;
  76787. end;
  76788. function TCAN1_C1FIFOINT3.getTXHALFIE : TBits_1; inline;
  76789. begin
  76790. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  76791. end;
  76792. procedure TCAN1_C1FIFOINT3.setTXNFULLIE; inline;
  76793. begin
  76794. pTDefRegMap(@Self)^.&set := $04000000;
  76795. end;
  76796. procedure TCAN1_C1FIFOINT3.clearTXNFULLIE; inline;
  76797. begin
  76798. pTDefRegMap(@Self)^.clr := $04000000;
  76799. end;
  76800. procedure TCAN1_C1FIFOINT3.setTXNFULLIE(thebits : TBits_1); inline;
  76801. begin
  76802. if thebits = 0 then
  76803. pTDefRegMap(@Self)^.clr := $04000000
  76804. else
  76805. pTDefRegMap(@Self)^.&set := $04000000;
  76806. end;
  76807. function TCAN1_C1FIFOINT3.getTXNFULLIE : TBits_1; inline;
  76808. begin
  76809. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  76810. end;
  76811. procedure TCAN1_C1FIFOINT3.setw(thebits : TBits_32); inline;
  76812. begin
  76813. pTDefRegMap(@Self)^.val := thebits;
  76814. end;
  76815. function TCAN1_C1FIFOINT3.getw : TBits_32; inline;
  76816. begin
  76817. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76818. end;
  76819. procedure TCAN1_C1FIFOCI3.setCFIFOCI(thebits : TBits_5); inline;
  76820. begin
  76821. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  76822. end;
  76823. function TCAN1_C1FIFOCI3.getCFIFOCI : TBits_5; inline;
  76824. begin
  76825. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  76826. end;
  76827. procedure TCAN1_C1FIFOCI3.setw(thebits : TBits_32); inline;
  76828. begin
  76829. pTDefRegMap(@Self)^.val := thebits;
  76830. end;
  76831. function TCAN1_C1FIFOCI3.getw : TBits_32; inline;
  76832. begin
  76833. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76834. end;
  76835. procedure TCAN1_C1FIFOCON4.setTXPRI(thebits : TBits_2); inline;
  76836. begin
  76837. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  76838. end;
  76839. function TCAN1_C1FIFOCON4.getTXPRI : TBits_2; inline;
  76840. begin
  76841. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  76842. end;
  76843. procedure TCAN1_C1FIFOCON4.setRTREN; inline;
  76844. begin
  76845. pTDefRegMap(@Self)^.&set := $00000004;
  76846. end;
  76847. procedure TCAN1_C1FIFOCON4.clearRTREN; inline;
  76848. begin
  76849. pTDefRegMap(@Self)^.clr := $00000004;
  76850. end;
  76851. procedure TCAN1_C1FIFOCON4.setRTREN(thebits : TBits_1); inline;
  76852. begin
  76853. if thebits = 0 then
  76854. pTDefRegMap(@Self)^.clr := $00000004
  76855. else
  76856. pTDefRegMap(@Self)^.&set := $00000004;
  76857. end;
  76858. function TCAN1_C1FIFOCON4.getRTREN : TBits_1; inline;
  76859. begin
  76860. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  76861. end;
  76862. procedure TCAN1_C1FIFOCON4.setTXREQ; inline;
  76863. begin
  76864. pTDefRegMap(@Self)^.&set := $00000008;
  76865. end;
  76866. procedure TCAN1_C1FIFOCON4.clearTXREQ; inline;
  76867. begin
  76868. pTDefRegMap(@Self)^.clr := $00000008;
  76869. end;
  76870. procedure TCAN1_C1FIFOCON4.setTXREQ(thebits : TBits_1); inline;
  76871. begin
  76872. if thebits = 0 then
  76873. pTDefRegMap(@Self)^.clr := $00000008
  76874. else
  76875. pTDefRegMap(@Self)^.&set := $00000008;
  76876. end;
  76877. function TCAN1_C1FIFOCON4.getTXREQ : TBits_1; inline;
  76878. begin
  76879. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  76880. end;
  76881. procedure TCAN1_C1FIFOCON4.setTXERR; inline;
  76882. begin
  76883. pTDefRegMap(@Self)^.&set := $00000010;
  76884. end;
  76885. procedure TCAN1_C1FIFOCON4.clearTXERR; inline;
  76886. begin
  76887. pTDefRegMap(@Self)^.clr := $00000010;
  76888. end;
  76889. procedure TCAN1_C1FIFOCON4.setTXERR(thebits : TBits_1); inline;
  76890. begin
  76891. if thebits = 0 then
  76892. pTDefRegMap(@Self)^.clr := $00000010
  76893. else
  76894. pTDefRegMap(@Self)^.&set := $00000010;
  76895. end;
  76896. function TCAN1_C1FIFOCON4.getTXERR : TBits_1; inline;
  76897. begin
  76898. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  76899. end;
  76900. procedure TCAN1_C1FIFOCON4.setTXLARB; inline;
  76901. begin
  76902. pTDefRegMap(@Self)^.&set := $00000020;
  76903. end;
  76904. procedure TCAN1_C1FIFOCON4.clearTXLARB; inline;
  76905. begin
  76906. pTDefRegMap(@Self)^.clr := $00000020;
  76907. end;
  76908. procedure TCAN1_C1FIFOCON4.setTXLARB(thebits : TBits_1); inline;
  76909. begin
  76910. if thebits = 0 then
  76911. pTDefRegMap(@Self)^.clr := $00000020
  76912. else
  76913. pTDefRegMap(@Self)^.&set := $00000020;
  76914. end;
  76915. function TCAN1_C1FIFOCON4.getTXLARB : TBits_1; inline;
  76916. begin
  76917. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  76918. end;
  76919. procedure TCAN1_C1FIFOCON4.setTXABAT; inline;
  76920. begin
  76921. pTDefRegMap(@Self)^.&set := $00000040;
  76922. end;
  76923. procedure TCAN1_C1FIFOCON4.clearTXABAT; inline;
  76924. begin
  76925. pTDefRegMap(@Self)^.clr := $00000040;
  76926. end;
  76927. procedure TCAN1_C1FIFOCON4.setTXABAT(thebits : TBits_1); inline;
  76928. begin
  76929. if thebits = 0 then
  76930. pTDefRegMap(@Self)^.clr := $00000040
  76931. else
  76932. pTDefRegMap(@Self)^.&set := $00000040;
  76933. end;
  76934. function TCAN1_C1FIFOCON4.getTXABAT : TBits_1; inline;
  76935. begin
  76936. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  76937. end;
  76938. procedure TCAN1_C1FIFOCON4.setTXEN; inline;
  76939. begin
  76940. pTDefRegMap(@Self)^.&set := $00000080;
  76941. end;
  76942. procedure TCAN1_C1FIFOCON4.clearTXEN; inline;
  76943. begin
  76944. pTDefRegMap(@Self)^.clr := $00000080;
  76945. end;
  76946. procedure TCAN1_C1FIFOCON4.setTXEN(thebits : TBits_1); inline;
  76947. begin
  76948. if thebits = 0 then
  76949. pTDefRegMap(@Self)^.clr := $00000080
  76950. else
  76951. pTDefRegMap(@Self)^.&set := $00000080;
  76952. end;
  76953. function TCAN1_C1FIFOCON4.getTXEN : TBits_1; inline;
  76954. begin
  76955. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  76956. end;
  76957. procedure TCAN1_C1FIFOCON4.setDONLY; inline;
  76958. begin
  76959. pTDefRegMap(@Self)^.&set := $00001000;
  76960. end;
  76961. procedure TCAN1_C1FIFOCON4.clearDONLY; inline;
  76962. begin
  76963. pTDefRegMap(@Self)^.clr := $00001000;
  76964. end;
  76965. procedure TCAN1_C1FIFOCON4.setDONLY(thebits : TBits_1); inline;
  76966. begin
  76967. if thebits = 0 then
  76968. pTDefRegMap(@Self)^.clr := $00001000
  76969. else
  76970. pTDefRegMap(@Self)^.&set := $00001000;
  76971. end;
  76972. function TCAN1_C1FIFOCON4.getDONLY : TBits_1; inline;
  76973. begin
  76974. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  76975. end;
  76976. procedure TCAN1_C1FIFOCON4.setUINC; inline;
  76977. begin
  76978. pTDefRegMap(@Self)^.&set := $00002000;
  76979. end;
  76980. procedure TCAN1_C1FIFOCON4.clearUINC; inline;
  76981. begin
  76982. pTDefRegMap(@Self)^.clr := $00002000;
  76983. end;
  76984. procedure TCAN1_C1FIFOCON4.setUINC(thebits : TBits_1); inline;
  76985. begin
  76986. if thebits = 0 then
  76987. pTDefRegMap(@Self)^.clr := $00002000
  76988. else
  76989. pTDefRegMap(@Self)^.&set := $00002000;
  76990. end;
  76991. function TCAN1_C1FIFOCON4.getUINC : TBits_1; inline;
  76992. begin
  76993. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  76994. end;
  76995. procedure TCAN1_C1FIFOCON4.setFRESET; inline;
  76996. begin
  76997. pTDefRegMap(@Self)^.&set := $00004000;
  76998. end;
  76999. procedure TCAN1_C1FIFOCON4.clearFRESET; inline;
  77000. begin
  77001. pTDefRegMap(@Self)^.clr := $00004000;
  77002. end;
  77003. procedure TCAN1_C1FIFOCON4.setFRESET(thebits : TBits_1); inline;
  77004. begin
  77005. if thebits = 0 then
  77006. pTDefRegMap(@Self)^.clr := $00004000
  77007. else
  77008. pTDefRegMap(@Self)^.&set := $00004000;
  77009. end;
  77010. function TCAN1_C1FIFOCON4.getFRESET : TBits_1; inline;
  77011. begin
  77012. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  77013. end;
  77014. procedure TCAN1_C1FIFOCON4.setFSIZE(thebits : TBits_5); inline;
  77015. begin
  77016. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  77017. end;
  77018. function TCAN1_C1FIFOCON4.getFSIZE : TBits_5; inline;
  77019. begin
  77020. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  77021. end;
  77022. procedure TCAN1_C1FIFOCON4.setw(thebits : TBits_32); inline;
  77023. begin
  77024. pTDefRegMap(@Self)^.val := thebits;
  77025. end;
  77026. function TCAN1_C1FIFOCON4.getw : TBits_32; inline;
  77027. begin
  77028. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77029. end;
  77030. procedure TCAN1_C1FIFOINT4.setRXNEMPTYIF; inline;
  77031. begin
  77032. pTDefRegMap(@Self)^.&set := $00000001;
  77033. end;
  77034. procedure TCAN1_C1FIFOINT4.clearRXNEMPTYIF; inline;
  77035. begin
  77036. pTDefRegMap(@Self)^.clr := $00000001;
  77037. end;
  77038. procedure TCAN1_C1FIFOINT4.setRXNEMPTYIF(thebits : TBits_1); inline;
  77039. begin
  77040. if thebits = 0 then
  77041. pTDefRegMap(@Self)^.clr := $00000001
  77042. else
  77043. pTDefRegMap(@Self)^.&set := $00000001;
  77044. end;
  77045. function TCAN1_C1FIFOINT4.getRXNEMPTYIF : TBits_1; inline;
  77046. begin
  77047. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  77048. end;
  77049. procedure TCAN1_C1FIFOINT4.setRXHALFIF; inline;
  77050. begin
  77051. pTDefRegMap(@Self)^.&set := $00000002;
  77052. end;
  77053. procedure TCAN1_C1FIFOINT4.clearRXHALFIF; inline;
  77054. begin
  77055. pTDefRegMap(@Self)^.clr := $00000002;
  77056. end;
  77057. procedure TCAN1_C1FIFOINT4.setRXHALFIF(thebits : TBits_1); inline;
  77058. begin
  77059. if thebits = 0 then
  77060. pTDefRegMap(@Self)^.clr := $00000002
  77061. else
  77062. pTDefRegMap(@Self)^.&set := $00000002;
  77063. end;
  77064. function TCAN1_C1FIFOINT4.getRXHALFIF : TBits_1; inline;
  77065. begin
  77066. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  77067. end;
  77068. procedure TCAN1_C1FIFOINT4.setRXFULLIF; inline;
  77069. begin
  77070. pTDefRegMap(@Self)^.&set := $00000004;
  77071. end;
  77072. procedure TCAN1_C1FIFOINT4.clearRXFULLIF; inline;
  77073. begin
  77074. pTDefRegMap(@Self)^.clr := $00000004;
  77075. end;
  77076. procedure TCAN1_C1FIFOINT4.setRXFULLIF(thebits : TBits_1); inline;
  77077. begin
  77078. if thebits = 0 then
  77079. pTDefRegMap(@Self)^.clr := $00000004
  77080. else
  77081. pTDefRegMap(@Self)^.&set := $00000004;
  77082. end;
  77083. function TCAN1_C1FIFOINT4.getRXFULLIF : TBits_1; inline;
  77084. begin
  77085. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  77086. end;
  77087. procedure TCAN1_C1FIFOINT4.setRXOVFLIF; inline;
  77088. begin
  77089. pTDefRegMap(@Self)^.&set := $00000008;
  77090. end;
  77091. procedure TCAN1_C1FIFOINT4.clearRXOVFLIF; inline;
  77092. begin
  77093. pTDefRegMap(@Self)^.clr := $00000008;
  77094. end;
  77095. procedure TCAN1_C1FIFOINT4.setRXOVFLIF(thebits : TBits_1); inline;
  77096. begin
  77097. if thebits = 0 then
  77098. pTDefRegMap(@Self)^.clr := $00000008
  77099. else
  77100. pTDefRegMap(@Self)^.&set := $00000008;
  77101. end;
  77102. function TCAN1_C1FIFOINT4.getRXOVFLIF : TBits_1; inline;
  77103. begin
  77104. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  77105. end;
  77106. procedure TCAN1_C1FIFOINT4.setTXEMPTYIF; inline;
  77107. begin
  77108. pTDefRegMap(@Self)^.&set := $00000100;
  77109. end;
  77110. procedure TCAN1_C1FIFOINT4.clearTXEMPTYIF; inline;
  77111. begin
  77112. pTDefRegMap(@Self)^.clr := $00000100;
  77113. end;
  77114. procedure TCAN1_C1FIFOINT4.setTXEMPTYIF(thebits : TBits_1); inline;
  77115. begin
  77116. if thebits = 0 then
  77117. pTDefRegMap(@Self)^.clr := $00000100
  77118. else
  77119. pTDefRegMap(@Self)^.&set := $00000100;
  77120. end;
  77121. function TCAN1_C1FIFOINT4.getTXEMPTYIF : TBits_1; inline;
  77122. begin
  77123. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  77124. end;
  77125. procedure TCAN1_C1FIFOINT4.setTXHALFIF; inline;
  77126. begin
  77127. pTDefRegMap(@Self)^.&set := $00000200;
  77128. end;
  77129. procedure TCAN1_C1FIFOINT4.clearTXHALFIF; inline;
  77130. begin
  77131. pTDefRegMap(@Self)^.clr := $00000200;
  77132. end;
  77133. procedure TCAN1_C1FIFOINT4.setTXHALFIF(thebits : TBits_1); inline;
  77134. begin
  77135. if thebits = 0 then
  77136. pTDefRegMap(@Self)^.clr := $00000200
  77137. else
  77138. pTDefRegMap(@Self)^.&set := $00000200;
  77139. end;
  77140. function TCAN1_C1FIFOINT4.getTXHALFIF : TBits_1; inline;
  77141. begin
  77142. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  77143. end;
  77144. procedure TCAN1_C1FIFOINT4.setTXNFULLIF; inline;
  77145. begin
  77146. pTDefRegMap(@Self)^.&set := $00000400;
  77147. end;
  77148. procedure TCAN1_C1FIFOINT4.clearTXNFULLIF; inline;
  77149. begin
  77150. pTDefRegMap(@Self)^.clr := $00000400;
  77151. end;
  77152. procedure TCAN1_C1FIFOINT4.setTXNFULLIF(thebits : TBits_1); inline;
  77153. begin
  77154. if thebits = 0 then
  77155. pTDefRegMap(@Self)^.clr := $00000400
  77156. else
  77157. pTDefRegMap(@Self)^.&set := $00000400;
  77158. end;
  77159. function TCAN1_C1FIFOINT4.getTXNFULLIF : TBits_1; inline;
  77160. begin
  77161. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  77162. end;
  77163. procedure TCAN1_C1FIFOINT4.setRXNEMPTYIE; inline;
  77164. begin
  77165. pTDefRegMap(@Self)^.&set := $00010000;
  77166. end;
  77167. procedure TCAN1_C1FIFOINT4.clearRXNEMPTYIE; inline;
  77168. begin
  77169. pTDefRegMap(@Self)^.clr := $00010000;
  77170. end;
  77171. procedure TCAN1_C1FIFOINT4.setRXNEMPTYIE(thebits : TBits_1); inline;
  77172. begin
  77173. if thebits = 0 then
  77174. pTDefRegMap(@Self)^.clr := $00010000
  77175. else
  77176. pTDefRegMap(@Self)^.&set := $00010000;
  77177. end;
  77178. function TCAN1_C1FIFOINT4.getRXNEMPTYIE : TBits_1; inline;
  77179. begin
  77180. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  77181. end;
  77182. procedure TCAN1_C1FIFOINT4.setRXHALFIE; inline;
  77183. begin
  77184. pTDefRegMap(@Self)^.&set := $00020000;
  77185. end;
  77186. procedure TCAN1_C1FIFOINT4.clearRXHALFIE; inline;
  77187. begin
  77188. pTDefRegMap(@Self)^.clr := $00020000;
  77189. end;
  77190. procedure TCAN1_C1FIFOINT4.setRXHALFIE(thebits : TBits_1); inline;
  77191. begin
  77192. if thebits = 0 then
  77193. pTDefRegMap(@Self)^.clr := $00020000
  77194. else
  77195. pTDefRegMap(@Self)^.&set := $00020000;
  77196. end;
  77197. function TCAN1_C1FIFOINT4.getRXHALFIE : TBits_1; inline;
  77198. begin
  77199. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  77200. end;
  77201. procedure TCAN1_C1FIFOINT4.setRXFULLIE; inline;
  77202. begin
  77203. pTDefRegMap(@Self)^.&set := $00040000;
  77204. end;
  77205. procedure TCAN1_C1FIFOINT4.clearRXFULLIE; inline;
  77206. begin
  77207. pTDefRegMap(@Self)^.clr := $00040000;
  77208. end;
  77209. procedure TCAN1_C1FIFOINT4.setRXFULLIE(thebits : TBits_1); inline;
  77210. begin
  77211. if thebits = 0 then
  77212. pTDefRegMap(@Self)^.clr := $00040000
  77213. else
  77214. pTDefRegMap(@Self)^.&set := $00040000;
  77215. end;
  77216. function TCAN1_C1FIFOINT4.getRXFULLIE : TBits_1; inline;
  77217. begin
  77218. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  77219. end;
  77220. procedure TCAN1_C1FIFOINT4.setRXOVFLIE; inline;
  77221. begin
  77222. pTDefRegMap(@Self)^.&set := $00080000;
  77223. end;
  77224. procedure TCAN1_C1FIFOINT4.clearRXOVFLIE; inline;
  77225. begin
  77226. pTDefRegMap(@Self)^.clr := $00080000;
  77227. end;
  77228. procedure TCAN1_C1FIFOINT4.setRXOVFLIE(thebits : TBits_1); inline;
  77229. begin
  77230. if thebits = 0 then
  77231. pTDefRegMap(@Self)^.clr := $00080000
  77232. else
  77233. pTDefRegMap(@Self)^.&set := $00080000;
  77234. end;
  77235. function TCAN1_C1FIFOINT4.getRXOVFLIE : TBits_1; inline;
  77236. begin
  77237. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  77238. end;
  77239. procedure TCAN1_C1FIFOINT4.setTXEMPTYIE; inline;
  77240. begin
  77241. pTDefRegMap(@Self)^.&set := $01000000;
  77242. end;
  77243. procedure TCAN1_C1FIFOINT4.clearTXEMPTYIE; inline;
  77244. begin
  77245. pTDefRegMap(@Self)^.clr := $01000000;
  77246. end;
  77247. procedure TCAN1_C1FIFOINT4.setTXEMPTYIE(thebits : TBits_1); inline;
  77248. begin
  77249. if thebits = 0 then
  77250. pTDefRegMap(@Self)^.clr := $01000000
  77251. else
  77252. pTDefRegMap(@Self)^.&set := $01000000;
  77253. end;
  77254. function TCAN1_C1FIFOINT4.getTXEMPTYIE : TBits_1; inline;
  77255. begin
  77256. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  77257. end;
  77258. procedure TCAN1_C1FIFOINT4.setTXHALFIE; inline;
  77259. begin
  77260. pTDefRegMap(@Self)^.&set := $02000000;
  77261. end;
  77262. procedure TCAN1_C1FIFOINT4.clearTXHALFIE; inline;
  77263. begin
  77264. pTDefRegMap(@Self)^.clr := $02000000;
  77265. end;
  77266. procedure TCAN1_C1FIFOINT4.setTXHALFIE(thebits : TBits_1); inline;
  77267. begin
  77268. if thebits = 0 then
  77269. pTDefRegMap(@Self)^.clr := $02000000
  77270. else
  77271. pTDefRegMap(@Self)^.&set := $02000000;
  77272. end;
  77273. function TCAN1_C1FIFOINT4.getTXHALFIE : TBits_1; inline;
  77274. begin
  77275. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  77276. end;
  77277. procedure TCAN1_C1FIFOINT4.setTXNFULLIE; inline;
  77278. begin
  77279. pTDefRegMap(@Self)^.&set := $04000000;
  77280. end;
  77281. procedure TCAN1_C1FIFOINT4.clearTXNFULLIE; inline;
  77282. begin
  77283. pTDefRegMap(@Self)^.clr := $04000000;
  77284. end;
  77285. procedure TCAN1_C1FIFOINT4.setTXNFULLIE(thebits : TBits_1); inline;
  77286. begin
  77287. if thebits = 0 then
  77288. pTDefRegMap(@Self)^.clr := $04000000
  77289. else
  77290. pTDefRegMap(@Self)^.&set := $04000000;
  77291. end;
  77292. function TCAN1_C1FIFOINT4.getTXNFULLIE : TBits_1; inline;
  77293. begin
  77294. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  77295. end;
  77296. procedure TCAN1_C1FIFOINT4.setw(thebits : TBits_32); inline;
  77297. begin
  77298. pTDefRegMap(@Self)^.val := thebits;
  77299. end;
  77300. function TCAN1_C1FIFOINT4.getw : TBits_32; inline;
  77301. begin
  77302. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77303. end;
  77304. procedure TCAN1_C1FIFOCI4.setCFIFOCI(thebits : TBits_5); inline;
  77305. begin
  77306. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  77307. end;
  77308. function TCAN1_C1FIFOCI4.getCFIFOCI : TBits_5; inline;
  77309. begin
  77310. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  77311. end;
  77312. procedure TCAN1_C1FIFOCI4.setw(thebits : TBits_32); inline;
  77313. begin
  77314. pTDefRegMap(@Self)^.val := thebits;
  77315. end;
  77316. function TCAN1_C1FIFOCI4.getw : TBits_32; inline;
  77317. begin
  77318. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77319. end;
  77320. procedure TCAN1_C1FIFOCON5.setTXPRI(thebits : TBits_2); inline;
  77321. begin
  77322. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  77323. end;
  77324. function TCAN1_C1FIFOCON5.getTXPRI : TBits_2; inline;
  77325. begin
  77326. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  77327. end;
  77328. procedure TCAN1_C1FIFOCON5.setRTREN; inline;
  77329. begin
  77330. pTDefRegMap(@Self)^.&set := $00000004;
  77331. end;
  77332. procedure TCAN1_C1FIFOCON5.clearRTREN; inline;
  77333. begin
  77334. pTDefRegMap(@Self)^.clr := $00000004;
  77335. end;
  77336. procedure TCAN1_C1FIFOCON5.setRTREN(thebits : TBits_1); inline;
  77337. begin
  77338. if thebits = 0 then
  77339. pTDefRegMap(@Self)^.clr := $00000004
  77340. else
  77341. pTDefRegMap(@Self)^.&set := $00000004;
  77342. end;
  77343. function TCAN1_C1FIFOCON5.getRTREN : TBits_1; inline;
  77344. begin
  77345. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  77346. end;
  77347. procedure TCAN1_C1FIFOCON5.setTXREQ; inline;
  77348. begin
  77349. pTDefRegMap(@Self)^.&set := $00000008;
  77350. end;
  77351. procedure TCAN1_C1FIFOCON5.clearTXREQ; inline;
  77352. begin
  77353. pTDefRegMap(@Self)^.clr := $00000008;
  77354. end;
  77355. procedure TCAN1_C1FIFOCON5.setTXREQ(thebits : TBits_1); inline;
  77356. begin
  77357. if thebits = 0 then
  77358. pTDefRegMap(@Self)^.clr := $00000008
  77359. else
  77360. pTDefRegMap(@Self)^.&set := $00000008;
  77361. end;
  77362. function TCAN1_C1FIFOCON5.getTXREQ : TBits_1; inline;
  77363. begin
  77364. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  77365. end;
  77366. procedure TCAN1_C1FIFOCON5.setTXERR; inline;
  77367. begin
  77368. pTDefRegMap(@Self)^.&set := $00000010;
  77369. end;
  77370. procedure TCAN1_C1FIFOCON5.clearTXERR; inline;
  77371. begin
  77372. pTDefRegMap(@Self)^.clr := $00000010;
  77373. end;
  77374. procedure TCAN1_C1FIFOCON5.setTXERR(thebits : TBits_1); inline;
  77375. begin
  77376. if thebits = 0 then
  77377. pTDefRegMap(@Self)^.clr := $00000010
  77378. else
  77379. pTDefRegMap(@Self)^.&set := $00000010;
  77380. end;
  77381. function TCAN1_C1FIFOCON5.getTXERR : TBits_1; inline;
  77382. begin
  77383. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  77384. end;
  77385. procedure TCAN1_C1FIFOCON5.setTXLARB; inline;
  77386. begin
  77387. pTDefRegMap(@Self)^.&set := $00000020;
  77388. end;
  77389. procedure TCAN1_C1FIFOCON5.clearTXLARB; inline;
  77390. begin
  77391. pTDefRegMap(@Self)^.clr := $00000020;
  77392. end;
  77393. procedure TCAN1_C1FIFOCON5.setTXLARB(thebits : TBits_1); inline;
  77394. begin
  77395. if thebits = 0 then
  77396. pTDefRegMap(@Self)^.clr := $00000020
  77397. else
  77398. pTDefRegMap(@Self)^.&set := $00000020;
  77399. end;
  77400. function TCAN1_C1FIFOCON5.getTXLARB : TBits_1; inline;
  77401. begin
  77402. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  77403. end;
  77404. procedure TCAN1_C1FIFOCON5.setTXABAT; inline;
  77405. begin
  77406. pTDefRegMap(@Self)^.&set := $00000040;
  77407. end;
  77408. procedure TCAN1_C1FIFOCON5.clearTXABAT; inline;
  77409. begin
  77410. pTDefRegMap(@Self)^.clr := $00000040;
  77411. end;
  77412. procedure TCAN1_C1FIFOCON5.setTXABAT(thebits : TBits_1); inline;
  77413. begin
  77414. if thebits = 0 then
  77415. pTDefRegMap(@Self)^.clr := $00000040
  77416. else
  77417. pTDefRegMap(@Self)^.&set := $00000040;
  77418. end;
  77419. function TCAN1_C1FIFOCON5.getTXABAT : TBits_1; inline;
  77420. begin
  77421. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  77422. end;
  77423. procedure TCAN1_C1FIFOCON5.setTXEN; inline;
  77424. begin
  77425. pTDefRegMap(@Self)^.&set := $00000080;
  77426. end;
  77427. procedure TCAN1_C1FIFOCON5.clearTXEN; inline;
  77428. begin
  77429. pTDefRegMap(@Self)^.clr := $00000080;
  77430. end;
  77431. procedure TCAN1_C1FIFOCON5.setTXEN(thebits : TBits_1); inline;
  77432. begin
  77433. if thebits = 0 then
  77434. pTDefRegMap(@Self)^.clr := $00000080
  77435. else
  77436. pTDefRegMap(@Self)^.&set := $00000080;
  77437. end;
  77438. function TCAN1_C1FIFOCON5.getTXEN : TBits_1; inline;
  77439. begin
  77440. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  77441. end;
  77442. procedure TCAN1_C1FIFOCON5.setDONLY; inline;
  77443. begin
  77444. pTDefRegMap(@Self)^.&set := $00001000;
  77445. end;
  77446. procedure TCAN1_C1FIFOCON5.clearDONLY; inline;
  77447. begin
  77448. pTDefRegMap(@Self)^.clr := $00001000;
  77449. end;
  77450. procedure TCAN1_C1FIFOCON5.setDONLY(thebits : TBits_1); inline;
  77451. begin
  77452. if thebits = 0 then
  77453. pTDefRegMap(@Self)^.clr := $00001000
  77454. else
  77455. pTDefRegMap(@Self)^.&set := $00001000;
  77456. end;
  77457. function TCAN1_C1FIFOCON5.getDONLY : TBits_1; inline;
  77458. begin
  77459. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  77460. end;
  77461. procedure TCAN1_C1FIFOCON5.setUINC; inline;
  77462. begin
  77463. pTDefRegMap(@Self)^.&set := $00002000;
  77464. end;
  77465. procedure TCAN1_C1FIFOCON5.clearUINC; inline;
  77466. begin
  77467. pTDefRegMap(@Self)^.clr := $00002000;
  77468. end;
  77469. procedure TCAN1_C1FIFOCON5.setUINC(thebits : TBits_1); inline;
  77470. begin
  77471. if thebits = 0 then
  77472. pTDefRegMap(@Self)^.clr := $00002000
  77473. else
  77474. pTDefRegMap(@Self)^.&set := $00002000;
  77475. end;
  77476. function TCAN1_C1FIFOCON5.getUINC : TBits_1; inline;
  77477. begin
  77478. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  77479. end;
  77480. procedure TCAN1_C1FIFOCON5.setFRESET; inline;
  77481. begin
  77482. pTDefRegMap(@Self)^.&set := $00004000;
  77483. end;
  77484. procedure TCAN1_C1FIFOCON5.clearFRESET; inline;
  77485. begin
  77486. pTDefRegMap(@Self)^.clr := $00004000;
  77487. end;
  77488. procedure TCAN1_C1FIFOCON5.setFRESET(thebits : TBits_1); inline;
  77489. begin
  77490. if thebits = 0 then
  77491. pTDefRegMap(@Self)^.clr := $00004000
  77492. else
  77493. pTDefRegMap(@Self)^.&set := $00004000;
  77494. end;
  77495. function TCAN1_C1FIFOCON5.getFRESET : TBits_1; inline;
  77496. begin
  77497. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  77498. end;
  77499. procedure TCAN1_C1FIFOCON5.setFSIZE(thebits : TBits_5); inline;
  77500. begin
  77501. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  77502. end;
  77503. function TCAN1_C1FIFOCON5.getFSIZE : TBits_5; inline;
  77504. begin
  77505. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  77506. end;
  77507. procedure TCAN1_C1FIFOCON5.setw(thebits : TBits_32); inline;
  77508. begin
  77509. pTDefRegMap(@Self)^.val := thebits;
  77510. end;
  77511. function TCAN1_C1FIFOCON5.getw : TBits_32; inline;
  77512. begin
  77513. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77514. end;
  77515. procedure TCAN1_C1FIFOINT5.setRXNEMPTYIF; inline;
  77516. begin
  77517. pTDefRegMap(@Self)^.&set := $00000001;
  77518. end;
  77519. procedure TCAN1_C1FIFOINT5.clearRXNEMPTYIF; inline;
  77520. begin
  77521. pTDefRegMap(@Self)^.clr := $00000001;
  77522. end;
  77523. procedure TCAN1_C1FIFOINT5.setRXNEMPTYIF(thebits : TBits_1); inline;
  77524. begin
  77525. if thebits = 0 then
  77526. pTDefRegMap(@Self)^.clr := $00000001
  77527. else
  77528. pTDefRegMap(@Self)^.&set := $00000001;
  77529. end;
  77530. function TCAN1_C1FIFOINT5.getRXNEMPTYIF : TBits_1; inline;
  77531. begin
  77532. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  77533. end;
  77534. procedure TCAN1_C1FIFOINT5.setRXHALFIF; inline;
  77535. begin
  77536. pTDefRegMap(@Self)^.&set := $00000002;
  77537. end;
  77538. procedure TCAN1_C1FIFOINT5.clearRXHALFIF; inline;
  77539. begin
  77540. pTDefRegMap(@Self)^.clr := $00000002;
  77541. end;
  77542. procedure TCAN1_C1FIFOINT5.setRXHALFIF(thebits : TBits_1); inline;
  77543. begin
  77544. if thebits = 0 then
  77545. pTDefRegMap(@Self)^.clr := $00000002
  77546. else
  77547. pTDefRegMap(@Self)^.&set := $00000002;
  77548. end;
  77549. function TCAN1_C1FIFOINT5.getRXHALFIF : TBits_1; inline;
  77550. begin
  77551. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  77552. end;
  77553. procedure TCAN1_C1FIFOINT5.setRXFULLIF; inline;
  77554. begin
  77555. pTDefRegMap(@Self)^.&set := $00000004;
  77556. end;
  77557. procedure TCAN1_C1FIFOINT5.clearRXFULLIF; inline;
  77558. begin
  77559. pTDefRegMap(@Self)^.clr := $00000004;
  77560. end;
  77561. procedure TCAN1_C1FIFOINT5.setRXFULLIF(thebits : TBits_1); inline;
  77562. begin
  77563. if thebits = 0 then
  77564. pTDefRegMap(@Self)^.clr := $00000004
  77565. else
  77566. pTDefRegMap(@Self)^.&set := $00000004;
  77567. end;
  77568. function TCAN1_C1FIFOINT5.getRXFULLIF : TBits_1; inline;
  77569. begin
  77570. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  77571. end;
  77572. procedure TCAN1_C1FIFOINT5.setRXOVFLIF; inline;
  77573. begin
  77574. pTDefRegMap(@Self)^.&set := $00000008;
  77575. end;
  77576. procedure TCAN1_C1FIFOINT5.clearRXOVFLIF; inline;
  77577. begin
  77578. pTDefRegMap(@Self)^.clr := $00000008;
  77579. end;
  77580. procedure TCAN1_C1FIFOINT5.setRXOVFLIF(thebits : TBits_1); inline;
  77581. begin
  77582. if thebits = 0 then
  77583. pTDefRegMap(@Self)^.clr := $00000008
  77584. else
  77585. pTDefRegMap(@Self)^.&set := $00000008;
  77586. end;
  77587. function TCAN1_C1FIFOINT5.getRXOVFLIF : TBits_1; inline;
  77588. begin
  77589. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  77590. end;
  77591. procedure TCAN1_C1FIFOINT5.setTXEMPTYIF; inline;
  77592. begin
  77593. pTDefRegMap(@Self)^.&set := $00000100;
  77594. end;
  77595. procedure TCAN1_C1FIFOINT5.clearTXEMPTYIF; inline;
  77596. begin
  77597. pTDefRegMap(@Self)^.clr := $00000100;
  77598. end;
  77599. procedure TCAN1_C1FIFOINT5.setTXEMPTYIF(thebits : TBits_1); inline;
  77600. begin
  77601. if thebits = 0 then
  77602. pTDefRegMap(@Self)^.clr := $00000100
  77603. else
  77604. pTDefRegMap(@Self)^.&set := $00000100;
  77605. end;
  77606. function TCAN1_C1FIFOINT5.getTXEMPTYIF : TBits_1; inline;
  77607. begin
  77608. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  77609. end;
  77610. procedure TCAN1_C1FIFOINT5.setTXHALFIF; inline;
  77611. begin
  77612. pTDefRegMap(@Self)^.&set := $00000200;
  77613. end;
  77614. procedure TCAN1_C1FIFOINT5.clearTXHALFIF; inline;
  77615. begin
  77616. pTDefRegMap(@Self)^.clr := $00000200;
  77617. end;
  77618. procedure TCAN1_C1FIFOINT5.setTXHALFIF(thebits : TBits_1); inline;
  77619. begin
  77620. if thebits = 0 then
  77621. pTDefRegMap(@Self)^.clr := $00000200
  77622. else
  77623. pTDefRegMap(@Self)^.&set := $00000200;
  77624. end;
  77625. function TCAN1_C1FIFOINT5.getTXHALFIF : TBits_1; inline;
  77626. begin
  77627. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  77628. end;
  77629. procedure TCAN1_C1FIFOINT5.setTXNFULLIF; inline;
  77630. begin
  77631. pTDefRegMap(@Self)^.&set := $00000400;
  77632. end;
  77633. procedure TCAN1_C1FIFOINT5.clearTXNFULLIF; inline;
  77634. begin
  77635. pTDefRegMap(@Self)^.clr := $00000400;
  77636. end;
  77637. procedure TCAN1_C1FIFOINT5.setTXNFULLIF(thebits : TBits_1); inline;
  77638. begin
  77639. if thebits = 0 then
  77640. pTDefRegMap(@Self)^.clr := $00000400
  77641. else
  77642. pTDefRegMap(@Self)^.&set := $00000400;
  77643. end;
  77644. function TCAN1_C1FIFOINT5.getTXNFULLIF : TBits_1; inline;
  77645. begin
  77646. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  77647. end;
  77648. procedure TCAN1_C1FIFOINT5.setRXNEMPTYIE; inline;
  77649. begin
  77650. pTDefRegMap(@Self)^.&set := $00010000;
  77651. end;
  77652. procedure TCAN1_C1FIFOINT5.clearRXNEMPTYIE; inline;
  77653. begin
  77654. pTDefRegMap(@Self)^.clr := $00010000;
  77655. end;
  77656. procedure TCAN1_C1FIFOINT5.setRXNEMPTYIE(thebits : TBits_1); inline;
  77657. begin
  77658. if thebits = 0 then
  77659. pTDefRegMap(@Self)^.clr := $00010000
  77660. else
  77661. pTDefRegMap(@Self)^.&set := $00010000;
  77662. end;
  77663. function TCAN1_C1FIFOINT5.getRXNEMPTYIE : TBits_1; inline;
  77664. begin
  77665. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  77666. end;
  77667. procedure TCAN1_C1FIFOINT5.setRXHALFIE; inline;
  77668. begin
  77669. pTDefRegMap(@Self)^.&set := $00020000;
  77670. end;
  77671. procedure TCAN1_C1FIFOINT5.clearRXHALFIE; inline;
  77672. begin
  77673. pTDefRegMap(@Self)^.clr := $00020000;
  77674. end;
  77675. procedure TCAN1_C1FIFOINT5.setRXHALFIE(thebits : TBits_1); inline;
  77676. begin
  77677. if thebits = 0 then
  77678. pTDefRegMap(@Self)^.clr := $00020000
  77679. else
  77680. pTDefRegMap(@Self)^.&set := $00020000;
  77681. end;
  77682. function TCAN1_C1FIFOINT5.getRXHALFIE : TBits_1; inline;
  77683. begin
  77684. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  77685. end;
  77686. procedure TCAN1_C1FIFOINT5.setRXFULLIE; inline;
  77687. begin
  77688. pTDefRegMap(@Self)^.&set := $00040000;
  77689. end;
  77690. procedure TCAN1_C1FIFOINT5.clearRXFULLIE; inline;
  77691. begin
  77692. pTDefRegMap(@Self)^.clr := $00040000;
  77693. end;
  77694. procedure TCAN1_C1FIFOINT5.setRXFULLIE(thebits : TBits_1); inline;
  77695. begin
  77696. if thebits = 0 then
  77697. pTDefRegMap(@Self)^.clr := $00040000
  77698. else
  77699. pTDefRegMap(@Self)^.&set := $00040000;
  77700. end;
  77701. function TCAN1_C1FIFOINT5.getRXFULLIE : TBits_1; inline;
  77702. begin
  77703. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  77704. end;
  77705. procedure TCAN1_C1FIFOINT5.setRXOVFLIE; inline;
  77706. begin
  77707. pTDefRegMap(@Self)^.&set := $00080000;
  77708. end;
  77709. procedure TCAN1_C1FIFOINT5.clearRXOVFLIE; inline;
  77710. begin
  77711. pTDefRegMap(@Self)^.clr := $00080000;
  77712. end;
  77713. procedure TCAN1_C1FIFOINT5.setRXOVFLIE(thebits : TBits_1); inline;
  77714. begin
  77715. if thebits = 0 then
  77716. pTDefRegMap(@Self)^.clr := $00080000
  77717. else
  77718. pTDefRegMap(@Self)^.&set := $00080000;
  77719. end;
  77720. function TCAN1_C1FIFOINT5.getRXOVFLIE : TBits_1; inline;
  77721. begin
  77722. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  77723. end;
  77724. procedure TCAN1_C1FIFOINT5.setTXEMPTYIE; inline;
  77725. begin
  77726. pTDefRegMap(@Self)^.&set := $01000000;
  77727. end;
  77728. procedure TCAN1_C1FIFOINT5.clearTXEMPTYIE; inline;
  77729. begin
  77730. pTDefRegMap(@Self)^.clr := $01000000;
  77731. end;
  77732. procedure TCAN1_C1FIFOINT5.setTXEMPTYIE(thebits : TBits_1); inline;
  77733. begin
  77734. if thebits = 0 then
  77735. pTDefRegMap(@Self)^.clr := $01000000
  77736. else
  77737. pTDefRegMap(@Self)^.&set := $01000000;
  77738. end;
  77739. function TCAN1_C1FIFOINT5.getTXEMPTYIE : TBits_1; inline;
  77740. begin
  77741. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  77742. end;
  77743. procedure TCAN1_C1FIFOINT5.setTXHALFIE; inline;
  77744. begin
  77745. pTDefRegMap(@Self)^.&set := $02000000;
  77746. end;
  77747. procedure TCAN1_C1FIFOINT5.clearTXHALFIE; inline;
  77748. begin
  77749. pTDefRegMap(@Self)^.clr := $02000000;
  77750. end;
  77751. procedure TCAN1_C1FIFOINT5.setTXHALFIE(thebits : TBits_1); inline;
  77752. begin
  77753. if thebits = 0 then
  77754. pTDefRegMap(@Self)^.clr := $02000000
  77755. else
  77756. pTDefRegMap(@Self)^.&set := $02000000;
  77757. end;
  77758. function TCAN1_C1FIFOINT5.getTXHALFIE : TBits_1; inline;
  77759. begin
  77760. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  77761. end;
  77762. procedure TCAN1_C1FIFOINT5.setTXNFULLIE; inline;
  77763. begin
  77764. pTDefRegMap(@Self)^.&set := $04000000;
  77765. end;
  77766. procedure TCAN1_C1FIFOINT5.clearTXNFULLIE; inline;
  77767. begin
  77768. pTDefRegMap(@Self)^.clr := $04000000;
  77769. end;
  77770. procedure TCAN1_C1FIFOINT5.setTXNFULLIE(thebits : TBits_1); inline;
  77771. begin
  77772. if thebits = 0 then
  77773. pTDefRegMap(@Self)^.clr := $04000000
  77774. else
  77775. pTDefRegMap(@Self)^.&set := $04000000;
  77776. end;
  77777. function TCAN1_C1FIFOINT5.getTXNFULLIE : TBits_1; inline;
  77778. begin
  77779. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  77780. end;
  77781. procedure TCAN1_C1FIFOINT5.setw(thebits : TBits_32); inline;
  77782. begin
  77783. pTDefRegMap(@Self)^.val := thebits;
  77784. end;
  77785. function TCAN1_C1FIFOINT5.getw : TBits_32; inline;
  77786. begin
  77787. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77788. end;
  77789. procedure TCAN1_C1FIFOCI5.setCFIFOCI(thebits : TBits_5); inline;
  77790. begin
  77791. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  77792. end;
  77793. function TCAN1_C1FIFOCI5.getCFIFOCI : TBits_5; inline;
  77794. begin
  77795. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  77796. end;
  77797. procedure TCAN1_C1FIFOCI5.setw(thebits : TBits_32); inline;
  77798. begin
  77799. pTDefRegMap(@Self)^.val := thebits;
  77800. end;
  77801. function TCAN1_C1FIFOCI5.getw : TBits_32; inline;
  77802. begin
  77803. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77804. end;
  77805. procedure TCAN1_C1FIFOCON6.setTXPRI(thebits : TBits_2); inline;
  77806. begin
  77807. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  77808. end;
  77809. function TCAN1_C1FIFOCON6.getTXPRI : TBits_2; inline;
  77810. begin
  77811. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  77812. end;
  77813. procedure TCAN1_C1FIFOCON6.setRTREN; inline;
  77814. begin
  77815. pTDefRegMap(@Self)^.&set := $00000004;
  77816. end;
  77817. procedure TCAN1_C1FIFOCON6.clearRTREN; inline;
  77818. begin
  77819. pTDefRegMap(@Self)^.clr := $00000004;
  77820. end;
  77821. procedure TCAN1_C1FIFOCON6.setRTREN(thebits : TBits_1); inline;
  77822. begin
  77823. if thebits = 0 then
  77824. pTDefRegMap(@Self)^.clr := $00000004
  77825. else
  77826. pTDefRegMap(@Self)^.&set := $00000004;
  77827. end;
  77828. function TCAN1_C1FIFOCON6.getRTREN : TBits_1; inline;
  77829. begin
  77830. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  77831. end;
  77832. procedure TCAN1_C1FIFOCON6.setTXREQ; inline;
  77833. begin
  77834. pTDefRegMap(@Self)^.&set := $00000008;
  77835. end;
  77836. procedure TCAN1_C1FIFOCON6.clearTXREQ; inline;
  77837. begin
  77838. pTDefRegMap(@Self)^.clr := $00000008;
  77839. end;
  77840. procedure TCAN1_C1FIFOCON6.setTXREQ(thebits : TBits_1); inline;
  77841. begin
  77842. if thebits = 0 then
  77843. pTDefRegMap(@Self)^.clr := $00000008
  77844. else
  77845. pTDefRegMap(@Self)^.&set := $00000008;
  77846. end;
  77847. function TCAN1_C1FIFOCON6.getTXREQ : TBits_1; inline;
  77848. begin
  77849. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  77850. end;
  77851. procedure TCAN1_C1FIFOCON6.setTXERR; inline;
  77852. begin
  77853. pTDefRegMap(@Self)^.&set := $00000010;
  77854. end;
  77855. procedure TCAN1_C1FIFOCON6.clearTXERR; inline;
  77856. begin
  77857. pTDefRegMap(@Self)^.clr := $00000010;
  77858. end;
  77859. procedure TCAN1_C1FIFOCON6.setTXERR(thebits : TBits_1); inline;
  77860. begin
  77861. if thebits = 0 then
  77862. pTDefRegMap(@Self)^.clr := $00000010
  77863. else
  77864. pTDefRegMap(@Self)^.&set := $00000010;
  77865. end;
  77866. function TCAN1_C1FIFOCON6.getTXERR : TBits_1; inline;
  77867. begin
  77868. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  77869. end;
  77870. procedure TCAN1_C1FIFOCON6.setTXLARB; inline;
  77871. begin
  77872. pTDefRegMap(@Self)^.&set := $00000020;
  77873. end;
  77874. procedure TCAN1_C1FIFOCON6.clearTXLARB; inline;
  77875. begin
  77876. pTDefRegMap(@Self)^.clr := $00000020;
  77877. end;
  77878. procedure TCAN1_C1FIFOCON6.setTXLARB(thebits : TBits_1); inline;
  77879. begin
  77880. if thebits = 0 then
  77881. pTDefRegMap(@Self)^.clr := $00000020
  77882. else
  77883. pTDefRegMap(@Self)^.&set := $00000020;
  77884. end;
  77885. function TCAN1_C1FIFOCON6.getTXLARB : TBits_1; inline;
  77886. begin
  77887. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  77888. end;
  77889. procedure TCAN1_C1FIFOCON6.setTXABAT; inline;
  77890. begin
  77891. pTDefRegMap(@Self)^.&set := $00000040;
  77892. end;
  77893. procedure TCAN1_C1FIFOCON6.clearTXABAT; inline;
  77894. begin
  77895. pTDefRegMap(@Self)^.clr := $00000040;
  77896. end;
  77897. procedure TCAN1_C1FIFOCON6.setTXABAT(thebits : TBits_1); inline;
  77898. begin
  77899. if thebits = 0 then
  77900. pTDefRegMap(@Self)^.clr := $00000040
  77901. else
  77902. pTDefRegMap(@Self)^.&set := $00000040;
  77903. end;
  77904. function TCAN1_C1FIFOCON6.getTXABAT : TBits_1; inline;
  77905. begin
  77906. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  77907. end;
  77908. procedure TCAN1_C1FIFOCON6.setTXEN; inline;
  77909. begin
  77910. pTDefRegMap(@Self)^.&set := $00000080;
  77911. end;
  77912. procedure TCAN1_C1FIFOCON6.clearTXEN; inline;
  77913. begin
  77914. pTDefRegMap(@Self)^.clr := $00000080;
  77915. end;
  77916. procedure TCAN1_C1FIFOCON6.setTXEN(thebits : TBits_1); inline;
  77917. begin
  77918. if thebits = 0 then
  77919. pTDefRegMap(@Self)^.clr := $00000080
  77920. else
  77921. pTDefRegMap(@Self)^.&set := $00000080;
  77922. end;
  77923. function TCAN1_C1FIFOCON6.getTXEN : TBits_1; inline;
  77924. begin
  77925. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  77926. end;
  77927. procedure TCAN1_C1FIFOCON6.setDONLY; inline;
  77928. begin
  77929. pTDefRegMap(@Self)^.&set := $00001000;
  77930. end;
  77931. procedure TCAN1_C1FIFOCON6.clearDONLY; inline;
  77932. begin
  77933. pTDefRegMap(@Self)^.clr := $00001000;
  77934. end;
  77935. procedure TCAN1_C1FIFOCON6.setDONLY(thebits : TBits_1); inline;
  77936. begin
  77937. if thebits = 0 then
  77938. pTDefRegMap(@Self)^.clr := $00001000
  77939. else
  77940. pTDefRegMap(@Self)^.&set := $00001000;
  77941. end;
  77942. function TCAN1_C1FIFOCON6.getDONLY : TBits_1; inline;
  77943. begin
  77944. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  77945. end;
  77946. procedure TCAN1_C1FIFOCON6.setUINC; inline;
  77947. begin
  77948. pTDefRegMap(@Self)^.&set := $00002000;
  77949. end;
  77950. procedure TCAN1_C1FIFOCON6.clearUINC; inline;
  77951. begin
  77952. pTDefRegMap(@Self)^.clr := $00002000;
  77953. end;
  77954. procedure TCAN1_C1FIFOCON6.setUINC(thebits : TBits_1); inline;
  77955. begin
  77956. if thebits = 0 then
  77957. pTDefRegMap(@Self)^.clr := $00002000
  77958. else
  77959. pTDefRegMap(@Self)^.&set := $00002000;
  77960. end;
  77961. function TCAN1_C1FIFOCON6.getUINC : TBits_1; inline;
  77962. begin
  77963. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  77964. end;
  77965. procedure TCAN1_C1FIFOCON6.setFRESET; inline;
  77966. begin
  77967. pTDefRegMap(@Self)^.&set := $00004000;
  77968. end;
  77969. procedure TCAN1_C1FIFOCON6.clearFRESET; inline;
  77970. begin
  77971. pTDefRegMap(@Self)^.clr := $00004000;
  77972. end;
  77973. procedure TCAN1_C1FIFOCON6.setFRESET(thebits : TBits_1); inline;
  77974. begin
  77975. if thebits = 0 then
  77976. pTDefRegMap(@Self)^.clr := $00004000
  77977. else
  77978. pTDefRegMap(@Self)^.&set := $00004000;
  77979. end;
  77980. function TCAN1_C1FIFOCON6.getFRESET : TBits_1; inline;
  77981. begin
  77982. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  77983. end;
  77984. procedure TCAN1_C1FIFOCON6.setFSIZE(thebits : TBits_5); inline;
  77985. begin
  77986. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  77987. end;
  77988. function TCAN1_C1FIFOCON6.getFSIZE : TBits_5; inline;
  77989. begin
  77990. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  77991. end;
  77992. procedure TCAN1_C1FIFOCON6.setw(thebits : TBits_32); inline;
  77993. begin
  77994. pTDefRegMap(@Self)^.val := thebits;
  77995. end;
  77996. function TCAN1_C1FIFOCON6.getw : TBits_32; inline;
  77997. begin
  77998. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77999. end;
  78000. procedure TCAN1_C1FIFOINT6.setRXNEMPTYIF; inline;
  78001. begin
  78002. pTDefRegMap(@Self)^.&set := $00000001;
  78003. end;
  78004. procedure TCAN1_C1FIFOINT6.clearRXNEMPTYIF; inline;
  78005. begin
  78006. pTDefRegMap(@Self)^.clr := $00000001;
  78007. end;
  78008. procedure TCAN1_C1FIFOINT6.setRXNEMPTYIF(thebits : TBits_1); inline;
  78009. begin
  78010. if thebits = 0 then
  78011. pTDefRegMap(@Self)^.clr := $00000001
  78012. else
  78013. pTDefRegMap(@Self)^.&set := $00000001;
  78014. end;
  78015. function TCAN1_C1FIFOINT6.getRXNEMPTYIF : TBits_1; inline;
  78016. begin
  78017. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  78018. end;
  78019. procedure TCAN1_C1FIFOINT6.setRXHALFIF; inline;
  78020. begin
  78021. pTDefRegMap(@Self)^.&set := $00000002;
  78022. end;
  78023. procedure TCAN1_C1FIFOINT6.clearRXHALFIF; inline;
  78024. begin
  78025. pTDefRegMap(@Self)^.clr := $00000002;
  78026. end;
  78027. procedure TCAN1_C1FIFOINT6.setRXHALFIF(thebits : TBits_1); inline;
  78028. begin
  78029. if thebits = 0 then
  78030. pTDefRegMap(@Self)^.clr := $00000002
  78031. else
  78032. pTDefRegMap(@Self)^.&set := $00000002;
  78033. end;
  78034. function TCAN1_C1FIFOINT6.getRXHALFIF : TBits_1; inline;
  78035. begin
  78036. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  78037. end;
  78038. procedure TCAN1_C1FIFOINT6.setRXFULLIF; inline;
  78039. begin
  78040. pTDefRegMap(@Self)^.&set := $00000004;
  78041. end;
  78042. procedure TCAN1_C1FIFOINT6.clearRXFULLIF; inline;
  78043. begin
  78044. pTDefRegMap(@Self)^.clr := $00000004;
  78045. end;
  78046. procedure TCAN1_C1FIFOINT6.setRXFULLIF(thebits : TBits_1); inline;
  78047. begin
  78048. if thebits = 0 then
  78049. pTDefRegMap(@Self)^.clr := $00000004
  78050. else
  78051. pTDefRegMap(@Self)^.&set := $00000004;
  78052. end;
  78053. function TCAN1_C1FIFOINT6.getRXFULLIF : TBits_1; inline;
  78054. begin
  78055. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  78056. end;
  78057. procedure TCAN1_C1FIFOINT6.setRXOVFLIF; inline;
  78058. begin
  78059. pTDefRegMap(@Self)^.&set := $00000008;
  78060. end;
  78061. procedure TCAN1_C1FIFOINT6.clearRXOVFLIF; inline;
  78062. begin
  78063. pTDefRegMap(@Self)^.clr := $00000008;
  78064. end;
  78065. procedure TCAN1_C1FIFOINT6.setRXOVFLIF(thebits : TBits_1); inline;
  78066. begin
  78067. if thebits = 0 then
  78068. pTDefRegMap(@Self)^.clr := $00000008
  78069. else
  78070. pTDefRegMap(@Self)^.&set := $00000008;
  78071. end;
  78072. function TCAN1_C1FIFOINT6.getRXOVFLIF : TBits_1; inline;
  78073. begin
  78074. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  78075. end;
  78076. procedure TCAN1_C1FIFOINT6.setTXEMPTYIF; inline;
  78077. begin
  78078. pTDefRegMap(@Self)^.&set := $00000100;
  78079. end;
  78080. procedure TCAN1_C1FIFOINT6.clearTXEMPTYIF; inline;
  78081. begin
  78082. pTDefRegMap(@Self)^.clr := $00000100;
  78083. end;
  78084. procedure TCAN1_C1FIFOINT6.setTXEMPTYIF(thebits : TBits_1); inline;
  78085. begin
  78086. if thebits = 0 then
  78087. pTDefRegMap(@Self)^.clr := $00000100
  78088. else
  78089. pTDefRegMap(@Self)^.&set := $00000100;
  78090. end;
  78091. function TCAN1_C1FIFOINT6.getTXEMPTYIF : TBits_1; inline;
  78092. begin
  78093. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  78094. end;
  78095. procedure TCAN1_C1FIFOINT6.setTXHALFIF; inline;
  78096. begin
  78097. pTDefRegMap(@Self)^.&set := $00000200;
  78098. end;
  78099. procedure TCAN1_C1FIFOINT6.clearTXHALFIF; inline;
  78100. begin
  78101. pTDefRegMap(@Self)^.clr := $00000200;
  78102. end;
  78103. procedure TCAN1_C1FIFOINT6.setTXHALFIF(thebits : TBits_1); inline;
  78104. begin
  78105. if thebits = 0 then
  78106. pTDefRegMap(@Self)^.clr := $00000200
  78107. else
  78108. pTDefRegMap(@Self)^.&set := $00000200;
  78109. end;
  78110. function TCAN1_C1FIFOINT6.getTXHALFIF : TBits_1; inline;
  78111. begin
  78112. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  78113. end;
  78114. procedure TCAN1_C1FIFOINT6.setTXNFULLIF; inline;
  78115. begin
  78116. pTDefRegMap(@Self)^.&set := $00000400;
  78117. end;
  78118. procedure TCAN1_C1FIFOINT6.clearTXNFULLIF; inline;
  78119. begin
  78120. pTDefRegMap(@Self)^.clr := $00000400;
  78121. end;
  78122. procedure TCAN1_C1FIFOINT6.setTXNFULLIF(thebits : TBits_1); inline;
  78123. begin
  78124. if thebits = 0 then
  78125. pTDefRegMap(@Self)^.clr := $00000400
  78126. else
  78127. pTDefRegMap(@Self)^.&set := $00000400;
  78128. end;
  78129. function TCAN1_C1FIFOINT6.getTXNFULLIF : TBits_1; inline;
  78130. begin
  78131. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  78132. end;
  78133. procedure TCAN1_C1FIFOINT6.setRXNEMPTYIE; inline;
  78134. begin
  78135. pTDefRegMap(@Self)^.&set := $00010000;
  78136. end;
  78137. procedure TCAN1_C1FIFOINT6.clearRXNEMPTYIE; inline;
  78138. begin
  78139. pTDefRegMap(@Self)^.clr := $00010000;
  78140. end;
  78141. procedure TCAN1_C1FIFOINT6.setRXNEMPTYIE(thebits : TBits_1); inline;
  78142. begin
  78143. if thebits = 0 then
  78144. pTDefRegMap(@Self)^.clr := $00010000
  78145. else
  78146. pTDefRegMap(@Self)^.&set := $00010000;
  78147. end;
  78148. function TCAN1_C1FIFOINT6.getRXNEMPTYIE : TBits_1; inline;
  78149. begin
  78150. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  78151. end;
  78152. procedure TCAN1_C1FIFOINT6.setRXHALFIE; inline;
  78153. begin
  78154. pTDefRegMap(@Self)^.&set := $00020000;
  78155. end;
  78156. procedure TCAN1_C1FIFOINT6.clearRXHALFIE; inline;
  78157. begin
  78158. pTDefRegMap(@Self)^.clr := $00020000;
  78159. end;
  78160. procedure TCAN1_C1FIFOINT6.setRXHALFIE(thebits : TBits_1); inline;
  78161. begin
  78162. if thebits = 0 then
  78163. pTDefRegMap(@Self)^.clr := $00020000
  78164. else
  78165. pTDefRegMap(@Self)^.&set := $00020000;
  78166. end;
  78167. function TCAN1_C1FIFOINT6.getRXHALFIE : TBits_1; inline;
  78168. begin
  78169. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  78170. end;
  78171. procedure TCAN1_C1FIFOINT6.setRXFULLIE; inline;
  78172. begin
  78173. pTDefRegMap(@Self)^.&set := $00040000;
  78174. end;
  78175. procedure TCAN1_C1FIFOINT6.clearRXFULLIE; inline;
  78176. begin
  78177. pTDefRegMap(@Self)^.clr := $00040000;
  78178. end;
  78179. procedure TCAN1_C1FIFOINT6.setRXFULLIE(thebits : TBits_1); inline;
  78180. begin
  78181. if thebits = 0 then
  78182. pTDefRegMap(@Self)^.clr := $00040000
  78183. else
  78184. pTDefRegMap(@Self)^.&set := $00040000;
  78185. end;
  78186. function TCAN1_C1FIFOINT6.getRXFULLIE : TBits_1; inline;
  78187. begin
  78188. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  78189. end;
  78190. procedure TCAN1_C1FIFOINT6.setRXOVFLIE; inline;
  78191. begin
  78192. pTDefRegMap(@Self)^.&set := $00080000;
  78193. end;
  78194. procedure TCAN1_C1FIFOINT6.clearRXOVFLIE; inline;
  78195. begin
  78196. pTDefRegMap(@Self)^.clr := $00080000;
  78197. end;
  78198. procedure TCAN1_C1FIFOINT6.setRXOVFLIE(thebits : TBits_1); inline;
  78199. begin
  78200. if thebits = 0 then
  78201. pTDefRegMap(@Self)^.clr := $00080000
  78202. else
  78203. pTDefRegMap(@Self)^.&set := $00080000;
  78204. end;
  78205. function TCAN1_C1FIFOINT6.getRXOVFLIE : TBits_1; inline;
  78206. begin
  78207. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  78208. end;
  78209. procedure TCAN1_C1FIFOINT6.setTXEMPTYIE; inline;
  78210. begin
  78211. pTDefRegMap(@Self)^.&set := $01000000;
  78212. end;
  78213. procedure TCAN1_C1FIFOINT6.clearTXEMPTYIE; inline;
  78214. begin
  78215. pTDefRegMap(@Self)^.clr := $01000000;
  78216. end;
  78217. procedure TCAN1_C1FIFOINT6.setTXEMPTYIE(thebits : TBits_1); inline;
  78218. begin
  78219. if thebits = 0 then
  78220. pTDefRegMap(@Self)^.clr := $01000000
  78221. else
  78222. pTDefRegMap(@Self)^.&set := $01000000;
  78223. end;
  78224. function TCAN1_C1FIFOINT6.getTXEMPTYIE : TBits_1; inline;
  78225. begin
  78226. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  78227. end;
  78228. procedure TCAN1_C1FIFOINT6.setTXHALFIE; inline;
  78229. begin
  78230. pTDefRegMap(@Self)^.&set := $02000000;
  78231. end;
  78232. procedure TCAN1_C1FIFOINT6.clearTXHALFIE; inline;
  78233. begin
  78234. pTDefRegMap(@Self)^.clr := $02000000;
  78235. end;
  78236. procedure TCAN1_C1FIFOINT6.setTXHALFIE(thebits : TBits_1); inline;
  78237. begin
  78238. if thebits = 0 then
  78239. pTDefRegMap(@Self)^.clr := $02000000
  78240. else
  78241. pTDefRegMap(@Self)^.&set := $02000000;
  78242. end;
  78243. function TCAN1_C1FIFOINT6.getTXHALFIE : TBits_1; inline;
  78244. begin
  78245. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  78246. end;
  78247. procedure TCAN1_C1FIFOINT6.setTXNFULLIE; inline;
  78248. begin
  78249. pTDefRegMap(@Self)^.&set := $04000000;
  78250. end;
  78251. procedure TCAN1_C1FIFOINT6.clearTXNFULLIE; inline;
  78252. begin
  78253. pTDefRegMap(@Self)^.clr := $04000000;
  78254. end;
  78255. procedure TCAN1_C1FIFOINT6.setTXNFULLIE(thebits : TBits_1); inline;
  78256. begin
  78257. if thebits = 0 then
  78258. pTDefRegMap(@Self)^.clr := $04000000
  78259. else
  78260. pTDefRegMap(@Self)^.&set := $04000000;
  78261. end;
  78262. function TCAN1_C1FIFOINT6.getTXNFULLIE : TBits_1; inline;
  78263. begin
  78264. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  78265. end;
  78266. procedure TCAN1_C1FIFOINT6.setw(thebits : TBits_32); inline;
  78267. begin
  78268. pTDefRegMap(@Self)^.val := thebits;
  78269. end;
  78270. function TCAN1_C1FIFOINT6.getw : TBits_32; inline;
  78271. begin
  78272. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78273. end;
  78274. procedure TCAN1_C1FIFOCI6.setCFIFOCI(thebits : TBits_5); inline;
  78275. begin
  78276. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  78277. end;
  78278. function TCAN1_C1FIFOCI6.getCFIFOCI : TBits_5; inline;
  78279. begin
  78280. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  78281. end;
  78282. procedure TCAN1_C1FIFOCI6.setw(thebits : TBits_32); inline;
  78283. begin
  78284. pTDefRegMap(@Self)^.val := thebits;
  78285. end;
  78286. function TCAN1_C1FIFOCI6.getw : TBits_32; inline;
  78287. begin
  78288. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78289. end;
  78290. procedure TCAN1_C1FIFOCON7.setTXPRI(thebits : TBits_2); inline;
  78291. begin
  78292. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  78293. end;
  78294. function TCAN1_C1FIFOCON7.getTXPRI : TBits_2; inline;
  78295. begin
  78296. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  78297. end;
  78298. procedure TCAN1_C1FIFOCON7.setRTREN; inline;
  78299. begin
  78300. pTDefRegMap(@Self)^.&set := $00000004;
  78301. end;
  78302. procedure TCAN1_C1FIFOCON7.clearRTREN; inline;
  78303. begin
  78304. pTDefRegMap(@Self)^.clr := $00000004;
  78305. end;
  78306. procedure TCAN1_C1FIFOCON7.setRTREN(thebits : TBits_1); inline;
  78307. begin
  78308. if thebits = 0 then
  78309. pTDefRegMap(@Self)^.clr := $00000004
  78310. else
  78311. pTDefRegMap(@Self)^.&set := $00000004;
  78312. end;
  78313. function TCAN1_C1FIFOCON7.getRTREN : TBits_1; inline;
  78314. begin
  78315. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  78316. end;
  78317. procedure TCAN1_C1FIFOCON7.setTXREQ; inline;
  78318. begin
  78319. pTDefRegMap(@Self)^.&set := $00000008;
  78320. end;
  78321. procedure TCAN1_C1FIFOCON7.clearTXREQ; inline;
  78322. begin
  78323. pTDefRegMap(@Self)^.clr := $00000008;
  78324. end;
  78325. procedure TCAN1_C1FIFOCON7.setTXREQ(thebits : TBits_1); inline;
  78326. begin
  78327. if thebits = 0 then
  78328. pTDefRegMap(@Self)^.clr := $00000008
  78329. else
  78330. pTDefRegMap(@Self)^.&set := $00000008;
  78331. end;
  78332. function TCAN1_C1FIFOCON7.getTXREQ : TBits_1; inline;
  78333. begin
  78334. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  78335. end;
  78336. procedure TCAN1_C1FIFOCON7.setTXERR; inline;
  78337. begin
  78338. pTDefRegMap(@Self)^.&set := $00000010;
  78339. end;
  78340. procedure TCAN1_C1FIFOCON7.clearTXERR; inline;
  78341. begin
  78342. pTDefRegMap(@Self)^.clr := $00000010;
  78343. end;
  78344. procedure TCAN1_C1FIFOCON7.setTXERR(thebits : TBits_1); inline;
  78345. begin
  78346. if thebits = 0 then
  78347. pTDefRegMap(@Self)^.clr := $00000010
  78348. else
  78349. pTDefRegMap(@Self)^.&set := $00000010;
  78350. end;
  78351. function TCAN1_C1FIFOCON7.getTXERR : TBits_1; inline;
  78352. begin
  78353. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  78354. end;
  78355. procedure TCAN1_C1FIFOCON7.setTXLARB; inline;
  78356. begin
  78357. pTDefRegMap(@Self)^.&set := $00000020;
  78358. end;
  78359. procedure TCAN1_C1FIFOCON7.clearTXLARB; inline;
  78360. begin
  78361. pTDefRegMap(@Self)^.clr := $00000020;
  78362. end;
  78363. procedure TCAN1_C1FIFOCON7.setTXLARB(thebits : TBits_1); inline;
  78364. begin
  78365. if thebits = 0 then
  78366. pTDefRegMap(@Self)^.clr := $00000020
  78367. else
  78368. pTDefRegMap(@Self)^.&set := $00000020;
  78369. end;
  78370. function TCAN1_C1FIFOCON7.getTXLARB : TBits_1; inline;
  78371. begin
  78372. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  78373. end;
  78374. procedure TCAN1_C1FIFOCON7.setTXABAT; inline;
  78375. begin
  78376. pTDefRegMap(@Self)^.&set := $00000040;
  78377. end;
  78378. procedure TCAN1_C1FIFOCON7.clearTXABAT; inline;
  78379. begin
  78380. pTDefRegMap(@Self)^.clr := $00000040;
  78381. end;
  78382. procedure TCAN1_C1FIFOCON7.setTXABAT(thebits : TBits_1); inline;
  78383. begin
  78384. if thebits = 0 then
  78385. pTDefRegMap(@Self)^.clr := $00000040
  78386. else
  78387. pTDefRegMap(@Self)^.&set := $00000040;
  78388. end;
  78389. function TCAN1_C1FIFOCON7.getTXABAT : TBits_1; inline;
  78390. begin
  78391. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  78392. end;
  78393. procedure TCAN1_C1FIFOCON7.setTXEN; inline;
  78394. begin
  78395. pTDefRegMap(@Self)^.&set := $00000080;
  78396. end;
  78397. procedure TCAN1_C1FIFOCON7.clearTXEN; inline;
  78398. begin
  78399. pTDefRegMap(@Self)^.clr := $00000080;
  78400. end;
  78401. procedure TCAN1_C1FIFOCON7.setTXEN(thebits : TBits_1); inline;
  78402. begin
  78403. if thebits = 0 then
  78404. pTDefRegMap(@Self)^.clr := $00000080
  78405. else
  78406. pTDefRegMap(@Self)^.&set := $00000080;
  78407. end;
  78408. function TCAN1_C1FIFOCON7.getTXEN : TBits_1; inline;
  78409. begin
  78410. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  78411. end;
  78412. procedure TCAN1_C1FIFOCON7.setDONLY; inline;
  78413. begin
  78414. pTDefRegMap(@Self)^.&set := $00001000;
  78415. end;
  78416. procedure TCAN1_C1FIFOCON7.clearDONLY; inline;
  78417. begin
  78418. pTDefRegMap(@Self)^.clr := $00001000;
  78419. end;
  78420. procedure TCAN1_C1FIFOCON7.setDONLY(thebits : TBits_1); inline;
  78421. begin
  78422. if thebits = 0 then
  78423. pTDefRegMap(@Self)^.clr := $00001000
  78424. else
  78425. pTDefRegMap(@Self)^.&set := $00001000;
  78426. end;
  78427. function TCAN1_C1FIFOCON7.getDONLY : TBits_1; inline;
  78428. begin
  78429. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  78430. end;
  78431. procedure TCAN1_C1FIFOCON7.setUINC; inline;
  78432. begin
  78433. pTDefRegMap(@Self)^.&set := $00002000;
  78434. end;
  78435. procedure TCAN1_C1FIFOCON7.clearUINC; inline;
  78436. begin
  78437. pTDefRegMap(@Self)^.clr := $00002000;
  78438. end;
  78439. procedure TCAN1_C1FIFOCON7.setUINC(thebits : TBits_1); inline;
  78440. begin
  78441. if thebits = 0 then
  78442. pTDefRegMap(@Self)^.clr := $00002000
  78443. else
  78444. pTDefRegMap(@Self)^.&set := $00002000;
  78445. end;
  78446. function TCAN1_C1FIFOCON7.getUINC : TBits_1; inline;
  78447. begin
  78448. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  78449. end;
  78450. procedure TCAN1_C1FIFOCON7.setFRESET; inline;
  78451. begin
  78452. pTDefRegMap(@Self)^.&set := $00004000;
  78453. end;
  78454. procedure TCAN1_C1FIFOCON7.clearFRESET; inline;
  78455. begin
  78456. pTDefRegMap(@Self)^.clr := $00004000;
  78457. end;
  78458. procedure TCAN1_C1FIFOCON7.setFRESET(thebits : TBits_1); inline;
  78459. begin
  78460. if thebits = 0 then
  78461. pTDefRegMap(@Self)^.clr := $00004000
  78462. else
  78463. pTDefRegMap(@Self)^.&set := $00004000;
  78464. end;
  78465. function TCAN1_C1FIFOCON7.getFRESET : TBits_1; inline;
  78466. begin
  78467. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  78468. end;
  78469. procedure TCAN1_C1FIFOCON7.setFSIZE(thebits : TBits_5); inline;
  78470. begin
  78471. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  78472. end;
  78473. function TCAN1_C1FIFOCON7.getFSIZE : TBits_5; inline;
  78474. begin
  78475. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  78476. end;
  78477. procedure TCAN1_C1FIFOCON7.setw(thebits : TBits_32); inline;
  78478. begin
  78479. pTDefRegMap(@Self)^.val := thebits;
  78480. end;
  78481. function TCAN1_C1FIFOCON7.getw : TBits_32; inline;
  78482. begin
  78483. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78484. end;
  78485. procedure TCAN1_C1FIFOINT7.setRXNEMPTYIF; inline;
  78486. begin
  78487. pTDefRegMap(@Self)^.&set := $00000001;
  78488. end;
  78489. procedure TCAN1_C1FIFOINT7.clearRXNEMPTYIF; inline;
  78490. begin
  78491. pTDefRegMap(@Self)^.clr := $00000001;
  78492. end;
  78493. procedure TCAN1_C1FIFOINT7.setRXNEMPTYIF(thebits : TBits_1); inline;
  78494. begin
  78495. if thebits = 0 then
  78496. pTDefRegMap(@Self)^.clr := $00000001
  78497. else
  78498. pTDefRegMap(@Self)^.&set := $00000001;
  78499. end;
  78500. function TCAN1_C1FIFOINT7.getRXNEMPTYIF : TBits_1; inline;
  78501. begin
  78502. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  78503. end;
  78504. procedure TCAN1_C1FIFOINT7.setRXHALFIF; inline;
  78505. begin
  78506. pTDefRegMap(@Self)^.&set := $00000002;
  78507. end;
  78508. procedure TCAN1_C1FIFOINT7.clearRXHALFIF; inline;
  78509. begin
  78510. pTDefRegMap(@Self)^.clr := $00000002;
  78511. end;
  78512. procedure TCAN1_C1FIFOINT7.setRXHALFIF(thebits : TBits_1); inline;
  78513. begin
  78514. if thebits = 0 then
  78515. pTDefRegMap(@Self)^.clr := $00000002
  78516. else
  78517. pTDefRegMap(@Self)^.&set := $00000002;
  78518. end;
  78519. function TCAN1_C1FIFOINT7.getRXHALFIF : TBits_1; inline;
  78520. begin
  78521. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  78522. end;
  78523. procedure TCAN1_C1FIFOINT7.setRXFULLIF; inline;
  78524. begin
  78525. pTDefRegMap(@Self)^.&set := $00000004;
  78526. end;
  78527. procedure TCAN1_C1FIFOINT7.clearRXFULLIF; inline;
  78528. begin
  78529. pTDefRegMap(@Self)^.clr := $00000004;
  78530. end;
  78531. procedure TCAN1_C1FIFOINT7.setRXFULLIF(thebits : TBits_1); inline;
  78532. begin
  78533. if thebits = 0 then
  78534. pTDefRegMap(@Self)^.clr := $00000004
  78535. else
  78536. pTDefRegMap(@Self)^.&set := $00000004;
  78537. end;
  78538. function TCAN1_C1FIFOINT7.getRXFULLIF : TBits_1; inline;
  78539. begin
  78540. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  78541. end;
  78542. procedure TCAN1_C1FIFOINT7.setRXOVFLIF; inline;
  78543. begin
  78544. pTDefRegMap(@Self)^.&set := $00000008;
  78545. end;
  78546. procedure TCAN1_C1FIFOINT7.clearRXOVFLIF; inline;
  78547. begin
  78548. pTDefRegMap(@Self)^.clr := $00000008;
  78549. end;
  78550. procedure TCAN1_C1FIFOINT7.setRXOVFLIF(thebits : TBits_1); inline;
  78551. begin
  78552. if thebits = 0 then
  78553. pTDefRegMap(@Self)^.clr := $00000008
  78554. else
  78555. pTDefRegMap(@Self)^.&set := $00000008;
  78556. end;
  78557. function TCAN1_C1FIFOINT7.getRXOVFLIF : TBits_1; inline;
  78558. begin
  78559. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  78560. end;
  78561. procedure TCAN1_C1FIFOINT7.setTXEMPTYIF; inline;
  78562. begin
  78563. pTDefRegMap(@Self)^.&set := $00000100;
  78564. end;
  78565. procedure TCAN1_C1FIFOINT7.clearTXEMPTYIF; inline;
  78566. begin
  78567. pTDefRegMap(@Self)^.clr := $00000100;
  78568. end;
  78569. procedure TCAN1_C1FIFOINT7.setTXEMPTYIF(thebits : TBits_1); inline;
  78570. begin
  78571. if thebits = 0 then
  78572. pTDefRegMap(@Self)^.clr := $00000100
  78573. else
  78574. pTDefRegMap(@Self)^.&set := $00000100;
  78575. end;
  78576. function TCAN1_C1FIFOINT7.getTXEMPTYIF : TBits_1; inline;
  78577. begin
  78578. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  78579. end;
  78580. procedure TCAN1_C1FIFOINT7.setTXHALFIF; inline;
  78581. begin
  78582. pTDefRegMap(@Self)^.&set := $00000200;
  78583. end;
  78584. procedure TCAN1_C1FIFOINT7.clearTXHALFIF; inline;
  78585. begin
  78586. pTDefRegMap(@Self)^.clr := $00000200;
  78587. end;
  78588. procedure TCAN1_C1FIFOINT7.setTXHALFIF(thebits : TBits_1); inline;
  78589. begin
  78590. if thebits = 0 then
  78591. pTDefRegMap(@Self)^.clr := $00000200
  78592. else
  78593. pTDefRegMap(@Self)^.&set := $00000200;
  78594. end;
  78595. function TCAN1_C1FIFOINT7.getTXHALFIF : TBits_1; inline;
  78596. begin
  78597. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  78598. end;
  78599. procedure TCAN1_C1FIFOINT7.setTXNFULLIF; inline;
  78600. begin
  78601. pTDefRegMap(@Self)^.&set := $00000400;
  78602. end;
  78603. procedure TCAN1_C1FIFOINT7.clearTXNFULLIF; inline;
  78604. begin
  78605. pTDefRegMap(@Self)^.clr := $00000400;
  78606. end;
  78607. procedure TCAN1_C1FIFOINT7.setTXNFULLIF(thebits : TBits_1); inline;
  78608. begin
  78609. if thebits = 0 then
  78610. pTDefRegMap(@Self)^.clr := $00000400
  78611. else
  78612. pTDefRegMap(@Self)^.&set := $00000400;
  78613. end;
  78614. function TCAN1_C1FIFOINT7.getTXNFULLIF : TBits_1; inline;
  78615. begin
  78616. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  78617. end;
  78618. procedure TCAN1_C1FIFOINT7.setRXNEMPTYIE; inline;
  78619. begin
  78620. pTDefRegMap(@Self)^.&set := $00010000;
  78621. end;
  78622. procedure TCAN1_C1FIFOINT7.clearRXNEMPTYIE; inline;
  78623. begin
  78624. pTDefRegMap(@Self)^.clr := $00010000;
  78625. end;
  78626. procedure TCAN1_C1FIFOINT7.setRXNEMPTYIE(thebits : TBits_1); inline;
  78627. begin
  78628. if thebits = 0 then
  78629. pTDefRegMap(@Self)^.clr := $00010000
  78630. else
  78631. pTDefRegMap(@Self)^.&set := $00010000;
  78632. end;
  78633. function TCAN1_C1FIFOINT7.getRXNEMPTYIE : TBits_1; inline;
  78634. begin
  78635. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  78636. end;
  78637. procedure TCAN1_C1FIFOINT7.setRXHALFIE; inline;
  78638. begin
  78639. pTDefRegMap(@Self)^.&set := $00020000;
  78640. end;
  78641. procedure TCAN1_C1FIFOINT7.clearRXHALFIE; inline;
  78642. begin
  78643. pTDefRegMap(@Self)^.clr := $00020000;
  78644. end;
  78645. procedure TCAN1_C1FIFOINT7.setRXHALFIE(thebits : TBits_1); inline;
  78646. begin
  78647. if thebits = 0 then
  78648. pTDefRegMap(@Self)^.clr := $00020000
  78649. else
  78650. pTDefRegMap(@Self)^.&set := $00020000;
  78651. end;
  78652. function TCAN1_C1FIFOINT7.getRXHALFIE : TBits_1; inline;
  78653. begin
  78654. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  78655. end;
  78656. procedure TCAN1_C1FIFOINT7.setRXFULLIE; inline;
  78657. begin
  78658. pTDefRegMap(@Self)^.&set := $00040000;
  78659. end;
  78660. procedure TCAN1_C1FIFOINT7.clearRXFULLIE; inline;
  78661. begin
  78662. pTDefRegMap(@Self)^.clr := $00040000;
  78663. end;
  78664. procedure TCAN1_C1FIFOINT7.setRXFULLIE(thebits : TBits_1); inline;
  78665. begin
  78666. if thebits = 0 then
  78667. pTDefRegMap(@Self)^.clr := $00040000
  78668. else
  78669. pTDefRegMap(@Self)^.&set := $00040000;
  78670. end;
  78671. function TCAN1_C1FIFOINT7.getRXFULLIE : TBits_1; inline;
  78672. begin
  78673. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  78674. end;
  78675. procedure TCAN1_C1FIFOINT7.setRXOVFLIE; inline;
  78676. begin
  78677. pTDefRegMap(@Self)^.&set := $00080000;
  78678. end;
  78679. procedure TCAN1_C1FIFOINT7.clearRXOVFLIE; inline;
  78680. begin
  78681. pTDefRegMap(@Self)^.clr := $00080000;
  78682. end;
  78683. procedure TCAN1_C1FIFOINT7.setRXOVFLIE(thebits : TBits_1); inline;
  78684. begin
  78685. if thebits = 0 then
  78686. pTDefRegMap(@Self)^.clr := $00080000
  78687. else
  78688. pTDefRegMap(@Self)^.&set := $00080000;
  78689. end;
  78690. function TCAN1_C1FIFOINT7.getRXOVFLIE : TBits_1; inline;
  78691. begin
  78692. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  78693. end;
  78694. procedure TCAN1_C1FIFOINT7.setTXEMPTYIE; inline;
  78695. begin
  78696. pTDefRegMap(@Self)^.&set := $01000000;
  78697. end;
  78698. procedure TCAN1_C1FIFOINT7.clearTXEMPTYIE; inline;
  78699. begin
  78700. pTDefRegMap(@Self)^.clr := $01000000;
  78701. end;
  78702. procedure TCAN1_C1FIFOINT7.setTXEMPTYIE(thebits : TBits_1); inline;
  78703. begin
  78704. if thebits = 0 then
  78705. pTDefRegMap(@Self)^.clr := $01000000
  78706. else
  78707. pTDefRegMap(@Self)^.&set := $01000000;
  78708. end;
  78709. function TCAN1_C1FIFOINT7.getTXEMPTYIE : TBits_1; inline;
  78710. begin
  78711. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  78712. end;
  78713. procedure TCAN1_C1FIFOINT7.setTXHALFIE; inline;
  78714. begin
  78715. pTDefRegMap(@Self)^.&set := $02000000;
  78716. end;
  78717. procedure TCAN1_C1FIFOINT7.clearTXHALFIE; inline;
  78718. begin
  78719. pTDefRegMap(@Self)^.clr := $02000000;
  78720. end;
  78721. procedure TCAN1_C1FIFOINT7.setTXHALFIE(thebits : TBits_1); inline;
  78722. begin
  78723. if thebits = 0 then
  78724. pTDefRegMap(@Self)^.clr := $02000000
  78725. else
  78726. pTDefRegMap(@Self)^.&set := $02000000;
  78727. end;
  78728. function TCAN1_C1FIFOINT7.getTXHALFIE : TBits_1; inline;
  78729. begin
  78730. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  78731. end;
  78732. procedure TCAN1_C1FIFOINT7.setTXNFULLIE; inline;
  78733. begin
  78734. pTDefRegMap(@Self)^.&set := $04000000;
  78735. end;
  78736. procedure TCAN1_C1FIFOINT7.clearTXNFULLIE; inline;
  78737. begin
  78738. pTDefRegMap(@Self)^.clr := $04000000;
  78739. end;
  78740. procedure TCAN1_C1FIFOINT7.setTXNFULLIE(thebits : TBits_1); inline;
  78741. begin
  78742. if thebits = 0 then
  78743. pTDefRegMap(@Self)^.clr := $04000000
  78744. else
  78745. pTDefRegMap(@Self)^.&set := $04000000;
  78746. end;
  78747. function TCAN1_C1FIFOINT7.getTXNFULLIE : TBits_1; inline;
  78748. begin
  78749. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  78750. end;
  78751. procedure TCAN1_C1FIFOINT7.setw(thebits : TBits_32); inline;
  78752. begin
  78753. pTDefRegMap(@Self)^.val := thebits;
  78754. end;
  78755. function TCAN1_C1FIFOINT7.getw : TBits_32; inline;
  78756. begin
  78757. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78758. end;
  78759. procedure TCAN1_C1FIFOCI7.setCFIFOCI(thebits : TBits_5); inline;
  78760. begin
  78761. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  78762. end;
  78763. function TCAN1_C1FIFOCI7.getCFIFOCI : TBits_5; inline;
  78764. begin
  78765. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  78766. end;
  78767. procedure TCAN1_C1FIFOCI7.setw(thebits : TBits_32); inline;
  78768. begin
  78769. pTDefRegMap(@Self)^.val := thebits;
  78770. end;
  78771. function TCAN1_C1FIFOCI7.getw : TBits_32; inline;
  78772. begin
  78773. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78774. end;
  78775. procedure TCAN1_C1FIFOCON8.setTXPRI(thebits : TBits_2); inline;
  78776. begin
  78777. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  78778. end;
  78779. function TCAN1_C1FIFOCON8.getTXPRI : TBits_2; inline;
  78780. begin
  78781. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  78782. end;
  78783. procedure TCAN1_C1FIFOCON8.setRTREN; inline;
  78784. begin
  78785. pTDefRegMap(@Self)^.&set := $00000004;
  78786. end;
  78787. procedure TCAN1_C1FIFOCON8.clearRTREN; inline;
  78788. begin
  78789. pTDefRegMap(@Self)^.clr := $00000004;
  78790. end;
  78791. procedure TCAN1_C1FIFOCON8.setRTREN(thebits : TBits_1); inline;
  78792. begin
  78793. if thebits = 0 then
  78794. pTDefRegMap(@Self)^.clr := $00000004
  78795. else
  78796. pTDefRegMap(@Self)^.&set := $00000004;
  78797. end;
  78798. function TCAN1_C1FIFOCON8.getRTREN : TBits_1; inline;
  78799. begin
  78800. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  78801. end;
  78802. procedure TCAN1_C1FIFOCON8.setTXREQ; inline;
  78803. begin
  78804. pTDefRegMap(@Self)^.&set := $00000008;
  78805. end;
  78806. procedure TCAN1_C1FIFOCON8.clearTXREQ; inline;
  78807. begin
  78808. pTDefRegMap(@Self)^.clr := $00000008;
  78809. end;
  78810. procedure TCAN1_C1FIFOCON8.setTXREQ(thebits : TBits_1); inline;
  78811. begin
  78812. if thebits = 0 then
  78813. pTDefRegMap(@Self)^.clr := $00000008
  78814. else
  78815. pTDefRegMap(@Self)^.&set := $00000008;
  78816. end;
  78817. function TCAN1_C1FIFOCON8.getTXREQ : TBits_1; inline;
  78818. begin
  78819. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  78820. end;
  78821. procedure TCAN1_C1FIFOCON8.setTXERR; inline;
  78822. begin
  78823. pTDefRegMap(@Self)^.&set := $00000010;
  78824. end;
  78825. procedure TCAN1_C1FIFOCON8.clearTXERR; inline;
  78826. begin
  78827. pTDefRegMap(@Self)^.clr := $00000010;
  78828. end;
  78829. procedure TCAN1_C1FIFOCON8.setTXERR(thebits : TBits_1); inline;
  78830. begin
  78831. if thebits = 0 then
  78832. pTDefRegMap(@Self)^.clr := $00000010
  78833. else
  78834. pTDefRegMap(@Self)^.&set := $00000010;
  78835. end;
  78836. function TCAN1_C1FIFOCON8.getTXERR : TBits_1; inline;
  78837. begin
  78838. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  78839. end;
  78840. procedure TCAN1_C1FIFOCON8.setTXLARB; inline;
  78841. begin
  78842. pTDefRegMap(@Self)^.&set := $00000020;
  78843. end;
  78844. procedure TCAN1_C1FIFOCON8.clearTXLARB; inline;
  78845. begin
  78846. pTDefRegMap(@Self)^.clr := $00000020;
  78847. end;
  78848. procedure TCAN1_C1FIFOCON8.setTXLARB(thebits : TBits_1); inline;
  78849. begin
  78850. if thebits = 0 then
  78851. pTDefRegMap(@Self)^.clr := $00000020
  78852. else
  78853. pTDefRegMap(@Self)^.&set := $00000020;
  78854. end;
  78855. function TCAN1_C1FIFOCON8.getTXLARB : TBits_1; inline;
  78856. begin
  78857. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  78858. end;
  78859. procedure TCAN1_C1FIFOCON8.setTXABAT; inline;
  78860. begin
  78861. pTDefRegMap(@Self)^.&set := $00000040;
  78862. end;
  78863. procedure TCAN1_C1FIFOCON8.clearTXABAT; inline;
  78864. begin
  78865. pTDefRegMap(@Self)^.clr := $00000040;
  78866. end;
  78867. procedure TCAN1_C1FIFOCON8.setTXABAT(thebits : TBits_1); inline;
  78868. begin
  78869. if thebits = 0 then
  78870. pTDefRegMap(@Self)^.clr := $00000040
  78871. else
  78872. pTDefRegMap(@Self)^.&set := $00000040;
  78873. end;
  78874. function TCAN1_C1FIFOCON8.getTXABAT : TBits_1; inline;
  78875. begin
  78876. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  78877. end;
  78878. procedure TCAN1_C1FIFOCON8.setTXEN; inline;
  78879. begin
  78880. pTDefRegMap(@Self)^.&set := $00000080;
  78881. end;
  78882. procedure TCAN1_C1FIFOCON8.clearTXEN; inline;
  78883. begin
  78884. pTDefRegMap(@Self)^.clr := $00000080;
  78885. end;
  78886. procedure TCAN1_C1FIFOCON8.setTXEN(thebits : TBits_1); inline;
  78887. begin
  78888. if thebits = 0 then
  78889. pTDefRegMap(@Self)^.clr := $00000080
  78890. else
  78891. pTDefRegMap(@Self)^.&set := $00000080;
  78892. end;
  78893. function TCAN1_C1FIFOCON8.getTXEN : TBits_1; inline;
  78894. begin
  78895. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  78896. end;
  78897. procedure TCAN1_C1FIFOCON8.setDONLY; inline;
  78898. begin
  78899. pTDefRegMap(@Self)^.&set := $00001000;
  78900. end;
  78901. procedure TCAN1_C1FIFOCON8.clearDONLY; inline;
  78902. begin
  78903. pTDefRegMap(@Self)^.clr := $00001000;
  78904. end;
  78905. procedure TCAN1_C1FIFOCON8.setDONLY(thebits : TBits_1); inline;
  78906. begin
  78907. if thebits = 0 then
  78908. pTDefRegMap(@Self)^.clr := $00001000
  78909. else
  78910. pTDefRegMap(@Self)^.&set := $00001000;
  78911. end;
  78912. function TCAN1_C1FIFOCON8.getDONLY : TBits_1; inline;
  78913. begin
  78914. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  78915. end;
  78916. procedure TCAN1_C1FIFOCON8.setUINC; inline;
  78917. begin
  78918. pTDefRegMap(@Self)^.&set := $00002000;
  78919. end;
  78920. procedure TCAN1_C1FIFOCON8.clearUINC; inline;
  78921. begin
  78922. pTDefRegMap(@Self)^.clr := $00002000;
  78923. end;
  78924. procedure TCAN1_C1FIFOCON8.setUINC(thebits : TBits_1); inline;
  78925. begin
  78926. if thebits = 0 then
  78927. pTDefRegMap(@Self)^.clr := $00002000
  78928. else
  78929. pTDefRegMap(@Self)^.&set := $00002000;
  78930. end;
  78931. function TCAN1_C1FIFOCON8.getUINC : TBits_1; inline;
  78932. begin
  78933. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  78934. end;
  78935. procedure TCAN1_C1FIFOCON8.setFRESET; inline;
  78936. begin
  78937. pTDefRegMap(@Self)^.&set := $00004000;
  78938. end;
  78939. procedure TCAN1_C1FIFOCON8.clearFRESET; inline;
  78940. begin
  78941. pTDefRegMap(@Self)^.clr := $00004000;
  78942. end;
  78943. procedure TCAN1_C1FIFOCON8.setFRESET(thebits : TBits_1); inline;
  78944. begin
  78945. if thebits = 0 then
  78946. pTDefRegMap(@Self)^.clr := $00004000
  78947. else
  78948. pTDefRegMap(@Self)^.&set := $00004000;
  78949. end;
  78950. function TCAN1_C1FIFOCON8.getFRESET : TBits_1; inline;
  78951. begin
  78952. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  78953. end;
  78954. procedure TCAN1_C1FIFOCON8.setFSIZE(thebits : TBits_5); inline;
  78955. begin
  78956. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  78957. end;
  78958. function TCAN1_C1FIFOCON8.getFSIZE : TBits_5; inline;
  78959. begin
  78960. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  78961. end;
  78962. procedure TCAN1_C1FIFOCON8.setw(thebits : TBits_32); inline;
  78963. begin
  78964. pTDefRegMap(@Self)^.val := thebits;
  78965. end;
  78966. function TCAN1_C1FIFOCON8.getw : TBits_32; inline;
  78967. begin
  78968. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78969. end;
  78970. procedure TCAN1_C1FIFOINT8.setRXNEMPTYIF; inline;
  78971. begin
  78972. pTDefRegMap(@Self)^.&set := $00000001;
  78973. end;
  78974. procedure TCAN1_C1FIFOINT8.clearRXNEMPTYIF; inline;
  78975. begin
  78976. pTDefRegMap(@Self)^.clr := $00000001;
  78977. end;
  78978. procedure TCAN1_C1FIFOINT8.setRXNEMPTYIF(thebits : TBits_1); inline;
  78979. begin
  78980. if thebits = 0 then
  78981. pTDefRegMap(@Self)^.clr := $00000001
  78982. else
  78983. pTDefRegMap(@Self)^.&set := $00000001;
  78984. end;
  78985. function TCAN1_C1FIFOINT8.getRXNEMPTYIF : TBits_1; inline;
  78986. begin
  78987. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  78988. end;
  78989. procedure TCAN1_C1FIFOINT8.setRXHALFIF; inline;
  78990. begin
  78991. pTDefRegMap(@Self)^.&set := $00000002;
  78992. end;
  78993. procedure TCAN1_C1FIFOINT8.clearRXHALFIF; inline;
  78994. begin
  78995. pTDefRegMap(@Self)^.clr := $00000002;
  78996. end;
  78997. procedure TCAN1_C1FIFOINT8.setRXHALFIF(thebits : TBits_1); inline;
  78998. begin
  78999. if thebits = 0 then
  79000. pTDefRegMap(@Self)^.clr := $00000002
  79001. else
  79002. pTDefRegMap(@Self)^.&set := $00000002;
  79003. end;
  79004. function TCAN1_C1FIFOINT8.getRXHALFIF : TBits_1; inline;
  79005. begin
  79006. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  79007. end;
  79008. procedure TCAN1_C1FIFOINT8.setRXFULLIF; inline;
  79009. begin
  79010. pTDefRegMap(@Self)^.&set := $00000004;
  79011. end;
  79012. procedure TCAN1_C1FIFOINT8.clearRXFULLIF; inline;
  79013. begin
  79014. pTDefRegMap(@Self)^.clr := $00000004;
  79015. end;
  79016. procedure TCAN1_C1FIFOINT8.setRXFULLIF(thebits : TBits_1); inline;
  79017. begin
  79018. if thebits = 0 then
  79019. pTDefRegMap(@Self)^.clr := $00000004
  79020. else
  79021. pTDefRegMap(@Self)^.&set := $00000004;
  79022. end;
  79023. function TCAN1_C1FIFOINT8.getRXFULLIF : TBits_1; inline;
  79024. begin
  79025. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  79026. end;
  79027. procedure TCAN1_C1FIFOINT8.setRXOVFLIF; inline;
  79028. begin
  79029. pTDefRegMap(@Self)^.&set := $00000008;
  79030. end;
  79031. procedure TCAN1_C1FIFOINT8.clearRXOVFLIF; inline;
  79032. begin
  79033. pTDefRegMap(@Self)^.clr := $00000008;
  79034. end;
  79035. procedure TCAN1_C1FIFOINT8.setRXOVFLIF(thebits : TBits_1); inline;
  79036. begin
  79037. if thebits = 0 then
  79038. pTDefRegMap(@Self)^.clr := $00000008
  79039. else
  79040. pTDefRegMap(@Self)^.&set := $00000008;
  79041. end;
  79042. function TCAN1_C1FIFOINT8.getRXOVFLIF : TBits_1; inline;
  79043. begin
  79044. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  79045. end;
  79046. procedure TCAN1_C1FIFOINT8.setTXEMPTYIF; inline;
  79047. begin
  79048. pTDefRegMap(@Self)^.&set := $00000100;
  79049. end;
  79050. procedure TCAN1_C1FIFOINT8.clearTXEMPTYIF; inline;
  79051. begin
  79052. pTDefRegMap(@Self)^.clr := $00000100;
  79053. end;
  79054. procedure TCAN1_C1FIFOINT8.setTXEMPTYIF(thebits : TBits_1); inline;
  79055. begin
  79056. if thebits = 0 then
  79057. pTDefRegMap(@Self)^.clr := $00000100
  79058. else
  79059. pTDefRegMap(@Self)^.&set := $00000100;
  79060. end;
  79061. function TCAN1_C1FIFOINT8.getTXEMPTYIF : TBits_1; inline;
  79062. begin
  79063. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  79064. end;
  79065. procedure TCAN1_C1FIFOINT8.setTXHALFIF; inline;
  79066. begin
  79067. pTDefRegMap(@Self)^.&set := $00000200;
  79068. end;
  79069. procedure TCAN1_C1FIFOINT8.clearTXHALFIF; inline;
  79070. begin
  79071. pTDefRegMap(@Self)^.clr := $00000200;
  79072. end;
  79073. procedure TCAN1_C1FIFOINT8.setTXHALFIF(thebits : TBits_1); inline;
  79074. begin
  79075. if thebits = 0 then
  79076. pTDefRegMap(@Self)^.clr := $00000200
  79077. else
  79078. pTDefRegMap(@Self)^.&set := $00000200;
  79079. end;
  79080. function TCAN1_C1FIFOINT8.getTXHALFIF : TBits_1; inline;
  79081. begin
  79082. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  79083. end;
  79084. procedure TCAN1_C1FIFOINT8.setTXNFULLIF; inline;
  79085. begin
  79086. pTDefRegMap(@Self)^.&set := $00000400;
  79087. end;
  79088. procedure TCAN1_C1FIFOINT8.clearTXNFULLIF; inline;
  79089. begin
  79090. pTDefRegMap(@Self)^.clr := $00000400;
  79091. end;
  79092. procedure TCAN1_C1FIFOINT8.setTXNFULLIF(thebits : TBits_1); inline;
  79093. begin
  79094. if thebits = 0 then
  79095. pTDefRegMap(@Self)^.clr := $00000400
  79096. else
  79097. pTDefRegMap(@Self)^.&set := $00000400;
  79098. end;
  79099. function TCAN1_C1FIFOINT8.getTXNFULLIF : TBits_1; inline;
  79100. begin
  79101. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  79102. end;
  79103. procedure TCAN1_C1FIFOINT8.setRXNEMPTYIE; inline;
  79104. begin
  79105. pTDefRegMap(@Self)^.&set := $00010000;
  79106. end;
  79107. procedure TCAN1_C1FIFOINT8.clearRXNEMPTYIE; inline;
  79108. begin
  79109. pTDefRegMap(@Self)^.clr := $00010000;
  79110. end;
  79111. procedure TCAN1_C1FIFOINT8.setRXNEMPTYIE(thebits : TBits_1); inline;
  79112. begin
  79113. if thebits = 0 then
  79114. pTDefRegMap(@Self)^.clr := $00010000
  79115. else
  79116. pTDefRegMap(@Self)^.&set := $00010000;
  79117. end;
  79118. function TCAN1_C1FIFOINT8.getRXNEMPTYIE : TBits_1; inline;
  79119. begin
  79120. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  79121. end;
  79122. procedure TCAN1_C1FIFOINT8.setRXHALFIE; inline;
  79123. begin
  79124. pTDefRegMap(@Self)^.&set := $00020000;
  79125. end;
  79126. procedure TCAN1_C1FIFOINT8.clearRXHALFIE; inline;
  79127. begin
  79128. pTDefRegMap(@Self)^.clr := $00020000;
  79129. end;
  79130. procedure TCAN1_C1FIFOINT8.setRXHALFIE(thebits : TBits_1); inline;
  79131. begin
  79132. if thebits = 0 then
  79133. pTDefRegMap(@Self)^.clr := $00020000
  79134. else
  79135. pTDefRegMap(@Self)^.&set := $00020000;
  79136. end;
  79137. function TCAN1_C1FIFOINT8.getRXHALFIE : TBits_1; inline;
  79138. begin
  79139. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  79140. end;
  79141. procedure TCAN1_C1FIFOINT8.setRXFULLIE; inline;
  79142. begin
  79143. pTDefRegMap(@Self)^.&set := $00040000;
  79144. end;
  79145. procedure TCAN1_C1FIFOINT8.clearRXFULLIE; inline;
  79146. begin
  79147. pTDefRegMap(@Self)^.clr := $00040000;
  79148. end;
  79149. procedure TCAN1_C1FIFOINT8.setRXFULLIE(thebits : TBits_1); inline;
  79150. begin
  79151. if thebits = 0 then
  79152. pTDefRegMap(@Self)^.clr := $00040000
  79153. else
  79154. pTDefRegMap(@Self)^.&set := $00040000;
  79155. end;
  79156. function TCAN1_C1FIFOINT8.getRXFULLIE : TBits_1; inline;
  79157. begin
  79158. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  79159. end;
  79160. procedure TCAN1_C1FIFOINT8.setRXOVFLIE; inline;
  79161. begin
  79162. pTDefRegMap(@Self)^.&set := $00080000;
  79163. end;
  79164. procedure TCAN1_C1FIFOINT8.clearRXOVFLIE; inline;
  79165. begin
  79166. pTDefRegMap(@Self)^.clr := $00080000;
  79167. end;
  79168. procedure TCAN1_C1FIFOINT8.setRXOVFLIE(thebits : TBits_1); inline;
  79169. begin
  79170. if thebits = 0 then
  79171. pTDefRegMap(@Self)^.clr := $00080000
  79172. else
  79173. pTDefRegMap(@Self)^.&set := $00080000;
  79174. end;
  79175. function TCAN1_C1FIFOINT8.getRXOVFLIE : TBits_1; inline;
  79176. begin
  79177. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  79178. end;
  79179. procedure TCAN1_C1FIFOINT8.setTXEMPTYIE; inline;
  79180. begin
  79181. pTDefRegMap(@Self)^.&set := $01000000;
  79182. end;
  79183. procedure TCAN1_C1FIFOINT8.clearTXEMPTYIE; inline;
  79184. begin
  79185. pTDefRegMap(@Self)^.clr := $01000000;
  79186. end;
  79187. procedure TCAN1_C1FIFOINT8.setTXEMPTYIE(thebits : TBits_1); inline;
  79188. begin
  79189. if thebits = 0 then
  79190. pTDefRegMap(@Self)^.clr := $01000000
  79191. else
  79192. pTDefRegMap(@Self)^.&set := $01000000;
  79193. end;
  79194. function TCAN1_C1FIFOINT8.getTXEMPTYIE : TBits_1; inline;
  79195. begin
  79196. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  79197. end;
  79198. procedure TCAN1_C1FIFOINT8.setTXHALFIE; inline;
  79199. begin
  79200. pTDefRegMap(@Self)^.&set := $02000000;
  79201. end;
  79202. procedure TCAN1_C1FIFOINT8.clearTXHALFIE; inline;
  79203. begin
  79204. pTDefRegMap(@Self)^.clr := $02000000;
  79205. end;
  79206. procedure TCAN1_C1FIFOINT8.setTXHALFIE(thebits : TBits_1); inline;
  79207. begin
  79208. if thebits = 0 then
  79209. pTDefRegMap(@Self)^.clr := $02000000
  79210. else
  79211. pTDefRegMap(@Self)^.&set := $02000000;
  79212. end;
  79213. function TCAN1_C1FIFOINT8.getTXHALFIE : TBits_1; inline;
  79214. begin
  79215. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  79216. end;
  79217. procedure TCAN1_C1FIFOINT8.setTXNFULLIE; inline;
  79218. begin
  79219. pTDefRegMap(@Self)^.&set := $04000000;
  79220. end;
  79221. procedure TCAN1_C1FIFOINT8.clearTXNFULLIE; inline;
  79222. begin
  79223. pTDefRegMap(@Self)^.clr := $04000000;
  79224. end;
  79225. procedure TCAN1_C1FIFOINT8.setTXNFULLIE(thebits : TBits_1); inline;
  79226. begin
  79227. if thebits = 0 then
  79228. pTDefRegMap(@Self)^.clr := $04000000
  79229. else
  79230. pTDefRegMap(@Self)^.&set := $04000000;
  79231. end;
  79232. function TCAN1_C1FIFOINT8.getTXNFULLIE : TBits_1; inline;
  79233. begin
  79234. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  79235. end;
  79236. procedure TCAN1_C1FIFOINT8.setw(thebits : TBits_32); inline;
  79237. begin
  79238. pTDefRegMap(@Self)^.val := thebits;
  79239. end;
  79240. function TCAN1_C1FIFOINT8.getw : TBits_32; inline;
  79241. begin
  79242. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79243. end;
  79244. procedure TCAN1_C1FIFOCI8.setCFIFOCI(thebits : TBits_5); inline;
  79245. begin
  79246. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  79247. end;
  79248. function TCAN1_C1FIFOCI8.getCFIFOCI : TBits_5; inline;
  79249. begin
  79250. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  79251. end;
  79252. procedure TCAN1_C1FIFOCI8.setw(thebits : TBits_32); inline;
  79253. begin
  79254. pTDefRegMap(@Self)^.val := thebits;
  79255. end;
  79256. function TCAN1_C1FIFOCI8.getw : TBits_32; inline;
  79257. begin
  79258. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79259. end;
  79260. procedure TCAN1_C1FIFOCON9.setTXPRI(thebits : TBits_2); inline;
  79261. begin
  79262. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  79263. end;
  79264. function TCAN1_C1FIFOCON9.getTXPRI : TBits_2; inline;
  79265. begin
  79266. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  79267. end;
  79268. procedure TCAN1_C1FIFOCON9.setRTREN; inline;
  79269. begin
  79270. pTDefRegMap(@Self)^.&set := $00000004;
  79271. end;
  79272. procedure TCAN1_C1FIFOCON9.clearRTREN; inline;
  79273. begin
  79274. pTDefRegMap(@Self)^.clr := $00000004;
  79275. end;
  79276. procedure TCAN1_C1FIFOCON9.setRTREN(thebits : TBits_1); inline;
  79277. begin
  79278. if thebits = 0 then
  79279. pTDefRegMap(@Self)^.clr := $00000004
  79280. else
  79281. pTDefRegMap(@Self)^.&set := $00000004;
  79282. end;
  79283. function TCAN1_C1FIFOCON9.getRTREN : TBits_1; inline;
  79284. begin
  79285. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  79286. end;
  79287. procedure TCAN1_C1FIFOCON9.setTXREQ; inline;
  79288. begin
  79289. pTDefRegMap(@Self)^.&set := $00000008;
  79290. end;
  79291. procedure TCAN1_C1FIFOCON9.clearTXREQ; inline;
  79292. begin
  79293. pTDefRegMap(@Self)^.clr := $00000008;
  79294. end;
  79295. procedure TCAN1_C1FIFOCON9.setTXREQ(thebits : TBits_1); inline;
  79296. begin
  79297. if thebits = 0 then
  79298. pTDefRegMap(@Self)^.clr := $00000008
  79299. else
  79300. pTDefRegMap(@Self)^.&set := $00000008;
  79301. end;
  79302. function TCAN1_C1FIFOCON9.getTXREQ : TBits_1; inline;
  79303. begin
  79304. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  79305. end;
  79306. procedure TCAN1_C1FIFOCON9.setTXERR; inline;
  79307. begin
  79308. pTDefRegMap(@Self)^.&set := $00000010;
  79309. end;
  79310. procedure TCAN1_C1FIFOCON9.clearTXERR; inline;
  79311. begin
  79312. pTDefRegMap(@Self)^.clr := $00000010;
  79313. end;
  79314. procedure TCAN1_C1FIFOCON9.setTXERR(thebits : TBits_1); inline;
  79315. begin
  79316. if thebits = 0 then
  79317. pTDefRegMap(@Self)^.clr := $00000010
  79318. else
  79319. pTDefRegMap(@Self)^.&set := $00000010;
  79320. end;
  79321. function TCAN1_C1FIFOCON9.getTXERR : TBits_1; inline;
  79322. begin
  79323. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  79324. end;
  79325. procedure TCAN1_C1FIFOCON9.setTXLARB; inline;
  79326. begin
  79327. pTDefRegMap(@Self)^.&set := $00000020;
  79328. end;
  79329. procedure TCAN1_C1FIFOCON9.clearTXLARB; inline;
  79330. begin
  79331. pTDefRegMap(@Self)^.clr := $00000020;
  79332. end;
  79333. procedure TCAN1_C1FIFOCON9.setTXLARB(thebits : TBits_1); inline;
  79334. begin
  79335. if thebits = 0 then
  79336. pTDefRegMap(@Self)^.clr := $00000020
  79337. else
  79338. pTDefRegMap(@Self)^.&set := $00000020;
  79339. end;
  79340. function TCAN1_C1FIFOCON9.getTXLARB : TBits_1; inline;
  79341. begin
  79342. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  79343. end;
  79344. procedure TCAN1_C1FIFOCON9.setTXABAT; inline;
  79345. begin
  79346. pTDefRegMap(@Self)^.&set := $00000040;
  79347. end;
  79348. procedure TCAN1_C1FIFOCON9.clearTXABAT; inline;
  79349. begin
  79350. pTDefRegMap(@Self)^.clr := $00000040;
  79351. end;
  79352. procedure TCAN1_C1FIFOCON9.setTXABAT(thebits : TBits_1); inline;
  79353. begin
  79354. if thebits = 0 then
  79355. pTDefRegMap(@Self)^.clr := $00000040
  79356. else
  79357. pTDefRegMap(@Self)^.&set := $00000040;
  79358. end;
  79359. function TCAN1_C1FIFOCON9.getTXABAT : TBits_1; inline;
  79360. begin
  79361. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  79362. end;
  79363. procedure TCAN1_C1FIFOCON9.setTXEN; inline;
  79364. begin
  79365. pTDefRegMap(@Self)^.&set := $00000080;
  79366. end;
  79367. procedure TCAN1_C1FIFOCON9.clearTXEN; inline;
  79368. begin
  79369. pTDefRegMap(@Self)^.clr := $00000080;
  79370. end;
  79371. procedure TCAN1_C1FIFOCON9.setTXEN(thebits : TBits_1); inline;
  79372. begin
  79373. if thebits = 0 then
  79374. pTDefRegMap(@Self)^.clr := $00000080
  79375. else
  79376. pTDefRegMap(@Self)^.&set := $00000080;
  79377. end;
  79378. function TCAN1_C1FIFOCON9.getTXEN : TBits_1; inline;
  79379. begin
  79380. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  79381. end;
  79382. procedure TCAN1_C1FIFOCON9.setDONLY; inline;
  79383. begin
  79384. pTDefRegMap(@Self)^.&set := $00001000;
  79385. end;
  79386. procedure TCAN1_C1FIFOCON9.clearDONLY; inline;
  79387. begin
  79388. pTDefRegMap(@Self)^.clr := $00001000;
  79389. end;
  79390. procedure TCAN1_C1FIFOCON9.setDONLY(thebits : TBits_1); inline;
  79391. begin
  79392. if thebits = 0 then
  79393. pTDefRegMap(@Self)^.clr := $00001000
  79394. else
  79395. pTDefRegMap(@Self)^.&set := $00001000;
  79396. end;
  79397. function TCAN1_C1FIFOCON9.getDONLY : TBits_1; inline;
  79398. begin
  79399. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  79400. end;
  79401. procedure TCAN1_C1FIFOCON9.setUINC; inline;
  79402. begin
  79403. pTDefRegMap(@Self)^.&set := $00002000;
  79404. end;
  79405. procedure TCAN1_C1FIFOCON9.clearUINC; inline;
  79406. begin
  79407. pTDefRegMap(@Self)^.clr := $00002000;
  79408. end;
  79409. procedure TCAN1_C1FIFOCON9.setUINC(thebits : TBits_1); inline;
  79410. begin
  79411. if thebits = 0 then
  79412. pTDefRegMap(@Self)^.clr := $00002000
  79413. else
  79414. pTDefRegMap(@Self)^.&set := $00002000;
  79415. end;
  79416. function TCAN1_C1FIFOCON9.getUINC : TBits_1; inline;
  79417. begin
  79418. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  79419. end;
  79420. procedure TCAN1_C1FIFOCON9.setFRESET; inline;
  79421. begin
  79422. pTDefRegMap(@Self)^.&set := $00004000;
  79423. end;
  79424. procedure TCAN1_C1FIFOCON9.clearFRESET; inline;
  79425. begin
  79426. pTDefRegMap(@Self)^.clr := $00004000;
  79427. end;
  79428. procedure TCAN1_C1FIFOCON9.setFRESET(thebits : TBits_1); inline;
  79429. begin
  79430. if thebits = 0 then
  79431. pTDefRegMap(@Self)^.clr := $00004000
  79432. else
  79433. pTDefRegMap(@Self)^.&set := $00004000;
  79434. end;
  79435. function TCAN1_C1FIFOCON9.getFRESET : TBits_1; inline;
  79436. begin
  79437. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  79438. end;
  79439. procedure TCAN1_C1FIFOCON9.setFSIZE(thebits : TBits_5); inline;
  79440. begin
  79441. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  79442. end;
  79443. function TCAN1_C1FIFOCON9.getFSIZE : TBits_5; inline;
  79444. begin
  79445. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  79446. end;
  79447. procedure TCAN1_C1FIFOCON9.setw(thebits : TBits_32); inline;
  79448. begin
  79449. pTDefRegMap(@Self)^.val := thebits;
  79450. end;
  79451. function TCAN1_C1FIFOCON9.getw : TBits_32; inline;
  79452. begin
  79453. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79454. end;
  79455. procedure TCAN1_C1FIFOINT9.setRXNEMPTYIF; inline;
  79456. begin
  79457. pTDefRegMap(@Self)^.&set := $00000001;
  79458. end;
  79459. procedure TCAN1_C1FIFOINT9.clearRXNEMPTYIF; inline;
  79460. begin
  79461. pTDefRegMap(@Self)^.clr := $00000001;
  79462. end;
  79463. procedure TCAN1_C1FIFOINT9.setRXNEMPTYIF(thebits : TBits_1); inline;
  79464. begin
  79465. if thebits = 0 then
  79466. pTDefRegMap(@Self)^.clr := $00000001
  79467. else
  79468. pTDefRegMap(@Self)^.&set := $00000001;
  79469. end;
  79470. function TCAN1_C1FIFOINT9.getRXNEMPTYIF : TBits_1; inline;
  79471. begin
  79472. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  79473. end;
  79474. procedure TCAN1_C1FIFOINT9.setRXHALFIF; inline;
  79475. begin
  79476. pTDefRegMap(@Self)^.&set := $00000002;
  79477. end;
  79478. procedure TCAN1_C1FIFOINT9.clearRXHALFIF; inline;
  79479. begin
  79480. pTDefRegMap(@Self)^.clr := $00000002;
  79481. end;
  79482. procedure TCAN1_C1FIFOINT9.setRXHALFIF(thebits : TBits_1); inline;
  79483. begin
  79484. if thebits = 0 then
  79485. pTDefRegMap(@Self)^.clr := $00000002
  79486. else
  79487. pTDefRegMap(@Self)^.&set := $00000002;
  79488. end;
  79489. function TCAN1_C1FIFOINT9.getRXHALFIF : TBits_1; inline;
  79490. begin
  79491. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  79492. end;
  79493. procedure TCAN1_C1FIFOINT9.setRXFULLIF; inline;
  79494. begin
  79495. pTDefRegMap(@Self)^.&set := $00000004;
  79496. end;
  79497. procedure TCAN1_C1FIFOINT9.clearRXFULLIF; inline;
  79498. begin
  79499. pTDefRegMap(@Self)^.clr := $00000004;
  79500. end;
  79501. procedure TCAN1_C1FIFOINT9.setRXFULLIF(thebits : TBits_1); inline;
  79502. begin
  79503. if thebits = 0 then
  79504. pTDefRegMap(@Self)^.clr := $00000004
  79505. else
  79506. pTDefRegMap(@Self)^.&set := $00000004;
  79507. end;
  79508. function TCAN1_C1FIFOINT9.getRXFULLIF : TBits_1; inline;
  79509. begin
  79510. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  79511. end;
  79512. procedure TCAN1_C1FIFOINT9.setRXOVFLIF; inline;
  79513. begin
  79514. pTDefRegMap(@Self)^.&set := $00000008;
  79515. end;
  79516. procedure TCAN1_C1FIFOINT9.clearRXOVFLIF; inline;
  79517. begin
  79518. pTDefRegMap(@Self)^.clr := $00000008;
  79519. end;
  79520. procedure TCAN1_C1FIFOINT9.setRXOVFLIF(thebits : TBits_1); inline;
  79521. begin
  79522. if thebits = 0 then
  79523. pTDefRegMap(@Self)^.clr := $00000008
  79524. else
  79525. pTDefRegMap(@Self)^.&set := $00000008;
  79526. end;
  79527. function TCAN1_C1FIFOINT9.getRXOVFLIF : TBits_1; inline;
  79528. begin
  79529. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  79530. end;
  79531. procedure TCAN1_C1FIFOINT9.setTXEMPTYIF; inline;
  79532. begin
  79533. pTDefRegMap(@Self)^.&set := $00000100;
  79534. end;
  79535. procedure TCAN1_C1FIFOINT9.clearTXEMPTYIF; inline;
  79536. begin
  79537. pTDefRegMap(@Self)^.clr := $00000100;
  79538. end;
  79539. procedure TCAN1_C1FIFOINT9.setTXEMPTYIF(thebits : TBits_1); inline;
  79540. begin
  79541. if thebits = 0 then
  79542. pTDefRegMap(@Self)^.clr := $00000100
  79543. else
  79544. pTDefRegMap(@Self)^.&set := $00000100;
  79545. end;
  79546. function TCAN1_C1FIFOINT9.getTXEMPTYIF : TBits_1; inline;
  79547. begin
  79548. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  79549. end;
  79550. procedure TCAN1_C1FIFOINT9.setTXHALFIF; inline;
  79551. begin
  79552. pTDefRegMap(@Self)^.&set := $00000200;
  79553. end;
  79554. procedure TCAN1_C1FIFOINT9.clearTXHALFIF; inline;
  79555. begin
  79556. pTDefRegMap(@Self)^.clr := $00000200;
  79557. end;
  79558. procedure TCAN1_C1FIFOINT9.setTXHALFIF(thebits : TBits_1); inline;
  79559. begin
  79560. if thebits = 0 then
  79561. pTDefRegMap(@Self)^.clr := $00000200
  79562. else
  79563. pTDefRegMap(@Self)^.&set := $00000200;
  79564. end;
  79565. function TCAN1_C1FIFOINT9.getTXHALFIF : TBits_1; inline;
  79566. begin
  79567. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  79568. end;
  79569. procedure TCAN1_C1FIFOINT9.setTXNFULLIF; inline;
  79570. begin
  79571. pTDefRegMap(@Self)^.&set := $00000400;
  79572. end;
  79573. procedure TCAN1_C1FIFOINT9.clearTXNFULLIF; inline;
  79574. begin
  79575. pTDefRegMap(@Self)^.clr := $00000400;
  79576. end;
  79577. procedure TCAN1_C1FIFOINT9.setTXNFULLIF(thebits : TBits_1); inline;
  79578. begin
  79579. if thebits = 0 then
  79580. pTDefRegMap(@Self)^.clr := $00000400
  79581. else
  79582. pTDefRegMap(@Self)^.&set := $00000400;
  79583. end;
  79584. function TCAN1_C1FIFOINT9.getTXNFULLIF : TBits_1; inline;
  79585. begin
  79586. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  79587. end;
  79588. procedure TCAN1_C1FIFOINT9.setRXNEMPTYIE; inline;
  79589. begin
  79590. pTDefRegMap(@Self)^.&set := $00010000;
  79591. end;
  79592. procedure TCAN1_C1FIFOINT9.clearRXNEMPTYIE; inline;
  79593. begin
  79594. pTDefRegMap(@Self)^.clr := $00010000;
  79595. end;
  79596. procedure TCAN1_C1FIFOINT9.setRXNEMPTYIE(thebits : TBits_1); inline;
  79597. begin
  79598. if thebits = 0 then
  79599. pTDefRegMap(@Self)^.clr := $00010000
  79600. else
  79601. pTDefRegMap(@Self)^.&set := $00010000;
  79602. end;
  79603. function TCAN1_C1FIFOINT9.getRXNEMPTYIE : TBits_1; inline;
  79604. begin
  79605. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  79606. end;
  79607. procedure TCAN1_C1FIFOINT9.setRXHALFIE; inline;
  79608. begin
  79609. pTDefRegMap(@Self)^.&set := $00020000;
  79610. end;
  79611. procedure TCAN1_C1FIFOINT9.clearRXHALFIE; inline;
  79612. begin
  79613. pTDefRegMap(@Self)^.clr := $00020000;
  79614. end;
  79615. procedure TCAN1_C1FIFOINT9.setRXHALFIE(thebits : TBits_1); inline;
  79616. begin
  79617. if thebits = 0 then
  79618. pTDefRegMap(@Self)^.clr := $00020000
  79619. else
  79620. pTDefRegMap(@Self)^.&set := $00020000;
  79621. end;
  79622. function TCAN1_C1FIFOINT9.getRXHALFIE : TBits_1; inline;
  79623. begin
  79624. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  79625. end;
  79626. procedure TCAN1_C1FIFOINT9.setRXFULLIE; inline;
  79627. begin
  79628. pTDefRegMap(@Self)^.&set := $00040000;
  79629. end;
  79630. procedure TCAN1_C1FIFOINT9.clearRXFULLIE; inline;
  79631. begin
  79632. pTDefRegMap(@Self)^.clr := $00040000;
  79633. end;
  79634. procedure TCAN1_C1FIFOINT9.setRXFULLIE(thebits : TBits_1); inline;
  79635. begin
  79636. if thebits = 0 then
  79637. pTDefRegMap(@Self)^.clr := $00040000
  79638. else
  79639. pTDefRegMap(@Self)^.&set := $00040000;
  79640. end;
  79641. function TCAN1_C1FIFOINT9.getRXFULLIE : TBits_1; inline;
  79642. begin
  79643. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  79644. end;
  79645. procedure TCAN1_C1FIFOINT9.setRXOVFLIE; inline;
  79646. begin
  79647. pTDefRegMap(@Self)^.&set := $00080000;
  79648. end;
  79649. procedure TCAN1_C1FIFOINT9.clearRXOVFLIE; inline;
  79650. begin
  79651. pTDefRegMap(@Self)^.clr := $00080000;
  79652. end;
  79653. procedure TCAN1_C1FIFOINT9.setRXOVFLIE(thebits : TBits_1); inline;
  79654. begin
  79655. if thebits = 0 then
  79656. pTDefRegMap(@Self)^.clr := $00080000
  79657. else
  79658. pTDefRegMap(@Self)^.&set := $00080000;
  79659. end;
  79660. function TCAN1_C1FIFOINT9.getRXOVFLIE : TBits_1; inline;
  79661. begin
  79662. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  79663. end;
  79664. procedure TCAN1_C1FIFOINT9.setTXEMPTYIE; inline;
  79665. begin
  79666. pTDefRegMap(@Self)^.&set := $01000000;
  79667. end;
  79668. procedure TCAN1_C1FIFOINT9.clearTXEMPTYIE; inline;
  79669. begin
  79670. pTDefRegMap(@Self)^.clr := $01000000;
  79671. end;
  79672. procedure TCAN1_C1FIFOINT9.setTXEMPTYIE(thebits : TBits_1); inline;
  79673. begin
  79674. if thebits = 0 then
  79675. pTDefRegMap(@Self)^.clr := $01000000
  79676. else
  79677. pTDefRegMap(@Self)^.&set := $01000000;
  79678. end;
  79679. function TCAN1_C1FIFOINT9.getTXEMPTYIE : TBits_1; inline;
  79680. begin
  79681. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  79682. end;
  79683. procedure TCAN1_C1FIFOINT9.setTXHALFIE; inline;
  79684. begin
  79685. pTDefRegMap(@Self)^.&set := $02000000;
  79686. end;
  79687. procedure TCAN1_C1FIFOINT9.clearTXHALFIE; inline;
  79688. begin
  79689. pTDefRegMap(@Self)^.clr := $02000000;
  79690. end;
  79691. procedure TCAN1_C1FIFOINT9.setTXHALFIE(thebits : TBits_1); inline;
  79692. begin
  79693. if thebits = 0 then
  79694. pTDefRegMap(@Self)^.clr := $02000000
  79695. else
  79696. pTDefRegMap(@Self)^.&set := $02000000;
  79697. end;
  79698. function TCAN1_C1FIFOINT9.getTXHALFIE : TBits_1; inline;
  79699. begin
  79700. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  79701. end;
  79702. procedure TCAN1_C1FIFOINT9.setTXNFULLIE; inline;
  79703. begin
  79704. pTDefRegMap(@Self)^.&set := $04000000;
  79705. end;
  79706. procedure TCAN1_C1FIFOINT9.clearTXNFULLIE; inline;
  79707. begin
  79708. pTDefRegMap(@Self)^.clr := $04000000;
  79709. end;
  79710. procedure TCAN1_C1FIFOINT9.setTXNFULLIE(thebits : TBits_1); inline;
  79711. begin
  79712. if thebits = 0 then
  79713. pTDefRegMap(@Self)^.clr := $04000000
  79714. else
  79715. pTDefRegMap(@Self)^.&set := $04000000;
  79716. end;
  79717. function TCAN1_C1FIFOINT9.getTXNFULLIE : TBits_1; inline;
  79718. begin
  79719. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  79720. end;
  79721. procedure TCAN1_C1FIFOINT9.setw(thebits : TBits_32); inline;
  79722. begin
  79723. pTDefRegMap(@Self)^.val := thebits;
  79724. end;
  79725. function TCAN1_C1FIFOINT9.getw : TBits_32; inline;
  79726. begin
  79727. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79728. end;
  79729. procedure TCAN1_C1FIFOCI9.setCFIFOCI(thebits : TBits_5); inline;
  79730. begin
  79731. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  79732. end;
  79733. function TCAN1_C1FIFOCI9.getCFIFOCI : TBits_5; inline;
  79734. begin
  79735. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  79736. end;
  79737. procedure TCAN1_C1FIFOCI9.setw(thebits : TBits_32); inline;
  79738. begin
  79739. pTDefRegMap(@Self)^.val := thebits;
  79740. end;
  79741. function TCAN1_C1FIFOCI9.getw : TBits_32; inline;
  79742. begin
  79743. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79744. end;
  79745. procedure TCAN1_C1FIFOCON10.setTXPRI(thebits : TBits_2); inline;
  79746. begin
  79747. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  79748. end;
  79749. function TCAN1_C1FIFOCON10.getTXPRI : TBits_2; inline;
  79750. begin
  79751. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  79752. end;
  79753. procedure TCAN1_C1FIFOCON10.setRTREN; inline;
  79754. begin
  79755. pTDefRegMap(@Self)^.&set := $00000004;
  79756. end;
  79757. procedure TCAN1_C1FIFOCON10.clearRTREN; inline;
  79758. begin
  79759. pTDefRegMap(@Self)^.clr := $00000004;
  79760. end;
  79761. procedure TCAN1_C1FIFOCON10.setRTREN(thebits : TBits_1); inline;
  79762. begin
  79763. if thebits = 0 then
  79764. pTDefRegMap(@Self)^.clr := $00000004
  79765. else
  79766. pTDefRegMap(@Self)^.&set := $00000004;
  79767. end;
  79768. function TCAN1_C1FIFOCON10.getRTREN : TBits_1; inline;
  79769. begin
  79770. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  79771. end;
  79772. procedure TCAN1_C1FIFOCON10.setTXREQ; inline;
  79773. begin
  79774. pTDefRegMap(@Self)^.&set := $00000008;
  79775. end;
  79776. procedure TCAN1_C1FIFOCON10.clearTXREQ; inline;
  79777. begin
  79778. pTDefRegMap(@Self)^.clr := $00000008;
  79779. end;
  79780. procedure TCAN1_C1FIFOCON10.setTXREQ(thebits : TBits_1); inline;
  79781. begin
  79782. if thebits = 0 then
  79783. pTDefRegMap(@Self)^.clr := $00000008
  79784. else
  79785. pTDefRegMap(@Self)^.&set := $00000008;
  79786. end;
  79787. function TCAN1_C1FIFOCON10.getTXREQ : TBits_1; inline;
  79788. begin
  79789. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  79790. end;
  79791. procedure TCAN1_C1FIFOCON10.setTXERR; inline;
  79792. begin
  79793. pTDefRegMap(@Self)^.&set := $00000010;
  79794. end;
  79795. procedure TCAN1_C1FIFOCON10.clearTXERR; inline;
  79796. begin
  79797. pTDefRegMap(@Self)^.clr := $00000010;
  79798. end;
  79799. procedure TCAN1_C1FIFOCON10.setTXERR(thebits : TBits_1); inline;
  79800. begin
  79801. if thebits = 0 then
  79802. pTDefRegMap(@Self)^.clr := $00000010
  79803. else
  79804. pTDefRegMap(@Self)^.&set := $00000010;
  79805. end;
  79806. function TCAN1_C1FIFOCON10.getTXERR : TBits_1; inline;
  79807. begin
  79808. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  79809. end;
  79810. procedure TCAN1_C1FIFOCON10.setTXLARB; inline;
  79811. begin
  79812. pTDefRegMap(@Self)^.&set := $00000020;
  79813. end;
  79814. procedure TCAN1_C1FIFOCON10.clearTXLARB; inline;
  79815. begin
  79816. pTDefRegMap(@Self)^.clr := $00000020;
  79817. end;
  79818. procedure TCAN1_C1FIFOCON10.setTXLARB(thebits : TBits_1); inline;
  79819. begin
  79820. if thebits = 0 then
  79821. pTDefRegMap(@Self)^.clr := $00000020
  79822. else
  79823. pTDefRegMap(@Self)^.&set := $00000020;
  79824. end;
  79825. function TCAN1_C1FIFOCON10.getTXLARB : TBits_1; inline;
  79826. begin
  79827. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  79828. end;
  79829. procedure TCAN1_C1FIFOCON10.setTXABAT; inline;
  79830. begin
  79831. pTDefRegMap(@Self)^.&set := $00000040;
  79832. end;
  79833. procedure TCAN1_C1FIFOCON10.clearTXABAT; inline;
  79834. begin
  79835. pTDefRegMap(@Self)^.clr := $00000040;
  79836. end;
  79837. procedure TCAN1_C1FIFOCON10.setTXABAT(thebits : TBits_1); inline;
  79838. begin
  79839. if thebits = 0 then
  79840. pTDefRegMap(@Self)^.clr := $00000040
  79841. else
  79842. pTDefRegMap(@Self)^.&set := $00000040;
  79843. end;
  79844. function TCAN1_C1FIFOCON10.getTXABAT : TBits_1; inline;
  79845. begin
  79846. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  79847. end;
  79848. procedure TCAN1_C1FIFOCON10.setTXEN; inline;
  79849. begin
  79850. pTDefRegMap(@Self)^.&set := $00000080;
  79851. end;
  79852. procedure TCAN1_C1FIFOCON10.clearTXEN; inline;
  79853. begin
  79854. pTDefRegMap(@Self)^.clr := $00000080;
  79855. end;
  79856. procedure TCAN1_C1FIFOCON10.setTXEN(thebits : TBits_1); inline;
  79857. begin
  79858. if thebits = 0 then
  79859. pTDefRegMap(@Self)^.clr := $00000080
  79860. else
  79861. pTDefRegMap(@Self)^.&set := $00000080;
  79862. end;
  79863. function TCAN1_C1FIFOCON10.getTXEN : TBits_1; inline;
  79864. begin
  79865. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  79866. end;
  79867. procedure TCAN1_C1FIFOCON10.setDONLY; inline;
  79868. begin
  79869. pTDefRegMap(@Self)^.&set := $00001000;
  79870. end;
  79871. procedure TCAN1_C1FIFOCON10.clearDONLY; inline;
  79872. begin
  79873. pTDefRegMap(@Self)^.clr := $00001000;
  79874. end;
  79875. procedure TCAN1_C1FIFOCON10.setDONLY(thebits : TBits_1); inline;
  79876. begin
  79877. if thebits = 0 then
  79878. pTDefRegMap(@Self)^.clr := $00001000
  79879. else
  79880. pTDefRegMap(@Self)^.&set := $00001000;
  79881. end;
  79882. function TCAN1_C1FIFOCON10.getDONLY : TBits_1; inline;
  79883. begin
  79884. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  79885. end;
  79886. procedure TCAN1_C1FIFOCON10.setUINC; inline;
  79887. begin
  79888. pTDefRegMap(@Self)^.&set := $00002000;
  79889. end;
  79890. procedure TCAN1_C1FIFOCON10.clearUINC; inline;
  79891. begin
  79892. pTDefRegMap(@Self)^.clr := $00002000;
  79893. end;
  79894. procedure TCAN1_C1FIFOCON10.setUINC(thebits : TBits_1); inline;
  79895. begin
  79896. if thebits = 0 then
  79897. pTDefRegMap(@Self)^.clr := $00002000
  79898. else
  79899. pTDefRegMap(@Self)^.&set := $00002000;
  79900. end;
  79901. function TCAN1_C1FIFOCON10.getUINC : TBits_1; inline;
  79902. begin
  79903. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  79904. end;
  79905. procedure TCAN1_C1FIFOCON10.setFRESET; inline;
  79906. begin
  79907. pTDefRegMap(@Self)^.&set := $00004000;
  79908. end;
  79909. procedure TCAN1_C1FIFOCON10.clearFRESET; inline;
  79910. begin
  79911. pTDefRegMap(@Self)^.clr := $00004000;
  79912. end;
  79913. procedure TCAN1_C1FIFOCON10.setFRESET(thebits : TBits_1); inline;
  79914. begin
  79915. if thebits = 0 then
  79916. pTDefRegMap(@Self)^.clr := $00004000
  79917. else
  79918. pTDefRegMap(@Self)^.&set := $00004000;
  79919. end;
  79920. function TCAN1_C1FIFOCON10.getFRESET : TBits_1; inline;
  79921. begin
  79922. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  79923. end;
  79924. procedure TCAN1_C1FIFOCON10.setFSIZE(thebits : TBits_5); inline;
  79925. begin
  79926. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  79927. end;
  79928. function TCAN1_C1FIFOCON10.getFSIZE : TBits_5; inline;
  79929. begin
  79930. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  79931. end;
  79932. procedure TCAN1_C1FIFOCON10.setw(thebits : TBits_32); inline;
  79933. begin
  79934. pTDefRegMap(@Self)^.val := thebits;
  79935. end;
  79936. function TCAN1_C1FIFOCON10.getw : TBits_32; inline;
  79937. begin
  79938. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79939. end;
  79940. procedure TCAN1_C1FIFOINT10.setRXNEMPTYIF; inline;
  79941. begin
  79942. pTDefRegMap(@Self)^.&set := $00000001;
  79943. end;
  79944. procedure TCAN1_C1FIFOINT10.clearRXNEMPTYIF; inline;
  79945. begin
  79946. pTDefRegMap(@Self)^.clr := $00000001;
  79947. end;
  79948. procedure TCAN1_C1FIFOINT10.setRXNEMPTYIF(thebits : TBits_1); inline;
  79949. begin
  79950. if thebits = 0 then
  79951. pTDefRegMap(@Self)^.clr := $00000001
  79952. else
  79953. pTDefRegMap(@Self)^.&set := $00000001;
  79954. end;
  79955. function TCAN1_C1FIFOINT10.getRXNEMPTYIF : TBits_1; inline;
  79956. begin
  79957. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  79958. end;
  79959. procedure TCAN1_C1FIFOINT10.setRXHALFIF; inline;
  79960. begin
  79961. pTDefRegMap(@Self)^.&set := $00000002;
  79962. end;
  79963. procedure TCAN1_C1FIFOINT10.clearRXHALFIF; inline;
  79964. begin
  79965. pTDefRegMap(@Self)^.clr := $00000002;
  79966. end;
  79967. procedure TCAN1_C1FIFOINT10.setRXHALFIF(thebits : TBits_1); inline;
  79968. begin
  79969. if thebits = 0 then
  79970. pTDefRegMap(@Self)^.clr := $00000002
  79971. else
  79972. pTDefRegMap(@Self)^.&set := $00000002;
  79973. end;
  79974. function TCAN1_C1FIFOINT10.getRXHALFIF : TBits_1; inline;
  79975. begin
  79976. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  79977. end;
  79978. procedure TCAN1_C1FIFOINT10.setRXFULLIF; inline;
  79979. begin
  79980. pTDefRegMap(@Self)^.&set := $00000004;
  79981. end;
  79982. procedure TCAN1_C1FIFOINT10.clearRXFULLIF; inline;
  79983. begin
  79984. pTDefRegMap(@Self)^.clr := $00000004;
  79985. end;
  79986. procedure TCAN1_C1FIFOINT10.setRXFULLIF(thebits : TBits_1); inline;
  79987. begin
  79988. if thebits = 0 then
  79989. pTDefRegMap(@Self)^.clr := $00000004
  79990. else
  79991. pTDefRegMap(@Self)^.&set := $00000004;
  79992. end;
  79993. function TCAN1_C1FIFOINT10.getRXFULLIF : TBits_1; inline;
  79994. begin
  79995. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  79996. end;
  79997. procedure TCAN1_C1FIFOINT10.setRXOVFLIF; inline;
  79998. begin
  79999. pTDefRegMap(@Self)^.&set := $00000008;
  80000. end;
  80001. procedure TCAN1_C1FIFOINT10.clearRXOVFLIF; inline;
  80002. begin
  80003. pTDefRegMap(@Self)^.clr := $00000008;
  80004. end;
  80005. procedure TCAN1_C1FIFOINT10.setRXOVFLIF(thebits : TBits_1); inline;
  80006. begin
  80007. if thebits = 0 then
  80008. pTDefRegMap(@Self)^.clr := $00000008
  80009. else
  80010. pTDefRegMap(@Self)^.&set := $00000008;
  80011. end;
  80012. function TCAN1_C1FIFOINT10.getRXOVFLIF : TBits_1; inline;
  80013. begin
  80014. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  80015. end;
  80016. procedure TCAN1_C1FIFOINT10.setTXEMPTYIF; inline;
  80017. begin
  80018. pTDefRegMap(@Self)^.&set := $00000100;
  80019. end;
  80020. procedure TCAN1_C1FIFOINT10.clearTXEMPTYIF; inline;
  80021. begin
  80022. pTDefRegMap(@Self)^.clr := $00000100;
  80023. end;
  80024. procedure TCAN1_C1FIFOINT10.setTXEMPTYIF(thebits : TBits_1); inline;
  80025. begin
  80026. if thebits = 0 then
  80027. pTDefRegMap(@Self)^.clr := $00000100
  80028. else
  80029. pTDefRegMap(@Self)^.&set := $00000100;
  80030. end;
  80031. function TCAN1_C1FIFOINT10.getTXEMPTYIF : TBits_1; inline;
  80032. begin
  80033. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  80034. end;
  80035. procedure TCAN1_C1FIFOINT10.setTXHALFIF; inline;
  80036. begin
  80037. pTDefRegMap(@Self)^.&set := $00000200;
  80038. end;
  80039. procedure TCAN1_C1FIFOINT10.clearTXHALFIF; inline;
  80040. begin
  80041. pTDefRegMap(@Self)^.clr := $00000200;
  80042. end;
  80043. procedure TCAN1_C1FIFOINT10.setTXHALFIF(thebits : TBits_1); inline;
  80044. begin
  80045. if thebits = 0 then
  80046. pTDefRegMap(@Self)^.clr := $00000200
  80047. else
  80048. pTDefRegMap(@Self)^.&set := $00000200;
  80049. end;
  80050. function TCAN1_C1FIFOINT10.getTXHALFIF : TBits_1; inline;
  80051. begin
  80052. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  80053. end;
  80054. procedure TCAN1_C1FIFOINT10.setTXNFULLIF; inline;
  80055. begin
  80056. pTDefRegMap(@Self)^.&set := $00000400;
  80057. end;
  80058. procedure TCAN1_C1FIFOINT10.clearTXNFULLIF; inline;
  80059. begin
  80060. pTDefRegMap(@Self)^.clr := $00000400;
  80061. end;
  80062. procedure TCAN1_C1FIFOINT10.setTXNFULLIF(thebits : TBits_1); inline;
  80063. begin
  80064. if thebits = 0 then
  80065. pTDefRegMap(@Self)^.clr := $00000400
  80066. else
  80067. pTDefRegMap(@Self)^.&set := $00000400;
  80068. end;
  80069. function TCAN1_C1FIFOINT10.getTXNFULLIF : TBits_1; inline;
  80070. begin
  80071. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  80072. end;
  80073. procedure TCAN1_C1FIFOINT10.setRXNEMPTYIE; inline;
  80074. begin
  80075. pTDefRegMap(@Self)^.&set := $00010000;
  80076. end;
  80077. procedure TCAN1_C1FIFOINT10.clearRXNEMPTYIE; inline;
  80078. begin
  80079. pTDefRegMap(@Self)^.clr := $00010000;
  80080. end;
  80081. procedure TCAN1_C1FIFOINT10.setRXNEMPTYIE(thebits : TBits_1); inline;
  80082. begin
  80083. if thebits = 0 then
  80084. pTDefRegMap(@Self)^.clr := $00010000
  80085. else
  80086. pTDefRegMap(@Self)^.&set := $00010000;
  80087. end;
  80088. function TCAN1_C1FIFOINT10.getRXNEMPTYIE : TBits_1; inline;
  80089. begin
  80090. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  80091. end;
  80092. procedure TCAN1_C1FIFOINT10.setRXHALFIE; inline;
  80093. begin
  80094. pTDefRegMap(@Self)^.&set := $00020000;
  80095. end;
  80096. procedure TCAN1_C1FIFOINT10.clearRXHALFIE; inline;
  80097. begin
  80098. pTDefRegMap(@Self)^.clr := $00020000;
  80099. end;
  80100. procedure TCAN1_C1FIFOINT10.setRXHALFIE(thebits : TBits_1); inline;
  80101. begin
  80102. if thebits = 0 then
  80103. pTDefRegMap(@Self)^.clr := $00020000
  80104. else
  80105. pTDefRegMap(@Self)^.&set := $00020000;
  80106. end;
  80107. function TCAN1_C1FIFOINT10.getRXHALFIE : TBits_1; inline;
  80108. begin
  80109. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  80110. end;
  80111. procedure TCAN1_C1FIFOINT10.setRXFULLIE; inline;
  80112. begin
  80113. pTDefRegMap(@Self)^.&set := $00040000;
  80114. end;
  80115. procedure TCAN1_C1FIFOINT10.clearRXFULLIE; inline;
  80116. begin
  80117. pTDefRegMap(@Self)^.clr := $00040000;
  80118. end;
  80119. procedure TCAN1_C1FIFOINT10.setRXFULLIE(thebits : TBits_1); inline;
  80120. begin
  80121. if thebits = 0 then
  80122. pTDefRegMap(@Self)^.clr := $00040000
  80123. else
  80124. pTDefRegMap(@Self)^.&set := $00040000;
  80125. end;
  80126. function TCAN1_C1FIFOINT10.getRXFULLIE : TBits_1; inline;
  80127. begin
  80128. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  80129. end;
  80130. procedure TCAN1_C1FIFOINT10.setRXOVFLIE; inline;
  80131. begin
  80132. pTDefRegMap(@Self)^.&set := $00080000;
  80133. end;
  80134. procedure TCAN1_C1FIFOINT10.clearRXOVFLIE; inline;
  80135. begin
  80136. pTDefRegMap(@Self)^.clr := $00080000;
  80137. end;
  80138. procedure TCAN1_C1FIFOINT10.setRXOVFLIE(thebits : TBits_1); inline;
  80139. begin
  80140. if thebits = 0 then
  80141. pTDefRegMap(@Self)^.clr := $00080000
  80142. else
  80143. pTDefRegMap(@Self)^.&set := $00080000;
  80144. end;
  80145. function TCAN1_C1FIFOINT10.getRXOVFLIE : TBits_1; inline;
  80146. begin
  80147. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  80148. end;
  80149. procedure TCAN1_C1FIFOINT10.setTXEMPTYIE; inline;
  80150. begin
  80151. pTDefRegMap(@Self)^.&set := $01000000;
  80152. end;
  80153. procedure TCAN1_C1FIFOINT10.clearTXEMPTYIE; inline;
  80154. begin
  80155. pTDefRegMap(@Self)^.clr := $01000000;
  80156. end;
  80157. procedure TCAN1_C1FIFOINT10.setTXEMPTYIE(thebits : TBits_1); inline;
  80158. begin
  80159. if thebits = 0 then
  80160. pTDefRegMap(@Self)^.clr := $01000000
  80161. else
  80162. pTDefRegMap(@Self)^.&set := $01000000;
  80163. end;
  80164. function TCAN1_C1FIFOINT10.getTXEMPTYIE : TBits_1; inline;
  80165. begin
  80166. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  80167. end;
  80168. procedure TCAN1_C1FIFOINT10.setTXHALFIE; inline;
  80169. begin
  80170. pTDefRegMap(@Self)^.&set := $02000000;
  80171. end;
  80172. procedure TCAN1_C1FIFOINT10.clearTXHALFIE; inline;
  80173. begin
  80174. pTDefRegMap(@Self)^.clr := $02000000;
  80175. end;
  80176. procedure TCAN1_C1FIFOINT10.setTXHALFIE(thebits : TBits_1); inline;
  80177. begin
  80178. if thebits = 0 then
  80179. pTDefRegMap(@Self)^.clr := $02000000
  80180. else
  80181. pTDefRegMap(@Self)^.&set := $02000000;
  80182. end;
  80183. function TCAN1_C1FIFOINT10.getTXHALFIE : TBits_1; inline;
  80184. begin
  80185. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  80186. end;
  80187. procedure TCAN1_C1FIFOINT10.setTXNFULLIE; inline;
  80188. begin
  80189. pTDefRegMap(@Self)^.&set := $04000000;
  80190. end;
  80191. procedure TCAN1_C1FIFOINT10.clearTXNFULLIE; inline;
  80192. begin
  80193. pTDefRegMap(@Self)^.clr := $04000000;
  80194. end;
  80195. procedure TCAN1_C1FIFOINT10.setTXNFULLIE(thebits : TBits_1); inline;
  80196. begin
  80197. if thebits = 0 then
  80198. pTDefRegMap(@Self)^.clr := $04000000
  80199. else
  80200. pTDefRegMap(@Self)^.&set := $04000000;
  80201. end;
  80202. function TCAN1_C1FIFOINT10.getTXNFULLIE : TBits_1; inline;
  80203. begin
  80204. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  80205. end;
  80206. procedure TCAN1_C1FIFOINT10.setw(thebits : TBits_32); inline;
  80207. begin
  80208. pTDefRegMap(@Self)^.val := thebits;
  80209. end;
  80210. function TCAN1_C1FIFOINT10.getw : TBits_32; inline;
  80211. begin
  80212. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80213. end;
  80214. procedure TCAN1_C1FIFOCI10.setCFIFOCI(thebits : TBits_5); inline;
  80215. begin
  80216. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  80217. end;
  80218. function TCAN1_C1FIFOCI10.getCFIFOCI : TBits_5; inline;
  80219. begin
  80220. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  80221. end;
  80222. procedure TCAN1_C1FIFOCI10.setw(thebits : TBits_32); inline;
  80223. begin
  80224. pTDefRegMap(@Self)^.val := thebits;
  80225. end;
  80226. function TCAN1_C1FIFOCI10.getw : TBits_32; inline;
  80227. begin
  80228. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80229. end;
  80230. procedure TCAN1_C1FIFOCON11.setTXPRI(thebits : TBits_2); inline;
  80231. begin
  80232. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  80233. end;
  80234. function TCAN1_C1FIFOCON11.getTXPRI : TBits_2; inline;
  80235. begin
  80236. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  80237. end;
  80238. procedure TCAN1_C1FIFOCON11.setRTREN; inline;
  80239. begin
  80240. pTDefRegMap(@Self)^.&set := $00000004;
  80241. end;
  80242. procedure TCAN1_C1FIFOCON11.clearRTREN; inline;
  80243. begin
  80244. pTDefRegMap(@Self)^.clr := $00000004;
  80245. end;
  80246. procedure TCAN1_C1FIFOCON11.setRTREN(thebits : TBits_1); inline;
  80247. begin
  80248. if thebits = 0 then
  80249. pTDefRegMap(@Self)^.clr := $00000004
  80250. else
  80251. pTDefRegMap(@Self)^.&set := $00000004;
  80252. end;
  80253. function TCAN1_C1FIFOCON11.getRTREN : TBits_1; inline;
  80254. begin
  80255. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  80256. end;
  80257. procedure TCAN1_C1FIFOCON11.setTXREQ; inline;
  80258. begin
  80259. pTDefRegMap(@Self)^.&set := $00000008;
  80260. end;
  80261. procedure TCAN1_C1FIFOCON11.clearTXREQ; inline;
  80262. begin
  80263. pTDefRegMap(@Self)^.clr := $00000008;
  80264. end;
  80265. procedure TCAN1_C1FIFOCON11.setTXREQ(thebits : TBits_1); inline;
  80266. begin
  80267. if thebits = 0 then
  80268. pTDefRegMap(@Self)^.clr := $00000008
  80269. else
  80270. pTDefRegMap(@Self)^.&set := $00000008;
  80271. end;
  80272. function TCAN1_C1FIFOCON11.getTXREQ : TBits_1; inline;
  80273. begin
  80274. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  80275. end;
  80276. procedure TCAN1_C1FIFOCON11.setTXERR; inline;
  80277. begin
  80278. pTDefRegMap(@Self)^.&set := $00000010;
  80279. end;
  80280. procedure TCAN1_C1FIFOCON11.clearTXERR; inline;
  80281. begin
  80282. pTDefRegMap(@Self)^.clr := $00000010;
  80283. end;
  80284. procedure TCAN1_C1FIFOCON11.setTXERR(thebits : TBits_1); inline;
  80285. begin
  80286. if thebits = 0 then
  80287. pTDefRegMap(@Self)^.clr := $00000010
  80288. else
  80289. pTDefRegMap(@Self)^.&set := $00000010;
  80290. end;
  80291. function TCAN1_C1FIFOCON11.getTXERR : TBits_1; inline;
  80292. begin
  80293. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  80294. end;
  80295. procedure TCAN1_C1FIFOCON11.setTXLARB; inline;
  80296. begin
  80297. pTDefRegMap(@Self)^.&set := $00000020;
  80298. end;
  80299. procedure TCAN1_C1FIFOCON11.clearTXLARB; inline;
  80300. begin
  80301. pTDefRegMap(@Self)^.clr := $00000020;
  80302. end;
  80303. procedure TCAN1_C1FIFOCON11.setTXLARB(thebits : TBits_1); inline;
  80304. begin
  80305. if thebits = 0 then
  80306. pTDefRegMap(@Self)^.clr := $00000020
  80307. else
  80308. pTDefRegMap(@Self)^.&set := $00000020;
  80309. end;
  80310. function TCAN1_C1FIFOCON11.getTXLARB : TBits_1; inline;
  80311. begin
  80312. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  80313. end;
  80314. procedure TCAN1_C1FIFOCON11.setTXABAT; inline;
  80315. begin
  80316. pTDefRegMap(@Self)^.&set := $00000040;
  80317. end;
  80318. procedure TCAN1_C1FIFOCON11.clearTXABAT; inline;
  80319. begin
  80320. pTDefRegMap(@Self)^.clr := $00000040;
  80321. end;
  80322. procedure TCAN1_C1FIFOCON11.setTXABAT(thebits : TBits_1); inline;
  80323. begin
  80324. if thebits = 0 then
  80325. pTDefRegMap(@Self)^.clr := $00000040
  80326. else
  80327. pTDefRegMap(@Self)^.&set := $00000040;
  80328. end;
  80329. function TCAN1_C1FIFOCON11.getTXABAT : TBits_1; inline;
  80330. begin
  80331. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  80332. end;
  80333. procedure TCAN1_C1FIFOCON11.setTXEN; inline;
  80334. begin
  80335. pTDefRegMap(@Self)^.&set := $00000080;
  80336. end;
  80337. procedure TCAN1_C1FIFOCON11.clearTXEN; inline;
  80338. begin
  80339. pTDefRegMap(@Self)^.clr := $00000080;
  80340. end;
  80341. procedure TCAN1_C1FIFOCON11.setTXEN(thebits : TBits_1); inline;
  80342. begin
  80343. if thebits = 0 then
  80344. pTDefRegMap(@Self)^.clr := $00000080
  80345. else
  80346. pTDefRegMap(@Self)^.&set := $00000080;
  80347. end;
  80348. function TCAN1_C1FIFOCON11.getTXEN : TBits_1; inline;
  80349. begin
  80350. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  80351. end;
  80352. procedure TCAN1_C1FIFOCON11.setDONLY; inline;
  80353. begin
  80354. pTDefRegMap(@Self)^.&set := $00001000;
  80355. end;
  80356. procedure TCAN1_C1FIFOCON11.clearDONLY; inline;
  80357. begin
  80358. pTDefRegMap(@Self)^.clr := $00001000;
  80359. end;
  80360. procedure TCAN1_C1FIFOCON11.setDONLY(thebits : TBits_1); inline;
  80361. begin
  80362. if thebits = 0 then
  80363. pTDefRegMap(@Self)^.clr := $00001000
  80364. else
  80365. pTDefRegMap(@Self)^.&set := $00001000;
  80366. end;
  80367. function TCAN1_C1FIFOCON11.getDONLY : TBits_1; inline;
  80368. begin
  80369. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  80370. end;
  80371. procedure TCAN1_C1FIFOCON11.setUINC; inline;
  80372. begin
  80373. pTDefRegMap(@Self)^.&set := $00002000;
  80374. end;
  80375. procedure TCAN1_C1FIFOCON11.clearUINC; inline;
  80376. begin
  80377. pTDefRegMap(@Self)^.clr := $00002000;
  80378. end;
  80379. procedure TCAN1_C1FIFOCON11.setUINC(thebits : TBits_1); inline;
  80380. begin
  80381. if thebits = 0 then
  80382. pTDefRegMap(@Self)^.clr := $00002000
  80383. else
  80384. pTDefRegMap(@Self)^.&set := $00002000;
  80385. end;
  80386. function TCAN1_C1FIFOCON11.getUINC : TBits_1; inline;
  80387. begin
  80388. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  80389. end;
  80390. procedure TCAN1_C1FIFOCON11.setFRESET; inline;
  80391. begin
  80392. pTDefRegMap(@Self)^.&set := $00004000;
  80393. end;
  80394. procedure TCAN1_C1FIFOCON11.clearFRESET; inline;
  80395. begin
  80396. pTDefRegMap(@Self)^.clr := $00004000;
  80397. end;
  80398. procedure TCAN1_C1FIFOCON11.setFRESET(thebits : TBits_1); inline;
  80399. begin
  80400. if thebits = 0 then
  80401. pTDefRegMap(@Self)^.clr := $00004000
  80402. else
  80403. pTDefRegMap(@Self)^.&set := $00004000;
  80404. end;
  80405. function TCAN1_C1FIFOCON11.getFRESET : TBits_1; inline;
  80406. begin
  80407. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  80408. end;
  80409. procedure TCAN1_C1FIFOCON11.setFSIZE(thebits : TBits_5); inline;
  80410. begin
  80411. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  80412. end;
  80413. function TCAN1_C1FIFOCON11.getFSIZE : TBits_5; inline;
  80414. begin
  80415. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  80416. end;
  80417. procedure TCAN1_C1FIFOCON11.setw(thebits : TBits_32); inline;
  80418. begin
  80419. pTDefRegMap(@Self)^.val := thebits;
  80420. end;
  80421. function TCAN1_C1FIFOCON11.getw : TBits_32; inline;
  80422. begin
  80423. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80424. end;
  80425. procedure TCAN1_C1FIFOINT11.setRXNEMPTYIF; inline;
  80426. begin
  80427. pTDefRegMap(@Self)^.&set := $00000001;
  80428. end;
  80429. procedure TCAN1_C1FIFOINT11.clearRXNEMPTYIF; inline;
  80430. begin
  80431. pTDefRegMap(@Self)^.clr := $00000001;
  80432. end;
  80433. procedure TCAN1_C1FIFOINT11.setRXNEMPTYIF(thebits : TBits_1); inline;
  80434. begin
  80435. if thebits = 0 then
  80436. pTDefRegMap(@Self)^.clr := $00000001
  80437. else
  80438. pTDefRegMap(@Self)^.&set := $00000001;
  80439. end;
  80440. function TCAN1_C1FIFOINT11.getRXNEMPTYIF : TBits_1; inline;
  80441. begin
  80442. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  80443. end;
  80444. procedure TCAN1_C1FIFOINT11.setRXHALFIF; inline;
  80445. begin
  80446. pTDefRegMap(@Self)^.&set := $00000002;
  80447. end;
  80448. procedure TCAN1_C1FIFOINT11.clearRXHALFIF; inline;
  80449. begin
  80450. pTDefRegMap(@Self)^.clr := $00000002;
  80451. end;
  80452. procedure TCAN1_C1FIFOINT11.setRXHALFIF(thebits : TBits_1); inline;
  80453. begin
  80454. if thebits = 0 then
  80455. pTDefRegMap(@Self)^.clr := $00000002
  80456. else
  80457. pTDefRegMap(@Self)^.&set := $00000002;
  80458. end;
  80459. function TCAN1_C1FIFOINT11.getRXHALFIF : TBits_1; inline;
  80460. begin
  80461. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  80462. end;
  80463. procedure TCAN1_C1FIFOINT11.setRXFULLIF; inline;
  80464. begin
  80465. pTDefRegMap(@Self)^.&set := $00000004;
  80466. end;
  80467. procedure TCAN1_C1FIFOINT11.clearRXFULLIF; inline;
  80468. begin
  80469. pTDefRegMap(@Self)^.clr := $00000004;
  80470. end;
  80471. procedure TCAN1_C1FIFOINT11.setRXFULLIF(thebits : TBits_1); inline;
  80472. begin
  80473. if thebits = 0 then
  80474. pTDefRegMap(@Self)^.clr := $00000004
  80475. else
  80476. pTDefRegMap(@Self)^.&set := $00000004;
  80477. end;
  80478. function TCAN1_C1FIFOINT11.getRXFULLIF : TBits_1; inline;
  80479. begin
  80480. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  80481. end;
  80482. procedure TCAN1_C1FIFOINT11.setRXOVFLIF; inline;
  80483. begin
  80484. pTDefRegMap(@Self)^.&set := $00000008;
  80485. end;
  80486. procedure TCAN1_C1FIFOINT11.clearRXOVFLIF; inline;
  80487. begin
  80488. pTDefRegMap(@Self)^.clr := $00000008;
  80489. end;
  80490. procedure TCAN1_C1FIFOINT11.setRXOVFLIF(thebits : TBits_1); inline;
  80491. begin
  80492. if thebits = 0 then
  80493. pTDefRegMap(@Self)^.clr := $00000008
  80494. else
  80495. pTDefRegMap(@Self)^.&set := $00000008;
  80496. end;
  80497. function TCAN1_C1FIFOINT11.getRXOVFLIF : TBits_1; inline;
  80498. begin
  80499. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  80500. end;
  80501. procedure TCAN1_C1FIFOINT11.setTXEMPTYIF; inline;
  80502. begin
  80503. pTDefRegMap(@Self)^.&set := $00000100;
  80504. end;
  80505. procedure TCAN1_C1FIFOINT11.clearTXEMPTYIF; inline;
  80506. begin
  80507. pTDefRegMap(@Self)^.clr := $00000100;
  80508. end;
  80509. procedure TCAN1_C1FIFOINT11.setTXEMPTYIF(thebits : TBits_1); inline;
  80510. begin
  80511. if thebits = 0 then
  80512. pTDefRegMap(@Self)^.clr := $00000100
  80513. else
  80514. pTDefRegMap(@Self)^.&set := $00000100;
  80515. end;
  80516. function TCAN1_C1FIFOINT11.getTXEMPTYIF : TBits_1; inline;
  80517. begin
  80518. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  80519. end;
  80520. procedure TCAN1_C1FIFOINT11.setTXHALFIF; inline;
  80521. begin
  80522. pTDefRegMap(@Self)^.&set := $00000200;
  80523. end;
  80524. procedure TCAN1_C1FIFOINT11.clearTXHALFIF; inline;
  80525. begin
  80526. pTDefRegMap(@Self)^.clr := $00000200;
  80527. end;
  80528. procedure TCAN1_C1FIFOINT11.setTXHALFIF(thebits : TBits_1); inline;
  80529. begin
  80530. if thebits = 0 then
  80531. pTDefRegMap(@Self)^.clr := $00000200
  80532. else
  80533. pTDefRegMap(@Self)^.&set := $00000200;
  80534. end;
  80535. function TCAN1_C1FIFOINT11.getTXHALFIF : TBits_1; inline;
  80536. begin
  80537. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  80538. end;
  80539. procedure TCAN1_C1FIFOINT11.setTXNFULLIF; inline;
  80540. begin
  80541. pTDefRegMap(@Self)^.&set := $00000400;
  80542. end;
  80543. procedure TCAN1_C1FIFOINT11.clearTXNFULLIF; inline;
  80544. begin
  80545. pTDefRegMap(@Self)^.clr := $00000400;
  80546. end;
  80547. procedure TCAN1_C1FIFOINT11.setTXNFULLIF(thebits : TBits_1); inline;
  80548. begin
  80549. if thebits = 0 then
  80550. pTDefRegMap(@Self)^.clr := $00000400
  80551. else
  80552. pTDefRegMap(@Self)^.&set := $00000400;
  80553. end;
  80554. function TCAN1_C1FIFOINT11.getTXNFULLIF : TBits_1; inline;
  80555. begin
  80556. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  80557. end;
  80558. procedure TCAN1_C1FIFOINT11.setRXNEMPTYIE; inline;
  80559. begin
  80560. pTDefRegMap(@Self)^.&set := $00010000;
  80561. end;
  80562. procedure TCAN1_C1FIFOINT11.clearRXNEMPTYIE; inline;
  80563. begin
  80564. pTDefRegMap(@Self)^.clr := $00010000;
  80565. end;
  80566. procedure TCAN1_C1FIFOINT11.setRXNEMPTYIE(thebits : TBits_1); inline;
  80567. begin
  80568. if thebits = 0 then
  80569. pTDefRegMap(@Self)^.clr := $00010000
  80570. else
  80571. pTDefRegMap(@Self)^.&set := $00010000;
  80572. end;
  80573. function TCAN1_C1FIFOINT11.getRXNEMPTYIE : TBits_1; inline;
  80574. begin
  80575. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  80576. end;
  80577. procedure TCAN1_C1FIFOINT11.setRXHALFIE; inline;
  80578. begin
  80579. pTDefRegMap(@Self)^.&set := $00020000;
  80580. end;
  80581. procedure TCAN1_C1FIFOINT11.clearRXHALFIE; inline;
  80582. begin
  80583. pTDefRegMap(@Self)^.clr := $00020000;
  80584. end;
  80585. procedure TCAN1_C1FIFOINT11.setRXHALFIE(thebits : TBits_1); inline;
  80586. begin
  80587. if thebits = 0 then
  80588. pTDefRegMap(@Self)^.clr := $00020000
  80589. else
  80590. pTDefRegMap(@Self)^.&set := $00020000;
  80591. end;
  80592. function TCAN1_C1FIFOINT11.getRXHALFIE : TBits_1; inline;
  80593. begin
  80594. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  80595. end;
  80596. procedure TCAN1_C1FIFOINT11.setRXFULLIE; inline;
  80597. begin
  80598. pTDefRegMap(@Self)^.&set := $00040000;
  80599. end;
  80600. procedure TCAN1_C1FIFOINT11.clearRXFULLIE; inline;
  80601. begin
  80602. pTDefRegMap(@Self)^.clr := $00040000;
  80603. end;
  80604. procedure TCAN1_C1FIFOINT11.setRXFULLIE(thebits : TBits_1); inline;
  80605. begin
  80606. if thebits = 0 then
  80607. pTDefRegMap(@Self)^.clr := $00040000
  80608. else
  80609. pTDefRegMap(@Self)^.&set := $00040000;
  80610. end;
  80611. function TCAN1_C1FIFOINT11.getRXFULLIE : TBits_1; inline;
  80612. begin
  80613. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  80614. end;
  80615. procedure TCAN1_C1FIFOINT11.setRXOVFLIE; inline;
  80616. begin
  80617. pTDefRegMap(@Self)^.&set := $00080000;
  80618. end;
  80619. procedure TCAN1_C1FIFOINT11.clearRXOVFLIE; inline;
  80620. begin
  80621. pTDefRegMap(@Self)^.clr := $00080000;
  80622. end;
  80623. procedure TCAN1_C1FIFOINT11.setRXOVFLIE(thebits : TBits_1); inline;
  80624. begin
  80625. if thebits = 0 then
  80626. pTDefRegMap(@Self)^.clr := $00080000
  80627. else
  80628. pTDefRegMap(@Self)^.&set := $00080000;
  80629. end;
  80630. function TCAN1_C1FIFOINT11.getRXOVFLIE : TBits_1; inline;
  80631. begin
  80632. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  80633. end;
  80634. procedure TCAN1_C1FIFOINT11.setTXEMPTYIE; inline;
  80635. begin
  80636. pTDefRegMap(@Self)^.&set := $01000000;
  80637. end;
  80638. procedure TCAN1_C1FIFOINT11.clearTXEMPTYIE; inline;
  80639. begin
  80640. pTDefRegMap(@Self)^.clr := $01000000;
  80641. end;
  80642. procedure TCAN1_C1FIFOINT11.setTXEMPTYIE(thebits : TBits_1); inline;
  80643. begin
  80644. if thebits = 0 then
  80645. pTDefRegMap(@Self)^.clr := $01000000
  80646. else
  80647. pTDefRegMap(@Self)^.&set := $01000000;
  80648. end;
  80649. function TCAN1_C1FIFOINT11.getTXEMPTYIE : TBits_1; inline;
  80650. begin
  80651. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  80652. end;
  80653. procedure TCAN1_C1FIFOINT11.setTXHALFIE; inline;
  80654. begin
  80655. pTDefRegMap(@Self)^.&set := $02000000;
  80656. end;
  80657. procedure TCAN1_C1FIFOINT11.clearTXHALFIE; inline;
  80658. begin
  80659. pTDefRegMap(@Self)^.clr := $02000000;
  80660. end;
  80661. procedure TCAN1_C1FIFOINT11.setTXHALFIE(thebits : TBits_1); inline;
  80662. begin
  80663. if thebits = 0 then
  80664. pTDefRegMap(@Self)^.clr := $02000000
  80665. else
  80666. pTDefRegMap(@Self)^.&set := $02000000;
  80667. end;
  80668. function TCAN1_C1FIFOINT11.getTXHALFIE : TBits_1; inline;
  80669. begin
  80670. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  80671. end;
  80672. procedure TCAN1_C1FIFOINT11.setTXNFULLIE; inline;
  80673. begin
  80674. pTDefRegMap(@Self)^.&set := $04000000;
  80675. end;
  80676. procedure TCAN1_C1FIFOINT11.clearTXNFULLIE; inline;
  80677. begin
  80678. pTDefRegMap(@Self)^.clr := $04000000;
  80679. end;
  80680. procedure TCAN1_C1FIFOINT11.setTXNFULLIE(thebits : TBits_1); inline;
  80681. begin
  80682. if thebits = 0 then
  80683. pTDefRegMap(@Self)^.clr := $04000000
  80684. else
  80685. pTDefRegMap(@Self)^.&set := $04000000;
  80686. end;
  80687. function TCAN1_C1FIFOINT11.getTXNFULLIE : TBits_1; inline;
  80688. begin
  80689. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  80690. end;
  80691. procedure TCAN1_C1FIFOINT11.setw(thebits : TBits_32); inline;
  80692. begin
  80693. pTDefRegMap(@Self)^.val := thebits;
  80694. end;
  80695. function TCAN1_C1FIFOINT11.getw : TBits_32; inline;
  80696. begin
  80697. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80698. end;
  80699. procedure TCAN1_C1FIFOCI11.setCFIFOCI(thebits : TBits_5); inline;
  80700. begin
  80701. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  80702. end;
  80703. function TCAN1_C1FIFOCI11.getCFIFOCI : TBits_5; inline;
  80704. begin
  80705. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  80706. end;
  80707. procedure TCAN1_C1FIFOCI11.setw(thebits : TBits_32); inline;
  80708. begin
  80709. pTDefRegMap(@Self)^.val := thebits;
  80710. end;
  80711. function TCAN1_C1FIFOCI11.getw : TBits_32; inline;
  80712. begin
  80713. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80714. end;
  80715. procedure TCAN1_C1FIFOCON12.setTXPRI(thebits : TBits_2); inline;
  80716. begin
  80717. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  80718. end;
  80719. function TCAN1_C1FIFOCON12.getTXPRI : TBits_2; inline;
  80720. begin
  80721. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  80722. end;
  80723. procedure TCAN1_C1FIFOCON12.setRTREN; inline;
  80724. begin
  80725. pTDefRegMap(@Self)^.&set := $00000004;
  80726. end;
  80727. procedure TCAN1_C1FIFOCON12.clearRTREN; inline;
  80728. begin
  80729. pTDefRegMap(@Self)^.clr := $00000004;
  80730. end;
  80731. procedure TCAN1_C1FIFOCON12.setRTREN(thebits : TBits_1); inline;
  80732. begin
  80733. if thebits = 0 then
  80734. pTDefRegMap(@Self)^.clr := $00000004
  80735. else
  80736. pTDefRegMap(@Self)^.&set := $00000004;
  80737. end;
  80738. function TCAN1_C1FIFOCON12.getRTREN : TBits_1; inline;
  80739. begin
  80740. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  80741. end;
  80742. procedure TCAN1_C1FIFOCON12.setTXREQ; inline;
  80743. begin
  80744. pTDefRegMap(@Self)^.&set := $00000008;
  80745. end;
  80746. procedure TCAN1_C1FIFOCON12.clearTXREQ; inline;
  80747. begin
  80748. pTDefRegMap(@Self)^.clr := $00000008;
  80749. end;
  80750. procedure TCAN1_C1FIFOCON12.setTXREQ(thebits : TBits_1); inline;
  80751. begin
  80752. if thebits = 0 then
  80753. pTDefRegMap(@Self)^.clr := $00000008
  80754. else
  80755. pTDefRegMap(@Self)^.&set := $00000008;
  80756. end;
  80757. function TCAN1_C1FIFOCON12.getTXREQ : TBits_1; inline;
  80758. begin
  80759. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  80760. end;
  80761. procedure TCAN1_C1FIFOCON12.setTXERR; inline;
  80762. begin
  80763. pTDefRegMap(@Self)^.&set := $00000010;
  80764. end;
  80765. procedure TCAN1_C1FIFOCON12.clearTXERR; inline;
  80766. begin
  80767. pTDefRegMap(@Self)^.clr := $00000010;
  80768. end;
  80769. procedure TCAN1_C1FIFOCON12.setTXERR(thebits : TBits_1); inline;
  80770. begin
  80771. if thebits = 0 then
  80772. pTDefRegMap(@Self)^.clr := $00000010
  80773. else
  80774. pTDefRegMap(@Self)^.&set := $00000010;
  80775. end;
  80776. function TCAN1_C1FIFOCON12.getTXERR : TBits_1; inline;
  80777. begin
  80778. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  80779. end;
  80780. procedure TCAN1_C1FIFOCON12.setTXLARB; inline;
  80781. begin
  80782. pTDefRegMap(@Self)^.&set := $00000020;
  80783. end;
  80784. procedure TCAN1_C1FIFOCON12.clearTXLARB; inline;
  80785. begin
  80786. pTDefRegMap(@Self)^.clr := $00000020;
  80787. end;
  80788. procedure TCAN1_C1FIFOCON12.setTXLARB(thebits : TBits_1); inline;
  80789. begin
  80790. if thebits = 0 then
  80791. pTDefRegMap(@Self)^.clr := $00000020
  80792. else
  80793. pTDefRegMap(@Self)^.&set := $00000020;
  80794. end;
  80795. function TCAN1_C1FIFOCON12.getTXLARB : TBits_1; inline;
  80796. begin
  80797. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  80798. end;
  80799. procedure TCAN1_C1FIFOCON12.setTXABAT; inline;
  80800. begin
  80801. pTDefRegMap(@Self)^.&set := $00000040;
  80802. end;
  80803. procedure TCAN1_C1FIFOCON12.clearTXABAT; inline;
  80804. begin
  80805. pTDefRegMap(@Self)^.clr := $00000040;
  80806. end;
  80807. procedure TCAN1_C1FIFOCON12.setTXABAT(thebits : TBits_1); inline;
  80808. begin
  80809. if thebits = 0 then
  80810. pTDefRegMap(@Self)^.clr := $00000040
  80811. else
  80812. pTDefRegMap(@Self)^.&set := $00000040;
  80813. end;
  80814. function TCAN1_C1FIFOCON12.getTXABAT : TBits_1; inline;
  80815. begin
  80816. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  80817. end;
  80818. procedure TCAN1_C1FIFOCON12.setTXEN; inline;
  80819. begin
  80820. pTDefRegMap(@Self)^.&set := $00000080;
  80821. end;
  80822. procedure TCAN1_C1FIFOCON12.clearTXEN; inline;
  80823. begin
  80824. pTDefRegMap(@Self)^.clr := $00000080;
  80825. end;
  80826. procedure TCAN1_C1FIFOCON12.setTXEN(thebits : TBits_1); inline;
  80827. begin
  80828. if thebits = 0 then
  80829. pTDefRegMap(@Self)^.clr := $00000080
  80830. else
  80831. pTDefRegMap(@Self)^.&set := $00000080;
  80832. end;
  80833. function TCAN1_C1FIFOCON12.getTXEN : TBits_1; inline;
  80834. begin
  80835. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  80836. end;
  80837. procedure TCAN1_C1FIFOCON12.setDONLY; inline;
  80838. begin
  80839. pTDefRegMap(@Self)^.&set := $00001000;
  80840. end;
  80841. procedure TCAN1_C1FIFOCON12.clearDONLY; inline;
  80842. begin
  80843. pTDefRegMap(@Self)^.clr := $00001000;
  80844. end;
  80845. procedure TCAN1_C1FIFOCON12.setDONLY(thebits : TBits_1); inline;
  80846. begin
  80847. if thebits = 0 then
  80848. pTDefRegMap(@Self)^.clr := $00001000
  80849. else
  80850. pTDefRegMap(@Self)^.&set := $00001000;
  80851. end;
  80852. function TCAN1_C1FIFOCON12.getDONLY : TBits_1; inline;
  80853. begin
  80854. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  80855. end;
  80856. procedure TCAN1_C1FIFOCON12.setUINC; inline;
  80857. begin
  80858. pTDefRegMap(@Self)^.&set := $00002000;
  80859. end;
  80860. procedure TCAN1_C1FIFOCON12.clearUINC; inline;
  80861. begin
  80862. pTDefRegMap(@Self)^.clr := $00002000;
  80863. end;
  80864. procedure TCAN1_C1FIFOCON12.setUINC(thebits : TBits_1); inline;
  80865. begin
  80866. if thebits = 0 then
  80867. pTDefRegMap(@Self)^.clr := $00002000
  80868. else
  80869. pTDefRegMap(@Self)^.&set := $00002000;
  80870. end;
  80871. function TCAN1_C1FIFOCON12.getUINC : TBits_1; inline;
  80872. begin
  80873. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  80874. end;
  80875. procedure TCAN1_C1FIFOCON12.setFRESET; inline;
  80876. begin
  80877. pTDefRegMap(@Self)^.&set := $00004000;
  80878. end;
  80879. procedure TCAN1_C1FIFOCON12.clearFRESET; inline;
  80880. begin
  80881. pTDefRegMap(@Self)^.clr := $00004000;
  80882. end;
  80883. procedure TCAN1_C1FIFOCON12.setFRESET(thebits : TBits_1); inline;
  80884. begin
  80885. if thebits = 0 then
  80886. pTDefRegMap(@Self)^.clr := $00004000
  80887. else
  80888. pTDefRegMap(@Self)^.&set := $00004000;
  80889. end;
  80890. function TCAN1_C1FIFOCON12.getFRESET : TBits_1; inline;
  80891. begin
  80892. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  80893. end;
  80894. procedure TCAN1_C1FIFOCON12.setFSIZE(thebits : TBits_5); inline;
  80895. begin
  80896. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  80897. end;
  80898. function TCAN1_C1FIFOCON12.getFSIZE : TBits_5; inline;
  80899. begin
  80900. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  80901. end;
  80902. procedure TCAN1_C1FIFOCON12.setw(thebits : TBits_32); inline;
  80903. begin
  80904. pTDefRegMap(@Self)^.val := thebits;
  80905. end;
  80906. function TCAN1_C1FIFOCON12.getw : TBits_32; inline;
  80907. begin
  80908. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80909. end;
  80910. procedure TCAN1_C1FIFOINT12.setRXNEMPTYIF; inline;
  80911. begin
  80912. pTDefRegMap(@Self)^.&set := $00000001;
  80913. end;
  80914. procedure TCAN1_C1FIFOINT12.clearRXNEMPTYIF; inline;
  80915. begin
  80916. pTDefRegMap(@Self)^.clr := $00000001;
  80917. end;
  80918. procedure TCAN1_C1FIFOINT12.setRXNEMPTYIF(thebits : TBits_1); inline;
  80919. begin
  80920. if thebits = 0 then
  80921. pTDefRegMap(@Self)^.clr := $00000001
  80922. else
  80923. pTDefRegMap(@Self)^.&set := $00000001;
  80924. end;
  80925. function TCAN1_C1FIFOINT12.getRXNEMPTYIF : TBits_1; inline;
  80926. begin
  80927. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  80928. end;
  80929. procedure TCAN1_C1FIFOINT12.setRXHALFIF; inline;
  80930. begin
  80931. pTDefRegMap(@Self)^.&set := $00000002;
  80932. end;
  80933. procedure TCAN1_C1FIFOINT12.clearRXHALFIF; inline;
  80934. begin
  80935. pTDefRegMap(@Self)^.clr := $00000002;
  80936. end;
  80937. procedure TCAN1_C1FIFOINT12.setRXHALFIF(thebits : TBits_1); inline;
  80938. begin
  80939. if thebits = 0 then
  80940. pTDefRegMap(@Self)^.clr := $00000002
  80941. else
  80942. pTDefRegMap(@Self)^.&set := $00000002;
  80943. end;
  80944. function TCAN1_C1FIFOINT12.getRXHALFIF : TBits_1; inline;
  80945. begin
  80946. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  80947. end;
  80948. procedure TCAN1_C1FIFOINT12.setRXFULLIF; inline;
  80949. begin
  80950. pTDefRegMap(@Self)^.&set := $00000004;
  80951. end;
  80952. procedure TCAN1_C1FIFOINT12.clearRXFULLIF; inline;
  80953. begin
  80954. pTDefRegMap(@Self)^.clr := $00000004;
  80955. end;
  80956. procedure TCAN1_C1FIFOINT12.setRXFULLIF(thebits : TBits_1); inline;
  80957. begin
  80958. if thebits = 0 then
  80959. pTDefRegMap(@Self)^.clr := $00000004
  80960. else
  80961. pTDefRegMap(@Self)^.&set := $00000004;
  80962. end;
  80963. function TCAN1_C1FIFOINT12.getRXFULLIF : TBits_1; inline;
  80964. begin
  80965. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  80966. end;
  80967. procedure TCAN1_C1FIFOINT12.setRXOVFLIF; inline;
  80968. begin
  80969. pTDefRegMap(@Self)^.&set := $00000008;
  80970. end;
  80971. procedure TCAN1_C1FIFOINT12.clearRXOVFLIF; inline;
  80972. begin
  80973. pTDefRegMap(@Self)^.clr := $00000008;
  80974. end;
  80975. procedure TCAN1_C1FIFOINT12.setRXOVFLIF(thebits : TBits_1); inline;
  80976. begin
  80977. if thebits = 0 then
  80978. pTDefRegMap(@Self)^.clr := $00000008
  80979. else
  80980. pTDefRegMap(@Self)^.&set := $00000008;
  80981. end;
  80982. function TCAN1_C1FIFOINT12.getRXOVFLIF : TBits_1; inline;
  80983. begin
  80984. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  80985. end;
  80986. procedure TCAN1_C1FIFOINT12.setTXEMPTYIF; inline;
  80987. begin
  80988. pTDefRegMap(@Self)^.&set := $00000100;
  80989. end;
  80990. procedure TCAN1_C1FIFOINT12.clearTXEMPTYIF; inline;
  80991. begin
  80992. pTDefRegMap(@Self)^.clr := $00000100;
  80993. end;
  80994. procedure TCAN1_C1FIFOINT12.setTXEMPTYIF(thebits : TBits_1); inline;
  80995. begin
  80996. if thebits = 0 then
  80997. pTDefRegMap(@Self)^.clr := $00000100
  80998. else
  80999. pTDefRegMap(@Self)^.&set := $00000100;
  81000. end;
  81001. function TCAN1_C1FIFOINT12.getTXEMPTYIF : TBits_1; inline;
  81002. begin
  81003. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  81004. end;
  81005. procedure TCAN1_C1FIFOINT12.setTXHALFIF; inline;
  81006. begin
  81007. pTDefRegMap(@Self)^.&set := $00000200;
  81008. end;
  81009. procedure TCAN1_C1FIFOINT12.clearTXHALFIF; inline;
  81010. begin
  81011. pTDefRegMap(@Self)^.clr := $00000200;
  81012. end;
  81013. procedure TCAN1_C1FIFOINT12.setTXHALFIF(thebits : TBits_1); inline;
  81014. begin
  81015. if thebits = 0 then
  81016. pTDefRegMap(@Self)^.clr := $00000200
  81017. else
  81018. pTDefRegMap(@Self)^.&set := $00000200;
  81019. end;
  81020. function TCAN1_C1FIFOINT12.getTXHALFIF : TBits_1; inline;
  81021. begin
  81022. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  81023. end;
  81024. procedure TCAN1_C1FIFOINT12.setTXNFULLIF; inline;
  81025. begin
  81026. pTDefRegMap(@Self)^.&set := $00000400;
  81027. end;
  81028. procedure TCAN1_C1FIFOINT12.clearTXNFULLIF; inline;
  81029. begin
  81030. pTDefRegMap(@Self)^.clr := $00000400;
  81031. end;
  81032. procedure TCAN1_C1FIFOINT12.setTXNFULLIF(thebits : TBits_1); inline;
  81033. begin
  81034. if thebits = 0 then
  81035. pTDefRegMap(@Self)^.clr := $00000400
  81036. else
  81037. pTDefRegMap(@Self)^.&set := $00000400;
  81038. end;
  81039. function TCAN1_C1FIFOINT12.getTXNFULLIF : TBits_1; inline;
  81040. begin
  81041. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  81042. end;
  81043. procedure TCAN1_C1FIFOINT12.setRXNEMPTYIE; inline;
  81044. begin
  81045. pTDefRegMap(@Self)^.&set := $00010000;
  81046. end;
  81047. procedure TCAN1_C1FIFOINT12.clearRXNEMPTYIE; inline;
  81048. begin
  81049. pTDefRegMap(@Self)^.clr := $00010000;
  81050. end;
  81051. procedure TCAN1_C1FIFOINT12.setRXNEMPTYIE(thebits : TBits_1); inline;
  81052. begin
  81053. if thebits = 0 then
  81054. pTDefRegMap(@Self)^.clr := $00010000
  81055. else
  81056. pTDefRegMap(@Self)^.&set := $00010000;
  81057. end;
  81058. function TCAN1_C1FIFOINT12.getRXNEMPTYIE : TBits_1; inline;
  81059. begin
  81060. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  81061. end;
  81062. procedure TCAN1_C1FIFOINT12.setRXHALFIE; inline;
  81063. begin
  81064. pTDefRegMap(@Self)^.&set := $00020000;
  81065. end;
  81066. procedure TCAN1_C1FIFOINT12.clearRXHALFIE; inline;
  81067. begin
  81068. pTDefRegMap(@Self)^.clr := $00020000;
  81069. end;
  81070. procedure TCAN1_C1FIFOINT12.setRXHALFIE(thebits : TBits_1); inline;
  81071. begin
  81072. if thebits = 0 then
  81073. pTDefRegMap(@Self)^.clr := $00020000
  81074. else
  81075. pTDefRegMap(@Self)^.&set := $00020000;
  81076. end;
  81077. function TCAN1_C1FIFOINT12.getRXHALFIE : TBits_1; inline;
  81078. begin
  81079. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  81080. end;
  81081. procedure TCAN1_C1FIFOINT12.setRXFULLIE; inline;
  81082. begin
  81083. pTDefRegMap(@Self)^.&set := $00040000;
  81084. end;
  81085. procedure TCAN1_C1FIFOINT12.clearRXFULLIE; inline;
  81086. begin
  81087. pTDefRegMap(@Self)^.clr := $00040000;
  81088. end;
  81089. procedure TCAN1_C1FIFOINT12.setRXFULLIE(thebits : TBits_1); inline;
  81090. begin
  81091. if thebits = 0 then
  81092. pTDefRegMap(@Self)^.clr := $00040000
  81093. else
  81094. pTDefRegMap(@Self)^.&set := $00040000;
  81095. end;
  81096. function TCAN1_C1FIFOINT12.getRXFULLIE : TBits_1; inline;
  81097. begin
  81098. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  81099. end;
  81100. procedure TCAN1_C1FIFOINT12.setRXOVFLIE; inline;
  81101. begin
  81102. pTDefRegMap(@Self)^.&set := $00080000;
  81103. end;
  81104. procedure TCAN1_C1FIFOINT12.clearRXOVFLIE; inline;
  81105. begin
  81106. pTDefRegMap(@Self)^.clr := $00080000;
  81107. end;
  81108. procedure TCAN1_C1FIFOINT12.setRXOVFLIE(thebits : TBits_1); inline;
  81109. begin
  81110. if thebits = 0 then
  81111. pTDefRegMap(@Self)^.clr := $00080000
  81112. else
  81113. pTDefRegMap(@Self)^.&set := $00080000;
  81114. end;
  81115. function TCAN1_C1FIFOINT12.getRXOVFLIE : TBits_1; inline;
  81116. begin
  81117. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  81118. end;
  81119. procedure TCAN1_C1FIFOINT12.setTXEMPTYIE; inline;
  81120. begin
  81121. pTDefRegMap(@Self)^.&set := $01000000;
  81122. end;
  81123. procedure TCAN1_C1FIFOINT12.clearTXEMPTYIE; inline;
  81124. begin
  81125. pTDefRegMap(@Self)^.clr := $01000000;
  81126. end;
  81127. procedure TCAN1_C1FIFOINT12.setTXEMPTYIE(thebits : TBits_1); inline;
  81128. begin
  81129. if thebits = 0 then
  81130. pTDefRegMap(@Self)^.clr := $01000000
  81131. else
  81132. pTDefRegMap(@Self)^.&set := $01000000;
  81133. end;
  81134. function TCAN1_C1FIFOINT12.getTXEMPTYIE : TBits_1; inline;
  81135. begin
  81136. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  81137. end;
  81138. procedure TCAN1_C1FIFOINT12.setTXHALFIE; inline;
  81139. begin
  81140. pTDefRegMap(@Self)^.&set := $02000000;
  81141. end;
  81142. procedure TCAN1_C1FIFOINT12.clearTXHALFIE; inline;
  81143. begin
  81144. pTDefRegMap(@Self)^.clr := $02000000;
  81145. end;
  81146. procedure TCAN1_C1FIFOINT12.setTXHALFIE(thebits : TBits_1); inline;
  81147. begin
  81148. if thebits = 0 then
  81149. pTDefRegMap(@Self)^.clr := $02000000
  81150. else
  81151. pTDefRegMap(@Self)^.&set := $02000000;
  81152. end;
  81153. function TCAN1_C1FIFOINT12.getTXHALFIE : TBits_1; inline;
  81154. begin
  81155. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  81156. end;
  81157. procedure TCAN1_C1FIFOINT12.setTXNFULLIE; inline;
  81158. begin
  81159. pTDefRegMap(@Self)^.&set := $04000000;
  81160. end;
  81161. procedure TCAN1_C1FIFOINT12.clearTXNFULLIE; inline;
  81162. begin
  81163. pTDefRegMap(@Self)^.clr := $04000000;
  81164. end;
  81165. procedure TCAN1_C1FIFOINT12.setTXNFULLIE(thebits : TBits_1); inline;
  81166. begin
  81167. if thebits = 0 then
  81168. pTDefRegMap(@Self)^.clr := $04000000
  81169. else
  81170. pTDefRegMap(@Self)^.&set := $04000000;
  81171. end;
  81172. function TCAN1_C1FIFOINT12.getTXNFULLIE : TBits_1; inline;
  81173. begin
  81174. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  81175. end;
  81176. procedure TCAN1_C1FIFOINT12.setw(thebits : TBits_32); inline;
  81177. begin
  81178. pTDefRegMap(@Self)^.val := thebits;
  81179. end;
  81180. function TCAN1_C1FIFOINT12.getw : TBits_32; inline;
  81181. begin
  81182. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81183. end;
  81184. procedure TCAN1_C1FIFOCI12.setCFIFOCI(thebits : TBits_5); inline;
  81185. begin
  81186. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  81187. end;
  81188. function TCAN1_C1FIFOCI12.getCFIFOCI : TBits_5; inline;
  81189. begin
  81190. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  81191. end;
  81192. procedure TCAN1_C1FIFOCI12.setw(thebits : TBits_32); inline;
  81193. begin
  81194. pTDefRegMap(@Self)^.val := thebits;
  81195. end;
  81196. function TCAN1_C1FIFOCI12.getw : TBits_32; inline;
  81197. begin
  81198. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81199. end;
  81200. procedure TCAN1_C1FIFOCON13.setTXPRI(thebits : TBits_2); inline;
  81201. begin
  81202. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  81203. end;
  81204. function TCAN1_C1FIFOCON13.getTXPRI : TBits_2; inline;
  81205. begin
  81206. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  81207. end;
  81208. procedure TCAN1_C1FIFOCON13.setRTREN; inline;
  81209. begin
  81210. pTDefRegMap(@Self)^.&set := $00000004;
  81211. end;
  81212. procedure TCAN1_C1FIFOCON13.clearRTREN; inline;
  81213. begin
  81214. pTDefRegMap(@Self)^.clr := $00000004;
  81215. end;
  81216. procedure TCAN1_C1FIFOCON13.setRTREN(thebits : TBits_1); inline;
  81217. begin
  81218. if thebits = 0 then
  81219. pTDefRegMap(@Self)^.clr := $00000004
  81220. else
  81221. pTDefRegMap(@Self)^.&set := $00000004;
  81222. end;
  81223. function TCAN1_C1FIFOCON13.getRTREN : TBits_1; inline;
  81224. begin
  81225. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  81226. end;
  81227. procedure TCAN1_C1FIFOCON13.setTXREQ; inline;
  81228. begin
  81229. pTDefRegMap(@Self)^.&set := $00000008;
  81230. end;
  81231. procedure TCAN1_C1FIFOCON13.clearTXREQ; inline;
  81232. begin
  81233. pTDefRegMap(@Self)^.clr := $00000008;
  81234. end;
  81235. procedure TCAN1_C1FIFOCON13.setTXREQ(thebits : TBits_1); inline;
  81236. begin
  81237. if thebits = 0 then
  81238. pTDefRegMap(@Self)^.clr := $00000008
  81239. else
  81240. pTDefRegMap(@Self)^.&set := $00000008;
  81241. end;
  81242. function TCAN1_C1FIFOCON13.getTXREQ : TBits_1; inline;
  81243. begin
  81244. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  81245. end;
  81246. procedure TCAN1_C1FIFOCON13.setTXERR; inline;
  81247. begin
  81248. pTDefRegMap(@Self)^.&set := $00000010;
  81249. end;
  81250. procedure TCAN1_C1FIFOCON13.clearTXERR; inline;
  81251. begin
  81252. pTDefRegMap(@Self)^.clr := $00000010;
  81253. end;
  81254. procedure TCAN1_C1FIFOCON13.setTXERR(thebits : TBits_1); inline;
  81255. begin
  81256. if thebits = 0 then
  81257. pTDefRegMap(@Self)^.clr := $00000010
  81258. else
  81259. pTDefRegMap(@Self)^.&set := $00000010;
  81260. end;
  81261. function TCAN1_C1FIFOCON13.getTXERR : TBits_1; inline;
  81262. begin
  81263. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  81264. end;
  81265. procedure TCAN1_C1FIFOCON13.setTXLARB; inline;
  81266. begin
  81267. pTDefRegMap(@Self)^.&set := $00000020;
  81268. end;
  81269. procedure TCAN1_C1FIFOCON13.clearTXLARB; inline;
  81270. begin
  81271. pTDefRegMap(@Self)^.clr := $00000020;
  81272. end;
  81273. procedure TCAN1_C1FIFOCON13.setTXLARB(thebits : TBits_1); inline;
  81274. begin
  81275. if thebits = 0 then
  81276. pTDefRegMap(@Self)^.clr := $00000020
  81277. else
  81278. pTDefRegMap(@Self)^.&set := $00000020;
  81279. end;
  81280. function TCAN1_C1FIFOCON13.getTXLARB : TBits_1; inline;
  81281. begin
  81282. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  81283. end;
  81284. procedure TCAN1_C1FIFOCON13.setTXABAT; inline;
  81285. begin
  81286. pTDefRegMap(@Self)^.&set := $00000040;
  81287. end;
  81288. procedure TCAN1_C1FIFOCON13.clearTXABAT; inline;
  81289. begin
  81290. pTDefRegMap(@Self)^.clr := $00000040;
  81291. end;
  81292. procedure TCAN1_C1FIFOCON13.setTXABAT(thebits : TBits_1); inline;
  81293. begin
  81294. if thebits = 0 then
  81295. pTDefRegMap(@Self)^.clr := $00000040
  81296. else
  81297. pTDefRegMap(@Self)^.&set := $00000040;
  81298. end;
  81299. function TCAN1_C1FIFOCON13.getTXABAT : TBits_1; inline;
  81300. begin
  81301. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  81302. end;
  81303. procedure TCAN1_C1FIFOCON13.setTXEN; inline;
  81304. begin
  81305. pTDefRegMap(@Self)^.&set := $00000080;
  81306. end;
  81307. procedure TCAN1_C1FIFOCON13.clearTXEN; inline;
  81308. begin
  81309. pTDefRegMap(@Self)^.clr := $00000080;
  81310. end;
  81311. procedure TCAN1_C1FIFOCON13.setTXEN(thebits : TBits_1); inline;
  81312. begin
  81313. if thebits = 0 then
  81314. pTDefRegMap(@Self)^.clr := $00000080
  81315. else
  81316. pTDefRegMap(@Self)^.&set := $00000080;
  81317. end;
  81318. function TCAN1_C1FIFOCON13.getTXEN : TBits_1; inline;
  81319. begin
  81320. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  81321. end;
  81322. procedure TCAN1_C1FIFOCON13.setDONLY; inline;
  81323. begin
  81324. pTDefRegMap(@Self)^.&set := $00001000;
  81325. end;
  81326. procedure TCAN1_C1FIFOCON13.clearDONLY; inline;
  81327. begin
  81328. pTDefRegMap(@Self)^.clr := $00001000;
  81329. end;
  81330. procedure TCAN1_C1FIFOCON13.setDONLY(thebits : TBits_1); inline;
  81331. begin
  81332. if thebits = 0 then
  81333. pTDefRegMap(@Self)^.clr := $00001000
  81334. else
  81335. pTDefRegMap(@Self)^.&set := $00001000;
  81336. end;
  81337. function TCAN1_C1FIFOCON13.getDONLY : TBits_1; inline;
  81338. begin
  81339. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  81340. end;
  81341. procedure TCAN1_C1FIFOCON13.setUINC; inline;
  81342. begin
  81343. pTDefRegMap(@Self)^.&set := $00002000;
  81344. end;
  81345. procedure TCAN1_C1FIFOCON13.clearUINC; inline;
  81346. begin
  81347. pTDefRegMap(@Self)^.clr := $00002000;
  81348. end;
  81349. procedure TCAN1_C1FIFOCON13.setUINC(thebits : TBits_1); inline;
  81350. begin
  81351. if thebits = 0 then
  81352. pTDefRegMap(@Self)^.clr := $00002000
  81353. else
  81354. pTDefRegMap(@Self)^.&set := $00002000;
  81355. end;
  81356. function TCAN1_C1FIFOCON13.getUINC : TBits_1; inline;
  81357. begin
  81358. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  81359. end;
  81360. procedure TCAN1_C1FIFOCON13.setFRESET; inline;
  81361. begin
  81362. pTDefRegMap(@Self)^.&set := $00004000;
  81363. end;
  81364. procedure TCAN1_C1FIFOCON13.clearFRESET; inline;
  81365. begin
  81366. pTDefRegMap(@Self)^.clr := $00004000;
  81367. end;
  81368. procedure TCAN1_C1FIFOCON13.setFRESET(thebits : TBits_1); inline;
  81369. begin
  81370. if thebits = 0 then
  81371. pTDefRegMap(@Self)^.clr := $00004000
  81372. else
  81373. pTDefRegMap(@Self)^.&set := $00004000;
  81374. end;
  81375. function TCAN1_C1FIFOCON13.getFRESET : TBits_1; inline;
  81376. begin
  81377. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  81378. end;
  81379. procedure TCAN1_C1FIFOCON13.setFSIZE(thebits : TBits_5); inline;
  81380. begin
  81381. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  81382. end;
  81383. function TCAN1_C1FIFOCON13.getFSIZE : TBits_5; inline;
  81384. begin
  81385. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  81386. end;
  81387. procedure TCAN1_C1FIFOCON13.setw(thebits : TBits_32); inline;
  81388. begin
  81389. pTDefRegMap(@Self)^.val := thebits;
  81390. end;
  81391. function TCAN1_C1FIFOCON13.getw : TBits_32; inline;
  81392. begin
  81393. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81394. end;
  81395. procedure TCAN1_C1FIFOINT13.setRXNEMPTYIF; inline;
  81396. begin
  81397. pTDefRegMap(@Self)^.&set := $00000001;
  81398. end;
  81399. procedure TCAN1_C1FIFOINT13.clearRXNEMPTYIF; inline;
  81400. begin
  81401. pTDefRegMap(@Self)^.clr := $00000001;
  81402. end;
  81403. procedure TCAN1_C1FIFOINT13.setRXNEMPTYIF(thebits : TBits_1); inline;
  81404. begin
  81405. if thebits = 0 then
  81406. pTDefRegMap(@Self)^.clr := $00000001
  81407. else
  81408. pTDefRegMap(@Self)^.&set := $00000001;
  81409. end;
  81410. function TCAN1_C1FIFOINT13.getRXNEMPTYIF : TBits_1; inline;
  81411. begin
  81412. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  81413. end;
  81414. procedure TCAN1_C1FIFOINT13.setRXHALFIF; inline;
  81415. begin
  81416. pTDefRegMap(@Self)^.&set := $00000002;
  81417. end;
  81418. procedure TCAN1_C1FIFOINT13.clearRXHALFIF; inline;
  81419. begin
  81420. pTDefRegMap(@Self)^.clr := $00000002;
  81421. end;
  81422. procedure TCAN1_C1FIFOINT13.setRXHALFIF(thebits : TBits_1); inline;
  81423. begin
  81424. if thebits = 0 then
  81425. pTDefRegMap(@Self)^.clr := $00000002
  81426. else
  81427. pTDefRegMap(@Self)^.&set := $00000002;
  81428. end;
  81429. function TCAN1_C1FIFOINT13.getRXHALFIF : TBits_1; inline;
  81430. begin
  81431. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  81432. end;
  81433. procedure TCAN1_C1FIFOINT13.setRXFULLIF; inline;
  81434. begin
  81435. pTDefRegMap(@Self)^.&set := $00000004;
  81436. end;
  81437. procedure TCAN1_C1FIFOINT13.clearRXFULLIF; inline;
  81438. begin
  81439. pTDefRegMap(@Self)^.clr := $00000004;
  81440. end;
  81441. procedure TCAN1_C1FIFOINT13.setRXFULLIF(thebits : TBits_1); inline;
  81442. begin
  81443. if thebits = 0 then
  81444. pTDefRegMap(@Self)^.clr := $00000004
  81445. else
  81446. pTDefRegMap(@Self)^.&set := $00000004;
  81447. end;
  81448. function TCAN1_C1FIFOINT13.getRXFULLIF : TBits_1; inline;
  81449. begin
  81450. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  81451. end;
  81452. procedure TCAN1_C1FIFOINT13.setRXOVFLIF; inline;
  81453. begin
  81454. pTDefRegMap(@Self)^.&set := $00000008;
  81455. end;
  81456. procedure TCAN1_C1FIFOINT13.clearRXOVFLIF; inline;
  81457. begin
  81458. pTDefRegMap(@Self)^.clr := $00000008;
  81459. end;
  81460. procedure TCAN1_C1FIFOINT13.setRXOVFLIF(thebits : TBits_1); inline;
  81461. begin
  81462. if thebits = 0 then
  81463. pTDefRegMap(@Self)^.clr := $00000008
  81464. else
  81465. pTDefRegMap(@Self)^.&set := $00000008;
  81466. end;
  81467. function TCAN1_C1FIFOINT13.getRXOVFLIF : TBits_1; inline;
  81468. begin
  81469. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  81470. end;
  81471. procedure TCAN1_C1FIFOINT13.setTXEMPTYIF; inline;
  81472. begin
  81473. pTDefRegMap(@Self)^.&set := $00000100;
  81474. end;
  81475. procedure TCAN1_C1FIFOINT13.clearTXEMPTYIF; inline;
  81476. begin
  81477. pTDefRegMap(@Self)^.clr := $00000100;
  81478. end;
  81479. procedure TCAN1_C1FIFOINT13.setTXEMPTYIF(thebits : TBits_1); inline;
  81480. begin
  81481. if thebits = 0 then
  81482. pTDefRegMap(@Self)^.clr := $00000100
  81483. else
  81484. pTDefRegMap(@Self)^.&set := $00000100;
  81485. end;
  81486. function TCAN1_C1FIFOINT13.getTXEMPTYIF : TBits_1; inline;
  81487. begin
  81488. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  81489. end;
  81490. procedure TCAN1_C1FIFOINT13.setTXHALFIF; inline;
  81491. begin
  81492. pTDefRegMap(@Self)^.&set := $00000200;
  81493. end;
  81494. procedure TCAN1_C1FIFOINT13.clearTXHALFIF; inline;
  81495. begin
  81496. pTDefRegMap(@Self)^.clr := $00000200;
  81497. end;
  81498. procedure TCAN1_C1FIFOINT13.setTXHALFIF(thebits : TBits_1); inline;
  81499. begin
  81500. if thebits = 0 then
  81501. pTDefRegMap(@Self)^.clr := $00000200
  81502. else
  81503. pTDefRegMap(@Self)^.&set := $00000200;
  81504. end;
  81505. function TCAN1_C1FIFOINT13.getTXHALFIF : TBits_1; inline;
  81506. begin
  81507. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  81508. end;
  81509. procedure TCAN1_C1FIFOINT13.setTXNFULLIF; inline;
  81510. begin
  81511. pTDefRegMap(@Self)^.&set := $00000400;
  81512. end;
  81513. procedure TCAN1_C1FIFOINT13.clearTXNFULLIF; inline;
  81514. begin
  81515. pTDefRegMap(@Self)^.clr := $00000400;
  81516. end;
  81517. procedure TCAN1_C1FIFOINT13.setTXNFULLIF(thebits : TBits_1); inline;
  81518. begin
  81519. if thebits = 0 then
  81520. pTDefRegMap(@Self)^.clr := $00000400
  81521. else
  81522. pTDefRegMap(@Self)^.&set := $00000400;
  81523. end;
  81524. function TCAN1_C1FIFOINT13.getTXNFULLIF : TBits_1; inline;
  81525. begin
  81526. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  81527. end;
  81528. procedure TCAN1_C1FIFOINT13.setRXNEMPTYIE; inline;
  81529. begin
  81530. pTDefRegMap(@Self)^.&set := $00010000;
  81531. end;
  81532. procedure TCAN1_C1FIFOINT13.clearRXNEMPTYIE; inline;
  81533. begin
  81534. pTDefRegMap(@Self)^.clr := $00010000;
  81535. end;
  81536. procedure TCAN1_C1FIFOINT13.setRXNEMPTYIE(thebits : TBits_1); inline;
  81537. begin
  81538. if thebits = 0 then
  81539. pTDefRegMap(@Self)^.clr := $00010000
  81540. else
  81541. pTDefRegMap(@Self)^.&set := $00010000;
  81542. end;
  81543. function TCAN1_C1FIFOINT13.getRXNEMPTYIE : TBits_1; inline;
  81544. begin
  81545. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  81546. end;
  81547. procedure TCAN1_C1FIFOINT13.setRXHALFIE; inline;
  81548. begin
  81549. pTDefRegMap(@Self)^.&set := $00020000;
  81550. end;
  81551. procedure TCAN1_C1FIFOINT13.clearRXHALFIE; inline;
  81552. begin
  81553. pTDefRegMap(@Self)^.clr := $00020000;
  81554. end;
  81555. procedure TCAN1_C1FIFOINT13.setRXHALFIE(thebits : TBits_1); inline;
  81556. begin
  81557. if thebits = 0 then
  81558. pTDefRegMap(@Self)^.clr := $00020000
  81559. else
  81560. pTDefRegMap(@Self)^.&set := $00020000;
  81561. end;
  81562. function TCAN1_C1FIFOINT13.getRXHALFIE : TBits_1; inline;
  81563. begin
  81564. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  81565. end;
  81566. procedure TCAN1_C1FIFOINT13.setRXFULLIE; inline;
  81567. begin
  81568. pTDefRegMap(@Self)^.&set := $00040000;
  81569. end;
  81570. procedure TCAN1_C1FIFOINT13.clearRXFULLIE; inline;
  81571. begin
  81572. pTDefRegMap(@Self)^.clr := $00040000;
  81573. end;
  81574. procedure TCAN1_C1FIFOINT13.setRXFULLIE(thebits : TBits_1); inline;
  81575. begin
  81576. if thebits = 0 then
  81577. pTDefRegMap(@Self)^.clr := $00040000
  81578. else
  81579. pTDefRegMap(@Self)^.&set := $00040000;
  81580. end;
  81581. function TCAN1_C1FIFOINT13.getRXFULLIE : TBits_1; inline;
  81582. begin
  81583. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  81584. end;
  81585. procedure TCAN1_C1FIFOINT13.setRXOVFLIE; inline;
  81586. begin
  81587. pTDefRegMap(@Self)^.&set := $00080000;
  81588. end;
  81589. procedure TCAN1_C1FIFOINT13.clearRXOVFLIE; inline;
  81590. begin
  81591. pTDefRegMap(@Self)^.clr := $00080000;
  81592. end;
  81593. procedure TCAN1_C1FIFOINT13.setRXOVFLIE(thebits : TBits_1); inline;
  81594. begin
  81595. if thebits = 0 then
  81596. pTDefRegMap(@Self)^.clr := $00080000
  81597. else
  81598. pTDefRegMap(@Self)^.&set := $00080000;
  81599. end;
  81600. function TCAN1_C1FIFOINT13.getRXOVFLIE : TBits_1; inline;
  81601. begin
  81602. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  81603. end;
  81604. procedure TCAN1_C1FIFOINT13.setTXEMPTYIE; inline;
  81605. begin
  81606. pTDefRegMap(@Self)^.&set := $01000000;
  81607. end;
  81608. procedure TCAN1_C1FIFOINT13.clearTXEMPTYIE; inline;
  81609. begin
  81610. pTDefRegMap(@Self)^.clr := $01000000;
  81611. end;
  81612. procedure TCAN1_C1FIFOINT13.setTXEMPTYIE(thebits : TBits_1); inline;
  81613. begin
  81614. if thebits = 0 then
  81615. pTDefRegMap(@Self)^.clr := $01000000
  81616. else
  81617. pTDefRegMap(@Self)^.&set := $01000000;
  81618. end;
  81619. function TCAN1_C1FIFOINT13.getTXEMPTYIE : TBits_1; inline;
  81620. begin
  81621. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  81622. end;
  81623. procedure TCAN1_C1FIFOINT13.setTXHALFIE; inline;
  81624. begin
  81625. pTDefRegMap(@Self)^.&set := $02000000;
  81626. end;
  81627. procedure TCAN1_C1FIFOINT13.clearTXHALFIE; inline;
  81628. begin
  81629. pTDefRegMap(@Self)^.clr := $02000000;
  81630. end;
  81631. procedure TCAN1_C1FIFOINT13.setTXHALFIE(thebits : TBits_1); inline;
  81632. begin
  81633. if thebits = 0 then
  81634. pTDefRegMap(@Self)^.clr := $02000000
  81635. else
  81636. pTDefRegMap(@Self)^.&set := $02000000;
  81637. end;
  81638. function TCAN1_C1FIFOINT13.getTXHALFIE : TBits_1; inline;
  81639. begin
  81640. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  81641. end;
  81642. procedure TCAN1_C1FIFOINT13.setTXNFULLIE; inline;
  81643. begin
  81644. pTDefRegMap(@Self)^.&set := $04000000;
  81645. end;
  81646. procedure TCAN1_C1FIFOINT13.clearTXNFULLIE; inline;
  81647. begin
  81648. pTDefRegMap(@Self)^.clr := $04000000;
  81649. end;
  81650. procedure TCAN1_C1FIFOINT13.setTXNFULLIE(thebits : TBits_1); inline;
  81651. begin
  81652. if thebits = 0 then
  81653. pTDefRegMap(@Self)^.clr := $04000000
  81654. else
  81655. pTDefRegMap(@Self)^.&set := $04000000;
  81656. end;
  81657. function TCAN1_C1FIFOINT13.getTXNFULLIE : TBits_1; inline;
  81658. begin
  81659. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  81660. end;
  81661. procedure TCAN1_C1FIFOINT13.setw(thebits : TBits_32); inline;
  81662. begin
  81663. pTDefRegMap(@Self)^.val := thebits;
  81664. end;
  81665. function TCAN1_C1FIFOINT13.getw : TBits_32; inline;
  81666. begin
  81667. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81668. end;
  81669. procedure TCAN1_C1FIFOCI13.setCFIFOCI(thebits : TBits_5); inline;
  81670. begin
  81671. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  81672. end;
  81673. function TCAN1_C1FIFOCI13.getCFIFOCI : TBits_5; inline;
  81674. begin
  81675. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  81676. end;
  81677. procedure TCAN1_C1FIFOCI13.setw(thebits : TBits_32); inline;
  81678. begin
  81679. pTDefRegMap(@Self)^.val := thebits;
  81680. end;
  81681. function TCAN1_C1FIFOCI13.getw : TBits_32; inline;
  81682. begin
  81683. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81684. end;
  81685. procedure TCAN1_C1FIFOCON14.setTXPRI(thebits : TBits_2); inline;
  81686. begin
  81687. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  81688. end;
  81689. function TCAN1_C1FIFOCON14.getTXPRI : TBits_2; inline;
  81690. begin
  81691. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  81692. end;
  81693. procedure TCAN1_C1FIFOCON14.setRTREN; inline;
  81694. begin
  81695. pTDefRegMap(@Self)^.&set := $00000004;
  81696. end;
  81697. procedure TCAN1_C1FIFOCON14.clearRTREN; inline;
  81698. begin
  81699. pTDefRegMap(@Self)^.clr := $00000004;
  81700. end;
  81701. procedure TCAN1_C1FIFOCON14.setRTREN(thebits : TBits_1); inline;
  81702. begin
  81703. if thebits = 0 then
  81704. pTDefRegMap(@Self)^.clr := $00000004
  81705. else
  81706. pTDefRegMap(@Self)^.&set := $00000004;
  81707. end;
  81708. function TCAN1_C1FIFOCON14.getRTREN : TBits_1; inline;
  81709. begin
  81710. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  81711. end;
  81712. procedure TCAN1_C1FIFOCON14.setTXREQ; inline;
  81713. begin
  81714. pTDefRegMap(@Self)^.&set := $00000008;
  81715. end;
  81716. procedure TCAN1_C1FIFOCON14.clearTXREQ; inline;
  81717. begin
  81718. pTDefRegMap(@Self)^.clr := $00000008;
  81719. end;
  81720. procedure TCAN1_C1FIFOCON14.setTXREQ(thebits : TBits_1); inline;
  81721. begin
  81722. if thebits = 0 then
  81723. pTDefRegMap(@Self)^.clr := $00000008
  81724. else
  81725. pTDefRegMap(@Self)^.&set := $00000008;
  81726. end;
  81727. function TCAN1_C1FIFOCON14.getTXREQ : TBits_1; inline;
  81728. begin
  81729. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  81730. end;
  81731. procedure TCAN1_C1FIFOCON14.setTXERR; inline;
  81732. begin
  81733. pTDefRegMap(@Self)^.&set := $00000010;
  81734. end;
  81735. procedure TCAN1_C1FIFOCON14.clearTXERR; inline;
  81736. begin
  81737. pTDefRegMap(@Self)^.clr := $00000010;
  81738. end;
  81739. procedure TCAN1_C1FIFOCON14.setTXERR(thebits : TBits_1); inline;
  81740. begin
  81741. if thebits = 0 then
  81742. pTDefRegMap(@Self)^.clr := $00000010
  81743. else
  81744. pTDefRegMap(@Self)^.&set := $00000010;
  81745. end;
  81746. function TCAN1_C1FIFOCON14.getTXERR : TBits_1; inline;
  81747. begin
  81748. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  81749. end;
  81750. procedure TCAN1_C1FIFOCON14.setTXLARB; inline;
  81751. begin
  81752. pTDefRegMap(@Self)^.&set := $00000020;
  81753. end;
  81754. procedure TCAN1_C1FIFOCON14.clearTXLARB; inline;
  81755. begin
  81756. pTDefRegMap(@Self)^.clr := $00000020;
  81757. end;
  81758. procedure TCAN1_C1FIFOCON14.setTXLARB(thebits : TBits_1); inline;
  81759. begin
  81760. if thebits = 0 then
  81761. pTDefRegMap(@Self)^.clr := $00000020
  81762. else
  81763. pTDefRegMap(@Self)^.&set := $00000020;
  81764. end;
  81765. function TCAN1_C1FIFOCON14.getTXLARB : TBits_1; inline;
  81766. begin
  81767. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  81768. end;
  81769. procedure TCAN1_C1FIFOCON14.setTXABAT; inline;
  81770. begin
  81771. pTDefRegMap(@Self)^.&set := $00000040;
  81772. end;
  81773. procedure TCAN1_C1FIFOCON14.clearTXABAT; inline;
  81774. begin
  81775. pTDefRegMap(@Self)^.clr := $00000040;
  81776. end;
  81777. procedure TCAN1_C1FIFOCON14.setTXABAT(thebits : TBits_1); inline;
  81778. begin
  81779. if thebits = 0 then
  81780. pTDefRegMap(@Self)^.clr := $00000040
  81781. else
  81782. pTDefRegMap(@Self)^.&set := $00000040;
  81783. end;
  81784. function TCAN1_C1FIFOCON14.getTXABAT : TBits_1; inline;
  81785. begin
  81786. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  81787. end;
  81788. procedure TCAN1_C1FIFOCON14.setTXEN; inline;
  81789. begin
  81790. pTDefRegMap(@Self)^.&set := $00000080;
  81791. end;
  81792. procedure TCAN1_C1FIFOCON14.clearTXEN; inline;
  81793. begin
  81794. pTDefRegMap(@Self)^.clr := $00000080;
  81795. end;
  81796. procedure TCAN1_C1FIFOCON14.setTXEN(thebits : TBits_1); inline;
  81797. begin
  81798. if thebits = 0 then
  81799. pTDefRegMap(@Self)^.clr := $00000080
  81800. else
  81801. pTDefRegMap(@Self)^.&set := $00000080;
  81802. end;
  81803. function TCAN1_C1FIFOCON14.getTXEN : TBits_1; inline;
  81804. begin
  81805. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  81806. end;
  81807. procedure TCAN1_C1FIFOCON14.setDONLY; inline;
  81808. begin
  81809. pTDefRegMap(@Self)^.&set := $00001000;
  81810. end;
  81811. procedure TCAN1_C1FIFOCON14.clearDONLY; inline;
  81812. begin
  81813. pTDefRegMap(@Self)^.clr := $00001000;
  81814. end;
  81815. procedure TCAN1_C1FIFOCON14.setDONLY(thebits : TBits_1); inline;
  81816. begin
  81817. if thebits = 0 then
  81818. pTDefRegMap(@Self)^.clr := $00001000
  81819. else
  81820. pTDefRegMap(@Self)^.&set := $00001000;
  81821. end;
  81822. function TCAN1_C1FIFOCON14.getDONLY : TBits_1; inline;
  81823. begin
  81824. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  81825. end;
  81826. procedure TCAN1_C1FIFOCON14.setUINC; inline;
  81827. begin
  81828. pTDefRegMap(@Self)^.&set := $00002000;
  81829. end;
  81830. procedure TCAN1_C1FIFOCON14.clearUINC; inline;
  81831. begin
  81832. pTDefRegMap(@Self)^.clr := $00002000;
  81833. end;
  81834. procedure TCAN1_C1FIFOCON14.setUINC(thebits : TBits_1); inline;
  81835. begin
  81836. if thebits = 0 then
  81837. pTDefRegMap(@Self)^.clr := $00002000
  81838. else
  81839. pTDefRegMap(@Self)^.&set := $00002000;
  81840. end;
  81841. function TCAN1_C1FIFOCON14.getUINC : TBits_1; inline;
  81842. begin
  81843. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  81844. end;
  81845. procedure TCAN1_C1FIFOCON14.setFRESET; inline;
  81846. begin
  81847. pTDefRegMap(@Self)^.&set := $00004000;
  81848. end;
  81849. procedure TCAN1_C1FIFOCON14.clearFRESET; inline;
  81850. begin
  81851. pTDefRegMap(@Self)^.clr := $00004000;
  81852. end;
  81853. procedure TCAN1_C1FIFOCON14.setFRESET(thebits : TBits_1); inline;
  81854. begin
  81855. if thebits = 0 then
  81856. pTDefRegMap(@Self)^.clr := $00004000
  81857. else
  81858. pTDefRegMap(@Self)^.&set := $00004000;
  81859. end;
  81860. function TCAN1_C1FIFOCON14.getFRESET : TBits_1; inline;
  81861. begin
  81862. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  81863. end;
  81864. procedure TCAN1_C1FIFOCON14.setFSIZE(thebits : TBits_5); inline;
  81865. begin
  81866. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  81867. end;
  81868. function TCAN1_C1FIFOCON14.getFSIZE : TBits_5; inline;
  81869. begin
  81870. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  81871. end;
  81872. procedure TCAN1_C1FIFOCON14.setw(thebits : TBits_32); inline;
  81873. begin
  81874. pTDefRegMap(@Self)^.val := thebits;
  81875. end;
  81876. function TCAN1_C1FIFOCON14.getw : TBits_32; inline;
  81877. begin
  81878. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81879. end;
  81880. procedure TCAN1_C1FIFOINT14.setRXNEMPTYIF; inline;
  81881. begin
  81882. pTDefRegMap(@Self)^.&set := $00000001;
  81883. end;
  81884. procedure TCAN1_C1FIFOINT14.clearRXNEMPTYIF; inline;
  81885. begin
  81886. pTDefRegMap(@Self)^.clr := $00000001;
  81887. end;
  81888. procedure TCAN1_C1FIFOINT14.setRXNEMPTYIF(thebits : TBits_1); inline;
  81889. begin
  81890. if thebits = 0 then
  81891. pTDefRegMap(@Self)^.clr := $00000001
  81892. else
  81893. pTDefRegMap(@Self)^.&set := $00000001;
  81894. end;
  81895. function TCAN1_C1FIFOINT14.getRXNEMPTYIF : TBits_1; inline;
  81896. begin
  81897. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  81898. end;
  81899. procedure TCAN1_C1FIFOINT14.setRXHALFIF; inline;
  81900. begin
  81901. pTDefRegMap(@Self)^.&set := $00000002;
  81902. end;
  81903. procedure TCAN1_C1FIFOINT14.clearRXHALFIF; inline;
  81904. begin
  81905. pTDefRegMap(@Self)^.clr := $00000002;
  81906. end;
  81907. procedure TCAN1_C1FIFOINT14.setRXHALFIF(thebits : TBits_1); inline;
  81908. begin
  81909. if thebits = 0 then
  81910. pTDefRegMap(@Self)^.clr := $00000002
  81911. else
  81912. pTDefRegMap(@Self)^.&set := $00000002;
  81913. end;
  81914. function TCAN1_C1FIFOINT14.getRXHALFIF : TBits_1; inline;
  81915. begin
  81916. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  81917. end;
  81918. procedure TCAN1_C1FIFOINT14.setRXFULLIF; inline;
  81919. begin
  81920. pTDefRegMap(@Self)^.&set := $00000004;
  81921. end;
  81922. procedure TCAN1_C1FIFOINT14.clearRXFULLIF; inline;
  81923. begin
  81924. pTDefRegMap(@Self)^.clr := $00000004;
  81925. end;
  81926. procedure TCAN1_C1FIFOINT14.setRXFULLIF(thebits : TBits_1); inline;
  81927. begin
  81928. if thebits = 0 then
  81929. pTDefRegMap(@Self)^.clr := $00000004
  81930. else
  81931. pTDefRegMap(@Self)^.&set := $00000004;
  81932. end;
  81933. function TCAN1_C1FIFOINT14.getRXFULLIF : TBits_1; inline;
  81934. begin
  81935. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  81936. end;
  81937. procedure TCAN1_C1FIFOINT14.setRXOVFLIF; inline;
  81938. begin
  81939. pTDefRegMap(@Self)^.&set := $00000008;
  81940. end;
  81941. procedure TCAN1_C1FIFOINT14.clearRXOVFLIF; inline;
  81942. begin
  81943. pTDefRegMap(@Self)^.clr := $00000008;
  81944. end;
  81945. procedure TCAN1_C1FIFOINT14.setRXOVFLIF(thebits : TBits_1); inline;
  81946. begin
  81947. if thebits = 0 then
  81948. pTDefRegMap(@Self)^.clr := $00000008
  81949. else
  81950. pTDefRegMap(@Self)^.&set := $00000008;
  81951. end;
  81952. function TCAN1_C1FIFOINT14.getRXOVFLIF : TBits_1; inline;
  81953. begin
  81954. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  81955. end;
  81956. procedure TCAN1_C1FIFOINT14.setTXEMPTYIF; inline;
  81957. begin
  81958. pTDefRegMap(@Self)^.&set := $00000100;
  81959. end;
  81960. procedure TCAN1_C1FIFOINT14.clearTXEMPTYIF; inline;
  81961. begin
  81962. pTDefRegMap(@Self)^.clr := $00000100;
  81963. end;
  81964. procedure TCAN1_C1FIFOINT14.setTXEMPTYIF(thebits : TBits_1); inline;
  81965. begin
  81966. if thebits = 0 then
  81967. pTDefRegMap(@Self)^.clr := $00000100
  81968. else
  81969. pTDefRegMap(@Self)^.&set := $00000100;
  81970. end;
  81971. function TCAN1_C1FIFOINT14.getTXEMPTYIF : TBits_1; inline;
  81972. begin
  81973. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  81974. end;
  81975. procedure TCAN1_C1FIFOINT14.setTXHALFIF; inline;
  81976. begin
  81977. pTDefRegMap(@Self)^.&set := $00000200;
  81978. end;
  81979. procedure TCAN1_C1FIFOINT14.clearTXHALFIF; inline;
  81980. begin
  81981. pTDefRegMap(@Self)^.clr := $00000200;
  81982. end;
  81983. procedure TCAN1_C1FIFOINT14.setTXHALFIF(thebits : TBits_1); inline;
  81984. begin
  81985. if thebits = 0 then
  81986. pTDefRegMap(@Self)^.clr := $00000200
  81987. else
  81988. pTDefRegMap(@Self)^.&set := $00000200;
  81989. end;
  81990. function TCAN1_C1FIFOINT14.getTXHALFIF : TBits_1; inline;
  81991. begin
  81992. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  81993. end;
  81994. procedure TCAN1_C1FIFOINT14.setTXNFULLIF; inline;
  81995. begin
  81996. pTDefRegMap(@Self)^.&set := $00000400;
  81997. end;
  81998. procedure TCAN1_C1FIFOINT14.clearTXNFULLIF; inline;
  81999. begin
  82000. pTDefRegMap(@Self)^.clr := $00000400;
  82001. end;
  82002. procedure TCAN1_C1FIFOINT14.setTXNFULLIF(thebits : TBits_1); inline;
  82003. begin
  82004. if thebits = 0 then
  82005. pTDefRegMap(@Self)^.clr := $00000400
  82006. else
  82007. pTDefRegMap(@Self)^.&set := $00000400;
  82008. end;
  82009. function TCAN1_C1FIFOINT14.getTXNFULLIF : TBits_1; inline;
  82010. begin
  82011. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  82012. end;
  82013. procedure TCAN1_C1FIFOINT14.setRXNEMPTYIE; inline;
  82014. begin
  82015. pTDefRegMap(@Self)^.&set := $00010000;
  82016. end;
  82017. procedure TCAN1_C1FIFOINT14.clearRXNEMPTYIE; inline;
  82018. begin
  82019. pTDefRegMap(@Self)^.clr := $00010000;
  82020. end;
  82021. procedure TCAN1_C1FIFOINT14.setRXNEMPTYIE(thebits : TBits_1); inline;
  82022. begin
  82023. if thebits = 0 then
  82024. pTDefRegMap(@Self)^.clr := $00010000
  82025. else
  82026. pTDefRegMap(@Self)^.&set := $00010000;
  82027. end;
  82028. function TCAN1_C1FIFOINT14.getRXNEMPTYIE : TBits_1; inline;
  82029. begin
  82030. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  82031. end;
  82032. procedure TCAN1_C1FIFOINT14.setRXHALFIE; inline;
  82033. begin
  82034. pTDefRegMap(@Self)^.&set := $00020000;
  82035. end;
  82036. procedure TCAN1_C1FIFOINT14.clearRXHALFIE; inline;
  82037. begin
  82038. pTDefRegMap(@Self)^.clr := $00020000;
  82039. end;
  82040. procedure TCAN1_C1FIFOINT14.setRXHALFIE(thebits : TBits_1); inline;
  82041. begin
  82042. if thebits = 0 then
  82043. pTDefRegMap(@Self)^.clr := $00020000
  82044. else
  82045. pTDefRegMap(@Self)^.&set := $00020000;
  82046. end;
  82047. function TCAN1_C1FIFOINT14.getRXHALFIE : TBits_1; inline;
  82048. begin
  82049. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  82050. end;
  82051. procedure TCAN1_C1FIFOINT14.setRXFULLIE; inline;
  82052. begin
  82053. pTDefRegMap(@Self)^.&set := $00040000;
  82054. end;
  82055. procedure TCAN1_C1FIFOINT14.clearRXFULLIE; inline;
  82056. begin
  82057. pTDefRegMap(@Self)^.clr := $00040000;
  82058. end;
  82059. procedure TCAN1_C1FIFOINT14.setRXFULLIE(thebits : TBits_1); inline;
  82060. begin
  82061. if thebits = 0 then
  82062. pTDefRegMap(@Self)^.clr := $00040000
  82063. else
  82064. pTDefRegMap(@Self)^.&set := $00040000;
  82065. end;
  82066. function TCAN1_C1FIFOINT14.getRXFULLIE : TBits_1; inline;
  82067. begin
  82068. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  82069. end;
  82070. procedure TCAN1_C1FIFOINT14.setRXOVFLIE; inline;
  82071. begin
  82072. pTDefRegMap(@Self)^.&set := $00080000;
  82073. end;
  82074. procedure TCAN1_C1FIFOINT14.clearRXOVFLIE; inline;
  82075. begin
  82076. pTDefRegMap(@Self)^.clr := $00080000;
  82077. end;
  82078. procedure TCAN1_C1FIFOINT14.setRXOVFLIE(thebits : TBits_1); inline;
  82079. begin
  82080. if thebits = 0 then
  82081. pTDefRegMap(@Self)^.clr := $00080000
  82082. else
  82083. pTDefRegMap(@Self)^.&set := $00080000;
  82084. end;
  82085. function TCAN1_C1FIFOINT14.getRXOVFLIE : TBits_1; inline;
  82086. begin
  82087. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  82088. end;
  82089. procedure TCAN1_C1FIFOINT14.setTXEMPTYIE; inline;
  82090. begin
  82091. pTDefRegMap(@Self)^.&set := $01000000;
  82092. end;
  82093. procedure TCAN1_C1FIFOINT14.clearTXEMPTYIE; inline;
  82094. begin
  82095. pTDefRegMap(@Self)^.clr := $01000000;
  82096. end;
  82097. procedure TCAN1_C1FIFOINT14.setTXEMPTYIE(thebits : TBits_1); inline;
  82098. begin
  82099. if thebits = 0 then
  82100. pTDefRegMap(@Self)^.clr := $01000000
  82101. else
  82102. pTDefRegMap(@Self)^.&set := $01000000;
  82103. end;
  82104. function TCAN1_C1FIFOINT14.getTXEMPTYIE : TBits_1; inline;
  82105. begin
  82106. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  82107. end;
  82108. procedure TCAN1_C1FIFOINT14.setTXHALFIE; inline;
  82109. begin
  82110. pTDefRegMap(@Self)^.&set := $02000000;
  82111. end;
  82112. procedure TCAN1_C1FIFOINT14.clearTXHALFIE; inline;
  82113. begin
  82114. pTDefRegMap(@Self)^.clr := $02000000;
  82115. end;
  82116. procedure TCAN1_C1FIFOINT14.setTXHALFIE(thebits : TBits_1); inline;
  82117. begin
  82118. if thebits = 0 then
  82119. pTDefRegMap(@Self)^.clr := $02000000
  82120. else
  82121. pTDefRegMap(@Self)^.&set := $02000000;
  82122. end;
  82123. function TCAN1_C1FIFOINT14.getTXHALFIE : TBits_1; inline;
  82124. begin
  82125. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  82126. end;
  82127. procedure TCAN1_C1FIFOINT14.setTXNFULLIE; inline;
  82128. begin
  82129. pTDefRegMap(@Self)^.&set := $04000000;
  82130. end;
  82131. procedure TCAN1_C1FIFOINT14.clearTXNFULLIE; inline;
  82132. begin
  82133. pTDefRegMap(@Self)^.clr := $04000000;
  82134. end;
  82135. procedure TCAN1_C1FIFOINT14.setTXNFULLIE(thebits : TBits_1); inline;
  82136. begin
  82137. if thebits = 0 then
  82138. pTDefRegMap(@Self)^.clr := $04000000
  82139. else
  82140. pTDefRegMap(@Self)^.&set := $04000000;
  82141. end;
  82142. function TCAN1_C1FIFOINT14.getTXNFULLIE : TBits_1; inline;
  82143. begin
  82144. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  82145. end;
  82146. procedure TCAN1_C1FIFOINT14.setw(thebits : TBits_32); inline;
  82147. begin
  82148. pTDefRegMap(@Self)^.val := thebits;
  82149. end;
  82150. function TCAN1_C1FIFOINT14.getw : TBits_32; inline;
  82151. begin
  82152. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82153. end;
  82154. procedure TCAN1_C1FIFOCI14.setCFIFOCI(thebits : TBits_5); inline;
  82155. begin
  82156. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  82157. end;
  82158. function TCAN1_C1FIFOCI14.getCFIFOCI : TBits_5; inline;
  82159. begin
  82160. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  82161. end;
  82162. procedure TCAN1_C1FIFOCI14.setw(thebits : TBits_32); inline;
  82163. begin
  82164. pTDefRegMap(@Self)^.val := thebits;
  82165. end;
  82166. function TCAN1_C1FIFOCI14.getw : TBits_32; inline;
  82167. begin
  82168. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82169. end;
  82170. procedure TCAN1_C1FIFOCON15.setTXPRI(thebits : TBits_2); inline;
  82171. begin
  82172. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  82173. end;
  82174. function TCAN1_C1FIFOCON15.getTXPRI : TBits_2; inline;
  82175. begin
  82176. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  82177. end;
  82178. procedure TCAN1_C1FIFOCON15.setRTREN; inline;
  82179. begin
  82180. pTDefRegMap(@Self)^.&set := $00000004;
  82181. end;
  82182. procedure TCAN1_C1FIFOCON15.clearRTREN; inline;
  82183. begin
  82184. pTDefRegMap(@Self)^.clr := $00000004;
  82185. end;
  82186. procedure TCAN1_C1FIFOCON15.setRTREN(thebits : TBits_1); inline;
  82187. begin
  82188. if thebits = 0 then
  82189. pTDefRegMap(@Self)^.clr := $00000004
  82190. else
  82191. pTDefRegMap(@Self)^.&set := $00000004;
  82192. end;
  82193. function TCAN1_C1FIFOCON15.getRTREN : TBits_1; inline;
  82194. begin
  82195. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  82196. end;
  82197. procedure TCAN1_C1FIFOCON15.setTXREQ; inline;
  82198. begin
  82199. pTDefRegMap(@Self)^.&set := $00000008;
  82200. end;
  82201. procedure TCAN1_C1FIFOCON15.clearTXREQ; inline;
  82202. begin
  82203. pTDefRegMap(@Self)^.clr := $00000008;
  82204. end;
  82205. procedure TCAN1_C1FIFOCON15.setTXREQ(thebits : TBits_1); inline;
  82206. begin
  82207. if thebits = 0 then
  82208. pTDefRegMap(@Self)^.clr := $00000008
  82209. else
  82210. pTDefRegMap(@Self)^.&set := $00000008;
  82211. end;
  82212. function TCAN1_C1FIFOCON15.getTXREQ : TBits_1; inline;
  82213. begin
  82214. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  82215. end;
  82216. procedure TCAN1_C1FIFOCON15.setTXERR; inline;
  82217. begin
  82218. pTDefRegMap(@Self)^.&set := $00000010;
  82219. end;
  82220. procedure TCAN1_C1FIFOCON15.clearTXERR; inline;
  82221. begin
  82222. pTDefRegMap(@Self)^.clr := $00000010;
  82223. end;
  82224. procedure TCAN1_C1FIFOCON15.setTXERR(thebits : TBits_1); inline;
  82225. begin
  82226. if thebits = 0 then
  82227. pTDefRegMap(@Self)^.clr := $00000010
  82228. else
  82229. pTDefRegMap(@Self)^.&set := $00000010;
  82230. end;
  82231. function TCAN1_C1FIFOCON15.getTXERR : TBits_1; inline;
  82232. begin
  82233. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  82234. end;
  82235. procedure TCAN1_C1FIFOCON15.setTXLARB; inline;
  82236. begin
  82237. pTDefRegMap(@Self)^.&set := $00000020;
  82238. end;
  82239. procedure TCAN1_C1FIFOCON15.clearTXLARB; inline;
  82240. begin
  82241. pTDefRegMap(@Self)^.clr := $00000020;
  82242. end;
  82243. procedure TCAN1_C1FIFOCON15.setTXLARB(thebits : TBits_1); inline;
  82244. begin
  82245. if thebits = 0 then
  82246. pTDefRegMap(@Self)^.clr := $00000020
  82247. else
  82248. pTDefRegMap(@Self)^.&set := $00000020;
  82249. end;
  82250. function TCAN1_C1FIFOCON15.getTXLARB : TBits_1; inline;
  82251. begin
  82252. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  82253. end;
  82254. procedure TCAN1_C1FIFOCON15.setTXABAT; inline;
  82255. begin
  82256. pTDefRegMap(@Self)^.&set := $00000040;
  82257. end;
  82258. procedure TCAN1_C1FIFOCON15.clearTXABAT; inline;
  82259. begin
  82260. pTDefRegMap(@Self)^.clr := $00000040;
  82261. end;
  82262. procedure TCAN1_C1FIFOCON15.setTXABAT(thebits : TBits_1); inline;
  82263. begin
  82264. if thebits = 0 then
  82265. pTDefRegMap(@Self)^.clr := $00000040
  82266. else
  82267. pTDefRegMap(@Self)^.&set := $00000040;
  82268. end;
  82269. function TCAN1_C1FIFOCON15.getTXABAT : TBits_1; inline;
  82270. begin
  82271. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  82272. end;
  82273. procedure TCAN1_C1FIFOCON15.setTXEN; inline;
  82274. begin
  82275. pTDefRegMap(@Self)^.&set := $00000080;
  82276. end;
  82277. procedure TCAN1_C1FIFOCON15.clearTXEN; inline;
  82278. begin
  82279. pTDefRegMap(@Self)^.clr := $00000080;
  82280. end;
  82281. procedure TCAN1_C1FIFOCON15.setTXEN(thebits : TBits_1); inline;
  82282. begin
  82283. if thebits = 0 then
  82284. pTDefRegMap(@Self)^.clr := $00000080
  82285. else
  82286. pTDefRegMap(@Self)^.&set := $00000080;
  82287. end;
  82288. function TCAN1_C1FIFOCON15.getTXEN : TBits_1; inline;
  82289. begin
  82290. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  82291. end;
  82292. procedure TCAN1_C1FIFOCON15.setDONLY; inline;
  82293. begin
  82294. pTDefRegMap(@Self)^.&set := $00001000;
  82295. end;
  82296. procedure TCAN1_C1FIFOCON15.clearDONLY; inline;
  82297. begin
  82298. pTDefRegMap(@Self)^.clr := $00001000;
  82299. end;
  82300. procedure TCAN1_C1FIFOCON15.setDONLY(thebits : TBits_1); inline;
  82301. begin
  82302. if thebits = 0 then
  82303. pTDefRegMap(@Self)^.clr := $00001000
  82304. else
  82305. pTDefRegMap(@Self)^.&set := $00001000;
  82306. end;
  82307. function TCAN1_C1FIFOCON15.getDONLY : TBits_1; inline;
  82308. begin
  82309. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  82310. end;
  82311. procedure TCAN1_C1FIFOCON15.setUINC; inline;
  82312. begin
  82313. pTDefRegMap(@Self)^.&set := $00002000;
  82314. end;
  82315. procedure TCAN1_C1FIFOCON15.clearUINC; inline;
  82316. begin
  82317. pTDefRegMap(@Self)^.clr := $00002000;
  82318. end;
  82319. procedure TCAN1_C1FIFOCON15.setUINC(thebits : TBits_1); inline;
  82320. begin
  82321. if thebits = 0 then
  82322. pTDefRegMap(@Self)^.clr := $00002000
  82323. else
  82324. pTDefRegMap(@Self)^.&set := $00002000;
  82325. end;
  82326. function TCAN1_C1FIFOCON15.getUINC : TBits_1; inline;
  82327. begin
  82328. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  82329. end;
  82330. procedure TCAN1_C1FIFOCON15.setFRESET; inline;
  82331. begin
  82332. pTDefRegMap(@Self)^.&set := $00004000;
  82333. end;
  82334. procedure TCAN1_C1FIFOCON15.clearFRESET; inline;
  82335. begin
  82336. pTDefRegMap(@Self)^.clr := $00004000;
  82337. end;
  82338. procedure TCAN1_C1FIFOCON15.setFRESET(thebits : TBits_1); inline;
  82339. begin
  82340. if thebits = 0 then
  82341. pTDefRegMap(@Self)^.clr := $00004000
  82342. else
  82343. pTDefRegMap(@Self)^.&set := $00004000;
  82344. end;
  82345. function TCAN1_C1FIFOCON15.getFRESET : TBits_1; inline;
  82346. begin
  82347. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  82348. end;
  82349. procedure TCAN1_C1FIFOCON15.setFSIZE(thebits : TBits_5); inline;
  82350. begin
  82351. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  82352. end;
  82353. function TCAN1_C1FIFOCON15.getFSIZE : TBits_5; inline;
  82354. begin
  82355. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  82356. end;
  82357. procedure TCAN1_C1FIFOCON15.setw(thebits : TBits_32); inline;
  82358. begin
  82359. pTDefRegMap(@Self)^.val := thebits;
  82360. end;
  82361. function TCAN1_C1FIFOCON15.getw : TBits_32; inline;
  82362. begin
  82363. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82364. end;
  82365. procedure TCAN1_C1FIFOINT15.setRXNEMPTYIF; inline;
  82366. begin
  82367. pTDefRegMap(@Self)^.&set := $00000001;
  82368. end;
  82369. procedure TCAN1_C1FIFOINT15.clearRXNEMPTYIF; inline;
  82370. begin
  82371. pTDefRegMap(@Self)^.clr := $00000001;
  82372. end;
  82373. procedure TCAN1_C1FIFOINT15.setRXNEMPTYIF(thebits : TBits_1); inline;
  82374. begin
  82375. if thebits = 0 then
  82376. pTDefRegMap(@Self)^.clr := $00000001
  82377. else
  82378. pTDefRegMap(@Self)^.&set := $00000001;
  82379. end;
  82380. function TCAN1_C1FIFOINT15.getRXNEMPTYIF : TBits_1; inline;
  82381. begin
  82382. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  82383. end;
  82384. procedure TCAN1_C1FIFOINT15.setRXHALFIF; inline;
  82385. begin
  82386. pTDefRegMap(@Self)^.&set := $00000002;
  82387. end;
  82388. procedure TCAN1_C1FIFOINT15.clearRXHALFIF; inline;
  82389. begin
  82390. pTDefRegMap(@Self)^.clr := $00000002;
  82391. end;
  82392. procedure TCAN1_C1FIFOINT15.setRXHALFIF(thebits : TBits_1); inline;
  82393. begin
  82394. if thebits = 0 then
  82395. pTDefRegMap(@Self)^.clr := $00000002
  82396. else
  82397. pTDefRegMap(@Self)^.&set := $00000002;
  82398. end;
  82399. function TCAN1_C1FIFOINT15.getRXHALFIF : TBits_1; inline;
  82400. begin
  82401. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  82402. end;
  82403. procedure TCAN1_C1FIFOINT15.setRXFULLIF; inline;
  82404. begin
  82405. pTDefRegMap(@Self)^.&set := $00000004;
  82406. end;
  82407. procedure TCAN1_C1FIFOINT15.clearRXFULLIF; inline;
  82408. begin
  82409. pTDefRegMap(@Self)^.clr := $00000004;
  82410. end;
  82411. procedure TCAN1_C1FIFOINT15.setRXFULLIF(thebits : TBits_1); inline;
  82412. begin
  82413. if thebits = 0 then
  82414. pTDefRegMap(@Self)^.clr := $00000004
  82415. else
  82416. pTDefRegMap(@Self)^.&set := $00000004;
  82417. end;
  82418. function TCAN1_C1FIFOINT15.getRXFULLIF : TBits_1; inline;
  82419. begin
  82420. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  82421. end;
  82422. procedure TCAN1_C1FIFOINT15.setRXOVFLIF; inline;
  82423. begin
  82424. pTDefRegMap(@Self)^.&set := $00000008;
  82425. end;
  82426. procedure TCAN1_C1FIFOINT15.clearRXOVFLIF; inline;
  82427. begin
  82428. pTDefRegMap(@Self)^.clr := $00000008;
  82429. end;
  82430. procedure TCAN1_C1FIFOINT15.setRXOVFLIF(thebits : TBits_1); inline;
  82431. begin
  82432. if thebits = 0 then
  82433. pTDefRegMap(@Self)^.clr := $00000008
  82434. else
  82435. pTDefRegMap(@Self)^.&set := $00000008;
  82436. end;
  82437. function TCAN1_C1FIFOINT15.getRXOVFLIF : TBits_1; inline;
  82438. begin
  82439. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  82440. end;
  82441. procedure TCAN1_C1FIFOINT15.setTXEMPTYIF; inline;
  82442. begin
  82443. pTDefRegMap(@Self)^.&set := $00000100;
  82444. end;
  82445. procedure TCAN1_C1FIFOINT15.clearTXEMPTYIF; inline;
  82446. begin
  82447. pTDefRegMap(@Self)^.clr := $00000100;
  82448. end;
  82449. procedure TCAN1_C1FIFOINT15.setTXEMPTYIF(thebits : TBits_1); inline;
  82450. begin
  82451. if thebits = 0 then
  82452. pTDefRegMap(@Self)^.clr := $00000100
  82453. else
  82454. pTDefRegMap(@Self)^.&set := $00000100;
  82455. end;
  82456. function TCAN1_C1FIFOINT15.getTXEMPTYIF : TBits_1; inline;
  82457. begin
  82458. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  82459. end;
  82460. procedure TCAN1_C1FIFOINT15.setTXHALFIF; inline;
  82461. begin
  82462. pTDefRegMap(@Self)^.&set := $00000200;
  82463. end;
  82464. procedure TCAN1_C1FIFOINT15.clearTXHALFIF; inline;
  82465. begin
  82466. pTDefRegMap(@Self)^.clr := $00000200;
  82467. end;
  82468. procedure TCAN1_C1FIFOINT15.setTXHALFIF(thebits : TBits_1); inline;
  82469. begin
  82470. if thebits = 0 then
  82471. pTDefRegMap(@Self)^.clr := $00000200
  82472. else
  82473. pTDefRegMap(@Self)^.&set := $00000200;
  82474. end;
  82475. function TCAN1_C1FIFOINT15.getTXHALFIF : TBits_1; inline;
  82476. begin
  82477. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  82478. end;
  82479. procedure TCAN1_C1FIFOINT15.setTXNFULLIF; inline;
  82480. begin
  82481. pTDefRegMap(@Self)^.&set := $00000400;
  82482. end;
  82483. procedure TCAN1_C1FIFOINT15.clearTXNFULLIF; inline;
  82484. begin
  82485. pTDefRegMap(@Self)^.clr := $00000400;
  82486. end;
  82487. procedure TCAN1_C1FIFOINT15.setTXNFULLIF(thebits : TBits_1); inline;
  82488. begin
  82489. if thebits = 0 then
  82490. pTDefRegMap(@Self)^.clr := $00000400
  82491. else
  82492. pTDefRegMap(@Self)^.&set := $00000400;
  82493. end;
  82494. function TCAN1_C1FIFOINT15.getTXNFULLIF : TBits_1; inline;
  82495. begin
  82496. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  82497. end;
  82498. procedure TCAN1_C1FIFOINT15.setRXNEMPTYIE; inline;
  82499. begin
  82500. pTDefRegMap(@Self)^.&set := $00010000;
  82501. end;
  82502. procedure TCAN1_C1FIFOINT15.clearRXNEMPTYIE; inline;
  82503. begin
  82504. pTDefRegMap(@Self)^.clr := $00010000;
  82505. end;
  82506. procedure TCAN1_C1FIFOINT15.setRXNEMPTYIE(thebits : TBits_1); inline;
  82507. begin
  82508. if thebits = 0 then
  82509. pTDefRegMap(@Self)^.clr := $00010000
  82510. else
  82511. pTDefRegMap(@Self)^.&set := $00010000;
  82512. end;
  82513. function TCAN1_C1FIFOINT15.getRXNEMPTYIE : TBits_1; inline;
  82514. begin
  82515. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  82516. end;
  82517. procedure TCAN1_C1FIFOINT15.setRXHALFIE; inline;
  82518. begin
  82519. pTDefRegMap(@Self)^.&set := $00020000;
  82520. end;
  82521. procedure TCAN1_C1FIFOINT15.clearRXHALFIE; inline;
  82522. begin
  82523. pTDefRegMap(@Self)^.clr := $00020000;
  82524. end;
  82525. procedure TCAN1_C1FIFOINT15.setRXHALFIE(thebits : TBits_1); inline;
  82526. begin
  82527. if thebits = 0 then
  82528. pTDefRegMap(@Self)^.clr := $00020000
  82529. else
  82530. pTDefRegMap(@Self)^.&set := $00020000;
  82531. end;
  82532. function TCAN1_C1FIFOINT15.getRXHALFIE : TBits_1; inline;
  82533. begin
  82534. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  82535. end;
  82536. procedure TCAN1_C1FIFOINT15.setRXFULLIE; inline;
  82537. begin
  82538. pTDefRegMap(@Self)^.&set := $00040000;
  82539. end;
  82540. procedure TCAN1_C1FIFOINT15.clearRXFULLIE; inline;
  82541. begin
  82542. pTDefRegMap(@Self)^.clr := $00040000;
  82543. end;
  82544. procedure TCAN1_C1FIFOINT15.setRXFULLIE(thebits : TBits_1); inline;
  82545. begin
  82546. if thebits = 0 then
  82547. pTDefRegMap(@Self)^.clr := $00040000
  82548. else
  82549. pTDefRegMap(@Self)^.&set := $00040000;
  82550. end;
  82551. function TCAN1_C1FIFOINT15.getRXFULLIE : TBits_1; inline;
  82552. begin
  82553. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  82554. end;
  82555. procedure TCAN1_C1FIFOINT15.setRXOVFLIE; inline;
  82556. begin
  82557. pTDefRegMap(@Self)^.&set := $00080000;
  82558. end;
  82559. procedure TCAN1_C1FIFOINT15.clearRXOVFLIE; inline;
  82560. begin
  82561. pTDefRegMap(@Self)^.clr := $00080000;
  82562. end;
  82563. procedure TCAN1_C1FIFOINT15.setRXOVFLIE(thebits : TBits_1); inline;
  82564. begin
  82565. if thebits = 0 then
  82566. pTDefRegMap(@Self)^.clr := $00080000
  82567. else
  82568. pTDefRegMap(@Self)^.&set := $00080000;
  82569. end;
  82570. function TCAN1_C1FIFOINT15.getRXOVFLIE : TBits_1; inline;
  82571. begin
  82572. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  82573. end;
  82574. procedure TCAN1_C1FIFOINT15.setTXEMPTYIE; inline;
  82575. begin
  82576. pTDefRegMap(@Self)^.&set := $01000000;
  82577. end;
  82578. procedure TCAN1_C1FIFOINT15.clearTXEMPTYIE; inline;
  82579. begin
  82580. pTDefRegMap(@Self)^.clr := $01000000;
  82581. end;
  82582. procedure TCAN1_C1FIFOINT15.setTXEMPTYIE(thebits : TBits_1); inline;
  82583. begin
  82584. if thebits = 0 then
  82585. pTDefRegMap(@Self)^.clr := $01000000
  82586. else
  82587. pTDefRegMap(@Self)^.&set := $01000000;
  82588. end;
  82589. function TCAN1_C1FIFOINT15.getTXEMPTYIE : TBits_1; inline;
  82590. begin
  82591. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  82592. end;
  82593. procedure TCAN1_C1FIFOINT15.setTXHALFIE; inline;
  82594. begin
  82595. pTDefRegMap(@Self)^.&set := $02000000;
  82596. end;
  82597. procedure TCAN1_C1FIFOINT15.clearTXHALFIE; inline;
  82598. begin
  82599. pTDefRegMap(@Self)^.clr := $02000000;
  82600. end;
  82601. procedure TCAN1_C1FIFOINT15.setTXHALFIE(thebits : TBits_1); inline;
  82602. begin
  82603. if thebits = 0 then
  82604. pTDefRegMap(@Self)^.clr := $02000000
  82605. else
  82606. pTDefRegMap(@Self)^.&set := $02000000;
  82607. end;
  82608. function TCAN1_C1FIFOINT15.getTXHALFIE : TBits_1; inline;
  82609. begin
  82610. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  82611. end;
  82612. procedure TCAN1_C1FIFOINT15.setTXNFULLIE; inline;
  82613. begin
  82614. pTDefRegMap(@Self)^.&set := $04000000;
  82615. end;
  82616. procedure TCAN1_C1FIFOINT15.clearTXNFULLIE; inline;
  82617. begin
  82618. pTDefRegMap(@Self)^.clr := $04000000;
  82619. end;
  82620. procedure TCAN1_C1FIFOINT15.setTXNFULLIE(thebits : TBits_1); inline;
  82621. begin
  82622. if thebits = 0 then
  82623. pTDefRegMap(@Self)^.clr := $04000000
  82624. else
  82625. pTDefRegMap(@Self)^.&set := $04000000;
  82626. end;
  82627. function TCAN1_C1FIFOINT15.getTXNFULLIE : TBits_1; inline;
  82628. begin
  82629. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  82630. end;
  82631. procedure TCAN1_C1FIFOINT15.setw(thebits : TBits_32); inline;
  82632. begin
  82633. pTDefRegMap(@Self)^.val := thebits;
  82634. end;
  82635. function TCAN1_C1FIFOINT15.getw : TBits_32; inline;
  82636. begin
  82637. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82638. end;
  82639. procedure TCAN1_C1FIFOCI15.setCFIFOCI(thebits : TBits_5); inline;
  82640. begin
  82641. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  82642. end;
  82643. function TCAN1_C1FIFOCI15.getCFIFOCI : TBits_5; inline;
  82644. begin
  82645. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  82646. end;
  82647. procedure TCAN1_C1FIFOCI15.setw(thebits : TBits_32); inline;
  82648. begin
  82649. pTDefRegMap(@Self)^.val := thebits;
  82650. end;
  82651. function TCAN1_C1FIFOCI15.getw : TBits_32; inline;
  82652. begin
  82653. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82654. end;
  82655. procedure TCAN1_C1FIFOCON16.setTXPRI(thebits : TBits_2); inline;
  82656. begin
  82657. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  82658. end;
  82659. function TCAN1_C1FIFOCON16.getTXPRI : TBits_2; inline;
  82660. begin
  82661. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  82662. end;
  82663. procedure TCAN1_C1FIFOCON16.setRTREN; inline;
  82664. begin
  82665. pTDefRegMap(@Self)^.&set := $00000004;
  82666. end;
  82667. procedure TCAN1_C1FIFOCON16.clearRTREN; inline;
  82668. begin
  82669. pTDefRegMap(@Self)^.clr := $00000004;
  82670. end;
  82671. procedure TCAN1_C1FIFOCON16.setRTREN(thebits : TBits_1); inline;
  82672. begin
  82673. if thebits = 0 then
  82674. pTDefRegMap(@Self)^.clr := $00000004
  82675. else
  82676. pTDefRegMap(@Self)^.&set := $00000004;
  82677. end;
  82678. function TCAN1_C1FIFOCON16.getRTREN : TBits_1; inline;
  82679. begin
  82680. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  82681. end;
  82682. procedure TCAN1_C1FIFOCON16.setTXREQ; inline;
  82683. begin
  82684. pTDefRegMap(@Self)^.&set := $00000008;
  82685. end;
  82686. procedure TCAN1_C1FIFOCON16.clearTXREQ; inline;
  82687. begin
  82688. pTDefRegMap(@Self)^.clr := $00000008;
  82689. end;
  82690. procedure TCAN1_C1FIFOCON16.setTXREQ(thebits : TBits_1); inline;
  82691. begin
  82692. if thebits = 0 then
  82693. pTDefRegMap(@Self)^.clr := $00000008
  82694. else
  82695. pTDefRegMap(@Self)^.&set := $00000008;
  82696. end;
  82697. function TCAN1_C1FIFOCON16.getTXREQ : TBits_1; inline;
  82698. begin
  82699. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  82700. end;
  82701. procedure TCAN1_C1FIFOCON16.setTXERR; inline;
  82702. begin
  82703. pTDefRegMap(@Self)^.&set := $00000010;
  82704. end;
  82705. procedure TCAN1_C1FIFOCON16.clearTXERR; inline;
  82706. begin
  82707. pTDefRegMap(@Self)^.clr := $00000010;
  82708. end;
  82709. procedure TCAN1_C1FIFOCON16.setTXERR(thebits : TBits_1); inline;
  82710. begin
  82711. if thebits = 0 then
  82712. pTDefRegMap(@Self)^.clr := $00000010
  82713. else
  82714. pTDefRegMap(@Self)^.&set := $00000010;
  82715. end;
  82716. function TCAN1_C1FIFOCON16.getTXERR : TBits_1; inline;
  82717. begin
  82718. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  82719. end;
  82720. procedure TCAN1_C1FIFOCON16.setTXLARB; inline;
  82721. begin
  82722. pTDefRegMap(@Self)^.&set := $00000020;
  82723. end;
  82724. procedure TCAN1_C1FIFOCON16.clearTXLARB; inline;
  82725. begin
  82726. pTDefRegMap(@Self)^.clr := $00000020;
  82727. end;
  82728. procedure TCAN1_C1FIFOCON16.setTXLARB(thebits : TBits_1); inline;
  82729. begin
  82730. if thebits = 0 then
  82731. pTDefRegMap(@Self)^.clr := $00000020
  82732. else
  82733. pTDefRegMap(@Self)^.&set := $00000020;
  82734. end;
  82735. function TCAN1_C1FIFOCON16.getTXLARB : TBits_1; inline;
  82736. begin
  82737. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  82738. end;
  82739. procedure TCAN1_C1FIFOCON16.setTXABAT; inline;
  82740. begin
  82741. pTDefRegMap(@Self)^.&set := $00000040;
  82742. end;
  82743. procedure TCAN1_C1FIFOCON16.clearTXABAT; inline;
  82744. begin
  82745. pTDefRegMap(@Self)^.clr := $00000040;
  82746. end;
  82747. procedure TCAN1_C1FIFOCON16.setTXABAT(thebits : TBits_1); inline;
  82748. begin
  82749. if thebits = 0 then
  82750. pTDefRegMap(@Self)^.clr := $00000040
  82751. else
  82752. pTDefRegMap(@Self)^.&set := $00000040;
  82753. end;
  82754. function TCAN1_C1FIFOCON16.getTXABAT : TBits_1; inline;
  82755. begin
  82756. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  82757. end;
  82758. procedure TCAN1_C1FIFOCON16.setTXEN; inline;
  82759. begin
  82760. pTDefRegMap(@Self)^.&set := $00000080;
  82761. end;
  82762. procedure TCAN1_C1FIFOCON16.clearTXEN; inline;
  82763. begin
  82764. pTDefRegMap(@Self)^.clr := $00000080;
  82765. end;
  82766. procedure TCAN1_C1FIFOCON16.setTXEN(thebits : TBits_1); inline;
  82767. begin
  82768. if thebits = 0 then
  82769. pTDefRegMap(@Self)^.clr := $00000080
  82770. else
  82771. pTDefRegMap(@Self)^.&set := $00000080;
  82772. end;
  82773. function TCAN1_C1FIFOCON16.getTXEN : TBits_1; inline;
  82774. begin
  82775. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  82776. end;
  82777. procedure TCAN1_C1FIFOCON16.setDONLY; inline;
  82778. begin
  82779. pTDefRegMap(@Self)^.&set := $00001000;
  82780. end;
  82781. procedure TCAN1_C1FIFOCON16.clearDONLY; inline;
  82782. begin
  82783. pTDefRegMap(@Self)^.clr := $00001000;
  82784. end;
  82785. procedure TCAN1_C1FIFOCON16.setDONLY(thebits : TBits_1); inline;
  82786. begin
  82787. if thebits = 0 then
  82788. pTDefRegMap(@Self)^.clr := $00001000
  82789. else
  82790. pTDefRegMap(@Self)^.&set := $00001000;
  82791. end;
  82792. function TCAN1_C1FIFOCON16.getDONLY : TBits_1; inline;
  82793. begin
  82794. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  82795. end;
  82796. procedure TCAN1_C1FIFOCON16.setUINC; inline;
  82797. begin
  82798. pTDefRegMap(@Self)^.&set := $00002000;
  82799. end;
  82800. procedure TCAN1_C1FIFOCON16.clearUINC; inline;
  82801. begin
  82802. pTDefRegMap(@Self)^.clr := $00002000;
  82803. end;
  82804. procedure TCAN1_C1FIFOCON16.setUINC(thebits : TBits_1); inline;
  82805. begin
  82806. if thebits = 0 then
  82807. pTDefRegMap(@Self)^.clr := $00002000
  82808. else
  82809. pTDefRegMap(@Self)^.&set := $00002000;
  82810. end;
  82811. function TCAN1_C1FIFOCON16.getUINC : TBits_1; inline;
  82812. begin
  82813. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  82814. end;
  82815. procedure TCAN1_C1FIFOCON16.setFRESET; inline;
  82816. begin
  82817. pTDefRegMap(@Self)^.&set := $00004000;
  82818. end;
  82819. procedure TCAN1_C1FIFOCON16.clearFRESET; inline;
  82820. begin
  82821. pTDefRegMap(@Self)^.clr := $00004000;
  82822. end;
  82823. procedure TCAN1_C1FIFOCON16.setFRESET(thebits : TBits_1); inline;
  82824. begin
  82825. if thebits = 0 then
  82826. pTDefRegMap(@Self)^.clr := $00004000
  82827. else
  82828. pTDefRegMap(@Self)^.&set := $00004000;
  82829. end;
  82830. function TCAN1_C1FIFOCON16.getFRESET : TBits_1; inline;
  82831. begin
  82832. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  82833. end;
  82834. procedure TCAN1_C1FIFOCON16.setFSIZE(thebits : TBits_5); inline;
  82835. begin
  82836. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  82837. end;
  82838. function TCAN1_C1FIFOCON16.getFSIZE : TBits_5; inline;
  82839. begin
  82840. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  82841. end;
  82842. procedure TCAN1_C1FIFOCON16.setw(thebits : TBits_32); inline;
  82843. begin
  82844. pTDefRegMap(@Self)^.val := thebits;
  82845. end;
  82846. function TCAN1_C1FIFOCON16.getw : TBits_32; inline;
  82847. begin
  82848. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82849. end;
  82850. procedure TCAN1_C1FIFOINT16.setRXNEMPTYIF; inline;
  82851. begin
  82852. pTDefRegMap(@Self)^.&set := $00000001;
  82853. end;
  82854. procedure TCAN1_C1FIFOINT16.clearRXNEMPTYIF; inline;
  82855. begin
  82856. pTDefRegMap(@Self)^.clr := $00000001;
  82857. end;
  82858. procedure TCAN1_C1FIFOINT16.setRXNEMPTYIF(thebits : TBits_1); inline;
  82859. begin
  82860. if thebits = 0 then
  82861. pTDefRegMap(@Self)^.clr := $00000001
  82862. else
  82863. pTDefRegMap(@Self)^.&set := $00000001;
  82864. end;
  82865. function TCAN1_C1FIFOINT16.getRXNEMPTYIF : TBits_1; inline;
  82866. begin
  82867. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  82868. end;
  82869. procedure TCAN1_C1FIFOINT16.setRXHALFIF; inline;
  82870. begin
  82871. pTDefRegMap(@Self)^.&set := $00000002;
  82872. end;
  82873. procedure TCAN1_C1FIFOINT16.clearRXHALFIF; inline;
  82874. begin
  82875. pTDefRegMap(@Self)^.clr := $00000002;
  82876. end;
  82877. procedure TCAN1_C1FIFOINT16.setRXHALFIF(thebits : TBits_1); inline;
  82878. begin
  82879. if thebits = 0 then
  82880. pTDefRegMap(@Self)^.clr := $00000002
  82881. else
  82882. pTDefRegMap(@Self)^.&set := $00000002;
  82883. end;
  82884. function TCAN1_C1FIFOINT16.getRXHALFIF : TBits_1; inline;
  82885. begin
  82886. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  82887. end;
  82888. procedure TCAN1_C1FIFOINT16.setRXFULLIF; inline;
  82889. begin
  82890. pTDefRegMap(@Self)^.&set := $00000004;
  82891. end;
  82892. procedure TCAN1_C1FIFOINT16.clearRXFULLIF; inline;
  82893. begin
  82894. pTDefRegMap(@Self)^.clr := $00000004;
  82895. end;
  82896. procedure TCAN1_C1FIFOINT16.setRXFULLIF(thebits : TBits_1); inline;
  82897. begin
  82898. if thebits = 0 then
  82899. pTDefRegMap(@Self)^.clr := $00000004
  82900. else
  82901. pTDefRegMap(@Self)^.&set := $00000004;
  82902. end;
  82903. function TCAN1_C1FIFOINT16.getRXFULLIF : TBits_1; inline;
  82904. begin
  82905. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  82906. end;
  82907. procedure TCAN1_C1FIFOINT16.setRXOVFLIF; inline;
  82908. begin
  82909. pTDefRegMap(@Self)^.&set := $00000008;
  82910. end;
  82911. procedure TCAN1_C1FIFOINT16.clearRXOVFLIF; inline;
  82912. begin
  82913. pTDefRegMap(@Self)^.clr := $00000008;
  82914. end;
  82915. procedure TCAN1_C1FIFOINT16.setRXOVFLIF(thebits : TBits_1); inline;
  82916. begin
  82917. if thebits = 0 then
  82918. pTDefRegMap(@Self)^.clr := $00000008
  82919. else
  82920. pTDefRegMap(@Self)^.&set := $00000008;
  82921. end;
  82922. function TCAN1_C1FIFOINT16.getRXOVFLIF : TBits_1; inline;
  82923. begin
  82924. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  82925. end;
  82926. procedure TCAN1_C1FIFOINT16.setTXEMPTYIF; inline;
  82927. begin
  82928. pTDefRegMap(@Self)^.&set := $00000100;
  82929. end;
  82930. procedure TCAN1_C1FIFOINT16.clearTXEMPTYIF; inline;
  82931. begin
  82932. pTDefRegMap(@Self)^.clr := $00000100;
  82933. end;
  82934. procedure TCAN1_C1FIFOINT16.setTXEMPTYIF(thebits : TBits_1); inline;
  82935. begin
  82936. if thebits = 0 then
  82937. pTDefRegMap(@Self)^.clr := $00000100
  82938. else
  82939. pTDefRegMap(@Self)^.&set := $00000100;
  82940. end;
  82941. function TCAN1_C1FIFOINT16.getTXEMPTYIF : TBits_1; inline;
  82942. begin
  82943. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  82944. end;
  82945. procedure TCAN1_C1FIFOINT16.setTXHALFIF; inline;
  82946. begin
  82947. pTDefRegMap(@Self)^.&set := $00000200;
  82948. end;
  82949. procedure TCAN1_C1FIFOINT16.clearTXHALFIF; inline;
  82950. begin
  82951. pTDefRegMap(@Self)^.clr := $00000200;
  82952. end;
  82953. procedure TCAN1_C1FIFOINT16.setTXHALFIF(thebits : TBits_1); inline;
  82954. begin
  82955. if thebits = 0 then
  82956. pTDefRegMap(@Self)^.clr := $00000200
  82957. else
  82958. pTDefRegMap(@Self)^.&set := $00000200;
  82959. end;
  82960. function TCAN1_C1FIFOINT16.getTXHALFIF : TBits_1; inline;
  82961. begin
  82962. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  82963. end;
  82964. procedure TCAN1_C1FIFOINT16.setTXNFULLIF; inline;
  82965. begin
  82966. pTDefRegMap(@Self)^.&set := $00000400;
  82967. end;
  82968. procedure TCAN1_C1FIFOINT16.clearTXNFULLIF; inline;
  82969. begin
  82970. pTDefRegMap(@Self)^.clr := $00000400;
  82971. end;
  82972. procedure TCAN1_C1FIFOINT16.setTXNFULLIF(thebits : TBits_1); inline;
  82973. begin
  82974. if thebits = 0 then
  82975. pTDefRegMap(@Self)^.clr := $00000400
  82976. else
  82977. pTDefRegMap(@Self)^.&set := $00000400;
  82978. end;
  82979. function TCAN1_C1FIFOINT16.getTXNFULLIF : TBits_1; inline;
  82980. begin
  82981. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  82982. end;
  82983. procedure TCAN1_C1FIFOINT16.setRXNEMPTYIE; inline;
  82984. begin
  82985. pTDefRegMap(@Self)^.&set := $00010000;
  82986. end;
  82987. procedure TCAN1_C1FIFOINT16.clearRXNEMPTYIE; inline;
  82988. begin
  82989. pTDefRegMap(@Self)^.clr := $00010000;
  82990. end;
  82991. procedure TCAN1_C1FIFOINT16.setRXNEMPTYIE(thebits : TBits_1); inline;
  82992. begin
  82993. if thebits = 0 then
  82994. pTDefRegMap(@Self)^.clr := $00010000
  82995. else
  82996. pTDefRegMap(@Self)^.&set := $00010000;
  82997. end;
  82998. function TCAN1_C1FIFOINT16.getRXNEMPTYIE : TBits_1; inline;
  82999. begin
  83000. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  83001. end;
  83002. procedure TCAN1_C1FIFOINT16.setRXHALFIE; inline;
  83003. begin
  83004. pTDefRegMap(@Self)^.&set := $00020000;
  83005. end;
  83006. procedure TCAN1_C1FIFOINT16.clearRXHALFIE; inline;
  83007. begin
  83008. pTDefRegMap(@Self)^.clr := $00020000;
  83009. end;
  83010. procedure TCAN1_C1FIFOINT16.setRXHALFIE(thebits : TBits_1); inline;
  83011. begin
  83012. if thebits = 0 then
  83013. pTDefRegMap(@Self)^.clr := $00020000
  83014. else
  83015. pTDefRegMap(@Self)^.&set := $00020000;
  83016. end;
  83017. function TCAN1_C1FIFOINT16.getRXHALFIE : TBits_1; inline;
  83018. begin
  83019. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  83020. end;
  83021. procedure TCAN1_C1FIFOINT16.setRXFULLIE; inline;
  83022. begin
  83023. pTDefRegMap(@Self)^.&set := $00040000;
  83024. end;
  83025. procedure TCAN1_C1FIFOINT16.clearRXFULLIE; inline;
  83026. begin
  83027. pTDefRegMap(@Self)^.clr := $00040000;
  83028. end;
  83029. procedure TCAN1_C1FIFOINT16.setRXFULLIE(thebits : TBits_1); inline;
  83030. begin
  83031. if thebits = 0 then
  83032. pTDefRegMap(@Self)^.clr := $00040000
  83033. else
  83034. pTDefRegMap(@Self)^.&set := $00040000;
  83035. end;
  83036. function TCAN1_C1FIFOINT16.getRXFULLIE : TBits_1; inline;
  83037. begin
  83038. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  83039. end;
  83040. procedure TCAN1_C1FIFOINT16.setRXOVFLIE; inline;
  83041. begin
  83042. pTDefRegMap(@Self)^.&set := $00080000;
  83043. end;
  83044. procedure TCAN1_C1FIFOINT16.clearRXOVFLIE; inline;
  83045. begin
  83046. pTDefRegMap(@Self)^.clr := $00080000;
  83047. end;
  83048. procedure TCAN1_C1FIFOINT16.setRXOVFLIE(thebits : TBits_1); inline;
  83049. begin
  83050. if thebits = 0 then
  83051. pTDefRegMap(@Self)^.clr := $00080000
  83052. else
  83053. pTDefRegMap(@Self)^.&set := $00080000;
  83054. end;
  83055. function TCAN1_C1FIFOINT16.getRXOVFLIE : TBits_1; inline;
  83056. begin
  83057. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  83058. end;
  83059. procedure TCAN1_C1FIFOINT16.setTXEMPTYIE; inline;
  83060. begin
  83061. pTDefRegMap(@Self)^.&set := $01000000;
  83062. end;
  83063. procedure TCAN1_C1FIFOINT16.clearTXEMPTYIE; inline;
  83064. begin
  83065. pTDefRegMap(@Self)^.clr := $01000000;
  83066. end;
  83067. procedure TCAN1_C1FIFOINT16.setTXEMPTYIE(thebits : TBits_1); inline;
  83068. begin
  83069. if thebits = 0 then
  83070. pTDefRegMap(@Self)^.clr := $01000000
  83071. else
  83072. pTDefRegMap(@Self)^.&set := $01000000;
  83073. end;
  83074. function TCAN1_C1FIFOINT16.getTXEMPTYIE : TBits_1; inline;
  83075. begin
  83076. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  83077. end;
  83078. procedure TCAN1_C1FIFOINT16.setTXHALFIE; inline;
  83079. begin
  83080. pTDefRegMap(@Self)^.&set := $02000000;
  83081. end;
  83082. procedure TCAN1_C1FIFOINT16.clearTXHALFIE; inline;
  83083. begin
  83084. pTDefRegMap(@Self)^.clr := $02000000;
  83085. end;
  83086. procedure TCAN1_C1FIFOINT16.setTXHALFIE(thebits : TBits_1); inline;
  83087. begin
  83088. if thebits = 0 then
  83089. pTDefRegMap(@Self)^.clr := $02000000
  83090. else
  83091. pTDefRegMap(@Self)^.&set := $02000000;
  83092. end;
  83093. function TCAN1_C1FIFOINT16.getTXHALFIE : TBits_1; inline;
  83094. begin
  83095. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  83096. end;
  83097. procedure TCAN1_C1FIFOINT16.setTXNFULLIE; inline;
  83098. begin
  83099. pTDefRegMap(@Self)^.&set := $04000000;
  83100. end;
  83101. procedure TCAN1_C1FIFOINT16.clearTXNFULLIE; inline;
  83102. begin
  83103. pTDefRegMap(@Self)^.clr := $04000000;
  83104. end;
  83105. procedure TCAN1_C1FIFOINT16.setTXNFULLIE(thebits : TBits_1); inline;
  83106. begin
  83107. if thebits = 0 then
  83108. pTDefRegMap(@Self)^.clr := $04000000
  83109. else
  83110. pTDefRegMap(@Self)^.&set := $04000000;
  83111. end;
  83112. function TCAN1_C1FIFOINT16.getTXNFULLIE : TBits_1; inline;
  83113. begin
  83114. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  83115. end;
  83116. procedure TCAN1_C1FIFOINT16.setw(thebits : TBits_32); inline;
  83117. begin
  83118. pTDefRegMap(@Self)^.val := thebits;
  83119. end;
  83120. function TCAN1_C1FIFOINT16.getw : TBits_32; inline;
  83121. begin
  83122. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83123. end;
  83124. procedure TCAN1_C1FIFOCI16.setCFIFOCI(thebits : TBits_5); inline;
  83125. begin
  83126. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  83127. end;
  83128. function TCAN1_C1FIFOCI16.getCFIFOCI : TBits_5; inline;
  83129. begin
  83130. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  83131. end;
  83132. procedure TCAN1_C1FIFOCI16.setw(thebits : TBits_32); inline;
  83133. begin
  83134. pTDefRegMap(@Self)^.val := thebits;
  83135. end;
  83136. function TCAN1_C1FIFOCI16.getw : TBits_32; inline;
  83137. begin
  83138. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83139. end;
  83140. procedure TCAN1_C1FIFOCON17.setTXPRI(thebits : TBits_2); inline;
  83141. begin
  83142. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  83143. end;
  83144. function TCAN1_C1FIFOCON17.getTXPRI : TBits_2; inline;
  83145. begin
  83146. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  83147. end;
  83148. procedure TCAN1_C1FIFOCON17.setRTREN; inline;
  83149. begin
  83150. pTDefRegMap(@Self)^.&set := $00000004;
  83151. end;
  83152. procedure TCAN1_C1FIFOCON17.clearRTREN; inline;
  83153. begin
  83154. pTDefRegMap(@Self)^.clr := $00000004;
  83155. end;
  83156. procedure TCAN1_C1FIFOCON17.setRTREN(thebits : TBits_1); inline;
  83157. begin
  83158. if thebits = 0 then
  83159. pTDefRegMap(@Self)^.clr := $00000004
  83160. else
  83161. pTDefRegMap(@Self)^.&set := $00000004;
  83162. end;
  83163. function TCAN1_C1FIFOCON17.getRTREN : TBits_1; inline;
  83164. begin
  83165. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  83166. end;
  83167. procedure TCAN1_C1FIFOCON17.setTXREQ; inline;
  83168. begin
  83169. pTDefRegMap(@Self)^.&set := $00000008;
  83170. end;
  83171. procedure TCAN1_C1FIFOCON17.clearTXREQ; inline;
  83172. begin
  83173. pTDefRegMap(@Self)^.clr := $00000008;
  83174. end;
  83175. procedure TCAN1_C1FIFOCON17.setTXREQ(thebits : TBits_1); inline;
  83176. begin
  83177. if thebits = 0 then
  83178. pTDefRegMap(@Self)^.clr := $00000008
  83179. else
  83180. pTDefRegMap(@Self)^.&set := $00000008;
  83181. end;
  83182. function TCAN1_C1FIFOCON17.getTXREQ : TBits_1; inline;
  83183. begin
  83184. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  83185. end;
  83186. procedure TCAN1_C1FIFOCON17.setTXERR; inline;
  83187. begin
  83188. pTDefRegMap(@Self)^.&set := $00000010;
  83189. end;
  83190. procedure TCAN1_C1FIFOCON17.clearTXERR; inline;
  83191. begin
  83192. pTDefRegMap(@Self)^.clr := $00000010;
  83193. end;
  83194. procedure TCAN1_C1FIFOCON17.setTXERR(thebits : TBits_1); inline;
  83195. begin
  83196. if thebits = 0 then
  83197. pTDefRegMap(@Self)^.clr := $00000010
  83198. else
  83199. pTDefRegMap(@Self)^.&set := $00000010;
  83200. end;
  83201. function TCAN1_C1FIFOCON17.getTXERR : TBits_1; inline;
  83202. begin
  83203. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  83204. end;
  83205. procedure TCAN1_C1FIFOCON17.setTXLARB; inline;
  83206. begin
  83207. pTDefRegMap(@Self)^.&set := $00000020;
  83208. end;
  83209. procedure TCAN1_C1FIFOCON17.clearTXLARB; inline;
  83210. begin
  83211. pTDefRegMap(@Self)^.clr := $00000020;
  83212. end;
  83213. procedure TCAN1_C1FIFOCON17.setTXLARB(thebits : TBits_1); inline;
  83214. begin
  83215. if thebits = 0 then
  83216. pTDefRegMap(@Self)^.clr := $00000020
  83217. else
  83218. pTDefRegMap(@Self)^.&set := $00000020;
  83219. end;
  83220. function TCAN1_C1FIFOCON17.getTXLARB : TBits_1; inline;
  83221. begin
  83222. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  83223. end;
  83224. procedure TCAN1_C1FIFOCON17.setTXABAT; inline;
  83225. begin
  83226. pTDefRegMap(@Self)^.&set := $00000040;
  83227. end;
  83228. procedure TCAN1_C1FIFOCON17.clearTXABAT; inline;
  83229. begin
  83230. pTDefRegMap(@Self)^.clr := $00000040;
  83231. end;
  83232. procedure TCAN1_C1FIFOCON17.setTXABAT(thebits : TBits_1); inline;
  83233. begin
  83234. if thebits = 0 then
  83235. pTDefRegMap(@Self)^.clr := $00000040
  83236. else
  83237. pTDefRegMap(@Self)^.&set := $00000040;
  83238. end;
  83239. function TCAN1_C1FIFOCON17.getTXABAT : TBits_1; inline;
  83240. begin
  83241. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  83242. end;
  83243. procedure TCAN1_C1FIFOCON17.setTXEN; inline;
  83244. begin
  83245. pTDefRegMap(@Self)^.&set := $00000080;
  83246. end;
  83247. procedure TCAN1_C1FIFOCON17.clearTXEN; inline;
  83248. begin
  83249. pTDefRegMap(@Self)^.clr := $00000080;
  83250. end;
  83251. procedure TCAN1_C1FIFOCON17.setTXEN(thebits : TBits_1); inline;
  83252. begin
  83253. if thebits = 0 then
  83254. pTDefRegMap(@Self)^.clr := $00000080
  83255. else
  83256. pTDefRegMap(@Self)^.&set := $00000080;
  83257. end;
  83258. function TCAN1_C1FIFOCON17.getTXEN : TBits_1; inline;
  83259. begin
  83260. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  83261. end;
  83262. procedure TCAN1_C1FIFOCON17.setDONLY; inline;
  83263. begin
  83264. pTDefRegMap(@Self)^.&set := $00001000;
  83265. end;
  83266. procedure TCAN1_C1FIFOCON17.clearDONLY; inline;
  83267. begin
  83268. pTDefRegMap(@Self)^.clr := $00001000;
  83269. end;
  83270. procedure TCAN1_C1FIFOCON17.setDONLY(thebits : TBits_1); inline;
  83271. begin
  83272. if thebits = 0 then
  83273. pTDefRegMap(@Self)^.clr := $00001000
  83274. else
  83275. pTDefRegMap(@Self)^.&set := $00001000;
  83276. end;
  83277. function TCAN1_C1FIFOCON17.getDONLY : TBits_1; inline;
  83278. begin
  83279. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  83280. end;
  83281. procedure TCAN1_C1FIFOCON17.setUINC; inline;
  83282. begin
  83283. pTDefRegMap(@Self)^.&set := $00002000;
  83284. end;
  83285. procedure TCAN1_C1FIFOCON17.clearUINC; inline;
  83286. begin
  83287. pTDefRegMap(@Self)^.clr := $00002000;
  83288. end;
  83289. procedure TCAN1_C1FIFOCON17.setUINC(thebits : TBits_1); inline;
  83290. begin
  83291. if thebits = 0 then
  83292. pTDefRegMap(@Self)^.clr := $00002000
  83293. else
  83294. pTDefRegMap(@Self)^.&set := $00002000;
  83295. end;
  83296. function TCAN1_C1FIFOCON17.getUINC : TBits_1; inline;
  83297. begin
  83298. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  83299. end;
  83300. procedure TCAN1_C1FIFOCON17.setFRESET; inline;
  83301. begin
  83302. pTDefRegMap(@Self)^.&set := $00004000;
  83303. end;
  83304. procedure TCAN1_C1FIFOCON17.clearFRESET; inline;
  83305. begin
  83306. pTDefRegMap(@Self)^.clr := $00004000;
  83307. end;
  83308. procedure TCAN1_C1FIFOCON17.setFRESET(thebits : TBits_1); inline;
  83309. begin
  83310. if thebits = 0 then
  83311. pTDefRegMap(@Self)^.clr := $00004000
  83312. else
  83313. pTDefRegMap(@Self)^.&set := $00004000;
  83314. end;
  83315. function TCAN1_C1FIFOCON17.getFRESET : TBits_1; inline;
  83316. begin
  83317. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  83318. end;
  83319. procedure TCAN1_C1FIFOCON17.setFSIZE(thebits : TBits_5); inline;
  83320. begin
  83321. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  83322. end;
  83323. function TCAN1_C1FIFOCON17.getFSIZE : TBits_5; inline;
  83324. begin
  83325. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  83326. end;
  83327. procedure TCAN1_C1FIFOCON17.setw(thebits : TBits_32); inline;
  83328. begin
  83329. pTDefRegMap(@Self)^.val := thebits;
  83330. end;
  83331. function TCAN1_C1FIFOCON17.getw : TBits_32; inline;
  83332. begin
  83333. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83334. end;
  83335. procedure TCAN1_C1FIFOINT17.setRXNEMPTYIF; inline;
  83336. begin
  83337. pTDefRegMap(@Self)^.&set := $00000001;
  83338. end;
  83339. procedure TCAN1_C1FIFOINT17.clearRXNEMPTYIF; inline;
  83340. begin
  83341. pTDefRegMap(@Self)^.clr := $00000001;
  83342. end;
  83343. procedure TCAN1_C1FIFOINT17.setRXNEMPTYIF(thebits : TBits_1); inline;
  83344. begin
  83345. if thebits = 0 then
  83346. pTDefRegMap(@Self)^.clr := $00000001
  83347. else
  83348. pTDefRegMap(@Self)^.&set := $00000001;
  83349. end;
  83350. function TCAN1_C1FIFOINT17.getRXNEMPTYIF : TBits_1; inline;
  83351. begin
  83352. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  83353. end;
  83354. procedure TCAN1_C1FIFOINT17.setRXHALFIF; inline;
  83355. begin
  83356. pTDefRegMap(@Self)^.&set := $00000002;
  83357. end;
  83358. procedure TCAN1_C1FIFOINT17.clearRXHALFIF; inline;
  83359. begin
  83360. pTDefRegMap(@Self)^.clr := $00000002;
  83361. end;
  83362. procedure TCAN1_C1FIFOINT17.setRXHALFIF(thebits : TBits_1); inline;
  83363. begin
  83364. if thebits = 0 then
  83365. pTDefRegMap(@Self)^.clr := $00000002
  83366. else
  83367. pTDefRegMap(@Self)^.&set := $00000002;
  83368. end;
  83369. function TCAN1_C1FIFOINT17.getRXHALFIF : TBits_1; inline;
  83370. begin
  83371. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  83372. end;
  83373. procedure TCAN1_C1FIFOINT17.setRXFULLIF; inline;
  83374. begin
  83375. pTDefRegMap(@Self)^.&set := $00000004;
  83376. end;
  83377. procedure TCAN1_C1FIFOINT17.clearRXFULLIF; inline;
  83378. begin
  83379. pTDefRegMap(@Self)^.clr := $00000004;
  83380. end;
  83381. procedure TCAN1_C1FIFOINT17.setRXFULLIF(thebits : TBits_1); inline;
  83382. begin
  83383. if thebits = 0 then
  83384. pTDefRegMap(@Self)^.clr := $00000004
  83385. else
  83386. pTDefRegMap(@Self)^.&set := $00000004;
  83387. end;
  83388. function TCAN1_C1FIFOINT17.getRXFULLIF : TBits_1; inline;
  83389. begin
  83390. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  83391. end;
  83392. procedure TCAN1_C1FIFOINT17.setRXOVFLIF; inline;
  83393. begin
  83394. pTDefRegMap(@Self)^.&set := $00000008;
  83395. end;
  83396. procedure TCAN1_C1FIFOINT17.clearRXOVFLIF; inline;
  83397. begin
  83398. pTDefRegMap(@Self)^.clr := $00000008;
  83399. end;
  83400. procedure TCAN1_C1FIFOINT17.setRXOVFLIF(thebits : TBits_1); inline;
  83401. begin
  83402. if thebits = 0 then
  83403. pTDefRegMap(@Self)^.clr := $00000008
  83404. else
  83405. pTDefRegMap(@Self)^.&set := $00000008;
  83406. end;
  83407. function TCAN1_C1FIFOINT17.getRXOVFLIF : TBits_1; inline;
  83408. begin
  83409. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  83410. end;
  83411. procedure TCAN1_C1FIFOINT17.setTXEMPTYIF; inline;
  83412. begin
  83413. pTDefRegMap(@Self)^.&set := $00000100;
  83414. end;
  83415. procedure TCAN1_C1FIFOINT17.clearTXEMPTYIF; inline;
  83416. begin
  83417. pTDefRegMap(@Self)^.clr := $00000100;
  83418. end;
  83419. procedure TCAN1_C1FIFOINT17.setTXEMPTYIF(thebits : TBits_1); inline;
  83420. begin
  83421. if thebits = 0 then
  83422. pTDefRegMap(@Self)^.clr := $00000100
  83423. else
  83424. pTDefRegMap(@Self)^.&set := $00000100;
  83425. end;
  83426. function TCAN1_C1FIFOINT17.getTXEMPTYIF : TBits_1; inline;
  83427. begin
  83428. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  83429. end;
  83430. procedure TCAN1_C1FIFOINT17.setTXHALFIF; inline;
  83431. begin
  83432. pTDefRegMap(@Self)^.&set := $00000200;
  83433. end;
  83434. procedure TCAN1_C1FIFOINT17.clearTXHALFIF; inline;
  83435. begin
  83436. pTDefRegMap(@Self)^.clr := $00000200;
  83437. end;
  83438. procedure TCAN1_C1FIFOINT17.setTXHALFIF(thebits : TBits_1); inline;
  83439. begin
  83440. if thebits = 0 then
  83441. pTDefRegMap(@Self)^.clr := $00000200
  83442. else
  83443. pTDefRegMap(@Self)^.&set := $00000200;
  83444. end;
  83445. function TCAN1_C1FIFOINT17.getTXHALFIF : TBits_1; inline;
  83446. begin
  83447. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  83448. end;
  83449. procedure TCAN1_C1FIFOINT17.setTXNFULLIF; inline;
  83450. begin
  83451. pTDefRegMap(@Self)^.&set := $00000400;
  83452. end;
  83453. procedure TCAN1_C1FIFOINT17.clearTXNFULLIF; inline;
  83454. begin
  83455. pTDefRegMap(@Self)^.clr := $00000400;
  83456. end;
  83457. procedure TCAN1_C1FIFOINT17.setTXNFULLIF(thebits : TBits_1); inline;
  83458. begin
  83459. if thebits = 0 then
  83460. pTDefRegMap(@Self)^.clr := $00000400
  83461. else
  83462. pTDefRegMap(@Self)^.&set := $00000400;
  83463. end;
  83464. function TCAN1_C1FIFOINT17.getTXNFULLIF : TBits_1; inline;
  83465. begin
  83466. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  83467. end;
  83468. procedure TCAN1_C1FIFOINT17.setRXNEMPTYIE; inline;
  83469. begin
  83470. pTDefRegMap(@Self)^.&set := $00010000;
  83471. end;
  83472. procedure TCAN1_C1FIFOINT17.clearRXNEMPTYIE; inline;
  83473. begin
  83474. pTDefRegMap(@Self)^.clr := $00010000;
  83475. end;
  83476. procedure TCAN1_C1FIFOINT17.setRXNEMPTYIE(thebits : TBits_1); inline;
  83477. begin
  83478. if thebits = 0 then
  83479. pTDefRegMap(@Self)^.clr := $00010000
  83480. else
  83481. pTDefRegMap(@Self)^.&set := $00010000;
  83482. end;
  83483. function TCAN1_C1FIFOINT17.getRXNEMPTYIE : TBits_1; inline;
  83484. begin
  83485. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  83486. end;
  83487. procedure TCAN1_C1FIFOINT17.setRXHALFIE; inline;
  83488. begin
  83489. pTDefRegMap(@Self)^.&set := $00020000;
  83490. end;
  83491. procedure TCAN1_C1FIFOINT17.clearRXHALFIE; inline;
  83492. begin
  83493. pTDefRegMap(@Self)^.clr := $00020000;
  83494. end;
  83495. procedure TCAN1_C1FIFOINT17.setRXHALFIE(thebits : TBits_1); inline;
  83496. begin
  83497. if thebits = 0 then
  83498. pTDefRegMap(@Self)^.clr := $00020000
  83499. else
  83500. pTDefRegMap(@Self)^.&set := $00020000;
  83501. end;
  83502. function TCAN1_C1FIFOINT17.getRXHALFIE : TBits_1; inline;
  83503. begin
  83504. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  83505. end;
  83506. procedure TCAN1_C1FIFOINT17.setRXFULLIE; inline;
  83507. begin
  83508. pTDefRegMap(@Self)^.&set := $00040000;
  83509. end;
  83510. procedure TCAN1_C1FIFOINT17.clearRXFULLIE; inline;
  83511. begin
  83512. pTDefRegMap(@Self)^.clr := $00040000;
  83513. end;
  83514. procedure TCAN1_C1FIFOINT17.setRXFULLIE(thebits : TBits_1); inline;
  83515. begin
  83516. if thebits = 0 then
  83517. pTDefRegMap(@Self)^.clr := $00040000
  83518. else
  83519. pTDefRegMap(@Self)^.&set := $00040000;
  83520. end;
  83521. function TCAN1_C1FIFOINT17.getRXFULLIE : TBits_1; inline;
  83522. begin
  83523. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  83524. end;
  83525. procedure TCAN1_C1FIFOINT17.setRXOVFLIE; inline;
  83526. begin
  83527. pTDefRegMap(@Self)^.&set := $00080000;
  83528. end;
  83529. procedure TCAN1_C1FIFOINT17.clearRXOVFLIE; inline;
  83530. begin
  83531. pTDefRegMap(@Self)^.clr := $00080000;
  83532. end;
  83533. procedure TCAN1_C1FIFOINT17.setRXOVFLIE(thebits : TBits_1); inline;
  83534. begin
  83535. if thebits = 0 then
  83536. pTDefRegMap(@Self)^.clr := $00080000
  83537. else
  83538. pTDefRegMap(@Self)^.&set := $00080000;
  83539. end;
  83540. function TCAN1_C1FIFOINT17.getRXOVFLIE : TBits_1; inline;
  83541. begin
  83542. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  83543. end;
  83544. procedure TCAN1_C1FIFOINT17.setTXEMPTYIE; inline;
  83545. begin
  83546. pTDefRegMap(@Self)^.&set := $01000000;
  83547. end;
  83548. procedure TCAN1_C1FIFOINT17.clearTXEMPTYIE; inline;
  83549. begin
  83550. pTDefRegMap(@Self)^.clr := $01000000;
  83551. end;
  83552. procedure TCAN1_C1FIFOINT17.setTXEMPTYIE(thebits : TBits_1); inline;
  83553. begin
  83554. if thebits = 0 then
  83555. pTDefRegMap(@Self)^.clr := $01000000
  83556. else
  83557. pTDefRegMap(@Self)^.&set := $01000000;
  83558. end;
  83559. function TCAN1_C1FIFOINT17.getTXEMPTYIE : TBits_1; inline;
  83560. begin
  83561. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  83562. end;
  83563. procedure TCAN1_C1FIFOINT17.setTXHALFIE; inline;
  83564. begin
  83565. pTDefRegMap(@Self)^.&set := $02000000;
  83566. end;
  83567. procedure TCAN1_C1FIFOINT17.clearTXHALFIE; inline;
  83568. begin
  83569. pTDefRegMap(@Self)^.clr := $02000000;
  83570. end;
  83571. procedure TCAN1_C1FIFOINT17.setTXHALFIE(thebits : TBits_1); inline;
  83572. begin
  83573. if thebits = 0 then
  83574. pTDefRegMap(@Self)^.clr := $02000000
  83575. else
  83576. pTDefRegMap(@Self)^.&set := $02000000;
  83577. end;
  83578. function TCAN1_C1FIFOINT17.getTXHALFIE : TBits_1; inline;
  83579. begin
  83580. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  83581. end;
  83582. procedure TCAN1_C1FIFOINT17.setTXNFULLIE; inline;
  83583. begin
  83584. pTDefRegMap(@Self)^.&set := $04000000;
  83585. end;
  83586. procedure TCAN1_C1FIFOINT17.clearTXNFULLIE; inline;
  83587. begin
  83588. pTDefRegMap(@Self)^.clr := $04000000;
  83589. end;
  83590. procedure TCAN1_C1FIFOINT17.setTXNFULLIE(thebits : TBits_1); inline;
  83591. begin
  83592. if thebits = 0 then
  83593. pTDefRegMap(@Self)^.clr := $04000000
  83594. else
  83595. pTDefRegMap(@Self)^.&set := $04000000;
  83596. end;
  83597. function TCAN1_C1FIFOINT17.getTXNFULLIE : TBits_1; inline;
  83598. begin
  83599. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  83600. end;
  83601. procedure TCAN1_C1FIFOINT17.setw(thebits : TBits_32); inline;
  83602. begin
  83603. pTDefRegMap(@Self)^.val := thebits;
  83604. end;
  83605. function TCAN1_C1FIFOINT17.getw : TBits_32; inline;
  83606. begin
  83607. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83608. end;
  83609. procedure TCAN1_C1FIFOCI17.setCFIFOCI(thebits : TBits_5); inline;
  83610. begin
  83611. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  83612. end;
  83613. function TCAN1_C1FIFOCI17.getCFIFOCI : TBits_5; inline;
  83614. begin
  83615. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  83616. end;
  83617. procedure TCAN1_C1FIFOCI17.setw(thebits : TBits_32); inline;
  83618. begin
  83619. pTDefRegMap(@Self)^.val := thebits;
  83620. end;
  83621. function TCAN1_C1FIFOCI17.getw : TBits_32; inline;
  83622. begin
  83623. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83624. end;
  83625. procedure TCAN1_C1FIFOCON18.setTXPRI(thebits : TBits_2); inline;
  83626. begin
  83627. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  83628. end;
  83629. function TCAN1_C1FIFOCON18.getTXPRI : TBits_2; inline;
  83630. begin
  83631. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  83632. end;
  83633. procedure TCAN1_C1FIFOCON18.setRTREN; inline;
  83634. begin
  83635. pTDefRegMap(@Self)^.&set := $00000004;
  83636. end;
  83637. procedure TCAN1_C1FIFOCON18.clearRTREN; inline;
  83638. begin
  83639. pTDefRegMap(@Self)^.clr := $00000004;
  83640. end;
  83641. procedure TCAN1_C1FIFOCON18.setRTREN(thebits : TBits_1); inline;
  83642. begin
  83643. if thebits = 0 then
  83644. pTDefRegMap(@Self)^.clr := $00000004
  83645. else
  83646. pTDefRegMap(@Self)^.&set := $00000004;
  83647. end;
  83648. function TCAN1_C1FIFOCON18.getRTREN : TBits_1; inline;
  83649. begin
  83650. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  83651. end;
  83652. procedure TCAN1_C1FIFOCON18.setTXREQ; inline;
  83653. begin
  83654. pTDefRegMap(@Self)^.&set := $00000008;
  83655. end;
  83656. procedure TCAN1_C1FIFOCON18.clearTXREQ; inline;
  83657. begin
  83658. pTDefRegMap(@Self)^.clr := $00000008;
  83659. end;
  83660. procedure TCAN1_C1FIFOCON18.setTXREQ(thebits : TBits_1); inline;
  83661. begin
  83662. if thebits = 0 then
  83663. pTDefRegMap(@Self)^.clr := $00000008
  83664. else
  83665. pTDefRegMap(@Self)^.&set := $00000008;
  83666. end;
  83667. function TCAN1_C1FIFOCON18.getTXREQ : TBits_1; inline;
  83668. begin
  83669. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  83670. end;
  83671. procedure TCAN1_C1FIFOCON18.setTXERR; inline;
  83672. begin
  83673. pTDefRegMap(@Self)^.&set := $00000010;
  83674. end;
  83675. procedure TCAN1_C1FIFOCON18.clearTXERR; inline;
  83676. begin
  83677. pTDefRegMap(@Self)^.clr := $00000010;
  83678. end;
  83679. procedure TCAN1_C1FIFOCON18.setTXERR(thebits : TBits_1); inline;
  83680. begin
  83681. if thebits = 0 then
  83682. pTDefRegMap(@Self)^.clr := $00000010
  83683. else
  83684. pTDefRegMap(@Self)^.&set := $00000010;
  83685. end;
  83686. function TCAN1_C1FIFOCON18.getTXERR : TBits_1; inline;
  83687. begin
  83688. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  83689. end;
  83690. procedure TCAN1_C1FIFOCON18.setTXLARB; inline;
  83691. begin
  83692. pTDefRegMap(@Self)^.&set := $00000020;
  83693. end;
  83694. procedure TCAN1_C1FIFOCON18.clearTXLARB; inline;
  83695. begin
  83696. pTDefRegMap(@Self)^.clr := $00000020;
  83697. end;
  83698. procedure TCAN1_C1FIFOCON18.setTXLARB(thebits : TBits_1); inline;
  83699. begin
  83700. if thebits = 0 then
  83701. pTDefRegMap(@Self)^.clr := $00000020
  83702. else
  83703. pTDefRegMap(@Self)^.&set := $00000020;
  83704. end;
  83705. function TCAN1_C1FIFOCON18.getTXLARB : TBits_1; inline;
  83706. begin
  83707. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  83708. end;
  83709. procedure TCAN1_C1FIFOCON18.setTXABAT; inline;
  83710. begin
  83711. pTDefRegMap(@Self)^.&set := $00000040;
  83712. end;
  83713. procedure TCAN1_C1FIFOCON18.clearTXABAT; inline;
  83714. begin
  83715. pTDefRegMap(@Self)^.clr := $00000040;
  83716. end;
  83717. procedure TCAN1_C1FIFOCON18.setTXABAT(thebits : TBits_1); inline;
  83718. begin
  83719. if thebits = 0 then
  83720. pTDefRegMap(@Self)^.clr := $00000040
  83721. else
  83722. pTDefRegMap(@Self)^.&set := $00000040;
  83723. end;
  83724. function TCAN1_C1FIFOCON18.getTXABAT : TBits_1; inline;
  83725. begin
  83726. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  83727. end;
  83728. procedure TCAN1_C1FIFOCON18.setTXEN; inline;
  83729. begin
  83730. pTDefRegMap(@Self)^.&set := $00000080;
  83731. end;
  83732. procedure TCAN1_C1FIFOCON18.clearTXEN; inline;
  83733. begin
  83734. pTDefRegMap(@Self)^.clr := $00000080;
  83735. end;
  83736. procedure TCAN1_C1FIFOCON18.setTXEN(thebits : TBits_1); inline;
  83737. begin
  83738. if thebits = 0 then
  83739. pTDefRegMap(@Self)^.clr := $00000080
  83740. else
  83741. pTDefRegMap(@Self)^.&set := $00000080;
  83742. end;
  83743. function TCAN1_C1FIFOCON18.getTXEN : TBits_1; inline;
  83744. begin
  83745. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  83746. end;
  83747. procedure TCAN1_C1FIFOCON18.setDONLY; inline;
  83748. begin
  83749. pTDefRegMap(@Self)^.&set := $00001000;
  83750. end;
  83751. procedure TCAN1_C1FIFOCON18.clearDONLY; inline;
  83752. begin
  83753. pTDefRegMap(@Self)^.clr := $00001000;
  83754. end;
  83755. procedure TCAN1_C1FIFOCON18.setDONLY(thebits : TBits_1); inline;
  83756. begin
  83757. if thebits = 0 then
  83758. pTDefRegMap(@Self)^.clr := $00001000
  83759. else
  83760. pTDefRegMap(@Self)^.&set := $00001000;
  83761. end;
  83762. function TCAN1_C1FIFOCON18.getDONLY : TBits_1; inline;
  83763. begin
  83764. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  83765. end;
  83766. procedure TCAN1_C1FIFOCON18.setUINC; inline;
  83767. begin
  83768. pTDefRegMap(@Self)^.&set := $00002000;
  83769. end;
  83770. procedure TCAN1_C1FIFOCON18.clearUINC; inline;
  83771. begin
  83772. pTDefRegMap(@Self)^.clr := $00002000;
  83773. end;
  83774. procedure TCAN1_C1FIFOCON18.setUINC(thebits : TBits_1); inline;
  83775. begin
  83776. if thebits = 0 then
  83777. pTDefRegMap(@Self)^.clr := $00002000
  83778. else
  83779. pTDefRegMap(@Self)^.&set := $00002000;
  83780. end;
  83781. function TCAN1_C1FIFOCON18.getUINC : TBits_1; inline;
  83782. begin
  83783. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  83784. end;
  83785. procedure TCAN1_C1FIFOCON18.setFRESET; inline;
  83786. begin
  83787. pTDefRegMap(@Self)^.&set := $00004000;
  83788. end;
  83789. procedure TCAN1_C1FIFOCON18.clearFRESET; inline;
  83790. begin
  83791. pTDefRegMap(@Self)^.clr := $00004000;
  83792. end;
  83793. procedure TCAN1_C1FIFOCON18.setFRESET(thebits : TBits_1); inline;
  83794. begin
  83795. if thebits = 0 then
  83796. pTDefRegMap(@Self)^.clr := $00004000
  83797. else
  83798. pTDefRegMap(@Self)^.&set := $00004000;
  83799. end;
  83800. function TCAN1_C1FIFOCON18.getFRESET : TBits_1; inline;
  83801. begin
  83802. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  83803. end;
  83804. procedure TCAN1_C1FIFOCON18.setFSIZE(thebits : TBits_5); inline;
  83805. begin
  83806. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  83807. end;
  83808. function TCAN1_C1FIFOCON18.getFSIZE : TBits_5; inline;
  83809. begin
  83810. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  83811. end;
  83812. procedure TCAN1_C1FIFOCON18.setw(thebits : TBits_32); inline;
  83813. begin
  83814. pTDefRegMap(@Self)^.val := thebits;
  83815. end;
  83816. function TCAN1_C1FIFOCON18.getw : TBits_32; inline;
  83817. begin
  83818. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83819. end;
  83820. procedure TCAN1_C1FIFOINT18.setRXNEMPTYIF; inline;
  83821. begin
  83822. pTDefRegMap(@Self)^.&set := $00000001;
  83823. end;
  83824. procedure TCAN1_C1FIFOINT18.clearRXNEMPTYIF; inline;
  83825. begin
  83826. pTDefRegMap(@Self)^.clr := $00000001;
  83827. end;
  83828. procedure TCAN1_C1FIFOINT18.setRXNEMPTYIF(thebits : TBits_1); inline;
  83829. begin
  83830. if thebits = 0 then
  83831. pTDefRegMap(@Self)^.clr := $00000001
  83832. else
  83833. pTDefRegMap(@Self)^.&set := $00000001;
  83834. end;
  83835. function TCAN1_C1FIFOINT18.getRXNEMPTYIF : TBits_1; inline;
  83836. begin
  83837. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  83838. end;
  83839. procedure TCAN1_C1FIFOINT18.setRXHALFIF; inline;
  83840. begin
  83841. pTDefRegMap(@Self)^.&set := $00000002;
  83842. end;
  83843. procedure TCAN1_C1FIFOINT18.clearRXHALFIF; inline;
  83844. begin
  83845. pTDefRegMap(@Self)^.clr := $00000002;
  83846. end;
  83847. procedure TCAN1_C1FIFOINT18.setRXHALFIF(thebits : TBits_1); inline;
  83848. begin
  83849. if thebits = 0 then
  83850. pTDefRegMap(@Self)^.clr := $00000002
  83851. else
  83852. pTDefRegMap(@Self)^.&set := $00000002;
  83853. end;
  83854. function TCAN1_C1FIFOINT18.getRXHALFIF : TBits_1; inline;
  83855. begin
  83856. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  83857. end;
  83858. procedure TCAN1_C1FIFOINT18.setRXFULLIF; inline;
  83859. begin
  83860. pTDefRegMap(@Self)^.&set := $00000004;
  83861. end;
  83862. procedure TCAN1_C1FIFOINT18.clearRXFULLIF; inline;
  83863. begin
  83864. pTDefRegMap(@Self)^.clr := $00000004;
  83865. end;
  83866. procedure TCAN1_C1FIFOINT18.setRXFULLIF(thebits : TBits_1); inline;
  83867. begin
  83868. if thebits = 0 then
  83869. pTDefRegMap(@Self)^.clr := $00000004
  83870. else
  83871. pTDefRegMap(@Self)^.&set := $00000004;
  83872. end;
  83873. function TCAN1_C1FIFOINT18.getRXFULLIF : TBits_1; inline;
  83874. begin
  83875. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  83876. end;
  83877. procedure TCAN1_C1FIFOINT18.setRXOVFLIF; inline;
  83878. begin
  83879. pTDefRegMap(@Self)^.&set := $00000008;
  83880. end;
  83881. procedure TCAN1_C1FIFOINT18.clearRXOVFLIF; inline;
  83882. begin
  83883. pTDefRegMap(@Self)^.clr := $00000008;
  83884. end;
  83885. procedure TCAN1_C1FIFOINT18.setRXOVFLIF(thebits : TBits_1); inline;
  83886. begin
  83887. if thebits = 0 then
  83888. pTDefRegMap(@Self)^.clr := $00000008
  83889. else
  83890. pTDefRegMap(@Self)^.&set := $00000008;
  83891. end;
  83892. function TCAN1_C1FIFOINT18.getRXOVFLIF : TBits_1; inline;
  83893. begin
  83894. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  83895. end;
  83896. procedure TCAN1_C1FIFOINT18.setTXEMPTYIF; inline;
  83897. begin
  83898. pTDefRegMap(@Self)^.&set := $00000100;
  83899. end;
  83900. procedure TCAN1_C1FIFOINT18.clearTXEMPTYIF; inline;
  83901. begin
  83902. pTDefRegMap(@Self)^.clr := $00000100;
  83903. end;
  83904. procedure TCAN1_C1FIFOINT18.setTXEMPTYIF(thebits : TBits_1); inline;
  83905. begin
  83906. if thebits = 0 then
  83907. pTDefRegMap(@Self)^.clr := $00000100
  83908. else
  83909. pTDefRegMap(@Self)^.&set := $00000100;
  83910. end;
  83911. function TCAN1_C1FIFOINT18.getTXEMPTYIF : TBits_1; inline;
  83912. begin
  83913. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  83914. end;
  83915. procedure TCAN1_C1FIFOINT18.setTXHALFIF; inline;
  83916. begin
  83917. pTDefRegMap(@Self)^.&set := $00000200;
  83918. end;
  83919. procedure TCAN1_C1FIFOINT18.clearTXHALFIF; inline;
  83920. begin
  83921. pTDefRegMap(@Self)^.clr := $00000200;
  83922. end;
  83923. procedure TCAN1_C1FIFOINT18.setTXHALFIF(thebits : TBits_1); inline;
  83924. begin
  83925. if thebits = 0 then
  83926. pTDefRegMap(@Self)^.clr := $00000200
  83927. else
  83928. pTDefRegMap(@Self)^.&set := $00000200;
  83929. end;
  83930. function TCAN1_C1FIFOINT18.getTXHALFIF : TBits_1; inline;
  83931. begin
  83932. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  83933. end;
  83934. procedure TCAN1_C1FIFOINT18.setTXNFULLIF; inline;
  83935. begin
  83936. pTDefRegMap(@Self)^.&set := $00000400;
  83937. end;
  83938. procedure TCAN1_C1FIFOINT18.clearTXNFULLIF; inline;
  83939. begin
  83940. pTDefRegMap(@Self)^.clr := $00000400;
  83941. end;
  83942. procedure TCAN1_C1FIFOINT18.setTXNFULLIF(thebits : TBits_1); inline;
  83943. begin
  83944. if thebits = 0 then
  83945. pTDefRegMap(@Self)^.clr := $00000400
  83946. else
  83947. pTDefRegMap(@Self)^.&set := $00000400;
  83948. end;
  83949. function TCAN1_C1FIFOINT18.getTXNFULLIF : TBits_1; inline;
  83950. begin
  83951. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  83952. end;
  83953. procedure TCAN1_C1FIFOINT18.setRXNEMPTYIE; inline;
  83954. begin
  83955. pTDefRegMap(@Self)^.&set := $00010000;
  83956. end;
  83957. procedure TCAN1_C1FIFOINT18.clearRXNEMPTYIE; inline;
  83958. begin
  83959. pTDefRegMap(@Self)^.clr := $00010000;
  83960. end;
  83961. procedure TCAN1_C1FIFOINT18.setRXNEMPTYIE(thebits : TBits_1); inline;
  83962. begin
  83963. if thebits = 0 then
  83964. pTDefRegMap(@Self)^.clr := $00010000
  83965. else
  83966. pTDefRegMap(@Self)^.&set := $00010000;
  83967. end;
  83968. function TCAN1_C1FIFOINT18.getRXNEMPTYIE : TBits_1; inline;
  83969. begin
  83970. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  83971. end;
  83972. procedure TCAN1_C1FIFOINT18.setRXHALFIE; inline;
  83973. begin
  83974. pTDefRegMap(@Self)^.&set := $00020000;
  83975. end;
  83976. procedure TCAN1_C1FIFOINT18.clearRXHALFIE; inline;
  83977. begin
  83978. pTDefRegMap(@Self)^.clr := $00020000;
  83979. end;
  83980. procedure TCAN1_C1FIFOINT18.setRXHALFIE(thebits : TBits_1); inline;
  83981. begin
  83982. if thebits = 0 then
  83983. pTDefRegMap(@Self)^.clr := $00020000
  83984. else
  83985. pTDefRegMap(@Self)^.&set := $00020000;
  83986. end;
  83987. function TCAN1_C1FIFOINT18.getRXHALFIE : TBits_1; inline;
  83988. begin
  83989. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  83990. end;
  83991. procedure TCAN1_C1FIFOINT18.setRXFULLIE; inline;
  83992. begin
  83993. pTDefRegMap(@Self)^.&set := $00040000;
  83994. end;
  83995. procedure TCAN1_C1FIFOINT18.clearRXFULLIE; inline;
  83996. begin
  83997. pTDefRegMap(@Self)^.clr := $00040000;
  83998. end;
  83999. procedure TCAN1_C1FIFOINT18.setRXFULLIE(thebits : TBits_1); inline;
  84000. begin
  84001. if thebits = 0 then
  84002. pTDefRegMap(@Self)^.clr := $00040000
  84003. else
  84004. pTDefRegMap(@Self)^.&set := $00040000;
  84005. end;
  84006. function TCAN1_C1FIFOINT18.getRXFULLIE : TBits_1; inline;
  84007. begin
  84008. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  84009. end;
  84010. procedure TCAN1_C1FIFOINT18.setRXOVFLIE; inline;
  84011. begin
  84012. pTDefRegMap(@Self)^.&set := $00080000;
  84013. end;
  84014. procedure TCAN1_C1FIFOINT18.clearRXOVFLIE; inline;
  84015. begin
  84016. pTDefRegMap(@Self)^.clr := $00080000;
  84017. end;
  84018. procedure TCAN1_C1FIFOINT18.setRXOVFLIE(thebits : TBits_1); inline;
  84019. begin
  84020. if thebits = 0 then
  84021. pTDefRegMap(@Self)^.clr := $00080000
  84022. else
  84023. pTDefRegMap(@Self)^.&set := $00080000;
  84024. end;
  84025. function TCAN1_C1FIFOINT18.getRXOVFLIE : TBits_1; inline;
  84026. begin
  84027. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  84028. end;
  84029. procedure TCAN1_C1FIFOINT18.setTXEMPTYIE; inline;
  84030. begin
  84031. pTDefRegMap(@Self)^.&set := $01000000;
  84032. end;
  84033. procedure TCAN1_C1FIFOINT18.clearTXEMPTYIE; inline;
  84034. begin
  84035. pTDefRegMap(@Self)^.clr := $01000000;
  84036. end;
  84037. procedure TCAN1_C1FIFOINT18.setTXEMPTYIE(thebits : TBits_1); inline;
  84038. begin
  84039. if thebits = 0 then
  84040. pTDefRegMap(@Self)^.clr := $01000000
  84041. else
  84042. pTDefRegMap(@Self)^.&set := $01000000;
  84043. end;
  84044. function TCAN1_C1FIFOINT18.getTXEMPTYIE : TBits_1; inline;
  84045. begin
  84046. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  84047. end;
  84048. procedure TCAN1_C1FIFOINT18.setTXHALFIE; inline;
  84049. begin
  84050. pTDefRegMap(@Self)^.&set := $02000000;
  84051. end;
  84052. procedure TCAN1_C1FIFOINT18.clearTXHALFIE; inline;
  84053. begin
  84054. pTDefRegMap(@Self)^.clr := $02000000;
  84055. end;
  84056. procedure TCAN1_C1FIFOINT18.setTXHALFIE(thebits : TBits_1); inline;
  84057. begin
  84058. if thebits = 0 then
  84059. pTDefRegMap(@Self)^.clr := $02000000
  84060. else
  84061. pTDefRegMap(@Self)^.&set := $02000000;
  84062. end;
  84063. function TCAN1_C1FIFOINT18.getTXHALFIE : TBits_1; inline;
  84064. begin
  84065. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  84066. end;
  84067. procedure TCAN1_C1FIFOINT18.setTXNFULLIE; inline;
  84068. begin
  84069. pTDefRegMap(@Self)^.&set := $04000000;
  84070. end;
  84071. procedure TCAN1_C1FIFOINT18.clearTXNFULLIE; inline;
  84072. begin
  84073. pTDefRegMap(@Self)^.clr := $04000000;
  84074. end;
  84075. procedure TCAN1_C1FIFOINT18.setTXNFULLIE(thebits : TBits_1); inline;
  84076. begin
  84077. if thebits = 0 then
  84078. pTDefRegMap(@Self)^.clr := $04000000
  84079. else
  84080. pTDefRegMap(@Self)^.&set := $04000000;
  84081. end;
  84082. function TCAN1_C1FIFOINT18.getTXNFULLIE : TBits_1; inline;
  84083. begin
  84084. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  84085. end;
  84086. procedure TCAN1_C1FIFOINT18.setw(thebits : TBits_32); inline;
  84087. begin
  84088. pTDefRegMap(@Self)^.val := thebits;
  84089. end;
  84090. function TCAN1_C1FIFOINT18.getw : TBits_32; inline;
  84091. begin
  84092. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84093. end;
  84094. procedure TCAN1_C1FIFOCI18.setCFIFOCI(thebits : TBits_5); inline;
  84095. begin
  84096. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  84097. end;
  84098. function TCAN1_C1FIFOCI18.getCFIFOCI : TBits_5; inline;
  84099. begin
  84100. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  84101. end;
  84102. procedure TCAN1_C1FIFOCI18.setw(thebits : TBits_32); inline;
  84103. begin
  84104. pTDefRegMap(@Self)^.val := thebits;
  84105. end;
  84106. function TCAN1_C1FIFOCI18.getw : TBits_32; inline;
  84107. begin
  84108. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84109. end;
  84110. procedure TCAN1_C1FIFOCON19.setTXPRI(thebits : TBits_2); inline;
  84111. begin
  84112. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  84113. end;
  84114. function TCAN1_C1FIFOCON19.getTXPRI : TBits_2; inline;
  84115. begin
  84116. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  84117. end;
  84118. procedure TCAN1_C1FIFOCON19.setRTREN; inline;
  84119. begin
  84120. pTDefRegMap(@Self)^.&set := $00000004;
  84121. end;
  84122. procedure TCAN1_C1FIFOCON19.clearRTREN; inline;
  84123. begin
  84124. pTDefRegMap(@Self)^.clr := $00000004;
  84125. end;
  84126. procedure TCAN1_C1FIFOCON19.setRTREN(thebits : TBits_1); inline;
  84127. begin
  84128. if thebits = 0 then
  84129. pTDefRegMap(@Self)^.clr := $00000004
  84130. else
  84131. pTDefRegMap(@Self)^.&set := $00000004;
  84132. end;
  84133. function TCAN1_C1FIFOCON19.getRTREN : TBits_1; inline;
  84134. begin
  84135. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  84136. end;
  84137. procedure TCAN1_C1FIFOCON19.setTXREQ; inline;
  84138. begin
  84139. pTDefRegMap(@Self)^.&set := $00000008;
  84140. end;
  84141. procedure TCAN1_C1FIFOCON19.clearTXREQ; inline;
  84142. begin
  84143. pTDefRegMap(@Self)^.clr := $00000008;
  84144. end;
  84145. procedure TCAN1_C1FIFOCON19.setTXREQ(thebits : TBits_1); inline;
  84146. begin
  84147. if thebits = 0 then
  84148. pTDefRegMap(@Self)^.clr := $00000008
  84149. else
  84150. pTDefRegMap(@Self)^.&set := $00000008;
  84151. end;
  84152. function TCAN1_C1FIFOCON19.getTXREQ : TBits_1; inline;
  84153. begin
  84154. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  84155. end;
  84156. procedure TCAN1_C1FIFOCON19.setTXERR; inline;
  84157. begin
  84158. pTDefRegMap(@Self)^.&set := $00000010;
  84159. end;
  84160. procedure TCAN1_C1FIFOCON19.clearTXERR; inline;
  84161. begin
  84162. pTDefRegMap(@Self)^.clr := $00000010;
  84163. end;
  84164. procedure TCAN1_C1FIFOCON19.setTXERR(thebits : TBits_1); inline;
  84165. begin
  84166. if thebits = 0 then
  84167. pTDefRegMap(@Self)^.clr := $00000010
  84168. else
  84169. pTDefRegMap(@Self)^.&set := $00000010;
  84170. end;
  84171. function TCAN1_C1FIFOCON19.getTXERR : TBits_1; inline;
  84172. begin
  84173. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  84174. end;
  84175. procedure TCAN1_C1FIFOCON19.setTXLARB; inline;
  84176. begin
  84177. pTDefRegMap(@Self)^.&set := $00000020;
  84178. end;
  84179. procedure TCAN1_C1FIFOCON19.clearTXLARB; inline;
  84180. begin
  84181. pTDefRegMap(@Self)^.clr := $00000020;
  84182. end;
  84183. procedure TCAN1_C1FIFOCON19.setTXLARB(thebits : TBits_1); inline;
  84184. begin
  84185. if thebits = 0 then
  84186. pTDefRegMap(@Self)^.clr := $00000020
  84187. else
  84188. pTDefRegMap(@Self)^.&set := $00000020;
  84189. end;
  84190. function TCAN1_C1FIFOCON19.getTXLARB : TBits_1; inline;
  84191. begin
  84192. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  84193. end;
  84194. procedure TCAN1_C1FIFOCON19.setTXABAT; inline;
  84195. begin
  84196. pTDefRegMap(@Self)^.&set := $00000040;
  84197. end;
  84198. procedure TCAN1_C1FIFOCON19.clearTXABAT; inline;
  84199. begin
  84200. pTDefRegMap(@Self)^.clr := $00000040;
  84201. end;
  84202. procedure TCAN1_C1FIFOCON19.setTXABAT(thebits : TBits_1); inline;
  84203. begin
  84204. if thebits = 0 then
  84205. pTDefRegMap(@Self)^.clr := $00000040
  84206. else
  84207. pTDefRegMap(@Self)^.&set := $00000040;
  84208. end;
  84209. function TCAN1_C1FIFOCON19.getTXABAT : TBits_1; inline;
  84210. begin
  84211. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  84212. end;
  84213. procedure TCAN1_C1FIFOCON19.setTXEN; inline;
  84214. begin
  84215. pTDefRegMap(@Self)^.&set := $00000080;
  84216. end;
  84217. procedure TCAN1_C1FIFOCON19.clearTXEN; inline;
  84218. begin
  84219. pTDefRegMap(@Self)^.clr := $00000080;
  84220. end;
  84221. procedure TCAN1_C1FIFOCON19.setTXEN(thebits : TBits_1); inline;
  84222. begin
  84223. if thebits = 0 then
  84224. pTDefRegMap(@Self)^.clr := $00000080
  84225. else
  84226. pTDefRegMap(@Self)^.&set := $00000080;
  84227. end;
  84228. function TCAN1_C1FIFOCON19.getTXEN : TBits_1; inline;
  84229. begin
  84230. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  84231. end;
  84232. procedure TCAN1_C1FIFOCON19.setDONLY; inline;
  84233. begin
  84234. pTDefRegMap(@Self)^.&set := $00001000;
  84235. end;
  84236. procedure TCAN1_C1FIFOCON19.clearDONLY; inline;
  84237. begin
  84238. pTDefRegMap(@Self)^.clr := $00001000;
  84239. end;
  84240. procedure TCAN1_C1FIFOCON19.setDONLY(thebits : TBits_1); inline;
  84241. begin
  84242. if thebits = 0 then
  84243. pTDefRegMap(@Self)^.clr := $00001000
  84244. else
  84245. pTDefRegMap(@Self)^.&set := $00001000;
  84246. end;
  84247. function TCAN1_C1FIFOCON19.getDONLY : TBits_1; inline;
  84248. begin
  84249. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  84250. end;
  84251. procedure TCAN1_C1FIFOCON19.setUINC; inline;
  84252. begin
  84253. pTDefRegMap(@Self)^.&set := $00002000;
  84254. end;
  84255. procedure TCAN1_C1FIFOCON19.clearUINC; inline;
  84256. begin
  84257. pTDefRegMap(@Self)^.clr := $00002000;
  84258. end;
  84259. procedure TCAN1_C1FIFOCON19.setUINC(thebits : TBits_1); inline;
  84260. begin
  84261. if thebits = 0 then
  84262. pTDefRegMap(@Self)^.clr := $00002000
  84263. else
  84264. pTDefRegMap(@Self)^.&set := $00002000;
  84265. end;
  84266. function TCAN1_C1FIFOCON19.getUINC : TBits_1; inline;
  84267. begin
  84268. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  84269. end;
  84270. procedure TCAN1_C1FIFOCON19.setFRESET; inline;
  84271. begin
  84272. pTDefRegMap(@Self)^.&set := $00004000;
  84273. end;
  84274. procedure TCAN1_C1FIFOCON19.clearFRESET; inline;
  84275. begin
  84276. pTDefRegMap(@Self)^.clr := $00004000;
  84277. end;
  84278. procedure TCAN1_C1FIFOCON19.setFRESET(thebits : TBits_1); inline;
  84279. begin
  84280. if thebits = 0 then
  84281. pTDefRegMap(@Self)^.clr := $00004000
  84282. else
  84283. pTDefRegMap(@Self)^.&set := $00004000;
  84284. end;
  84285. function TCAN1_C1FIFOCON19.getFRESET : TBits_1; inline;
  84286. begin
  84287. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  84288. end;
  84289. procedure TCAN1_C1FIFOCON19.setFSIZE(thebits : TBits_5); inline;
  84290. begin
  84291. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  84292. end;
  84293. function TCAN1_C1FIFOCON19.getFSIZE : TBits_5; inline;
  84294. begin
  84295. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  84296. end;
  84297. procedure TCAN1_C1FIFOCON19.setw(thebits : TBits_32); inline;
  84298. begin
  84299. pTDefRegMap(@Self)^.val := thebits;
  84300. end;
  84301. function TCAN1_C1FIFOCON19.getw : TBits_32; inline;
  84302. begin
  84303. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84304. end;
  84305. procedure TCAN1_C1FIFOINT19.setRXNEMPTYIF; inline;
  84306. begin
  84307. pTDefRegMap(@Self)^.&set := $00000001;
  84308. end;
  84309. procedure TCAN1_C1FIFOINT19.clearRXNEMPTYIF; inline;
  84310. begin
  84311. pTDefRegMap(@Self)^.clr := $00000001;
  84312. end;
  84313. procedure TCAN1_C1FIFOINT19.setRXNEMPTYIF(thebits : TBits_1); inline;
  84314. begin
  84315. if thebits = 0 then
  84316. pTDefRegMap(@Self)^.clr := $00000001
  84317. else
  84318. pTDefRegMap(@Self)^.&set := $00000001;
  84319. end;
  84320. function TCAN1_C1FIFOINT19.getRXNEMPTYIF : TBits_1; inline;
  84321. begin
  84322. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  84323. end;
  84324. procedure TCAN1_C1FIFOINT19.setRXHALFIF; inline;
  84325. begin
  84326. pTDefRegMap(@Self)^.&set := $00000002;
  84327. end;
  84328. procedure TCAN1_C1FIFOINT19.clearRXHALFIF; inline;
  84329. begin
  84330. pTDefRegMap(@Self)^.clr := $00000002;
  84331. end;
  84332. procedure TCAN1_C1FIFOINT19.setRXHALFIF(thebits : TBits_1); inline;
  84333. begin
  84334. if thebits = 0 then
  84335. pTDefRegMap(@Self)^.clr := $00000002
  84336. else
  84337. pTDefRegMap(@Self)^.&set := $00000002;
  84338. end;
  84339. function TCAN1_C1FIFOINT19.getRXHALFIF : TBits_1; inline;
  84340. begin
  84341. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  84342. end;
  84343. procedure TCAN1_C1FIFOINT19.setRXFULLIF; inline;
  84344. begin
  84345. pTDefRegMap(@Self)^.&set := $00000004;
  84346. end;
  84347. procedure TCAN1_C1FIFOINT19.clearRXFULLIF; inline;
  84348. begin
  84349. pTDefRegMap(@Self)^.clr := $00000004;
  84350. end;
  84351. procedure TCAN1_C1FIFOINT19.setRXFULLIF(thebits : TBits_1); inline;
  84352. begin
  84353. if thebits = 0 then
  84354. pTDefRegMap(@Self)^.clr := $00000004
  84355. else
  84356. pTDefRegMap(@Self)^.&set := $00000004;
  84357. end;
  84358. function TCAN1_C1FIFOINT19.getRXFULLIF : TBits_1; inline;
  84359. begin
  84360. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  84361. end;
  84362. procedure TCAN1_C1FIFOINT19.setRXOVFLIF; inline;
  84363. begin
  84364. pTDefRegMap(@Self)^.&set := $00000008;
  84365. end;
  84366. procedure TCAN1_C1FIFOINT19.clearRXOVFLIF; inline;
  84367. begin
  84368. pTDefRegMap(@Self)^.clr := $00000008;
  84369. end;
  84370. procedure TCAN1_C1FIFOINT19.setRXOVFLIF(thebits : TBits_1); inline;
  84371. begin
  84372. if thebits = 0 then
  84373. pTDefRegMap(@Self)^.clr := $00000008
  84374. else
  84375. pTDefRegMap(@Self)^.&set := $00000008;
  84376. end;
  84377. function TCAN1_C1FIFOINT19.getRXOVFLIF : TBits_1; inline;
  84378. begin
  84379. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  84380. end;
  84381. procedure TCAN1_C1FIFOINT19.setTXEMPTYIF; inline;
  84382. begin
  84383. pTDefRegMap(@Self)^.&set := $00000100;
  84384. end;
  84385. procedure TCAN1_C1FIFOINT19.clearTXEMPTYIF; inline;
  84386. begin
  84387. pTDefRegMap(@Self)^.clr := $00000100;
  84388. end;
  84389. procedure TCAN1_C1FIFOINT19.setTXEMPTYIF(thebits : TBits_1); inline;
  84390. begin
  84391. if thebits = 0 then
  84392. pTDefRegMap(@Self)^.clr := $00000100
  84393. else
  84394. pTDefRegMap(@Self)^.&set := $00000100;
  84395. end;
  84396. function TCAN1_C1FIFOINT19.getTXEMPTYIF : TBits_1; inline;
  84397. begin
  84398. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  84399. end;
  84400. procedure TCAN1_C1FIFOINT19.setTXHALFIF; inline;
  84401. begin
  84402. pTDefRegMap(@Self)^.&set := $00000200;
  84403. end;
  84404. procedure TCAN1_C1FIFOINT19.clearTXHALFIF; inline;
  84405. begin
  84406. pTDefRegMap(@Self)^.clr := $00000200;
  84407. end;
  84408. procedure TCAN1_C1FIFOINT19.setTXHALFIF(thebits : TBits_1); inline;
  84409. begin
  84410. if thebits = 0 then
  84411. pTDefRegMap(@Self)^.clr := $00000200
  84412. else
  84413. pTDefRegMap(@Self)^.&set := $00000200;
  84414. end;
  84415. function TCAN1_C1FIFOINT19.getTXHALFIF : TBits_1; inline;
  84416. begin
  84417. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  84418. end;
  84419. procedure TCAN1_C1FIFOINT19.setTXNFULLIF; inline;
  84420. begin
  84421. pTDefRegMap(@Self)^.&set := $00000400;
  84422. end;
  84423. procedure TCAN1_C1FIFOINT19.clearTXNFULLIF; inline;
  84424. begin
  84425. pTDefRegMap(@Self)^.clr := $00000400;
  84426. end;
  84427. procedure TCAN1_C1FIFOINT19.setTXNFULLIF(thebits : TBits_1); inline;
  84428. begin
  84429. if thebits = 0 then
  84430. pTDefRegMap(@Self)^.clr := $00000400
  84431. else
  84432. pTDefRegMap(@Self)^.&set := $00000400;
  84433. end;
  84434. function TCAN1_C1FIFOINT19.getTXNFULLIF : TBits_1; inline;
  84435. begin
  84436. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  84437. end;
  84438. procedure TCAN1_C1FIFOINT19.setRXNEMPTYIE; inline;
  84439. begin
  84440. pTDefRegMap(@Self)^.&set := $00010000;
  84441. end;
  84442. procedure TCAN1_C1FIFOINT19.clearRXNEMPTYIE; inline;
  84443. begin
  84444. pTDefRegMap(@Self)^.clr := $00010000;
  84445. end;
  84446. procedure TCAN1_C1FIFOINT19.setRXNEMPTYIE(thebits : TBits_1); inline;
  84447. begin
  84448. if thebits = 0 then
  84449. pTDefRegMap(@Self)^.clr := $00010000
  84450. else
  84451. pTDefRegMap(@Self)^.&set := $00010000;
  84452. end;
  84453. function TCAN1_C1FIFOINT19.getRXNEMPTYIE : TBits_1; inline;
  84454. begin
  84455. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  84456. end;
  84457. procedure TCAN1_C1FIFOINT19.setRXHALFIE; inline;
  84458. begin
  84459. pTDefRegMap(@Self)^.&set := $00020000;
  84460. end;
  84461. procedure TCAN1_C1FIFOINT19.clearRXHALFIE; inline;
  84462. begin
  84463. pTDefRegMap(@Self)^.clr := $00020000;
  84464. end;
  84465. procedure TCAN1_C1FIFOINT19.setRXHALFIE(thebits : TBits_1); inline;
  84466. begin
  84467. if thebits = 0 then
  84468. pTDefRegMap(@Self)^.clr := $00020000
  84469. else
  84470. pTDefRegMap(@Self)^.&set := $00020000;
  84471. end;
  84472. function TCAN1_C1FIFOINT19.getRXHALFIE : TBits_1; inline;
  84473. begin
  84474. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  84475. end;
  84476. procedure TCAN1_C1FIFOINT19.setRXFULLIE; inline;
  84477. begin
  84478. pTDefRegMap(@Self)^.&set := $00040000;
  84479. end;
  84480. procedure TCAN1_C1FIFOINT19.clearRXFULLIE; inline;
  84481. begin
  84482. pTDefRegMap(@Self)^.clr := $00040000;
  84483. end;
  84484. procedure TCAN1_C1FIFOINT19.setRXFULLIE(thebits : TBits_1); inline;
  84485. begin
  84486. if thebits = 0 then
  84487. pTDefRegMap(@Self)^.clr := $00040000
  84488. else
  84489. pTDefRegMap(@Self)^.&set := $00040000;
  84490. end;
  84491. function TCAN1_C1FIFOINT19.getRXFULLIE : TBits_1; inline;
  84492. begin
  84493. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  84494. end;
  84495. procedure TCAN1_C1FIFOINT19.setRXOVFLIE; inline;
  84496. begin
  84497. pTDefRegMap(@Self)^.&set := $00080000;
  84498. end;
  84499. procedure TCAN1_C1FIFOINT19.clearRXOVFLIE; inline;
  84500. begin
  84501. pTDefRegMap(@Self)^.clr := $00080000;
  84502. end;
  84503. procedure TCAN1_C1FIFOINT19.setRXOVFLIE(thebits : TBits_1); inline;
  84504. begin
  84505. if thebits = 0 then
  84506. pTDefRegMap(@Self)^.clr := $00080000
  84507. else
  84508. pTDefRegMap(@Self)^.&set := $00080000;
  84509. end;
  84510. function TCAN1_C1FIFOINT19.getRXOVFLIE : TBits_1; inline;
  84511. begin
  84512. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  84513. end;
  84514. procedure TCAN1_C1FIFOINT19.setTXEMPTYIE; inline;
  84515. begin
  84516. pTDefRegMap(@Self)^.&set := $01000000;
  84517. end;
  84518. procedure TCAN1_C1FIFOINT19.clearTXEMPTYIE; inline;
  84519. begin
  84520. pTDefRegMap(@Self)^.clr := $01000000;
  84521. end;
  84522. procedure TCAN1_C1FIFOINT19.setTXEMPTYIE(thebits : TBits_1); inline;
  84523. begin
  84524. if thebits = 0 then
  84525. pTDefRegMap(@Self)^.clr := $01000000
  84526. else
  84527. pTDefRegMap(@Self)^.&set := $01000000;
  84528. end;
  84529. function TCAN1_C1FIFOINT19.getTXEMPTYIE : TBits_1; inline;
  84530. begin
  84531. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  84532. end;
  84533. procedure TCAN1_C1FIFOINT19.setTXHALFIE; inline;
  84534. begin
  84535. pTDefRegMap(@Self)^.&set := $02000000;
  84536. end;
  84537. procedure TCAN1_C1FIFOINT19.clearTXHALFIE; inline;
  84538. begin
  84539. pTDefRegMap(@Self)^.clr := $02000000;
  84540. end;
  84541. procedure TCAN1_C1FIFOINT19.setTXHALFIE(thebits : TBits_1); inline;
  84542. begin
  84543. if thebits = 0 then
  84544. pTDefRegMap(@Self)^.clr := $02000000
  84545. else
  84546. pTDefRegMap(@Self)^.&set := $02000000;
  84547. end;
  84548. function TCAN1_C1FIFOINT19.getTXHALFIE : TBits_1; inline;
  84549. begin
  84550. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  84551. end;
  84552. procedure TCAN1_C1FIFOINT19.setTXNFULLIE; inline;
  84553. begin
  84554. pTDefRegMap(@Self)^.&set := $04000000;
  84555. end;
  84556. procedure TCAN1_C1FIFOINT19.clearTXNFULLIE; inline;
  84557. begin
  84558. pTDefRegMap(@Self)^.clr := $04000000;
  84559. end;
  84560. procedure TCAN1_C1FIFOINT19.setTXNFULLIE(thebits : TBits_1); inline;
  84561. begin
  84562. if thebits = 0 then
  84563. pTDefRegMap(@Self)^.clr := $04000000
  84564. else
  84565. pTDefRegMap(@Self)^.&set := $04000000;
  84566. end;
  84567. function TCAN1_C1FIFOINT19.getTXNFULLIE : TBits_1; inline;
  84568. begin
  84569. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  84570. end;
  84571. procedure TCAN1_C1FIFOINT19.setw(thebits : TBits_32); inline;
  84572. begin
  84573. pTDefRegMap(@Self)^.val := thebits;
  84574. end;
  84575. function TCAN1_C1FIFOINT19.getw : TBits_32; inline;
  84576. begin
  84577. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84578. end;
  84579. procedure TCAN1_C1FIFOCI19.setCFIFOCI(thebits : TBits_5); inline;
  84580. begin
  84581. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  84582. end;
  84583. function TCAN1_C1FIFOCI19.getCFIFOCI : TBits_5; inline;
  84584. begin
  84585. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  84586. end;
  84587. procedure TCAN1_C1FIFOCI19.setw(thebits : TBits_32); inline;
  84588. begin
  84589. pTDefRegMap(@Self)^.val := thebits;
  84590. end;
  84591. function TCAN1_C1FIFOCI19.getw : TBits_32; inline;
  84592. begin
  84593. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84594. end;
  84595. procedure TCAN1_C1FIFOCON20.setTXPRI(thebits : TBits_2); inline;
  84596. begin
  84597. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  84598. end;
  84599. function TCAN1_C1FIFOCON20.getTXPRI : TBits_2; inline;
  84600. begin
  84601. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  84602. end;
  84603. procedure TCAN1_C1FIFOCON20.setRTREN; inline;
  84604. begin
  84605. pTDefRegMap(@Self)^.&set := $00000004;
  84606. end;
  84607. procedure TCAN1_C1FIFOCON20.clearRTREN; inline;
  84608. begin
  84609. pTDefRegMap(@Self)^.clr := $00000004;
  84610. end;
  84611. procedure TCAN1_C1FIFOCON20.setRTREN(thebits : TBits_1); inline;
  84612. begin
  84613. if thebits = 0 then
  84614. pTDefRegMap(@Self)^.clr := $00000004
  84615. else
  84616. pTDefRegMap(@Self)^.&set := $00000004;
  84617. end;
  84618. function TCAN1_C1FIFOCON20.getRTREN : TBits_1; inline;
  84619. begin
  84620. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  84621. end;
  84622. procedure TCAN1_C1FIFOCON20.setTXREQ; inline;
  84623. begin
  84624. pTDefRegMap(@Self)^.&set := $00000008;
  84625. end;
  84626. procedure TCAN1_C1FIFOCON20.clearTXREQ; inline;
  84627. begin
  84628. pTDefRegMap(@Self)^.clr := $00000008;
  84629. end;
  84630. procedure TCAN1_C1FIFOCON20.setTXREQ(thebits : TBits_1); inline;
  84631. begin
  84632. if thebits = 0 then
  84633. pTDefRegMap(@Self)^.clr := $00000008
  84634. else
  84635. pTDefRegMap(@Self)^.&set := $00000008;
  84636. end;
  84637. function TCAN1_C1FIFOCON20.getTXREQ : TBits_1; inline;
  84638. begin
  84639. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  84640. end;
  84641. procedure TCAN1_C1FIFOCON20.setTXERR; inline;
  84642. begin
  84643. pTDefRegMap(@Self)^.&set := $00000010;
  84644. end;
  84645. procedure TCAN1_C1FIFOCON20.clearTXERR; inline;
  84646. begin
  84647. pTDefRegMap(@Self)^.clr := $00000010;
  84648. end;
  84649. procedure TCAN1_C1FIFOCON20.setTXERR(thebits : TBits_1); inline;
  84650. begin
  84651. if thebits = 0 then
  84652. pTDefRegMap(@Self)^.clr := $00000010
  84653. else
  84654. pTDefRegMap(@Self)^.&set := $00000010;
  84655. end;
  84656. function TCAN1_C1FIFOCON20.getTXERR : TBits_1; inline;
  84657. begin
  84658. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  84659. end;
  84660. procedure TCAN1_C1FIFOCON20.setTXLARB; inline;
  84661. begin
  84662. pTDefRegMap(@Self)^.&set := $00000020;
  84663. end;
  84664. procedure TCAN1_C1FIFOCON20.clearTXLARB; inline;
  84665. begin
  84666. pTDefRegMap(@Self)^.clr := $00000020;
  84667. end;
  84668. procedure TCAN1_C1FIFOCON20.setTXLARB(thebits : TBits_1); inline;
  84669. begin
  84670. if thebits = 0 then
  84671. pTDefRegMap(@Self)^.clr := $00000020
  84672. else
  84673. pTDefRegMap(@Self)^.&set := $00000020;
  84674. end;
  84675. function TCAN1_C1FIFOCON20.getTXLARB : TBits_1; inline;
  84676. begin
  84677. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  84678. end;
  84679. procedure TCAN1_C1FIFOCON20.setTXABAT; inline;
  84680. begin
  84681. pTDefRegMap(@Self)^.&set := $00000040;
  84682. end;
  84683. procedure TCAN1_C1FIFOCON20.clearTXABAT; inline;
  84684. begin
  84685. pTDefRegMap(@Self)^.clr := $00000040;
  84686. end;
  84687. procedure TCAN1_C1FIFOCON20.setTXABAT(thebits : TBits_1); inline;
  84688. begin
  84689. if thebits = 0 then
  84690. pTDefRegMap(@Self)^.clr := $00000040
  84691. else
  84692. pTDefRegMap(@Self)^.&set := $00000040;
  84693. end;
  84694. function TCAN1_C1FIFOCON20.getTXABAT : TBits_1; inline;
  84695. begin
  84696. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  84697. end;
  84698. procedure TCAN1_C1FIFOCON20.setTXEN; inline;
  84699. begin
  84700. pTDefRegMap(@Self)^.&set := $00000080;
  84701. end;
  84702. procedure TCAN1_C1FIFOCON20.clearTXEN; inline;
  84703. begin
  84704. pTDefRegMap(@Self)^.clr := $00000080;
  84705. end;
  84706. procedure TCAN1_C1FIFOCON20.setTXEN(thebits : TBits_1); inline;
  84707. begin
  84708. if thebits = 0 then
  84709. pTDefRegMap(@Self)^.clr := $00000080
  84710. else
  84711. pTDefRegMap(@Self)^.&set := $00000080;
  84712. end;
  84713. function TCAN1_C1FIFOCON20.getTXEN : TBits_1; inline;
  84714. begin
  84715. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  84716. end;
  84717. procedure TCAN1_C1FIFOCON20.setDONLY; inline;
  84718. begin
  84719. pTDefRegMap(@Self)^.&set := $00001000;
  84720. end;
  84721. procedure TCAN1_C1FIFOCON20.clearDONLY; inline;
  84722. begin
  84723. pTDefRegMap(@Self)^.clr := $00001000;
  84724. end;
  84725. procedure TCAN1_C1FIFOCON20.setDONLY(thebits : TBits_1); inline;
  84726. begin
  84727. if thebits = 0 then
  84728. pTDefRegMap(@Self)^.clr := $00001000
  84729. else
  84730. pTDefRegMap(@Self)^.&set := $00001000;
  84731. end;
  84732. function TCAN1_C1FIFOCON20.getDONLY : TBits_1; inline;
  84733. begin
  84734. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  84735. end;
  84736. procedure TCAN1_C1FIFOCON20.setUINC; inline;
  84737. begin
  84738. pTDefRegMap(@Self)^.&set := $00002000;
  84739. end;
  84740. procedure TCAN1_C1FIFOCON20.clearUINC; inline;
  84741. begin
  84742. pTDefRegMap(@Self)^.clr := $00002000;
  84743. end;
  84744. procedure TCAN1_C1FIFOCON20.setUINC(thebits : TBits_1); inline;
  84745. begin
  84746. if thebits = 0 then
  84747. pTDefRegMap(@Self)^.clr := $00002000
  84748. else
  84749. pTDefRegMap(@Self)^.&set := $00002000;
  84750. end;
  84751. function TCAN1_C1FIFOCON20.getUINC : TBits_1; inline;
  84752. begin
  84753. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  84754. end;
  84755. procedure TCAN1_C1FIFOCON20.setFRESET; inline;
  84756. begin
  84757. pTDefRegMap(@Self)^.&set := $00004000;
  84758. end;
  84759. procedure TCAN1_C1FIFOCON20.clearFRESET; inline;
  84760. begin
  84761. pTDefRegMap(@Self)^.clr := $00004000;
  84762. end;
  84763. procedure TCAN1_C1FIFOCON20.setFRESET(thebits : TBits_1); inline;
  84764. begin
  84765. if thebits = 0 then
  84766. pTDefRegMap(@Self)^.clr := $00004000
  84767. else
  84768. pTDefRegMap(@Self)^.&set := $00004000;
  84769. end;
  84770. function TCAN1_C1FIFOCON20.getFRESET : TBits_1; inline;
  84771. begin
  84772. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  84773. end;
  84774. procedure TCAN1_C1FIFOCON20.setFSIZE(thebits : TBits_5); inline;
  84775. begin
  84776. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  84777. end;
  84778. function TCAN1_C1FIFOCON20.getFSIZE : TBits_5; inline;
  84779. begin
  84780. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  84781. end;
  84782. procedure TCAN1_C1FIFOCON20.setw(thebits : TBits_32); inline;
  84783. begin
  84784. pTDefRegMap(@Self)^.val := thebits;
  84785. end;
  84786. function TCAN1_C1FIFOCON20.getw : TBits_32; inline;
  84787. begin
  84788. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84789. end;
  84790. procedure TCAN1_C1FIFOINT20.setRXNEMPTYIF; inline;
  84791. begin
  84792. pTDefRegMap(@Self)^.&set := $00000001;
  84793. end;
  84794. procedure TCAN1_C1FIFOINT20.clearRXNEMPTYIF; inline;
  84795. begin
  84796. pTDefRegMap(@Self)^.clr := $00000001;
  84797. end;
  84798. procedure TCAN1_C1FIFOINT20.setRXNEMPTYIF(thebits : TBits_1); inline;
  84799. begin
  84800. if thebits = 0 then
  84801. pTDefRegMap(@Self)^.clr := $00000001
  84802. else
  84803. pTDefRegMap(@Self)^.&set := $00000001;
  84804. end;
  84805. function TCAN1_C1FIFOINT20.getRXNEMPTYIF : TBits_1; inline;
  84806. begin
  84807. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  84808. end;
  84809. procedure TCAN1_C1FIFOINT20.setRXHALFIF; inline;
  84810. begin
  84811. pTDefRegMap(@Self)^.&set := $00000002;
  84812. end;
  84813. procedure TCAN1_C1FIFOINT20.clearRXHALFIF; inline;
  84814. begin
  84815. pTDefRegMap(@Self)^.clr := $00000002;
  84816. end;
  84817. procedure TCAN1_C1FIFOINT20.setRXHALFIF(thebits : TBits_1); inline;
  84818. begin
  84819. if thebits = 0 then
  84820. pTDefRegMap(@Self)^.clr := $00000002
  84821. else
  84822. pTDefRegMap(@Self)^.&set := $00000002;
  84823. end;
  84824. function TCAN1_C1FIFOINT20.getRXHALFIF : TBits_1; inline;
  84825. begin
  84826. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  84827. end;
  84828. procedure TCAN1_C1FIFOINT20.setRXFULLIF; inline;
  84829. begin
  84830. pTDefRegMap(@Self)^.&set := $00000004;
  84831. end;
  84832. procedure TCAN1_C1FIFOINT20.clearRXFULLIF; inline;
  84833. begin
  84834. pTDefRegMap(@Self)^.clr := $00000004;
  84835. end;
  84836. procedure TCAN1_C1FIFOINT20.setRXFULLIF(thebits : TBits_1); inline;
  84837. begin
  84838. if thebits = 0 then
  84839. pTDefRegMap(@Self)^.clr := $00000004
  84840. else
  84841. pTDefRegMap(@Self)^.&set := $00000004;
  84842. end;
  84843. function TCAN1_C1FIFOINT20.getRXFULLIF : TBits_1; inline;
  84844. begin
  84845. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  84846. end;
  84847. procedure TCAN1_C1FIFOINT20.setRXOVFLIF; inline;
  84848. begin
  84849. pTDefRegMap(@Self)^.&set := $00000008;
  84850. end;
  84851. procedure TCAN1_C1FIFOINT20.clearRXOVFLIF; inline;
  84852. begin
  84853. pTDefRegMap(@Self)^.clr := $00000008;
  84854. end;
  84855. procedure TCAN1_C1FIFOINT20.setRXOVFLIF(thebits : TBits_1); inline;
  84856. begin
  84857. if thebits = 0 then
  84858. pTDefRegMap(@Self)^.clr := $00000008
  84859. else
  84860. pTDefRegMap(@Self)^.&set := $00000008;
  84861. end;
  84862. function TCAN1_C1FIFOINT20.getRXOVFLIF : TBits_1; inline;
  84863. begin
  84864. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  84865. end;
  84866. procedure TCAN1_C1FIFOINT20.setTXEMPTYIF; inline;
  84867. begin
  84868. pTDefRegMap(@Self)^.&set := $00000100;
  84869. end;
  84870. procedure TCAN1_C1FIFOINT20.clearTXEMPTYIF; inline;
  84871. begin
  84872. pTDefRegMap(@Self)^.clr := $00000100;
  84873. end;
  84874. procedure TCAN1_C1FIFOINT20.setTXEMPTYIF(thebits : TBits_1); inline;
  84875. begin
  84876. if thebits = 0 then
  84877. pTDefRegMap(@Self)^.clr := $00000100
  84878. else
  84879. pTDefRegMap(@Self)^.&set := $00000100;
  84880. end;
  84881. function TCAN1_C1FIFOINT20.getTXEMPTYIF : TBits_1; inline;
  84882. begin
  84883. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  84884. end;
  84885. procedure TCAN1_C1FIFOINT20.setTXHALFIF; inline;
  84886. begin
  84887. pTDefRegMap(@Self)^.&set := $00000200;
  84888. end;
  84889. procedure TCAN1_C1FIFOINT20.clearTXHALFIF; inline;
  84890. begin
  84891. pTDefRegMap(@Self)^.clr := $00000200;
  84892. end;
  84893. procedure TCAN1_C1FIFOINT20.setTXHALFIF(thebits : TBits_1); inline;
  84894. begin
  84895. if thebits = 0 then
  84896. pTDefRegMap(@Self)^.clr := $00000200
  84897. else
  84898. pTDefRegMap(@Self)^.&set := $00000200;
  84899. end;
  84900. function TCAN1_C1FIFOINT20.getTXHALFIF : TBits_1; inline;
  84901. begin
  84902. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  84903. end;
  84904. procedure TCAN1_C1FIFOINT20.setTXNFULLIF; inline;
  84905. begin
  84906. pTDefRegMap(@Self)^.&set := $00000400;
  84907. end;
  84908. procedure TCAN1_C1FIFOINT20.clearTXNFULLIF; inline;
  84909. begin
  84910. pTDefRegMap(@Self)^.clr := $00000400;
  84911. end;
  84912. procedure TCAN1_C1FIFOINT20.setTXNFULLIF(thebits : TBits_1); inline;
  84913. begin
  84914. if thebits = 0 then
  84915. pTDefRegMap(@Self)^.clr := $00000400
  84916. else
  84917. pTDefRegMap(@Self)^.&set := $00000400;
  84918. end;
  84919. function TCAN1_C1FIFOINT20.getTXNFULLIF : TBits_1; inline;
  84920. begin
  84921. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  84922. end;
  84923. procedure TCAN1_C1FIFOINT20.setRXNEMPTYIE; inline;
  84924. begin
  84925. pTDefRegMap(@Self)^.&set := $00010000;
  84926. end;
  84927. procedure TCAN1_C1FIFOINT20.clearRXNEMPTYIE; inline;
  84928. begin
  84929. pTDefRegMap(@Self)^.clr := $00010000;
  84930. end;
  84931. procedure TCAN1_C1FIFOINT20.setRXNEMPTYIE(thebits : TBits_1); inline;
  84932. begin
  84933. if thebits = 0 then
  84934. pTDefRegMap(@Self)^.clr := $00010000
  84935. else
  84936. pTDefRegMap(@Self)^.&set := $00010000;
  84937. end;
  84938. function TCAN1_C1FIFOINT20.getRXNEMPTYIE : TBits_1; inline;
  84939. begin
  84940. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  84941. end;
  84942. procedure TCAN1_C1FIFOINT20.setRXHALFIE; inline;
  84943. begin
  84944. pTDefRegMap(@Self)^.&set := $00020000;
  84945. end;
  84946. procedure TCAN1_C1FIFOINT20.clearRXHALFIE; inline;
  84947. begin
  84948. pTDefRegMap(@Self)^.clr := $00020000;
  84949. end;
  84950. procedure TCAN1_C1FIFOINT20.setRXHALFIE(thebits : TBits_1); inline;
  84951. begin
  84952. if thebits = 0 then
  84953. pTDefRegMap(@Self)^.clr := $00020000
  84954. else
  84955. pTDefRegMap(@Self)^.&set := $00020000;
  84956. end;
  84957. function TCAN1_C1FIFOINT20.getRXHALFIE : TBits_1; inline;
  84958. begin
  84959. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  84960. end;
  84961. procedure TCAN1_C1FIFOINT20.setRXFULLIE; inline;
  84962. begin
  84963. pTDefRegMap(@Self)^.&set := $00040000;
  84964. end;
  84965. procedure TCAN1_C1FIFOINT20.clearRXFULLIE; inline;
  84966. begin
  84967. pTDefRegMap(@Self)^.clr := $00040000;
  84968. end;
  84969. procedure TCAN1_C1FIFOINT20.setRXFULLIE(thebits : TBits_1); inline;
  84970. begin
  84971. if thebits = 0 then
  84972. pTDefRegMap(@Self)^.clr := $00040000
  84973. else
  84974. pTDefRegMap(@Self)^.&set := $00040000;
  84975. end;
  84976. function TCAN1_C1FIFOINT20.getRXFULLIE : TBits_1; inline;
  84977. begin
  84978. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  84979. end;
  84980. procedure TCAN1_C1FIFOINT20.setRXOVFLIE; inline;
  84981. begin
  84982. pTDefRegMap(@Self)^.&set := $00080000;
  84983. end;
  84984. procedure TCAN1_C1FIFOINT20.clearRXOVFLIE; inline;
  84985. begin
  84986. pTDefRegMap(@Self)^.clr := $00080000;
  84987. end;
  84988. procedure TCAN1_C1FIFOINT20.setRXOVFLIE(thebits : TBits_1); inline;
  84989. begin
  84990. if thebits = 0 then
  84991. pTDefRegMap(@Self)^.clr := $00080000
  84992. else
  84993. pTDefRegMap(@Self)^.&set := $00080000;
  84994. end;
  84995. function TCAN1_C1FIFOINT20.getRXOVFLIE : TBits_1; inline;
  84996. begin
  84997. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  84998. end;
  84999. procedure TCAN1_C1FIFOINT20.setTXEMPTYIE; inline;
  85000. begin
  85001. pTDefRegMap(@Self)^.&set := $01000000;
  85002. end;
  85003. procedure TCAN1_C1FIFOINT20.clearTXEMPTYIE; inline;
  85004. begin
  85005. pTDefRegMap(@Self)^.clr := $01000000;
  85006. end;
  85007. procedure TCAN1_C1FIFOINT20.setTXEMPTYIE(thebits : TBits_1); inline;
  85008. begin
  85009. if thebits = 0 then
  85010. pTDefRegMap(@Self)^.clr := $01000000
  85011. else
  85012. pTDefRegMap(@Self)^.&set := $01000000;
  85013. end;
  85014. function TCAN1_C1FIFOINT20.getTXEMPTYIE : TBits_1; inline;
  85015. begin
  85016. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  85017. end;
  85018. procedure TCAN1_C1FIFOINT20.setTXHALFIE; inline;
  85019. begin
  85020. pTDefRegMap(@Self)^.&set := $02000000;
  85021. end;
  85022. procedure TCAN1_C1FIFOINT20.clearTXHALFIE; inline;
  85023. begin
  85024. pTDefRegMap(@Self)^.clr := $02000000;
  85025. end;
  85026. procedure TCAN1_C1FIFOINT20.setTXHALFIE(thebits : TBits_1); inline;
  85027. begin
  85028. if thebits = 0 then
  85029. pTDefRegMap(@Self)^.clr := $02000000
  85030. else
  85031. pTDefRegMap(@Self)^.&set := $02000000;
  85032. end;
  85033. function TCAN1_C1FIFOINT20.getTXHALFIE : TBits_1; inline;
  85034. begin
  85035. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  85036. end;
  85037. procedure TCAN1_C1FIFOINT20.setTXNFULLIE; inline;
  85038. begin
  85039. pTDefRegMap(@Self)^.&set := $04000000;
  85040. end;
  85041. procedure TCAN1_C1FIFOINT20.clearTXNFULLIE; inline;
  85042. begin
  85043. pTDefRegMap(@Self)^.clr := $04000000;
  85044. end;
  85045. procedure TCAN1_C1FIFOINT20.setTXNFULLIE(thebits : TBits_1); inline;
  85046. begin
  85047. if thebits = 0 then
  85048. pTDefRegMap(@Self)^.clr := $04000000
  85049. else
  85050. pTDefRegMap(@Self)^.&set := $04000000;
  85051. end;
  85052. function TCAN1_C1FIFOINT20.getTXNFULLIE : TBits_1; inline;
  85053. begin
  85054. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  85055. end;
  85056. procedure TCAN1_C1FIFOINT20.setw(thebits : TBits_32); inline;
  85057. begin
  85058. pTDefRegMap(@Self)^.val := thebits;
  85059. end;
  85060. function TCAN1_C1FIFOINT20.getw : TBits_32; inline;
  85061. begin
  85062. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85063. end;
  85064. procedure TCAN1_C1FIFOCI20.setCFIFOCI(thebits : TBits_5); inline;
  85065. begin
  85066. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  85067. end;
  85068. function TCAN1_C1FIFOCI20.getCFIFOCI : TBits_5; inline;
  85069. begin
  85070. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  85071. end;
  85072. procedure TCAN1_C1FIFOCI20.setw(thebits : TBits_32); inline;
  85073. begin
  85074. pTDefRegMap(@Self)^.val := thebits;
  85075. end;
  85076. function TCAN1_C1FIFOCI20.getw : TBits_32; inline;
  85077. begin
  85078. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85079. end;
  85080. procedure TCAN1_C1FIFOCON21.setTXPRI(thebits : TBits_2); inline;
  85081. begin
  85082. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  85083. end;
  85084. function TCAN1_C1FIFOCON21.getTXPRI : TBits_2; inline;
  85085. begin
  85086. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  85087. end;
  85088. procedure TCAN1_C1FIFOCON21.setRTREN; inline;
  85089. begin
  85090. pTDefRegMap(@Self)^.&set := $00000004;
  85091. end;
  85092. procedure TCAN1_C1FIFOCON21.clearRTREN; inline;
  85093. begin
  85094. pTDefRegMap(@Self)^.clr := $00000004;
  85095. end;
  85096. procedure TCAN1_C1FIFOCON21.setRTREN(thebits : TBits_1); inline;
  85097. begin
  85098. if thebits = 0 then
  85099. pTDefRegMap(@Self)^.clr := $00000004
  85100. else
  85101. pTDefRegMap(@Self)^.&set := $00000004;
  85102. end;
  85103. function TCAN1_C1FIFOCON21.getRTREN : TBits_1; inline;
  85104. begin
  85105. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  85106. end;
  85107. procedure TCAN1_C1FIFOCON21.setTXREQ; inline;
  85108. begin
  85109. pTDefRegMap(@Self)^.&set := $00000008;
  85110. end;
  85111. procedure TCAN1_C1FIFOCON21.clearTXREQ; inline;
  85112. begin
  85113. pTDefRegMap(@Self)^.clr := $00000008;
  85114. end;
  85115. procedure TCAN1_C1FIFOCON21.setTXREQ(thebits : TBits_1); inline;
  85116. begin
  85117. if thebits = 0 then
  85118. pTDefRegMap(@Self)^.clr := $00000008
  85119. else
  85120. pTDefRegMap(@Self)^.&set := $00000008;
  85121. end;
  85122. function TCAN1_C1FIFOCON21.getTXREQ : TBits_1; inline;
  85123. begin
  85124. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  85125. end;
  85126. procedure TCAN1_C1FIFOCON21.setTXERR; inline;
  85127. begin
  85128. pTDefRegMap(@Self)^.&set := $00000010;
  85129. end;
  85130. procedure TCAN1_C1FIFOCON21.clearTXERR; inline;
  85131. begin
  85132. pTDefRegMap(@Self)^.clr := $00000010;
  85133. end;
  85134. procedure TCAN1_C1FIFOCON21.setTXERR(thebits : TBits_1); inline;
  85135. begin
  85136. if thebits = 0 then
  85137. pTDefRegMap(@Self)^.clr := $00000010
  85138. else
  85139. pTDefRegMap(@Self)^.&set := $00000010;
  85140. end;
  85141. function TCAN1_C1FIFOCON21.getTXERR : TBits_1; inline;
  85142. begin
  85143. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  85144. end;
  85145. procedure TCAN1_C1FIFOCON21.setTXLARB; inline;
  85146. begin
  85147. pTDefRegMap(@Self)^.&set := $00000020;
  85148. end;
  85149. procedure TCAN1_C1FIFOCON21.clearTXLARB; inline;
  85150. begin
  85151. pTDefRegMap(@Self)^.clr := $00000020;
  85152. end;
  85153. procedure TCAN1_C1FIFOCON21.setTXLARB(thebits : TBits_1); inline;
  85154. begin
  85155. if thebits = 0 then
  85156. pTDefRegMap(@Self)^.clr := $00000020
  85157. else
  85158. pTDefRegMap(@Self)^.&set := $00000020;
  85159. end;
  85160. function TCAN1_C1FIFOCON21.getTXLARB : TBits_1; inline;
  85161. begin
  85162. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  85163. end;
  85164. procedure TCAN1_C1FIFOCON21.setTXABAT; inline;
  85165. begin
  85166. pTDefRegMap(@Self)^.&set := $00000040;
  85167. end;
  85168. procedure TCAN1_C1FIFOCON21.clearTXABAT; inline;
  85169. begin
  85170. pTDefRegMap(@Self)^.clr := $00000040;
  85171. end;
  85172. procedure TCAN1_C1FIFOCON21.setTXABAT(thebits : TBits_1); inline;
  85173. begin
  85174. if thebits = 0 then
  85175. pTDefRegMap(@Self)^.clr := $00000040
  85176. else
  85177. pTDefRegMap(@Self)^.&set := $00000040;
  85178. end;
  85179. function TCAN1_C1FIFOCON21.getTXABAT : TBits_1; inline;
  85180. begin
  85181. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  85182. end;
  85183. procedure TCAN1_C1FIFOCON21.setTXEN; inline;
  85184. begin
  85185. pTDefRegMap(@Self)^.&set := $00000080;
  85186. end;
  85187. procedure TCAN1_C1FIFOCON21.clearTXEN; inline;
  85188. begin
  85189. pTDefRegMap(@Self)^.clr := $00000080;
  85190. end;
  85191. procedure TCAN1_C1FIFOCON21.setTXEN(thebits : TBits_1); inline;
  85192. begin
  85193. if thebits = 0 then
  85194. pTDefRegMap(@Self)^.clr := $00000080
  85195. else
  85196. pTDefRegMap(@Self)^.&set := $00000080;
  85197. end;
  85198. function TCAN1_C1FIFOCON21.getTXEN : TBits_1; inline;
  85199. begin
  85200. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  85201. end;
  85202. procedure TCAN1_C1FIFOCON21.setDONLY; inline;
  85203. begin
  85204. pTDefRegMap(@Self)^.&set := $00001000;
  85205. end;
  85206. procedure TCAN1_C1FIFOCON21.clearDONLY; inline;
  85207. begin
  85208. pTDefRegMap(@Self)^.clr := $00001000;
  85209. end;
  85210. procedure TCAN1_C1FIFOCON21.setDONLY(thebits : TBits_1); inline;
  85211. begin
  85212. if thebits = 0 then
  85213. pTDefRegMap(@Self)^.clr := $00001000
  85214. else
  85215. pTDefRegMap(@Self)^.&set := $00001000;
  85216. end;
  85217. function TCAN1_C1FIFOCON21.getDONLY : TBits_1; inline;
  85218. begin
  85219. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  85220. end;
  85221. procedure TCAN1_C1FIFOCON21.setUINC; inline;
  85222. begin
  85223. pTDefRegMap(@Self)^.&set := $00002000;
  85224. end;
  85225. procedure TCAN1_C1FIFOCON21.clearUINC; inline;
  85226. begin
  85227. pTDefRegMap(@Self)^.clr := $00002000;
  85228. end;
  85229. procedure TCAN1_C1FIFOCON21.setUINC(thebits : TBits_1); inline;
  85230. begin
  85231. if thebits = 0 then
  85232. pTDefRegMap(@Self)^.clr := $00002000
  85233. else
  85234. pTDefRegMap(@Self)^.&set := $00002000;
  85235. end;
  85236. function TCAN1_C1FIFOCON21.getUINC : TBits_1; inline;
  85237. begin
  85238. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  85239. end;
  85240. procedure TCAN1_C1FIFOCON21.setFRESET; inline;
  85241. begin
  85242. pTDefRegMap(@Self)^.&set := $00004000;
  85243. end;
  85244. procedure TCAN1_C1FIFOCON21.clearFRESET; inline;
  85245. begin
  85246. pTDefRegMap(@Self)^.clr := $00004000;
  85247. end;
  85248. procedure TCAN1_C1FIFOCON21.setFRESET(thebits : TBits_1); inline;
  85249. begin
  85250. if thebits = 0 then
  85251. pTDefRegMap(@Self)^.clr := $00004000
  85252. else
  85253. pTDefRegMap(@Self)^.&set := $00004000;
  85254. end;
  85255. function TCAN1_C1FIFOCON21.getFRESET : TBits_1; inline;
  85256. begin
  85257. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  85258. end;
  85259. procedure TCAN1_C1FIFOCON21.setFSIZE(thebits : TBits_5); inline;
  85260. begin
  85261. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  85262. end;
  85263. function TCAN1_C1FIFOCON21.getFSIZE : TBits_5; inline;
  85264. begin
  85265. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  85266. end;
  85267. procedure TCAN1_C1FIFOCON21.setw(thebits : TBits_32); inline;
  85268. begin
  85269. pTDefRegMap(@Self)^.val := thebits;
  85270. end;
  85271. function TCAN1_C1FIFOCON21.getw : TBits_32; inline;
  85272. begin
  85273. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85274. end;
  85275. procedure TCAN1_C1FIFOINT21.setRXNEMPTYIF; inline;
  85276. begin
  85277. pTDefRegMap(@Self)^.&set := $00000001;
  85278. end;
  85279. procedure TCAN1_C1FIFOINT21.clearRXNEMPTYIF; inline;
  85280. begin
  85281. pTDefRegMap(@Self)^.clr := $00000001;
  85282. end;
  85283. procedure TCAN1_C1FIFOINT21.setRXNEMPTYIF(thebits : TBits_1); inline;
  85284. begin
  85285. if thebits = 0 then
  85286. pTDefRegMap(@Self)^.clr := $00000001
  85287. else
  85288. pTDefRegMap(@Self)^.&set := $00000001;
  85289. end;
  85290. function TCAN1_C1FIFOINT21.getRXNEMPTYIF : TBits_1; inline;
  85291. begin
  85292. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  85293. end;
  85294. procedure TCAN1_C1FIFOINT21.setRXHALFIF; inline;
  85295. begin
  85296. pTDefRegMap(@Self)^.&set := $00000002;
  85297. end;
  85298. procedure TCAN1_C1FIFOINT21.clearRXHALFIF; inline;
  85299. begin
  85300. pTDefRegMap(@Self)^.clr := $00000002;
  85301. end;
  85302. procedure TCAN1_C1FIFOINT21.setRXHALFIF(thebits : TBits_1); inline;
  85303. begin
  85304. if thebits = 0 then
  85305. pTDefRegMap(@Self)^.clr := $00000002
  85306. else
  85307. pTDefRegMap(@Self)^.&set := $00000002;
  85308. end;
  85309. function TCAN1_C1FIFOINT21.getRXHALFIF : TBits_1; inline;
  85310. begin
  85311. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  85312. end;
  85313. procedure TCAN1_C1FIFOINT21.setRXFULLIF; inline;
  85314. begin
  85315. pTDefRegMap(@Self)^.&set := $00000004;
  85316. end;
  85317. procedure TCAN1_C1FIFOINT21.clearRXFULLIF; inline;
  85318. begin
  85319. pTDefRegMap(@Self)^.clr := $00000004;
  85320. end;
  85321. procedure TCAN1_C1FIFOINT21.setRXFULLIF(thebits : TBits_1); inline;
  85322. begin
  85323. if thebits = 0 then
  85324. pTDefRegMap(@Self)^.clr := $00000004
  85325. else
  85326. pTDefRegMap(@Self)^.&set := $00000004;
  85327. end;
  85328. function TCAN1_C1FIFOINT21.getRXFULLIF : TBits_1; inline;
  85329. begin
  85330. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  85331. end;
  85332. procedure TCAN1_C1FIFOINT21.setRXOVFLIF; inline;
  85333. begin
  85334. pTDefRegMap(@Self)^.&set := $00000008;
  85335. end;
  85336. procedure TCAN1_C1FIFOINT21.clearRXOVFLIF; inline;
  85337. begin
  85338. pTDefRegMap(@Self)^.clr := $00000008;
  85339. end;
  85340. procedure TCAN1_C1FIFOINT21.setRXOVFLIF(thebits : TBits_1); inline;
  85341. begin
  85342. if thebits = 0 then
  85343. pTDefRegMap(@Self)^.clr := $00000008
  85344. else
  85345. pTDefRegMap(@Self)^.&set := $00000008;
  85346. end;
  85347. function TCAN1_C1FIFOINT21.getRXOVFLIF : TBits_1; inline;
  85348. begin
  85349. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  85350. end;
  85351. procedure TCAN1_C1FIFOINT21.setTXEMPTYIF; inline;
  85352. begin
  85353. pTDefRegMap(@Self)^.&set := $00000100;
  85354. end;
  85355. procedure TCAN1_C1FIFOINT21.clearTXEMPTYIF; inline;
  85356. begin
  85357. pTDefRegMap(@Self)^.clr := $00000100;
  85358. end;
  85359. procedure TCAN1_C1FIFOINT21.setTXEMPTYIF(thebits : TBits_1); inline;
  85360. begin
  85361. if thebits = 0 then
  85362. pTDefRegMap(@Self)^.clr := $00000100
  85363. else
  85364. pTDefRegMap(@Self)^.&set := $00000100;
  85365. end;
  85366. function TCAN1_C1FIFOINT21.getTXEMPTYIF : TBits_1; inline;
  85367. begin
  85368. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  85369. end;
  85370. procedure TCAN1_C1FIFOINT21.setTXHALFIF; inline;
  85371. begin
  85372. pTDefRegMap(@Self)^.&set := $00000200;
  85373. end;
  85374. procedure TCAN1_C1FIFOINT21.clearTXHALFIF; inline;
  85375. begin
  85376. pTDefRegMap(@Self)^.clr := $00000200;
  85377. end;
  85378. procedure TCAN1_C1FIFOINT21.setTXHALFIF(thebits : TBits_1); inline;
  85379. begin
  85380. if thebits = 0 then
  85381. pTDefRegMap(@Self)^.clr := $00000200
  85382. else
  85383. pTDefRegMap(@Self)^.&set := $00000200;
  85384. end;
  85385. function TCAN1_C1FIFOINT21.getTXHALFIF : TBits_1; inline;
  85386. begin
  85387. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  85388. end;
  85389. procedure TCAN1_C1FIFOINT21.setTXNFULLIF; inline;
  85390. begin
  85391. pTDefRegMap(@Self)^.&set := $00000400;
  85392. end;
  85393. procedure TCAN1_C1FIFOINT21.clearTXNFULLIF; inline;
  85394. begin
  85395. pTDefRegMap(@Self)^.clr := $00000400;
  85396. end;
  85397. procedure TCAN1_C1FIFOINT21.setTXNFULLIF(thebits : TBits_1); inline;
  85398. begin
  85399. if thebits = 0 then
  85400. pTDefRegMap(@Self)^.clr := $00000400
  85401. else
  85402. pTDefRegMap(@Self)^.&set := $00000400;
  85403. end;
  85404. function TCAN1_C1FIFOINT21.getTXNFULLIF : TBits_1; inline;
  85405. begin
  85406. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  85407. end;
  85408. procedure TCAN1_C1FIFOINT21.setRXNEMPTYIE; inline;
  85409. begin
  85410. pTDefRegMap(@Self)^.&set := $00010000;
  85411. end;
  85412. procedure TCAN1_C1FIFOINT21.clearRXNEMPTYIE; inline;
  85413. begin
  85414. pTDefRegMap(@Self)^.clr := $00010000;
  85415. end;
  85416. procedure TCAN1_C1FIFOINT21.setRXNEMPTYIE(thebits : TBits_1); inline;
  85417. begin
  85418. if thebits = 0 then
  85419. pTDefRegMap(@Self)^.clr := $00010000
  85420. else
  85421. pTDefRegMap(@Self)^.&set := $00010000;
  85422. end;
  85423. function TCAN1_C1FIFOINT21.getRXNEMPTYIE : TBits_1; inline;
  85424. begin
  85425. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  85426. end;
  85427. procedure TCAN1_C1FIFOINT21.setRXHALFIE; inline;
  85428. begin
  85429. pTDefRegMap(@Self)^.&set := $00020000;
  85430. end;
  85431. procedure TCAN1_C1FIFOINT21.clearRXHALFIE; inline;
  85432. begin
  85433. pTDefRegMap(@Self)^.clr := $00020000;
  85434. end;
  85435. procedure TCAN1_C1FIFOINT21.setRXHALFIE(thebits : TBits_1); inline;
  85436. begin
  85437. if thebits = 0 then
  85438. pTDefRegMap(@Self)^.clr := $00020000
  85439. else
  85440. pTDefRegMap(@Self)^.&set := $00020000;
  85441. end;
  85442. function TCAN1_C1FIFOINT21.getRXHALFIE : TBits_1; inline;
  85443. begin
  85444. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  85445. end;
  85446. procedure TCAN1_C1FIFOINT21.setRXFULLIE; inline;
  85447. begin
  85448. pTDefRegMap(@Self)^.&set := $00040000;
  85449. end;
  85450. procedure TCAN1_C1FIFOINT21.clearRXFULLIE; inline;
  85451. begin
  85452. pTDefRegMap(@Self)^.clr := $00040000;
  85453. end;
  85454. procedure TCAN1_C1FIFOINT21.setRXFULLIE(thebits : TBits_1); inline;
  85455. begin
  85456. if thebits = 0 then
  85457. pTDefRegMap(@Self)^.clr := $00040000
  85458. else
  85459. pTDefRegMap(@Self)^.&set := $00040000;
  85460. end;
  85461. function TCAN1_C1FIFOINT21.getRXFULLIE : TBits_1; inline;
  85462. begin
  85463. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  85464. end;
  85465. procedure TCAN1_C1FIFOINT21.setRXOVFLIE; inline;
  85466. begin
  85467. pTDefRegMap(@Self)^.&set := $00080000;
  85468. end;
  85469. procedure TCAN1_C1FIFOINT21.clearRXOVFLIE; inline;
  85470. begin
  85471. pTDefRegMap(@Self)^.clr := $00080000;
  85472. end;
  85473. procedure TCAN1_C1FIFOINT21.setRXOVFLIE(thebits : TBits_1); inline;
  85474. begin
  85475. if thebits = 0 then
  85476. pTDefRegMap(@Self)^.clr := $00080000
  85477. else
  85478. pTDefRegMap(@Self)^.&set := $00080000;
  85479. end;
  85480. function TCAN1_C1FIFOINT21.getRXOVFLIE : TBits_1; inline;
  85481. begin
  85482. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  85483. end;
  85484. procedure TCAN1_C1FIFOINT21.setTXEMPTYIE; inline;
  85485. begin
  85486. pTDefRegMap(@Self)^.&set := $01000000;
  85487. end;
  85488. procedure TCAN1_C1FIFOINT21.clearTXEMPTYIE; inline;
  85489. begin
  85490. pTDefRegMap(@Self)^.clr := $01000000;
  85491. end;
  85492. procedure TCAN1_C1FIFOINT21.setTXEMPTYIE(thebits : TBits_1); inline;
  85493. begin
  85494. if thebits = 0 then
  85495. pTDefRegMap(@Self)^.clr := $01000000
  85496. else
  85497. pTDefRegMap(@Self)^.&set := $01000000;
  85498. end;
  85499. function TCAN1_C1FIFOINT21.getTXEMPTYIE : TBits_1; inline;
  85500. begin
  85501. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  85502. end;
  85503. procedure TCAN1_C1FIFOINT21.setTXHALFIE; inline;
  85504. begin
  85505. pTDefRegMap(@Self)^.&set := $02000000;
  85506. end;
  85507. procedure TCAN1_C1FIFOINT21.clearTXHALFIE; inline;
  85508. begin
  85509. pTDefRegMap(@Self)^.clr := $02000000;
  85510. end;
  85511. procedure TCAN1_C1FIFOINT21.setTXHALFIE(thebits : TBits_1); inline;
  85512. begin
  85513. if thebits = 0 then
  85514. pTDefRegMap(@Self)^.clr := $02000000
  85515. else
  85516. pTDefRegMap(@Self)^.&set := $02000000;
  85517. end;
  85518. function TCAN1_C1FIFOINT21.getTXHALFIE : TBits_1; inline;
  85519. begin
  85520. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  85521. end;
  85522. procedure TCAN1_C1FIFOINT21.setTXNFULLIE; inline;
  85523. begin
  85524. pTDefRegMap(@Self)^.&set := $04000000;
  85525. end;
  85526. procedure TCAN1_C1FIFOINT21.clearTXNFULLIE; inline;
  85527. begin
  85528. pTDefRegMap(@Self)^.clr := $04000000;
  85529. end;
  85530. procedure TCAN1_C1FIFOINT21.setTXNFULLIE(thebits : TBits_1); inline;
  85531. begin
  85532. if thebits = 0 then
  85533. pTDefRegMap(@Self)^.clr := $04000000
  85534. else
  85535. pTDefRegMap(@Self)^.&set := $04000000;
  85536. end;
  85537. function TCAN1_C1FIFOINT21.getTXNFULLIE : TBits_1; inline;
  85538. begin
  85539. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  85540. end;
  85541. procedure TCAN1_C1FIFOINT21.setw(thebits : TBits_32); inline;
  85542. begin
  85543. pTDefRegMap(@Self)^.val := thebits;
  85544. end;
  85545. function TCAN1_C1FIFOINT21.getw : TBits_32; inline;
  85546. begin
  85547. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85548. end;
  85549. procedure TCAN1_C1FIFOCI21.setCFIFOCI(thebits : TBits_5); inline;
  85550. begin
  85551. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  85552. end;
  85553. function TCAN1_C1FIFOCI21.getCFIFOCI : TBits_5; inline;
  85554. begin
  85555. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  85556. end;
  85557. procedure TCAN1_C1FIFOCI21.setw(thebits : TBits_32); inline;
  85558. begin
  85559. pTDefRegMap(@Self)^.val := thebits;
  85560. end;
  85561. function TCAN1_C1FIFOCI21.getw : TBits_32; inline;
  85562. begin
  85563. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85564. end;
  85565. procedure TCAN1_C1FIFOCON22.setTXPRI(thebits : TBits_2); inline;
  85566. begin
  85567. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  85568. end;
  85569. function TCAN1_C1FIFOCON22.getTXPRI : TBits_2; inline;
  85570. begin
  85571. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  85572. end;
  85573. procedure TCAN1_C1FIFOCON22.setRTREN; inline;
  85574. begin
  85575. pTDefRegMap(@Self)^.&set := $00000004;
  85576. end;
  85577. procedure TCAN1_C1FIFOCON22.clearRTREN; inline;
  85578. begin
  85579. pTDefRegMap(@Self)^.clr := $00000004;
  85580. end;
  85581. procedure TCAN1_C1FIFOCON22.setRTREN(thebits : TBits_1); inline;
  85582. begin
  85583. if thebits = 0 then
  85584. pTDefRegMap(@Self)^.clr := $00000004
  85585. else
  85586. pTDefRegMap(@Self)^.&set := $00000004;
  85587. end;
  85588. function TCAN1_C1FIFOCON22.getRTREN : TBits_1; inline;
  85589. begin
  85590. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  85591. end;
  85592. procedure TCAN1_C1FIFOCON22.setTXREQ; inline;
  85593. begin
  85594. pTDefRegMap(@Self)^.&set := $00000008;
  85595. end;
  85596. procedure TCAN1_C1FIFOCON22.clearTXREQ; inline;
  85597. begin
  85598. pTDefRegMap(@Self)^.clr := $00000008;
  85599. end;
  85600. procedure TCAN1_C1FIFOCON22.setTXREQ(thebits : TBits_1); inline;
  85601. begin
  85602. if thebits = 0 then
  85603. pTDefRegMap(@Self)^.clr := $00000008
  85604. else
  85605. pTDefRegMap(@Self)^.&set := $00000008;
  85606. end;
  85607. function TCAN1_C1FIFOCON22.getTXREQ : TBits_1; inline;
  85608. begin
  85609. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  85610. end;
  85611. procedure TCAN1_C1FIFOCON22.setTXERR; inline;
  85612. begin
  85613. pTDefRegMap(@Self)^.&set := $00000010;
  85614. end;
  85615. procedure TCAN1_C1FIFOCON22.clearTXERR; inline;
  85616. begin
  85617. pTDefRegMap(@Self)^.clr := $00000010;
  85618. end;
  85619. procedure TCAN1_C1FIFOCON22.setTXERR(thebits : TBits_1); inline;
  85620. begin
  85621. if thebits = 0 then
  85622. pTDefRegMap(@Self)^.clr := $00000010
  85623. else
  85624. pTDefRegMap(@Self)^.&set := $00000010;
  85625. end;
  85626. function TCAN1_C1FIFOCON22.getTXERR : TBits_1; inline;
  85627. begin
  85628. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  85629. end;
  85630. procedure TCAN1_C1FIFOCON22.setTXLARB; inline;
  85631. begin
  85632. pTDefRegMap(@Self)^.&set := $00000020;
  85633. end;
  85634. procedure TCAN1_C1FIFOCON22.clearTXLARB; inline;
  85635. begin
  85636. pTDefRegMap(@Self)^.clr := $00000020;
  85637. end;
  85638. procedure TCAN1_C1FIFOCON22.setTXLARB(thebits : TBits_1); inline;
  85639. begin
  85640. if thebits = 0 then
  85641. pTDefRegMap(@Self)^.clr := $00000020
  85642. else
  85643. pTDefRegMap(@Self)^.&set := $00000020;
  85644. end;
  85645. function TCAN1_C1FIFOCON22.getTXLARB : TBits_1; inline;
  85646. begin
  85647. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  85648. end;
  85649. procedure TCAN1_C1FIFOCON22.setTXABAT; inline;
  85650. begin
  85651. pTDefRegMap(@Self)^.&set := $00000040;
  85652. end;
  85653. procedure TCAN1_C1FIFOCON22.clearTXABAT; inline;
  85654. begin
  85655. pTDefRegMap(@Self)^.clr := $00000040;
  85656. end;
  85657. procedure TCAN1_C1FIFOCON22.setTXABAT(thebits : TBits_1); inline;
  85658. begin
  85659. if thebits = 0 then
  85660. pTDefRegMap(@Self)^.clr := $00000040
  85661. else
  85662. pTDefRegMap(@Self)^.&set := $00000040;
  85663. end;
  85664. function TCAN1_C1FIFOCON22.getTXABAT : TBits_1; inline;
  85665. begin
  85666. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  85667. end;
  85668. procedure TCAN1_C1FIFOCON22.setTXEN; inline;
  85669. begin
  85670. pTDefRegMap(@Self)^.&set := $00000080;
  85671. end;
  85672. procedure TCAN1_C1FIFOCON22.clearTXEN; inline;
  85673. begin
  85674. pTDefRegMap(@Self)^.clr := $00000080;
  85675. end;
  85676. procedure TCAN1_C1FIFOCON22.setTXEN(thebits : TBits_1); inline;
  85677. begin
  85678. if thebits = 0 then
  85679. pTDefRegMap(@Self)^.clr := $00000080
  85680. else
  85681. pTDefRegMap(@Self)^.&set := $00000080;
  85682. end;
  85683. function TCAN1_C1FIFOCON22.getTXEN : TBits_1; inline;
  85684. begin
  85685. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  85686. end;
  85687. procedure TCAN1_C1FIFOCON22.setDONLY; inline;
  85688. begin
  85689. pTDefRegMap(@Self)^.&set := $00001000;
  85690. end;
  85691. procedure TCAN1_C1FIFOCON22.clearDONLY; inline;
  85692. begin
  85693. pTDefRegMap(@Self)^.clr := $00001000;
  85694. end;
  85695. procedure TCAN1_C1FIFOCON22.setDONLY(thebits : TBits_1); inline;
  85696. begin
  85697. if thebits = 0 then
  85698. pTDefRegMap(@Self)^.clr := $00001000
  85699. else
  85700. pTDefRegMap(@Self)^.&set := $00001000;
  85701. end;
  85702. function TCAN1_C1FIFOCON22.getDONLY : TBits_1; inline;
  85703. begin
  85704. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  85705. end;
  85706. procedure TCAN1_C1FIFOCON22.setUINC; inline;
  85707. begin
  85708. pTDefRegMap(@Self)^.&set := $00002000;
  85709. end;
  85710. procedure TCAN1_C1FIFOCON22.clearUINC; inline;
  85711. begin
  85712. pTDefRegMap(@Self)^.clr := $00002000;
  85713. end;
  85714. procedure TCAN1_C1FIFOCON22.setUINC(thebits : TBits_1); inline;
  85715. begin
  85716. if thebits = 0 then
  85717. pTDefRegMap(@Self)^.clr := $00002000
  85718. else
  85719. pTDefRegMap(@Self)^.&set := $00002000;
  85720. end;
  85721. function TCAN1_C1FIFOCON22.getUINC : TBits_1; inline;
  85722. begin
  85723. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  85724. end;
  85725. procedure TCAN1_C1FIFOCON22.setFRESET; inline;
  85726. begin
  85727. pTDefRegMap(@Self)^.&set := $00004000;
  85728. end;
  85729. procedure TCAN1_C1FIFOCON22.clearFRESET; inline;
  85730. begin
  85731. pTDefRegMap(@Self)^.clr := $00004000;
  85732. end;
  85733. procedure TCAN1_C1FIFOCON22.setFRESET(thebits : TBits_1); inline;
  85734. begin
  85735. if thebits = 0 then
  85736. pTDefRegMap(@Self)^.clr := $00004000
  85737. else
  85738. pTDefRegMap(@Self)^.&set := $00004000;
  85739. end;
  85740. function TCAN1_C1FIFOCON22.getFRESET : TBits_1; inline;
  85741. begin
  85742. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  85743. end;
  85744. procedure TCAN1_C1FIFOCON22.setFSIZE(thebits : TBits_5); inline;
  85745. begin
  85746. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  85747. end;
  85748. function TCAN1_C1FIFOCON22.getFSIZE : TBits_5; inline;
  85749. begin
  85750. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  85751. end;
  85752. procedure TCAN1_C1FIFOCON22.setw(thebits : TBits_32); inline;
  85753. begin
  85754. pTDefRegMap(@Self)^.val := thebits;
  85755. end;
  85756. function TCAN1_C1FIFOCON22.getw : TBits_32; inline;
  85757. begin
  85758. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85759. end;
  85760. procedure TCAN1_C1FIFOINT22.setRXNEMPTYIF; inline;
  85761. begin
  85762. pTDefRegMap(@Self)^.&set := $00000001;
  85763. end;
  85764. procedure TCAN1_C1FIFOINT22.clearRXNEMPTYIF; inline;
  85765. begin
  85766. pTDefRegMap(@Self)^.clr := $00000001;
  85767. end;
  85768. procedure TCAN1_C1FIFOINT22.setRXNEMPTYIF(thebits : TBits_1); inline;
  85769. begin
  85770. if thebits = 0 then
  85771. pTDefRegMap(@Self)^.clr := $00000001
  85772. else
  85773. pTDefRegMap(@Self)^.&set := $00000001;
  85774. end;
  85775. function TCAN1_C1FIFOINT22.getRXNEMPTYIF : TBits_1; inline;
  85776. begin
  85777. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  85778. end;
  85779. procedure TCAN1_C1FIFOINT22.setRXHALFIF; inline;
  85780. begin
  85781. pTDefRegMap(@Self)^.&set := $00000002;
  85782. end;
  85783. procedure TCAN1_C1FIFOINT22.clearRXHALFIF; inline;
  85784. begin
  85785. pTDefRegMap(@Self)^.clr := $00000002;
  85786. end;
  85787. procedure TCAN1_C1FIFOINT22.setRXHALFIF(thebits : TBits_1); inline;
  85788. begin
  85789. if thebits = 0 then
  85790. pTDefRegMap(@Self)^.clr := $00000002
  85791. else
  85792. pTDefRegMap(@Self)^.&set := $00000002;
  85793. end;
  85794. function TCAN1_C1FIFOINT22.getRXHALFIF : TBits_1; inline;
  85795. begin
  85796. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  85797. end;
  85798. procedure TCAN1_C1FIFOINT22.setRXFULLIF; inline;
  85799. begin
  85800. pTDefRegMap(@Self)^.&set := $00000004;
  85801. end;
  85802. procedure TCAN1_C1FIFOINT22.clearRXFULLIF; inline;
  85803. begin
  85804. pTDefRegMap(@Self)^.clr := $00000004;
  85805. end;
  85806. procedure TCAN1_C1FIFOINT22.setRXFULLIF(thebits : TBits_1); inline;
  85807. begin
  85808. if thebits = 0 then
  85809. pTDefRegMap(@Self)^.clr := $00000004
  85810. else
  85811. pTDefRegMap(@Self)^.&set := $00000004;
  85812. end;
  85813. function TCAN1_C1FIFOINT22.getRXFULLIF : TBits_1; inline;
  85814. begin
  85815. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  85816. end;
  85817. procedure TCAN1_C1FIFOINT22.setRXOVFLIF; inline;
  85818. begin
  85819. pTDefRegMap(@Self)^.&set := $00000008;
  85820. end;
  85821. procedure TCAN1_C1FIFOINT22.clearRXOVFLIF; inline;
  85822. begin
  85823. pTDefRegMap(@Self)^.clr := $00000008;
  85824. end;
  85825. procedure TCAN1_C1FIFOINT22.setRXOVFLIF(thebits : TBits_1); inline;
  85826. begin
  85827. if thebits = 0 then
  85828. pTDefRegMap(@Self)^.clr := $00000008
  85829. else
  85830. pTDefRegMap(@Self)^.&set := $00000008;
  85831. end;
  85832. function TCAN1_C1FIFOINT22.getRXOVFLIF : TBits_1; inline;
  85833. begin
  85834. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  85835. end;
  85836. procedure TCAN1_C1FIFOINT22.setTXEMPTYIF; inline;
  85837. begin
  85838. pTDefRegMap(@Self)^.&set := $00000100;
  85839. end;
  85840. procedure TCAN1_C1FIFOINT22.clearTXEMPTYIF; inline;
  85841. begin
  85842. pTDefRegMap(@Self)^.clr := $00000100;
  85843. end;
  85844. procedure TCAN1_C1FIFOINT22.setTXEMPTYIF(thebits : TBits_1); inline;
  85845. begin
  85846. if thebits = 0 then
  85847. pTDefRegMap(@Self)^.clr := $00000100
  85848. else
  85849. pTDefRegMap(@Self)^.&set := $00000100;
  85850. end;
  85851. function TCAN1_C1FIFOINT22.getTXEMPTYIF : TBits_1; inline;
  85852. begin
  85853. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  85854. end;
  85855. procedure TCAN1_C1FIFOINT22.setTXHALFIF; inline;
  85856. begin
  85857. pTDefRegMap(@Self)^.&set := $00000200;
  85858. end;
  85859. procedure TCAN1_C1FIFOINT22.clearTXHALFIF; inline;
  85860. begin
  85861. pTDefRegMap(@Self)^.clr := $00000200;
  85862. end;
  85863. procedure TCAN1_C1FIFOINT22.setTXHALFIF(thebits : TBits_1); inline;
  85864. begin
  85865. if thebits = 0 then
  85866. pTDefRegMap(@Self)^.clr := $00000200
  85867. else
  85868. pTDefRegMap(@Self)^.&set := $00000200;
  85869. end;
  85870. function TCAN1_C1FIFOINT22.getTXHALFIF : TBits_1; inline;
  85871. begin
  85872. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  85873. end;
  85874. procedure TCAN1_C1FIFOINT22.setTXNFULLIF; inline;
  85875. begin
  85876. pTDefRegMap(@Self)^.&set := $00000400;
  85877. end;
  85878. procedure TCAN1_C1FIFOINT22.clearTXNFULLIF; inline;
  85879. begin
  85880. pTDefRegMap(@Self)^.clr := $00000400;
  85881. end;
  85882. procedure TCAN1_C1FIFOINT22.setTXNFULLIF(thebits : TBits_1); inline;
  85883. begin
  85884. if thebits = 0 then
  85885. pTDefRegMap(@Self)^.clr := $00000400
  85886. else
  85887. pTDefRegMap(@Self)^.&set := $00000400;
  85888. end;
  85889. function TCAN1_C1FIFOINT22.getTXNFULLIF : TBits_1; inline;
  85890. begin
  85891. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  85892. end;
  85893. procedure TCAN1_C1FIFOINT22.setRXNEMPTYIE; inline;
  85894. begin
  85895. pTDefRegMap(@Self)^.&set := $00010000;
  85896. end;
  85897. procedure TCAN1_C1FIFOINT22.clearRXNEMPTYIE; inline;
  85898. begin
  85899. pTDefRegMap(@Self)^.clr := $00010000;
  85900. end;
  85901. procedure TCAN1_C1FIFOINT22.setRXNEMPTYIE(thebits : TBits_1); inline;
  85902. begin
  85903. if thebits = 0 then
  85904. pTDefRegMap(@Self)^.clr := $00010000
  85905. else
  85906. pTDefRegMap(@Self)^.&set := $00010000;
  85907. end;
  85908. function TCAN1_C1FIFOINT22.getRXNEMPTYIE : TBits_1; inline;
  85909. begin
  85910. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  85911. end;
  85912. procedure TCAN1_C1FIFOINT22.setRXHALFIE; inline;
  85913. begin
  85914. pTDefRegMap(@Self)^.&set := $00020000;
  85915. end;
  85916. procedure TCAN1_C1FIFOINT22.clearRXHALFIE; inline;
  85917. begin
  85918. pTDefRegMap(@Self)^.clr := $00020000;
  85919. end;
  85920. procedure TCAN1_C1FIFOINT22.setRXHALFIE(thebits : TBits_1); inline;
  85921. begin
  85922. if thebits = 0 then
  85923. pTDefRegMap(@Self)^.clr := $00020000
  85924. else
  85925. pTDefRegMap(@Self)^.&set := $00020000;
  85926. end;
  85927. function TCAN1_C1FIFOINT22.getRXHALFIE : TBits_1; inline;
  85928. begin
  85929. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  85930. end;
  85931. procedure TCAN1_C1FIFOINT22.setRXFULLIE; inline;
  85932. begin
  85933. pTDefRegMap(@Self)^.&set := $00040000;
  85934. end;
  85935. procedure TCAN1_C1FIFOINT22.clearRXFULLIE; inline;
  85936. begin
  85937. pTDefRegMap(@Self)^.clr := $00040000;
  85938. end;
  85939. procedure TCAN1_C1FIFOINT22.setRXFULLIE(thebits : TBits_1); inline;
  85940. begin
  85941. if thebits = 0 then
  85942. pTDefRegMap(@Self)^.clr := $00040000
  85943. else
  85944. pTDefRegMap(@Self)^.&set := $00040000;
  85945. end;
  85946. function TCAN1_C1FIFOINT22.getRXFULLIE : TBits_1; inline;
  85947. begin
  85948. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  85949. end;
  85950. procedure TCAN1_C1FIFOINT22.setRXOVFLIE; inline;
  85951. begin
  85952. pTDefRegMap(@Self)^.&set := $00080000;
  85953. end;
  85954. procedure TCAN1_C1FIFOINT22.clearRXOVFLIE; inline;
  85955. begin
  85956. pTDefRegMap(@Self)^.clr := $00080000;
  85957. end;
  85958. procedure TCAN1_C1FIFOINT22.setRXOVFLIE(thebits : TBits_1); inline;
  85959. begin
  85960. if thebits = 0 then
  85961. pTDefRegMap(@Self)^.clr := $00080000
  85962. else
  85963. pTDefRegMap(@Self)^.&set := $00080000;
  85964. end;
  85965. function TCAN1_C1FIFOINT22.getRXOVFLIE : TBits_1; inline;
  85966. begin
  85967. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  85968. end;
  85969. procedure TCAN1_C1FIFOINT22.setTXEMPTYIE; inline;
  85970. begin
  85971. pTDefRegMap(@Self)^.&set := $01000000;
  85972. end;
  85973. procedure TCAN1_C1FIFOINT22.clearTXEMPTYIE; inline;
  85974. begin
  85975. pTDefRegMap(@Self)^.clr := $01000000;
  85976. end;
  85977. procedure TCAN1_C1FIFOINT22.setTXEMPTYIE(thebits : TBits_1); inline;
  85978. begin
  85979. if thebits = 0 then
  85980. pTDefRegMap(@Self)^.clr := $01000000
  85981. else
  85982. pTDefRegMap(@Self)^.&set := $01000000;
  85983. end;
  85984. function TCAN1_C1FIFOINT22.getTXEMPTYIE : TBits_1; inline;
  85985. begin
  85986. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  85987. end;
  85988. procedure TCAN1_C1FIFOINT22.setTXHALFIE; inline;
  85989. begin
  85990. pTDefRegMap(@Self)^.&set := $02000000;
  85991. end;
  85992. procedure TCAN1_C1FIFOINT22.clearTXHALFIE; inline;
  85993. begin
  85994. pTDefRegMap(@Self)^.clr := $02000000;
  85995. end;
  85996. procedure TCAN1_C1FIFOINT22.setTXHALFIE(thebits : TBits_1); inline;
  85997. begin
  85998. if thebits = 0 then
  85999. pTDefRegMap(@Self)^.clr := $02000000
  86000. else
  86001. pTDefRegMap(@Self)^.&set := $02000000;
  86002. end;
  86003. function TCAN1_C1FIFOINT22.getTXHALFIE : TBits_1; inline;
  86004. begin
  86005. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  86006. end;
  86007. procedure TCAN1_C1FIFOINT22.setTXNFULLIE; inline;
  86008. begin
  86009. pTDefRegMap(@Self)^.&set := $04000000;
  86010. end;
  86011. procedure TCAN1_C1FIFOINT22.clearTXNFULLIE; inline;
  86012. begin
  86013. pTDefRegMap(@Self)^.clr := $04000000;
  86014. end;
  86015. procedure TCAN1_C1FIFOINT22.setTXNFULLIE(thebits : TBits_1); inline;
  86016. begin
  86017. if thebits = 0 then
  86018. pTDefRegMap(@Self)^.clr := $04000000
  86019. else
  86020. pTDefRegMap(@Self)^.&set := $04000000;
  86021. end;
  86022. function TCAN1_C1FIFOINT22.getTXNFULLIE : TBits_1; inline;
  86023. begin
  86024. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  86025. end;
  86026. procedure TCAN1_C1FIFOINT22.setw(thebits : TBits_32); inline;
  86027. begin
  86028. pTDefRegMap(@Self)^.val := thebits;
  86029. end;
  86030. function TCAN1_C1FIFOINT22.getw : TBits_32; inline;
  86031. begin
  86032. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  86033. end;
  86034. procedure TCAN1_C1FIFOCI22.setCFIFOCI(thebits : TBits_5); inline;
  86035. begin
  86036. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  86037. end;
  86038. function TCAN1_C1FIFOCI22.getCFIFOCI : TBits_5; inline;
  86039. begin
  86040. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  86041. end;
  86042. procedure TCAN1_C1FIFOCI22.setw(thebits : TBits_32); inline;
  86043. begin
  86044. pTDefRegMap(@Self)^.val := thebits;
  86045. end;
  86046. function TCAN1_C1FIFOCI22.getw : TBits_32; inline;
  86047. begin
  86048. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  86049. end;
  86050. procedure TCAN1_C1FIFOCON23.setTXPRI(thebits : TBits_2); inline;
  86051. begin
  86052. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  86053. end;
  86054. function TCAN1_C1FIFOCON23.getTXPRI : TBits_2; inline;
  86055. begin
  86056. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  86057. end;
  86058. procedure TCAN1_C1FIFOCON23.setRTREN; inline;
  86059. begin
  86060. pTDefRegMap(@Self)^.&set := $00000004;
  86061. end;
  86062. procedure TCAN1_C1FIFOCON23.clearRTREN; inline;
  86063. begin
  86064. pTDefRegMap(@Self)^.clr := $00000004;
  86065. end;
  86066. procedure TCAN1_C1FIFOCON23.setRTREN(thebits : TBits_1); inline;
  86067. begin
  86068. if thebits = 0 then
  86069. pTDefRegMap(@Self)^.clr := $00000004
  86070. else
  86071. pTDefRegMap(@Self)^.&set := $00000004;
  86072. end;
  86073. function TCAN1_C1FIFOCON23.getRTREN : TBits_1; inline;
  86074. begin
  86075. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  86076. end;
  86077. procedure TCAN1_C1FIFOCON23.setTXREQ; inline;
  86078. begin
  86079. pTDefRegMap(@Self)^.&set := $00000008;
  86080. end;
  86081. procedure TCAN1_C1FIFOCON23.clearTXREQ; inline;
  86082. begin
  86083. pTDefRegMap(@Self)^.clr := $00000008;
  86084. end;
  86085. procedure TCAN1_C1FIFOCON23.setTXREQ(thebits : TBits_1); inline;
  86086. begin
  86087. if thebits = 0 then
  86088. pTDefRegMap(@Self)^.clr := $00000008
  86089. else
  86090. pTDefRegMap(@Self)^.&set := $00000008;
  86091. end;
  86092. function TCAN1_C1FIFOCON23.getTXREQ : TBits_1; inline;
  86093. begin
  86094. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  86095. end;
  86096. procedure TCAN1_C1FIFOCON23.setTXERR; inline;
  86097. begin
  86098. pTDefRegMap(@Self)^.&set := $00000010;
  86099. end;
  86100. procedure TCAN1_C1FIFOCON23.clearTXERR; inline;
  86101. begin
  86102. pTDefRegMap(@Self)^.clr := $00000010;
  86103. end;
  86104. procedure TCAN1_C1FIFOCON23.setTXERR(thebits : TBits_1); inline;
  86105. begin
  86106. if thebits = 0 then
  86107. pTDefRegMap(@Self)^.clr := $00000010
  86108. else
  86109. pTDefRegMap(@Self)^.&set := $00000010;
  86110. end;
  86111. function TCAN1_C1FIFOCON23.getTXERR : TBits_1; inline;
  86112. begin
  86113. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  86114. end;
  86115. procedure TCAN1_C1FIFOCON23.setTXLARB; inline;
  86116. begin
  86117. pTDefRegMap(@Self)^.&set := $00000020;
  86118. end;
  86119. procedure TCAN1_C1FIFOCON23.clearTXLARB; inline;
  86120. begin
  86121. pTDefRegMap(@Self)^.clr := $00000020;
  86122. end;
  86123. procedure TCAN1_C1FIFOCON23.setTXLARB(thebits : TBits_1); inline;
  86124. begin
  86125. if thebits = 0 then
  86126. pTDefRegMap(@Self)^.clr := $00000020
  86127. else
  86128. pTDefRegMap(@Self)^.&set := $00000020;
  86129. end;
  86130. function TCAN1_C1FIFOCON23.getTXLARB : TBits_1; inline;
  86131. begin
  86132. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  86133. end;
  86134. procedure TCAN1_C1FIFOCON23.setTXABAT; inline;
  86135. begin
  86136. pTDefRegMap(@Self)^.&set := $00000040;
  86137. end;
  86138. procedure TCAN1_C1FIFOCON23.clearTXABAT; inline;
  86139. begin
  86140. pTDefRegMap(@Self)^.clr := $00000040;
  86141. end;
  86142. procedure TCAN1_C1FIFOCON23.setTXABAT(thebits : TBits_1); inline;
  86143. begin
  86144. if thebits = 0 then
  86145. pTDefRegMap(@Self)^.clr := $00000040
  86146. else
  86147. pTDefRegMap(@Self)^.&set := $00000040;
  86148. end;
  86149. function TCAN1_C1FIFOCON23.getTXABAT : TBits_1; inline;
  86150. begin
  86151. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  86152. end;
  86153. procedure TCAN1_C1FIFOCON23.setTXEN; inline;
  86154. begin
  86155. pTDefRegMap(@Self)^.&set := $00000080;
  86156. end;
  86157. procedure TCAN1_C1FIFOCON23.clearTXEN; inline;
  86158. begin
  86159. pTDefRegMap(@Self)^.clr := $00000080;
  86160. end;
  86161. procedure TCAN1_C1FIFOCON23.setTXEN(thebits : TBits_1); inline;
  86162. begin
  86163. if thebits = 0 then
  86164. pTDefRegMap(@Self)^.clr := $00000080
  86165. else
  86166. pTDefRegMap(@Self)^.&set := $00000080;
  86167. end;
  86168. function TCAN1_C1FIFOCON23.getTXEN : TBits_1; inline;
  86169. begin
  86170. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  86171. end;
  86172. procedure TCAN1_C1FIFOCON23.setDONLY; inline;
  86173. begin
  86174. pTDefRegMap(@Self)^.&set := $00001000;
  86175. end;
  86176. procedure TCAN1_C1FIFOCON23.clearDONLY; inline;
  86177. begin
  86178. pTDefRegMap(@Self)^.clr := $00001000;
  86179. end;
  86180. procedure TCAN1_C1FIFOCON23.setDONLY(thebits : TBits_1); inline;
  86181. begin
  86182. if thebits = 0 then
  86183. pTDefRegMap(@Self)^.clr := $00001000
  86184. else
  86185. pTDefRegMap(@Self)^.&set := $00001000;
  86186. end;
  86187. function TCAN1_C1FIFOCON23.getDONLY : TBits_1; inline;
  86188. begin
  86189. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  86190. end;
  86191. procedure TCAN1_C1FIFOCON23.setUINC; inline;
  86192. begin
  86193. pTDefRegMap(@Self)^.&set := $00002000;
  86194. end;
  86195. procedure TCAN1_C1FIFOCON23.clearUINC; inline;
  86196. begin
  86197. pTDefRegMap(@Self)^.clr := $00002000;
  86198. end;
  86199. procedure TCAN1_C1FIFOCON23.setUINC(thebits : TBits_1); inline;
  86200. begin
  86201. if thebits = 0 then
  86202. pTDefRegMap(@Self)^.clr := $00002000
  86203. else
  86204. pTDefRegMap(@Self)^.&set := $00002000;
  86205. end;
  86206. function TCAN1_C1FIFOCON23.getUINC : TBits_1; inline;
  86207. begin
  86208. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  86209. end;
  86210. procedure TCAN1_C1FIFOCON23.setFRESET; inline;
  86211. begin
  86212. pTDefRegMap(@Self)^.&set := $00004000;
  86213. end;
  86214. procedure TCAN1_C1FIFOCON23.clearFRESET; inline;
  86215. begin
  86216. pTDefRegMap(@Self)^.clr := $00004000;
  86217. end;
  86218. procedure TCAN1_C1FIFOCON23.setFRESET(thebits : TBits_1); inline;
  86219. begin
  86220. if thebits = 0 then
  86221. pTDefRegMap(@Self)^.clr := $00004000
  86222. else
  86223. pTDefRegMap(@Self)^.&set := $00004000;
  86224. end;
  86225. function TCAN1_C1FIFOCON23.getFRESET : TBits_1; inline;
  86226. begin
  86227. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  86228. end;
  86229. procedure TCAN1_C1FIFOCON23.setFSIZE(thebits : TBits_5); inline;
  86230. begin
  86231. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  86232. end;
  86233. function TCAN1_C1FIFOCON23.getFSIZE : TBits_5; inline;
  86234. begin
  86235. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  86236. end;
  86237. procedure TCAN1_C1FIFOCON23.setw(thebits : TBits_32); inline;
  86238. begin
  86239. pTDefRegMap(@Self)^.val := thebits;
  86240. end;
  86241. function TCAN1_C1FIFOCON23.getw : TBits_32; inline;
  86242. begin
  86243. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  86244. end;
  86245. procedure TCAN1_C1FIFOINT23.setRXNEMPTYIF; inline;
  86246. begin
  86247. pTDefRegMap(@Self)^.&set := $00000001;
  86248. end;
  86249. procedure TCAN1_C1FIFOINT23.clearRXNEMPTYIF; inline;
  86250. begin
  86251. pTDefRegMap(@Self)^.clr := $00000001;
  86252. end;
  86253. procedure TCAN1_C1FIFOINT23.setRXNEMPTYIF(thebits : TBits_1); inline;
  86254. begin
  86255. if thebits = 0 then
  86256. pTDefRegMap(@Self)^.clr := $00000001
  86257. else
  86258. pTDefRegMap(@Self)^.&set := $00000001;
  86259. end;
  86260. function TCAN1_C1FIFOINT23.getRXNEMPTYIF : TBits_1; inline;
  86261. begin
  86262. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  86263. end;
  86264. procedure TCAN1_C1FIFOINT23.setRXHALFIF; inline;
  86265. begin
  86266. pTDefRegMap(@Self)^.&set := $00000002;
  86267. end;
  86268. procedure TCAN1_C1FIFOINT23.clearRXHALFIF; inline;
  86269. begin
  86270. pTDefRegMap(@Self)^.clr := $00000002;
  86271. end;
  86272. procedure TCAN1_C1FIFOINT23.setRXHALFIF(thebits : TBits_1); inline;
  86273. begin
  86274. if thebits = 0 then
  86275. pTDefRegMap(@Self)^.clr := $00000002
  86276. else
  86277. pTDefRegMap(@Self)^.&set := $00000002;
  86278. end;
  86279. function TCAN1_C1FIFOINT23.getRXHALFIF : TBits_1; inline;
  86280. begin
  86281. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  86282. end;
  86283. procedure TCAN1_C1FIFOINT23.setRXFULLIF; inline;
  86284. begin
  86285. pTDefRegMap(@Self)^.&set := $00000004;
  86286. end;
  86287. procedure TCAN1_C1FIFOINT23.clearRXFULLIF; inline;
  86288. begin
  86289. pTDefRegMap(@Self)^.clr := $00000004;
  86290. end;
  86291. procedure TCAN1_C1FIFOINT23.setRXFULLIF(thebits : TBits_1); inline;
  86292. begin
  86293. if thebits = 0 then
  86294. pTDefRegMap(@Self)^.clr := $00000004
  86295. else
  86296. pTDefRegMap(@Self)^.&set := $00000004;
  86297. end;
  86298. function TCAN1_C1FIFOINT23.getRXFULLIF : TBits_1; inline;
  86299. begin
  86300. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  86301. end;
  86302. procedure TCAN1_C1FIFOINT23.setRXOVFLIF; inline;
  86303. begin
  86304. pTDefRegMap(@Self)^.&set := $00000008;
  86305. end;
  86306. procedure TCAN1_C1FIFOINT23.clearRXOVFLIF; inline;
  86307. begin
  86308. pTDefRegMap(@Self)^.clr := $00000008;
  86309. end;
  86310. procedure TCAN1_C1FIFOINT23.setRXOVFLIF(thebits : TBits_1); inline;
  86311. begin
  86312. if thebits = 0 then
  86313. pTDefRegMap(@Self)^.clr := $00000008
  86314. else
  86315. pTDefRegMap(@Self)^.&set := $00000008;
  86316. end;
  86317. function TCAN1_C1FIFOINT23.getRXOVFLIF : TBits_1; inline;
  86318. begin
  86319. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  86320. end;
  86321. procedure TCAN1_C1FIFOINT23.setTXEMPTYIF; inline;
  86322. begin
  86323. pTDefRegMap(@Self)^.&set := $00000100;
  86324. end;
  86325. procedure TCAN1_C1FIFOINT23.clearTXEMPTYIF; inline;
  86326. begin
  86327. pTDefRegMap(@Self)^.clr := $00000100;
  86328. end;
  86329. procedure TCAN1_C1FIFOINT23.setTXEMPTYIF(thebits : TBits_1); inline;
  86330. begin
  86331. if thebits = 0 then
  86332. pTDefRegMap(@Self)^.clr := $00000100
  86333. else
  86334. pTDefRegMap(@Self)^.&set := $00000100;
  86335. end;
  86336. function TCAN1_C1FIFOINT23.getTXEMPTYIF : TBits_1; inline;
  86337. begin
  86338. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  86339. end;
  86340. procedure TCAN1_C1FIFOINT23.setTXHALFIF; inline;
  86341. begin
  86342. pTDefRegMap(@Self)^.&set := $00000200;
  86343. end;
  86344. procedure TCAN1_C1FIFOINT23.clearTXHALFIF; inline;
  86345. begin
  86346. pTDefRegMap(@Self)^.clr := $00000200;
  86347. end;
  86348. procedure TCAN1_C1FIFOINT23.setTXHALFIF(thebits : TBits_1); inline;
  86349. begin
  86350. if thebits = 0 then
  86351. pTDefRegMap(@Self)^.clr := $00000200
  86352. else
  86353. pTDefRegMap(@Self)^.&set := $00000200;
  86354. end;
  86355. function TCAN1_C1FIFOINT23.getTXHALFIF : TBits_1; inline;
  86356. begin
  86357. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  86358. end;
  86359. procedure TCAN1_C1FIFOINT23.setTXNFULLIF; inline;
  86360. begin
  86361. pTDefRegMap(@Self)^.&set := $00000400;
  86362. end;
  86363. procedure TCAN1_C1FIFOINT23.clearTXNFULLIF; inline;
  86364. begin
  86365. pTDefRegMap(@Self)^.clr := $00000400;
  86366. end;
  86367. procedure TCAN1_C1FIFOINT23.setTXNFULLIF(thebits : TBits_1); inline;
  86368. begin
  86369. if thebits = 0 then
  86370. pTDefRegMap(@Self)^.clr := $00000400
  86371. else
  86372. pTDefRegMap(@Self)^.&set := $00000400;
  86373. end;
  86374. function TCAN1_C1FIFOINT23.getTXNFULLIF : TBits_1; inline;
  86375. begin
  86376. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  86377. end;
  86378. procedure TCAN1_C1FIFOINT23.setRXNEMPTYIE; inline;
  86379. begin
  86380. pTDefRegMap(@Self)^.&set := $00010000;
  86381. end;
  86382. procedure TCAN1_C1FIFOINT23.clearRXNEMPTYIE; inline;
  86383. begin
  86384. pTDefRegMap(@Self)^.clr := $00010000;
  86385. end;
  86386. procedure TCAN1_C1FIFOINT23.setRXNEMPTYIE(thebits : TBits_1); inline;
  86387. begin
  86388. if thebits = 0 then
  86389. pTDefRegMap(@Self)^.clr := $00010000
  86390. else
  86391. pTDefRegMap(@Self)^.&set := $00010000;
  86392. end;
  86393. function TCAN1_C1FIFOINT23.getRXNEMPTYIE : TBits_1; inline;
  86394. begin
  86395. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  86396. end;
  86397. procedure TCAN1_C1FIFOINT23.setRXHALFIE; inline;
  86398. begin
  86399. pTDefRegMap(@Self)^.&set := $00020000;
  86400. end;
  86401. procedure TCAN1_C1FIFOINT23.clearRXHALFIE; inline;
  86402. begin
  86403. pTDefRegMap(@Self)^.clr := $00020000;
  86404. end;
  86405. procedure TCAN1_C1FIFOINT23.setRXHALFIE(thebits : TBits_1); inline;
  86406. begin
  86407. if thebits = 0 then
  86408. pTDefRegMap(@Self)^.clr := $00020000
  86409. else
  86410. pTDefRegMap(@Self)^.&set := $00020000;
  86411. end;
  86412. function TCAN1_C1FIFOINT23.getRXHALFIE : TBits_1; inline;
  86413. begin
  86414. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  86415. end;
  86416. procedure TCAN1_C1FIFOINT23.setRXFULLIE; inline;
  86417. begin
  86418. pTDefRegMap(@Self)^.&set := $00040000;
  86419. end;
  86420. procedure TCAN1_C1FIFOINT23.clearRXFULLIE; inline;
  86421. begin
  86422. pTDefRegMap(@Self)^.clr := $00040000;
  86423. end;
  86424. procedure TCAN1_C1FIFOINT23.setRXFULLIE(thebits : TBits_1); inline;
  86425. begin
  86426. if thebits = 0 then
  86427. pTDefRegMap(@Self)^.clr := $00040000
  86428. else
  86429. pTDefRegMap(@Self)^.&set := $00040000;
  86430. end;
  86431. function TCAN1_C1FIFOINT23.getRXFULLIE : TBits_1; inline;
  86432. begin
  86433. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  86434. end;
  86435. procedure TCAN1_C1FIFOINT23.setRXOVFLIE; inline;
  86436. begin
  86437. pTDefRegMap(@Self)^.&set := $00080000;
  86438. end;
  86439. procedure TCAN1_C1FIFOINT23.clearRXOVFLIE; inline;
  86440. begin
  86441. pTDefRegMap(@Self)^.clr := $00080000;
  86442. end;
  86443. procedure TCAN1_C1FIFOINT23.setRXOVFLIE(thebits : TBits_1); inline;
  86444. begin
  86445. if thebits = 0 then
  86446. pTDefRegMap(@Self)^.clr := $00080000
  86447. else
  86448. pTDefRegMap(@Self)^.&set := $00080000;
  86449. end;
  86450. function TCAN1_C1FIFOINT23.getRXOVFLIE : TBits_1; inline;
  86451. begin
  86452. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  86453. end;
  86454. procedure TCAN1_C1FIFOINT23.setTXEMPTYIE; inline;
  86455. begin
  86456. pTDefRegMap(@Self)^.&set := $01000000;
  86457. end;
  86458. procedure TCAN1_C1FIFOINT23.clearTXEMPTYIE; inline;
  86459. begin
  86460. pTDefRegMap(@Self)^.clr := $01000000;
  86461. end;
  86462. procedure TCAN1_C1FIFOINT23.setTXEMPTYIE(thebits : TBits_1); inline;
  86463. begin
  86464. if thebits = 0 then
  86465. pTDefRegMap(@Self)^.clr := $01000000
  86466. else
  86467. pTDefRegMap(@Self)^.&set := $01000000;
  86468. end;
  86469. function TCAN1_C1FIFOINT23.getTXEMPTYIE : TBits_1; inline;
  86470. begin
  86471. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  86472. end;
  86473. procedure TCAN1_C1FIFOINT23.setTXHALFIE; inline;
  86474. begin
  86475. pTDefRegMap(@Self)^.&set := $02000000;
  86476. end;
  86477. procedure TCAN1_C1FIFOINT23.clearTXHALFIE; inline;
  86478. begin
  86479. pTDefRegMap(@Self)^.clr := $02000000;
  86480. end;
  86481. procedure TCAN1_C1FIFOINT23.setTXHALFIE(thebits : TBits_1); inline;
  86482. begin
  86483. if thebits = 0 then
  86484. pTDefRegMap(@Self)^.clr := $02000000
  86485. else
  86486. pTDefRegMap(@Self)^.&set := $02000000;
  86487. end;
  86488. function TCAN1_C1FIFOINT23.getTXHALFIE : TBits_1; inline;
  86489. begin
  86490. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  86491. end;
  86492. procedure TCAN1_C1FIFOINT23.setTXNFULLIE; inline;
  86493. begin
  86494. pTDefRegMap(@Self)^.&set := $04000000;
  86495. end;
  86496. procedure TCAN1_C1FIFOINT23.clearTXNFULLIE; inline;
  86497. begin
  86498. pTDefRegMap(@Self)^.clr := $04000000;
  86499. end;
  86500. procedure TCAN1_C1FIFOINT23.setTXNFULLIE(thebits : TBits_1); inline;
  86501. begin
  86502. if thebits = 0 then
  86503. pTDefRegMap(@Self)^.clr := $04000000
  86504. else
  86505. pTDefRegMap(@Self)^.&set := $04000000;
  86506. end;
  86507. function TCAN1_C1FIFOINT23.getTXNFULLIE : TBits_1; inline;
  86508. begin
  86509. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  86510. end;
  86511. procedure TCAN1_C1FIFOINT23.setw(thebits : TBits_32); inline;
  86512. begin
  86513. pTDefRegMap(@Self)^.val := thebits;
  86514. end;
  86515. function TCAN1_C1FIFOINT23.getw : TBits_32; inline;
  86516. begin
  86517. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  86518. end;
  86519. procedure TCAN1_C1FIFOCI23.setCFIFOCI(thebits : TBits_5); inline;
  86520. begin
  86521. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  86522. end;
  86523. function TCAN1_C1FIFOCI23.getCFIFOCI : TBits_5; inline;
  86524. begin
  86525. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  86526. end;
  86527. procedure TCAN1_C1FIFOCI23.setw(thebits : TBits_32); inline;
  86528. begin
  86529. pTDefRegMap(@Self)^.val := thebits;
  86530. end;
  86531. function TCAN1_C1FIFOCI23.getw : TBits_32; inline;
  86532. begin
  86533. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  86534. end;
  86535. procedure TCAN1_C1FIFOCON24.setTXPRI(thebits : TBits_2); inline;
  86536. begin
  86537. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  86538. end;
  86539. function TCAN1_C1FIFOCON24.getTXPRI : TBits_2; inline;
  86540. begin
  86541. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  86542. end;
  86543. procedure TCAN1_C1FIFOCON24.setRTREN; inline;
  86544. begin
  86545. pTDefRegMap(@Self)^.&set := $00000004;
  86546. end;
  86547. procedure TCAN1_C1FIFOCON24.clearRTREN; inline;
  86548. begin
  86549. pTDefRegMap(@Self)^.clr := $00000004;
  86550. end;
  86551. procedure TCAN1_C1FIFOCON24.setRTREN(thebits : TBits_1); inline;
  86552. begin
  86553. if thebits = 0 then
  86554. pTDefRegMap(@Self)^.clr := $00000004
  86555. else
  86556. pTDefRegMap(@Self)^.&set := $00000004;
  86557. end;
  86558. function TCAN1_C1FIFOCON24.getRTREN : TBits_1; inline;
  86559. begin
  86560. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  86561. end;
  86562. procedure TCAN1_C1FIFOCON24.setTXREQ; inline;
  86563. begin
  86564. pTDefRegMap(@Self)^.&set := $00000008;
  86565. end;
  86566. procedure TCAN1_C1FIFOCON24.clearTXREQ; inline;
  86567. begin
  86568. pTDefRegMap(@Self)^.clr := $00000008;
  86569. end;
  86570. procedure TCAN1_C1FIFOCON24.setTXREQ(thebits : TBits_1); inline;
  86571. begin
  86572. if thebits = 0 then
  86573. pTDefRegMap(@Self)^.clr := $00000008
  86574. else
  86575. pTDefRegMap(@Self)^.&set := $00000008;
  86576. end;
  86577. function TCAN1_C1FIFOCON24.getTXREQ : TBits_1; inline;
  86578. begin
  86579. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  86580. end;
  86581. procedure TCAN1_C1FIFOCON24.setTXERR; inline;
  86582. begin
  86583. pTDefRegMap(@Self)^.&set := $00000010;
  86584. end;
  86585. procedure TCAN1_C1FIFOCON24.clearTXERR; inline;
  86586. begin
  86587. pTDefRegMap(@Self)^.clr := $00000010;
  86588. end;
  86589. procedure TCAN1_C1FIFOCON24.setTXERR(thebits : TBits_1); inline;
  86590. begin
  86591. if thebits = 0 then
  86592. pTDefRegMap(@Self)^.clr := $00000010
  86593. else
  86594. pTDefRegMap(@Self)^.&set := $00000010;
  86595. end;
  86596. function TCAN1_C1FIFOCON24.getTXERR : TBits_1; inline;
  86597. begin
  86598. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  86599. end;
  86600. procedure TCAN1_C1FIFOCON24.setTXLARB; inline;
  86601. begin
  86602. pTDefRegMap(@Self)^.&set := $00000020;
  86603. end;
  86604. procedure TCAN1_C1FIFOCON24.clearTXLARB; inline;
  86605. begin
  86606. pTDefRegMap(@Self)^.clr := $00000020;
  86607. end;
  86608. procedure TCAN1_C1FIFOCON24.setTXLARB(thebits : TBits_1); inline;
  86609. begin
  86610. if thebits = 0 then
  86611. pTDefRegMap(@Self)^.clr := $00000020
  86612. else
  86613. pTDefRegMap(@Self)^.&set := $00000020;
  86614. end;
  86615. function TCAN1_C1FIFOCON24.getTXLARB : TBits_1; inline;
  86616. begin
  86617. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  86618. end;
  86619. procedure TCAN1_C1FIFOCON24.setTXABAT; inline;
  86620. begin
  86621. pTDefRegMap(@Self)^.&set := $00000040;
  86622. end;
  86623. procedure TCAN1_C1FIFOCON24.clearTXABAT; inline;
  86624. begin
  86625. pTDefRegMap(@Self)^.clr := $00000040;
  86626. end;
  86627. procedure TCAN1_C1FIFOCON24.setTXABAT(thebits : TBits_1); inline;
  86628. begin
  86629. if thebits = 0 then
  86630. pTDefRegMap(@Self)^.clr := $00000040
  86631. else
  86632. pTDefRegMap(@Self)^.&set := $00000040;
  86633. end;
  86634. function TCAN1_C1FIFOCON24.getTXABAT : TBits_1; inline;
  86635. begin
  86636. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  86637. end;
  86638. procedure TCAN1_C1FIFOCON24.setTXEN; inline;
  86639. begin
  86640. pTDefRegMap(@Self)^.&set := $00000080;
  86641. end;
  86642. procedure TCAN1_C1FIFOCON24.clearTXEN; inline;
  86643. begin
  86644. pTDefRegMap(@Self)^.clr := $00000080;
  86645. end;
  86646. procedure TCAN1_C1FIFOCON24.setTXEN(thebits : TBits_1); inline;
  86647. begin
  86648. if thebits = 0 then
  86649. pTDefRegMap(@Self)^.clr := $00000080
  86650. else
  86651. pTDefRegMap(@Self)^.&set := $00000080;
  86652. end;
  86653. function TCAN1_C1FIFOCON24.getTXEN : TBits_1; inline;
  86654. begin
  86655. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  86656. end;
  86657. procedure TCAN1_C1FIFOCON24.setDONLY; inline;
  86658. begin
  86659. pTDefRegMap(@Self)^.&set := $00001000;
  86660. end;
  86661. procedure TCAN1_C1FIFOCON24.clearDONLY; inline;
  86662. begin
  86663. pTDefRegMap(@Self)^.clr := $00001000;
  86664. end;
  86665. procedure TCAN1_C1FIFOCON24.setDONLY(thebits : TBits_1); inline;
  86666. begin
  86667. if thebits = 0 then
  86668. pTDefRegMap(@Self)^.clr := $00001000
  86669. else
  86670. pTDefRegMap(@Self)^.&set := $00001000;
  86671. end;
  86672. function TCAN1_C1FIFOCON24.getDONLY : TBits_1; inline;
  86673. begin
  86674. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  86675. end;
  86676. procedure TCAN1_C1FIFOCON24.setUINC; inline;
  86677. begin
  86678. pTDefRegMap(@Self)^.&set := $00002000;
  86679. end;
  86680. procedure TCAN1_C1FIFOCON24.clearUINC; inline;
  86681. begin
  86682. pTDefRegMap(@Self)^.clr := $00002000;
  86683. end;
  86684. procedure TCAN1_C1FIFOCON24.setUINC(thebits : TBits_1); inline;
  86685. begin
  86686. if thebits = 0 then
  86687. pTDefRegMap(@Self)^.clr := $00002000
  86688. else
  86689. pTDefRegMap(@Self)^.&set := $00002000;
  86690. end;
  86691. function TCAN1_C1FIFOCON24.getUINC : TBits_1; inline;
  86692. begin
  86693. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  86694. end;
  86695. procedure TCAN1_C1FIFOCON24.setFRESET; inline;
  86696. begin
  86697. pTDefRegMap(@Self)^.&set := $00004000;
  86698. end;
  86699. procedure TCAN1_C1FIFOCON24.clearFRESET; inline;
  86700. begin
  86701. pTDefRegMap(@Self)^.clr := $00004000;
  86702. end;
  86703. procedure TCAN1_C1FIFOCON24.setFRESET(thebits : TBits_1); inline;
  86704. begin
  86705. if thebits = 0 then
  86706. pTDefRegMap(@Self)^.clr := $00004000
  86707. else
  86708. pTDefRegMap(@Self)^.&set := $00004000;
  86709. end;
  86710. function TCAN1_C1FIFOCON24.getFRESET : TBits_1; inline;
  86711. begin
  86712. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  86713. end;
  86714. procedure TCAN1_C1FIFOCON24.setFSIZE(thebits : TBits_5); inline;
  86715. begin
  86716. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  86717. end;
  86718. function TCAN1_C1FIFOCON24.getFSIZE : TBits_5; inline;
  86719. begin
  86720. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  86721. end;
  86722. procedure TCAN1_C1FIFOCON24.setw(thebits : TBits_32); inline;
  86723. begin
  86724. pTDefRegMap(@Self)^.val := thebits;
  86725. end;
  86726. function TCAN1_C1FIFOCON24.getw : TBits_32; inline;
  86727. begin
  86728. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  86729. end;
  86730. procedure TCAN1_C1FIFOINT24.setRXNEMPTYIF; inline;
  86731. begin
  86732. pTDefRegMap(@Self)^.&set := $00000001;
  86733. end;
  86734. procedure TCAN1_C1FIFOINT24.clearRXNEMPTYIF; inline;
  86735. begin
  86736. pTDefRegMap(@Self)^.clr := $00000001;
  86737. end;
  86738. procedure TCAN1_C1FIFOINT24.setRXNEMPTYIF(thebits : TBits_1); inline;
  86739. begin
  86740. if thebits = 0 then
  86741. pTDefRegMap(@Self)^.clr := $00000001
  86742. else
  86743. pTDefRegMap(@Self)^.&set := $00000001;
  86744. end;
  86745. function TCAN1_C1FIFOINT24.getRXNEMPTYIF : TBits_1; inline;
  86746. begin
  86747. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  86748. end;
  86749. procedure TCAN1_C1FIFOINT24.setRXHALFIF; inline;
  86750. begin
  86751. pTDefRegMap(@Self)^.&set := $00000002;
  86752. end;
  86753. procedure TCAN1_C1FIFOINT24.clearRXHALFIF; inline;
  86754. begin
  86755. pTDefRegMap(@Self)^.clr := $00000002;
  86756. end;
  86757. procedure TCAN1_C1FIFOINT24.setRXHALFIF(thebits : TBits_1); inline;
  86758. begin
  86759. if thebits = 0 then
  86760. pTDefRegMap(@Self)^.clr := $00000002
  86761. else
  86762. pTDefRegMap(@Self)^.&set := $00000002;
  86763. end;
  86764. function TCAN1_C1FIFOINT24.getRXHALFIF : TBits_1; inline;
  86765. begin
  86766. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  86767. end;
  86768. procedure TCAN1_C1FIFOINT24.setRXFULLIF; inline;
  86769. begin
  86770. pTDefRegMap(@Self)^.&set := $00000004;
  86771. end;
  86772. procedure TCAN1_C1FIFOINT24.clearRXFULLIF; inline;
  86773. begin
  86774. pTDefRegMap(@Self)^.clr := $00000004;
  86775. end;
  86776. procedure TCAN1_C1FIFOINT24.setRXFULLIF(thebits : TBits_1); inline;
  86777. begin
  86778. if thebits = 0 then
  86779. pTDefRegMap(@Self)^.clr := $00000004
  86780. else
  86781. pTDefRegMap(@Self)^.&set := $00000004;
  86782. end;
  86783. function TCAN1_C1FIFOINT24.getRXFULLIF : TBits_1; inline;
  86784. begin
  86785. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  86786. end;
  86787. procedure TCAN1_C1FIFOINT24.setRXOVFLIF; inline;
  86788. begin
  86789. pTDefRegMap(@Self)^.&set := $00000008;
  86790. end;
  86791. procedure TCAN1_C1FIFOINT24.clearRXOVFLIF; inline;
  86792. begin
  86793. pTDefRegMap(@Self)^.clr := $00000008;
  86794. end;
  86795. procedure TCAN1_C1FIFOINT24.setRXOVFLIF(thebits : TBits_1); inline;
  86796. begin
  86797. if thebits = 0 then
  86798. pTDefRegMap(@Self)^.clr := $00000008
  86799. else
  86800. pTDefRegMap(@Self)^.&set := $00000008;
  86801. end;
  86802. function TCAN1_C1FIFOINT24.getRXOVFLIF : TBits_1; inline;
  86803. begin
  86804. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  86805. end;
  86806. procedure TCAN1_C1FIFOINT24.setTXEMPTYIF; inline;
  86807. begin
  86808. pTDefRegMap(@Self)^.&set := $00000100;
  86809. end;
  86810. procedure TCAN1_C1FIFOINT24.clearTXEMPTYIF; inline;
  86811. begin
  86812. pTDefRegMap(@Self)^.clr := $00000100;
  86813. end;
  86814. procedure TCAN1_C1FIFOINT24.setTXEMPTYIF(thebits : TBits_1); inline;
  86815. begin
  86816. if thebits = 0 then
  86817. pTDefRegMap(@Self)^.clr := $00000100
  86818. else
  86819. pTDefRegMap(@Self)^.&set := $00000100;
  86820. end;
  86821. function TCAN1_C1FIFOINT24.getTXEMPTYIF : TBits_1; inline;
  86822. begin
  86823. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  86824. end;
  86825. procedure TCAN1_C1FIFOINT24.setTXHALFIF; inline;
  86826. begin
  86827. pTDefRegMap(@Self)^.&set := $00000200;
  86828. end;
  86829. procedure TCAN1_C1FIFOINT24.clearTXHALFIF; inline;
  86830. begin
  86831. pTDefRegMap(@Self)^.clr := $00000200;
  86832. end;
  86833. procedure TCAN1_C1FIFOINT24.setTXHALFIF(thebits : TBits_1); inline;
  86834. begin
  86835. if thebits = 0 then
  86836. pTDefRegMap(@Self)^.clr := $00000200
  86837. else
  86838. pTDefRegMap(@Self)^.&set := $00000200;
  86839. end;
  86840. function TCAN1_C1FIFOINT24.getTXHALFIF : TBits_1; inline;
  86841. begin
  86842. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  86843. end;
  86844. procedure TCAN1_C1FIFOINT24.setTXNFULLIF; inline;
  86845. begin
  86846. pTDefRegMap(@Self)^.&set := $00000400;
  86847. end;
  86848. procedure TCAN1_C1FIFOINT24.clearTXNFULLIF; inline;
  86849. begin
  86850. pTDefRegMap(@Self)^.clr := $00000400;
  86851. end;
  86852. procedure TCAN1_C1FIFOINT24.setTXNFULLIF(thebits : TBits_1); inline;
  86853. begin
  86854. if thebits = 0 then
  86855. pTDefRegMap(@Self)^.clr := $00000400
  86856. else
  86857. pTDefRegMap(@Self)^.&set := $00000400;
  86858. end;
  86859. function TCAN1_C1FIFOINT24.getTXNFULLIF : TBits_1; inline;
  86860. begin
  86861. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  86862. end;
  86863. procedure TCAN1_C1FIFOINT24.setRXNEMPTYIE; inline;
  86864. begin
  86865. pTDefRegMap(@Self)^.&set := $00010000;
  86866. end;
  86867. procedure TCAN1_C1FIFOINT24.clearRXNEMPTYIE; inline;
  86868. begin
  86869. pTDefRegMap(@Self)^.clr := $00010000;
  86870. end;
  86871. procedure TCAN1_C1FIFOINT24.setRXNEMPTYIE(thebits : TBits_1); inline;
  86872. begin
  86873. if thebits = 0 then
  86874. pTDefRegMap(@Self)^.clr := $00010000
  86875. else
  86876. pTDefRegMap(@Self)^.&set := $00010000;
  86877. end;
  86878. function TCAN1_C1FIFOINT24.getRXNEMPTYIE : TBits_1; inline;
  86879. begin
  86880. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  86881. end;
  86882. procedure TCAN1_C1FIFOINT24.setRXHALFIE; inline;
  86883. begin
  86884. pTDefRegMap(@Self)^.&set := $00020000;
  86885. end;
  86886. procedure TCAN1_C1FIFOINT24.clearRXHALFIE; inline;
  86887. begin
  86888. pTDefRegMap(@Self)^.clr := $00020000;
  86889. end;
  86890. procedure TCAN1_C1FIFOINT24.setRXHALFIE(thebits : TBits_1); inline;
  86891. begin
  86892. if thebits = 0 then
  86893. pTDefRegMap(@Self)^.clr := $00020000
  86894. else
  86895. pTDefRegMap(@Self)^.&set := $00020000;
  86896. end;
  86897. function TCAN1_C1FIFOINT24.getRXHALFIE : TBits_1; inline;
  86898. begin
  86899. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  86900. end;
  86901. procedure TCAN1_C1FIFOINT24.setRXFULLIE; inline;
  86902. begin
  86903. pTDefRegMap(@Self)^.&set := $00040000;
  86904. end;
  86905. procedure TCAN1_C1FIFOINT24.clearRXFULLIE; inline;
  86906. begin
  86907. pTDefRegMap(@Self)^.clr := $00040000;
  86908. end;
  86909. procedure TCAN1_C1FIFOINT24.setRXFULLIE(thebits : TBits_1); inline;
  86910. begin
  86911. if thebits = 0 then
  86912. pTDefRegMap(@Self)^.clr := $00040000
  86913. else
  86914. pTDefRegMap(@Self)^.&set := $00040000;
  86915. end;
  86916. function TCAN1_C1FIFOINT24.getRXFULLIE : TBits_1; inline;
  86917. begin
  86918. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  86919. end;
  86920. procedure TCAN1_C1FIFOINT24.setRXOVFLIE; inline;
  86921. begin
  86922. pTDefRegMap(@Self)^.&set := $00080000;
  86923. end;
  86924. procedure TCAN1_C1FIFOINT24.clearRXOVFLIE; inline;
  86925. begin
  86926. pTDefRegMap(@Self)^.clr := $00080000;
  86927. end;
  86928. procedure TCAN1_C1FIFOINT24.setRXOVFLIE(thebits : TBits_1); inline;
  86929. begin
  86930. if thebits = 0 then
  86931. pTDefRegMap(@Self)^.clr := $00080000
  86932. else
  86933. pTDefRegMap(@Self)^.&set := $00080000;
  86934. end;
  86935. function TCAN1_C1FIFOINT24.getRXOVFLIE : TBits_1; inline;
  86936. begin
  86937. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  86938. end;
  86939. procedure TCAN1_C1FIFOINT24.setTXEMPTYIE; inline;
  86940. begin
  86941. pTDefRegMap(@Self)^.&set := $01000000;
  86942. end;
  86943. procedure TCAN1_C1FIFOINT24.clearTXEMPTYIE; inline;
  86944. begin
  86945. pTDefRegMap(@Self)^.clr := $01000000;
  86946. end;
  86947. procedure TCAN1_C1FIFOINT24.setTXEMPTYIE(thebits : TBits_1); inline;
  86948. begin
  86949. if thebits = 0 then
  86950. pTDefRegMap(@Self)^.clr := $01000000
  86951. else
  86952. pTDefRegMap(@Self)^.&set := $01000000;
  86953. end;
  86954. function TCAN1_C1FIFOINT24.getTXEMPTYIE : TBits_1; inline;
  86955. begin
  86956. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  86957. end;
  86958. procedure TCAN1_C1FIFOINT24.setTXHALFIE; inline;
  86959. begin
  86960. pTDefRegMap(@Self)^.&set := $02000000;
  86961. end;
  86962. procedure TCAN1_C1FIFOINT24.clearTXHALFIE; inline;
  86963. begin
  86964. pTDefRegMap(@Self)^.clr := $02000000;
  86965. end;
  86966. procedure TCAN1_C1FIFOINT24.setTXHALFIE(thebits : TBits_1); inline;
  86967. begin
  86968. if thebits = 0 then
  86969. pTDefRegMap(@Self)^.clr := $02000000
  86970. else
  86971. pTDefRegMap(@Self)^.&set := $02000000;
  86972. end;
  86973. function TCAN1_C1FIFOINT24.getTXHALFIE : TBits_1; inline;
  86974. begin
  86975. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  86976. end;
  86977. procedure TCAN1_C1FIFOINT24.setTXNFULLIE; inline;
  86978. begin
  86979. pTDefRegMap(@Self)^.&set := $04000000;
  86980. end;
  86981. procedure TCAN1_C1FIFOINT24.clearTXNFULLIE; inline;
  86982. begin
  86983. pTDefRegMap(@Self)^.clr := $04000000;
  86984. end;
  86985. procedure TCAN1_C1FIFOINT24.setTXNFULLIE(thebits : TBits_1); inline;
  86986. begin
  86987. if thebits = 0 then
  86988. pTDefRegMap(@Self)^.clr := $04000000
  86989. else
  86990. pTDefRegMap(@Self)^.&set := $04000000;
  86991. end;
  86992. function TCAN1_C1FIFOINT24.getTXNFULLIE : TBits_1; inline;
  86993. begin
  86994. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  86995. end;
  86996. procedure TCAN1_C1FIFOINT24.setw(thebits : TBits_32); inline;
  86997. begin
  86998. pTDefRegMap(@Self)^.val := thebits;
  86999. end;
  87000. function TCAN1_C1FIFOINT24.getw : TBits_32; inline;
  87001. begin
  87002. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  87003. end;
  87004. procedure TCAN1_C1FIFOCI24.setCFIFOCI(thebits : TBits_5); inline;
  87005. begin
  87006. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  87007. end;
  87008. function TCAN1_C1FIFOCI24.getCFIFOCI : TBits_5; inline;
  87009. begin
  87010. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  87011. end;
  87012. procedure TCAN1_C1FIFOCI24.setw(thebits : TBits_32); inline;
  87013. begin
  87014. pTDefRegMap(@Self)^.val := thebits;
  87015. end;
  87016. function TCAN1_C1FIFOCI24.getw : TBits_32; inline;
  87017. begin
  87018. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  87019. end;
  87020. procedure TCAN1_C1FIFOCON25.setTXPRI(thebits : TBits_2); inline;
  87021. begin
  87022. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  87023. end;
  87024. function TCAN1_C1FIFOCON25.getTXPRI : TBits_2; inline;
  87025. begin
  87026. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  87027. end;
  87028. procedure TCAN1_C1FIFOCON25.setRTREN; inline;
  87029. begin
  87030. pTDefRegMap(@Self)^.&set := $00000004;
  87031. end;
  87032. procedure TCAN1_C1FIFOCON25.clearRTREN; inline;
  87033. begin
  87034. pTDefRegMap(@Self)^.clr := $00000004;
  87035. end;
  87036. procedure TCAN1_C1FIFOCON25.setRTREN(thebits : TBits_1); inline;
  87037. begin
  87038. if thebits = 0 then
  87039. pTDefRegMap(@Self)^.clr := $00000004
  87040. else
  87041. pTDefRegMap(@Self)^.&set := $00000004;
  87042. end;
  87043. function TCAN1_C1FIFOCON25.getRTREN : TBits_1; inline;
  87044. begin
  87045. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  87046. end;
  87047. procedure TCAN1_C1FIFOCON25.setTXREQ; inline;
  87048. begin
  87049. pTDefRegMap(@Self)^.&set := $00000008;
  87050. end;
  87051. procedure TCAN1_C1FIFOCON25.clearTXREQ; inline;
  87052. begin
  87053. pTDefRegMap(@Self)^.clr := $00000008;
  87054. end;
  87055. procedure TCAN1_C1FIFOCON25.setTXREQ(thebits : TBits_1); inline;
  87056. begin
  87057. if thebits = 0 then
  87058. pTDefRegMap(@Self)^.clr := $00000008
  87059. else
  87060. pTDefRegMap(@Self)^.&set := $00000008;
  87061. end;
  87062. function TCAN1_C1FIFOCON25.getTXREQ : TBits_1; inline;
  87063. begin
  87064. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  87065. end;
  87066. procedure TCAN1_C1FIFOCON25.setTXERR; inline;
  87067. begin
  87068. pTDefRegMap(@Self)^.&set := $00000010;
  87069. end;
  87070. procedure TCAN1_C1FIFOCON25.clearTXERR; inline;
  87071. begin
  87072. pTDefRegMap(@Self)^.clr := $00000010;
  87073. end;
  87074. procedure TCAN1_C1FIFOCON25.setTXERR(thebits : TBits_1); inline;
  87075. begin
  87076. if thebits = 0 then
  87077. pTDefRegMap(@Self)^.clr := $00000010
  87078. else
  87079. pTDefRegMap(@Self)^.&set := $00000010;
  87080. end;
  87081. function TCAN1_C1FIFOCON25.getTXERR : TBits_1; inline;
  87082. begin
  87083. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  87084. end;
  87085. procedure TCAN1_C1FIFOCON25.setTXLARB; inline;
  87086. begin
  87087. pTDefRegMap(@Self)^.&set := $00000020;
  87088. end;
  87089. procedure TCAN1_C1FIFOCON25.clearTXLARB; inline;
  87090. begin
  87091. pTDefRegMap(@Self)^.clr := $00000020;
  87092. end;
  87093. procedure TCAN1_C1FIFOCON25.setTXLARB(thebits : TBits_1); inline;
  87094. begin
  87095. if thebits = 0 then
  87096. pTDefRegMap(@Self)^.clr := $00000020
  87097. else
  87098. pTDefRegMap(@Self)^.&set := $00000020;
  87099. end;
  87100. function TCAN1_C1FIFOCON25.getTXLARB : TBits_1; inline;
  87101. begin
  87102. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  87103. end;
  87104. procedure TCAN1_C1FIFOCON25.setTXABAT; inline;
  87105. begin
  87106. pTDefRegMap(@Self)^.&set := $00000040;
  87107. end;
  87108. procedure TCAN1_C1FIFOCON25.clearTXABAT; inline;
  87109. begin
  87110. pTDefRegMap(@Self)^.clr := $00000040;
  87111. end;
  87112. procedure TCAN1_C1FIFOCON25.setTXABAT(thebits : TBits_1); inline;
  87113. begin
  87114. if thebits = 0 then
  87115. pTDefRegMap(@Self)^.clr := $00000040
  87116. else
  87117. pTDefRegMap(@Self)^.&set := $00000040;
  87118. end;
  87119. function TCAN1_C1FIFOCON25.getTXABAT : TBits_1; inline;
  87120. begin
  87121. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  87122. end;
  87123. procedure TCAN1_C1FIFOCON25.setTXEN; inline;
  87124. begin
  87125. pTDefRegMap(@Self)^.&set := $00000080;
  87126. end;
  87127. procedure TCAN1_C1FIFOCON25.clearTXEN; inline;
  87128. begin
  87129. pTDefRegMap(@Self)^.clr := $00000080;
  87130. end;
  87131. procedure TCAN1_C1FIFOCON25.setTXEN(thebits : TBits_1); inline;
  87132. begin
  87133. if thebits = 0 then
  87134. pTDefRegMap(@Self)^.clr := $00000080
  87135. else
  87136. pTDefRegMap(@Self)^.&set := $00000080;
  87137. end;
  87138. function TCAN1_C1FIFOCON25.getTXEN : TBits_1; inline;
  87139. begin
  87140. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  87141. end;
  87142. procedure TCAN1_C1FIFOCON25.setDONLY; inline;
  87143. begin
  87144. pTDefRegMap(@Self)^.&set := $00001000;
  87145. end;
  87146. procedure TCAN1_C1FIFOCON25.clearDONLY; inline;
  87147. begin
  87148. pTDefRegMap(@Self)^.clr := $00001000;
  87149. end;
  87150. procedure TCAN1_C1FIFOCON25.setDONLY(thebits : TBits_1); inline;
  87151. begin
  87152. if thebits = 0 then
  87153. pTDefRegMap(@Self)^.clr := $00001000
  87154. else
  87155. pTDefRegMap(@Self)^.&set := $00001000;
  87156. end;
  87157. function TCAN1_C1FIFOCON25.getDONLY : TBits_1; inline;
  87158. begin
  87159. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  87160. end;
  87161. procedure TCAN1_C1FIFOCON25.setUINC; inline;
  87162. begin
  87163. pTDefRegMap(@Self)^.&set := $00002000;
  87164. end;
  87165. procedure TCAN1_C1FIFOCON25.clearUINC; inline;
  87166. begin
  87167. pTDefRegMap(@Self)^.clr := $00002000;
  87168. end;
  87169. procedure TCAN1_C1FIFOCON25.setUINC(thebits : TBits_1); inline;
  87170. begin
  87171. if thebits = 0 then
  87172. pTDefRegMap(@Self)^.clr := $00002000
  87173. else
  87174. pTDefRegMap(@Self)^.&set := $00002000;
  87175. end;
  87176. function TCAN1_C1FIFOCON25.getUINC : TBits_1; inline;
  87177. begin
  87178. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  87179. end;
  87180. procedure TCAN1_C1FIFOCON25.setFRESET; inline;
  87181. begin
  87182. pTDefRegMap(@Self)^.&set := $00004000;
  87183. end;
  87184. procedure TCAN1_C1FIFOCON25.clearFRESET; inline;
  87185. begin
  87186. pTDefRegMap(@Self)^.clr := $00004000;
  87187. end;
  87188. procedure TCAN1_C1FIFOCON25.setFRESET(thebits : TBits_1); inline;
  87189. begin
  87190. if thebits = 0 then
  87191. pTDefRegMap(@Self)^.clr := $00004000
  87192. else
  87193. pTDefRegMap(@Self)^.&set := $00004000;
  87194. end;
  87195. function TCAN1_C1FIFOCON25.getFRESET : TBits_1; inline;
  87196. begin
  87197. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  87198. end;
  87199. procedure TCAN1_C1FIFOCON25.setFSIZE(thebits : TBits_5); inline;
  87200. begin
  87201. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  87202. end;
  87203. function TCAN1_C1FIFOCON25.getFSIZE : TBits_5; inline;
  87204. begin
  87205. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  87206. end;
  87207. procedure TCAN1_C1FIFOCON25.setw(thebits : TBits_32); inline;
  87208. begin
  87209. pTDefRegMap(@Self)^.val := thebits;
  87210. end;
  87211. function TCAN1_C1FIFOCON25.getw : TBits_32; inline;
  87212. begin
  87213. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  87214. end;
  87215. procedure TCAN1_C1FIFOINT25.setRXNEMPTYIF; inline;
  87216. begin
  87217. pTDefRegMap(@Self)^.&set := $00000001;
  87218. end;
  87219. procedure TCAN1_C1FIFOINT25.clearRXNEMPTYIF; inline;
  87220. begin
  87221. pTDefRegMap(@Self)^.clr := $00000001;
  87222. end;
  87223. procedure TCAN1_C1FIFOINT25.setRXNEMPTYIF(thebits : TBits_1); inline;
  87224. begin
  87225. if thebits = 0 then
  87226. pTDefRegMap(@Self)^.clr := $00000001
  87227. else
  87228. pTDefRegMap(@Self)^.&set := $00000001;
  87229. end;
  87230. function TCAN1_C1FIFOINT25.getRXNEMPTYIF : TBits_1; inline;
  87231. begin
  87232. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  87233. end;
  87234. procedure TCAN1_C1FIFOINT25.setRXHALFIF; inline;
  87235. begin
  87236. pTDefRegMap(@Self)^.&set := $00000002;
  87237. end;
  87238. procedure TCAN1_C1FIFOINT25.clearRXHALFIF; inline;
  87239. begin
  87240. pTDefRegMap(@Self)^.clr := $00000002;
  87241. end;
  87242. procedure TCAN1_C1FIFOINT25.setRXHALFIF(thebits : TBits_1); inline;
  87243. begin
  87244. if thebits = 0 then
  87245. pTDefRegMap(@Self)^.clr := $00000002
  87246. else
  87247. pTDefRegMap(@Self)^.&set := $00000002;
  87248. end;
  87249. function TCAN1_C1FIFOINT25.getRXHALFIF : TBits_1; inline;
  87250. begin
  87251. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  87252. end;
  87253. procedure TCAN1_C1FIFOINT25.setRXFULLIF; inline;
  87254. begin
  87255. pTDefRegMap(@Self)^.&set := $00000004;
  87256. end;
  87257. procedure TCAN1_C1FIFOINT25.clearRXFULLIF; inline;
  87258. begin
  87259. pTDefRegMap(@Self)^.clr := $00000004;
  87260. end;
  87261. procedure TCAN1_C1FIFOINT25.setRXFULLIF(thebits : TBits_1); inline;
  87262. begin
  87263. if thebits = 0 then
  87264. pTDefRegMap(@Self)^.clr := $00000004
  87265. else
  87266. pTDefRegMap(@Self)^.&set := $00000004;
  87267. end;
  87268. function TCAN1_C1FIFOINT25.getRXFULLIF : TBits_1; inline;
  87269. begin
  87270. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  87271. end;
  87272. procedure TCAN1_C1FIFOINT25.setRXOVFLIF; inline;
  87273. begin
  87274. pTDefRegMap(@Self)^.&set := $00000008;
  87275. end;
  87276. procedure TCAN1_C1FIFOINT25.clearRXOVFLIF; inline;
  87277. begin
  87278. pTDefRegMap(@Self)^.clr := $00000008;
  87279. end;
  87280. procedure TCAN1_C1FIFOINT25.setRXOVFLIF(thebits : TBits_1); inline;
  87281. begin
  87282. if thebits = 0 then
  87283. pTDefRegMap(@Self)^.clr := $00000008
  87284. else
  87285. pTDefRegMap(@Self)^.&set := $00000008;
  87286. end;
  87287. function TCAN1_C1FIFOINT25.getRXOVFLIF : TBits_1; inline;
  87288. begin
  87289. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  87290. end;
  87291. procedure TCAN1_C1FIFOINT25.setTXEMPTYIF; inline;
  87292. begin
  87293. pTDefRegMap(@Self)^.&set := $00000100;
  87294. end;
  87295. procedure TCAN1_C1FIFOINT25.clearTXEMPTYIF; inline;
  87296. begin
  87297. pTDefRegMap(@Self)^.clr := $00000100;
  87298. end;
  87299. procedure TCAN1_C1FIFOINT25.setTXEMPTYIF(thebits : TBits_1); inline;
  87300. begin
  87301. if thebits = 0 then
  87302. pTDefRegMap(@Self)^.clr := $00000100
  87303. else
  87304. pTDefRegMap(@Self)^.&set := $00000100;
  87305. end;
  87306. function TCAN1_C1FIFOINT25.getTXEMPTYIF : TBits_1; inline;
  87307. begin
  87308. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  87309. end;
  87310. procedure TCAN1_C1FIFOINT25.setTXHALFIF; inline;
  87311. begin
  87312. pTDefRegMap(@Self)^.&set := $00000200;
  87313. end;
  87314. procedure TCAN1_C1FIFOINT25.clearTXHALFIF; inline;
  87315. begin
  87316. pTDefRegMap(@Self)^.clr := $00000200;
  87317. end;
  87318. procedure TCAN1_C1FIFOINT25.setTXHALFIF(thebits : TBits_1); inline;
  87319. begin
  87320. if thebits = 0 then
  87321. pTDefRegMap(@Self)^.clr := $00000200
  87322. else
  87323. pTDefRegMap(@Self)^.&set := $00000200;
  87324. end;
  87325. function TCAN1_C1FIFOINT25.getTXHALFIF : TBits_1; inline;
  87326. begin
  87327. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  87328. end;
  87329. procedure TCAN1_C1FIFOINT25.setTXNFULLIF; inline;
  87330. begin
  87331. pTDefRegMap(@Self)^.&set := $00000400;
  87332. end;
  87333. procedure TCAN1_C1FIFOINT25.clearTXNFULLIF; inline;
  87334. begin
  87335. pTDefRegMap(@Self)^.clr := $00000400;
  87336. end;
  87337. procedure TCAN1_C1FIFOINT25.setTXNFULLIF(thebits : TBits_1); inline;
  87338. begin
  87339. if thebits = 0 then
  87340. pTDefRegMap(@Self)^.clr := $00000400
  87341. else
  87342. pTDefRegMap(@Self)^.&set := $00000400;
  87343. end;
  87344. function TCAN1_C1FIFOINT25.getTXNFULLIF : TBits_1; inline;
  87345. begin
  87346. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  87347. end;
  87348. procedure TCAN1_C1FIFOINT25.setRXNEMPTYIE; inline;
  87349. begin
  87350. pTDefRegMap(@Self)^.&set := $00010000;
  87351. end;
  87352. procedure TCAN1_C1FIFOINT25.clearRXNEMPTYIE; inline;
  87353. begin
  87354. pTDefRegMap(@Self)^.clr := $00010000;
  87355. end;
  87356. procedure TCAN1_C1FIFOINT25.setRXNEMPTYIE(thebits : TBits_1); inline;
  87357. begin
  87358. if thebits = 0 then
  87359. pTDefRegMap(@Self)^.clr := $00010000
  87360. else
  87361. pTDefRegMap(@Self)^.&set := $00010000;
  87362. end;
  87363. function TCAN1_C1FIFOINT25.getRXNEMPTYIE : TBits_1; inline;
  87364. begin
  87365. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  87366. end;
  87367. procedure TCAN1_C1FIFOINT25.setRXHALFIE; inline;
  87368. begin
  87369. pTDefRegMap(@Self)^.&set := $00020000;
  87370. end;
  87371. procedure TCAN1_C1FIFOINT25.clearRXHALFIE; inline;
  87372. begin
  87373. pTDefRegMap(@Self)^.clr := $00020000;
  87374. end;
  87375. procedure TCAN1_C1FIFOINT25.setRXHALFIE(thebits : TBits_1); inline;
  87376. begin
  87377. if thebits = 0 then
  87378. pTDefRegMap(@Self)^.clr := $00020000
  87379. else
  87380. pTDefRegMap(@Self)^.&set := $00020000;
  87381. end;
  87382. function TCAN1_C1FIFOINT25.getRXHALFIE : TBits_1; inline;
  87383. begin
  87384. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  87385. end;
  87386. procedure TCAN1_C1FIFOINT25.setRXFULLIE; inline;
  87387. begin
  87388. pTDefRegMap(@Self)^.&set := $00040000;
  87389. end;
  87390. procedure TCAN1_C1FIFOINT25.clearRXFULLIE; inline;
  87391. begin
  87392. pTDefRegMap(@Self)^.clr := $00040000;
  87393. end;
  87394. procedure TCAN1_C1FIFOINT25.setRXFULLIE(thebits : TBits_1); inline;
  87395. begin
  87396. if thebits = 0 then
  87397. pTDefRegMap(@Self)^.clr := $00040000
  87398. else
  87399. pTDefRegMap(@Self)^.&set := $00040000;
  87400. end;
  87401. function TCAN1_C1FIFOINT25.getRXFULLIE : TBits_1; inline;
  87402. begin
  87403. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  87404. end;
  87405. procedure TCAN1_C1FIFOINT25.setRXOVFLIE; inline;
  87406. begin
  87407. pTDefRegMap(@Self)^.&set := $00080000;
  87408. end;
  87409. procedure TCAN1_C1FIFOINT25.clearRXOVFLIE; inline;
  87410. begin
  87411. pTDefRegMap(@Self)^.clr := $00080000;
  87412. end;
  87413. procedure TCAN1_C1FIFOINT25.setRXOVFLIE(thebits : TBits_1); inline;
  87414. begin
  87415. if thebits = 0 then
  87416. pTDefRegMap(@Self)^.clr := $00080000
  87417. else
  87418. pTDefRegMap(@Self)^.&set := $00080000;
  87419. end;
  87420. function TCAN1_C1FIFOINT25.getRXOVFLIE : TBits_1; inline;
  87421. begin
  87422. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  87423. end;
  87424. procedure TCAN1_C1FIFOINT25.setTXEMPTYIE; inline;
  87425. begin
  87426. pTDefRegMap(@Self)^.&set := $01000000;
  87427. end;
  87428. procedure TCAN1_C1FIFOINT25.clearTXEMPTYIE; inline;
  87429. begin
  87430. pTDefRegMap(@Self)^.clr := $01000000;
  87431. end;
  87432. procedure TCAN1_C1FIFOINT25.setTXEMPTYIE(thebits : TBits_1); inline;
  87433. begin
  87434. if thebits = 0 then
  87435. pTDefRegMap(@Self)^.clr := $01000000
  87436. else
  87437. pTDefRegMap(@Self)^.&set := $01000000;
  87438. end;
  87439. function TCAN1_C1FIFOINT25.getTXEMPTYIE : TBits_1; inline;
  87440. begin
  87441. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  87442. end;
  87443. procedure TCAN1_C1FIFOINT25.setTXHALFIE; inline;
  87444. begin
  87445. pTDefRegMap(@Self)^.&set := $02000000;
  87446. end;
  87447. procedure TCAN1_C1FIFOINT25.clearTXHALFIE; inline;
  87448. begin
  87449. pTDefRegMap(@Self)^.clr := $02000000;
  87450. end;
  87451. procedure TCAN1_C1FIFOINT25.setTXHALFIE(thebits : TBits_1); inline;
  87452. begin
  87453. if thebits = 0 then
  87454. pTDefRegMap(@Self)^.clr := $02000000
  87455. else
  87456. pTDefRegMap(@Self)^.&set := $02000000;
  87457. end;
  87458. function TCAN1_C1FIFOINT25.getTXHALFIE : TBits_1; inline;
  87459. begin
  87460. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  87461. end;
  87462. procedure TCAN1_C1FIFOINT25.setTXNFULLIE; inline;
  87463. begin
  87464. pTDefRegMap(@Self)^.&set := $04000000;
  87465. end;
  87466. procedure TCAN1_C1FIFOINT25.clearTXNFULLIE; inline;
  87467. begin
  87468. pTDefRegMap(@Self)^.clr := $04000000;
  87469. end;
  87470. procedure TCAN1_C1FIFOINT25.setTXNFULLIE(thebits : TBits_1); inline;
  87471. begin
  87472. if thebits = 0 then
  87473. pTDefRegMap(@Self)^.clr := $04000000
  87474. else
  87475. pTDefRegMap(@Self)^.&set := $04000000;
  87476. end;
  87477. function TCAN1_C1FIFOINT25.getTXNFULLIE : TBits_1; inline;
  87478. begin
  87479. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  87480. end;
  87481. procedure TCAN1_C1FIFOINT25.setw(thebits : TBits_32); inline;
  87482. begin
  87483. pTDefRegMap(@Self)^.val := thebits;
  87484. end;
  87485. function TCAN1_C1FIFOINT25.getw : TBits_32; inline;
  87486. begin
  87487. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  87488. end;
  87489. procedure TCAN1_C1FIFOCI25.setCFIFOCI(thebits : TBits_5); inline;
  87490. begin
  87491. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  87492. end;
  87493. function TCAN1_C1FIFOCI25.getCFIFOCI : TBits_5; inline;
  87494. begin
  87495. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  87496. end;
  87497. procedure TCAN1_C1FIFOCI25.setw(thebits : TBits_32); inline;
  87498. begin
  87499. pTDefRegMap(@Self)^.val := thebits;
  87500. end;
  87501. function TCAN1_C1FIFOCI25.getw : TBits_32; inline;
  87502. begin
  87503. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  87504. end;
  87505. procedure TCAN1_C1FIFOCON26.setTXPRI(thebits : TBits_2); inline;
  87506. begin
  87507. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  87508. end;
  87509. function TCAN1_C1FIFOCON26.getTXPRI : TBits_2; inline;
  87510. begin
  87511. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  87512. end;
  87513. procedure TCAN1_C1FIFOCON26.setRTREN; inline;
  87514. begin
  87515. pTDefRegMap(@Self)^.&set := $00000004;
  87516. end;
  87517. procedure TCAN1_C1FIFOCON26.clearRTREN; inline;
  87518. begin
  87519. pTDefRegMap(@Self)^.clr := $00000004;
  87520. end;
  87521. procedure TCAN1_C1FIFOCON26.setRTREN(thebits : TBits_1); inline;
  87522. begin
  87523. if thebits = 0 then
  87524. pTDefRegMap(@Self)^.clr := $00000004
  87525. else
  87526. pTDefRegMap(@Self)^.&set := $00000004;
  87527. end;
  87528. function TCAN1_C1FIFOCON26.getRTREN : TBits_1; inline;
  87529. begin
  87530. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  87531. end;
  87532. procedure TCAN1_C1FIFOCON26.setTXREQ; inline;
  87533. begin
  87534. pTDefRegMap(@Self)^.&set := $00000008;
  87535. end;
  87536. procedure TCAN1_C1FIFOCON26.clearTXREQ; inline;
  87537. begin
  87538. pTDefRegMap(@Self)^.clr := $00000008;
  87539. end;
  87540. procedure TCAN1_C1FIFOCON26.setTXREQ(thebits : TBits_1); inline;
  87541. begin
  87542. if thebits = 0 then
  87543. pTDefRegMap(@Self)^.clr := $00000008
  87544. else
  87545. pTDefRegMap(@Self)^.&set := $00000008;
  87546. end;
  87547. function TCAN1_C1FIFOCON26.getTXREQ : TBits_1; inline;
  87548. begin
  87549. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  87550. end;
  87551. procedure TCAN1_C1FIFOCON26.setTXERR; inline;
  87552. begin
  87553. pTDefRegMap(@Self)^.&set := $00000010;
  87554. end;
  87555. procedure TCAN1_C1FIFOCON26.clearTXERR; inline;
  87556. begin
  87557. pTDefRegMap(@Self)^.clr := $00000010;
  87558. end;
  87559. procedure TCAN1_C1FIFOCON26.setTXERR(thebits : TBits_1); inline;
  87560. begin
  87561. if thebits = 0 then
  87562. pTDefRegMap(@Self)^.clr := $00000010
  87563. else
  87564. pTDefRegMap(@Self)^.&set := $00000010;
  87565. end;
  87566. function TCAN1_C1FIFOCON26.getTXERR : TBits_1; inline;
  87567. begin
  87568. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  87569. end;
  87570. procedure TCAN1_C1FIFOCON26.setTXLARB; inline;
  87571. begin
  87572. pTDefRegMap(@Self)^.&set := $00000020;
  87573. end;
  87574. procedure TCAN1_C1FIFOCON26.clearTXLARB; inline;
  87575. begin
  87576. pTDefRegMap(@Self)^.clr := $00000020;
  87577. end;
  87578. procedure TCAN1_C1FIFOCON26.setTXLARB(thebits : TBits_1); inline;
  87579. begin
  87580. if thebits = 0 then
  87581. pTDefRegMap(@Self)^.clr := $00000020
  87582. else
  87583. pTDefRegMap(@Self)^.&set := $00000020;
  87584. end;
  87585. function TCAN1_C1FIFOCON26.getTXLARB : TBits_1; inline;
  87586. begin
  87587. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  87588. end;
  87589. procedure TCAN1_C1FIFOCON26.setTXABAT; inline;
  87590. begin
  87591. pTDefRegMap(@Self)^.&set := $00000040;
  87592. end;
  87593. procedure TCAN1_C1FIFOCON26.clearTXABAT; inline;
  87594. begin
  87595. pTDefRegMap(@Self)^.clr := $00000040;
  87596. end;
  87597. procedure TCAN1_C1FIFOCON26.setTXABAT(thebits : TBits_1); inline;
  87598. begin
  87599. if thebits = 0 then
  87600. pTDefRegMap(@Self)^.clr := $00000040
  87601. else
  87602. pTDefRegMap(@Self)^.&set := $00000040;
  87603. end;
  87604. function TCAN1_C1FIFOCON26.getTXABAT : TBits_1; inline;
  87605. begin
  87606. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  87607. end;
  87608. procedure TCAN1_C1FIFOCON26.setTXEN; inline;
  87609. begin
  87610. pTDefRegMap(@Self)^.&set := $00000080;
  87611. end;
  87612. procedure TCAN1_C1FIFOCON26.clearTXEN; inline;
  87613. begin
  87614. pTDefRegMap(@Self)^.clr := $00000080;
  87615. end;
  87616. procedure TCAN1_C1FIFOCON26.setTXEN(thebits : TBits_1); inline;
  87617. begin
  87618. if thebits = 0 then
  87619. pTDefRegMap(@Self)^.clr := $00000080
  87620. else
  87621. pTDefRegMap(@Self)^.&set := $00000080;
  87622. end;
  87623. function TCAN1_C1FIFOCON26.getTXEN : TBits_1; inline;
  87624. begin
  87625. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  87626. end;
  87627. procedure TCAN1_C1FIFOCON26.setDONLY; inline;
  87628. begin
  87629. pTDefRegMap(@Self)^.&set := $00001000;
  87630. end;
  87631. procedure TCAN1_C1FIFOCON26.clearDONLY; inline;
  87632. begin
  87633. pTDefRegMap(@Self)^.clr := $00001000;
  87634. end;
  87635. procedure TCAN1_C1FIFOCON26.setDONLY(thebits : TBits_1); inline;
  87636. begin
  87637. if thebits = 0 then
  87638. pTDefRegMap(@Self)^.clr := $00001000
  87639. else
  87640. pTDefRegMap(@Self)^.&set := $00001000;
  87641. end;
  87642. function TCAN1_C1FIFOCON26.getDONLY : TBits_1; inline;
  87643. begin
  87644. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  87645. end;
  87646. procedure TCAN1_C1FIFOCON26.setUINC; inline;
  87647. begin
  87648. pTDefRegMap(@Self)^.&set := $00002000;
  87649. end;
  87650. procedure TCAN1_C1FIFOCON26.clearUINC; inline;
  87651. begin
  87652. pTDefRegMap(@Self)^.clr := $00002000;
  87653. end;
  87654. procedure TCAN1_C1FIFOCON26.setUINC(thebits : TBits_1); inline;
  87655. begin
  87656. if thebits = 0 then
  87657. pTDefRegMap(@Self)^.clr := $00002000
  87658. else
  87659. pTDefRegMap(@Self)^.&set := $00002000;
  87660. end;
  87661. function TCAN1_C1FIFOCON26.getUINC : TBits_1; inline;
  87662. begin
  87663. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  87664. end;
  87665. procedure TCAN1_C1FIFOCON26.setFRESET; inline;
  87666. begin
  87667. pTDefRegMap(@Self)^.&set := $00004000;
  87668. end;
  87669. procedure TCAN1_C1FIFOCON26.clearFRESET; inline;
  87670. begin
  87671. pTDefRegMap(@Self)^.clr := $00004000;
  87672. end;
  87673. procedure TCAN1_C1FIFOCON26.setFRESET(thebits : TBits_1); inline;
  87674. begin
  87675. if thebits = 0 then
  87676. pTDefRegMap(@Self)^.clr := $00004000
  87677. else
  87678. pTDefRegMap(@Self)^.&set := $00004000;
  87679. end;
  87680. function TCAN1_C1FIFOCON26.getFRESET : TBits_1; inline;
  87681. begin
  87682. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  87683. end;
  87684. procedure TCAN1_C1FIFOCON26.setFSIZE(thebits : TBits_5); inline;
  87685. begin
  87686. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  87687. end;
  87688. function TCAN1_C1FIFOCON26.getFSIZE : TBits_5; inline;
  87689. begin
  87690. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  87691. end;
  87692. procedure TCAN1_C1FIFOCON26.setw(thebits : TBits_32); inline;
  87693. begin
  87694. pTDefRegMap(@Self)^.val := thebits;
  87695. end;
  87696. function TCAN1_C1FIFOCON26.getw : TBits_32; inline;
  87697. begin
  87698. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  87699. end;
  87700. procedure TCAN1_C1FIFOINT26.setRXNEMPTYIF; inline;
  87701. begin
  87702. pTDefRegMap(@Self)^.&set := $00000001;
  87703. end;
  87704. procedure TCAN1_C1FIFOINT26.clearRXNEMPTYIF; inline;
  87705. begin
  87706. pTDefRegMap(@Self)^.clr := $00000001;
  87707. end;
  87708. procedure TCAN1_C1FIFOINT26.setRXNEMPTYIF(thebits : TBits_1); inline;
  87709. begin
  87710. if thebits = 0 then
  87711. pTDefRegMap(@Self)^.clr := $00000001
  87712. else
  87713. pTDefRegMap(@Self)^.&set := $00000001;
  87714. end;
  87715. function TCAN1_C1FIFOINT26.getRXNEMPTYIF : TBits_1; inline;
  87716. begin
  87717. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  87718. end;
  87719. procedure TCAN1_C1FIFOINT26.setRXHALFIF; inline;
  87720. begin
  87721. pTDefRegMap(@Self)^.&set := $00000002;
  87722. end;
  87723. procedure TCAN1_C1FIFOINT26.clearRXHALFIF; inline;
  87724. begin
  87725. pTDefRegMap(@Self)^.clr := $00000002;
  87726. end;
  87727. procedure TCAN1_C1FIFOINT26.setRXHALFIF(thebits : TBits_1); inline;
  87728. begin
  87729. if thebits = 0 then
  87730. pTDefRegMap(@Self)^.clr := $00000002
  87731. else
  87732. pTDefRegMap(@Self)^.&set := $00000002;
  87733. end;
  87734. function TCAN1_C1FIFOINT26.getRXHALFIF : TBits_1; inline;
  87735. begin
  87736. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  87737. end;
  87738. procedure TCAN1_C1FIFOINT26.setRXFULLIF; inline;
  87739. begin
  87740. pTDefRegMap(@Self)^.&set := $00000004;
  87741. end;
  87742. procedure TCAN1_C1FIFOINT26.clearRXFULLIF; inline;
  87743. begin
  87744. pTDefRegMap(@Self)^.clr := $00000004;
  87745. end;
  87746. procedure TCAN1_C1FIFOINT26.setRXFULLIF(thebits : TBits_1); inline;
  87747. begin
  87748. if thebits = 0 then
  87749. pTDefRegMap(@Self)^.clr := $00000004
  87750. else
  87751. pTDefRegMap(@Self)^.&set := $00000004;
  87752. end;
  87753. function TCAN1_C1FIFOINT26.getRXFULLIF : TBits_1; inline;
  87754. begin
  87755. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  87756. end;
  87757. procedure TCAN1_C1FIFOINT26.setRXOVFLIF; inline;
  87758. begin
  87759. pTDefRegMap(@Self)^.&set := $00000008;
  87760. end;
  87761. procedure TCAN1_C1FIFOINT26.clearRXOVFLIF; inline;
  87762. begin
  87763. pTDefRegMap(@Self)^.clr := $00000008;
  87764. end;
  87765. procedure TCAN1_C1FIFOINT26.setRXOVFLIF(thebits : TBits_1); inline;
  87766. begin
  87767. if thebits = 0 then
  87768. pTDefRegMap(@Self)^.clr := $00000008
  87769. else
  87770. pTDefRegMap(@Self)^.&set := $00000008;
  87771. end;
  87772. function TCAN1_C1FIFOINT26.getRXOVFLIF : TBits_1; inline;
  87773. begin
  87774. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  87775. end;
  87776. procedure TCAN1_C1FIFOINT26.setTXEMPTYIF; inline;
  87777. begin
  87778. pTDefRegMap(@Self)^.&set := $00000100;
  87779. end;
  87780. procedure TCAN1_C1FIFOINT26.clearTXEMPTYIF; inline;
  87781. begin
  87782. pTDefRegMap(@Self)^.clr := $00000100;
  87783. end;
  87784. procedure TCAN1_C1FIFOINT26.setTXEMPTYIF(thebits : TBits_1); inline;
  87785. begin
  87786. if thebits = 0 then
  87787. pTDefRegMap(@Self)^.clr := $00000100
  87788. else
  87789. pTDefRegMap(@Self)^.&set := $00000100;
  87790. end;
  87791. function TCAN1_C1FIFOINT26.getTXEMPTYIF : TBits_1; inline;
  87792. begin
  87793. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  87794. end;
  87795. procedure TCAN1_C1FIFOINT26.setTXHALFIF; inline;
  87796. begin
  87797. pTDefRegMap(@Self)^.&set := $00000200;
  87798. end;
  87799. procedure TCAN1_C1FIFOINT26.clearTXHALFIF; inline;
  87800. begin
  87801. pTDefRegMap(@Self)^.clr := $00000200;
  87802. end;
  87803. procedure TCAN1_C1FIFOINT26.setTXHALFIF(thebits : TBits_1); inline;
  87804. begin
  87805. if thebits = 0 then
  87806. pTDefRegMap(@Self)^.clr := $00000200
  87807. else
  87808. pTDefRegMap(@Self)^.&set := $00000200;
  87809. end;
  87810. function TCAN1_C1FIFOINT26.getTXHALFIF : TBits_1; inline;
  87811. begin
  87812. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  87813. end;
  87814. procedure TCAN1_C1FIFOINT26.setTXNFULLIF; inline;
  87815. begin
  87816. pTDefRegMap(@Self)^.&set := $00000400;
  87817. end;
  87818. procedure TCAN1_C1FIFOINT26.clearTXNFULLIF; inline;
  87819. begin
  87820. pTDefRegMap(@Self)^.clr := $00000400;
  87821. end;
  87822. procedure TCAN1_C1FIFOINT26.setTXNFULLIF(thebits : TBits_1); inline;
  87823. begin
  87824. if thebits = 0 then
  87825. pTDefRegMap(@Self)^.clr := $00000400
  87826. else
  87827. pTDefRegMap(@Self)^.&set := $00000400;
  87828. end;
  87829. function TCAN1_C1FIFOINT26.getTXNFULLIF : TBits_1; inline;
  87830. begin
  87831. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  87832. end;
  87833. procedure TCAN1_C1FIFOINT26.setRXNEMPTYIE; inline;
  87834. begin
  87835. pTDefRegMap(@Self)^.&set := $00010000;
  87836. end;
  87837. procedure TCAN1_C1FIFOINT26.clearRXNEMPTYIE; inline;
  87838. begin
  87839. pTDefRegMap(@Self)^.clr := $00010000;
  87840. end;
  87841. procedure TCAN1_C1FIFOINT26.setRXNEMPTYIE(thebits : TBits_1); inline;
  87842. begin
  87843. if thebits = 0 then
  87844. pTDefRegMap(@Self)^.clr := $00010000
  87845. else
  87846. pTDefRegMap(@Self)^.&set := $00010000;
  87847. end;
  87848. function TCAN1_C1FIFOINT26.getRXNEMPTYIE : TBits_1; inline;
  87849. begin
  87850. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  87851. end;
  87852. procedure TCAN1_C1FIFOINT26.setRXHALFIE; inline;
  87853. begin
  87854. pTDefRegMap(@Self)^.&set := $00020000;
  87855. end;
  87856. procedure TCAN1_C1FIFOINT26.clearRXHALFIE; inline;
  87857. begin
  87858. pTDefRegMap(@Self)^.clr := $00020000;
  87859. end;
  87860. procedure TCAN1_C1FIFOINT26.setRXHALFIE(thebits : TBits_1); inline;
  87861. begin
  87862. if thebits = 0 then
  87863. pTDefRegMap(@Self)^.clr := $00020000
  87864. else
  87865. pTDefRegMap(@Self)^.&set := $00020000;
  87866. end;
  87867. function TCAN1_C1FIFOINT26.getRXHALFIE : TBits_1; inline;
  87868. begin
  87869. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  87870. end;
  87871. procedure TCAN1_C1FIFOINT26.setRXFULLIE; inline;
  87872. begin
  87873. pTDefRegMap(@Self)^.&set := $00040000;
  87874. end;
  87875. procedure TCAN1_C1FIFOINT26.clearRXFULLIE; inline;
  87876. begin
  87877. pTDefRegMap(@Self)^.clr := $00040000;
  87878. end;
  87879. procedure TCAN1_C1FIFOINT26.setRXFULLIE(thebits : TBits_1); inline;
  87880. begin
  87881. if thebits = 0 then
  87882. pTDefRegMap(@Self)^.clr := $00040000
  87883. else
  87884. pTDefRegMap(@Self)^.&set := $00040000;
  87885. end;
  87886. function TCAN1_C1FIFOINT26.getRXFULLIE : TBits_1; inline;
  87887. begin
  87888. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  87889. end;
  87890. procedure TCAN1_C1FIFOINT26.setRXOVFLIE; inline;
  87891. begin
  87892. pTDefRegMap(@Self)^.&set := $00080000;
  87893. end;
  87894. procedure TCAN1_C1FIFOINT26.clearRXOVFLIE; inline;
  87895. begin
  87896. pTDefRegMap(@Self)^.clr := $00080000;
  87897. end;
  87898. procedure TCAN1_C1FIFOINT26.setRXOVFLIE(thebits : TBits_1); inline;
  87899. begin
  87900. if thebits = 0 then
  87901. pTDefRegMap(@Self)^.clr := $00080000
  87902. else
  87903. pTDefRegMap(@Self)^.&set := $00080000;
  87904. end;
  87905. function TCAN1_C1FIFOINT26.getRXOVFLIE : TBits_1; inline;
  87906. begin
  87907. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  87908. end;
  87909. procedure TCAN1_C1FIFOINT26.setTXEMPTYIE; inline;
  87910. begin
  87911. pTDefRegMap(@Self)^.&set := $01000000;
  87912. end;
  87913. procedure TCAN1_C1FIFOINT26.clearTXEMPTYIE; inline;
  87914. begin
  87915. pTDefRegMap(@Self)^.clr := $01000000;
  87916. end;
  87917. procedure TCAN1_C1FIFOINT26.setTXEMPTYIE(thebits : TBits_1); inline;
  87918. begin
  87919. if thebits = 0 then
  87920. pTDefRegMap(@Self)^.clr := $01000000
  87921. else
  87922. pTDefRegMap(@Self)^.&set := $01000000;
  87923. end;
  87924. function TCAN1_C1FIFOINT26.getTXEMPTYIE : TBits_1; inline;
  87925. begin
  87926. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  87927. end;
  87928. procedure TCAN1_C1FIFOINT26.setTXHALFIE; inline;
  87929. begin
  87930. pTDefRegMap(@Self)^.&set := $02000000;
  87931. end;
  87932. procedure TCAN1_C1FIFOINT26.clearTXHALFIE; inline;
  87933. begin
  87934. pTDefRegMap(@Self)^.clr := $02000000;
  87935. end;
  87936. procedure TCAN1_C1FIFOINT26.setTXHALFIE(thebits : TBits_1); inline;
  87937. begin
  87938. if thebits = 0 then
  87939. pTDefRegMap(@Self)^.clr := $02000000
  87940. else
  87941. pTDefRegMap(@Self)^.&set := $02000000;
  87942. end;
  87943. function TCAN1_C1FIFOINT26.getTXHALFIE : TBits_1; inline;
  87944. begin
  87945. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  87946. end;
  87947. procedure TCAN1_C1FIFOINT26.setTXNFULLIE; inline;
  87948. begin
  87949. pTDefRegMap(@Self)^.&set := $04000000;
  87950. end;
  87951. procedure TCAN1_C1FIFOINT26.clearTXNFULLIE; inline;
  87952. begin
  87953. pTDefRegMap(@Self)^.clr := $04000000;
  87954. end;
  87955. procedure TCAN1_C1FIFOINT26.setTXNFULLIE(thebits : TBits_1); inline;
  87956. begin
  87957. if thebits = 0 then
  87958. pTDefRegMap(@Self)^.clr := $04000000
  87959. else
  87960. pTDefRegMap(@Self)^.&set := $04000000;
  87961. end;
  87962. function TCAN1_C1FIFOINT26.getTXNFULLIE : TBits_1; inline;
  87963. begin
  87964. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  87965. end;
  87966. procedure TCAN1_C1FIFOINT26.setw(thebits : TBits_32); inline;
  87967. begin
  87968. pTDefRegMap(@Self)^.val := thebits;
  87969. end;
  87970. function TCAN1_C1FIFOINT26.getw : TBits_32; inline;
  87971. begin
  87972. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  87973. end;
  87974. procedure TCAN1_C1FIFOCI26.setCFIFOCI(thebits : TBits_5); inline;
  87975. begin
  87976. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  87977. end;
  87978. function TCAN1_C1FIFOCI26.getCFIFOCI : TBits_5; inline;
  87979. begin
  87980. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  87981. end;
  87982. procedure TCAN1_C1FIFOCI26.setw(thebits : TBits_32); inline;
  87983. begin
  87984. pTDefRegMap(@Self)^.val := thebits;
  87985. end;
  87986. function TCAN1_C1FIFOCI26.getw : TBits_32; inline;
  87987. begin
  87988. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  87989. end;
  87990. procedure TCAN1_C1FIFOCON27.setTXPRI(thebits : TBits_2); inline;
  87991. begin
  87992. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  87993. end;
  87994. function TCAN1_C1FIFOCON27.getTXPRI : TBits_2; inline;
  87995. begin
  87996. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  87997. end;
  87998. procedure TCAN1_C1FIFOCON27.setRTREN; inline;
  87999. begin
  88000. pTDefRegMap(@Self)^.&set := $00000004;
  88001. end;
  88002. procedure TCAN1_C1FIFOCON27.clearRTREN; inline;
  88003. begin
  88004. pTDefRegMap(@Self)^.clr := $00000004;
  88005. end;
  88006. procedure TCAN1_C1FIFOCON27.setRTREN(thebits : TBits_1); inline;
  88007. begin
  88008. if thebits = 0 then
  88009. pTDefRegMap(@Self)^.clr := $00000004
  88010. else
  88011. pTDefRegMap(@Self)^.&set := $00000004;
  88012. end;
  88013. function TCAN1_C1FIFOCON27.getRTREN : TBits_1; inline;
  88014. begin
  88015. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  88016. end;
  88017. procedure TCAN1_C1FIFOCON27.setTXREQ; inline;
  88018. begin
  88019. pTDefRegMap(@Self)^.&set := $00000008;
  88020. end;
  88021. procedure TCAN1_C1FIFOCON27.clearTXREQ; inline;
  88022. begin
  88023. pTDefRegMap(@Self)^.clr := $00000008;
  88024. end;
  88025. procedure TCAN1_C1FIFOCON27.setTXREQ(thebits : TBits_1); inline;
  88026. begin
  88027. if thebits = 0 then
  88028. pTDefRegMap(@Self)^.clr := $00000008
  88029. else
  88030. pTDefRegMap(@Self)^.&set := $00000008;
  88031. end;
  88032. function TCAN1_C1FIFOCON27.getTXREQ : TBits_1; inline;
  88033. begin
  88034. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  88035. end;
  88036. procedure TCAN1_C1FIFOCON27.setTXERR; inline;
  88037. begin
  88038. pTDefRegMap(@Self)^.&set := $00000010;
  88039. end;
  88040. procedure TCAN1_C1FIFOCON27.clearTXERR; inline;
  88041. begin
  88042. pTDefRegMap(@Self)^.clr := $00000010;
  88043. end;
  88044. procedure TCAN1_C1FIFOCON27.setTXERR(thebits : TBits_1); inline;
  88045. begin
  88046. if thebits = 0 then
  88047. pTDefRegMap(@Self)^.clr := $00000010
  88048. else
  88049. pTDefRegMap(@Self)^.&set := $00000010;
  88050. end;
  88051. function TCAN1_C1FIFOCON27.getTXERR : TBits_1; inline;
  88052. begin
  88053. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  88054. end;
  88055. procedure TCAN1_C1FIFOCON27.setTXLARB; inline;
  88056. begin
  88057. pTDefRegMap(@Self)^.&set := $00000020;
  88058. end;
  88059. procedure TCAN1_C1FIFOCON27.clearTXLARB; inline;
  88060. begin
  88061. pTDefRegMap(@Self)^.clr := $00000020;
  88062. end;
  88063. procedure TCAN1_C1FIFOCON27.setTXLARB(thebits : TBits_1); inline;
  88064. begin
  88065. if thebits = 0 then
  88066. pTDefRegMap(@Self)^.clr := $00000020
  88067. else
  88068. pTDefRegMap(@Self)^.&set := $00000020;
  88069. end;
  88070. function TCAN1_C1FIFOCON27.getTXLARB : TBits_1; inline;
  88071. begin
  88072. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  88073. end;
  88074. procedure TCAN1_C1FIFOCON27.setTXABAT; inline;
  88075. begin
  88076. pTDefRegMap(@Self)^.&set := $00000040;
  88077. end;
  88078. procedure TCAN1_C1FIFOCON27.clearTXABAT; inline;
  88079. begin
  88080. pTDefRegMap(@Self)^.clr := $00000040;
  88081. end;
  88082. procedure TCAN1_C1FIFOCON27.setTXABAT(thebits : TBits_1); inline;
  88083. begin
  88084. if thebits = 0 then
  88085. pTDefRegMap(@Self)^.clr := $00000040
  88086. else
  88087. pTDefRegMap(@Self)^.&set := $00000040;
  88088. end;
  88089. function TCAN1_C1FIFOCON27.getTXABAT : TBits_1; inline;
  88090. begin
  88091. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  88092. end;
  88093. procedure TCAN1_C1FIFOCON27.setTXEN; inline;
  88094. begin
  88095. pTDefRegMap(@Self)^.&set := $00000080;
  88096. end;
  88097. procedure TCAN1_C1FIFOCON27.clearTXEN; inline;
  88098. begin
  88099. pTDefRegMap(@Self)^.clr := $00000080;
  88100. end;
  88101. procedure TCAN1_C1FIFOCON27.setTXEN(thebits : TBits_1); inline;
  88102. begin
  88103. if thebits = 0 then
  88104. pTDefRegMap(@Self)^.clr := $00000080
  88105. else
  88106. pTDefRegMap(@Self)^.&set := $00000080;
  88107. end;
  88108. function TCAN1_C1FIFOCON27.getTXEN : TBits_1; inline;
  88109. begin
  88110. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  88111. end;
  88112. procedure TCAN1_C1FIFOCON27.setDONLY; inline;
  88113. begin
  88114. pTDefRegMap(@Self)^.&set := $00001000;
  88115. end;
  88116. procedure TCAN1_C1FIFOCON27.clearDONLY; inline;
  88117. begin
  88118. pTDefRegMap(@Self)^.clr := $00001000;
  88119. end;
  88120. procedure TCAN1_C1FIFOCON27.setDONLY(thebits : TBits_1); inline;
  88121. begin
  88122. if thebits = 0 then
  88123. pTDefRegMap(@Self)^.clr := $00001000
  88124. else
  88125. pTDefRegMap(@Self)^.&set := $00001000;
  88126. end;
  88127. function TCAN1_C1FIFOCON27.getDONLY : TBits_1; inline;
  88128. begin
  88129. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  88130. end;
  88131. procedure TCAN1_C1FIFOCON27.setUINC; inline;
  88132. begin
  88133. pTDefRegMap(@Self)^.&set := $00002000;
  88134. end;
  88135. procedure TCAN1_C1FIFOCON27.clearUINC; inline;
  88136. begin
  88137. pTDefRegMap(@Self)^.clr := $00002000;
  88138. end;
  88139. procedure TCAN1_C1FIFOCON27.setUINC(thebits : TBits_1); inline;
  88140. begin
  88141. if thebits = 0 then
  88142. pTDefRegMap(@Self)^.clr := $00002000
  88143. else
  88144. pTDefRegMap(@Self)^.&set := $00002000;
  88145. end;
  88146. function TCAN1_C1FIFOCON27.getUINC : TBits_1; inline;
  88147. begin
  88148. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  88149. end;
  88150. procedure TCAN1_C1FIFOCON27.setFRESET; inline;
  88151. begin
  88152. pTDefRegMap(@Self)^.&set := $00004000;
  88153. end;
  88154. procedure TCAN1_C1FIFOCON27.clearFRESET; inline;
  88155. begin
  88156. pTDefRegMap(@Self)^.clr := $00004000;
  88157. end;
  88158. procedure TCAN1_C1FIFOCON27.setFRESET(thebits : TBits_1); inline;
  88159. begin
  88160. if thebits = 0 then
  88161. pTDefRegMap(@Self)^.clr := $00004000
  88162. else
  88163. pTDefRegMap(@Self)^.&set := $00004000;
  88164. end;
  88165. function TCAN1_C1FIFOCON27.getFRESET : TBits_1; inline;
  88166. begin
  88167. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  88168. end;
  88169. procedure TCAN1_C1FIFOCON27.setFSIZE(thebits : TBits_5); inline;
  88170. begin
  88171. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  88172. end;
  88173. function TCAN1_C1FIFOCON27.getFSIZE : TBits_5; inline;
  88174. begin
  88175. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  88176. end;
  88177. procedure TCAN1_C1FIFOCON27.setw(thebits : TBits_32); inline;
  88178. begin
  88179. pTDefRegMap(@Self)^.val := thebits;
  88180. end;
  88181. function TCAN1_C1FIFOCON27.getw : TBits_32; inline;
  88182. begin
  88183. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  88184. end;
  88185. procedure TCAN1_C1FIFOINT27.setRXNEMPTYIF; inline;
  88186. begin
  88187. pTDefRegMap(@Self)^.&set := $00000001;
  88188. end;
  88189. procedure TCAN1_C1FIFOINT27.clearRXNEMPTYIF; inline;
  88190. begin
  88191. pTDefRegMap(@Self)^.clr := $00000001;
  88192. end;
  88193. procedure TCAN1_C1FIFOINT27.setRXNEMPTYIF(thebits : TBits_1); inline;
  88194. begin
  88195. if thebits = 0 then
  88196. pTDefRegMap(@Self)^.clr := $00000001
  88197. else
  88198. pTDefRegMap(@Self)^.&set := $00000001;
  88199. end;
  88200. function TCAN1_C1FIFOINT27.getRXNEMPTYIF : TBits_1; inline;
  88201. begin
  88202. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  88203. end;
  88204. procedure TCAN1_C1FIFOINT27.setRXHALFIF; inline;
  88205. begin
  88206. pTDefRegMap(@Self)^.&set := $00000002;
  88207. end;
  88208. procedure TCAN1_C1FIFOINT27.clearRXHALFIF; inline;
  88209. begin
  88210. pTDefRegMap(@Self)^.clr := $00000002;
  88211. end;
  88212. procedure TCAN1_C1FIFOINT27.setRXHALFIF(thebits : TBits_1); inline;
  88213. begin
  88214. if thebits = 0 then
  88215. pTDefRegMap(@Self)^.clr := $00000002
  88216. else
  88217. pTDefRegMap(@Self)^.&set := $00000002;
  88218. end;
  88219. function TCAN1_C1FIFOINT27.getRXHALFIF : TBits_1; inline;
  88220. begin
  88221. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  88222. end;
  88223. procedure TCAN1_C1FIFOINT27.setRXFULLIF; inline;
  88224. begin
  88225. pTDefRegMap(@Self)^.&set := $00000004;
  88226. end;
  88227. procedure TCAN1_C1FIFOINT27.clearRXFULLIF; inline;
  88228. begin
  88229. pTDefRegMap(@Self)^.clr := $00000004;
  88230. end;
  88231. procedure TCAN1_C1FIFOINT27.setRXFULLIF(thebits : TBits_1); inline;
  88232. begin
  88233. if thebits = 0 then
  88234. pTDefRegMap(@Self)^.clr := $00000004
  88235. else
  88236. pTDefRegMap(@Self)^.&set := $00000004;
  88237. end;
  88238. function TCAN1_C1FIFOINT27.getRXFULLIF : TBits_1; inline;
  88239. begin
  88240. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  88241. end;
  88242. procedure TCAN1_C1FIFOINT27.setRXOVFLIF; inline;
  88243. begin
  88244. pTDefRegMap(@Self)^.&set := $00000008;
  88245. end;
  88246. procedure TCAN1_C1FIFOINT27.clearRXOVFLIF; inline;
  88247. begin
  88248. pTDefRegMap(@Self)^.clr := $00000008;
  88249. end;
  88250. procedure TCAN1_C1FIFOINT27.setRXOVFLIF(thebits : TBits_1); inline;
  88251. begin
  88252. if thebits = 0 then
  88253. pTDefRegMap(@Self)^.clr := $00000008
  88254. else
  88255. pTDefRegMap(@Self)^.&set := $00000008;
  88256. end;
  88257. function TCAN1_C1FIFOINT27.getRXOVFLIF : TBits_1; inline;
  88258. begin
  88259. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  88260. end;
  88261. procedure TCAN1_C1FIFOINT27.setTXEMPTYIF; inline;
  88262. begin
  88263. pTDefRegMap(@Self)^.&set := $00000100;
  88264. end;
  88265. procedure TCAN1_C1FIFOINT27.clearTXEMPTYIF; inline;
  88266. begin
  88267. pTDefRegMap(@Self)^.clr := $00000100;
  88268. end;
  88269. procedure TCAN1_C1FIFOINT27.setTXEMPTYIF(thebits : TBits_1); inline;
  88270. begin
  88271. if thebits = 0 then
  88272. pTDefRegMap(@Self)^.clr := $00000100
  88273. else
  88274. pTDefRegMap(@Self)^.&set := $00000100;
  88275. end;
  88276. function TCAN1_C1FIFOINT27.getTXEMPTYIF : TBits_1; inline;
  88277. begin
  88278. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  88279. end;
  88280. procedure TCAN1_C1FIFOINT27.setTXHALFIF; inline;
  88281. begin
  88282. pTDefRegMap(@Self)^.&set := $00000200;
  88283. end;
  88284. procedure TCAN1_C1FIFOINT27.clearTXHALFIF; inline;
  88285. begin
  88286. pTDefRegMap(@Self)^.clr := $00000200;
  88287. end;
  88288. procedure TCAN1_C1FIFOINT27.setTXHALFIF(thebits : TBits_1); inline;
  88289. begin
  88290. if thebits = 0 then
  88291. pTDefRegMap(@Self)^.clr := $00000200
  88292. else
  88293. pTDefRegMap(@Self)^.&set := $00000200;
  88294. end;
  88295. function TCAN1_C1FIFOINT27.getTXHALFIF : TBits_1; inline;
  88296. begin
  88297. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  88298. end;
  88299. procedure TCAN1_C1FIFOINT27.setTXNFULLIF; inline;
  88300. begin
  88301. pTDefRegMap(@Self)^.&set := $00000400;
  88302. end;
  88303. procedure TCAN1_C1FIFOINT27.clearTXNFULLIF; inline;
  88304. begin
  88305. pTDefRegMap(@Self)^.clr := $00000400;
  88306. end;
  88307. procedure TCAN1_C1FIFOINT27.setTXNFULLIF(thebits : TBits_1); inline;
  88308. begin
  88309. if thebits = 0 then
  88310. pTDefRegMap(@Self)^.clr := $00000400
  88311. else
  88312. pTDefRegMap(@Self)^.&set := $00000400;
  88313. end;
  88314. function TCAN1_C1FIFOINT27.getTXNFULLIF : TBits_1; inline;
  88315. begin
  88316. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  88317. end;
  88318. procedure TCAN1_C1FIFOINT27.setRXNEMPTYIE; inline;
  88319. begin
  88320. pTDefRegMap(@Self)^.&set := $00010000;
  88321. end;
  88322. procedure TCAN1_C1FIFOINT27.clearRXNEMPTYIE; inline;
  88323. begin
  88324. pTDefRegMap(@Self)^.clr := $00010000;
  88325. end;
  88326. procedure TCAN1_C1FIFOINT27.setRXNEMPTYIE(thebits : TBits_1); inline;
  88327. begin
  88328. if thebits = 0 then
  88329. pTDefRegMap(@Self)^.clr := $00010000
  88330. else
  88331. pTDefRegMap(@Self)^.&set := $00010000;
  88332. end;
  88333. function TCAN1_C1FIFOINT27.getRXNEMPTYIE : TBits_1; inline;
  88334. begin
  88335. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  88336. end;
  88337. procedure TCAN1_C1FIFOINT27.setRXHALFIE; inline;
  88338. begin
  88339. pTDefRegMap(@Self)^.&set := $00020000;
  88340. end;
  88341. procedure TCAN1_C1FIFOINT27.clearRXHALFIE; inline;
  88342. begin
  88343. pTDefRegMap(@Self)^.clr := $00020000;
  88344. end;
  88345. procedure TCAN1_C1FIFOINT27.setRXHALFIE(thebits : TBits_1); inline;
  88346. begin
  88347. if thebits = 0 then
  88348. pTDefRegMap(@Self)^.clr := $00020000
  88349. else
  88350. pTDefRegMap(@Self)^.&set := $00020000;
  88351. end;
  88352. function TCAN1_C1FIFOINT27.getRXHALFIE : TBits_1; inline;
  88353. begin
  88354. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  88355. end;
  88356. procedure TCAN1_C1FIFOINT27.setRXFULLIE; inline;
  88357. begin
  88358. pTDefRegMap(@Self)^.&set := $00040000;
  88359. end;
  88360. procedure TCAN1_C1FIFOINT27.clearRXFULLIE; inline;
  88361. begin
  88362. pTDefRegMap(@Self)^.clr := $00040000;
  88363. end;
  88364. procedure TCAN1_C1FIFOINT27.setRXFULLIE(thebits : TBits_1); inline;
  88365. begin
  88366. if thebits = 0 then
  88367. pTDefRegMap(@Self)^.clr := $00040000
  88368. else
  88369. pTDefRegMap(@Self)^.&set := $00040000;
  88370. end;
  88371. function TCAN1_C1FIFOINT27.getRXFULLIE : TBits_1; inline;
  88372. begin
  88373. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  88374. end;
  88375. procedure TCAN1_C1FIFOINT27.setRXOVFLIE; inline;
  88376. begin
  88377. pTDefRegMap(@Self)^.&set := $00080000;
  88378. end;
  88379. procedure TCAN1_C1FIFOINT27.clearRXOVFLIE; inline;
  88380. begin
  88381. pTDefRegMap(@Self)^.clr := $00080000;
  88382. end;
  88383. procedure TCAN1_C1FIFOINT27.setRXOVFLIE(thebits : TBits_1); inline;
  88384. begin
  88385. if thebits = 0 then
  88386. pTDefRegMap(@Self)^.clr := $00080000
  88387. else
  88388. pTDefRegMap(@Self)^.&set := $00080000;
  88389. end;
  88390. function TCAN1_C1FIFOINT27.getRXOVFLIE : TBits_1; inline;
  88391. begin
  88392. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  88393. end;
  88394. procedure TCAN1_C1FIFOINT27.setTXEMPTYIE; inline;
  88395. begin
  88396. pTDefRegMap(@Self)^.&set := $01000000;
  88397. end;
  88398. procedure TCAN1_C1FIFOINT27.clearTXEMPTYIE; inline;
  88399. begin
  88400. pTDefRegMap(@Self)^.clr := $01000000;
  88401. end;
  88402. procedure TCAN1_C1FIFOINT27.setTXEMPTYIE(thebits : TBits_1); inline;
  88403. begin
  88404. if thebits = 0 then
  88405. pTDefRegMap(@Self)^.clr := $01000000
  88406. else
  88407. pTDefRegMap(@Self)^.&set := $01000000;
  88408. end;
  88409. function TCAN1_C1FIFOINT27.getTXEMPTYIE : TBits_1; inline;
  88410. begin
  88411. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  88412. end;
  88413. procedure TCAN1_C1FIFOINT27.setTXHALFIE; inline;
  88414. begin
  88415. pTDefRegMap(@Self)^.&set := $02000000;
  88416. end;
  88417. procedure TCAN1_C1FIFOINT27.clearTXHALFIE; inline;
  88418. begin
  88419. pTDefRegMap(@Self)^.clr := $02000000;
  88420. end;
  88421. procedure TCAN1_C1FIFOINT27.setTXHALFIE(thebits : TBits_1); inline;
  88422. begin
  88423. if thebits = 0 then
  88424. pTDefRegMap(@Self)^.clr := $02000000
  88425. else
  88426. pTDefRegMap(@Self)^.&set := $02000000;
  88427. end;
  88428. function TCAN1_C1FIFOINT27.getTXHALFIE : TBits_1; inline;
  88429. begin
  88430. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  88431. end;
  88432. procedure TCAN1_C1FIFOINT27.setTXNFULLIE; inline;
  88433. begin
  88434. pTDefRegMap(@Self)^.&set := $04000000;
  88435. end;
  88436. procedure TCAN1_C1FIFOINT27.clearTXNFULLIE; inline;
  88437. begin
  88438. pTDefRegMap(@Self)^.clr := $04000000;
  88439. end;
  88440. procedure TCAN1_C1FIFOINT27.setTXNFULLIE(thebits : TBits_1); inline;
  88441. begin
  88442. if thebits = 0 then
  88443. pTDefRegMap(@Self)^.clr := $04000000
  88444. else
  88445. pTDefRegMap(@Self)^.&set := $04000000;
  88446. end;
  88447. function TCAN1_C1FIFOINT27.getTXNFULLIE : TBits_1; inline;
  88448. begin
  88449. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  88450. end;
  88451. procedure TCAN1_C1FIFOINT27.setw(thebits : TBits_32); inline;
  88452. begin
  88453. pTDefRegMap(@Self)^.val := thebits;
  88454. end;
  88455. function TCAN1_C1FIFOINT27.getw : TBits_32; inline;
  88456. begin
  88457. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  88458. end;
  88459. procedure TCAN1_C1FIFOCI27.setCFIFOCI(thebits : TBits_5); inline;
  88460. begin
  88461. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  88462. end;
  88463. function TCAN1_C1FIFOCI27.getCFIFOCI : TBits_5; inline;
  88464. begin
  88465. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  88466. end;
  88467. procedure TCAN1_C1FIFOCI27.setw(thebits : TBits_32); inline;
  88468. begin
  88469. pTDefRegMap(@Self)^.val := thebits;
  88470. end;
  88471. function TCAN1_C1FIFOCI27.getw : TBits_32; inline;
  88472. begin
  88473. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  88474. end;
  88475. procedure TCAN1_C1FIFOCON28.setTXPRI(thebits : TBits_2); inline;
  88476. begin
  88477. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  88478. end;
  88479. function TCAN1_C1FIFOCON28.getTXPRI : TBits_2; inline;
  88480. begin
  88481. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  88482. end;
  88483. procedure TCAN1_C1FIFOCON28.setRTREN; inline;
  88484. begin
  88485. pTDefRegMap(@Self)^.&set := $00000004;
  88486. end;
  88487. procedure TCAN1_C1FIFOCON28.clearRTREN; inline;
  88488. begin
  88489. pTDefRegMap(@Self)^.clr := $00000004;
  88490. end;
  88491. procedure TCAN1_C1FIFOCON28.setRTREN(thebits : TBits_1); inline;
  88492. begin
  88493. if thebits = 0 then
  88494. pTDefRegMap(@Self)^.clr := $00000004
  88495. else
  88496. pTDefRegMap(@Self)^.&set := $00000004;
  88497. end;
  88498. function TCAN1_C1FIFOCON28.getRTREN : TBits_1; inline;
  88499. begin
  88500. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  88501. end;
  88502. procedure TCAN1_C1FIFOCON28.setTXREQ; inline;
  88503. begin
  88504. pTDefRegMap(@Self)^.&set := $00000008;
  88505. end;
  88506. procedure TCAN1_C1FIFOCON28.clearTXREQ; inline;
  88507. begin
  88508. pTDefRegMap(@Self)^.clr := $00000008;
  88509. end;
  88510. procedure TCAN1_C1FIFOCON28.setTXREQ(thebits : TBits_1); inline;
  88511. begin
  88512. if thebits = 0 then
  88513. pTDefRegMap(@Self)^.clr := $00000008
  88514. else
  88515. pTDefRegMap(@Self)^.&set := $00000008;
  88516. end;
  88517. function TCAN1_C1FIFOCON28.getTXREQ : TBits_1; inline;
  88518. begin
  88519. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  88520. end;
  88521. procedure TCAN1_C1FIFOCON28.setTXERR; inline;
  88522. begin
  88523. pTDefRegMap(@Self)^.&set := $00000010;
  88524. end;
  88525. procedure TCAN1_C1FIFOCON28.clearTXERR; inline;
  88526. begin
  88527. pTDefRegMap(@Self)^.clr := $00000010;
  88528. end;
  88529. procedure TCAN1_C1FIFOCON28.setTXERR(thebits : TBits_1); inline;
  88530. begin
  88531. if thebits = 0 then
  88532. pTDefRegMap(@Self)^.clr := $00000010
  88533. else
  88534. pTDefRegMap(@Self)^.&set := $00000010;
  88535. end;
  88536. function TCAN1_C1FIFOCON28.getTXERR : TBits_1; inline;
  88537. begin
  88538. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  88539. end;
  88540. procedure TCAN1_C1FIFOCON28.setTXLARB; inline;
  88541. begin
  88542. pTDefRegMap(@Self)^.&set := $00000020;
  88543. end;
  88544. procedure TCAN1_C1FIFOCON28.clearTXLARB; inline;
  88545. begin
  88546. pTDefRegMap(@Self)^.clr := $00000020;
  88547. end;
  88548. procedure TCAN1_C1FIFOCON28.setTXLARB(thebits : TBits_1); inline;
  88549. begin
  88550. if thebits = 0 then
  88551. pTDefRegMap(@Self)^.clr := $00000020
  88552. else
  88553. pTDefRegMap(@Self)^.&set := $00000020;
  88554. end;
  88555. function TCAN1_C1FIFOCON28.getTXLARB : TBits_1; inline;
  88556. begin
  88557. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  88558. end;
  88559. procedure TCAN1_C1FIFOCON28.setTXABAT; inline;
  88560. begin
  88561. pTDefRegMap(@Self)^.&set := $00000040;
  88562. end;
  88563. procedure TCAN1_C1FIFOCON28.clearTXABAT; inline;
  88564. begin
  88565. pTDefRegMap(@Self)^.clr := $00000040;
  88566. end;
  88567. procedure TCAN1_C1FIFOCON28.setTXABAT(thebits : TBits_1); inline;
  88568. begin
  88569. if thebits = 0 then
  88570. pTDefRegMap(@Self)^.clr := $00000040
  88571. else
  88572. pTDefRegMap(@Self)^.&set := $00000040;
  88573. end;
  88574. function TCAN1_C1FIFOCON28.getTXABAT : TBits_1; inline;
  88575. begin
  88576. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  88577. end;
  88578. procedure TCAN1_C1FIFOCON28.setTXEN; inline;
  88579. begin
  88580. pTDefRegMap(@Self)^.&set := $00000080;
  88581. end;
  88582. procedure TCAN1_C1FIFOCON28.clearTXEN; inline;
  88583. begin
  88584. pTDefRegMap(@Self)^.clr := $00000080;
  88585. end;
  88586. procedure TCAN1_C1FIFOCON28.setTXEN(thebits : TBits_1); inline;
  88587. begin
  88588. if thebits = 0 then
  88589. pTDefRegMap(@Self)^.clr := $00000080
  88590. else
  88591. pTDefRegMap(@Self)^.&set := $00000080;
  88592. end;
  88593. function TCAN1_C1FIFOCON28.getTXEN : TBits_1; inline;
  88594. begin
  88595. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  88596. end;
  88597. procedure TCAN1_C1FIFOCON28.setDONLY; inline;
  88598. begin
  88599. pTDefRegMap(@Self)^.&set := $00001000;
  88600. end;
  88601. procedure TCAN1_C1FIFOCON28.clearDONLY; inline;
  88602. begin
  88603. pTDefRegMap(@Self)^.clr := $00001000;
  88604. end;
  88605. procedure TCAN1_C1FIFOCON28.setDONLY(thebits : TBits_1); inline;
  88606. begin
  88607. if thebits = 0 then
  88608. pTDefRegMap(@Self)^.clr := $00001000
  88609. else
  88610. pTDefRegMap(@Self)^.&set := $00001000;
  88611. end;
  88612. function TCAN1_C1FIFOCON28.getDONLY : TBits_1; inline;
  88613. begin
  88614. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  88615. end;
  88616. procedure TCAN1_C1FIFOCON28.setUINC; inline;
  88617. begin
  88618. pTDefRegMap(@Self)^.&set := $00002000;
  88619. end;
  88620. procedure TCAN1_C1FIFOCON28.clearUINC; inline;
  88621. begin
  88622. pTDefRegMap(@Self)^.clr := $00002000;
  88623. end;
  88624. procedure TCAN1_C1FIFOCON28.setUINC(thebits : TBits_1); inline;
  88625. begin
  88626. if thebits = 0 then
  88627. pTDefRegMap(@Self)^.clr := $00002000
  88628. else
  88629. pTDefRegMap(@Self)^.&set := $00002000;
  88630. end;
  88631. function TCAN1_C1FIFOCON28.getUINC : TBits_1; inline;
  88632. begin
  88633. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  88634. end;
  88635. procedure TCAN1_C1FIFOCON28.setFRESET; inline;
  88636. begin
  88637. pTDefRegMap(@Self)^.&set := $00004000;
  88638. end;
  88639. procedure TCAN1_C1FIFOCON28.clearFRESET; inline;
  88640. begin
  88641. pTDefRegMap(@Self)^.clr := $00004000;
  88642. end;
  88643. procedure TCAN1_C1FIFOCON28.setFRESET(thebits : TBits_1); inline;
  88644. begin
  88645. if thebits = 0 then
  88646. pTDefRegMap(@Self)^.clr := $00004000
  88647. else
  88648. pTDefRegMap(@Self)^.&set := $00004000;
  88649. end;
  88650. function TCAN1_C1FIFOCON28.getFRESET : TBits_1; inline;
  88651. begin
  88652. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  88653. end;
  88654. procedure TCAN1_C1FIFOCON28.setFSIZE(thebits : TBits_5); inline;
  88655. begin
  88656. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  88657. end;
  88658. function TCAN1_C1FIFOCON28.getFSIZE : TBits_5; inline;
  88659. begin
  88660. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  88661. end;
  88662. procedure TCAN1_C1FIFOCON28.setw(thebits : TBits_32); inline;
  88663. begin
  88664. pTDefRegMap(@Self)^.val := thebits;
  88665. end;
  88666. function TCAN1_C1FIFOCON28.getw : TBits_32; inline;
  88667. begin
  88668. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  88669. end;
  88670. procedure TCAN1_C1FIFOINT28.setRXNEMPTYIF; inline;
  88671. begin
  88672. pTDefRegMap(@Self)^.&set := $00000001;
  88673. end;
  88674. procedure TCAN1_C1FIFOINT28.clearRXNEMPTYIF; inline;
  88675. begin
  88676. pTDefRegMap(@Self)^.clr := $00000001;
  88677. end;
  88678. procedure TCAN1_C1FIFOINT28.setRXNEMPTYIF(thebits : TBits_1); inline;
  88679. begin
  88680. if thebits = 0 then
  88681. pTDefRegMap(@Self)^.clr := $00000001
  88682. else
  88683. pTDefRegMap(@Self)^.&set := $00000001;
  88684. end;
  88685. function TCAN1_C1FIFOINT28.getRXNEMPTYIF : TBits_1; inline;
  88686. begin
  88687. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  88688. end;
  88689. procedure TCAN1_C1FIFOINT28.setRXHALFIF; inline;
  88690. begin
  88691. pTDefRegMap(@Self)^.&set := $00000002;
  88692. end;
  88693. procedure TCAN1_C1FIFOINT28.clearRXHALFIF; inline;
  88694. begin
  88695. pTDefRegMap(@Self)^.clr := $00000002;
  88696. end;
  88697. procedure TCAN1_C1FIFOINT28.setRXHALFIF(thebits : TBits_1); inline;
  88698. begin
  88699. if thebits = 0 then
  88700. pTDefRegMap(@Self)^.clr := $00000002
  88701. else
  88702. pTDefRegMap(@Self)^.&set := $00000002;
  88703. end;
  88704. function TCAN1_C1FIFOINT28.getRXHALFIF : TBits_1; inline;
  88705. begin
  88706. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  88707. end;
  88708. procedure TCAN1_C1FIFOINT28.setRXFULLIF; inline;
  88709. begin
  88710. pTDefRegMap(@Self)^.&set := $00000004;
  88711. end;
  88712. procedure TCAN1_C1FIFOINT28.clearRXFULLIF; inline;
  88713. begin
  88714. pTDefRegMap(@Self)^.clr := $00000004;
  88715. end;
  88716. procedure TCAN1_C1FIFOINT28.setRXFULLIF(thebits : TBits_1); inline;
  88717. begin
  88718. if thebits = 0 then
  88719. pTDefRegMap(@Self)^.clr := $00000004
  88720. else
  88721. pTDefRegMap(@Self)^.&set := $00000004;
  88722. end;
  88723. function TCAN1_C1FIFOINT28.getRXFULLIF : TBits_1; inline;
  88724. begin
  88725. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  88726. end;
  88727. procedure TCAN1_C1FIFOINT28.setRXOVFLIF; inline;
  88728. begin
  88729. pTDefRegMap(@Self)^.&set := $00000008;
  88730. end;
  88731. procedure TCAN1_C1FIFOINT28.clearRXOVFLIF; inline;
  88732. begin
  88733. pTDefRegMap(@Self)^.clr := $00000008;
  88734. end;
  88735. procedure TCAN1_C1FIFOINT28.setRXOVFLIF(thebits : TBits_1); inline;
  88736. begin
  88737. if thebits = 0 then
  88738. pTDefRegMap(@Self)^.clr := $00000008
  88739. else
  88740. pTDefRegMap(@Self)^.&set := $00000008;
  88741. end;
  88742. function TCAN1_C1FIFOINT28.getRXOVFLIF : TBits_1; inline;
  88743. begin
  88744. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  88745. end;
  88746. procedure TCAN1_C1FIFOINT28.setTXEMPTYIF; inline;
  88747. begin
  88748. pTDefRegMap(@Self)^.&set := $00000100;
  88749. end;
  88750. procedure TCAN1_C1FIFOINT28.clearTXEMPTYIF; inline;
  88751. begin
  88752. pTDefRegMap(@Self)^.clr := $00000100;
  88753. end;
  88754. procedure TCAN1_C1FIFOINT28.setTXEMPTYIF(thebits : TBits_1); inline;
  88755. begin
  88756. if thebits = 0 then
  88757. pTDefRegMap(@Self)^.clr := $00000100
  88758. else
  88759. pTDefRegMap(@Self)^.&set := $00000100;
  88760. end;
  88761. function TCAN1_C1FIFOINT28.getTXEMPTYIF : TBits_1; inline;
  88762. begin
  88763. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  88764. end;
  88765. procedure TCAN1_C1FIFOINT28.setTXHALFIF; inline;
  88766. begin
  88767. pTDefRegMap(@Self)^.&set := $00000200;
  88768. end;
  88769. procedure TCAN1_C1FIFOINT28.clearTXHALFIF; inline;
  88770. begin
  88771. pTDefRegMap(@Self)^.clr := $00000200;
  88772. end;
  88773. procedure TCAN1_C1FIFOINT28.setTXHALFIF(thebits : TBits_1); inline;
  88774. begin
  88775. if thebits = 0 then
  88776. pTDefRegMap(@Self)^.clr := $00000200
  88777. else
  88778. pTDefRegMap(@Self)^.&set := $00000200;
  88779. end;
  88780. function TCAN1_C1FIFOINT28.getTXHALFIF : TBits_1; inline;
  88781. begin
  88782. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  88783. end;
  88784. procedure TCAN1_C1FIFOINT28.setTXNFULLIF; inline;
  88785. begin
  88786. pTDefRegMap(@Self)^.&set := $00000400;
  88787. end;
  88788. procedure TCAN1_C1FIFOINT28.clearTXNFULLIF; inline;
  88789. begin
  88790. pTDefRegMap(@Self)^.clr := $00000400;
  88791. end;
  88792. procedure TCAN1_C1FIFOINT28.setTXNFULLIF(thebits : TBits_1); inline;
  88793. begin
  88794. if thebits = 0 then
  88795. pTDefRegMap(@Self)^.clr := $00000400
  88796. else
  88797. pTDefRegMap(@Self)^.&set := $00000400;
  88798. end;
  88799. function TCAN1_C1FIFOINT28.getTXNFULLIF : TBits_1; inline;
  88800. begin
  88801. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  88802. end;
  88803. procedure TCAN1_C1FIFOINT28.setRXNEMPTYIE; inline;
  88804. begin
  88805. pTDefRegMap(@Self)^.&set := $00010000;
  88806. end;
  88807. procedure TCAN1_C1FIFOINT28.clearRXNEMPTYIE; inline;
  88808. begin
  88809. pTDefRegMap(@Self)^.clr := $00010000;
  88810. end;
  88811. procedure TCAN1_C1FIFOINT28.setRXNEMPTYIE(thebits : TBits_1); inline;
  88812. begin
  88813. if thebits = 0 then
  88814. pTDefRegMap(@Self)^.clr := $00010000
  88815. else
  88816. pTDefRegMap(@Self)^.&set := $00010000;
  88817. end;
  88818. function TCAN1_C1FIFOINT28.getRXNEMPTYIE : TBits_1; inline;
  88819. begin
  88820. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  88821. end;
  88822. procedure TCAN1_C1FIFOINT28.setRXHALFIE; inline;
  88823. begin
  88824. pTDefRegMap(@Self)^.&set := $00020000;
  88825. end;
  88826. procedure TCAN1_C1FIFOINT28.clearRXHALFIE; inline;
  88827. begin
  88828. pTDefRegMap(@Self)^.clr := $00020000;
  88829. end;
  88830. procedure TCAN1_C1FIFOINT28.setRXHALFIE(thebits : TBits_1); inline;
  88831. begin
  88832. if thebits = 0 then
  88833. pTDefRegMap(@Self)^.clr := $00020000
  88834. else
  88835. pTDefRegMap(@Self)^.&set := $00020000;
  88836. end;
  88837. function TCAN1_C1FIFOINT28.getRXHALFIE : TBits_1; inline;
  88838. begin
  88839. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  88840. end;
  88841. procedure TCAN1_C1FIFOINT28.setRXFULLIE; inline;
  88842. begin
  88843. pTDefRegMap(@Self)^.&set := $00040000;
  88844. end;
  88845. procedure TCAN1_C1FIFOINT28.clearRXFULLIE; inline;
  88846. begin
  88847. pTDefRegMap(@Self)^.clr := $00040000;
  88848. end;
  88849. procedure TCAN1_C1FIFOINT28.setRXFULLIE(thebits : TBits_1); inline;
  88850. begin
  88851. if thebits = 0 then
  88852. pTDefRegMap(@Self)^.clr := $00040000
  88853. else
  88854. pTDefRegMap(@Self)^.&set := $00040000;
  88855. end;
  88856. function TCAN1_C1FIFOINT28.getRXFULLIE : TBits_1; inline;
  88857. begin
  88858. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  88859. end;
  88860. procedure TCAN1_C1FIFOINT28.setRXOVFLIE; inline;
  88861. begin
  88862. pTDefRegMap(@Self)^.&set := $00080000;
  88863. end;
  88864. procedure TCAN1_C1FIFOINT28.clearRXOVFLIE; inline;
  88865. begin
  88866. pTDefRegMap(@Self)^.clr := $00080000;
  88867. end;
  88868. procedure TCAN1_C1FIFOINT28.setRXOVFLIE(thebits : TBits_1); inline;
  88869. begin
  88870. if thebits = 0 then
  88871. pTDefRegMap(@Self)^.clr := $00080000
  88872. else
  88873. pTDefRegMap(@Self)^.&set := $00080000;
  88874. end;
  88875. function TCAN1_C1FIFOINT28.getRXOVFLIE : TBits_1; inline;
  88876. begin
  88877. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  88878. end;
  88879. procedure TCAN1_C1FIFOINT28.setTXEMPTYIE; inline;
  88880. begin
  88881. pTDefRegMap(@Self)^.&set := $01000000;
  88882. end;
  88883. procedure TCAN1_C1FIFOINT28.clearTXEMPTYIE; inline;
  88884. begin
  88885. pTDefRegMap(@Self)^.clr := $01000000;
  88886. end;
  88887. procedure TCAN1_C1FIFOINT28.setTXEMPTYIE(thebits : TBits_1); inline;
  88888. begin
  88889. if thebits = 0 then
  88890. pTDefRegMap(@Self)^.clr := $01000000
  88891. else
  88892. pTDefRegMap(@Self)^.&set := $01000000;
  88893. end;
  88894. function TCAN1_C1FIFOINT28.getTXEMPTYIE : TBits_1; inline;
  88895. begin
  88896. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  88897. end;
  88898. procedure TCAN1_C1FIFOINT28.setTXHALFIE; inline;
  88899. begin
  88900. pTDefRegMap(@Self)^.&set := $02000000;
  88901. end;
  88902. procedure TCAN1_C1FIFOINT28.clearTXHALFIE; inline;
  88903. begin
  88904. pTDefRegMap(@Self)^.clr := $02000000;
  88905. end;
  88906. procedure TCAN1_C1FIFOINT28.setTXHALFIE(thebits : TBits_1); inline;
  88907. begin
  88908. if thebits = 0 then
  88909. pTDefRegMap(@Self)^.clr := $02000000
  88910. else
  88911. pTDefRegMap(@Self)^.&set := $02000000;
  88912. end;
  88913. function TCAN1_C1FIFOINT28.getTXHALFIE : TBits_1; inline;
  88914. begin
  88915. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  88916. end;
  88917. procedure TCAN1_C1FIFOINT28.setTXNFULLIE; inline;
  88918. begin
  88919. pTDefRegMap(@Self)^.&set := $04000000;
  88920. end;
  88921. procedure TCAN1_C1FIFOINT28.clearTXNFULLIE; inline;
  88922. begin
  88923. pTDefRegMap(@Self)^.clr := $04000000;
  88924. end;
  88925. procedure TCAN1_C1FIFOINT28.setTXNFULLIE(thebits : TBits_1); inline;
  88926. begin
  88927. if thebits = 0 then
  88928. pTDefRegMap(@Self)^.clr := $04000000
  88929. else
  88930. pTDefRegMap(@Self)^.&set := $04000000;
  88931. end;
  88932. function TCAN1_C1FIFOINT28.getTXNFULLIE : TBits_1; inline;
  88933. begin
  88934. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  88935. end;
  88936. procedure TCAN1_C1FIFOINT28.setw(thebits : TBits_32); inline;
  88937. begin
  88938. pTDefRegMap(@Self)^.val := thebits;
  88939. end;
  88940. function TCAN1_C1FIFOINT28.getw : TBits_32; inline;
  88941. begin
  88942. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  88943. end;
  88944. procedure TCAN1_C1FIFOCI28.setCFIFOCI(thebits : TBits_5); inline;
  88945. begin
  88946. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  88947. end;
  88948. function TCAN1_C1FIFOCI28.getCFIFOCI : TBits_5; inline;
  88949. begin
  88950. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  88951. end;
  88952. procedure TCAN1_C1FIFOCI28.setw(thebits : TBits_32); inline;
  88953. begin
  88954. pTDefRegMap(@Self)^.val := thebits;
  88955. end;
  88956. function TCAN1_C1FIFOCI28.getw : TBits_32; inline;
  88957. begin
  88958. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  88959. end;
  88960. procedure TCAN1_C1FIFOCON29.setTXPRI(thebits : TBits_2); inline;
  88961. begin
  88962. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  88963. end;
  88964. function TCAN1_C1FIFOCON29.getTXPRI : TBits_2; inline;
  88965. begin
  88966. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  88967. end;
  88968. procedure TCAN1_C1FIFOCON29.setRTREN; inline;
  88969. begin
  88970. pTDefRegMap(@Self)^.&set := $00000004;
  88971. end;
  88972. procedure TCAN1_C1FIFOCON29.clearRTREN; inline;
  88973. begin
  88974. pTDefRegMap(@Self)^.clr := $00000004;
  88975. end;
  88976. procedure TCAN1_C1FIFOCON29.setRTREN(thebits : TBits_1); inline;
  88977. begin
  88978. if thebits = 0 then
  88979. pTDefRegMap(@Self)^.clr := $00000004
  88980. else
  88981. pTDefRegMap(@Self)^.&set := $00000004;
  88982. end;
  88983. function TCAN1_C1FIFOCON29.getRTREN : TBits_1; inline;
  88984. begin
  88985. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  88986. end;
  88987. procedure TCAN1_C1FIFOCON29.setTXREQ; inline;
  88988. begin
  88989. pTDefRegMap(@Self)^.&set := $00000008;
  88990. end;
  88991. procedure TCAN1_C1FIFOCON29.clearTXREQ; inline;
  88992. begin
  88993. pTDefRegMap(@Self)^.clr := $00000008;
  88994. end;
  88995. procedure TCAN1_C1FIFOCON29.setTXREQ(thebits : TBits_1); inline;
  88996. begin
  88997. if thebits = 0 then
  88998. pTDefRegMap(@Self)^.clr := $00000008
  88999. else
  89000. pTDefRegMap(@Self)^.&set := $00000008;
  89001. end;
  89002. function TCAN1_C1FIFOCON29.getTXREQ : TBits_1; inline;
  89003. begin
  89004. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  89005. end;
  89006. procedure TCAN1_C1FIFOCON29.setTXERR; inline;
  89007. begin
  89008. pTDefRegMap(@Self)^.&set := $00000010;
  89009. end;
  89010. procedure TCAN1_C1FIFOCON29.clearTXERR; inline;
  89011. begin
  89012. pTDefRegMap(@Self)^.clr := $00000010;
  89013. end;
  89014. procedure TCAN1_C1FIFOCON29.setTXERR(thebits : TBits_1); inline;
  89015. begin
  89016. if thebits = 0 then
  89017. pTDefRegMap(@Self)^.clr := $00000010
  89018. else
  89019. pTDefRegMap(@Self)^.&set := $00000010;
  89020. end;
  89021. function TCAN1_C1FIFOCON29.getTXERR : TBits_1; inline;
  89022. begin
  89023. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  89024. end;
  89025. procedure TCAN1_C1FIFOCON29.setTXLARB; inline;
  89026. begin
  89027. pTDefRegMap(@Self)^.&set := $00000020;
  89028. end;
  89029. procedure TCAN1_C1FIFOCON29.clearTXLARB; inline;
  89030. begin
  89031. pTDefRegMap(@Self)^.clr := $00000020;
  89032. end;
  89033. procedure TCAN1_C1FIFOCON29.setTXLARB(thebits : TBits_1); inline;
  89034. begin
  89035. if thebits = 0 then
  89036. pTDefRegMap(@Self)^.clr := $00000020
  89037. else
  89038. pTDefRegMap(@Self)^.&set := $00000020;
  89039. end;
  89040. function TCAN1_C1FIFOCON29.getTXLARB : TBits_1; inline;
  89041. begin
  89042. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  89043. end;
  89044. procedure TCAN1_C1FIFOCON29.setTXABAT; inline;
  89045. begin
  89046. pTDefRegMap(@Self)^.&set := $00000040;
  89047. end;
  89048. procedure TCAN1_C1FIFOCON29.clearTXABAT; inline;
  89049. begin
  89050. pTDefRegMap(@Self)^.clr := $00000040;
  89051. end;
  89052. procedure TCAN1_C1FIFOCON29.setTXABAT(thebits : TBits_1); inline;
  89053. begin
  89054. if thebits = 0 then
  89055. pTDefRegMap(@Self)^.clr := $00000040
  89056. else
  89057. pTDefRegMap(@Self)^.&set := $00000040;
  89058. end;
  89059. function TCAN1_C1FIFOCON29.getTXABAT : TBits_1; inline;
  89060. begin
  89061. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  89062. end;
  89063. procedure TCAN1_C1FIFOCON29.setTXEN; inline;
  89064. begin
  89065. pTDefRegMap(@Self)^.&set := $00000080;
  89066. end;
  89067. procedure TCAN1_C1FIFOCON29.clearTXEN; inline;
  89068. begin
  89069. pTDefRegMap(@Self)^.clr := $00000080;
  89070. end;
  89071. procedure TCAN1_C1FIFOCON29.setTXEN(thebits : TBits_1); inline;
  89072. begin
  89073. if thebits = 0 then
  89074. pTDefRegMap(@Self)^.clr := $00000080
  89075. else
  89076. pTDefRegMap(@Self)^.&set := $00000080;
  89077. end;
  89078. function TCAN1_C1FIFOCON29.getTXEN : TBits_1; inline;
  89079. begin
  89080. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  89081. end;
  89082. procedure TCAN1_C1FIFOCON29.setDONLY; inline;
  89083. begin
  89084. pTDefRegMap(@Self)^.&set := $00001000;
  89085. end;
  89086. procedure TCAN1_C1FIFOCON29.clearDONLY; inline;
  89087. begin
  89088. pTDefRegMap(@Self)^.clr := $00001000;
  89089. end;
  89090. procedure TCAN1_C1FIFOCON29.setDONLY(thebits : TBits_1); inline;
  89091. begin
  89092. if thebits = 0 then
  89093. pTDefRegMap(@Self)^.clr := $00001000
  89094. else
  89095. pTDefRegMap(@Self)^.&set := $00001000;
  89096. end;
  89097. function TCAN1_C1FIFOCON29.getDONLY : TBits_1; inline;
  89098. begin
  89099. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  89100. end;
  89101. procedure TCAN1_C1FIFOCON29.setUINC; inline;
  89102. begin
  89103. pTDefRegMap(@Self)^.&set := $00002000;
  89104. end;
  89105. procedure TCAN1_C1FIFOCON29.clearUINC; inline;
  89106. begin
  89107. pTDefRegMap(@Self)^.clr := $00002000;
  89108. end;
  89109. procedure TCAN1_C1FIFOCON29.setUINC(thebits : TBits_1); inline;
  89110. begin
  89111. if thebits = 0 then
  89112. pTDefRegMap(@Self)^.clr := $00002000
  89113. else
  89114. pTDefRegMap(@Self)^.&set := $00002000;
  89115. end;
  89116. function TCAN1_C1FIFOCON29.getUINC : TBits_1; inline;
  89117. begin
  89118. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  89119. end;
  89120. procedure TCAN1_C1FIFOCON29.setFRESET; inline;
  89121. begin
  89122. pTDefRegMap(@Self)^.&set := $00004000;
  89123. end;
  89124. procedure TCAN1_C1FIFOCON29.clearFRESET; inline;
  89125. begin
  89126. pTDefRegMap(@Self)^.clr := $00004000;
  89127. end;
  89128. procedure TCAN1_C1FIFOCON29.setFRESET(thebits : TBits_1); inline;
  89129. begin
  89130. if thebits = 0 then
  89131. pTDefRegMap(@Self)^.clr := $00004000
  89132. else
  89133. pTDefRegMap(@Self)^.&set := $00004000;
  89134. end;
  89135. function TCAN1_C1FIFOCON29.getFRESET : TBits_1; inline;
  89136. begin
  89137. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  89138. end;
  89139. procedure TCAN1_C1FIFOCON29.setFSIZE(thebits : TBits_5); inline;
  89140. begin
  89141. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  89142. end;
  89143. function TCAN1_C1FIFOCON29.getFSIZE : TBits_5; inline;
  89144. begin
  89145. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  89146. end;
  89147. procedure TCAN1_C1FIFOCON29.setw(thebits : TBits_32); inline;
  89148. begin
  89149. pTDefRegMap(@Self)^.val := thebits;
  89150. end;
  89151. function TCAN1_C1FIFOCON29.getw : TBits_32; inline;
  89152. begin
  89153. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  89154. end;
  89155. procedure TCAN1_C1FIFOINT29.setRXNEMPTYIF; inline;
  89156. begin
  89157. pTDefRegMap(@Self)^.&set := $00000001;
  89158. end;
  89159. procedure TCAN1_C1FIFOINT29.clearRXNEMPTYIF; inline;
  89160. begin
  89161. pTDefRegMap(@Self)^.clr := $00000001;
  89162. end;
  89163. procedure TCAN1_C1FIFOINT29.setRXNEMPTYIF(thebits : TBits_1); inline;
  89164. begin
  89165. if thebits = 0 then
  89166. pTDefRegMap(@Self)^.clr := $00000001
  89167. else
  89168. pTDefRegMap(@Self)^.&set := $00000001;
  89169. end;
  89170. function TCAN1_C1FIFOINT29.getRXNEMPTYIF : TBits_1; inline;
  89171. begin
  89172. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  89173. end;
  89174. procedure TCAN1_C1FIFOINT29.setRXHALFIF; inline;
  89175. begin
  89176. pTDefRegMap(@Self)^.&set := $00000002;
  89177. end;
  89178. procedure TCAN1_C1FIFOINT29.clearRXHALFIF; inline;
  89179. begin
  89180. pTDefRegMap(@Self)^.clr := $00000002;
  89181. end;
  89182. procedure TCAN1_C1FIFOINT29.setRXHALFIF(thebits : TBits_1); inline;
  89183. begin
  89184. if thebits = 0 then
  89185. pTDefRegMap(@Self)^.clr := $00000002
  89186. else
  89187. pTDefRegMap(@Self)^.&set := $00000002;
  89188. end;
  89189. function TCAN1_C1FIFOINT29.getRXHALFIF : TBits_1; inline;
  89190. begin
  89191. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  89192. end;
  89193. procedure TCAN1_C1FIFOINT29.setRXFULLIF; inline;
  89194. begin
  89195. pTDefRegMap(@Self)^.&set := $00000004;
  89196. end;
  89197. procedure TCAN1_C1FIFOINT29.clearRXFULLIF; inline;
  89198. begin
  89199. pTDefRegMap(@Self)^.clr := $00000004;
  89200. end;
  89201. procedure TCAN1_C1FIFOINT29.setRXFULLIF(thebits : TBits_1); inline;
  89202. begin
  89203. if thebits = 0 then
  89204. pTDefRegMap(@Self)^.clr := $00000004
  89205. else
  89206. pTDefRegMap(@Self)^.&set := $00000004;
  89207. end;
  89208. function TCAN1_C1FIFOINT29.getRXFULLIF : TBits_1; inline;
  89209. begin
  89210. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  89211. end;
  89212. procedure TCAN1_C1FIFOINT29.setRXOVFLIF; inline;
  89213. begin
  89214. pTDefRegMap(@Self)^.&set := $00000008;
  89215. end;
  89216. procedure TCAN1_C1FIFOINT29.clearRXOVFLIF; inline;
  89217. begin
  89218. pTDefRegMap(@Self)^.clr := $00000008;
  89219. end;
  89220. procedure TCAN1_C1FIFOINT29.setRXOVFLIF(thebits : TBits_1); inline;
  89221. begin
  89222. if thebits = 0 then
  89223. pTDefRegMap(@Self)^.clr := $00000008
  89224. else
  89225. pTDefRegMap(@Self)^.&set := $00000008;
  89226. end;
  89227. function TCAN1_C1FIFOINT29.getRXOVFLIF : TBits_1; inline;
  89228. begin
  89229. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  89230. end;
  89231. procedure TCAN1_C1FIFOINT29.setTXEMPTYIF; inline;
  89232. begin
  89233. pTDefRegMap(@Self)^.&set := $00000100;
  89234. end;
  89235. procedure TCAN1_C1FIFOINT29.clearTXEMPTYIF; inline;
  89236. begin
  89237. pTDefRegMap(@Self)^.clr := $00000100;
  89238. end;
  89239. procedure TCAN1_C1FIFOINT29.setTXEMPTYIF(thebits : TBits_1); inline;
  89240. begin
  89241. if thebits = 0 then
  89242. pTDefRegMap(@Self)^.clr := $00000100
  89243. else
  89244. pTDefRegMap(@Self)^.&set := $00000100;
  89245. end;
  89246. function TCAN1_C1FIFOINT29.getTXEMPTYIF : TBits_1; inline;
  89247. begin
  89248. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  89249. end;
  89250. procedure TCAN1_C1FIFOINT29.setTXHALFIF; inline;
  89251. begin
  89252. pTDefRegMap(@Self)^.&set := $00000200;
  89253. end;
  89254. procedure TCAN1_C1FIFOINT29.clearTXHALFIF; inline;
  89255. begin
  89256. pTDefRegMap(@Self)^.clr := $00000200;
  89257. end;
  89258. procedure TCAN1_C1FIFOINT29.setTXHALFIF(thebits : TBits_1); inline;
  89259. begin
  89260. if thebits = 0 then
  89261. pTDefRegMap(@Self)^.clr := $00000200
  89262. else
  89263. pTDefRegMap(@Self)^.&set := $00000200;
  89264. end;
  89265. function TCAN1_C1FIFOINT29.getTXHALFIF : TBits_1; inline;
  89266. begin
  89267. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  89268. end;
  89269. procedure TCAN1_C1FIFOINT29.setTXNFULLIF; inline;
  89270. begin
  89271. pTDefRegMap(@Self)^.&set := $00000400;
  89272. end;
  89273. procedure TCAN1_C1FIFOINT29.clearTXNFULLIF; inline;
  89274. begin
  89275. pTDefRegMap(@Self)^.clr := $00000400;
  89276. end;
  89277. procedure TCAN1_C1FIFOINT29.setTXNFULLIF(thebits : TBits_1); inline;
  89278. begin
  89279. if thebits = 0 then
  89280. pTDefRegMap(@Self)^.clr := $00000400
  89281. else
  89282. pTDefRegMap(@Self)^.&set := $00000400;
  89283. end;
  89284. function TCAN1_C1FIFOINT29.getTXNFULLIF : TBits_1; inline;
  89285. begin
  89286. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  89287. end;
  89288. procedure TCAN1_C1FIFOINT29.setRXNEMPTYIE; inline;
  89289. begin
  89290. pTDefRegMap(@Self)^.&set := $00010000;
  89291. end;
  89292. procedure TCAN1_C1FIFOINT29.clearRXNEMPTYIE; inline;
  89293. begin
  89294. pTDefRegMap(@Self)^.clr := $00010000;
  89295. end;
  89296. procedure TCAN1_C1FIFOINT29.setRXNEMPTYIE(thebits : TBits_1); inline;
  89297. begin
  89298. if thebits = 0 then
  89299. pTDefRegMap(@Self)^.clr := $00010000
  89300. else
  89301. pTDefRegMap(@Self)^.&set := $00010000;
  89302. end;
  89303. function TCAN1_C1FIFOINT29.getRXNEMPTYIE : TBits_1; inline;
  89304. begin
  89305. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  89306. end;
  89307. procedure TCAN1_C1FIFOINT29.setRXHALFIE; inline;
  89308. begin
  89309. pTDefRegMap(@Self)^.&set := $00020000;
  89310. end;
  89311. procedure TCAN1_C1FIFOINT29.clearRXHALFIE; inline;
  89312. begin
  89313. pTDefRegMap(@Self)^.clr := $00020000;
  89314. end;
  89315. procedure TCAN1_C1FIFOINT29.setRXHALFIE(thebits : TBits_1); inline;
  89316. begin
  89317. if thebits = 0 then
  89318. pTDefRegMap(@Self)^.clr := $00020000
  89319. else
  89320. pTDefRegMap(@Self)^.&set := $00020000;
  89321. end;
  89322. function TCAN1_C1FIFOINT29.getRXHALFIE : TBits_1; inline;
  89323. begin
  89324. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  89325. end;
  89326. procedure TCAN1_C1FIFOINT29.setRXFULLIE; inline;
  89327. begin
  89328. pTDefRegMap(@Self)^.&set := $00040000;
  89329. end;
  89330. procedure TCAN1_C1FIFOINT29.clearRXFULLIE; inline;
  89331. begin
  89332. pTDefRegMap(@Self)^.clr := $00040000;
  89333. end;
  89334. procedure TCAN1_C1FIFOINT29.setRXFULLIE(thebits : TBits_1); inline;
  89335. begin
  89336. if thebits = 0 then
  89337. pTDefRegMap(@Self)^.clr := $00040000
  89338. else
  89339. pTDefRegMap(@Self)^.&set := $00040000;
  89340. end;
  89341. function TCAN1_C1FIFOINT29.getRXFULLIE : TBits_1; inline;
  89342. begin
  89343. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  89344. end;
  89345. procedure TCAN1_C1FIFOINT29.setRXOVFLIE; inline;
  89346. begin
  89347. pTDefRegMap(@Self)^.&set := $00080000;
  89348. end;
  89349. procedure TCAN1_C1FIFOINT29.clearRXOVFLIE; inline;
  89350. begin
  89351. pTDefRegMap(@Self)^.clr := $00080000;
  89352. end;
  89353. procedure TCAN1_C1FIFOINT29.setRXOVFLIE(thebits : TBits_1); inline;
  89354. begin
  89355. if thebits = 0 then
  89356. pTDefRegMap(@Self)^.clr := $00080000
  89357. else
  89358. pTDefRegMap(@Self)^.&set := $00080000;
  89359. end;
  89360. function TCAN1_C1FIFOINT29.getRXOVFLIE : TBits_1; inline;
  89361. begin
  89362. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  89363. end;
  89364. procedure TCAN1_C1FIFOINT29.setTXEMPTYIE; inline;
  89365. begin
  89366. pTDefRegMap(@Self)^.&set := $01000000;
  89367. end;
  89368. procedure TCAN1_C1FIFOINT29.clearTXEMPTYIE; inline;
  89369. begin
  89370. pTDefRegMap(@Self)^.clr := $01000000;
  89371. end;
  89372. procedure TCAN1_C1FIFOINT29.setTXEMPTYIE(thebits : TBits_1); inline;
  89373. begin
  89374. if thebits = 0 then
  89375. pTDefRegMap(@Self)^.clr := $01000000
  89376. else
  89377. pTDefRegMap(@Self)^.&set := $01000000;
  89378. end;
  89379. function TCAN1_C1FIFOINT29.getTXEMPTYIE : TBits_1; inline;
  89380. begin
  89381. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  89382. end;
  89383. procedure TCAN1_C1FIFOINT29.setTXHALFIE; inline;
  89384. begin
  89385. pTDefRegMap(@Self)^.&set := $02000000;
  89386. end;
  89387. procedure TCAN1_C1FIFOINT29.clearTXHALFIE; inline;
  89388. begin
  89389. pTDefRegMap(@Self)^.clr := $02000000;
  89390. end;
  89391. procedure TCAN1_C1FIFOINT29.setTXHALFIE(thebits : TBits_1); inline;
  89392. begin
  89393. if thebits = 0 then
  89394. pTDefRegMap(@Self)^.clr := $02000000
  89395. else
  89396. pTDefRegMap(@Self)^.&set := $02000000;
  89397. end;
  89398. function TCAN1_C1FIFOINT29.getTXHALFIE : TBits_1; inline;
  89399. begin
  89400. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  89401. end;
  89402. procedure TCAN1_C1FIFOINT29.setTXNFULLIE; inline;
  89403. begin
  89404. pTDefRegMap(@Self)^.&set := $04000000;
  89405. end;
  89406. procedure TCAN1_C1FIFOINT29.clearTXNFULLIE; inline;
  89407. begin
  89408. pTDefRegMap(@Self)^.clr := $04000000;
  89409. end;
  89410. procedure TCAN1_C1FIFOINT29.setTXNFULLIE(thebits : TBits_1); inline;
  89411. begin
  89412. if thebits = 0 then
  89413. pTDefRegMap(@Self)^.clr := $04000000
  89414. else
  89415. pTDefRegMap(@Self)^.&set := $04000000;
  89416. end;
  89417. function TCAN1_C1FIFOINT29.getTXNFULLIE : TBits_1; inline;
  89418. begin
  89419. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  89420. end;
  89421. procedure TCAN1_C1FIFOINT29.setw(thebits : TBits_32); inline;
  89422. begin
  89423. pTDefRegMap(@Self)^.val := thebits;
  89424. end;
  89425. function TCAN1_C1FIFOINT29.getw : TBits_32; inline;
  89426. begin
  89427. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  89428. end;
  89429. procedure TCAN1_C1FIFOCI29.setCFIFOCI(thebits : TBits_5); inline;
  89430. begin
  89431. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  89432. end;
  89433. function TCAN1_C1FIFOCI29.getCFIFOCI : TBits_5; inline;
  89434. begin
  89435. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  89436. end;
  89437. procedure TCAN1_C1FIFOCI29.setw(thebits : TBits_32); inline;
  89438. begin
  89439. pTDefRegMap(@Self)^.val := thebits;
  89440. end;
  89441. function TCAN1_C1FIFOCI29.getw : TBits_32; inline;
  89442. begin
  89443. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  89444. end;
  89445. procedure TCAN1_C1FIFOCON30.setTXPRI(thebits : TBits_2); inline;
  89446. begin
  89447. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  89448. end;
  89449. function TCAN1_C1FIFOCON30.getTXPRI : TBits_2; inline;
  89450. begin
  89451. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  89452. end;
  89453. procedure TCAN1_C1FIFOCON30.setRTREN; inline;
  89454. begin
  89455. pTDefRegMap(@Self)^.&set := $00000004;
  89456. end;
  89457. procedure TCAN1_C1FIFOCON30.clearRTREN; inline;
  89458. begin
  89459. pTDefRegMap(@Self)^.clr := $00000004;
  89460. end;
  89461. procedure TCAN1_C1FIFOCON30.setRTREN(thebits : TBits_1); inline;
  89462. begin
  89463. if thebits = 0 then
  89464. pTDefRegMap(@Self)^.clr := $00000004
  89465. else
  89466. pTDefRegMap(@Self)^.&set := $00000004;
  89467. end;
  89468. function TCAN1_C1FIFOCON30.getRTREN : TBits_1; inline;
  89469. begin
  89470. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  89471. end;
  89472. procedure TCAN1_C1FIFOCON30.setTXREQ; inline;
  89473. begin
  89474. pTDefRegMap(@Self)^.&set := $00000008;
  89475. end;
  89476. procedure TCAN1_C1FIFOCON30.clearTXREQ; inline;
  89477. begin
  89478. pTDefRegMap(@Self)^.clr := $00000008;
  89479. end;
  89480. procedure TCAN1_C1FIFOCON30.setTXREQ(thebits : TBits_1); inline;
  89481. begin
  89482. if thebits = 0 then
  89483. pTDefRegMap(@Self)^.clr := $00000008
  89484. else
  89485. pTDefRegMap(@Self)^.&set := $00000008;
  89486. end;
  89487. function TCAN1_C1FIFOCON30.getTXREQ : TBits_1; inline;
  89488. begin
  89489. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  89490. end;
  89491. procedure TCAN1_C1FIFOCON30.setTXERR; inline;
  89492. begin
  89493. pTDefRegMap(@Self)^.&set := $00000010;
  89494. end;
  89495. procedure TCAN1_C1FIFOCON30.clearTXERR; inline;
  89496. begin
  89497. pTDefRegMap(@Self)^.clr := $00000010;
  89498. end;
  89499. procedure TCAN1_C1FIFOCON30.setTXERR(thebits : TBits_1); inline;
  89500. begin
  89501. if thebits = 0 then
  89502. pTDefRegMap(@Self)^.clr := $00000010
  89503. else
  89504. pTDefRegMap(@Self)^.&set := $00000010;
  89505. end;
  89506. function TCAN1_C1FIFOCON30.getTXERR : TBits_1; inline;
  89507. begin
  89508. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  89509. end;
  89510. procedure TCAN1_C1FIFOCON30.setTXLARB; inline;
  89511. begin
  89512. pTDefRegMap(@Self)^.&set := $00000020;
  89513. end;
  89514. procedure TCAN1_C1FIFOCON30.clearTXLARB; inline;
  89515. begin
  89516. pTDefRegMap(@Self)^.clr := $00000020;
  89517. end;
  89518. procedure TCAN1_C1FIFOCON30.setTXLARB(thebits : TBits_1); inline;
  89519. begin
  89520. if thebits = 0 then
  89521. pTDefRegMap(@Self)^.clr := $00000020
  89522. else
  89523. pTDefRegMap(@Self)^.&set := $00000020;
  89524. end;
  89525. function TCAN1_C1FIFOCON30.getTXLARB : TBits_1; inline;
  89526. begin
  89527. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  89528. end;
  89529. procedure TCAN1_C1FIFOCON30.setTXABAT; inline;
  89530. begin
  89531. pTDefRegMap(@Self)^.&set := $00000040;
  89532. end;
  89533. procedure TCAN1_C1FIFOCON30.clearTXABAT; inline;
  89534. begin
  89535. pTDefRegMap(@Self)^.clr := $00000040;
  89536. end;
  89537. procedure TCAN1_C1FIFOCON30.setTXABAT(thebits : TBits_1); inline;
  89538. begin
  89539. if thebits = 0 then
  89540. pTDefRegMap(@Self)^.clr := $00000040
  89541. else
  89542. pTDefRegMap(@Self)^.&set := $00000040;
  89543. end;
  89544. function TCAN1_C1FIFOCON30.getTXABAT : TBits_1; inline;
  89545. begin
  89546. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  89547. end;
  89548. procedure TCAN1_C1FIFOCON30.setTXEN; inline;
  89549. begin
  89550. pTDefRegMap(@Self)^.&set := $00000080;
  89551. end;
  89552. procedure TCAN1_C1FIFOCON30.clearTXEN; inline;
  89553. begin
  89554. pTDefRegMap(@Self)^.clr := $00000080;
  89555. end;
  89556. procedure TCAN1_C1FIFOCON30.setTXEN(thebits : TBits_1); inline;
  89557. begin
  89558. if thebits = 0 then
  89559. pTDefRegMap(@Self)^.clr := $00000080
  89560. else
  89561. pTDefRegMap(@Self)^.&set := $00000080;
  89562. end;
  89563. function TCAN1_C1FIFOCON30.getTXEN : TBits_1; inline;
  89564. begin
  89565. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  89566. end;
  89567. procedure TCAN1_C1FIFOCON30.setDONLY; inline;
  89568. begin
  89569. pTDefRegMap(@Self)^.&set := $00001000;
  89570. end;
  89571. procedure TCAN1_C1FIFOCON30.clearDONLY; inline;
  89572. begin
  89573. pTDefRegMap(@Self)^.clr := $00001000;
  89574. end;
  89575. procedure TCAN1_C1FIFOCON30.setDONLY(thebits : TBits_1); inline;
  89576. begin
  89577. if thebits = 0 then
  89578. pTDefRegMap(@Self)^.clr := $00001000
  89579. else
  89580. pTDefRegMap(@Self)^.&set := $00001000;
  89581. end;
  89582. function TCAN1_C1FIFOCON30.getDONLY : TBits_1; inline;
  89583. begin
  89584. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  89585. end;
  89586. procedure TCAN1_C1FIFOCON30.setUINC; inline;
  89587. begin
  89588. pTDefRegMap(@Self)^.&set := $00002000;
  89589. end;
  89590. procedure TCAN1_C1FIFOCON30.clearUINC; inline;
  89591. begin
  89592. pTDefRegMap(@Self)^.clr := $00002000;
  89593. end;
  89594. procedure TCAN1_C1FIFOCON30.setUINC(thebits : TBits_1); inline;
  89595. begin
  89596. if thebits = 0 then
  89597. pTDefRegMap(@Self)^.clr := $00002000
  89598. else
  89599. pTDefRegMap(@Self)^.&set := $00002000;
  89600. end;
  89601. function TCAN1_C1FIFOCON30.getUINC : TBits_1; inline;
  89602. begin
  89603. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  89604. end;
  89605. procedure TCAN1_C1FIFOCON30.setFRESET; inline;
  89606. begin
  89607. pTDefRegMap(@Self)^.&set := $00004000;
  89608. end;
  89609. procedure TCAN1_C1FIFOCON30.clearFRESET; inline;
  89610. begin
  89611. pTDefRegMap(@Self)^.clr := $00004000;
  89612. end;
  89613. procedure TCAN1_C1FIFOCON30.setFRESET(thebits : TBits_1); inline;
  89614. begin
  89615. if thebits = 0 then
  89616. pTDefRegMap(@Self)^.clr := $00004000
  89617. else
  89618. pTDefRegMap(@Self)^.&set := $00004000;
  89619. end;
  89620. function TCAN1_C1FIFOCON30.getFRESET : TBits_1; inline;
  89621. begin
  89622. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  89623. end;
  89624. procedure TCAN1_C1FIFOCON30.setFSIZE(thebits : TBits_5); inline;
  89625. begin
  89626. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  89627. end;
  89628. function TCAN1_C1FIFOCON30.getFSIZE : TBits_5; inline;
  89629. begin
  89630. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  89631. end;
  89632. procedure TCAN1_C1FIFOCON30.setw(thebits : TBits_32); inline;
  89633. begin
  89634. pTDefRegMap(@Self)^.val := thebits;
  89635. end;
  89636. function TCAN1_C1FIFOCON30.getw : TBits_32; inline;
  89637. begin
  89638. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  89639. end;
  89640. procedure TCAN1_C1FIFOINT30.setRXNEMPTYIF; inline;
  89641. begin
  89642. pTDefRegMap(@Self)^.&set := $00000001;
  89643. end;
  89644. procedure TCAN1_C1FIFOINT30.clearRXNEMPTYIF; inline;
  89645. begin
  89646. pTDefRegMap(@Self)^.clr := $00000001;
  89647. end;
  89648. procedure TCAN1_C1FIFOINT30.setRXNEMPTYIF(thebits : TBits_1); inline;
  89649. begin
  89650. if thebits = 0 then
  89651. pTDefRegMap(@Self)^.clr := $00000001
  89652. else
  89653. pTDefRegMap(@Self)^.&set := $00000001;
  89654. end;
  89655. function TCAN1_C1FIFOINT30.getRXNEMPTYIF : TBits_1; inline;
  89656. begin
  89657. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  89658. end;
  89659. procedure TCAN1_C1FIFOINT30.setRXHALFIF; inline;
  89660. begin
  89661. pTDefRegMap(@Self)^.&set := $00000002;
  89662. end;
  89663. procedure TCAN1_C1FIFOINT30.clearRXHALFIF; inline;
  89664. begin
  89665. pTDefRegMap(@Self)^.clr := $00000002;
  89666. end;
  89667. procedure TCAN1_C1FIFOINT30.setRXHALFIF(thebits : TBits_1); inline;
  89668. begin
  89669. if thebits = 0 then
  89670. pTDefRegMap(@Self)^.clr := $00000002
  89671. else
  89672. pTDefRegMap(@Self)^.&set := $00000002;
  89673. end;
  89674. function TCAN1_C1FIFOINT30.getRXHALFIF : TBits_1; inline;
  89675. begin
  89676. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  89677. end;
  89678. procedure TCAN1_C1FIFOINT30.setRXFULLIF; inline;
  89679. begin
  89680. pTDefRegMap(@Self)^.&set := $00000004;
  89681. end;
  89682. procedure TCAN1_C1FIFOINT30.clearRXFULLIF; inline;
  89683. begin
  89684. pTDefRegMap(@Self)^.clr := $00000004;
  89685. end;
  89686. procedure TCAN1_C1FIFOINT30.setRXFULLIF(thebits : TBits_1); inline;
  89687. begin
  89688. if thebits = 0 then
  89689. pTDefRegMap(@Self)^.clr := $00000004
  89690. else
  89691. pTDefRegMap(@Self)^.&set := $00000004;
  89692. end;
  89693. function TCAN1_C1FIFOINT30.getRXFULLIF : TBits_1; inline;
  89694. begin
  89695. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  89696. end;
  89697. procedure TCAN1_C1FIFOINT30.setRXOVFLIF; inline;
  89698. begin
  89699. pTDefRegMap(@Self)^.&set := $00000008;
  89700. end;
  89701. procedure TCAN1_C1FIFOINT30.clearRXOVFLIF; inline;
  89702. begin
  89703. pTDefRegMap(@Self)^.clr := $00000008;
  89704. end;
  89705. procedure TCAN1_C1FIFOINT30.setRXOVFLIF(thebits : TBits_1); inline;
  89706. begin
  89707. if thebits = 0 then
  89708. pTDefRegMap(@Self)^.clr := $00000008
  89709. else
  89710. pTDefRegMap(@Self)^.&set := $00000008;
  89711. end;
  89712. function TCAN1_C1FIFOINT30.getRXOVFLIF : TBits_1; inline;
  89713. begin
  89714. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  89715. end;
  89716. procedure TCAN1_C1FIFOINT30.setTXEMPTYIF; inline;
  89717. begin
  89718. pTDefRegMap(@Self)^.&set := $00000100;
  89719. end;
  89720. procedure TCAN1_C1FIFOINT30.clearTXEMPTYIF; inline;
  89721. begin
  89722. pTDefRegMap(@Self)^.clr := $00000100;
  89723. end;
  89724. procedure TCAN1_C1FIFOINT30.setTXEMPTYIF(thebits : TBits_1); inline;
  89725. begin
  89726. if thebits = 0 then
  89727. pTDefRegMap(@Self)^.clr := $00000100
  89728. else
  89729. pTDefRegMap(@Self)^.&set := $00000100;
  89730. end;
  89731. function TCAN1_C1FIFOINT30.getTXEMPTYIF : TBits_1; inline;
  89732. begin
  89733. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  89734. end;
  89735. procedure TCAN1_C1FIFOINT30.setTXHALFIF; inline;
  89736. begin
  89737. pTDefRegMap(@Self)^.&set := $00000200;
  89738. end;
  89739. procedure TCAN1_C1FIFOINT30.clearTXHALFIF; inline;
  89740. begin
  89741. pTDefRegMap(@Self)^.clr := $00000200;
  89742. end;
  89743. procedure TCAN1_C1FIFOINT30.setTXHALFIF(thebits : TBits_1); inline;
  89744. begin
  89745. if thebits = 0 then
  89746. pTDefRegMap(@Self)^.clr := $00000200
  89747. else
  89748. pTDefRegMap(@Self)^.&set := $00000200;
  89749. end;
  89750. function TCAN1_C1FIFOINT30.getTXHALFIF : TBits_1; inline;
  89751. begin
  89752. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  89753. end;
  89754. procedure TCAN1_C1FIFOINT30.setTXNFULLIF; inline;
  89755. begin
  89756. pTDefRegMap(@Self)^.&set := $00000400;
  89757. end;
  89758. procedure TCAN1_C1FIFOINT30.clearTXNFULLIF; inline;
  89759. begin
  89760. pTDefRegMap(@Self)^.clr := $00000400;
  89761. end;
  89762. procedure TCAN1_C1FIFOINT30.setTXNFULLIF(thebits : TBits_1); inline;
  89763. begin
  89764. if thebits = 0 then
  89765. pTDefRegMap(@Self)^.clr := $00000400
  89766. else
  89767. pTDefRegMap(@Self)^.&set := $00000400;
  89768. end;
  89769. function TCAN1_C1FIFOINT30.getTXNFULLIF : TBits_1; inline;
  89770. begin
  89771. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  89772. end;
  89773. procedure TCAN1_C1FIFOINT30.setRXNEMPTYIE; inline;
  89774. begin
  89775. pTDefRegMap(@Self)^.&set := $00010000;
  89776. end;
  89777. procedure TCAN1_C1FIFOINT30.clearRXNEMPTYIE; inline;
  89778. begin
  89779. pTDefRegMap(@Self)^.clr := $00010000;
  89780. end;
  89781. procedure TCAN1_C1FIFOINT30.setRXNEMPTYIE(thebits : TBits_1); inline;
  89782. begin
  89783. if thebits = 0 then
  89784. pTDefRegMap(@Self)^.clr := $00010000
  89785. else
  89786. pTDefRegMap(@Self)^.&set := $00010000;
  89787. end;
  89788. function TCAN1_C1FIFOINT30.getRXNEMPTYIE : TBits_1; inline;
  89789. begin
  89790. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  89791. end;
  89792. procedure TCAN1_C1FIFOINT30.setRXHALFIE; inline;
  89793. begin
  89794. pTDefRegMap(@Self)^.&set := $00020000;
  89795. end;
  89796. procedure TCAN1_C1FIFOINT30.clearRXHALFIE; inline;
  89797. begin
  89798. pTDefRegMap(@Self)^.clr := $00020000;
  89799. end;
  89800. procedure TCAN1_C1FIFOINT30.setRXHALFIE(thebits : TBits_1); inline;
  89801. begin
  89802. if thebits = 0 then
  89803. pTDefRegMap(@Self)^.clr := $00020000
  89804. else
  89805. pTDefRegMap(@Self)^.&set := $00020000;
  89806. end;
  89807. function TCAN1_C1FIFOINT30.getRXHALFIE : TBits_1; inline;
  89808. begin
  89809. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  89810. end;
  89811. procedure TCAN1_C1FIFOINT30.setRXFULLIE; inline;
  89812. begin
  89813. pTDefRegMap(@Self)^.&set := $00040000;
  89814. end;
  89815. procedure TCAN1_C1FIFOINT30.clearRXFULLIE; inline;
  89816. begin
  89817. pTDefRegMap(@Self)^.clr := $00040000;
  89818. end;
  89819. procedure TCAN1_C1FIFOINT30.setRXFULLIE(thebits : TBits_1); inline;
  89820. begin
  89821. if thebits = 0 then
  89822. pTDefRegMap(@Self)^.clr := $00040000
  89823. else
  89824. pTDefRegMap(@Self)^.&set := $00040000;
  89825. end;
  89826. function TCAN1_C1FIFOINT30.getRXFULLIE : TBits_1; inline;
  89827. begin
  89828. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  89829. end;
  89830. procedure TCAN1_C1FIFOINT30.setRXOVFLIE; inline;
  89831. begin
  89832. pTDefRegMap(@Self)^.&set := $00080000;
  89833. end;
  89834. procedure TCAN1_C1FIFOINT30.clearRXOVFLIE; inline;
  89835. begin
  89836. pTDefRegMap(@Self)^.clr := $00080000;
  89837. end;
  89838. procedure TCAN1_C1FIFOINT30.setRXOVFLIE(thebits : TBits_1); inline;
  89839. begin
  89840. if thebits = 0 then
  89841. pTDefRegMap(@Self)^.clr := $00080000
  89842. else
  89843. pTDefRegMap(@Self)^.&set := $00080000;
  89844. end;
  89845. function TCAN1_C1FIFOINT30.getRXOVFLIE : TBits_1; inline;
  89846. begin
  89847. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  89848. end;
  89849. procedure TCAN1_C1FIFOINT30.setTXEMPTYIE; inline;
  89850. begin
  89851. pTDefRegMap(@Self)^.&set := $01000000;
  89852. end;
  89853. procedure TCAN1_C1FIFOINT30.clearTXEMPTYIE; inline;
  89854. begin
  89855. pTDefRegMap(@Self)^.clr := $01000000;
  89856. end;
  89857. procedure TCAN1_C1FIFOINT30.setTXEMPTYIE(thebits : TBits_1); inline;
  89858. begin
  89859. if thebits = 0 then
  89860. pTDefRegMap(@Self)^.clr := $01000000
  89861. else
  89862. pTDefRegMap(@Self)^.&set := $01000000;
  89863. end;
  89864. function TCAN1_C1FIFOINT30.getTXEMPTYIE : TBits_1; inline;
  89865. begin
  89866. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  89867. end;
  89868. procedure TCAN1_C1FIFOINT30.setTXHALFIE; inline;
  89869. begin
  89870. pTDefRegMap(@Self)^.&set := $02000000;
  89871. end;
  89872. procedure TCAN1_C1FIFOINT30.clearTXHALFIE; inline;
  89873. begin
  89874. pTDefRegMap(@Self)^.clr := $02000000;
  89875. end;
  89876. procedure TCAN1_C1FIFOINT30.setTXHALFIE(thebits : TBits_1); inline;
  89877. begin
  89878. if thebits = 0 then
  89879. pTDefRegMap(@Self)^.clr := $02000000
  89880. else
  89881. pTDefRegMap(@Self)^.&set := $02000000;
  89882. end;
  89883. function TCAN1_C1FIFOINT30.getTXHALFIE : TBits_1; inline;
  89884. begin
  89885. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  89886. end;
  89887. procedure TCAN1_C1FIFOINT30.setTXNFULLIE; inline;
  89888. begin
  89889. pTDefRegMap(@Self)^.&set := $04000000;
  89890. end;
  89891. procedure TCAN1_C1FIFOINT30.clearTXNFULLIE; inline;
  89892. begin
  89893. pTDefRegMap(@Self)^.clr := $04000000;
  89894. end;
  89895. procedure TCAN1_C1FIFOINT30.setTXNFULLIE(thebits : TBits_1); inline;
  89896. begin
  89897. if thebits = 0 then
  89898. pTDefRegMap(@Self)^.clr := $04000000
  89899. else
  89900. pTDefRegMap(@Self)^.&set := $04000000;
  89901. end;
  89902. function TCAN1_C1FIFOINT30.getTXNFULLIE : TBits_1; inline;
  89903. begin
  89904. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  89905. end;
  89906. procedure TCAN1_C1FIFOINT30.setw(thebits : TBits_32); inline;
  89907. begin
  89908. pTDefRegMap(@Self)^.val := thebits;
  89909. end;
  89910. function TCAN1_C1FIFOINT30.getw : TBits_32; inline;
  89911. begin
  89912. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  89913. end;
  89914. procedure TCAN1_C1FIFOCI30.setCFIFOCI(thebits : TBits_5); inline;
  89915. begin
  89916. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  89917. end;
  89918. function TCAN1_C1FIFOCI30.getCFIFOCI : TBits_5; inline;
  89919. begin
  89920. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  89921. end;
  89922. procedure TCAN1_C1FIFOCI30.setw(thebits : TBits_32); inline;
  89923. begin
  89924. pTDefRegMap(@Self)^.val := thebits;
  89925. end;
  89926. function TCAN1_C1FIFOCI30.getw : TBits_32; inline;
  89927. begin
  89928. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  89929. end;
  89930. procedure TCAN1_C1FIFOCON31.setTXPRI(thebits : TBits_2); inline;
  89931. begin
  89932. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  89933. end;
  89934. function TCAN1_C1FIFOCON31.getTXPRI : TBits_2; inline;
  89935. begin
  89936. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  89937. end;
  89938. procedure TCAN1_C1FIFOCON31.setRTREN; inline;
  89939. begin
  89940. pTDefRegMap(@Self)^.&set := $00000004;
  89941. end;
  89942. procedure TCAN1_C1FIFOCON31.clearRTREN; inline;
  89943. begin
  89944. pTDefRegMap(@Self)^.clr := $00000004;
  89945. end;
  89946. procedure TCAN1_C1FIFOCON31.setRTREN(thebits : TBits_1); inline;
  89947. begin
  89948. if thebits = 0 then
  89949. pTDefRegMap(@Self)^.clr := $00000004
  89950. else
  89951. pTDefRegMap(@Self)^.&set := $00000004;
  89952. end;
  89953. function TCAN1_C1FIFOCON31.getRTREN : TBits_1; inline;
  89954. begin
  89955. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  89956. end;
  89957. procedure TCAN1_C1FIFOCON31.setTXREQ; inline;
  89958. begin
  89959. pTDefRegMap(@Self)^.&set := $00000008;
  89960. end;
  89961. procedure TCAN1_C1FIFOCON31.clearTXREQ; inline;
  89962. begin
  89963. pTDefRegMap(@Self)^.clr := $00000008;
  89964. end;
  89965. procedure TCAN1_C1FIFOCON31.setTXREQ(thebits : TBits_1); inline;
  89966. begin
  89967. if thebits = 0 then
  89968. pTDefRegMap(@Self)^.clr := $00000008
  89969. else
  89970. pTDefRegMap(@Self)^.&set := $00000008;
  89971. end;
  89972. function TCAN1_C1FIFOCON31.getTXREQ : TBits_1; inline;
  89973. begin
  89974. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  89975. end;
  89976. procedure TCAN1_C1FIFOCON31.setTXERR; inline;
  89977. begin
  89978. pTDefRegMap(@Self)^.&set := $00000010;
  89979. end;
  89980. procedure TCAN1_C1FIFOCON31.clearTXERR; inline;
  89981. begin
  89982. pTDefRegMap(@Self)^.clr := $00000010;
  89983. end;
  89984. procedure TCAN1_C1FIFOCON31.setTXERR(thebits : TBits_1); inline;
  89985. begin
  89986. if thebits = 0 then
  89987. pTDefRegMap(@Self)^.clr := $00000010
  89988. else
  89989. pTDefRegMap(@Self)^.&set := $00000010;
  89990. end;
  89991. function TCAN1_C1FIFOCON31.getTXERR : TBits_1; inline;
  89992. begin
  89993. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  89994. end;
  89995. procedure TCAN1_C1FIFOCON31.setTXLARB; inline;
  89996. begin
  89997. pTDefRegMap(@Self)^.&set := $00000020;
  89998. end;
  89999. procedure TCAN1_C1FIFOCON31.clearTXLARB; inline;
  90000. begin
  90001. pTDefRegMap(@Self)^.clr := $00000020;
  90002. end;
  90003. procedure TCAN1_C1FIFOCON31.setTXLARB(thebits : TBits_1); inline;
  90004. begin
  90005. if thebits = 0 then
  90006. pTDefRegMap(@Self)^.clr := $00000020
  90007. else
  90008. pTDefRegMap(@Self)^.&set := $00000020;
  90009. end;
  90010. function TCAN1_C1FIFOCON31.getTXLARB : TBits_1; inline;
  90011. begin
  90012. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  90013. end;
  90014. procedure TCAN1_C1FIFOCON31.setTXABAT; inline;
  90015. begin
  90016. pTDefRegMap(@Self)^.&set := $00000040;
  90017. end;
  90018. procedure TCAN1_C1FIFOCON31.clearTXABAT; inline;
  90019. begin
  90020. pTDefRegMap(@Self)^.clr := $00000040;
  90021. end;
  90022. procedure TCAN1_C1FIFOCON31.setTXABAT(thebits : TBits_1); inline;
  90023. begin
  90024. if thebits = 0 then
  90025. pTDefRegMap(@Self)^.clr := $00000040
  90026. else
  90027. pTDefRegMap(@Self)^.&set := $00000040;
  90028. end;
  90029. function TCAN1_C1FIFOCON31.getTXABAT : TBits_1; inline;
  90030. begin
  90031. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  90032. end;
  90033. procedure TCAN1_C1FIFOCON31.setTXEN; inline;
  90034. begin
  90035. pTDefRegMap(@Self)^.&set := $00000080;
  90036. end;
  90037. procedure TCAN1_C1FIFOCON31.clearTXEN; inline;
  90038. begin
  90039. pTDefRegMap(@Self)^.clr := $00000080;
  90040. end;
  90041. procedure TCAN1_C1FIFOCON31.setTXEN(thebits : TBits_1); inline;
  90042. begin
  90043. if thebits = 0 then
  90044. pTDefRegMap(@Self)^.clr := $00000080
  90045. else
  90046. pTDefRegMap(@Self)^.&set := $00000080;
  90047. end;
  90048. function TCAN1_C1FIFOCON31.getTXEN : TBits_1; inline;
  90049. begin
  90050. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  90051. end;
  90052. procedure TCAN1_C1FIFOCON31.setDONLY; inline;
  90053. begin
  90054. pTDefRegMap(@Self)^.&set := $00001000;
  90055. end;
  90056. procedure TCAN1_C1FIFOCON31.clearDONLY; inline;
  90057. begin
  90058. pTDefRegMap(@Self)^.clr := $00001000;
  90059. end;
  90060. procedure TCAN1_C1FIFOCON31.setDONLY(thebits : TBits_1); inline;
  90061. begin
  90062. if thebits = 0 then
  90063. pTDefRegMap(@Self)^.clr := $00001000
  90064. else
  90065. pTDefRegMap(@Self)^.&set := $00001000;
  90066. end;
  90067. function TCAN1_C1FIFOCON31.getDONLY : TBits_1; inline;
  90068. begin
  90069. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  90070. end;
  90071. procedure TCAN1_C1FIFOCON31.setUINC; inline;
  90072. begin
  90073. pTDefRegMap(@Self)^.&set := $00002000;
  90074. end;
  90075. procedure TCAN1_C1FIFOCON31.clearUINC; inline;
  90076. begin
  90077. pTDefRegMap(@Self)^.clr := $00002000;
  90078. end;
  90079. procedure TCAN1_C1FIFOCON31.setUINC(thebits : TBits_1); inline;
  90080. begin
  90081. if thebits = 0 then
  90082. pTDefRegMap(@Self)^.clr := $00002000
  90083. else
  90084. pTDefRegMap(@Self)^.&set := $00002000;
  90085. end;
  90086. function TCAN1_C1FIFOCON31.getUINC : TBits_1; inline;
  90087. begin
  90088. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  90089. end;
  90090. procedure TCAN1_C1FIFOCON31.setFRESET; inline;
  90091. begin
  90092. pTDefRegMap(@Self)^.&set := $00004000;
  90093. end;
  90094. procedure TCAN1_C1FIFOCON31.clearFRESET; inline;
  90095. begin
  90096. pTDefRegMap(@Self)^.clr := $00004000;
  90097. end;
  90098. procedure TCAN1_C1FIFOCON31.setFRESET(thebits : TBits_1); inline;
  90099. begin
  90100. if thebits = 0 then
  90101. pTDefRegMap(@Self)^.clr := $00004000
  90102. else
  90103. pTDefRegMap(@Self)^.&set := $00004000;
  90104. end;
  90105. function TCAN1_C1FIFOCON31.getFRESET : TBits_1; inline;
  90106. begin
  90107. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  90108. end;
  90109. procedure TCAN1_C1FIFOCON31.setFSIZE(thebits : TBits_5); inline;
  90110. begin
  90111. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  90112. end;
  90113. function TCAN1_C1FIFOCON31.getFSIZE : TBits_5; inline;
  90114. begin
  90115. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  90116. end;
  90117. procedure TCAN1_C1FIFOCON31.setw(thebits : TBits_32); inline;
  90118. begin
  90119. pTDefRegMap(@Self)^.val := thebits;
  90120. end;
  90121. function TCAN1_C1FIFOCON31.getw : TBits_32; inline;
  90122. begin
  90123. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  90124. end;
  90125. procedure TCAN1_C1FIFOINT31.setRXNEMPTYIF; inline;
  90126. begin
  90127. pTDefRegMap(@Self)^.&set := $00000001;
  90128. end;
  90129. procedure TCAN1_C1FIFOINT31.clearRXNEMPTYIF; inline;
  90130. begin
  90131. pTDefRegMap(@Self)^.clr := $00000001;
  90132. end;
  90133. procedure TCAN1_C1FIFOINT31.setRXNEMPTYIF(thebits : TBits_1); inline;
  90134. begin
  90135. if thebits = 0 then
  90136. pTDefRegMap(@Self)^.clr := $00000001
  90137. else
  90138. pTDefRegMap(@Self)^.&set := $00000001;
  90139. end;
  90140. function TCAN1_C1FIFOINT31.getRXNEMPTYIF : TBits_1; inline;
  90141. begin
  90142. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  90143. end;
  90144. procedure TCAN1_C1FIFOINT31.setRXHALFIF; inline;
  90145. begin
  90146. pTDefRegMap(@Self)^.&set := $00000002;
  90147. end;
  90148. procedure TCAN1_C1FIFOINT31.clearRXHALFIF; inline;
  90149. begin
  90150. pTDefRegMap(@Self)^.clr := $00000002;
  90151. end;
  90152. procedure TCAN1_C1FIFOINT31.setRXHALFIF(thebits : TBits_1); inline;
  90153. begin
  90154. if thebits = 0 then
  90155. pTDefRegMap(@Self)^.clr := $00000002
  90156. else
  90157. pTDefRegMap(@Self)^.&set := $00000002;
  90158. end;
  90159. function TCAN1_C1FIFOINT31.getRXHALFIF : TBits_1; inline;
  90160. begin
  90161. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  90162. end;
  90163. procedure TCAN1_C1FIFOINT31.setRXFULLIF; inline;
  90164. begin
  90165. pTDefRegMap(@Self)^.&set := $00000004;
  90166. end;
  90167. procedure TCAN1_C1FIFOINT31.clearRXFULLIF; inline;
  90168. begin
  90169. pTDefRegMap(@Self)^.clr := $00000004;
  90170. end;
  90171. procedure TCAN1_C1FIFOINT31.setRXFULLIF(thebits : TBits_1); inline;
  90172. begin
  90173. if thebits = 0 then
  90174. pTDefRegMap(@Self)^.clr := $00000004
  90175. else
  90176. pTDefRegMap(@Self)^.&set := $00000004;
  90177. end;
  90178. function TCAN1_C1FIFOINT31.getRXFULLIF : TBits_1; inline;
  90179. begin
  90180. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  90181. end;
  90182. procedure TCAN1_C1FIFOINT31.setRXOVFLIF; inline;
  90183. begin
  90184. pTDefRegMap(@Self)^.&set := $00000008;
  90185. end;
  90186. procedure TCAN1_C1FIFOINT31.clearRXOVFLIF; inline;
  90187. begin
  90188. pTDefRegMap(@Self)^.clr := $00000008;
  90189. end;
  90190. procedure TCAN1_C1FIFOINT31.setRXOVFLIF(thebits : TBits_1); inline;
  90191. begin
  90192. if thebits = 0 then
  90193. pTDefRegMap(@Self)^.clr := $00000008
  90194. else
  90195. pTDefRegMap(@Self)^.&set := $00000008;
  90196. end;
  90197. function TCAN1_C1FIFOINT31.getRXOVFLIF : TBits_1; inline;
  90198. begin
  90199. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  90200. end;
  90201. procedure TCAN1_C1FIFOINT31.setTXEMPTYIF; inline;
  90202. begin
  90203. pTDefRegMap(@Self)^.&set := $00000100;
  90204. end;
  90205. procedure TCAN1_C1FIFOINT31.clearTXEMPTYIF; inline;
  90206. begin
  90207. pTDefRegMap(@Self)^.clr := $00000100;
  90208. end;
  90209. procedure TCAN1_C1FIFOINT31.setTXEMPTYIF(thebits : TBits_1); inline;
  90210. begin
  90211. if thebits = 0 then
  90212. pTDefRegMap(@Self)^.clr := $00000100
  90213. else
  90214. pTDefRegMap(@Self)^.&set := $00000100;
  90215. end;
  90216. function TCAN1_C1FIFOINT31.getTXEMPTYIF : TBits_1; inline;
  90217. begin
  90218. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  90219. end;
  90220. procedure TCAN1_C1FIFOINT31.setTXHALFIF; inline;
  90221. begin
  90222. pTDefRegMap(@Self)^.&set := $00000200;
  90223. end;
  90224. procedure TCAN1_C1FIFOINT31.clearTXHALFIF; inline;
  90225. begin
  90226. pTDefRegMap(@Self)^.clr := $00000200;
  90227. end;
  90228. procedure TCAN1_C1FIFOINT31.setTXHALFIF(thebits : TBits_1); inline;
  90229. begin
  90230. if thebits = 0 then
  90231. pTDefRegMap(@Self)^.clr := $00000200
  90232. else
  90233. pTDefRegMap(@Self)^.&set := $00000200;
  90234. end;
  90235. function TCAN1_C1FIFOINT31.getTXHALFIF : TBits_1; inline;
  90236. begin
  90237. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  90238. end;
  90239. procedure TCAN1_C1FIFOINT31.setTXNFULLIF; inline;
  90240. begin
  90241. pTDefRegMap(@Self)^.&set := $00000400;
  90242. end;
  90243. procedure TCAN1_C1FIFOINT31.clearTXNFULLIF; inline;
  90244. begin
  90245. pTDefRegMap(@Self)^.clr := $00000400;
  90246. end;
  90247. procedure TCAN1_C1FIFOINT31.setTXNFULLIF(thebits : TBits_1); inline;
  90248. begin
  90249. if thebits = 0 then
  90250. pTDefRegMap(@Self)^.clr := $00000400
  90251. else
  90252. pTDefRegMap(@Self)^.&set := $00000400;
  90253. end;
  90254. function TCAN1_C1FIFOINT31.getTXNFULLIF : TBits_1; inline;
  90255. begin
  90256. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  90257. end;
  90258. procedure TCAN1_C1FIFOINT31.setRXNEMPTYIE; inline;
  90259. begin
  90260. pTDefRegMap(@Self)^.&set := $00010000;
  90261. end;
  90262. procedure TCAN1_C1FIFOINT31.clearRXNEMPTYIE; inline;
  90263. begin
  90264. pTDefRegMap(@Self)^.clr := $00010000;
  90265. end;
  90266. procedure TCAN1_C1FIFOINT31.setRXNEMPTYIE(thebits : TBits_1); inline;
  90267. begin
  90268. if thebits = 0 then
  90269. pTDefRegMap(@Self)^.clr := $00010000
  90270. else
  90271. pTDefRegMap(@Self)^.&set := $00010000;
  90272. end;
  90273. function TCAN1_C1FIFOINT31.getRXNEMPTYIE : TBits_1; inline;
  90274. begin
  90275. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  90276. end;
  90277. procedure TCAN1_C1FIFOINT31.setRXHALFIE; inline;
  90278. begin
  90279. pTDefRegMap(@Self)^.&set := $00020000;
  90280. end;
  90281. procedure TCAN1_C1FIFOINT31.clearRXHALFIE; inline;
  90282. begin
  90283. pTDefRegMap(@Self)^.clr := $00020000;
  90284. end;
  90285. procedure TCAN1_C1FIFOINT31.setRXHALFIE(thebits : TBits_1); inline;
  90286. begin
  90287. if thebits = 0 then
  90288. pTDefRegMap(@Self)^.clr := $00020000
  90289. else
  90290. pTDefRegMap(@Self)^.&set := $00020000;
  90291. end;
  90292. function TCAN1_C1FIFOINT31.getRXHALFIE : TBits_1; inline;
  90293. begin
  90294. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  90295. end;
  90296. procedure TCAN1_C1FIFOINT31.setRXFULLIE; inline;
  90297. begin
  90298. pTDefRegMap(@Self)^.&set := $00040000;
  90299. end;
  90300. procedure TCAN1_C1FIFOINT31.clearRXFULLIE; inline;
  90301. begin
  90302. pTDefRegMap(@Self)^.clr := $00040000;
  90303. end;
  90304. procedure TCAN1_C1FIFOINT31.setRXFULLIE(thebits : TBits_1); inline;
  90305. begin
  90306. if thebits = 0 then
  90307. pTDefRegMap(@Self)^.clr := $00040000
  90308. else
  90309. pTDefRegMap(@Self)^.&set := $00040000;
  90310. end;
  90311. function TCAN1_C1FIFOINT31.getRXFULLIE : TBits_1; inline;
  90312. begin
  90313. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  90314. end;
  90315. procedure TCAN1_C1FIFOINT31.setRXOVFLIE; inline;
  90316. begin
  90317. pTDefRegMap(@Self)^.&set := $00080000;
  90318. end;
  90319. procedure TCAN1_C1FIFOINT31.clearRXOVFLIE; inline;
  90320. begin
  90321. pTDefRegMap(@Self)^.clr := $00080000;
  90322. end;
  90323. procedure TCAN1_C1FIFOINT31.setRXOVFLIE(thebits : TBits_1); inline;
  90324. begin
  90325. if thebits = 0 then
  90326. pTDefRegMap(@Self)^.clr := $00080000
  90327. else
  90328. pTDefRegMap(@Self)^.&set := $00080000;
  90329. end;
  90330. function TCAN1_C1FIFOINT31.getRXOVFLIE : TBits_1; inline;
  90331. begin
  90332. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  90333. end;
  90334. procedure TCAN1_C1FIFOINT31.setTXEMPTYIE; inline;
  90335. begin
  90336. pTDefRegMap(@Self)^.&set := $01000000;
  90337. end;
  90338. procedure TCAN1_C1FIFOINT31.clearTXEMPTYIE; inline;
  90339. begin
  90340. pTDefRegMap(@Self)^.clr := $01000000;
  90341. end;
  90342. procedure TCAN1_C1FIFOINT31.setTXEMPTYIE(thebits : TBits_1); inline;
  90343. begin
  90344. if thebits = 0 then
  90345. pTDefRegMap(@Self)^.clr := $01000000
  90346. else
  90347. pTDefRegMap(@Self)^.&set := $01000000;
  90348. end;
  90349. function TCAN1_C1FIFOINT31.getTXEMPTYIE : TBits_1; inline;
  90350. begin
  90351. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  90352. end;
  90353. procedure TCAN1_C1FIFOINT31.setTXHALFIE; inline;
  90354. begin
  90355. pTDefRegMap(@Self)^.&set := $02000000;
  90356. end;
  90357. procedure TCAN1_C1FIFOINT31.clearTXHALFIE; inline;
  90358. begin
  90359. pTDefRegMap(@Self)^.clr := $02000000;
  90360. end;
  90361. procedure TCAN1_C1FIFOINT31.setTXHALFIE(thebits : TBits_1); inline;
  90362. begin
  90363. if thebits = 0 then
  90364. pTDefRegMap(@Self)^.clr := $02000000
  90365. else
  90366. pTDefRegMap(@Self)^.&set := $02000000;
  90367. end;
  90368. function TCAN1_C1FIFOINT31.getTXHALFIE : TBits_1; inline;
  90369. begin
  90370. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  90371. end;
  90372. procedure TCAN1_C1FIFOINT31.setTXNFULLIE; inline;
  90373. begin
  90374. pTDefRegMap(@Self)^.&set := $04000000;
  90375. end;
  90376. procedure TCAN1_C1FIFOINT31.clearTXNFULLIE; inline;
  90377. begin
  90378. pTDefRegMap(@Self)^.clr := $04000000;
  90379. end;
  90380. procedure TCAN1_C1FIFOINT31.setTXNFULLIE(thebits : TBits_1); inline;
  90381. begin
  90382. if thebits = 0 then
  90383. pTDefRegMap(@Self)^.clr := $04000000
  90384. else
  90385. pTDefRegMap(@Self)^.&set := $04000000;
  90386. end;
  90387. function TCAN1_C1FIFOINT31.getTXNFULLIE : TBits_1; inline;
  90388. begin
  90389. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  90390. end;
  90391. procedure TCAN1_C1FIFOINT31.setw(thebits : TBits_32); inline;
  90392. begin
  90393. pTDefRegMap(@Self)^.val := thebits;
  90394. end;
  90395. function TCAN1_C1FIFOINT31.getw : TBits_32; inline;
  90396. begin
  90397. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  90398. end;
  90399. procedure TCAN1_C1FIFOCI31.setCFIFOCI(thebits : TBits_5); inline;
  90400. begin
  90401. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  90402. end;
  90403. function TCAN1_C1FIFOCI31.getCFIFOCI : TBits_5; inline;
  90404. begin
  90405. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  90406. end;
  90407. procedure TCAN1_C1FIFOCI31.setw(thebits : TBits_32); inline;
  90408. begin
  90409. pTDefRegMap(@Self)^.val := thebits;
  90410. end;
  90411. function TCAN1_C1FIFOCI31.getw : TBits_32; inline;
  90412. begin
  90413. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  90414. end;
  90415. procedure TDEVCFG_DEVCFG3.setUSERID(thebits : TBits_16); inline;
  90416. begin
  90417. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  90418. end;
  90419. function TDEVCFG_DEVCFG3.getUSERID : TBits_16; inline;
  90420. begin
  90421. getUSERID := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  90422. end;
  90423. procedure TDEVCFG_DEVCFG3.setFSRSSEL(thebits : TBits_3); inline;
  90424. begin
  90425. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
  90426. end;
  90427. function TDEVCFG_DEVCFG3.getFSRSSEL : TBits_3; inline;
  90428. begin
  90429. getFSRSSEL := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
  90430. end;
  90431. procedure TDEVCFG_DEVCFG3.setFMIIEN; inline;
  90432. begin
  90433. pTDefRegMap(@Self)^.&set := $01000000;
  90434. end;
  90435. procedure TDEVCFG_DEVCFG3.clearFMIIEN; inline;
  90436. begin
  90437. pTDefRegMap(@Self)^.clr := $01000000;
  90438. end;
  90439. procedure TDEVCFG_DEVCFG3.setFMIIEN(thebits : TBits_1); inline;
  90440. begin
  90441. if thebits = 0 then
  90442. pTDefRegMap(@Self)^.clr := $01000000
  90443. else
  90444. pTDefRegMap(@Self)^.&set := $01000000;
  90445. end;
  90446. function TDEVCFG_DEVCFG3.getFMIIEN : TBits_1; inline;
  90447. begin
  90448. getFMIIEN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  90449. end;
  90450. procedure TDEVCFG_DEVCFG3.setFETHIO; inline;
  90451. begin
  90452. pTDefRegMap(@Self)^.&set := $02000000;
  90453. end;
  90454. procedure TDEVCFG_DEVCFG3.clearFETHIO; inline;
  90455. begin
  90456. pTDefRegMap(@Self)^.clr := $02000000;
  90457. end;
  90458. procedure TDEVCFG_DEVCFG3.setFETHIO(thebits : TBits_1); inline;
  90459. begin
  90460. if thebits = 0 then
  90461. pTDefRegMap(@Self)^.clr := $02000000
  90462. else
  90463. pTDefRegMap(@Self)^.&set := $02000000;
  90464. end;
  90465. function TDEVCFG_DEVCFG3.getFETHIO : TBits_1; inline;
  90466. begin
  90467. getFETHIO := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  90468. end;
  90469. procedure TDEVCFG_DEVCFG3.setFCANIO; inline;
  90470. begin
  90471. pTDefRegMap(@Self)^.&set := $04000000;
  90472. end;
  90473. procedure TDEVCFG_DEVCFG3.clearFCANIO; inline;
  90474. begin
  90475. pTDefRegMap(@Self)^.clr := $04000000;
  90476. end;
  90477. procedure TDEVCFG_DEVCFG3.setFCANIO(thebits : TBits_1); inline;
  90478. begin
  90479. if thebits = 0 then
  90480. pTDefRegMap(@Self)^.clr := $04000000
  90481. else
  90482. pTDefRegMap(@Self)^.&set := $04000000;
  90483. end;
  90484. function TDEVCFG_DEVCFG3.getFCANIO : TBits_1; inline;
  90485. begin
  90486. getFCANIO := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  90487. end;
  90488. procedure TDEVCFG_DEVCFG3.setFUSBIDIO; inline;
  90489. begin
  90490. pTDefRegMap(@Self)^.&set := $40000000;
  90491. end;
  90492. procedure TDEVCFG_DEVCFG3.clearFUSBIDIO; inline;
  90493. begin
  90494. pTDefRegMap(@Self)^.clr := $40000000;
  90495. end;
  90496. procedure TDEVCFG_DEVCFG3.setFUSBIDIO(thebits : TBits_1); inline;
  90497. begin
  90498. if thebits = 0 then
  90499. pTDefRegMap(@Self)^.clr := $40000000
  90500. else
  90501. pTDefRegMap(@Self)^.&set := $40000000;
  90502. end;
  90503. function TDEVCFG_DEVCFG3.getFUSBIDIO : TBits_1; inline;
  90504. begin
  90505. getFUSBIDIO := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  90506. end;
  90507. procedure TDEVCFG_DEVCFG3.setFVBUSONIO; inline;
  90508. begin
  90509. pTDefRegMap(@Self)^.&set := $80000000;
  90510. end;
  90511. procedure TDEVCFG_DEVCFG3.clearFVBUSONIO; inline;
  90512. begin
  90513. pTDefRegMap(@Self)^.clr := $80000000;
  90514. end;
  90515. procedure TDEVCFG_DEVCFG3.setFVBUSONIO(thebits : TBits_1); inline;
  90516. begin
  90517. if thebits = 0 then
  90518. pTDefRegMap(@Self)^.clr := $80000000
  90519. else
  90520. pTDefRegMap(@Self)^.&set := $80000000;
  90521. end;
  90522. function TDEVCFG_DEVCFG3.getFVBUSONIO : TBits_1; inline;
  90523. begin
  90524. getFVBUSONIO := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  90525. end;
  90526. procedure TDEVCFG_DEVCFG3.setw(thebits : TBits_32); inline;
  90527. begin
  90528. pTDefRegMap(@Self)^.val := thebits;
  90529. end;
  90530. function TDEVCFG_DEVCFG3.getw : TBits_32; inline;
  90531. begin
  90532. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  90533. end;
  90534. procedure TDEVCFG_DEVCFG2.setFPLLIDIV(thebits : TBits_3); inline;
  90535. begin
  90536. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  90537. end;
  90538. function TDEVCFG_DEVCFG2.getFPLLIDIV : TBits_3; inline;
  90539. begin
  90540. getFPLLIDIV := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  90541. end;
  90542. procedure TDEVCFG_DEVCFG2.setFPLLMUL(thebits : TBits_3); inline;
  90543. begin
  90544. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  90545. end;
  90546. function TDEVCFG_DEVCFG2.getFPLLMUL : TBits_3; inline;
  90547. begin
  90548. getFPLLMUL := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  90549. end;
  90550. procedure TDEVCFG_DEVCFG2.setUPLLIDIV(thebits : TBits_3); inline;
  90551. begin
  90552. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  90553. end;
  90554. function TDEVCFG_DEVCFG2.getUPLLIDIV : TBits_3; inline;
  90555. begin
  90556. getUPLLIDIV := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  90557. end;
  90558. procedure TDEVCFG_DEVCFG2.setUPLLEN; inline;
  90559. begin
  90560. pTDefRegMap(@Self)^.&set := $00008000;
  90561. end;
  90562. procedure TDEVCFG_DEVCFG2.clearUPLLEN; inline;
  90563. begin
  90564. pTDefRegMap(@Self)^.clr := $00008000;
  90565. end;
  90566. procedure TDEVCFG_DEVCFG2.setUPLLEN(thebits : TBits_1); inline;
  90567. begin
  90568. if thebits = 0 then
  90569. pTDefRegMap(@Self)^.clr := $00008000
  90570. else
  90571. pTDefRegMap(@Self)^.&set := $00008000;
  90572. end;
  90573. function TDEVCFG_DEVCFG2.getUPLLEN : TBits_1; inline;
  90574. begin
  90575. getUPLLEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  90576. end;
  90577. procedure TDEVCFG_DEVCFG2.setFPLLODIV(thebits : TBits_3); inline;
  90578. begin
  90579. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
  90580. end;
  90581. function TDEVCFG_DEVCFG2.getFPLLODIV : TBits_3; inline;
  90582. begin
  90583. getFPLLODIV := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
  90584. end;
  90585. procedure TDEVCFG_DEVCFG2.setw(thebits : TBits_32); inline;
  90586. begin
  90587. pTDefRegMap(@Self)^.val := thebits;
  90588. end;
  90589. function TDEVCFG_DEVCFG2.getw : TBits_32; inline;
  90590. begin
  90591. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  90592. end;
  90593. procedure TDEVCFG_DEVCFG1.setFNOSC(thebits : TBits_3); inline;
  90594. begin
  90595. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  90596. end;
  90597. function TDEVCFG_DEVCFG1.getFNOSC : TBits_3; inline;
  90598. begin
  90599. getFNOSC := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  90600. end;
  90601. procedure TDEVCFG_DEVCFG1.setFSOSCEN; inline;
  90602. begin
  90603. pTDefRegMap(@Self)^.&set := $00000020;
  90604. end;
  90605. procedure TDEVCFG_DEVCFG1.clearFSOSCEN; inline;
  90606. begin
  90607. pTDefRegMap(@Self)^.clr := $00000020;
  90608. end;
  90609. procedure TDEVCFG_DEVCFG1.setFSOSCEN(thebits : TBits_1); inline;
  90610. begin
  90611. if thebits = 0 then
  90612. pTDefRegMap(@Self)^.clr := $00000020
  90613. else
  90614. pTDefRegMap(@Self)^.&set := $00000020;
  90615. end;
  90616. function TDEVCFG_DEVCFG1.getFSOSCEN : TBits_1; inline;
  90617. begin
  90618. getFSOSCEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  90619. end;
  90620. procedure TDEVCFG_DEVCFG1.setIESO; inline;
  90621. begin
  90622. pTDefRegMap(@Self)^.&set := $00000080;
  90623. end;
  90624. procedure TDEVCFG_DEVCFG1.clearIESO; inline;
  90625. begin
  90626. pTDefRegMap(@Self)^.clr := $00000080;
  90627. end;
  90628. procedure TDEVCFG_DEVCFG1.setIESO(thebits : TBits_1); inline;
  90629. begin
  90630. if thebits = 0 then
  90631. pTDefRegMap(@Self)^.clr := $00000080
  90632. else
  90633. pTDefRegMap(@Self)^.&set := $00000080;
  90634. end;
  90635. function TDEVCFG_DEVCFG1.getIESO : TBits_1; inline;
  90636. begin
  90637. getIESO := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  90638. end;
  90639. procedure TDEVCFG_DEVCFG1.setPOSCMOD(thebits : TBits_2); inline;
  90640. begin
  90641. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  90642. end;
  90643. function TDEVCFG_DEVCFG1.getPOSCMOD : TBits_2; inline;
  90644. begin
  90645. getPOSCMOD := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  90646. end;
  90647. procedure TDEVCFG_DEVCFG1.setOSCIOFNC; inline;
  90648. begin
  90649. pTDefRegMap(@Self)^.&set := $00000400;
  90650. end;
  90651. procedure TDEVCFG_DEVCFG1.clearOSCIOFNC; inline;
  90652. begin
  90653. pTDefRegMap(@Self)^.clr := $00000400;
  90654. end;
  90655. procedure TDEVCFG_DEVCFG1.setOSCIOFNC(thebits : TBits_1); inline;
  90656. begin
  90657. if thebits = 0 then
  90658. pTDefRegMap(@Self)^.clr := $00000400
  90659. else
  90660. pTDefRegMap(@Self)^.&set := $00000400;
  90661. end;
  90662. function TDEVCFG_DEVCFG1.getOSCIOFNC : TBits_1; inline;
  90663. begin
  90664. getOSCIOFNC := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  90665. end;
  90666. procedure TDEVCFG_DEVCFG1.setFPBDIV(thebits : TBits_2); inline;
  90667. begin
  90668. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFCFFF or ( thebits shl 12 );
  90669. end;
  90670. function TDEVCFG_DEVCFG1.getFPBDIV : TBits_2; inline;
  90671. begin
  90672. getFPBDIV := (pTDefRegMap(@Self)^.val and $00003000) shr 12;
  90673. end;
  90674. procedure TDEVCFG_DEVCFG1.setFCKSM(thebits : TBits_2); inline;
  90675. begin
  90676. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  90677. end;
  90678. function TDEVCFG_DEVCFG1.getFCKSM : TBits_2; inline;
  90679. begin
  90680. getFCKSM := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  90681. end;
  90682. procedure TDEVCFG_DEVCFG1.setWDTPS(thebits : TBits_5); inline;
  90683. begin
  90684. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  90685. end;
  90686. function TDEVCFG_DEVCFG1.getWDTPS : TBits_5; inline;
  90687. begin
  90688. getWDTPS := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  90689. end;
  90690. procedure TDEVCFG_DEVCFG1.setFWDTEN; inline;
  90691. begin
  90692. pTDefRegMap(@Self)^.&set := $00800000;
  90693. end;
  90694. procedure TDEVCFG_DEVCFG1.clearFWDTEN; inline;
  90695. begin
  90696. pTDefRegMap(@Self)^.clr := $00800000;
  90697. end;
  90698. procedure TDEVCFG_DEVCFG1.setFWDTEN(thebits : TBits_1); inline;
  90699. begin
  90700. if thebits = 0 then
  90701. pTDefRegMap(@Self)^.clr := $00800000
  90702. else
  90703. pTDefRegMap(@Self)^.&set := $00800000;
  90704. end;
  90705. function TDEVCFG_DEVCFG1.getFWDTEN : TBits_1; inline;
  90706. begin
  90707. getFWDTEN := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  90708. end;
  90709. procedure TDEVCFG_DEVCFG1.setw(thebits : TBits_32); inline;
  90710. begin
  90711. pTDefRegMap(@Self)^.val := thebits;
  90712. end;
  90713. function TDEVCFG_DEVCFG1.getw : TBits_32; inline;
  90714. begin
  90715. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  90716. end;
  90717. procedure TDEVCFG_DEVCFG0.setDEBUG(thebits : TBits_2); inline;
  90718. begin
  90719. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  90720. end;
  90721. function TDEVCFG_DEVCFG0.getDEBUG : TBits_2; inline;
  90722. begin
  90723. getDEBUG := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  90724. end;
  90725. procedure TDEVCFG_DEVCFG0.setICESEL; inline;
  90726. begin
  90727. pTDefRegMap(@Self)^.&set := $00000008;
  90728. end;
  90729. procedure TDEVCFG_DEVCFG0.clearICESEL; inline;
  90730. begin
  90731. pTDefRegMap(@Self)^.clr := $00000008;
  90732. end;
  90733. procedure TDEVCFG_DEVCFG0.setICESEL(thebits : TBits_1); inline;
  90734. begin
  90735. if thebits = 0 then
  90736. pTDefRegMap(@Self)^.clr := $00000008
  90737. else
  90738. pTDefRegMap(@Self)^.&set := $00000008;
  90739. end;
  90740. function TDEVCFG_DEVCFG0.getICESEL : TBits_1; inline;
  90741. begin
  90742. getICESEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  90743. end;
  90744. procedure TDEVCFG_DEVCFG0.setPWP(thebits : TBits_8); inline;
  90745. begin
  90746. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF00FFF or ( thebits shl 12 );
  90747. end;
  90748. function TDEVCFG_DEVCFG0.getPWP : TBits_8; inline;
  90749. begin
  90750. getPWP := (pTDefRegMap(@Self)^.val and $000FF000) shr 12;
  90751. end;
  90752. procedure TDEVCFG_DEVCFG0.setBWP; inline;
  90753. begin
  90754. pTDefRegMap(@Self)^.&set := $01000000;
  90755. end;
  90756. procedure TDEVCFG_DEVCFG0.clearBWP; inline;
  90757. begin
  90758. pTDefRegMap(@Self)^.clr := $01000000;
  90759. end;
  90760. procedure TDEVCFG_DEVCFG0.setBWP(thebits : TBits_1); inline;
  90761. begin
  90762. if thebits = 0 then
  90763. pTDefRegMap(@Self)^.clr := $01000000
  90764. else
  90765. pTDefRegMap(@Self)^.&set := $01000000;
  90766. end;
  90767. function TDEVCFG_DEVCFG0.getBWP : TBits_1; inline;
  90768. begin
  90769. getBWP := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  90770. end;
  90771. procedure TDEVCFG_DEVCFG0.setCP; inline;
  90772. begin
  90773. pTDefRegMap(@Self)^.&set := $10000000;
  90774. end;
  90775. procedure TDEVCFG_DEVCFG0.clearCP; inline;
  90776. begin
  90777. pTDefRegMap(@Self)^.clr := $10000000;
  90778. end;
  90779. procedure TDEVCFG_DEVCFG0.setCP(thebits : TBits_1); inline;
  90780. begin
  90781. if thebits = 0 then
  90782. pTDefRegMap(@Self)^.clr := $10000000
  90783. else
  90784. pTDefRegMap(@Self)^.&set := $10000000;
  90785. end;
  90786. function TDEVCFG_DEVCFG0.getCP : TBits_1; inline;
  90787. begin
  90788. getCP := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  90789. end;
  90790. procedure TDEVCFG_DEVCFG0.setFDEBUG(thebits : TBits_2); inline;
  90791. begin
  90792. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  90793. end;
  90794. function TDEVCFG_DEVCFG0.getFDEBUG : TBits_2; inline;
  90795. begin
  90796. getFDEBUG := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  90797. end;
  90798. procedure TDEVCFG_DEVCFG0.setw(thebits : TBits_32); inline;
  90799. begin
  90800. pTDefRegMap(@Self)^.val := thebits;
  90801. end;
  90802. function TDEVCFG_DEVCFG0.getw : TBits_32; inline;
  90803. begin
  90804. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  90805. end;
  90806. procedure _CORE_TIMER_VECTOR_interrupt; external name '_CORE_TIMER_VECTOR_interrupt';
  90807. procedure _CORE_SOFTWARE_0_VECTOR_interrupt; external name '_CORE_SOFTWARE_0_VECTOR_interrupt';
  90808. procedure _CORE_SOFTWARE_1_VECTOR_interrupt; external name '_CORE_SOFTWARE_1_VECTOR_interrupt';
  90809. procedure _EXTERNAL_0_VECTOR_interrupt; external name '_EXTERNAL_0_VECTOR_interrupt';
  90810. procedure _TIMER_1_VECTOR_interrupt; external name '_TIMER_1_VECTOR_interrupt';
  90811. procedure _INPUT_CAPTURE_1_VECTOR_interrupt; external name '_INPUT_CAPTURE_1_VECTOR_interrupt';
  90812. procedure _OUTPUT_COMPARE_1_VECTOR_interrupt; external name '_OUTPUT_COMPARE_1_VECTOR_interrupt';
  90813. procedure _EXTERNAL_1_VECTOR_interrupt; external name '_EXTERNAL_1_VECTOR_interrupt';
  90814. procedure _TIMER_2_VECTOR_interrupt; external name '_TIMER_2_VECTOR_interrupt';
  90815. procedure _INPUT_CAPTURE_2_VECTOR_interrupt; external name '_INPUT_CAPTURE_2_VECTOR_interrupt';
  90816. procedure _OUTPUT_COMPARE_2_VECTOR_interrupt; external name '_OUTPUT_COMPARE_2_VECTOR_interrupt';
  90817. procedure _EXTERNAL_2_VECTOR_interrupt; external name '_EXTERNAL_2_VECTOR_interrupt';
  90818. procedure _TIMER_3_VECTOR_interrupt; external name '_TIMER_3_VECTOR_interrupt';
  90819. procedure _INPUT_CAPTURE_3_VECTOR_interrupt; external name '_INPUT_CAPTURE_3_VECTOR_interrupt';
  90820. procedure _OUTPUT_COMPARE_3_VECTOR_interrupt; external name '_OUTPUT_COMPARE_3_VECTOR_interrupt';
  90821. procedure _EXTERNAL_3_VECTOR_interrupt; external name '_EXTERNAL_3_VECTOR_interrupt';
  90822. procedure _TIMER_4_VECTOR_interrupt; external name '_TIMER_4_VECTOR_interrupt';
  90823. procedure _INPUT_CAPTURE_4_VECTOR_interrupt; external name '_INPUT_CAPTURE_4_VECTOR_interrupt';
  90824. procedure _OUTPUT_COMPARE_4_VECTOR_interrupt; external name '_OUTPUT_COMPARE_4_VECTOR_interrupt';
  90825. procedure _EXTERNAL_4_VECTOR_interrupt; external name '_EXTERNAL_4_VECTOR_interrupt';
  90826. procedure _TIMER_5_VECTOR_interrupt; external name '_TIMER_5_VECTOR_interrupt';
  90827. procedure _INPUT_CAPTURE_5_VECTOR_interrupt; external name '_INPUT_CAPTURE_5_VECTOR_interrupt';
  90828. procedure _OUTPUT_COMPARE_5_VECTOR_interrupt; external name '_OUTPUT_COMPARE_5_VECTOR_interrupt';
  90829. procedure _SPI_1_VECTOR_interrupt; external name '_SPI_1_VECTOR_interrupt';
  90830. procedure _SPI_1A_VECTOR_interrupt; external name '_SPI_1A_VECTOR_interrupt';
  90831. procedure _UART_1_VECTOR_interrupt; external name '_UART_1_VECTOR_interrupt';
  90832. procedure _UART_1A_VECTOR_interrupt; external name '_UART_1A_VECTOR_interrupt';
  90833. procedure _I2C_3_VECTOR_interrupt; external name '_I2C_3_VECTOR_interrupt';
  90834. procedure _I2C_1A_VECTOR_interrupt; external name '_I2C_1A_VECTOR_interrupt';
  90835. procedure _SPI_3_VECTOR_interrupt; external name '_SPI_3_VECTOR_interrupt';
  90836. procedure _I2C_1_VECTOR_interrupt; external name '_I2C_1_VECTOR_interrupt';
  90837. procedure _CHANGE_NOTICE_VECTOR_interrupt; external name '_CHANGE_NOTICE_VECTOR_interrupt';
  90838. procedure _ADC_VECTOR_interrupt; external name '_ADC_VECTOR_interrupt';
  90839. procedure _PMP_VECTOR_interrupt; external name '_PMP_VECTOR_interrupt';
  90840. procedure _COMPARATOR_1_VECTOR_interrupt; external name '_COMPARATOR_1_VECTOR_interrupt';
  90841. procedure _COMPARATOR_2_VECTOR_interrupt; external name '_COMPARATOR_2_VECTOR_interrupt';
  90842. procedure _SPI_2A_VECTOR_interrupt; external name '_SPI_2A_VECTOR_interrupt';
  90843. procedure _UART_3_VECTOR_interrupt; external name '_UART_3_VECTOR_interrupt';
  90844. procedure _UART_2A_VECTOR_interrupt; external name '_UART_2A_VECTOR_interrupt';
  90845. procedure _I2C_4_VECTOR_interrupt; external name '_I2C_4_VECTOR_interrupt';
  90846. procedure _I2C_2A_VECTOR_interrupt; external name '_I2C_2A_VECTOR_interrupt';
  90847. procedure _SPI_2_VECTOR_interrupt; external name '_SPI_2_VECTOR_interrupt';
  90848. procedure _SPI_3A_VECTOR_interrupt; external name '_SPI_3A_VECTOR_interrupt';
  90849. procedure _UART_2_VECTOR_interrupt; external name '_UART_2_VECTOR_interrupt';
  90850. procedure _UART_3A_VECTOR_interrupt; external name '_UART_3A_VECTOR_interrupt';
  90851. procedure _I2C_5_VECTOR_interrupt; external name '_I2C_5_VECTOR_interrupt';
  90852. procedure _I2C_3A_VECTOR_interrupt; external name '_I2C_3A_VECTOR_interrupt';
  90853. procedure _SPI_4_VECTOR_interrupt; external name '_SPI_4_VECTOR_interrupt';
  90854. procedure _I2C_2_VECTOR_interrupt; external name '_I2C_2_VECTOR_interrupt';
  90855. procedure _FAIL_SAFE_MONITOR_VECTOR_interrupt; external name '_FAIL_SAFE_MONITOR_VECTOR_interrupt';
  90856. procedure _RTCC_VECTOR_interrupt; external name '_RTCC_VECTOR_interrupt';
  90857. procedure _DMA_0_VECTOR_interrupt; external name '_DMA_0_VECTOR_interrupt';
  90858. procedure _DMA_1_VECTOR_interrupt; external name '_DMA_1_VECTOR_interrupt';
  90859. procedure _DMA_2_VECTOR_interrupt; external name '_DMA_2_VECTOR_interrupt';
  90860. procedure _DMA_3_VECTOR_interrupt; external name '_DMA_3_VECTOR_interrupt';
  90861. procedure _FCE_VECTOR_interrupt; external name '_FCE_VECTOR_interrupt';
  90862. procedure _USB_1_VECTOR_interrupt; external name '_USB_1_VECTOR_interrupt';
  90863. procedure _CAN_1_VECTOR_interrupt; external name '_CAN_1_VECTOR_interrupt';
  90864. procedure _ETH_VECTOR_interrupt; external name '_ETH_VECTOR_interrupt';
  90865. procedure _UART_1B_VECTOR_interrupt; external name '_UART_1B_VECTOR_interrupt';
  90866. procedure _UART_4_VECTOR_interrupt; external name '_UART_4_VECTOR_interrupt';
  90867. procedure _UART_2B_VECTOR_interrupt; external name '_UART_2B_VECTOR_interrupt';
  90868. procedure _UART_6_VECTOR_interrupt; external name '_UART_6_VECTOR_interrupt';
  90869. procedure _UART_3B_VECTOR_interrupt; external name '_UART_3B_VECTOR_interrupt';
  90870. procedure _UART_5_VECTOR_interrupt; external name '_UART_5_VECTOR_interrupt';
  90871. procedure Vectors; assembler; nostackframe;
  90872. label interrupt_vectors;
  90873. asm
  90874. .section ".init.interrupt_vectors,\"ax\",@progbits"
  90875. interrupt_vectors:
  90876. j _CORE_TIMER_VECTOR_interrupt
  90877. nop
  90878. nop
  90879. nop
  90880. nop
  90881. nop
  90882. nop
  90883. nop
  90884. j _CORE_SOFTWARE_0_VECTOR_interrupt
  90885. nop
  90886. nop
  90887. nop
  90888. nop
  90889. nop
  90890. nop
  90891. nop
  90892. j _CORE_SOFTWARE_1_VECTOR_interrupt
  90893. nop
  90894. nop
  90895. nop
  90896. nop
  90897. nop
  90898. nop
  90899. nop
  90900. j _EXTERNAL_0_VECTOR_interrupt
  90901. nop
  90902. nop
  90903. nop
  90904. nop
  90905. nop
  90906. nop
  90907. nop
  90908. j _TIMER_1_VECTOR_interrupt
  90909. nop
  90910. nop
  90911. nop
  90912. nop
  90913. nop
  90914. nop
  90915. nop
  90916. j _INPUT_CAPTURE_1_VECTOR_interrupt
  90917. nop
  90918. nop
  90919. nop
  90920. nop
  90921. nop
  90922. nop
  90923. nop
  90924. j _OUTPUT_COMPARE_1_VECTOR_interrupt
  90925. nop
  90926. nop
  90927. nop
  90928. nop
  90929. nop
  90930. nop
  90931. nop
  90932. j _EXTERNAL_1_VECTOR_interrupt
  90933. nop
  90934. nop
  90935. nop
  90936. nop
  90937. nop
  90938. nop
  90939. nop
  90940. j _TIMER_2_VECTOR_interrupt
  90941. nop
  90942. nop
  90943. nop
  90944. nop
  90945. nop
  90946. nop
  90947. nop
  90948. j _INPUT_CAPTURE_2_VECTOR_interrupt
  90949. nop
  90950. nop
  90951. nop
  90952. nop
  90953. nop
  90954. nop
  90955. nop
  90956. j _OUTPUT_COMPARE_2_VECTOR_interrupt
  90957. nop
  90958. nop
  90959. nop
  90960. nop
  90961. nop
  90962. nop
  90963. nop
  90964. j _EXTERNAL_2_VECTOR_interrupt
  90965. nop
  90966. nop
  90967. nop
  90968. nop
  90969. nop
  90970. nop
  90971. nop
  90972. j _TIMER_3_VECTOR_interrupt
  90973. nop
  90974. nop
  90975. nop
  90976. nop
  90977. nop
  90978. nop
  90979. nop
  90980. j _INPUT_CAPTURE_3_VECTOR_interrupt
  90981. nop
  90982. nop
  90983. nop
  90984. nop
  90985. nop
  90986. nop
  90987. nop
  90988. j _OUTPUT_COMPARE_3_VECTOR_interrupt
  90989. nop
  90990. nop
  90991. nop
  90992. nop
  90993. nop
  90994. nop
  90995. nop
  90996. j _EXTERNAL_3_VECTOR_interrupt
  90997. nop
  90998. nop
  90999. nop
  91000. nop
  91001. nop
  91002. nop
  91003. nop
  91004. j _TIMER_4_VECTOR_interrupt
  91005. nop
  91006. nop
  91007. nop
  91008. nop
  91009. nop
  91010. nop
  91011. nop
  91012. j _INPUT_CAPTURE_4_VECTOR_interrupt
  91013. nop
  91014. nop
  91015. nop
  91016. nop
  91017. nop
  91018. nop
  91019. nop
  91020. j _OUTPUT_COMPARE_4_VECTOR_interrupt
  91021. nop
  91022. nop
  91023. nop
  91024. nop
  91025. nop
  91026. nop
  91027. nop
  91028. j _EXTERNAL_4_VECTOR_interrupt
  91029. nop
  91030. nop
  91031. nop
  91032. nop
  91033. nop
  91034. nop
  91035. nop
  91036. j _TIMER_5_VECTOR_interrupt
  91037. nop
  91038. nop
  91039. nop
  91040. nop
  91041. nop
  91042. nop
  91043. nop
  91044. j _INPUT_CAPTURE_5_VECTOR_interrupt
  91045. nop
  91046. nop
  91047. nop
  91048. nop
  91049. nop
  91050. nop
  91051. nop
  91052. j _OUTPUT_COMPARE_5_VECTOR_interrupt
  91053. nop
  91054. nop
  91055. nop
  91056. nop
  91057. nop
  91058. nop
  91059. nop
  91060. j _SPI_1_VECTOR_interrupt
  91061. nop
  91062. nop
  91063. nop
  91064. nop
  91065. nop
  91066. nop
  91067. nop
  91068. j _SPI_1A_VECTOR_interrupt
  91069. nop
  91070. nop
  91071. nop
  91072. nop
  91073. nop
  91074. nop
  91075. nop
  91076. j _I2C_1_VECTOR_interrupt
  91077. nop
  91078. nop
  91079. nop
  91080. nop
  91081. nop
  91082. nop
  91083. nop
  91084. j _CHANGE_NOTICE_VECTOR_interrupt
  91085. nop
  91086. nop
  91087. nop
  91088. nop
  91089. nop
  91090. nop
  91091. nop
  91092. j _ADC_VECTOR_interrupt
  91093. nop
  91094. nop
  91095. nop
  91096. nop
  91097. nop
  91098. nop
  91099. nop
  91100. j _PMP_VECTOR_interrupt
  91101. nop
  91102. nop
  91103. nop
  91104. nop
  91105. nop
  91106. nop
  91107. nop
  91108. j _COMPARATOR_1_VECTOR_interrupt
  91109. nop
  91110. nop
  91111. nop
  91112. nop
  91113. nop
  91114. nop
  91115. nop
  91116. j _COMPARATOR_2_VECTOR_interrupt
  91117. nop
  91118. nop
  91119. nop
  91120. nop
  91121. nop
  91122. nop
  91123. nop
  91124. j _SPI_2A_VECTOR_interrupt
  91125. nop
  91126. nop
  91127. nop
  91128. nop
  91129. nop
  91130. nop
  91131. nop
  91132. j _SPI_3A_VECTOR_interrupt
  91133. nop
  91134. nop
  91135. nop
  91136. nop
  91137. nop
  91138. nop
  91139. nop
  91140. j _I2C_2_VECTOR_interrupt
  91141. nop
  91142. nop
  91143. nop
  91144. nop
  91145. nop
  91146. nop
  91147. nop
  91148. j _FAIL_SAFE_MONITOR_VECTOR_interrupt
  91149. nop
  91150. nop
  91151. nop
  91152. nop
  91153. nop
  91154. nop
  91155. nop
  91156. j _RTCC_VECTOR_interrupt
  91157. nop
  91158. nop
  91159. nop
  91160. nop
  91161. nop
  91162. nop
  91163. nop
  91164. j _DMA_0_VECTOR_interrupt
  91165. nop
  91166. nop
  91167. nop
  91168. nop
  91169. nop
  91170. nop
  91171. nop
  91172. j _DMA_1_VECTOR_interrupt
  91173. nop
  91174. nop
  91175. nop
  91176. nop
  91177. nop
  91178. nop
  91179. nop
  91180. j _DMA_2_VECTOR_interrupt
  91181. nop
  91182. nop
  91183. nop
  91184. nop
  91185. nop
  91186. nop
  91187. nop
  91188. j _DMA_3_VECTOR_interrupt
  91189. nop
  91190. nop
  91191. nop
  91192. nop
  91193. nop
  91194. nop
  91195. nop
  91196. nop
  91197. nop
  91198. nop
  91199. nop
  91200. nop
  91201. nop
  91202. nop
  91203. nop
  91204. nop
  91205. nop
  91206. nop
  91207. nop
  91208. nop
  91209. nop
  91210. nop
  91211. nop
  91212. nop
  91213. nop
  91214. nop
  91215. nop
  91216. nop
  91217. nop
  91218. nop
  91219. nop
  91220. nop
  91221. nop
  91222. nop
  91223. nop
  91224. nop
  91225. nop
  91226. nop
  91227. nop
  91228. j _FCE_VECTOR_interrupt
  91229. nop
  91230. nop
  91231. nop
  91232. nop
  91233. nop
  91234. nop
  91235. nop
  91236. j _USB_1_VECTOR_interrupt
  91237. nop
  91238. nop
  91239. nop
  91240. nop
  91241. nop
  91242. nop
  91243. nop
  91244. j _CAN_1_VECTOR_interrupt
  91245. nop
  91246. nop
  91247. nop
  91248. nop
  91249. nop
  91250. nop
  91251. nop
  91252. nop
  91253. nop
  91254. nop
  91255. nop
  91256. nop
  91257. nop
  91258. nop
  91259. nop
  91260. j _ETH_VECTOR_interrupt
  91261. nop
  91262. nop
  91263. nop
  91264. nop
  91265. nop
  91266. nop
  91267. nop
  91268. j _UART_1B_VECTOR_interrupt
  91269. nop
  91270. nop
  91271. nop
  91272. nop
  91273. nop
  91274. nop
  91275. nop
  91276. j _UART_2B_VECTOR_interrupt
  91277. nop
  91278. nop
  91279. nop
  91280. nop
  91281. nop
  91282. nop
  91283. nop
  91284. j _UART_3B_VECTOR_interrupt
  91285. nop
  91286. nop
  91287. nop
  91288. nop
  91289. nop
  91290. nop
  91291. nop
  91292. .weak _CORE_TIMER_VECTOR_interrupt
  91293. .weak _CORE_SOFTWARE_0_VECTOR_interrupt
  91294. .weak _CORE_SOFTWARE_1_VECTOR_interrupt
  91295. .weak _EXTERNAL_0_VECTOR_interrupt
  91296. .weak _TIMER_1_VECTOR_interrupt
  91297. .weak _INPUT_CAPTURE_1_VECTOR_interrupt
  91298. .weak _OUTPUT_COMPARE_1_VECTOR_interrupt
  91299. .weak _EXTERNAL_1_VECTOR_interrupt
  91300. .weak _TIMER_2_VECTOR_interrupt
  91301. .weak _INPUT_CAPTURE_2_VECTOR_interrupt
  91302. .weak _OUTPUT_COMPARE_2_VECTOR_interrupt
  91303. .weak _EXTERNAL_2_VECTOR_interrupt
  91304. .weak _TIMER_3_VECTOR_interrupt
  91305. .weak _INPUT_CAPTURE_3_VECTOR_interrupt
  91306. .weak _OUTPUT_COMPARE_3_VECTOR_interrupt
  91307. .weak _EXTERNAL_3_VECTOR_interrupt
  91308. .weak _TIMER_4_VECTOR_interrupt
  91309. .weak _INPUT_CAPTURE_4_VECTOR_interrupt
  91310. .weak _OUTPUT_COMPARE_4_VECTOR_interrupt
  91311. .weak _EXTERNAL_4_VECTOR_interrupt
  91312. .weak _TIMER_5_VECTOR_interrupt
  91313. .weak _INPUT_CAPTURE_5_VECTOR_interrupt
  91314. .weak _OUTPUT_COMPARE_5_VECTOR_interrupt
  91315. .weak _SPI_1_VECTOR_interrupt
  91316. .weak _SPI_1A_VECTOR_interrupt
  91317. .weak _UART_1_VECTOR_interrupt
  91318. .weak _UART_1A_VECTOR_interrupt
  91319. .weak _I2C_3_VECTOR_interrupt
  91320. .weak _I2C_1A_VECTOR_interrupt
  91321. .weak _SPI_3_VECTOR_interrupt
  91322. .weak _I2C_1_VECTOR_interrupt
  91323. .weak _CHANGE_NOTICE_VECTOR_interrupt
  91324. .weak _ADC_VECTOR_interrupt
  91325. .weak _PMP_VECTOR_interrupt
  91326. .weak _COMPARATOR_1_VECTOR_interrupt
  91327. .weak _COMPARATOR_2_VECTOR_interrupt
  91328. .weak _SPI_2A_VECTOR_interrupt
  91329. .weak _UART_3_VECTOR_interrupt
  91330. .weak _UART_2A_VECTOR_interrupt
  91331. .weak _I2C_4_VECTOR_interrupt
  91332. .weak _I2C_2A_VECTOR_interrupt
  91333. .weak _SPI_2_VECTOR_interrupt
  91334. .weak _SPI_3A_VECTOR_interrupt
  91335. .weak _UART_2_VECTOR_interrupt
  91336. .weak _UART_3A_VECTOR_interrupt
  91337. .weak _I2C_5_VECTOR_interrupt
  91338. .weak _I2C_3A_VECTOR_interrupt
  91339. .weak _SPI_4_VECTOR_interrupt
  91340. .weak _I2C_2_VECTOR_interrupt
  91341. .weak _FAIL_SAFE_MONITOR_VECTOR_interrupt
  91342. .weak _RTCC_VECTOR_interrupt
  91343. .weak _DMA_0_VECTOR_interrupt
  91344. .weak _DMA_1_VECTOR_interrupt
  91345. .weak _DMA_2_VECTOR_interrupt
  91346. .weak _DMA_3_VECTOR_interrupt
  91347. .weak _FCE_VECTOR_interrupt
  91348. .weak _USB_1_VECTOR_interrupt
  91349. .weak _CAN_1_VECTOR_interrupt
  91350. .weak _ETH_VECTOR_interrupt
  91351. .weak _UART_1B_VECTOR_interrupt
  91352. .weak _UART_4_VECTOR_interrupt
  91353. .weak _UART_2B_VECTOR_interrupt
  91354. .weak _UART_6_VECTOR_interrupt
  91355. .weak _UART_3B_VECTOR_interrupt
  91356. .weak _UART_5_VECTOR_interrupt
  91357. .text
  91358. end;
  91359. end.